RosettaCodeData/Task/Command-line-arguments/HicEst/command-line-arguments.hicest
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
181 B
Text

DO i = 2, 100 ! 1 is HicEst.exe
EDIT(Text=$CMD_LINE, SePaRators='-"', ITeM=i, IF ' ', EXit, ENDIF, Parse=cmd, GetPosition=position)
IF(position > 0) WRITE(Messagebox) cmd
ENDDO