Filename : “MNESWPPR” 
“LOADING PLUGINS” 
clrtxt 
prog ”FILL” 
lbl 1 
prog ”G” 
goto 1 
  

Filename: “A” 

Cls 
Plot 0,46 
Plot Q,46 
Line 
Plot 0,10 
Plot Q,10 
Line 
Plot 0,8 
Plot Q,8 
Line 
Plot 0,6 
Plot Q,6 
Line 
For 0->I to int (Q/6) 
Plot I*6,10 
Plot I*6,46 
Line 
Next 
For 1->I to 6 
Plot 0,(46-I*6) 
Plot Q,(46-I*6) 
Line 
Next 
For 2->I to 3 
Plot Q+I,43 
Plot Q+I,4 
Line 
Next 
For 3->I to 4 
Plot 3,I 
Plot Q+3,I 
Line 
Next 
  

Filename:”B” 
  

If X>=78 
Then 75->X 
Ifend 
If Y>=46 
Then 43->Y 
Ifend 
If Y<=10 
Then 13->Y 
Ifend 
X->O 
Y->P 
((int(X/6))+1)*6->A 
((int((Y-10)/6))+1)*6+10->B 
  

filename:”0” 

For 4 ->I to 2 step –1 
Plot A-I,B-2 
Plot A-I,B-4 
Line 
Next 
  

Filename:”1” 
  

Plot A-1,B 
Plot A-1,B-5 
Line 
Plot A-5,B 
Plot A-5,B-5 
Line 
Plot A-2,B-1 
Plot A-2,B-4 
Line 
Plot A-4,B-2 
Plot A-4,B-4 
Line 

Filename:”2” 

Plot A-5,B 
Plot A-5,B-5 
Line 
Plot A-4,B 
Plot A-4,B-5 
Line 
Plot  A-1,B-1 
Plot A-3,B-2 
Plot A-2,B-2 
Plot A-3,B-3 
Plot A-1,B-3 
Plot A-2,B-4 
Plot A-1,B-4 
  

Filename:”3” 

Plot A-5,B 
Plot A-5,B-5 
Line 
Plot A-4,B-1 
Plot A-3,B-2 
Plot A-2,B-2 
Plot A-4,B-3 
Plot A-3,B-3 
Plot A-1,B-3 
Plot A-3,B-4 
Plot A-2,B-4 
Plot A-4,B-5 
  

Filename :”4” 
  

Plot A-5,B-1 
Plot A-3,B-1 
Plot A-1,B-1 
Plot A-4,B-2 
Plot A-3,B-2 
Plot A-1,B-2 
Plot A-5,B-4 
Plot A-3,B-4 
Line 
Plot A-5,B-5 
Plot A-3,B-5 
Line 
Plot A-1,B-4 
Plot A-1,B-5 
  

Filename :”5” 

Plot A-5,B 
Plot A-5,B-5 
Line 
Plot A-3,B-2 
Plot A,B-2 
Line 
Plot A-4,B-4 
Plot A-2,B-4 
Line 
  

Filename :”6” 
  

Plot A-5,B 
Plot A-5,B-5 
Line 
Plot A-4,B-1 
Plot A-3,B-2 
Plot A-1,B-2 
Line 
Plot A-1,B-3 
Plot A-3,B-4 
Plot A-2,B-4 
Plot A-1,B-5 
  

Filename :”7” 

Plot A-5,B 
Plot A-5,B-5 
Line 
Plot A-4,B-2 
Plot A-4,B-5 
Line 
Plot A-3,B-2 
Plot A-3,B-5 
Line 
Plot A-2,B-2 
Plot A-1,B-3 
Plot A-1,B-5 
Line 
  

Filename :”8” 
  

Plot A-5,B 
Plot A-5,B-5 
Line 
Plot A-4,B-3 
Plot A-1,B-3 
Plot A-3,B-2 
Plot A-2,B-2 
Plot A-2,B-4 
Plot A-3,B-4 
  

Filename :”C1” 

0 ->S 
If frac((L-1)/6)<>0 
Then if list6[L-1]=1 
Then  S+1 ->S 
Ifend 
Ifend 
If (L+5)<78 
Then If frac((L+5)/6)<>0 
Then if list6[L+5]=1 
Then S+1 ->S 
Ifend 
Ifend 
Ifend 
If (L+6)<=78 
Then if list6[L+6]=1 
Then S+1->S 
Ifend 
Ifend 
If (L+7)<=78 
Then if frac ((L+6)?6)<>0 
Then if list6[L+7]=1 
Then S+1->S 
Ifend 
Ifend 
Ifend 
If frac (L?6)<> 0 
Then if list6[L+7]=1 
Then S+1->S 
Ifend 
Ifend 
If L>6 
Then If  frac (L?6)<>0 
Then if list6[L-5]=1 
Then S+1->S 
Ifend 
Ifend 
Ifend 
If L>6 
Then if list6[L-6]=1 
Then S+1->S 
Ifend 
Ifend 
If L>7 
Then if frac ((L-1)?6)<>0 
Then if list6[L-7]=1 
Then S+1->S 
Ifend 
Ifend 
Ifend 

