|
84736 packages online
|
|
|
|
|
|
No screenshot available
|
|
/* 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
|
Contents of util/conv/IFF2rexx.lha
PERMISSION UID GID PACKED SIZE RATIO METHOD CRC STAMP NAME
---------- ----------- ------- ------- ------ ---------- ------------ ----------
[generic] 743 1653 44.9% -lh5- e38e Jul 3 21:44 IFF2rexx.rexx
---------- ----------- ------- ------- ------ ---------- ------------ ----------
Total 1 file 743 1653 44.9% Jul 3 18:28
|
|
|
|
Page generated in 0.01 seconds |
Aminet © 1992-2024 Urban
Müller and the Aminet team.
Aminet contact address: <aminetaminet net> |