XProfan

' Kommandozeilenparameter auslesen (PRFellow - Présentation)
' Autor 2007 Thomas Bois, 2018 To XProfan11.2a p.specht
' Procédure dient trop Testzwecken im Entwicklungsprozeß,
' um Anzahl, Numerierung et le contenu qui beim Programmstart
' übergebenen paramètre trop vérifier.
' s'il te plaît tenir compte de: chez einem zur EXE gelinkten Programme
' Déplacer sich dans XProfan qui paramètre-index um -1 !"

Proc CheckParams

    Déclarer i%,paramstr$

    Whileloop 0,%ParCount-1

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

    Endwhile

    MessageBox(paramstr$,"Parametertest", 64)

ENDPROC

Main:
Cls
CheckParams
Fin