下列模块中的子程序DECTOR的功能是用除R取余法将整数X转换成R（2<=R<=9）进制的数字，并把结果存放在数组B中，B（0）存放R进制数的位数，其正负号与X相同，最低位放在B（1）中；模块中的函数ISPRIME的功能是判断整数X是否为一个素数，是返回.TRUE.，否则返回.FALSE.。