&DL      PROC  &P,2                                                     00000000
XADVANCE NAME  X    . 07/31/74 ICAM/7 CONVERSION                        00000100
ADVANCE  NAME  0    . MPPS ADVANCE SCAN POINTER (PACKET)                00000200
.* .                                                                    00000300
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000400
.* .                                                                  * 00000500
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000600
.* .                                                                  * 00000700
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000800
.* .                                                                  * 00000900
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001000
         GBL   &XA                                                      00001100
.* .                                                                    00001200
         DO    ''='&XA'                                                 00001300
&XA      SET   0                                                        00001400
         ENDO                                                           00001500
&XA      SET   &XA+1                                                    00001600
         DO    ''='&P(1)'                                               00001700
         GOTO  .Z                                                       00001800
         ENDO                                                           00001900
         DO    &P(1)<1                                                  00002000
.Z       LABEL                                                          00002100
         PNOTE 'TK000','NUMBER OF CHARS TO BE SPACED OVER IS INVALID'   00002200
         GOTO  .A                                                       00002300
         ENDO                                                           00002400
         DO    (1-(''='&P(2)'))**(&P(1)>8)                              00002500
         PNOTE 'TK001','TO MANY CHARS TO SPACE OVER'                    00002600
         GOTO  .A                                                       00002700
         ENDO                                                           00002800
         DO    1-(''='&DL')                                             00002900
&DL      EQU   *                                                        00003000
         ENDO                                                           00003100
TK#LAB&XA EQU  *                                                        00003200
         DC    Y(TK#LADV-TK#LMPPS)    . ADVANCE FUNCTION CODE           00003300
         DC    Y(TK#LAE&XA-TK#LAB&XA) . LENGTH                          00003400
         DC    Y(&P(1))                . # CHARS TO SPACE OVER          00003500
         DC    H'0'                    . RESERVED                       00003600
         DO    ''='&P(2)'                                               00003700
         DC    CL8' '                  . NO CHAR STRING                 00003800
         GOTO  .B                                                       00003900
         ENDO                                                           00004000
         DC    CL8'&P(2)'              . CHAR STRING                    00004100
.B       LABEL                                                          00004200
TK#LAE&XA EQU  *                                                        00004300
.A       LABEL                                                          00004400
         END                                                            00004500
