'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                 
'
'          PROGRAMA PARA DIBUJAR UNA CASA
'          ------HECHO EN RONDA----------
'          ------------------------------
'
'          <F5 = EMPEZAR>
'
'          HAY QUE SELECCIONAR LA POSICIàN Y EL NéMERO DE LA PIEZA
'
'    1.- PUERTA DE CRISTALES
'    2.- PARED VACÖA
'    3.- VENTANA GRANDE
'    4.- VENTANA MµS PEQUE¥A
'    5.- TROZO DE TEJADO
'    6.- CIELO AZUL
'    7.- ESQUINA IZQUIERDA DEL TEJADO
'    8.- ESQUINA DERECHA DEL TEJADO
'
'
'
DECLARE SUB TEJADOPICODERECHO ()
DECLARE SUB TEJADOPICOIZQUIERDO ()
DECLARE SUB TEJADOSINNADA ()
DECLARE SUB CIELO ()
DECLARE SUB VENTANACHICA ()
DECLARE SUB VENTANAGRANDE ()
DECLARE SUB PUERTADECRISTALES ()
DECLARE SUB PAREDVACIA ()
DECLARE SUB pantalla ()
DECLARE SUB ELECCION ()
SCREEN 9
COLOR 14, 36: CLS
LOCATE 11, 25: PRINT "BIENVENIDO A UN PROGRAMA BASIC"
LOCATE 13, 33: PRINT "HECHO EN RONDA"
DO: LOOP WHILE INKEY$ = ""
SOUND 900, 2

SCREEN 12
PALETTE 4, 63
pantalla
ELECCION

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB CIELO
LINE STEP(0, 0)-STEP(100, 100), 11, BF
ELECCION
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB ELECCION
LOCATE 27, 55: PRINT SPACE$(24)
LOCATE 28, 55: PRINT SPACE$(24)
LOCATE 28, 45: COLOR 10: PRINT TIME$
COLOR 15
LOCATE 27, 55: INPUT "POSICIàN (1 al 24): ", posicion$
LOCATE 28, 55: INPUT "PIEZA (1 al 8): ", pieza$
posicion = VAL(posicion$)
pieza = VAL(pieza$)
SELECT CASE posicion
   CASE 1
      PSET (20, 10)
   CASE 2
      PSET (120, 10)
   CASE 3
      PSET (220, 10)
   CASE 4
      PSET (320, 10)
   CASE 5
      PSET (420, 10)
   CASE 6
      PSET (520, 10)
   CASE 7
      PSET (20, 110)
   CASE 8
      PSET (120, 110)
   CASE 9
      PSET (220, 110)
   CASE 10
      PSET (320, 110)
   CASE 11
      PSET (420, 110)
   CASE 12
      PSET (520, 110)
   CASE 13
      PSET (20, 210)
   CASE 14
      PSET (120, 210)
   CASE 15
      PSET (220, 210)
   CASE 16
      PSET (320, 210)
   CASE 17
      PSET (420, 210)
   CASE 18
      PSET (520, 210)
   CASE 19
      PSET (20, 310)
   CASE 20
      PSET (120, 310)
   CASE 21
      PSET (220, 310)
   CASE 22
      PSET (320, 310)
   CASE 23
      PSET (420, 310)
   CASE 24
      PSET (520, 310)
   CASE 0
      END
   CASE ELSE
      ELECCION
END SELECT

SELECT CASE pieza
CASE 1
 PUERTADECRISTALES
CASE 2
 PAREDVACIA
CASE 3
 VENTANAGRANDE
CASE 4
 VENTANACHICA
CASE 5
 TEJADOSINNADA
CASE 6
 CIELO
CASE 7
 TEJADOPICOIZQUIERDO
CASE 8
 TEJADOPICODERECHO
CASE 0
END
CASE ELSE
BEEP
 ELECCION
