DWSRC

[i]DWCE
[Sigmay]DWSPRITE
det(0
det(5,0
det(63,0,32,0,2,2
Pause
1->K
128->X
160->Y
1->R
0->W
det(75,255
1->F
Lbl DRAWSCREEN
If W=1
{16,16,16,16,16,16,5,5,5,5,16,16,16,5,5,5,5,5,5,21,16,5,5,5,5,5,5,5,5,5,5,5,5,5,20,5,5,5,18,18,5,5,5,5,5,5,18,18,18,18,5,5,5,5,18,18,18,18,18,18,5,5,18,18,18,18,18,18,18,18,5,18,18,18,18,18,18,18,22,22}->L1
End
If W=2
{5,5,5,5,5,16,16,16,16,16,5,5,5,5,5,5,16,16,16,16,5,5,5,5,5,5,5,16,16,16,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5}->L1
End
If W=3
{5,5,5,5,5,5,18,18,18,18,5,5,5,5,5,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,6,6,6,18,18,18,18,18,6,6,6,6,6,6,18,18,18,18,22,6,6,6,6,6,6,6,18,18}->L1
End
If W=4
{19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
If W=5
{19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
If W=6
{19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
If R=1
{8,8,8,8,8,8,8,8,8,8,8,7,7,7,7,7,7,7,7,8,8,7,9,9,9,9,9,9,7,8,8,7,9,10,9,9,11,9,7,8,8,7,7,7,7,7,7,7,7,8,8,7,7,7,7,7,7,7,7,8,8,7,7,7,7,7,7,7,7,8,8,8,8,8,12,8,8,8,8,8}->L1
End
If R=2
{8,7,7,7,7,7,7,7,7,8,8,8,8,8,12,8,8,8,8,8,8,7,7,7,7,7,7,7,14,8,8,8,8,8,8,8,8,8,8,8,13,13,13,13,13,13,13,13,13,13,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
If R=3
{8,8,8,8,8,8,8,8,8,8,8,7,7,7,7,7,7,7,7,8,8,15,7,7,7,7,7,8,7,8,8,7,7,7,7,7,7,7,7,8,8,8,8,7,7,7,7,8,8,8,8,16,16,7,7,7,7,16,16,8,8,16,16,7,7,7,7,16,16,8,8,16,5,7,7,7,7,5,16,8}->L1
End
If R=4
{8,16,5,7,7,7,7,5,16,8,8,5,5,7,7,7,7,5,5,8,8,5,5,7,7,7,7,5,5,8,8,5,7,7,7,7,7,7,5,8,8,5,7,18,18,18,18,7,5,8,7,7,7,18,17,17,18,7,7,7,7,7,7,18,17,17,18,7,7,7,8,8,7,18,18,18,18,7,8,8}->L1
End
If R=5
{8,8,7,18,18,18,18,7,8,8,7,8,7,7,7,7,7,7,8,7,7,8,8,7,7,7,7,8,8,8,7,7,8,7,7,7,7,8,7,7,7,7,8,7,7,7,7,8,7,7,8,7,8,7,7,7,7,8,7,7,7,7,8,7,7,7,7,8,7,7,7,7,8,8,7,7,8,8,7,7}->L1
End
If R=6
{7,7,8,8,7,7,8,8,7,7,7,7,8,7,7,7,7,8,7,7,8,8,8,8,7,7,8,8,8,8,5,5,5,5,7,7,5,5,5,5,5,5,5,5,5,5,5,5,5,5,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
If R=7
{19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
If R=8
{19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
If R=9
{19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
If R=10
{19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19}->L1
End
0->A->B
det(9,0
det(5,6
For(Z,0,79
	det(63,L1(Z),A,B,2,2
	A+32->A
	If A>288
	0->A
	B+32->B
End
End
det(2,0
det(20,0
det(21,95
det(74,1,3
det(36,0,218,35,30
det(19,1,220
det(17,"SAVE
det(36,66,218,39,30
det(19,70,220
det(17,"MENU
det(36,211,218,47,30
det(19,215,220
det(17,"STATS
det(11,0
Lbl DRAWSPRITE
[i]det(13,1,0,60,20
det(21,231
det(19,0,0
det(74,2,2
det(16,R,2
det(19,0,15
det(16,W,2
If F=0
det(13,1,A,B,32,32
End
0->F
If K=1 or K=2 or K=3 or K=4
det(63,K,X,Y,2,2
X->A
Y->B
End
Lbl GETKEY1
getKey->K


If K=1
If R=1
If Y=192
If X=128
2->R
64->Y
Goto DRAWSCREEN
Else
Goto DRAWSPRITE
End
End
End
If R=2
If Y=(X=128) or Y=64
Goto DRAWSPRITE
End
End
If R=3
If Y=192
0->Y
4->R
Goto DRAWSCREEN
End
End
If R=4
If Y=192 and (X=32 or X=32 or X=288 or X=320)
Goto DRAWSPRITE
End
If Y=192
5->R
0->Y
Goto DRAWSCREEN
End
End
If R=5
If Y=32 and (X=64 or X=224)
Goto DRAWSPRITE
End
If Y=192
6->R
0->Y
Goto DRAWSCREEN
End
End
If R=6
If Y=128
0->R
1->W
128->X
Goto DRAWSCREEN
End
End
Y+16->Y
End


If K=2
If R=1
If X=32
Goto DRAWSPRITE
End
End
If R=2
If X=32
Goto DRAWSPRITE
End
End
If R=3
If X=64 and Y=64
2->R
240->X
Goto DRAWSCREEN
End
If X=32
Goto DRAWSPRITE
End
End
If R=4
If X=32
Goto DRAWSPRITE
End
End
If R=5
If X=96 and Y>=48
Goto DRAWSPRITE
End
If X=64 and Y<64
Goto DRAWSPRITE
End
End
If W=1
If X=0
288->X
2->W
Goto DRAWSCREEN
End
End
If W=3
If X=0
288->X
1->W
Goto DRAWSCREEN
End
End
X-16->X
End


If K=3
If R=1
If X=256
Goto DRAWSPRITE
End
End
If R=2
If X=240 and Y=64
3->R
64->X
Goto DRAWSCREEN
End
If X=256
Goto DRAWSPRITE
End
End
If R=3
If X=256
Goto DRAWSPRITE
End
End
If R=4
If X=256
Goto DRAWSPRITE
End
End
If R=5
If X=192 and Y>=48
Goto DRAWSPRITE
End
If X=224 and Y<96
Goto DRAWSPRITE
End
End
If W=1
If X=288
0->X
3->W
Goto DRAWSCREEN
End
End
If W=2
If X=288
0->X
1->W
Goto DRAWSCREEN
End
End
X+16->X
End


If K=4
If R=1
If Y=32
Goto DRAWSPRITE
End
End
If R=2
If Y=0
192->Y
1->R
Goto DRAWSCREEN
End
If Y>=64 and X!=128
Goto DRAWSPRITE
End
End
If R=3
If Y=32
Goto DRAWSPRITE
End
End
If R=4
If Y=0
192->Y
3->R
Goto DRAWSCREEN
End
End
If R=5
If Y=0
192->Y
4->R
Goto DRAWSCREEN
End
End
If R=6
If Y=0
5->R
192->Y
Goto DRAWSCREEN
End
End
If W=1
If X=128 and Y=128
128->Y
6->R
0->W
Goto DRAWSCREEN
End
End
Y-16->Y
End

If K=15
det(1
Return
End
If K=53
Goto SAVE
End
If K
Goto DRAWSPRITE
End
Goto GETKEY1
Return
Lbl SAVE
det(9,1
det(2,0
det(36,40,40,50,50
det(2,254
det(35,41,41,48,48
det(35,42,42,46,46
det(19,46,46
det(74,2,3
det(20,0
det(21,254
det(17,"SAVE
Lbl SAVEGETKEY
getKey->K
If K=53
Goto DRAWSCREEN
End
If K
Goto SAVE
End
Goto SAVEGETKEY
Lbl STO
[i]BASIC SHIT
Goto SAVE
Return