Star Micronics XR-1000, XR-1500 user manual C$ “Other

Models: XR-1000 XR-1500

1 118
Download 118 pages 33.46 Kb
Page 97
Image 97
C$ ; “Other

1310

LPRINT H$;E$;"pl"; 'Select proportional spacing

1320

LPRINT P$;"Proportional spacing,";

 

 

1330

LPRINT

E$;"pO"

'Cancel proportional spacing

1340

LPRINT

 

 

 

 

 

 

1350

LPRINT H$;E$;"Wl";"Double width,";E$;"WO";

1360

LPRINT H$;E$;"wl";"Double-height,";E$;"wO"

1370

LPRINT H$;E$;"h";CHR$(l);"Double-sized,"

 

1380

LPRINT H$;E$;"h";CHR$(2);"Quad-sized.";

 

1390

LPRINT E$;"h";CHR$(O)

 

 

 

 

1400

LPRINT

:LPRINT

 

 

 

 

 

1410

LPRINT E$;"Q";CHR$(47) 'Set right margin

1420

1430

LPRINT C$;"Various line and character spacings:"

1440

LPRINT

E$;"al"

'Center text

 

 

1450

FOR I=1 TO 10

 

 

 

 

 

1460

LPRINT

E$;"A";CHR$(I);

'Set line spacing

1470

LPRINT

E$;" ";CHR$(I);

'Increase character space

1480

LPRINT "THE SPACINGS ARE CHANGED"

 

 

1490

NEXT I

 

 

 

 

 

 

1500

FOR I=10 TO 1 STEP -1

 

 

 

 

1510

LPRINT

E$;"A";CHR$(I);

'Set line spacing

1520

LPRINT E$;" ";CHR$(I); 'Increase character space

1530

LPRINT "THE SPACINGS ARE CHANGED"

 

 

1540

NEXT I

'Left justify

 

 

1550

LPRINT

E$;"aO"

 

 

1560

LPRINT

E$;"3";CHR$(36); 'Set l/6" line spacing

1570

LPRINT

E$;" ";CHR$(O);

'Normal character space

1580

LPRINT

:LPRINT E$;"Q";CHR$(80)

 

 

1590

 

 

 

 

 

 

 

1600

LPRINT

C$ ; “Other

features : ”

 

 

1610

LPRINT

H5~E5~"4"~"Italics"

;E5;"5";",

I';

1620

LPRINT

E$i"E";"Emphasized"

;E$;"F" ;1', I';

1630

LPRINT

E5;"G"; "Double-strike";E$;"H";",

"

1640

LPRINT

H$;E$;"-l";"Underlining";E$;"-0";". 'I;

1650

LPRINT

E5;"~l";"Overlining";E$;"~O";",

 

I';

1660

LPRINT

E$;"SO";"SUPER";E5;"T";" and 'I;

 

1670

LPRINT

E5;"Sl": "SUBSCRIPT";E5;"T";",

"

 

1680

LPRINT H$;C$;"Download characters: ";

 

 

1690

GOSUB

3020

 

'Select download

character

1700

LPRINT

E$;"%l";

 

1710

FOR I=1 TO 5

 

'Print download

character

1720

LPRINT

CHR$(60);

 

1730

NEXT I

 

'Select normal

character

1740

LPRINT

E$;"%O";

 

1750

GOSUB

3130

 

'Select download

character

1760

LPRINT

E$;"%l";

 

1770

FOR I=1 TO 5

 

'Print download

character

1780

LPRINT

CHR$(60);

 

1790

NEXT I

 

'Select normal

character

1800

LPRINT

E$;"%O"

 

1810

LPRINT H$;C$;"Dot graphics:"

 

 

1820

 

 

1830

DIM LOGOS(4)

 

 

 

 

 

1840 RESTORE 4170

 

 

 

 

 

1850

FOR ROW=1 TO 4

 

 

 

 

 

1860 FOR COL=l TO 65

 

 

 

 

 

91

Page 97
Image 97
Star Micronics XR-1000, XR-1500 user manual C$ “Other