KARELRAM ,p *** ROBOT K *** *** AP *** *** M. ***& : "CRT:M1": (,[@],,,4,@:[]@, ,"BAREVNE = B",@,:,p,"CERNOBILE = ",,n G$: G$""  : G$"B" B:P:R:Z : B:P:R:Z@: ,>,B,,,@,,y,:(): ,P: ,R: ,Z: @,`: P(@,0),R$(),S(H),T(@),PP();(PP$"ZED ZNACKAZAPAD VYCHODSEVER JIH JE NENI ".-Q$"VYCHODSEVER ZAPAD JIH ZNACKAZED "/T( )p/:T(@)p=:T(`)pF:T()pP:T()pY:T( )pc:T(0)pl:T(@)ptp0PP()@:PP() :PP(@)@:PP():PP( ):PP(@)2 7,15,9,9,15,12,7,31,63,119,231,207,14,14,30,62, 224,240,144,144,240,48,224,248,252,238,231,243,112,112,120,124, 7,15,9,201,207,204,231,127,63,7,7,15,14,14,30,62, 224,240,144,147,243,51,231,254,248,224,224,240,112,112,120,124< I : A:P$P$(A): I: I 0:P(I,):P(I,0):P(,I):P(@,I): IFR$()(P$,):R$()(P$,8)""(P$,h,):R$(@)(P$,):R$()(P$,`)""(`)(`)(p)(P$,P, )PZ$""():ZE$""(): I 8: I,:[] ,Z$: I,$:[] ,ZE$: IZZ$ZE$Z$: I : J : 8I,J:[] ,Z$: J: I:ZE$Z$Z$Z$Z$d B,,,&,: M,:[] H, ," ",,:[] F, ," ",,: x,X,"&",,n M,:[] S,,"ALP",,:[] R,,"ALP",,:[] S,,"MDS",,:[] R,,"MDS",,:[] ,,"ROBOT",,x , ,"ROBOT",,: d,,"KAREL",,: M,:X@:Y`:PX0:PYH: $ ': I t: A: I,A:CHHpu:HHH:I$"ZNAM:": : :I$" [SP] = STOP ": N, : "N : ";I$: I AVpX AVpu P$"TO LZE JEN UVNITR PRIKAZU": :  AV pB : D:ST: AVpQ ST:AW(AV):  "P..."3AW(AV)(AV):S(ST)AV AW , AW STSTa p,0: "###";ST;: " STACK ": () ST ST:  STD @1" AWpu STST:AVAW : AVS(ST) # 'STST:?, AW , , 4, , , , P, d, ', , , , 6 AW '&@P$"UZ MNE TO NEBAVI": : 4P$"POZOR POZOR NEJAKA TVRDA CHYBA": : STR 0:B:Q(P$): I Q: B B : BD& ,B:():  @IQ,IQ: I: : 0B?:[] ,(,,G,: B -D (P$) DL : DL}N `,,,pDL(P$),A,@: M,:[] @,/,P$,DL,: M,:@ " [CR] = KONEC": "N : "();" "";I$: I$"" I$"KONEC" PpDE(P): (I$)DE $5 I (I$): ((I$,I))(PI) $ I?AVPDE@:I$"": I DE:I$I$((PI))::W$PPPDE:P(PP)(PP): PH P AV: : KS(ST)(AV):STST:AVAV@:S(ST)AV:S(ST)AVNS(ST):S(ST)N: N STST:S(ST)S(ST): : STST:S(ST)S(ST):S(ST)S(ST):g4 "K ? : ";I$:ST: : AVpu P$"NELZE ROZLOZIT": : : : > N:ST:PAV8HAW(P)(P): AW AWT(AW)7M AW I$"KONEC, JINAK":STST: RI@:I$"">\CH(AWI): CHI@ II:I$(CH)I$: \"f AWpQ AWpu z p D(uPP: ST H : %z AWpY STST: p< AWpc  : I$I$" "((P))" KRAT"PP D:STST: u7 AWpl  : Q(P):R(P@)ZI$I$" "(PP$,,@R, R)(Q$,@Q ,@): 3Q(P):R(P@):PP: 0 ` :HH:STST:S(ST)H: 0. ` :HH@:STST:S(ST)H: 5` "M ? [ /N] :";:R@j R$: R$"" j : R$"N" "NE":R : "ANO"t ""()"[CR] = ZE"]y "K [ZE,ZN,ZA,V,S,J] :"();: "" ;R$:I: R$"" R$"ZE"@~ (R$,,)(PP$,@I,) II: I ~ 9 (R$,)(PP$,@I ,) II: I`  I@ t f :I$(I$,)" "(PP$,,@R, R)(PP$,@I ,@) H,PP(I),R:B ( : P S(ST)(AV)(AV@):3 S(ST)AV:STST:S(ST)AV:X ( :S(ST)(AV)(AV@):STST: P S(ST)AV@:/ S(ST)(AV)(AV ):@( AVS(ST):P(AV):R(AV): P , , , , 2 S F , < , Z , P < XXX:YYY: d F XXX:YYY: d P XXX:YYY: d Z XXX:YYY+d P: P(XX,YY)` P n & P(((P @))S): & P(P(X,Y) P(X,Y)) R P P  :' M.: 7 "U N? [U/N]": " [CR] = KONEC"; G$: G$"" (G$"U" G$"N" G$(P))  G$(P)  G$"U"  :  :' SAVE;& "J : "();: "";I$0 #,I$:#,H(: Ipu H:#,(I)::: :' LOAD; "J : "();: "";I$ #,I$:#,H/ Ipu H:#,G: I,G:::HHH:* P$"TAKOVE JMENO NEMUZES": : A "KROK": P(XXP,YYP)` P$"VZDYT JE TAM ZED": 8 PN PX,PY:[] ,ZE$: B[] PX,PY,PXp,PYp,: PN BXXXP:YYYP:PNP(X,Y):PXX:PYY@4 PX,PY:[] ,R$(S): PN F I PN: PXI,PYI,PXpI,PYI: I:) "VLEVO-VBOK":S(S @)KYP((S)S):SG(S ):XPSGYP:YPSG( YP): 7P "POLOZ": PN` PNPN:P(X,Y)PN:  ZP$"UZ NEJSOU PANELY": 8d "ZVEDNI": PN PNPN:P(X,Y)PN: !nP$"A CO MAM ZVEDNOUT":  "MESTO"/"" ^ Z Z N N KAREL MGF"%, " _ "/6 " SP CR DEL 0 K M";/@ G$:G(): G$"" G @0J[] PX,PY,PXp,PYp,2T PN PX,PY:[] ,ZE$\^ PN PN I PN: PXI,PYI,PXpI,PYI: I+h G@ G` YY(Y )6r G G@ G YY(Y) | G XX(X)+ G G XX(X0)4PNP(X,Y):PXX:PYY@ PX,PY:[] ,R$(): PN PN I PN: PXI,PYI,PXpI,PYI: I G$() [] ,@,7,#,: I  : J 0:P(J,I): J,I:G$"": 1 G$" " G$"":P(X,Y)PN(PN`): ) G$"0" P(X,Y):G$"": J- G$( ) P(X,Y):G$"": J G$"M" : # G$"K" S:  : @ "SLOVNIK"Pp: N'DE(P): PH : D: !I$"H="(~H): N:0I$"": IP PDE:I$I$((I)):3PPPDE:P(PP)(PP):8D : DST, ,I$,,:wN :DL(I$): @, ,@DL,',@:[] D, ,I$,,: "SCROLLUP"|  ,>,,!,X,,,,,,,,,,,,,,,,,=, ,,A >:():[] @, ,,',:  "SCROLLDOWN"   ,>,,!,,,,0,,,,,,,,8,,,,B,,,B,,=, ,,A* >:():[] @,,,`,:k> ,,,>,,,,,,, ,,>,,,,,,, ,,,,: p "NOVE""z I$"" (I$) FHHH: H,(I$): I (I$):HH: H,((I$,I)):D H,,:HH:ST:S()H:  ST N : DHH> :I$" "I$: AV P$I$" NEZNAM": :  D: AVpu $ H,AV ,AV: AW(AV): H,AW,D AW@ AW@ X, , , , , 8, , , . +P$I$" TED NEMOHU": : : d8 S(ST),(H) ,(H):I$(I$,): : ST N : D{B (S(ST)@)@ (S(ST) ) H,:S(ST)S(ST):I$I$", JINAK": : FLSTST: ST HH:HHH:ST: : p "K? : ";W:WW : H,W,:HH: H,P,:STST:S(ST)3 :I$(I$,)" "(W)" KRAT": JXHH: (H)(H) HHH: : : : ab (H@) ((H)P (H)0) STST:HH: Pl (H@)@ (H ) STST:HH@: 8v (H) (H) STST> (H) (H) S(ST)S(ST) : : Ppu: HP ODE(P):ASPDE:PP(AS)(AS): PPH PPP: II$"": IP PDE:I$I$((I)):: N:HHP:HP:STI$"ZRUSENO": D':' S@' 5,77,69,83,84,79,9,$F0,1,7,83,76,79,86,78,73,75,$14,$F0,2B$' 7,82,79,90,75,76,65,68,$1F,$F0,3,5,67,72,89,66,65,$28,$F0,4I.' 4,75,82,79,75,$30,$F0,5,10,86,76,69,86,79,45,86,66,79,75,$3E,$F0,6?8' 5,80,79,76,79,90,$47,$F0,7,6,90,86,69,68,78,73,$51,$F0,8@B' 5,75,79,78,69,67,$5A,$F0,9,6,79,80,65,75,85,74,$64,$F0,10;L' 5,68,79,75,85,68,$6D,$F0,11,4,75,68,89,90,$75,$F0,12,8 +[,]>, ,,, %+ H*+ I/+Y$(WW);4+[,