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