home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / tricks / freigabe.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-11-21  |  148 b   |  9 lines
  1. program freigabe;
  2. var i: integer;
  3. begin
  4.   for i := 0 to 7 do write(chr(mem[$f000:$fff5+i]));
  5.   writeln;
  6.   writeln(mem[$f000:$fffe]);
  7. end.
  8.  
  9.