1  DIM A1$[80]
2  DIM H0$[80]
3  GOSUB 6
4  PRINT H0$
5  GOTO 48
6  RESTORE 7
7  DATA 0,1,2,3,4,5,6,7,8,9,10
8  READ C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,D0
9  REM
10  DIM D[12]
11  I2=TIM(C2)
12  I3=TIM(C3)
13  RESTORE 16
14  MAT  READ D[12]
15  I5=(I3-73)*365+I2+INT((I3-73)/C4)
16  DATA 1,32,60,91,121,152,182,213,244,274,305,335
17  DATA "January","February","March","April","May","June"
18  DATA "July","August","September","October","November","December"
19  DATA "Sunday","Monday","Tuesday","Wednesday","Thursday"
20  DATA "Friday","Saturday"
21  RESTORE 19
22  FOR I8=C0 TO INT(((I5/C7-INT(I5/C7))*C7)+.1)
23  READ A1$
24  NEXT I8
25  H0$[LEN(H0$)+C1]=A1$
26  GOSUB 46
27  GOSUB 44
28  I6=(I2 >= 60) AND ((I3/C4)=INT(I3/C4))
29  FOR I7=12 TO C1 STEP -C1
30  IF I2 >= D[I7]+I6 THEN 32
31  NEXT I7
32  RESTORE 17
33  FOR I8=C1 TO I7
34  READ A1$
35  NEXT I8
36  H0$[LEN(H0$)+C1]=A1$
37  GOSUB 44
38  CONVERT I2-D[I7]+C1-I6*(I2#60) TO H0$[LEN(H0$)+C1]
39  GOSUB 46
40  CONVERT I3+1900 TO H0$[LEN(H0$)+C1]
41  GOSUB 44
42  GOSUB 44
43  RETURN 
44  H0$[LEN(H0$)+C1]=" "
45  RETURN 
46  H0$[LEN(H0$)+C1]=", "
47  RETURN 
48  END 
