基数変換 - abwiki @ ウィキ (ActiveBasic非公式wiki)

#N88BASIC

printn(45,4)

'10進数nをb進数に変換
sub printn(n as dword, b as dword)
	dim a as dword
	If b < 2 or b > 16 then exit sub
	a = n/b
	if (a) then printn(a, b)
	
	If (n mod b) >= 10 then
		print Chr$((n mod b) -10 + [[Asc]]("A"));
	Else
		print Chr$((n mod b) + Asc("0"));
	[[End]] If
End Sub