100 a=35 110 c$="" 120 while a<>0 130 b = a mod 2 140 a = int(a/2) 150 c$ = str$(b) + c$ 160 wend 170 print c$ 990 end
