10 CLS
20 PRINT "Descomposici¢n de un n£mero en suma de potencias de dos"
30 PRINT "======================================================="
40 PRINT : PRINT "(para terminar: FIN)" : print : print
50 INPUT "Introduce el n£mero: ",NAM$
60 NAM=VAL(NAM$)
70 PRINT : PRINT NAM; "= ";
80 IF NAM$="fin" OR NAM$="FIN" THEN 200
90 IF NAM<1 THEN PRINT "No admito menor de 1. Lo siento" : GOTO 190
100 NUM=NAM : CONTROL=0
110 POTENCIA=0
120 IF NUM/2 <> INT(NUM/2) THEN 150
130 IF NUM=0 THEN 160
140 NUM=NUM/2 : POTENCIA=POTENCIA+1 : GOTO 120
150 IF CONTROL THEN PRINT ","; ELSE CONTROL=1
160 PRINT POTENCIA;
170 NUM=NAM-2^POTENCIA
180 IF NUM<>0 THEN NAM=NUM : GOTO 110
190 GOTO 40
200 CLS
210 PRINT "Has introducido ®99¯. Fin de ejecuci¢n del programa"
220 A$=INKEY$ : IF A$="" THEN 220
230 CLS : SYSTEM
240 REM
250 REM Chento 8-7-93