In Bascom dürfte das mit 1 = schon stimmen.
Kannst du mal das komplette Programm zeigen, so dass man's auch mal kompilieren kann?