ZappingWords

05 gosub 10000
6 ? "{clear}wait please ..."
8  dim w$(100),c(100, 2):l=3:g$="{black}{white}{red}{purple}{green}"
10 gosub 5000
11 gosub30000
100 get a$: if asc(a$+" ") = 13 then gosub 4000 : rem controlla se è stata eliminata una parola
105 if asc(a$+" ") <> 13 then ct=0:c$=c$+a$: ?"{home}"c$TAB(15)"score:"p
106 if c$<>"" then ct=ct+1:ifct=20thenc$="":?"{home}          ":ct=0
110 gosub 10040: r=r-int(r/5)*5+1: gosub 3000
150 goto 100

2999 rem avanzamento della r-esima parola
3000 y=c(r,2):x=c(r,1):gosub 21000
3010 for k= 1 to len(w$(r)):?" ":next
3020 c(r,1) = c(r,1)+1:x=c(r,1):gosub 21000 : ? h$(r)+w$(r)
3030 if x+len(w$(r)) < m(r) then 3100
3040 m(r)=m(r)-len(w$(r)): if m(r) < 1 then ?"{clear}your score is:"p:end
3050 w$(r)="":c(r,1)=0: s=r: gosub 4430
3100 return

4000 s=1:? "{home}";c$
4010 if w$(s)= c$ then goto 4200
4020 s=s+1
4030 if s > 10 then c$="":goto 4500
4035 goto 4010
4200 y=c(s,2):x=c(s,1):gosub 21000
4210 for k=1 to len(w$(s)):?"*";:next:p=p+10*len(w$(s))
4220 c$="":w$(s)="":c(s,1)=0: gosub 4430
4230 return

4429 rem crea parola posizione s
4430 gosub 10040: for j = 1 to r - int(r/8)*8 + 1
4440 gosub 10040: r=r-int(r/26)*26
4450 w$(s) = w$(s) + chr$(r+65)
4460 next j
4470 gosub 10040:r=r-int(r/5)*5+1:h$(s)= mid$(g$,r,1)
4500 return


5000 for i = 1 to 5:m(i)=30
5010 poke 53280, i: c(i, 1) =0: c(i, 2) = i - int(i/15) *15 + 4
5020 s=i:gosub4430
5070 next i
5080 return


10000 poke 54286, 255: rem LSB voce 3 frequenza d'onda al massimo
10010 poke 54287, 255: rem MSB voce 3 frequenza d'onda al massimo
10020 poke 54290, 128: rem Voce 3, rumore bianco, senza attivare audio
10030 return

10039 rem random 0 255
10040 r = peek(54299)
10050 return

21000 poke 780,0
21010 poke 781,y
21020 poke 782,x
21030 sys 65520
21040 return

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"
30010 print "                              {125}"
30020 print "                              {125}"
30030 print "                              {125}"
30040 print "                              {125}"
30050 print "                              {125}"
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"
30070 return