1090 P$=E$+”P” | ‘Pica pitch |
1100 ‘ Start printing | |
1110 WIDTH “LPT1:“,255 |
1120 LPRINT E$;’’D’’;CHR$(3);CHR$(25);CHR$(0) ‘Set HT
1130 LPRINT c$; “Type styles are: “
1140 LPRINT H$;D$;’’Draftcharacters,”
1150 LPRINT H$;C$;“Courier characters,”
1160 LPRINT H$;S$;”Sanserif characters,”
1170 LPRINT H$;Ol$;’’Oratorwith small caPitals, or”
1180 LPRINT H$;02$;” | with lower case characters,” |
1190 LPRINT E$;’’4”; | ‘Select italics |
1200 LPRINT | H$;02$;’’and“;Ol$;’’italics “;S$;’’for “; | ||
1210 LPRINT | C$;’’all“;D$:’’styles.” | ||
1220 LPRINT | E$;”5° | ‘Cancel italics | |
1230 LPRINT | C$;“Print pitches are:“ | ||
1240 | LPRINT | H$;P$;“Pica pitch (10 CPI),”; | |
1250 | LPRINT | H$;E$;’’Fl’’Eliteitepitch (12 CpI),“ | |
1260 | LPRINT | H$;CHR$(15); ‘Condensedpitch | |
1270 | LPRINT | P$;’’Condensedpica pitch (17 CPI).”; | |
1280 | LPRINT | H$;E$;’’M’’Condensedsedelite pitch (20 CpI),”; | |
1290 LPRINT | P$; | ‘Pica pitch | |
1300 | LPRINT | CHR$(18) | ‘Cancelcondensed print |
131o | LPRINT | H$;E$;”P1”; | ‘Select proportionalspacing |
1320 | LPRINT “proportionalspacing for all pitches,” | ||
1330 | LPRINT E$;’’PO” | ‘Cancel proportionalspacing | |
1340 | LPRINT H$;E$;”W1’’;’’Expanded,“;E$;’’WCI”; | ||
1350 | LPRINT H$;E$;’’wl’’Doublebhei9ht9ht,“;E$;’’wO” | ||
1360 | LPRINT | ||
1370 | LPRINT | ||
1380 | LPRINT E$;’’h”;CHR$(O) |
| |
1390 | LPRINT :LPRINT | ‘Set right margin | |
1400 | LPRINT E$;UQ”;CHR$(49) | ||
1410 | LPRINT C$;UVarious line and character spacings:” | ||
1420 | LPRINT E$;’’al” ~ | ‘Center text | |
1430 | FOR 1=1 TO 7 |
| |
1440 | LPRINT E$;’’A’’;CHR$(I) ‘Set line spacing | ||
1450 | LPRINT E$;” “;CHR$(I); | ‘Increasecharacter space | |
1460 | LPRINT “THE SPACINGS ARE CHANGED” | ||
1470 | NEXT I |
|
|
1480 | FOR 1=7 TO 1 STEP |
| |
149o | LPRINT E$;’’A’’;CHR$(I) |
| |
1500 | LPRINT E$;” “;CHR$(I); |
| |
1510 LPRINT “THE SPACINGS,ARE CHANGED” | |||
1520 NEXT I |
| ‘Left justify | |
1530 LPRINT E$;’’aO” | |||
1540 LPRINT E$;’’3’’;CHR$(36);‘Set 1/6” line sPacin9 | |||
1550 LPRINT E$;” “;CHR$(0); | ‘Normalcharacter space | ||
1560 LPRINT :LPRINT |
|
1570 LPRINT C$;“Other features:“
1580 LPRINT H$;E$;’’E’’Emphasized”ed”;E$;’’F’’;”,“;
1590 LPRINT E$;’’G’’Doublebstrikeuke”;E$;’’H’’;”,“;
1600 LPRINT