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

9 lines
154 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04: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