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