Stars
(c) Christopher Browne, 1995

(Christopher_Browne@brown.edu)

Cool graphic program (Stars), works really well on 9700, with the screen
a little bit on the dark side.

STARS
-------------------------------------------------------------------------
Mcl
-.5->R
R->Z
12->r
Lbl 2
Ran#+1->A[r]
Dsz r
Goto 2
Lbl 1
Range 1+R,2-R,0,1+R,2-R,0  *zero, not the letter "O"*
Plot A,K
Plot B,J
Plot C,I
Plot D,H
Plot E,G
Plot F,F
Plot G,A
Plot H,B
Plot I,C
Plot J,D
Plot K,E
Plot L,F
R<1.8=>R+.05->R
R> *greater than or equal to* 1.8=>-.5->R
12->r
R=Z=>Goto 2
Goto 1