100 !PROGRAM TO CONVERT ANY NUMBER IN ANY BASE TO ANOTHER BASE
110 DIM N%(20)
115 DEF FNA$(N)=MID(NUM$(N),2,LEN(NUM$(N))-2)
120 INPUT "NUMBER, BASE, AND BASE TO CONVERT TO";N$,B1,B2
125 IF (B1<1 OR B1>10) OR (B2<1 OR B2>10) THEN &:
	& "THIS PROGRAM ONLY HANDLES BASES BETWEEN 1 AND 10.":
	&:GOTO 120
130 N=0:S$=SPACE$(0):CHANGEN$TON%
140 N=N+VAL(CHR$(N%(I)))*(B1^(N%(0)-I)) FOR I=1 TO N%(0)
150 FOR I=INT(LOG(N)/LOG(B2)) TO 0 STEP -1
160 D=INT(N/(B2^I)):N=N-D*(B2^I):S$=S$+FNA$(D):NEXTI
170 PRINS$;"(";FNA$(B2);")":GOTO120
999 END