RosettaCodeData/Task/Command-line-arguments/PowerBASIC/command-line-arguments-2.basic
2023-07-01 13:44:08 -04: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