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