procedure setup end procedure loop c = CDSRead() PrintLine(c) Delay(1000) end