P0 1 PRINT "D TO A":GOSUB#9:GOSUB#7 2 $="":V=30:INPUT "DECIMAL ",S:T=INT S:U=FRAC S 3 Q=INT (T/R):X=T-Q*R:T=Q:V=V-1:$=A$(X)+$:IF T<>0 THEN 3 4 IF U=0 THEN 8 5 V=V-1:$=$+".":FOR W=V TO 1 STEP -1:U=U*R:X=INT U:U=FRAC U 6 $=$+A$(X):IF U=0 THEN 8 7 NEXT W 8 PRINT S;"=",$;"(";R;")":GOTO 2 9 NEXT W 10 PRINT S;"=",$;"(";R;")":GOTO 4 P1 1 PRINT "A TO D":GOSUB#9:GOSUB#7 2 S=0:Y=8:$="" 3 INPUT "1-DG ",Z$ 4 IF Z$=".":Y=9:T=0:$=$+Z$:GOTO 3 5 GOSUB#8:IF W=1 THEN 3 6 $=$+Z$:GOSUB Y:PRINT $;"(";R;")=",S:GOTO 3 8 S=S*R+X:RETURN 9 T=T-1:S=S+X*R^T:RETURN P7 1 INPUT "BASE ",R:R=INT ABS R:IF R*(R-1)=0 THEN 1 2 IF R>16 THEN 1 3 RETURN P8 1 FOR X=0 TO R-1:IF Z$=A$(X):W=0:RETURN 2 NEXT X: PRINT Z$;":ERROR":W=1:RETURN P9 1 $="0123456789ABCDEF":FOR Q=1 TO 16:A$(Q-1)=MID (Q,1):NEXT Q 2 RETURN