Two-liners

[g.wright@tcs.wap.org (Geraldine Wright)]

In a posting on Jan 6, nparker@cie-2.uoregon.edu (Neil Parker) suggested that
there be a "Great Comp.Sys.Apple2 Two-Liner Competition" and submitted a few
of his entries. I love two-liners, and I think this is a great idea! Here is
my submission. If enough other people submit two-liners, maybe there really
can be a competition.
 
 1  HGR2 :P = 1.57:A = 90:B = 27:H = A - B: HCOLOR= 3: FOR G = 1 TO .2 STEP
- .2:C = 140 + H *  COS ( - P) + B * G *  COS (A / B * P):D = 96 + H *  SIN (
- P) + B * G *  SIN (A / B * P): FOR I =  - 91 TO 990:J = I * P / 90:E = 140
+ H *  COS (J) + B * G *  COS ( - A / B * J):F = 96 + H *  SIN (J) + B * G *
SIN ( - A / B * J): HPLOT C,D TO E,F:C = E:D = F: NEXT I: NEXT G: END
 
 
Gerry (the Applesoft-aholic)
g.wright@tcs.wap.org