home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / EGA_VGA / V_ALIVE.ZIP / MF.PF3 < prev    next >
Encoding:
Text File  |  1990-02-28  |  832 b   |  39 lines
  1. local $choice , $list , $title , $password
  2. czbreak off
  3. screen print 16 62 4 8 "Enter Password"
  4. screen input 17 66 4 4 6 $password
  5. if $password = "MOGULS"
  6.      jump mgr
  7. elseif $password = "CrAiG"
  8.      suspend
  9. else
  10.      beep
  11.      execute "Main2.rf3"
  12. end if
  13. label mgr
  14. let $list = "A B C D E"
  15. screen menu 11 60 15 62 3 8 4 15 1 $list $choice
  16. let $choice = group($list,$choice)
  17. case ($choice)
  18.      when "A"
  19.           execute "priceset"
  20.           execute "main2"
  21.      when "B"
  22.           execute "rinvt"
  23.           execute "main2"
  24.      when "C"
  25.           execute "rcust"
  26.           execute "main2"
  27.      when "D"
  28.           execute "nrelease"
  29.           execute "main2"
  30.      when "E"
  31.           execute "histsea"
  32.           execute "main2"
  33.      otherwise
  34.           beep
  35.           execute "main2"
  36. end case
  37.  
  38.  
  39.