home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / THEDUT.ZIP / THEDRAW.INC < prev    next >
Encoding:
Text File  |  1987-02-15  |  465 b   |  15 lines
  1. PROCEDURE BinMove;
  2.               EXTERNAL 'THEPAS.BIN';
  3. (*  BinMove loads a screen created with TheDraw
  4.     and saved using the <B>inary option.
  5.  
  6.     SYNTAX:  DummyPtr := Ptr(Cseg,Ofs(BinMove));
  7.              Move(DummyPtr^,ColorScreen,4000);          *)
  8. TYPE
  9.    ScreenType  = Array[0..3999] of Byte;
  10. VAR
  11.    ColorScreen      : ScreenType Absolute $B800:0000;
  12.  { MonoScreen       : ScreenType Absolute $B000:0000; }
  13.    DummyPtr         : ^ScreenType;
  14.  
  15.