        rem AIM&SHOT
        rem Allows user to enter a direction and distance
        rem to fire the mortar.

        100 locate 20,64: print "              "
            locate 21,64: print "              "
            locate 20,64
            input "Direction?",dir : rem ask for direction
            locate 21,64
            input "Range?",range   : rem ask for target range
            aim = dir : rem turn the mortar to direction spec.
            shot = range : rem fire off the mortar
        110 if shot>5 then 110: rem wait for mortar to cool.
            goto 100
