home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / disk_20.zip / JULIAN.ZIP / JULIAN.PRO
Text File  |  1986-12-10  |  322b  |  16 lines
  1. *JULIAN.PRO
  2.  
  3. *PROCEDURE JULIAN
  4. *SET PRINT OFF
  5. *SET DEVICE TO SCREEN
  6.  
  7. Yy = RIGHT(STR(YEAR(DATE())),2)
  8. Date = '01/' + '01/' + Yy
  9. DDDD = CTOD(DATE)
  10. Jd = DATE() - DDDD + 1
  11. CLEAR
  12. @ 10, 25 SAY 'Today is day ' + LTRIM(STR(Jd)) + ' of 19' + Yy
  13. @ 12, 25 SAY 'Please wait while processing ... '
  14. *SET PRINT ON
  15. RETURN
  16.