home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug022.arc / LORES.I < prev    next >
Text File  |  1979-12-31  |  512b  |  21 lines
  1. procedure Lores;
  2. var
  3.   TopLine : Integer;
  4.   PCG,Work,Count,Echo : Byte;
  5.  
  6. begin
  7.   for PCG := 128 to 255 do
  8.     for Count := 0 to 2 do
  9.       begin
  10.         Work :=0;
  11.         if Odd(PCG shr (2*Count)) then
  12.           Work :=240;
  13.         if Odd(PCG shr (2*Count+1)) then
  14.           Work := Work + 15;
  15.         TopLine := $F000 + PCG*16 + Count*4;
  16.         for Echo := 0 to 3 do
  17.           mem[TopLine + Echo] :=Work
  18.       end;
  19.  
  20. end;
  21.