Feux de carrefour en qbasic

REM Feux de carrefour ou Feux Rouge ou Feux Tricolres
REM pour 1 une minute
cls
REM Feux(1)
fe1$ = STRING$(60,"R")
REM Piéton(1)
pi1$ = STRING$(59,"v") + "r"

REM Feux(2)
fe2$ = STRING$(58,"V") + "OO"
REM Piéton(2)
pi2$ = STRING$(60,"r")

REM le tenpo
t=99
rem tenpo feux
p=1
rem debut
do
REM les secondes
s = VAL(MID$(TIME$,7,2)
IF s=t THEN GOTO fin

REM Feux(1)
IF MID$(fe1$,p,1)="R" THEN
COLOR 4:LOCATE 1,1:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 1,1:PRINT CHR$(177)
END IF
IF MID$(fe1$,p,1)="O" THEN
COLOR 6:LOCATE 3,1:PRINT CHR$(219)
ELSE
COLOR 6:LOCATE 3,1:PRINT CHR$(177)
END IF
IF MID$(fe1$,p,1)="V" THEN
COLOR 2:LOCATE 5,1:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 5,1:PRINT CHR$(177)
END IF
REM Piéton(1)
IF MID$(pi1$,p,1)="r" THEN
COLOR 4:LOCATE 8,1:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 8,1:PRINT CHR$(177)
END IF
IF MID$(pi1$,p,1)="v" THEN
COLOR 2:LOCATE 10,1:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 10,1:PRINT CHR$(177)
END IF

REM Feux(2)
IF MID$(fe2$,p,1)="R" THEN
COLOR 4:LOCATE 1,8:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 1,8:PRINT CHR$(177)
END IF
IF MID$(fe2$,p,1)="O" THEN
COLOR 6:LOCATE 3,8:PRINT CHR$(219)
ELSE
COLOR 6:LOCATE 3,8:PRINT CHR$(177)
END IF
IF MID$(fe2$,p,1)="V" THEN
COLOR 2:LOCATE 5,8:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 5,8:PRINT CHR$(177)
END IF
REM Piéton(2)
IF MID$(pi2$,p,1)="r" THEN
COLOR 4:LOCATE 8,8:PRINT CHR$(219)
ELSE
COLOR 4:LOCATE 8,8:PRINT CHR$(177)
END IF
IF MID$(pi2$,p,1)="v" THEN
COLOR 2:LOCATE 10,8:PRINT CHR$(219)
ELSE
COLOR 2:LOCATE 10,8:PRINT CHR$(177)
END IF

p=p+1
REM inversé inversé
IF p=60 THEN SWAP Fe1$,Fe2$ : SWAP Pi1$,Pi2$:p=1
t=s
fin:
LOOP UNTIL LEN(INKEY$)