'===========================================================================
' Subject: Daylite Saving Time                Date: 12-15-02 (  :  )       
'  Author: David Williams                     Code: Qbasic,QB,PDS          
'  Origin: david.williams@ablelink.org      Packet: DATETIME.ABC
'===========================================================================
DEFINT A-Z 
CLS 
INPUT "Year"; Y 
Q = (Y + Y \ 4 - Y \ 100 + Y \ 400) MOD 7 
F = 1 + (8 - Q) MOD 7 
B = 25 + (11 - Q) MOD 7 
PRINT "In most of North America, in the year"; STR$(Y); 
PRINT ", clocks are set ahead on" 
PRINT "April"; STR$(F); ", and back on October"; STR$(B); "." 
PRINT "Both dates are Sundays." 
END