'
'  © 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$ = ""