Casio FP-200 - Page 156

rCATCH THE CHICKEN------------------------.
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