10 for c = 1 to 3
20 read n
30 print n;"-> ";vin$(n)
40 next c
80 end
100 sub vin$(n)
110   b$ = ""
120   n = abs(int(n))
130   '
140   b$ = str$(n mod 2)+b$
150   n = int(n/2)
160   if n > 0 then 130
170   vin$ = b$
180 end sub
200 data 5,50,9000