home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / DEMO / PRG / MP21DE.ZIP / PROTEUS1.PR_ / PROTEUS1.PR
Encoding:
Text File  |  1992-11-30  |  2.1 KB  |  102 lines
  1. PROFILE FILE
  2. * SAMPLE COMMENTS
  3. BRAND "EMU"
  4. INSTRUMENT "Proteus"
  5. KIND PATCH
  6. FILEEXT "PR0"
  7. SIZE 16512
  8. MIDI 1
  9. TRANSMIT
  10.     CLEAR ALL
  11.     YESNO V0,  " Are You Ready ? "
  12.     IFQUIT V0, 0
  13. *       GET Presets
  14.     MESSAGE SHOW "Sending Presets to Proteus"
  15.     CLEAR ALL
  16.     VINIT V1, 0
  17.     VINIT V6, H40
  18.     LOOP 64
  19.     SEND 6, HF0, H18, H04, H0M, H01, V6
  20.     XDATA 0, 258, V1
  21.     SEND 1, HF7
  22.     VADD V6, V6, 1
  23.     VADD V1, V1, 258
  24.     WAIT 120
  25.     ENDLOOP    
  26.     MESSAGE CLEAR
  27.     ENDMACRO
  28. RECEIVE
  29.     YESNO V0,  " Are You Ready ? "
  30.     IFQUIT V0, 0
  31.     YESNO V3, "Get User Presets ?"
  32.     VADD V7, V3, H7E
  33.     IFJUMP V3, PRESETS
  34.     VINIT V6, 0
  35.     IFJUMP 1, NEXT
  36. :PRESETS
  37.     VINIT V6, H40
  38. :NEXT
  39. *       GET Presets
  40.     MESSAGE SHOW "Receiving Presets from Proteus"
  41.     CLEAR ALL
  42.     VINIT V1, 0
  43.     SEND 8, HF0, H18, H04, H0M, H00, V7, H7F, HF7
  44.     LOOP 64
  45.     GET  6, HF0, H18, H04, H0M, H01, V6, WAIT
  46.     RDATA 0, 258, V1
  47.     GET 1, HF7
  48.     VADD V6, V6, 1
  49.     VADD V1, V1, 258
  50.     ENDLOOP    
  51.     MESSAGE CLEAR
  52.     ENDMACRO
  53. DISKSAVE
  54.     DOPEN W, "PRO"
  55.     MESSAGE SHOW "Saving Proteus Presets"
  56.     VINIT V1, 0
  57.     LOOP 64
  58.         DWRITE 258, V1
  59.         VADD V1, V1, 258
  60.     ENDLOOP    
  61.     DCLOSE
  62.     MESSAGE CLEAR
  63.     ENDMACRO
  64. DISKLOAD
  65.     DOPEN R, "PRO"
  66.     MESSAGE SHOW "Reading Proteus Presets"
  67.     VINIT V1, 0
  68.     LOOP 64
  69.         DREAD 258, V1
  70.         VADD V1, V1, 258
  71.     ENDLOOP
  72.     DCLOSE
  73.     MESSAGE CLEAR
  74.     ENDMACRO
  75. * 1st View ---- Procussion Kits
  76. VIEW
  77.     PATCH TITLE "Presets"
  78.     PATCH OFFSET 0
  79.     PATCH LENGTH 258
  80.     PATCH NUMBER 64
  81.     NAME LENGTH 12
  82.     NAME OFFSET 0
  83.     NAME XFORM 2
  84.     TRANSMIT
  85. *           SEND PROGRAM
  86.     USERVAL V4, 0, 127, 0, "Enter the Preset Position"
  87.     SEND 6, HF0, H18, H04, H0M, H01, V4
  88.     XDATA 0, 258, 0
  89.     SEND 1, HF7
  90.     ENDMACRO
  91.     RECEIVE
  92.         CLEAR
  93.     USERVAL V4, 0, 127, 0, "Enter the Preset Position"
  94.     SEND 8, HF0, H18, H04, H0M, H00, V4, H00, HF7
  95.     GET 6, HF0, H18, H04, H0M, H01, V4, WAIT
  96.     RDATA 0, 258, 0
  97.     GET 1, HF7
  98.     ENDMACRO
  99. VIEWEND                 Could also be DEF END
  100. * END OF DEFINITION 
  101.  
  102.