This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

:CUT_TO_BITS
L150 = L0;
for L151 = 0 to 15 do
L(L151) = L150 % 2;
L150 = L150 / 2;
endfor;
return;

:CUT_FROM_BITS
L150 = 0;
for L151 = 0 to 15 do
L150 = L150 * 2;
if L(L151) then
inc (L150,1);
endif;
endfor;
return;