aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Überprüft, ob eine sich eine Diskette im Laufwerk befindet.

Programm

uses dos;

begin
  if(disksize(1) div 1024)=0 then 
writeln('Diskette nicht im Laufwerk bzw. defekt') 
else writeln('Diskette eingelegt');
readln;
end.

---