Frostbyte's 1980s DOS Shareware Collection/floppyshareware.zip/floppyshareware/DOOG/INFOP131.ZIP/PAGE_11.INC

Text File | 1990-09-04 | 267b | 14 lines

procedure page_11;
  begin
  caption2('Program name');
  Writeln(ParamStr(0));
  caption2('Environment');
  window(3, 5, twidth, tlength - 2);
  for i:=1 to envcount do begin
    pause2;
    if endit then
      Exit;
    writeln(envstr(i))
  end
  end;