!JOB
!LIMIT (TIME,20),(CORE,30)
!.  THE FOLLOWING COMMANDS ARE AN EXAMPLE OF WHAT IS NEEDED TO USE THIS
!.  VERSION OF EXTRACT.
!.
!.  THESE COMMANDS WERE USED TO GENERATE THE EXERCISER DOCUMENT.
!.  NOTE THAT THE (BLOCK,XXXX) IS THE ONLY MAJOR DIFFERENCE.
!.  THIS IS REQUIRED TO MAKE THE EXTRACT GO INTO BLOCK MODE. WITH THE
!.  NEW SOURCE UPDATES NO TAPE WILL BE OPENED. ANY DUMMY SERIAL NUMBER
!.  CAN BE USED. ALL OTHER COMMANDS WORK EXACTLY AS DOCUMENTED, YOU CAN
!.  EVEN USE THIS EXTRACT TO CREATE THE DATA BASE.
!.
!.
!.  !SET F:108 LP;VFC      108 IS OUTPUT NOW
!.  !REPORT.
!.  RE (DATA,EXERDB),(CODES,P,F,E),(SORT,CODE),;
!.  (BLOCK,XXXX),(ORDER,P,F,E),(FORMAT,CODE,MODULE),(LINES,38),;
!.  (HEADING,C00,CODE,CPV EXERCISER SYSTEM),;
!.  (MODULES,EXDATA)
!.  END
!.  THE FILE EXDATA CONTAINS THE FOLLOWING RECORDS:
!.
!.  EXER
!.  DEFINE
!.  MASTER
!.  MAIN
!.  TEST1
!.  TEST2
!.  TEST3
!.  TEST4
!.  TAPTST
!ASSIGN M:CI,(FILE,EXTRACTCI,X),(IN)
!AP SI,CI,GO,LU
+22
*
*        ADDITIONS FOR EXERCISERS TO EXTRACT
*        HAVE *JBC* IN COLS 76-80
*
         REF      MYWRITE,J:TCB,F:108                                      *JBC*
         DEF      EXTRACT                                                  *JBC*
+1031,1031
         NOP                        DONT OPEN M:BLK                        *JBC*
+2339,2339
         STW,R12  HEADBUF+15                                               *JBC*
+2366,2366
         BAL,14   CALLWRITE         GO WRITE BLOCK                         *JBC*
+2392,2392
         BAL,14   CALLWRITE         GO WRITE BLOCK                         *JBC*
+2401
         LCI      0                                                        *JBC*
         PSM,0    *J:TCB                                                   *JBC*
         LI,14    2                                                        *JBC*
         BAL,15   MYWRITE                                                  *JBC*
         GEN,8,24 1,BLOCK                                                  *JBC*
         GEN,8,24 1,I:PAGE#                                                *JBC*
         LCI      0                                                        *JBC*
         PLM,0    *J:TCB                                                   *JBC*
         B        *14                                                      *JBC*
I:PAGE#  DATA,4   15                                                       *JBC*
+2531,2531
         BAL,14   CALLWRITE                                                *JBC*
+2533,2533
NXT1     M:CLOSE  F:108,(SAVE)      CLOSE F:108 WITH SAVE                  *JBC*
+END
!EOD
!FORT LS,GO
      DIMENSION IBUF2(30)
      IPOINT=0
      CALL  EXTRACT
      SUBROUTINE MYWRITE (IBUF1,IPAGE)
      DIMENSION IBUF1(300)
      IPOINT=0
20    I=0
      IF(IPOINT.EQ.300) GOTO 10
      DO 30 I=1,30
      IPOINT=IPOINT+1
30    IBUF2(I)=IBUF1(IPOINT)
      IF(IBUF2(1).NE.4H1C00) GOTO 40
      IBUF2(1)=4H C00
      IBUF2(22)=IBUF2(3)
      IBUF2(23)=IBUF2(4)
      IBUF2(24)=4HMODU
      IBUF2(25)=4HLE
      IBUF2(26)=4H LIN
      IBUF2(27)=4HE
      IBUF2(IPAGE)=4HPAGE
      WRITE (108,200) IBUF2
200   FORMAT ('1',30A4)
      GOTO 20
40    DO 50 J=2,10
      IF (IBUF2(J).NE.4H****) GOTO 60
50    CONTINUE
8
      GOTO 20
60    IBUF2(20)=4H
      WRITE (108,300) IBUF2
300   FORMAT(1X,30A4)
      GOTO 20
10    RETURN
      END
!EOD
!LOAD (GO),(EF,(:J0,:SYS)),(MAP,NAME,VALUE),(LMN,REPORT),(PERM)

