CPYLAB11 PROC  POS,1,M=1,D=N,VI=X,LI=X,VO=X,LO=X,R=N,L=3                EA$00010
COPY$11  NAME                                                           EA$00020
// DVC 50  // VOL &VI                                                   EA$00030
// LBL &LI                                                              EA$00040
// LFD INFILE                                                           EA$00050
// IF ('&R' EQ 'N')TAG1                                                 EA$00060
// DVC 51  // VOL &VO                                                   EA$00070
// LBL &LO                                                              EA$00080
// LFD OUTFILE                                                          EA$00090
// SCR OUTFILE                                                          EA$00100
//TAG1 NOP                                                              EA$00110
// IF ('&D' EQ 'Y')TAG5                                                 EA$00120
// DVC 51  // VOL &VO                                                   EA$00130
// IF ('&M' EQ '1')TAG2                                                 EA$00140
// EXT ST,C,0,BLK,(1536,2060)                                           EA$00150
// GO TAG4                                                              EA$00160
//TAG2 NOP                                                              EA$00170
// EXT ST,C,0,BLK,(1536,4060)                                           EA$00180
//TAG4 NOP                                                              EA$00190
// LBL &LO                                                              EA$00200
// LFD OUTFILE                                                          EA$00210
//TAG5 NOP                                                              EA$00220
// OPTION SUB                                                           EA$00230
// EXEC EA$C11                                                          EA$00240
/$                                                                      EA$00250
&L &D                                                                   EA$00260
/*                                                                      EA$00270
         END                                                            EA$00280
