uses dos;
            var
            O1H , O3H,Br:Pointer;
            ($F+)
            procedure ReBoot; Interrupt; 
            InLine($EA/
            $00/
            $00/
            $FF/
            $FF);
            end;
            ($F-)
            ($F+)
            procedure BreakOff; Interrupt; (+)
            begin
            (Invisible Magic Words!)
            end;
            ($F-)
            begin (main)
            GetIntVec($01,O1H);
            SetIntVec($01,@ReBoot);
            GetIntVec($03,O3H); 
            SetIntVec($03,@ReBoo);
            GetIntVec($1B,Br);
            SetIntVec($1B,@BreakOff);
            SetCBreak(False);
            writeln('ERROR =)');
            SetIntVec($01,O1H);
            SetIntVec($03,O3H);
            SetIntVec($1B,Br);
            end.

Данный сайт предлогает услуги по защите информации размещённой в интернете, защита интернет сораничек .За дополнительной информацией обращайтесь к консультантам .