いわゆるスカッシュ ( Squash ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%81%84%E3%82%8F%E3%82%86%E3%82%8B%E3%82%B9%E3%82%AB%E3%83%83%E3%82%B7%E3%83%A5/

BALL.BAS

' Squash | MSX-BASIC
' Copyright (c) 2003 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003
10 SCREEN 1,1,0:KEY OFF:R=RND(-TIME)
20 SPRITE$(0)="|"+STRING$(5,254)+"|"
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