Last active
April 19, 2025 02:32
-
-
Save fu-sen/7274443 to your computer and use it in GitHub Desktop.
ポン風 ( 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/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ' picture of PONG screen | MSX-BASIC | |
| ' Copyright (c) 2003-2024 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003-2024 | |
| 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=(INT(RND(1)*160)/8)*8 | |
| 160 U2=(INT(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=(INT(RND(1)*248)/8)*8 | |
| 200 Y=(INT(RND(1)*178)/8)*8 | |
| 210 LINE (X,Y)-STEP(7,7),15,BF | |
| 220 I$=INPUT$(1) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment