home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / 30TURUTL / WRITEXY.INC < prev   
Text File  |  1985-02-18  |  768b  |  21 lines
  1. Procedure Writexy(long_string:maxstr; xcoord,ycoord,color: integer);
  2.  
  3. var screen_array: Array[1..4000] of byte Absolute $B800:$0000;
  4.     scr_pos,str_len, real_pos: integer;
  5.  
  6. begin
  7. {$I-}
  8.      str_len:=length(long_string);
  9.      scr_pos:=0;
  10.      for real_pos:=1 to str_len do
  11.                  if scr_pos < 4001 then
  12.                        begin
  13.                             scr_pos:=((xcoord*2)-1)+(ycoord*160);
  14.                             screen_array[scr_pos]:=ord(copy(long_string,real_pos,1));
  15.                             screen_array[scr_pos+1]:=color;
  16.                             xcoord:=xcoord+1;
  17.                        end
  18. {$I+}
  19. end;
  20.  
  21.