Star Micronics NX-1000 User Manual page 105

Mil'll! " I , I 'll i ", J95 .KEY OFF : CLS
I ' l M A M ^ M . I»(126.23), 0(126.23), DT(16.24)
M . I I'HMI (7) KEY 2. CHRS (0)
M . 4 CNMI(10) .KEY 5, CHR$(11)
n»N l-.1i TO 126 i A (I) --1 : NEXT I
• 1" All i i PH INI STRINGS(23.62);
I ' M INI I » < >WNI.OAD CHARACTER GENERATOR " ; STRINGS (25. 60)
* 1 M |.l PRINT "READ CHARACTERS FROM EXISTING FILE?"
a m
nn*- ' Y««" ; 31$-"No" :S— 1 : PX-4 :PY-1 .-GOSUB 3020 : IF S THEN 1320
- Open existing f i l e ---------------------------------------------
I 'M A I K 4,20
I Nl'irr "File name " ; FIS
i * l ' i : "R".#1.FIS.48
n
I IKLD #1,48 AS AS
Read 2 initial commands ----------------------------------------
(JKT #1.1
I I M IDS (AS. 4. 1)-E$ THEN IBM-0 ELSE IBM— 1
I I MIDS (AS . 3.1) -"0" THEN NLQ-0 ELSE NLQ— 1 *
III NLQ THEN WI-23 .HI-16 ELSE WI-11 :HI-8
'----- Read data for 1 character --------------------------------------
I OR CC-33 TO 126 :M-CC-31
• i l l ♦ 1 .M : IF LEFTS (AS. 1)-CHRS (0) THEN A(CC)— 1 :GOTO 1310
A (CC)-ASC(MIDS(AS.2,1))
I'DM Y-l TO Wl
I * (CC. Y) - ASC (MIDS (A S , Y+2 .1)) .-NEXT Y
I I ' NLQ-0 THEN 1310
r<>R Y-l TO Wl
Q(CC.Y)-ASC(MIDS(AS.Y+25.1)) :NEXT Y
cc
Nr:xr : close i
- - Select S t d . / I B M --------------------------------------------------
I ' x'ATE 6.1 .-PRINT "SELECT MODE"
mi$-"Standard mode (DIP SW. 1-6 ON )"
f i I ••"IBM mode (DIP SW. 1-6 OFF) "
M-IBM . - PX-7 : PY-1 : GOSUB 3020 : IBM-S
I I IBM THEN HDS-RS+":"+STRINGS(3.0) ELSE HDS-ES+":"+STRINGS(3.0)
'---- Select D r a f t / N L Q -------------------------------------------------
I.OCATE 9.1 :PRINT "SELECT QUALITY"
ri(i$-"Draft quality" :Sl$-"Near letter quality"
M-NLQ :PX-10 :PY-1 :GOSUB 3020 :NLQ-S
I I NLQ THEN HDS-CHRS (27) +"xl"+HDS :WI-23 .-HI-16 :GOTO 1440
IIIH-CHRS(27)+"xO"+HDS :WI-11 :HI-8
I ' I . $-STRINGS (24. " + ") . - HYS-STRINGS (24. "-")
CC-33 :CHS-"!"
--- Select Continue/Start over -------------------------------------
I.OCATE 12.1 :PRINT "CONTINUE?"
•io$-"Continue" :Sl$ = "Start over"
f 1-0 :PX—13 :PY-1 :GOSUB 3020 :IF S THEN CLS :GOTO 1070
• — — DRAW BOX — — - . . . . . . . . . . . . . . . . . . . . . . . . . — .........
CLS :IF NLQ THEN 1540
LOCATE 1.3 :PRINT " 1 2 3 4 5 6 7 8 9 0 1
I.OCATE 1.3 .-PRINT "123456789012345678901234"
LOCATE 2.3 :PRINT "++++++++++++++++++++++++"
roH N-l TO 16
I I NLQ THEN LOCATE N+2.1 :PRINT RIGHTS(STRS(N).1);:GOTO 1590
IF N MOD 2 -1 THEN LOCATE N+2.1 :PRINT RIGHTS(STRS((N+l)/2).1);
I.OCATE N+2. 2 : PRINT " ! " ; SPC (24) ; " ! " . NEXT N
LOCATE 19.3 : PRINT "++++++++++++++++++++++++"
Select character ---------------------------------------------
i'HI-CHRS(CC)
I.OCATE 1.40 :PRINT "SELECT CHARACTER [";CHS;"J";
I•— INPUTS(1) :IF " "<IS AND I$<CHRS(127) THEN CHS-IS ELSE GOTO 1660
I ' c'-AflC (CHS)
l , o i M i : 1.40 : PRINT "SELECTED CHARACTER : " ; CHS ; " "
Ascender or descender? ---------------------------------------
*- Amonder" : Sl$-"Descender"
mi
* ' lA(i'i)-O) : PX-3 :PY-40 : GOSUB 3020 . - DES-S
DOWNLOAD CHARACTER GENERATOR
:E$-CHR$(27)
.KEY 3. CHR$(9)
: KEY 6. CHR$(12)
" :GOTO 1550
:R$-CHRS(28)
95