DESTROY MON1,MOND1
PMONENABLE MON1,64
PMONON
EDIT TESTS
D*I/
%BEGIN
%ROUTINE HANOI(%INTEGER N,I,J)
%IF N>0 %THEN %START
HANOI(N-1,I,6-I-J)
WRITE(I,1)
PRINT STRING(" ??")
WRITE(J,1)
HANOI(N-1,6-I-J,J)
%FINISH
%END
HANOI(4,1,2
%ENDOFPROGRAM
/
T
M/??/R2I/->/
T(R/HANOI/I/PEKING/)*
E
PARM
IMP TESTS,TEST,LIST
PMONOFF
PMONDISABLE
DESTROY MON2,MOND2
PMONENABLE MON2,64
PMONON
EDIT TESTS
A/4,1,2/
I/)/
TP*
E
IMP TESTS,TEST,LIST
RUN TEST
PMONOFF
PMONDISABLE
PMONDECYCLE MON1,MOND1
PMONDECYCLE MON2,MOND2