;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; M2D_KYBD.CAL - by Constantine Peters (c)copyright 1989 NOT FOR SALE
;                but for use of/by the AUTHOR &/or the public domain
;                for use with Cakewalk Professional 3.0
;
; routine written to translate MT32 KEYBOARD patches to D110 patches
;
;;; Prolog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(do (message "converting MT32 KEYBOARD patches to D110 equivelants"))
;;; Body ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(do  (if (== Event.Kind PATCH)
       (switch Patch.Num
       ;;; MT32                   D110
            0         (= Patch.Num  0)     ;   Piano, Acou 1 (3)
            1         (= Patch.Num  1)     ;   Piano, Acou 2 (2)
            2         (= Patch.Num  2)     ;   Piano, Acou 3 (2)
            3         (= Patch.Num  4)     ;   Piano, Elec 1 (3)
            4         (= Patch.Num  5)     ;   Piano, Elec 2 (3)
            5         (= Patch.Num  6)     ;   Piano, Elec 3 (2)
            6         (= Patch.Num  7)     ;   Piano, Elec 4 (1)
            7         (= Patch.Num  3)     ;   Piano, Honky-Tonk (3)
            8         (= Patch.Num  8)     ;   Organ, Elec 1 (4)
            9         (= Patch.Num  9)     ;   Organ, Elec 2 (2)
           10         (= Patch.Num 10)     ;   Organ, Elec 3 (2)
           11         (= Patch.Num 11)     ;   Organ, Elec 4 (1)
           12         (= Patch.Num 12)     ;   Organ, Pipe 1 (3)
           13         (= Patch.Num 13)     ;   Organ, Pipe 2 (3)
           14         (= Patch.Num 14)     ;   Organ, Pipe 3 (2)
           15         (= Patch.Num 15)     ;   Accordion (2)
           16         (= Patch.Num 16)     ;   Harpsi 1 (3)
           17         (= Patch.Num 17)     ;   Harpsi 2 (2)
           18         (= Patch.Num 18)     ;   Harpsi 3 (1)
           19         (= Patch.Num 19)     ;   Clav 1 (3)
           20         (= Patch.Num 20)     ;   Clav 2 (2)
           21         (= Patch.Num 21)     ;   Clav 3 (2)
           22         (= Patch.Num 22)     ;   Celesta 1 (3)
           23         (= Patch.Num 23)     ;   Celesta 2 (2)
       )
)NIL )
;;; Epilog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
NIL
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; If you find this routine useful, here are some charities that can
; use your immediate help for HURRICANE HUGO VICTOMS :
;
;     > American Red Cross/Hurricane Hugo Relief (they need cash)
;     > Heritage Baptist Church, 1740 Forrest Drive;Annapolis MD;21401
;       (blankets, clothing,cash,diapers etc... they will be sending
;       all of it down via a truck convoy Nov 13).
;     > Screven Baptist Association;105 Holiday Inn Drive;Summerville,
;       South Carolina, 29483 (again, clothing, blankets, cash etc...)
;
; While it's been a few months, there are still people without homes,
; jobs, clothes and any visible means of support. Winter is a tough
; time of year to be without.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; please report any bugs, improvements etc ... to either the
; ENIAC/IEMUG  BBS (301)460-9134, Constantine Peters SYSOP .or.
; MidWest MIDI BBS (407)733-3102, John Fordenbacher  SYSOP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;