home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / pastrick / fastscr / farbtab.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-10  |  1.0 KB  |  40 lines
  1. (* ------------------------------------------------- *)
  2. (*                   FARBTAB.PAS                     *)
  3. (*        (c) 1991 Björn Brücher & DMV-Verlag        *)
  4. (* ------------------------------------------------- *)
  5. PROGRAM Farbtabelle;
  6.  
  7. VAR Bild : WORD;
  8.  
  9. {$L WRITESTR.OBJ}
  10.  
  11.   PROCEDURE WriteStr(x, y : WORD; St : STRING;
  12.                      att  : WORD);  EXTERNAL;
  13.  
  14.   PROCEDURE Tabelle;
  15.   VAR
  16.     i  : BYTE;
  17.     st : STRING;
  18.   BEGIN
  19.     FillChar(st[1], 65, #32);
  20.     st[0] := #65;
  21.     FOR i := 3 TO 20 DO WriteStr(7, i, '║'+st+'║', 20);
  22.     FillChar(st[1], 65, '═');
  23.     WriteStr(7,  2, '╔'+st+'╗', 20);
  24.     WriteStr(7, 21, '╚'+st+'╝', 20);
  25.     FOR i := 0 TO 255 DO BEGIN
  26.       Str(i:3, st);
  27.       WriteStr(9+i AND $F * 4, 4+i SHR 4, st, i);
  28.     END;
  29.   END;
  30.  
  31. BEGIN
  32.   Bild := $B000;
  33.   IF MemW[$40:$63] = $3D4 THEN    (* PortAdr Adapter *)
  34.     Bild := $B800;                (* Color           *)
  35.   Tabelle;
  36. END.
  37. (* ------------------------------------------------- *)
  38. (*             Ende von FARBTAB.PAS                  *)
  39.  
  40.