[go: up one dir, main page]

Menu

[r99]: / XPARSE.MPL  Maximize  Restore  History

Download this file

14 lines (9 with data), 238 Bytes

##LIBHDR
##LIBSTR

MYSTR="   THIS IS AN EXAMPLE OF MPL PARSING USING STRARG 10 20 NUMB123   "

MAIN(;S%40,SS,I) [
  I=0; SS=STRARG(S$,MYSTR$,1); %S$ @ [
    WRITEF("%I2: '%S'*N", ++I, S$);
    SS=STRARG(S$,MYSTR$,SS)
  ]
]