15 lines
277 B
Plaintext
15 lines
277 B
Plaintext
OPENSEQ "/users/don/don2.asc" TO IFILE ELSE ABORT
|
|
OPEN 'LRTES' TO OFILE ELSE ABORT
|
|
EOF=0
|
|
LOOP
|
|
READSEQ IREC FROM IFILE ELSE EOF=1
|
|
UNTIL EOF DO
|
|
USER=TRIM(IREC[1,15])
|
|
RATE=TRIM(IREC[66,99])
|
|
IF NUM(USER) THEN
|
|
RATE=(RATE*100)'R%10'
|
|
WRITE RATE ON OFILE,USER
|
|
END
|
|
REPEAT
|
|
STOP
|