� >ArcConv
0 � Old to New Archive format convertor v0.21
( � for use with ArcFS 0.40 and later
(= *RMEnsure ArcFS 0.40 Error Requires ArcFS v0.40 or later
2 � 0
<% � "Old format Archive name ? "O$
F
 X=�O$
P � newarc 1.01*�#X+&100
Z" �"OpenArchive "+O$+" ArcConv"
dU A%=0:� ș"ArcFS_ArchiveInfo",A% � name$,,headers%:A%+=1:� name$="ArcConv" � A%=5
n4 � name$<>"ArcConv" Error Failed to open archive
x headerp%=headers%
�
 level%=0
� pointer%=newarc
�2 $pointer%="Archive":pointer%?7=0:pointer%+=16
�, !pointer%=40:pointer%!4=100:pointer%+=8
�$ � P%=pointer% � pointer%+68 � 4
�
 !P%=0
� �
� pointer%+=72
� headstart%=pointer%
� end=�:ȕ level%>-1
� � P%=0 � 32 � 4
�" !(pointer%+P%)=!(headerp%+P%)
� �

 � (?pointer% � &7F)=0 �

	 ?pointer%=0

 level%-=1

 �

"/ � (!(pointer%+32) � &80000000)=&80000000 �

,+ !(pointer%+32)=!(pointer%+32)-headers%

6 !(pointer%+12)=&FFFFFFFF

@, !(pointer%+16)=?(pointer%+16)+&FFFFFF00

J !(pointer%+28)=&FFFFFFFF

T level%+=1

^ �

h �

r pointer%+=36:headerp%+=36

| �

�! newarc!8=pointer%-headstart%

� newarc!12=pointer%-newarc

� mem%=pointer%

� datastart%=pointer%

� pointer%=headstart%

�
 level%=0

� ȕ level%>-1

� � (?pointer% � &7F)=0 �

� level%-=1

� �

�/ � (!(pointer%+32) � &80000000)=&80000000 �

�K � �level%," ");:A%=1:� � �(?(pointer%+A%));:A%+=1:� ?(pointer%+A%-1)=0

� �
 level%+=1
 �
L � �level%," ");:A%=1:� � �(?(pointer%+A%));:A%+=1:� ?(pointer%+A%-1)<32
& � B%=A% � 12:�" ";:�
0( ��"00000000"+�~(mem%-datastart%),8)
: offset%=mem%-datastart%
D@ ș"OS_GBPB",3,X,mem%,!(pointer%+28),!(pointer%+32) � ,,mem%
N !(pointer%+32)=offset%
X �
b �
l pointer%+=36
v �
�$ �"New format Archive name ? "N$
�( �"Save "+N$+" "+�~newarc+" "+�~mem%
� �"SetType "+N$+" &DDC"
� *CloseArc. ArcConv
�

00000000  0d 00 0a 0f 20 f4 20 3e  41 72 63 43 6f 6e 76 0d  |.... . >ArcConv.|
00000010  00 14 30 20 f4 20 4f 6c  64 20 74 6f 20 4e 65 77  |..0 . Old to New|
00000020  20 41 72 63 68 69 76 65  20 66 6f 72 6d 61 74 20  | Archive format |
00000030  63 6f 6e 76 65 72 74 6f  72 20 76 30 2e 32 31 0d  |convertor v0.21.|
00000040  00 1e 28 20 f4 20 66 6f  72 20 75 73 65 20 77 69  |..( . for use wi|
00000050  74 68 20 41 72 63 46 53  20 30 2e 34 30 20 61 6e  |th ArcFS 0.40 an|
00000060  64 20 6c 61 74 65 72 0d  00 28 3d 20 2a 52 4d 45  |d later..(= *RME|
00000070  6e 73 75 72 65 20 41 72  63 46 53 20 30 2e 34 30  |nsure ArcFS 0.40|
00000080  20 45 72 72 6f 72 20 52  65 71 75 69 72 65 73 20  | Error Requires |
00000090  41 72 63 46 53 20 76 30  2e 34 30 20 6f 72 20 6c  |ArcFS v0.40 or l|
000000a0  61 74 65 72 0d 00 32 08  20 eb 20 30 0d 00 3c 25  |ater..2. . 0..<%|
000000b0  20 e8 20 22 4f 6c 64 20  66 6f 72 6d 61 74 20 41  | . "Old format A|
000000c0  72 63 68 69 76 65 20 6e  61 6d 65 20 3f 20 22 4f  |rchive name ? "O|
000000d0  24 0d 00 46 0a 20 58 3d  8e 4f 24 0d 00 50 1b 20  |$..F. X=.O$..P. |
000000e0  de 20 6e 65 77 61 72 63  20 31 2e 30 31 2a a2 23  |. newarc 1.01*.#|
000000f0  58 2b 26 31 30 30 0d 00  5a 22 20 ff 22 4f 70 65  |X+&100..Z" ."Ope|
00000100  6e 41 72 63 68 69 76 65  20 22 2b 4f 24 2b 22 20  |nArchive "+O$+" |
00000110  41 72 63 43 6f 6e 76 22  0d 00 64 55 20 41 25 3d  |ArcConv"..dU A%=|
00000120  30 3a f5 20 c8 99 22 41  72 63 46 53 5f 41 72 63  |0:. .."ArcFS_Arc|
00000130  68 69 76 65 49 6e 66 6f  22 2c 41 25 20 b8 20 6e  |hiveInfo",A% . n|
00000140  61 6d 65 24 2c 2c 68 65  61 64 65 72 73 25 3a 41  |ame$,,headers%:A|
00000150  25 2b 3d 31 3a fd 20 6e  61 6d 65 24 3d 22 41 72  |%+=1:. name$="Ar|
00000160  63 43 6f 6e 76 22 20 84  20 41 25 3d 35 0d 00 6e  |cConv" . A%=5..n|
00000170  34 20 e7 20 6e 61 6d 65  24 3c 3e 22 41 72 63 43  |4 . name$<>"ArcC|
00000180  6f 6e 76 22 20 45 72 72  6f 72 20 46 61 69 6c 65  |onv" Error Faile|
00000190  64 20 74 6f 20 6f 70 65  6e 20 61 72 63 68 69 76  |d to open archiv|
000001a0  65 0d 00 78 16 20 68 65  61 64 65 72 70 25 3d 68  |e..x. headerp%=h|
000001b0  65 61 64 65 72 73 25 0d  00 82 0d 20 6c 65 76 65  |eaders%.... leve|
000001c0  6c 25 3d 30 0d 00 8c 14  20 70 6f 69 6e 74 65 72  |l%=0.... pointer|
000001d0  25 3d 6e 65 77 61 72 63  0d 00 96 32 20 24 70 6f  |%=newarc...2 $po|
000001e0  69 6e 74 65 72 25 3d 22  41 72 63 68 69 76 65 22  |inter%="Archive"|
000001f0  3a 70 6f 69 6e 74 65 72  25 3f 37 3d 30 3a 70 6f  |:pointer%?7=0:po|
00000200  69 6e 74 65 72 25 2b 3d  31 36 0d 00 a0 2c 20 21  |inter%+=16..., !|
00000210  70 6f 69 6e 74 65 72 25  3d 34 30 3a 70 6f 69 6e  |pointer%=40:poin|
00000220  74 65 72 25 21 34 3d 31  30 30 3a 70 6f 69 6e 74  |ter%!4=100:point|
00000230  65 72 25 2b 3d 38 0d 00  aa 24 20 e3 20 50 25 3d  |er%+=8...$ . P%=|
00000240  70 6f 69 6e 74 65 72 25  20 b8 20 70 6f 69 6e 74  |pointer% . point|
00000250  65 72 25 2b 36 38 20 88  20 34 0d 00 b4 0a 20 21  |er%+68 . 4.... !|
00000260  50 25 3d 30 0d 00 be 06  20 ed 0d 00 c8 11 20 70  |P%=0.... ..... p|
00000270  6f 69 6e 74 65 72 25 2b  3d 37 32 0d 00 d2 18 20  |ointer%+=72.... |
00000280  68 65 61 64 73 74 61 72  74 25 3d 70 6f 69 6e 74  |headstart%=point|
00000290  65 72 25 0d 00 dc 17 20  65 6e 64 3d a3 3a c8 95  |er%.... end=.:..|
000002a0  20 6c 65 76 65 6c 25 3e  2d 31 0d 00 e6 14 20 e3  | level%>-1.... .|
000002b0  20 50 25 3d 30 20 b8 20  33 32 20 88 20 34 0d 00  | P%=0 . 32 . 4..|
000002c0  f0 22 20 21 28 70 6f 69  6e 74 65 72 25 2b 50 25  |." !(pointer%+P%|
000002d0  29 3d 21 28 68 65 61 64  65 72 70 25 2b 50 25 29  |)=!(headerp%+P%)|
000002e0  0d 00 fa 06 20 ed 0d 01  04 1c 20 e7 20 28 3f 70  |.... ..... . (?p|
000002f0  6f 69 6e 74 65 72 25 20  80 20 26 37 46 29 3d 30  |ointer% . &7F)=0|
00000300  20 8c 0d 01 09 10 20 3f  70 6f 69 6e 74 65 72 25  | ..... ?pointer%|
00000310  3d 30 0d 01 0e 0e 20 6c  65 76 65 6c 25 2d 3d 31  |=0.... level%-=1|
00000320  0d 01 18 06 20 cc 0d 01  22 2f 20 e7 20 28 21 28  |.... ..."/ . (!(|
00000330  70 6f 69 6e 74 65 72 25  2b 33 32 29 20 80 20 26  |pointer%+32) . &|
00000340  38 30 30 30 30 30 30 30  29 3d 26 38 30 30 30 30  |80000000)=&80000|
00000350  30 30 30 20 8c 0d 01 2c  2b 20 21 28 70 6f 69 6e  |000 ...,+ !(poin|
00000360  74 65 72 25 2b 33 32 29  3d 21 28 70 6f 69 6e 74  |ter%+32)=!(point|
00000370  65 72 25 2b 33 32 29 2d  68 65 61 64 65 72 73 25  |er%+32)-headers%|
00000380  0d 01 36 1d 20 21 28 70  6f 69 6e 74 65 72 25 2b  |..6. !(pointer%+|
00000390  31 32 29 3d 26 46 46 46  46 46 46 46 46 0d 01 40  |12)=&FFFFFFFF..@|
000003a0  2c 20 21 28 70 6f 69 6e  74 65 72 25 2b 31 36 29  |, !(pointer%+16)|
000003b0  3d 3f 28 70 6f 69 6e 74  65 72 25 2b 31 36 29 2b  |=?(pointer%+16)+|
000003c0  26 46 46 46 46 46 46 30  30 0d 01 4a 1d 20 21 28  |&FFFFFF00..J. !(|
000003d0  70 6f 69 6e 74 65 72 25  2b 32 38 29 3d 26 46 46  |pointer%+28)=&FF|
000003e0  46 46 46 46 46 46 0d 01  54 0e 20 6c 65 76 65 6c  |FFFFFF..T. level|
000003f0  25 2b 3d 31 0d 01 5e 06  20 cd 0d 01 68 06 20 cd  |%+=1..^. ...h. .|
00000400  0d 01 72 1e 20 70 6f 69  6e 74 65 72 25 2b 3d 33  |..r. pointer%+=3|
00000410  36 3a 68 65 61 64 65 72  70 25 2b 3d 33 36 0d 01  |6:headerp%+=36..|
00000420  7c 06 20 ce 0d 01 86 21  20 6e 65 77 61 72 63 21  ||. ....! newarc!|
00000430  38 3d 70 6f 69 6e 74 65  72 25 2d 68 65 61 64 73  |8=pointer%-heads|
00000440  74 61 72 74 25 0d 01 90  1e 20 6e 65 77 61 72 63  |tart%.... newarc|
00000450  21 31 32 3d 70 6f 69 6e  74 65 72 25 2d 6e 65 77  |!12=pointer%-new|
00000460  61 72 63 0d 01 9a 12 20  6d 65 6d 25 3d 70 6f 69  |arc.... mem%=poi|
00000470  6e 74 65 72 25 0d 01 a4  18 20 64 61 74 61 73 74  |nter%.... datast|
00000480  61 72 74 25 3d 70 6f 69  6e 74 65 72 25 0d 01 ae  |art%=pointer%...|
00000490  18 20 70 6f 69 6e 74 65  72 25 3d 68 65 61 64 73  |. pointer%=heads|
000004a0  74 61 72 74 25 0d 01 b8  0d 20 6c 65 76 65 6c 25  |tart%.... level%|
000004b0  3d 30 0d 01 c2 11 20 c8  95 20 6c 65 76 65 6c 25  |=0.... .. level%|
000004c0  3e 2d 31 0d 01 cc 1c 20  e7 20 28 3f 70 6f 69 6e  |>-1.... . (?poin|
000004d0  74 65 72 25 20 80 20 26  37 46 29 3d 30 20 8c 0d  |ter% . &7F)=0 ..|
000004e0  01 d6 0e 20 6c 65 76 65  6c 25 2d 3d 31 0d 01 e0  |... level%-=1...|
000004f0  06 20 cc 0d 01 ea 2f 20  e7 20 28 21 28 70 6f 69  |. ..../ . (!(poi|
00000500  6e 74 65 72 25 2b 33 32  29 20 80 20 26 38 30 30  |nter%+32) . &800|
00000510  30 30 30 30 30 29 3d 26  38 30 30 30 30 30 30 30  |00000)=&80000000|
00000520  20 8c 0d 01 f4 4b 20 f1  20 c4 6c 65 76 65 6c 25  | ....K . .level%|
00000530  2c 22 20 22 29 3b 3a 41  25 3d 31 3a f5 20 f1 20  |," ");:A%=1:. . |
00000540  bd 28 3f 28 70 6f 69 6e  74 65 72 25 2b 41 25 29  |.(?(pointer%+A%)|
00000550  29 3b 3a 41 25 2b 3d 31  3a fd 20 3f 28 70 6f 69  |);:A%+=1:. ?(poi|
00000560  6e 74 65 72 25 2b 41 25  2d 31 29 3d 30 0d 01 fe  |nter%+A%-1)=0...|
00000570  06 20 f1 0d 02 08 0e 20  6c 65 76 65 6c 25 2b 3d  |. ..... level%+=|
00000580  31 0d 02 12 06 20 cc 0d  02 1c 4c 20 f1 20 c4 6c  |1.... ....L . .l|
00000590  65 76 65 6c 25 2c 22 20  22 29 3b 3a 41 25 3d 31  |evel%," ");:A%=1|
000005a0  3a f5 20 f1 20 bd 28 3f  28 70 6f 69 6e 74 65 72  |:. . .(?(pointer|
000005b0  25 2b 41 25 29 29 3b 3a  41 25 2b 3d 31 3a fd 20  |%+A%));:A%+=1:. |
000005c0  3f 28 70 6f 69 6e 74 65  72 25 2b 41 25 2d 31 29  |?(pointer%+A%-1)|
000005d0  3c 33 32 0d 02 26 19 20  e3 20 42 25 3d 41 25 20  |<32..&. . B%=A% |
000005e0  b8 20 31 32 3a f1 22 20  22 3b 3a ed 0d 02 30 28  |. 12:." ";:...0(|
000005f0  20 f1 c2 22 30 30 30 30  30 30 30 30 22 2b c3 7e  | .."00000000"+.~|
00000600  28 6d 65 6d 25 2d 64 61  74 61 73 74 61 72 74 25  |(mem%-datastart%|
00000610  29 2c 38 29 0d 02 3a 1c  20 6f 66 66 73 65 74 25  |),8)..:. offset%|
00000620  3d 6d 65 6d 25 2d 64 61  74 61 73 74 61 72 74 25  |=mem%-datastart%|
00000630  0d 02 44 40 20 c8 99 22  4f 53 5f 47 42 50 42 22  |..D@ .."OS_GBPB"|
00000640  2c 33 2c 58 2c 6d 65 6d  25 2c 21 28 70 6f 69 6e  |,3,X,mem%,!(poin|
00000650  74 65 72 25 2b 32 38 29  2c 21 28 70 6f 69 6e 74  |ter%+28),!(point|
00000660  65 72 25 2b 33 32 29 20  b8 20 2c 2c 6d 65 6d 25  |er%+32) . ,,mem%|
00000670  0d 02 4e 1b 20 21 28 70  6f 69 6e 74 65 72 25 2b  |..N. !(pointer%+|
00000680  33 32 29 3d 6f 66 66 73  65 74 25 0d 02 58 06 20  |32)=offset%..X. |
00000690  cd 0d 02 62 06 20 cd 0d  02 6c 11 20 70 6f 69 6e  |...b. ...l. poin|
000006a0  74 65 72 25 2b 3d 33 36  0d 02 76 06 20 ce 0d 02  |ter%+=36..v. ...|
000006b0  80 24 20 e8 22 4e 65 77  20 66 6f 72 6d 61 74 20  |.$ ."New format |
000006c0  41 72 63 68 69 76 65 20  6e 61 6d 65 20 3f 20 22  |Archive name ? "|
000006d0  4e 24 0d 02 8a 28 20 ff  22 53 61 76 65 20 22 2b  |N$...( ."Save "+|
000006e0  4e 24 2b 22 20 22 2b c3  7e 6e 65 77 61 72 63 2b  |N$+" "+.~newarc+|
000006f0  22 20 22 2b c3 7e 6d 65  6d 25 0d 02 94 1b 20 ff  |" "+.~mem%.... .|
00000700  22 53 65 74 54 79 70 65  20 22 2b 4e 24 2b 22 20  |"SetType "+N$+" |
00000710  26 44 44 43 22 0d 02 9e  17 20 2a 43 6c 6f 73 65  |&DDC".... *Close|
00000720  41 72 63 2e 20 41 72 63  43 6f 6e 76 0d ff        |Arc. ArcConv..|
0000072e