Skip to content

Instantly share code, notes, and snippets.

' 1 minute timer balloon | MSX-BASIC
' Copyright (c) 2024 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024
100 SCREEN 3
110 SOUND 6,3
120 SOUND 7,135
130 SOUND 8,5
140 FOR S=0 TO 160 STEP 2
150 CIRCLE(128,96),S,8
160 NEXT S
' 3 minute timer | MSX-BASIC
' Copyright (c) 2024 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024
100 DEFINT A-Z
110 T=3
120 SCREEN 3
130 OPEN"GRP:"AS #1
140 T=T*60*60
150 TIME=0
160 N=TIME
@fu-sen
fu-sen / BALLOONS.BAS
Last active April 19, 2025 02:17
風船 balloons - SHARP POCKET COMPUTER PC-G850 series BASIC - https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/
1 ' Balloons | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2024-2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024-2025
100 CLS
110 X= RND 137-1
120 GCURSOR (X,47)
130 GPRINT "1C3E7FFF7D3A1C"
140 WAIT 3
150 LOCATE 0,0
160 PRINT " "
@fu-sen
fu-sen / balloons.c
Last active April 19, 2025 02:17
Balloons | z88dk monochrome sprites functions
/*
Balloons | z88dk monochrome sprites functions
Copyright (c) 2024-2025 BALLOON | FU-SEN
The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024-2025
Colecovision:
zcc +coleco -create-app -bn balloons balloons.c (generate balloons.rom)
MSX (-pragma-define:CLIB_DEFAULT_SCREEN_MODE=3 also works, after nightly build 20241218):
zcc +msx -pragma-define:CLIB_DEFAULT_SCREEN_MODE=2 -create-app -bn balloons balloons.c (Cassette tape image, generate balloons.cas)
4 COLOR15,0,0
10 SH=5
20 SCREEN,,0:KEYOFF
30 '
40 REM BLASTAR BY E.R.MUSK
50 '
60 SCREEN3
61 OPEN"GRP:"AS#1
65 DRAW"BM20,64"
70 PRINT#1,"BLASTAR"
' Clock | MSX-BASIC
' Copyright (c) 2024 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024
100 SCREEN 3
110 OPEN"GRP:"AS #1
120 O$=""
130 GET TIME T$
140 T$=LEFT$(T$,5)
150 IF T$=O$ GOTO 130
160 CLS
@fu-sen
fu-sen / SIN.BAS
Last active April 19, 2025 02:17
サインカーブ ( Sine Curve ) - SHARP POCKET COMPUTER PC-G850 series BASIC - https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/
1 ' Sine Curve | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2024-2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024-2025
100 DEGREE
110 CLS
120 FOR X=0 TO 143 STEP 2
130 PSET (X,24)
140 NEXT X
150 O=24
160 FOR X=1 TO 143
@fu-sen
fu-sen / nostr-3333.sh
Last active November 17, 2024 04:42
Nostr 🌞太陽のチカラコブ。bot🦾 - npub13333asxy62mpd5gcmxasfr8f49zscp03nkdk8dj6ek2pdrawdqnq4k87hx - https://nostter.app/[email protected]
#!/bin/sh
# install algia ( https://github.com/mattn/algia )
# mv config-3333.json ~/.config/algia/
# (or MOVE config-3333.json ~\AppData\Roaming\algia\)
# ( config.json の詳細は https://gist.github.com/fu-sen/360d6d08ebffdb97e1472859ab242cf8 )
# crontab -e
# 33 * * * * ~~~/nostr-3333.sh (毎時 33 分)
set -e
@fu-sen
fu-sen / status-loop.bat
Last active February 21, 2025 03:54
Display web status in Windows CMD (Status page replacement) | コマンド プロンプト で Web ステータス表示 (ステータスページの代わり)
@echo off
setlocal
:loop
echo %DATE% %TIME%
echo;
for /f %%u in (status.txt) do (
echo %%u
@fu-sen
fu-sen / nostr-anko.sh
Last active November 14, 2024 08:44
Nostr あんこ…… bot - npub1ank0k9x0zf4ds6rd50deehhd6jplwpuwfcr8yd57qldytus8f2dq3mmmyc - https://nostter.app/[email protected]
#!/usr/bin/bash
# install algia ( https://github.com/mattn/algia )
# mv config-anko.json ~/.config/algia/
# (or MOVE config-anko.json ~\AppData\Roaming\algia\)
# ( config.json の詳細は https://gist.github.com/fu-sen/360d6d08ebffdb97e1472859ab242cf8 )
# crontab -e
# 0 * * * * ~~~/nostr-anko.sh (毎時 0 分)
ANKO=(