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

ClrText
" "
" "
" "
Green " "
5A
3B
1C~D
2G~H
Locate 7,4,"BOXWORLD"
Do
AM
BN
A=1 Or A=11‡GG
A‰GA
B=1 Or B=7‡HH
B‰HB
Locate M,N," "
Locate A,B,"PRESS A KEY"
For 1L To 20:Next
GetkeyK
LpWhile K=0
Do
ClrText
"LEVEL(113)"?L
Int LL
LpWhile L>13 Or L<1
Lbl 0
ClrText
0Q
2A~B
0C~E
4F
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
2F
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
6A:5F:1E
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
5A:4B
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
9A:5B
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
6B
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
9A:4B:5F
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
1C:™2D
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
4B:5F
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
8A:7B:6F:1C:™2D
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
7A
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
6A:1E
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
™1D
IfEnd
Dim Mat BList 1
For 1W To List 1[1]‰D
For 1Z To List 1[2]
Mat B[W‰C,Z]V
V=1Locate Z,W,"#"
V=2Locate Z,W,"O"
V=0.3Locate Z,W,""
V=2.3Locate 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:GetkeyK
LpWhile K=0
If K=31
Then LpWhile 1=0
Goto E
IfEnd
If K=79
Then LpWhile 1=0
Goto 0
IfEnd
AG
BH
K=27A‰1G
K=28B™1H
K=37B‰1H
K=38A™1G
(Mat B[H‰C,G]=1)LpWhile 1=1
Locate A,B," "
Mat B[B‰C,A]=0.3Locate A,B,""
If Mat B[H‰C,G]<1
Then GA
HB
LpWhile 1=1
IfEnd
2G™AM
2H™BN
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]™2Mat B[H‰C,G]
Locate G,H,""
If Mat B[N‰C,M]=2.3
Then Locate M,N,"@"
1‰EE
Else Locate M,N,"O"
IfEnd
Mat B[H‰C,G]=0.3E™1E
GA
HB
Q‰1Q
Locate 15,4,Q
IfEnd
LpWhile EF
Locate A,B," "
For 1K To 6:" ":Next
ClrText
[[1]]Mat B
Orange "YEAH"
"NUMBER OF TURNS:":Q
Stop
Lbl E
[[1]]Mat B
ClrText
"BOUUHHHH"