home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / EGA_VGA / V_ALIVE.ZIP / QUIT.PF3 < prev    next >
Encoding:
Text File  |  1990-02-28  |  756 b   |  51 lines
  1. local $choice , $list
  2. czbreak off
  3. file unload all
  4. screen clear 14 8 no-border
  5. screen draw box 7 25 17 56 14 8
  6. screen draw box 3 25 6 56 14 8
  7. screen print 4 29 13 8 " V I D E O   A L I V E"
  8. screen print 5 27 3 8 " Custom Video Shop Software."
  9. screen print 9 30 12 8 ". . . N O T I C E . . . "
  10. screen print 11 30 6 8 "  Have you completed"
  11. screen print 13 30 6 8 "  end of day report ?"
  12.  
  13.  
  14. let $list = "Yes No"
  15. screen menu 15 36 15 48 3 8 4 15 3 $list $choice
  16. let $choice = group($list,$choice)
  17. case ($choice)
  18.      when "No"
  19.          execute "eod"
  20.      otherwise
  21.          jump quit
  22. end case
  23.  
  24. label quit
  25. file unload all
  26. file load custom-view "messages.vw"
  27. data UPDATE ONLY-ONE
  28. quit quit
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.