【進数変換DEF QSP】 DEF CONV$(N,P)VAR R$VAR K REPEAT K=N MOD P R$=CHR$(K+(K>9)*7+48)+R$N=N DIV P UNTIL !N RETURN R$END 6万なんとか進数までいけるはず（机上の空論）が豆腐が混入するので実用的ではない。

進数の数は2以上の整数以外禁止 1は無限ループ、0は0除算エラー