Star Micronics lC-10 User Manual page 102

2400 GOSUB 3730 :GOTO 2180
2410 I----_ wrapmup ___________------------------------------------------------
2420 CLS :LOCATE 1.1 :PRINT "SAVE TO FILE?"
2430 S--l :PX=2 :PY=l :SO$-flYes" :Sl$-"No- :GOSUB 3020
2440 IF S THEN 2530
2450 LOCATE 5.10 :PRINT "Output file name [";FI$;"l II:
2460 INPUT FO$
2470 IF FO$-"" AND FI$--" THEN 2450
2480 IF FOS-O" THEN FOB-F15
2490 OPEN "R".#l.F05.48
2500 FIELD X1.48 AS A5
2510 LSET A$-HD$+STRING5(48-LEN(HD51.0) :PUT #l.l
2520 GOSUB 3420 :CLOSE 1
2530
2540 LOCATE 7.1 :PRINT "DOWNLOAD TO PRINTER?
(DIP SWITCH 2-l MUST BE OFF)"
2550 S-O :PX-8 :PY=l :SO$-"Yes" :S1$-"No" :GOSUB 3020
2560 IF S THEN END
2570 LOCATE 11.1 :PRINT "PRINT CHARACTER SET?"
2580 S-O :PX-12 :PY-1 :SO$-"Yes" :Sl$-"No" :GOSUB 3020
2590 IF S THEN END
2600 LOCATE 15.1 :PRINT "WHICH MONITOR ARE YOU USING?"
2610 S-O :Sl$="COLOR" :SO5="MONOCRO"
:PX=16 :PY=l :GOSUB 3020 :PB=S
2620
2630
2640
3000
3010
3020
3030
3040
3050
3060
3070
3080
3090
3100
3110
3120
3130
3140
GOSUB 3500 :LPRINT E5;"3":CHR5(50):
FOR CC-33 TO 126 :LPRINT CHR$(CC);" ";:NEXT CC
LPRINT STRING$(lO.lO) :PRINT STRINGI(5.10) :END
*--=-- SUBROUTINES ======-=---========-===================================
I----- selector routine---------------------------------------------------
LOCATE PX.PY :PRINT s
";SOS
LOCATE PX+l.PY :PRINT v ";SlS
IF NOT S THEN 3060 ELSE 3070
LOCATE PX,PY :PRINT "-=>" :LOCATE PX+l,PY :PRINT u m :LOCATE PX.PY
IF
S THEN 3080 ELSE 3090
LOCATE PX,PY :PRINT u v :LOCATE PX+l,PY :PRINT "-->" :LOCATE PX.PY
15=INPUT$(l)
:IF
I$<>CHR$(13) THEN S-NOT S :GOTO 3050
RETURN
I_____ Input Check ------___----------------------------------------------
I$=INPUT5(1) :SK-ASC(I5) :FK-VAL(I5)
IF SK>6 AND SK<14 THEN ST-SK-6 :GOTO 3210
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<l THEN X-l
3210 RETURN
3220 I--___ clear *ll dots ---________-----------------------------------------
3230 FOR N-l TO 16 :LOCATE Nt2.3 :PRINT SPC(24) :NEXT N
3240 FOR X-l TO HI :FOR Y-1 TO WI :DT(X.Y)=O :NEXT Y.X
3250 ST-2 :X-l :Y-1 :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-1
3300 FOR Y-l TO WI :WT=128 :P(CC.Y)-0 :R(CC.Y)=O
3310 FOR X-l TO ZA STEP ZB
3320
IF NLQ THEN Q(CC,Y,=R~CC,Y,+WI*(DT(X+l.Y) AND 1)
3330 P(CC,Y)-P(CC,Y)+WT'(DT(X,Y) AND 1)
3340 wr=.5*wI
3350 NEXT X
3360 FL-FL+P(CC.Y)+R(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-CHRS(l)+CHRS(A(CC))
95