*
* DEL/ADD 8/23/83  BY R. SHIPP (460-9353)
USE
ERASE
? '==============================================='
?
? ' ENTER NEW DATA OVER DELETED RECORD '
? ' ----------------------------------'
?
? '(*) TYPE NEW DATA INTO RECORD '
?
? '    OVER OLD DATA NOW IN FILE'
?
? '     1 = CONTINUE'
?
? '     / = EXIT BACK TO MAIN MENU'
?
? 'ENTER ONE OF THE ABOVE'
?
? '==============================================='
WAIT TO TEMP
IF TEMP='/'
     USE
     DO MENU
ENDIF
STORE T TO LOOKING
USE B:&FILE
GO TOP
DO WHILE LOOKING
IF *
   STORE STR(#,4) TO RECORD
   ERASE
? '=============================================='
?
? 'I FOUND A DELETED RECORD TO BE USED.'
?
? 'AFTER YOU HAVE REACHED THE RECORD TO BE REUSED.'
? 'DO THE FOLLOWING '
?
? '     1. CONTROL U TO UNDELETE THE RECORD.'
?
? '     2. ADD NEW DATA OVER EXISTING DATA.'
?
? '     3. CONTROL W TO EXIT TO RECORD ASKED.'
?
? 'NOTE: (*)RETURN ONLY CONTINUE TO CHECK FOR NEXT'
? '         DELETE RECORD.'
? '      (*)ENTER THE RECORD NUMBER BELOW TO GO'
? '         INTO EDIT MODE. *** RECORD # = '+RECORD
? '      (*)ENTER / TO EXIT TO MAIN MENU'
?
? '============================================='
ACCEPT ' ' TO TOBE
DO CASE
   CASE TOBE = '/'
     USE
     DO MENU
ENDCASE
     IF TOBE = ' '
         SKIP
            IF EOF
               STORE F TO LOOKING
               LOOP
            ENDIF
         LOOP
     ENDIF
ELSE
  SKIP
    IF EOF
        STORE F TO LOOKING
        LOOP
    ENDIF
  LOOP
ENDIF
GOTO &RECORD
EDIT
ENDDO
ERASE
? '==============================================='
?
? 'THERE ARE NO DELETED RECORDS NOW IN THIS FILE'
?
? '     USE THE APPEND MODE (# 4 ON MENU)'
?
? '          TO ADD NEW DATA.'
?
? 'PRESS ANY KEY TO CONTINUE'
?
? '==============================================='
WAIT
USE
DO MENU
* THE END -- DEL/ADD
*

R-1) TO COUNTER
IF COUNTER = 0
   STORE STR(PAGE,3) TO MPAGE
   SET PRINT ON
                           REM2 WITH MREM2
T WITH0-9353)
USE
ERASE
? '==============================================='
?
? ' ENTER NEW DATA OVER DEE RECORD.'
? '