148 Numbers
540 LOCATE 1,4:PRINT X$; B$;CHR$(247);X$ ;B$;CHR$(246);X$;B$;CHR$(245);X$;B$;CHR$ (244);X$;B$;CHR$(243);X$;B$;CHR$(242);X$ ;B$;CHR$(241);X$;B$;CHR$(248);":"
550 KO=99999999
560 IF B=2 THEN KO=255
570 IF B=3 THEN KO=6560
580 IF B=4 THEN KO=65535
590 IF B=5 THEN KO=390600
600 IF B=6 THEN KO=1679600
610 IF B=7 THEN K0=5764800
620 IF B=8 THEN KO=16777200
630 IF B=9 THEN KO=43046720
640 FOR X=1 TO 7:LOCATE 32,(4+X):PRINT"= ";k(X):LOCATE 1,(4+X):PRINT;:n=k(x):GOSU B 690
650 FOR y=8 TO 1 STEP -1:PRINT TAB(35-Y *4);A$(Y);: NEXT Y
660 NEXT X
670 GOSUB 760
680 REM ** MULTIBASE CALCULATOR SUBROUTI NE **
690 FOR Z=1 TO 8:A$(Z)="":NEXT Z
700 NA=N:FOR Z=1 TO 8
710 I=INT(NA/B):A$(Z)=CHR$(48+(NA-B*1)+( 7 AND (NA-B*I)>9))
720 IF I>=B THEN NA=I:NEXT Z
730 A$(Z+1)=CHR$(48+I+(7 AND I>9)) 740 RETURN
750 REM**DECIMAL INPUT FOR CONVERSION** 760 LOCATE 1,19:PRINT"INPUT A DECIMAL NU MBER FOR CONVERSION TO BASE";B;"OR ENT ER [M] FOR MENU ";
770 CT=1
780 LET X$=INKEY$:IF X$="" THEN 780
790 LOCATE 5,22:PRINT SPACE$(35):LOCATE 13+CT,24: IF X$="M" OR X$="m" THEN 930 800 IF ASC(X$)=13 THEN 820
et° IF X$<"0" OR X$>"9" THEN 780 ELSE XX (CT)= VAL(X$):PRINT X$;: CT=CT+1:GOTO 78 0
820 N=0: FOR X = 1 TO CT-1 : LET N = N+ XX(X)*10''(CT-X-1):NEXT