[inherit('SYS$LIBRARY:STARLET','PDPSUBS')]

program PDPWait(Output);

const

{ String Identifiers }

  LoggedOff = 1;
  NumStr = 1		{ Must set variable NUMSTRINGS };
  
var
  Response: integer;
  Wait: integer;
  WaitStr: packed array [1..20] of char;
  WaitLen: Word;


begin { PDPLogin }
  ProgramName := 'PDPWait ';

  EnterString(	LoggedOff,	23,	'logged off RSX11M');
  NumStrings := NumStr;

  $TRNLOG('PDP_WAIT', WaitLen, WaitStr);
  Wait := 0;
  for I := 1 to WaitLen do
    if WaitStr[I] in ['0'..'9'] then
      Wait := Wait * 10 + Ord(WaitStr[I]) - Ord('0')
    else
      begin
	writeln(ProgramName, ' -- PDP_WAIT not defined');   halt;
      end;

  Response := WaitFor([LoggedOff], Wait);
end { PDPWait }.