'
'
'
'
'
'
'
'
'                      FFFFFF     555555
'                      FF         55
'           PULSAR     FFFFFF     55555       PARA EMPEZAR
'                      FF             55
'                      FF          5555
'
'
'
'
'
'
'
'
'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB centra (fila!, texto$, tx$)
SCREEN 9
INPUT "Escribe tu nombre: ", nombre$
 
IF TIMER < 25200 THEN :                    saludo$ = "BUENAS MADRUGADAS"
IF TIMER >= 25200 AND TIMER < 43200 THEN : saludo$ = "BUENOS DIAS"
IF TIMER >= 43200 AND TIMER < 67200 THEN : saludo$ = "BUENAS TARDES"
IF TIMER >= 67200 THEN :                   saludo$ = "BUENAS NOCHES"
COLOR 10, 36: CLS
PAINT (1, 1), 15
CIRCLE (320, 120), 122, 0
CIRCLE (320, 120), 117, 0

CIRCLE (320, 135), 72, 0, 3.141592654#, 0
CIRCLE (320, 135), 66, 0, 3.141592654#, 0
CIRCLE (251, 134), 3, 0, 0, 3.141592654#
CIRCLE (389, 134), 3, 0, 0, 3.141592654#
PAINT (320, 185), 0, 0
CIRCLE (275, 90), 15, 0
PAINT (275, 90), 0, 0
CIRCLE (365, 90), 15, 0
PAINT (365, 90), 0, 0



PAINT (320, 33), 0, 0
PAINT (320, 53), 14, 0
COLOR 10
centra 20, saludo$, UCASE$(nombre$)
SLEEP

SUB centra (fila, texto$, tx$)
    LOCATE fila, 41 - (3 + LEN(texto$) + LEN(tx$)) / 2
    PRINT " "; texto$; " "; tx$; " "
END SUB