SimpleGameLoop.bas

DIM SpeedTimer AS DOUBLE
DO
    IF ABS(TIMER - SpeedTimer) > .5 THEN SpeedTimer = TIMER  ' Sync timer
    DO WHILE (TIMER - SpeedTimer) > 1 / 120
        IF iMultikey(1) THEN EXIT DO  'Esc

                '**** Main game code goes in here ****'

        SpeedTimer = SpeedTimer + 1 / 120
    LOOP
    IF iMultikey(1) THEN EXIT DO  'Esc


    '**** Render Frame for graphics here ****'

LOOP