XProfan

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