100 REMark *--------------------------------------------------------------------
110 REMark * FICHERO:  AhoraEs_bas
120 REMark * OBJETIVO: Presentar la fecha del reloj en formato especial
130 REMark * AUTOR:    Pedro Reina
140 REMark * FECHA:    D.26.7.1998
170 REMark *--------------------------------------------------------------------
180 :
360 InformaFecha
770 :
780 REMark *--------------------------------------------------------------------
790 REMark * PROCEDIMIENTO: InformaFecha
800 REMark *--------------------------------------------------------------------
810 DEFine PROCedure InformaFecha
820   a$=DATE$ : PRINT #0, "Ahora es: " ; Fecha$(-1) & ", " & a$(13 TO 20)
830 END DEFine InformaFecha
840 :
850 REMark *--------------------------------------------------------------------
860 REMark * FUNCION: Fecha$()
870 REMark *--------------------------------------------------------------------
880 DEFine FuNction Fecha$(segundos)
890   LOCal da_sem$(7),x$(3),d$(20),f$(12),mes%
900   da_sem$="DLMXJVS"
910   IF segundos=-1 : d$=DATE$ : ELSE : d$=DATE$(segundos) : END IF
920   IF segundos=-1 : x$=DAY$  : ELSE : x$=DAY$(segundos)  : END IF
930   f$=da_sem$(((x$ INSTR "SunMonTueWedThuFriSat")-1)/3+1)&"."
940   IF d$(10)="0" : f$=f$&d$(11) : ELSE : f$=f$&d$(10 TO 11) : END IF
950   mes%=((d$(6 TO 8) INSTR "JanFebMarAprMayJunJulAugSepOctNovDec")-1)/3+1
960   f$=f$&"."&mes%&"."&d$(1 TO 4) : RETurn f$
970 END DEFine Fecha$
