$JOB KERMIT KERMIT_1  SGO=500                                           0001.000
$NOTE  REPLACE KERMIT4 WITH KERMIT4F FOR S.KERMIT                       0002.000
$NOTE COMPILING KERMIT                                                  0003.000
$OPTION 2 5 3 4 19 15                                                   0004.000
$FORT77                                                                 0005.000
$SELECTF KERMIT0                                                        0006.000
$SELECTF KERMIT1                                                        0007.000
$SELECTF KERMIT2                                                        0008.000
$SELECTF KERMIT3                                                        0009.000
$SELECTF KERMIT4                                                        0010.000
$SELECTF KERMIT5                                                        0011.000
$IFT ABORT END                                                          0012.000
$OPTION 2 5 3 4 17                                                      0013.000
$NOTE ASSEMBLING KERMIT                                                 0014.000
$A3 UT1=DC,1000,U                                                       0015.000
$A3 UT2=DC,1000,U                                                       0016.000
$ASSEMBLE                                                               0017.000
$SELECTF KERMIT6                                                        0018.000
$IFT ABORT END                                                          0019.000
$NOTE LIBED KERMIT                                                      0020.000
$A1 LIB=KERM.LIB,,U                                                     0021.000
$A1 DIR=KERM.DIR,,U                                                     0022.000
$OPTION 1                                                               0023.000
$LIBED                                                                  0024.000
$IFT ABORT END                                                          0025.000
$NOTE CATALOGING KERMIT                                                 0026.000
$ALLOCATE 20000                                                         0027.000
$A1 L01=KERM.LIB,,U                                                     0028.000
$A1 D01=KERM.DIR,,U                                                     0029.000
$CATALOG                                                                0030.000
FILES=10                                                                0031.000
BUFFERS=5                                                               0032.000
ENVI MULTI                                                              0033.000
CATALOG T.KERMIT P                                                      0034.000
INCLUDE KERMIT                                                          0035.000
PROGRAMX                                                                0036.000
$END                                                                    0037.000
$EOJ                                                                    0038.000
$$                                                                      0039.000