Star Micronics NX-1000 manual Locate 1.1 Print STRING$25,62

.

c

c

L

c

1000

1010

1020

1030

1040

1050

1060

1070

1080

1090

1100

1110

1120

1130

1140

1150

1160

1170

1100

1190

1200

1210

1220

1230

1240

1250

1260

1270

1280

1290

1300

1310

1320

1330

1340

1350

1360

1370

1380

1390

1400

1410

1420

1430

1440

1450

1460

1470

1480

1490

lSO0

1510

1520

1530

1540

1550

1560

1570

lSB0

1590

1600

1610

1620

1630

1640

1650

1660

1670

1680

1690

‘*..*.**.**t.*.**.**.**Dor#pgLo*D CHARACTER GENERATOR *t**tt**t..*.**.*t**t

WIDTH "LPT1:".255 :KEY OFF :CLS

DIM A(1261, P(126.23). Q(126,23). DT(16.24) :EB-CHRS(271 :R$-CHRS(28) KEY 1. CHR$(7) :KEY 2. CHR$(.Sj :KEY 3, CHR$(P)

KEY 4, CHRS(10) :KEY 5, CHRS(l1) :KEY 6. CHRb(l2)

FOR I-33 TO 126 :A(I)--1 :NEXT i

'__-__-_-----___--_~-~~--~~~~-~~~~~~~~~~~~-~~-~~-~~~-~~--~--~--~~-~~~~~~~~

LOCATE 1.1 :PRINT STRING$(25,62);

PRINT u DOWNLOAD CHARACTER GENERATOR ":STRINGSL25,60)

LOCATE 3.1 :PRINT "READ CHARACTERS FROM EXISTING FILE?"

SOS-"Yes" :Sl$-"No" :S--1 :PX-4 :PY-1 :GOSUB 3020 :IF S THEN 1320

o---	__ Open existing file -----			_--	__------	_--_----------------------------
LOCATE 4.20
INPUT "File name";FI$
OPEN "R"*#l ,FIS I48
FIELD #1,4B AS		AS
'-----	Read 2	initial	~~ma”ds	----_-------------	_-____________________---
GET #l,l
IF MIDJ(A$,4,1)-ES THEN Im-0 ELSE IBM--l
IF MIDS(AS,3,1)-"0" THEN NLQ-0 ELSE NLQ--						1~
IF NLQ THEN WI-23 :HI-16 ELSE WI-11 :HI-B
*-T-M- Read da,..f,,r1 ,--,arac.er-___--------						__-_________________________-

FOR CC-33 TO 126 :&f-CC-31

GET X1.M :IF LEFTS(AS.l)-CHRS(O) THEN A(CC)--1 :GOTO 1310

A(CC)-ASC(MIDS(AS.2.1))
FOR Y-l TO WI
P(CC,Y)-ASCU4IDt(A.$.Y+2.1)) :NEXT Y
IF NLQ-0 THEN 1310
FOR Y-l TO WI
Q(CC.Y)-ASCU'IID$(At.Y+25.1)) :NEXT Y
NEXT CC :CLOSE 1		-----------	_--_--_-------------------------------
*---	_- Selact Std./IBM -_
LOCATE 6.1 :PRINT &SELECT MODE"
SOS-"Standard mode (DIP SW. l-6 ON I"
SlS-"IBM mode		(DIP SW. l-6 OFF)"
S-IBM :PX-7 :PY-1 :GOSUB 3020			:IBM-S
IF IBM THEN HDS-R$+":"+STRINGS(3.0) ELSE HDI-ES+":"+STRINGJ(3,0)
s-----	Select Draft/ma	--------	_--__-------------------------------------

LOCATE 9.1 :PRINT "SELECT QUALITY"

SOS-"Draft quality" :SlS-"Near letter quality" S-NLQ :PX-10 :PY-1 :GOSUB 3020 :NLQ-S

IF NLQ THEN HDS-CHRS(27)+"xl"+HDS :WI-23 :HI-16 :GOTO 1440

HDS-CHRS(271+"xO"+HDS :WI-11 :HI-8
PLS-STRINGSi24."+") :HYS-STRING5(24."-")
CC-33 :CHS-"!"-----			__--	__-_________________________
*----	_ Select Continue/Start over ___
LOCATE 12.1		:PRINT "CONTINUE?"
SOS-"Continue" :SlS-"Start over"
S-O	:PX-13 :PY-1 :GOSUB 3020 :IF S THEN CLS			:GOTO 1070
CLS :IF NLQ THEN 1540			- :GOTO 1550
LOCATE 1,3~:PRINT "1 2 3 4 5 6 7 B 9 0 1
LOCATE 1.3		:PRINT "12345678901234567B901234"
LOCATE 2.3		:PRINT "++++++++++++++++++++++++"

FOR N-1 TO 16

IF NLQ THEN LOCATE N+2.1 :PRINT RIGHT$tSTRS~N,.l,;:GOTO 1590 IF N MOD 2 -1 THEN LOCATE Nc2.1 :PRINT RIGIFTS~~S~~N+11/2~,1~; LOCATB N+2,2 :PRINT ":":SPC(24):"I" :NEXT N

LOCATE 19.3 :PRINT "++++++++++++++++++++++++"

a_---_ Select ,-haracter-__-__--____-_------------------------------------

CHS-CHRS(CC1
LOCATE 1.40		:PRINT "SELECT CHARACTBR	I";CHS;"l";
IS-INPmS(l) :IF u "<I$ AND IS<CHRt(l27) THEN CHS-IS ELSE GOT0 1660
CC-ASC(CHS)
LOCAW	1.40	:PRINT "SELECTED CHARACTER : ";CHS:" "
a-----	Ascender or desc,,nder?---_--_-------		_--_--------------------------
SOS-"Ascender" :S15-"Descender"
S-(A(CC)-0)		:PX-3 :PY-40 :GOSUB 3020	:DES-S