AQD7q&zXp V47Main.pasq&r V47Main.DFMm&dComCtrlsc&cdExtCtrlsc&fTImageVJf TSplitterMwl~fTTimergg.TImageWwg .TSplitter&HBg.TTimerψgTTimer.SetEnabled#gTTimer.SetInterval#cdStdCtrlsc&fTMemo+Ag.TMemoacdMenusc&f TMainMenuf TMenuItem%) g .TMainMenuqg .TMenuItem-CcdDialogsc&cdFormsc&fTFormH)g.TForm!gTCustomForm.AlignControls#gTCustomForm.CreateParams#gTCustomForm.CreateWindowHandle#gTCustomForm.CreateWnd#gTCustomForm.DefaultHandler#gTCustomForm.DefineProperties#gTCustomForm.DestroyWindowHandle#gTCustomForm.GetClientRect#gTCustomForm.Loaded#gTCustomForm.Notification#gTCustomForm.PaintWindow#gTCustomForm.ReadState#gTCustomForm.SetParent#gTCustomForm.ValidateRename#gTCustomForm.WndProc#gTCustomForm.Create#gTCustomForm.Destroy#gTCustomForm.SetFocus#gTCustomForm.WantChildKey#g Application^gTApplication.MessageBox#gTCustomForm.Close#cdControlsc&f TImageList:Vf TMouseButton|gTWinControl.CreateHandle#gTWinControl.DestroyWnd#gTWinControl.GetClientOrigin#gTWinControl.GetDeviceContext#gTWinControl.ShowControl#gTWinControl.Invalidate#gTWinControl.Repaint#gTWinControl.SetBounds#gTWinControl.Update#gTControl.GetDragImages#gTControl.SetDragMode#gTControl.SetName#g .TImageListm wkgTCustomImageList.Draw#gmbLeftDU%gmbRightEU%cdGraphicsc&gTPicture.GetBitmap#gTBitmap.GetCanvas#fTCanvastigTBrush.SetColor#gclBlackOD gTCanvas.FillRect#gclWhiteND gclRedNE cdClassesc&f TShiftStateYgTComponent.WriteState#gTComponent.SafeCallException#gTPersistent.AssignTo#gTPersistent.Assign#gRect~#f.1gssShiftpcdSysUtilskf Exception_g .ExceptionЀf EInOutErrorg .EInOutError_!gException.Create#g UpperCaseWCgStrToIntocdMessageskcdWindowskcdSysInitkcdSystemkfInteger`Lf AnsiStringHDfStringHDgTObject.SafeCallException#gTObject.DefaultHandler#gTObject.NewInstance#gTObject.FreeInstance#gTObject.Destroy#fTObject!fShortintL[fBooleanaUg.TObjectcBNfWord@fTextFile:gFillChargSizeOfg @FillCharQgAssigng@Assign/PgResetg @ResetText igReadlng @ReadLStringQg@ReadLnQgLengthg@LStrLenO:fChar^y^fBytecЭgCloseg@CloseQf PAnsiChar[gHaltg@HaltQg @ClassCreateQg @LStrAddRefQg@_IOTestQg@HandleOnExceptionQg @DoneExceptQg @LStrArrayClrQg@HandleFinallyQg @RaiseExceptQgTruejQgDecgIncgParamStrog ParamCountO:g@LStrClr'@g TObject.Free#gExitgFalsejQg@LStrAsgQgPosg@LStrPosQgDeletegMaxIntg @LStrDeleteQg UniqueString'@g@LStrCmpQg @RaiseAgainQc%xsizeA+4%ysizeA+4%stsizeA+4@%prcountA+4% maxznacekA+4 'dirxJ 6'diryJ 8 %topakuj=:%tdokud=:%tjmp=:*TOpTypcp:%pnic~-<%pzed-<%pznacka-<%psever-<%pjih-<%pvychod-< %pzapad-< * TPodminka&$<* TStackItem+O>*TPrikaz\j|@& .EKarelErrorRpB* EKarelErrory D&.TKarelF*TKarelF2H*.1J& .TV47MainFormL* TV47MainForm-N V47MainFormɓNM .2fP( TKarel.Create#R!SelffH!.fT!fnamef d m ff,$ sf c( TKarel.error#PR!SelfHc( TKarel.Krok#R!SelfHc( TKarel.Zvedni#bR!SelfHc( TKarel.Poloz#R!SelfHc(TKarel.vlevovbok#DR!SelfHc( TKarel.podm# (!SelfH!p< Result(c(TV47MainForm.redraw#R!SelffN d m n .fc(TV47MainForm.Konec1Click# R!SelfN!Sender$c(TV47MainForm.FormCreate#R!SelfN!Sender$c(TV47MainForm.FormDestroy#R!SelfN!Sender$c(TV47MainForm.Spust1Click# R!SelfN!Sender$c(TV47MainForm.Stop1Click# R!SelfN!Sender$c(TV47MainForm.run#TR!SelfNc(TV47MainForm.stop#R!SelfNcj(pushR!line!typ:!pocet!podminka&<c(plati<(!n!p< Result( b1( b2(c(popERc( addprikazR!namef !linec(strdivR"s1 "s2 c(readlineQR!line"prikaz "param1 "param2M  dc(readpodmRc( findkonec1R ln poctvnorc( tryprikaz(!namef Result( dck(TV47MainForm.Timer1Timer#R!SelffN!Sender$ prikazf param1f param2f podminkaf< nf jinaklinef targetlinefc(TV47MainForm.FormKey#^R!SelfN!Sender$"Key*!Shift&c(TV47MainForm.Image1MouseDown#}R!SelfN!Sender$!Buttonf!Shift& !X!Y c( FinalizationQ\! Rc(V47Main!RcDPL VL XCZ:C%< M ,line,typ:,pocet,podminka<cM:,name ,linecGDFJcGHF@$,mestoZ,xA,yQ,dira,wait(q.Create-error-Krok-Zvedni -Poloz- vlevovbok-podm%cL(\@GNAFLA@v,Image1q,Memo1, MainMenu1 ,Spust1 ,Konec1 , ImageList1, Splitter1,Timer1,Stop1 - Konec1ClickM- FormCreateY- FormDestroye- Spust1Clickq- Timer1Timer-FormKeyA-Image1MouseDownU- Stop1Click},karelH,line,stack^!,stackp!, defprikazJ1,prikazp1-run-stop-redraw5cDP@ATDPDPL1`bDP~Ld>DP Lf&DP>DPlaTOpTyptopakujtdokudtjmp TPodminkapnicpzedpznackapseverpjihpvychodpzapadTPrikaz@@ EKarelError EKarelError@V47Main@@TKarelTKarel@V47Main .1@@U  Image1Memo1 MainMenu1Spust1Konec1 ImageList1 Splitter1Timer1Stop1 Konec1Click FormCreate FormDestroy Spust1Click Timer1TimerFormKeyImage1MouseDown Stop1Click TV47MainForm TV47MainForm@;V47MainU$SVW3ۉ]tMUEE3Uhd0d E3ɺ3UD@ u3UƄ@ u3@MD@u3@MD@u}3Uhbd1d!U$$U$$EЅ~DMLЀr"u' [u DML04[}4L@JuCu$3ZYYd8sjEǀEǀE3҉3ZYYdhE}t d E_^[]KarelChyba pri nacitani vstupu Chybaƀ R| uËSƀ I|~ L[[SVWƀ4vT f|![f} D _^[ƀByJBÃ$/`} R|ËR|ÃÃÃÃSVWU$$D$33ۍ$D,t H,rH4D$@3Ń PD$ P΃ ՋT$D$D$@Ń PD$ P΃ ՋT$D$D$@$l +ЃRD$ P%yH@ȋ +ЋRցyJBZT$D$FMuC G$PPD$ЋD$]_^[UjS3Uhd0d Q@ Q4UMH|!UU0QX3ZYYdhE[Y]Ëǀǀ 3҉ Ëz4t!3j08KarelProgram skoncil.USVWu }ۋ> M_^[]*Preteceni zasobniku - rekurze se zacyklilaUS؋E@2؋[]USVuۋ ,rtI~j`EPYt#^[]UQSVډEEu3Uhd0d  @|  U  3ZYYdhE^[Y]Prilis mnoho prikazuSV؋hu ^[ËƋhЋùhȋƺ^[ USV3ۉ]]MU؋Et3҉Et3҉Et3҉3Uh7d0d ME @0ӋS EUUEE8E~BE| s ED CNuUPЋEUPuϋE8 uEUEUE3ZYYdh>E^[] UE@u E3҉P4E@$u E@4E@Pu E@]ËE@\u E@E@lu E@gE@|u E@LE@u E@1E@u E@4]JENENINeznama podminkaZEDZNACKASEVERJIHVYCHODZAPADUSVW}E@E@CE@0R;~ EPEPEPЋYY4t*DtTtduF.tu E@tN uEX/EXExu E@UB_^[] Chybi konecOPAKUJDOKUDKDYZPRIKAZKONECJINAKUQSVWEE}3Uhd0d  N|GF3ۋ Uu-EPj3ɲYCNu33ZYYdhE_^[Y]U3ɉMMME3Uh.d0d Eƀ3Uhd0d EUEPEPEЋEYYE0RU;E3ZYYd^}E,#,EDuEETuEEduExEtuEVE躈u'EEUjEM3Y E躘uNUYUYUUEYuEUUEPEMYE躨uAUYUYUj3ɲEYUUEYEU䉐sE躸u(UEEYUYEU@DvHLd<frtFJjlnp.`024:bBhPRM$Y"e$q$$AU,}< "$x$* 2"0ܶ( &     TV  d   , y}0y&} V D%%%%%%%%%y}54 nF,F"9 4zMX YY.6.) 5 - )BY1 e5 q } J "  TVF@  =&%,  2AL1 V I1A IU IU&zZA,>Y* IU I@U 8 ]. ]&   ], ]2 ], ], ], ]   Y  111 ] ] ] ] ] ]  N]2R 1 0<0111"Ph ]  ]   ]  ]  ]2 ]\ ] > ](. ]      a  <56111 A*$U>`5qqq u uuUx$ &&&  <&( .  V0X,$Z &&N4 ^b: :Bj"`"B   ,66D  0>B&&&,x"LR@:"NB2"JJ 444dhb8Z,8<,6<6666,I b\p$ * L &0"B D Z>*DDDD8D< F&0~ ,v0 $``D,4Nz >.@:HDN\DI !`qprI  ! @   @^@p@!!B%)-1-^1^)50AR =VE E=)AQM@QQ Y@],]e@iiq@uu }@ @R@*p  ..66 0@06N`0  @ 06 `p0: p6l @VA@EEVUpY$i$m$ iAmAY]q u a