:"Converter
ClrHome
Output(1,6,"Number
Output(2,4,"Converter!
2->F
10->T
Pause 
Lbl S
ClrHome
"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"->Str3
Goto F
Lbl M
Input "Num to Convert: ",Str2
Lbl S2
" "->Str1
length(Str2)->L
0->S
For(I,1,L
	inString(Str3,sub(Str2,I,1))-1->N
	If N>=F
	Then
		ClrHome
		Output(1,1,"Error! Incorrect input!
		Pause 
		Goto S
	End
	NF^(L-I)+S->S
End
iPart(ln(S)/ln(T))->L
For(I,L,1,~1
	If S>=T^L
	Then
		1->M
		While S-T^L>=MT^L
			M+1->M
		End
	Else
		0->M
	End
	Str1+sub(Str3,M+1,1)->Str1
	S-MT^L->S
	L-1->L
End
Str1+sub(Str3,S+1,1)->Str1
ClrHome
Output(1,1,"Converted Number
sub(Str1,2,length(Str1)-1)->Str1
1->C
For(I,2,8
	For(J,1,16
		Output(I,J,sub(Str1,C,1)
		C+1->C
		If C=length(Str1)+1
		Then
			17->J
			9->I
		End
	End
End
Pause 
Goto S
Lbl F
0->F
While F<2 or F>36 or iPart(F)!=F
	Input "Convert From:",F
End
0->T
While T<2 or T>36 or iPart(T)!=T
	Input "Convert To:",T
End
Goto M