Star Micronics XR-1000 Printer User Manual


 
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
1440
1450
1460
1470
1480
1490
1500
1510
1520
1530
1540
1550
1560
1570
1580
1590
1600
1610
1620
1630
1640
1650
1660
1670
1680
1690
1700
1710
1720
1730
1740
1750
1760
1770
1780
1790
1800
1810
1820
1830
1840
1850
1860
LPRINT H$;E$;"pl";
'Select proportional spacing
LPRINT P$;"Proportional spacing,";
LPRINT E$;"pO"
'Cancel proportional spacing
LPRINT
LPRINT H$;E$;"Wl";"Double width,";E$;"WO";
LPRINT H$;E$;"wl";"Double-height,";E$;"wO"
LPRINT H$;E$;"h";CHR$(l);"Double-sized,"
LPRINT H$;E$;"h";CHR$(2);"Quad-sized.";
LPRINT E$;"h";CHR$(O)
LPRINT :LPRINT
LPRINT E$;"Q";CHR$(47) 'Set right margin
LPRINT C$;"Various line and character spacings:"
LPRINT E$;"al"
'Center text
FOR I=1 TO 10
LPRINT E$;"A";CHR$(I); 'Set line spacing
LPRINT E$;" ";CHR$(I);
'Increase character space
LPRINT "THE SPACINGS ARE CHANGED"
NEXT I
FOR I=10 TO 1 STEP -1
LPRINT E$;"A";CHR$(I); 'Set line spacing
LPRINT E$;" ";CHR$(I);
'Increase character space
LPRINT "THE SPACINGS ARE CHANGED"
NEXT I
LPRINT E$;"aO"
'Left justify
LPRINT E$;"3";CHR$(36); 'Set l/6" line spacing
LPRINT E$;" ";CHR$(O);
'Normal character space
LPRINT :LPRINT E$;"Q";CHR$(80)
LPRINT C$ ; “Other features :
LPRINT H5~E5~"4"~"Italics"
LPRINT E$i"E";"Emphasized"
;E5;"5";", I';
;E$ ; "F" ; 1' ,
I' ;
LPRINT E5;"G";
"Double-strike";E$;"H";", "
LPRINT H$;E$;"-l";"Underlining";E$;"-0";". 'I;
LPRINT E5;"~l";"Overlining";E$;"~O";", I';
LPRINT E$;"SO";"SUPER";E5;"T";" and 'I;
LPRINT E5;"Sl":
"SUBSCRIPT";E5;"T";", "
LPRINT H$;C$;"Download characters: ";
GOSUB 3020
LPRINT E$;"%l";
'Select download character
FOR I=1 TO 5
LPRINT CHR$(60);
'Print download character
NEXT I
LPRINT E$;"%O";
'Select normal character
GOSUB 3130
LPRINT E$;"%l";
'Select download character
FOR I=1 TO 5
LPRINT CHR$(60);
'Print download character
NEXT I
LPRINT E$;"%O"
'Select normal character
LPRINT H$;C$;"Dot graphics:"
DIM LOGOS(4)
RESTORE 4170
FOR ROW=1 TO 4
FOR COL=l TO 65
91