H#C : Gal Gabor; <1630504....> ELTE TTK 3. pr. (c) 1984AC: Hanoi tornyai program`C : 470 :: (Mem inic.)hC(:C2: ((( tornyok )))C<:CF A$(2),T%(2)CP "Alfa","Beta","Ceda"CZ I%0 2 : A$(I%) : I%Dd T1%10 : T2%19 : T3%32 : T4%40 : T5%48 :: tab Dn:5Dx: ((( main )))=D:eD " Hanoi tornyai program" : D "Tornyok: ";A$(0);" ; ";A$(1);" ; ";A$(2) : D "A korongokat"D A$(0);"-rol ";A$(2);"-ra kell tenni" : D "A program megall,"E "ha a korongszam nulla"AE "vagy nem adod meg ()." : RE "Uj lepes"kE "A - automatiqsan"E "B - bill. lenyomasara"E I$ : I$"" 240E I$"A" I$"a" R%1 : @960,"Automatiqsan",,,, : 280+F I$"B" I$"b" R%0 : @960,"Bill. lenyomasara",,, : 280_F @960,"Illegalis parancs, kerem ujra"; : 240tF660 :: (info)F" D%0 : " Szevasz" : F, : "Lepesszam :",2D%1 : G6 "sorszam";T1%);"innen";T2%);"ide";T3%);A$(0);T4%);A$(1);T5%);A$(2)2G@ T%(0)D% : T%(1)0 : T%(2)0\GJ T3%);T%(0);T4%);T%(1);T5%);T%(2)wGT L%0 : :lepes-szamG^ P%1 : :ures memGh: push...Gr 610 :: (legalis?)G| D%(P%1)D% :: ennyitG S%(P%1)0 :: innenH F%(P%1)2 :: ideH P%P%15H 730 :: (attesz)HH : "Kesz !"^H 660 :: (info)hH 290pH:H: ((( dinamiqs memoria inic. )))H:H M%100 :: memH D%(M%), S%(M%), F%(M%)HP%1 :: uresH :: (mem inic.)I:#I: ((( pop legalitas )))+I&:PI0 P%1 "Illegalis pop" : kI: :: (pop legalitas)sID:IN: ((( push legalitas )))IX:Ib P%M% "Illegalis push" : Il :: (push legalitas)Iv:I: ((( info )))J:+J : "Korongszam :", : D%0 : D%UJ D%0 : "Logikatlan !" : 660J D%M% : "Memoria meret kicsi (";M%;")" : 660J :: (info)J:J: ((( attesz(d,s,f) )))J:J D%(P%)1 960 : 900J: pushK 610 :: (push legalitas)4K D%(P%1)D%(P%)1JK S%(P%1)S%(P%)iK  F%(P%1)3S%(P%)F%(P%)wK P%P%1K  730 :: (attesz)K* 960 :: (nicsak)K4: pushK> 610 :: (push legalitas)KH D%(P%1)D%(P%)1 LR S%(P%1)3%S%(P%)F%(P%)"L\ F%(P%1)F%(P%)0Lf P%P%1HLp 730 :: (attesz)TLz: popsL 560 :: (pop legalitas)L P%P%1L :: (attesz)L:L: ((( nicsak(s,f) )))L:M L%L%1 : T%(S%(P%))T%(S%(P%))1 : T%(F%(P%))T%(F%(P%))1VM L%;T1%);A$(S%(P%));T2%);A$(F%(P%));T3%);T%(0);T4%);T%(1);T5%);T%(2)qM R% :: (nicsak)M "" 990M :: (nicsak)