RosettaCodeData/Task/Command-line-arguments/PowerBASIC/command-line-arguments-2.powerbasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
154 B
Text

'these two both return ALL args
? COMMAND$
? COMMAND$(0)
DO WHILE(LEN(COMMAND$(i)))
PRINT "The argument "; i; " is "; COMMAND$(i)
i = i + 1
LOOP