0 color4,2,0:color0,2,0:color1,6,5:graphic1,1:vol8:char,16,3,"musicus"
2 color1,9,3:box,20,18,300,36:color1,1,5:fori=10to106step24:circle,i,159,2,2:next
4 fori=12to84step24:draw,i,149toi,159:next
6 fori=10to58step24:paint,i,159:next:fori=0to24step24:draw,13+i,150to16+i,151:next
8 draw,12,151to16,153:draw,126,155to132,153:draw,126,157to132,155
10 draw,128,152to128,160:draw,130,150to130,158
12 box,151,151,152,152:box,150,154,151,155:draw,156,152to153,159
14 draw,150,155to154,155:draw,153,152to156,152:char,25,19,"_  l  s  "+chr$(255)+"  *"
16 draw,175,154to182,151to182,159to175,156to175,154:box,173,152,175,158,,1
18 color1,1,5:fori=78to102step6:draw,0,ito320,i:next
20 fori=1to6step5:circle,9,97,i,i,,180:next
22 fori=3to8step5:circle,9,95,i,i,180:next
24 circle,9,77,4,9,65,180
26 draw,9,75to9,108:circle,7,108,2,2,90,270:circle,11,74,2,2,270,90
28 dimt%(140),l%(140):c=10:y=87:x=30:w=94:goto50
30 draw,x,y:j=joy(1):onjgoto38,38,40,40,42,42,44,44
32 ifj=0then30
34 g=(c+14)/24:ifg<8and(k>139orx>310)then78
36 onggoto54,54,54,54,54,56,60,78,80,64,64,88,90
38 b=-3:goto46
40 a=24:goto50
42 b=3:goto46
44 a=-24:goto50
46 ify+b>110ory+b<71then30
48 drawt,x,y:y=y+b:locatex,y:t=rdot(2):draw,x,y:goto98
50 ifc+a<10orc+a>298then30
52 circle0,c,170,2,4,,,,120:c=c+a:circle,c,170,2,4,,,,120:goto30
54 gosub100:gshapea$,x-2,y-10,2:d=(c+14)/24*5+12:x=x+d:d=0:goto58
56 w=96:gosub100:gshapea$,x-8,y-6,2:goto30
58 restorew:w=94:fori=1to(y-72)/3+1:readm:next:goto62
60 m=1022:f=144:gosub100:gshapea$,x,83,2:d=17:drawt,x,y:x=x+d
62 restore92:fori=0to(c-10-f)/24:readh:next:f=0:goto76
64 gR0:do:getz$:loopwhilez$<>"":?cH(147);:input"nome";n$:input"1n/8d";z:ifg=10then70
66 ifz=1then68:elsen$=n$+",s,w"
68 open1,z,z,n$:print#1,k:fori=0tok:print#1,t%(i):print#1,l%(i):next:close1:goto74
70 ifz=1then68:elsen$=n$+",s,r"
72 open1,z,0,n$:input#1,k:p=0:do:input#1,t%(p),l%(p):p=p+1:loopuntilp=k:close1
74 graphic1:goto30
76 l%(k)=h:t%(k)=m:sound1,t%(k),l%(k):k=k+1:goto98
78 fori=0tok-1:sound1,t%(i),l%(i):forj=1tol%(i)*11:nextj,i:goto30
80 draw0,x,y:k=k-1:ifk<0thenk=0:goto30
82 d=12:j=l%(k):t%(k)=0:restore92
84 do:readm:d=d+5:loopuntilm=j:ifx-d>29thenx=x-d:box0,x-8,62,x+8,113,,1
86 fori=78to102step6:draw,0,ito320,i:next:goto30
88 box0,20,59,319,113,,1:x=30:goto86
90 k=0:goto88
92 data7,14,28,56,112
94 data897,881,864,854,834,810,798,770,739,704,685,643,596
96 data904,889,872,864,844,822,810,784,754,721,704,664,619
98 fori=0to50:next:goto30
100 sshapea$,c-4,161,c+6,149:return