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