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

Page 50
Image 50
Star Micronics NX-1000 manual Lprint the Spacings are Changed