home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / leser / grafbios.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-09  |  1.3 KB  |  53 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    GRAFBIOS.PAS                        *)
  3. (*  Einfaches Demo: Ansteuerung der Grafikkarte via BIOS  *)
  4. (*                 Turbo Pascal ab 5.0                    *)
  5. (* ------------------------------------------------------ *)
  6.  
  7. PROGRAM GrafBIOS;
  8.  
  9. USES Crt, Dos;
  10.  
  11. VAR
  12.   Modus : BYTE;
  13.   x, y : INTEGER;
  14.  
  15. PROCEDURE SetPixel(x, y : INTEGER; Color : BYTE);
  16. VAR          { einzelnen Punkt in der Farbe "Color" setzen }
  17.   Regs: Registers;
  18. BEGIN
  19.   WITH Regs DO BEGIN
  20.     AH := $0C;
  21.     CX := x;
  22.     DX := y;
  23.     AL := Color;
  24.     Intr($10, Regs);
  25.   END;
  26. END;
  27.  
  28. PROCEDURE SetMode(Nr : BYTE);
  29. VAR                                   { Grafikmodus setzen }
  30.   Regs: Registers;
  31. BEGIN
  32.   WITH Regs DO BEGIN
  33.     AH := $00;
  34.     AL := Modus;
  35.     Intr($10, Regs);
  36.   END;
  37. END;
  38.  
  39. BEGIN
  40.   Write('Bitte geben Sie den gewünschten 256-Farben-Modus' +
  41.         ' laut Handbuch ein: ');
  42.   ReadLn(Modus);
  43.   SetMode(Modus);
  44.   FOR x := 1 TO 100 DO
  45.     FOR y := 1 TO 100 DO
  46.       SetPixel(x, y, x + y MOD 256);
  47.   REPEAT UNTIL ReadKey > '';
  48.   TextMode(CO80);    { zurück in Textmodus 80 x 25 Zeichen }
  49. END.
  50.  
  51. (* ------------------------------------------------------ *)
  52. (*                Ende von GRAFBIOS.PAS                   *)
  53.