XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Laufwerk bereit?
Def SetErrorMode(1) !KERNEL32,SetErrorMode

PROC LW_READY

    PARAMETERS LW$
    DECLARE MODE&
    Let MODE&=SETERRORMODE(1)
    ASSIGN #1,LW$+\17123ABC_A.TXT unverwechselbarer Dateiname
    REWRITE #1

    IF %IORESULT <> 0

        CLOSE #1
        RETURN 0

    ELSE

        CLOSE #1
        ASSIGN #1,LW$+\17123ABC_A.TXT
        ERASE #1
        RETURN 1

    ENDIF

    SETERRORMODE(MODE&)

ENDPROC

CLS
LW_READY A:
Case &(0)=0:PRINT LAUFWERK NICHT BEREIT
Case &(0)=1:PRINT LAUFWERK ZUM LESEN UND SCHREIBEN BEREIT
WAITINPUT