14 lines
237 B
Plaintext
14 lines
237 B
Plaintext
|
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
|