; ; Test .PARSE directive ; .ASKS COMAN Enter string to be parsed: .askn TIMES How many times: .go:.PARSE coman "," fld1 fld2 fld3 fld4 fld5 fld6 fld7 fld8 fld9 fld10 .dec times .if times gt 0 .goto go .setn fields 1 .outfld: .sets cfld fld'fields' .TEST CFLD ; Field 'fields':'cfld' (length '<strlen>') .inc fields .if fields lt 11 .goto outfld