'Boxworld by Lionel Baboud
'casio site:http://perso.wanadoo.fr/duobab/
'e-mail:roland.baboud@wanadoo.fr
'-----------

Characters translation :
------------------------

|  >=   : greater or equal
|  <=   : less or equal
|  <>   : not equal
|  ->   : the single arrow
|  =>   : the double arrow
|  <pi> : the Pi symbol


ClrText
" "
" "
" "
Green " "
5 -> A
3 -> B
1 -> C~D
2 -> G~H
Locate 7,4,"BOXWORLD"
Do
A -> M
B -> N
A=1 Or A=11 => -G -> G
A+G -> A
B=1 Or B=7 => -H -> H
B+H -> B
Locate M,N,"           "
Locate A,B,"PRESS A KEY"
For 1 -> L To 20:Next
Getkey -> K
LpWhile K=0
Do
ClrText
"LEVEL(1 -> 13)"? -> L
Int L -> L
LpWhile L>13 Or L<1
Lbl 0
ClrText
0 -> Q
2 -> A~B
0 -> C~E
4 -> F
If L=1
Then [[1,1,1,1,1,1,1][1,0,0,0,0,0,1][1,1,1,2,1,1,1][1,0,2,0.3,0.3,0,1][1,0,1,0,1,0,1][1,0,0,0,0,0,1][1,1,1,1,1,1,1]] -> Mat B
2 -> F
IfEnd
If L=2
Then [[1,1,1,1,1,1,1,0][1,0.3,0.3,1,1,0,1,1][1,0.3,2,0,2,2,0,1][1,2.3,0,2,0,0,0,1][1,0.3,0,0,1,1,1,1][1,1,1,1,1,0,0,0]] -> Mat B
6 -> A:5 -> F:1 -> E
IfEnd
If L=3
Then [[0,1,1,1,1,1,1,1,0][1,1,0.3,0,0,0,0.3,1,0][1,0,0,2,1,1,0,1,1][1,0,0,2,0,2,0,0,1][1,1,0,1,1,2,0,0,1][0,1,0.3,0,0,0,0.3,1,1][0,1,1,1,1,1,1,1,0]] -> Mat B
5 -> A:4 -> B
IfEnd
If L=4
Then [[0,1,1,1,1,0,0,1,1,1,1,1][1,1,0,0,1,0,0,1,0,0,0,1][1,0,2,0,1,1,1,1,2,0,0,1][1,0,0,2,0.3,0.3,0.3,0.3,0,2,0,1][1,1,0,0,0,0,1,0,0,0,1,1][0,1,1,1,1,1,1,1,1,1,1,0]] -> Mat B
9 -> A:5 -> B
IfEnd
If L=5
Then [[1,1,1,1,1,1,1,1,1,1][1,0,0,0,0,0,0,0.3,0.3,1][1,0,1,1,0,0,0,0.3,0.3,1][1,0,0,2,0,1,0,1,0,1][1,1,2,0,2,0,2,0,0,1][1,1,0,0,0,0,0,1,0,1][1,1,1,1,1,1,1,1,1,1]] -> Mat B
IfEnd
If L=6
Then [[1,1,1,1,1,1,1,1,1,1,1][1,0.3,0,0,1,1,0.3,0,0,0.3,1][1,1,2,2,0,0,0,1,0,1,1][1,0,2,0,1,0,0,1,0,1,0][1,0,2,0,1,0,0,0,0,1,0][1,0,1,0,0,0,1,0,0.3,1,0][1,1,1,1,1,1,1,1,1,1,0]] -> Mat B
6 -> B
IfEnd
If L=7
Then [[0,0,0,1,1,1,1,1,1,0][0,1,1,1,0,0,0,0,1,0][1,1,0.3,0,2,1,1,0,1,1][1,0.3,0.3,2,0,2,0,0,0,1][1,0.3,0.3,0,2,0,2,0,1,1][1,1,1,1,1,1,0,0,1,0][0,0,0,0,0,1,1,1,1,0]] -> Mat B
9 -> A:4 -> B:5 -> F
IfEnd
If L=8
Then [[1,1,1,1,1,1,1,1,1,1,1,0][1,0,0,0,0,1,0,0,0,0,1,0][1,0,1,1,2,1,0,2,0,0,1,0][1,0,0.3,0.3,0,1,1,1,0,1,1,1][1,0,0.3,0,0,0,0,0,0,0,0,1][1,1,0.3,1,0,1,0,0,0,0,0,1][0,1,0,2,0,0,0,1,1,2,0,1][0,1,0,0,0,1,0,0,1,0,0,1][0,1,1,1,1,1,1,1,1,1,1,1]] -> Mat B
1 -> C:-2 -> D
IfEnd
If L=9
Then [[0,0,1,1,1,1,1,1][0,0,1,0,0,0,0,1][1,1,1,2,2,2,0,1][1,0,0,2,0.3,0.3,0,1][1,0,2,0.3,0.3,0.3,1,1][1,1,1,1,0,0,1,0][0,0,0,1,1,1,1,0]] -> Mat B
4 -> B:5 -> F
IfEnd
If L=10
Then [[0,1,1,1,1,1,1,1,1,1,0][0,1,0,0,1,1,0,0,0,1,0][0,1,0,0,0,2,0,0,0,1,0][0,1,2,0,1,1,1,0,2,1,0][0,1,0,1,0.3,0.3,0.3,1,0,1,0][1,1,0,1,0.3,0.3,0.3,1,0,1,1][1,0,2,0,0,2,0,0,2,0,1][1,0,0,0,0,0,1,0,0,0,1][1,1,1,1,1,1,1,1,1,1,1]] -> Mat B
8 -> A:7 -> B:6 -> F:1 -> C:-2 -> D
IfEnd
If L=11
Then [[0,0,0,1,1,1,1,1,0,0][0,1,1,1,0,0,0,1,0,0][1,1,0,2,0,1,0,1,1,1][1,0,2,0,0,0,2,0,0,1][1,0,1,0,1,1,2,1,0,1][1,.3,.3,.3,.3,0,0,0,0,1][1,1,1,1,1,1,1,1,1,1]] -> Mat B
7 -> A
IfEnd
If L=12
Then [[0,0,1,1,1,1,1,0][1,1,1,0,0,0,1,0][1,0,0,2,.3,0,1,1][1,0,0,.3,2,.3,0,1][1,1,1,0,2.3,2,0,1][0,0,1,0,0,0,1,1][0,0,1,1,1,1,1,0]] -> Mat B
6 -> A:1 -> E
IfEnd
If L=13
Then [[1,1,1,1,0,0,0,0][1,0,0,1,1,1,0,0][1,0,0,0,0,1,1,1][1,0,1,2,0,0,.3,1][1,0,2,0,2,.3,.3,1][1,0,2,0,.3,1,1,1][1,0,0,1,1,1,0,0][1,1,1,1,0,0,0,0]] -> Mat B
-1 -> D
IfEnd
Dim Mat B -> List 1
For 1 -> W To List 1[1]+D
For 1 -> Z To List 1[2]
Mat B[W+C,Z] -> V
V=1 => Locate Z,W,"#"
V=2 => Locate Z,W,"O"
V=0.3 => Locate Z,W,"x"
V=2.3 => Locate Z,W,"@"
Next
Next
Locate 16,2,"RETRY"
Locate 17,3,"[F1]"
Locate 17,5,"EXIT"
Locate 16,6,"[EXE]"
Locate 15,4,Q
Do
Locate A,B,"Ð"
Do:Getkey -> K
LpWhile K=0
If K=31
Then LpWhile 1=0
Goto E
IfEnd
If K=79
Then LpWhile 1=0
Goto 0
IfEnd
A -> G
B -> H
K=27 => A+1 -> G
K=28 => B-1 -> H
K=37 => B+1 -> H
K=38 => A-1 -> G
(Mat B[H+C,G]=1) => LpWhile 1=1
Locate A,B," "
Mat B[B+C,A]=0.3 => Locate A,B,"x"
If Mat B[H+C,G]<1
Then G -> A
H -> B
LpWhile 1=1
IfEnd
2G-A -> M
2H-B -> N
If (Int Mat B[N+C,M]=0)
Then 2+Mat B[N+C,M] -> Mat B[N+C,M]
Mat B[H+C,G]-2 -> Mat B[H+C,G]
Locate G,H,"Ð"
If Mat B[N+C,M]=2.3
Then Locate M,N,"<pi>"
1+E -> E
Else Locate M,N,"O"
IfEnd
Mat B[H+C,G]=0.3 => E-1 -> E
G -> A
H -> B
Q+1 -> Q
Locate 15,4,Q
IfEnd
LpWhile E <> F
Locate A,B," "
For 1 -> K To 6:" ":Next
ClrText
[[1]] -> Mat B
Orange "YEAH!"
"NUMBER OF TURNS:":Q
Stop
Lbl E
[[1]] -> Mat B
ClrText
"BOUUHHHH!!!"