' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' ESTRELLA OCTOGONAL CAMBIANDO DE COLOR SCREEN 12 RANDOMIZE TIMER PALETTE 12, 63 DO ac = c c = INT(RND * 16) IF ac = c THEN c = INT(RND * 16) FOR a = 6 TO 255 STEP 4 PSET (320, 240), 0 DRAW "S" + STR$(a) + "C" + STR$(c) + " BR3hulhgldgfdrferue" FOR delay = 1 TO 1000: NEXT NEXT LOOP WHILE INKEY$ = ""