RSSAminetKontakt

aminet/util/conv/IFF2rexx.readme

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 Filetype : application/x-lzh-compressed Size : 781.00B Date : 4-Jul-18 Download : 💾 https://de3.aminet.net/util/conv/IFF2rexx.lha
/* 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
Zum Live Linux: