'BEGIN'
  'PROCEDURE' TRANSPORT(N,T1,T2,T3);
  'INTEGER' N,T1,T2,T3;
  'BEGIN'
  'IF' N>1 'THEN' TRANSPORT(N-1,T1,T2,T3);
  SKIP(1);TEXT(1,"SCHLEPPE SCHEIBE NR ");WRITE(1,N);
   TEXT(1," VON TURM "); WRITE(1,T1); TEXT(1," NACH TURM ");
   WRITE(1,T3);
  'IF' N>1 'THEN' TRANSPORT(N-1,T2,T3,T1)
  'END';
TRANSPORT(3,1,2,3)
'END' TUERMEVONHANOI$