XProfan

' Kommandozeilenparameter read (PRFellow - Presentation)
' Author 2007 Thomas Hölzer, 2018 To XProfan11.2a p.woodpecker
' procedure serves To Testzwecken in the Entwicklungsprozeß,
' circa amount, Numerierung and Content the startup
' übergebenen Parameter To Verify.
' Please mind: with one to EXE gelinkten Program
' move itself in XProfan the Parameter-index circa -1 !"

Proc CheckParams

    Declare i%,paramstr$

    Whileloop 0,%ParCount-1

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

    EndWhile

    MessageBox(paramstr$,"Parametertest", 64)

ENDPROC

Main:
Cls
CheckParams
End