C THIS FORTRAN PROGRAM USES THE TIMESHARING SPAWN SUBROUTINE C TO LOOK LIKE AN MCR. C INTEGER TASK(2) INTEGER CMD(40) INTEGER IESB(8) INTEGER IDS DATA TASK(1) /3R.../ 10 TYPE 20 20 FORMAT ('$MCR> ') 30 READ (5,40,END=80,ERR=10) CMD 40 FORMAT (40A2) 50 CALL IRAD50(3,CMD,TASK(2)) C C WE HAVE GOTTEN A COMMAND LINE. NOW CALL THE T/S "SPAWN" TO RUN THE ... C TASK WITH THE SPECIFIED COMMAND LINE. THE EVENT FLAG NUMBER IS ZERO, WHICH C TELLS THE ROUTINE TO WAIT FOR SUBTASK COMPLETION BEFORE RETURNING TO THE C MAIN PROGRAM. C 60 CALL TSPAWN(TASK,,0,IESB,CMD,79,,IDS) 65 TYPE 67,IESB(1) 67 FORMAT (' *EXIT STATUS=',I1) 70 IF (IDS.EQ.1) GOTO 10 75 GOTO 100 80 CALL EXIT 100 IF (IDS.EQ.0) GOTO 200 110 TYPE 120,IDS 120 FORMAT (/' *ERROR - DSW=',I6,'.') 130 GOTO 80 200 TYPE 210,IESB 210 FORMAT (/' *TCP FAILURE - EXIT STATUS BLOCK: ', 1 6(/1X,I6,'.')) 220 GOTO 80 END