filename "G.WAR" 
1 -> k 
prog "INI" 
lbl 1 
"1.start game 2.options "? -> F 
if F=2 
then "1.by level   2.skirmish  3.windows"? ->Z 
if Z=1 
then 1 ->k 
else if Z=2 
then 2 ->K 
else "window(1/0 )"?->w 
if w <> 1 
then 0 ->W 
ifend 
ifend 
ifend 
else goto 2 
ifend 
goto 1 
lbl 2 
if Z=1 
then prog "A2" 
else prog "A" 
ifend 
  

filename "A" 

prog "1A" 
10 ->Q 
for 1 -> I to 9 step S 
int (ran#(l*5)) -> list6[I] 
next 
int (ran#(8))*6 -> list6[10] 
lbl  0 
prog "B" 
plot K,V@ 
Y -> V 
X -> K 
prog "C" 
prog "I" 
goto 0 
  

filename "B" 

if N=1 
then 6*int(ran#(8)) -> list6[Q] 
ifend 
cls 
for 0 -> I to 8 
plot I*8,0 
plot I*8,list6[I+1] 
line 
plot I*8+8,list6[I+1] 
line 
plot I*8+8,0 
line 
next 
if W=1 
then prog "E" 
ifend 
for 1-> I to 8 
plot 72,I*6 
plot 77,I*6 
line 
next 
plot 72,46 
plot 72,list6[10]+6 
line 
plot 72,0 
plot 72,list6[10] 
line 
list6[1] ->F 
prog "G1" 
if N<>3 
then list6[Q] ->F 
prog "G2" 
else prog "L" 
ifend 
  

filename "C" 

0 ->T 
10 ->A 
if N=3 
then list6[Q]+5 ->list6[Q] 
ifend 
do 
2+A -> A 
if A>= 78 
then 1 -> T 
else (A-10)*tan K-(9.8*(A-10)^2)/(2V^2*(cos K)^2) -> B 
{^2 denotes square,X^2 =X square} 
B+list6[1]+4 ->B 
if B<=list6[Int (A/8)+1] 
then 1-> T 
ifend 
ifend 
plot A,B 
if B<=1 
then 1->T 
ifend 
lpwhile t=0 
if B<=47 
then for 1-> I to 5 
plot A,B 
plot 3+ran#(67),3+ran#(37) 
line 
next 
ifend 
if n=3 
then list6[Q]-5 ->list6[Q] 
ifend 
prog "W" 
  

filename "G1" 

plot 1,F+1 
plot 7,F+1 
line 
plot 1,F+2 
plot 6,F+2 
line 
plot 2,F+3 
plot 7,F+3 
line 
plot 3,F+4 
plot 5,F+4 
line 
plot 7,F+4 
plot 8,F+4 
plot 8,F+5 
plot 4,F+5 
plot 4,F+6 
line 
plot 5,F+6 
plot 5,F+5 
line 
  

filename "G2" 
  

plot P,F+1 
plot P-3,F+1 
line 
plot P,F+2 
plot P-1,F+2 
polt P-4,F+2 
plot P-5,F+2 
plot P,F+3 
plot P-8,F+3 
line 
plot P-1,F+4 
plot P-1,F+5 
plot P-2,F+4 
plot P-2,F+5 
plot P-7,F+5 
  

filename "W" 
  

if B>=list6[Q] 
then if B<=list6[Q]+5 
then if A>=7.8*(Q-1) 
then if A<=7.8*Q 
then " " 
"  YOU WIN" 
" " 
" " 
1 ->U 
if Z=2 
then stop 
ifend 
ifend 
ifend 
ifend 
ifend 
  
  

filename "I" 

if list6[1]-3 >= list6[Q] 
then goto 2 
else goto 1 
ifend 
if list6[1]+3<=list6[Q] 
then goto 2 
else goto 1 
ifend 
lbl 1 
for 1 -> I to 10 
1+int(ran#(5))+list6[Q] ->F 
plot P-8,list6[Q]+3 
plot 0,F 
line 
if F=list6[1]+6 
then prog "LS" 
ifend 
next 
lbl 2 
plot P,list6[Q]+3 
plot 0,list6[Q]+R 
line 
for 1->I to 20 
plot 100,100 
next 
  

filename "LS" 

for 1->I to 25 
plot 5,list6[1] 
plot ran#(70),ran#(45) 
line 
next 
" " 
"     LOSE " 
stop 


filename "E" 

for 1 -> I to 9 
(I-1)*7.8 ->J 
list6[I]->F 
while F>4 
F-3->F 
plot J+3,F 
plot J+3,F-1 
plot J+5,F 
plot J+5,F-1 
F-2->F 
whileEnd 
next 
  

filename "L" 

if R=1 
then 3+int(ran#(6)) ->Q 
ifend 
list6[Q]->F 
7.8*Q->P 
prog "G2" 
  
  

filename "A2" 

if F<>-0.5 
then 0 ->L 
0->N 
0->R 
ifend 
do 
0->U 
"LEVEL" 
if F<>-0.5 
then 1+L->L 
ifend 
L@ 
if L>=21 
then prog "END" 
ifend 
if int((L-1)/5)=1 
then 1->N 
ifend 
if int((L-1)/5)=2 
then 3->N 
int(ran#(7))+3->Q 
ifend 
if int ((L-1)/5)=3 
then 1->R 
ifend 
for 1->I to 9 step(1+int(ran#(2)) 
int(ran#(9*frac((L-1)/5)*5)->list6[I] 
next 
if N=3 
then 3+list6[Q]->list6[Q] 
ifend 
int(ran#(8))*6->list6[10] 
prog "IC" 
do 
prog "B" 
plot K,V@ 
X->K 
Y->V 
prog "C" 
if U<>1 
then prog "I" 
ifend 
lpwhile U=0 
lpwhile U<>2 
  

filename "INI" 

" " 
"  ~G~ WAR" 
" " 
0->L 
" " 
77->P 
" " 
"  WWW." 
viewwindow 0,78,0,0,46,0 
"   SNOPERG." 
10->Q 
"   GAMESPAGE." 
{0,0,0,0,0,0,0,0,0,0}->list6 
"   COM."@ 
  

filename "IC" 
  

if list6[1]then list6[1]->F 
list6[2]->list6[1] 
F->list6[2] 
ifend 
if N<>3 
then while list6[10]6+list6[10]->list6[10] 
whileEnd 
ifend 
  

filename "END" 
  

" " 
" CONGRAT'S" 
"GAME FINISHED"@ 


filename  "1A" 

0->R 
1->N 
"ENEMY'S" 
"IN/OUT(1/0)"?->F 
if F=0 
then 3->N 
ifend 
"MOVING (1/0)"?->F 
if F=0 
then if N=3 
then 0->R 
else 0->N 
ifend 
ifend 
"BUILDINGS" 
"ARE FEW(1/0)"?->F 
if F=1 
then 2->S 

else 1->S 
ifend 
do 
"LEVEL(1->7)"?->L 
int L -> L 
if L>7 
then -1->L 
ifend 
lpwhile L<=0 

                            end of code 

Program size: 
    program : 2553 bytes 
    list          : 100   bytes 
    draw      : 1160 bytes 
    alpha      : 170   bytes 
                    3983 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, and 8.Then, delete everything there exceptProgram : 2553. 

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