RosettaCodeData/Task/Command-line-arguments/PowerBASIC/command-line-arguments-2.powerbasic

9 lines
154 B
Text
Raw Permalink Normal View History

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