OBJECT=MOUSE
MOUSE:TYPE=MOUSE
MOUSE:RAW=0

OBJECT=CNVLOADER
CNVLOADER:TYPE=CNVLOADER

OBJECT=CANVASOBSERVER
CANVASOBSERVER:TYPE=CANVAS_OBSERVER

OBJECT=KEYBOARD
KEYBOARD:TYPE=KEYBOARD
KEYBOARD:ONKEYDOWN^LEFT={DEBUG_VALUE^DEC();DEBUG^GOTO("MATH_TEST");}
KEYBOARD:ONKEYDOWN^RIGHT={DEBUG_VALUE^INC();DEBUG^GOTO("ARRAY_TEST");}
KEYBOARD:ONKEYDOWN^ESC={EXITPROGRAM^RUN();}
KEYBOARD:ONKEYDOWN^1={CURRENTLYCHANGING^SET("LEFTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^2={CURRENTLYCHANGING^SET("RIGHTOPERAND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^UP={@IF("*CURRENTLYCHANGING^GET()", ">", "0", "{*CURRENTLYCHANGING^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^DOWN={@IF("*CURRENTLYCHANGING^GET()", "<", "3", "{*CURRENTLYCHANGING^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^Q={@IF("TESTSETNO", ">", "0", "{TESTSETNO^DEC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^E={@IF("TESTSETNO", "<", "1", "{TESTSETNO^INC(); UPDATE_TEST_SET_TEXT^RUN();}", "");}
KEYBOARD:ONKEYDOWN^A={CURRENT_OPERATOR^SET("AND");UPDATE_TEST_SET_TEXT^RUN();}
KEYBOARD:ONKEYDOWN^D={CURRENT_OPERATOR^SET("OR");UPDATE_TEST_SET_TEXT^RUN();}

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

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=DANETESTOWE
DANETESTOWE:TYPE=ARRAY

OBJECT=SLOWNIK
SLOWNIK:TYPE=ARRAY

OBJECT=CURRENT_OPERATOR
CURRENT_OPERATOR:TYPE=STRING
CURRENT_OPERATOR:VALUE=AND

OBJECT=TESTSETNO
TESTSETNO:TYPE=INTEGER
TESTSETNO:VALUE=0

OBJECT=LEFTOPERAND
LEFTOPERAND:TYPE=INTEGER
LEFTOPERAND:VALUE=0

OBJECT=RIGHTOPERAND
RIGHTOPERAND:TYPE=INTEGER
RIGHTOPERAND:VALUE=0

OBJECT=LSTRING
LSTRING:TYPE=STRING
LSTRING:VALUE=LEFTOPERAND

OBJECT=RSTRING
RSTRING:TYPE=STRING
RSTRING:VALUE=RIGHTOPERAND

OBJECT=CURRENTLYCHANGING
CURRENTLYCHANGING:TYPE=STRING
CURRENTLYCHANGING:VALUE=LEFTOPERAND

OBJECT=UPDATE_TEST_SET_TEXT
UPDATE_TEST_SET_TEXT:TYPE=BEHAVIOUR
UPDATE_TEST_SET_TEXT:CODE={TXTMSG2^SETTEXT(["Zestaw_testowy__"+[TESTSETNO+1]+"|STRING__"+DANETESTOWE^GET([TESTSETNO*4])+"|INTEGER__"+DANETESTOWE^GET([TESTSETNO*4+3])+"|DOUBLE__"+DANETESTOWE^GET([TESTSETNO*4+2])+"|BOOL__"+DANETESTOWE^GET([TESTSETNO*4+1])+"||"+GENERATE_TEST_TEXT^RUN()]);}

OBJECT=GENERATE_TEST_TEXT
GENERATE_TEST_TEXT:TYPE=BEHAVIOUR
GENERATE_TEST_TEXT:CODE={@STRING("TEST_RESULT","");@IF("CURRENTLYCHANGING", "_", "LSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(LEFTOPERAND));TEST_RESULT^ADD("_____");@IF("CURRENTLYCHANGING", "_", "RSTRING", "{TEST_RESULT^ADD(">");}", "");TEST_RESULT^ADD(SLOWNIK^GET(RIGHTOPERAND));TEST_RESULT^ADD(["|"+DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])]);@IF("CURRENT_OPERATOR", "_", "OR", "{TEST_RESULT^ADD("_OR_");}", "{TEST_RESULT^ADD("_AND_");}");TEST_RESULT^ADD([DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])]);TEST_RESULT^ADD(["__"+CHECK_VARS^RUN()]);@RETURN(TEST_RESULT);}

OBJECT=CHECK_VARS
CHECK_VARS:TYPE=BEHAVIOUR
CHECK_VARS:CODE={@BOOL("LOGIC_RESULT", FALSE);@IF("LEFTOPERAND>0&&RIGHTOPERAND>0", "{@IF("CURRENT_OPERATOR", "_", "OR", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"||"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}", "{@IF([DANETESTOWE^GET([TESTSETNO*4+LEFTOPERAND])+"&&"+DANETESTOWE^GET([TESTSETNO*4+RIGHTOPERAND])], "{LOGIC_RESULT^SET(TRUE);}", "{LOGIC_RESULT^SET(FALSE);});}");}", "");@RETURN(LOGIC_RESULT);}
CHECK_VARS:DESCRIPTION=SPRAWDZA_ZWRACANE_WYNIKI_PRZY_POROWNANIU_LOGICZNYM__NA_TEN_MOMENT_NIE_DZIA�A__WYWALA_DO_PULPITU

OBJECT=__INIT__
__INIT__:TYPE=BEHAVIOUR
__INIT__:CODE={DANETESTOWE^LOAD("TESTOWE_DANE.ARR");SLOWNIK^LOAD("SLOWNIK.ARR");TXTMSG^SETTEXT(["Test"+DEBUG_VALUE+"_Test_instrukcji_logicznych"]);TXTMSG^SHOW();TXTMSG2^SHOW();UPDATE_TEST_SET_TEXT^RUN();}