OPEN 'CM' TO IFILE ELSE ABORT
OPEN 'USER' TO OFILE ELSE ABORT
SELECT IFILE
LOOP
 READNEXT ID ELSE ID='EOF'
UNTIL ID = 'EOF' DO
 READ IREC FROM IFILE,ID THEN
  FOR X=1 TO 7
   OREC<X>=IREC<X>
  NEXT X
  WRITE OREC ON OFILE,ID
 END
REPEAT