OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^SPACE={CANVASOBSERVER^SAVE("TEST.IMG",1,1);}

OBJECT=TEST_IMAGE
TEST_IMAGE:TYPE=IMAGE
TEST_IMAGE:VISIBLE=TRUE
TEST_IMAGE:FILENAME=PAGE.IMG
TEST_IMAGE:TOCANVAS=TRUE
TEST_IMAGE:PRIORITY=3999
TEST_IMAGE:PRELOAD=TRUE
TEST_IMAGE:RELEASE=TRUE
TEST_IMAGE:MONITORCOLLISION=FALSE
TEST_IMAGE:MONITORCOLLISIONALPHA=FALSE

OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER

OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);}