20 cls: input "Fornisci un numero intero :";f
      30 for i=1 to f:y=rnd(1):next
      40 screen 1,0:a$="": data 93,127,85,20,93,127,93,8
      45 for i=1 to 8:read a: a$=a$+chr$(a):next i:sprite$(1)=a$
      50 color 8,15,3:key off:width 32:cls
      60 s=0:y=7
      70 put sprite 1,(8*y,8),4,1
      80 locate 2,24:print chr$(219)+"        "+chr$(219);
      90 if rnd(1)<0.7 then locate int(rnd(1)*8+3),24
      95 print chr$(215);
      100 if rnd(1)<0.8 tehn locate int(rnd(1)*8+3),24
      105 print chr$(215)
      110 locate 17,5:print "               "
      120 locate 17,6:print"Punti  :";s
      130 a$=inkey$
      140 y=y-(a$=chr$(28) and y<11)+(a$=chr$(29) and y>2)
      150 c=vpeek (6176+y)
      160 if c=215 or c=219 then play "cde":end
      170 s=s+1
      180 goto 70