Apple II Programs 
Byte-sized delights that are guaranteed to ward off hysteria and melancholy!
13 January 2019
Fireworks
by Lee Fastenau
Program
0HGR2:FORC=3TO7STEP4:X=RND(1)*200+40:FORY=161TO20STEP-1:HCOLOR=C*(Y>50):HPLOTX,Y:HCOLOR=0:HPLOTX,Y+30:HPLOTX,Y+RND(1)*15+10:NEXT:FORN=CTO0STEP-C:HCOLOR=N:FORR=0TO40:A=SIN(R)*R:B=COS(R)*R:HPLOTX+A,50+B:NEXT:NEXT:C=C-(C=7)*8:NEXT
Information
Boom. Now every day can be Independence Day.
Discussion
Apple II Enthusiasts Group Permalink