c OPORopenOtOSOS OSOS prveof = 0 eofflg = -1 do while (prveof .ge. 0) OPOuOPORintegerOt OPOp OS OPOSOpOPOSOpOl OlOtOqOqOP3Ol apptOtOpOpOpOpOp OP3OScOSOtOr integer prveof, eofflgOt OpOpOpOpOpOpOp OpOpOpOtOx OSOSOpOl OtOpOpOlOpOpOS OSOpOpOpOpOpOp OpOpOpOpOtOqOq bigOpOpOtOq OqislpyrOP4Ol( OmOmOl)OtOp OpOpOpOpOpOSOp Op OpOpOpOpOpOp OtOtOP8OSOSOSOp OpOpOSOpOP8OS OSOSOpOpOSOpOP8OS OP8OSOP8OSOpOp OP8OSOSOS OtOr ! Locate N OuOx OxOtOxOxOxOtOx OxOSOS OlOtOxOpOpOpOp OpOPOuOPORdanyOt OndtcalcdowOvOROPOM OPOuOPORgabyOtOPORmischyOt OPORcalcdowOtOtOt OxOPORiyOuOROR OROtOP5OROtOtOx OuOxOxOtOxOx c ***OtOrOrOrOr OrOrOrOr irqh ash(1) = ihymdOP10Ol OlOP4OlOP4Ol , Ol,OP5OlOl Or)OtOpOpOpOp OpOpOpOSOPORdtcdatcvtOu OtOPOSOPOwquit/saveOM