fu-sen’s gists

fu-sen / MOUSE.BAS

Last active April 19, 2025 02:31

	' move cursor with a mouse \| MSX-BASIC
	' Copyright (c) 2003 BALLOON \| FU-SEN
	' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003
	10 COLOR 15,4,7:SCREEN 1:KEY OFF
	20 XX=128:YY=96
	30 SPRITE$(0)=CHR$(224)+CHR$(192)+CHR$(128)
	40 S=PAD(12)
	50 XX=XX+PAD(13):YY=YY+PAD(14)
	60 XX=(XX+256) MOD 256:YY=(YY+192) MOD 192
	70 PUT SPRITE 0,(XX,YY),15,0

fu-sen / MSXNOUTA.BAS

Last active December 17, 2019 11:16

fu-sen / KANJIKAK.BAS

Last active April 19, 2025 02:31

漢字書けな〜い！ for MSX ( KANJI kakenaaaaai! for MSX ) | MSX-BASIC (use MSX-JE(kanji basic)) https://msxjpn.jimdofree.com/%E3%83%97%E3%83%AD%E3%82%B0%E3%83%A9%E3%83%A0/%E6%BC%A2%E5%AD%97%E6%9B%B8%E3%81%91%E3%81%AA-%E3%81%84/

	' KANJI kakenaaaaai! for MSX \| MSX-BASIC (use MSX-JE(kanji basic))
	' original by NAKASENDO TARO, 2001 ( http://nakasendo.com/isoft.html )
	' MSX remaked by BALLOON \| FU-SEN, 2003.
	' Program copyright (c) 2003 BALLOON \| FU-SEN
	' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2003
	10 _KANJI
	20 INPUT C$
	30 SCREEN 3:_KANJI
	40 PRINT C$;
	50 I$=INPUT$(1)

fu-sen / GIVEUP.BAS

Last active April 19, 2025 02:39

	' 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

fu-sen / datetime.php

Last active June 24, 2021 07:45

	<?php

	/*
	IchigoJam web での動作は次の 1 行が必要です。
	mj.15j.run は .htaccess でこれを入れています。
	header("Access-Control-Allow-Origin: *");
	*/

	header('Content-Type: text/plain');

fu-sen / logo.bas

Last active December 18, 2019 14:22

拡大文字サンプル - PC-G850 シリーズ用 https://poke-com.jimdofree.com/

fu-sen / ledtest.bas

Last active December 18, 2019 14:22

液晶の縦数ヶ所が表示されなくなった時に試すプログラム - PC-G850V https://poke-com.jimdofree.com/

fu-sen / ichigolatte-pancake.js

Last active December 4, 2019 04:11

IchigoLatte PanCake ライブラリ https://15jamrecipe.jimdofree.com/pancake/%E4%BD%BF%E3%81%84%E6%96%B9/

	// 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);
	}

fu-sen / random.bas

Last active April 19, 2025 02:37

	' 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

fu-sen / 256color.bas

Last active April 19, 2025 02:37

	' 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(X8,Y27)-STEP(7,26),Y*32+X,BF
	70 NEXT

BALLOON | FU-SEN fu-sen