home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol227 / church.lbr / DELADD.CMD < prev    next >
Encoding:
Text File  |  1986-02-10  |  2.5 KB  |  105 lines
  1. *
  2. * DEL/ADD 8/23/83  BY R. SHIPP (460-9353)
  3. USE
  4. ERASE
  5. ? '==============================================='
  6. ?
  7. ? ' ENTER NEW DATA OVER DELETED RECORD '
  8. ? ' ----------------------------------'
  9. ?
  10. ? '(*) TYPE NEW DATA INTO RECORD '
  11. ?
  12. ? '    OVER OLD DATA NOW IN FILE'
  13. ?
  14. ? '     1 = CONTINUE'
  15. ?
  16. ? '     / = EXIT BACK TO MAIN MENU'
  17. ?
  18. ? 'ENTER ONE OF THE ABOVE'
  19. ?
  20. ? '==============================================='
  21. WAIT TO TEMP
  22. IF TEMP='/'
  23.      USE
  24.      DO MENU
  25. ENDIF
  26. STORE T TO LOOKING
  27. USE B:&FILE
  28. GO TOP
  29. DO WHILE LOOKING
  30. IF *
  31.    STORE STR(#,4) TO RECORD
  32.    ERASE
  33. ? '=============================================='
  34. ?
  35. ? 'I FOUND A DELETED RECORD TO BE USED.'
  36. ?
  37. ? 'AFTER YOU HAVE REACHED THE RECORD TO BE REUSED.'
  38. ? 'DO THE FOLLOWING '
  39. ?
  40. ? '     1. CONTROL U TO UNDELETE THE RECORD.'
  41. ?
  42. ? '     2. ADD NEW DATA OVER EXISTING DATA.'
  43. ?
  44. ? '     3. CONTROL W TO EXIT TO RECORD ASKED.'
  45. ?
  46. ? 'NOTE: (*)RETURN ONLY CONTINUE TO CHECK FOR NEXT'
  47. ? '         DELETE RECORD.'
  48. ? '      (*)ENTER THE RECORD NUMBER BELOW TO GO'
  49. ? '         INTO EDIT MODE. *** RECORD # = '+RECORD
  50. ? '      (*)ENTER / TO EXIT TO MAIN MENU'
  51. ?
  52. ? '============================================='
  53. ACCEPT ' ' TO TOBE
  54. DO CASE
  55.    CASE TOBE = '/'
  56.      USE
  57.      DO MENU
  58. ENDCASE
  59.      IF TOBE = ' '
  60.          SKIP
  61.             IF EOF
  62.                STORE F TO LOOKING
  63.                LOOP
  64.             ENDIF
  65.          LOOP
  66.      ENDIF
  67. ELSE
  68.   SKIP
  69.     IF EOF
  70.         STORE F TO LOOKING
  71.         LOOP
  72.     ENDIF
  73.   LOOP
  74. ENDIF
  75. GOTO &RECORD
  76. EDIT
  77. ENDDO
  78. ERASE
  79. ? '==============================================='
  80. ?
  81. ? 'THERE ARE NO DELETED RECORDS NOW IN THIS FILE'
  82. ?
  83. ? '     USE THE APPEND MODE (# 4 ON MENU)'
  84. ?
  85. ? '          TO ADD NEW DATA.'
  86. ?
  87. ? 'PRESS ANY KEY TO CONTINUE'
  88. ?
  89. ? '==============================================='
  90. WAIT
  91. USE
  92. DO MENU
  93. * THE END -- DEL/ADD
  94. *
  95.  
  96. R-1) TO COUNTER
  97. IF COUNTER = 0   STORE STR(PAGE,3) TO MPAGE
  98.    SET PRINT ON
  99.                            REM2 WITH MREM2T WITH0-9353)
  100. USE
  101. ERASE
  102. ? '==============================================='
  103. ?
  104. ? ' ENTER NEW DATA OVER DEE RECORD.'
  105. ? '