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