PRINT
PRINT "純正調 どれみふぁそらしど"
PRINT ""
PRINT " 1"
PRINT 27/24
PRINT 30/24
PRINT 32/24
PRINT 36/24
PRINT 40/24
PRINT 45/24
PRINT " 2"
PRINT
PRINT
PRINT "ピタゴラス音律のもっと精密　53音階"
PRINT
PRINT " (3/2)^53*(1/2)^30 ="; (3/2)^53*(1/2)^30;"≒ 2"
PRINT
DIM a(54)
FOR i=0 TO 53
   FOR j=0 TO 53
      LET W = (3/2)^i*(1/2)^j
      IF 1 =< W AND W =<2.0021 THEN
         LET a(i+1) = W 
         GOTO 10
      END IF
   NEXT j
10 NEXT i
   CALL sort(a,54)
   FOR i=1 TO 54
      PRINT a(i)
   NEXT i
   PRINT
END

EXTERNAL SUB sort(a(),m)
   FOR i=1 TO m-1
      FOR j=i+1 TO m
         IF a(i)>a(j) THEN
            LET t=a(j) 
            LET a(j)=a(i)
            LET a(i)=t
         END IF
      NEXT j
   NEXT i
END SUB