10 REM > BLib.FDate

   20 REM Convert file dates and times

   30 :

   40 REM FNf_date - convert date into internal format

   50 REM FNf_time - convert time into internal format

   60 REM --------------------------------------------

   70 DEFFNf_date(d%,m%,y%):y%=y%-1981:=d%+m%*256+(y%AND15)*4096+(y%DIV16)*32

   80 DEFFNf_time(h%,m%,s%):=h%+m%*256+s%*65536

   90 :

  100 REM PROCf_date - extract date from internal format

  110 REM PROCf_time - extract time from internal format

  120 REM ----------------------------------------------

  130 DEFPROCf_date(d%):day%=d%AND31:month%=(d%AND&F00)DIV256

  140 year%=(d%AND&F000)DIV4096+(d%AND&E0)/2+1981:ENDPROC

  150 DEFPROCf_time(t%):hour%=t%AND255:minute%=(t%AND&FF00)DIV256

  160 second%=(t%AND&FF0000)DIV65536:ENDPROC