Casio FP-200 - Page 153

-------------------------GAME
(j(j.f By fr,,;
10 CLS:CLEAR
25 CLS: LOCATE 2, 3: PRINT "MAZE": PRINT: INPUT" LE -'
BEL";L:CLS:M=3
312l IF((L(1)0R<L>5)l THEN 25
412l X=80:Y=32:DX=1:DY=0:CLS:FOR I=l TO L
41
Xl=INT<RND(-1)*18+2):Yl=INTCRNDC-1)*6+1): IF Y
1=4 THEN 41
42 LOCATE <Xl-1), Yl: PRINT" ■": NEXT I
43 DRAW<l2l,0J:DRAW-(159,12l) :DRAW-(159
1
63):DRAW-(12l,
63 > : DRAW- ( l2l
I
l2l)
512l A$=INKEY$:IF A$="L" THEN DX=1
55 IF A$="!" THEN DY==-1
60 IF A$="J" THEN DX=-1
65 IF A$="K" THEN DY==l
70 X=X+DX:Y=Y+DY
75 IF POINT<X,Yl=-1 THEN GOTO 200
812l SC=SC+L:DRAW<X,Y):GOTO 50
200 CLS:M=M-1:IF M>0 THEN LOCATE 3,3:PRINT"LEFT S
NAKE=";M:GOSUB 1000:GOTO 40
21121 CLS: LOCAT8 1 , 3: PR I NT"SCORE: ";SC: PR INT'' l'fff!'
0
;
H
s
213 IF HS<SC THEN HS=SC:PRINT :PRINT"
HI SCORE
• t ••
215 LOCATE 3,6:INF'UT" PLAY AGAIN(Y)";Y$:IF Y$=-"Y"
THEN 25
220 END
1000 FOR I=l TO 300:NEXT !:RETURN
157