home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / INFOP125.ZIP / PAGE_11.INC < prev    next >
Encoding:
Text File  |  1990-08-10  |  211 b   |  13 lines
  1. procedure page_11;
  2.  
  3. begin
  4.   caption2('Environment');
  5.   window(3, 4, twidth, tlength - 2);
  6.   for i:=1 to envcount do begin
  7.     pause2;
  8.     if endit then
  9.       Exit;
  10.     writeln(envstr(i))
  11.   end
  12. end;
  13.