XProfan

' Kommandozeilenparameter auslesen (PRFellow - Presentación)
' Autor 2007 Thomas Hölzer, 2018 To XProfan11.2a p.specht
' Procedimiento dient a Testzwecken en el Entwicklungsprozeß,
' en Anzahl, Numerierung y Inhalt el beim Programmstart
' übergebenen Parámetro a prüfen.
' Bitte beachten: En una a EXE gelinkten Programa
' mover se en XProfan el Parámetro-Index en -1 !"

Proc CheckParams

    Declarar i%,paramstr$

    Whileloop 0,%ParCount-1

        paramstr$=paramstr$+"Par$("+Str$(i%)+") = "+Par$(i%)+"\n"

    EndWhile

    MessageBox(paramstr$,"Parametertest", 64)

ENDPROC

Main:
Cls
CheckParams
End