fu-sen

/*
 Balloons | z88dk monochrome sprites functions
 Copyright (c) 2024 Keiichi Shiga (BALLOON | FU-SEN)
 The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024

Colecovision:
zcc +coleco -create-app -bn balloons balloons.c (generate balloons.rom)

MSX:
zcc +msx -pragma-define:CLIB_DEFAULT_SCREEN_MODE=2 -create-app -bn balloons balloons.c (Cassette tape image, generate balloons.cas)

fu-sen

1 ' Balloons | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2024 Keiichi Shiga (BALLOON | FU-SEN)
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024
100 CLS
110 X=RND(137)
120 GCURSOR(X,47)
130 GPRINT"183E7FFF7D3A1C"
140 WAIT 3
150 LOCATE 0,0
160 PRINT"                        "

fu-sen

1 ' Sine Curve | SHARP POCKET COMPUTER PC-G850 series BASIC
2 ' Copyright (c) 2024 Keiichi Shiga (BALLOON | FU-SEN)
3 ' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024
100 CLS
110 FOR X=0 TO 143 STEP 2
120 PSET(X,24)
130 NEXT X
140 O=24
150 FOR X=1 TO 143
160 Y=SIN(-X/144*360)*24+24

fu-sen

/*
 Sine curve | z88dk mono graphics
 Copyright (c) 2019 Keiichi Shiga (BALLOON | FU-SEN)
 The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019

Colecovision:
zcc +coleco -lm -create-app -bn sin sin.c (generate sin.rom)

MSX (-pragma-define:CLIB_DEFAULT_SCREEN_MODE=3 also works):
zcc +msx -lm -pragma-define:CLIB_DEFAULT_SCREEN_MODE=2 -create-app -bn sin sin.c (Cassette tape image, generate sin.cas)

fu-sen

' Clock | MSX-BASIC
' Copyright (c) 2024 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2024
100 SCREEN 3
110 OPEN"GRP:"AS #1
120 O$=""
130 GET TIME T$
140 T$=LEFT$(T$,5)
150 IF T$=O$ GOTO 130
160 CLS

fu-sen

' picture of PONG screen | MSX-BASIC
' Copyright (c) 2003-2024 Keiichi Shiga (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

fu-sen

POKE #D00,#80,#80,#80,#80,#80,#80,#80,#80
POKE #D08,#80,#80,#80,#80,#80,#80,#80,#80
POKE #D10,#80,#80,#80,#80,#80,#80,#80,#80
POKE #D18,#80,#80,#80,#80,#80,#80,#80,#80
POKE #D20,#80,#80,#80,#80,#8C,#80,#80,#80
POKE #D28,#80,#80,#80,#80,#80,#80,#80,#80
POKE #D30,#80,#80,#80,#8C,#80,#80,#80,#80
POKE #D38,#80,#80,#80,#88,#80,#80,#80,#80
POKE #D40,#80,#80,#88,#8F,#8F,#8F,#8D,#80
POKE #D48,#80,#80,#80,#80,#80,#80,#80,#80

fu-sen

4 COLOR15,0,0
10 SH=5
20 SCREEN,,0:KEYOFF
30 '
40 REM BLASTAR BY E.R.MUSK
50 '
60 SCREEN3
61 OPEN"GRP:"AS#1
65 DRAW"BM20,64"
70 PRINT#1,"BLASTAR"

fu-sen

/*
 Balloons version 2 MSX-DOS .com version | MSX-DOS / MSX2 / z88dk
 Copyright (c) 2019-2024 Keiichi Shiga (BALLOON | FU-SEN)
 The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019-2024

 zcc +msx -subtype=msxdos -bn balloons.com balloons-dos.c
 (MSX-DOS 2.30+ set the following: SET EXPERT ON )
 --> BALLOONS
*/

fu-sen

/*
 Balloons version 2 | MSX-BASIC 2.0+ / z88dk
 Copyright (c) 2019-2024 Keiichi Shiga (BALLOON | FU-SEN)
 The MIT License (MIT) - https://mit.balloon.net.eu.org/#2019-2024

 zcc +msx -lndos -create-app -subtype=disk -bn balloons balloons.c
 --> BLOAD"BALLOONS.MSX",R
*/

void wrtvdp(char reg, char data)