1580 LPRINT H$; E$; ’’q’’;CHR$(l );’’ OUTLINED ’’; E$; ’’q’’ ;CHR$ (0);”, “:
I590
1600
1610
1620
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
1780
1790
1800
1810
1820
1830
1840
1850
1860
1870
1880
1890
1900
1910
1920
1930
1940
1950
1960
1970
1980
1990
2000
201’0
2020
2030
2040
2050
2060
2070
2080
2090
2100
2500
2510
2520
2530
2540
2550
2560
2570
2580
2590
2600
2610
2620
LPRINT E$; “q” ;CHR$ (2) ;“SHADOWED’’;E$; ’’;CHR$(0)(O) ;“, “;
LPRINT E$; ’’q’’;CHR$(3) ;UOUTLINED WITH SHADOWED”;
LPRINT E$; ’’q’’;CHR$(0) ;”, v
LPRINT H$;E$; ”E’’; ’’EmphasizedH ;E$; ’’F’’:”, ‘;
LPRINT E$; ’’G”;tiDouble-strikeu ;E$; ’’H’’; U, “;
LPRINT E$; ”4’’; ”Italics’’;E$; ”5” ;“, v
LPRINT H$;E$; ”-l”;” Underlining’’ ;E$; ’’-OU;ti, “;
LPRINT E$; U(-’’;CHR$(3) ;CHR$(0) ;CHR$(l) ;CHR$(2);CHR$(2) ;
LPRINT ‘Strike–through”;
LpRINT E$; ”(-”:CHR$ (3);CHR$(o) :CHR$(I) :CHR$(2):CHR$(0) ;“, “:
LPRINT E$; ’’(-” ;cHR$(3) ;CHR$(0);CHR$(I) :CHR$(3):CHR$(1 ):
LPRINT ‘OverliningH;
LPRINT E$; H(-U:CHR$ (3);CHR$(0) ;CHR$(l) :CHR$(3);CHR$(0) :“, “
LPRINT H$;E$; USO”; “SUPERSCRIPT” ;E$;NTM ;“ and “;
LPRINT E$;”S1 ‘i;OSUBSCRIPTN ;E$;vTu ;“, “
LPRINT H$;RM$; ”Download characters: ‘:
SS$=E$+”SOU ‘Superscript
GOSUB 2520
LPRINT E$; N%IU; ‘Select download character
FOR 1=1 TO 5
LPRINT CHR$(60); ‘Print download character
NEXT I
LPRINT E$; ’’%O”; ‘Select normal character
LPRINT E$; ’’T”; ‘Cancel superscript
GOSUB 2650
LPRINT E$; ’’%l”;
FOR 1=1 TO 5‘Select download character
LPRINT CHR$(60); ‘Print download character
NEXT I
LPRINT E$; ”%O”; ‘Select normal character
SS$=E$+’’SIU ‘Subscript
GOSUB 2520
LPRINT E$; ”%lu; ‘Select download character
FOR 1=1 TO 5
LPRINT CHR$(60); ‘Print download character
NEXT I
LPRINT E$; U%O”; ‘Select normal character
LPRINT E$;”TM ‘Cancel superscript
LPRINT H$;RM$; ”Dot graphics:”
RESTORE 3170
LPRINT E$; NAo;CHR$(8); ‘Set 8/60n line spacing
FOR 1=1 TO 3
LPRINT E$; ’’fO”;CHR$(8);
LPRINT E$ ;V*H;CHR$ (33) ;CHR$(240) ;CHR$(0);
FOR J=l TO 240*3
READ DAT
LPRINT CHR$(DAT);
NEXT J
LPRINT
NEXT I
LF’RINT E$;”@” ‘Initialize printer
END
SUBROUTINES
‘Define super/subscript download character
LPRINT SS$; ‘Select super/subscript
LPRINT E$; ti&H:CHR$ (0);CHR$(60) ;CHR$(60);
RESTORE 3010
READ LS :LPRINT CHR$(LS);
READ CW :LPRINT CHR$(CW);
READ RS :LPRINT CHR$(RS);
FOR M=l TO CW*2
READ MM
LPRINT CHR$(MM);
NEXT M
137