'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                      
SCREEN 12
RANDOMIZE TIMER
DO
   LIN = INT(RND * 480)
   COL = INT(RND * 640)
   CLR = INT(RND * 15)
   STP = INT(RND * 10) + 2
   CLSS = INT(RND * 17)
   AN = INT(RND * 300) + 1
   SOUND (AN * 10) + 40, 2
   IF CLSS = 4 THEN : CLS
   FOR a = 0 TO AN STEP STP
      LINE (COL - a, LIN - a)-(COL + a, LIN + a), CLR, B
   NEXT
LOOP WHILE INKEY$ = ""