' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SCREEN 13 DO FOR n = 0 TO 120 LINE (n, 0)-STEP(0, 199), (n / 3) + 16 LINE (0, n)-STEP(319, 0), (n / 3) + 16 LINE (320 - n, 0)-STEP(0, 199), (n / 3) + 16 LINE (0, 200 - n)-STEP(319, 0), (n / 3) + 16 FOR delay = 1 TO 300: NEXT LINE (320 - n + 1, 0)-STEP(0, 199), 0 LINE (0, 200 - n + 1)-STEP(319, 0), 0 LINE (n - 1, 0)-STEP(0, 199), 0 LINE (0, n - 1)-STEP(319, 0), 0 NEXT LOOP WHILE INKEY$ = ""