home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BOOSTERS.ZIP / XSETATT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-06  |  526 b   |  26 lines
  1. {$IBoDecl}
  2.  
  3. {$ISetAtt}
  4. {$IPutStr}
  5.  
  6. var
  7.    j, Att : integer;
  8.  
  9. BEGIN
  10.  
  11.    ClrScr;
  12.    for i := 1 to 6 do
  13.       for j := 1 to 20 do
  14.    PutStr (h,#04 +#04 +#04 , 1+(j-1)*4, 7-i, 14);
  15.  
  16.    repeat
  17.       PutStr (h, 'Enter attribute value,'+
  18.                  ' 0-255 (Out of Range quits) ',
  19.                   1,10,14);
  20.       ClrEol;
  21.       read(att);
  22.       if (att >= 0) and (att <= 255) then
  23.          for i := 1 to 20 do
  24.             SetAtt (1+(i-1)*4,1,3+(i-1)*4,6,att);
  25.    until (att < 0) or (att > 255);
  26.  
  27. END.