home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ETRAP8.ZIP / SCRWRITE.INC < prev    next >
Encoding:
Text File  |  1988-01-18  |  744 b   |  31 lines
  1. (******************************************************************)
  2.  
  3.  
  4. procedure scrwrite(s:string80; x,y,fore,back:byte);
  5.  
  6. var
  7.   i,j,start     :integer;
  8.   scrseg        :longint;
  9.   strseg        :longint;
  10.   strofs        :longint;
  11.   attr          :byte;
  12.   len           :integer;
  13.   strbytes      :array [1..160] of byte;
  14. begin
  15.   if mem[$0000:$0449]<>7 then scrseg:=$b800
  16.   else scrseg:=$b000;
  17.   attr:=back shl 4 + fore;
  18.   j:=1;
  19.   for i:=1 to length(s) do
  20.     begin
  21.       strbytes[j]:=ord(s[i]);
  22.       strbytes[j+1]:=attr;
  23.       j:=j+2;
  24.     end;
  25.   start:=(y-1)*160+((x-1) shl 1);
  26.   strseg:=seg(strbytes);
  27.   strofs:=ofs(strbytes);
  28.   len:=length(s)*2;
  29.   movetoscreen(mem[strseg:strofs],mem[scrseg:start],len);
  30. end;
  31.