Short: Convert IFF data to rexx source Author: polluks+aminet@sdf.lonestar.org (Stefan Haubenthal) Uploader: polluks+aminet sdf lonestar org (Stefan Haubenthal) Type: util/conv Version: 2.5 Architecture: generic /* Generated by IFF2rexx V2.5 */ id="PREF" /* 546 */ id=id "PRHD" /* 6 */ data.1=, "000000000000"x /* */ id=id "CTRY" /* 504 */ data.2=, "0000000000000000 0000000000000000"x||, /* */ [...] "0000000000000001 01002D0000000000"x||, /* - */ "0000000001010006"x /* */ id=id "CTRU" /* 8 */ data.3=, "C4AA72C4816E0000"x /* ĪrÄ n */ len=4 do chunk=1 to words(id)-1 len=len+8+length(data.chunk)+length(data.chunk)//2 end call open(iff,"iran.country",W) call writech(iff,"FORM"d2c(len,4)) do chunk=0 to words(id)-1 call writech(iff,left(word(id,chunk+1),4)) if chunk>0 then call writech(iff,d2c(length(data.chunk),4)data.chunk) if length(data.chunk)//2 then call writech(iff,"00"x) end address command protect iran.country SUB e