'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB balcon (h!, v!)
DECLARE SUB puertabalcon (h!, v!)
DECLARE SUB ventanacocina (h!, v!)
DECLARE SUB ventana1 (h!, v!)
DECLARE SUB mediaventana (h!, v!)
DECLARE SUB ventanasalon (h!, v!)
SCREEN 12
PALETTE 12, 50
FOR v = 230 TO 455
LINE (524, v)-STEP(-40, -20), 7
LINE STEP(0, 0)-STEP(-54, 0), 11
LINE STEP(0, 0)-STEP(-60, -30), 0
LINE STEP(0, 0)-STEP(54, 0), 0
LINE STEP(0, 0)-STEP(-106, -53), 7
LINE STEP(0, 0)-STEP(-54, 0), 11
LINE STEP(0, 0)-STEP(-60, -30), 0
LINE STEP(0, 0)-STEP(54, 0), 0
LINE STEP(0, 0)-STEP(-34, -17), 7
NEXT

mediaventana 325, 158
LINE (4, 254)-STEP(60, 15), 15, BF
LINE (164, 337)-STEP(60, 15), 15, BF
LINE (306, 415)-STEP(60, 40), 15, BF
           
FOR v = 150 TO 91 STEP (-1)
LINE (305 - v - v, 455 - v)-STEP(-1, -35), 7, B
LINE STEP(0, -8)-STEP(0, 8), 7
LINE STEP(0, 0)-STEP(60, 0), 4
LINE STEP(0, 0)-STEP(-1, -190), 7, B
NEXT
FOR v = 90 TO 71 STEP (-1)
LINE (305 - v - v, 455 - v)-STEP(-1, -48), 7, B
LINE STEP(0, 0)-STEP(60, 0), 4
LINE STEP(0, 0)-STEP(-1, -177), 7, B
NEXT
FOR v = 70 TO 0 STEP (-1)
LINE (305 - v - v, 455 - v)-STEP(-1, -40), 7, B
LINE STEP(0, -8)-STEP(0, 8), 7
LINE STEP(0, 0)-STEP(60, 0), 4
LINE STEP(0, 0)-STEP(-1, -185), 7, B
NEXT
LINE (365, 455)-(470, 230), 15, BF
LINE (525, 455)-(630, 230), 15, BF

FOR h = 0 TO 28
LINE (220 + h + h, 80 - h)-STEP(304 - h - h, 152 - h), 12
LINE (220 + h + h + 2, 80 - h)-STEP(304 - h - h, 152 - h), 12
NEXT

LINE (525, 176)-STEP(0, 56), 4
LINE STEP(0, 0)-STEP(114, 0), 4
LINE STEP(0, 0)-(525, 175), 4
PAINT STEP(2, 20), 4, 4

LINE (370, 180)-(487, 213), 4, BF
LINE (206, 98)-(323, 131), 4, BF

FOR h = 0 TO 28
LINE (60 + h + h, 80 - h)-STEP(304 - h - h, 152 - h), 12
LINE (60 + h + h + 2, 80 - h)-STEP(304 - h - h, 152 - h), 12
NEXT

LINE (365, 176)-STEP(0, 56), 4
LINE STEP(0, 0)-STEP(114, 0), 4
LINE STEP(0, 0)-(365, 175), 4
PAINT STEP(2, 20), 4, 4

FOR v = 258 TO 410 STEP 42
ventana1 600, v
ventana1 570, v
ventana1 540, v
mediaventana 491, v - 17
ventana1 440, v
ventana1 410, v
ventana1 380, v


puertabalcon 340, v + 4
ventanasalon 324, v - 19
ventanacocina 306, v - 32

balcon 304, v - 14

ventanacocina 284, v - 43
ventanasalon 266, v - 48
puertabalcon 250, v - 41
ventanasalon 230, v - 66

balcon 231, v - 50

ventanasalon 210, v - 76
puertabalcon 190, v - 71
ventanasalon 174, v - 94
ventanacocina 156, v - 107

balcon 154, v - 89

ventanacocina 134, v - 118
ventanasalon 116, v - 123
puertabalcon 100, v - 116
ventanasalon 80, v - 141

balcon 81, v - 125

NEXT
END
FOR h = 0 TO 4
LINE (64 + (h * 75), 0)-STEP(0, 480), 14
LINE (640, 233 + (h * 42))-STEP(-277, 0), 9
LINE STEP(0, 0)-STEP(-400, -200), 14
NEXT

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB balcon (h, v)
FOR n = 1 TO 20
LINE (h + n + n, v + n)-STEP(-15, 0), 12
LINE STEP(0, 0)-STEP(0, -14), 0
LINE STEP(0, 14)-STEP(1, 2), 14, B
NEXT

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB mediaventana (h, v)
LINE (h, v)-STEP(-6, -3), 8
LINE STEP(0, 0)-STEP(0, -18), 8
LINE STEP(0, 0)-STEP(6, 3), 8
LINE STEP(0, 0)-STEP(0, 18), 8
PAINT STEP(-2, -3), 11, 8
END SUB

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


mediaventana h, v - 15
mediaventana h - 6, v - 18


LINE (h, v)-STEP(-6, -3), 8
LINE STEP(0, 0)-STEP(0, -15), 8
LINE STEP(0, 0)-STEP(6, 3), 8
LINE STEP(0, 0)-STEP(0, 15), 8
PAINT STEP(-2, -3), 11, 8
LINE (h - 6, v - 3)-STEP(-6, -3), 8
LINE STEP(0, 0)-STEP(0, -15), 8
LINE STEP(0, 0)-STEP(6, 3), 8
LINE STEP(0, 0)-STEP(0, 15), 8
PAINT STEP(-2, -3), 11, 8

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB ventana1 (h, v)
LINE (h, v)-STEP(16, -18), 11, BF
LINE (h, v)-STEP(8, -18), 8, B
LINE (h + 8, v)-STEP(8, -18), 8, B
END SUB

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


LINE (h, v)-STEP(-4, -2), 8
LINE STEP(0, 0)-STEP(0, -14), 8
LINE STEP(0, 0)-STEP(4, 2), 8
LINE STEP(0, 0)-STEP(0, 14), 8
PAINT STEP(-1, -3), 11, 8

LINE (h - 4, v - 2)-STEP(-4, -2), 8
LINE STEP(0, 0)-STEP(0, -14), 8
LINE STEP(0, 0)-STEP(4, 2), 8
LINE STEP(0, 0)-STEP(0, 14), 8
PAINT STEP(-1, -3), 11, 8

LINE (h - 8, v - 4)-STEP(-4, -2), 8
LINE STEP(0, 0)-STEP(0, -14), 8
LINE STEP(0, 0)-STEP(4, 2), 8
LINE STEP(0, 0)-STEP(0, 14), 8
PAINT STEP(-1, -3), 11, 8

END SUB

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

mediaventana h, v
mediaventana h - 6, v - 3
END SUB