home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga California Games + Samples / Lowe_AmigaCaliforniaGames+Samples.adf / GREECE.BLK < prev    next >
Encoding:
Text File  |  1978-10-11  |  1.5 KB  |  57 lines
  1. ;;;;;;;;;;;;;;;;;;;;;    GREECE    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. song1:
  3.     dc.l p2
  4.       dc.l end_song
  5.  
  6. song2:
  7.     dc.l p3
  8.       dc.l end_song
  9. song3:
  10.     dc.l p1
  11.       dc.l end_song
  12.  
  13. pcr:
  14.   dc.w rest,cr
  15.   dc.b m,end_patt
  16. pr:
  17.   dc.w rest,cr*4
  18.   dc.b m,end_patt
  19. pra:
  20.   dc.w rest,q*7
  21.   dc.b m,end_patt
  22. pqr:
  23.   dc.w rest,q
  24.   dc.b m,end_patt
  25. p1:
  26.       dc.b m,new_env,trigg,0
  27.       dc.l piano_env
  28.     dc.w A04,sq*3,Bb04,sq,C05,sq*7,Bb04,sq,A04,sq*3,Bb04,sq
  29.     dc.w C05,cr,A04,q,rest,q,Bb04,sq*3,C05,sq
  30.     dc.w D05,sq*7,D05,sq,E05,sq*3,E05,sq,F05,cr+q,rest,q
  31.     dc.w G04,sq*3,A04,sq,Bb04,cr+q+sq,A04,sq,G04,sq*3,A04,sq
  32.     dc.w Bb04,cr,G04,q,rest,q,C05,sq*3,C05,sq,E05,sq*7
  33.     dc.w D05,sq,C05,sq*3,B04,sq,A04,cr*2
  34.       dc.b m,end_patt
  35. p2:
  36.       dc.b m,new_env,trigg,0
  37.       dc.l piano_env1
  38.     dc.w F04,sq*3,G04,sq,A04,sq*7,G04,sq,F04,sq*3,G04,sq
  39.     dc.w A04,cr,F04,q,rest,q,G04,sq*3,A05,sq
  40.     dc.w Bb04,sq*7,Bb04,sq,C05,sq*3,C05,sq,A04,cr+q,rest,q
  41.     dc.w E04,sq*3,F04,sq,G04,cr+q+sq,F04,sq,E04,sq*3,F04,sq
  42.     dc.w G04,cr,E04,q,rest,q,G04,sq*3,G04,sq,C05,sq*7
  43.     dc.w Bb04,sq,A04,sq*3,G04,sq,F04,cr*2
  44.     dc.b m,end_patt
  45. p3:
  46.       dc.b m,new_env,trigg,0
  47.       dc.l bass_env
  48.     dc.w rest,cr,F02,q,F03,sq,F03,sq,F03,q,F03,q,F03,q,F03,q
  49.     dc.w F02,q,F03,sq,F03,sq,F03,q,F03,q,F03,q,F03,q
  50.     dc.w D02,q,D03,sq,D03,sq,D03,q,D03,q,C03,q,E03,q
  51.     dc.w F02,q,F03,sq,F03,sq,F03,q,F03,q,rest,cr
  52.     dc.w C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  53.     dc.w C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  54.     dc.w C02,q,C03,sq,C03,sq,C03,q,C03,q,C03,q,C03,q
  55.     dc.w F02,q,F03,sq,F03,sq,F03,cr
  56.     dc.b m,end_patt
  57.