ポン風 ( picture of PONG screen ) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%83%9D%E3%83%B3%E9%A2%A8/

PONGFU.BAS

' picture of PONG screen | MSX-BASIC
' Copyright (c) 2003 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003
100 R=RND(-TIME)*1
110 COLOR 15,1,1:SCREEN 3
120 FOR Y=8 TO 191 STEP 32
130 LINE (124,Y)-STEP(7,15),15,BF
140 NEXT Y
150 U1=((RND(1)*160)\8)*8
160 U2=((RND(1)*160)\8)*8
170 LINE (0,U1)-STEP(7,31),15,BF
180 LINE (248,U2)-STEP(7,31),15,BF
190 X=((RND(1)*248)\8)*8
200 Y=((RND(1)*178)\8)*8
210 LINE (X,Y)-STEP(7,7),15,BF
220 I$=INPUT$(1)