Proportional Printing

Source Code

   10 REM Program to perform Proportional Printing.WES BRZOZOWSKI
   15 REM An upgraded version of an entry in "YOUR SPECTRUM", Nov 1985
   20 REM Changes include - Modified for TS2068, Supports TAB, better fonts, and works as in OVER 0, instead of OVER 1
   25 REM When you RUN this program, it will SAVE the actual Proportional Print program to tape
   30 REM When THAT program is run, all LPRINT statements will do proportional printing to the screen.
   40 REM AT and TAB are supported, but they now refer to pixel positions, instead of character positions.
   50 REM It will also be possible to use PRINT, to do non-proportional printing on the screen.
   60 GO TO 585
   70 REM Subroutine to decode the following Hexadecimal DATA statements
   75 READ n$: LET hi=CODE n$(1): LET lo=CODE n$(2)
   80 IF hi>57 THEN LET hi=hi-7
   85 IF lo>57 THEN LET lo=lo-7
   90 LET n=16*hi+lo-816
   95 RETURN 
  100 DATA "21","00","A8","22","E9","FE","2A","4F"
  110 DATA "5C","01","0F","00","09","01","DE","FD"
  120 DATA "71","23","70","C9","E5","C5","D5","F5"
  130 DATA "CD","EA","FD","F1","D1","C1","E1","C9"
  140 DATA "F5","3A","F0","FE","FE","00","20","15"
  150 DATA "F1","FE","16","20","06","3E","FF","32"
  160 DATA "F0","FE","C9","FE","17","20","38","3E"
  170 DATA "FD","32","F0","FE","C9","FE","FF","20"
  180 DATA "09","F1","32","E9","FE","21","F0","FE"
  190 DATA "35","C9","FE","FE","20","0D","F1","47"
  200 DATA "3E","A8","90","32","EA","FE","AF","32"
  210 DATA "F0","FE","C9","FE","FD","20","0A","F1"
  220 DATA "32","E9","FE","3E","FC","32","F0","FE"
  230 DATA "C9","F1","AF","32","F0","FE","C9","FE"
  240 DATA "0D","20","09","CD","2A","FF","3E","02"
  250 DATA "CD","30","12","C9","FE","20","38","04"
  260 DATA "FE","80","38","02","3E","3F","26","00"
  270 DATA "6F","29","29","29","EB","2A","F4","FE"
  280 DATA "19","7E","32","F1","FE","36","00","22"
  290 DATA "F2","FE","01","07","00","09","22","EE"
  300 DATA "FE","3A","EA","FE","FE","A9","D2","0A"
  310 DATA "FF","CD","13","FF","ED","4B","E9","FE"
  320 DATA "CD","03","26","32","ED","FE","22","EB"
  330 DATA "FE","06","08","C5","2A","EE","FE","7E"
  340 DATA "2B","22","EE","FE","6F","3A","F1","FE"
  350 DATA "16","FF","5F","4F","3A","ED","FE","FE"
  360 DATA "00","28","12","47","26","00","CB","3D"
  370 DATA "CB","1C","CB","3B","CB","FB","CB","1A"
  380 DATA "A7","10","F3","42","4B","ED","5B","EB"
  390 DATA "FE","1A","A1","B5","12","CD","37","FF"
  400 DATA "3A","ED","FE","FE","00","28","09","13"
  410 DATA "1A","A0","B4","12","CD","37","FF","1B"
  420 DATA "2A","EB","FE","CD","F7","FE","22","EB"
  430 DATA "FE","C1","10","AF","3A","F1","FE","2A"
  440 DATA "F2","FE","77","3A","E9","FE","47","3A"
  450 DATA "F6","FE","80","32","E9","FE","C9","00"
  460 DATA "A8","00","00","00","00","00","00","00"
  470 DATA "00","00","C8","F9","00","F5","7C","25"
  480 DATA "E6","07","20","0A","7D","D6","20","6F"
  490 DATA "38","04","7C","C6","08","67","F1","C9"
  500 DATA "3A","F1","FE","2A","F2","FE","77","CF"
  510 DATA "04","06","08","3A","F1","FE","4F","A7"
  520 DATA "CB","39","30","03","05","18","F8","78"
  530 DATA "32","F6","FE","3A","E9","FE","80","D0"
  540 DATA "AF","32","E9","FE","3A","EA","FE","D6"
  550 DATA "08","32","EA","FE","C9","E5","F5","7A"
  560 DATA "CB","0F","CB","0F","CB","0F","E6","03"
  570 DATA "F6","58","67","6B","3A","8D","5C","77"
  580 DATA "F1","E1","C9"
  585 CLEAR 64199: PRINT AT 10,0;"This Will Take a While...": PRINT "   ...Why not take a break?"
  590 REM ***********************
  610 FOR j=64970 TO 65356: GO SUB 70: POKE j,n: NEXT j
  700 REM ***********************
  710 REM Now that the machine code is in, we'll derive the compressed fonts from the standard Timex character set
 1000 LET addr=PEEK 23606+256*PEEK 23607+256+8: LET daddr=64208
 1010 FOR c=1 TO 95
 1020 LET smin=16
 1030 FOR x=1 TO 8
 1040 LET l=PEEK addr: LET addr=addr+1
 1050 IF l<16 THEN LET s=16: GO TO 1090
 1060 IF l<32 THEN LET s=8: GO TO 1090
 1070 IF l<64 THEN LET s=4: GO TO 1090
 1075 IF l<128 THEN LET s=2: GO TO 1090
 1080 LET s=1
 1090 IF s<smin THEN LET smin=s
 1100 NEXT x
 1110 LET addr=addr-8
 1120 FOR x=1 TO 8
 1130 POKE daddr,(PEEK addr)*smin
 1140 LET addr=addr+1: LET daddr=daddr+1
 1150 NEXT x
 1160 LET smin=8: LET daddr=daddr-8
 1170 FOR x=1 TO 8
 1180 LET s=0: LET r=PEEK daddr: LET daddr=daddr+1: IF r=0 THEN GO TO 1220
 1190 IF ABS (r/2-INT (r/2))>.1 THEN GO TO 1210
 1200 LET s=s+1: LET r=INT (r/2+.1): GO TO 1190
 1210 IF s<smin THEN LET smin=s
 1220 NEXT x
 1225 IF smin=0 THEN LET smin=1
 1226 LET q=2^(smin-1)-1: IF smin=1 THEN LET q=0
 1230 POKE daddr-8,q
 1240 NEXT c
 1250 POKE 64200,15
 1260 FOR j=64201 TO 64207: POKE j,0: NEXT j
 2000 BEEP .25,1: BEEP .25,15: BEEP .25,1: BEEP .25,15
 2010 SAVE CHR$ 253+CHR$ 245+CHR$ 8+"ING"+CHR$ 235+"YOU" LINE 3000
 2020 SAVE CHR$ 232+CHR$ 204+CHR$ 227+"THE "+CHR$ 175 CODE 64200,1160
 2025 RANDOMIZE USR 64970
 2030 GO SUB 8000
 2040 STOP 
 3000 CLEAR 64199: LOAD ""CODE 
 3010 RANDOMIZE USR 64970
 3020 GO SUB 8000
 3030 LPRINT 
 3040 LPRINT "You can now NEW the BASIC portion away;"
 3050 LPRINT "This will Turn Off the proportional printing..."
 3060 LPRINT "But you can turn it on again, with"
 3070 LPRINT TAB 60;"RANDOMIZE USR 64970"
 3080 STOP 
 8000 CLS : PRINT "This is an example of the boringold printing. What else could wewant?"
 8010 LPRINT AT 0,50;"Well, we COULD wish for proportional printing;"
 8020 LPRINT "Look how neat it is, and how easy it is to read!"
 8030 LPRINT "...Then, count how many additional characters   we can get on a line."
 8040 LPRINT 
 8050 LPRINT "REMEMBER...these characters are the SAME      SIZE as the standard Timex character set. Onlythe spacing between them has been changed!!!"
 8060 RETURN