10
20 :
30 DayOfWeek=&8000
40 LOAD "DofW",DayOfWeek
50 :
60 FOR C%=2000-1900 TO 255
70 FOR B%=1 TO 12
80 FOR A%=1 TO 31
90 D%=USR DayOfWeek
100 PRINT A%;"/";B%;"/";1900+C%;" ";~D%;" ";
110 PRINT MID$("SunMonTueWedThuFriSatSun",(D% AND &FF)*3+1,3)
120 IF A%=28:IF B%=2:IF (C% MOD 4) OR ((C%+1900) MOD 400):A%=32
130 IF A%=29:IF B%=2:A%=32
140 IF A%=30:IF B%=4 OR B%=6 OR B%=9 OR B%=11:A%=32
150 NEXT A%
160 NEXT B%
170 NEXT C%