RosettaCodeData/Task/Command-line-arguments/HicEst/command-line-arguments.hicest

5 lines
181 B
Text
Raw Permalink Normal View History

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