Star Micronics lC-10 - Replacing the Print Head

1410 LPRINT
1420 LPRINT H$;E$;"wl";E$;"r";CHR$(l);"RED, 'I;
1430 LPRINT E$;"r";CHR$(2);"BLUE. I';
1440 LPRINT E$;"r";CHR$(3);"VIOLET. ";
1450 LPRINT E$;"r";CHR$(4);"YELLOW,"
1460 LPRINT
1470 LPRINT H$;E$;"r";CHR$(5);"ORANGE, ";
1480 LPRINT E$;"r";CHR$(6);"GREEN, ";
1490 LPRINT E$;"r";CHR$(O);"and
BLACK."
1500 LPRINT E$;"wO"
1510 LPRINT E$;"Q";CHR$(47) 'Set right margin
1520 LPRINT C$;"Various line and character spacings:"
1530 LPRINT E$;"al"
'Center text
1540 FOR I=1 TO 7
1550 LPRINT E$;"A";CHR$(I); 'Set line spacing
1560 LPRINT E$;" ";CHR$(I);
'Increase character space -
_
1570 LPRINT E$;"r";CHR$(I-1); 'Select colour
1580 LPRINT "THE SPACING HAS CHANGED"
1590 NEXT I
1600 FOR I-7 TO 1 STEP -1
1610 LPRINT E$;"A";CHR$(I);
1620 LPRINT E$;" ";CHR$(I);
1630 LPRINT E$;"r";CHR$(I-1);
1640 LPRINT "THE SPACING HAS CHANGED"
1650 NEXT I
1660 LPRINT E$;"aO"
'Left justify
1670 LPRINT E$;"3";CHR$(36); 'Set l/6" line spacing
1680 LPRINT E$;" ";CHR$(O);
'Normal character space
1690 LPRINT :LPRINT
1700 LPRINT C$;"Other features:"
1710 LPRINT H$;E$;"E";"Emphasized";E$;"F";", 'I;
1720 LPRINT E$;"G";"Double-strike";E$;"H";","
1730 LPRINT H$;E$;"-l";"Underlining";E$;"-O";", 'I;
1740 LPRINT E$;"~1";"Overlining";E$;"~O";","
1750 LPRINT H$;E$;"SO";"SUPERSCRIPT";E$;"T";". 'I;
1760 LPRINT E$;"S1";"SUBSCRIPT";E$;"T";","
1770 GOSUB 2130
1780 LPRINT H$;C$;"Download
1790 LPRINT D$;E$;"%l";
1800 FOR I=1 TO 7
1810 LPRINT E$;"r";CHR$(I-1
1
1820 LPRINT CHR$(60);
1830 NEXT I
1840 LPRINT E$;"%O";
1850 GOSUB 2230
characters: 'I;
Select download character -
;
'Change colour
Print download character
Select normal character
1860 LPRINT C$;E$;"%l";
'Select download character
1870 FOR I-1 TO 7
1880 LPRINT E$;"r";CHR$(I-1);
'Change colour
1890 LPRINT CHR$(60);
'Print download character
1900 NEXT I
42