DIMX $test,ordmapm(varstr;varstr) MAP1 key$,s,0 MAIN'ROUTINE: $test("1") = "_" $test("1") = "_" $test("2") = "_" key$ = "1" DO WHILE NOT .ISNULL($test(key$)) $test(key$) = .NULL LOOP END