'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                  
DECLARE SUB tablacolor (h1!, v1!, h2!, v2!, f!, c!, cl!, s!)
SCREEN 13

tablacolor 20, 20, 140, 180, 8, 3, 32, 2
tablacolor 160, 70, 310, 190, 8, 12, 50, 1

SLEEP

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                  
SUB tablacolor (h1, v1, h2, v2, f, c, cl, s)

N = cl - s

FOR h = h1 TO h2 STEP (h2 - h1) / c

   N = N + s
   LINE (h, v1)-(h, v2), N + 72
   LINE (h - 1, v1)-(h - 1, v2), N
   LINE (h + 1, v1)-(h + 1, v2), N + 144
NEXT

N = cl - s
FOR h = v1 TO v2 STEP (v2 - v1) / f
   N = N + s
   LINE (h1 - 1, h)-(h2, h), N + 72
   LINE (h1 - 1, h - 1)-(h2, h - 1), N + 0
   LINE (h1 - 1, h + 1)-(h2, h + 1), N + 144
NEXT

END SUB