just the pointers cptr=1 11 continue ! End of block nrec=nrec+1 goto 10 1000 call closec(chan) close (unit=51) call exit 2000 if(i.eq.-1) stop 'File already open' if(i.eq.-2) stop 'FNF' if(i.eq.-3) stop 'Device in use' if(i.eq.-4) stop 'TAPE DRIVE NOT AVAIL' call exit end integer function hex(arg) c c This function returns the hexidecimal character c of its argument. The argument must be a value c between 0 and 15 (one nybble). c byte arg if(arg .lt. 10) hex = arg +