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

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,"©"
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,"©"
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,"@"
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«««"