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 H$;E$;’’h’’;CHR$(l);“Double-sized,“
1370 LPRINT H$;E$;“h’’;CHR$(2);
“Quad–sized. “;
1380 LPRINT E$;’’h”;CHR$(O)
1390 LPRINT :LPRINT
1400 LPRINT E$;UQ”;CHR$(49)
‘Set right margin
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 –1
149o LPRINT E$;’’A’’;CHR$(I);
1500 LPRINT E$;” “;CHR$(I);
1510 LPRINT “THE SPACINGS,ARE CHANGED”
1520 NEXT I
1530 LPRINT E$;’’aO”
‘Left justify
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 E$;”–l”;“Underlining’’;E$; “–O”;“,“
1610 LPRINT H$;E$;”–l’’;’’0verlinin9”;E$;’’-;”,;”,“;
1620 LPRINT E$;’’SO’’SUPERSCRIPT”PT”;E$;’’T”;”and “;
1630 LPRINT E$;”SI”;”SUBSCRIPT”;E$;”T”