Ich würde erst mal versuchen das Programm in eine vernünftige lesbare Form zu überführen.
So was:
Code: Alles auswählen
Timeronoff:
If Setmin = 0 And Tsec = 0 Then
Cls : Set Light : Locate 1 , 2 : Lcd "TIMER NOT SET"
Beepchange = 1 : Gosub Warning : Wait 10 : Cls : Reset Light : Gosub Graphic : Goto Exitfrom
End If
If Timeron = 0 Then
Cls : Gosub Warning : Locate 1 , 4 : Lcd "START!!!" : Wait 10
Timeron = 1 : Tsec = 0 : Seccount = 0 : Set Outtimer : Cls : Locate 1 , 2 : Lcd "In Arbeit" : Goto Exitfrom
End If
If Timeron = 1 Then
Timeron = 0 : Reset Outtimer : Setmin = 0 : Seccount = 0 : Setmin = 0 : Tsec = 0
Cls : Locate 1 , 2 : Lcd "INTERRUPTED BY" : Locate 2 , 4 : Lcd "THE USER"
Beepchange = 1 : Gosub Warning : Wait 10 : Cls : Reset Light : Gosub Graphic
End If
Exitfrom:
Return


