Jak napisać program imitujący formatowanie dysku w Turbo Pascal 7.0?

Nie mam pojęcia jak to zrobić w Pascalu, ale w Delphi już wiem dzieki temu poradnikowi http://komputery.spryciarze.pl/zobacz/jak-napisac-program-imitujacy-formatowanie-dysku-w-delphi

No niestety zmartwię Cię, gdyż ja widziałem ten poradnik wcześniej, ale no sorki, ale chodzi mi jednak o Turbo Pascal 7.

Jeśli chodzi o wiersz poleceń Windows to możemy zrobić tak:

1. Wypisujemy polecenie format C:\

2. Pętla od Formatowanie dysku C:\ 0% do 100%

3. Nieskończona pętla wczytująca polecenie, które i tak nic nie robi

4. Prosty skrypt batch dodający wiarygodności poprzez zmianę tytułu i ikonę wiersza poleceń.

https://gist.github.com/4026118 - skypt batch

http://pastebin.com/wTkAp1Qq - kod programu Pascal

Dodane linki:

• http://pastebin.com/wTkAp1Qq
• https://gist.github.com/4026118

Pytanie nieaktualne (dodane ponad 2 lata temu).