I
1490
1500
1510
1520
1530
1540
1550
1560
1570
1500
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
1950
1960
1970
1980
1990
2000
2010
2020
2030
2040
2050
NEXT I
LPRINT E$;“aO” ‘Left justify
LPRINT E$;’’3’’;CHR$(36); ‘Set 1/6” Line spacing
LPRINT E$;“ “;CHR$(0); ‘Normal character space
LPRINT E$;’’Q’’;CHR$(8O)‘Set right margin
LPRINT
LPRINT C$;’’Otherfeatures:”
LPRINT H$;E$;’’4’’ItalicsM;s”;E$;’’5’’;”,“;
LPRINT E$;’’E’’Emphasizedz;E$’;E$;“F’’;”,“;
LPRINT E$;’’G”;‘Double–striken;E$;“H’’;”,“
LPRINT H$;E$;’’-;’’;’’UnderliningM;E$;H–O’’;”,“;
LPRINT E$;’’SO”;
‘SJUpERU;E$;!!TU;M and ,,;
LPRINT E$;’’S1’’SUBSCRIPTII;E$;E$;nTM;II,M
LPRINT
LPRINT H$;C$;”Download characters: II;
GOSUB 2040
LPRINT D$;E$; ’’%1”; ‘Select draft download character
FOR 1=1 TO 5
LPRINT CHR$(60); ‘Print download character
NEXT I
LPRINT E$;U%O”; ‘Select normal character
GOSUB 2130
LPRINT C$;E$; ’’%1”; ‘Select NLQ download character
FOR 1=1 TO 5
LPRINT CHR$(60); ‘Print download character
NEXT I
LPRINT E$;’’%OU ‘Select normal character
LPRINT
LPRINT H$;C$;”Various dot graphic densities:”
DIM LOGO$(4)
RESTORE 2350
FOR ROW=l TO 4
FOR COL=l TO 65
READ DG
LOGO$(ROW)=LOGO$(ROW)+CHR$(DG)
NEXT COL
NEXT ROW
LPRINT E$;’’A’’;CHR$(8); ‘Set 8/72M Line spacing
FOR ROW=l TO 4
LPRINT u “;
FOR B=O TO 6
IF B=2 THEN 1970
IF B=5 THEN 1970
LPRINT E$; ’’*’’;CHR$(B); ‘Selectdot graphics mode
LPRINT CHR$(65);CHR$(0) ;LOGO$(ROW);
LPRINT “ “;
NEXT B
LPRINT
NEXT ROW
LPRINT E$;“@n ‘Initialize printer
END
‘ SUBROUTINES
‘ Define draft download character
LPRINT D$;E$;v&’’;CHR$(0);CHR$(60);CHR$(60);
2060 RESTORE 2240