home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / savescrn.swg / 0007_SAVE7.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  510b  |  19 lines
  1. {
  2. well.. if you don't mind it not being in assembly, i can help..
  3. BTW: your 19?? Byte Array wouldn't store the whole screen.. barely half of
  4. it. the color Text screen is 4000 Bytes. 2000 Characters + 2000 attributes
  5. of those Characters.
  6. }
  7. Type
  8.   screen = Array[1..4000] of Byte;
  9. Var
  10.   scr : screen Absolute $b800:0000; (* or $B000:0000 For Mono *)
  11.   scrf : File of screen;
  12. begin
  13.   assign(scrf,paramstr(1)); (* or Whatever Filename *)
  14.   reWrite(scrf);
  15.   Write(scrf,scr);
  16.   close(scrf);
  17. end.
  18.  
  19.