1090 P$=E$+”P” ‘Picapitch
1100 ‘ Start printing ———————————-————-—..—-.———_.-———.——-..-———
1110 WIDTH “LPT1:“,255
1120 LPRINT E$;’’D’’;CHR$(3);CHR$(25);CHR$(0) ‘SetHT
1130 LPRINT c$; “Type styles are: “
1140 LPRINT H$;D$;’’Draftcharacters,”
1150 LPRINT H$;C$;“Couriercharacters,”
1160 LPRINT H$;S$;”Sanserifcharacters,”
1170 LPRINT H$;Ol$;’’Oratorwith small caPitals, or”
1180 LPRINT H$;02$;” with lower case characters,”
1190 LPRINT E$;’’4”; ‘Selectitalics
1200 LPRINT H$;02$;’’and“;Ol$;’’italics “;S$;’’for “;
1210 LPRINT C$;’’all“;D$:’’styles.”
1220 LPRINT E$;”5° ‘Cancelitalics
1230 LPRINT C$;“Print pitches are:“
1240 LPRINT H$;P$;“Picapitch (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$; ‘Picapitch
1300 LPRINT CHR$(18) ‘Cancelcondensed print
131o LPRINT H$;E$;”P1”; ‘Selectproportional spacing
1320 LPRINT “proportionalspacing for all pitches,”
1330 LPRINT E$;’’PO” ‘Cancelproportional spacing
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) ‘Setright margin
1410 LPRINT C$;UVarious line and characterspacings:”
1420 LPRINT E$;’’al” ~ ‘Centertext
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);‘Set1/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”