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