! CONVER.BAS does conversions of one number base to another.
! Written by
MAP1 NUMBER,S,16
MAP1 X,S,16
MAP1 VL(36),S,1
FOR I = 1 TO 36
READ VL(I)
NEXT I
NEW'BASE:
?TAB(-1,0)
CALL HEADER
INPUT "SELECT INPUT BASE (UP TO 36)? ",BASE
INPUT "VALUE FOR CONVERTION (- FOR NEW BASE)? ",X
FLAG = 0
?TAB(-1,0)
CALL HEADER
DECIMAL'VALUE:
IF X < 0 GOTO NEW'BASE
X = UCS(X)
Y = LEN(X)
DEC = 0
IF BASE = 10 DEC = X : GOTO NEXT'SECTION
FOR I = 1 TO Y
IF ASC(X[I;1]) > 57 NUM = ASC(X[I;1]) - 55 ELSE NUM = X[I;1]
IF NUM > BASE - 1 ? "ERROR IN INPUT DIGIT(S)." : GOTO NEW'NO
DEC = DEC + NUM * BASE^(Y - I)
NEXT
NEXT'SECTION:
IF FLAG = 0 ? "VALUE(";BASE;")","DECIMAL","HEX","OCTAL","BINARY"
FLAG = 1
? X,DEC,
HOLD = DEC
IF DEC >= 16^9 ? "HEX OVERFLOW" : GOTO NEW'NO
NEWBASE = 16 : BV = 8 : CALL COMPUTE'VALUE
DEC = HOLD
IF DEC >= 8^12 ? "OCTAL OVERFLOW" : GOTO NEW'NO
NEWBASE = 8 : BV = 11 : CALL COMPUTE'VALUE
DEC = HOLD
IF DEC >= 2^16 ? "BINARY OVERFLOW" : GOTO NEW'NO
NEWBASE = 2 : BV = 15 : CALL COMPUTE'VALUE
DEC = HOLD
NEW'NO:
X = SPACE(16)
INPUT "VALUE FOR CONVERTION (- FOR NEW BASE)? ",X
? TAB (-1,3);
GOTO DECIMAL'VALUE
COMPUTE'VALUE:
FOR I = BV TO 0 STEP -1
FOR J = NEWBASE - 1 TO 0 STEP -1
IF J * NEWBASE^I <= DEC DEC = DEC - J * NEWBASE^I : &
NUMBER[BV + 1 - I;1] = VL(J + 1) : J = 0
NEXT J
NEXT I
FOR I = 1 TO BV
IF NUMBER[I;1] = 0 NEXT I
? NUMBER[I;16],
NUMBER = SPACE(16)
RETURN
HEADER:
? "C O A X I A L A N A L Y S T S I N C ~ PROGRAMMER'S CALCULATER";
? " ~ 1/24/80" : ?
RETURN
DATA 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
