home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / DATAB.PAS < prev    next >
Pascal/Delphi Source File  |  1997-12-15  |  138b  |  13 lines
  1. uses crt;
  2. var x:word;
  3. r:byte;
  4. begin
  5. clrscr;
  6. r:=0;
  7. x:=$fff5;
  8. for r:=0 to 7 do
  9. begin
  10. write(chr(mem[$f000:x]));
  11. inc(x);
  12. end;
  13. end.