!Joiner/joiner

Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_13_scp.adf » !Chopper_Chop » !Joiner/joiner

!Joiner/joiner

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_13_scp.adf » !Chopper_Chop
Filename:	!Joiner/joiner
Read OK:	✔
File size:	15BC bytes
Load address:	0000
Exec address:	0000

File contents

    1REM --> Joiner
    2REMLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOG
    4REMVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL
    5REM This program and all documentation LEN David Holden 1995
    6REMLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOG
    7REMVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL
    8A_$="0.10"
   10ONERRORERROREXT0,"Error "+STR$(ERL)+" during initialisation : "+REPORT$:END
   12PROCB_:ONERRORPROCC_(REPORT$,TRUE)
   14PROCD_:PROCE_(F_%,3,"Drag icon to destination"):PROCE_(F_%,4,"for the joined up file."):PROCG_(F_%,-1,0,0):PROCH_(F_%,1)
   19ONERRORPROCC_(REPORT$,TRUE)
   21REPEAT:SYS262343,I_%,J_%TOK_%:CASEK_%OF
   25WHEN2:SYS262341,,J_%
   26WHEN3:IF!J_%=F_%PROCL_
   27WHEN6:IFJ_%!12=F_%IFJ_%!16=6PROCM_
   28WHEN7:PROCN_
   29WHEN8:SYS262364,J_%!24
   30WHEN17,18:CASEJ_%!16OF
   31WHEN0:PROCL_
   32WHEN2:PROCO_
   33ENDCASE
   34ENDCASE:IFI_%=0THEN
   36I%=FNP_(1,"flag = "+STR$(Q_%)+" : "+R_$+"."+S_$)
   38CASEQ_%OF
   40WHEN100:Q_%+=1
   41WHEN101:Q_%+=1
   42WHEN102:Q_%+=1
   43WHEN103:PROCT_
   44WHEN110:PROCU_
   45OTHERWISE:I_%=&C31
   46ENDCASE
   47ENDIF:UNTILFALSE
   49
   50DEFPROCD_:LOCALV_$,W_%:IFFNX_(&4000)=FALSEERROR0,"Not enough RAM to run !Joiner":END
   53SYS12,12,R_$,Y_%,70,0,&100,"*01"TO,,,F%:IFF%=0ERROR100,"No previously split file found on this disc"
   55Z_%=Y_%!20:I%=Y_%+24:WHILE?I%>32:I%+=1:ENDWHILE:I%-=2:?I%=13:a_$=$(Y_%+24):S_$=FNb_(a_$,c_%):SYS41,49,R_$TO,,W_%:IFd_%=FALSER_$="ADFS::0.$"
   61IFW_%=&B4000ORW_%=&168000THEN
   62IFRIGHT$(V_$)="/" V_$=LEFT$(V_$)
   63SYS12,12,R_$,Y_%,70,0,&100,"FILETYPE*"TO,,,F%:IFF%>0THEN
   65I%=Y_%+32:WHILE?I%>13:I%+=1:ENDWHILE:?I%=13:e_$=$(Y_%+33):C%=f_%:REPEAT:IF$C%=e_$ Z_%=C%!4ELSEC%+=8
   69UNTIL!C%=0OR$C%=e_$
   70ENDIF
   71ENDIF:PROCE_(F_%,1,a_$):ENDPROC
   74
   75DEFPROCO_:LOCALERROR:ONERRORLOCALPROCC_(REPORT$,FALSE):ENDPROC
   77I%=J_%+44:WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:g_$=$(J_%+44):SYS262354,-1,-1:PROCE_(F_%,1,g_$):WHILE?I%<>ASC".":I%-=1:ENDWHILE:?I%=13:SYS8,11,g_$,Z_%:I_%=0:h_%=TRUE:Q_%=100:!i_%=F_%:i_%!4=6:SYS262350,,i_%:SYS262340,,i_%:SYS262353,F_%,i_%!8,i_%!12,i_%!16,i_%!20
   87j_%=0:c_%=1:k_%=0:ENDPROC
   89
   90DEFPROCT_:LOCALl_%,f$,m_%,n_%,o_%:LOCALERROR:ONERRORLOCAL:PROCC_(REPORT$,TRUE):ENDPROC
   93f$=R_$+"."+S_$:SYS131080,17,f$TOI%,,,,l_%:IFI%=0THEN
   96IFd_%=TRUEI_%=&3C1:PROCE_(F_%,3,"No more files found"):PROCE_(F_%,4,STR$(k_%)+" bytes transferred."):ENDPROC
   97IFFNP_(3,"This disc does not contain "+S_$)=1PROCp_:ENDPROCELSEEND
   98ENDIF:n_%=FNq_(l_%):m_%=l_%:PROCE_(F_%,3,"Adding file "+f$):PROCE_(F_%,4,STR$(l_%)+" bytes"):SYS262343,0,J_%:SYS262343,0,J_%:SYS263872:IFn_%>=l_%THEN
  107SYS8,16,f$,Y_%:SYS13,&C3,g_$TOr_%:SYS12,1,r_%,Y_%,l_%,j_%TO,,,,j_%:SYS13,0,r_%:r_%=0
  111ELSE:SYS13,&C3,f$TOs_%:SYS13,&C3,g_$TOr_%:o_%=0:WHILEm_%>0:IFn_%>m_% C%=m_%ELSEC%=n_%
  117SYS12,3,s_%,Y_%,C%,o_%TO,,,,o_%:SYS12,1,r_%,Y_%,C%,j_%TO,,,,j_%:m_%-=C%:ENDWHILE:SYS13,0,r_%:r_%=0:SYS13,0,s_%:s_%=0
  123ENDIF:SYS263873:PROCE_(F_%,2,f$):k_%+=l_%:c_%+=1:h_%=TRUE:S_$=FNb_(a_$,c_%):PROCp_:ENDPROC
  130
  131DEFFNq_(t_%):LOCALu_%:REPEAT:u_%=FNX_(t_%):IFu_%=FALSEt_%=t_%DIV2
  136UNTILu_%>0:=t_%
  138
  139DEFPROCp_:VDU7:PROCE_(F_%,3,"Insert disc with "+S_$):PROCE_(F_%,4,"or close window to finish"):v_%=FALSE:S%=0:I_%=0:Q_%=110:ENDPROC
  146
  147DEFPROCU_:IFd_%=TRUEQ_%=100:ENDPROC
  149SYS34,11,1,&58:SYS34,11,0,&58:SYS262732,1,0,S%TO,,S%,F%:IFF%AND8 v_%=TRUE:ENDPROC
  151IFv_%IFF%ANDw_%=w_% Q_%=100
  152ENDPROC
  153
  154DEFPROCx_:LOCALl%:LOCALERROR:ONERRORLOCAL:PROCC_(REPORT$,FALSE):I%=FNX_(0):ENDPROC
  157PROCE_(y_%,z_%,FN__(27)+g_$):SYS263872:SYS8,17,FN`_(y_%,A`%)TOI%,,,,l%:IFFNX_(l%)=FALSEERROR100,FN__(25)
  161SYS8,16,FN`_(y_%,A`%),Y_%:SYS13,&C3,g_$TOr_%:SYS12,1,r_%,Y_%,l%,j_%TO,,,,j_%:SYS13,0,r_%:r_%=0:SYS263873:k_%+=l%:h_%=TRUE:PROCE_(y_%,z_%,STR$(l%)+" "+FN__(26)):ENDPROC
  169
  170DEFFNb_(a$,c%):=a$+RIGHT$("00"+STR$(c%),2)
  172
  173DEFPROCE_(w%,i%,s$):!i_%=w%:i_%!4=i%:SYS262350,,i_%:i_%!8=0:i_%!12=0:$(i_%!28)=s$:SYS262349,,i_%:ENDPROC
  177
  178DEFPROCH_(w%,i%):!i_%=w%:i_%!4=i%:SYS262350,,i_%:SYS262354,w%,i%,,,-1,LEN$(i_%!28):ENDPROC
  182
  183DEFFN`_(w%,i%):!i_%=w%:i_%!4=i%:SYS262350,,i_%:I%=(i_%!28):WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:=$(i_%!28)
  187
  188DEFPROCM_:LOCALx%,y%:!J_%=F_%:SYS262347,,J_%:x%=J_%!4-J_%!20:y%=J_%!16-J_%!24:J_%!4=6:SYS262350,,J_%:!J_%=J_%!8+x%:J_%!4=J_%!12+y%:J_%!8=J_%!16+x%:J_%!12=J_%!20+y%:SYS271360,%11000101,1,J_%!28,J_%:ENDPROC
  197
  198DEFPROCN_:SYS271361:SYS262351,,J_%:J_%!20=J_%!12:J_%!24=J_%!16:J_%!28=!J_%:J_%!32=J_%!4:J_%!&80=F_%:J_%!&84=1:SYS262350,,J_%+&80:B`$="":I%=J_%!&9C:WHILE?I%>32:B`$+=CHR$(?I%):I%+=1:ENDWHILE:J_%!36=100:J_%!40=Z_%:$(J_%+44)=B`$:!J_%=(LEN(B`$)+49)ANDNOT3
  208J_%!12=0:J_%!16=1:SYS262375,17,J_%,J_%!20,J_%!24:ENDPROC
  211
  212DEFPROCG_(w%,C`%,D`%,E`%):LOCALF`%,G`%,H`%,I`%,J`%:SYS53,-1,4TO,,F`%:SYS53,-1,11TO,,G`%:G`%=(G`%<<F`%)+D`%:SYS53,-1,5TO,,F`%:SYS53,-1,12TO,,H`%:H`%=(H`%<<F`%)+E`%:!i_%=w%:SYS262347,,i_%:I`%=i_%!12-i_%!4:J`%=i_%!16-i_%!8:G`%=(G`%-I`%)DIV2
  224H`%=(H`%-J`%)DIV2:i_%!4=G`%:i_%!12=G`%+I`%:i_%!8=H`%:i_%!16=H`%+J`%:i_%!28=C`%:SYS262341,,i_%:ENDPROC
  230
  231DEFPROCK`(w%):!J_%=w%:SYS262347,,J_%:J_%!28=-1:SYS262341,,J_%:ENDPROC
  235
  236DEFFNX_(L`%):LOCALe%:SYS262380,M`%+L`%,-1TOe%:IFe%<(M`%+L`%):=FALSE:ELSE:=e%+&8000
  240
  241DEFPROCC_(x$,f%):I_%=&C31:SYS263874:i_%!&80=0:$(i_%+&84)="Error "+STR$(ERL)+": "+x$+CHR$(0):SYS262367,i_%+&80,17,N`%:IFs_%>0CLOSE#s_%:s_%=0
  246IFr_%>0CLOSE#r_%:r_%=0
  247IFf%PROCL_
  248ENDPROC
  249
  250DEFPROCL_:ONERROROFF
  252IFr_%>0CLOSE#r_%
  253IFs_%>0CLOSE#s_%
  254SYS262365,O`%,&4B534154:END
  256
  257DEFFNP_(P`%,a$):i_%!&80=0:$(i_%+&84)=a$+CHR$(0):SYS262367,i_%+&80,16ORP`%,N`%TO,I%:=I%
  261
  262DEFFN__(Q`%):LOCALp%:p%=R`%:WHILEQ`%>0:REPEAT:p%+=1:UNTIL?p%<32:p%+=1:Q`%-=1:ENDWHILE:=$p%
  270
  271DEFPROCS`:SYS8,17,"<Obey$Dir>.DOS_Tran"TOF%,,,,L%:IF(F%AND1)<>1DIMf_% 8:!f_%=0:ENDPROC
  274SYS8,16,"<Obey$Dir>.DOS_Tran",Y_%:L%+=Y_%:C%=2:FORI%=Y_%TOL%:IF?I%=10 ?I%=13
  278IF?I%=13 C%+=1
  279NEXT:DIMf_% 8*C%:C%=f_%:I%=Y_%:WHILEI%<L%:J%=I%:REPEAT:I%+=1:UNTIL?I%<33:?I%=13:$C%=$J%:REPEAT:I%+=1:UNTIL?I%>32:SYS131105,16,I%TO,,C%!4:WHILE?I%<>13:I%+=1:ENDWHILE:I%+=1:C%+=8:ENDWHILE:!C%=0:C%!4=0:C%!8=0:ENDPROC
  292
  293DEFPROCT` (U`%):DIMV`% U`%:SYS262361,,"<Obey$Dir>.templ":SYS262363,,Y_%,V`%,V`%+U`%,-1,"main",0TO,,R%:SYS262337,,Y_%TOF_%:SYS262362:ENDPROC
  300
  301DEFPROCB_:SYS262336,200,&4B534154,"Joiner"TOW`%,O`%:IFW`%<300ERROR0,"This program requires RISC-OS 3 or better":END
  304DIMJ_%&180,i_%&100,N`% 24,X`%&40:s_%=0:r_%=0:$N`%="Joiner":SYS35,"Obey$Dir",J_%,256,0,3TO,,I%:WHILEJ_%?I%<>ASC".":I%-=1:ENDWHILE:J_%?I%=13:R_$=$J_%:SYS41,49,"<Obey$Dir>"TO,,D%:IFD%>&800000 d_%=TRUEELSEd_%=FALSE
  310IFINKEY(-6)d_%=FALSE:R_$="ADFS::0.$"
  311M`%=HIMEM-&8000:Y_%=HIMEM:IFFNX_(&4000)=FALSE:ERROR-1,"Not enough memory to run !Joiner"
  313PROCT`(&400):PROCS`:I_%=%110000110001:w_%=4:c_%=1:I%=FNX_(0):ENDPROC

