home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol227 / church.lbr / INDEX.CMD < prev    next >
Encoding:
Text File  |  1986-02-10  |  1.9 KB  |  90 lines
  1. *
  2. * INDEX 8/23/83 BY R. SHIPP (460-9353)
  3. ERASE
  4. ? '============================================='
  5. ?
  6. ? 'SELECT ITEM TO INDEX ON FROM THE FOLLOWING:'
  7. ? '-------------------------------------------'
  8. ?
  9. ? '     1. FAMILY NAME CODE (CODEF)'
  10. ?
  11. ? '     2. ZIP (USE FOR MAILING LABELS)'
  12. ?
  13. ? '     3. AGE (YEAR YY)'
  14. ?
  15. ? '     4. MAP (MAP 34B3)'
  16. ?
  17. ? '     5. PHONE NUMBER (PHONE 460-9353)'
  18. ?
  19. ? '     6. DO NOT REINDEX FILE'
  20. ? '           USE OLD INDEX FILE (MASTER1)'
  21. ?
  22. ? '     /. EXIT BACK TO MAIN MENU'
  23. ?
  24. ? ' ENTER ONE OF THE ABOVE NUMBERS:'
  25. ?
  26. ? '============================================'
  27. WAIT TO ASK
  28. DO CASE
  29.    CASE ASK = '1'
  30.       STORE 'CODEF' TO IFIELD
  31.    CASE ASK = '2'
  32.       STORE 'ZIP' TO IFIELD
  33.    CASE ASK = '3'
  34.       STORE 'YEAR' TO IFIELD
  35.    CASE ASK = '4'
  36.       STORE 'MAP' TO IFIELD
  37.    CASE ASK = "5"
  38.       STORE 'PHONE' TO IFIELD
  39.    CASE ASK = '6'
  40.       STORE 'NO' TO IFIELD
  41.    CASE ASK ='/'
  42.       USE
  43.       DO MENU
  44.    OTHERWISE
  45.       DO NOGOOD
  46.       DO INDEX
  47. ENDCASE
  48. DO CASE
  49.    CASE IFIELD ='NO'
  50. OTHERWISE
  51. ERASE
  52. ?
  53. ?
  54. ?
  55. ? '********************************************'
  56. ? '*                                          *'
  57. ? '*   PLEASE WAIT I AM INDEXING THE FILE     *'
  58. ? '*   ----------------------------------     *'
  59. ? '*                                          *'
  60. ? '*   I AM DOING MY THING !!!!               *'
  61. ? '*                                          *'
  62. ? '*                                          *'
  63. ? '*   I WILL LET YOU KNOW AFTER I INDEX      *'
  64. ? '*                                          *'
  65. ? '*   EACH ONE HUNDREY RECORDS.              *'
  66. ? '*                                          *'
  67. ? '********************************************'
  68.    USE B:&FILE
  69.    INDEX ON &IFIELD TO A:&IFILE
  70. ENDCASE
  71. ENDCASE
  72. RETURN
  73. * THE END -- INDEX
  74. *
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.