Timer Trap Problem

[eoredson]

Hi,

This code does not work:

Code: (Select All)

Rem sample of timer return

t1 = _FreeTimer

On Timer(t1, 1) GoSub Trap

Timer(t1) On

Start:

Do

  x$ = InKey$

  If x$ = Chr$(27) Then End

Loop

End

Trap:

Count = Count + 1

Print "Trap count:"; Count

Return Start