procedure setup end procedure loop b = ButtonRead() PrintLine(b) Delay(1000) end