dos33fsprogs/graphics/hgr/bubble_universe/hello.bas

5 HOME
10 PRINT "      BUBBLE UNIVERSE EXPERIMENTS"
15 PRINT "  BY DEATER / FAST CODE BY SERATO_FIG"
20 PRINT
25 PRINT "THIS VERSION YOU CAN CHANGE"
27 PRINT "PARAMETERS ON THE FLY"
28 PRINT "+ TRY PRESSING A/Z TO INC/DEC I"
29 PRINT "+ TRY PRESSING J/M TO INC/DEC J"
30 PRINT:PRINT "PRESS ANY KEY TO START"
40 GET A$
50 IF A$="Q" THEN END
60 PRINT:PRINT CHR$(4)"BRUN BUBBLE_TINY"
hgr: add bubble universe code 2023-12-15 11:42:40 -05:00			`5 HOME`
bubble: make configurable 2024-02-19 00:28:37 -05:00			`10 PRINT " BUBBLE UNIVERSE EXPERIMENTS"`
			`15 PRINT " BY DEATER / FAST CODE BY SERATO_FIG"`
			`20 PRINT`
			`25 PRINT "THIS VERSION YOU CAN CHANGE"`
			`27 PRINT "PARAMETERS ON THE FLY"`
			`28 PRINT "+ TRY PRESSING A/Z TO INC/DEC I"`
			`29 PRINT "+ TRY PRESSING J/M TO INC/DEC J"`
			`30 PRINT:PRINT "PRESS ANY KEY TO START"`
			`40 GET A$`
			`50 IF A$="Q" THEN END`
bubble: shrink by generating a lot of the sine tables 2024-03-03 00:58:18 -05:00			`60 PRINT:PRINT CHR$(4)"BRUN BUBBLE_TINY"`
bubble: make configurable 2024-02-19 00:28:37 -05:00