Last active
April 19, 2025 02:15
-
-
Save fu-sen/06ffdd22cd71bf1d7079962225e5f2c4 to your computer and use it in GitHub Desktop.
3 分タイマー風船 (3 minute timer balloon) | MSX-BASIC https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/1-%E5%88%86%E3%82%BF%E3%82%A4%E3%83%9E%E3%83%BC%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
| ' 3 minute timer balloon | MSX-BASIC | |
| ' Copyright (c) 2024 BALLOON | FU-SEN | |
| ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024 | |
| 100 DEFINT A-Z | |
| 110 M=3 | |
| 120 SCREEN 2 | |
| 130 TIME=0 | |
| 140 SOUND 6,3 | |
| 150 SOUND 7,135 | |
| 160 SOUND 8,5 | |
| 170 FOR S=0 TO 160 | |
| 180 CIRCLE(127,96),S,8 | |
| 190 CIRCLE(128,96),S,8 | |
| 200 IF 3600*M/160*S>TIME THEN 200 | |
| 210 NEXT S | |
| 220 COLOR ,8,8 | |
| 230 SCREEN 1 | |
| 240 KEY OFF | |
| 250 SOUND 6,0 | |
| 260 FOR I=15 TO 0 STEP -1 | |
| 270 COLOR ,RND(1)*16,RND(1)*16 | |
| 280 SOUND 8,I | |
| 290 SOUND 9,I | |
| 300 SOUND 10,I | |
| 310 NEXT I | |
| 320 COLOR 15,4,7 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment