' *** TESTS de PAUSE  *   VITESSE.BAS
    SCREEN 12: CLS
' *** Test de rapidite du PC
    LOCATE 2, 5: PRINT "*** TEST de Rapidit‚ du PC"
    Debut# = TIMER
    LOCATE 4, 10: PRINT USING "Debut : #####.###"; Debut#;
    DO
        Tempo& = Tempo& + 1
    LOOP UNTIL TIMER >= Debut# + 1' Temporisation d'une seconde
    TT# = TIMER: PRINT USING " Fin : #####.### Tempo = ######"; TIMER; Tempo&;
 
' *** pause m‚thode boucle FOR ... NEXT
    LOCATE 7, 5: PRINT "*** TEST de pause (1 seconde) avec Temporisation (FOR/NEXT)"
    Debut! = TIMER: T& = 0
    FOR I& = 1 TO Tempo&
        IF TIMER > 0 THEN T& = T& + 1
        ' ? ? ? si pas d'instruction, la pause est de ZERO seconde ! ! !
    NEXT I&
    Fin! = TIMER
    LOCATE 9, 10: PRINT USING "Debut : #####.### "; Debut!;
    PRINT USING " Fin : #####.###"; Fin!;
    MQ$ = "La pause est de ##.### seconde(s)"
    LOCATE 11, 10: PRINT USING MQ$; Fin! - Debut!;
    PRINT " avec Tempo& = "; : PRINT Tempo&
 
' *** pause m‚thode "TIMER"
    LOCATE 14, 5: PRINT "*** TEST de pause (QUART de SECONDE) avec TIMER"
    Debut! = TIMER
    LOCATE 16, 10: PRINT USING "Debut : #####.### "; Debut!;
    DO
    LOOP UNTIL TIMER >= Debut! + .25
    Fin! = TIMER: PRINT USING " Fin : #####.###"; Fin!;
    MQ$ = "La pause est de ##.### seconde(s)"
    LOCATE 18, 10: PRINT USING MQ$; Fin! - Debut!
 
' *** M‚thode "neliger"
    LOCATE 21, 5: PRINT "*** TEST de pause 'neliger' (QUART DE SECONDE) avec TIMER"
    Debut! = TIMER
    LOCATE 23, 10: PRINT USING "Debut : #####.### "; Debut!;
    DO: Fin! = TIMER
    LOOP WHILE Fin! - Debut! < .25
    Fin! = TIMER: PRINT USING " Fin : #####.###"; Fin!;
    MQ$ = "La pause est de ##.### seconde(s)"
    LOCATE 25, 10: PRINT USING MQ$; Fin! - Debut!;