&PL      PROC  &P,3                                                     SET00010
SETIME   NAME                                                           SET00020
         DO    0                                                        SET00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SET00040
*                                                                    *  SET00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  SET00060
*                                                                    *  SET00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  SET00080
*                                                                    *  SET00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  SET00100
         ENDO                                                           SET00110
.*       SETIME TIME,WAIT,S/M                                           SET00120
         LCL   &X                                                       SET00130
&X       SET   '&PL.        '(1,8)                                      SET00140
&X           DS    0H                                                   SET00150
         DO    '&P(1)'=''                                               SET00160
                   SR    1,1                                            SET00170
         GOTO  .SETIME1                                                 SET00180
         ENDO                                                           SET00190
         DO    '&P(1)'='(1)'=0                                          SET00200
                   LA    1,&P(1)                                        SET00210
         ENDO                                                           SET00220
.SETIME1 LABEL                                                          SET00230
&X       SET   2                                                        SET00240
         DO    '&P(2)'='WAIT'                                           SET00250
&X       SET   &X+1                                                     SET00260
         ENDO                                                           SET00270
         DO    '&P(3)'='M'                                              SET00280
&X       SET   &X-2                                                     SET00290
         ENDO                                                           SET00300
         DO    &X=0                                                     SET00310
                   SR    0,0                                            SET00320
         GOTO  .SETIME3                                                 SET00330
         ENDO                                                           SET00340
                   LA    0,&X                                           SET00350
.SETIME3 LABEL                                                          SET00360
                   SVC   6                                              SET00370
         END                                                            SET00380
