V DOSe vykoná mäkký reset PC
Delphi & Pascal (česká wiki)
Kategorija: Programy zos Pascalu
Program: Reset.pas
Subor exe: Reset.exe
Program: Reset.pas
Subor exe: Reset.exe
Toto už vo Windows nefunguje, ale pod DOSom vykoná "mäkký reset PC". Krása je ale v jeho dĺžke. Program na 9 riadkov z toho sú 4 zbytočné.
{ RESET.PAS Copyright (c) TrSek alias Zdeno Sekerak } { Resetne PC - Nefunguje pod Win 9x/NT/2K } { } { Datum:07.12.1995 http://www.trsek.com } program Reset_pocitaca; var no_boot:procedure; smer:pointer; begin writeln('Za okamih prebehne reset pocitaca.'); smer:=Ptr($FFFF,$0); @no_boot:=smer; no_boot; end.