1 MODE 0:DEFINT a-z:INK 0,9:INK 2,13:c=9:d=5:v=9:SYMBOL 255,24,&A5,&DB,&A5,36,&BD,&E7,&BD:v$=CHR$(255):WINDOW#2,5,12,1,25:PAPER#2,2:WHILE d:k=k+1:PRINT CHR$(30)"KM"k:WHILE r<100:CLS#2:WINDOW#2,d,d+7,1,1:LOCATE 1+d+RND*5,1:t=1+t:WHILE t>v:t=0:PEN 3+RND*10
2 PRINT v$;:WEND:s=s+1:PRINT CHR$(11):PEN 1:LOCATE C,25:PRINT v$:WHILE TEST(c*32-8,20)=0:PEN 3:PRINT"Score"s:WHILE INKEY(47):SOUND 5,499+RND*299,5:WEND:RUN:WEND:c=MIN(19,MAX(4,c+INKEY(1)-INKEY(8))):d=MIN(12,MAX(5,d-1+RND*2)):r=r+1:WEND:r=0:v=v+(v>1):WEND