Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/30TURUTL.ZIP/WRITEXY.INC

Text File | 1985-02-18 | 768 b | 21 lines

Procedure Writexy(long_string:maxstr; xcoord,ycoord,color: integer);

var screen_array: Array[1..4000] of byte Absolute $B800:$0000;
    scr_pos,str_len, real_pos: integer;

begin
{$I-}
     str_len:=length(long_string);
     scr_pos:=0;
     for real_pos:=1 to str_len do
                 if scr_pos < 4001 then
                       begin
                            scr_pos:=((xcoord*2)-1)+(ycoord*160);
                            screen_array[scr_pos]:=ord(copy(long_string,real_pos,1));
                            screen_array[scr_pos+1]:=color;
                            xcoord:=xcoord+1;
                       end
{$I+}
end;