uses Dos;
var oldInt1C:procedure;
procedure Int1C; interrupt;
begin
WriteLn('Sayac');
end;
begin
GetIntVec($1c,@oldInt1C);
SetIntVec($1c,Addr(int1c));
end.
{ Bu kod eski kodda kullandığım "CALL" fonksiyonunu düzeltmek için yazılmıştır. Her iki kodda sorunsuz şekilde çalışmaktadır.