&LABEL   PROC  &P,2                                                     00000000
XIPAGE   NAME  X                                                        00000100
IPAGE    NAME  0                                                        00000200
.* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  00000300
.* *                                                                 *  00000400
.* *  THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                  *  00000500
.* *                                                                 *  00000600
.* *                                                                 *  00000700
.* *  UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                 *  00000800
.* *                                                                 *  00000900
.* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  00001000
         GBL   &VS9,&U93                                                00001100
         LCL   &LBLGH                                                   00001200
         PRINT ON                                                       00001300
         SYSTEM                                                         00001400
         DO    &VS9                                                     00001500
&LBLGH   SET   &P(1)                                                    00001600
         ORG   (1-((*-&SYSECT+&LBLGH)/4096-(*-&SYSECT)/4096))*(*-&SYSECX00001700
               T)+((*-&SYSECT+&LBLGH)/4096-(*-&SYSECT)/4096)*(*-&SYSECTX00001800
               +4095)/4096*4096+&SYSECT                                 00001900
         SPACE 3                                                        00002000
         ENDO                                                           00002100
         END                                                            00002200
