
1490 NEXT I |
|
| 'Left justify |
| ||
1500 LPRINT E$;"aO" |
| |||||
1510 LPRINT E$;"3";CHR$(36); 'Set l/6" Line spacing | ||||||
1520 LPRINT E$;" ";CHR$(O); 'Normal character space | ||||||
1530 LPRINT E$;"Q";CHR$(BO) 'Set right margin |
| |||||
1540 LPRINT |
|
|
|
|
| |
1550 | ' |
|
|
|
|
|
1560 LPRINT C$;"Other features:" |
|
| ||||
1570 LPRINT H$;E$;"4";"Italics";E$;"5";", | I': |
| ||||
1580 LPRINT E$;"E";"Emphasized";E$;"F";", I'; |
| |||||
1590 LPRINT |
| |||||
1600 LPRINT | 'I; | |||||
1610 LPRINT E$;"SO";"SUPER";E$;"T";" and 'I; |
| |||||
1620 LPRINT E$;"S1";"SUBSCRIPT";E$;"T";", | " |
| ||||
1630 LPRINT |
|
|
|
|
| |
1640 LPRINT H$;C$;"Download characters: "; |
| |||||
1650 GOSUB 2040 |
|
|
|
| ||
1660 LPRINT D$;E$;"%l"; | 'Select draft download character | |||||
1670 FOR I=1 TO 5 |
|
|
| |||
1680 LPRINT CHR$(60); | 'Print download | character | ||||
1690 NEXT I |
|
| 'Select normal | character | ||
1700 LPRINT E$;"%O"; | ||||||
1710 | GOSUB 2130 |
| 'Select NLQ download | character | ||
1720 LPRINT C$:E$;"%l"; | ||||||
1730 | FOR I=1 TO 5 |
|
|
| ||
1740 | LPRINT CHR$(60); | 'Print download | character | |||
1750 | NEXT I |
|
| 'Select normal character | ||
1760 | LPRINT E$;"%O" | |||||
1770 | LPRINT |
|
|
|
|
|
1780 | ' |
|
|
|
|
|
1790 | LPRINT H$;C$;"Various dot graphic densities:" | |||||
1800 | DIM LOG0$(4) |
|
|
|
| |
1810 | RESTORE 2350 |
|
|
|
| |
1820 | FOR ROW=1 | TO | 4 |
|
|
|
1830 | FOR COL=l TO | 65 |
|
|
| |
1840 | READ DG |
|
|
|
|
|
1850 | LOGO$(ROW)=LOGO$(ROW)+CHR$(DG) |
|
| |||
1860 | NEXT COL |
|
|
|
|
|
1870 | NEXT ROW |
|
|
|
|
|
1880 | LPRINT E$;"A";CHR$(8); | 'Set 0/72" Line spacing | ||||
1890 | FOR ROW=1 | TO | 4 |
|
|
|
1900 | LPRINT 0 | ": |
|
|
| |
1910 | FOR B=O TO | 6 |
|
|
|
|
1920 | IF B=2 THEN | 1970 |
|
|
| |
1930 | IF B=5 THEN | 1970 |
|
|
| |
1940 | LPRINT E$;"*";CHR$(B); | 'Select dot graphics mode | ||||
1950 | LPRINT CHR$(65):CHR$(O);LOGO$(ROW); |
|
| |||
1960 | LPRINT ti "; |
|
|
| ||
1970 | NEXT B |
|
|
|
|
|
1980 | LPRINT |
|
|
|
|
|
1990 | NEXT ROW |
|
|
|
|
|
2000 LPRINT E$:"@" | 'Initialize printer |
| ||||
2010 END |
|
|
|
|
| |
2020 | ' |
|
|
|
|
|
2030 | ' SUBROUTINES |
|
|
| ||
2040 | ' Define draft download character |
|
| |||
2050 | LPRINT D$;E$;"&";CHR$(0);CHR$(60~;CHR$(60); |
| ||||
2060 | RESTORE 2240 |
|
|
|
|
-
-
-