SET WINDOW -1.5,1.5,-1.5,1.5
DRAW circle
PRINT
PRINT "まずは ３・３・７拍子 ２回"
PRINT "たん  たん  たん  うん"
PRINT "たん  たん  たん  うん"
PRINT "たん  たん  たん  たん  たん  たん  たん  うん"
PRINT
LET TP=1/98
LET n=16
SET COLOR mode "NATIVE"
SET AREA COLOR colorindex(240/255,255/255,255/255)
DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2),SIN(PI/2))
WAIT DELAY 0.2
SET AREA COLOR colorindex(250/255,250/255,250/255)
FOR i=1 TO n
   DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2-2*PI*i/n),SIN(PI/2-2*PI*i/n))
   WAIT DELAY 0.2
NEXT i
FOR j=1 TO 2
   CALL ONPU(TP,n,1,48)
   CALL ONPU(TP,n,2,48)
   CALL ONPU(TP,n,3,48)
   CALL KYUF(TP,n,4,48)
   CALL ONPU(TP,n,5,48)
   CALL ONPU(TP,n,6,48)
   CALL ONPU(TP,n,7,48)
   CALL KYUF(TP,n,8,48)
   CALL ONPU(TP,n,9,48)
   CALL ONPU(TP,n,10,48)
   CALL ONPU(TP,n,11,48)
   CALL ONPU(TP,n,12,48)
   CALL ONPU(TP,n,13,48)
   CALL ONPU(TP,n,14,48)
   CALL ONPU(TP,n,15,48)
   CALL KYUF(TP,n,16,48)
NEXT j

CLEAR
PRINT
PRINT "タブー  ４回"
PRINT "たっか  た  た  たん  たん"
PRINT "たっか  た  た  たん  うん"
PRINT
LET TP=1/64
LET n=12
DRAW circle
SET COLOR mode "NATIVE"
SET AREA COLOR colorindex(240/255,255/255,255/255)
DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2),SIN(PI/2))
WAIT DELAY 0.2
SET AREA COLOR colorindex(250/255,250/255,250/255)
FOR i=1 TO n
   DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2-2*PI*i/n),SIN(PI/2-2*PI*i/n))
   WAIT DELAY 0.2
NEXT i
FOR j=1 TO 4
   CALL ONPU(TP,n,1,36)
   CALL ONPU(TP,n,2,12)
   CALL ONPU(TP,n,3,24)
   CALL ONPU(TP,n,4,24)
   CALL ONPU(TP,n,5,48)
   CALL ONPU(TP,n,6,48)
   CALL ONPU(TP,n,7,36)
   CALL ONPU(TP,n,8,12)
   CALL ONPU(TP,n,9,24)
   CALL ONPU(TP,n,10,24)
   CALL ONPU(TP,n,11,48)
   CALL KYUF(TP,n,12,48)
NEXT j

CLEAR
PRINT
PRINT "ボレロ  ６回"
PRINT "た  たかた  た  たかた  た  た"
PRINT "た  たかた  た  たかた  たかた　たかた"
PRINT
LET TP=1/40
LET n=24
DRAW circle
SET COLOR mode "NATIVE"
SET AREA COLOR colorindex(245/255,255/255,255/255)
DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2),SIN(PI/2))
WAIT DELAY 0.2
SET AREA COLOR colorindex(250/255,250/255,250/255)
FOR i=1 TO n
   DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2-2*PI*i/n),SIN(PI/2-2*PI*i/n))
   WAIT DELAY 0.2
NEXT i
FOR j=1 TO 6
   CALL ONPU(TP,n,1,24)
   CALL ONPU(TP,n,2,8)
   CALL ONPU(TP,n,3,8)
   CALL ONPU(TP,n,4,8)
   CALL ONPU(TP,n,5,24)
   CALL ONPU(TP,n,6,8)
   CALL ONPU(TP,n,7,8)
   CALL ONPU(TP,n,8,8)
   CALL ONPU(TP,n,9,24)
   CALL ONPU(TP,n,10,24)
   CALL ONPU(TP,n,11,24)
   CALL ONPU(TP,n,12,8)
   CALL ONPU(TP,n,13,8)
   CALL ONPU(TP,n,14,8)
   CALL ONPU(TP,n,15,24)
   CALL ONPU(TP,n,16,8)
   CALL ONPU(TP,n,17,8)
   CALL ONPU(TP,n,18,8)
   CALL ONPU(TP,n,19,8)
   CALL ONPU(TP,n,20,8)
   CALL ONPU(TP,n,21,8)
   CALL ONPU(TP,n,22,8)
   CALL ONPU(TP,n,23,8)
   CALL ONPU(TP,n,24,8)
NEXT j

CLEAR
PRINT
PRINT "パチリコパチリンなんだろうな  ５回"
PRINT "たっか た た  たっか た た"
PRINT "たっか た た  たん  うん"
PRINT
LET TP=1/56
LET n=14
DRAW circle
SET COLOR mode "NATIVE"
SET AREA COLOR colorindex(245/255,255/255,255/255)
DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2),SIN(PI/2))
WAIT DELAY 0.2
SET AREA COLOR colorindex(250/255,250/255,250/255)
FOR i=1 TO n
   DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2-2*PI*i/n),SIN(PI/2-2*PI*i/n))
   WAIT DELAY 0.2
NEXT i
FOR j=1 TO 5
   CALL ONPU(TP,n,1,36)
   CALL ONPU(TP,n,2,12)
   CALL ONPU(TP,n,3,24)
   CALL ONPU(TP,n,4,24)
   CALL ONPU(TP,n,5,36)
   CALL ONPU(TP,n,6,12)
   CALL ONPU(TP,n,7,24)
   CALL ONPU(TP,n,8,24)
   CALL ONPU(TP,n,9,36)
   CALL ONPU(TP,n,10,12)
   CALL ONPU(TP,n,11,24)
   CALL ONPU(TP,n,12,24)
   CALL ONPU(TP,n,13,48)
   CALL KYUF(TP,n,14,48)
NEXT j
PRINT
PRINT "おしまい"
PRINT
END

EXTERNAL SUB ONPU(TP,n,a,L)
SET AREA COLOR colorindex(0,0,0)
DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2-2*PI*(a-1)/n),SIN(PI/2-2*PI*(a-1)/n))
WAIT DELAY TP*L
SET AREA COLOR colorindex(240/255,240/255,240/255)
DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2-2*PI*(a-1)/n),SIN(PI/2-2*PI*(a-1)/n))
END SUB

EXTERNAL SUB KYUF(TP,n,a,L)
SET AREA COLOR colorindex(240/255,255/255,255/255)
DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2-2*PI*(a-1)/n),SIN(PI/2-2*PI*(a-1)/n))
WAIT DELAY TP*L
SET AREA COLOR colorindex(240/255,240/255,240/255)
DRAW disk WITH SCALE(0.05)*SHIFT(COS(PI/2-2*PI*(a-1)/n),SIN(PI/2-2*PI*(a-1)/n))
END SUB