Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-23 11:33:07 +00:00
Code Issues Projects Releases Wiki Activity
dos33fsprogs/basic/appleiibot/fireworks.bas

7 lines
338 B
QBasic
Raw Normal View History

basic: fireworks
2021-07-04 11:29:12 -04:00
0HGR2
5Q=25-RND(1)*10
6B=4*NOTB:V=Q+RND(1)*240:W=Q+RND(1)*100:HCOLOR=B+3:HPLOTV,W:FORI=1TO9:IFI<9THENN=I:HCOLOR=B+3:GOSUB9
7N=I-1:HCOLOR=B:GOSUB9:NEXT:GOTO5
fireworks: more size optimization
2021-06-29 00:18:49 -04:00
9HPLOTV+N,W+N:HPLOTV-N,W-N:HPLOTV+N,W-N:HPLOTV-N,W+N:HPLOTV,W+N*1.5:HPLOTV+N*1.5,W:HPLOTV,W-N*1.5:HPLOTV-N*1.5,W:RETURN
basic: fireworks
2021-07-04 11:29:12 -04:00
' Based on Fireworks by FozzTexx, originally written in 1987
Reference in New Issue Copy Permalink