10 CLS : KEY OFF : PRINT "Days between two dates  M, D, Y  (06,22,1984):"
20 PRINT "First Date?"
30 INPUT M1,D1,Y1
40 PRINT "Second Date?"
50 INPUT M2,D2,Y2
60 Y=Y1 : M=M1 : D=D1 : GOSUB 140
70 N=A : Y=Y2 : D=D2 : M=M2 : GOSUB 140
80 N=A-N : PRINT "Difference = ";N;"days." : :
90 INPUT "Do you want a printout ";Y$
100 IF Y$="Y" OR Y$="y" THEN GOSUB 360
110 INPUT "More data (Y/N)";D$
120 IF D$="y" OR D$ ="Y" THEN 10
130 CLS:SYSTEM
140 ON M GOTO 170,190,170, 250,170,250,170,170,250,170,250,170
150 PRINT "Unreal Date!!!"
160 RETURN
170 IF D>31 THEN 150
180 GOTO 260
190 IF Y/4<> INT(Y/4) THEN 220
200 IF Y/400 = INT(Y/400) THEN 230
210 IF Y/100<> INT(Y/100) THEN 230
220 IF D>28 THEN 150
230 IF D>29 THEN 150
240 GOTO 260
250 IF D>30 THEN 150
260 DATA 0,31,59,90,120,151,181,212,243,273,304,334
270 RESTORE
280 FOR H=1 TO M : READ A : NEXT H
290 A=A+Y*365+INT(Y/4)+D+1-INT(Y/100)+INT(Y/400)
300 IF INT(Y/4)<>Y/4 THEN 350
310 IF Y/400=INT(Y/400) THEN 330
320 IF Y/100=INT(Y/100) THEN 350
330 IF M>2 THEN 350
340 A=A-1
350 RETURN
360 LPRINT "First Date:   ";M1;"/";D1;"/";Y1 : :
370 LPRINT "Second Date: ";M2;"/";D2;"/";Y2 : :
380 LPRINT "Number od days between dates is: ";N
390 RETURN