home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / EGA_VGA / V_ALIVE.ZIP / RF.PF3 < prev    next >
Encoding:
Text File  |  1990-02-28  |  667 b   |  31 lines
  1. local $choice , $list , $title ,
  2. czbreak off
  3. let $list = "A B C D E F"
  4. screen menu 11 3 17 5 3 8 4 15 1 $list $choice
  5. let $choice = group($list,$choice)
  6. case ($choice)
  7.      when "A"
  8.            execute "PRM#"
  9.            EXECUTE"MAIN2"
  10.      when "B"
  11.            execute "prct"
  12.            EXECUTE"MAIN2"
  13.      when "C"
  14.            execute "prti"
  15.            EXECUTE"MAIN2"
  16.      when "D"
  17.            execute "prca"
  18.            EXECUTE"MAIN2"
  19.      when "E"
  20.            execute "prlate"
  21.            EXECUTE"MAIN2"
  22.      when "F"
  23.            execute "endofday"
  24.            EXECUTE"MAIN2"
  25.      otherwise
  26.           beep
  27.           execute "main"
  28. end case
  29.  
  30.  
  31.