'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                                 RELOJ DIGITAL RUIDOSO
'
DECLARE SUB N (X!, Y!, T!, C!, N!)
DECLARE SUB MARCADOR (h!, v!, C!, T!, CC$)
SCREEN 12
PAINT (1, 1), 8

LINE (200, 200)-(345, 248), 0, BF

CIRCLE (256, 212), 2, 10
PAINT (256, 212), 10, 10
CIRCLE (256, 236), 2, 10
PAINT (256, 236), 10, 10
CIRCLE (316, 212), 2, 10
PAINT (316, 212), 10, 10
CIRCLE (316, 236), 2, 10
PAINT (316, 236), 10, 10
DO
   tim$ = TIME$
   IF MID$(tim$, 1, 1) = MID$(ta$, 1, 1) THEN : :  ELSE : N 200, 200, 20, 10, VAL(MID$(tim$, 1, 1))
   IF MID$(tim$, 2, 1) = MID$(ta$, 2, 1) THEN : :  ELSE : N 225, 200, 20, 10, VAL(MID$(tim$, 2, 1))
   IF MID$(tim$, 4, 1) = MID$(ta$, 4, 1) THEN : :  ELSE : N 260, 200, 20, 10, VAL(MID$(tim$, 4, 1))
   IF MID$(tim$, 5, 1) = MID$(ta$, 5, 1) THEN : :  ELSE : N 285, 200, 20, 10, VAL(MID$(tim$, 5, 1))
   IF MID$(tim$, 7, 1) = MID$(ta$, 7, 1) THEN : :  ELSE : N 320, 200, 20, 10, VAL(MID$(tim$, 7, 1))
   IF MID$(tim$, 8, 1) = MID$(ta$, 8, 1) THEN : :  ELSE : N 345, 200, 20, 10, VAL(MID$(tim$, 8, 1))
   ta$ = tim$
   SLEEP 1

LOOP WHILE INKEY$ = ""

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
'                              Hecho en  Ronda
'
'     DIBUJA EN LA PANTALLA UN DIGITO DE MARCADOR DIGITAL
'                                                      
' h/v....Posici¢n esquina superior derecha.           
' c......Color de iluminaci¢n de los segmentos.                    1
' t......Tama¤o de proporci¢n (M¡nimo aceptable c=12).           2   3
' cc$....Cadena bin ria de 7 ceros y/o unos, Indica                4
'        los segmentos encendidos(1) y apagados(0).              5   6
'                                                                  7
'                                          SEGMENTOS--------->           
'                                                     
'
'                                                              
SUB MARCADOR (h, v, C, T, CC$)
h = h + 4
v = v + 4

''''SONIDO

FOR A = 1 TO 7
   SOUND 7000, .7
   IF MID$(CC$, A, 1) = "1" THEN : SOUND 1000, .7:  ELSE : SOUND 3000, .7
NEXT

LINE (h - 4, v - 4)-(h + T + 4, v + T + T + 4), 0, BF

IF MID$(CC$, 1, 1) = "1" THEN : LINE (h + 2, v)-(h + T - 2, v), C: LINE (h + 3, v + 1)-(h + T - 3, v + 1), C: LINE (h + 4, v + 2)-(h + T - 4, v + 2), C
IF MID$(CC$, 2, 1) = "1" THEN : LINE (h, v + 2)-(h, v + T - 2), C: LINE (h + 1, v + 3)-(h + 1, v + T - 3), C: LINE (h + 2, v + 4)-(h + 2, v + T - 4), C
IF MID$(CC$, 3, 1) = "1" THEN : LINE (h + T, v + 2)-(h + T, v + T - 2), C: LINE (h + T - 1, v + 3)-(h + T - 1, v + T - 3), C: LINE (h + T - 2, v + 4)-(h + T - 2, v + T - 4), C
IF MID$(CC$, 4, 1) = "1" THEN : LINE (h + 2, v + T)-(h + T - 2, v + T), C: LINE (h + 3, v + T - 1)-(h + T - 3, v + T - 1), C: LINE (h + 3, v + T + 1)-(h + T - 3, v + T + 1), C
IF MID$(CC$, 5, 1) = "1" THEN : LINE (h, v + T + 2)-(h, v + T + T - 2), C: LINE (h + 1, v + T + 3)-(h + 1, v + T + T - 3), C: LINE (h + 2, v + T + 4)-(h + 2, v + T + T - 4), C
IF MID$(CC$, 6, 1) = "1" THEN : LINE (h + T, v + T + 2)-(h + T, v + T + T - 2), C: LINE (h + T - 1, v + T + 3)-(h + T - 1, v + T + T - 3), C: LINE (h + T - 2, v + T + 4)-(h + T - 2, v + T + T - 4), C
IF MID$(CC$, 7, 1) = "1" THEN : LINE (h + 2, v + T + T)-(h + T - 2, v + T + T), C: LINE (h + 3, v + T + T - 1)-(h + T - 3, v + T + T - 1), C: LINE (h + 4, v + T + T - 2)-(h + T - 4, v + T + T - 2), C

END SUB

SUB N (X, Y, T, C, NU)
SELECT CASE NU
CASE 1: MARCADOR X, Y, C, T, "0010010"
CASE 2: MARCADOR X, Y, C, T, "1011101"
CASE 3: MARCADOR X, Y, C, T, "1011011"
CASE 4: MARCADOR X, Y, C, T, "0111010"
CASE 5: MARCADOR X, Y, C, T, "1101011"
CASE 6: MARCADOR X, Y, C, T, "1101111"
CASE 7: MARCADOR X, Y, C, T, "1010010"
CASE 8: MARCADOR X, Y, C, T, "1111111"
CASE 9: MARCADOR X, Y, C, T, "1111011"
CASE 0: MARCADOR X, Y, C, T, "1110111"
END SELECT

END SUB