%SYSTEMROUTINESPEC MOVE(%INTEGER L, F, T)
%EXTERNALROUTINESPEC CALL(%STRING (31) COM, %STRING (255) PARAM)
%EXTERNALROUTINESPEC PROMPT(%STRING (15) S)

%EXTERNALROUTINE PPROMPT(%INTEGER S1, S2, S3, S4)
%INTEGER I
%STRING (15) S
   MOVE(15,ADDR(S1),ADDR(S)+1)
   LENGTH(S) = 15
   %WHILE S # "" %AND CHARNO(S,LENGTH(S)) = ' ' %C
      %THEN LENGTH(S) = LENGTH(S)-1
!REMOVE TRAILING SPACES
   PROMPT(S)
%END;                                   !OF PPROMPT

%EXTERNALROUTINE PCALL(%INTEGER DUM1, ADE, DUM2, ADP)
%STRING (31) ENTRY
%STRING (255) PARAM
   ENTRY <- STRING(ADE+3)
   PARAM <- STRING(ADP+3)
   CALL(ENTRY,PARAM)
%END;                                   !OF PCALL
%ENDOFFILE