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

lentitud = 600 'modificar para ajustar velocidad

PAINT (1, 1), 7
  
   LINE (50, 50)-(200, 350), 1, BF
   LINE (450, 50)-(600, 350), 1, BF
   LINE (50, 320)-(600, 340), 1, BF

   LINE (320, 310)-(335, 350), 1, BF
   LINE (325, 300)-(330, 345), 0, BF

   LINE (55, 55)-(195, 345), 11, BF
   LINE (55, 325)-(325, 335), 11, BF

   SLEEP

   LINE (325, 320)-(330, 345), 1, BF
   LINE (325, 280)-(330, 320), 0, BF

   FOR a% = 320 TO 455
      LINE (a%, 325)-(a%, 335), 11
      FOR delay = 1 TO lentitud: NEXT
   NEXT
   FOR a% = 55 TO 345
      LINE (55, a%)-(195, a%), 1
      LINE (455, 400 - a%)-(595, 400 - a%), 11
      FOR delay = 1 TO lentitud: NEXT
   NEXT
   FOR a% = 320 TO 455
      LINE (a% - 124, 325)-(a% - 124, 335), 1
      FOR delay = 1 TO lentitud: NEXT
   NEXT
   LINE (325, 280)-(330, 320), 7, BF
   LINE (325, 300)-(330, 345), 0, BF

   SLEEP