home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / EGA_VGA / V_ALIVE.ZIP / MAIN2.PF3 < prev    next >
Encoding:
Text File  |  1990-02-28  |  2.8 KB  |  96 lines
  1. local $choice , $cashier , $list , $title , $password , $sp
  2. local $choice1 , $list1 , $new
  3. czbreak off
  4. label MAIN
  5. screen clear 14 8 no-border
  6. screen draw box 3 1 8 23 14 8
  7. screen draw box 9 1 19 23 14 8
  8. screen draw box 3 25 6 56 14 8
  9. screen draw box 3 58 8 80 14 8
  10. screen draw box 9 58 19 80 14 8
  11. screen draw box 7 25 17 56 14 8
  12. screen print 2 1 14 8 "   .         .         .         .         .         .          .          .         "
  13. screen print 4 29 13 8 " V I D E O   A L I V E"
  14. screen print 5 27 3 8 " Custom Video Shop Software."
  15. screen print 3 5 15 8 " Customer Menu "
  16. screen print 9 4 15 8 " Custom Reports "
  17. screen print 7 35 15 8 " Main Menu "
  18. screen print 3 61 15 8 " Inventory Menu "
  19. screen print 9 62 15 8 " Manager Menu "
  20. screen print 9 32 3 8 "Enter Rental Invoice"
  21. screen print 10 32 3 8 "Enter Rental Returns"
  22. screen print 11 32 3 8 "Customer File Menu"
  23. screen print 12 32 3 8 "Inventory File Menu"
  24. screen print 13 32 3 8 "Manager File Menu"
  25. screen print 14 32 3 8 "Custom Reports Menu"
  26. screen print 15 32 12 8 "Quit"
  27. screen print 15 37 13 8 "VIDEO ALIVE"
  28.  
  29. screen print 5 4 3 8 "A  Add Customer"
  30. screen print 6 4 3 8 "B  Search Customer"
  31.  
  32. screen print 5 61 3 8 "A  Add Movie"
  33. screen print 6 61 3 8 "B  Search Movie"
  34.  
  35. screen print 11 4 3 8 "A  Invt. Movie #"
  36. screen print 12 4 3 8 "B  Invt. Catagory"
  37. screen print 13 4 3 8 "C  Invt. Title"
  38. screen print 14 4 3 8 "D  Cust. Activity"
  39. screen print 15 4 3 8 "E  Late Report"
  40. screen print 16 4 3 8 "F"
  41. screen print 16 7 12 8 "END OF DAY "
  42.  
  43. screen print 11 61 3 8 "A  Set Price Codes"
  44. screen print 12 61 3 8 "B  Update Movies"
  45. screen print 13 61 3 8 "C  Update Customer"
  46. screen print 14 61 3 8 "D  New Releases"
  47. screen print 15 61 3 8 "E  Review History"
  48. screen print 16 62 4 8 "Enter Password"
  49. screen print 20 1 14 8 "   .         .         .         .         .         .          .          .         "
  50. screen print 21 15 4 8 "VIDEO ALIVE   Copyright (@)1990   Forever Computers."
  51. screen print 22 10 14 8 "  Licensed Exclusively to Jay's Music & Video Inc. Pawt. R.I."
  52. screen print 18 27 15 8 "... Move Space or Press ..."
  53. screen print 19 27 15 8 "           Letter           "
  54. let $list = "A) B) C) D) E) F) G)"
  55. screen menu 9 27 15 31 3 8 4 15 1 $list $choice
  56. let $choice = group($list,$choice)
  57. case ($choice)
  58.      when "A)"
  59.            execute "invoice"
  60.            JUMP MAIN
  61.      when "B)"
  62.            execute "return"
  63.            JUMP MAIN
  64.      when "C)"
  65.            execute "CF"
  66.            JUMP MAIN
  67.      when "D)"
  68.            execute "IF"
  69.            JUMP MAIN
  70.      when "E)"
  71.            execute "MF"
  72.            JUMP MAIN
  73.      when "F)"
  74.            execute "RF"
  75.            JUMP MAIN
  76.      when "G)"
  77.            execute "quit"
  78.            JUMP MAIN
  79.      when "0"
  80.           execute "START"
  81.      otherwise
  82.           execute "m"
  83. end case
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.