Advertisement
rCATCH
THE C H I C K E N - - - - - - - - - - - - - - - - - - - - - - - - .
170 IF RA=2 THEN IF POINTCX3-8,Y3><>·-l THEN X2=X2
-1:GOTO 160
130 IF RA=3 THEN IF POINTCX3,Y3+8)()-1 THEN Y2=Y2
+l:GDTO 160
140 C=C+l:IF C<30 THEN 90
150
CLS:LOCATE
5,4:F'RINT"YOU WIN' '":LOCATE 5,6:PR
INT PO;"Times":GOTO 190
160
F'O=f·O+l:LDCATE
CXl·-11 ,Yl:F'RINT"
":LOCATE <X2-
ll
1
Y2:PRINT"@":X1=X2:Yl==Y2
-
170 IF (CX=X1JAND<Y=Y1)) THEN CLS:LOCATE 5,3:PRIN
T"I WIN":GOTO 190
180
LOCATE
(X-11
,Y:Pf=i:INT" ■ ":GOTO
t)fll
190 FOR I=l
TO
300:NEXT I:CLS:LOCATE 2
1
2:INPUT "P
LAY AGAIN CY> ";A$: IF
A$=="Y"
THEN GOTO
10
200 END
:DEBUG
I
Whether or not you were pecked with the beak is determined by the IF statement
in line 210.100-140 decide whether or not a block is placed at a particular
position.
Note that input of incorrect data destroys the screen display. Also, input of a
number greater than 10 causes part of the screen display to remain: Delete the
1
·
remaining portion using the··sPACE key (if you like).
·
·
160
Advertisement
