' JUL2GRE$(0.0)  Convert Julian Date to Gregorian Format   04/05/1988-02/05/2010
' ------------------------------------------------------------------------------

  #INCLUDE "JUL2GRE"

  FUNCTION PBMAIN

  PRINT "JUL2GRE$(0.0)  Convert Julian Date to Gregorian Format  ";DATE$;
  PRINT "  ";LEFT$(TIME$,5)
  PRINT STRING$(73,"-")
  PRINT

  PRINT "JUL2GRE$(''        )='"; _
         JUL2GRE$(""        );"'"
  PRINT "JUL2GRE$('87-31'   )='"; _
         JUL2GRE$("87-31"   );"'"
  PRINT "JUL2GRE$('1987-31' )='"; _
         JUL2GRE$("1987-31" );"'"
  PRINT "JUL2GRE$('19*7-031')='"; _
         JUL2GRE$("19*7-031");"'"
  PRINT "JUL2GRE$('1988-0#1')='"; _
         JUL2GRE$("1988-0#1");"'"
  PRINT "JUL2GRE$('87-000'  )='"; _
         JUL2GRE$("87-000"  );"'"
  PRINT "JUL2GRE$('87-366'  )='"; _
         JUL2GRE$("87-366"  );"'"
  PRINT "JUL2GRE$('1988-367')='"; _
         JUL2GRE$("1988-367");"'"
  PRINT "JUL2GRE$('87-031'  )='"; _
         JUL2GRE$("87-031"  );"'"
  PRINT "JUL2GRE$('87-059'  )='"; _
         JUL2GRE$("87-059"  );"'"
  PRINT "JUL2GRE$('87-090'  )='"; _
         JUL2GRE$("87-090"  );"'"
  PRINT "JUL2GRE$('87-120'  )='"; _
         JUL2GRE$("87-120"  );"'"
  PRINT "JUL2GRE$('87-151'  )='"; _
         JUL2GRE$("87-151"  );"'"
  PRINT "JUL2GRE$('87-181'  )='"; _
         JUL2GRE$("87-181"  );"'"
  PRINT "JUL2GRE$('87-212'  )='"; _
         JUL2GRE$("87-212"  );"'"
  PRINT "JUL2GRE$('87-243'  )='"; _
         JUL2GRE$("87-243"  );"'"
  PRINT "JUL2GRE$('87-273'  )='"; _
         JUL2GRE$("87-273"  );"'"
  PRINT "JUL2GRE$('87-304'  )='"; _
         JUL2GRE$("87-304"  );"'"
  PRINT "JUL2GRE$('87-334'  )='"; _
         JUL2GRE$("87-334"  );"'"
  PRINT "JUL2GRE$('87-365'  )='"; _
         JUL2GRE$("87-365"  );"'"
  PRINT "JUL2GRE$('1988-031')='"; _
         JUL2GRE$("1988-031");"'"
  PRINT "JUL2GRE$('1988-060')='"; _
         JUL2GRE$("1988-060");"'"
  PRINT "JUL2GRE$('1988-091')='"; _
         JUL2GRE$("1988-091");"'"
  PRINT "JUL2GRE$('1988-121')='"; _
         JUL2GRE$("1988-121");"'"
  PRINT "JUL2GRE$('1988-152')='"; _
         JUL2GRE$("1988-152");"'"
  PRINT "JUL2GRE$('1988-182')='"; _
         JUL2GRE$("1988-182");"'"
  PRINT "JUL2GRE$('1988-213')='"; _
         JUL2GRE$("1988-213");"'"
  PRINT "JUL2GRE$('1988-244')='"; _
         JUL2GRE$("1988-244");"'"
  PRINT "JUL2GRE$('1988-274')='"; _
         JUL2GRE$("1988-274");"'"
  PRINT "JUL2GRE$('1988-305')='"; _
         JUL2GRE$("1988-305");"'"
  PRINT "JUL2GRE$('1988-335')='"; _
         JUL2GRE$("1988-335");"'"
  PRINT "JUL2GRE$('1988-366')='"; _
         JUL2GRE$("1988-366");"'"

  END FUNCTION