fu-sen

' 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

10 N=RND(1)*95+1
20 PLAY "n=N;"
30 GOTO 10

fu-sen

' 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

' 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

		<key>14a1_0001</key>
		<dict>
			<key>CFBundleIdentifier</key>
			<string>com.prolific.driver.PL2303</string>
			<key>IOClass</key>
			<string>com_prolific_driver_PL2303</string>
			<key>IOProviderClass</key>
			<string>IOUSBInterface</string>
			<key>bConfigurationValue</key>
			<integer>1</integer>

fu-sen

function urlcheck() {
    var servers = { 
        "openlab.jp":     "openlab", 
        "www.ring.gr.jp": "Ring Server"
    };

    var sheet = SpreadsheetApp.getActiveSheet();
    var y = 0;
  
    for ( var url in servers ) {

fu-sen

<?php

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

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

fu-sen

10 CLS
20 PRINT "PC-G850V"
30 FOR Y=6 TO 0 STEP -1
40 FOR X=46 TO 0 STEP -1
50 IF POINT (X,Y)=1 GOTO 80
60 LINE (X*3,Y*6)-(X*3+2,Y*6+5),R,BF
70 GOTO 90
80 LINE (X*3,Y*6)-(X*3+2,Y*6+5),S,BF
90 NEXT X
100 NEXT Y

fu-sen

10 CLS
20 FOR X=0 TO 143
30 FOR Y=0 TO 49
40 LINE (X,0)-(X,47),X,BF
45 WAIT 3
50 NEXT Y
60 NEXT X
70 GOTO 20

fu-sen

@echo off
setlocal

if "%1"=="" (
set /p USER="input user name>"
) else (
set USER=%1
)

C: