340
FOR
K%~1
TO
58
350
READ
AR%,BR%,CR%,DR%
360
PLOT
AR%,BR%:DRAW
CR%,DR%,0
370
NEXT
K%
380
GOSUB
1460
390
IF
Q%=3
GOTO
770
400
CLS
#1:INPUT
#1,"
WHICH
LINE
DO
YOU
WANT
";E%
410
IF
E%
<1
OR
E%
>8
GOTO
400
420
LOCATE
#1,1,3:INPUT
#1,"WHICH
COLUMN
DO
YOU
WANT
";
D%
430 IF
D%
<1
OR
D%
>8
GOTO
420
440
IF
C%(D%,E%)=6
GOTO
480
450
CLS
#1:LOCATE
#1,5,2:PRINT
#1,"THAT
SQUARE
IS
ALREA
D Y 0
CC
U
PIED
!"
460
FOR
T=1
TO
1000:NEXT T
470
GOTO
400
480
PLOT
270+(30*D%),70+(30*E%):DRAW 290+(30*D%),89+(30
*E%),Q%
490
PLOT
290+(30*D%),70+(30*E%):DRAW 270+(30*D%),89+(30
*E%),Q%
500
GOTO
540
510
FOR
M%=
0
TO
19
STEP
2:PLOT 270+(30*D%),70+M%+(30*E
%)
520
DRAW
290+(30*D%),70+M%+(30*E%),6:NEXT
M%
530
GOTO
400
540
VRX%=0
550
FOR
K%=1
TO
8
560
VR%=0:C3%=D%:C4%=E%
570
C3%=C3%+C1%(K%):C4%=C4%+C2%(K%)
580 IF
C%(C3%,C4%)=N%
GOTO
590
ELSE
600
590
VR%=VR%+1:GOTO
570
600
IF C%(C3%,C4%)=6
GOTO
610
ELSE
620
610
NEXT
K%:GOTO
670
620
IF
VR%=0
GOTO
610
ELSE
630
630
VRX%=VRX%+VR%
640
C3%=C3%-C1%(K%):C4%=C4%-C2%(K%)
650 IF C%(C3%,C4%)=6
GOTO
610
ELSE
660
660
C%(C3%,C4%)=Q%:GOTO
640
670
IF
VRX%=0
GOTO
680
ELSE
710
680
CLS
#1:PRINT
#1,"
THIS
IS
NOT
A
POSSIBLE
CHOICE"
690
FOR
T=1
TO
1000:NEXT T
700
GOTO
510
710
E%=E%:D%=D%:VRX%=VRX%
720
CLS
#1:PRINT #1,"YOU
HAVE
PLAYED
LINE
NUMBER
";E%
continued on
the
next
page
Some
Programs
for
you
....
Appendix 3 Page
15
To Next Page
