>Printer 1.31 LASER  (C)J.G.Harston  B/B+/E/M/C/A/T (: 2&83: -P>5000 &80 <: F2 Settings for HP Laserjet compatible printers P> xxxx0$ is to turn an effect off, xxxx1$ is to turn it on ZEreset$=27+"E"+27+"&k2G" : reset printer, LF=>CR+LF d=nlq0$="":nlq1$="" : NLQ off/on n8bold0$=27+"(s0B":bold1$=27+"(s3B" : bold off/on x@comp0$=27+"&l6D"+27+"(s10H":comp1$=27+"&l12D"+27+"(s24H" D : compressed off/on Adoubl0$=27+"(s0B":doubl1$=27+"(s3B" : double strike off/on Esuper0$="":super1$="" : superscript off/on Csub0$="":sub1$="" : subscript off/on wide1$=27+"(s5H"+27+"&l3D" !wide0$=27+"(s10H"+27+"&l6D" wide1$=27+"(s"+5+"H" wide0$=27+"(s"+10+"H"  :high0$=27+"w0":high1$=27+"w1" : d/high off/on ?dwi0$=27+"h0":dwi1$=27+"h1" : d/high&wide off/on 8quad1$=27+"(s3H"+27+"&l1D" : quad off/on !quad0$=27+"(s10H"+27+"&l6D" ;ital0$=27+"(s0S":ital1$=27+"(s1S" : italics off/on LiFlg%= : Use codes/Add 128 for italics Bcharsel$=27+"(" : char set selection "BUSchar$=charsel$+"10U" : select US chars ,BUKchar$=charsel$+"1E" : select UK chars 6@pound$=UKchar$+"#"+USchar$:Ipound$=UKchar$+(35+128)+USchar$ @=under0$=27+"&d@":under1$=27+"&d1D" : underline off/on J9font0$="!R! FSET 0p10h12v0s0b3T; EXIT;" : Font 0 T9font1$="!R! FSET 1p12v0s0b5T; EXIT;" : Font 1 ^9font2$="!R! FSET 1p12v0s0b4T; EXIT;" : Font 2 h9font3$="!R! FSET 1p12v0s0b6T; EXIT;" : Font 3 rJlf%=1 : change this to lf%=1 if |J : your printer doesn't do H : automatic LF after CR : 5high%=:prn%=:reset%=:pl%=66:l%=60:ff%=:ffl%= 8rr%=82:ds%=1:nlq%=:pound%=:pound2%=:code%=:op%= :  err C%=0:under%=0:bold%=0::*. ""Press SHIFT-Escape to exit." O:: (-4)<63 ;63-(-4);" bytes in printer buffer. ";(-4);" bytes free." !"File: "F$: F$,1)="*" F$ (F$,1)<>"*" F$<>"") )C%=(F$): C%=0 "Can't open '"F$"'"' #C%<>0:prn%=yn("Printer",prn%) :"First page (1) "sp% *"Last page (255) "ep%: ep%<1 ep%=255  ep%>=sp% &;op% options:op%= yn("Change options",) options 0%: prn% 2: reset% prn(reset$) :prn% prn(USchar$) Dprn% nlq% prn(nlq1$) NAcode% 23,128,0,0,8,4,254,4,8,0,23,129,0,0,&F8,8,&2A,&1C,8,0 X sp%>1 3 b3line%=0:page%=0:it%=0:prn(ll%," ")): B%=#C% l0B%>31 B%<127 B%<>96:B%+it% char(B%) v2(B%=32 >rr%+ll%)(>78 rr%<80) char(13) "line%=l% ep% page%=ep%-1 3 line%=l% 0,32: 1279,32:cls:prn(ll%," ")):line%=0:page%=page%+1:sp%page%=sp%-1 :"Printing from page ";sp%:2:sp%=0 #C%:#C%:C%=0 prn% cls:3 #line%=0 line%=l%:page%=page%-1 R'"'"+F$+"' printed. ";page%+1;" pages with ";line%;" lines on the last page." 0  options :high%=yn("Use VIEW highlight 2 as escape char",high%) ,prn% reset%=yn("Reset printer",reset%) @:"Printer page length (";pl%;:") "pl2%: pl2%<>0 pl%=pl2% pl%<40 "Too short"  pl%>39 8:"Text page length (";l%;:") "l2%: l2%<>0 l%=l2%  l%<4 "Too short"  l%>3  *ff%=yn("Force FF at end of page",ff%) *F ff% l%<>pl% ffl%=yn("Send LFs to advance to next page",ffl%) 4C"Lefthand margin (RETURN for non, 79=max): "ll%: ll%>30 ll%=0 >T"Righthand margin (RETURN for non, ";79+ll%;: "=max): "rr%: rr%<30 rr%=82+ll% H7"Line spacing (";ds%;:") "ds2%: ds2%<>0 ds%=ds2% Rnlq%=yn("Set NLQ",nlq%) \>pound%=yn("Convert CHR$96 (`) into pound symbols",pound%) fApound2%=yn("Convert CHR$163 () into pound symbols",pound2%) p!code%=yn("Show codes",code%) z"eol$=13+10,lf%+1)+ll%," ")  !char(B%):z%=0: B%=221 B%=9 B%=10:B%=13 B%=13 code%:vdu(129+8) B%=13 prn%:prn(eol$) 0B%=13 prn% ds%>1:z%=1 ds%:prn(eol$): (B%=13:line%=line%+1:vdu(13+10): 0B%=12 prn%:cls:prn(ll%," ")):line%=l%: B%=12:line%=l%: B%=9 code%:vdu(128+8) (B%=9 prn%=0:8-((+1) 8),9);: B%=9:(8-((+1) 8));: 159 code% prn%=0:9,8:129:0:B-128:1:128: jMB%>126 code% prn%=0:9,9,9,9,9,8,8,8,8,8:129:0:"[";B;"]";:1:128: t0prn%=0 9,9,8,8:129:0:94,B%+64:1:128: ~  cls  pl%