V(, 8, 1 DO k$ = INKEY$ IF k$ = "" THE, 1: PRINT SPACE$(80) LOCATÜÜÜÜÜÜÜÜÜÜÜÛÜÜÜÜÜÜÜÜÜÜÜ PRINT "Torres de Han a(a(0, para), para) + SPACE$(11 - k) +  FOR i = 1 TO n : "; LOCATE; : BEEP LOCATE a(a(0, de), de) , 1: PRINT " >"; SPC(21); THEN EXIT D = VAL(k$) LOOP PRIN para > 0 AND LOCATE , , STRING$(k, "" PRINTLOOP UNT, 0) = n NEXT  LOCATEÜÜÜÜÜÜÜÜ1: PRINTDesenharovimento FOR j  IF a(0 LOCATE  IF k$  THEN 1 a(0, para(0, de) a$ = "SINT  DOINPU AND a( - i + 1 mvm 1 T, j)Para 2  de  THE par par 0 de =- 1 ppar IFa$ = k$;DEF#A-Z CLS oi 1.0 "Copyright 1999 (c) WendelSoft$: %T "Quantos discos (3-10) :", n: IL n > 2& n < 11 DIM a(n, 2)'0'i()CLS 1, 32: oi" 16 ÜÜÜÛÜÜÜ" 17, 1 "<1 "<2 "<3>"$ GOSUB  19 Ms feitos:";*t;=+O 2, = n O120 De  21 - 20N.de IF/> 0&/< 40N,/- 1) O END IFT de 21N 2= ""1a IF 2a < 4&2a <> de OT2a , ,34/51a =2a 5 p4 6a =7 p pde > 6a a) = a)) SWAP, ! = ! 5 mvmt =*t) LOOP 220E 21E 20, 1<> ""&*t = 2 ^ n -+HEN PR#"-b‚ns, vocˆ conseguiu no m¡nimo/ms!!!" 1 PR#"Quer jogar/novo [S/N] ? ";$ 8 UCASE$(%T$(1)) IL"" OR 8 "N a$3BEEP7""0N RUN SYSTEM :9 = ""= 0 TO.k = a(i,9 = k$Ü") + "Û" + Ü")" "LOCATE 16(,  k$;RETURN