'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                      
SCREEN 12
RANDOMIZE TIMER

DO
   c = INT(RND * 15) + 1
   x = INT(RND * 640)
   y = INT(RND * 480)
   CLS
   LINE (x, y)-(INT(RND * 640), INT(RND * 480)), c
   FOR n = 1 TO INT(RND * 10) + 10
      LINE STEP(0, 0)-(INT(RND * 640), INT(RND * 480)), c
   NEXT
   LINE STEP(0, 0)-(x, y), c

   FOR DELAY = 1 TO 15000: NEXT
LOOP WHILE INKEY$ = ""