home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / 3DANIM.ZIP / FILL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-06-28  |  524 b   |  26 lines
  1. function call( see :boolean;color:integer;
  2.                xpos:integer;ypos:integer):integer;
  3. begin
  4. if not see then
  5. begin
  6.      with registers do
  7.      begin
  8.      bx:=1;
  9.      ax:=12*256+color; {this will write}
  10.      cx:=xpos;
  11.      dx:=ypos;
  12.      intr($10,registers);
  13.      end;
  14. end
  15. else
  16.      with registers do
  17.      begin
  18.           bx:=0;
  19.           ax:=13*256; {this will see}
  20.           cx:=xpos;
  21.           dx:=ypos;
  22.           intr($10,registers);
  23.           call:= registers.ax and 255;
  24.      end;
  25. end;
  26.