|
|
Fire Work |
|
(c) Copyright HideTake Jo 1997
hjo@engin.umich.edu Program: Fire Work Size: small Models: all Author: HideTake Jo Description: Shoots up firework... nothing impressive |
|
ViewWindow 1,99,1,1,99,1
Lbl 1 Cls Mcl 30Ran#->J 95Ran#+1->A 95Ran#+1->B 8->D Lbl 9 Plot A,C C+D->C D-0.2->D C>B=>Goto 8 Goto 9 Lbl 8 Plot A,B Plot A+G,B+G Plot A-G,B-G Plot A-G,B+G Plot A+G,B-G Plot A+G,B Plot A-G,B Plot A,B+G Plot A,B-G Lbl 3 G+1->G G>J->Goto 1 Int 2Ran#+1->S S=1=>Goto 8 S=2=>Goto 3 |
|
|
|
|