I
[“
,.,.,-
}!
1;
i
E—
..k“
1
—
—
2400
2410
2420
2430
2440
2450
2460
2470
2480
2490
2500
2510
2520
2530
2540
2550
2560
2570
2580
2590
2600
2610
2620
2630
2640
3000
3010
3020
3030
3040
3050
3060
3070
3080
3090
3100
3110
3120
3130
3140
3150
3160
3170
31eo
3190
3200
3210
3220
3230
3240
3250
3260
3270
3280
3290
3300
3310
3320
3330
3340
3350
3360
3370
3380
3390
3400
3410
3420
3430
3440
GOSUB 3730 :GOTO 2180
‘-----Wrap-up ----------------------------------------------------------
CLS :LOCATE 1,1 :PRINT“SAVE TO FILE?”
S-–1 :PX-2 :PY-1 :SOS-”Yes” :51$--No” ;GOSUB 3020
IF S THEN 2530
LOCATE 5,10 :PRINT“Output file name [“;FIS;”l “;
INPOT FO$
IFOS-”U AND FI$-”” THEN 2450
IF FO$-”” THEN FOS-FI$
OPEN “R’’,*1,FO$.48
FIELD #1,48 AS AS
LSET A$-HD$+STRING$(48-LEN(HD$).0) :PUT *1,1
GOSUB 3420 :CLOSE 1
LOCATE 7.1 :PRINT “DOWNLOAD TO PRINTER? (DIP SWITCH 2-1 NUST BE OFF)”
s-O :PX-8 :PY-l :SOS-’’Yes”:S1$-’’NO”:GOSOB 3020
IF S THEN END
LOCATE 11.1 ,PRINT “PRINT CHARACTER S=?”
S-O :PX-12 :PY-1 :SO$-’’Yes”:S1$-’’NO”:GOSUB 3020
IF S THEN SND
LOCATE 15,1 :PRINT “WHICH MONITOR ARE YOU USING?U
S-O :S1$-’’COLOR”:SO$-’’MONOCRO”:PX-16 :PY-1 :GOSUB
GOSUB 3500 :LPRINT E$;’’3’’;CHR$(5O);
FOR CC-33 TO 126 :LPRINTCHR$(CC); ” “;:NEXT CC
LPRINT STRING$(1O.1O) :PRINT STRING$(5.1O) :END
3020 :PB-S
‘----- SUBRO~INES .......................................................
‘----- Selector rOutine--------------------------------------------------
LOCATS PX,PY :PRINT “ “;s0$
LOCATS PX+l,PY :PRINT “ “;s1$
IF NOT S THEN 3060 ELSE 3070
LOCATE PX,PY :PRIAT “-->” :LOCATEPX+l.PY :PRINT “ “ :LOCATE PX,PY
IF S THEN 3080 ELSE 3090
LOCATE PX,PY :PRINT “ “ :LOCATEPX+l,PY :PRINT “-->” :LOCATE PX,PY
1$-INP~$(l) :IF1.9<>CHR$(13)TNSN S-NOT S :GOTO 3050
RElwRN
‘----- Input check -------------------------------------------------------
1$-INPUTS(l) :SK-ASC(I$) :FK-VAL(IS)
IF SK>6 AND SK<14 THEN ST-SK-6 :GOTO 3210
IF FK-O OR FK-5 THEN 3120
IF PK ~D 3 - 0 THEN Y-Y+l
IF PK BE3D3 - 1THEN Y-Y-l
IF FK >6 ~ X-X-1
IF FK <4 THEW X-X+1
IF YXfI THEN Y-WI ELSE IF Y<l THSN Y-1
IF X>HI THBN X-HI ELSE IF X<l THEN X-1
‘----- Clear all dots ---------------------------------------------------
FOR N-1 TO 16 :LOCATEN+2,3 :PRINT SPC(24) :NEXT N
FOR X-1 TO HI :FOR Y-1 TO WI :DT(X,Y)-O :NEXTY.X
SI’-2:x-1 :Y-1 :RETuRN
‘----- Store character data ----------------------------------------------
FL-O
IF DSS THSN A(CC)-O ELSE A(CC)-128
IF NLQ THEN ZA-15 :ZB-2 ELSE ZA-8 :ZB-1
FOR Y-1 TO WI :WT-128 :P(CC>Y)-O :Q(CC,Y)-O
FOR X-1 TO ZA STEP ZB
IF NLClTHEN Q(CC,Y)-Q(CC,Y)+WT*(DT(X+lY) AND1)
P(cc,Y)-P(CC,Y)+WT*(DT(X,Y) AND 1)
WT-.5*WT
NEXT x
FL-FL+P(CC,Y)+Q(CC,Y)
NEXT Y
IF FL-O THEN A(CC)--1
BESP
CC-CC+l :IF CC-127 THEN CC-33
GOSUB 3220 :GOTU 1510
‘---–-Output to Diskette ------------------------------------------------
FOR CC-33 TO 126 :li-CC-31
IF A(CC)--1 THEN BS-STRING$(48.0) :GOTO 3480 ELSE B$-CHRS(l)+CHR$[A(CC))
97