Star Micronics NX-1000, User Manual

Page: 105 / 122

DOWNLOAD CHARACTER GENERATOR
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) :E$-CHR$(27) :R$-CHRS(28)
M . I
I'HMI (7) KEY 2. CHRS (0) .KEY 3. CHR$(9)
M . 4 CNMI(10) .KEY 5, CHR$(11) :KEY 6. CHR$(12)
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
a m
|.l PRINT "READ CHARACTERS FROM EXISTING FILE?"
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:
n
"R".#1.FIS.48
I IKLD #1,48 AS AS
Read 2 initial commands ----------------------------------------
(JKT #1.1
II M IDS (AS. 4. 1)-E$ THEN IBM-0 ELSE IBM— 1
II 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
•il l ♦ 1 .M : IF LEFTS (AS. 1)-CHRS (0) THEN A(CC)— 1 :GOTO 1310
A (CC)-ASC(MIDS(A S .2,1))
I'DM Y-l TO Wl
I* (C C . Y) - ASC (MIDS (A S , Y+2 .1)) .-NEXT Y
II' NLQ-0 THEN 1310
r<>R Y-l TO Wl
Q(CC.Y)-ASC(MIDS(AS.Y+25.1)) :NEXT Y
Nr:xr
cc
: 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 )"
fi I
••"IBM mode (DIP SW. 1-6 OFF) "
M-IBM . - PX-7 : PY-1 : GOSUB 3020 : IBM-S
II 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
II 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
" :GOTO 1550
I.OCATE 1.3 .-PRINT "123456789012345678901234"
LOCATE 2.3 :PRINT "++++++++++++++++++++++++"
roH N-l TO 16
II 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 ,oi M i: 1.40 : PRINT "SELECTED CHARACTER : " ; CHS ; " "
Ascender or descender? ---------------------------------------
mi
*- Amonder" : Sl$-"Descender"
*' lA(i'i)-O) : PX-3 :PY-40 : GOSUB 3020 .-DES-S
95