Fixed Timers for BASIC

Fixed timers such that the "timer()" function in BASIC works. If the period doesn't match 1000/clock, then the increment is adjusted based on frequency.

A good example is:

5 count=0
10 repeat
20 if event(event1,70) then print "Hi ",count," ";:count=count+1
30 until false