Skip to content

Instantly share code, notes, and snippets.

@fu-sen
fu-sen / reocities-response-status.sh
Created June 24, 2025 02:19
Reocities (reocities.xyz) response status - sh
#!/bin/sh
while true
do
curl 'https://www.reocities.xyz/' -H 'Accept-Encoding: gzip, deflate, sdch' -H 'Accept-Language: ja,en-US;q=0.9,en;q=0.8' -H 'Upgrade-Insecure-Requests: 1' -H 'User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/137.0.0.0 Safari/537.36' -H 'Accept:text/html, application/xhtml+xml, application/xml;q=0.9, image/avif, image/webp, image/apng, */*;q=0.8, application/signed-exchange;v=b3;q=0.9' -H 'Connection: keep-alive' --compressed -o /dev/null -w "%{time_starttransfer} %{http_code} %{errormsg}\n" -s
sleep 600
done
@fu-sen
fu-sen / surge-server.txt
Last active June 24, 2025 01:36
Surge (surge.sh) Server Status - Windows bat file or sh
sfo.surge.sh|138.197.235.123 US, San Francisco
lhr.surge.sh|46.101.67.123 GB, London
yyz.surge.sh|159.203.50.177 CA, Toronto
jfk.surge.sh|159.203.159.100 US, New York
ams.surge.sh|188.166.132.94 NL, Amsterdam
fra.surge.sh|138.68.112.220 DE, Frankfurt
sgp.surge.sh|139.59.195.30 SG, Singapore
blr.surge.sh|139.59.50.135 IN, Bangalore
syd.surge.sh|45.76.126.95 AU, Sydney
nrt.surge.sh|172.104.96.133 JP, Tokyo
@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