Skip to content

Instantly share code, notes, and snippets.

/*
Balloons | PC-E200 / G 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 balloons balloons.c
--> MON
R
G100
*/
/*
Nyan Cat | PC-G815 (PC-E200 / G 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 nyancat nyancat.c
--> MON
R
G100
*/
/*
Nyan Cat | 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 nyancat nyancat.c
--> MON
R
G100
*/
/*
POKE COM logo | PC-E200 / G 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 logo logo.c
--> MON
R
G100
*/
@fu-sen
fu-sen / sin.bas
Last active April 19, 2025 02:13
サインカーブ ( Sine Curve ) - 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 ' Sine Curve | 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 DEGREE
110 CLS
120 FOR X=0 TO 143 STEP 2
130 PSET (X,16)
140 NEXT X
150 O=16
160 FOR X=1 TO 143
@fu-sen
fu-sen / nyancat.c
Last active April 19, 2025 02:13
Nyan Cat | z88dk monochrome sprites functions
/*
Nyan Cat | z88dk monochrome sprites functions
Copyright (c) 2025 BALLOON | FU-SEN
The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
Colecovision:
zcc +coleco -create-app -bn nyancat nyancat.c (generate nyancat.rom)
MSX:
zcc +msx -pragma-define:CLIB_DEFAULT_SCREEN_MODE=3 -create-app -bn nyancat nyancat.c (Cassette tape image, generate nyancat.cas)
@fu-sen
fu-sen / 15puzzv2.bas
Last active April 19, 2025 02:14
15 puzzle version 2 - 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 ' Calendar | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2025 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
100 RANDOMIZE :M=15:S=0:DIM P(15):CLS
110 FOR I=0 TO 14
120 LINE ((I MOD 4)*12+49, INT (I/4)*12+1)-((I MOD 4)*12+58, INT (I/4)*12+10),S,B
130 GCURSOR ((I MOD 4)*12+50, INT (I/4)*12+9)
140 P=I+1:GOSUB 490
150 P(I)=I+1:NEXT I
160 P(15)=16
' Klotski | MSX-BASIC
' Copyright (c) 2025 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2025
100 R=RND(-TIME)
110 DEFINT A-Z
120 M=16
130 S=0
140 SCREEN 1,3
150 KEY OFF
160 DIM S$(16),P(16)
@fu-sen
fu-sen / kazuate.bas
Last active April 19, 2025 02:14
数当て - SHARP POCKET COMPUTER PC-E200/G series BASIC https://poke-com.jimdofree.com/basic-%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/
1 ' アズアテ Kazu-ate | 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
10 RANDOMIZE
20 I=0
30 R=RND 100-1
40 I=I+1
50 PRINT"ターン ";STR$(I);
60 INPUT" カズ(0-99)>";K
70 IF K>R PRINT "チイサイ":GOTO 40
@fu-sen
fu-sen / balloons.bas
Last active April 19, 2025 02:34
風船 balloons - SHARP POCKET COMPUTER PC-E200/G 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-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 R= RND 24-1
120 LOCATE R,3
130 PRINT CHR$ (236)
140 WAIT 3
150 PRINT
160 LOCATE R,3