* Open a text file
 
  OPEN.A.FILE:                                                        
   X.EXT = 0 ; X.CNT = 1                                                    
   LOOP                                                                     
     UNTIL X.CNT = 0 DO                                                     
       X.EXT += 1                                                           
       X.FILE.NAME = 'MYFILE.':OCONV(DATE(),'D2-'):'*':X.EXT          
       OPENSEQ 'SOME.UNIDATA.FILE', X.FILE.NAME TO F1 ELSE NULL                 
       GOSUB TEST.FILE                                                      
       IF X.CNT THEN CLOSESEQ F2                                            
   REPEAT                                                                   
 RETURN                                                                     
 TEST.FILE:                                                                 
   X.DONE = 0 ; X.CNT = 0                                                   
   LOOP                                                                     
     UNTIL X.DONE DO                                                        
       READSEQ TEST.REC FROM F1 THEN                                        
         X.CNT += 1                                                         
       END ELSE                                                             
         X.DONE = 1                                                         
       END                                                                  
   REPEAT
  RETURN