Click above to get retro games delivered to your door ever month!

 getsetepoch()       Get and set the epoch flag
------------------------------------------------------------------------------
 Declaration
   getset.hdr

 Syntax
   func uint getsetepoch extern
   param value uint uYear

 Arguments
   uYear is the new epoch year value.

 Return
   The previous epoch year value.

 Description
   The getsetepoch() function sets the epoch year and returns its
   previous value.

 Example
   #define EXAMPLE_DATE
   #include example.hdr

   proc Test_getsetepoch
   vardef
      uint nEpoch
   enddef
   ? getepoch()
   nEpoch := getsetepoch( 1980 )   // save and set epoch
   ? getepoch()
   getsetepoch( nEpoch )           // restore epoch
   ? getepoch()
   endproc

   proc main
   Test_getsetepoch()
   endproc