EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
EXECUTE 'SELECT VOC AVEC F1 ="F]" AND AVEC @ID <> "_]" AND AVEC @ID <> "AE_]" AND AVEC @ID <> "VOC" AND AVEC @ID <> "MENUFILE"'
EXECUTE "COMO ON Vides"
10 READNEXT CODE ELSE STOP
EXECUTE "COMPTER ":CODE
GOTO 10
EXECUTE "COMO OFF"
