MODNAM   PROC  P,0,PRNTR,IN,OUT,LST,SCR1,ALTLOD                         FOR00010
FORT     NAME  2                                                        FOR00020
FORTL    NAME  1                                                        FOR00030
FORTLG   NAME  0                                                        FOR00040
//       GBL   SSCR1,SPRNTR                                             FOR00050
// GO OPT&P(0)                                                          FOR00060
//OPT0   OPTION GO                                                      FOR00070
//OPT1   OPTION LINK                                                    FOR00080
//OPT2   NOP                                                            FOR00090
// J$ALCPRT &PRNTR(1),&PRNTR(2)                                         FOR00100
//       IF    ('&IN' EQ '')POUT                                        FOR00130
//       IF    ('&IN(1)' NE 'RES')P2                                    FOR00140
//       IF    ('&IN(2)' EQ '')POUT                                     FOR00150
//P2 DVCVOL &IN(1)                                                      FOR00160
// LBL &IN(2) // LFD INFPUT                                             FOR00170
//POUT   IF    ('&OUT' EQ '')PSCR                                       FOR00180
//       IF    ('&OUT' EQ 'NO')PSCR                                     FOR00190
//       IF    ('&OUT(2)' EQ '$Y$RUN')PSCR                              FOR00195
// DVCVOL &OUT(1)                                                       FOR00200
// LBL &OUT(2) // LFD OUTFPUT                                           FOR00210
//PSCR   IF    ('&SSCR1' NE '')K2                                       FOR00220
//       IF    ('&SCR1' EQ '')K1                                        FOR00230
//SSCR1  JSET  &SCR1 // GO K2                                           FOR00240
//K1     NOP                                                            FOR00250
//SSCR1  JSET  RES                                                      FOR00260
//K2 DVCVOL &SSCR1                                                      FOR00270
//       EXT   ST,C,3,CYL,1                                             FOR00280
// LBL $SCR1 // LFD $SCR1                                               FOR00290
//       IF    ('&ALTLOD' EQ '')K3                                      FOR00300
// DVCVOL &ALTLOD(1)                                                    FOR00310
// LBL &ALTLOD(2) // LFD ALTLOD                                         FOR00320
//K3     NOP                                                            FOR00330
//       IF    ('&ALTLOD' NE '')N0                                      FOR00350
//       EXEC  FORT,$Y$RUN                                              FOR00360
// GO N01                                                               FOR00370
//N0     NOP                                                            FOR00380
// EXEC FORT,ALTLOD                                                     FOR00390
//N01    NOP                                                            FOR00400
//       IF    ('&IN' EQ '')N2                                          FOR00410
//       IF    ('&IN(2)' EQ '')N1                                       FOR00420
// PARAM IN=&MODNAM./INFPUT                                             FOR00430
// GO N2                                                                FOR00440
//N1     NOP                                                            FOR00450
// PARAM IN=&MODNAM                                                     FOR00460
//N2     IF    ('&OUT' EQ '')N4                                         FOR00470
//       IF    ('&OUT' EQ 'NO')N3                                       FOR00480
//       IF    ('&OUT(2)' EQ '$Y$RUN')N4                                FOR00485
// PARAM OUT=OUTFPUT                                                    FOR00490
// GO N4                                                                FOR00500
//N3     NOP                                                            FOR00510
// PARAM OUT=NO                                                         FOR00520
//N4     IF    ('&LST' EQ '')AUS                                        FOR00530
// PARAM LST=&LST                                                       FOR00540
//AUS    NOP                                                            FOR00550
         END                                                            FOR00560
