:"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"üALF
:Disp sub(ALF,1,21
:Disp sub(ALF,22,15
:Disp "UP2 Z=36"
:Disp "BASE 2 to 36"
:Lbl A:0üS
:Menu(1,"10-N",AB,2,"N-10",CD,5,"SCAN",S)
:Lbl S:1üS
:Disp "Ent Base Ten"
:Disp "Last Ans = Z"
:1üB:Goto W
:Lbl AB
:Input "Base=?",B
:B-1üB
:Lbl W
:Input "NUM=?",N
:Lbl T
:For(J,1,237):End
:getKyüG
:If G==21:B-3üB
:If G==22:Stop
:If G>35:Pause 
:B+1üB
:If B>36:Stop
:ClLCD
:Outpt(8,19,B)
:Outpt(8,1,N)
:4üE:12üK
:iPart NüI:fPart NüF
:Repeat I==0
:Outpt(E,K,sub(ALF,mod(I,B)+1,1))
:K-1üK
:If K<1:E-1üE
:If K<1:20üK
:iPart (I/B)üI
:End
:Outpt(4,13,".")
:4üE:14üK
:Lbl B
:If (F+S)==0:Stop
:If F==0:Goto T
:If E>7:Goto T
:Outpt(E,K,sub(ALF,iPart (F*B)+1,1))
:K+1üK
:If K>20:E+1üE
:If K>20:1üK
:fPart (F*B)üF
:Goto B
:Lbl CD
:Input "BASE=",B
:InpST "NUM=",N
:lngth N-1üP
:1üA:0üZ
:Lbl D
:If P<0:Disp Z
:If P<0:Stop
:3üE:3üK:1üQ
:While sub(N,A,1)øsub(ALF,Q,1)
:Outpt(8,int (Q/2)+1," * ")
:Q+1üQ
:End
:If Q>B:Then
:Disp sub(ALF,Q,1),"isn't in base",B
:Stop:End
:Z+(Q-1)*B^PüZ
:A+1üA:P-1üP
:Goto D
:
:

    Source: geocities.com/xulfrepus/ti85

               ( geocities.com/xulfrepus)