Filter
Top Products
1000
1 Set control codes
1010
E$=CHR$(27)
1020
D$=E$+"xO"
1030
L$=E$+"xl"
1040
C$=E$+"kO"+L$
1050
P$=E$+"kO"+L$
1060
O$=E$+"k3"+L$
1070
S$=E$+"k4"+L$
1080
H$=CHR$(O)
1090
PI$=E$+"P"
1100
1 Start urintinq
1110 WIDTH "LPT1:",255
'Escape code
'Draft quality
'Letter quality
'Courier characters
'Prestige characters
'Orator characters
'Script characters
'Horizontal tab
'Pica pitch
1120 LPRINT E$;"DU;CHR$(3);CHR$(24);CHR$(0);
1130 LPRINT C$;"Type styles are:"
1140 LPRINT H$;D$;"Draft characters,";
1150 LPRINT H$;C$;"Courier characters,"
1160 LPRINT H$;P$;"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$;"5"
'Cancel italics
1230 LPRINT C$;"Print pitches are:"
1240 LPRINT H$;PI$;"Pica pitch (10 CPI),";
1250 LPRINT H$;E$;"M";"Elite pitch (12 CPI),"
1260 LPRINT H$;E$;"g ,
"*"Semi-condensed pitch (15 CPI),";
1270 LPRINT H$;PI$;
1280 LPRINT CHR$(lS);
'Select condensed print
1290 LPRINT "Condensed pica pitch (17 CPI),"
1300 LPRINT H$;E$;"M ,
"*"Condensed elite pitch (20 CPI),";
1310 LPRINT CHR$(18)
'Cancel condensed print
1320 LPRINT HQ;E$;"pl";
'Select proportional spacing
1330 LPRINT PI$;"Normal proportional, ";
1340 LPRINT H$;CHR$(lS)
;"and condensed proportional.";
1350 LPRINT CHR$(18);
1360 LPRINT E$;"pO"
'Cancel proportional spacing
1370 LPRINT
1380 LPRINT H$;E$;"wl";"Double-height,";E$;"wO"
1390 LPRINT H$;E$;"Wl";"Double width,";E$;"WO"
1400 LPRINT H$;CHR$(28);"E~';CHR$(2);"Triple width,";
1410 LPRINT CHR$(28);"E";CHR$(O)
1420 LPRINT H$;E$;"h";CHR$(l);"Double-sized,"
1430 LPRINT H$;E$;~~h";CHR$(2);"Quad-sized.";
1440 LPRINT E$;"h";CHR$(O)
1450 LPRINT :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); 'Set line spacing
1510 LPRINT E$;" ";CHR$(I); 'Increase character space
1520 LPRINT "THE SPACINGS ARE CHANGED"
1530 NEXT I
1540 FOR I=7 TO 1 STEP -1
1550 LPRINT E$;"A";CHR$(I); 'Set line spacing