10 print"this program tests instrument #31 attack shape"
12 restore120:fori=0to18:reada:poke&hc000+i,a:nexti:defusr=&hc000
20 out&hc6,5:out&hc7,3
22 out&h7e,32:out&h7f,&h0
24 out&h7e,33:out&h7f,&h0
26 out&h7e,&h38:out&h7f,&h00
28 out&h7e,&h39:out&h7f,&h00
30 out&h7e,8:out&h7f,&h0
32 out&h7e,9:out&h7f,&h31
34 out&h7e,&h50:out&h7f,&h01

36 out&h7e,&h51:out&h7f,&h01

38 out&h7e,&h68:out&h7f,&h89:'left
40 fori=0to200:nexti
42 a=usr(0)
44 fori=0to1000:nexti
46 out&h7e,&h69:out&h7f,7
120 data &hf3,&h3e,&h68,&hd3,&h7e,&h3e,&h9,&hd3,&h7f
130 data &h3e,&h69,&hd3,&h7e,&h3e,&h7,&hd3,&h7f,&hfb,&hc9