{ FORMAT.PAS Copyright (c) Jan Benkovic } { Vtipna nahrada prikazu format. Nastastie len vystrasi, vas disk } { zostane v poriadku. } { } { Datum:01.02.1997 http://www.trsek.com } uses crt; var i,whey:integer; begin writeln; writeln('WARNING: ALL DATA ON NON-REMOVABLE DISK'); writeln('DRIVE C: WILL BE LOST!'); write('Proceed with Format (Y/N)?'); readkey; writeln('y'); writeln; whey:=wherey; for i:=0 to 100 do begin gotoxy(1,whey); write(i,' percent completed.'); end; gotoxy(1,whey); writeln('Format complete. '); writeln; delay(1000); repeat writeln('Hardware failure Drive C.'); write('Abort, Retry, Fail?'); writeln(readkey); writeln; until false; end.