JOHNSON.PAT