XProfan

proc Test

    inc counter
    return 1

endproc

var int counter = 0
var int branch = 0

if Test()

    branch = 1

elseif Test()

    branch = 2

elseif Test()

    branch = 3

else

    branch = 4

endif

print "Abgearbeiteter Zweig:", branch
print "Aufrufe Test:", counter
waitinput
end

ifnot callbackCheck

elseif Call(callBackCheck, ...)

else

endif

ifnot callbackCheck

else

    if Call(callBackCheck, ...)

    else

    endif

' kurzschluss
var int A = 0
var int B = 10

if (A <> 0) and ((B / A) >= 5)

    messagebox("An dieser Stelle im Algorithmus konnte B durch A geteilt werden.","Erfolg",0)

else

    messagebox("An dieser Stelle ist der Quotient (B / A) echt kleiner als 5 oder eine Division durch 0 wurde verhindert","F E H L E R",0)

endif

if 5 = 5

    print "5=5"

elseif 6 = 6

    print "sechs"

else

    print "nix"

endif

if SomeAPICall()' gibt 0 aus, falls was schief gegangen ist.

    print "Juchuu, alles in Ordnung!"

elseif MessageBox("Hat nicht geklappt. Beenden?", "", ~MB_YESNO) = ~IDNO

    print "Trotz Fehler weitermachen."

else

    print "Programm wird beendet."
    end

CompileMarkSeparation
return gespeicherterWert or LangeRechnung("Dauert very long.")

functions in XProfan not.

concise and well: In If-Elseif-Structures stops I it for very  meaningfully, any further terms To ignore, once a true yields.

with boolschen Operators stops I it too for meaningfully, but since can The opinions different his.

important is only, that The Documentation somewhere erwähnt, How XProfan itself behave. so one not Dark tapst.