OPTION BASE 0
LET n=4
DIM S(n),P(n)
MAT P=ZER
PRINT
FOR m=1 TO 2^n-1
   LET Q$=right$(REPEAT$("0",n-1)&BSTR$(m,2),N)
   ! BSTR ＝ 十進数 → 二進数
   FOR i=n TO 1 STEP -1
      LET S(n-i+1)=VAL(mid$(Q$,i,1))
      ! 二進数を逆に並べて数値化する
   NEXT i
   FOR j=1 TO n
      IF S(j)=1 THEN
         LET k=j
         GOTO 10
      END IF
   NEXT j
10    LET P(k)=P(k)+(-1)^MOD(k,2)
      LET Z=MOD(P(K),3)
      PRINT USING "##":m;
      PRINT " 手目： ";k;"番目に小さい皿を、";mid$("ABC",Z+1,1);" 地点に移動させる。"
   NEXT m
   PRINT
END