1100

' Start

printing

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1110

WIDTH

"LPT1:",255

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1120

LPRINT

 

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

 

 

 

 

'Set

HT

 

 

1130

LPRINT

 

C$:"Font styles are:"

 

 

 

 

 

 

 

 

 

 

 

1140

LPRINT

 

H$;D$;"Draft

characters,";

 

 

 

 

 

 

 

 

 

1150

LPRINT

 

HS:CS:"Courier

characters."

 

 

 

 

 

 

 

 

 

1160

LPRINT

 

H$jP$:"Prestige

characters,";

 

 

 

 

 

 

 

 

1170

LPRINT

 

H$;O$;"Orator

characters,"

 

 

 

 

 

 

 

 

 

1180

LPRINT

 

H$;S$;"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$;"S"

 

 

 

 

 

 

'Cancel

 

italics

 

 

1230

LPRINT

 

C$:"Print pitches are:"

 

 

 

 

 

 

 

 

 

 

1240

LPRINT

H$;PI$;"Pica

pitch

(10

CPI),";

 

 

 

 

 

 

 

 

1250

LPRINT

 

H$:E$;"H":"Elite

pitch

(12

CPI),"

 

 

 

 

 

 

 

1260

LPRINT

 

H$;E$;"g"; "Semi-condensed

pitch (15

 

CPI),":

 

 

 

1270

LPRINT H$;PI$;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1280

LPRINT

 

CHR$(15);

 

 

 

 

 

 

'Select

 

condensed

print

1290

LPRINT

 

"Condensed

pica

pitch

 

(17

CPI),"

 

 

 

 

 

 

 

1300

LPRINT

 

H$*E$"'li"* "Condensed

elite

pitch

(20

CPI),";

 

 

1310

LPRINT

 

CHR$(;8)

'

 

 

 

 

 

'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

 

CHRC(18);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1360

LPRINT

 

E$;"pO"

 

 

 

 

 

 

'Cancel

 

proportional

spacing

1370

LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1380

LPRINT H$.E$*"wl "."Double-height,";ES;"wO"

 

 

 

 

 

 

 

1390

LPRINT

 

HSIESI"Wl"I"Double

 

width.

":ES:"WO"

 

 

 

 

 

 

1400

LPRINT

 

H$iCti$(28j;0'Et';CHR$(2);;1Tripie

width,";

 

 

 

1410

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

 

 

 

 

 

 

 

 

 

 

 

 

1420

LPRINT H$;E$;"h":CHR$(l);"Double-sized,"

 

 

 

 

 

 

 

 

1430

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

 

 

 

 

 

 

 

 

1440

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1450

LPRINT

 

:LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1460

LPRINT

 

E$:'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);

 

 

 

 

'Line

spacing

set

 

 

1510

LPRINT

 

ES;"

";CHR$(I);

 

 

 

 

'Increase

 

character

 

space

1520

LPRINT

 

"THE

SPACINGS

ARE

CHANGED"

 

 

 

 

 

 

 

 

 

1530

NEXT

I

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1540 FOR I=6 TO 1 STEP -1

 

 

 

 

 

 

 

 

 

 

 

 

 

1550

LPRINT

 

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

 

 

 

 

'Line

spacing

set

 

 

1560

LPRINT

 

ES:"

";CHR$(I):

 

 

 

 

'Increase

 

character

 

space

1570 LPRlNT "THE SPACINGS ARE CHANGED"

 

 

 

 

 

 

 

 

 

1580

NEXT

I

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1590

LPRINT

 

E$:"aO"

 

 

 

 

 

 

'Left

justify

 

 

 

1600

LPRINT

 

E$;"3";CHR$(30);

 

 

 

 

'Set

l/6"

line

spacing

1610

LPRINT

 

ES;"

";CHR$(O);

 

 

 

 

'Normal

 

character

space

1620

LPRINT

 

:LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1630

LPRINT

 

CS:"Other

features:"

 

 

 

 

 

 

 

 

 

 

 

1640

LPRINT

 

H~~E$:"q";CHR$(l):"OUTLINED";E$;"q";C~$(O);",

 

 

";

1650

LPRINT

 

E$;"q";CHR$(2);"SHADCWED";E$;"q";CHR$(O);",

 

";

 

 

1660

LPRINT

 

E$:"q";CHR$(3);'OUTLINED

 

WITH

SHADOWED":

 

 

 

1670

LPRINT

 

ES:"o":CHRS(O):".

 

"

 

 

 

 

 

 

 

 

 

 

 

1680

LPRINT

 

H$.E$'"E"." ‘Emphasized";E$;"F";",

 

a*;

 

 

 

 

 

1690

LPRINT

 

E$,:"&; "Dbuble-strlke";E$;

"H";",

44;

 

 

 

 

 

1700

LPRINT

 

ES:"-l";"Underlining";E$;"-O";",

 

"

 

 

 

 

 

 

1710

LPRINT

 

H$;E$;" l";"Overlining";E$;"

 

O";",

";

 

 

 

 

1720

LPRINT

 

E$;"SO"T"SUPERSCRIPT";E$:"T"T"

 

and

";

 

 

 

 

89

Page 97
Image 97
Star Micronics NX-2415 user manual Width