*DECK SETPLST 
USETEXT CCTTEXT 
PROC SETPLST ((PLTINDEX), (STRINGADDR));
BEGIN 
CONTROL NOLIST; 
CONTROL LIST; 
*CALL PLT1
*CALL TABLNAMES 
CONTROL EJECT;
ITEM PLTINDEX, STRINGADDR,I,J,K,L;
ITEM BLANKS C(10) = " ";
BASED ARRAY JOE[26];
      ITEM STRING C(0,0,10);
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
  
XREF FUNC VIRTUAL   U;
  
  
P<JOE> = STRINGADDR;
J = 0;
K = CCTPLSTLEN + 1; 
I= VIRTUAL(PLT$,PLTINDEX);
L = PL$LENGTH [I];
IF L NQ 0 THEN
  PL$STRINGPTR [I] = K;  #ELSE THE FIELD REMAINS 0 #
                                 #TO INDICATE NO PLST ENTRY ATTACHED.#
FOR I = L 
STEP -10 UNTIL 1 DO 
BEGIN 
PLT$CHAR[VIRTUAL(PLTSTR$,K)] = STRING[J]; 
J = J + 1;
K = K + 1;
END 
I = L - L/10 * 10;
IF I NQ 0 THEN
C<I,10-I> PLT$CHAR[VIRTUAL(PLTSTR$,K-1)] = BLANKS;
CCTPLSTLEN = K - 1; 
END 
TERM
