home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PLINESYS.ZIP / KEY.CMD < prev    next >
Encoding:
Text File  |  1991-03-15  |  1.1 KB  |  57 lines
  1. *
  2. * KEY.CMD
  3. *
  4. * Test the IF KEY functions including responses from previous AnyKey
  5. * commands.  This is somewhat useful for logical branching.
  6. * 
  7. *    This is an example of doing menus
  8. *
  9.  
  10. Label Top
  11. OnError Ignore                // This comment should be ignored
  12.  
  13. * Print the Menu
  14. Clear
  15. Display                        // This comment should be ignored
  16.  
  17. Current Time: &TIME Date: &DATE
  18.  
  19.      Enter:
  20.          A - For Option A
  21.          B - For Option B
  22.          C - For Option C
  23.  
  24.  
  25. EndDisplay
  26.  
  27. *
  28. * Get the Response
  29. *
  30. AnyKey Local "Enter Option ABC or [RETURN] to Exit"
  31.  
  32. If Key ABC                // This comment should be ignored
  33.     If Key A
  34.         AnyKey Local "A - is a good choice ..."
  35.         Goto Top
  36.     EndIf
  37.     If Key B
  38.         AnyKey Local "B - is a good choice ..."
  39.         Goto Top
  40.     EndIf
  41.     If Key C
  42.         AnyKey Local "C - is a good choice ..."
  43.         Goto Top
  44.     EndIf
  45. EndIf
  46.  
  47. If Key ^M            // This comment should be ignored
  48.     AnyKey Local "Pressed [RETURN] Exiting ..."
  49.     Clear
  50.     Exit
  51. EndIf
  52.  
  53. // Else some invalid choice
  54. AnyKey Local "Invalid Choice ... Press [RETURN]"        // This comment should be ignored
  55. Goto Top
  56.  
  57.