!     This program will clear out R2 and R3 records in Report-IV forcing it to
!     rephase all reports when they are run                                   
00010 REM CLREPT - Clear out R2 & R3 records in REPORT-IV                     
00100 PRINT 'CS',;                                                            
      OPEN(10) "IDDBD";                                                       
      K0$="q"                                                                 
00110 READ (10,KEY=K0$,DOM=00120)                                             
00200 K$=KEY(10);                                                             
      IF K$(1,1)<>K0$                                                         
         IF K0$="q"                                                           
            K0$="r";                                                          
            GOTO 00110                                                        
         ELSE                                                                 
            GOTO 00300                                                        
       ELSE                                                                   
         IF CVT(K$(4,6),128)=""                                               
            REMOVE (10,KEY=K$);                                               
            GOTO 00200                                                        
         ELSE                                                                 
            IF LEN(K$)=9 AND POS("IDQURY"=K$)<>2                              
               READ RECORD (10,KEY=K$)R$;                                     
               PRINT R$(73,2),"-",K$(2,8);                                    
               DIM R1$(256,$00$);                                             
               R$(73,2)="",                                                   
               R$(80,8)="",                                                   
               R1$(1,87)=R$;                                                  
               WRITE RECORD(10,KEY=K$) R1$                                    
               READ(10,KEY=K$(1,9)+"2",DOM=00200);                            
               PREAD (10);                                                    
               GOTO 00200                                                     
            ELSE                                                              
               IF POS("IDQURY"=K$)=2 OR POS(K$(10,1)="16;@EJOTY^oh")=0        
                  IF STL(K$)=9                                                
                     PRINT "   ",K$(2,8)                                      
                  ELSE                                                        
                     PRINT K$(10,1),"-",K$(2,8)                               
                  FI;                                                         
                  REMOVE (10,KEY=K$);                                         
                  GOTO 00200                                                  
               ELSE                                                           
                  READ(10,KEY=K$);                                            
                  GOTO 00200