OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^UP={CURRENT_FREQ^SUB(200);}
KEYBOARD:ONKEYDOWN^DOWN={CURRENT_FREQ^ADD(200);}

OBJECT=SNDENGINE0
SNDENGINE0:TYPE=SOUND
SNDENGINE0:FILENAME=_000POJEDZIE.WAV
SNDENGINE0:PRELOAD=TRUE
SNDENGINE0:FLUSHAFTERPLAYED=FALSE
SNDENGINE0:ONFINISHED={SNDENGINE0^PLAY();}

OBJECT=ARIAL14
ARIAL14:TYPE=FONT
ARIAL14:DEF_ARIAL_STANDARD_14=$COMMON\ARIAL14.FNT

OBJECT=CURRENT_FREQ
CURRENT_FREQ:TYPE=INTEGER
CURRENT_FREQ:VALUE=10025
CURRENT_FREQ:ONCHANGED={TXTMSG2^SETTEXT(["CURRENT_FREQ_"+CURRENT_FREQ^GET()]);SNDENGINE0^SETFREQ(CURRENT_FREQ);}

OBJECT=TXTMSG
TXTMSG:TYPE=TEXT
TXTMSG:VISIBLE=TRUE
TXTMSG:HYPERTEXT=
TXTMSG:FONT=ARIAL14
TXTMSG:TOCANVAS=TRUE
TXTMSG:RECT=0,0,800,250
TXTMSG:PRIORITY=10000
TXTMSG:HJUSTIFY=CENTER
TXTMSG:VJUSTIFY=TOP
TXTMSG:MONITORCOLLISION=FALSE
TXTMSG:MONITORCOLLISIONALPHA=FALSE

OBJECT=TXTMSG2
TXTMSG2:TYPE=TEXT
TXTMSG2:VISIBLE=TRUE
TXTMSG2:HYPERTEXT=
TXTMSG2:FONT=ARIAL14
TXTMSG2:TOCANVAS=TRUE
TXTMSG2:RECT=0,0,800,250
TXTMSG2:PRIORITY=10000
TXTMSG2:HJUSTIFY=CENTER
TXTMSG2:VJUSTIFY=BOTTOM
TXTMSG2:MONITORCOLLISION=FALSE
TXTMSG2:MONITORCOLLISIONALPHA=FALSE

OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={KEYBOARD^SETAUTOREPEAT(FALSE);TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_dzwieku"]);TXTMSG^SHOW();TXTMSG2^SHOW();SNDENGINE0^PLAY();}