PRINT
PRINT "（１） 十進数 を「８ビット２進数文字列」に変換します。"
PRINT
DIM T(6)
DATA 3,11,45,97,156,255
MAT READ T
FOR i=1 TO 6
   PRINT USING "##########":T(i);
   PRINT " :  ";RIGHT$("00000000" & BSTR$(T(i),2) , 8 )
NEXT i
PRINT
PRINT "（２） BSTR$(15,2) = ";BSTR$(15,2) 
PRINT
PRINT "（３） abcdefgh の右から３番目以降の文字列を取り出すと、"
PRINT "     ";RIGHT$("abcdefgh",3);" になる。"
PRINT
END