1560 | LPRINT ES;" ";CHR$(I); 'Increase character space | ||||
1570 | LPRINT "THE SPACINGS ARE CHANGED" |
|
| ||
1580 | NEXT I | 'Left justify |
|
| |
1590 | LPRINT E$;"aO" |
|
| ||
1600 | LPRINT E$;"3";CHR$(30); 'Set l/6" line spacing | ||||
1610 | LPRINT ES:" ";CHR$(O); | 'Normal character space | |||
1620 | LPRINT :LPRINT |
|
|
|
|
1630 | LPRINT C$;"Other features:" |
|
| ||
1640 | LPRINT H$;E$;"q":CHR$(l);'OUTLINED";", ";E$;"q";CHR$(O); | ||||
1650 | LPRINT E$;"q";CHR$(z);"SHADOWED";", ";E$;"q";CHR$(O); | ||||
1660 | LPRINT E$;"q";CHR$(3);'0UTLINED WITH SHADOWED";", "; | ||||
1670 | LPRINT E$;"q";CHR$(O) |
|
|
| |
1680 | LPRINT H$;ES;"E";"Emphasized";E$;"F";", 'I; | ||||
1690 | LPRINT | ||||
1700 | LPRINT | ||||
1710 | LPRINT ES;" l";"Overlin~ng";E$;" O";", " | ||||
1720 | LPRINT H$:E~;"SO"~"SUPERSCRIPT";E$;"T";", "; | ||||
1730 | LPRINT E$;“Sl”;“S;BSCRIPT”;E$;“T”;“:, M | ||||
1740 | LPRINT HS:CS:"Download characters: | ; |
| ||
1750 | GOSUB 25i0 .- |
|
|
|
|
1760 | LPRINT E$;"SO"; |
| 'Select superscript | ||
1770 | LPRINT E$;"%l"; |
| 'Select download character | ||
1780 | FOR I=1 TO 5 |
| 'Print download character | ||
1790 | LPRINT CHR$(BO); |
| |||
1800 | NEXT I |
|
|
|
|
1810 | LPRINT E$."%O"; |
| 'Select normal character | ||
1820 | LPRINT E&T"; |
| 'Cancel superscript | ||
1630 | GOSUB 2650 |
| 'Select download | character | |
1840 | LPRINT E$;"%l"; |
| |||
1850 | FOR I=1 TO 5 |
| 'Print download | character | |
1860 | LPRINT CHR$(60); |
| |||
1870 | NEXT I |
| 'Select normal character | ||
18901680 | LPRINTGOSUB2520E$*"%O"' |
| |||
|
|
|
| ||
1900 | LPRINT E$;"Sl"; |
| 'Select subscript | ||
1910 | LPRINT E$*"%l"; |
| 'Select download character | ||
1920 | FOR I=1 T;)5 |
|
|
|
|
1930 | LPRINT CHR$(60) ; |
| 'Print download | character | |
1940 | NEXT I |
| 'Select normal character | ||
1950 | LPRINT E$;"%O"*, |
| |||
1960 | LPRINT E$*"T", |
| 'Cancel subscript | ||
1970 | LPRINT H$;C$;"Dot graphics:";CHR$(13); |
| |||
1980 | DIH LOGO$(4) |
|
|
|
|
1990 | RESTORE 3230 |
|
|
|
|
2000 FOR ROW=1 TO 4 |
|
|
|
| |
2010 | FOR COL=l TO 100 |
|
|
|
|
2020 | READ GD |
|
|
|
|
2030 | LOGO$(ROW)=LOGO$(ROW)+CHR$(GD) |
|
| ||
2040 | NEXT COL |
|
|
|
|
2050 | NEXT ROW |
|
|
|
|
2060 | LPRINT E$;"A";CHR$(B); | 'Set e/60" | line spacing | ||
2070 | FOR ROW=1 TO 4 |
|
|
|
|
2080 | LPRINT E$;"fO";CHR$(17); |
|
| ||
2090 | LPRINT E$;"*";CHR$(O); | 'Select normal density | |||
2100 | LPRINT CHR$(lOO);CHR$(O); |
|
| ||
2110 | LPRINT LOGO$(ROW) |
|
|
|
|
40