Hallo neo,

vielleicht etwa so:
Code:
define TByte as byte
  lcd.off
  baud R38400    ' nach Bedarf oder weglassen für 9600
  do
   print "Eingabe:";
   input Tbyte
   if TByte=0 then exit do
   print TByte
   select case TByte
    case 1
      ' Schalte Port1
    case 2
      ' Schalte Port2
   end select 
  loop
Oder so ähnlich. Aber das Programm stoppt bis 0 eingegeben wird!

Gruß Jörg