HRY e? "CRT:M1":( S T A R T2G<:,:,:,:@,`5F:, :"N A S E N A B I D K A :" P::Z" 1 HAD"d:" 2 AUTA"n:" 3 DESIGNER"x:" 4 OKO":" 5 OTHELLO"A:A +A , , , , p, <, <, <, <$ ----------------------------- H A D$ -----------------------------[H( ,8):,:,:,:@,@: 2$:[] ,p,"HAD",,;.,8:"ZADEJTE STUPEN OBTIZNOSTI (1 AZ 9) "8B:B 8BC1H BLC2(tB)HVC3(B)H`C4C2C3jt GENEROVANI OBRAZCE~;:I :H(I,):[]"p";:I6J0:H(,J):[]"p";I:P():PC4H(I,J):[]"";:“(PC4)(PC4C3)H(I,J):[]"p";:H(I,J):" ";`I:H( ,J):[]"p";:J:I :H(I,8):[]"p";:I9, :H( ,0) :"":z5K :ZX :ZY0:KX :KY0 POSUV HADA\MKH(KX,KY):,8:M:, :IC1:S$:S$""S(S$)Ie S ZYZY : S ZXZX : S ZYZY : ZXZXZX,ZY:"" KKC H(ZX,ZY)  : H(ZX,ZY) H(ZX,ZY)K: @:"C";"E";"G" (z42,8:"NAZRAL SES JEDU ! HAD MEL";M;H<M" CLANEK.":“M M " CLANKY.":" CLANKU." F;PMAXMAXM: dZMMAX x>d,8:"CHCETE HRAT DAL (A=ANO) ? ";#nA$:A$"" n:“A$"A" $:ƒkx:, :[]"DOSAHL JSI ZATIM NEJLEPSIHO VYSLEDKU !":::" BLAHOPREJI .":MAXM2"C3E3G3+C5";"C3E3G3+C5";"C3E3G3+C5":;  dNH(ZX,ZY)K:KX,KY:[]"":HKH(KX,KY):H(KX,KY) H(KX,KY)HK KXKX : H(KX,KY)HK KXKX : H(KX,KY)HK KYKY : KYKY  $ ----------------------------- O K O$ -----------------------------M,:,`:, :@,:@  U(),H() I  H(I)* IN4 7,8,9,10,2,3,4,11,7,8,9,10,2,3,4,11,7,8,9,10,2,3,4,11,7,8,9,10,2,3,4,11>H KONEC VSTUPUR\HSz:BSzfip ,`,"", , :[] ,,"O K O",@,:`:"CEG+C+C"z ;:(  ,:"CELKOVE SKORE:"-  ,@:"BANKER : ",BS;" K"-  ,`:"HRAC : ",HS;" K"  z>B:BB:K:KK: I U(I)IDBSHSHBSCSH:CSBS:“HHSCSH:CSHSCS ICE  ( (`)):CE CECS :CSCE0 ,:"BUDEME HRAT O ";CS;" K" ;# N(()) U(N)   U(N)$ KK . 8 BBH(N)B (K)(B0) /L (K )(B)R: x :: ` V RR 3`  , :"MAS TED CELKEM ";B;" BODU."j B( t B( (~ " C ?(A=ANO)"; A$:A$"" :“A$"A"   :  , "TED HRAJU JA!": z: BBB:KKK B:K# N(()) U(N)  U(N) KK BBH(N) (B0)(K) / (B)(K )R: x ::   RR ( : 8  , :"MAM CELKEM ";B;" BODU.":  B( ( P:PP2 :'FOR I=1 TO 32*< :'IF U(I)=0 AND (21-B)>H(I)THEN P=P+1 F :'NEXTI0P :'IF INT(RND(1)*(32-K-KK))<=PTHEN GOTO 2480*Z B @(8) d " KONCIM": zn BBB : Lx I:(U(I)R)(H(I) )RR: :ŽI:RR:"  ,`:"VYHRAL JSI" HSHSCS #  ,`:"VYHRAL JSEM" BSBSCS  ,@: z BSBSCS:HSHSCS- HS BS f :  "CHCES HRAT DAL ?(A=ANO)"# A$:A$"" :“A$"A" \:ƒ  GENEROVANI KARET  K 6  PX(K)`" PY , J '6 PX(K )`@ PY$J PX,PY,"",,T I  -^ PX,PYI," ",,h I+r PX,PY@,"",,*| []PX ,PY ,@ AXPX:AYPY  AXPX :AYPY  NNN(N) AXPX:AYPY &  AXPX:AYPY &  AXPX:AYPY < N []AX,AY,"",,:FG N N []AX,AY,"",,:F? N@ N AX,AY,"",,:F@4 N@ AX,AY,"",,:F@ /& NN [F]AX,AY,"7",,.0 NN [F]AX,AY,"8",,.: NN@ [F]AX,AY,"9",,.D NN [F]AX,AY,"X",,.N NN [F]AX,AY,"J",,.X NN@ [F]AX,AY,"Q",,.b NN` [F]AX,AY,"K",,.l NN [F]AX,AY,"A",,v $ -----------------------------  DESIGNER (KONSTRUKTER)$ -----------------------------D,:, :, :@,p/:|,.,"DESIGNER",@,@I[]<,~,"PROGRAM SLOUZI NA NAVRHOVANI",,K[], ,"ROTACNICH TELES JAKO NAPRIKLAD",,K[],,"VAZ, POHARU, SVICNU A PODOBNE.",, zSR(x),KX(, ),S(p),KY(, ),SI(p),CO(p)":"NAVRHNEME PROFIL TELESA:"&""ZVOLTE VYSKU TELESA (MAX.100):"J,H:(H)(HH)"VYSKA TELESA MUSI BYT OD 1 DO 100 !": "+6"NYNI ZACNEME KRESLIT PROFIL TELESA.",@"POSTUPNE BUDETE ZADAVAT POLOMER REZU"*J"A VYSKU REZU KOLMO NA OSU OTACENI."#T"REZU MUZE BYT MAXIMALNE 30."-^"REZY BUDOU KRESLENY OD DOLNI PODSTAVY",h::"JAKY BUDE POLOMER DOLNI PODSTAVY"$r" (MAXIMALNE 50):": R()J|(R())(R()H) "NEPRIPUSTNA HODNOTA !": h3:I:V:R()R()D[]~,H,~,,~R(),2 [], ,"", , h, :" ":, :"VYSKA REZU C.";I;" (MAX.";HV;")";:":";P:P"REZ MUSI MIT KLADNOU VYSKU !": *(PVH)VVP:II:S(I)V: ."MNOHO. DO KONCE ZBYVA";HV;"JEDNOTEK !" z: }, :" ":, :[],, ,"", , "POLOMER REZU (MAX.50):";P(P)(PH) *"NEPRIPUSTNA HODNOTA !":z: WR(I)P:[]~R(I),V,~R(I),S(I) VH :Ip Ix :,&"POSLEDNI REZ C.30 BUDE MIT VYSKU";HV0Ix:z: :[], ,"", , :[]~,H,~R(I),H:;::"KRUH NAHRADIME N-UHELNIKEM."D"ZADEJTE N (MAX.20):";N9N(N)(N )"NEPRIPUSTNA HODNOTA !": DX:JN<bSI(J)(JIN):CO(J)(JIN)lJvL: 4:JNP[]KX(,J),KY(,J),KX(,J),KY(,J)JL[]KX(,N),KY(,N),KX(,),KY(,)LI  4JNj[]KX(,J),KY(,J),KX(,J),KY(,J),KX(,J),KY(,J)Jf[]KX(,N),KY(,N),KX(,N),KY(,N),KX(,),KY(,)L z%,0:"LIBI SE VAM ?"*"CHCETE ZKUSIT JINY MODEL (A=ANO) ?"# A$:A$"" :“A$"A" :ƒ  VYPOCET NOVE VRSTVY*4 J N8>KX(,J)KX(,J):KY(,J)KY(,J)NHKX(,J)~R(L)SI(J):KY(,J)R(L)CO(J)S(L)RJ\$ ----------------------------- A U T A$ -----------------------------:O :`D,:,:,@:@,p I @  I>  ,`:[]"c";: `,:"KM: 0";  ,:"START!"6 I @: \,p:(H):I* KM:X :SL:P SR   (XSX@2P((KM)):O@p(KM)9<KMKM{u]:S:KM(KMH)HF ,8:?P (`);"";:[],@,"",`,)ZA(()O):SSA: 4dS@(A);(D);: Z::SSAnS@(@S);3x"":[]X,8,"",`,  4SL XX::“SL@ XX(`X) 6XS,@:[]".";X,`:[]"c"; , `,:"KM= ";KM;  S: (`);"";.[],@,"",`,$A(()O):SSA4S@(A);(D);: ::SSAS@(@S);3"":[]X,8,"",`,]IP:A$:C(A$):C SL::“CSL::“CSL@"I,6XS,@:".";@ X,`:"#";,JIp :I, :I=T[],,,"",@,,=^[],,,"KARAMBOL",@,,3h ,:"USLI STE ";KM;" KILOMETROV"kr RC RCKM : KMRC , :"VYTVORILI STE NOVY TRATOVY REKORD":RCKM:"CEG+C+C"| ,8:;" HRAJETE DAL (A=ANO) ?"#A$:A$"" :“A$"A" :ƒjI:,H,(I), , :, ,(I),@,@:::I$p -----------------------------z O T H E L L O$ ----------------------------- H(),S(),P( , ),A( , ):,:,@:,:@,p:  "O5T7L0M1S0"" I4(),J4(): )K: I4(K): J4(K): K, 0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1:HR:[],H,"O T H E L L O",@,), :"POCET HRACU:1";PO" PO PO &H():H()\ PO H():H():()HR: B: B PO B2" JAKOU CHCETE BARVU (1=,2=) :";A$F$ A$"1" H() : A$"2" H() : ,." CHCETE ZACINAT (A=ANO) ?";A$C8(A$"A" A$"") H() HR : HR&BS():S()LIVJH` IJ I J P(I,J)@ : P(I,J) j J,IdtP(,):P( , ):P(, ):P( ,)~:PC ,2 []@,,X,G,2 []\,,,G, "1 2 3 4 5 6 7 8": I " ";(I@); J5PXJ@ :PYI@P:PZP(I,J)   JI ::I:TH+ d,@,"SKORE",,2 []l,`," ",,/f,H,"NA TAHU JE",,"CYKLUS"2([]n,P,"",,02q,P,(S()),,0<,P,(S()),,_A H() H() []f,4,"X=NENI TAH",,"FPC:PXp:PY%)P[]PX,PY,"",,<Z HR HR:SO:: HR:SO!dATH(HR):TK:CS"nPC:PX:PYf?xPZHR: :IM:JM:SM: AT "5 I:J: 0:CSCSPO> PO  : I I POPO) J J POPOPOSMSMPO:IMI:JMJ1 POSM (@)u] SMPO:IMI:JMJ J,ISMTH: 2[]f,%,"",@,5[]f,*,"NEMA TAH",,  ; TH TH: "CYKLUS"AT "RIIM:JJM:[]p,%,(I)"-"(J@),,  2[]f,%,"",@,5[]f,," POLE ",,6[]f,,," OBSAZENO",,  2[]f,%,"",@,7[]f,%,"SPATNY TAH",,  ;""PC:PXv:PY%3,[]f,,"",@, 6 %@A(A$): A$"X" A$"" J A$"A" A$"H" "=T[]PX,PY,"-",,:I(A$)^PXPX: h A$"1" A$"8" "rJ(A$)@| P(I,J) *PZHR:TK: 0:PO iPZHR:PXJ@ :PYI@P:PC: :S(HR)S(HR):TK: "C": 0P(I,J)HR:THR S()S() S() S() "CYKLUS"- S()S() VY$" VYHRAL !"- S()S() VY$"NEROZHODNE"- S()S() VY$" VYHRAL !"2[]n,P,"",,0q,P,(S()),,0,P,(S()),, "T5-C-E-GCT7"2[]f,H,"",,p.[]h,,VY$,, A$: A$""   "HRAJETE DAL (A=ANO) ? "#A$:A$"" :“A$"A" :ƒ& "CYKLUS""0PO: P(I,J) :KDPS:I1I:J1JNI1I1I4(K):J1J1J4(K)&X P(I1,J1)SO PSPS: N bP(I1,J1)HRPS:  lTK PS vI1I:J1J:K1PSI1I1I4(K):J1J1J4(K):PC:PZHR:PXJ1@ :PYI1@P: "C": :P(I1,J1)HR:S(HR)S(HR):S(SO)S(SO):K1POPOPS:K:P(I,J)PO:TI:PZ:  A$:A$""  TITI:TIp  TI PZ@:   2[]f,,"",@,@7[]f,,"VYNECHAT ?",,7 :[]f,,"",@,@A$"A" A$"" ". TH  : TH: "CYKLUS"MPZ@: : A$ " " A$ "" []PX,PY,A$,,@ PZ[]PX,PY,".",,P  PZ[PC]PX,PY,"",,:[]PX,PY,"",,P PZ[PC]PX,PY,"",,:[]PX,PY,"",,.  PZ@[PC]PX,PY,"",,.* PZ[PW]PX,PY,"",,4> A$: A$"" >