| MDYMDY  +  DAYS BETWEEN TWO DATES ..- STATEMENTS 30 TO 60 REQUEST USER INPUT  FIRST DATE( 2  SECOND DATE< E..- SET VARIABLES TO BE USED IN SUBROUTINEF 6-P 6-Z 6-d A0m((- SAVE COMPUTED NUMBER OF DAYSIN Nn 6-w..- SET VARIABLES TO BE USED IN SUBROUTINEx 6- 6- 6- A0&&- CALCULATE DIFFERENCE AND PRINT 6-&  DIFFERENCE =  DAYS 33- RESTART OR END PROGRAM? USER INPUT REQUIRED MORE DATA (1=YES, 0=NO)"@@ - END PROGRAM A`@@- SUBROUTINE TO COMPUTE NUMBER OF DAYS FROM 0/0/0 TO M/D/Y''- START WITH TEST FOR UNREAL DATE??- GO TO CORRECT TEST DEPENDING ON NUMBER OF DAYS IN MONTHggA`AA`A@A`A@A`A`A@A`A@A`  UNREAL DATE11- STOP CALCULATIONS, RETURN TO MAIN PROGRAM$- MONTH HAS 31 DAYS!@1A@ AP''- MONTH IS FEBRUARY; A LEAP YEAR?$$'@P:'@,A"$$'A"P:'A,A ,$$'AP:'A,A 5**- NOT A LEAP YEAR; MONTH HAS 29 DAYS6!@(A@?&&- A LEAP YEAR; MONTH HAS 29 DAYS@!@)A@J APS- MONTH HAS 30 DAYST!@0A@]II- TABLE OF NUMBER OF DAYS FROM FIRST OF YEAR TO FIRST OF EACH MONTH^ 0,31,59,90,120,151,181,212_243,273,304,334h#i-@j"k qKK- GET NUMBER OF DAYS FROM JANUARY 1 TO FIRST OF MONTH FROM DATA TABLE{OO- COMPUTE NUMBER OF DAYS FROM JANUARY 1 TO FIRST OF MONTH FROM DATA TABLE|DD6-%$Ae%P:'@,%%@&P:'A,%P:'A,- POSSIBLY A LEAP YEAR?$$P:'@,'@AP%%- CONTINUE TEST FOR A LEAP YEAR$$'A"P:'A,A0$$'A"P:'A,A@II- IF MONTH IS JANUARY OR FEBRUARY, ADJUST CALCULATED NUMBER OF DAYS!@AP6-&@11- END OF SUBROUTINE, RETURN TO MAIN PROGRAM$ D:BTWN2DTS