AminetAminet
Search:
84450 packages online
About
Recent
Browse
Search
Upload
Setup
Services

util/conv/IFF2rexx.lha

Mirror:Random
Showing:i386-amithlongeneric
No screenshot available
Short:Convert IFF data to rexx source
Author:polluks+aminet at sdf.lonestar.org (Stefan Haubenthal)
Uploader:polluks+aminet sdf lonestar org (Stefan Haubenthal)
Type:util/conv
Version:2.5
Architecture:generic
Date:2018-07-03
Download:http://aminet.net/util/conv/IFF2rexx.lha - View contents
Readme:http://aminet.net/util/conv/IFF2rexx.readme
Downloads:1910

/* 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

Aminet © 1992-2024 Urban Müller and the Aminet team. Aminet contact address: <aminetaminet net>