home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / TURBO-04.ZIP / WRITEXY.INC < prev   
Text File  |  1985-03-08  |  802b  |  23 lines
  1. Procedure Writexy(long_string:maxstr; xcoord,ycoord,color: integer);
  2.  
  3.                        {for monochrome, change to $B000 -- N.J.R}
  4.                                                   {====}
  5. var screen_array: Array[1..4000] of byte Absolute $B800:$0000;
  6.     scr_pos,str_len, real_pos: integer;           {====}
  7.  
  8. begin
  9. {$I-}
  10.      str_len:=length(long_string);
  11.      scr_pos:=0;
  12.      for real_pos:=1 to str_len do
  13.                  if scr_pos < 4001 then
  14.                        begin
  15.                             scr_pos:=((xcoord*2)-1)+(ycoord*160);
  16.                             screen_array[scr_pos]:=ord(copy(long_string,real_pos,1));
  17.                             screen_array[scr_pos+1]:=color;
  18.                             xcoord:=xcoord+1;
  19.                        end
  20. {$I+}
  21. end;
  22.  
  23.