Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600



   Dim A As Byte
   Config Porta.0 = Output
   Motorl Alias Porta.0
   Config Porta.1 = Output
   Motorr Alias Porta. 1
   Config Porta.2 = Input
   Starter Alias Porta.2
   Config Porta.6 = Output
   Led Alias Porta.6

   A = 0
   Starter = 1
   Led = 1
   Motorl = 0
   Motorr = 0
   Do
   If Starter = 0 Then
   A = 1
   Else
   Waitms 1
   End If
   Loop Until A = 1
   Led = 0
   Motorl = 1
   Motorr = 1
   Wait 5
   Motorl = 0
   Motorr = 0
mehr wars noch nicht