10 DIM A(12), M$(12)
20 M$(7)="ERROR"
30 FOR I = 1 TO 12:READ A(I):NEXT I
40 DATA 1,32,60,91,121,152,182,213,244,274,305,335
50 FOR I = 0 TO 6:READ M$(I):NEXT I
60 DATA SUN,MON,TUE,WED,THU,FRI,SAT
70 PRINT"ENTER START DATE (MM,DD,YY)";
80 INPUT M1,D1,Y1
90 PRINT"ENTER END DATE (MM,DD,YY)";
100 INPUT M,D,Y
110 T=INT(D+365.25*Y+A(M)+.01*M-.03)
120 TB=INT(D1+365.25*Y1+A(M1)+.01*M1-.03)
130 X=T-TB
140 RB=TB-1-INT((TB-1)/7)*7
150 R=T-1-INT((T-1)/7)*7
160 PRINT "START ";M$(RB);"   END ";M$(R);"   DAYS BETWEEN";X
170 GOTO 70
RB=TB-1-INT((TB-1)/7)*7
150 R=T-1-INT((T-1)/7)*7
160 PRINT "START ";M$(RB);"   END ";M$(R);"   D