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 / CAL.BAS
Last active April 19, 2025 02:40
カレンダー ( Calendar ) - 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-E200 / G series BASIC
2 ' Copyright (c) 2006-2009 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2006-2009
100 DIM D(12)
110 INPUT "ネン = ";Y
120 INPUT "οΎ‚ο½· = ";M
130 FOR I=1 TO 12:READ D(I):NEXT I
140 IF Y MOD 4=0 AND (Y MOD 100<>0 OR Y MOD 400=0 ) LET D(2)=D(2)+1
150 IF M<3 LET Y=Y-1:M=M+12
160 O = INT (Y+ INT (Y/4)- INT (Y/100)+ INT (Y/400)+ INT ((13*M+8)/5)+1) MOD 7
1 ' GIVEUP! | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 1995-2006 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#1995-2006
10 H=0:RANDOMIZE
20 CLS :LOCATE 17,0:PRINT "SCORE"
30 LOCATE 17,2:PRINT "HIGH"
40 LOCATE 18,3:PRINT H
50 LINE (0,0)-(99,47),S,B
60 X=50:Y=24:S=0:XX=0:YY=1
70 LOCATE 18,1:PRINT S:PSET (X,Y)
' GIVE UP! | MSX-BASIC
' Copyright (c) 1995 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#1995
10 COLOR15,4,4:SCREEN5:OPEN"GRP:"AS#1
20 DEFINTA-Z:I=RND(-TIME):H=0
30 SETPAGE0,0:LINE(0,0)-(255,211),14,BF
40 LINE(20,20)-(235,191),1,BF
50 S=0:X=128:Y=106:TT=5
60 IFPOINT(X,Y)<>1GOTO180
70 PSET(X,Y),15:S=S+1
' 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
@fu-sen
fu-sen / main-changepcg.c
Last active April 19, 2025 02:37
γƒ•γ‚©γƒ³γƒˆε€‰ζ›΄ C 言θͺžγ‚½γƒΌγ‚Ή | C language for IchigoJam (c4ij, IchigoJam BASIC 1.3.2b13~) https://github.com/IchigoJam/c4ij 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 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 / 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
@fu-sen
fu-sen / LOGO.BAS
Last active April 19, 2025 02:33
POKE COM γƒ­γ‚΄ ( POKE COM logo ) - 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 ' POKE COM οΎ›ο½ΊοΎž ( POKE COM logo ) | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2006-2011 BALLOON | FU-SEN
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2006-2011
100 CLS
110 GCURSOR (0,7)
120 GPRINT "FFFFFF070707070707070707F8F8F8000000";:' P
130 GPRINT "F8F8F8070707070707070707F8F8F8000000";:' O
140 GPRINT "FFFFFF000000C0C0C0383838070707000000";:' K
150 GPRINT "FFFFFF070707070707070707070707000000";:' E
160 GPRINT "000000000000000000000000000000000000";:'
' balloons demo | MSX-BASIC
' Copyright (c) 2012-2025 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2012-2025
100 COLOR ,1,1:SCREEN 1,1
110 KEY OFF:WIDTH 30
120 T=RND(-TIME):DEFINT A-Z:B=0
130 DIM X(31),Y(31),C(31),M(31)
140 LOCATE 1,2:PRINT "MSX-BASIC DEMO"
150 H$=CHR$(14)+CHR$(29)
160 H$=H$+CHR$(31)+CHR$(31)
' picture of PONG screen | MSX-BASIC
' Copyright (c) 2003-2024 BALLOON | FU-SEN
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003-2024
100 R=RND(-TIME)*1
110 COLOR 15,1,1:SCREEN 3
120 FOR Y=8 TO 191 STEP 32
130 LINE (124,Y)-STEP(7,15),15,BF
140 NEXT Y
150 U1=(INT(RND(1)*160)/8)*8
160 U2=(INT(RND(1)*160)/8)*8