home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
d
/
doslogo.zip
/
LOGOLIB.ZIP
/
TOWERSET.LG
< prev
next >
Wrap
Text File
|
1990-06-11
|
255b
|
9 lines
to towerset :tn :value
!
! Called by HANOI. Sets the current number of disks on tower :tn,
! as stored in the globals tower1, tower2, and tower3.
!
if :tn = 1 [make "tower1 :value] [if :tn = 2 [make "tower2 :value] \
[make "tower3 :value]]
end