167. Auto-date function (for Master/Archimedes)
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
This Function is for adding to programs which expect a date entry of the form
dd.mm.yy , eg 25.05.86 . The date is automatically extracted from the
internal TIME$ function, thus saving the bother of manually entering it. Eg
D$=FNdate .
This Function occupies much less memory, and uses far fewer variables, than
a version published in a recent issue of Beebug. If you want to save even
more memory, then add lines 2010 and 2020 onto the end of line 2000. Note
that in line 2030, m% is the month number 1-12, and the RIGHT$ statement is
to format it as a string, with a leading zero if it is less than 10.

2000 DEFFNdate:LOCALm%
2010 m%=INSTR("JanFebMarAprMayJunJulAugSepOctNovDec",MID$(TIME$,8,3))
2020 m%=(m%-1)DIV3+1
2030 =MID$(TIME$,5,2)+"."+RIGHT$("0"+STR$(m%),2)+"."+MID$(TIME$,14,2)