1000

' Set control codes

 

 

 

1010

E$=CHR$(27)

'Escape code

1020

D$=E$+"xO"

'Draft quality

1030

L$=E$+"xl"

'Letter quality

1040

C$=E$+"kO"+L$

lCourler-chara&ers

1050

P$=ES+"k2"+LS

'Prestlqe characters

1060

Oj=E~+"k3"+L$

'Orator-characters

1070

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

'Script characters

1080

H$=CHR$(9)

'Horizontal tab

1090

PI$=E$+"P"

'Pica pitch

1100

' Start printing

 

 

 

1110

WIDTH

"LPT1:",255

 

 

 

1120

LPRINT

ES:"D":CHRS(3):CHRS(24):CHRS(O);

1130

LPRINT

C$;"Type styles a&i@' ..

1140

LPRINT H$;D$;"Draft characters,";

1150

LPRINT

H$;C$;"Courier characters,"

1160

LPRINT

H$;P$;"Prestige characters,";

1170

LPRINT

H$;O$;"Orator characters,"

1180

LPRINT H$;SQ;"Script characters,"

1190

LPRINT

E$;"4";

'Select Italics

1200

LPRINT

H$;D$;"and ";C$;"italics ";P$;"for "

1210

LPRINT

O$;"all ";S$;"styles."

1220

LPRINT

E$;"5"

'Cancel italics

1230

LPRINT

C$;"Prlnt pitches are:"

1240

LPRINT

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

1250

LPRINT

H$;E$;"M";"Elite pitch (12 CPI),"

1260

LPRINT

H$;E$;"g ";"Semi-condensed pitch (15 CPI),";

1270

LPRINT

H$;PI$;

'Select condensed print

1280

LPRINT

CHR$(lS);

1290

LPRINT

"Condensed pica pitch

(17 CPI),"

1300

LPRINT

H$;E$;"M";"Condensed

elite pitch (20 CPI),";

1310

LPRINT CHR$(lB)

‘Cancel

condensed print

1320

LPRINT

HQ;E$;"pl";

'Select proportional spacing

1330

LPRINT

PI$; "Normal proportional, ";

1340

LPRINT

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

1350

LPRINT

CHR$(le);

'Cancel proportional spacing

1360

LPRINT E$;"pO"

1370

LPRINT

 

 

 

 

1380

LPRINT

H$;E$:"wl";"Double-height,";ES;"w0"

1390

LPRINT

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

1400

LPRINT

H$;CHR$(28);"E";CHRS(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);'vQuad-sized.";

1440

LPRINT

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

 

 

1450

LPRINT

:LPRINT :LPRINT

 

 

1460

LPRINT

E$;vvQ'U;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

lSl0 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-2400 user manual ‘Cancel