1 DEFINT a-z:INK 0,0:r$=CHR$(131):WHILE r<10:MODE 1:PEN 1:PRINT,"P:";p,"B:";9-r:MOVE 30,32:DRAWR 0,340,2:DRAWR 579,0:DRAWR 0,-340:c=18:x=19:v=4+2*RND*15:w=23:m=1:n=-1:WHILE w<24:c=x:PEN 3:LOCATE c,24:PRINT" "r$r$r$" ":x=MIN(36,MAX(1,x+INKEY(1)-INKEY(8)))
2 m=m*(1+2*(v<4 OR v>37)):n=n*(1+2*(w<4)):WHILE TEST((v+m)*16-8,411-(w+n)*16)>1:SOUND 5,333,5:n=-n:p=p+1:LOCATE 16,1:PRINT p:WEND:LOCATE v,w:PRINT" ":v=v+m:w=w+n:LOCATE v,w:PRINT"O":WEND:PEN-(r=9):PRINT,"   GAME OVER":WHILE INKEY(47):WEND:r=r+1:WEND:RUN