.PROC,TLABEL,P1.
$RETURN,*,TLABEL,PROCFIL.
.* CHANGE COMPUTER TO ASCII (UPPER/LOWER CASE) MODE
$CSET,ASCII.
.* RESET DAYFILE FLAG FOR USE LATER IF PROCEDURE SCREWS UP
$DAYFILE,L=0.
.* GET PROGRAM TLABEL.  IF NOT AVAILABLE, PRINT APPROPRIATE MESSAGE.
$GET,TLABELB/UN=CBBQ000.
     $IFE,.NOT.FILE(TLABELB,AS),NO GO.
          $NOTE.+PROGRAM TLABEL IS NOT AVAILABLE NOW.+
          $SET(EF=0).
          $REVERT.
     $ENDIF,NO GO.
.* RUN PROGRAM TLABEL.
TLABELB.
$RETURN,TLABELB.
$NOTE,,NR."PLEASE STAND BY."
$ROLLOUT,6.
$IFE,FILE(LROUGH,AS),NO LPT.
 $REWIND,*.
 .* REMOVE BLANK LINES FROM OUTPUT FILES AND CHANGE "&" AND ";", WHICH
 .* ARE XEDIT MODIFY DIRECTIVES, TO OTHER SYMBOLS.
      $XEDIT,LROUGH,AS,NH,L=0.]BR]C/&/[/*]C/;/$/*]Q,,L.
 $NOTE(,NR)"! COUNTDOWN: 10"
      $XEDIT,MROUGH,AS,NH,L=0.]BR]C/&/[/*]C/;/$/*]Q,,L.
 $NOTE(,NR)"!+ 9"
      $XEDIT,RROUGH,AS,NH,L=0.]BR]C/&/[/*]C/;/$/*]Q,,L.
 $NOTE(,NR)"!+ 8"
 .* SEND EACH OUTPUT FILE TO THE WORD PROCESSOR.
 $FIND,RNF,LROUGH,LEFT.
 $NOTE(,NR)"!+ 7"
 $FIND,RNF,MROUGH,MIDDLE.
 $NOTE(,NR)"!+ 6"
 $FIND,RNF,RROUGH,RIGHT.
 $NOTE(,NR)"!+ 5"
 $RETURN,LROUGH,MROUGH,RROUGH.
 $BEGIN,LAY,TLABEL,LEFT,MIDDLE,RESULT.
 $NOTE(,NR)"!+ 4"
 $BEGIN,LAY,TLABEL,RESULT,RIGHT,LABELS.
 $NOTE(,NR)"!+ 3"
 $RETURN,*,BANNER,LABELS,STATFIL,AROUGH,LSAVE.
 .* CHANGE BACK "&" AND ";".
    $XEDIT,LABELS,AS,NH,L=0.]C/[/&/*]C/$/;/*]Q,,L.
 $NOTE(,NR)"!+ 2"
 $REWIND,*.
 .* THE NEXT COMMAND CAUSES THE LABEL FILE TO BE PRINTED ON WHITE PAPER.
 $PRINT,LABELS,ADDR=BANNER,AS,CC,FC=AM.
                                                  $APPEND,LABSAVE,LABELS/NA.
 $NOTE,,NR."LINE PRINTER LABELS COMPLETE"
$ENDIF,NO LPT.
$IFE,FILE(AROUGH,AS),NO APT.
 $REWIND,*.
 $FIND,RNF,AROUGH,ALABEL.
 $REWIND,ALABEL.
 $NOTE,,NR."ATTACHED PRINTER LABELS READY; YOU HAVE ABOUT 10 SECONDS TO"
 $NOTE,,NR."TURN ON THE PRINTER AND ALIGN THE PAPER."
 $ROLLOUT,10.
 $COPY,ALABEL,OUTPUT.
 $NOTE,,NR.""
$ENDIF,NO APT.
$APPEND,LBLLIST,STATFIL/UN=CBBQ000/NA.
$NOTE,,NR."THANK YOU FOR CHOOSING TLABEL."
$RETURN,*,LABELS,ALABEL.
$CSET,NORMAL.
$REVERT.
$EXIT.
$NOTE,,NR."TLABEL TERMINATED OR FOULED UP."
$RETURN,*.
$REVERT.
.PROC,LAY,FIRST,SECOND,RESULT.
$XEDIT(SECOND,I=ISEC,L=OUT1)$T
$XEDIT(FIRST,I=THIRD,L=OUT2)
$REVERT.
.DATA,ISEC.
C((/X+YQM;(*$CS(/(($+IB$DEL ;$B$+I2$p*$Q,RESULT,L$Q,THIRD,L