CPYLABEL PROC  POS,1,M=1,D=N,VI=X,LI=X,VO=X,LO=X,R=N,L=0                EA$00010
COPY$10  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
// DVC 51  // VOL &VO                                                   EA$00120
// EXT ST,CF,,BLK,(160,10055)                                           EA$00130
// LBL &LO                                                              EA$00140
// LFD OUTFILE                                                          EA$00150
// OPTION SUB                                                           EA$00160
// EXEC EA$C10                                                          EA$00170
/$                                                                      EA$00180
&L &D &LI                                                               EA$00190
/*                                                                      EA$00200
         END                                                            EA$00210
