home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / grafik / gtdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-09  |  1.2 KB  |  36 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V-,X-}
  2. (*===================================================================*)
  3. (*                            GTDEMO.PAS                             *)
  4. (*            Copyright (C) 1993 te-wi Verlag, München               *)
  5. (*       Demonstration für die Funktion des Interrupt-Vektor 1Fh     *)
  6. (*===================================================================*)
  7. PROGRAM GrafTablDemo;
  8.  
  9. USES DOS;
  10.  
  11. VAR
  12.   Int1FVec: Pointer;
  13.  
  14. FUNCTION Hex(b: BYTE): STRING;
  15. CONST HChar: ARRAY[0..15] OF CHAR = '0123456789ABCDEF';
  16. BEGIN
  17.   Hex[0] := #2;
  18.   Hex[1] := HChar[b DIV 16];
  19.   Hex[2] := HChar[b MOD 16];
  20. END;
  21.  
  22. BEGIN
  23.   GetIntVec($1F, Int1FVec);
  24.   IF LongInt(Int1FVec^) = 0 THEN
  25.     WriteLn('Grafikzeichensatz nicht geladen.'#13#10
  26.           + 'Bitte rufen Sie »GRAFTABL.COM« auf und starten'^M^J
  27.           + 'Sie dieses Programm dann noch einmal.')
  28.   ELSE
  29.     WriteLn('Grafikzeichensatz an Adresse $',
  30.       Hex(Hi(Seg(Int1FVec^))), Hex(Lo(Seg(Int1FVec^))), ':$',
  31.       Hex(Hi(Ofs(Int1FVec^))), Hex(Lo(Ofs(Int1FVec^))),
  32.       ' installiert.');
  33. END.
  34.  
  35. (*===================================================================*)
  36.