home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG053.ARC / MONITOR.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  768b  |  26 lines
  1. {file MON.INC}
  2.  
  3. program mon;
  4. var
  5.   place,place1: real;
  6.  
  7. {$I MONITOR.INC}
  8.  
  9. begin
  10.   clrscr;
  11.   write('Input memory location (in decimal): ');
  12.   repeat read(place) until (place >=0) and (place < 65536.0);
  13.   if place = 32768.0 then place := 32767.0;
  14.   if place > 32767.0 then place := place - 65536.0;
  15.   repeat
  16.     place1 := place;
  17.     seemem(trunc(place),15,false);
  18.     writeln;
  19.     repeat
  20.       write('Input another value (same value to stop): ');
  21.       read(place);
  22.     until (place >=0) and (place < 65536.0);
  23.     if place = 32768.0 then place := 32767.0;
  24.     if place > 32767.0 then place := place - 65536.0;
  25.   until place1 = place;
  26. end.