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

11 lines
206 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07: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