' WLAN Ethernet Bridge
' (c) Avisaro AG 10.08.2008
' Version 1.0



let n = 0
REM Default-Werte ?
if ((KEYS & 1) = 1) then
   for n = 0 to 100
      if ((KEYS & 1) <> 1) then
         goto STARTING
      end if
      setleds 255
      sleep 10
      setleds 0+128
      sleep 10
   next n
   exec "restart clear"
   sleep 100
   setleds 255
   do
     sleep 1
   loop
end if

STARTING:

sleep 1000

let x$ = "Script WE1 version 1.0"
put -100, x$, len(x$)

setleds 51