home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / FORTH / SOURCE / PHRASES.WRD < prev    next >
Encoding:
Text File  |  2015-03-24  |  1.6 KB  |  84 lines  |  [04] ASCII Text (0x0000)
  1. ( DRUM PHRASES )
  2.  
  3. \ ASSIGN YOUR FAVORITE DRUM PART TO PATTERNS 1-3
  4. \ EX: PATTERN1 ROCK1A  PATTERN2 ROCK1B  PATTERN3 ROCK1C
  5. \ THEN TYPE: RHYTHM XXX (WHERE XXX IS A PATTERN BELOW)
  6. \ THEN TYPE: WAITPC INTRO GO
  7. \ AND HIT A PROGCHG BUTTON TO START DRUMMING
  8.  
  9. : AABA
  10. PAT1
  11. USERKEY @ NOT IF PAT1 THEN
  12. USERKEY @ NOT IF PAT2 THEN
  13. USERKEY @ NOT IF PAT1 THEN
  14. ;
  15.  
  16. : ABABC
  17. PAT1
  18. USERKEY @ NOT IF PAT2 THEN
  19. USERKEY @ NOT IF PAT1 THEN
  20. USERKEY @ NOT IF PAT2 THEN
  21. USERKEY @ NOT IF PAT3 THEN
  22. ;
  23.  
  24. : AABBAC
  25. PAT1 
  26. USERKEY @ NOT IF PAT1 THEN
  27. USERKEY @ NOT IF PAT2 THEN
  28. USERKEY @ NOT IF PAT2 THEN
  29. USERKEY @ NOT IF PAT1 THEN
  30. USERKEY @ NOT IF PAT3 THEN
  31. ;
  32.  
  33. : AACBBC
  34. PAT1 
  35. USERKEY @ NOT IF PAT1 THEN
  36. USERKEY @ NOT IF PAT3 THEN
  37. USERKEY @ NOT IF PAT2 THEN
  38. USERKEY @ NOT IF PAT2 THEN
  39. USERKEY @ NOT IF PAT3 THEN
  40. ;
  41.  
  42. : ABABAABC
  43. PAT1 
  44. USERKEY @ NOT IF PAT2 THEN
  45. USERKEY @ NOT IF PAT1 THEN
  46. USERKEY @ NOT IF PAT2 THEN
  47. USERKEY @ NOT IF PAT1 THEN
  48. USERKEY @ NOT IF PAT1 THEN
  49. USERKEY @ NOT IF PAT2 THEN
  50. USERKEY @ NOT IF PAT3 THEN
  51. ;
  52.  
  53. : AAABAABC
  54. PAT1 
  55. USERKEY @ NOT IF PAT1 THEN
  56. USERKEY @ NOT IF PAT1 THEN
  57. USERKEY @ NOT IF PAT2 THEN
  58. USERKEY @ NOT IF PAT1 THEN
  59. USERKEY @ NOT IF PAT1 THEN
  60. USERKEY @ NOT IF PAT2 THEN
  61. USERKEY @ NOT IF PAT3 THEN
  62. ;
  63.  
  64. : ABABABAC
  65. PAT1 
  66. USERKEY @ NOT IF PAT2 THEN
  67. USERKEY @ NOT IF PAT1 THEN
  68. USERKEY @ NOT IF PAT2 THEN
  69. USERKEY @ NOT IF PAT1 THEN
  70. USERKEY @ NOT IF PAT2 THEN
  71. USERKEY @ NOT IF PAT1 THEN
  72. USERKEY @ NOT IF PAT3 THEN
  73. ;
  74.  
  75. : AABBAABC
  76. PAT1 
  77. USERKEY @ NOT IF PAT1 THEN
  78. USERKEY @ NOT IF PAT2 THEN
  79. USERKEY @ NOT IF PAT2 THEN
  80. USERKEY @ NOT IF PAT1 THEN
  81. USERKEY @ NOT IF PAT1 THEN
  82. USERKEY @ NOT IF PAT2 THEN
  83. USERKEY @ NOT IF PAT3 THEN
  84. ;