Casio FP-200 - Page 145

GAME
:i:rfJ~fiJ 2524 Bytes
.................................................................................................................... IMtttl ............................ , ..... ,,,, ...................... ....
10 CLEAR:TIME$="00:00:00":DIM A$(10,6)
20-CLS:TX~5:TY=6:SX=15:SY=3:TX2=13:TY2=1:W=0:XX=
5:YY=0:XXX=5:YYY=0:CT=0
j0 TX2=INT<RND(-1)*5)+13~TY2=INT<RND<-1>•5>+1
40 LOCATE 5,0:PRINT" ♦"
50 R=INT(RND(-1)•4>
60 IF R=0 THEN TX1=0:TY1=0
70 IF R=l THEN TX1=10:TY1=0
80 IF R=2 THEN TX1=0:TY1=3
90 IF R=3 THEN TX1=10:TY1=3
100 LOCATE TX1,TY1:PRINT"e"
110 LOCATE TX,TY:PRINT"o"
120 QUAD <0,0)-(88,56):QUAD (104,8)-(144,48>
130 l($=IN_f:::EY$: LOCATE TX, TY: F'HINT" ": LOCATE TX 1, l Y
1: PRINT" "
140 IF I<$="!" THEN TY=TY--l
150 IF K$=
11
M"._THEN ,TY=T'l-tl
:~60 _:t§:-::-•ci=--•J••' iHEN\Tx=fx-1- -'- ,-•. · ·
170 IF l($="L" THEN TX=TX+ 1
180 I~ TY<0 THEN TY=0
190 IF TY>6 THEN TY=6
200 IF TX<0 THEN TX=0
210 IF TX)10 THEN TX=10
220 LOCATE TX,TY:PRINT"o"
230 R=INT<RND(-1)•5>:IF R<4 THEN 320
240 IF TXl=TX THEN IF TYl>TY THEN TYl=TYl-1:GOTO
280:ELSE TYl=tYl+l:GOTO 280
250 IF TYl=TY THEN IF TXl>TX THEN Txt==TXl--1 :GOTCl
280:ELSE TX1=TX1+1:GOTO 280
260 IF TX 1 >TX THEN TX 1==TX l--1: GOTO 2f3li~ FLSL TX 1 ·•TX
1+1:GOTO 280
270
IF TYl>TY THEN TY1=TY1-1 ELSE TVl==TYl+l
280 IF TY<0 THEN TY=0
290 IF TY>? THEN TY=?
300 IF TX<0 THEN TX=QI
310 IF TX>10 THEN TX=10
320 LOCATE TX1,TY1:F'RINT"•"
330 GOSUB 490
-_::40 !30SIJ8 4612!
149