0 CLEAR999:INPUT"base in";I:INPUT"base out";O:A$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 2 INPUT"# to convert";B$:Y=LEN(B$):FORX=1TOY:D=INSTR(A$,MID$(B$,X,1))-1:U=U+I^(Y-X)*D:NEXT 4 IFO^(1+Q)<=UTHENQ=Q+1:GOTO4 6 IFO^Q*(V+1)<=UTHENV=V+1:GOTO6 8 O$=O$+MID$(A$,V+1,1):U=U-O^Q*V:Q=Q-1:V=0:IFQ<0THENPRINTO$ELSE6