The Exploding Universe - Epson FX-80 User Manual

8~
B=N: E=7: S=-l
9~
FOR Z=l TO 2
and change these:
6~ PRINT "T MINUS ";N-R: NEXT R
1~~ IF Z=2 THEN B=l: E=N-6: S=l
, Add the IF-THEN phrase
16~
LPRINT: NEXT P: NEXT Z
, Add the Z phrase
Lines 80,90, and 100 change the order in which the array is read. First
(2=1) it is read upside down. Then (2=2) it is read right side up as
before. Go ahead and RUN it to see how it works (have a cup of coffee
while you're waiting for it to print).
There are two important points worthy of meditation. One, instead
of tracing the circle like a plotter, the program assembles the pattern in
the computer's memory, then prints it line by line. Two, the program
takes advantage of symmetry to print a figure four times the size of the
original array.
The exploding universe
With a few more program changes and lots of imagination, you can
tum this mundane circle into an exploding universe. Yes, you read
correctly. First, change the size so you can see the full impact of the
figure:
1~
DEFINT A:
N=1~5:
DIM A(N,N)
, Note:
1~5
is a multiple of 7
Yes, this one will take even longer to print out, but that's the price you
pay for greatness.
Next, the distance formula is modified slightly. Type:
178