home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / music / comp02 / cp02_e2.mml < prev    next >
Text File  |  1980-01-02  |  1KB  |  44 lines
  1. #ifdef    cp02_e2
  2. .    end
  3. #endif
  4. /*----------------------------------------------------------
  5. g1&    g1            /* Ｇ6 (b,d,e,g)    */
  6. e1&    e1
  7. gggg    gggg
  8. dddd    dddd
  9. #define    A    !$cho(b,32,8,sqr,-800,0)b4&b2&
  10. #define    B    $cho(b,64,32,x,0,-2300)&$cho(b,64,32,x^2,-2300,-4000)u0
  11.     $A    $B
  12.     $A    $B
  13.     $A    $B
  14. r1
  15. #define    A    gggggggg    ggggggg&{g!g!g}
  16. $A
  17. $A
  18. $T_CLS $CLS(4) $CLS4 r2        $T_CLP $CLP(8.)$CLP(16)r4$CLP(8)$CLP(8)r4
  19. r2 $RID(4)$RID(4)            $PR01E
  20. $PS01                        l8r4.$SNR(8)r2
  21. l8$BSD(4)$BSD(4)$BSD$BSD r4    $BSD$BSD r$BSD$T_TT{$T_TT$TT2$TT4$TT2}2
  22. /*----------------------------------------------
  23. a1    a1    /* Ｄm(f,d,a)    Ｆ6 (a,c,d,f)
  24. f1    f1
  25. dddd    ffff
  26. <aaaa>    dddd
  27. #define    A    $cho(d,64,8,  x,-1000,0)&dd4&d2
  28. #define    B    $cho(f,64,8,sqr,-1000,0)&ff4&f2
  29.     $A    $B
  30.     $A    $B
  31.     $A    $B
  32. r4r4r2    r1
  33. #define    A    dddddddd    fffffffd
  34.     $A
  35.     $A
  36. #define    A    $T_CLS $CLS r $T_HH !#+13$CHH %r10!$OHH r2
  37. #define    B    $T_CLS $CLS r $T_CLP r4%c+9 $CLP%c-9 $CLP r4
  38.     l8    $A    $B
  39. r2$T_RID $RID(4)$RID(4)        r4($RID(4))3
  40. $PS01        $PS01
  41. $PB01E        $PB02E
  42. /*----------------------------------------------------
  43. /*    end of "cp02_e2.mml"    */
  44.