bad medicine tune for c64

10 dim ad(3):dim sr(3):dim il(3):dim ih(3):dim wi(3)
20ad(0)=9:ad(1)=8:ad(2)=9:
30sr(0)=10:sr(1)=9:sr(2)=73:
40il(0)=0:il(1)=10:il(2)=100:
50ih(0)=0:ih(1)=30:ih(2)=90:
60wi(0)=128:wi(1)=64:wi(2)=64:
70s1=2:s2=2:s3=2:r$="000000"
80dim f%(500,2):dim tc(3)
90tc(0)=2:tc(1)=2:tc(2)=2:rem minimum durations
100?"processing data..."
110vn=0:cn=0:rem reset counters v n #
120read fh,fl,dr
130if fh=-1 then f%(cn,vn)=-1:vn=vn+1:cn=0:if vn=3 then print"done.":goto230
140if fh=-1 then goto120
150ac=-2:if fh=0 then ac=0
160f%(cn,vn)=fh:f%(cn+1,vn)=fl
170if dr =1 then 220
180for t = 1 to dr-1
190cn=cn+2
200f%(cn,vn)=ac:f%(cn+1,vn)=ac
210next t
220cn=cn+2: goto 120
230rem let s rock
240l1=54272:l2=54279:l3=54286
250forj=l1 to 54296:poke j,0:next j
260h1=l1+1:h2=l2+1:h3=l3+1
270v1=l1+4:v2=l2+4:v3=l3+4
280poke 54296,15
290poke v1+1,ad(s1):poke v1+2,sr(s1)
300pokel1+2,il(s1):pokel1+3,ih(s1)
310poke v2+1,ad(s2):poke v2+2,sr(s2)
320pokel2+2,il(s2):pokel2+3,ih(s2)
330poke v3+1,ad(s3):poke v3+2,sr(s3)
340pokel3+2,il(s3):pokel3+3,ih(s3)
350cn=0
360ti$=r$:t=ti
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)
380ifx1 =-1 then goto 450
390ifx1>-2 then pokev1,wi(s1):if x1 > 0 then poke h1,x1:poke l1,y1:poke v1,wi(s1)+1
400ifx2>-2 then pokev2,wi(s2):if x2 > 0 then poke h2,x2:poke l2,y2:poke v2,wi(s2)+1
410ifx3>-2 then pokev3,wi(s3):if x3 > 0 then poke h3,x3:poke l3,y3:poke v3,wi(s3)+1
420cn=cn+2:t=t+4:rem the biggest t, the slower timing
430ifti<t then 430
440goto 360
450poke54296,0:end
460 data 18,209,2,18,209,2,18,209,2,18,209,2,18,209,2,18,209,2,18,209,2
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
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
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
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
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
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
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
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
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
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
570 data 22,96,2,21,31,2,18,209,6
580 data -1,-1,-1
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
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
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
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
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
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
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
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
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
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
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
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
710 data 11,48,2,10,143,2,9,104,6
720 data -1,-1,-1
730 data 0,0,66
740 data -1,-1,-1