Skip to content

Instantly share code, notes, and snippets.

@fu-sen
fu-sen / app.yaml
Created March 29, 2019 10:02
301 forward / redirect from your-custom-domain.example/.* to example.com with Google App Engine, Only this!
runtime: php72
// IchigoLatte PanCake library
// CC0 1.0 Public Domain Dedication - https://creativecommons.org/publicdomain/zero/1.0/
function pc-init(){
uart(10);
}
function pc-clear(cn){
uart(128,4,0,cn);
}
' RANDOM screen | MSX JAPAN top page program 23 May, 2019 | MSX-BASIC
' Copyright (c) 2019 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
10 DEFINT A-Z
20 COLOR 15,1,1
30 SCREEN 3
40 X=RND(1)*256
50 Y=RND(1)*192
60 C=RND(1)*15+1
70 PSET(X,Y),C
' MSX 256 colors | MSX-BASIC
' Copyright (c) 2019 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
10 DEFINT A-Z
20 SCREEN 8
30 COLOR 255,0,0
40 FOR Y=0 TO 7
50 FOR X=0 TO 31
60 LINE(X*8,Y*27)-STEP(7,26),Y*32+X,BF
70 NEXT
// Change to font #A0-#DF | C language for IchigoJam (c4ij, IchigoJam BASIC 1.3.2b13+)
// Original https://github.com/IchigoJam/c4ij/blob/master/src/main-exkbd.c
// Copyright (c) 2019 Taisuke Fukuno / BALLOON | FU-SEN
// The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
#include <std15.h>
__attribute__ ((section(".main")))
int main(int param, int ram, int rom, int (*divfunc)()) {
int res;
@fu-sen
fu-sen / changepcg-kana.bas
Last active April 19, 2025 02:25
IchigoJam BASIC 1.3.2b13~ #A0~#DF(カナ部分)を変更 ※ このまま実行すると初期状態のカナに戻せます。 https://15jamrecipe.jimdofree.com/basic/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E3%83%95%E3%82%A9%E3%83%B3%E3%83%88%E5%A4%89%E6%9B%B4/
' Change to IchigoJam kana font (Direct) | IchigoJam BASIC 1.3.2b13+
'
' Source(#D00-#DFF) https://gist.github.com/fu-sen/21400660612ad674f660b056fb07ece3
' Original https://github.com/IchigoJam/c4ij/blob/master/src/main-exkbd.c
' and BASIC Command
' Copyright (c) 2019 Taisuke Fukuno / BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
'
' IchigoJam Font(#E00-#FFF) https://fukuno.jig.jp/app/IchigoJam/charmap-v12.html
' CC BY IchigoJam https://ichigojam.net/ Licensed by jig.jp https://jig.jp/
@fu-sen
fu-sen / pcg-a0-df.bas
Last active April 19, 2025 02:22
キャラクターパターン #A0~#DF を #E00~#FFF への POKE で表示 | IchigoJam BASIC
' Output of IchigoJam Character #A0-#DF | IchigoJam BASIC
' Copyright (c) 2019 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
10 A=#E00
20 FOR C=#A0 TO #DF STEP 2
30 IF C%2 GOTO 60
50 ?"POKE#";HEX$(A);:A=A+16
60 FOR D=0 TO 15
70 ?",";PEEK(C*8+D);
80 NEXT
@fu-sen
fu-sen / main-balloons.c
Last active April 19, 2025 02:22
風船 Balloons | C language for IchigoJam (c4ij, IchigoJam BASIC 1.3.2b12+) https://15jamrecipe.jimdofree.com/basic/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E9%A2%A8%E8%88%B9/
// Balloons | C language for IchigoJam (c4ij, IchigoJam BASIC 1.3.2b12+)
// Copyright (c) 2019 BALLOON | FU-SEN
// The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
#include <std15.h>
__attribute__ ((section(".main")))
int main(int param, int ram, int rom, int (*divfunc)()) {
cls();
' MSX2+ YJK colors | MSX-BASIC
' Copyright (c) 2019-2024 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019-2024
100 DEFINT A-Z
110 C=15*8:'Y*8
120 SCREEN 12
130 COLOR 255,0,0
140 FOR J=-32 TO 31
150 X=128+J*256/64
160 LINE(X+2,0)-(X+2,211),C+(J AND 7)
' Balloons | MSX-BASIC
' Copyright (c) 2019 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019
100 DEFINT A-Z:DIM B(15)
110 COLOR 15,1,1:SCREEN 1
120 KEY OFF:WIDTH 32
130 FOR L=0 TO 15
140 READ B(L):NEXT L
150 FOR C=2 TO 15
160 FOR L=0 TO 7