#def acc
#def turnok
#def hltlvl
#def rng

     opo        17,3                     
     int        3                        
:666
     ipo        6, ax                    
     cmp        ax, 25                   
     ja         7                        
     int        4                        
:7
     ipo        7, rng                   
     cmp        rng, 1500                
     ja         13                       
     ipo        2, ax                    
     cmp        ax, 230                  
     ja         14                       
     gosub      15                       
     jmp        666
:13
     opo        11,0
     opo        12,5                     
     jmp        666                      
:14
     ipo        8,acc                    
     add        acc, acc                 
     opo        12,acc                   
     ipo        16,ax                    
     cmp        ax,0
     jls        20
     mov        bx,@1
     sub        ax,bx
     add        ax,128
     opo        14,ax
     opo        11,100
:20
     jmp        666
:15
     mov        turnok,1
     ipo        8,acc                    
     add        acc, acc                 
     opo        15,acc                   
     opo        15,acc                   
     opo        15,acc                   
     opo        12,acc                   
     cmp        rng,350                  
     jb         20
     ipo        4,ax
     opo       14,ax
     opo       11,100
     jmp        25
:20
     opo        11,0
:25
     return
#END