home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / FLIGHTSI / VLIEGTUI / PL_X-30 / AIR2.TXT < prev    next >
Text File  |  1993-04-24  |  907b  |  41 lines
  1. ; AIRSPEED.TXT by Luke Douglas
  2. ; A simple adventure that will indicate an 
  3. ; aircraft's current airspeed. Very useful for jets
  4. ; that cruise off the FS4 airspeed indicator scale.
  5.  
  6. setvar(k,0)
  7. keywatch:
  8. if key("/")then
  9.        if altagl(0,0)
  10.        endif
  11.        printvar(result,"Your current AGL altitude is: ")
  12.        wait(2)
  13.        print ""
  14. endif
  15. ; Prompt for altitude MSL procedure
  16. if key("\")then
  17.         if altitude(0,0)
  18.         endif
  19.         printvar(result,"Your current altitude MSL is: ")
  20.         wait(2)
  21.         print ""
  22. endif
  23. ; Prompt for airspeed feature
  24. if key("0")then
  25.         if airspeed(0,0)
  26.         endif
  27.         printvar(result,"Your current airspeed in knots is: ")
  28.         wait(2)
  29.         print ""
  30. endif
  31. ; Prompt for end-of-file procedure
  32. if key("d")then
  33.         print "Exiting..."
  34.         wait(2)
  35.         print ""
  36.         eof
  37. endif
  38. goto keywatch
  39.  
  40.  
  41.