' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' BORRA LA PANTALLA CON DISOLUCION DE CUADROS DECLARE SUB borra (m!) RANDOMIZE TIMER SCREEN 13 PAINT (1, 1), 15 borra 1 ' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' SUB borra (m) SELECT CASE m CASE 0 FOR a = 1 TO 3500 h = INT(RND * 32) * 10 v = INT(RND * 20) * 10 LINE (h, v)-STEP(9, 9), 0, BF NEXT LINE (0, 0)-(320, 200), 0, BF CASE ELSE FOR a = 1 TO 1100 h = INT(RND * 32) * 10 v = (INT(RND * 9) * 10) + 110 LINE (h, v)-STEP(9, 9), 0, BF NEXT LINE (0, 110)-(320, 200), 0, BF END SELECT END SUB