SHARE
TWEET

bad medicine tune for c64

Armakuni Nov 28th, 2019 310 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 dim ad(3):dim sr(3):dim il(3):dim ih(3):dim wi(3)
  2. 20ad(0)=9:ad(1)=8:ad(2)=9:
  3. 30sr(0)=10:sr(1)=9:sr(2)=73:
  4. 40il(0)=0:il(1)=10:il(2)=100:
  5. 50ih(0)=0:ih(1)=30:ih(2)=90:
  6. 60wi(0)=128:wi(1)=64:wi(2)=64:
  7. 70s1=2:s2=2:s3=2:r$="000000"
  8. 80dim f%(500,2):dim tc(3)
  9. 90tc(0)=2:tc(1)=2:tc(2)=2:rem minimum durations
  10. 100?"processing data..."
  11. 110vn=0:cn=0:rem reset counters v n #
  12. 120read fh,fl,dr
  13. 130if fh=-1 then f%(cn,vn)=-1:vn=vn+1:cn=0:if vn=3 then print"done.":goto230
  14. 140if fh=-1 then goto120
  15. 150ac=-2:if fh=0 then ac=0
  16. 160f%(cn,vn)=fh:f%(cn+1,vn)=fl
  17. 170if dr =1 then 220
  18. 180for t = 1 to dr-1
  19. 190cn=cn+2
  20. 200f%(cn,vn)=ac:f%(cn+1,vn)=ac
  21. 210next t
  22. 220cn=cn+2: goto 120
  23. 230rem let s rock
  24. 240l1=54272:l2=54279:l3=54286
  25. 250forj=l1 to 54296:poke j,0:next j
  26. 260h1=l1+1:h2=l2+1:h3=l3+1
  27. 270v1=l1+4:v2=l2+4:v3=l3+4
  28. 280poke 54296,15
  29. 290poke v1+1,ad(s1):poke v1+2,sr(s1)
  30. 300pokel1+2,il(s1):pokel1+3,ih(s1)
  31. 310poke v2+1,ad(s2):poke v2+2,sr(s2)
  32. 320pokel2+2,il(s2):pokel2+3,ih(s2)
  33. 330poke v3+1,ad(s3):poke v3+2,sr(s3)
  34. 340pokel3+2,il(s3):pokel3+3,ih(s3)
  35. 350cn=0
  36. 360ti$=r$:t=ti
  37. 370x1=f%(cn,0):y1=f%(cn+1,0):x2=f%(cn,1):y2=f%(cn+1,1):x3=f%(cn,2):y3=f%(cn+1,2)
  38. 380ifx1 =-1 then goto 450
  39. 390ifx1>-2 then pokev1,wi(s1):if x1 > 0 then poke h1,x1:poke l1,y1:poke v1,wi(s1)+1
  40. 400ifx2>-2 then pokev2,wi(s2):if x2 > 0 then poke h2,x2:poke l2,y2:poke v2,wi(s2)+1
  41. 410ifx3>-2 then pokev3,wi(s3):if x3 > 0 then poke h3,x3:poke l3,y3:poke v3,wi(s3)+1
  42. 420cn=cn+2:t=t+4:rem the biggest t, the slower timing
  43. 430ifti<t then 430
  44. 440goto 360
  45. 450poke54296,0:end
  46. 460 data 18,209,2,18,209,2,18,209,2,18,209,2,18,209,2,18,209,2,18,209,2
  47. 470 data 18,209,2,16,195,2,16,195,2,16,195,2,16,195,2,16,195,2,16,195,2,16,195,2
  48. 480 data 16,195,2,15,210,2,15,210,2,15,210,2,15,210,2,15,210,2,15,210,2,15,210,2
  49. 490 data 15,210,2,14,239,2,14,239,2,14,239,2,14,239,2,14,239,2,22,96,2,21,31,2
  50. 500 data 18,209,4,22,96,2,18,209,4,18,209,2,22,96,2,18,209,2,25,30,6,22,96,2
  51. 510 data 21,31,2,18,209,6,25,30,2,25,30,2,22,96,2,25,30,4,28,49,4,22,96,2
  52. 520 data 21,31,2,16,195,2,18,209,6,14,24,2,16,195,2,18,209,4,22,96,2,18,209,4
  53. 530 data 18,209,2,22,96,2,18,209,2,25,30,6,22,96,2,21,31,2,18,209,6,25,30,2
  54. 540 data 25,30,2,22,96,2,25,30,4,28,49,4,22,96,2,21,31,2,16,195,2,18,209,6
  55. 550 data 16,195,2,16,195,2,16,195,2,16,195,2,16,195,2,16,195,2,16,195,2,16,195,2
  56. 560 data 15,210,2,15,210,2,15,210,2,15,210,2,15,210,2,15,210,2,15,210,2,15,210,2
  57. 570 data 22,96,2,21,31,2,18,209,6
  58. 580 data -1,-1,-1
  59. 590 data 14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2
  60. 600 data 14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2
  61. 610 data 14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2
  62. 620 data 14,24,2,14,24,2,14,24,2,11,48,2,10,143,2,9,104,4,14,24,2,14,24,4
  63. 630 data 14,24,2,14,24,2,14,24,2,12,143,2,12,143,2,12,143,2,14,24,2,14,24,2
  64. 640 data 14,24,2,14,24,2,14,24,2,12,143,2,12,143,2,12,143,2,12,143,2,12,143,2
  65. 650 data 14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,6,7,12,2,8,97,2,9,104,4
  66. 660 data 14,24,2,14,24,4,14,24,2,14,24,2,14,24,2,12,143,2,12,143,2,12,143,2
  67. 670 data 14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,12,143,2,12,143,2,12,143,2
  68. 680 data 12,143,2,12,143,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,2,14,24,6
  69. 690 data 12,143,2,12,143,2,12,143,2,12,143,2,12,143,2,12,143,2,12,143,2,12,143,2
  70. 700 data 12,143,2,12,143,2,12,143,2,12,143,2,12,143,2,12,143,2,12,143,2,12,143,2
  71. 710 data 11,48,2,10,143,2,9,104,6
  72. 720 data -1,-1,-1
  73. 730 data 0,0,66
  74. 740 data -1,-1,-1
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