1ifl=0thenz=rnd(-time):screen2,2,0:keyoff:line(0,10)-(254,180),6,b:paint(1,1),6:fori=1to250:x=rnd(1)*226:y=rnd(1)*172:line(x,y)-(x+8,y+8),6,bf:next:line(220,182)-(255,189),1,bf:x=245:y=20elsescreen0:print"GAME OVER":play"abcdefg":fori=1to1000:next:run
2l=1:sprite$(1)=chr$(128):a=stick(0)orstick(1):g=-(a=5)+(a=1)-(a=0):h=-(a=3)+(a=7)-(a=0andx<245):y=y+g:x=x+h:ifx<5thenscreen0:sc=sc+1:print"SCORE:",SC:play"abcdfdedcdfdea":fori=1to2000:next:l=0:goto1elseifpoint(x,y+1)<>6thenputsprite1,(x,y),15:goto2else1