ON x GoTo, doesn't work in a Proc

[keytapper]

Hi forum
I noticed that inserting a On GoToL in a procedure will not be able to find the labels where to jump to.
My case is a particular condition that imposed me to reduce the nested level of subroutines. So I put all calls into the main procedure, but the sequence of parsing a procedure seems to leave out the internal labels.

Code Select Expand

Device 16F628A
Xtal 20
Declare Hserial_Baud 9600

Dim myvar As Byte
myvar = TestGoto(3)
HSerOut ["myvar is ", Dec myvar]
End

Proc TestGoto(invar As Byte), Byte
  If invar < 4 Then
   On invar GoTo answer1,answer2,answer,3
  End If
answer1:
  Result = invar * 3
  ExitProc
answer2:
  Result = invar * 7
  ExitProc
answer3:
  Result = invar * 2
EndProcError is

Code Select Expand

Error at Line [11]      In file [X:\\test.bas]  *** Label 'ANSWER' not found! ***
The other way around is to use a SELECT/ENDSELECT which able to find the labels.

[diebobo]

Typo in this part : answer,3 musn't be answer3 ?

[keytapper]

The snippet may have different labels, I suppose they'll fail as well.
This is after corrections

Code Select Expand

Device 16F628A
Xtal 20
Declare Hserial_Baud 9600

Dim myvar As Byte
myvar = TestGoto(3)
HSerOut ["myvar is ", Dec myvar]
End
Proc TestGoto(invar As Byte), Byte
  If invar < 4 Then
   On invar GoTo first,second,third
  End If
first:
  Result = invar * 3
  ExitProc
second:
  Result = invar * 7
  ExitProc
third:
  Result = invar * 2
EndProcAnd now is exactly what I seen before

Code Select Expand

Error[113]   X:\\\A.S 1400 : Symbol not previously defined (FIRST)
Error[113]   X:\\\A.S 1401 : Symbol not previously defined (SECOND)
Error[113]   X:\\\A.S 1402 : Symbol not previously defined (THIRD)
ASSEMBLER ERRORS. HEX file not Created
Thank you, Diebobo,  to have spotted my typo.