:59468,12< HANOI COPYRIGHT (C) 1978 GLEN FISHER[ CURSOR #5, NOVEMBER 1978| BOX 550, GOLETA, CA. 93017: AS OF 04 APR 80Z62000dT$" "iB$" "nTP$(8),T$(8),BT$(8),B$(8) xI18AC$(T$,2I,1):C$C$C$C$:C$C$C$C$:C$(C$C$,14)]TP$(I)(T$,2I1,1)C$C$(B$,2I,1):C$C$C$C$:C$C$C$C$:C$(C$C$,14)BT$(I)(B$,2I1,1)C$IL$"  "R$"  "LF$(5),RT$(5)-I15:LF$(I)(L$,2I1,2):RT$(I)(R$,2I1,2):I;,CR$(13)k:"HOW MANY DISKS (UP TO 7) ? ";: 60000{IN$""500I1(IN$):T$(IN$,I,1):T$"0"T$"9"550"NO ";T$;"'S PLEASE.":500&I0N(IN$):N7"I CAN'T HANDLE MORE THAN 7.":5006:N2"DON'T BE RIDICULOUS!":500VDN$""oRT$""I13:J07:P(I,J)0:J:IL"";DN$;"";:P(1,0)NVI13:" ";:I`DN$;"#1#2#3"/~DN$;("",N);:I1Ni(""RT$,7I1);(""BT$(1),2I1);""|P(1,NI1)I2IMV0lTMTI60vTITM19108000PR$"FROM WHICH PILE? ":5000:IN$""1950F(IN$) P(F,0)1"THAT PILE IS EMPTY.":1900H PR$"TO WHICH PILE? ":5000:IN$""1950U T(IN$) FT"THAT MOVE DOES NOTHING.":1900 P(T,0)02100 *P(F,P(F,0))P(T,P(T,0))"IT WON'T FIT.":1900 4FCP(F,0):FWP(F,FC):TCP(T,0):TWP(T,TC):MVMV1 >X113(F1)7FW2H H DN$;("",FC1);(""RT$RT$RT$,X);j MLF$("",FW1) RI1 8:T$(I)(TP$(I),1FW):B$(I)(BT$(I),1FW):I WHT0:J1:FTJ1 \IFTJ aP(I,0)HTHTP(I,0) fI kHTP(T,0)HTHT1:2165% p(FT)1HTP(2,0)HTHT12 uIFCHT? z: J18_ :T$(J);LF$;B$(J);LF$;"";g :Jr :"";y I ""; L$("",1FW):R$(RT$,FW1) "";(" ",FW);"";("",FW); FT2250 IF13T131! :J15; LF$(J);R$;RT$(J);L$;B JL "";S I] 2300p IT13F131z ""; :J511 ::LF$(J);R$;RT$(J);L$; :J I IHT1TC1  :J811  :T$(J);LF$;B$(J);LF$;"";  :J $ :""; . I, j (""BT$(1),FW1);""@ P(T,0)P(T,0)1\ P(T,P(T,0))P(F,P(F,0))p P(F,0)P(F,0)1 ( P(2,0)NP(3,0)N1900 8000 " " " YOU DID IT!!" " "1 "IT TOOK YOU";MV;("MOVES",5(MV1));" TO DO IT."` T2N1:"THE SHORTEST POSSIBLE SOLUTION" "NEEDS";T;("MOVES",5(T1));"." "PLAY AGAIN? ";:60000 (IN$,1)"N" :100 PR$;60000:IN$""(IN$,1)"Q"(IN$)15030'IN$"1"IN$"3"D"THERE'S NO SUCH PILE."TI1500:Ir" """;PR$;(" ",(IN$))"";:5000@"";JI14:" ":IT"";^!(#""B`IN$" ":ZTTI:ZC2:ZD$(20)YjZ$: Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255)ZL25460010!IN$IN$Z$:Z$;ZD$;Z$;@Z13IN$(IN$,2):CR$;:lZ20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010(PN060250-605002"PRESS RETURN TO ";