Last active
April 19, 2025 02:21
-
-
Save fu-sen/32153338522de91aefab103612cf7bb1 to your computer and use it in GitHub Desktop.
風船 Balloons | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E9%A2%A8%E8%88%B9/
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
| ' Balloons | MSX-BASIC | |
| ' Copyright (c) 2019 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019 | |
| 100 DEFINT A-Z:DIM B(15) | |
| 110 COLOR 15,1,1:SCREEN 1 | |
| 120 KEY OFF:WIDTH 32 | |
| 130 FOR L=0 TO 15 | |
| 140 READ B(L):NEXT L | |
| 150 FOR C=2 TO 15 | |
| 160 FOR L=0 TO 7 | |
| 170 VPOKE (120+C*8)*8+L,B(L) | |
| 180 NEXT L | |
| 190 VPOKE &H2000+(120/8)+C,1+C*16 | |
| 200 NEXT C | |
| 210 FOR L=0 TO 7 | |
| 220 VPOKE 248*8+L,B(L+8) | |
| 230 NEXT | |
| 240 C=RND(1)*14+1 | |
| 250 X=RND(1)*30+1 | |
| 260 LOCATE X,23:PRINT CHR$(128+C*8) | |
| 270 LOCATE X,23:PRINT CHR$(248); | |
| 280 TIME=0 | |
| 290 IF TIME<2 GOTO 290 ELSE GOTO 240 | |
| 300 DATA &H38,&H74,&HFA,&HFE | |
| 310 DATA &HFE,&H7C,&H38,&H10 | |
| 320 DATA &H10,&H08,&H08,&H10 | |
| 330 DATA &H10,&H08,&H08,&H10 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment