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

10 lines
206 B
Text

If OpenConsole()
Define n
PrintN("Reading specific pameters")
For n=0 To CountProgramParameters()
PrintN(ProgramParameter(n))
Next
Print(#CRLF$+"Press Enter")
Input()
CloseConsole()
EndIf