Star Micronics NX-2400 User Manual page 102

1890 SO$="Continue" :Sl$="Start over"
1900 S=O :PX=17 :PY=l :GOSUB 2820 :IF S THEN CLS :GOTO 1120
1910 '
1920 ~==******I***=***************=**=**=====*==*==********----==***** ----
1930 CLS
1940 Q----- Select character position -_-_-_________-___--------------
1950 CH$=CHR$(CC)
1960 LOCATE 1,50 :PRINT "CHARACTER
[";CH$;"l";
1970 I$=INPUT$(l)
1980 IF " "<I$ AND I$<CHR$(127) THEN CH$=I$ ELSE GOT0 2000
1990 CC=ASC(CH$)
2000 LOCATE 1,50 :PRINT "CHARACTER : ":CH$;" "
2010 IF A(CC)<O THEN AO=O :Al=A :42=W-A :GOTO 2030
2020 AO=ASC(LEFT$(A$(CC),l)) :Al=A(CC) :A2=ASC(RIGHT$(A$(CC),l))
2030 LOCATE 3,50 :PRINT "Body-Width = ";A1
2040 LOCATE 4,50 :PRINT "Left Space
= ";A0
2050 LOCATE 5,50 :PRINT "Right Space = ";A2
2060 LOCATE 7,50 :PRINT "( Are you sure ? )"
2070 LOCATE 6,50 :PRINT 'I*** Yes or No R*lll
2060 A$=INPUT$(l)
2090 LOCATE 7,50 :PRINT SPC(25) :LOCATE S,50 :PRINT SPC(25)
2100 IF
A$="N"
OR A$="n" THEN 2110 ELSE GOT0 2240
2110 I----- Select Character width/Left space ------------------------
2120 FOR I-3 TO 5 :LOCATE I,50 :PRINT SPC(25) :NEXT I
2130 LOCATE 3,50 :INPUT "Body-Width = ";A1
2140 IF Al=0 OR Al>W THEN BEEP :LOCATE 3,50 :PRINT SPC(20) :GOTO 2130
2150 LOCATE 3,63 :PRINT STR$(Al);". 1(
2160 LOCATE 4,50 :INPUT "Left Space
= ";A0
2170 IF AO+Al>W THEN BEEP :LOCATE 4,50 :PRINT SPC(20) :GOTO 2160
2160 LOCATE 4,63 :PRINT STR$(AO);". (1
2190 IF QUA*2 THEN 2210
2200 AO=W-AO-Al :LOCATE 5,50 :PRINT "Right Space =";:GOTO 2230
2210 LOCATE 5.50 :INPUT "Right Space = ";A2
2220 IF AO+Al+A2>W THEN LOCATE 3.50 :PRINT SPC(20) :GOTO 2210
2230 LOCATE 5,63 :PRINT STR$(AP):". II :GOTO 2060
2240 I----- xey explanations ----------------_-----~~~-~~~~~~~~~~~~~~~
2250 LOCATE lo,50 :PRINT "Fl: Clear dot"
2260 LOCATE 11,50 :PRINT "F2: Pass over"
2270 LOCATE 12.50 :PRINT "F3: Set dot"
2260 LOCATE 13.50 :PRINT "F4: Clear all dots"
2290 LOCATE 14,50 :PRINT "F5: Skip character"
2300 LOCATE 15,50 :PRINT
"F6:
End"
2310 LOCATE 16,50 :PRINT "RET Record character"
2320
I_____ Get character ___--_--_-_---_---__------------------------
2330
IF A(CC)<O THEN GOSUB 3040 :GOTO 2460
2340
'
2350
FOR N=l TO HI-7 STEP S :FOR O=N TO N+7 :LOCATE 0,l
2360 IF O=N THEN PRINT LEFT$(SC$(O),Al); ELSE PRINT LEFT$(SC$(l),Al);
2370
NEXT 0,N
2380 H-O :FOR Y-l TO Al :FOR N-1 TO HI-7 STEP S :H*H+l :WT=128
2390 P=ASC(BID$(P$(CC),H,l)) :FOR O*N TO N+7
2400 IF (P AND WT)=O THEN 2430
2410 DT(O,Y)=l :CS$="
2420 IF Y<Al THEN DT( 8
M :BX*O :BY=Y
,Y+l)*2 :CS$*"
WT=.5*WT :NEXT 0 :NEXT N :NEXT b"
:GOSUB 3680 ELSE GOSUB 3680
2430
2440
I----- nodify & Plot character -----__--------_--_----~~~~~~~~~~~
2450
X=1 :Y*l
2460 FOR Z=lO TO 12 :LOCATE Z,48 :PRINT M 'I :NEXT Z
2470 ST=2 :LOCATE 11,48 :PRINT "+" :GOTO 2400
2460
'
2490 IF DT(X,Y)=2 THEN CS$=CHR$(2) :GOTO 2610
2500 '
2510
IF DT(X,Y)=O THEN 2570
2520 IF ST>1 THEN 2540 ELSE DT(X,Y)=O :CS$*CHR$(l)
94