EscapeRoom

2-pre-alpha

Brought to you by: florenvanolden, jeffreyb, oscarfokker, ozzy, tobivw

MIT License

Diff of /branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/LaserStateMachine/svnobj [r14] .. [r15] Maximize Restore

Switch to unified view


Gx_löF!0…jüo‡.¬…íñGÜ²>System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument    L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id
longTagText$IF NOT xInit THEN N UM            (    sName := 'Normal Operation', ì                    dwSupportedStates := PACK_ML.State.All - PACK_ML.State.Suspending - PACK_ML.State.Suspended - PACK_ML.State.UnSuspending - PACK_ML.Holding - PACK_ML.Held - PACK_ML.UnHolding, Ô                    dwAllowsLeavingFromStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, Ö                    dwAllowsEnteringIntoStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, \                   eInitialState := PACK_ML.State.Aborted,0                     xActive := TRUE);   xInit := TRUE; END_IF4IF Client.bReadyToPLC THEN:   CASE Client.iCommandToPLC OF" 0 :    //Handshake   1 :    //Lock’       IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) =  0 THEN;     2       Lock_CO_Match := TRUE;!       "˜       ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) =  0 THEN ; #2       //Second Lock Function$
          ; %    END_IF& 2 :    //Key    ' 3 :    //IO( 4 :    //Media)   5 :    //Hint* 6 :    //State +l    IF SysStrCmp(Client.sCommandToPLC, 'SC') =  0 THEN      ,&       StateComplete();-x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') =  0 THEN      .       Start();/v    ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') =  0 THEN    0       Stop();1x      ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') =  0 THEN      2       Reset();3x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') =  0 THEN      4       Abort();5x    ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') =  0 THEN      6       Clear();7v    ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') =  0 THEN    8       Hold();9z      ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') =  0 THEN    :       Unhold(); ;|    ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') =  0 THEN      <       Suspend();=       ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') =  0 THEN      >       UnSuspend();?    @ END_CASEA6 Client.iCommandToPLC := 0;B8 Client.sCommandToPLC := '';C:   Client.bReadyToPLC := FALSE;D.CASE UM.CurrentState OFE,PACK_ML.State.Stopped:F;G,PACK_ML.State.Aborted:H&PACK_ML.State.Idle:I0PACK_ML.State.Complete :J.PACK_ML.State.Execute :KD   IF puzzleTimer.iProcess = 20 THENL@      IF Client.ActualStep < 30 THENM¸          SendCommand(Command := CommandType.Hint ,Value := 'Enable the cabinet with PACKML.');          N END_IFOD IF puzzleTimer.iProcess = 40 THENPÊ        SendCommand(Command := CommandType.Hint ,Value := 'The statemachine is visible in the display.'); QD IF puzzleTimer.iProcess = 50 THENRB      IF Client.ActualStep >= 30 THENS        SendCommand(Command := CommandType.Hint ,Value := 'Find the laser angles.');T    END_IF      UD IF puzzleTimer.iProcess = 60 THENV     SendCommand(Command := CommandType.Media ,Value := 'Automation Suite');    W4 CASE Client.ActualStep OFX   0: // abortedYJ      LaserGamePuzzle := PACK_ML.Aborted;Z6      DO_Reset_Light := bl.OUT;[     IF DI_Reset AND NOT DI_Auto_Hand_Switch AND DI_NoodstopCabinet THEN             \6       Client.ActualStep := 10;]6       DO_Reset_Light := FALSE;^:       DO_Spanning_Light := TRUE;_ 10: // Stopped`J    LaserGamePuzzle := PACK_ML.Stopped;a6      DO_Storing_Light := TRUE;bZ      IF DI_Init AND NOT DI_Auto_Hand_Switch THENc6         Client.ActualStep := 20;d6       DO_HintLaser_ON := TRUE;e@       DO_Storing_Light := FALSE;         fB    IF NOT DI_NoodstopCabinet THEN;g4         Client.ActualStep := 0;h8         DO_HintLaser_ON := FALSE;i<         DO_Spanning_Light := FALSE;j<         DO_Storing_Light := FALSE;   k 20: // IdlelD      LaserGamePuzzle := PACK_ML.Idle;mB    DO_In_Bedrijf_Light := bl2.OUT;nx      r_trig(CLK:= DI_Start_Switch AND NOT DI_Auto_Hand_Switch);o&    IF r_trig.Q THEN   p>       DO_In_Bedrijf_Light := TRUE;q0       DO_Laser_ON := TRUE;   r8       Client.ActualStep := 30;   s¸          SendCommand(Command:= CommandType.Key, Value:= Client.KeyCommands[0]);   // cabinet enabledt*    IF NOT DI_Stop THENu:         Client.ActualStep := 10;      vB       DO_In_Bedrijf_Light := FALSE; w0       DO_Laser_ON := FALSE;xF      IF NOT DI_NoodstopCabinet THEN;    y 30: // ExecutezJ    LaserGamePuzzle := PACK_ML.Execute;{:      ton(PT := T#2M,IN := TRUE);|J      IF Lock_CO_Match THEN          //OR ton.Q}0       StateComplete();               ~@       DO_In_Bedrijf_Light := FALSE;      END_IF   8          Client.ActualStep := 0;        END_CASE ^  DO_Auto_Hand_Light := NOT DI_Auto_Hand_Switch;R    Client.Progress := puzzleTimer.iProcess; 2PACK_ML.State.Resetting :>  LaserGamePuzzle := PACK_ML.No;.    Client.Progress := 0; <    DO_In_Bedrijf_Light := FALSE;6  DO_Storing_Light := FALSE;8    DO_Spanning_Light := FALSE;:  DO_Auto_Hand_Light := FALSE;2    DO_Reset_Light := FALSE;,    DO_Laser_ON := FALSE;4  DO_HintLaser_ON := FALSE;:  KEY_puzzleFinished := FALSE;"    StateComplete();0PACK_ML.State.Starting :6PACK_ML.State.Completing : 0    Client.Progress := 100;0PACK_ML.State.Aborting :4   DO_Storing_Light := TRUE;.PACK_ML.State.Stopping:6 DO_Spanning_Light := TRUE;6    DO_HintLaser_ON := FALSE;;0PACK_ML.State.Clearing :END_CASEfIF NOT (DI_EmergencyGF AND NOT DI_EmergencyFF) THEN( // Emergency Abort.  Abort();   END_IF LClient.ActualState := UM.CurrentState; >messageQueue(Client := Client);¡äpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);¢FIF puzzleTimer.iProcess >= 100 THEN£  //Stop();¤rbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);¥tbl2(ENABLE := TRUE,TIMELOW := T#500MS,TIMEHIGH:= T#500MS);¦Interface§L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}¨@FUNCTION_BLOCK LaserStateMachine©VAR_IN_OUTª.    Client : PuzzleClient;«END_VAR¬VAR­8  UM               : PACK_ML.UnitMode; ®(    r_trig            : R_TRIG;¯l  xInit          : BOOL := FALSE; // Flag for initialization °<    puzzleTimer       : PuzzleTimer;   ±"    bl              : blink;²"    bl2             : blink;³     ton             : TON;   ´8    KEY_puzzleFinished  : BOOL;µ2  Key_CO_Panel_On    : BOOL;¶.  Lock_CO_Match    : BOOL;·L  //DI_NoodstopCabinet   : BOOL   := TRUE ;¸:  messageQueue : MessageQueue;¹"UniqueIdGeneratorº593»POULevel¼L{8e575c5b-1d37-49c6-941b-5c0ec7874787}½Standard¾ ChildObjectGuids¿8System.Collections.ArrayListÀ,AddAttributeSubsequentÁboolÐÐ-ÐÐ   E
èÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­lÚÐ-ÐÐ
­eÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­®ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­µÚÐ-ÐÐ
­´ÚÐ- ÐÐ
­÷ÚÐ-!ÐÐ
­¶ÚÐ-"ÐÐ
­·ÚÐ-#ÐÐ
­øÚÐ-$ÐÐ
­¯ÚÐ-%ÐÐ
­©ÚÐ-&ÐÐ
­üÚÐ-ÐÐ
­ªÚÐ-'ÐÐ
­«ÚÐ-(ÐÐ
­¬ÚÐ-)ÐÐ
­­ÚÐ-*ÐÐ
­¹ÚÐ-+ÐÐ
­ºÚÐ-,ÐÐ
­»ÚÐ--ÐÐ
­¾ÚÐ-.ÐÐ
­¿ÚÐ-/ÐÐ
­ÀÚÐ-0ÐÐ
­ÁÚÐ-1ÐÐ
­ÂÚÐ-2ÐÐ
­ÃÚÐ-3ÐÐ
­ÄÚÐ-4ÐÐ
­ÅÚÐ-5ÐÐ
­ÆÚÐ-6ÐÐ
­ÇÚÐ-7ÐÐ
­ÈÚÐ-8ÐÐ
­ÉÚÐ-9ÐÐ
­ÎÚÐ-:ÐÐ
­ÏÚÐ-;ÐÐ
­ÐÚÐ-<ÐÐ
­ÑÚÐ-=ÐÐ
­¼ÚÐ->ÐÐ
­¸ÚÐ-%ÐÐ
­½ÚÐ-?ÐÐ
­ÚÐ-@ÐÐ
­ÓÚÐ-ÐÐ
­ÕÚÐ-AÐÐ
­ÖÚÐ-BÐÐ
­×ÚÐ-CÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-DÐÐ
­ÚÐ-EÐÐ
­uÚÐ-FÐÐ
­ÚÐ-GÐÐ
­vÚÐ-FÐÐ
­ÚÐ-HÐÐ
­wÚÐ-FÐÐ
­ ÚÐ-IÐÐ
­¦ÚÐ-FÐÐ
­ÚÐ-JÐÐ
­7ÚÐ-ÐÐ
­2ÚÐ-KÐÐ
­EÚÐ-LÐÐ
­HÚÐ-MÐÐ
­GÚÐ-%ÐÐ
­4ÚÐ-NÐÐ
­5ÚÐ-OÐÐ
­IÚÐ-LÐÐ
­6ÚÐ-PÐÐ
­JÚÐ-%ÐÐ
­-ÚÐ-NÐÐ
­8ÚÐ-QÐÐ
­KÚÐ-RÐÐ
­9ÚÐ-SÐÐ
­LÚÐ-TÐÐ
­?ÚÐ-NÐÐ
­@ÚÐ-UÐÐ
­AÚÐ-VÐÐ
­>ÚÐ-NÐÐ
­0ÚÐ-ÐÐ
­rÚÐ-ÐÐ
­üÚÐ-WÐÐ
­FÚÐ-XÐÐ
­ÚÐ-YÐÐ
­IÚÐ-ZÐÐ
­PÚÐ-[ÐÐ
­QÚÐ-\ÐÐ
­sÚÐ-]ÐÐ
­&ÚÐ-^ÐÐ
­RÚÐ-%ÐÐ
­SÚÐ-_ÐÐ
­
ÚÐ-`ÐÐ
­"ÚÐ-aÐÐ
­tÚÐ-bÐÐ
­]ÚÐ-cÐÐ
­êÚÐ-dÐÐ
­ÍÚÐ-eÐÐ
­ªÚÐ-TÐÐ
­ðÚÐ-fÐÐ
­ôÚÐ-gÐÐ
­õÚÐ-hÐÐ
­(ÚÐ-iÐÐ
­#ÚÐ-jÐÐ
­óÚÐ-%ÐÐ
­ñÚÐ-?ÐÐ
­YÚÐ-kÐÐ
­ÚÐ-lÐÐ
­´ÚÐ-mÐÐ
­ÙÚÐ-nÐÐ
­ÚÚÐ-?ÐÐ
­\ÚÐ-oÐÐ
­ÝÚÐ-pÐÐ
­ÚÐ-qÐÐ
­aÚÐ-rÐÐ
­£ÚÐ-sÐÐ
­¬ÚÐ-%ÐÐ
­­ÚÐ-tÐÐ
­±ÚÐ-uÐÐ
­²ÚÐ-vÐÐ
­×ÚÐ-wÐÐ
­ìÚÐ-hÐÐ
­`ÚÐ-%ÐÐ
­÷ÚÐ-xÐÐ
­$ÚÐ-vÐÐ
­øÚÐ-gÐÐ
­ùÚÐ-hÐÐ
­)ÚÐ-iÐÐ
­úÚÐ-wÐÐ
­ûÚÐ-hÐÐ
­öÚÐ-%ÐÐ
­bÚÐ-yÐÐ
­ÚÐ-zÐÐ
­¹ÚÐ-{ÐÐ
­ÚÐ-|ÐÐ
­ÚÐ-}ÐÐ
­fÚÐ-%ÐÐ
­ÓÚÐ-ÐÐ
­ÔÚÐ-tÐÐ
­ÕÚÐ-uÐÐ
­ÖÚÐ-~ÐÐ
­ØÚÐ-wÐÐ
­ëÚÐ-hÐÐ
­ÒÚÐ-ÐÐ
­ÚÐ-fÐÐ
­ÚÐ-ÐÐ
­%ÚÐ-vÐÐ
­ÚÐ-hÐÐ
­*ÚÐ-iÐÐ
­ÚÐ-wÐÐ
­ÚÐ-hÐÐ
­JÚÐ-%ÐÐ
­GÚÐ-ÐÐ
­ÚÐ-ÐÐ
­³ÚÐ-ÐÐ
­áÚÐ-ÐÐ
­âÚÐ-ÐÐ
­àÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­çÚÐ-ÐÐ
­+ÚÐ-ÐÐ
­þÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­
ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­¾ÚÐ-ÐÐ
­ÜÚÐ-ÐÐ
­ÚÐ-ÐÐ
­;ÚÐ-ÐÐ
­ãÚÐ-ÐÐ
­RÚÐ-ÐÐ
­<ÚÐ-ÐÐ
­.ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­¿ÚÐ-ÐÐ
­=ÚÐ-ÐÐ
­åÚÐ-ÐÐ
­,ÚÐ-ÐÐ
­WÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ ÚÐ-ÐÐ
­!ÚÐ-ÐÐ
­·ÚÐ-ÐÐ
­>ÚÐ-ÐÐ
­[ÚÐ-ÐÐ
­?ÚÐ-ÐÐ
­   ÚÐ-ÐÐ
­gÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­ÚÐ-ÐÐ
­hÚÐ-ÐÐ
­ÚÐ-ÐÐ
­PÚÐ-ÐÐ
­QÚÐ-ÐÐ
­fÚÐ- ÐÐ
­(ÚÐ-ÐÐ
­)ÚÐ-¡ÐÐ
­1ÚÐ-ÐÐ
­0ÚÐ-¢ÐÐ
­2ÚÐ-£ÐÐ
­3ÚÐ-ÐÐ
­+ÚÐ-ÐÐ
­NÚÐ-ÐÐ
­#ÚÐ-¤ÐÐ
­¶ÚÐ-¥Ð¦§Ð  E
ÐÐ
­ÚÐ-¨ÐÐ
­ÚÐ-©ÐÐ
­ÚÐ-ªÐÐ
­ÚÐ-«ÐÐ
­ÚÐ-¬ÐÐ
­ÚÐ-­ÐÐ
­ÛÚÐ-®ÐÐ
­ÚÐ-¯ÐÐ
­%ÚÐ-°ÐÐ
­LÚÐ-±ÐÐ
­•ÚÐ-²ÐÐ
­»ÚÐ-³ÐÐ
­¥ÚÐ-´ÐÐ
­þÚÐ-µÐÐ
­ýÚÐ-¶ÐÐ
­MÚÐ-·ÐÐ
­MÚÐ-ÐÐ
­NÚÐ-ÐÐ
­OÚÐ-¸ÐÐ
­ÚÐ-«ÐÐ
­ÚÐ-Ð¹-ºÐ»¼-½¾¿ÐÀÁ­

	a/branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/LaserStateMachine/svnobj		b/branches/PackMLState/Main_Escape_PLC/Plc Logic/Application/Function Blocks/Puzzle/LaserStateMachine/svnobj
1	Gx_lþE!0…jüo .îÇ[‚Íª¿x#System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}	1	Gx_löF!0…jüo‡.¬…íñGÜ²>System.StringL{6f9dac99-8de1-4efc-8465-68ac443b7d08}SpecialFuncL{0db3d7bb-cde0-4416-9a7b-ce49a0124323}NoneImplementationL{3b83b776-fb25-43b8-99f2-3c507c9143fc}TextDocument L{f3878285-8e4f-490b-bb1b-9acbb7eb04db}
2	TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id longTagText$IF NOT xInit THEN N UM ( sName := 'Normal Operation', ì dwSupportedStates := PACK_ML.State.All - PACK_ML.State.Suspending - PACK_ML.State.Suspended - PACK_ML.State.UnSuspending - PACK_ML.Holding - PACK_ML.Held - PACK_ML.UnHolding, Ô dwAllowsLeavingFromStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, Ö dwAllowsEnteringIntoStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, \ eInitialState := PACK_ML.State.Aborted,0 xActive := TRUE); xInit := TRUE; END_IF4IF Client.bReadyToPLC THEN: CASE Client.iCommandToPLC OF" 0 : //Handshake 1 : //Lock’ IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) = 0 THEN; 2 Lock_CO_Match := TRUE;! "˜ ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) = 0 THEN ; #2 //Second Lock Function$	2	TextLinesL{a5de0b0b-1cb5-4913-ac21-9d70293ec00d}Id longTagText$IF NOT xInit THEN N UM ( sName := 'Normal Operation', ì dwSupportedStates := PACK_ML.State.All - PACK_ML.State.Suspending - PACK_ML.State.Suspended - PACK_ML.State.UnSuspending - PACK_ML.Holding - PACK_ML.Held - PACK_ML.UnHolding, Ô dwAllowsLeavingFromStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, Ö dwAllowsEnteringIntoStates := PACK_ML.State.Stopped OR PACK_ML.State.Aborted OR PACK_ML.State.Idle, \ eInitialState := PACK_ML.State.Aborted,0 xActive := TRUE); xInit := TRUE; END_IF4IF Client.bReadyToPLC THEN: CASE Client.iCommandToPLC OF" 0 : //Handshake 1 : //Lock’ IF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[0]) = 0 THEN; 2 Lock_CO_Match := TRUE;! "˜ ELSIF SysStrCmp(Client.sCommandToPLC, Client.LockCommands[1]) = 0 THEN ; #2 //Second Lock Function$
3	; % END_IF& 2 : //Key ' 3 : //IO( 4 : //Media) 5 : //Hint* 6 : //State +l IF SysStrCmp(Client.sCommandToPLC, 'SC') = 0 THEN ,& StateComplete();-x ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') = 0 THEN . Start();/v ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') = 0 THEN 0 Stop();1x ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') = 0 THEN 2 Reset();3x ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') = 0 THEN 4 Abort();5x ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') = 0 THEN 6 Clear();7v ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') = 0 THEN 8 Hold();9z ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') = 0 THEN : Unhold(); ;\| ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') = 0 THEN < Suspend();= ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') = 0 THEN > UnSuspend();? @ END_CASEA6 Client.iCommandToPLC := 0;B8 Client.sCommandToPLC := '';C: Client.bReadyToPLC := FALSE;D.CASE UM.CurrentState OFE,PACK_ML.State.Stopped:F;G,PACK_ML.State.Aborted:H&PACK_ML.State.Idle:I0PACK_ML.State.Complete :J.PACK_ML.State.Execute :KD IF puzzleTimer.iProcess = 20 THENL@ IF Client.ActualStep < 30 THENM¸ SendCommand(Command := CommandType.Hint ,Value := 'Enable the cabinet with PACKML.'); N END_IFOD IF puzzleTimer.iProcess = 40 THENPÊ SendCommand(Command := CommandType.Hint ,Value := 'The statemachine is visible in the display.'); QD IF puzzleTimer.iProcess = 50 THENRB IF Client.ActualStep >= 30 THENS SendCommand(Command := CommandType.Hint ,Value := 'Find the laser angles.');T END_IF UD IF puzzleTimer.iProcess = 60 THENV SendCommand(Command := CommandType.Media ,Value := 'Automation Suite'); W4 CASE Client.ActualStep OFX 0: // abortedYJ LaserGamePuzzle := PACK_ML.Aborted;Z6 DO_Reset_Light := bl.OUT;[ IF DI_Reset AND NOT DI_Auto_Hand_Switch AND DI_NoodstopCabinet THEN \6 Client.ActualStep := 10;]6 DO_Reset_Light := FALSE;^: DO_Spanning_Light := TRUE;_ 10: // Stopped`J LaserGamePuzzle := PACK_ML.Stopped;a6 DO_Storing_Light := TRUE;bZ IF DI_Init AND NOT DI_Auto_Hand_Switch THENc6 Client.ActualStep := 20;d6 DO_HintLaser_ON := TRUE;e@ DO_Storing_Light := FALSE; fB IF NOT DI_NoodstopCabinet THEN;g4 Client.ActualStep := 0;h8 DO_HintLaser_ON := FALSE;i< DO_Spanning_Light := FALSE;j< DO_Storing_Light := FALSE; k 20: // IdlelD LaserGamePuzzle := PACK_ML.Idle;mB DO_In_Bedrijf_Light := bl2.OUT;nx r_trig(CLK:= DI_Start_Switch AND NOT DI_Auto_Hand_Switch);o& IF r_trig.Q THEN p> DO_In_Bedrijf_Light := TRUE;q0 DO_Laser_ON := TRUE; r8 Client.ActualStep := 30; s¸ SendCommand(Command:= CommandType.Key, Value:= Client.KeyCommands[0]); // cabinet enabledt* IF NOT DI_Stop THENu: Client.ActualStep := 10; vB DO_In_Bedrijf_Light := FALSE; w0 DO_Laser_ON := FALSE;xF IF NOT DI_NoodstopCabinet THEN; y 30: // ExecutezJ LaserGamePuzzle := PACK_ML.Execute;{: ton(PT := T#2M,IN := TRUE);\|J IF Lock_CO_Match THEN //OR ton.Q}0 StateComplete(); ~@ DO_In_Bedrijf_Light := FALSE; END_IF 8 Client.ActualStep := 0; END_CASE ^ DO_Auto_Hand_Light := NOT DI_Auto_Hand_Switch;R Client.Progress := puzzleTimer.iProcess; 2PACK_ML.State.Resetting :> LaserGamePuzzle := PACK_ML.No;. Client.Progress := 0; < DO_In_Bedrijf_Light := FALSE;6 DO_Storing_Light := FALSE;8 DO_Spanning_Light := FALSE;: DO_Auto_Hand_Light := FALSE;2 DO_Reset_Light := FALSE;, DO_Laser_ON := FALSE;4 DO_HintLaser_ON := FALSE;: KEY_puzzleFinished := FALSE;" StateComplete();0PACK_ML.State.Starting :6PACK_ML.State.Completing : 0 Client.Progress := 100;0PACK_ML.State.Aborting :4 DO_Storing_Light := TRUE;.PACK_ML.State.Stopping:6 DO_Spanning_Light := TRUE;6 DO_HintLaser_ON := FALSE;;0PACK_ML.State.Clearing :END_CASEfIF NOT (DI_EmergencyGF AND NOT DI_EmergencyFF) THEN( // Emergency Abort. Abort(); END_IF LClient.ActualState := UM.CurrentState; äpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);¡FIF puzzleTimer.iProcess >= 100 THEN¢ //Stop();£rbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);¤tbl2(ENABLE := TRUE,TIMELOW := T#500MS,TIMEHIGH:= T#500MS);¥Interface¦L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}§@FUNCTION_BLOCK LaserStateMachine¨VAR_IN_OUT©. Client : PuzzleClient;ªEND_VAR«VAR¬8 UM : PACK_ML.UnitMode; ( r_trig : R_TRIG;®l xInit : BOOL := FALSE; // Flag for initialization ¯< puzzleTimer : PuzzleTimer; °" bl : blink;±" bl2 : blink;² ton : TON; ³8 KEY_puzzleFinished : BOOL;´2 Key_CO_Panel_On : BOOL;µ. Lock_CO_Match : BOOL;¶L //DI_NoodstopCabinet : BOOL := TRUE ;·"UniqueIdGenerator¸588¹POULevelºL{8e575c5b-1d37-49c6-941b-5c0ec7874787}»Standard¼ ChildObjectGuids½8System.Collections.ArrayList¾,AddAttributeSubsequent¿boolÐÐ-ÐÐ E	3	; % END_IF& 2 : //Key ' 3 : //IO( 4 : //Media) 5 : //Hint* 6 : //State +l IF SysStrCmp(Client.sCommandToPLC, 'SC') = 0 THEN ,& StateComplete();-x ELSIF SysStrCmp(Client.sCommandToPLC, 'Start') = 0 THEN . Start();/v ELSIF SysStrCmp(Client.sCommandToPLC, 'Stop') = 0 THEN 0 Stop();1x ELSIF SysStrCmp(Client.sCommandToPLC, 'Reset') = 0 THEN 2 Reset();3x ELSIF SysStrCmp(Client.sCommandToPLC, 'Abort') = 0 THEN 4 Abort();5x ELSIF SysStrCmp(Client.sCommandToPLC, 'Clear') = 0 THEN 6 Clear();7v ELSIF SysStrCmp(Client.sCommandToPLC, 'Hold') = 0 THEN 8 Hold();9z ELSIF SysStrCmp(Client.sCommandToPLC, 'UnHold') = 0 THEN : Unhold(); ;\| ELSIF SysStrCmp(Client.sCommandToPLC, 'Suspend') = 0 THEN < Suspend();= ELSIF SysStrCmp(Client.sCommandToPLC, 'UnSuspend') = 0 THEN > UnSuspend();? @ END_CASEA6 Client.iCommandToPLC := 0;B8 Client.sCommandToPLC := '';C: Client.bReadyToPLC := FALSE;D.CASE UM.CurrentState OFE,PACK_ML.State.Stopped:F;G,PACK_ML.State.Aborted:H&PACK_ML.State.Idle:I0PACK_ML.State.Complete :J.PACK_ML.State.Execute :KD IF puzzleTimer.iProcess = 20 THENL@ IF Client.ActualStep < 30 THENM¸ SendCommand(Command := CommandType.Hint ,Value := 'Enable the cabinet with PACKML.'); N END_IFOD IF puzzleTimer.iProcess = 40 THENPÊ SendCommand(Command := CommandType.Hint ,Value := 'The statemachine is visible in the display.'); QD IF puzzleTimer.iProcess = 50 THENRB IF Client.ActualStep >= 30 THENS SendCommand(Command := CommandType.Hint ,Value := 'Find the laser angles.');T END_IF UD IF puzzleTimer.iProcess = 60 THENV SendCommand(Command := CommandType.Media ,Value := 'Automation Suite'); W4 CASE Client.ActualStep OFX 0: // abortedYJ LaserGamePuzzle := PACK_ML.Aborted;Z6 DO_Reset_Light := bl.OUT;[ IF DI_Reset AND NOT DI_Auto_Hand_Switch AND DI_NoodstopCabinet THEN \6 Client.ActualStep := 10;]6 DO_Reset_Light := FALSE;^: DO_Spanning_Light := TRUE;_ 10: // Stopped`J LaserGamePuzzle := PACK_ML.Stopped;a6 DO_Storing_Light := TRUE;bZ IF DI_Init AND NOT DI_Auto_Hand_Switch THENc6 Client.ActualStep := 20;d6 DO_HintLaser_ON := TRUE;e@ DO_Storing_Light := FALSE; fB IF NOT DI_NoodstopCabinet THEN;g4 Client.ActualStep := 0;h8 DO_HintLaser_ON := FALSE;i< DO_Spanning_Light := FALSE;j< DO_Storing_Light := FALSE; k 20: // IdlelD LaserGamePuzzle := PACK_ML.Idle;mB DO_In_Bedrijf_Light := bl2.OUT;nx r_trig(CLK:= DI_Start_Switch AND NOT DI_Auto_Hand_Switch);o& IF r_trig.Q THEN p> DO_In_Bedrijf_Light := TRUE;q0 DO_Laser_ON := TRUE; r8 Client.ActualStep := 30; s¸ SendCommand(Command:= CommandType.Key, Value:= Client.KeyCommands[0]); // cabinet enabledt* IF NOT DI_Stop THENu: Client.ActualStep := 10; vB DO_In_Bedrijf_Light := FALSE; w0 DO_Laser_ON := FALSE;xF IF NOT DI_NoodstopCabinet THEN; y 30: // ExecutezJ LaserGamePuzzle := PACK_ML.Execute;{: ton(PT := T#2M,IN := TRUE);\|J IF Lock_CO_Match THEN //OR ton.Q}0 StateComplete(); ~@ DO_In_Bedrijf_Light := FALSE; END_IF 8 Client.ActualStep := 0; END_CASE ^ DO_Auto_Hand_Light := NOT DI_Auto_Hand_Switch;R Client.Progress := puzzleTimer.iProcess; 2PACK_ML.State.Resetting :> LaserGamePuzzle := PACK_ML.No;. Client.Progress := 0; < DO_In_Bedrijf_Light := FALSE;6 DO_Storing_Light := FALSE;8 DO_Spanning_Light := FALSE;: DO_Auto_Hand_Light := FALSE;2 DO_Reset_Light := FALSE;, DO_Laser_ON := FALSE;4 DO_HintLaser_ON := FALSE;: KEY_puzzleFinished := FALSE;" StateComplete();0PACK_ML.State.Starting :6PACK_ML.State.Completing : 0 Client.Progress := 100;0PACK_ML.State.Aborting :4 DO_Storing_Light := TRUE;.PACK_ML.State.Stopping:6 DO_Spanning_Light := TRUE;6 DO_HintLaser_ON := FALSE;;0PACK_ML.State.Clearing :END_CASEfIF NOT (DI_EmergencyGF AND NOT DI_EmergencyFF) THEN( // Emergency Abort. Abort(); END_IF LClient.ActualState := UM.CurrentState; >messageQueue(Client := Client);¡äpuzzleTimer(xStartTimer := UM.CurrentState = PACK_ML.State.Execute ,xPauseTimer := ,xStopTimer:= NOT (UM.CurrentState = PACK_ML.State.Execute),tMaxPuzzleTime := Client.Duration);¢FIF puzzleTimer.iProcess >= 100 THEN£ //Stop();¤rbl(ENABLE := TRUE,TIMELOW := T#250MS,TIMEHIGH:= T#500MS);¥tbl2(ENABLE := TRUE,TIMELOW := T#500MS,TIMEHIGH:= T#500MS);¦Interface§L{a9ed5b7e-75c5-4651-af16-d2c27e98cb94}¨@FUNCTION_BLOCK LaserStateMachine©VAR_IN_OUTª. Client : PuzzleClient;«END_VAR¬VAR8 UM : PACK_ML.UnitMode; ®( r_trig : R_TRIG;¯l xInit : BOOL := FALSE; // Flag for initialization °< puzzleTimer : PuzzleTimer; ±" bl : blink;²" bl2 : blink;³ ton : TON; ´8 KEY_puzzleFinished : BOOL;µ2 Key_CO_Panel_On : BOOL;¶. Lock_CO_Match : BOOL;·L //DI_NoodstopCabinet : BOOL := TRUE ;¸: messageQueue : MessageQueue;¹"UniqueIdGeneratorº593»POULevel¼L{8e575c5b-1d37-49c6-941b-5c0ec7874787}½Standard¾ ChildObjectGuids¿8System.Collections.ArrayListÀ,AddAttributeSubsequentÁboolÐÐ-ÐÐ E
4	æÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ lÚÐ-ÐÐ eÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ®ÚÐ-ÐÐ ÚÐ-ÐÐ µÚÐ-ÐÐ ´ÚÐ- ÐÐ ÷ÚÐ-!ÐÐ ¶ÚÐ-"ÐÐ ·ÚÐ-#ÐÐ øÚÐ-$ÐÐ ¯ÚÐ-%ÐÐ ©ÚÐ-&ÐÐ üÚÐ-ÐÐ ªÚÐ-'ÐÐ «ÚÐ-(ÐÐ ¬ÚÐ-)ÐÐ ÚÐ-*ÐÐ ¹ÚÐ-+ÐÐ ºÚÐ-,ÐÐ »ÚÐ--ÐÐ ¾ÚÐ-.ÐÐ ¿ÚÐ-/ÐÐ ÀÚÐ-0ÐÐ ÁÚÐ-1ÐÐ ÂÚÐ-2ÐÐ ÃÚÐ-3ÐÐ ÄÚÐ-4ÐÐ ÅÚÐ-5ÐÐ ÆÚÐ-6ÐÐ ÇÚÐ-7ÐÐ ÈÚÐ-8ÐÐ ÉÚÐ-9ÐÐ ÎÚÐ-:ÐÐ ÏÚÐ-;ÐÐ ÐÚÐ-<ÐÐ ÑÚÐ-=ÐÐ ¼ÚÐ->ÐÐ ¸ÚÐ-%ÐÐ ½ÚÐ-?ÐÐ ÚÐ-@ÐÐ ÓÚÐ-ÐÐ ÕÚÐ-AÐÐ ÖÚÐ-BÐÐ ×ÚÐ-CÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-DÐÐ ÚÐ-EÐÐ uÚÐ-FÐÐ ÚÐ-GÐÐ vÚÐ-FÐÐ ÚÐ-HÐÐ wÚÐ-FÐÐ ÚÐ-IÐÐ ¦ÚÐ-FÐÐ ÚÐ-JÐÐ 7ÚÐ-ÐÐ 2ÚÐ-KÐÐ EÚÐ-LÐÐ HÚÐ-MÐÐ GÚÐ-%ÐÐ 4ÚÐ-NÐÐ 5ÚÐ-OÐÐ IÚÐ-LÐÐ 6ÚÐ-PÐÐ JÚÐ-%ÐÐ -ÚÐ-NÐÐ 8ÚÐ-QÐÐ KÚÐ-RÐÐ 9ÚÐ-SÐÐ LÚÐ-TÐÐ ?ÚÐ-NÐÐ @ÚÐ-UÐÐ AÚÐ-VÐÐ >ÚÐ-NÐÐ 0ÚÐ-ÐÐ rÚÐ-ÐÐ üÚÐ-WÐÐ FÚÐ-XÐÐ ÚÐ-YÐÐ IÚÐ-ZÐÐ PÚÐ-[ÐÐ QÚÐ-\ÐÐ sÚÐ-]ÐÐ &ÚÐ-^ÐÐ RÚÐ-%ÐÐ SÚÐ-_ÐÐ	4	èÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ lÚÐ-ÐÐ eÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ®ÚÐ-ÐÐ ÚÐ-ÐÐ µÚÐ-ÐÐ ´ÚÐ- ÐÐ ÷ÚÐ-!ÐÐ ¶ÚÐ-"ÐÐ ·ÚÐ-#ÐÐ øÚÐ-$ÐÐ ¯ÚÐ-%ÐÐ ©ÚÐ-&ÐÐ üÚÐ-ÐÐ ªÚÐ-'ÐÐ «ÚÐ-(ÐÐ ¬ÚÐ-)ÐÐ ÚÐ-*ÐÐ ¹ÚÐ-+ÐÐ ºÚÐ-,ÐÐ »ÚÐ--ÐÐ ¾ÚÐ-.ÐÐ ¿ÚÐ-/ÐÐ ÀÚÐ-0ÐÐ ÁÚÐ-1ÐÐ ÂÚÐ-2ÐÐ ÃÚÐ-3ÐÐ ÄÚÐ-4ÐÐ ÅÚÐ-5ÐÐ ÆÚÐ-6ÐÐ ÇÚÐ-7ÐÐ ÈÚÐ-8ÐÐ ÉÚÐ-9ÐÐ ÎÚÐ-:ÐÐ ÏÚÐ-;ÐÐ ÐÚÐ-<ÐÐ ÑÚÐ-=ÐÐ ¼ÚÐ->ÐÐ ¸ÚÐ-%ÐÐ ½ÚÐ-?ÐÐ ÚÐ-@ÐÐ ÓÚÐ-ÐÐ ÕÚÐ-AÐÐ ÖÚÐ-BÐÐ ×ÚÐ-CÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-DÐÐ ÚÐ-EÐÐ uÚÐ-FÐÐ ÚÐ-GÐÐ vÚÐ-FÐÐ ÚÐ-HÐÐ wÚÐ-FÐÐ ÚÐ-IÐÐ ¦ÚÐ-FÐÐ ÚÐ-JÐÐ 7ÚÐ-ÐÐ 2ÚÐ-KÐÐ EÚÐ-LÐÐ HÚÐ-MÐÐ GÚÐ-%ÐÐ 4ÚÐ-NÐÐ 5ÚÐ-OÐÐ IÚÐ-LÐÐ 6ÚÐ-PÐÐ JÚÐ-%ÐÐ -ÚÐ-NÐÐ 8ÚÐ-QÐÐ KÚÐ-RÐÐ 9ÚÐ-SÐÐ LÚÐ-TÐÐ ?ÚÐ-NÐÐ @ÚÐ-UÐÐ AÚÐ-VÐÐ >ÚÐ-NÐÐ 0ÚÐ-ÐÐ rÚÐ-ÐÐ üÚÐ-WÐÐ FÚÐ-XÐÐ ÚÐ-YÐÐ IÚÐ-ZÐÐ PÚÐ-[ÐÐ QÚÐ-\ÐÐ sÚÐ-]ÐÐ &ÚÐ-^ÐÐ RÚÐ-%ÐÐ SÚÐ-_ÐÐ
5	ÚÐ-`ÐÐ "ÚÐ-aÐÐ tÚÐ-bÐÐ ]ÚÐ-cÐÐ êÚÐ-dÐÐ ÍÚÐ-eÐÐ ªÚÐ-TÐÐ ðÚÐ-fÐÐ ôÚÐ-gÐÐ õÚÐ-hÐÐ (ÚÐ-iÐÐ #ÚÐ-jÐÐ óÚÐ-%ÐÐ ñÚÐ-?ÐÐ YÚÐ-kÐÐ ÚÐ-lÐÐ ´ÚÐ-mÐÐ ÙÚÐ-nÐÐ ÚÚÐ-?ÐÐ \ÚÐ-oÐÐ ÝÚÐ-pÐÐ ÚÐ-qÐÐ aÚÐ-rÐÐ £ÚÐ-sÐÐ ¬ÚÐ-%ÐÐ ÚÐ-tÐÐ ±ÚÐ-uÐÐ ²ÚÐ-vÐÐ ×ÚÐ-wÐÐ ìÚÐ-hÐÐ `ÚÐ-%ÐÐ ÷ÚÐ-xÐÐ $ÚÐ-vÐÐ øÚÐ-gÐÐ ùÚÐ-hÐÐ )ÚÐ-iÐÐ úÚÐ-wÐÐ ûÚÐ-hÐÐ öÚÐ-%ÐÐ bÚÐ-yÐÐ ÚÐ-zÐÐ ¹ÚÐ-{ÐÐ ÚÐ-\|ÐÐ ÚÐ-}ÐÐ fÚÐ-%ÐÐ ÓÚÐ-ÐÐ ÔÚÐ-tÐÐ ÕÚÐ-uÐÐ ÖÚÐ-~ÐÐ ØÚÐ-wÐÐ ëÚÐ-hÐÐ ÒÚÐ-ÐÐ ÚÐ-fÐÐ ÚÐ-ÐÐ %ÚÐ-vÐÐ ÚÐ-hÐÐ *ÚÐ-iÐÐ ÚÐ-wÐÐ ÚÐ-hÐÐ JÚÐ-%ÐÐ GÚÐ-ÐÐ ÚÐ-ÐÐ ³ÚÐ-ÐÐ áÚÐ-ÐÐ âÚÐ-ÐÐ àÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ çÚÐ-ÐÐ +ÚÐ-ÐÐ þÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ¾ÚÐ-ÐÐ ÜÚÐ-ÐÐ ÚÐ-ÐÐ ;ÚÐ-ÐÐ ãÚÐ-ÐÐ RÚÐ-ÐÐ <ÚÐ-ÐÐ .ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ¿ÚÐ-ÐÐ =ÚÐ-ÐÐ åÚÐ-ÐÐ ,ÚÐ-ÐÐ WÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ !ÚÐ-ÐÐ ·ÚÐ-ÐÐ >ÚÐ-ÐÐ [ÚÐ-ÐÐ ?ÚÐ-ÐÐ ÚÐ-ÐÐ gÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ hÚÐ-ÐÐ ÚÐ-ÐÐ fÚÐ-ÐÐ (ÚÐ-ÐÐ )ÚÐ- ÐÐ 1ÚÐ-ÐÐ 0ÚÐ-¡ÐÐ 2ÚÐ-¢ÐÐ 3ÚÐ-ÐÐ +ÚÐ-ÐÐ NÚÐ-ÐÐ #ÚÐ-£ÐÐ ¶ÚÐ-¤Ð¥¦Ð E	5	ÚÐ-`ÐÐ "ÚÐ-aÐÐ tÚÐ-bÐÐ ]ÚÐ-cÐÐ êÚÐ-dÐÐ ÍÚÐ-eÐÐ ªÚÐ-TÐÐ ðÚÐ-fÐÐ ôÚÐ-gÐÐ õÚÐ-hÐÐ (ÚÐ-iÐÐ #ÚÐ-jÐÐ óÚÐ-%ÐÐ ñÚÐ-?ÐÐ YÚÐ-kÐÐ ÚÐ-lÐÐ ´ÚÐ-mÐÐ ÙÚÐ-nÐÐ ÚÚÐ-?ÐÐ \ÚÐ-oÐÐ ÝÚÐ-pÐÐ ÚÐ-qÐÐ aÚÐ-rÐÐ £ÚÐ-sÐÐ ¬ÚÐ-%ÐÐ ÚÐ-tÐÐ ±ÚÐ-uÐÐ ²ÚÐ-vÐÐ ×ÚÐ-wÐÐ ìÚÐ-hÐÐ `ÚÐ-%ÐÐ ÷ÚÐ-xÐÐ $ÚÐ-vÐÐ øÚÐ-gÐÐ ùÚÐ-hÐÐ )ÚÐ-iÐÐ úÚÐ-wÐÐ ûÚÐ-hÐÐ öÚÐ-%ÐÐ bÚÐ-yÐÐ ÚÐ-zÐÐ ¹ÚÐ-{ÐÐ ÚÐ-\|ÐÐ ÚÐ-}ÐÐ fÚÐ-%ÐÐ ÓÚÐ-ÐÐ ÔÚÐ-tÐÐ ÕÚÐ-uÐÐ ÖÚÐ-~ÐÐ ØÚÐ-wÐÐ ëÚÐ-hÐÐ ÒÚÐ-ÐÐ ÚÐ-fÐÐ ÚÐ-ÐÐ %ÚÐ-vÐÐ ÚÐ-hÐÐ *ÚÐ-iÐÐ ÚÐ-wÐÐ ÚÐ-hÐÐ JÚÐ-%ÐÐ GÚÐ-ÐÐ ÚÐ-ÐÐ ³ÚÐ-ÐÐ áÚÐ-ÐÐ âÚÐ-ÐÐ àÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ çÚÐ-ÐÐ +ÚÐ-ÐÐ þÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ¾ÚÐ-ÐÐ ÜÚÐ-ÐÐ ÚÐ-ÐÐ ;ÚÐ-ÐÐ ãÚÐ-ÐÐ RÚÐ-ÐÐ <ÚÐ-ÐÐ .ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ¿ÚÐ-ÐÐ =ÚÐ-ÐÐ åÚÐ-ÐÐ ,ÚÐ-ÐÐ WÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ !ÚÐ-ÐÐ ·ÚÐ-ÐÐ >ÚÐ-ÐÐ [ÚÐ-ÐÐ ?ÚÐ-ÐÐ ÚÐ-ÐÐ gÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ ÚÐ-ÐÐ hÚÐ-ÐÐ ÚÐ-ÐÐ PÚÐ-ÐÐ QÚÐ-ÐÐ fÚÐ- ÐÐ (ÚÐ-ÐÐ )ÚÐ-¡ÐÐ 1ÚÐ-ÐÐ 0ÚÐ-¢ÐÐ 2ÚÐ-£ÐÐ 3ÚÐ-ÐÐ +ÚÐ-ÐÐ NÚÐ-ÐÐ #ÚÐ-¤ÐÐ ¶ÚÐ-¥Ð¦§Ð E
6	ÐÐ ÚÐ-§ÐÐ ÚÐ-¨ÐÐ ÚÐ-©ÐÐ ÚÐ-ªÐÐ ÚÐ-«ÐÐ ÚÐ-¬ÐÐ ÛÚÐ-ÐÐ ÚÐ-®ÐÐ %ÚÐ-¯ÐÐ LÚÐ-°ÐÐ •ÚÐ-±ÐÐ »ÚÐ-²ÐÐ ¥ÚÐ-³ÐÐ þÚÐ-´ÐÐ ýÚÐ-µÐÐ MÚÐ-¶ÐÐ ÚÐ-ªÐÐ ÚÐ-Ð·-¸Ð¹º-»¼½Ð¾¿	6	ÐÐ ÚÐ-¨ÐÐ ÚÐ-©ÐÐ ÚÐ-ªÐÐ ÚÐ-«ÐÐ ÚÐ-¬ÐÐ ÚÐ-ÐÐ ÛÚÐ-®ÐÐ ÚÐ-¯ÐÐ %ÚÐ-°ÐÐ LÚÐ-±ÐÐ •ÚÐ-²ÐÐ »ÚÐ-³ÐÐ ¥ÚÐ-´ÐÐ þÚÐ-µÐÐ ýÚÐ-¶ÐÐ MÚÐ-·ÐÐ MÚÐ-ÐÐ NÚÐ-ÐÐ OÚÐ-¸ÐÐ ÚÐ-«ÐÐ ÚÐ-Ð¹-ºÐ»¼-½¾¿ÐÀÁ