1 REM Find on what day a date falls on 10 LET day = 14 20 LET month = 10 30 LET year = 1996 40 IF month <> 1 THEN 60 50 LET month = 13 60 IF month <> 2 THEN 80 70 LET month = 14 80 LET number = day + 2 * month + INT(3 *(month + 1) / 5) + year + INT(year / 4) - INT(year / 100) + INT(year / 400) + 2 90 LET answer = number MOD 7 100 PRINT month; "/"; day; "/"; year; " falls on a "; 110 IF answer <> 0 THEN 130 120 PRINT "Saturday" 130 REM endif 140 IF answer <> 1 THEN 160 150 PRINT "Sunday" 160 REM endif 170 IF answer <> 2 THEN 190 180 PRINT "Monday" 190 REM endif 200 IF answer <> 3 THEN 220 210 PRINT "Tuesday" 220 REM endif 230 IF answer <> 4 THEN 250 240 PRINT "Wednesday" 250 REM endif 260 IF answer <> 5 THEN 280 270 PRINT "Thursday" 280 REM endif 290 IF answer <> 6 THEN 310 300 PRINT "Friday" 310 REM endif
Return to Example Index