&PL      PROC  &P,1                                                     NEW00010
NEWPSW   NAME  0                                                        NEW00020
SYSPSW   NAME  1                                                        NEW00030
USERPSW  NAME  2                                                        NEW00040
         DO    0                                                        NEW00050
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  NEW00060
*                                                                    *  NEW00070
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  NEW00080
*                                                                    *  NEW00090
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  NEW00100
*                                                                    *  NEW00110
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  NEW00120
         ENDO                                                           NEW00130
         LCL   &X                                                       NEW00140
&X       SET   '&PL.        '(1,8)                                      NEW00150
         DO    '&PL'=''=0                                               NEW00160
&X EQU   *                                                              NEW00170
         ENDO                                                           NEW00180
         DO    &P(0)=0                                                  NEW00190
         DC    XL5'0000000000'                                          NEW00200
         ENDO                                                           NEW00210
         DO    &P(0)=1                                                  NEW00220
         DC    XL5'C004000000'                                          NEW00230
         ENDO                                                           NEW00240
         DO    &P(0)=2                                                  NEW00250
         DC    XL5'C006000000'                                          NEW00260
         ENDO                                                           NEW00270
         DO    '&P(1)'=''=0                                             NEW00280
         DC    AL3(&P(1))                                               NEW00290
         ENDO                                                           NEW00300
         DO    '&P(1)'=''                                               NEW00310
         DC    AL3(0)                                                   NEW00320
         ENDO                                                           NEW00330
         END                                                            NEW00340
