'
'  Š JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB boton (H!, V!, L!, A!, SOL!, SOMBRA!, CARA!, BORDE!)
RANDOMIZE TIMER
SCREEN 12

DO
   FOR H = 0 TO 600 STEP 40
      FOR V = 0 TO 440 STEP 40
         ss = INT(RND * 15)
         tt = ss - 8
         IF ss < 8 THEN : ss = 7: tt = 8
         IF ss > 14 THEN : ss = 7: tt = 8
         boton H, V, 40, 40, 15, tt, ss, 0
      NEXT
   NEXT
   SLEEP 1
LOOP WHILE INKEY$ = ""

'
'                                                              Hecho en RONDA
'
'DIBUJA EN LA PANTALLA UN BOTāN
'
'        H= POSICIāN HORIZONTAL DE LA ESQUINA SUPERIOR DERECHA
'        V= POSICIāN VERTICAL DE LA ESQUINA SUPERIOR DERECHA
'        L= LARGO DEL BOTāN
'        A= ALTO DEL BOTāN
'      SOL= COLOR DE LA PARTE ILUMINADA IZQUIERDA Y SUPERIOR
'   SOMBRA= COLOR DE LA PARTE OSCURA DERECHA E INFERIOR
'     CARA= COLOR DE LA PARTE FRONTAL DEL BOTāN
'    BORDE= COLOR DE LA LINEA QUE RODEA AL BOTāN
'
'
'   Nota: Loos valores de L y A no deben ser menores de 10
'
'
SUB boton (H, V, L, A, SOL, SOMBRA, CARA, BORDE)
IF L < 10 THEN : PRINT " ERROR EN DATOS DE LA SUB WINBUTTON ": BEEP: EXIT SUB
IF A < 10 THEN : PRINT " ERROR EN DATOS DE LA SUB WINBUTTON ": BEEP: EXIT SUB
PSET (H, V)
LINE STEP(L, A)-STEP(-L, -A), BORDE, B
LINE STEP(1, 1)-STEP(L - 2, A - 2), SOL, BF
LINE STEP(-(L - 4), -(A - 4))-STEP(L - 6, A - 6), CARA, BF
LINE STEP(1, 1)-STEP(0, -(A - 4)), SOMBRA
LINE STEP(1, -1)-STEP(0, A - 2), SOMBRA
LINE STEP(0, 0)-STEP(-(L - 2), 0), SOMBRA
LINE STEP(1, -1)-STEP(L - 3, 0), SOMBRA

END SUB