Here's the code for my mazelike game, it isn't finished yet, and it isn't optimized either. But you can have a look at it anyway

```
0 -> A
0 ->C
1 ->D
2 ->E
3 ->F
Menu("kies je level","level 1",1,"level 2",2)
Lbl 1
1 ->G
prgrm00LVL
[A] -> [C]
Delvar [A]
Goto A
Lbl 2
2 ->G
prgm00LVL
[D] -> [C]
Delvar [D]
Goto A
Lbl A
[C]
For(Y,1,8
For(X,1,16
Output(Y,X,Ans(Y,X
If Ans(Y,X)=C
Output(Y,X," // 1 space
If Ans(Y,X)=D
Output(Y,X,"S
If Ans(Y,X)=E
Output(Y,X,"O
If Ans(Y,X)=F
Output(Y,X," 'pi' // I mean the token 'pi', it looks like a door or something
End:End
2->Y
2->X
Output(Y,X,"Theta //you know the theta sign, the weird O
Repeat 45=B
Output(1,16,A
GetKey->B
If Max(B=({24,25,26,34})
Output(Y,X," //1 space
Y-(Ans=25 and Y>1 and not(1=([C](Y-(Y>1,X))))+(Ans=34 and Y<8 and not(1=([C](Y=(Y<8),X))))->Y
X-(B=24 and X>1 and not(1=[C]Y,X-(X>1)))))+(B=26 and X<16 and not(1=[C](Y,X+(X<16->X
Output(Y,X,"Theta
If ([C]Y,X))=2
Then
A+1->A
0->[C](Y,X
End
If ([C](Y,X))=3 and A>2
45->B
End
Disp "PROGRAMMER:
Disp "TSTOOT
Disp "thanks to:
Disp "TIBASICDEV
Pause
Delvar [C]
Clrhome
Output(1,16(" // 1 space
Stop
```

Here is the code for the 00LVL so you can play level one of the maze, level one is actually a test level, but it will give you an idea of the game.

```
if G=1
[[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]
[1,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1]
[1,0,0,0,0,0,1,1,1,0,1,0,1,0,2,1]
[1,0,1,0,0,0,1,1,0,0,0,0,1,0,0,1]
[1,0,1,0,1,2,0,1,0,0,0,0,0,0,0,1]
[1,0,1,1,1,0,0,0,0,0,0,0,0,0,3,1]
[1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]->[A]
Return
```