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. OK, I Understand
Top