Una piccola macchina si muove sullo schermo e si può spostare a destra ed a sinistra. Degli ostacoli le si fanno incontro; se urta contro gli ostacoli od il bordo del terreno il gioco termina.
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