KAREL 12.6.'87 & w*:g ~ܯ2^ !+|(/8N! F͘ >2/ >^ >2>ͥ  :W4@:W6 C7$(@),SX(0),SY(0),D3$(H), A4(H),D4( ),A5(z),Z1(z), Z2(z),B0(0,0),B2(@),B3(@),B4(@)$PB0(,) Z I@!dB2(I),B3(I),B4(I),C7$(I):In 1,0,1,x 2,1,0,^ 3,0,-1,_ 0,-1,0,  (,P:N, X  : Y   (:Y:XPN:X:Y:ZB0(,):S:PB0(,) (s 8,: P:  ,@:" POVEL : ";Z1$: PC:SP:SR Z1$"CLS" L : Z1$"TRON"TR: ! Z1$"TROFF"TR:  Z1$"OPRAVA"  Z1$"MG ZAZNAM"  Z1$ "MG CTENI" " Z1$"ROZKLAD" h, "KTERY PGM: ";X$6 A6` T@ I1 A6J D3$(I1)X$ ^T I1:"NEZNAM ": ^ : h Z1$"SLOVNIK" |r : | Z1$"DOMU" N: (   b Z1$"MESTO" 8 :N:PB0(X,Y):ZB0(X,Y) : 8A6A6:D3$(A6)Z1$:A4(A6)A7:XX:A7A4(A6): : Z1(A7)U=Z1(A7)A4(): :IA4(A6): I1A6: : A7A7:XXA7 A7A4(A6) I1A6: :  Z1$"CHYBA"  A6` "A7A4(A6):A6A6 : 5PC:SP:Z1():TA*& @,: "ZN PC SP TAKT"0 I A6$: D3$(I)Z1$ Z1()I: XD IN Z1$;" ZNAMENA": "X Ih Z1()A4(I)bPCPC'lTATA: & :TR: nv z: G$"E"  I1  : TR l : lIA6 II: A4(I)PC @ @,0: "& &";D3$(I):7 ZAKL,OPA,KDYZ,DOKU,KONE RETURN,STOP7 I1 , R, , , , , ,   @ I2 , , , , , NE: bNE: bF I2 , , b, z, , ,  ? S b : : l : TR !  A5(SP) b * 4 PC  > bH"NARAZIL JSEM ":: +RSPSP:A5(SP)I2 I3: b\A5(SP)PC:SPSP f b,p, r, r,,k, m,VzA5(SP)A5(SP): A5(SP) SPSP: b : l!JZ1(PC)W4:PCZ1(PC)JW4:%5,5, 0,1, 1,1, 1,0, 1,-1, 0,-1,&-1,-1, -1,0, -1,1, 0,0, 0,0,5,5,%I0:SX(I),SY(I):I&I0:J0 B0(I,J) J:I*-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, -1,0,0,0,0,0,0,0,0,0,0,-1, -1,0,0,0,0,0,0,0,0,0,0,-1, -1,0,0,0,0,0,0,0,0,0,0,-1, -1,0,0,0,0,0,0,0,0,0,0,-1, -1,0,0,0,0,0,0,0,0,0,0,-1, -1,0,0,0,0,0,0,0,0,0,0,-1, -1,0,0,0,0,0,0,0,0,0,0,-1, $-1,0,0,0,0,0,0,0,0,0,0,-1, .-1,0,0,0,0,0,0,0,0,0,0,-1, 8-1,0,0,0,0,0,0,0,0,0,0,-1,*B-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,sL ZED,1,ZNACKA,2,JIH,3,VYCHOD,4, SEVER,5,ZAPAD,6,STISKNUTO,7, NASTAVENO,8,ANO,0,NE,10,STOP,8000rV KONEC OPAKUJ,400,KONEC DOKUD,500, KONEC JINAK,200,KONEC KDYZ,8000, KONEC KDYZ,8000,KONEC,5600,` KROK,1100,VLEVO VBOK,1200, POLOZ,1300,ZVEDNI,1400,ANO,1500, NE,1600,OPAKUJ,2000,DOKUD,4000, KDYZ,3000,RETURN,6800*jA7:Z1() :A6`BtIX:D3$(I),A4(I): A4(I)A4(I)W4: I~4B0(X,Y)B0(X,Y)B0(X,Y):: HPB0(X,Y): (: bB0(X,Y) HB0(X,Y)B0(X,Y)  'I1XB4(N):I2YB3(N):I3B0(I1,I2)  I3 HNSN:N: (:NNSXI1:YI2:PB0(X,Y)   NB2(N)  ( :ZI3  bU(C2;X@:C3C2@:C4pY@: C1C4@:IB0(X,Y)2 I F*<[@,]C2,C1,C3,C4,@:(F[@,]C2,C1,C3,C4,PC2C2:C4C4:Z N[@]C2,C4,C7$(N),,: n d n TR <x @,: "#";P;: "#####";PC,SP,TA> @, : "& &";X$F I [@]C2,C4,(I), ,8[,],,:,,,K :J A6h  Ih A62 ,J:"####";A4(I);: " ";D3$(I)( J JJ:: J  I: :PCA7: &  I1 9I1 , , h, 6, T, , , ^  6Z1(A7)U Z1(A7)M` " , :Z1(A7)M`:  6 7@ Z1(A7)U Z1(A7)Q J T Z1(A7)U:^h :Z1(A7)F]@r " POVEL : JINAK"| :Z1(A7)J-: 8[,],,:,,,BK:PCA4(I1): ,K: D3$(I1) PCA7 wPCPC:KK: K( K: :[,],,:,,,= ,K: & : "###";PC;:" ";X$ I1  I2@ SI5: Z2(PC) .XZZ2(PC): :A5(SP)A5(SP) : lS(I5NF):5 I3 , , &, :, N, b, v Z SI5 P  SI5& N @ SI50: N  SI5DN N  SI5Xb N  SI5l$v () SI5X$"CMT:"X$ "STISKNI RECORD.PLAY" #,X$ #,A6,A7& I A7:#,Z1(I):I* I A6:#,D3$(I),A4(I) I, I  : J   #,B0(I,J) J:I #:   "JMENO SOUBORU : ";X$ X$"CMT:"X$ "STISKNI PLAY"  #,X$* #,A6,A7'4 I A7:#,Z1(I): I*> I A6:#,D3$(I),A4(I)H I,R I  : J  \ #,B0(I,J) fJ:I p z G$: G$""  G$"W"  G$: G$"" N: ( X$: X$""  $IQ(): IQ N: (:IIQJXSX(I) SX(J) XJJYSY(I) SX(J) YJ   B0(X,Y)(X$)@:  (X$)D   (X$)h  X$"R" %$ X$"Z" B0(X,Y): $. X$" " B0(X,Y): 8 X$"N" B L : L N:P: (,V X  : Y  (` B0(X,Y)B0(X,Y): ( j Y: Xt X:Y~  N: ( PCA4(A6) A7 JZ1(PC)W4:Z1(PC)JW4 PC IA4(A6):I1A6:  ,@ "OPRAVA :";Z1$ G$(Z1$,,) G$"E" :  I:Y& X$(Z1$", ",,) I(X$) IA7  IA4(A6)  G$"R" < & A9A7:A7I:XX: "( Z1(A7) Z1(A7)Q2 A7A9: < G$"I" n F G$"D" "P Z1(I)Z1(I):IIZ IA7 P d A7A7: n Y1A7 I x Z1(Y1)Z1(Y1) Y1 A7A7:  2 A7A7:K1:Kp:Z2(A7) A7XX ( ,@: "INSTRUKCE: ";X$C KK: D3$(K)X$ Z1(A7)K: IA4(K)W6:  KA6  X$"CHYBA"  "NEZNAM":X$"CHYBA":  I  I  Z1(A7)A4(K)9 I ,  , J , " , , , , "  "KOLIKRAT:";X$ X$"CHYBA"  Z1(A7)(X$)W4A4(K):#" "MA BYT PODMINKA SPLNENA ";X$, X$"NE" K1 : J '6 X$"ANO" K1:: X$"CHYBA"@ X$"CHYBA" $J "PODMINKA :";X$:K2T K2K21^ D3$(K2)X$ Z1(A7)Z1(A7)(K1K2) W4:h K2 T r K2X| K2K2E D3$(K2)X$ Z1(A7)Z1(A7)K1W4: Z2(A7)K2: K2A6 |  "NEZNAM": J  6 SP:IA4(A6):A5():  SPSP:A5(SP)I< II:I4Z1(I)W4:IA7 Z1(I)U: I4 O I1I4z: I1 , ,  ,  , , , ,  SPSP:A5(SP)I:% Z1(A5(SP))Z1(A5(SP))I:9 :Z1(I)I4W4: : Z1(I)A5(SP)Z1(I) SPSP: _ : : A5(SP)I: : Z1(A5(SP))IF]@@: ; : : Z1(I)Z1(I)A5(SP):  Z1(I)I4W4:& XZZ1(PC):I10 Z1(PC)< N .: Z1(PC)` X$D3$(Z1(PC)): D XZA4(Z1(PC)) N I1XZW6X I3(XZI1W6)W4!b I2I3H:I3I3HI2!l I5I3 :I3I3 I59v I1 , , , , , , ,  X$D3$(I2):$ X$"OPAKUJ "(I2 I3): X$"KDYZ ": 7 I5 X$"DOKUD NENI ":: X$"DOKUD " 9 I5 X$"K.KDYZ NENI ":: X$"K.KDYZ "@ Z2(PC) X$X$D3$(Z2(PC)):  X$X$D3$(I3):, X$"KONEC ": I2 X$X$"JINAK" I SPSP:A5(SP)(PCzSR)  NE: PCA4(XZ):SRSP:b SPSR:I(A5(SP)):PCIW4:NFNE: JIPCW4:SRJ :NEJSR :SPSP :