home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / verifdel.acg < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.2 KB  |  71 lines
  1. * verifdel.cmd 02/08/83 sml
  2. * verify records which have been marked for deletion
  3.  
  4. * start looking for deleted records
  5. GOTO TOP
  6. LOCATE FOR *
  7.  
  8. * set up the loop
  9. STORE t TO more
  10. DO WHILE more .AND. (.not. eof)
  11.   
  12.   *setup screen
  13.   SET FORMAT TO SAY-rec 
  14.   STORE 'Verify deleted records' TO mode
  15.   STORE '<C>ontinue, <E>dit, <D>elete/Recall, <P>rint, <Q>uit ' TO prompt1
  16.   STORE ' ' TO prompt2
  17.   STORE ' ' TO prompt3
  18.   STORE '?' TO command
  19.   
  20.   * check to see if current record is marked for deletion
  21.   *  DO delcheck.acg
  22.   IF *
  23.     STORE 'Deleted' TO deleted
  24.   ELSE
  25.     STORE ' ' TO deleted
  26.   ENDIF * 
  27.   
  28.   * show it on the screen
  29.   READ
  30.   
  31.   * find out what to do next
  32.   DO CASE
  33.       
  34.     CASE command = 'D' 
  35.   * DO DELETE.acg
  36.  
  37.   IF *
  38.     RECALL
  39.   ELSE
  40.     DELETE
  41.   ENDIF * 
  42.       
  43.     CASE command = 'E' 
  44.       STORE # to recordno
  45.       SET INDEX TO
  46.       GOTO recordno
  47.       RELEASE recordno
  48.       RECALL 
  49.       DO EDIT.acg
  50.       
  51.     CASE command = 'P' 
  52.       DO PRINT.acg
  53.       
  54.     CASE command = 'Q' 
  55.       STORE f TO more
  56.       
  57.     CASE command = 'C' 
  58.       CONTINUE
  59.       
  60.   ENDCASE 
  61.   
  62. ENDDO WHILE more .AND. (.not. eof) 
  63.  
  64. * release local memory variables
  65. RELEASE mode, prompt1, prompt2, prompt3
  66.  
  67. * put memory back the way it was
  68. STORE t TO more
  69. STORE '?' TO command
  70.  
  71.