1:
　2:
　3:
　4:
　5:
　6:
　7:
　8:
　9:
 10:
 11:
 12:
 13:
 14:
 15:
 16:
 17:
 18:

10  '変数宣言
20  DIM NISIN(16)
30
40  '入力
50  PRINT "10進数を入力してください";
60  INPUT D
70
80  '変換
90  FOR I=1 TO 16
100    NISIN(I)=D MOD 2
110    D=INT(D/2)
120 NEXT I
130
140 '出力
150 FOR I=16 TO 1 STEP -1
160   PRINT NISIN(I);
170 NEXT I
180 END