home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG022.ARC / UNDERLIN.I < prev    next >
Text File  |  1979-12-31  |  384b  |  16 lines
  1. procedure Underline;
  2. var
  3.    PCG : Byte;
  4.    One : Byte absolute $F000;
  5.    Two : Byte absolute $F800;
  6.  
  7. begin
  8.      Port[11] := 1;
  9.      Move (One,Two,$800);
  10.      Port[11] :=0;
  11.      for PCG :=128 to 255 do
  12.          mem[$F00A + PCG*16] := 255
  13.  
  14. end;
  15.  
  16.