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 "ピタゴラス音律　12音階"
PRINT
PRINT " (3/2)^0*(1/2)^0 ="; (3/2)^0*(1/2)^0
PRINT " (3/2)^12*(1/2)^6 ="; (3/2)^12*(1/2)^6;"≒ 2"
PRINT
DIM a(12)
FOR i=0 TO 11
   FOR j=0 TO 11
      LET W = (3/2)^i*(1/2)^j
      IF 1 =< W AND W =<2 THEN
         LET a(i+1) = W 
         GOTO 10
      END IF
   NEXT j
10 NEXT i
   CALL sort(a,12)
   FOR i=1 TO 12
      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