.codigo;
&str := ~_byte(s);
&medidas := %METER &str;
&str := ~_Kbyte(s);
&medidas := %METER &str;
&str := ~_Mbyte(s);
&medidas := %METER &str;
&str := ~_Gbyte(s);
&medidas := %METER &str;
&str := ~_Tbyte(s);
&medidas := %METER &str;
&c := 1;
&peso := 45678;
&base := 1024;
:bucle;
.mei &base &peso;
.saltarcero :final;
&peso := &peso DIV &base;
&c := &c + 1;
.saltar :bucle;
:final;
&msg := %SACAR &medidas &c;
&msg := &peso + &msg;
.aviso &msg;
.fin;