20 DEFDBL A-Z
30 PRINT "Converts decimal numbers to hexidecimal"
40 INPUT "Input decimal number"; a
41 IF a = 0 THEN b$ = "0"
42 IF a = 0 THEN GOTO 500
50 b = 0
60 c = 16 ^ b
70 IF c > a THEN GOTO 120
80 b = b + 1
90 GOTO 60
120 d = b - 1
130 e = 0
140 f = (16 ^ d) * e
145 i = i + f
150 IF f > (a - k) THEN GOTO 200
160 e = e + 1
170 GOTO 140
200 g = e - 1
210 IF g = 10 THEN a$ = "A"
230 IF g = 11 THEN a$ = "B"
250 IF g = 12 THEN a$ = "C"
270 IF g = 13 THEN a$ = "D"
290 IF g = 14 THEN a$ = "E"
310 IF g = 15 THEN a$ = "F"
330 IF g = 9 THEN a$ = "9"
340 IF g = 8 THEN a$ = "8"
350 IF g = 7 THEN a$ = "7"
360 IF g = 6 THEN a$ = "6"
370 IF g = 5 THEN a$ = "5"
380 IF g = 4 THEN a$ = "4"
390 IF g = 3 THEN a$ = "3"
400 IF g = 2 THEN a$ = "2"
410 IF g = 1 THEN a$ = "1"
420 IF g = 0 THEN a$ = "0"
440 b$ = b$ + a$
460 d = d - 1
461 IF d = -1 THEN GOTO 500
463 k = k + ((16 ^ (d + 1)) * g)
470 GOTO 130
500 PRINT b$