1100 | ' Start | printing |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| ||
1110 | WIDTH | "LPT1:",255 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| ||
1120 | LPRINT |
| E$;"D";CHR$(3);CHR$(24);CHR$(O) |
|
|
|
| 'Set | HT |
|
| ||||||||
1130 | LPRINT |
| C$:"Font styles are:" |
|
|
|
|
|
|
|
|
|
|
| |||||
1140 | LPRINT |
| H$;D$;"Draft | characters,"; |
|
|
|
|
|
|
|
|
| ||||||
1150 | LPRINT |
| HS:CS:"Courier | characters." |
|
|
|
|
|
|
|
|
| ||||||
1160 | LPRINT |
| H$jP$:"Prestige | characters,"; |
|
|
|
|
|
|
|
| |||||||
1170 | LPRINT |
| H$;O$;"Orator | characters," |
|
|
|
|
|
|
|
|
| ||||||
1180 | LPRINT |
| H$;S$;"Script | characters," |
|
|
|
|
|
|
|
|
| ||||||
1190 | LPRINT |
| E$;"4"; |
|
|
|
|
|
| 'Select |
| italics |
|
| |||||
1200 | LPRINT |
| H$;D$;"and | ";C$:"italics | ";P$;"for |
| ": |
|
|
|
| ||||||||
1210 | LPRINT O$:"all ";S$:"styles." |
|
|
|
|
|
|
|
|
|
|
| |||||||
1220 | LPRINT |
| E$;"S" |
|
|
|
|
|
| 'Cancel |
| italics |
|
| |||||
1230 | LPRINT |
| C$:"Print pitches are:" |
|
|
|
|
|
|
|
|
|
| ||||||
1240 | LPRINT | H$;PI$;"Pica | pitch | (10 | CPI),"; |
|
|
|
|
|
|
|
| ||||||
1250 | LPRINT |
| H$:E$;"H":"Elite | pitch | (12 | CPI)," |
|
|
|
|
|
|
| ||||||
1260 | LPRINT |
| H$;E$;"g"; | pitch (15 |
| CPI),": |
|
|
| ||||||||||
1270 | LPRINT H$;PI$; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
1280 | LPRINT |
| CHR$(15); |
|
|
|
|
|
| 'Select |
| condensed | |||||||
1290 | LPRINT |
| "Condensed | pica | pitch |
| (17 | CPI)," |
|
|
|
|
|
|
| ||||
1300 | LPRINT |
| H$*E$"'li"* "Condensed | elite | pitch | (20 | CPI),"; |
|
| ||||||||||
1310 | LPRINT |
| CHR$(;8) | ' |
|
|
|
|
| 'Cancel |
| condensed | |||||||
1320 | LPRINT |
| H$;E$;"pl"; |
|
|
|
|
|
| 'Select |
| proportional | spacing | ||||||
1330 | LPRINT |
| PI$;"Normal |
| proportional,"; |
|
|
|
|
|
|
|
|
| |||||
1340 | LPRINT |
| H$;CHR$(15);"And | condensed | proportional."; |
|
|
| |||||||||||
1350 | LPRINT |
| CHRC(18); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
1360 | LPRINT |
| E$;"pO" |
|
|
|
|
|
| 'Cancel |
| proportional | spacing | ||||||
1370 | LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1380 | LPRINT H$.E$*"wl |
|
|
|
|
|
|
| |||||||||||
1390 | LPRINT |
| HSIESI"Wl"I"Double |
| width. | ":ES:"WO" |
|
|
|
|
|
| |||||||
1400 | LPRINT |
| H$iCti$(28j;0'Et';CHR$(2);;1Tripie | width,"; |
|
|
| ||||||||||||
1410 | LPRINT CHR$(28);"E";CHR$(O) |
|
|
|
|
|
|
|
|
|
|
|
| ||||||
1420 | LPRINT |
|
|
|
|
|
|
|
| ||||||||||
1430 | LPRINT |
|
|
|
|
|
|
|
| ||||||||||
1440 | LPRINT E$;"h";CHR$(O) |
|
|
|
|
|
|
|
|
|
|
|
|
|
| ||||
1450 | LPRINT |
| :LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
1460 | LPRINT |
| E$:'Q";CHR$(47) |
|
|
|
| 'Set | right | margin |
|
| |||||||
1470 | LPRINT |
| C$;"Various |
| line | and | character | spacings:" |
|
|
| ||||||||
1480 | LPRINT |
| E$;"al" |
|
|
|
|
|
| 'Center |
| text |
|
|
| ||||
1490 | FOR I=1 | TO | 7 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
1500 | LPRINT |
| E$;"A";CHR$(I); |
|
|
|
| 'Line | spacing | set |
|
| |||||||
1510 | LPRINT |
| ES;" | ";CHR$(I); |
|
|
|
| 'Increase |
| character |
| space | ||||||
1520 | LPRINT |
| "THE | SPACINGS | ARE | CHANGED" |
|
|
|
|
|
|
|
|
| ||||
1530 | NEXT | I |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1540 FOR I=6 TO 1 STEP |
|
|
|
|
|
|
|
|
|
|
|
|
| ||||||
1550 | LPRINT |
| E$:"A":CHR$(I); |
|
|
|
| 'Line | spacing | set |
|
| |||||||
1560 | LPRINT |
| ES:" | ";CHR$(I): |
|
|
|
| 'Increase |
| character |
| space | ||||||
1570 LPRlNT "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 |
| ES;" | ";CHR$(O); |
|
|
|
| 'Normal |
| character | space | |||||||
1620 | LPRINT |
| :LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
1630 | LPRINT |
| CS:"Other | features:" |
|
|
|
|
|
|
|
|
|
|
| ||||
1640 | LPRINT |
| H~~E$:"q";CHR$(l):"OUTLINED";E$;"q";C~$(O);", |
|
| "; | |||||||||||||
1650 | LPRINT |
| E$;"q";CHR$(2);"SHADCWED";E$;"q";CHR$(O);", |
| "; |
|
| ||||||||||||
1660 | LPRINT |
| E$:"q";CHR$(3);'OUTLINED |
| WITH | SHADOWED": |
|
|
| ||||||||||
1670 | LPRINT |
| ES:"o":CHRS(O):". |
| " |
|
|
|
|
|
|
|
|
|
|
| |||
1680 | LPRINT |
| H$.E$'"E"." ‘Emphasized";E$;"F";", |
| a*; |
|
|
|
|
| |||||||||
1690 | LPRINT |
| E$,:"&; | "H";", | 44; |
|
|
|
|
| |||||||||
1700 | LPRINT |
|
| " |
|
|
|
|
|
| |||||||||
1710 | LPRINT |
| H$;E$;" l";"Overlining";E$;" |
| O";", | "; |
|
|
|
| |||||||||
1720 | LPRINT |
| E$;"SO"T"SUPERSCRIPT";E$:"T"T" |
| and | "; |
|
|
|
|
89