ÿð ¸ BASE 1: † MONLEN()öÀ… "Enter year (yy or yyyy)";STYEARE(‹ STYEAR è d Í STYEAR ç STYEARélK2‘r<… "Enter Julian date (1-366)";DATE|F n³P‘:‘ "DAY = ";DAY, "MONTH = ";MONTH, "YEAR = ";YEAR¹Z‘Ãd‰ <Ën:Ù x PROGRAM PDATE - TO CONVERT CONSECUTIVE JULIAN DATES TO/‚:Ù MM/DD/YYYRjŒ:Ù by Deane Wang - Cybersoft Groupr–:Ù‹ :Ù NEEDS IN MAIN:©ª:Ù OPTION BASE 1È´:Ù DIM MONLEN(12)ì¾:Ù transfer argument as DATE È:Ù set STYEAR as first of of Julian counting(Ò:Ù=Ü:Ù INITIALIZEEæ:Ù€ðMONLEN()ç: MONLEN()ç: MONLEN()ç: MONLEN()ç»úMONLEN()ç: MONLEN()ç: MONLEN()ç: MONLEN()çùMONLEN()ç: MONLEN( )ç: MONLEN()ç: MONLEN()ç‚ Iç Ì : LENYR(I)çm: ƒ I":ÙF":Ù CONVERT TO 1 TO 366 UNITSN,:Ù‚6NFRYRçÿ…(DATEì 6‹) :Ùhow many 4 year cycles”@ ‚ NCTç Ì ÜJ ‹ ÿ†(((STYEARéNCTê)ìƒ)êÿ…((STYEARéNCTê)ì)) è ow Í ‰ ^èT ƒ NCT^JFDATEçDATEê(NFRYRëµ)hLENYR(NCT)çn'r ‚ Iç Ì N| ‹ (JFDATEêLENYR(I)) èç Í ‰ šk† JFDATEçJFDATEêLENYR(I)u ƒ I†šJDATEçJFDATE¤IçIê˜®:Ù½¸:Ù CALCULATE MONTH, DAY, YEARÅÂ:ÙßÌYEARçSTYEARéNFRYRëéI$Ö‹ ÿ†((YEARì)êÿ…(YEARì)) èow Í MONLEN()ç :Ùleap year???5à ‚ Mç Ì [ê ‹ JDATEêMONLEN(M)ê è Í ‰ wô JDATEçJDATEêMONLEN(M)þ ƒ MMONTHçMžMONLEN()ç¬DAYçJDATE²&Ž