• API
• FAQ
• Tools
• Archive
SHARE
TWEET

# ZappingWords

EmanueleBonin Apr 1st, 2019 (edited) 120 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. 05 gosub 10000
2. 6 ? "{clear}wait please ..."
3. 8  dim w\$(100),c(100, 2):l=3:g\$="{black}{white}{red}{purple}{green}"
4. 10 gosub 5000
5. 11 gosub30000
6. 100 get a\$: if asc(a\$+" ") = 13 then gosub 4000 : rem controlla se รจ stata eliminata una parola
7. 105 if asc(a\$+" ") <> 13 then ct=0:c\$=c\$+a\$: ?"{home}"c\$TAB(15)"score:"p
8. 106 if c\$<>"" then ct=ct+1:ifct=20thenc\$="":?"{home}          ":ct=0
9. 110 gosub 10040: r=r-int(r/5)*5+1: gosub 3000
10. 150 goto 100
11.
12. 2999 rem avanzamento della r-esima parola
13. 3000 y=c(r,2):x=c(r,1):gosub 21000
14. 3010 for k= 1 to len(w\$(r)):?" ":next
15. 3020 c(r,1) = c(r,1)+1:x=c(r,1):gosub 21000 : ? h\$(r)+w\$(r)
16. 3030 if x+len(w\$(r)) < m(r) then 3100
17. 3040 m(r)=m(r)-len(w\$(r)): if m(r) < 1 then ?"{clear}your score is:"p:end
18. 3050 w\$(r)="":c(r,1)=0: s=r: gosub 4430
19. 3100 return
20.
21. 4000 s=1:? "{home}";c\$
22. 4010 if w\$(s)= c\$ then goto 4200
23. 4020 s=s+1
24. 4030 if s > 10 then c\$="":goto 4500
25. 4035 goto 4010
26. 4200 y=c(s,2):x=c(s,1):gosub 21000
27. 4210 for k=1 to len(w\$(s)):?"*";:next:p=p+10*len(w\$(s))
28. 4220 c\$="":w\$(s)="":c(s,1)=0: gosub 4430
29. 4230 return
30.
31. 4429 rem crea parola posizione s
32. 4430 gosub 10040: for j = 1 to r - int(r/8)*8 + 1
33. 4440 gosub 10040: r=r-int(r/26)*26
34. 4450 w\$(s) = w\$(s) + chr\$(r+65)
35. 4460 next j
36. 4470 gosub 10040:r=r-int(r/5)*5+1:h\$(s)= mid\$(g\$,r,1)
37. 4500 return
38.
39.
40. 5000 for i = 1 to 5:m(i)=30
41. 5010 poke 53280, i: c(i, 1) =0: c(i, 2) = i - int(i/15) *15 + 4
42. 5020 s=i:gosub4430
43. 5070 next i
44. 5080 return
45.
46.
47. 10000 poke 54286, 255: rem LSB voce 3 frequenza d'onda al massimo
48. 10010 poke 54287, 255: rem MSB voce 3 frequenza d'onda al massimo
49. 10020 poke 54290, 128: rem Voce 3, rumore bianco, senza attivare audio
50. 10030 return
51.
52. 10039 rem random 0 255
53. 10040 r = peek(54299)
54. 10050 return
55.
56. 21000 poke 780,0
57. 21010 poke 781,y
58. 21020 poke 782,x
59. 21030 sys 65520
60. 21040 return
61.
62. 30000 print "{clear}{down*4}{cyan}  {096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}I"
63. 30010 print "                              {125}"
64. 30020 print "                              {125}"
65. 30030 print "                              {125}"
66. 30040 print "                              {125}"
67. 30050 print "                              {125}"
68. 30060 print "  {096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}{096}K"
69. 30070 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.
Top