'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB ladrillo (h!, v!)


SCREEN 13

FOR v = 201 TO 0 STEP -17
   FOR h = -40 + (v MOD 36) TO 320 STEP 42
      ladrillo h, v
      FOR dealy = 1 TO 30000: NEXT
   NEXT
   FOR h = -10 TO 330
      LINE (h, v - 16)-STEP(4, -4), 23
      LINE (h, v - 17)-STEP(4, -4), 25
      FOR dealy = 1 TO 500: NEXT
   NEXT
NEXT

SLEEP

'otra cosa
CLS

FOR v = 30 TO 190 STEP 30
   FOR h = -20 TO 330 - v - 40
      FOR g = 0 TO 15
         LINE (h, v - g)-STEP(16, -16), 16 + g
      NEXT
   NEXT
NEXT

SUB ladrillo (h, v)

LINE (h, v)-STEP(40, -14), 64, BF

FOR n = 1 TO 7
LINE (h + n, v - 14 - n)-STEP(40, 0), 65
LINE STEP(0, 0)-STEP(0, 14), 66
NEXT
PSET (h + 42, v - 4), 6
 DRAW "ebebeeugbgbgguebebee"
PSET (h + 42, v - 8), 6
 DRAW "ebebeeugbgbgguebebee"
PSET (h + 42, v - 12), 6
 DRAW "ebebeeugbgbgguebebee"

END SUB