on gosub, ocr