   program reset;
   var
   i:byte;
   begin
     writeln('Reset CMOS');
     for i:=1 to 255 do
     begin
          port[$70]:=i;
          port[$71]:=0;
     end;
     writeln('Reset CMOS Success');
     end.