ganz schön krank dein code.
Zu_lauflicht1:
If L1 = 0 Then
Goto Main
mir ist Bascom fremd, aber wenn du mit gosub reingehst, musst du natürlich mit return wieder raus. sonst liegt die rücksprungadresse noch aufm stack und es gibt logischerweise recht schnell einen overflow.