SHARE
TWEET

AmstracCPC Music

a guest Mar 1st, 2018 122 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 GOSUB 50
  2. 20 SOUND 1,758,0,0,11:SOUND 2,190,0,0,11:SOUND 4,755,0,0,11
  3. 30 EVERY 7 GOSUB 120
  4. 40 GOTO 40
  5. 50 '
  6. 60 ENV 1,1,14,1,1,0,4,5,-3,10
  7. 70 ENV 2,1,13,1,1,0,4,5,-3,10
  8. 80 ENV 3,1,13,1,4,-3,8
  9. 90 ENV 11,15,1,15,1,0,200,15,-1,5
  10. 100 ENT -3,1,1,2,2,-1,2,1,1,2
  11. 110 DATA 1,1.33,1,.75,.67,.75
  12. 120 DIM ttra(5):RESTORE 110:FOR i=0 TO 5:READ ttra(i):NEXT
  13. 130 DATA 2,2,2,1,1,1
  14. 140 DIM trep(5):RESTORE 130:FOR i=0 TO 5:READ trep(i):NEXT
  15. 150 rep=2
  16. 160 th=1:occ=1
  17. 170 ix=0
  18. 180 tra=ttra(ix)
  19. 190 debut=-1
  20. 200 RETURN
  21. 210 '
  22. 220 IF (SQ(1) AND 7)=0 OR (SQ(2) AND 7)=0 OR (SQ(4) AND 7)=0 THEN RETURN
  23. 230 IF NOT debut GOTO 280
  24. 240 IF th=1 THEN RESTORE 410:ev=1
  25. 250 IF th=2 THEN RESTORE 450:ev=2:occ=1
  26. 260 IF th=3 THEN RESTORE 490:ev=1:et=3 ELSE et=0
  27. 270 debut=0
  28. 280 READ pa,pc,pb
  29. 290 IF pa=-1 THEN 350
  30. 300 IF th=2 THEN pb=pb/2
  31. 310 SOUND 1,pa/occ/tra,16,0,3
  32. 320 SOUND 2,pb/occ/tra,16,0,ev
  33. 330 SOUND 4,pc/occ/tra,16,0,3,et
  34. 340 RETURN
  35. 350 DEBUT=-1:REP=REP-1
  36. 360 IF rep<>0 THEN RETURN
  37. 370 ix=ix+1
  38. 380 IF ix=6 THEN ix=0:occ=2:th=th+1:IF th>3 THEN th=1
  39. 390 tra=ttra(ix):rep=trep(ix)
  40. 400 RETURN
  41. 410 DATA 379,253,758,253,169,0,190,159,0,253,253,676
  42. 420 DATA 379,190,0,213,169,0,253,284,638,379,213,0
  43. 430 DATA 169,142,0,253,284,0,379,190,0,190,159,638
  44. 440 DATA 169,142,676,253,213,758,213,169,379,190,159,253,-1,0,0
  45. 450 DATA 379,253,379,253,169,338,190,159,318,253,253,284
  46. 460 DATA 379,190,253,213,169,239,253,284,284,379,213,253
  47. 470 DATA 169,142,0,253,284,190,379,190,159,190,159,319
  48. 480 DATA 169,142,0,253,213,190,213,169,338,190,159,190,-1,0,0
  49. 490 DATA 379,253,190,253,169,0,190,159,213,253,253,190
  50. 500 DATA 379,190,239,213,169,190,253,284,190,379,213,253
  51. 510 DATA 169,142,0,253,284,190,379,190,190,190,159,284
  52. 520 DATA 169,142,0,253,213,319,213,169,338,190,159,379,-1,0,0
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top