XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerke: Prüfen, ob Diskette eingelegt ist
SetErrorLevel 0	um eventuelle Fehlermeldung zu unterdrücken
declare text$
Cls
SetTimer 5000 Alle 5 Sekunden testen

While 1

    WaitInput
    text$=Left$(GetDir$(A:),1)

    If text$=A

        Print Diskette eingelegt !

    Else

        Print Keine Diskette verfügbar...

    EndIf

EndWhile

KillTimer
End