H V A ********* HANOJ **********: ,p: @,0 "======================================="0( "************ HANOJSKA VEZ *************"02 "---------------------------------------"<1F "CILEM HRY JE PREMISTIT NEJMENSIM POCTEM "YP "PRESUNU KOTOUCU Z KTERYCH JE VEZ " "OZ "POSTAVENA, PREMISTUJTE JE NA PODSTAVEC ": "C. 2 ( DRUHY).": +d "JE NUTNO DODRZET JEDINE PRAVIDLO :"3n "================================== "3x "NESMI SE POKLADAT VETSI KOTOUC NA MENSI. "2 "PREJI VAM HODNE ZDARU PRI VASEM POCINANI "/ "A NESNAZTE SE MNE PODFOUKNOUT !!! ": C "MATE-LI PRECTENO, STISKNETE LIBOVOLNOU": : "KLAVESU !!!" KL$: KL$"" $ "NOVA-HRA": ++++++++++++++++J S(@,@),S$(@, ),I(@),V$(@),XS$(@)V$()" "V$()" "V$(@)" "V$()" "V$( )" "V$(@)" " P$"rtttttttttttq" M$" " "XS$()" 1 " ,XS$()" 2 " 6XS$(@)" 3 "0@MU1$"O3M1T6S6V15B0A0V10G0F0V6E0D0V4C0O2B0"0JMU2$"O1M2T6S4V15B0A0V10G0F0V6E0D0V4C0O0B0"'T---------------------------------#^ "KOLIK KOTOUCU ? (3 AZ 6) ";h N$: N$"" h rN(N$) | N@ N@ h N'###### PRIPRAVA PROMENNYCH ######/I(): I()N: I(@)N K N:S(,K)K: S(,K): S(@,K)FS$(,K)V$(K): S$(,K)M$: S$(@,K)M$ K SL @XS$(SL,N)P$: S$(SL,N)M$: S$(SL,N@)XS$(SL): S$(SL,N)M$  SL'######## KONEC PRIPRAVY ######### , , "TISKVEZE"# "PRESUN": +++++++++++++++++ ,& "TVUJ TAH (X-Y): ";0 X$: X$"" 0 :X(X$)ID X  X @ MU1$: : 0N X;: " -";X Y$: Y$"" X bY(Y$)Il Y  Y @ MU2$: : Xv Y "PRES-X-Y"a CH MU1$;MU2$: : ,: " ": CH:  "PRESUN"'************* RUTINY ************# "TISKVEZE": ***************: ,P RA N0 S$(,RA);S$(,RA);S$(@,RA)  RA# "PRES-X-Y": ***************I(X)I(X)% I(X) I(X)N "CHYBA"& S(X,I(X)) "CHYBA"%  S(Y,I(Y)) "CHYBA"I I(Y)N S(Y,I(Y)) "CHYBA"r  I(Y)N S(X,I(X))S(Y,I(Y)) "CHYBA"*S(Y,I(Y))S(X,I(X))4S(X,I(X))>S$(Y,I(Y))S$(X,I(X))HS$(X,I(X))M$R "TISKVEZE"\ S(,) S(@,) ,: "TO SE TI POVEDLO, ALE UNIKLO TI, ZE VEZ": : "MELA BYT NA PODSTAVCI C. 2, MUZES ZACIT ": "ZNOVU.": : "NOVA-HRA"fKROKKROK*p S(,) "HOTOVO"zI(Y)I(Y)# "CHYBA": ++++++++++++++++++'I(X)I(X): CH: # "HOTOVO": +++++++++++++++++0 ,: "POCET TAHU = ",KROK: % "CHCES HRAT JESTE ??? (A/N) "; A$: A$"" A A$"A" A$: "NOVA-HRA" A$"N"  :