global procedure ToolKeyPad_Numbers(string numberstr) BEGIN PasteString(CurWindow,numberstr); RETURN; END;