program volatile_doctest
use penf_stringify
 use penf
 print FI1P, bcton('00000001', knd=1_I1P)
endprogram volatile_doctest