Skip to content

Instantly share code, notes, and snippets.

🎈
🎈😍

BALLOON a.k.a. Fu-sen. fu-sen

🎈
🎈😍
Block or report user

Report or block fu-sen

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@fu-sen
fu-sen / Caddy shortcut (startup)
Last active Jan 19, 2020
Caddy v2+php-cgi on Windows
View Caddy shortcut (startup)
C:\carry\caddy.exe run
View use-search.net.eu.org-script.html
<script type="text/javascript" src="https://search.net.eu.org/js/s.js"></script>
View use-search.net.eu.org-iframe.html
<iframe src="https://search.net.eu.org/search/" width="400" height="85" scrolling="no"></iframe>
@fu-sen
fu-sen / mog.gs
Created Jan 16, 2020
(・~・)mog 関数 - Google Apps Script
View mog.gs
function mog(num){
var str="";
for (var i=0; i<num; i++) {
str = str + "(・~・)mog ";
}
str = str.slice(0, -1);
return str;
@fu-sen
fu-sen / CAL.BAS
Last active Dec 18, 2019
カレンダー ( 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/
View CAL.BAS
1 ' Calendar | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2006-2009 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
3 ' The MIT License (MIT) - https://gist.github.com/fu-sen/5f79ca2dac44db4821d3
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
View GIVEUP.BAS
1 ' GIVEUP! | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 1995-2006 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
3 ' The MIT License (MIT) - https://gist.github.com/fu-sen/10528455cd83b49e7aa4
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)
@fu-sen
fu-sen / JYANKEN1.BAS
Last active Dec 18, 2019
ジャンケンポン! ( Rock, Paper & Scissors! ) - 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/
View JYANKEN1.BAS
1 ' ジャンケンポン! Rock, Paper & Scissors! | SHARP POCKET COMPUTER PC-E200 / G series BASIC
2 ' Copyright (c) 2006 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
3 ' The MIT License (MIT) - https://gist.github.com/fu-sen/d996615c55144f0f8c73
10 PRINT "ジャンケンポン!"
20 IF INKEY$ <> "" GOTO 60
30 IF INKEY$ <> "" GOTO 70
40 IF INKEY$ <> "" GOTO 80
50 GOTO 20
60 PRINT "グー":GOTO 90
70 PRINT "チョキ":GOTO 90
@fu-sen
fu-sen / LOGO.BAS
Last active Dec 18, 2019
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/
View LOGO.BAS
1 ' POKE COM ロゴ ( POKE COM logo ) | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2006-2011 Keiichi SHIGA (BALLOON a.k.a. Fu-sen.)
3 ' The MIT License (MIT) - https://gist.github.com/fu-sen/607d44f54927e4471a9e
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";:'
@fu-sen
fu-sen / CT-441
Last active Dec 18, 2019
add CT-441 of Mac OS X Prolific PL-2303 driver https://poke-com.jimdofree.com/
View CT-441
<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>
You can’t perform that action at this time.