For more details, type "HELP" or see the Sunflower BASIC Manual.

Updated	19 days ago
Published	27 days ago
Status	Released
Category	Tool
Platforms	HTML5
Rating	Rated 4.8 out of 5 stars (4 total ratings)
Author	Rek & Devine
Tags	basic, Commodore 64, programming

Download

Download NowName your own price

Click download now to get access to the following files:

basic.rom 6 kB

Version 30

bundle.zip 61 kB

Comments

Rek & Devine19 days ago

1  REM A big brain
2  POKE 1, $0303, $0c10, $2020, $c0c0
3  POKE 2, $c0c0, $4020, $2018, $0703
4  COLOR $f0a2, $d062, $c052
5  CLS
9  LET X:0,Y:0
10 LET A:R%2+1
11 PRINT #A;
12 LET X:X+1
13 IF X=70 PRINT ""
14 IF X=70 LET X:0,Y:Y+1
15 IF Y<40 GOTO 10
20 DRAW 32, 32
21 LIST
22 END

mrdoob19 days ago

Beautiful~

Rek & Devine20 days ago

1 REM Sierpinski's Triangle
2 LET N:32, X:0, Y:N-1
3 CLS
11 LET I:0, X:0
12     PRINT " ";
13         LET I:I+1
14         IF I<Y GOTO 12
16     PRINT #X&Y=0*$a+$20 " ";
17         LET X:X+1
18         IF X+Y<N GOTO 16
19     PRINT ""
29     LET Y:Y-1
30     IF Y GOTO 11
31 END

Rek & Devine27 days ago (2 edits)

1 REM To roll size sided dice
2 PRINT "You rolled " R%6+1 "."
3 END

How about a game of TicTacToe?

mrdoob27 days ago

Can't copy/paste on MacOS...

Command + V just writes "v".

Deleted post26 days ago

Deleted 20 days ago

Rek & Devine20 days ago

Should be working now, we don't have an Apple to test but if my understand of JS is correct, this should paste, regardless of ctrl or cmd :) Let us know!

mrdoob20 days ago(-1)

Almost there!

It works but there's a bug still...

When I paste I get this:

v1 REM To roll size sided dice
ERROR<COMMAND>: v1 REM To roll size sided dice
2 PRINT "You rolled " R%6+1 "."
3 END

Rek & Devine19 days ago

Cheers for the help with this m8, I think it shouldn't inject a v anymore, wanna give it a shot?

mrdoob19 days ago

Fixed!

JiDoRoux27 days ago

Nice!

Rek & Devine27 days ago (1 edit)

1 DRAW 48,48
2 POKE 1, $0000, $4200, $003c, $4200
3 PRINT #1;
4 END

Rek & Devine27 days ago (2 edits)

1 REM This is a comment.
2 LET I:I+1, F:I%3=0, B:I%5=0
3 IF F PRINT "FIZZ";
4 IF B PRINT "BUZZ";
5 IF F+B=0 PRINT I;
6 PRINT ""
7 IF I<100 GOTO 2
8 END

sunflower-basic

Download

Comments