DEFINT A-Z
CLS
INPUT "Expoente :",e!
nl=INT(e!/(LOG(10)/LOG(2)))+1
DIM a(1 TO nl)
e=INT(e!)
CLS
a(1)=1
FOR j=1 TO e
LOCATE 1,1:?j;
maxL=INT(j/(LOG(10)/LOG(2)))+1
FOR k=1 TO maxL
IF a(k)>9 THEN a(k+1)=a(k+1)+a(k)\10:a(k)=a(k)MOD 10
a(k)=a(k)*2
NEXT
NEXT
FOR k=1 TO maxL
IF a(k)>9 THEN a(k+1)=a(k+1)+a(k)\10:a(k)=a(k)MOD 10
NEXT
FOR k=nl TO 1 STEP-1
IF k<nl AND k MOD 3=0 THEN ?".";
?USING "#";a(k);
NEXT
?