XProfan

Def sErrMod(1) External("KERNEL32.DLL","SetErrorMode",&(1))

Proc DrvOK

    Parameters IDR_LW$
    Case (Len(IDR_LW$) < 1): Return -1
    IDR_LW$     = (Upper$(Left$(IDR_LW$,1)) + ":\")
    Var IDR_OEMod&  = sErrMod(1)
    Var IDR_OldDir$ = GetDir$("@")
    ChDir IDR_LW$
    Var ttt& = %IOResult
    sErrMod(IDR_OEMod&)
    ChDir IDR_OldDir$
    Return ttt&

EndProc

Window 280,160-640,480
Locate 2,0

WhileLoop 65,90

    Print (Chr$(&loop) + ":\ %IOResult = " + Str$(DrvOK(Chr$(&loop))))

EndWhile

WaitInput
Fin

Def GetClassLong(2) Externe("User32.DLL","GetClassLongA",&(1),&(2))
Def GetCursor(0)    Externe("User32.DLL","GetCursor")
Cls
Imprimer ("GetClassLong()  = " + Str$(GetClassLong(%Desktop,-12)))
Imprimer ("GetCursor()     = " + Str$(GetCursor()))                   ici gibts une kleine Abweichung (vraie seltsam!)
WaitInput
Fin

Var T1! = ($7FFFFFFF * 4)
Var T2! = (2147483647 * 4)   Integer arithmetic overflow in function __stdcall ProfanThreadProc(void *) (Borland 5.5)
Programm wird erzeugt zeigt hier aber nur Quark an.
Var T1& = ($7FFFFFFF * 1)
Var T2& = (2147483647 * 1)   Integer arithmetic overflow in function __stdcall ProfanThreadProc(void *) (Borland 5.5)
Programm wird erzeugt zeigt hier aber nur Quark an.
Hier stürtzt Profan2CPP ab!!!! (XProfan igoriert es) aber der Fehler wird von beiden nicht gemeldet!
Def !XXXX1 ($7FFFFFFF * 4)
Def &XXXX2 (2147483647 * 1)
Cls
Print (       "T1! = " + Str$(T1!))
Print (       "T2! = " + Str$(T2!))
Print (     "
T1& = " + Str$(T1&))
Print (       "T2& = " + Str$(T2&))
Print ("
!XXXX1 = " + Str$(!XXXX1))
Print (    "&XXXX2 = " + Str$(&XXXX2))
WaitInput
Fin