loop problem

[pinoccio]

Dim A As Byte
 A = 0

Starter = 1
   Led = 1
   Do
   If Starter = 0 Then
   A = 1
   Else
   Waitms 1
   End If
   Loop Until A = 1
   Led = 0