improved fixed-form do parsing