х ╕ BASE 1: └∙н I,J,M: RRRч5С "Convert a month, day and year to a Julian date.":С:Сi(С:С:Е"Enter a date (mm/dd/yy or mm/dd/yyyy)";D$Р2Н F: С: С "JULIAN DATE = ";JDATEЪ<Й (▓FП SUBROUTINE JDATEхP:П┘ converts DATE (mm/dd/yy) to Julian dateZ:П┘ main requires Option Base 1Cd:П┘ uses: variables MONLEN,MM,DD,YY,JDATE,II,Ssn:П┘ input of D$ (uses a DATA statement){x:П┘дВЛ RRRч ═ к :б Ж MONLEN(): RRRч┼МВ IIч ╠ : З MONLEN(II): ГяЦД 31,28,31,30,31,30,31,31,30,31,30,31ўа:П┘кЛ Г(D$,,) ч "/" ═ D$ ч "0"щD$e┤Л Г(D$,,) ч "/" ю Г(D$,,) ч "/" ═ D$ ч Г(D$,,)щ"0"щ Г(D$,)К╛IIч Т(D$): JDATEч: MONLEN()чк╚Л IIч я IIч ═ ▄ :б ╥щ╥С: С"... Improper date format (mm/dd/yy or yyyy)":С:Й /▄MMч Ф( Б(D$,)): Л MMц я MMш ═ С:С"Invalid month -";MM:С:Й vцDDч Ф( Г(D$,,)): Л DDц я DDш ═ С:С"Invalid day -";DD: С:Й жЁЛ IIч ═ YYч Ф( В(D$,)) :б YYч Ф( В(D$,))╛·Л MMц ═ :б сЛ YYьч Е(YYь) ═ MONLEN()ч/DDч Ф( Г(D$,,)): Л DDцMONLEN(MM) я DDш ═ С:С"Invalid day -";DD:С:Й BЛ MMъч ═ 6V"В IIч ╠ (MMъ)y, JDATEчJDATEщMONLEN(II): Г IIМ6JDATEчJDATEщDDТ@О