
1410 LPRINT |
|
|
|
|
|
|
|
|
|
| |
1420 LPRINT H$;E$;"wl";E$;"r";CHR$(l);"RED, | 'I; |
|
| ||||||||
1430 LPRINT E$;"r";CHR$(2);"BLUE. |
| I'; |
|
|
|
| |||||
1440 LPRINT E$;"r";CHR$(3);"VIOLET. | "; |
|
|
|
| ||||||
1450 LPRINT E$;"r";CHR$(4);"YELLOW," |
|
|
|
| |||||||
1460 | LPRINT |
|
|
|
|
|
|
|
|
|
|
1470 | LPRINT H$;E$;"r";CHR$(5);"ORANGE, | "; |
|
| |||||||
1480 | LPRINT E$;"r";CHR$(6);"GREEN, |
| "; |
|
|
|
| ||||
1490 | LPRINT E$;"r";CHR$(O);"and | BLACK." |
|
|
|
| |||||
1500 | LPRINT E$;"wO" |
|
|
|
|
|
|
|
|
| |
1510 | LPRINT | E$;"Q";CHR$(47) | 'Set right margin |
|
| ||||||
1520 | LPRINT | C$;"Various line and character spacings:" |
|
| |||||||
1530 | LPRINT | E$;"al" | 'Center text |
|
|
|
| ||||
1540 | FOR I=1 TO 7 |
|
|
|
|
|
|
|
|
| |
1550 | LPRINT | E$;"A";CHR$(I); | 'Set line spacing |
|
| ||||||
1560 | LPRINT | E$;" ";CHR$(I); | 'Increase character space | - | _ | ||||||
1570 | LPRINT | 'Select colour |
|
| |||||||
1580 | LPRINT "THE SPACING HAS CHANGED" |
|
|
|
| ||||||
1590 NEXT I |
|
|
|
|
|
|
|
|
| ||
1600 FOR |
|
|
|
|
|
|
|
| |||
1610 | LPRINT | E$;"A";CHR$(I); |
|
|
|
|
|
|
|
| |
1620 | LPRINT | E$;" ";CHR$(I); |
|
|
|
|
|
|
|
| |
1630 | LPRINT |
|
|
|
|
|
|
| |||
1640 | LPRINT "THE SPACING HAS CHANGED" |
|
|
|
| ||||||
1650 | NEXT I | 'Left justify |
|
|
|
| |||||
1660 LPRINT | E$;"aO" |
|
|
|
| ||||||
1670 | LPRINT | E$;"3";CHR$(36); | 'Set l/6" line spacing |
|
| ||||||
1680 LPRINT | E$;" ";CHR$(O); |
| 'Normal character space |
|
| ||||||
1690 LPRINT | :LPRINT |
|
|
|
|
|
|
|
|
| |
1700 | LPRINT | C$;"Other | features:" |
|
|
|
|
|
| ||
1710 | LPRINT | H$;E$;"E";"Emphasized";E$;"F";", 'I; |
|
| |||||||
1720 | LPRINT |
|
| ||||||||
1730 | LPRINT |
|
| ||||||||
1740 LPRINT | E$;"~1";"Overlining";E$;"~O";"," |
|
| ||||||||
1750 | LPRINT | H$;E$;"SO";"SUPERSCRIPT";E$;"T";". 'I; |
|
| |||||||
1760 | LPRINT | E$;"S1";"SUBSCRIPT";E$;"T";"," |
|
|
| ||||||
1770 | GOSUB | 2130 |
|
|
|
|
|
|
|
|
|
1780 | LPRINT | H$;C$;"Download characters: 'I; |
|
| |||||||
1790 | LPRINT | D$;E$;"%l"; | Select download | character | - |
| |||||
1800 | FOR I=1 TO 7 |
|
| 'Change colour |
|
| |||||
1810 | LPRINT |
|
| ||||||||
1820 | LPRINT | CHR$(60); |
| Print download | character |
|
| ||||
1830 | NEXT I |
| Select |
| normal | character |
|
| |||
1840 | LPRINT | E$;"%O"; |
|
|
|
| |||||
1850 | GOSUB | 2230 |
| 'Select download | character |
|
| ||||
1860 | LPRINT C$;E$;"%l"; |
|
| ||||||||
1870 | FOR |
|
| 'Change colour |
|
| |||||
1880 | LPRINT |
|
| ||||||||
1890 | LPRINT | CHR$(60); |
| 'Print download | character |
|
| ||||
1900 | NEXT I |
|
|
|
|
|
|
|
|
|
42