1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
--
-- Rigal: tower of hanoi
--
#MAIN
OPEN S ' ';
$Count:=4; -- Count of rings in first tower
S<<' Rings count =' $Count ;
$STATE:=#INIT($Count); -- Global variable
#VIDEOSHOW(T);
#H( $Count 1 3 );
##
#H
$Num $From $To
/
S<< ' $Num $From $To =' $Num $From $To ;
IF $Num=1 ->
S << 'FROM' $From 'TO ' $To;
#VIDEOMOVE ($From $To);
#VIDEOSHOW (T)
Enter to Rename, <Shift>+Enter to Preview