' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SCREEN 12 RANDOMIZE TIMER DO LIN = INT(RND * 480) COL = INT(RND * 640) CLR = INT(RND * 15) STP = INT(RND * 10) + 2 CLSS = INT(RND * 17) AN = INT(RND * 300) + 1 SOUND (AN * 10) + 40, 2 IF CLSS = 4 THEN : CLS FOR a = 0 TO AN STEP STP LINE (COL - a, LIN - a)-(COL + a, LIN + a), CLR, B NEXT LOOP WHILE INKEY$ = ""