Filename :”C2” 

Prog “C1” 
If S=0 
Then prog “0” 
Ifend 
If S=1 
Then prog”1” 
Ifend 
If  S=2 
Then prog “2” 
If S=3 
Then prog “3” 
Ifend 
If S=4 
Then prog “4” 
If S=5 
Then prog “5” 
Ifend 
If S=6 
Then prog “6” 
Ifend 
If S=7 
Then prog “7” 
Ifend 
If S=8 
Then prog “8” 
Ifend 

Filename :”G” 

ViewWindow 0,78,0,0,46,0 
Lbl X 
“ENTER LEVEL” 
“1 TO 9”?->Q 
Int Q->Q 
If Q<=0 
Then goto X 
Ifend 
If Q>=10 
Then goto X 
Ifend 
24+(Q*6)->Q 
0->Z 
Lbl 0 
“# BOMBS”?->G 
Int G->G 
If G>=Q 
Then “TOO MANY BOMBS” 
Goto 0 
Ifend 
If G<=0 
Then “FOOL…” 
Goto 0 
Ifend 
“# BONUS FRAMES”?->H 
Int H->H 
If H>=(Q-G) 
Then “UNABLE TO COMPLY” 
Goto 0 
Ifend 
Fill(0,list6) 
Fill(0,list5) 
Prog ”LVL” 
Prog “A” 
0->I 
Q?G->A 
0->B 
While IInt (ran#(78)+1)->R 
If list6[R]=0 
Then 1->list6[R] 
I+1->I 
B+A->B 
Plot 0,7 
Plot B,7 
Line 
Ifend 
WhileEnd 
List6->list5 
Prog “BNS” 
Lbl 1 
Plot O,P 
Prog “B” 
A-(B-10)?6+1->L 
If list6[L]=2 
Then goto 1 
Else if list6[L]=1 
Then prog “BAM” 
2->list6[L] 
for 1->F to 78 
If list6[F]=1 
Then F->L 
Prog “L” 
Prog “B” 
Prog “BOMB” 
Ifend 
Next 
Drawgraph@ 
Return 
Ifend 
Ifend 
2->list6[L] 
Prog “C2” 
Z+1->Z 
If Z=(Q-G-H) 
Then clrtext 
“ “ 
“  YOU WIN “ 
“ “ 
“ “@ 
Drawgraph@ 
Return 
Ifend 
Goto 1 
  

Filename :”BOMB” 
  

Plot A-1,B 
Plot A-1,B-5 
Line 
Plot A-4,B-1 
Plot A-2,B-1 
Plot A-3,B-2 
Plot A-4,B-2 
Plot A-2,B-3 
Plot A-5,B 
Plot A-5,B-3 
Line 
  

Filename :”L” 
  

If frac (L?6)=0 
Then (L?6)*6-1->X 
12->Y 
else int ((L?6)+1)*6-1->X 
46-(frac(L?6)*36)+1->Y 
Ifend 
  

Filename :”BNS” 
  

0->M 
If H<=0 
Then plot 0,9 
Plot Q,9 
Line 
Else Q?H->U 
Ifend 
0->V 
While MInt(ran#(78))+1->R 
If list5[R]=0 
Then R->L 
V+U->V 
Plot 0,9 
Plot V,9 
Line 
M+1->M 
1->list5[R] 
2->list6[R] 
Prog “L” 
Prog “B” 
Prog “C2” 
Ifend 
WhileEnd 

Filename :”LVL” 

If 0<>78 
Then for Q+1->I to 78 
2->list6[I] 
next 

Filename :”BAM” 
  

Prog “B” 
Plot A-2,B-1 
Plot A-4,B-1 
Plot A-5,B-2 
Plot A-1,B-2 
Plot A-5,B-4 
Plot A-1,B-4 
Plot A-4,B-5 
Plot A-2,B-5 
  

Filename :”FILL” 
  

G SelOff 1 
G SelOff 2 
G SelOff 3 
G SelOff 4 
G SelOff 5 
G SelOff 6 
G SelOff 7 
G SelOff 8 
G SelOff 9 
G SelOff 10 
For the following lines 
Do not put newline   symbol until you reach 
 closing brace. 
{0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0, 
  0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0, 
  0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0, 
  0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0}->list6 
For the following lines 
Do not put newline   symbol until you reach 
 closing brace. 
{0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0, 
  0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0, 
  0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0, 
  0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0}->list5 

                              end of code 

Program size: 
    program : 3290 bytes 
    list          : 1560 bytes 
    draw      : 1160 bytes 
    alpha      : 170   bytes 
                    6180 bytes 

Error in running the program: 

Whenever it happens that a memory error message ( Mem Error ) appears on the screen in running the program, 
press MENU, 8, and Exe.Then, delete everything there except Program : 3290. 

Still error message appears aside from memory error, check the encoded codes. Maybe you typed a wrong symbol or else send me message.I might be wrong typing the symbols. 

send to : snoperg@mailcity.com