C PAT09.FOR C NAB/1736/SLA 31-JUL-79/23-AUGUST C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 11 M C OTS C FORTRAN OTS -- PATCH 9. INTEGER*2 DBLK(4),BUF(5),AREA(4) EXTERNAL RDCMP DATA DBLK/3RTT ,3R ,3R ,3R / IF (IQSET(5).NE.0) STOP ' NO ROOM FOR QUE' WRITE (5,50) 50 FORMAT (1X,' START THE PROGRAM') ICHAN=IGETC(K) IF (IFETCH(DBLK).NE.0) STOP ' BAD FETCH' IF (LOOKUP(ICHAN,DBLK).LT.0) STOP ' BAD LOOKUP' ICODE=IREADF(5,BUF,0,ICHAN,AREA,RDCMP) OPEN(UNIT=1,TYPE='UNKNOWN') CLOSE (UNIT=1) WRITE (5,100) 100 FORMAT (1X,' SUSPEND THE PROGRAM'//) CALL SUSPND END C SUBROUTINE RDCMP(ID,JD) EXTERNAL RDCMP WRITE (5,100) 100 FORMAT (1X,/' IT REACHED RDCMP'/) CALL RESUME RETURN END