DECLARE SUB clkticks (Ticks%)

'Machine Independent delay by Joe Negron(?)
'Works by counting clock ticks. The computer clock ticks 18.2 times per
'second.


'example call
  PRINT TIMER
  clkticks 182          'wait 10 seconds        
  PRINT TIMER

SUB clkticks (Ticks%)
  Pause% = Ticks%
  DEF SEG = 0
  DO UNTIL Pause% < 1
    CurrentTick% = PEEK(&H46C)
    DO WHILE CurrentTick% = PEEK(&H46C): LOOP
      Pause% = Pause% - 1
    LOOP
  DEF SEG
END SUB