10 /* MUSIC SAMPLE : X-BASIC/68 
   20 /*
   30 print "SYMPHONIA  NO.14 in Bb major J.S BACH"
   40 /*
   50 str A$
   60 /* PART 1
   70 m_init()
   80 int i
   90 for i=1 to 6 : m_assign(i,i):next
  100 /*
// X-BASIC'ではテンポ指定がすべてのトラックに波及しないので、それぞれに指定する必要がある
  110 m_trk(1,"Q7 @34 V9   O4 T66")   :/* TRUMPET
  120 m_trk(2,"Q7 @35 V10  O4 T66")   :/* HORN
  130 m_trk(3,"Q7 @37 V10  O3 T66")   :/* TUBA
  140 m_trk(4,"Q8 @6  V8   O5 T66")   :/* CEMBALO
  150 m_trk(5,"Q8 @6  V8   O5 T66")   :/* CEMBALO
  160 m_trk(6,"Q8 @6  V8   O4 T66")   :/* CEMBALO
  170 /* PART 1
  180 A$="L16 B-4&B-B-AGF8G8DE-F8 : <R8F8&FE-DC>B-8 <D8> AB-<C8"
  190 A$ = A$ + ">F<FD>B-<E-8G8&GE-C>A&A8<F8 : D4E4F8>B-4A8"
  200 TRK_WRT(1):TRK_WRT(4)
  210 /* PART 2
  220 A$="L16R1 : >B-FB-<DC8E-8&E-8DE {FEFEFEFE}8 &ED32E32"
  230 A$=A$+"F4G8B-8E-8G8<C8C8& : C>FB-<D>G8B-8A8DE-FGE-F"
  240 TRK_WRT(2):TRK_WRT(5)
  250 /* PART 3
  260 A$=   "L8 B-<DC>B-AGFE- : D4F4G4<C4"
  270 A$=A$+"D4&L16DD>B-G<C8E-8&E-C>AF : B-4&B-B-AGF8G8DE-F8"
  280 TRK_WRT(3):TRK_WRT(6)
  290 m_play()
// X-BASIC'では終了待ちが必須 / It is necessary to wait for music end on X-BASIC'.
// X-BASIC/68ではBASICインタープリター上またはHuman68K上でもバックグラウンドで動き続け演奏しましたが、
// X-BASIC'ではそういうことはできないので、絶対に終了待ちが必要です。プログラムが終了すると音は停止します。
  while m_stat(-1)<>0
  endwhile
  300 end
  //
  310 func TRK_WRT(T)
  320   m_trk(T,A$)
  330 endfunc
