home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / database / pk4pak.zip / MENU.SC < prev    next >
Text File  |  1993-02-03  |  1KB  |  48 lines
  1. Message "Welcome to PD4PAK, a collection of Paradox tools from Elect Software.",
  2.        "The first time the programs run, they will take some time to compile."
  3.  
  4. While True
  5.    ShowPullDown
  6.       "Slides":"Demonstration slides":"Slides",
  7.       "EventDemo":"EventMan demo":"EventDemo",
  8.       "ButtonMan":"ButtonMan demo":"ButtonMan",
  9.       "HelpMan":"HelpMan":"HelpMan",
  10.       "Calendar":"Elect's popup calendar":"Calendar",
  11.       "PopCalc":"Elect's popup calculator":"Calculator",
  12.       "Video":"Toggle video":"Video",
  13.       "Quit":"Exit demo":"Quit"
  14.    EndMenu
  15.    GetMenuSelection to MenuTag
  16.    ClearPullDown
  17.    Switch
  18.       Case MenuTag = "Slides":
  19.          Play "Conf"
  20.       Case MenuTag = "EventDemo":
  21.          Play "Edemo"
  22.       Case MenuTag = "ButtonMan":
  23.          Play "Buttnman"
  24.       Case MenuTag = "HelpMan":
  25.          Play "HelpEdit"
  26.       Case MenuTag = "Calculator":
  27.          Play "Calc"
  28.       Case MenuTag = "Calendar":
  29.          Play "Date"
  30.       Case MenuTag = "Video":
  31.          Sysinfo To SysinfoBag
  32.          AltSpace "V"
  33.          If SysinfoBag["ScreenHeight"] > 30 Then
  34.             "C"
  35.          Else
  36.             "D"
  37.          Endif
  38.          Echo Normal
  39.          Echo Off
  40.       Case MenuTag = "Quit":
  41.          QuitLoop
  42.    EndSwitch
  43.    Reset
  44.    Release vars all
  45.    Release procs all
  46.    Prompt
  47.    Echo off
  48. EndWhile