Date   : Tue, 04 Aug 2009 17:15:58 +0200 (BST)
From   : johan@... (Johan Heuseveldt)
Subject: Level 4 FS Y2K query

Hi Michael,

On Tue 04 Aug, Michael Firth wrote:
> On Tue, 4 Aug 2009 13:04:58 +0200 (BST), Johan Heuseveldt
> <johan@...> wrote:
> > On Mon 03 Aug, Michael Firth wrote:

> > > However, when I create files (in particular using CopyFiles) the date
> > > is shown as 01.01.1981, and (today) the *DATE command returned "99th
> > > August 1989".
> > 
> > I did have a look at '*Date'.
> > Printing out was fixed to '198'. Then the calculated digit was added.
> > 
> > I'll upload soon
> > 
> >   <http://www.waarland.demon.nl/Econet/DATE/>
> > 
> > ('2Disassembled' not fully updated, so a few 'odd' remarks still present)
> > 
> > Later I would like to add the proper calculation (Julian?) from Jonathan.
> > (after asking him, of course, for permission)

> The code for that version of Date shows it doesn't stand much chance of
> working right.

To put it mildly! :-)

It's the only one I have. Perhaps newer versions should be present?

> As you say, the year is fixed to 198x, which means it would already have
> stopped working
> in 1990 (from the look of the code displaying that as '198:').
> 
> It also doesn't have any provision for the new date format - see:
> 
> http://www.heyrick.co.uk/econet/intro/y2k.html
> 
> This would need to be added in to get dates after 1996 to work right.

FileStore is quite able to handle that. My grey FileStore has
software version 1.31.
The 3 extra bits are also used in the file '4NEWsrc', into century
21xx as well!
You only need a SetTime to write the new format to FileStore too,
otherwise you can never read it back! :-)

A quick 'n dirty one - and very buggy - can be found here

  <http://www.waarland.demon.nl/Econet/SETTIME/>

which normally lives as (BASIC) '$.UTILS.SetTime'; originally Acorn.
(*I* made it buggy; Fill in all details for date and time)

> I think you mean BCD rather than Julian for the calculation - the date is
> already split into its
> component parts, so you don't need to worry about date formatting (which is
> where Gregorian / Julian etc
> comes in)

The code in the old *DATE calculates the day name. I assume the
restriction to '198x', also means a simplified version of day name
calculation, which is Julian I think. Surely nothing to do with BCD?


Anyway, I have seen some nice code@..., although I cannot
found my note on that atm.


I case you like to try, in '/Econet/DATE/', ready assembled versions
of DATE are present. 'DATE' for LIBRARY, and 'DATE2' for LIBRARY1,
where it should be renamed to DATE. This is the Master version.

No day calculations, and texts are in Dutch.
If you change these texts in the source file '4NEWsrc', you need
to re-assemble.

I have used John Kortink's 'Basic6502' for that with great pleasure
on the RiscPC:

  <http://web.inter.nl.net/users/J.Kortink/home/software/basic6502/>



Greetings,
Johan

-- 
Johan Heuseveldt <johan@...              >
  aka  waarland

  The best place is a Riscy place

No wonder I feel so tired -
I'm older now than I've ever been before.