; AIRSPEED.TXT by Luke Douglas
; A simple adventure that will indicate an 
; aircraft's current airspeed. Very useful for jets
; that cruise off the FS4 airspeed indicator scale.

setvar(k,0)
keywatch:
if key("/")then
       if altagl(0,0)
       endif
       printvar(result,"Your current AGL altitude is: ")
       wait(2)
       print ""
endif
; Prompt for altitude MSL procedure
if key("\")then
        if altitude(0,0)
        endif
        printvar(result,"Your current altitude MSL is: ")
        wait(2)
        print ""
endif
; Prompt for airspeed feature
if key("0")then
        if airspeed(0,0)
        endif
        printvar(result,"Your current airspeed in knots is: ")
        wait(2)
        print ""
endif
; Prompt for end-of-file procedure
if key("d")then
        print "Exiting..."
        wait(2)
        print ""
        eof
endif
goto keywatch


