'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB modulo (h!, v!, p!, pp!, c1!, c2!, c3!, c4!)
SCREEN 13


c1 = 111
c2 = 42
c3 = 39
c4 = 44

FOR v = 10 TO 150 STEP 20
   FOR h = 90 - (v / 2) TO 90 + ((v / 2) - 10) STEP 20
      modulo h, v, 15, 12, c1, c2, c3, c4
      modulo h + 140, v, 15, 12, c1, c2, c3, c4
   NEXT
NEXT

FOR h = 5 TO 310 STEP 20
   modulo h, 170, 15, 0, c1, c2, c3, c4
NEXT

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB modulo (h, v, p, pp, c1, c2, c3, c4)
LINE (h, v)-(h + 8, v + p), c1, BF
LINE (h + 2, v + p)-(h + 6, v + p + pp), c1, BF

LINE (h - 1, v - 2)-STEP(0, p), c2
LINE (h - 2, v - 4)-STEP(0, p), c2
LINE (h - 3, v - 6)-STEP(0, p), c2

LINE (h + 9, v - 2)-STEP(0, p), c3
LINE (h + 10, v - 4)-STEP(0, p), c3
LINE (h + 11, v - 6)-STEP(0, p), c3

LINE (h - 0, v - 2)-STEP(8, 1), c4, B
LINE (h - 1, v - 4)-STEP(10, 1), c4, B
LINE (h - 2, v - 6)-STEP(12, 1), c4, B

LINE (h - 0, v - 8)-STEP(8, 1), c4, B
LINE (h + 1, v - 10)-STEP(6, 1), c4, B
LINE (h + 2, v - 12)-STEP(4, 1), c4, B

END SUB