Skip to content

Instantly share code, notes, and snippets.

View fu-sen's full-sized avatar
๐ŸŽˆ
๐ŸŽˆ๐Ÿ˜

BALLOON | FU-SEN fu-sen

๐ŸŽˆ
๐ŸŽˆ๐Ÿ˜
View GitHub Profile
@fu-sen
fu-sen / balloon2-2.c
Last active April 19, 2025 02:10
้ขจ่ˆน Balloons version 2 sprite 2 | MSX-BASIC / z88dk 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/
/*
Balloons version 2 sprite 2 | MSX / z88dk
Copyright (c) 2025 BALLOON | FU-SEN
The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
zcc +msx -lndos -create-app -subtype=disk -bn ballo2-2 balloon2-2.c
--> BLOAD"BALLO2-2.MSX",R
zcc +msx -lndos -create-app -bn ballo2-2 balloon2-2.c
--> BLOAD"CAS:",R (BALLO2-2.CAS)
zcc +msx -lndos -create-app -subtype=wav -bn ballo2-2 balloon2-2.c
@fu-sen
fu-sen / balloon2.c
Last active April 19, 2025 02:10
้ขจ่ˆน Balloons version 2 sprite | MSX-BASIC / z88dk 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/
/*
Balloons version 2 sprite | MSX / z88dk
Copyright (c) 2025 BALLOON | FU-SEN
The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
zcc +msx -lndos -create-app -subtype=disk -bn balloon2 balloon2.c
--> BLOAD"BALLOO2S.MSX",R
zcc +msx -lndos -create-app -bn balloon2 balloon2.c
--> BLOAD"CAS:",R (BALLOON2.CAS)
zcc +msx -lndos -create-app -subtype=wav -bn balloon2 balloon2.c
@fu-sen
fu-sen / 3minball.bas
Last active April 19, 2025 02:11
3 ๅˆ†ใ‚ฟใ‚คใƒžใƒผ้ขจ่ˆน (3 minute timer balloon) - 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 ' 3 minute timer balloon | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
100 CLS
110 FOR C=1 TO 76
120 CIRCLE (71,24),C
130 CIRCLE (72,24),C
140 NEXT C
150 CLS
160 FOR B=10 TO 150 STEP 20
/*
Balloons version 2 | PC-E200 / G series | z88dk C language
Copyright (c) 2025 BALLOON | FU-SEN
The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
There is a problem with the operation with emulator g800!
(version 0.11.4 and 20240414 (beta))
zcc +g800 -create-app -bn balloon2 balloon2.c
--> MON
R
/*
Balloons version 2 | PC-G815 | z88dk C language
Copyright (c) 2025 BALLOON | FU-SEN
The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
There is a problem with the operation with emulator g800!
(version 0.11.4 and 20240414 (beta))
zcc +g800 -create-app -bn balloon2 balloon2.c
--> MON
R
1 ' POKE COM LOGO | SHARP POCKET COMPUTER PC-G811-PC-G830 (Excludes PC-G815) BASIC
2 ' Copyright (c) 2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
100 RESTORE
110 CLS
120 S=PEEK(&H790D)
130 FOR Y=0 TO 2
140 OUT &H58,&HB8+S
150 OUT &H58,&H40
160 FOR X=0 TO 6*4-1
/*
Balloons version 2 | PC-G850 series | z88dk C language
Copyright (c) 2025 BALLOON | FU-SEN
The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
zcc +g800 -create-app -bn balloon2 balloon2.c
--> MON
R
G100
*/
/*
zcc +g800 -create-app -bn ledg815 ledg815.c
*/
/*
gprint data
PC-G815 has 6x8 dots (Same as PC-G850)
char balloon[6] = {0x4e, 0x5f, 0x3f, 0x1d, 0x0e, 0x00};
*/
@fu-sen
fu-sen / ledg800.c
Last active February 18, 2025 10:47
LED test - PC-E200 / G siries (Other than PC-G815, PC-G850) https://github.com/z88dk/z88dk/issues/2664
/*
zcc +g800 -create-app -bn ledg800 ledg800.c
*/
/*
gprint data
PC-E200/G series other than PC-G815 and PC-G850 have 1 character = 5x7 dots,
so 1 character is 5 bytes, and there is no data between characters.
and 0x80 is not drawn.
@fu-sen
fu-sen / klotski.bas
Last active April 19, 2025 02:12
็ฎฑๅ…ฅใ‚Šๅจ˜ (Klotski) - SHARP POCKET COMPUTER PC-G815 BASIC https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/
1 ' Calendar | SHARP POCKET COMPUTER PC-G815 BASIC
2 ' Copyright (c) 2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
100 CLS :RESTORE :DIM P(19):PX=1:PY=4:C=0
110 LINE (56,0)-(87,31),S,BF
120 LINE (59,0)-(84,30),R,BF
130 LINE (66,31)-(77,31),R
140 FOR I=0 TO 19:READ P(I)
150 Y=INT(I/4):X=I-Y*4
160 BL=P(I):GOSUB 520:NEXT I