loop 
tmpf cin2 clre
clr1
bknt&
bknt grtn 0019 clr2&
endl