'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                 >>>>Esperar a que termine<<<<      
SCREEN 12
FOR b = 1 TO 15
   PSET (80, 480)
   FOR a = 0 TO 480 STEP b
      LINE STEP(0, 0)-(80 + a, 479), b  '(a / 40) + 3
      LINE STEP(0, 0)-(560, 480 - a), b
      LINE STEP(0, 0)-(560 - a, 0), b
      LINE STEP(0, 0)-(80, a), b
   NEXT
NEXT

SOUND 1000, 1
SLEEP