2 INK 0,9:INK 2,11:MODE 0:ORIGIN 0,0,112,527,142,160:CLG 3:WINDOW 6,15,2,25:d=12:v=10:PAPER 12:CLS:WHILE v>0:a=RND*9:LOCATE 1+a,1:PEN a:PRINT CHR$(a+48):y=0:WHILE y<d:y=1+y:t=99:FOR c=0 TO 9:t=MIN(t,TEST(176+c*32,146)):NEXT:i=ASC(INKEY$+"|"):WHILE t=i-48 
6 s=s+13-d:CLG:LOCATE#2,t+6,16:PRINT#2,CHR$(i):SOUND 5,i+t*9,9:t=10:v=v+1:WEND:CALL &BB00:v=v+(9>t):SOUND 1+(t>9),999:PRINT CHR$(30)CHR$(11):PRINT#2,CHR$(30)TAB(5)v;TAB(11)s:r=1+r MOD 49:d=MAX(2,d+(r=48)):WEND:WEND:WRITE"END GAME":WHILE INKEY(47):WEND:RUN