Semafor.bas

'' Rutina za crtanje semafora (stanje kao ulazna vrijednost)
SUB semafor(stanje AS INTEGER)
    CLS '' Ciscenje ekrana

    '' Crtanje semafora
    CIRCLE (40, 40), 20, 15, 1.57, 3.14
    CIRCLE (160, 40), 20, 15, 0, 1.57
    CIRCLE (40, 380), 20, 15, 3.14, 4.71
    CIRCLE (160, 380), 20, 15, 4.71, 0
    LINE (40, 20)-(160, 20), 15
    LINE (180, 40)-(180, 380), 15
    LINE (40, 400)-(160, 400), 15
    LINE (20, 40)-(20, 380), 15
    PAINT (50, 50), 7, 15

    '' Crtanje svih svjetala (kao ugasena)
    CIRCLE (100, 100), 50, 8,,,, F
    CIRCLE (100, 210), 50, 8,,,, F
    CIRCLE (100, 320), 50, 8,,,, F

    '' Crtanje upaljenih scjetala (u odnosu na stanje 0-3)
    '' i pauziranje dok ne istekne zadani vremenski period
    SELECT CASE stanje
        CASE 0  '' Crveno
            CIRCLE (100, 100), 50, 12,,,, F
            SLEEP 3 '' Trajanje crvenog (sec)

        CASE 1  '' Crveno i zuto
            CIRCLE (100, 100), 50, 12,,,, F
            CIRCLE (100, 210), 50, 14,,,, F
            SLEEP 1 '' Trajanje crvenog i zutog (sec)

        CASE 2  '' Zeleno
            CIRCLE (100, 320), 50, 10,,,, F
            SLEEP 4 '' Trajanje zelenog (sec)

        CASE 3  '' Zuto
            CIRCLE (100, 210), 50, 14,,,, F
            SLEEP 1 '' Trajanje zutog

    END SELECT
END SUB

SCREEN 12   '' Postavljanje grafickog moda

DIM AS INTEGER i    '' Oznaka stanja
i = 0   '' Pocetno stanje je 0

WHILE INKEY$ = ""
    semafor(i)  '' Pozivanje rutine za crtanje semafora

    i += 1  '' Prelazak na slijedece stanje
    IF i > 3 THEN i = 0 '' Ako je stanje vece od 3, postavi stanje na 0
WEND