QUIC-N-EASI FILE REGENERATION UTILITY ENTER OLD DATA FILE NAME [ ] ENTER OLD FID FILE NAME [ ] ENTER NEW DATA FILE NAME [ ] ENTER NEW FID FILE NAME [ ] PRESS ENTER TO START REGENERATION PRESS FUNCT 0 TO QUIT *** MAKE SURE THAT THERE IS ROOM FOR THE NEW DATA FILE *** *** BEFORE YOU PRESS ENTER! *** OLDDAT 14 437X YYNNL OLDFID 14 537X YYNNL NEWDAT 14 737X YYNNL NEWFID 14 837X YYNNL STATUS 402016 NNNNL 100 PROC ENTER CLEAR STATUS* TRY TO OPEN THE OLD DATA FILE FIRST ERRTRAP 9990 OPEN OLDDAT USING OLDFID,1 ERRTRAP* CREATE THE NEW DATA FILE ERRTRAP 9991 MAKE NEWDAT USING NEWFID,2 ERRTRAP* SAVE TYPE IN #N0, GET THE NEW RECORD LENGTH IN #N1 FILETYPE 2 IF #N0=2 THEN CALC #N1=#N1-2 IF #N0=3 THEN CALC #N1=#N3-9* CLEAR THE OUTPUT DATA BUFFER PUT ' ' TO 2 FOR #N1* CLEAR THE RECORD COUNT IN #N2 MOVE 0 TO #N2 200* TRANSFER THE DATA FILE300 READ 1 :400 ADD 1,#N2 COPY 1 TO 2 IF #N0=2 THEN WRITE 2 :9992 IF #N0=3 THEN WRITE 2 NOADV :9992 GOTO 300* ALL DONE400 MOVE #N2 TO STATUS MOVE " RECORDS REGENERATED" TO STATUS[*] CLOSE END1000* ERROR TRAPS9990: ERRTRAP MOVE " FOR INPUT" TO #S0[*] ERROR #S0 END9991: ERRTRAP MOVE " FOR OUTPUT" TO #S0[*] ERROR #S0 CLOSE 1 END9992: ERROR "WRITE ERROR ON OUTPUT FILE" CLOSE END PROC ERROR ERROR #S0 CLOSE HOMECLEAR END1BAD VRBL INDEX QUIC-N-EASI FILE REGENERATION UTILITY