Star Micronics LC-10 User Manual page 105

2400 GOSUB 3730 :GOTO 2180
2410 a--___ Wrapeup ___-----_--------------------------------------------------
2420 CLS :LOCATE 1.1 :PRINT "SAVE TO FILE?"
2430 S--l :PX-2 :PY-1 :SO$="Yes" :Sl$-"No" :GOSUB 3020
2440 IF S THEN 2530
2450 LOCATE 5.10 :PRINT "Output file name [":FI$:"I "i
2460 INPUT FO$
2470 IF FO$-"" AND FI$-"" THEN 2450
2480 IF FO$="" THEN FOB-FIB
2490 OPEN "R".#l.F0$.4S
2500 FIELD #1.48 AS A5
2510 LSET A$=HD$+STRING5(48-LEN(HD51.0) :PUT X1.1.
2520 GOSUB 3420 :CLOSE 1
2530 '
2540 LOCATE 7.1 :PRINT "DOWNLOAD TO PRINTER? (DIP SWITCH 2-1 MUST BE
OFF)"
2550 S-O :PX=8 :PY=l :SO$="Yes" :Sl$="No" :GOSUB 3020
2560 IF S THEN END
2570 LOCATE 11.1 :PRINT "PRINT CHARACTER SET?"
2580 S-O :PX=12 :PY=l :SO$="Yes" :Sl$-"No" :GOSUB 3020
2590 IF S THEN END
2600 LOCATE 15.1 :PRINT "WHICH MONITOR ARE YOU USING?"
2610 S-O :SlS="COLOR" :SO5="MONOCRO"
:PX=16 :PY-1 :GOSUB 3020 :PB=S
2620 GOSUB 3500 :LPRINT E5;"3";CHR5(501:
2630 FOR CC-33 TO 126 :LPRINT CHRBICC);" "::NEXT CC
2640 LPRINT STRING$(lO.lO) :PRINT STRINGO(5.10) :END
3000 '
3010 ~====- SUBRO~INES ==~1~=~~~~====9==~~~_________________3__~~~~~~~~~~~~~~~
3020 I___-- selector Toutlne---------------------------------------------------
3030 LOCATE PX.PY :PRINT u
":SO$
3040 LOCATE PX+l,PY :PRINT v ";Slb
3050 IF NOT S THEN 3060 ELSE 3070
3060 LOCATE PX,PY :PRINT "==>" :LOCATE PX+l.PY :PRINT m
u :LOCATE PX,PY
3070 IF
S THEN 3080 ELSE 3090
3080 LOCATE PX,PY :PRINT " " :LOCATE PX+l.PY :PRINT "==>" :LOCATE PX.PY
3090 IS=INPUT$(l) :IF I$<>CHR$(13) THEN S-NOT S :GOTO 3050
3100 RETURN
3110 I__-__ Input =heck -------------------------------------------------------
3120 I$=INPUT$(l) :SK=ASC(I$) :FK=VAL(I$)
3130 IF SK>6 AND SK<14 THEN ST-SK-6 :GOTO 3210
3140 IF FK-0 OR FK-5 THEN 3120
3150 IF FK MOD 3 = 0 THEN Y-Y+1
3160 IF FK MOD 3 = 1 THEN Y-Y-1
3170 IF FK >6 THEN X-X-1
3180 IF FK <4 THEN X=X+1
3190 IF Y>WI THEN Y-WI ELSE IF Y<l THEN Y-l
3200 IF X>HI THEN X-HI ELSE IF X(1 THEN X-l
3210 RETURN
3220 a-____ Clear all dots ----------------------------------------------------
3230 FOR N-l TO 16 :LOCATE N+2.3 :PRINT SPC(24) :NEXT N
3240 FOR X-l TO HI :FOR Y-l TO WI :DT(X.Y)=O :NEXT Y.X
3250 ST-2 :X-l :Y=l :RETURN
3260 I-___- store character data _----_----------------------------------------
3270 FL-O
3280 IF DES THEN A(CC)=0 ELSE A(CC)=128
3290 IF NLQ THEN ZA-15 :ZB=2 ELSE ZA-8 :ZB=l
3300 FOR Y-l TO WI :WT-128 :P(CC,Y)=O :Q(CC,Y)=O
3310
FOR X-l TO ZA STEP ZB
3320
IF NLQ THEN Q(CC,Y)=Q(CC.Y)+WT*fDT(X+l.Y) AND 1)
3330
P(CC.Y)=P~CC,Y)+h'T*(DT~X.Y) AND 1)
3340
WT-.S'wr
3350
NEXT X
3360 FL-FL+P(CC!.Y)+Q(CC.Y)
3370 NEXT Y
3380 IF FL-O THEN A(CC)=-1
3390 BEEP
3400 CC-CC+1 :IF CC-127 THEN CC-33
3410 GOSUB 3220 :GOTO 1510
3420 I-__-- output to Diskette ------------------------------------------------
3430 FOR CC-33 TO 126 :M=CC-31
3440 IF A(CC)=-1 THEN B$-STRING5(48.0) :GOTO 3480 ELSE BB=CHR$(l)+CHR$(A(CC))
97