home *** CD-ROM | disk | FTP | other *** search
/ Shareware Tiger / SharewareTiger.cdr / x08 / memprnt.prg < prev    next >
Encoding:
Text File  |  1991-10-20  |  1.9 KB  |  85 lines
  1. * Program..: MEMPRNT.PRG
  2. SET TALK OFF
  3. SET BELL OFF
  4. SET STATUS ON
  5. SET ESCAPE OFF
  6. SET CONFIRM OFF
  7. SET SAFETY OFF
  8. SET ODOMETER TO 5
  9.  
  10. DO WHILE .T.
  11. CLEAR
  12. @ 2, 0 TO 15,79 DOUBLE
  13. @ 3,29 SAY [MEMBERS REPORT MENU]
  14. @ 4,1 TO 4,78 DOUBLE
  15. @ 7,30 SAY [1. PRINT LABELS 4 BY 1 7/16 ]
  16. @ 8,30 SAY [2. PRINT LABELS 3 1/2 BY 15/16 ]
  17. @ 9,30 SAY [3. PRINT A LIST OF MEMBERS]
  18. @ 10,30 SAY [4. FUTURE ***********]
  19. @ 11,30 SAY [5. FUTURE ***********]
  20. @ 12,30 SAY [6. FUTURE ***********]
  21. @ 13,30 SAY [7. FUTURE ***********]
  22. @ 15,30 SAY '0. EXIT to MAIN MENU'
  23. STORE 0 TO selectnum
  24. @ 17,33 SAY " select     "
  25. @ 17,42 GET selectnum PICTURE "9" RANGE 0,7
  26. READ
  27. DO CASE
  28. CASE selectnum = 0
  29. CLEAR
  30. RETURN
  31. CASE selectnum = 1
  32. GOTO 1
  33. DO WHILE .NOT. EOF()
  34. CLEAR
  35. @ 10,10 SAY "PRINTING OUT LABELS"
  36. @ 11,10 SAY "USING SIZE 4 * 1 7/16"
  37. WAIT
  38. LABEL FORM MEM1 NEXT 5 TO PRINT
  39. SKIP
  40. ENDDO
  41. STORE ' ' TO wait_subst
  42. @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  43. READ
  44. CASE selectnum = 2
  45. GOTO 1
  46. DO WHILE .NOT. EOF()
  47. CLEAR
  48. @ 10,10 SAY "PRINTING OUT LABELS"
  49. @ 11,10 SAY "USING SIZE 3 1/2 * 17/16"
  50. WAIT
  51. LABEL FORM MEM2 NEXT 5 TO PRINT
  52. SKIP
  53. ENDDO
  54. STORE ' ' TO wait_subst
  55. @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  56. READ
  57. CASE selectnum = 3
  58. CLEAR
  59. @ 10,10 SAY 'PRESS ALT CAPSLOCK IF YOU WANT COMPRESSED PRINT'
  60. WAIT
  61. REPO FORM MEMBERS HEAD 'BUDGIE MEMBERS LIST' TO PRINT
  62. STORE ' ' TO wait_subst
  63. @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  64. READ
  65. CASE selectnum = 4
  66. STORE ' ' TO wait_subst
  67. @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  68. READ
  69. CASE selectnum = 5
  70. STORE ' ' TO wait_subst
  71. @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  72. READ
  73. CASE selectnum = 6
  74. STORE ' ' TO wait_subst
  75. @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  76. READ
  77. CASE selectnum = 7
  78. STORE ' ' TO wait_subst
  79. @ 23,0 SAY 'Press any key to continue...' GET wait_subst
  80. READ
  81. ENDCASE
  82. ENDDO 
  83. RETURN
  84.  
  85.