BCX Console Demonstration Program s141.bas

$COMMENT
*********************************************************************
This demonstrates the new and expanded COMMAND$ function written
by Pat Kelly. This version of COMMAND$ works with GUI and console
mode programs, is fully backward compatible, and now provides easy
access to individual command line arguments.
*********************************************************************
$COMMENT

DIM cmd$
DIM i AS INTEGER

cmd$ = COMMAND$

PRINT "Full command tail: [", cmd$, "]"
PRINT "The executable name is [", COMMAND$(0), "]"

i = 1

cmd$ = COMMAND$(i)

WHILE cmd$ <> ""
  PRINT "Argument", i, " is [", cmd$, "]"
  i++
  cmd$ = COMMAND$(i)
WEND

PRINT "Total arguments:", i - 1

Result:

Result not displayed for this example.