10 x = uin 0
20 if x = 0 then goto 40
30 chr x
40 y = kin 0
50 if y = 0 then goto 10
60 chr y
70 uout y
80 goto 10