RosettaCodeData/Task/Command-line-arguments/PureBasic/command-line-arguments-2.basic

11 lines
206 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
If OpenConsole()
Define n
PrintN("Reading specific pameters")
For n=0 To CountProgramParameters()
PrintN(ProgramParameter(n))
Next
Print(#CRLF$+"Press Enter")
Input()
CloseConsole()
EndIf