Advertisement
- - - - - - - - - - - - - - - - - - - - - - - - - G A M E
(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
Advertisement
