Skip to content

Instantly share code, notes, and snippets.

@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
/*
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)