Star Micronics NX-I 00011 manual Wext

t

I

I. .

k-

,—

1.

1000

! ““.

.,,”..”.,,...,.”

““,

-~~*J)

cH~~~~~~

~EN~~A~~~ ,,, ..,,”.”,

.,, .,,...,

1010 WIDTH “LPT1:“,255 :KEY OFF :C!LS

1020 DIM A(126), P(126.23), Q(126,23). DT(16,24)

:E$-CHRS(27) :R$-CHR$(2S)

1030 KEY 1, CHR$(7)

:KEY 2, CHR$(8)

,KSY 3, CHR$(9)

1040 KEY 4. CHRS(10)

:KEY 5, CHR$(lI)

:KEY 6. CHR$(12)

1050 FOR I-33 TU

126

:A(I)--

1 :WEXT I

1060

,_______________________________________________________________________

1070 LOCATE 1,1

:PRINT SITIING$(25,62);

1080 PRINT “ DOWHLOADCHARACTSRGBNERATOR

“;STRING$(25,60)

1090

1100 LOCATE 3,1 :PRINT “READ CHARACTERS FROM EXISHNG FILE?”

1110 SO$-”Yes” :Sl$-”NO” :S--

1 :PX-4 :PY-1 :GOSUB 3020 :IF S THEN

1320

1120 ‘-----

Open existing file –----------–--—---–-–-–-------–-––-——----—-

1130 LOCATE 4.20

1140 INPUT “File name’’;FI$

11s0

OPEN “R’’,#l,FI$,48

1160

FISLD #1,48 AS AS

1170

‘-----

Read 2 initial comnds

--–-–-––---–--–------------------––-----—-

1180 G~

#1,1

1190

IF MID$(A$,4,1)-E$ THEN ISM-O ELSE IBM--

1

1200

IF MID$(A$,3,1)-”0” THEN NLQ-O ELSE NLQ--

l~

1210

IF NLQ THEN WI-23

:HI-16 ELSE WI-11

:HI-8

1220 ‘-----

Read data for 1 character -----------------------------------------

1230 FOR CC-33 TO 126 :M-CC–31

1240 GET #1.M :IF LEIT$(As,l)-CHR$(0) THEN A(CC)--1 :GOTO 1310

12s0 A(CC)-ASC(MIDS(A$,2,1))

1260 FOR Y-1 TO WI

1270

P(CC,Y)-A9C(MID$(A$,Y+2,1)) :NEXT Y

1280

IF NLQ-O THEN 1310

1290 FOR Y-1 TO WI

1300

Q(CC,Y)-ASC(MIDS(A$.Y+25.1))

:NEXT Y

1310 NEXT CC :CLOSE 1

1320

‘--––- Select Std./ISJ!---------------------------------------------------

1330

LOCATE 6,1

:PRINT “SELECT MODE”

1340

SO$-”Standard mode

(DIP SW. 1-6 ON

)“

13s0

S1$-’’IBMmode

(DIP SW. 1-6 OFF)H

1360

S-ISN :PX-7 :PY-1 :GOSUB 3020

:IBM-S

1370 IF ISM THSN HD$-Rs+’’:’’+STRING$(3,O)ELSE HD$-E$+’’:’’+STRING$(3,O)

1380

‘-----

Select Draft/NLQ

--------------------------------------------------

1390

LOCATE 9,1

:PRINT “SELECT QUALITY”

1400

SOS-’’Draftquality”

:Sl$-’’Nearletter quality”

1410

S-NLQ :PX-10 :PY-1 :GOBUB 3020

:NLQ-S

1420

IF NLQ THEN HD$-CHR$ (27)+’’X1”+HD$:WI-23 :HI-16 :GOTO 1440

1430

HD$-CHR$(27)+’’XO’’+HDS:WI-11 :HI-8

1440

PLS-STRINGS(24,”+“) :HY$-~ING$(24,

‘-,,)

1450

CC-33 ,CH$-.!.

1460

‘-----

Select Continue/Start over --–-–-------–----------––-––-—----——–

1470

LOCATS 12,1 :PRINT “CONTINUE?”

1480

SO*-’’C0ntinue” :SIS-’’Starto

1490

S-O

:PX-13 :PY-I :GOSUB 3020 :IF S THEN CLS

:GOTO 1070

1500

‘-----

DRAW SOX ------------------------------------------------

=---------

1510

1520

cLS

:IF NLQ THEN

1540

“ :GOTO 1550

1530

LOCATE 1,3-:PRINT”l

2345678901

1540

LOCATE 1,3 :PRINT “123456789012345678901234”

1s50

LOCATS 2.3

:PRINT “++++++++++++++++++++++++”

1560

FOR N-1 TO 16

1570

IF NLQ THEN LOCATE N+2.1 zPRINT RIGHT$(STR$(N),l);:GOTO 1590

1580

IF N MOD 2 -1 THEN LOCATE N+2,1 :PRINT RIGHT$(STRS((N+l)/2).1);

1590

LOCATE N+2.2 :PRINT “;’’;SPC(24);”I”

,NEXT N

1600

LOCATE 19.3

:PRINT “++++++++++++++++++++++++”

1610

‘-----

Select character

-------------------------------------------------

1620

CH$-CHRS(CC)

1630

LOCATE 1.40

:PRINT “SELECT CHARACTER

[“:CHS:’,1”:

1640

1$-INPti$(l) :IF “ “<Is AND I$<CHR$(127) Tikt-CH$-l$ ELSE GOTO 1660

1650

CC-ASC(CH$)

1660

LOCATE 1.40

:PRINT “SELECTBD CHARACTSR : “;CHS:” “

1670

‘-----

Ascender or demcender? --------------------------------------------

1680

SOS-”Ascender” :SIS-”Deacender”

1690

S-(A(CC)-O)

:PX-3 :PY-40 :GOSUB 3020

:DES-S