1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:
 19:
 20:
 21:
 22:
 23:
 24:
 25:
 26:
 27:
 28:

	;変数宣言
	dim nisin,16
*start
	;入力
	pos 0, 0 : input jyu
	pos 65, 0 : button "変換", *Convert
	stop

*Convert
	j = jyu ;表示用に現在のjyuを取っておく

	;変換
	i = 0
	repeat 16
		nisin.i = jyu \ 2
		jyu = jyu / 2
		i++
	loop

	;出力
	cls
	pos 0, 25: mes j ;10進数の表示
	i=16-1
	repeat 16
		pos 150-(i*10), 50 : mes ans nisin.i 
		i--
	loop
	goto *start