1490 NEXT I

 

 

'Left justify

 

1500 LPRINT E$;"aO"

 

1510 LPRINT E$;"3";CHR$(36); 'Set l/6" Line spacing

1520 LPRINT E$;" ";CHR$(O); 'Normal character space

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

 

1540 LPRINT

 

 

 

 

 

1550

'

 

 

 

 

 

1560 LPRINT C$;"Other features:"

 

 

1570 LPRINT H$;E$;"4";"Italics";E$;"5";",

I':

 

1580 LPRINT E$;"E";"Emphasized";E$;"F";", I';

 

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

 

1600 LPRINT H$;E$;"-l";"Underlining";E$;"-0";".

'I;

1610 LPRINT E$;"SO";"SUPER";E$;"T";" and 'I;

 

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

"

 

1630 LPRINT

 

 

 

 

 

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

 

1650 GOSUB 2040

 

 

 

 

1660 LPRINT D$;E$;"%l";

'Select draft download character

1670 FOR I=1 TO 5

 

 

 

1680 LPRINT CHR$(60);

'Print download

character

1690 NEXT I

 

 

'Select normal

character

1700 LPRINT E$;"%O";

1710

GOSUB 2130

 

'Select NLQ download

character

1720 LPRINT C$:E$;"%l";

1730

FOR I=1 TO 5

 

 

 

1740

LPRINT CHR$(60);

'Print download

character

1750

NEXT I

 

 

'Select normal character

1760

LPRINT E$;"%O"

1770

LPRINT

 

 

 

 

 

1780

'

 

 

 

 

 

1790

LPRINT H$;C$;"Various dot graphic densities:"

1800

DIM LOG0$(4)

 

 

 

 

1810

RESTORE 2350

 

 

 

 

1820

FOR ROW=1

TO

4

 

 

 

1830

FOR COL=l TO

65

 

 

 

1840

READ DG

 

 

 

 

 

1850

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

 

 

1860

NEXT COL

 

 

 

 

 

1870

NEXT ROW

 

 

 

 

 

1880

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

'Set 0/72" Line spacing

1890

FOR ROW=1

TO

4

 

 

 

1900

LPRINT 0

":

 

 

 

1910

FOR B=O TO

6

 

 

 

 

1920

IF B=2 THEN

1970

 

 

 

1930

IF B=5 THEN

1970

 

 

 

1940

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

'Select dot graphics mode

1950

LPRINT CHR$(65):CHR$(O);LOGO$(ROW);

 

 

1960

LPRINT ti ";

 

 

 

1970

NEXT B

 

 

 

 

 

1980

LPRINT

 

 

 

 

 

1990

NEXT ROW

 

 

 

 

 

2000 LPRINT E$:"@"

'Initialize printer

 

2010 END

 

 

 

 

 

2020

'

 

 

 

 

 

2030

' SUBROUTINES

 

 

 

2040

' Define draft download character

 

 

2050

LPRINT D$;E$;"&";CHR$(0);CHR$(60~;CHR$(60);

 

2060

RESTORE 2240

 

 

 

 

-

-

-

102

Page 110
Image 110
Star Micronics NX-1020 user manual