1 '*3D-MAZE*
2 CLV:G=FILE()+1:[0]=9:FORX=1TO8:[X]=1:NEXT:[9]=3
3 FORY=1TO8:[Y*10]=8:[Y*10+9]=2:NEXT
4 [90]=12:FORX=1TO8:[90+X]=4:NEXT:[99]=6
5 FORY=0TO8:FORX=0TO8
6 D=RND(4):IFD=0ANDY>0GOTO6
7 Z=X+Y*10
8 IFD=0GOSUB23
9 IFD=1GOSUB24:IFD=-1GOTO6
10 IFD=2GOSUB26:IFD=-1GOTO6
11 IFD=3GOSUB28:IFD=-1GOTO6
12 NEXT:NEXT
13 P=0:Q=0:D=1:CLT:LRUNG
14 K=INKEY()
15 IFK=32BEEP20:LRUNG+1
16 IFK=30BEEP20:GOSUB30:LRUNG
17 IFK=28BEEP20:GOSUB33:LRUNG
18 IFK=29BEEP20:GOSUB35:LRUNG
19 IFK=31BEEP20:GOSUB37:LRUNG
20 LC27,2:?TICK()/60
21 IFP<>9ORQ<>9GOTO14
22 BEEP20,30:LC4,10:?"*** GOAL! ***":LC0,21:END
23 [Z]=[Z]+2:[Z+1]=[Z+1]+8:RETURN
24 IF([Z+1]&4)>0D=-1:RETURN
25 [Z+1]=[Z+1]+4:[Z+11]=[Z+11]+1:RETURN
26 IF([Z+10]&2)>0D=-1:RETURN
27 [Z+10]=[Z+10]+2:[Z+11]=[Z+11]+8:RETURN
28 IF([Z]&4)>0D=-1:RETURN
29 [Z]=[Z]+4:[Z+10]=[Z+10]+1:RETURN
30 B=([P+Q*10]>>D)%2:IFBRETURN
31 P=P-(D=3)+(D=1):Q=Q-(D=0)+(D=2)
32 RETURN
33 D=D-1:IFD<0D=3
34 RETURN
35 D=D+1:IFD>3D=0
36 RETURN
37 D=D+2:IFD>3D=D-4
38 RETURN