1000

) Set control codes

 

 

1010

E$=CHR$(27)

'Escape code

1020

D$=E$+"xO"

'Draft quality

1030

L$=E$+"xl"

'Letter quality

1040

C.$=Ej+"kO"+L$

'Courier characters

1050

P$=ES+"kZ"+LS

'Prestige characters

1060

Oi=E$+"k3"+L$

'Orator characters

1070

S$=E$+"k4"+L$

'Script characters

1080

H$=CHR$(O)

'Horizontal tab

1090

PI$=E$+"P"

'Pica pitch

1100

' Start printing

 

 

1110

WIDTH "LPT1:",255

 

 

1120

LPRINT

I;"D";CHR$(3);CHR$(24);CHR$(O);

1130

LPRINT

I;"Type styles are:"

1140

LPRINT

I;D$;"Draft characters,";

1150

LPRINT

I;C$;"Courier characters,"

1160

LPRINT

:;p$;"Prestige

characters,":

1170

LPRINT

!;O$;"Orator characters,"

1180

LPRINT

l;s$;'tScript

characters,"

1190

LPRINT

I;"4"*

'Select italics

1200

LPRINT

I;D$;:'and";C$;"italics ";P$;"for ";

1210

LPRINT

;;"a11 ";S$;"styles."

1220

LPRINT

I*"5"

'Cancel italics

1230

LPRINT

1;"Print pitches are:"

1240

LPRINT

H$;PI$;"Pica pitch (10 CPI),";

1250

LPRINT

HS*ES*"M"'"Elite>I ,

pitch (12 CPI),"

1260

LPRINT

H$iE$; Mg’ti I( Semi-condensed pitch (15 CPI),";

1270

LPRINT

HS;PI$;

'Select condensed print

1280

LPRINT

CHRS(15);

1290

LPRINT "Condensed pica pitch (17 CPI),"

1300

LPRINT

HS*ES,.,"M":"Condensed elite pitch (20 CPI),";

1310

LPRINT

CHR$(i8)

'Cancel condensed print

1320

LPRINT

H$;E$;"pl";

'Select proportional spacing

1330

LPRINT

PI$;"Normal proportional, ";

1340

LPRINT

H$;CHR$(15);"and condensed proportional.";

1350

LPRINT

CHR$(18);

'Cancel proportional epacing

1360

LPRINT

E$;"pO"

1370

LPRINT

H$;E$;"wl ";v'Double-height,";ES;"wO"

1380

LPRINT

1390

LPRINT

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

1400 LPRINT

H$;CHR$(28);"E";CHR$(2);"Triple width,";

1410 LPRINT

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

1420 LPRINT

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

1430 LPRINT

H$:E$;t~h";CHR$(2);"Quad-sized.";

1440 LPRINT

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

 

1450 LPRINT

:LPRINT :LPRINT

 

1460

LPRINT

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

1470

LPRINT

C$:"Various line and character spacings:"

1480

LPRINT

E$;"al"

'Center text

1490 FOR I=1 TO 7

 

 

1500 LPRINT

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

'Set line spacing

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

1520 LPRINT "THE SPACINGS ARE CHANGED"

1530 NEXT

I

 

 

 

1540 FOR

I=7

TO 1 STEP -1

 

 

1550 LPRINT

E$:~~A";CHR$(I); 'Set line spacing

39

Page 47
Image 47
Star Micronics NX-2410 user manual Lprint