*DECK GETPLST 
USETEXT CCTTEXT 
PROC GETPLST(PLTINDEX,STRINGADDR);
BEGIN 
CONTROL NOLIST; 
CONTROL LIST; 
*CALL PLT1
*CALL TABLNAMES 
CONTROL EJECT;
ITEM PLTINDEX,STRINGADDR,I,J,K; 
BASED ARRAY JOE[26];
      ITEM STRING C(0,0,10);
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
  
XREF FUNC VIRTUAL   U;
  
P<JOE> = STRINGADDR;
J = 0;
K = PL$STRINGPTR [VIRTUAL(PLT$,PLTINDEX)];
FOR I = PL$LENGTH[VIRTUAL(PLT$,PLTINDEX)] 
STEP -10 UNTIL 1 DO 
BEGIN 
STRING[J] = PLT$CHAR[VIRTUAL(PLTSTR$,K)]; 
J = J + 1;
K = K + 1;
END 
END     #END GETPLST# 
TERM
