Star Micronics Multi-Font LC-IOII User Manual page 105

2400 GOSUB 3730 :GOTO 2180
2410 ~---__ Wrap-up -----------------------------------------------------------
2420 CLS :LOCATE 1.1 :PRINT "SAVE TO FILE?"
2430 S--l :PX=2 :PY=I :SOS="Yes" :S15="No" :GOSUB 3020
2440 IF S THEN 2530
2450 LOCATE 5.10 :PRINT "Output file nnme [":FI5:"1 ":
2460 INPUT F05
2470 IF FOS-"" AND Fib-"" THEN 2450
2480 IF FOS-"" THEN FO$=FIO
2490 OPEN "R".#l.FO3.4s
2500 FIELD W1.48 AS A5
2510 JSET AS=HD$+STRING5(48-LEN(HDOJ.0) :PUT t1.1.
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=s :PY=I :SO$="Yes" :S15="No" :GOSUB 3020
2560 IF S THEN END
2570 ~&ATE 11.1 :PRINT ~~PRINI CHARACTER sEr?a'
2580 S-O :PX=12 :PY=l :SOS="Yes" :Slt="No" :GOSUB 3020
2590 IF S THEN END
2600 LOCATE 15.1 :PRINT "WHICH MONITOR ARE YOU USING?"
2610 S-O :Sl$="COLOR" :SO$="MONOCRO" :PX=16 :PY=l :GOSUB 3020 :PB=S
2620 GOSUB 3500 :LPRINI' E5;"3":CHR$(SOJ;
2630 FOR CC-33 TO 126 :LPRINT CHRS(CCJ :" "::NEXT CC
2640 LPRINT STRING$(lO.lOJ :PRINT STRING5(5.10) :END
3000 c
3010 a===-- S,,BRO~INES ==----------===----I=~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
3020 a----- selector ro"tl"e---------------------------------------------------
3030 LOCATE PX,PY :PRINT u ";SOO
3040 LOCATE PX+l,PY :PRINT u 'I: SlS
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 " u :LOCATE PX+l.PY :PRIN'I "==>" :LOCATE PX,PY
3090 I$=INPUT5~1) :IF II<>CHRS(13) THEN S-NOT S :GOTO 3050
3100 RBTURN
3110 I----_ Input ,eheck __----_---------------------------------~----~~-~~-~~~~
3120 I$=INPUTS(lJ :SK=ASC(I5) :FK=VAL(IOJ
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<l THEN X-l
3210 RETURN
3220 I----- Clear al1 dots ~__----___----__---~____________________--~-~~--~~~~
3230 FOR N-l TO 16 :LOCATE N+2.3 :PRINT SPC(24J :NEXT N
3240 FOR X-l TO HI :FOR Y-l TO WI :DT(X.YJ=O :NEXT Y,X
3250 ST-2 :X-l :Y=l :REl-URN
3260 a---Fe Store chnra,-ter data ____-_____-_____________________________------
3270 FL-O
3280 IF DES THEN A(CCJ=0 ELSE A(CCJ=128
3290 IF NLQ THEN ZA-15 :ZB=2 ELSE ZA-8 :ZB=l
3300 FOR Y-l TO WI :WI=128 :P(CC.YJ=O :Q(CC,YJ=O
3310 FOR X-l TO ZA STEP ZB
3320 IF NLQ THEN Q(CC,YJ=QlCC,YJ+WT'(DT(X+1,YJ AND 1)
3330 P(CC,YJ=P(CC.YJ+h'T'(DT(X.YJ AND 1)
3340
WT=.5*WT
3350 NEXT X
3360 FL=FL+P(CC,YJ+QICC,YJ
3370 NEXT Y
3380 IF FL-O THEN A(CCJ=-1
3390 BEEP
3400 CC-CC+1 :IF CC-127 THEN CC-33
3410 GOSUB 3220 :GOTO 1510
3420
*----- Output to Diskette ________________________________________--------
3430 FOR CC-33 TO 126 :M=CC-31
3440 IF A(CCJ=-1 THEN B$=STRING$(4s.OJ :GOTO 3480 ELSE BS=CHRS(lJ+CHRb(A(CCJJ
97