1 %RegisteredObject 0 Do ##class(APPS.P2L.P2LDisplayInput).Key(50,32) 1 DisplayAdres:%Integer,KeyCode:%Integer