
ASSIGN(key;"")
SHOWCODE(ClrScreen!)
WHILE(key <> NTOC(-8182))
	LOOK(key)
	ASSIGN(key;NTOC(key))
ENDWHILE
DisplayRewrite
