Star Micronics MULTI-FONT NX-1000II User Manual page 105

t
I
I . .
k-
1. ,—
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
11s0
1160
1170
1180
1190
1200
1210
1220
1230
1240
12s0
1260
1270
1280
1290
1300
1310
1320
1330
1340
13s0
1360
1370
1380
1390
1400
1410
1420
1430
1440
1450
1460
1470
1480
1490
1500
1510
1520
1530
1540
1s50
1560
1570
1580
1590
1600
1610
1620
1630
1640
1650
1660
1670
1680
1690
! "". .,,"..".,,...,." "", -~~*J)
cH~~~~~~
~EN~~A~~~ ,,,
..,,".", .,, .,,...,
WIDTH "LPT1:",255 :KEY OFF :C!LS
DIM A(126), P(126.23), Q(126,23). DT(16,24) :E$-CHRS(27) :R$-CHR$(2S)
KEY 1, CHR$(7)
:KEY 2, CHR$(8) ,KSY 3, CHR$(9)
KEY 4. CHRS(10) :KEY 5, CHR$(lI) :KEY 6. CHR$(12)
FOR I-33 TU 126 :A(I)--1 :WEXT I
,_______________________________________________________________________
LOCATE 1,1 :PRINT SITIING$(25,62);
PRINT " DOWHLOADCHARACTSRGBNERATOR ";STRING$(25,60)
LOCATE 3,1 :PRINT "READ CHARACTERS FROM EXISHNG FILE?"
SO$-"Yes" :Sl$-"NO" :S--1 :PX-4 :PY-1 :GOSUB 3020 :IF S THEN 1320
'----- Open existing file –----------–--—---–-–-–-------–-––-——----—-
LOCATE 4.20
INPUT "File name'';FI$
OPEN "R'',#l,FI$,48
FISLD #1,48
AS AS
'-----
Read 2 initial comnds --–-–-––---–--–------------------––-----—-
G~ #1,1
IF MID$(A$,4,1)-E$ THEN ISM-O ELSE IBM--1
IF MID$(A$,3,1)-"0" THEN NLQ-O ELSE NLQ--l~
IF NLQ THEN WI-23 :HI-16 ELSE WI-11 :HI-8
'----- Read data for 1 character -----------------------------------------
FOR CC-33 TO 126 :M-CC–31
GET #1.M :IF LEIT$(As,l)-CHR$(0) THEN A(CC)--1 :GOTO 1310
A(CC)-ASC(MIDS(A$,2,1))
FOR Y-1 TO WI
P(CC,Y)-A9C(MID$(A$,Y+2 ,1)) :NEXT Y
IF NLQ-O THEN 1310
FOR Y-1 TO WI
Q(CC,Y)-ASC(MIDS(A$.Y+25.1)) :NEXT Y
NEXT CC :CLOSE 1
'--––- Select Std./ISJ!---------------------------------------------------
LOCATE 6,1 :PRINT "SELECT MODE"
SO$-"Standard mode (DIP SW. 1-6 ON )"
S1$-''IBMmode
(DIP SW. 1-6 OFF)H
S-ISN :PX-7 :PY-1 :GOSUB 3020 :IBM-S
IF ISM THSN HD$-Rs+'' :''+STRING$(3,O) ELSE HD$-E$+'' :''+STRING$(3,O)
'----- Select Draft/NLQ --------------------------------------------------
LOCATE 9,1 :PRINT "SELECT QUALITY"
SOS-''Draftquality" :Sl$-''Nearletter quality"
S-NLQ :PX-10 :PY-1 :GOBUB 3020 :NLQ-S
IF NLQ THEN HD$-CHR$ (27)+''X1"+HD$:WI-23 :HI-16 :GOTO 1440
HD$-CHR$(27)+''XO''+HDS :WI-11 :HI-8
PLS-STRINGS(24,"+") :HY$-~ING$(24, '-,,)
CC-33 ,CH$-.!.
'----- Select Continue/Start over --–-–-------–----------––-––-—----——–
LOCATS 12,1 :PRINT "CONTINUE?"
SO*-''C0ntinue" :SIS-''Start
o
S-O :PX-13 :PY-I :GOSUB 3020 :IF S THEN CLS :GOTO 1070
'----- DRAW SOX ------------------------------------------------=---------
cLS :IF NLQ THEN 1540
LOCATE 1,3-:PRINT"l 2345678901 " :GOTO 1550
LOCATE 1,3 :PRINT "123456789012345678901234"
LOCATS 2.3 :PRINT "++++++++++++++++++++++++"
FOR N-1 TO 16
IF NLQ THEN LOCATE N+2.1 zPRINT RIGHT$(STR$(N),l) ;:GOTO 1590
IF N MOD 2 -1 THEN LOCATE N+2,1 :PRINT RIGHT$(STRS( (N+l)/2).1);
LOCATE N+2.2 :PRINT ";' ' ;SPC(24); " I" ,NEXT N
LOCATE 19.3 :PRINT "++++++++++++++++++++++++"
'----- Select character -------------------------------------------------
CH$-CHRS(CC)
LOCATE 1.40 :PRINT "SELECT CHARACTER [":CHS:',1":
1$-INPti$(l) :IF " "<Is AND I$<CHR$(127) Tikt-CH$-l$ ELSE GOTO 1660
CC-ASC(CH$)
LOCATE 1.40 :PRINT "SELECTBD CHARACTSR : ";CHS:" "
'----- Ascender or demcender? --------------------------------------------
SOS-"Ascender" :SIS-"Deacender"
S-(A(CC)-O) :PX-3 :PY-40 :GOSUB 3020 :DES-S