KAREL2 ' AUTHOR SYROVATKO DATUM UNOR 1987 PROGRAM KAREL2"( FUNKCE PGM NOVY PROGRAM"2 TRON TRASOVANI ON#< TROFF TRASOVANI OFF'F MESTO 0 ... 7 POLOZ. ZN!P Z ZED'Z MEZERA ZRUS. ZDI"d R KONECn SLOVNIKx ROZPIS& DOMU VRACI DO VYCH.POZ MGZAPIS MGCTENI C7$(@) SX(0) SY(0) A1$(z) BX(z) A3$( ) A4( ) A5(/) D3$(@)* B0(0,0),B1(0,0) B2(@) B3(@) B4(@)" ()"KROK", (@)"KDYZ"6 ()"VLEVO VBOK"@ (`)"DOKUD"J (@)"KONEC"T ()"OPAKUJ"^ ()"POLOZ"h ()" NENI"r ( )"ZVEDNI"$| ( )"RUN 10"(P)$B0(,)  I@!B2(I),B3(I),B4(I),C7$(I):I 1,0,1, 2,1,0,^ 3,0,-1,_ 0,-1,0,  < `,0P:N, X  : Y  "ZOBR":Y:X'X:Y:N:"ZOBR" "ZNOVA"8[,]R,\, ,G,' P,`: " ZNAM PRIKAZY"%& P,p: "MESTO,KONEC"0 P,: "KROK"': P,: "POLOZ, ZVEDNI"$D P,: "VLEVO VBOK"N P,: "KDYZ"&X P, : "DOKUD,OPAKUJ"(b P,(: "MG CTENI,ZAPIS"0l ,@:" POVEL : ";A1$()+vA1$()"TRON"TR:"ZNOVA",A1$()"TROFF"TR:"ZNOVA"& A1$()"OPRAVA" "OPRAVA"% A1$()"MG ZAPIS" "MGZ"% A1$()"MG CTENI" "MGC" ******************ROZPIS! A1$()"ROZPIS"  "KTERY PGM: ";X$ A8 A6 A3$(A8)X$  A8:"NEZNAM ": "ZNOVA" IA4(A8): "OPIS":"ZNOVA"" ****************** SLOVNIK" A1$()"SLOVNIK" "SLOV":"ZNOVA"  A1$()"DOMU" >$ **********************"DOMU" N:"ZOBR"P*N:X:Y:ZB0(,):S:PB1(,)4"ZOBR":"ZNOVA"> A1$()"MESTO" f&H ***********************"MESTO"'R"MESTO":N:"ZOBR":"ZNOVA"$\ **************ZADANI PROGRAMU f"PGM"p A1$()"PGM" z"JMENO PGM: ";X$.A6A6:A3$(A6)X$:A4(A6)A7 "EDI":IA4(A6):JA1$(A7)A1$(A7)"."K:"OPIS":"SLOV" "ZNOVA"! ******************** CHYBA A1$()"CHYBA"  A6 #A7A4(A6):A6A6"SLOV":"ZNOVA"% ****************** OVL. KARLAPC:SPPCPCX$A1$(PC):STR SP;PC;" ";X$  "ZNAK" G$"E" l$ X$ "KONEC" . X$"KONEC." B!8SPSP:PCA5(SP): BA8 A6L A3$(A8)X$  V A8(` (X$,@)G1$ "OPAK": )j X$"KONEC OPAKUJ" "KOPAK": ;t X$"KONEC DOKUD"SPSP:PCA5(SP): '~ (X$, )G2$ "DOKUD":  X$;" ZNAMENA":  A4(A8) 2A5(SP)PC:SPSP:PCA4(A8):  A4(A8)   N S "CHYBA ";S: "ZNOVA" A4(A8) #BX(PC)PCBX(PC): "BYPC:"FIND":BX(BY)PC:  A4(A8) "ZNOVA"  "TEST" S # BX(PC)PCBX(PC): "BYPC:"FIND":BX(BY)PC: ! **************************%(5,5, 0,1, 1,1, 1,0, 1,-1, 0,-1,&2-1,-1, -1,0, -1,1, 0,0, 0,0,5,5,%<I0:SX(I),SY(I):IFG1$"OPAKUJ":G2$"DOKUD"PG3$"KDYZ":G4$"KONEC"&ZI0:J0dB1(I,J):B0(I,J) nJ:Ix 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, 1,0,0,0,0,0,0,0,0,0,0,1," 1,1,1,1,1,1,1,1,1,1,1,1,19, KDYZ ZED,6, KDYZ NENI ZED,6, KDYZ ZNACKA,7, KDYZ NENI ZNACKA,7, KDYZ JIH,35," KDYZ NENI JIH,35,, KDYZ SEVER,15,6 KDYZ NENI SEVER,15,@ KDYZ ZAPAD,25,J KDYZ NENI ZAPAD,25,T KDYZ VYCHOD,05,^ KDYZ NENI VYCHOD,05,h STOP,9,#r KROK,1,VLEVO VBOK,2,POLOZ,3,| ZVEDNI,4,END,8,JINAK,8, DOKUD ZED, DOKUD NENI ZED, DOKUD ZNACKA, DOKUD NENI ZNACKA, DOKUD JIH, DOKUD NENI JIH, DOKUD SEVER, DOKUD NENI SEVER, DOKUD ZAPAD, DOKUD NENI ZAPAD, DOKUD VYCHOD, DOKUD NENI VYCHOD,  A6 I A6 A3$(I),A4(I) I!&A7:A1$()"STOP"!0I@:D3$(I): I:#D **** PROVEDENI ZAKL. POVELU%NS:A4(A8) , , b, X *****************POLOZ4bB1(X,Y)B1(X,Y)B1(X,Y):: lPB1(X,Y): "ZOBR": v ***************** ZVEDNIB1(X,Y) B1(X,Y)B1(X,Y)  l'I1XB4(N):I2YB3(N):I3B0(I1,I2) ************** KROK "KROK"  I3 S:NSN:N:"ZOBR":NNSXI1:YI2:PB1(X,Y)  " VLEVO VBOK **************** NB2(N)  "ZOBR"  :ZI3* 4"ZOBR"D>C2QX :C3C2 :C4HY :C1C4 H B0(X,Y) \*R[@,]C2,C1,C3,C4,@:(\[@,]C2,C1,C3,C4,+fC1C1:C2C2:C3C3pIB1(X,Y)z I II:C1C1 [@]C2,C1,C3,C1: z N )[@]C2,C4,C7$(N),,  "SLOV"8[,],,,4,K :J A6  I A6 ,J: A3$(I)( J JJ:: J  I: "EDI":************ EDI A7A7" "INSTRUKCE: ";X$:A1$(A7)X$$ (X$,@)G1$: L . " KOLIKRAT : ";I8 A1$(A7)A1$(A7)(I),B "EDI":A1$(A7)A1$(A7)" "G1$: "EDI"L (X$, )G2$ j V "EDI"$` A1$(A7)A1$(A7)" DOKUD":"EDI"j X$G4$ "t (X$,)"KDYZ" "EDI" ~ "EDI"! A7A7:A1$(A7)"JINAK" "INSTRUKCE: JINAK" "EDI" "EDI" "OPIS":********** OPIS8 [,] ,,R,4, K:IIj II:KK: K( K: :[,] ,,R,4,  ,K:I;" ";A1$(I)" (A1$(I), )"KONEC") (A1$(I),@)G1$ : ) (A1$(I), )G2$ : ' (A1$(I),)"KDYZ"  :   ****************** FIND( "FIND": ******** FIND2 PCPC"< (A1$(PC),@)G1$ "F (A1$(PC), )G2$ "P (A1$(PC), )G4$ "Z (A1$(PC),)G3$ n d 2 n PCPC x "FIND" "FIND": <  PCPC: ****************** TEST "TEST" S A8  SZ:  A8  P S % (A4(A8) )N S* (X$,@)"KDYZ N" SS+ (X$,`)"DOKUD N" SS  ************** MG PASKA "MGZ":******** MG ZAPIS "JMENO SOUBORU : ";X$" X$"CMT:"X$, "STISKNI RECORD.PLAY"6 #,X$@ #,A6,A7(J I A7:#,A1$(I): I*T I A6:#,A3$(I),A4(I)^ Ih #: "ZNOVA" r "MGC"| "JMENO SOUBORU : ";X$ X$"CMT:"X$ "STISKNI PLAY" #,X$ #,A6,A7( I A7:#,A1$(I): I* I A6:#,A3$(I),A4(I) I h  "ZNAK": *********** ZNAK G$: G$""  G$: G$""  % *********** OPAKUJ  "OPAK" X$X$" "1 A5(SP)((X$,`,)):SPSP& A5(SP)PC:SPSP0 %: *********** KONEC OPAKUJ D "KOPAK"N SPSP:IA5(SP)!X SPSP:JA5(SP)b J l A5(SP)J:SPSP!v A5(SP)I:SPSP:PCI: ************ DOKUD "DOKUD" A80 X$D3$(A8) A8 X$A3$(A8): "TEST"6 S PCPC: "FIND":PCPC: A5(SP)PC:SPSP ! "MESTO": ***************** N: "ZOBR" N: "ZOBR" X$: X$"" H " I(): I  JXSX(I) SX(J) XJ JYSY(I) SX(J) YJ * 4 B1(X,Y)P: > B0(X,Y)K: H X$"0" P: 4 R X$"1" P: 4 \ X$"2" P: 4 f X$"3" P@: 4 p X$"4" P: 4 z X$"5" P : 4  X$"6" P@: 4  X$"7" P`: 4  X$"8" P: 4  X$"R"  X$"Z" K: >  X$" " K: > ! "OPRAVA": **** O P R A V A% IA4(A6) A7:BX(I):I IA4(A6): "OPIS" ,@ "OPRAVA :";A1$()% G$(A1$(),,) G$"E" "ZNOVA".I:Y:A1$()A1$()/YY:X$(A1$()",",Y,)% Y(A1$()) Y$" ": B$ X$" " $.X$":" II (X$): 68J(A1$())Y:Y$(A1$(),Y,J)B IA7 L IA4(A6) VG$"R" j:`J(A1$())Y:A1$(I)(A1$(),Y,J)jG$"I" t G$"D" $~A1$(I)A1$(I):II IA7 ~A7A7:  Y1A7 I A1$(Y1)A1$(Y1)  Y1,A7A7:BX(A7):G$"R": `,p,"VVVVVVVVV",`,@,: z: "C3D1","E