0  GELLOAD "title","ping.bmp":D RAWGEL "title",0 ,0 
  :  
1  IF FIRE(0 )<>0  THEN GOTO 6 
   5    
2  IF GAMEA(0 )<>0 THEN STOP 
  1    
3  GOTO 0 
      5   1() 
6  CLS:MX%=1 :MY%=1 :X%=0 :Y%=0 :PY%=150 :LEV%=1 
: :  mx%  my%(        =0 y=0      +1 ) :   150  (    30 :  
7  L%=5:GELLOAD "kub","p/kub.bmp":G ELLOAD "k","heart.bmp" 
 5:    
10  GELLOAD "p1 ","p/p1.bmp" 
  
15SPRITEGEL "kub","kub" 
     
16 SPRITEGEL "k","k" 
 
20  SPRITEGEL "p1 ","p1" 
 
30 SPRITEMOVE "kub",X%,Y%   
31  DRAWSTRING "PING |LIVE:"+ STR$(L%)+ "|LEVEL:"+ STR$ (LEV%)+ "|>"+ STR$(O%),0 ,160 
   :| |   
32 SPRITEMOVE "k",KX%,KY% 
  
35  SPRITEMOVE "p1",PX%,PY% 
 
  
40  IF X%<=0  THEN MX%=2 
       Cd;  +2 
41  IF KY%<=-15  THEN KX%=63+ MOD(RND(0 ),63) 
     15(    )        (    ) 
42  KY%=KY%+1    +1  
43  IF KY%>=170  THEN KY%=-700 N KY%=-700 
           (   ) 
45  IF Y%<=0  THEN MY%=2 
        
50  IF X%>=126  THEN MX%=-2 
    
55  IF Y%>=170  THEN CLS:L%=L%-1 :MY%=-2 
     ( )            
56  IF L%<=0  THEN GOTO 100 
    game over! 
60  IF LEFT(0 )<>0  THEN PX%=PX%-2 
    
65  IF RIGHT(0 )<>0  THEN PX%=PX%+2 
  
70  IF PX%<=0  THEN PX%=0 
      
75  IF PX%>=102  THEN PX%=102 
    
80 S%=SPRITEHIT("p1"," kub") 
     
81 S1%=SPRITEHIT("k"," kub") 
   
82  IF S1 %=1  THEN CLS:L%=L%+1 :KY%=- 4001 :KY%=-400 
            :  :    
83  IF S%=1  THEN CLS:O%=O%+1 :MY%=-2 
                
85  IF O%>=30  THEN CLS:X%=0 :Y%=0 :PY%=PY%-2 :LEV%=LEV%+1 :O%=0 :L%=L%+3 
  30 ( )    :   :     :   1 :     3  
86  GOSUB 90 
     
87  GOTO 30 
90  X%=X%+MX% 
  
92  Y%=Y%+MY% 
  
95 RETURN 
100 PRINT "GAME OVER!" 
110 PRINT "RESTART?""RESTART?" 
120 INPUT " > ",R% 
125  IF R%=5  THEN GOTO 1 
B  !