aUCBLogo Demos and Tests / convert_lwob_example


to convert_lwob_example
   
clearText
   
fn="example_for_lwob.txt
   
openRead fn
   
setReader fn
   
out=[]
   
while [not eof?]
   
[   l=readRawLine
      
if not empty? l
      
[   l=butFirst l
      
]
      
while [(count l) > 8]
      
[   l=bf l
         
f=items 1 8 l
         
if xdigits? f
         
[   repeat 4
            
[   l2=items 1 2 f
               
out=fput toInt l2 16 out
               
f=bf bf f
            
]
         
]
         
ifelse (count l) > 8
         
[   l=items count l l
         
][   break
         
]
      
]
   
]
   
setReader []
   
close fn
   
out=reverse uint8array out
   
setItems 235 out "maple.jpg
   
out.21=0x1f
   
w=(word char out)
   
   
fn="example_for_lwob.lwo
   
openWriteBin fn
   
setWriter fn
   
setCharConversion fn 0
   
typeBin w
   
setWriter []
   
close fn
end

to xdigits? s
   
local [i]
   
for [[count s]]
   
[   if not xdigit? s.i
      
[   output false
      
]
   
]
   
output true
end