[lxa85]

GordonG, эх школьники... все за вас делать надо
http://telcontar.net/Misc/Gorillas/Gorillas.bas
http://library.thinkquest.org/19436/...la/gorilla.bas
http://www.jefflewis.net/archive/pro...ng/nibbles.bas
http://www.codinghorror.com/blog/files/donkey.bas.txt

Далее обращаем внимание на код:
В Gorrilas

Код:

SUB Rest (t#)
  s# = TIMER
  t2# = MachSpeed * t# / SPEEDCONST
  DO
  LOOP UNTIL TIMER - s# > t2#
END SUB

В Nibbles :

Код:

    startTime# = TIMER                          ' Calculate speed of system
    FOR i# = 1 TO 1000: NEXT i#                 ' and do some compensation
    stopTime# = TIMER
    speed = speed * .5 / (stopTime# - startTime#)

    curSpeed = speed
            'Delay game
            FOR a# = 1 TO curSpeed:  NEXT a#

Сам код тоже почитайте, это будет хорошим учебником по программированию.