home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ETRAP8.ZIP / MKWIN.INC < prev    next >
Encoding:
Text File  |  1987-12-26  |  382 b   |  12 lines
  1. (******************************************************************)
  2.  
  3. Procedure MkWin(var Screen:WindowPTR;
  4.                 startrow,endrow,startcol,endcol,fg,bg:integer);
  5.  
  6. begin
  7.   Screen:=SaveWindow(1,1,80,25);
  8. (*  MoveFromScreen(mem[scrseg:$0000],StoredScr,4096);*)
  9.   blankbox(startrow,endrow,startcol,endcol,fg,bg);
  10.   box(startrow,endrow,startcol,endcol,fg,bg);
  11. end;
  12.