home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / DEMO / PRG / MP21DE.ZIP / CZ101.PR_ / CZ101.PR
Encoding:
Text File  |  1993-05-13  |  1.9 KB  |  106 lines
  1. PROFILE FILE
  2. * SAMPLE COMMENTS
  3. BRAND "CASIO"
  4. INSTRUMENT "CZ-101"
  5. KIND PATCH
  6. FILEEXT "CZ1"
  7. SIZE 2048
  8. MIDI 1, 16, 10
  9. TRANSMIT
  10. *    YESNO V9, " Ready to send ? "
  11. *    IFQUIT V9,0
  12. * FIRST Send Tones
  13.     MESSAGE SHOW "Sending Tone Data "
  14.     CLEAR ALL
  15. *    VINIT V1, 0
  16.     VINIT V2, 0
  17.     USERVAL V3, 0, 99, 0, "Enter the Bank Number to Send To"
  18.     VMULT V1, V3, 16
  19.     LOOP 16
  20.         SEND 7, HF0 H44 H00 H00 H7M H20 V1
  21.         GET  6, HF0 H44 H00 H00 H7M H30, WAIT
  22.         XDATA 1, 127, V2
  23.         SEND 1, HF7
  24.         VADD V2, V2, 128
  25.         VADD V1, V1, 1
  26.         WAIT 60
  27.     ENDLOOP
  28.     MESSAGE CLEAR
  29.     TELL " Success! "
  30.     ENDMACRO
  31. RECEIVE
  32. *    YESNO V9,  " Are You Ready ? "
  33. *    IFQUIT V9, 0
  34. * FIRST GET Tones
  35.     MESSAGE SHOW "Getting Tone Data "
  36.     CLEAR ALL
  37.     VINIT V1, 0
  38.     VINIT V2, 0
  39.     USERVAL V3, 0, 99, 0, "Enter the Bank Number to Receive From"
  40.     VMULT V1, V3, 16
  41.     LOOP 16
  42.         SEND 7, HF0 H44 H00 H00 H7M H10 V1
  43.         GET  6, HF0 H44 H00 H00 H7M H30, WAIT
  44.         SEND 2, H7M, H31
  45.         RDATA 1, 127, V2
  46.         GET 1, HF7
  47.         SEND 1, HF7
  48.         VADD V2, V2, 128
  49.         VADD V1, V1, 1
  50.         WAIT 60
  51.     ENDLOOP
  52.     MESSAGE CLEAR
  53.     ENDMACRO
  54. * FILE Save Macro
  55. DISKSAVE
  56.     CLEAR ALL
  57.     DOPEN W, "CZ1"
  58. * start with Tone Data
  59.     MESSAGE SHOW "Saving"
  60.     VINIT V1, 0
  61.     DWRITE 2048, 0
  62.     MESSAGE CLEAR
  63.     DCLOSE
  64.     ENDMACRO
  65. DISKLOAD
  66.     CLEAR ALL
  67.     DOPEN R, "CZ1"
  68. * start with Tone Data
  69.     MESSAGE SHOW "Loading"
  70.     VINIT V1, 0
  71.     DREAD 2048, 0
  72.     MESSAGE CLEAR
  73.     DCLOSE
  74.     ENDMACRO
  75. *
  76. *        1st View is Timbres
  77. *
  78. VIEW
  79.     PATCH TITLE "Tones"
  80.     PATCH OFFSET 0
  81.     PATCH LENGTH 128
  82.     PATCH NUMBER 16
  83.     NAME LENGTH 0
  84.     NAME OFFSET 0
  85.     NAME XFORM 0
  86.     TRANSMIT
  87.         CLEAR ALL
  88.         SEND 7, HF0 H44 H00 H00 H7M H20 H60
  89.         GET  6, HF0 H44 H00 H00 H7M H30, WAIT
  90.         XDATA 1, 128, 0
  91.         SEND 1, HF7
  92.     ENDMACRO
  93.     RECEIVE
  94.         CLEAR ALL
  95.         SEND 7, HF0 H44 H00 H00 H7M H10 H60
  96.         GET  6, HF0 H44 H00 H00 H7M H30, WAIT
  97.         SEND 2, H7M, H31
  98.         RDATA 1, 128, 0
  99.         GET 1, HF7
  100.         SEND 1, HF7
  101.     ENDMACRO
  102. VIEWEND
  103. *
  104. *End of Profile
  105. *
  106.