Star Micronics LC24-10 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 I_____ select =haracker position --------------------------------
1950 CH$=CHR$(CC)
1960 LOCATE 1,50 :PRINT "CHARACTER [";CH$;"]";
1970 I$=INPUT$(l)
1980 IF w "<I$ AND I$<CHR$(127) THEN CH$=I$ ELSE GOT0 2000
1990 CC=ASC(CH$)
2000 LOCATE 1,50 :PRINT "CHARACTER : ";CHS;" "
2010 IF A(CC)<O THEN AO=O :Al=A :A2=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
= ";A(,
2050 LOCATE 5.50 :PRINT "Right Space = ";A2
2060 LOCATE 7,50 :PRINT "( Are you sure ? )"
2070 LOCATE S,50 :PRINT "*** Yes or No n**11
2080 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):". "
2160 LOCATE 4,50 :INPUT "Left Space = ";A0
2170 IF AO+Al>W THEN BEEP :LOCATE 4,50 :PRINT SPC(20) :GOTO 2160
2180 LOCATE 4,63 :PRINT STR$(AO);".
'I
2190 IF QUA=2 THEN 2210
2200 A2=W-AO-Al :LOCATE 5,50
:PRINT "Right Space =";:GOTO 2230
2210 LOCATE 5,50 :INPUT "Right Space =
";A2
2220 IF
AO+Al+AZ>W THEN LOCATE 3,50
:PRINT SPC(20) :GOTO 2210
2230 LOCATE 5,63 :PRINT STR$(AP):".
1( :GOTO 2060
2240
I_____ xey explanat-ons ----------------_-__---------------------
2250 LOCATE lo,50 :PRINT "Fl: Clear dot"
2260 LOCATE 11.50 :PRINT
"F2:
Pass over"
2270 LOCATE 12,50 :PRINT "F3: Set dot"
2280 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 t_____ Get character -__-__-__-----------------------------------
2330
IF A(CC)<O THEN GOSUB 3040 :GOTO 2460
2340 '
2350
FOR N=l TO HI-7 STEP 8 :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=l TO HI-7 STEP S :H=H+l :WT=12S
2390 P=ASC(MID$(P$(CC),H,l)) :FOR O=N TO N+7
2400
IF (P AND WT)=O THEN 2430
2410
DT(0 Y)=l :CS$="
2420 IF Y:Al THEN DT( !I
M :BX=O :BY=Y
,Y+1)=2 :CS$="
B"
:GOSUB 3680 ELSE GOSUB 3680
2430 WT=.5*WT :NEXT 0 :NEXT N :NEXT
2440
(--w-s Modify & plot character ---------_-----__-----------------
2450 X=1 :Y=l
2460 FOR Z=lO TO 12 :LOCATE Z,4S :PRINT m M :NEXT Z
2470 ST=2 :LGCATE 11,4S :PRINT "+" :GOTO 2460
2480 '
2490
IF
DT(X,Y)=2 THEN CS$=CHR$(P) :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