10 CLS
20 PRINT" DEC_HEX WRITTEN BY RUSS KINCAID 9 AUG 88"
30 PRINT"PROGRAM TO CONVERT DECIMAL NUMBERS TO HEXADECIMAL..... "
40 PRINT"            COPYRIGHT 1988"
50 PRINT
60 INPUT"DECIMAL NUMBER = ";N
70 DIV=N/(16^J)
80 IF DIV=>16 THEN J=J+1 : GOTO 70
90 IF M>0 THEN 110
100 M=J
110 H=ABS(INT(DIV))
120 GOSUB 170
130 IF J=0 THEN 260
140 J=J-1
150 IF H<1 THEN 70
160 N=N-H*16^(J+1): GOTO 70
170 IF H=10 THEN H$(J)="A":GOTO 250
180 IF H=11 THEN H$(J)="B":GOTO 250
190 IF H=12 THEN H$(J)="C":GOTO 250
200 IF H=13 THEN H$(J)="D":GOTO 250
210 IF H=14 THEN H$(J)="E":GOTO 250
220 IF H=15 THEN H$(J)="F":GOTO 250
230 H$(J)=STR$(H)
240 IF LEN(H$(J))>1 THEN H$(J)=RIGHT$(H$(J),1)
250 RETURN
260 PRINT:PRINT "HEX NUMBER : ";
270 FOR Q=M TO 0 STEP -1
280 PRINT H$(Q);
290 NEXT Q
292 INPUT"ANOTHER ONE",Y$
294 IF LEFT$(Y$,1)="Y" OR LEFT$(Y$,1)="y" THEN 60
296 SYSTEM
300 END