1 DEFSNGC-E,L,K:DEFINTA,B,F-J,M-P:DEFSTRQ-Z:DIMQ(16):V="0123456789ABCDEF":FORI=1TO16:Q(I)=MID$(V,I,1):NEXT:FORI=0TO3:READX(I):READBB(I):NEXT:DATABIN,2,OCT,8,DEC,10,HEX,16:CLS:M=0:N=1:K=65535:B1(M)=2:B1(N)=3:PRINT@210,"ENTER = CHANGE BASE
2 PRINT@250,"SPACE = TOGGLE ENTRY":PRINT@290,"DEL   = CLEAR ENTRY";:GOSUB17
3 I=M:GOSUB18:I=N:GOSUB18:C=0
4 B(M)=BB(B1(M)):B(N)=BB(B1(N)):IFC>0THEND=C:I=M:GOSUB12:D=C:I=N:GOSUB12
5 S=INKEY$:IFS=""THEN5
6 IFS=CHR$(32)THENM=N:N=ABS(M-1):GOSUB17:GOTO4
7 IFS=CHR$(13)THENB1(M)=(B1(M)+1)MOD4:I=M:GOSUB18:GOTO4
8 IFS=CHR$(8)THEN3
9 L=INSTR(1,LEFT$(V,B(M)),S):IFL=0THEN5
10 IFK>=(C*B(M)+L-1)THENC=C*B(M)+L-1
11 GOTO4
12 J=0:E=1
13 E=E*B(I):IFD>=ETHENJ=J+1:GOTO13
14 W="
15 E=E/B(I):L=INT(D/E):W=W+Q(1+L):D=D-L*E:IFJ=0THEN16ELSEJ=J-1:GOTO15
16 PRINT@51+I*80,W:RETURN
17 FORI=OTO1:LINE(25,4+I*16)-(191,18+I*16),ABS(N-I),B:NEXT:RETURN
18 PRINT@(45+80*I),X(B1(I))+SPACE$(21);:RETURN