:Disp "",""
:Disp "Decimals o.k."
:Disp "cranwell@yahoo.com"
:"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"üALF
:Outpt(1,1,ALF)
:Outpt(3,1,"BASE 2 thru 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"
:
:1üB:Goto W
:Lbl AB
:Disp "Convert base 10 to N"
:Input "Base=?",B
:B-1üB
:Lbl W
:Input "NUM=?",N
:Lbl T
:For(J,1,250):End
:getKyüG
:If G==24:B-3üB
:If G==26:B+3üB
:If G==22:Stop
:If G==21: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:FüZ
:Goto B
:
:Lbl CD:1üW
:Disp "Convert base N to 10"
:Input "BASE=",B
:InpST "NUM=",N
:lngth N-1üF:FüP
:Repeat W>F
:If sub(N,W,1)=="."
:W-2üP:W+1üW:End
:1üA:0üZ:P+2üSP
:
:Lbl D:1üQ
:If A>(F+1):Stop
:If A==(SP):A+1üA
:While sub(N,A,1)øsub(ALF,Q,1)
:Outpt(8,int (Q/2)+1,"*")
:Q+1üQ:End
:Z+(Q-1)*B^PüZ
:A+1üA:P-1üP:Züz
:ClLCD
:Outpt(4,1,N)
:Outpt(6,1,Z)
:Goto D

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)