20 cls:input" Fornisci un numero intero :";f
      30 for i=1 to f:y=rnd(1):next
      40 screen 3:color 11,13,15:cls
      50 fori=1 to 18
      60 pset (36+4*i,20),1
      70 pset (40,4*i+20),0:pset (108,4*i+20),0
      80 next i
      90 for i=1 to 7
      100 for j=11 to 26
      110 pset (4*j,4*i+20),i+3
      120 next j
      130 next i
      140 h=-1:k=-0.5:j=18:i=17:y=j
      150 pset (4*y-8,96),13:pset (4*y-4,96),1:pset (4*y,96),1
      155 pset (4*y+4,96),1 :pset (4*y+8,96),13
      160 a$=inkey$
      170 y=y-(a$=chr$(28) and y<28)+(a$=chr$(29) and y>8)
      180 if t=1 then pset (4*j,4*i+20),13
      190 if i>22 then r$=input$(2)
      200 if i>22 then screen 0:print"Il tuo punteggio: ";s
      205 r$=input$(1):goto 40
      210 i=i+h:j=j+k
      220 c=point(4*j,4*i+20)
      230 if c=13 then pset (4*j,4*i+20),0:t=1:goto 150
      240 if c=0 then 280
      250 if c<>1 then f=c: pset (4*j,4*i+20),0 :t=1: goto 300
      260 h=-h
      270 k=rnd(1)-rnd(1)
      280 k=-k:t=0:play "l64n80"
      290 goto 150
      300 s=s+f:play "l64n60"
      310 k=-(k-(2*(rnd(1)<0.5)+1)*rnd(1)/3)
      320 h=-h
      330 goto 150