SHARE
TWEET

Untitled

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