loop
1000
dwpt cin2 clre
dwpt grtn 0014 cin2 clr3&
bknt clr1&
bknt grtn 0024 clr2&
endl