Category : Miscellaneous Language Source Code
Archive   : COGTEX.ZIP
Filename : MYFILE.PLM

ÿ

hanoihanoi

ýÿýÿýÿ)þÿþÿ
phanoiwwn_openintroductionwn_clearlset_polecrstack_diskswriteget0_noechomoveafterfclosetoldÆ
;
ÿÿ
ýÿýÿýÿ
#

L Towers of Hanoi ÿÿ
(üÿüÿÿÿ




(ùÿùÿ


(ùÿùÿ


(ùÿùÿ-(öÿöÿ


 Instructions 2

-
Hit any key to start

1

-


-



(óÿóÿ
4 Afterword .... 2
-(òÿòÿ
-
Hit any key to end

1







 move"ÿÿ$$
&movearith_plustake_diskput_diskl¹
ÿÿ!##
#
#2-
ÿÿ
--
--
(ÿÿÿÿ--
(ýÿýÿ-
-
(üÿüÿ-
-
-)ÿÿÿÿstack_diskslput_disk.;ÿÿ
==1





)ýÿýÿ$stack_diskslput_diskarith_plus7R
ÿÿ
!
#
-
(ýÿýÿ
1-
ÿÿ
)ÿÿÿÿ
Gput_diskget_colget_pole-isarith_pluswn_locate<<wcset_poleš

ÿÿýÿýÿýÿ#
#
-
2
(þÿþÿ-
2
(ýÿýÿ
&„+1
2
ÿÿ
ÿÿ-
,
+
1,

Ü

-

(öÿöÿItake_diskget_colget_pole-iswn_locate<<wcaarith_plusset_poleœ


ÿÿýÿýÿýÿ##
-2
(þÿþÿ-2

(ýÿýÿ
&ƒ+1
ÿÿ-


+
1,



1



-,
(öÿöÿget_coll$ÿÿZ



get_colcÿÿ


$
get_colrÿÿ!


<
get_colrcl
ÿÿ
âÿ
Âÿ
¢ÿget_polelcntr_get$)ÿÿi


get_poleccntr_getÿÿ

 get_polercntr_getÿÿ!

 get_polercl
ÿÿ
Ýÿ
¸ÿ
“ÿset_polelcntr_set$)ÿÿi


set_poleccntr_setÿÿ

 set_polercntr_setÿÿ!

 set_polercl
ÿÿ
Ýÿ
¸ÿ
“ÿ)introductionwriteget0_noechown_clearœ±
ÿÿýÿýÿýÿ

Legend has it that, thousands of years ago, priests in Vietnam were
given a task to perform. They were told that when the task was complete
the world would end.



The task was simple. Three poles were set up with a stack of disks on
the left hand pole. No two disks were the same size and no larger
disk was on top of a smaller one....

Hit any key to continue ..

1

ÿÿ



The priests had to move all the disks to the center pole given the
following constraints:



At no time could a larger disk be on a smaller one.
Only one disk could be moved at a time.


A disk could only be moved to another pole.
Only the topmost disk on a pole can be moved.

The priests had 50 disks to move but we will perform a similar task with
with seven disks .. hit any key

1

ÿÿ


afterwrite™
ÿÿ
ýÿýÿýÿ
.. Don't worry. Moving one disk each
minute, it will take the priests about
2,142,123,110 years to move all fifty disks