Purdy colours

acme on 2003-05-15T15:46:07

While waiting for a test suite to run today, I messed around with clintp's Parrot BASIC compiler. I hadn't coded BASIC in a while, but it all came flooding back to me - the way you had to do "STEP -1" to step backwards, the NEXT. How retro it all is...

cls

FOR y = 30 TO 0 step -1
  bigc = y
  bigc = bigc * 0.1
  bigc = bigc - 1.5

  FOR x = 0 TO 75
    c = x
    c = c * 0.04
    c = c - 2.0
    bigz = 0.0
    Z = 0.0
    r = c
    i = bigc
    k = 0

      FOR k = 1 TO 112
      if (z*z + Z*Z > 10) THEN GOTO BREAKOUT
      t = (z * z) - (bigz * bigz) + r
      bigz = 2*z*bigz + i
      z = t
      next k

BREAKOUT:
    c = k mod 16
    color c, c
    print " ";
  next x
  print
next y

end

Cute, huh? What do you mean "But what does it do, acme?"? It draws a pretty Mandelbrot image using ANSI colours of course!

I'm still in denial about slides...