'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                            FUENTE CON CHORROS DE AGUA
SCREEN 12
FOR b = 1 TO 480 STEP 40
   FOR A = 0 TO 640
      cc = RND: IF cc > .9 THEN : c = 9:  ELSE : c = 11
      PSET (A, -1 * (ABS((TAN(A / 29) * b))) + 480), c
      PSET (A, -1 * (ABS((SIN(A / 29) * b))) + 480), c
      PSET (A, -1 * (ABS((COS(A / 29) * b))) + 480), c
   NEXT
NEXT
SOUND 1550, 4
SLEEP