'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB fuera (x!, y!, cl!, f!)
SCREEN 12

FOR v = 40 TO 340 STEP 100
   FOR h = 20 TO 520 STEP 100
      fuera h, v, v / 20, 0
   NEXT
NEXT

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                       SIMBOLO "SALIR"            
SUB fuera (x, y, cl, f)
PSET (x, y)
LINE STEP(0, 0)-STEP(60, 60), cl, BF
LINE STEP(-10, -10)-STEP(-40, -40), f, BF
LINE STEP(40, 5)-STEP(10, 30), f, BF
LINE STEP(-45, -20)-STEP(20, 10), cl, BF
LINE STEP(0, 10)-STEP(0, -30), cl
LINE STEP(0, 0)-STEP(30, 15), cl
LINE STEP(0, 1)-STEP(-30, 15), cl
PAINT STEP(5, -5), cl, cl
END SUB