' ' © JM. :: Hecho en Ronda ' ' ' Procedente de... es.geocities.com/jm00092 ' '______________________________________________________________________ ' RANDOMIZE TIMER SCREEN 12 CLS 'dibuja las monta¤as c = INT(RND * 200) + 200 b = c PSET (0, c) FOR aa = 80 TO 640 STEP 80 a = INT(RND * 200) + 200 IF a > b THEN b = a + 10 LINE STEP(0, 0)-(aa, a), 5 NEXT LINE STEP(0, 0)-(640, b), 5 LINE STEP(0, 0)-(0, b), 5 PAINT (0, 0), 1, 5 PAINT (10, b - 1), 5, 5 PAINT (10, b + 1), 2, 5 'cae la nieve DO a = INT(RND * 640) FOR b = 0 TO 480 PSET (a, b - 5), 1 IF POINT(a, b) > 1 THEN PSET (a, b - 1), 15 LINE (a, b - 2)-(a, b - 6), 1 EXIT FOR END IF PSET (a, b), 15 NEXT LOOP WHILE INKEY$ = ""