XProfan

 {$PUSHKEYWORD xfor,endfor}
 {$PREBATCH <XProfan X3-Pfad>\JRPC.exe "<Programmname>.enh"}

 {$PUSHKEYWORD xfor,endfor}
 {$PREBATCH <XProfan X3-Pfad>\JRPC.exe "<Programmname>.enh"}

PROC TestProc

    declare i%
    xfor i%,10,20,2
    print i%
    endfor'i%

ENDPROC'TestProc

 {$PUSHKEYWORD freetocaller,totalamount,totalfree}
DEF GetDiskFreeSpaceEx(4) !"kernel32.dll","GetDiskFreeSpaceExA"

PROC GetFreeDiskSpace'Parameter: Laufwerk (kann auf irgendeinen Pfad zeigen)

    parameters drive$'kann auf irgendeinen Pfad des gewünschten Laufwerkes zeigen
    declare d#,erg%
    declare quad freetocaller,totalamount,totalfree
    dim d#,255
    string d#,0=drive$
    erg%=@GetDiskFreeSpaceEx(d#,@addr(freetocaller),@addr(totalamount),@addr(totalfree))
    dispose d#
    return freetocaller

ENDPROC'GetFreeDiskSpace

 {$PUSHKEYWORD process}