Table of Contents
Advertisement
c
L
c
c
2400
GOSUB 3730 :GOTO 2180
2410 I----- Wrap-"P ---~__~.___--___--_____________________-~-~~~-~----~--~~~~~
2420 CLS :LOCATB 1.1 :PRINT "SAVE TO FILE?"
2430
S--l :PX-2 :PY-1 :SOI-"Yes" :Sl$-"No" :GOSUB 3020
1 IF S THEN 2530
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
3180
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
LOCATE 5.10 :PRINT "Output file name [";FI$;"] ";
INPUT F00
IF Fob-"" AND FI$-"" THEN 2450
IF FOO-"" THEN FOO-FI$
OPEN "R" Xl FOS 48
FIELD
#1:48'AS
i5
LSET A$-HD$+STRING5(4B-LEN(HDB).Ol :PUT #l.L
GOSUB 3420 :CLOSE 1
LOCATE 7.1 :PRINT "DQWNLOAD TO PRINTER?
(DIP SWITCH 2-l MUST BE OFF)"
S-O :PX-8 :PY-1 :SO$-"Yes" :SlS-"No" :GOSUB 3020
IF S THEN END
LOCATE 11.1 :PRINT "PRINT CHARACTER SET?"
S-O :PX-12 :PY-1 :SOS-"Yes" :SlS-"No" :GOSUB 3020
IF S THEN END
LOCATE 15.1 :PRINT "WHICH MONITOR ARE YOU USING?"
S-O :Sl$-"COLOR" :SO$-"MONOCRO" :PX-16 :PY-1 :GOSUB 3020 :PB-S
GOSUB 3500 :LPRINT ES;"3";CHRS(50);
FOR CC-33 TO 126 :LPRINT CHR$(CC);" "::NEXT CC
LPRINT STRING$(lO.lO) :PRINT STRINGS(5.10) :END
~---
SIJBRO~~INES -~~~------~--~~~-~~~~~~~~-~~~~~~-~~~~~~~~~~~~~~~~~~~~~~
I-----
Sa)ector
routina---------------------------------------------------
LOCATE PX.PY :PRINT u
";SOI
LOCATE PX+l,PY :PRINT o
";Sl$
IF NOT S THEN 3060 ELSE 3070
LOCATE PX,PY :PRINT "-->" :LOCATE PX+l.PY :PRINT u
u :LDCATE PX,PY
IF
S THEN 3080 ELSE 3090
LOCATE PX.PY :PRINT "
II :LOCATE PX+l.PY :PRINT "-->" :LOCATE PX,PY
I$-INPUTJ(1) :IF IE<>CHRS(13) THEN S-NOT S :GOTO 3050
REIWRN
I-----
Input
check
___-____--__---__-________F_____________---------------
IS-INPUTS(l) :SK-ASC(I5) :FK-VAL(IS1
IF SK>6 AND SK<14
THEN
ST-SK-6 :GOTO 3210
IF FK-0 OR FK-5 THEN 3120
IF FK MOD 3 - 0 THEN Y-Y+1
IF FK MOD 3 - 1 THEN Y-Y-l
IF FK >6 THEN X-X-l
IF FK <4 THEN X-X+1
IF ;'>WI THBN Y-WI ELSE IF Y<l THEN Y-l
IF X>HI THEN X-HI ELSE IF X<l THEN X-l
RETURN
~_____ clear al) dots __-________--__-___-____________________------------
FOR N-l TO 16 :LOCATB N+2,3 :PRINT SPC(24) :NEXT N
FOR X-l TO HI :FOR Y-l TO WI :DT(X,Y)-0 :NEXT Y,X
ST-2
:X-l :Y-1 :Rl?TURN
~_____ store =haracter da+.* __-______-------_-----------------------------
FL-O
IF DES THEN A(CC)-0 ELSE A(CC)-128
IF NLQ THEN ZA-15 :ZB-2 ELSE
ZA-0
:ZB-1
FOR Y-l TO WI :WT-128 :P(CC.Y)-0 :Q(CC,Y)-0
FOR X-l TO ZA STEP ZB
IF NLQ THEN Q(CC,Y)-Q(CC,Y)+WT*(DT(X+l.Y) AND 11
P(CC.Y)-P(CC,Y)+WT*(DT(X.Y) AND 11
wr-.5*wr
NEXT X
FL-FL+P(CC.Y)+Q(CL,Y)
NEXT Y
IF FL-O THEN A(CC)--1
BEEP
CC-CC+1 :IF CC-127 THEN CC-33
GOSUB 3220 :GOTO 1510
c----- Output to Diskette -___-________--__---____________________--------
FOR CC-33 TO 126
:M-CC-31
IF A(CC)--1 THEN BS-STRINGO(48.0) :GOTO 3480 ELSE
BS-CHRS(l)+CHRS(A(CC))
Advertisement
Table of Contents
Troubleshooting
