1560 | LPRINT | ES;" | ";CHR$(I); | 'Increase | character space |
| |||
1570 | LPRINT | "THE | SPACINGS | ARE | CHANGED" |
|
| ||
1580 | NEXT I |
|
|
|
|
|
|
|
|
1590 | LPRINT | E$;"aO" | 'Left | justify |
|
| |||
1600 | LPRINT | E$;"3";CHR$(30); | 'Set l/6" line spacing |
| |||||
1610 LPRINT EQ;" ";CHI$(O); | 'Normal | character space |
| ||||||
1620 | LPRINT | :LPRINT |
|
|
|
|
|
| |
1630 | LPRINT C$;"Other features:" |
|
|
| |||||
1640 | LPRINT | H$;E$;"q";Cmt$(l);"OU~INED";", | ";E$;"q";CBR$(O); | ||||||
1650 | LPRINT | E$;"q";CHR$(2):'SHADOWED";", | ";E$;"q";CHR$(~); | ||||||
1660 | LPRINT | E$;"q";CHR$(3);"OUTLINED | WITH | SHADOWED":", | ; | ||||
1670 | LPRINT E$;"q";CHR$(O) |
|
|
|
|
| ||
1680 LPRINT H$;E$;"E";"Emphasized";E$;"F";", |
|
| I'; | |||||
1690 LPRINT E$;"G |
|
| II | |||||
1700 | LPRINT | "; | ||||||
1710 LPRINT ES;" l";"Overlining";E$;"_O";", |
|
|
| |||||
1720 | LPRINT | H$;E~;"SO";"SUPERSCRIPT";E$;"T";", |
| "; | ||||
1730 | LPRINT | E$;"Sl";"SUBSCRIPT";E$;"T";", | (( |
| ||||
1740 | LPRINT | H$;C$;"Download characters: "; |
|
|
| |||
1750 | GOSUB | 2520 |
|
|
|
|
| |
1760 | LPRINT | E$;"SO"; | 'Select | superscript |
| |||
1770 | LPRINT | E$;"%l"; | 'Select | download | character | |||
1780 FOR I=1 TO 5 |
|
|
|
|
| |||
1790 | LPRINT | CHR$(BO); | download |
| character | |||
1800 | NEXT | I |
|
|
|
|
|
|
1810 | LPRINT | E$;"%O"; | 'Select | normal | character | |||
1820 | LPRINT | E$;"T"; | 'Cancel | superscript |
| |||
1830 | GOSUB | 2650 |
|
|
|
|
| |
1840 | LPRINT | E$;"%l"; | 'Select | download | character | |||
1850 FOR I=1 TO 5 |
|
|
|
|
| |||
1860 | LPRINT | CHR$(60); | download |
| character | |||
1870 | NEXT | I |
|
|
|
|
| |
1880 | LPRINT | E$;"%O"; | 'Select | normal | character | |||
1890 | GOSUB | 2520 |
|
|
|
|
| |
1900 | LPRINT | E$;"Sl"; | 'Select | subscript |
| |||
1910 | LPRINT | E$;"%l"; | 'Select | download | character | |||
1920 FOR I=1 TO 5 |
|
|
|
|
| |||
1930 | LPRINT | CHR$(60); | download |
| character | |||
1940 | NEXT | I |
|
|
|
|
| |
1950 | LPRINT | E$;"%O"; | 'Select | normal | character | |||
1960 | LPRINT | E$;"T" | 'Cancel | subscript |
| |||
1970 | LPRINT H$;C$;"Dot graphics:";CHR$(13); |
|
|
| ||||
1980 DIM 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)+CHRS(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
