&PL      PROC  &P,1                                                     GET00010
GETIME   NAME                                                           GET00020
         DO    0                                                        GET00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  GET00040
*                                                                    *  GET00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  GET00060
*                                                                    *  GET00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  GET00080
*                                                                    *  GET00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  GET00100
         ENDO                                                           GET00110
         LCL   &X                                                       GET00120
&X       SET   '&PL.        '(1,8)                                      GET00130
&X           DS    0H                                                   GET00140
         DO    '&P(1)'='M'                                              GET00150
                   LA    1,1                                            GET00160
         GOTO  .GETIME1                                                 GET00170
         ENDO                                                           GET00180
                   SR    1,1                                            GET00190
.GETIME1 LABEL                                                          GET00200
                   SVC   7                                              GET00210
         END                                                            GET00220