END SELECT

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB pantalla
PAINT (1, 1), 1
COLOR 15: LOCATE 27, 3: PRINT "1    2    3    4    5    6    7    8    "
COLOR 15: LOCATE 28, 3: PRINT "                                        "
LINE (20, 10)-(620, 410), 15, BF
LINE (20, 10)-(620, 410), 0, B
PSET (24, 420)
LINE STEP(0, 0)-STEP(20, 20), 7, BF
LINE STEP(-4, 0)-STEP(-12, -16), 5, BF
LINE STEP(1, 1)-STEP(4, 11), 11, BF
LINE STEP(2, -11)-STEP(4, 11), 11, BF
PSET (64, 420)
LINE STEP(0, 0)-STEP(20, 20), 7, BF
PSET (104, 420)
LINE STEP(0, 0)-STEP(20, 20), 7, BF
LINE STEP(-4, -6)-STEP(-14, -10), 5, BF
LINE STEP(1, 1)-STEP(3, 8), 14, BF
LINE STEP(2, -8)-STEP(2, 8), 14, BF
LINE STEP(2, -8)-STEP(3, 8), 14, BF
PSET (144, 420)
LINE STEP(0, 0)-STEP(20, 20), 7, BF
LINE STEP(-5, -6)-STEP(-10, -10), 5, BF
LINE STEP(1, 1)-STEP(3, 8), 14, BF
LINE STEP(2, -8)-STEP(3, 8), 14, BF
PSET (184, 420)
LINE STEP(0, 0)-STEP(20, 4), 11, BF
LINE STEP(0, 16)-STEP(-20, -16), 4, BF
PSET (224, 420)
LINE STEP(0, 0)-STEP(20, 20), 11, BF
PSET (264, 420)
LINE STEP(0, 0)-STEP(20, 20), 11, BF
LINE STEP(0, 0)-STEP(-10, -16), 4, BF
LINE STEP(0, 0)-STEP(-10, 16), 4
LINE STEP(0, 0)-STEP(10, 0), 4
PAINT STEP(-5, -5), 4, 4
PSET (304, 420)
LINE STEP(0, 0)-STEP(20, 20), 11, BF
LINE STEP(0, 0)-STEP(-10, -16), 4
LINE STEP(0, 0)-STEP(-10, 16), 4, BF
LINE STEP(0, 0)-STEP(20, 0), 4
PAINT STEP(-5, -5), 4, 4

ELECCION
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB PAREDVACIA
LINE STEP(0, 0)-STEP(100, 100), 7, BF
ELECCION
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB PUERTADECRISTALES
LINE STEP(0, 0)-STEP(100, 100), 7, BF
LINE STEP(-20, 0)-STEP(-60, -80), 5, BF
LINE STEP(5, 5)-STEP(20, 55), 11, BF
LINE STEP(10, -55)-STEP(20, 55), 11, BF
ELECCION

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB TEJADOPICODERECHO
LINE STEP(0, 0)-STEP(100, 100), 11, BF
LINE STEP(0, 0)-STEP(-50, -80), 4
LINE STEP(0, 0)-STEP(-50, 80), 4, BF
LINE STEP(0, 0)-STEP(100, 0), 4
PAINT STEP(-25, -25), 4, 4
ELECCION

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB TEJADOPICOIZQUIERDO
LINE STEP(0, 0)-STEP(100, 100), 11, BF
LINE STEP(0, 0)-STEP(-50, -80), 4, BF
LINE STEP(0, 0)-STEP(-50, 80), 4
LINE STEP(0, 0)-STEP(50, 0), 4
PAINT STEP(-25, -25), 4, 4
ELECCION
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB TEJADOSINNADA
LINE STEP(0, 0)-STEP(100, 20), 11, BF
LINE STEP(0, 80)-STEP(-100, -80), 4, BF
ELECCION
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB VENTANACHICA
LINE STEP(0, 0)-STEP(100, 100), 7, BF
LINE STEP(-25, -30)-STEP(-50, -50), 5, BF
LINE STEP(5, 5)-STEP(17, 40), 14, BF

LINE STEP(6, -40)-STEP(17, 40), 14, BF
ELECCION

END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                                               
SUB VENTANAGRANDE
LINE STEP(0, 0)-STEP(100, 100), 7, BF
LINE STEP(-15, -30)-STEP(-70, -50), 5, BF
LINE STEP(5, 5)-STEP(15, 40), 14, BF
LINE STEP(5, -40)-STEP(20, 40), 14, BF
LINE STEP(5, -40)-STEP(15, 40), 14, BF
ELECCION
END SUB