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 |
|
| ||||||||||
1600 LPRINT | 'I; | |||||||||||
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: "; |
|
| ||||||||
1660 | LPRINT | D$:E$;"%l"; |
| 'Select | download | character | ||||||
1670 FOR |
|
|
|
|
|
|
|
| ||||
1680 | LPRINT | CHR$(601; |
| 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); |
| 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