RosettaCodeData/Task/Command-line-arguments/PureBasic/command-line-arguments-1.basic
2023-07-01 13:44:08 -04:00

11 lines
207 B
Text

If OpenConsole()
Define n=CountProgramParameters()
PrintN("Reading all parameters")
While n
PrintN(ProgramParameter())
n-1
Wend
Print(#CRLF$+"Press Enter")
Input()
CloseConsole()
EndIf