> D% = DOY(DATE$) 'Gets the current day
 > E% = D% / 7     'Calculates the week number
E% = D% \ 7        ' would be milliseconds faster, and would
                   ' eliminate the need for this statement:
 > F% = ABS(E%)    'We don't want decimal places 
Having said that, I'm not certain that the above statement is necessary in 
the first place.  Assigning E% to an integer variable should kill any decimal 
places anyway.
--- Msgedsq 2.2e
---------------