2390 DEFDBL A-Z
2395 PRINT "Converts decimal numbers to binary"
2400 INPUT "Input integer between -32768 and 32767"; W
2410 IF W < 0 THEN W = 65536 + W
2420 ZZZ = 0
2430 Y = 0
2440 X = W
2450 F = 0
2460 A = 0
2470 C = 0
2480 IF X = 0 THEN Y = 0
2490 IF X = 0 THEN GOTO 2610
2500 IF X = 0 THEN GOTO 2610
2510 IF 2 ^ A > X THEN GOTO 2560
2520 C = 10 ^ A
2530 E = 2 ^ A
2540 A = A + 1
2550 GOTO 2510
2560 Y = Y + C
2570 A = 0
2580 F = F + E
2590 X = W - F
2600 GOTO 2500
2610 PRINT Y
2620 END