Int SEED=0001
System.RandomSeed=SEED
Int PRG=Random(1,50) Int BNK=Random(1,17) Int i=1
Print (,SEED,BNK,PRG)
Tempo=RandomSelect(20,24,28,32,36)
[4
  TR(i) @(PRG,,BNK) Time(1:1:0) v.Random=24 t.Random=240 q(Random(90,160))
    [(16*4)
      Time(Random(1,16):Random(1,4):0) n(Random(30,90))
    ]
  i++
] 
Time(17:1:0) l1r                                                                                                                                                                                                                

Int TM=Time/TimeBase*(600000/Tempo)/10000 Print("演奏は "+TM/60+" 分 "+ TM%60+" 秒)