【例】 1 1 2 2 2 3 3 4 4 4 5 5 6 6 6 7 7----2---6---0---4---8---2---6---0---4---8---2---6---0---4---8---2 OPEN INPUT INP-FILE. OPEN OUTPUT OUT-FILE REF-FILE. READ INP-FILE AT END MOVE FLG-TRUE TO FLG-END END-READ. WRITE OUT-REC FROM INP-REC. WRITE REF-REC FROM WK1-HEAD AFTER 2. CLOSE INP-FILE OUT-FILE REF-FILE.