Star Micronics NX-1000 Lprint E$Achr$I, Lprint E$ Chr$I, Lprint The Spacings Are Changed, Next

1490 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

l/6"

line

spacing

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

'Normal

character space

1560 LPRINT

:LPRINT

1570 LPRINT C$;"Other features:"

1580 LPRINT H$;E$;"E";"Emphasized";E$;"F";",

'I;

1590 LPRINT E$;"G";"Double-strike";E$;"H";","

1600 LPRINT

H$;E$;"-l";"Underlining";E$;"-O";",

'I;

1610 LPRINT E$;"~l";"Overlining":E$;"~O";","

1620 LPRINT H$;E$;"SO";"SUPERSCRIPT";E$;"T";",

I';

1630 LPRINT E$;"S1";"SUBSCRIPT";E$;"T";","

1640 GOSUB

2020

1650

LPRINT

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

1660

LPRINT

D$:E$;"%l";

'Select

download

character

1670 FOR I-l TO 5

1680

LPRINT

CHR$(601;

'Print

download

character

1690

NEXT

I

1700

LPRINT

E$;"%O";

'Select

normal

character

1710

GOSUB

2120

1720

LPRINT

C$;E$;"%l";

'Select

download

character

1730 FOR I=1 TO 5

1740

LPRINT

CHR$(60);

'Print

download

character

1750

NEXT

I

1760

LPRINT

E$;"%O"

'Select

normal

character

1770

LPRINT

H$;C$;"Dot graphics:"

1780

DIM

LOG0$(4)

1790

RESTORE 2630

1800

FOR

ROW=1

TO

4

1810

FOR

COL=l'TO

100

1820

READ

DG

1830

LOGO$(ROW)=LOGO$(ROW)+CHR$(DG)

1840

NEXT

COL

1850

NEXT

ROW

1860

LPRINT

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

'Set

8/72"

line

spacing

1870

FOR

ROW=1

TO

4

1880

LPRINT H$;H$;

1890

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

'Select

normal

density

1900

LPRINT CHR$(lOO);CHR$(O);

1910

LPRINT LOGO$(ROW)

1920

NEXT

ROW

1930

LPRINT

E$;"@"

'Initialize

printer

1940

END

2000

'

2010

' SUBROUTINES

2020 ' Define draft download character

42