[uBasic] Select/Case

[gehtnix]

@CHDKLover

ersetze ich bei case_else "print...." mit einem "gosub" (siehe unten) ergibt das eine Fehlermeldung "unk stat"

Code: Alles auswählen

@title Case-Test

for x=1 to 7
  select x
    case 1; gosub "neu"
    case 7; goto "EXIT"
    case 2,4; print "x=2 | x=4"
    case 2 to 5; print "x=3 | x=5"
    case_else gosub "neu"
  end_select
next x

:EXIT
  print "fertig"
  end
:neu
  print "sub"
  for y=1 to 2
    select y
      case 1; print "y=1"
      case_else print"y=2"
    end_select
  next y
return

end



Bitte mal überprüfen.

Eine "Rem----- Zeile" innerhalb der Case-Anweisung ergibt ebenso eine Fehlermeldung


gruß gehtnix

[CHDKLover]

Hallo gehtnix,
im Anhang die diff, die zur Lösung deiner Proble führt. Muss PhyrePhoX mal hochladen.

CHDKLover