' ' © 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