Source file: /~heha/vt/viewers/vt080.zip/src/v2/VTGRABD.PAS

program VTGrabD;
{VTGRAB für DOS mit Pascal-Hülle}
uses Dos;

function VGInit:Boolean; external;
procedure VGRun; external;
procedure VGDone; external;
{$L VTGrab}
const
 MyTimer:Word=0;

procedure TimerProc; interrupt;
 begin
  Inc(MyTimer);
 end;

function kbhit:Boolean; assembler;
 asm	mov	ah,0bh
	int	21h		;{Taste gedrückt?}
	or	al,al
	jz	@@e
	mov	ah,08h		;{Taste abholen}
	mov	al,1
@@e: end;

var
 OldInt1C: Pointer;
{$Q-,R-}

begin
 if not VGInit then halt;
 GetIntVec($1C,OldInt1C);
 SetIntVec($1C,@TimerProc);
 WriteLn('Druecke Taste fuer Abbruch');
 repeat
  Write('.');
  VGRun;
 until kbhit;
 SetIntVec($1C,OldInt1C);
 VGDone;
end.