1490
1500
1510
1520
1530
1540
1550
1560
1570
1580
1590
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
2000
2010
2020
LPRINT
LPRINT
LPRINT
NEXT I
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
LPRINT
E$;“A“;CHR$(I);
E$;�� “;CHR$(I);
“THESPACINGS ARE CHANGED”
E$;“aO” ‘Leftjustify
E$;’’3’’;CHR$(36);‘Set1/6” linespacing
E$;” “;CHR$(0); ‘Normal character space
:LPRINT
C$;”Other features:M
H$;E$; ’’E”;“Emphasized”;E$;’ ’F”;”, “;
E$;”G”; “Double-strike’’; E$; “H’’;’’,”
H$;E$; ’’-1”; “Underlining’’; E$;’’-O”; “, “;
E$; ”–l”; .@er~lnlng’’ ;E$;’’-O. ;ti,u
H$;E$; ’’SO”;“SUPERSCRIPT’’;E$;”T”;“, “:
E$;’’S1”; “SUBSCRIPT’’;E$;“T’’;’’,”
GOSUB 2020
LPRINTH$;C$;’’Downloadcharacters:“;
LPRINTD$;E$;’’%1”; ‘Selectdownload character
FOR 1=1 TO 5
LPRINTCHR$(60); ‘Printd~wnloadcharacter
NEXT I
LPRINTE$;’’%O”: ‘Selectnormal character
GOSUB 2120
LPRINTC$;E$;’’%1”; ‘Selectdownload character
FOR 1=1 TO 5
LPRINTCHR$(60); ‘Printdownloadcharacter
NEXT I
LPRINTE$;’’%O” ‘Selectnormal character
LPRIN’TH$;C$;“Dot graphics:”
DIM LOGO$(4)
RESTORE2630
FOR ROW-1 TO 4
FOR COL=l”TO100
READ DG
LOGO$(ROW)=LOGO$(ROW)+CHR$(DG)
NEXT COL
NEXT ROW
LPRINTE$;’’A’’;CHR$(8); ‘Set8/72” line spacing
FOR ROW==lTO 4
LPRINTH$;H$;
LPRINTE$;“*’’;CHR$(O);‘Selectnormaldensity
LPRINTCHR$(1OO);CHR$(O);
LPRINTLOGO$(ROW)
NEXT ROW
LPRINTE$;’’f!” ‘Initializeprinter
END
‘ SUBROUTINES
‘ Definedraft download character
—
—
—
—
—
—
—
—
—
—
—