MSXPen

10 SCREEN 1,1,0:KEY OFF:R=RND(-TIME)

20 SPRITE$(0)="8|"+STRING$(3,254)+"|8"

30 SPRITE$(1)=STRING$(2,255)

40 X=RND(1)*240:Y=0:CY=4:SS=0

50 IF X>127 THEN CX=4 ELSE CX=-4

60 XX=128:YY=186

70 PUT SPRITE 0,(X,Y),10,0

80 PUT SPRITE 1,(XX,YY),15,1

90 IF X+CX<0 OR X+CX>239 THEN CX=-CX

100 IF Y+CY<0 THEN CY=4

110 IF Y+CY>191 THEN END

120 IF Y+CY<176 OR Y+CY>191 GOTO 160

130 IF X-XX<-16 OR X-XX>32 GOTO 160

140 CY=-4:SS=SS+1:LOCATE 0,0

150 PRINT"SCORE";SS

160 X=X+CX:Y=Y+CY

170 S=STICK(0)+STICK(1)

180 XX=XX+(S=7)*4-(S=3)*4+256

190 XX=XX MOD 256

200 GOTO 70