===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 04-24-93 (17:37)             Number: 70
From: CALVIN FRENCH                Refer#: 52
  To: VICTOR YIU                    Recvd: NO  
Subj: Re: Hoax?                      Conf: (35) Quick Basi
---------------------------------------------------------------------------
 On 04-21-93 Victor Yiu wrote to Eric B. Ford...

 VY>  >>> Regurgitating Eric B. Ford to Victor Yiu <<<
 VY>
 VY> Hi, Eric!
 VY>
 VY>  EBF> Both of you...  I'll trade disks of fractals I've found.
 VY> Interested?
 VY>
 VY> What d'ya have?  I have generated some neat ones, and transformed
 VY> several.

Hey heres some neato code. I don't know if it's quite a fractal
but, according to this definition (which goes something like "A
mathematically generated image" it should be. I don't know it's

nice to look at anyways! <G>) Perhaps you or someone else will
enjoy it! I never used it much myself. (sorry for only using
v4.0, I don't have 6 compiled yet)
________O_/________________________| SNIP |______________________\_O_______
        O \                        | HERE |                      / O
'This file created by PostIt! v4.0.
'>>> Start of page 1.

DEFINT A-Z

CLS


COLOR 15, 1
PRINT "                                             "; CHR$(222)
PRINT "  Copyright(c) Calvin French 1993            "; CHR$(222)
PRINT "                                             "; CHR$(222)
PRINT "  Phazex Fractal (??) by Calvin French!      "; CHR$(222)
PRINT "  Higher Phazex levels result in various     "; CHR$(222)
PRINT "  gradients. As well, the higher the phazex  "; CHR$(222)
PRINT "  level, the longer it will take to          "; CHR$(222)
PRINT "  Generate the fractal. That is if this      "; CHR$(222)
PRINT "  can be classified as a fractal. It is      "; CHR$(222)
PRINT "  almost anyways. Try 14 or 13 to get the    "; CHR$(222)
PRINT "  feel of it, and then try 100. Pressing     "; CHR$(222)
PRINT "  a key will terminate Phazex. You can       "; CHR$(222)
PRINT "  modify it to BSAVE the screen, however     "; CHR$(222)
PRINT "  you will need to save the palette also     "; CHR$(222)
PRINT "                                             "; CHR$(222)
COLOR 15, 0
PRINT STRING$(46, 223)
PRINT
INPUT "Phazex Level? ", phazed

SCREEN 13

DIM palvals&(63)

FOR n = 0 TO 63
     PALETTE n, (65536 * n) + (256 * n) + n
NEXT n

DIM lhx(200)
DIM lhy(200)

RANDOMIZE TIMER

FOR n = 1 TO 200
     lhx(n) = INT((15 - 1 + 1) * RND + 1)
     lhy(n) = INT((15 - 1 + 1) * RND + 1)
NEXT n

ud = 1

FOR ab = 1 TO 160

FOR y = 1 + ab TO phazed + ab
     FOR x = 1 TO 200
          lhx(x) = lhx(x) + ud
          IF lhx(x) > 63 THEN
               lhx(x) = 63
               ud = -1
          END IF
          IF lhx(x) < 1 THEN
               lhx(x) = 1
               ud = 1
          END IF
          IF INKEY$ <> "" THEN END
          PSET (y + ab, x), lhx(x)
     NEXT x
NEXT y
NEXT ab

WHILE INKEY$ = "": WEND
END


________O_/________________________| SNIP |______________________\_O_______
        O \                        | HERE |                      / O

... OFFLINE 1.52  "STACKIVORE: program that eats the stack"

--- Maximus 2.01wb
 * Origin: RJ's Byteline =[HST/DS]= Calgary (403)247-3180 CANADA (1:134/75)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 575 950 203/23 209/209
SEEN-BY: 280/1 390/1 396/1 15 397/2 2230/100 2440/5 3603/20