RANDOMIZE
DIM T$(22)
LET T$(1)="-ﾄﾞ"
LET T$(2)="-ﾚ"
LET T$(3)="-ﾐ"
LET T$(4)="-ﾌｧ"
LET T$(5)="-ｿ"
LET T$(6)="-ﾗ"
LET T$(7)="-ｼ"
LET T$(8)=" ﾄﾞ"
LET T$(9)=" ﾚ"
LET T$(10)=" ﾐ"
LET T$(11)=" ﾌｧ"
LET T$(12)=" ｿ"
LET T$(13)=" ﾗ"
LET T$(14)=" ｼ"
LET T$(15)="+ﾄﾞ"
LET T$(16)="+ﾚ"
LET T$(17)="+ﾐ"
LET T$(18)="+ﾌｧ"
LET T$(19)="+ｿ"
LET T$(20)="+ﾗ"
LET T$(21)="+ｼ"
LET T$(22)="+ﾄﾞ"
PRINT
PRINT "音階トレーニング"
PRINT 
10 INPUT PROMPT "1.長調　2.短調　どっち？":x
   IF (x-1)*(x-2)<>0 THEN GOTO 10
20 INPUT PROMPT "初音 1.ﾄﾞ 2.ﾚ 3.ﾐ 4.ﾌｧ 5.ｿ 6.ﾗ 7.ｼ ":y
   IF (y-1)*(y-2)*(y-3)*(y-4)*(y-5)*(y-6)*(y-7)<>0 THEN GOTO 20
   PRINT
   LET y=y+7
   IF x=1 THEN
      PRINT "長調 :"
      PRINT
   ELSE
      PRINT "短調 :"
      PRINT
   END IF
   PRINT "　";T$(y);
   IF x=1 THEN
      FOR i=1 TO 3
         LET W=INT(RND*2)
         IF W=1 THEN 
            LET f=1
         ELSE
            LET f=-1
         END IF
         LET E=INT(RND*2)+1
         LET y=y+f*E
         PRINT "  ";T$(y);
      NEXT i
      DO WHILE MOD(y,7)<>1
         LET W=INT(RND*2)
         IF W=1 THEN 
            LET f=1
         ELSE
            LET f=-1
         END IF
         LET E=INT(RND*2)+1
         LET y=y+f*E
         PRINT "  ";T$(y);
      LOOP
   ELSE
      FOR i=1 TO 3
         LET W=INT(RND*2)
         IF W=1 THEN 
            LET f=1
         ELSE
            LET f=-1
         END IF  
         LET E=INT(RND*2)+1
         LET y=y+f*E
         PRINT "  ";T$(y);
      NEXT i
      DO WHILE MOD(y,7)<>6
         LET W=INT(RND*2)
         IF W=1 THEN 
            LET f=1
         ELSE
            LET f=-1
         END IF
         LET E=INT(RND*2)+1
         LET y=y+f*E
         PRINT "　";T$(y);
      LOOP
   END IF
   PRINT
END