The UPDATE...WHERE moves the record pointer to the bottom of the file, so after the first UPDATE it's already at the EOF. YOu'd want a GOTO r or something before ENDSCAN.

Also, you don't need a GO TOP before a scan, it will automatically do that.