� --> Joiner
<�����������������������������������������������������
<�����������������������������������������������������
<� This program and all documentation � David Holden 1995
<�����������������������������������������������������
<�����������������������������������������������������
A_$="0.10"

8�0,"Error "+�(�)+" during initialisation : "+�$:�
�B_:��C_(�$,�)
m�D_:�E_(F_%,3,"Drag icon to destination"):�E_(F_%,4,"for the joined up file."):�G_(F_%,-1,0,0):�H_(F_%,1)
��C_(�$,�)
!�:ș262343,I_%,J_%�K_%:ȎK_%�
�2:ș262341,,J_%
�3:�!J_%=F_%�L_
�6:�J_%!12=F_%�J_%!16=6�M_

�7:�N_
�8:ș262364,J_%!24
�17,18:ȎJ_%!16�

�0:�L_
 
�2:�O_
!�
"
�:�I_%=0�
$0I%=�P_(1,"flag = "+�(Q_%)+" : "+R_$+"."+S_$)
&
ȎQ_%�
(�100:Q_%+=1
)�101:Q_%+=1
*�102:Q_%+=1
+�103:�T_
,�110:�U_
-:I_%=&C31
.�
/�:��
1
2C��D_:�V_$,W_%:�X_(&4000)=��0,"Not enough RAM to run !Joiner":�
5aș12,12,R_$,Y_%,70,0,&100,"*01"�,,,F%:�F%=0�100,"No previously split file found on this disc"
7}Z_%=Y_%!20:I%=Y_%+24:ȕ?I%>32:I%+=1:�:I%-=2:?I%=13:a_$=$(Y_%+24):S_$=�b_(a_$,c_%):ș41,49,R_$�,,W_%:�d_%=�R_$="ADFS::0.$"
=�W_%=&B4000�W_%=&168000�
>��V_$)="/" V_$=�V_$)
?6ș12,12,R_$,Y_%,70,0,&100,"FILETYPE*"�,,,F%:�F%>0�
ATI%=Y_%+32:ȕ?I%>13:I%+=1:�:?I%=13:e_$=$(Y_%+33):C%=f_%:�:�$C%=e_$ Z_%=C%!4�C%+=8
E�!C%=0�$C%=e_$
F�
G�:�E_(F_%,1,a_$):�
J
K��O_:�:���C_(�$,�):�
M�I%=J_%+44:ȕ?I%>31:I%+=1:�:?I%=13:g_$=$(J_%+44):ș262354,-1,-1:�E_(F_%,1,g_$):ȕ?I%<>�".":I%-=1:�:?I%=13:ș8,11,g_$,Z_%:I_%=0:h_%=�:Q_%=100:!i_%=F_%:i_%!4=6:ș262350,,i_%:ș262340,,i_%:ș262353,F_%,i_%!8,i_%!12,i_%!16,i_%!20
Wj_%=0:c_%=1:k_%=0:�
Y
Z/��T_:�l_%,f$,m_%,n_%,o_%:�:��:�C_(�$,�):�
]2f$=R_$+"."+S_$:ș131080,17,f$�I%,,,,l_%:�I%=0�
`]�d_%=�I_%=&3C1:�E_(F_%,3,"No more files found"):�E_(F_%,4,�(k_%)+" bytes transferred."):�
a6�P_(3,"This disc does not contain "+S_$)=1�p_:��
b��:n_%=�q_(l_%):m_%=l_%:�E_(F_%,3,"Adding file "+f$):�E_(F_%,4,�(l_%)+" bytes"):ș262343,0,J_%:ș262343,0,J_%:ș263872:�n_%>=l_%�
kRș8,16,f$,Y_%:ș13,&C3,g_$�r_%:ș12,1,r_%,Y_%,l_%,j_%�,,,,j_%:ș13,0,r_%:r_%=0
oK�:ș13,&C3,f$�s_%:ș13,&C3,g_$�r_%:o_%=0:ȕm_%>0:�n_%>m_% C%=m_%�C%=n_%
ukș12,3,s_%,Y_%,C%,o_%�,,,,o_%:ș12,1,r_%,Y_%,C%,j_%�,,,,j_%:m_%-=C%:�:ș13,0,r_%:r_%=0:ș13,0,s_%:s_%=0
{I�:ș263873:�E_(F_%,2,f$):k_%+=l_%:c_%+=1:h_%=�:S_$=�b_(a_$,c_%):�p_:�
�
�1ݤq_(t_%):�u_%:�:u_%=�X_(t_%):�u_%=�t_%=t_%�2
��u_%>0:=t_%
�
�p��p_:�7:�E_(F_%,3,"Insert disc with "+S_$):�E_(F_%,4,"or close window to finish"):v_%=�:S%=0:I_%=0:Q_%=110:�
�
���U_:�d_%=�Q_%=100:�
�Eș34,11,1,&58:ș34,11,0,&58:ș262732,1,0,S%�,,S%,F%:�F%�8 v_%=�:�
��v_%�F%�w_%=w_% Q_%=100
��
�
�)��x_:�l%:�:��:�C_(�$,�):I%=�X_(0):�
�Y�E_(y_%,z_%,�__(27)+g_$):ș263872:ș8,17,�`_(y_%,A`%)�I%,,,,l%:�X_(l%)=��100,�__(25)
��ș8,16,�`_(y_%,A`%),Y_%:ș13,&C3,g_$�r_%:ș12,1,r_%,Y_%,l%,j_%�,,,,j_%:ș13,0,r_%:r_%=0:ș263873:k_%+=l%:h_%=�:�E_(y_%,z_%,�(l%)+" "+�__(26)):�
�
�"ݤb_(a$,c%):=a$+�"00"+�(c%),2)
�
�_��E_(w%,i%,s$):!i_%=w%:i_%!4=i%:ș262350,,i_%:i_%!8=0:i_%!12=0:$(i_%!28)=s$:ș262349,,i_%:�
�
�O��H_(w%,i%):!i_%=w%:i_%!4=i%:ș262350,,i_%:ș262354,w%,i%,,,-1,�$(i_%!28):�
�
�]ݤ`_(w%,i%):!i_%=w%:i_%!4=i%:ș262350,,i_%:I%=(i_%!28):ȕ?I%>31:I%+=1:�:?I%=13:=$(i_%!28)
�
����M_:�x%,y%:!J_%=F_%:ș262347,,J_%:x%=J_%!4-J_%!20:y%=J_%!16-J_%!24:J_%!4=6:ș262350,,J_%:!J_%=J_%!8+x%:J_%!4=J_%!12+y%:J_%!8=J_%!16+x%:J_%!12=J_%!20+y%:ș271360,%11000101,1,J_%!28,J_%:�
�
����N_:ș271361:ș262351,,J_%:J_%!20=J_%!12:J_%!24=J_%!16:J_%!28=!J_%:J_%!32=J_%!4:J_%!&80=F_%:J_%!&84=1:ș262350,,J_%+&80:B`$="":I%=J_%!&9C:ȕ?I%>32:B`$+=�(?I%):I%+=1:�:J_%!36=100:J_%!40=Z_%:$(J_%+44)=B`$:!J_%=(�(B`$)+49)��3
�5J_%!12=0:J_%!16=1:ș262375,17,J_%,J_%!20,J_%!24:�
�
����G_(w%,C`%,D`%,E`%):�F`%,G`%,H`%,I`%,J`%:ș53,-1,4�,,F`%:ș53,-1,11�,,G`%:G`%=(G`%<<F`%)+D`%:ș53,-1,5�,,F`%:ș53,-1,12�,,H`%:H`%=(H`%<<F`%)+E`%:!i_%=w%:ș262347,,i_%:I`%=i_%!12-i_%!4:J`%=i_%!16-i_%!8:G`%=(G`%-I`%)�2
�`H`%=(H`%-J`%)�2:i_%!4=G`%:i_%!12=G`%+I`%:i_%!8=H`%:i_%!16=H`%+J`%:i_%!28=C`%:ș262341,,i_%:�
�
�<��K`(w%):!J_%=w%:ș262347,,J_%:J_%!28=-1:ș262341,,J_%:�
�
�EݤX_(L`%):�e%:ș262380,M`%+L`%,-1�e%:�e%<(M`%+L`%):=�:�:=e%+&8000
�
�{��C_(x$,f%):I_%=&C31:ș263874:i_%!&80=0:$(i_%+&84)="Error "+�(�)+": "+x$+�(0):ș262367,i_%+&80,17,N`%:�s_%>0�#s_%:s_%=0
��r_%>0�#r_%:r_%=0
�
�f%�L_
��
�
���L_:
��r_%>0�#r_%
��s_%>0�#s_%
�ș262365,O`%,&4B534154:�

QݤP_(P`%,a$):i_%!&80=0:$(i_%+&84)=a$+�(0):ș262367,i_%+&80,16�P`%,N`%�,I%:=I%

Dݤ__(Q`%):�p%:p%=R`%:ȕQ`%>0:�:p%+=1:�?p%<32:p%+=1:Q`%-=1:�:=$p%

H��S`:ș8,17,"<Obey$Dir>.DOS_Tran"�F%,,,,L%:�(F%�1)<>1�f_% 8:!f_%=0:�
Kș8,16,"<Obey$Dir>.DOS_Tran",Y_%:L%+=Y_%:C%=2:�I%=Y_%�L%:�?I%=10 ?I%=13
�?I%=13 C%+=1
��:�f_% 8*C%:C%=f_%:I%=Y_%:ȕI%<L%:J%=I%:�:I%+=1:�?I%<33:?I%=13:$C%=$J%:�:I%+=1:�?I%>32:ș131105,16,I%�,,C%!4:ȕ?I%<>13:I%+=1:�:I%+=1:C%+=8:�:!C%=0:C%!4=0:C%!8=0:�
$
%|��T` (U`%):�V`% U`%:ș262361,,"<Obey$Dir>.templ":ș262363,,Y_%,V`%,V`%+U`%,-1,"main",0�,,R%:ș262337,,Y_%�F_%:ș262362:�
,
-i��B_:ș262336,200,&4B534154,"Joiner"�W`%,O`%:�W`%<300�0,"This program requires RISC-OS 3 or better":�
0��J_%&180,i_%&100,N`% 24,X`%&40:s_%=0:r_%=0:$N`%="Joiner":ș35,"Obey$Dir",J_%,256,0,3�,,I%:ȕJ_%?I%<>�".":I%-=1:�:J_%?I%=13:R_$=$J_%:ș41,49,"<Obey$Dir>"�,,D%:�D%>&800000 d_%=��d_%=�
6�(-6)d_%=�:R_$="ADFS::0.$"
7JM`%=�-&8000:Y_%=�:�X_(&4000)=�:�-1,"Not enough memory to run !Joiner"
9;�T`(&400):�S`:I_%=%110000110001:w_%=4:c_%=1:I%=�X_(0):�
�

