π
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// 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; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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";:' |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' 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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
' 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 |
NewerOlder