home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / EGA_VGA / V_ALIVE.ZIP / IF.PF3 < prev    next >
Encoding:
Text File  |  1990-02-28  |  378 b   |  18 lines
  1. local $choice , $list , $title ,
  2. czbreak off
  3. let $list = "A B"
  4. screen menu 5 60 7 62 3 8 4 15 1 $list $choice
  5. let $choice = group($list,$choice)
  6. case ($choice)
  7.      when "A"
  8.           execute "invnew"
  9.           execute "main2"
  10.      when "B"
  11.           execute "SEARCH"
  12.           execute "main2"
  13.      otherwise
  14.           beep
  15.           execute "main2"
  16. end case
  17.  
  18.