Goto TD
Lbl MM
10->A
11->B
12->C
13->D
14->E
15->F
If U=1
Goto PB
If U=2
Goto BP
Lbl TD
ClrHome
Menu(" BASE CONVERTER ","Bin-\>De\c",BD,"Dec-\>Bin",DB,"Hex-\>De\c",HD,"Dec-\>Hex",DH,"Info",IN,"Exit",AM
Lbl IN
ClrHome
Disp " BASE CONVERTER","----------------
Disp "    Made by:"," MATTHEW MANSFIELD","Matthew.L.Mansfield(at)g","mail.com
Pause 
Goto TD
Lbl HD
ClrHome
0->A
" ->Str3
Disp "HEX-\>DEC
Input "HEX:",Str1
length(Str1->X
0->A
For(Y,X,1,~1
	sub(Str1,Y,1)->Str0
	If Str0="0
	0->B
	If Str0="1
	1->B
	If Str0="2
	2->B
	If Str0="3
	3->B
	If Str0="4
	4->B
	If Str0="5
	5->B
	If Str0="6
	6->B
	If Str0="7
	7->B
	If Str0="8
	8->B
	If Str0="9
	9->B
	If Str0="A
	10->B
	If Str0="B
	11->B
	If Str0="C
	12->B
	If Str0="D
	13->B
	If Str0="E
	14->B
	If Str0="F
	15->B
	A+(16^(X-Y))*B->A
End
Pause A
Goto TD
Lbl DH
" ->Str1
ClrHome
Disp "DEC-\>HEX
Input "DECIMAL:",X
While X>0
	X-(16*iPart(X/16))->Y
	If Y=0
	"0"+Str1->Str1
	If Y=1
	"1"+Str1->Str1
	If Y=2
	"2"+Str1->Str1
	If Y=3
	"3"+Str1->Str1
	If Y=4
	"4"+Str1->Str1
	If Y=5
	"5"+Str1->Str1
	If Y=6
	"6"+Str1->Str1
	If Y=7
	"7"+Str1->Str1
	If Y=8
	"8"+Str1->Str1
	If Y=9
	"9"+Str1->Str1
	If Y=10
	"A"+Str1->Str1
	If Y=11
	"B"+Str1->Str1
	If Y=12
	"C"+Str1->Str1
	If Y=13
	"D"+Str1->Str1
	If Y=14
	"E"+Str1->Str1
	If Y=15
	"F"+Str1->Str1
	iPart(X/16)->X
End
Pause Str1
Goto TD
Lbl AM
ClrHome
Output(1,1,""
Stop
Lbl BD
1->U
Goto MM
Lbl PB
Disp "BIN-\>DEC
Input "BINARY:",Str0
length(Str0->X
X->dim(L1
For(Y,1,X
	sub(Str0,Y,1->Str1
	(expr(Str1)*2^(X-Y))->L1(Y
End
Pause sum(L1
Goto TD
Lbl DB
2->U
Goto MM
Lbl BP
Disp "DEC-\>BIN
Input "Decimal:",Y
1->A
1->X
" ->Str0
Lbl 1
If 2X-Y>0
Then
	A-1->A
	2X/2->X
	Goto CB
End
2X->X
A+1->A
Goto 1
Lbl CB
For(B,A,0,~1
	Y-(2^B)->C
	If C>=0
	Then
		Str0+"1"->Str0
		C->Y
	End
	If C<0
	Str0+"0"->Str0
End
Pause Str0
Goto TD