'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB pared (h!, v!, f!, c!)
SCREEN 13
DIM SHARED lad(0 TO 8)
FOR n = 1 TO 8
   READ lad(n)
NEXT
FOR h = 10 TO 270 STEP 40
   pared h, 10, 60, 1
   FOR v = 10 TO 150 STEP 45
      LINE (h + 12, v)-STEP(27, 3), 30, BF
   NEXT
NEXT

SLEEP

pared h, 10, 60, 1
PAINT (1, 1), 32
LINE (0, 120)-(320, 200), 2, BF

pared 50, 50, 30, 10
pared 100, 85, 20, 15

DATA 4,12,40,41,42,64,65,88

SUB pared (h, v, f, c)
l = 4
FOR vv = v + (f * 3) - 3 TO v STEP -3
IF l = 4 THEN l = 0 ELSE l = 4
IF l = 4 THEN
LINE (h - 1, vv - 1)-STEP(4, 3), 0, B
LINE (h, vv)-STEP(2, 1), (lad(INT(RND * 8) + 1)), BF
END IF
FOR hh = h TO h + (c * 8) - 1 STEP 8
RANDOMIZE TIMER
cc = lad(INT(RND * 8) + 1)
LINE (hh + l - 1, vv - 1)-STEP(8, 3), 0, B
LINE (hh + l, vv)-STEP(6, 1), cc, B
NEXT
IF l = 0 THEN
LINE (hh + l - 1, vv - 1)-STEP(4, 3), 0, B
LINE (hh + l, vv)-STEP(2, 1), lad(INT(RND * 8) + 1), B
END IF
NEXT
END SUB