setup /inodta/
in to be determined from typewriter or card reader input (later)
in =5    setup in subroutine prmred
in0=98   setup in subroutine prmred or read from title card
iout =6  setup in subroutine prmred

ihc215, ihc221 - ihc225  set to unlimited allowable errors.
in subroutine prntot the program is stopped if any errors occured
(unlimited allowed to this point to catch all input errors). if no
such errors, errset called to set number of allowed errors to none
and program continues.