
1LPRINT :LPRINT
1360 | LPRINT | E$; ’’Q’’;CHR$(47) | ‘Set right margin |
| |
1370 | LPRINT TM$: ‘Various line and character spacings:” |
|
| ||
1380 | LPRINT | E$; ’’al” | ‘Center text |
|
|
1390 | FOR 1=1 TO 7 | ‘Line spacing | set |
| |
1400 | LPRINT | E$; ’’A’’:CHR$(I); |
| ||
1410 | LPRINT | E$;” ‘;CHR$(I); | ‘Increase character | space | |
1420 | LPRINT “THE SPACINGS ARE CHANGEDM |
|
| ||
1430 | NEXT I |
|
|
|
|
1440 | FOR 1=7 TO 1 STEP | ‘Line spacing | set |
| |
1450 | LPRINT | E$; ’’A’’;CHR$(I) ; |
| ||
1460 | LPRINT | E$;” ‘;CHR$(I); | ‘Increase character | space | |
1470 | LPRINT “THE SPACINGS ARE CHANGED” |
|
| ||
1480 | NEXT I |
| ‘Left justify |
|
|
1490 | LPRINT | E$; ’’aO” |
|
| |
1500 | LPRINT | E$; ”3’’;CHR$(30); | ‘Set l/6m line | spacing | |
1510 | LPRINT | E$;” ‘;CHR$(0); | ‘Normal character space | ||
1520 | LPRINT | :LPRINT |
|
|
|
1530 | LPRINT | TM$;’’Other features:” |
|
| |
1540 | LPRINT H$;E$; VX’’;CHR$(0); |
|
|
| |
1550 | LPRINT | “Economy printing, | ‘; |
|
|
1560 | LPRINT E$; ’’x’’;CHR$(1); |
|
|
| |
1570 | LPRINT | “and High Quality. “ |
|
|
|
1580 | LPRINT | H$;E$; ”q’’;CHR$(l);’’OUTLINED”;E$;’’q’’;CHR$(0) ;”, ‘: |
1LPRINT E$; ”q’’;CHR$(2);”SHADOWEDu ;E$;’’q’’;CHR$(0) ;”, “;
1600 LPRINT E$; ”q’’;CHR$(3);“OUTLINED WITH SHADOWED”:
1610 LPRINT E$; ”q’’;CHR$(0);”, M
1620 LPRINT H$;E$; ”E’’;’’Emphasized”:E$;”F’’;”, “; 1630 LPRINT E$; ’’G’’Doublebstrike”ke”;E$;’’H’’;”,“;
1640 LPRINT E$; ’’4’’Italicsi;E$’;E:“5’’:”,$ “
1650 LPRINT H$;E$;
1660 LPRINT E$;”- “;CHR$(3);CHR$(0); CHR$( 1):CHR$(2);CHR$(2) :
1670 LPRINT
1680 LPRINT
1710 LPRINT E$;N
1LPRINT H$;E$; ”SO’’;’’SUPERSCRIPT”;E$;’’T”;”and “;
1730 LPRINT E$; ’’S1” “SUBSCRIPT”;E$;”T” ;“, “ 1740 LPRINT H$;TM$; ’Download characters: “; 1750 GOSUB 2520
1760 | LPRINT | E$;”%l” | ‘Select download | character | |||
1770 | FOR | 1=1 TO 5 | ‘Print download |
| character | ||
1780 | LPRINT | CHR$(60 |
| ||||
1790 | NEXT | I |
| ‘Select normal | character | ||
1800 | LPRINT | E$; ’’%O” | |||||
1810 | GOSUB 2640 | ‘Select download | character | ||||
1820 | LPRINT | E$; ’’%l”; | |||||
1830 | FOR | 1=1 TO 5 | ‘Print download |
| character | ||
1840 | LPRINT | CHR$(60); |
| ||||
1850 | NEXT | I |
| ‘Select normal | character | ||
1860 | LPRINT | E$; ’’%O” | |||||
1870 | LPRINT H$;TM$; ’’Dotgraphics:” |
|
|
|
| ||
1Q80 | RESTORE | 3290 | ‘Set 8/60” | line |
| spacing | |
1890 | LPRINT | E$; ’’A’’:CHR$(8); |
| ||||
1900 | FOR | 1=1 TO 3 |
|
|
|
| |
1910 | LPRINT E$; ’’fO’’;CHR$(8) |
|
|
|
| ||
1920 | LPRINT | E$; ’’*”;CHR$(33); CHR$(240) ;CHR$(0); |
|
|
| ||
1930 | FOR | J=l | TO 240’3 |
|
|
|
|
1940 | READ | DAT |
|
|
|
| |
1950 | LPRINT | CHR$(DAT); |
|
|
|
| |
1960 | NEXT | J |
|
|
|
|
|
1970 | LPRINT |
|
|
|
|
| |
1980 | NEXT | I |
| ‘Initialize | printer | ||
1990 | LPRINT | E$;”@” |
80