00000000  0d 00 01 10 f4 20 2d 2d  3e 20 4a 6f 69 6e 65 72  |..... --> Joiner|
00000010  0d 00 02 3c f4 ab ab ab  ab ab ab ab ab ab ab ab  |...<............|
00000020  ab ab ab ab ab ab ab ab  ab ab ab ab ab ab ab ab  |................|
*
00000040  ab ab ab ab ab ab ab ab  ab ab ab ab 0d 00 04 3c  |...............<|
00000050  f4 bb bb bb bb bb bb bb  bb bb bb bb bb bb bb bb  |................|
00000060  bb bb bb bb bb bb bb bb  bb bb bb bb bb bb bb bb  |................|
*
00000080  bb bb bb bb bb bb bb bb  0d 00 05 3c f4 20 54 68  |...........<. Th|
00000090  69 73 20 70 72 6f 67 72  61 6d 20 61 6e 64 20 61  |is program and a|
000000a0  6c 6c 20 64 6f 63 75 6d  65 6e 74 61 74 69 6f 6e  |ll documentation|
000000b0  20 a9 20 44 61 76 69 64  20 48 6f 6c 64 65 6e 20  | . David Holden |
000000c0  31 39 39 35 0d 00 06 3c  f4 ab ab ab ab ab ab ab  |1995...<........|
000000d0  ab ab ab ab ab ab ab ab  ab ab ab ab ab ab ab ab  |................|
*
00000100  0d 00 07 3c f4 bb bb bb  bb bb bb bb bb bb bb bb  |...<............|
00000110  bb bb bb bb bb bb bb bb  bb bb bb bb bb bb bb bb  |................|
*
00000130  bb bb bb bb bb bb bb bb  bb bb bb bb 0d 00 08 0e  |................|
00000140  41 5f 24 3d 22 30 2e 31  30 22 0d 00 0a 38 ee 85  |A_$="0.10"...8..|
00000150  85 a2 30 2c 22 45 72 72  6f 72 20 22 2b c3 28 9e  |..0,"Error "+.(.|
00000160  29 2b 22 20 64 75 72 69  6e 67 20 69 6e 69 74 69  |)+" during initi|
00000170  61 6c 69 73 61 74 69 6f  6e 20 3a 20 22 2b f6 24  |alisation : "+.$|
00000180  3a e0 0d 00 0c 13 f2 42  5f 3a ee 85 f2 43 5f 28  |:......B_:...C_(|
00000190  f6 24 2c b9 29 0d 00 0e  6d f2 44 5f 3a f2 45 5f  |.$,.)...m.D_:.E_|
000001a0  28 46 5f 25 2c 33 2c 22  44 72 61 67 20 69 63 6f  |(F_%,3,"Drag ico|
000001b0  6e 20 74 6f 20 64 65 73  74 69 6e 61 74 69 6f 6e  |n to destination|
000001c0  22 29 3a f2 45 5f 28 46  5f 25 2c 34 2c 22 66 6f  |"):.E_(F_%,4,"fo|
000001d0  72 20 74 68 65 20 6a 6f  69 6e 65 64 20 75 70 20  |r the joined up |
000001e0  66 69 6c 65 2e 22 29 3a  f2 47 5f 28 46 5f 25 2c  |file."):.G_(F_%,|
000001f0  2d 31 2c 30 2c 30 29 3a  f2 48 5f 28 46 5f 25 2c  |-1,0,0):.H_(F_%,|
00000200  31 29 0d 00 13 0f ee 85  f2 43 5f 28 f6 24 2c b9  |1).......C_(.$,.|
00000210  29 0d 00 15 21 f5 3a c8  99 32 36 32 33 34 33 2c  |)...!.:..262343,|
00000220  49 5f 25 2c 4a 5f 25 b8  4b 5f 25 3a c8 8e 4b 5f  |I_%,J_%.K_%:..K_|
00000230  25 ca 0d 00 19 14 c9 32  3a c8 99 32 36 32 33 34  |%......2:..26234|
00000240  31 2c 2c 4a 5f 25 0d 00  1a 13 c9 33 3a e7 21 4a  |1,,J_%.....3:.!J|
00000250  5f 25 3d 46 5f 25 f2 4c  5f 0d 00 1b 1e c9 36 3a  |_%=F_%.L_.....6:|
00000260  e7 4a 5f 25 21 31 32 3d  46 5f 25 e7 4a 5f 25 21  |.J_%!12=F_%.J_%!|
00000270  31 36 3d 36 f2 4d 5f 0d  00 1c 0a c9 37 3a f2 4e  |16=6.M_.....7:.N|
00000280  5f 0d 00 1d 16 c9 38 3a  c8 99 32 36 32 33 36 34  |_.....8:..262364|
00000290  2c 4a 5f 25 21 32 34 0d  00 1e 14 c9 31 37 2c 31  |,J_%!24.....17,1|
000002a0  38 3a c8 8e 4a 5f 25 21  31 36 ca 0d 00 1f 0a c9  |8:..J_%!16......|
000002b0  30 3a f2 4c 5f 0d 00 20  0a c9 32 3a f2 4f 5f 0d  |0:.L_.. ..2:.O_.|
000002c0  00 21 05 cb 0d 00 22 0d  cb 3a e7 49 5f 25 3d 30  |.!...."..:.I_%=0|
000002d0  8c 0d 00 24 30 49 25 3d  a4 50 5f 28 31 2c 22 66  |...$0I%=.P_(1,"f|
000002e0  6c 61 67 20 3d 20 22 2b  c3 28 51 5f 25 29 2b 22  |lag = "+.(Q_%)+"|
000002f0  20 3a 20 22 2b 52 5f 24  2b 22 2e 22 2b 53 5f 24  | : "+R_$+"."+S_$|
00000300  29 0d 00 26 0a c8 8e 51  5f 25 ca 0d 00 28 0f c9  |)..&...Q_%...(..|
00000310  31 30 30 3a 51 5f 25 2b  3d 31 0d 00 29 0f c9 31  |100:Q_%+=1..)..1|
00000320  30 31 3a 51 5f 25 2b 3d  31 0d 00 2a 0f c9 31 30  |01:Q_%+=1..*..10|
00000330  32 3a 51 5f 25 2b 3d 31  0d 00 2b 0c c9 31 30 33  |2:Q_%+=1..+..103|
00000340  3a f2 54 5f 0d 00 2c 0c  c9 31 31 30 3a f2 55 5f  |:.T_..,..110:.U_|
00000350  0d 00 2d 0e 7f 3a 49 5f  25 3d 26 43 33 31 0d 00  |..-..:I_%=&C31..|
00000360  2e 05 cb 0d 00 2f 08 cd  3a fd a3 0d 00 31 04 0d  |...../..:....1..|
00000370  00 32 43 dd f2 44 5f 3a  ea 56 5f 24 2c 57 5f 25  |.2C..D_:.V_$,W_%|
00000380  3a e7 a4 58 5f 28 26 34  30 30 30 29 3d a3 85 30  |:..X_(&4000)=..0|
00000390  2c 22 4e 6f 74 20 65 6e  6f 75 67 68 20 52 41 4d  |,"Not enough RAM|
000003a0  20 74 6f 20 72 75 6e 20  21 4a 6f 69 6e 65 72 22  | to run !Joiner"|
000003b0  3a e0 0d 00 35 61 c8 99  31 32 2c 31 32 2c 52 5f  |:...5a..12,12,R_|
000003c0  24 2c 59 5f 25 2c 37 30  2c 30 2c 26 31 30 30 2c  |$,Y_%,70,0,&100,|
000003d0  22 2a 30 31 22 b8 2c 2c  2c 46 25 3a e7 46 25 3d  |"*01".,,,F%:.F%=|
000003e0  30 85 31 30 30 2c 22 4e  6f 20 70 72 65 76 69 6f  |0.100,"No previo|
000003f0  75 73 6c 79 20 73 70 6c  69 74 20 66 69 6c 65 20  |usly split file |
00000400  66 6f 75 6e 64 20 6f 6e  20 74 68 69 73 20 64 69  |found on this di|
00000410  73 63 22 0d 00 37 7d 5a  5f 25 3d 59 5f 25 21 32  |sc"..7}Z_%=Y_%!2|
00000420  30 3a 49 25 3d 59 5f 25  2b 32 34 3a c8 95 3f 49  |0:I%=Y_%+24:..?I|
00000430  25 3e 33 32 3a 49 25 2b  3d 31 3a ce 3a 49 25 2d  |%>32:I%+=1:.:I%-|
00000440  3d 32 3a 3f 49 25 3d 31  33 3a 61 5f 24 3d 24 28  |=2:?I%=13:a_$=$(|
00000450  59 5f 25 2b 32 34 29 3a  53 5f 24 3d a4 62 5f 28  |Y_%+24):S_$=.b_(|
00000460  61 5f 24 2c 63 5f 25 29  3a c8 99 34 31 2c 34 39  |a_$,c_%):..41,49|
00000470  2c 52 5f 24 b8 2c 2c 57  5f 25 3a e7 64 5f 25 3d  |,R_$.,,W_%:.d_%=|
00000480  a3 52 5f 24 3d 22 41 44  46 53 3a 3a 30 2e 24 22  |.R_$="ADFS::0.$"|
00000490  0d 00 3d 1c e7 57 5f 25  3d 26 42 34 30 30 30 84  |..=..W_%=&B4000.|
000004a0  57 5f 25 3d 26 31 36 38  30 30 30 8c 0d 00 3e 18  |W_%=&168000...>.|
000004b0  e7 c2 56 5f 24 29 3d 22  2f 22 20 56 5f 24 3d c0  |..V_$)="/" V_$=.|
000004c0  56 5f 24 29 0d 00 3f 36  c8 99 31 32 2c 31 32 2c  |V_$)..?6..12,12,|
000004d0  52 5f 24 2c 59 5f 25 2c  37 30 2c 30 2c 26 31 30  |R_$,Y_%,70,0,&10|
000004e0  30 2c 22 46 49 4c 45 54  59 50 45 2a 22 b8 2c 2c  |0,"FILETYPE*".,,|
000004f0  2c 46 25 3a e7 46 25 3e  30 8c 0d 00 41 54 49 25  |,F%:.F%>0...ATI%|
00000500  3d 59 5f 25 2b 33 32 3a  c8 95 3f 49 25 3e 31 33  |=Y_%+32:..?I%>13|
00000510  3a 49 25 2b 3d 31 3a ce  3a 3f 49 25 3d 31 33 3a  |:I%+=1:.:?I%=13:|
00000520  65 5f 24 3d 24 28 59 5f  25 2b 33 33 29 3a 43 25  |e_$=$(Y_%+33):C%|
00000530  3d 66 5f 25 3a f5 3a e7  24 43 25 3d 65 5f 24 20  |=f_%:.:.$C%=e_$ |
00000540  5a 5f 25 3d 43 25 21 34  8b 43 25 2b 3d 38 0d 00  |Z_%=C%!4.C%+=8..|
00000550  45 12 fd 21 43 25 3d 30  84 24 43 25 3d 65 5f 24  |E..!C%=0.$C%=e_$|
00000560  0d 00 46 05 cd 0d 00 47  16 cd 3a f2 45 5f 28 46  |..F....G..:.E_(F|
00000570  5f 25 2c 31 2c 61 5f 24  29 3a e1 0d 00 4a 04 0d  |_%,1,a_$):...J..|
00000580  00 4b 1a dd f2 4f 5f 3a  ea 85 3a ee 85 ea f2 43  |.K...O_:..:....C|
00000590  5f 28 f6 24 2c a3 29 3a  e1 0d 00 4d e4 49 25 3d  |_(.$,.):...M.I%=|
000005a0  4a 5f 25 2b 34 34 3a c8  95 3f 49 25 3e 33 31 3a  |J_%+44:..?I%>31:|
000005b0  49 25 2b 3d 31 3a ce 3a  3f 49 25 3d 31 33 3a 67  |I%+=1:.:?I%=13:g|
000005c0  5f 24 3d 24 28 4a 5f 25  2b 34 34 29 3a c8 99 32  |_$=$(J_%+44):..2|
000005d0  36 32 33 35 34 2c 2d 31  2c 2d 31 3a f2 45 5f 28  |62354,-1,-1:.E_(|
000005e0  46 5f 25 2c 31 2c 67 5f  24 29 3a c8 95 3f 49 25  |F_%,1,g_$):..?I%|
000005f0  3c 3e 97 22 2e 22 3a 49  25 2d 3d 31 3a ce 3a 3f  |<>.".":I%-=1:.:?|
00000600  49 25 3d 31 33 3a c8 99  38 2c 31 31 2c 67 5f 24  |I%=13:..8,11,g_$|
00000610  2c 5a 5f 25 3a 49 5f 25  3d 30 3a 68 5f 25 3d b9  |,Z_%:I_%=0:h_%=.|
00000620  3a 51 5f 25 3d 31 30 30  3a 21 69 5f 25 3d 46 5f  |:Q_%=100:!i_%=F_|
00000630  25 3a 69 5f 25 21 34 3d  36 3a c8 99 32 36 32 33  |%:i_%!4=6:..2623|
00000640  35 30 2c 2c 69 5f 25 3a  c8 99 32 36 32 33 34 30  |50,,i_%:..262340|
00000650  2c 2c 69 5f 25 3a c8 99  32 36 32 33 35 33 2c 46  |,,i_%:..262353,F|
00000660  5f 25 2c 69 5f 25 21 38  2c 69 5f 25 21 31 32 2c  |_%,i_%!8,i_%!12,|
00000670  69 5f 25 21 31 36 2c 69  5f 25 21 32 30 0d 00 57  |i_%!16,i_%!20..W|
00000680  17 6a 5f 25 3d 30 3a 63  5f 25 3d 31 3a 6b 5f 25  |.j_%=0:c_%=1:k_%|
00000690  3d 30 3a e1 0d 00 59 04  0d 00 5a 2f dd f2 54 5f  |=0:...Y...Z/..T_|
000006a0  3a ea 6c 5f 25 2c 66 24  2c 6d 5f 25 2c 6e 5f 25  |:.l_%,f$,m_%,n_%|
000006b0  2c 6f 5f 25 3a ea 85 3a  ee 85 ea 3a f2 43 5f 28  |,o_%:..:...:.C_(|
000006c0  f6 24 2c b9 29 3a e1 0d  00 5d 32 66 24 3d 52 5f  |.$,.):...]2f$=R_|
000006d0  24 2b 22 2e 22 2b 53 5f  24 3a c8 99 31 33 31 30  |$+"."+S_$:..1310|
000006e0  38 30 2c 31 37 2c 66 24  b8 49 25 2c 2c 2c 2c 6c  |80,17,f$.I%,,,,l|
000006f0  5f 25 3a e7 49 25 3d 30  8c 0d 00 60 5d e7 64 5f  |_%:.I%=0...`].d_|
00000700  25 3d b9 49 5f 25 3d 26  33 43 31 3a f2 45 5f 28  |%=.I_%=&3C1:.E_(|
00000710  46 5f 25 2c 33 2c 22 4e  6f 20 6d 6f 72 65 20 66  |F_%,3,"No more f|
00000720  69 6c 65 73 20 66 6f 75  6e 64 22 29 3a f2 45 5f  |iles found"):.E_|
00000730  28 46 5f 25 2c 34 2c c3  28 6b 5f 25 29 2b 22 20  |(F_%,4,.(k_%)+" |
00000740  62 79 74 65 73 20 74 72  61 6e 73 66 65 72 72 65  |bytes transferre|
00000750  64 2e 22 29 3a e1 0d 00  61 36 e7 a4 50 5f 28 33  |d."):...a6..P_(3|
00000760  2c 22 54 68 69 73 20 64  69 73 63 20 64 6f 65 73  |,"This disc does|
00000770  20 6e 6f 74 20 63 6f 6e  74 61 69 6e 20 22 2b 53  | not contain "+S|
00000780  5f 24 29 3d 31 f2 70 5f  3a e1 8b e0 0d 00 62 84  |_$)=1.p_:.....b.|
00000790  cd 3a 6e 5f 25 3d a4 71  5f 28 6c 5f 25 29 3a 6d  |.:n_%=.q_(l_%):m|
000007a0  5f 25 3d 6c 5f 25 3a f2  45 5f 28 46 5f 25 2c 33  |_%=l_%:.E_(F_%,3|
000007b0  2c 22 41 64 64 69 6e 67  20 66 69 6c 65 20 22 2b  |,"Adding file "+|
000007c0  66 24 29 3a f2 45 5f 28  46 5f 25 2c 34 2c c3 28  |f$):.E_(F_%,4,.(|
000007d0  6c 5f 25 29 2b 22 20 62  79 74 65 73 22 29 3a c8  |l_%)+" bytes"):.|
000007e0  99 32 36 32 33 34 33 2c  30 2c 4a 5f 25 3a c8 99  |.262343,0,J_%:..|
000007f0  32 36 32 33 34 33 2c 30  2c 4a 5f 25 3a c8 99 32  |262343,0,J_%:..2|
00000800  36 33 38 37 32 3a e7 6e  5f 25 3e 3d 6c 5f 25 8c  |63872:.n_%>=l_%.|
00000810  0d 00 6b 52 c8 99 38 2c  31 36 2c 66 24 2c 59 5f  |..kR..8,16,f$,Y_|
00000820  25 3a c8 99 31 33 2c 26  43 33 2c 67 5f 24 b8 72  |%:..13,&C3,g_$.r|
00000830  5f 25 3a c8 99 31 32 2c  31 2c 72 5f 25 2c 59 5f  |_%:..12,1,r_%,Y_|
00000840  25 2c 6c 5f 25 2c 6a 5f  25 b8 2c 2c 2c 2c 6a 5f  |%,l_%,j_%.,,,,j_|
00000850  25 3a c8 99 31 33 2c 30  2c 72 5f 25 3a 72 5f 25  |%:..13,0,r_%:r_%|
00000860  3d 30 0d 00 6f 4b cc 3a  c8 99 31 33 2c 26 43 33  |=0..oK.:..13,&C3|
00000870  2c 66 24 b8 73 5f 25 3a  c8 99 31 33 2c 26 43 33  |,f$.s_%:..13,&C3|
00000880  2c 67 5f 24 b8 72 5f 25  3a 6f 5f 25 3d 30 3a c8  |,g_$.r_%:o_%=0:.|
00000890  95 6d 5f 25 3e 30 3a e7  6e 5f 25 3e 6d 5f 25 20  |.m_%>0:.n_%>m_% |
000008a0  43 25 3d 6d 5f 25 8b 43  25 3d 6e 5f 25 0d 00 75  |C%=m_%.C%=n_%..u|
000008b0  6b c8 99 31 32 2c 33 2c  73 5f 25 2c 59 5f 25 2c  |k..12,3,s_%,Y_%,|
000008c0  43 25 2c 6f 5f 25 b8 2c  2c 2c 2c 6f 5f 25 3a c8  |C%,o_%.,,,,o_%:.|
000008d0  99 31 32 2c 31 2c 72 5f  25 2c 59 5f 25 2c 43 25  |.12,1,r_%,Y_%,C%|
000008e0  2c 6a 5f 25 b8 2c 2c 2c  2c 6a 5f 25 3a 6d 5f 25  |,j_%.,,,,j_%:m_%|
000008f0  2d 3d 43 25 3a ce 3a c8  99 31 33 2c 30 2c 72 5f  |-=C%:.:..13,0,r_|
00000900  25 3a 72 5f 25 3d 30 3a  c8 99 31 33 2c 30 2c 73  |%:r_%=0:..13,0,s|
00000910  5f 25 3a 73 5f 25 3d 30  0d 00 7b 49 cd 3a c8 99  |_%:s_%=0..{I.:..|
00000920  32 36 33 38 37 33 3a f2  45 5f 28 46 5f 25 2c 32  |263873:.E_(F_%,2|
00000930  2c 66 24 29 3a 6b 5f 25  2b 3d 6c 5f 25 3a 63 5f  |,f$):k_%+=l_%:c_|
00000940  25 2b 3d 31 3a 68 5f 25  3d b9 3a 53 5f 24 3d a4  |%+=1:h_%=.:S_$=.|
00000950  62 5f 28 61 5f 24 2c 63  5f 25 29 3a f2 70 5f 3a  |b_(a_$,c_%):.p_:|
00000960  e1 0d 00 82 04 0d 00 83  31 dd a4 71 5f 28 74 5f  |........1..q_(t_|
00000970  25 29 3a ea 75 5f 25 3a  f5 3a 75 5f 25 3d a4 58  |%):.u_%:.:u_%=.X|
00000980  5f 28 74 5f 25 29 3a e7  75 5f 25 3d a3 74 5f 25  |_(t_%):.u_%=.t_%|
00000990  3d 74 5f 25 81 32 0d 00  88 0f fd 75 5f 25 3e 30  |=t_%.2.....u_%>0|
000009a0  3a 3d 74 5f 25 0d 00 8a  04 0d 00 8b 70 dd f2 70  |:=t_%.......p..p|
000009b0  5f 3a ef 37 3a f2 45 5f  28 46 5f 25 2c 33 2c 22  |_:.7:.E_(F_%,3,"|
000009c0  49 6e 73 65 72 74 20 64  69 73 63 20 77 69 74 68  |Insert disc with|
000009d0  20 22 2b 53 5f 24 29 3a  f2 45 5f 28 46 5f 25 2c  | "+S_$):.E_(F_%,|
000009e0  34 2c 22 6f 72 20 63 6c  6f 73 65 20 77 69 6e 64  |4,"or close wind|
000009f0  6f 77 20 74 6f 20 66 69  6e 69 73 68 22 29 3a 76  |ow to finish"):v|
00000a00  5f 25 3d a3 3a 53 25 3d  30 3a 49 5f 25 3d 30 3a  |_%=.:S%=0:I_%=0:|
00000a10  51 5f 25 3d 31 31 30 3a  e1 0d 00 92 04 0d 00 93  |Q_%=110:........|
00000a20  18 dd f2 55 5f 3a e7 64  5f 25 3d b9 51 5f 25 3d  |...U_:.d_%=.Q_%=|
00000a30  31 30 30 3a e1 0d 00 95  45 c8 99 33 34 2c 31 31  |100:....E..34,11|
00000a40  2c 31 2c 26 35 38 3a c8  99 33 34 2c 31 31 2c 30  |,1,&58:..34,11,0|
00000a50  2c 26 35 38 3a c8 99 32  36 32 37 33 32 2c 31 2c  |,&58:..262732,1,|
00000a60  30 2c 53 25 b8 2c 2c 53  25 2c 46 25 3a e7 46 25  |0,S%.,,S%,F%:.F%|
00000a70  80 38 20 76 5f 25 3d b9  3a e1 0d 00 97 1b e7 76  |.8 v_%=.:......v|
00000a80  5f 25 e7 46 25 80 77 5f  25 3d 77 5f 25 20 51 5f  |_%.F%.w_%=w_% Q_|
00000a90  25 3d 31 30 30 0d 00 98  05 e1 0d 00 99 04 0d 00  |%=100...........|
00000aa0  9a 29 dd f2 78 5f 3a ea  6c 25 3a ea 85 3a ee 85  |.)..x_:.l%:..:..|
00000ab0  ea 3a f2 43 5f 28 f6 24  2c a3 29 3a 49 25 3d a4  |.:.C_(.$,.):I%=.|
00000ac0  58 5f 28 30 29 3a e1 0d  00 9d 59 f2 45 5f 28 79  |X_(0):....Y.E_(y|
00000ad0  5f 25 2c 7a 5f 25 2c a4  5f 5f 28 32 37 29 2b 67  |_%,z_%,.__(27)+g|
00000ae0  5f 24 29 3a c8 99 32 36  33 38 37 32 3a c8 99 38  |_$):..263872:..8|
00000af0  2c 31 37 2c a4 60 5f 28  79 5f 25 2c 41 60 25 29  |,17,.`_(y_%,A`%)|
00000b00  b8 49 25 2c 2c 2c 2c 6c  25 3a e7 a4 58 5f 28 6c  |.I%,,,,l%:..X_(l|
00000b10  25 29 3d a3 85 31 30 30  2c a4 5f 5f 28 32 35 29  |%)=..100,.__(25)|
00000b20  0d 00 a1 93 c8 99 38 2c  31 36 2c a4 60 5f 28 79  |......8,16,.`_(y|
00000b30  5f 25 2c 41 60 25 29 2c  59 5f 25 3a c8 99 31 33  |_%,A`%),Y_%:..13|
00000b40  2c 26 43 33 2c 67 5f 24  b8 72 5f 25 3a c8 99 31  |,&C3,g_$.r_%:..1|
00000b50  32 2c 31 2c 72 5f 25 2c  59 5f 25 2c 6c 25 2c 6a  |2,1,r_%,Y_%,l%,j|
00000b60  5f 25 b8 2c 2c 2c 2c 6a  5f 25 3a c8 99 31 33 2c  |_%.,,,,j_%:..13,|
00000b70  30 2c 72 5f 25 3a 72 5f  25 3d 30 3a c8 99 32 36  |0,r_%:r_%=0:..26|
00000b80  33 38 37 33 3a 6b 5f 25  2b 3d 6c 25 3a 68 5f 25  |3873:k_%+=l%:h_%|
00000b90  3d b9 3a f2 45 5f 28 79  5f 25 2c 7a 5f 25 2c c3  |=.:.E_(y_%,z_%,.|
00000ba0  28 6c 25 29 2b 22 20 22  2b a4 5f 5f 28 32 36 29  |(l%)+" "+.__(26)|
00000bb0  29 3a e1 0d 00 a9 04 0d  00 aa 22 dd a4 62 5f 28  |):........"..b_(|
00000bc0  61 24 2c 63 25 29 3a 3d  61 24 2b c2 22 30 30 22  |a$,c%):=a$+."00"|
00000bd0  2b c3 28 63 25 29 2c 32  29 0d 00 ac 04 0d 00 ad  |+.(c%),2).......|
00000be0  5f dd f2 45 5f 28 77 25  2c 69 25 2c 73 24 29 3a  |_..E_(w%,i%,s$):|
00000bf0  21 69 5f 25 3d 77 25 3a  69 5f 25 21 34 3d 69 25  |!i_%=w%:i_%!4=i%|
00000c00  3a c8 99 32 36 32 33 35  30 2c 2c 69 5f 25 3a 69  |:..262350,,i_%:i|
00000c10  5f 25 21 38 3d 30 3a 69  5f 25 21 31 32 3d 30 3a  |_%!8=0:i_%!12=0:|
00000c20  24 28 69 5f 25 21 32 38  29 3d 73 24 3a c8 99 32  |$(i_%!28)=s$:..2|
00000c30  36 32 33 34 39 2c 2c 69  5f 25 3a e1 0d 00 b1 04  |62349,,i_%:.....|
00000c40  0d 00 b2 4f dd f2 48 5f  28 77 25 2c 69 25 29 3a  |...O..H_(w%,i%):|
00000c50  21 69 5f 25 3d 77 25 3a  69 5f 25 21 34 3d 69 25  |!i_%=w%:i_%!4=i%|
00000c60  3a c8 99 32 36 32 33 35  30 2c 2c 69 5f 25 3a c8  |:..262350,,i_%:.|
00000c70  99 32 36 32 33 35 34 2c  77 25 2c 69 25 2c 2c 2c  |.262354,w%,i%,,,|
00000c80  2d 31 2c a9 24 28 69 5f  25 21 32 38 29 3a e1 0d  |-1,.$(i_%!28):..|
00000c90  00 b6 04 0d 00 b7 5d dd  a4 60 5f 28 77 25 2c 69  |......]..`_(w%,i|
00000ca0  25 29 3a 21 69 5f 25 3d  77 25 3a 69 5f 25 21 34  |%):!i_%=w%:i_%!4|
00000cb0  3d 69 25 3a c8 99 32 36  32 33 35 30 2c 2c 69 5f  |=i%:..262350,,i_|
00000cc0  25 3a 49 25 3d 28 69 5f  25 21 32 38 29 3a c8 95  |%:I%=(i_%!28):..|
00000cd0  3f 49 25 3e 33 31 3a 49  25 2b 3d 31 3a ce 3a 3f  |?I%>31:I%+=1:.:?|
00000ce0  49 25 3d 31 33 3a 3d 24  28 69 5f 25 21 32 38 29  |I%=13:=$(i_%!28)|
00000cf0  0d 00 bb 04 0d 00 bc be  dd f2 4d 5f 3a ea 78 25  |..........M_:.x%|
00000d00  2c 79 25 3a 21 4a 5f 25  3d 46 5f 25 3a c8 99 32  |,y%:!J_%=F_%:..2|
00000d10  36 32 33 34 37 2c 2c 4a  5f 25 3a 78 25 3d 4a 5f  |62347,,J_%:x%=J_|
00000d20  25 21 34 2d 4a 5f 25 21  32 30 3a 79 25 3d 4a 5f  |%!4-J_%!20:y%=J_|
00000d30  25 21 31 36 2d 4a 5f 25  21 32 34 3a 4a 5f 25 21  |%!16-J_%!24:J_%!|
00000d40  34 3d 36 3a c8 99 32 36  32 33 35 30 2c 2c 4a 5f  |4=6:..262350,,J_|
00000d50  25 3a 21 4a 5f 25 3d 4a  5f 25 21 38 2b 78 25 3a  |%:!J_%=J_%!8+x%:|
00000d60  4a 5f 25 21 34 3d 4a 5f  25 21 31 32 2b 79 25 3a  |J_%!4=J_%!12+y%:|
00000d70  4a 5f 25 21 38 3d 4a 5f  25 21 31 36 2b 78 25 3a  |J_%!8=J_%!16+x%:|
00000d80  4a 5f 25 21 31 32 3d 4a  5f 25 21 32 30 2b 79 25  |J_%!12=J_%!20+y%|
00000d90  3a c8 99 32 37 31 33 36  30 2c 25 31 31 30 30 30  |:..271360,%11000|
00000da0  31 30 31 2c 31 2c 4a 5f  25 21 32 38 2c 4a 5f 25  |101,1,J_%!28,J_%|
00000db0  3a e1 0d 00 c5 04 0d 00  c6 e3 dd f2 4e 5f 3a c8  |:...........N_:.|
00000dc0  99 32 37 31 33 36 31 3a  c8 99 32 36 32 33 35 31  |.271361:..262351|
00000dd0  2c 2c 4a 5f 25 3a 4a 5f  25 21 32 30 3d 4a 5f 25  |,,J_%:J_%!20=J_%|
00000de0  21 31 32 3a 4a 5f 25 21  32 34 3d 4a 5f 25 21 31  |!12:J_%!24=J_%!1|
00000df0  36 3a 4a 5f 25 21 32 38  3d 21 4a 5f 25 3a 4a 5f  |6:J_%!28=!J_%:J_|
00000e00  25 21 33 32 3d 4a 5f 25  21 34 3a 4a 5f 25 21 26  |%!32=J_%!4:J_%!&|
00000e10  38 30 3d 46 5f 25 3a 4a  5f 25 21 26 38 34 3d 31  |80=F_%:J_%!&84=1|
00000e20  3a c8 99 32 36 32 33 35  30 2c 2c 4a 5f 25 2b 26  |:..262350,,J_%+&|
00000e30  38 30 3a 42 60 24 3d 22  22 3a 49 25 3d 4a 5f 25  |80:B`$="":I%=J_%|
00000e40  21 26 39 43 3a c8 95 3f  49 25 3e 33 32 3a 42 60  |!&9C:..?I%>32:B`|
00000e50  24 2b 3d bd 28 3f 49 25  29 3a 49 25 2b 3d 31 3a  |$+=.(?I%):I%+=1:|
00000e60  ce 3a 4a 5f 25 21 33 36  3d 31 30 30 3a 4a 5f 25  |.:J_%!36=100:J_%|
00000e70  21 34 30 3d 5a 5f 25 3a  24 28 4a 5f 25 2b 34 34  |!40=Z_%:$(J_%+44|
00000e80  29 3d 42 60 24 3a 21 4a  5f 25 3d 28 a9 28 42 60  |)=B`$:!J_%=(.(B`|
00000e90  24 29 2b 34 39 29 80 ac  33 0d 00 d0 35 4a 5f 25  |$)+49)..3...5J_%|
00000ea0  21 31 32 3d 30 3a 4a 5f  25 21 31 36 3d 31 3a c8  |!12=0:J_%!16=1:.|
00000eb0  99 32 36 32 33 37 35 2c  31 37 2c 4a 5f 25 2c 4a  |.262375,17,J_%,J|
00000ec0  5f 25 21 32 30 2c 4a 5f  25 21 32 34 3a e1 0d 00  |_%!20,J_%!24:...|
00000ed0  d3 04 0d 00 d4 dd dd f2  47 5f 28 77 25 2c 43 60  |........G_(w%,C`|
00000ee0  25 2c 44 60 25 2c 45 60  25 29 3a ea 46 60 25 2c  |%,D`%,E`%):.F`%,|
00000ef0  47 60 25 2c 48 60 25 2c  49 60 25 2c 4a 60 25 3a  |G`%,H`%,I`%,J`%:|
00000f00  c8 99 35 33 2c 2d 31 2c  34 b8 2c 2c 46 60 25 3a  |..53,-1,4.,,F`%:|
00000f10  c8 99 35 33 2c 2d 31 2c  31 31 b8 2c 2c 47 60 25  |..53,-1,11.,,G`%|
00000f20  3a 47 60 25 3d 28 47 60  25 3c 3c 46 60 25 29 2b  |:G`%=(G`%<<F`%)+|
00000f30  44 60 25 3a c8 99 35 33  2c 2d 31 2c 35 b8 2c 2c  |D`%:..53,-1,5.,,|
00000f40  46 60 25 3a c8 99 35 33  2c 2d 31 2c 31 32 b8 2c  |F`%:..53,-1,12.,|
00000f50  2c 48 60 25 3a 48 60 25  3d 28 48 60 25 3c 3c 46  |,H`%:H`%=(H`%<<F|
00000f60  60 25 29 2b 45 60 25 3a  21 69 5f 25 3d 77 25 3a  |`%)+E`%:!i_%=w%:|
00000f70  c8 99 32 36 32 33 34 37  2c 2c 69 5f 25 3a 49 60  |..262347,,i_%:I`|
00000f80  25 3d 69 5f 25 21 31 32  2d 69 5f 25 21 34 3a 4a  |%=i_%!12-i_%!4:J|
00000f90  60 25 3d 69 5f 25 21 31  36 2d 69 5f 25 21 38 3a  |`%=i_%!16-i_%!8:|
00000fa0  47 60 25 3d 28 47 60 25  2d 49 60 25 29 81 32 0d  |G`%=(G`%-I`%).2.|
00000fb0  00 e0 60 48 60 25 3d 28  48 60 25 2d 4a 60 25 29  |..`H`%=(H`%-J`%)|
00000fc0  81 32 3a 69 5f 25 21 34  3d 47 60 25 3a 69 5f 25  |.2:i_%!4=G`%:i_%|
00000fd0  21 31 32 3d 47 60 25 2b  49 60 25 3a 69 5f 25 21  |!12=G`%+I`%:i_%!|
00000fe0  38 3d 48 60 25 3a 69 5f  25 21 31 36 3d 48 60 25  |8=H`%:i_%!16=H`%|
00000ff0  2b 4a 60 25 3a 69 5f 25  21 32 38 3d 43 60 25 3a  |+J`%:i_%!28=C`%:|
00001000  c8 99 32 36 32 33 34 31  2c 2c 69 5f 25 3a e1 0d  |..262341,,i_%:..|
00001010  00 e6 04 0d 00 e7 3c dd  f2 4b 60 28 77 25 29 3a  |......<..K`(w%):|
00001020  21 4a 5f 25 3d 77 25 3a  c8 99 32 36 32 33 34 37  |!J_%=w%:..262347|
00001030  2c 2c 4a 5f 25 3a 4a 5f  25 21 32 38 3d 2d 31 3a  |,,J_%:J_%!28=-1:|
00001040  c8 99 32 36 32 33 34 31  2c 2c 4a 5f 25 3a e1 0d  |..262341,,J_%:..|
00001050  00 eb 04 0d 00 ec 45 dd  a4 58 5f 28 4c 60 25 29  |......E..X_(L`%)|
00001060  3a ea 65 25 3a c8 99 32  36 32 33 38 30 2c 4d 60  |:.e%:..262380,M`|
00001070  25 2b 4c 60 25 2c 2d 31  b8 65 25 3a e7 65 25 3c  |%+L`%,-1.e%:.e%<|
00001080  28 4d 60 25 2b 4c 60 25  29 3a 3d a3 3a 8b 3a 3d  |(M`%+L`%):=.:.:=|
00001090  65 25 2b 26 38 30 30 30  0d 00 f0 04 0d 00 f1 7b  |e%+&8000.......{|
000010a0  dd f2 43 5f 28 78 24 2c  66 25 29 3a 49 5f 25 3d  |..C_(x$,f%):I_%=|
000010b0  26 43 33 31 3a c8 99 32  36 33 38 37 34 3a 69 5f  |&C31:..263874:i_|
000010c0  25 21 26 38 30 3d 30 3a  24 28 69 5f 25 2b 26 38  |%!&80=0:$(i_%+&8|
000010d0  34 29 3d 22 45 72 72 6f  72 20 22 2b c3 28 9e 29  |4)="Error "+.(.)|
000010e0  2b 22 3a 20 22 2b 78 24  2b bd 28 30 29 3a c8 99  |+": "+x$+.(0):..|
000010f0  32 36 32 33 36 37 2c 69  5f 25 2b 26 38 30 2c 31  |262367,i_%+&80,1|
00001100  37 2c 4e 60 25 3a e7 73  5f 25 3e 30 d9 23 73 5f  |7,N`%:.s_%>0.#s_|
00001110  25 3a 73 5f 25 3d 30 0d  00 f6 15 e7 72 5f 25 3e  |%:s_%=0.....r_%>|
00001120  30 d9 23 72 5f 25 3a 72  5f 25 3d 30 0d 00 f7 0a  |0.#r_%:r_%=0....|
00001130  e7 66 25 f2 4c 5f 0d 00  f8 05 e1 0d 00 f9 04 0d  |.f%.L_..........|
00001140  00 fa 0c dd f2 4c 5f 3a  ee 85 87 0d 00 fc 0f e7  |.....L_:........|
00001150  72 5f 25 3e 30 d9 23 72  5f 25 0d 00 fd 0f e7 73  |r_%>0.#r_%.....s|
00001160  5f 25 3e 30 d9 23 73 5f  25 0d 00 fe 1c c8 99 32  |_%>0.#s_%......2|
00001170  36 32 33 36 35 2c 4f 60  25 2c 26 34 42 35 33 34  |62365,O`%,&4B534|
00001180  31 35 34 3a e0 0d 01 00  04 0d 01 01 51 dd a4 50  |154:........Q..P|
00001190  5f 28 50 60 25 2c 61 24  29 3a 69 5f 25 21 26 38  |_(P`%,a$):i_%!&8|
000011a0  30 3d 30 3a 24 28 69 5f  25 2b 26 38 34 29 3d 61  |0=0:$(i_%+&84)=a|
000011b0  24 2b bd 28 30 29 3a c8  99 32 36 32 33 36 37 2c  |$+.(0):..262367,|
000011c0  69 5f 25 2b 26 38 30 2c  31 36 84 50 60 25 2c 4e  |i_%+&80,16.P`%,N|
000011d0  60 25 b8 2c 49 25 3a 3d  49 25 0d 01 05 04 0d 01  |`%.,I%:=I%......|
000011e0  06 44 dd a4 5f 5f 28 51  60 25 29 3a ea 70 25 3a  |.D..__(Q`%):.p%:|
000011f0  70 25 3d 52 60 25 3a c8  95 51 60 25 3e 30 3a f5  |p%=R`%:..Q`%>0:.|
00001200  3a 70 25 2b 3d 31 3a fd  3f 70 25 3c 33 32 3a 70  |:p%+=1:.?p%<32:p|
00001210  25 2b 3d 31 3a 51 60 25  2d 3d 31 3a ce 3a 3d 24  |%+=1:Q`%-=1:.:=$|
00001220  70 25 0d 01 0e 04 0d 01  0f 48 dd f2 53 60 3a c8  |p%.......H..S`:.|
00001230  99 38 2c 31 37 2c 22 3c  4f 62 65 79 24 44 69 72  |.8,17,"<Obey$Dir|
00001240  3e 2e 44 4f 53 5f 54 72  61 6e 22 b8 46 25 2c 2c  |>.DOS_Tran".F%,,|
00001250  2c 2c 4c 25 3a e7 28 46  25 80 31 29 3c 3e 31 de  |,,L%:.(F%.1)<>1.|
00001260  66 5f 25 20 38 3a 21 66  5f 25 3d 30 3a e1 0d 01  |f_% 8:!f_%=0:...|
00001270  12 4b c8 99 38 2c 31 36  2c 22 3c 4f 62 65 79 24  |.K..8,16,"<Obey$|
00001280  44 69 72 3e 2e 44 4f 53  5f 54 72 61 6e 22 2c 59  |Dir>.DOS_Tran",Y|
00001290  5f 25 3a 4c 25 2b 3d 59  5f 25 3a 43 25 3d 32 3a  |_%:L%+=Y_%:C%=2:|
000012a0  e3 49 25 3d 59 5f 25 b8  4c 25 3a e7 3f 49 25 3d  |.I%=Y_%.L%:.?I%=|
000012b0  31 30 20 3f 49 25 3d 31  33 0d 01 16 11 e7 3f 49  |10 ?I%=13.....?I|
000012c0  25 3d 31 33 20 43 25 2b  3d 31 0d 01 17 a6 ed 3a  |%=13 C%+=1.....:|
000012d0  de 66 5f 25 20 38 2a 43  25 3a 43 25 3d 66 5f 25  |.f_% 8*C%:C%=f_%|
000012e0  3a 49 25 3d 59 5f 25 3a  c8 95 49 25 3c 4c 25 3a  |:I%=Y_%:..I%<L%:|
000012f0  4a 25 3d 49 25 3a f5 3a  49 25 2b 3d 31 3a fd 3f  |J%=I%:.:I%+=1:.?|
00001300  49 25 3c 33 33 3a 3f 49  25 3d 31 33 3a 24 43 25  |I%<33:?I%=13:$C%|
00001310  3d 24 4a 25 3a f5 3a 49  25 2b 3d 31 3a fd 3f 49  |=$J%:.:I%+=1:.?I|
00001320  25 3e 33 32 3a c8 99 31  33 31 31 30 35 2c 31 36  |%>32:..131105,16|
00001330  2c 49 25 b8 2c 2c 43 25  21 34 3a c8 95 3f 49 25  |,I%.,,C%!4:..?I%|
00001340  3c 3e 31 33 3a 49 25 2b  3d 31 3a ce 3a 49 25 2b  |<>13:I%+=1:.:I%+|
00001350  3d 31 3a 43 25 2b 3d 38  3a ce 3a 21 43 25 3d 30  |=1:C%+=8:.:!C%=0|
00001360  3a 43 25 21 34 3d 30 3a  43 25 21 38 3d 30 3a e1  |:C%!4=0:C%!8=0:.|
00001370  0d 01 24 04 0d 01 25 7c  dd f2 54 60 20 28 55 60  |..$...%|..T` (U`|
00001380  25 29 3a de 56 60 25 20  55 60 25 3a c8 99 32 36  |%):.V`% U`%:..26|
00001390  32 33 36 31 2c 2c 22 3c  4f 62 65 79 24 44 69 72  |2361,,"<Obey$Dir|
000013a0  3e 2e 74 65 6d 70 6c 22  3a c8 99 32 36 32 33 36  |>.templ":..26236|
000013b0  33 2c 2c 59 5f 25 2c 56  60 25 2c 56 60 25 2b 55  |3,,Y_%,V`%,V`%+U|
000013c0  60 25 2c 2d 31 2c 22 6d  61 69 6e 22 2c 30 b8 2c  |`%,-1,"main",0.,|
000013d0  2c 52 25 3a c8 99 32 36  32 33 33 37 2c 2c 59 5f  |,R%:..262337,,Y_|
000013e0  25 b8 46 5f 25 3a c8 99  32 36 32 33 36 32 3a e1  |%.F_%:..262362:.|
000013f0  0d 01 2c 04 0d 01 2d 69  dd f2 42 5f 3a c8 99 32  |..,...-i..B_:..2|
00001400  36 32 33 33 36 2c 32 30  30 2c 26 34 42 35 33 34  |62336,200,&4B534|
00001410  31 35 34 2c 22 4a 6f 69  6e 65 72 22 b8 57 60 25  |154,"Joiner".W`%|
00001420  2c 4f 60 25 3a e7 57 60  25 3c 33 30 30 85 30 2c  |,O`%:.W`%<300.0,|
00001430  22 54 68 69 73 20 70 72  6f 67 72 61 6d 20 72 65  |"This program re|
00001440  71 75 69 72 65 73 20 52  49 53 43 2d 4f 53 20 33  |quires RISC-OS 3|
00001450  20 6f 72 20 62 65 74 74  65 72 22 3a e0 0d 01 30  | or better":...0|
00001460  b9 de 4a 5f 25 26 31 38  30 2c 69 5f 25 26 31 30  |..J_%&180,i_%&10|
00001470  30 2c 4e 60 25 20 32 34  2c 58 60 25 26 34 30 3a  |0,N`% 24,X`%&40:|
00001480  73 5f 25 3d 30 3a 72 5f  25 3d 30 3a 24 4e 60 25  |s_%=0:r_%=0:$N`%|
00001490  3d 22 4a 6f 69 6e 65 72  22 3a c8 99 33 35 2c 22  |="Joiner":..35,"|
000014a0  4f 62 65 79 24 44 69 72  22 2c 4a 5f 25 2c 32 35  |Obey$Dir",J_%,25|
000014b0  36 2c 30 2c 33 b8 2c 2c  49 25 3a c8 95 4a 5f 25  |6,0,3.,,I%:..J_%|
000014c0  3f 49 25 3c 3e 97 22 2e  22 3a 49 25 2d 3d 31 3a  |?I%<>.".":I%-=1:|
000014d0  ce 3a 4a 5f 25 3f 49 25  3d 31 33 3a 52 5f 24 3d  |.:J_%?I%=13:R_$=|
000014e0  24 4a 5f 25 3a c8 99 34  31 2c 34 39 2c 22 3c 4f  |$J_%:..41,49,"<O|
000014f0  62 65 79 24 44 69 72 3e  22 b8 2c 2c 44 25 3a e7  |bey$Dir>".,,D%:.|
00001500  44 25 3e 26 38 30 30 30  30 30 20 64 5f 25 3d b9  |D%>&800000 d_%=.|
00001510  8b 64 5f 25 3d a3 0d 01  36 1f e7 a6 28 2d 36 29  |.d_%=...6...(-6)|
00001520  64 5f 25 3d a3 3a 52 5f  24 3d 22 41 44 46 53 3a  |d_%=.:R_$="ADFS:|
00001530  3a 30 2e 24 22 0d 01 37  4a 4d 60 25 3d 93 2d 26  |:0.$"..7JM`%=.-&|
00001540  38 30 30 30 3a 59 5f 25  3d 93 3a e7 a4 58 5f 28  |8000:Y_%=.:..X_(|
00001550  26 34 30 30 30 29 3d a3  3a 85 2d 31 2c 22 4e 6f  |&4000)=.:.-1,"No|
00001560  74 20 65 6e 6f 75 67 68  20 6d 65 6d 6f 72 79 20  |t enough memory |
00001570  74 6f 20 72 75 6e 20 21  4a 6f 69 6e 65 72 22 0d  |to run !Joiner".|
00001580  01 39 3b f2 54 60 28 26  34 30 30 29 3a f2 53 60  |.9;.T`(&400):.S`|
00001590  3a 49 5f 25 3d 25 31 31  30 30 30 30 31 31 30 30  |:I_%=%1100001100|
000015a0  30 31 3a 77 5f 25 3d 34  3a 63 5f 25 3d 31 3a 49  |01:w_%=4:c_%=1:I|
000015b0  25 3d a4 58 5f 28 30 29  3a e1 0d ff              |%=.X_(0):...|
000015bc

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .