Filter
Top Products
-
1490 LPRINT E$;"A":CHR$(I);
1500 LPRINT E$;" ";CHR$(I):
1510 LPRINT "THE SPACINGS ARE CHANGED"
1520 NEXT I
1530 LPRINT E$;"aO"
'Left justify
1540 LPRINT E$;"3";CHR$(36); 'Set l/6" line spacing
1550 LPRINT E$;" ";CHR$(O);
'Normal character space
1560 LPRINT :LPRINT
1570 LPRINT C$;
"Other features:"
1580 LPRINT H$;E$;"E";"Emphasized";E$;"F":". I';
1590 LPRINT E$;"G";"Double-strike";E$;"H";","
1600 LPRINT H$;E$;"-1";"Underlining";E$;"-0":". ";
1610 LPRINT E$;"~l";"Overlining";E$;"~O";"."
1620 LPRINT H$;E$;"SO";"SUPERSCRIPT";E$;"T":". 'I;
1630 LPRINT E$;"S1";"SUBSCRIPT";E$;"T";"."
1640 GOSUB 2020
1650 LPRINT H$;C$;
"Download characters: 'I;
1660 LPRINT D$;E$;"%l";
'Select download character
1670 FOR I-l TO 5
1680 LPRINT CHR$(60):
'Print download character
1690 NEXT I
1700 LPRINT E$;"%O";
'Select normal character
1710 GOSUB 2120
1720 LPRINT C$:E$;"%l";
'Select download character
1730 FOR I=1 TO 5
1740 LPRINT CHR$(60);
'Print download character
1750 NEXT I
1760 LPRINT E$;"%O"
'Select normal character
1770 LPRINT H$;C$;"Dot graphics:"
1780 DIM LOG0$(4)
1790 RESTORE 2630
1800 FOR ROW-1 TO 4
1810 FOR COL=l'TO 100
1820 READ DG
1830 LOGO$(ROW)=LOGO$(ROW)+CHR$(DG)
1840 NEXT COL
1850 NEXT ROW
1860 LPRINT E$;"A";CHR$(8);
'Set 8/72" line spacing
1870 FOR ROW=1 TO 4
1880 LPRINT H$;H$;
1890 LPRINT E$;"*":CHR$(O);
'Select normal density
1900 LPRINT CHR$(lOO);CHR$(O);
1910 LPRINT LOGO$(ROW)
1920 NEXT ROW
1930 LPRINT E$;"@"
'Initialize printer
1940 END
2000 '
2010 ' SUBROUTINES
2020
' Define draft download character
42