Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_13_scp.adf » !Chopper_Chop » !Chopper/Resources/chopper

!Chopper/Resources/chopper

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: !Chopper/Resources/chopper
Read OK:
File size: 4477 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM --> Chopper
    2REMLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOG
    4REMVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL
    5REM This program and all documentation LEN David Holden 1995
    6REMLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOGLOG
    7REMVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVALVAL
    8A_$="0.12"
   10ONERRORERROREXT0,"Error "+STR$(ERL)+" during initialisation : "+REPORT$:END
   12PROCB_:ONERRORPROCC_(REPORT$,TRUE)
   14REPEAT:SYS262343,D_%,E_%TOF_%:CASEF_%OF
   18WHEN2:SYS262341,,E_%
   19WHEN3:CASE!E_%OF
   20WHENG_%:IFH_%=FALSEPROCI_ELSEIFFNJ_(17,"NO","YES")PROCK_:PROCI_
   21WHENL_%:IFM_%=FALSEPROCI_ELSEIFFNJ_(18,"NO","YES")PROCK_:PROCI_
   22OTHERWISE:SYS262342,,E_%
   23ENDCASE
   24WHEN6:PROCN_
   25WHEN7:PROCO_
   26WHEN8:SYS262364,E_%!24
   27WHEN9:PROCP_
   28WHEN17,18:CASEE_%!16OF
   29WHEN0:PROCQ_
   30WHEN2:PROCR_
   31WHEN3,5:PROCS_(E_%!20,E_%!24)
   32WHEN8:PROCQ_
   33ENDCASE
   34ENDCASE:IFD_%=0THEN
   36CASET_%OF
   37WHEN1:T_%+=2
   38WHEN3:T_%+=2
   39WHEN5:PROCU_
   40WHEN6:PROCV_
   41WHEN7:PROCW_
   42WHEN8:PROCX_
   43WHEN10
   44WHEN100:T_%=101
   45WHEN101:PROCY_
   46WHEN106:PROCZ_
   47WHEN110
   48OTHERWISE:D_%=&C31
   49ENDCASE
   50ENDIF:UNTILFALSE
   52
   53DEFPROCP_:a_%=!E_%:SYS262351,,E_%+&C0:b_%=E_%!&C8:c_%=E_%:CASEd_%OF
   57WHENe_%:CASEa_%OF
   58WHEN1:IFM_%=FALSEIFH_%=FALSEPROCI_:PROCf_(G_%)
   59WHEN2:IFM_%=FALSEIFH_%=FALSEPROCI_:PROCf_(L_%):PROCg_(L_%,h_%,FNi_(34))
   60WHEN3:PROCK_
   61WHEN4:PROCj_
   62WHEN5:PROCQ_
   63ENDCASE
   64WHENk_%:IFa_%>0PROCg_(G_%,l_%,"ADFS::"+STR$(a_%-1)+".$")
   65WHENm_%:PROCg_(L_%,n_%,"ADFS::"+STR$(a_%)+".$")
   66WHENo_%:CASEa_%OF
   67WHEN0:PROCg_(G_%,p_%,"Fill disc")
   68WHEN1:PROCg_(G_%,p_%,"796K")
   69WHEN2:PROCg_(G_%,p_%,"1586K")
   70WHEN3:PROCg_(G_%,p_%,"713K")
   71WHEN4:PROCg_(G_%,p_%,"1423K")
   72ENDCASE
   73WHENq_%:CASEa_%OF
   74WHEN0:PROCg_(G_%,r_%,"Fill disc")
   75WHEN1:PROCg_(G_%,r_%,"796K")
   76WHEN2:PROCg_(G_%,r_%,"1586K")
   77WHEN3:PROCg_(G_%,r_%,"714K")
   78WHEN4:PROCg_(G_%,r_%,"1423K")
   79ENDCASE
   80ENDCASE:IFb_%=1SYS262356,,d_%,s_%,t_%
   82ENDPROC
   83
   84DEFPROCN_:LOCALu_%,v_%:SYS262351,,E_%+&C0:b_%=E_%!&C8:c_%=E_%!&C4:v_%=E_%!12:u_%=E_%!16:CASEv_%OF
   89WHEN-2:IFu_%=w_%THEN
   90CASEb_%OF
   91WHEN2:s_%=E_%!&C0-96:t_%=336:d_%=e_%:SYS262356,,d_%,s_%,t_%
   93WHEN1:IFM_%=FALSEIFH_%=FALSEPROCI_:PROCf_(G_%)
   94WHEN4:IFM_%=FALSEIFH_%=FALSEPROCI_:PROCf_(L_%):PROCg_(L_%,h_%,FNi_(34))
   95ENDCASE
   96ENDIF
   97WHENx_%:IFu_%=0PROCy_(x_%,0)
   98WHENz_%:IFu_%=0PROCy_(z_%,0)
   99WHENG_%:IFb_%=2THEN
  100CASEu_%OF
  101WHENl_%:s_%=E_%!&C0-60:t_%=c_%+10:d_%=k_%:SYS262356,,d_%,s_%,t_%
  103WHENp_%:s_%=E_%!&C0-60:t_%=c_%+10:d_%=o_%:SYS262356,,d_%,s_%,t_%
  105WHENr_%:s_%=E_%!&C0-60:t_%=c_%+10:d_%=q_%:SYS262356,,d_%,s_%,t_%
  107ENDCASE
  108ELSE:CASEu_%OF
  110WHEN__%:IFH_%=TRUEIFT_%=10 T_%=7
  111IFH_%=FALSEIFM_%=FALSEPROC`_
  112WHENA`%:IFH_%IFFNJ_(17,"NO","YES")PROCK_:PROCg_(L_%,h_%,FNi_(35))
  113WHENB`%:IFH_% D_%=D_%EOR&C31
  114ENDCASE
  115ENDIF
  116WHENL_%:CASEu_%OF
  117WHENC`%:CASEb_%OF
  118WHEN1:PROCD`(E`%,C`%)
  119WHEN2:s_%=E_%!&C0-60:t_%=c_%+10:d_%=m_%:SYS262356,,d_%,s_%,t_%
  121ENDCASE
  122WHENF`%:IFT_%=110ANDD_%=0PROCY_ELSEPROCG`
  123WHENH`%:IFM_%IFFNJ_(18,"NO","YES")PROCK_:PROCg_(L_%,h_%,FNi_(35))
  124WHENI`%:IFM_% D_%=D_%EOR&C31
  125WHENJ`%:IFM_%THEN
  126PROCK_:PROCg_(L_%,h_%,FNi_(16)+"- "+STR$(K`%)+FNi_(28))
  128ENDIF
  129ENDCASE
  130ENDCASE:ENDPROC
  132
  133DEFPROCS_(w%,i%):LOCALl$:CASEw%OF
  136WHENG_%:IFi%=n_%ANDH_%=FALSETHEN
  137I%=E_%+44:WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:PROCg_(G_%,n_%,$(E_%+44)):WHILE?I%<>ASC".":I%-=1:ENDWHILE:L`$=$(I%+1)
  140ENDIF
  141WHENL_%:Y_%=FALSE:IFM_%=TRUETHEN
  143I%=E_%+44:WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:PROCg_(L_%,C`%,$(E_%+44)):PROCM`
  146ELSE:N`$="":O`$="":P`%=E_%!40:I%=E_%+44:WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:PROCg_(L_%,C`%,$(E_%+44)):WHILE?I%<>ASC".":I%-=1:ENDWHILE:l$=$(I%+1):IFRIGHT$(l$,2)="01" l$=LEFT$(l$,LEN(l$)-2)
  152IFFNQ`(L_%,R`%)=TRUEPROCS`(L_%,R`%)
  153PROCg_(L_%,h_%,FNi_(20)):PROCg_(x_%,1,l$):PROCT`(L_%,x_%,180,40)
  156ENDIF
  157ENDCASE:ENDPROC
  159
  160DEFPROCG`:LOCALa$,U`$,V`%:LOCALERROR:ONERRORLOCAL:PROCC_(REPORT$,FALSE):PROCW`:ENDPROC
  163M_%=FALSE:H_%=FALSE:X`%=0:Y`%=1:K`%=0:IFFNZ`(&4000)=FALSEERROR100,FNi_(12)
  166IFFNQ`(L_%,R`%)=TRUETHEN
  167a`%=0:O`$=FNb`(L_%,C`%):a$=O`$:IFRIGHT$(a$,2)=".$" a$=LEFT$(a$,LEN(a$)-2)
  170I%=ASC(RIGHT$(a$)):IFI%>47ANDI%<52 a`%=I%-48
  171IFFNJ_(23,"Quit","OK")=FALSEPROCW`:ENDPROC
  172SYS12,12,O`$,c`%,70,0,&100,"*01"TO,,,F%:IFF%=0ERROR100,FNi_(24)
  174I%=c`%+24:WHILE?I%>32:I%+=1:ENDWHILE:?I%=13:N`$=$(c`%+24):P`%=c`%!20:N`$=LEFT$(N`$,LEN(N`$)-2):U`$=N`$:d`$=FNe`(N`$,Y`%):SYS41,49,O`$TO,,V`%:IFV`%=&B4000ORV`%=&168000THEN
  181IFRIGHT$(U`$)="/" U`$=LEFT$(U`$)
  182SYS12,12,O`$,c`%,70,0,&100,"FILETYPE*"TO,,,F%:IFF%>0THEN
  184I%=c`%+32:WHILE?I%>13:I%+=1:ENDWHILE:?I%=13:f`$=$(c`%+33):C%=g`%:REPEAT:IF$C%=f`$ P`%=C%!4ELSEC%+=8
  188UNTIL!C%=0OR$C%=f`$
  189ENDIF
  190ENDIF:PROCg_(x_%,1,U`$):PROCg_(L_%,h_%,FNi_(20)):Y_%=TRUE:PROCT`(L_%,x_%,180,40)
  195ELSE:IFh`$=""ORi`$=""ERROR100,FNi_(22)
  197M_%=TRUE:PROCM`
  198ENDIF:ENDPROC
  200
  201DEFPROCY_:LOCALl%,f$:LOCALERROR:ONERRORLOCAL:PROCC_(REPORT$,FALSE):PROCK_:ENDPROC
  204f$=O`$+"."+d`$:SYS131080,17,f$TOI%,,,,l%:IFI%=0THEN
  207$j`%=FNi_(33)+d`$:IFFNJ_(-1,"Quit","OK")=TRUETHEN
  209PROCk`
  210ELSE:PROCK_:PROCg_(L_%,h_%,FNi_(35))
  212ENDIF:ENDPROC
  214ENDIF:IFFNZ`(l%)=FALSEERROR100,FNi_(25)
  216SYS263872:PROCg_(L_%,h_%,FNi_(27)+l`$):PROCg_(L_%,C`%,f$):SYS8,16,f$,c`%:SYS13,&C3,l`$TOm`%:SYS12,1,m`%,c`%,l%,X`%TO,,,,X`%:SYS13,0,m`%:m`%=0:SYS263873:K`%+=l%:Y`%+=1:M_%=TRUE:d`$=FNe`(N`$,Y`%):PROCk`:ENDPROC
  228
  229DEFPROCk`:VDU7:n`%=FALSE:S%=0:IFFNQ`(L_%,o`%)=TRUETHEN
  233PROCg_(L_%,h_%,FNi_(32)+d`$):D_%=0:T_%=106
  235ELSE:PROCg_(L_%,h_%,FNi_(32)+d`$+FNi_(37)):D_%=0:T_%=110
  238ENDIF:ENDPROC
  240
  241DEFPROCZ_:SYS34,11,1,&58:SYS34,11,0,&58:SYS262732,1,a`%,S%TO,,S%,F%:IFF%AND8 n`%=TRUE:ENDPROC
  244IFn`%IFF%ANDV_%=V_% T_%=100
  245ENDPROC
  246
  247DEFPROCM`:LOCALl%:LOCALERROR:ONERRORLOCAL:PROCC_(REPORT$,FALSE):I%=FNZ`(0):ENDPROC
  250PROCg_(L_%,h_%,FNi_(27)+l`$):SYS263872:SYS8,17,FNb`(L_%,C`%)TOI%,,,,l%:IFFNZ`(l%)=FALSEERROR100,FNi_(25)
  254SYS8,16,FNb`(L_%,C`%),c`%:SYS13,&C3,l`$TOm`%:SYS12,1,m`%,c`%,l%,X`%TO,,,,X`%:SYS13,0,m`%:m`%=0:SYS263873:K`%+=l%:M_%=TRUE:PROCg_(L_%,h_%,STR$(l%)+" "+FNi_(26)):ENDPROC
  262
  263DEFPROC`_:LOCALa$,V`%,f`$:LOCALERROR:ONERRORLOCAL:PROCC_(REPORT$,FALSE):PROCW`:ENDPROC
  266M_%=FALSE:H_%=FALSE:p`%=FNq`(G_%,p_%):r`%=FNq`(G_%,r_%):s`$=FNb`(G_%,n_%):t`$=FNb`(G_%,l_%):IFp`%=0 I%=FNu`(1,FNi_(1)):ENDPROC
  272IFr`%=0 I%=FNu`(1,FNi_(2)):ENDPROC
  273IFs`$="" I%=FNu`(1,FNi_(3)):ENDPROC
  274IFt`$="" I%=FNu`(1,FNi_(4)):ENDPROC
  275SYS8,17,s`$TOI%,,A%,,v`%:IFI%=2 I%=FNu`(1,FNi_(0)):ENDPROC
  277IFI%=0 I%=FNu`(1,FNi_(5)):ENDPROC
  278P`%=(A%>>8)AND&FFF:L`$=LEFT$(L`$,8):$w`%=t`$:a`%=-1:IFw`%?6>47ANDw`%?6<52 a`%=w`%?6-48
  282Y`%=1:IFa`%>=0THEN
  284PROCg_(G_%,x`%,FNy`(796*1024)+"-800K or "+FNy`(1586*1024)+FNi_(29)):IFFNJ_(6,"Quit","OK")=FALSEENDPROC
  286SYS262725,STR$(a`%)+CHR$(0),z`%:V`%=z`%!16:IFV`%=&B4000ORV`%=&168000THEN
  288C%=g`%:f`$="":REPEAT:IFC%!4=P`% f`$=$C%ELSEC%+=8
  291UNTILf`$>""OR!C%=0:IFf`$>""SYS8,11,t`$+".FILETYPE/"+f`$,&FE4,0,0,0
  293ENDIF
  294ELSE:IFp`%<=0ERROR100,FNi_(15)
  296IFr`%<=0ERROR100,FNi_(15)
  297ENDIF:PROCg_(G_%,x`%,FNi_(7)):H_%=TRUE:T_%=1:D_%=0:ENDPROC
  301
  302DEFFNy`(s%):LOCAL_`%,``%,d%,l%:l%=v`%:_`%=FNq`(G_%,p_%):IF_`%=-1 _`%=s%
  306``%=FNq`(G_%,r_%):IF``%=-1 ``%=s%
  307d%=1:l%-=_`%:WHILEl%>0:d%+=1:l%-=``%:ENDWHILE:=STR$(d%)
  310
  311DEFPROCU_:IFa`%>=0THEN
  313SYS262723,STR$(a`%)TOC%:IFp`%<0 Aa%=C%ELSEAa%=p`%:IFC%<p`%ERROR100,FNi_(14)
  315ELSE:Aa%=p`%
  317ENDIF:Ba%=0:PROCCa:IFD_%>0ENDPROC
  320IFa`%>=0THEN
  321n`%=FALSE:S%=0:VDU7:IFFNQ`(G_%,Da%)=TRUETHEN
  323PROCg_(G_%,x`%,FNi_(10)):T_%=6
  325ELSE:PROCg_(G_%,x`%,FNi_(36)):T_%=10
  328ENDIF
  329ELSE:T_%=7
  331ENDIF:ENDPROC
  333
  334DEFPROCW_:PROCg_(G_%,x`%,FNi_(11)+STR$(Y`%)):IFa`%>=0THEN
  337SYS262723,STR$(a`%)TOC%:IFr`%<0 Aa%=C%ELSEAa%=r`%:IFC%<r`%ERROR100,FNi_(14)
  339ELSE:Aa%=r`%
  341ENDIF:PROCCa:IFD_%>0PROCEa:ENDPROC
  343IFa`%>=0THEN
  344n`%=FALSE:S%=0:VDU7:IFFNQ`(G_%,Da%)=TRUETHEN
  346PROCg_(G_%,x`%,FNi_(10)):T_%=6
  348ELSE:PROCg_(G_%,x`%,FNi_(36)):T_%=10
  351ENDIF
  352ELSE:T_%=7
  354ENDIF:ENDPROC
  356
  357DEFPROCCa:LOCALFa%,V`%,a$:LOCALERROR:ONERRORLOCALPROCGa:ENDPROC
  360IFAa%=0ERROR100,FNi_(13)
  361E%=FNZ`(Aa%):IFE%<&8000ERROR100,FNi_(12)
  362Ha$=t`$+"."+FNe`(L`$,Y`%):IFa`%>=0THEN
  364IFFNQ`(G_%,Ia%)SYS41,50,"adfs::"+STR$(a`%),L`$+RIGHT$(Ha$,2)
  365SYS41,49,t`$TO,,V`%:IFV`%=&B4000ORV`%=&168000 a$="/"+RIGHT$(Ha$,2):Ha$=LEFT$(Ha$,LEN(Ha$)-2)+a$
  367ENDIF:SYS13,&C3,s`$TOJa%:SYS12,3,Ja%,c`%,Aa%,Ba%TO,,E%,N%,Fa%:SYS13,0,Ja%:Ja%=0:SYS8,10,Ha$,P`%,,c`%,E%:I%=FNZ`(0):D_%=0:IFa`%>=0THEN
  374IFFNQ`(G_%,Ka%)PROCX_
  375OSCLI"dismount :"+STR$a`%
  376ENDIF:Y`%+=1:Ba%=Fa%:IFBa%>=v`% D_%=&C31
  379ENDPROC
  380
  381DEFPROCGa:IFJa%>0SYS13,0,Ja%:Ja%=0
  383IFFNu`(3,REPORT$+" "+STR$(ERL))=1:ENDPROC
  384H_%=FALSE:T_%=-1:D_%=&C31:ENDPROC
  386
  387DEFPROCV_:SYS34,11,1,&58:SYS34,11,0,&58:SYS262732,1,a`%,S%TO,,S%,F%:IFF%AND8 n`%=TRUE:ENDPROC
  390IFn`%IFF%ANDV_%=V_% T_%=7
  391ENDPROC
  392
  393DEFPROCX_:LOCALLa%:La%=z`%!16:PROCg_(G_%,x`%,FNi_(9)):SYS393792,,0,0ORa`%<<29,,La%TO,,La%,,R%;F%:IFR%>0PROCg_(G_%,x`%,FNi_(19)):ERROR100,FNi_(30)
  399ENDPROC
  400
  401DEFPROCEa:H_%=FALSE:T_%=&FF:VDU7:PROCK_:PROCg_(G_%,x`%,FNi_(16)):ENDPROC
  406
  407DEFFNe`(a$,c%):=a$+RIGHT$("00"+STR$(c%),2)
  409
  410DEFFNq`(w%,i%):LOCALa$,Ma%:a$=FNb`(w%,i%):IFa$="Fill disc":=-1
  414=VAL(a$)*1024
  415
  416DEFPROCT`(w%,Na%,Oa%,Pa%):LOCALx%,y%,Qa%,Ra%:!w`%=w%:SYS262347,,w`%:x%=w`%!4:y%=w`%!16:!w`%=Na%:SYS262347,,w`%:Qa%=w`%!12-w`%!4:Ra%=w`%!16-w`%!8:w`%!4=x%+Oa%:w`%!16=y%+Pa%:w`%!12=w`%!4+Qa%:w`%!8=w`%!16-Ra%:SYS262341,,w`%:ENDPROC
  424
  425DEFPROCI_:!w`%=G_%:SYS262342,,w`%:!w`%=L_%:SYS262342,,w`%:!w`%=z_%:SYS262342,,w`%:!w`%=x_%:SYS262342,,w`%:ENDPROC
  431
  432DEFPROCD`(w%,i%):L%=LEN(FNb`(w%,i%)):SYS262354,w%,i%,,,-1,L%:ENDPROC
  436
  437DEFPROCSa(w%,i%,v%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:w`%!8=0:w`%!12=0:$(w`%!28)=STR$(v%):SYS262349,,w`%:ENDPROC
  441
  442DEFPROCg_(w%,i%,s$):!w`%=w%:w`%!4=i%:SYS262350,,w`%:w`%!8=0:w`%!12=0:$(w`%!28)=s$:SYS262349,,w`%:ENDPROC
  446
  447DEFPROCTa(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:w`%!8=1<<22:w`%!12=3<<21:SYS262349,,w`%:ENDPROC
  451
  452DEFPROCUa(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:w`%!8=0:w`%!12=1<<22:SYS262349,,w`%:ENDPROC
  456
  457DEFPROCVa(w%,i%,s$):!w`%=w%:w`%!4=i%:SYS262350,,w`%:w`%!8=0:w`%!12=0:$(w`%!28)=s$:SYS262349,,w`%:ENDPROC
  461
  462DEFPROCWa(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:SYS262354,w%,i%,,,-1,LEN$(w`%!28):ENDPROC
  466
  467DEFFNQ`(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:IF(w`%!24AND1<<21):=TRUE:ELSE:=FALSE
  471
  472DEFPROCS`(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:w`%!8=1<<21:w`%!12=0:SYS262349,,w`%:ENDPROC
  477
  478DEFFNb`(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:I%=(w`%!28):WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:=$(w`%!28)
  482
  483DEFFNXa(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:I%=(w`%!28):WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:=VAL$(w`%!28)
  487
  488DEFFNYa(a$):I%=E_%+&100:$I%=a$:WHILE?I%>31:I%+=1:ENDWHILE:WHILE?I%<>46:I%-=1:ENDWHILE:=$(I%+1)
  493
  494DEFPROCy_(w%,i%):!E_%=w%:SYS262347,,E_%:X%=E_%!4-E_%!20:Y%=E_%!16-E_%!24:E_%!4=i%:SYS262350,,E_%:!E_%=E_%!8+X%:E_%!4=E_%!12+Y%:E_%!8=E_%!16+X%:E_%!12=E_%!20+Y%:SYS271360,%11000101,1,E_%!28,E_%:Za%=w%:ENDPROC
  503
  504DEFPROCO_:LOCALl$:SYS271361:CASEZa%OF
  508WHENz_%:La%=0:l$="Split"
  509WHENx_%:!w`%=x_%:w`%!4=1:SYS262350,,w`%:l$=$(w`%!&1C)
  511ENDCASE:SYS262351,,E_%:E_%!20=E_%!12:E_%!24=E_%!16:E_%!28=!E_%:E_%!32=E_%!4:E_%!36=0:E_%!40=&FFD:E_%!16=1:$(E_%+44)=l$:!E_%=(LEN(l$)+49)ANDNOT3:E_%!12=0:SYS262375,17,E_%,E_%!20,E_%!24:!w`%=x_%:SYS262342,,w`%:!w`%=z_%:SYS262342,,w`%:ENDPROC
  520
  521DEFPROCR_:LOCALERROR:ONERRORLOCALPROCC_(REPORT$,FALSE):ENDPROC
  523I%=E_%+44:WHILE?I%>31:I%+=1:ENDWHILE:?I%=13:WHILE?I%<>ASC".":I%-=1:ENDWHILE:?I%=13:i`$=$(E_%+44):h`$=$(I%+1):CASEZa%OF
  527WHENz_%:PROCg_(G_%,l_%,i`$)
  528WHENx_%:l`$=i`$+"."+h`$:PROCg_(L_%,h_%,FNi_(31)+l`$):SYS8,11,l`$,P`%:IFY_% D_%=0:M_%=TRUE:T_%=100ELSEPROCG`
  532ENDCASE:ENDPROC
  534
  535DEFPROCaa(w%,ba%,Qa%,Ra%):LOCALca%,da%,ea%,fa%,ga%:SYS53,-1,4TO,,ca%:SYS53,-1,11TO,,da%:da%=(da%<<ca%)+Qa%:SYS53,-1,5TO,,ca%:SYS53,-1,12TO,,ea%:ea%=(ea%<<ca%)+Ra%:!w`%=w%:SYS262347,,w`%:fa%=w`%!12-w`%!4:ga%=w`%!16-w`%!8:da%=(da%-fa%)DIV2
  547ea%=(ea%-ga%)DIV2:w`%!4=da%:w`%!12=da%+fa%:w`%!8=ea%:w`%!16=ea%+ga%:w`%!28=ba%:SYS262341,,w`%:ENDPROC
  553
  554DEFFNJ_(ha%,ia$,ja$):LOCALr%,p%,x%,y%,a$:IFha%=-1THEN
  557p%=j`%
  558ELSE:p%=ka%:WHILEha%>0:REPEAT:p%+=1:UNTIL?p%<32:p%+=1:ha%-=1:ENDWHILE
  564ENDIF:a$="":WHILE?p%<>124AND?p%>31:a$+=CHR$(?p%):p%+=1:ENDWHILE:PROCg_(la%,1,a$):PROCg_(la%,2,$(p%+1)):PROCg_(la%,3,ia$):PROCg_(la%,4,ja$):PROCaa(la%,-1,0,0):VDU7:!w`%=la%:SYS262368,,w`%:?w`%=1:w`%!1=w`%!4:w`%!3=w`%!8:w`%!5=w`%!12:w`%!7=w`%!16-44:SYS7,21,w`%
  579SYS262354,la%,-1,0,-200,-1,0:REPEAT:SYS262343,0,w`%TOr%:IFr%=8THEN
  583IFw`%!24=13 w`%!12=la%:w`%!16=4:r%=6
  584IFw`%!24=27 w`%!12=la%:w`%!16=0:r%=6
  585ENDIF:UNTILr%=6ANDw`%!12=la%:!w`%=la%:SYS262342,,w`%:SYS53,-1,4TO,,r%:SYS53,-1,11TO,,x%:x%=x%<<r%:SYS53,-1,5TO,,r%:SYS53,-1,12TO,,y%:y%=y%<<r%:MOUSERECTANGLE0,0,x%,y%:IFw`%!16=4:=TRUE:ELSE:=FALSE
  596
  597DEFPROCma(m%,i%):!(m%+28+(i%*24))=!(m%+28+(i%*24))EOR1:ENDPROC
  600
  601DEFPROCf_(w%):!E_%=w%:SYS262347,,E_%:E_%!28=-1:SYS262341,,E_%:ENDPROC
  605
  606DEFFNZ`(Ma%):LOCALe%:SYS262380,na%+Ma%,-1TOe%:IFe%<(na%+Ma%):=FALSE:ELSE:=e%+&8000
  610
  611DEFPROCoa:LOCALpa,qa,ra,sa,m%:qa=1:pa=2:sa=4:ra=&80:DIMta%&400:m%=ta%:e_%=FNua(m%,"Chopper",190):m%=FNva("Info",0,wa%):m%=FNva("Chop",0,0):m%=FNva("Join",0,0):m%=FNva("Reset",0,0):m%=FNva("Save setup",0,0):m%=FNva("Quit",ra,0)
  623o_%=FNua(m%,"First",180):m%=FNva("Fill disc",0,0):m%=FNva("800K",0,0):m%=FNva("1.6Mb",0,0):m%=FNva("720K",0,0):m%=FNva("1.44Mb",ra,0)
  630q_%=FNua(m%,"Rest",180):m%=FNva("Fill disc",0,0):m%=FNva("800K",0,0):m%=FNva("1.6Mb",0,0):m%=FNva("720K",0,0):m%=FNva("1.44Mb",ra,0)
  637SYS262722TO,xa%:xa%-=1:k_%=FNua(m%,"Dest.",160):m%=FNva("Other",0,z_%):FORI%=0TOxa%:m%=FNva("ADFS:"+STR$I%,0,0):NEXT:m%!-24=&80
  645m_%=FNua(m%,"From",160):FORI%=0TOxa%:m%=FNva("ADFS:"+STR$I%,0,0):NEXT:m%!-24=&80:ENDPROC
  652
  653DEFFNua(a%,ya$,za%):$a%=ya$:a%!12=&70207:a%!16=za%:a%!20=40:a%!24=0:m%=a%+28:=a%
  657
  658DEFFNva(_a$,`a%,Ab%):!m%=`a%:m%!4=Ab%:m%!8=&7000001:$(m%+12)=_a$:=m%+24
  661
  662DEFFNBb(Cb$,Db%,Cb%):!m%=Db%:m%!4=0:m%!8=&7000101:m%!12=Cb%:m%!16=-1:m%!20=127:IFCb$<>"?" $Cb%=Cb$
  665=m%+24
  666
  667DEFPROCEb(m%,i%):!(m%+36+(24*i%))=!(m%+36+(24*i%))OR1<<22:ENDPROC
  670
  671DEFPROCFb (m%,i%):!(m%+36+(24*i%))=!(m%+36+(24*i%))ANDNOT(1<<22):ENDPROC
  674
  675DEFFNGb(Hb$,ba%):!E_%=ba%:E_%!4=-8:E_%!8=0:E_%!12=56:E_%!16=96:E_%!20=&2002:$(E_%+24)=Hb$:SYS262338,,E_%TOI%:=I%
  680
  681DEFPROCC_(x$,f%):D_%=&C31:SYS263874:w`%!&80=0:$(w`%+&84)="Error "+STR$(ERL)+": "+x$+CHR$(0):SYS262367,w`%+&80,17,Ib%:IFJa%>0CLOSE#Ja%:Ja%=0
  686IFm`%>0CLOSE#m`%:m`%=0
  687PROCW`:IFf%PROCQ_
  689ENDPROC
  690
  691DEFPROCQ_:ONERROROFF
  693IFm`%>0CLOSE#m`%
  694IFJa%>0CLOSE#Ja%
  695SYS262365,Jb%,&4B534154:END
  697
  698DEFFNu`(Kb%,a$):w`%!&80=0:$(w`%+&84)=a$+CHR$(0):SYS262367,w`%+&80,16ORKb%,Ib%TO,I%:=I%
  702
  703DEFFNLb:SYS16TOI%:FORJ%=0TO1:REPEAT:I%+=1:UNTIL?I%=34OR?I%<32:IF?I%<32:=""
  707NEXT:REPEAT:I%+=1:UNTIL?I%<>32:IF?I%<32:=""
  709J%=I%:REPEAT:J%+=1:UNTIL?J%<32:?J%=13:=$I%
  711
  712DEFFNMb:DIMNb%&400:FOROb=0TO2STEP2:P%=Nb%:[OPT Ob
  717.c` equd c`%
  719.Pb equd w`%:.c` equd c`%:.Qb equd Rb%:.Sb equd Tb%:.Ub equd wa%:.Vb equd Vb%:.Wb equd Ib%:.Xb equd 1
  728
  729.Yb ldr r1,Xb:cmp r1,#0:moveq pc,r14:adr r1,Zb:mov r0,#13:swi 8:cmp r0,#1:bne ab:stmfd r13!,{r14}:cmp r4,#&20:bne bb:mov r0,#255:ldr r2,c`:mov r3,#0:swi 8:ldr r6,Vb:ldr r4,c`:ldr r3,[r4],#4:mov r2,#0:.cb:ldrb r0,[r4,r2]
  751mvn r0,r0:and r0,r0,#&FF:add r0,r0,r6:sub r3,r3,r0:sub r0,r0,r2:strb r0,[r4,r2]:add r2,r2,#1:cmp r2,#20:blt cb:cmp r3,#0:beq db
  762.bb:ldr r0,Wb:swi&400Ef:adr r1,eb:.fb ldrb r0,[r1],#1:cmp r0,#0:swine 0:bne fb:align:bl gb:mov r0,#1:ldmfd r13!,{pc}:.ab:stmfd r13!,{r14}:swi 256+7:ldr r0,Sb:ldr r1,c`:add r1,r1,#48:str r0,[r1]:swi&400Cb:bl hb:mov r0,#12
  785ldr r2,[r1,#4]:add r2,r2,r0:str r2,[r1,#4]:ldr r2,[r1,#12]:add r2,r2,r0:str r2,[r1,#12]:mov r0,#12:ldr r2,[r1,#8]:sub r2,r2,r0:str r2,[r1,#8]:ldr r2,[r1,#16]:sub r2,r2,r0:str r2,[r1,#16]:mvn r0,#0:str r0,[r1,#28]:swi&400c5
  801ldr r0,Qb:ldr r1,c`:add r1,r1,#48:str r0,[r1]:swi&400Cb:bl hb:mvn r0,#0:str r0,[r1,#28]:swi&400c5
  810.ib:mov r0,#0:ldr r1,c`:add r1,r1,#48:swi&400c7:subs r4,r4,#1:bpl ib:bl gb:ldr r1,c`:add r1,r1,#48:ldr r0,Sb:str r0,[r1]:swi&400c6:ldr r0,Qb:str r0,[r1]:swi&400c6:mov r0,#0:ldmfd r13!,{pc}
  829
  830.hb mov r4,#10:mvn r0,#0:mov r1,#4:swi&35:mov r10,r2:mvn r0,#0:mov r1,#11:swi&35:mov r8,r2,lsl r10:mvn r0,#0:mov r1,#5:swi&35:mov r9,r2:mvn r0,#0:mov r1,#12:swi&35:mov r7,r2,lsl r9:ldr r1,c`:add r1,r1,#48:ldr r2,[r1,#12]
  851ldr r3,[r1,#4]:sub r3,r2,r3:sub r2,r8,r3:mov r2,r2,lsr#1:str r2,[r1,#4]:add r2,r2,r3:str r2,[r1,#12]:ldr r2,[r1,#16]:ldr r3,[r1,#8]:sub r3,r2,r3:sub r2,r7,r3:mov r2,r2,lsr#1:str r2,[r1,#8]:add r2,r2,r3:str r2,[r1,#16]
  866mov pc,r14
  867.db:ldr r1,c`:add r1,r1,#48:ldr r0,Ub:str r0,[r1]:mov r0,#8:str r0,[r1,#4]:swi&400ce:ldr r3,[r1,#28]:ldr r2,c`:add r2,r2,#4:.fb ldrb r0,[r2],#1:strb r0,[r3],#1:cmp r0,#32:bge fb:mov r0,#%00010111<<24:str r0,[r1,#8]
  885mov r0,#%11111111<<24:str r0,[r1,#12]:swi&400CD:mov r0,#0:str r0,Xb:ldmfd r13!,{pc}
  891.gb swi&42:add r3,r0,#600:.jb swi&42:cmp r0,r3:blt jb:mov pc,r14:]:IFOb>1:=USR(Yb)
  900[OPT Ob:.Zb equs "<obey$dir>.chop_reg":equb 0:align:.eb:equd&20200A0A:equd&20656854:equd&69676552:equd&61727473:equd&6e6f6974:equd&6c694620:equd&61682065
  905equd&65622073:equd&74206e65:equd&65706d61:equd&20646572:equd&68746977:equd&0A0A070D:equd&2020200A:equd&20202020:equd&20202020:equd&676f7250:equd&206d6172:equd&6d726574:equd&74616e69:equd&0A676e69:equd&0A0D:]:NEXT:=1
  911
  912DEFPROCkb:LOCALERROR:ONERRORLOCALCLOSE#H%:PROCC_(REPORT$+" loading Options",FALSE):ENDPROC
  914H%=OPENIN(lb$+".Options"):IFH%=0 I%=FNu`(1,"Options file not found"):ENDPROC
  916FORI%=mb%TODa%:PROCnb(G_%,I%):NEXT:PROCnb(L_%,o`%):CLOSE#H%:ENDPROC
  920
  921DEFPROCnb(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:FORJ%=64TO67:w`%?J%=BGET#H%:NEXT:w`%!8=(w`%!24)EOR(w`%!64):w`%!12=0:SYS262349,,w`%:ENDPROC
  926
  927DEFPROCj_:LOCALERROR:ONERRORLOCAL:CLOSE#H%:PROCC_(REPORT$,FALSE):ENDPROC
  929H%=OPENOUT(lb$+".Options"):FORI%=mb%TODa%:PROCob(G_%,I%):NEXT:PROCob(L_%,o`%):CLOSE#H%:ENDPROC
  934
  935DEFPROCob(w%,i%):!w`%=w%:w`%!4=i%:SYS262350,,w`%:FORJ%=24TO27:BPUT#H%,w`%?J%:NEXT:ENDPROC
  939
  940DEFFNi_(ha%):LOCALp%:p%=ka%:WHILEha%>0:REPEAT:p%+=1:UNTIL?p%<32:p%+=1:ha%-=1:ENDWHILE:=$p%
  948
  949DEFPROCpb:SYS8,17,lb$+".resources.messages"TOF%,,,,L%:IF(F%AND1)<>1ERROR0,"Messages file not found - unable to continue":END
  952DIMka% L%+4:E%=ka%+L%:SYS8,16,lb$+".resources.messages",ka%,0:?E%=13:qb%=0:I%=ka%:J%=I%:WHILEI%<E%:IF?I%=ASC"#"OR?I%=10THEN
  958WHILE?I%>31:I%+=1:ENDWHILE:I%+=1
  959ELSE:I%+=3:REPEAT:?J%=?I%:I%+=1:J%+=1:UNTIL?I%<32:?J%=13:I%+=1:J%+=1:qb%+=1
  964ENDIF:ENDWHILE:ENDPROC
  967
  968DEFPROCrb:SYS8,17,"<Obey$Dir>.DOS_Tran"TOF%,,,,L%:IF(F%AND1)<>1DIMg`% 8:!g`%=0:ENDPROC
  971SYS8,16,"<Obey$Dir>.DOS_Tran",c`%:L%+=c`%:C%=2:FORI%=c`%TOL%:IF?I%=10 ?I%=13
  975IF?I%=13 C%+=1
  976NEXT:DIMg`% 8*C%:C%=g`%:I%=c`%: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
  989
  990DEFPROCsb (tb%):DIMCb% tb%,ub%&100:E%=Cb%+tb%:SYS262361,,lb$+".resources.templates":SYS262363,,c`%,Cb%,E%,-1,"info",0TO,,R%:SYS262337,,c`%TOwa%:SYS262363,,c`%,R%,E%,-1,"saveas",0TO,,R%:SYS262337,,c`%TOx_%:SYS262363,,c`%,R%,E%,-1,"chop",0TO,,R%
  998SYS262337,,c`%TOG_%:SYS262363,,c`%,R%,E%,-1,"join",0TO,,R%:SYS262337,,c`%TOL_%:SYS262363,,c`%,R%,E%,-1,"dest",0TO,,R%:SYS262337,,c`%TOz_%:SYS262363,,c`%,R%,E%,-1,"yesno",0TO,,R%:SYS262337,,c`%TOla%:SYS262363,,c`%,R%,E%,ub%,"banner",0TO,,R%
 1006SYS262337,,c`%TORb%:SYS262363,,c`%,R%,E%,-1,"shad",0TO,,R%:SYS262337,,c`%TOTb%:SYS262362:!E_%=wa%:E_%!4=2:SYS262350,,E_%:$(E_%!28)=vb$:!E_%=wa%:E_%!4=3:SYS262350,,E_%:$(E_%!28)=wb$:!E_%=wa%:E_%!4=4:SYS262350,,E_%:$(E_%!28)=xb$:ENDPROC
 1014
 1015DEFPROCB_:SYS262336,200,&4B534154,"Chopper"TOyb%,Jb%:IFyb%<300ERROR0,"This program requires RISC-OS 3 or better":END
 1018DIME_%&180,w`%&100,Ib% 24,z`%&40,j`% 64:$Ib%="Chopper":na%=HIMEM-&8000:c`%=HIMEM:IFFNZ`(&4000)=FALSE:ERROR-1,"Not enough memory to run !Chopper"
 1022SYS35,"Obey$Dir",E_%,256,0,3TO,,I%:E_%?I%=13:lb$=$E_%:PROCzb:PROCpb:PROCsb(&900):PROCrb:PROCoa:IFFNMbPROCQ_
 1029SYS8,13,lb$+".Options"TOF%:IFF%=1PROCkb
 1030PROCK_:w_%=FNGb("!chopper",-1):PROCTa(G_%,_b%):PROCTa(G_%,`b%):PROCTa(G_%,mb%):ENDPROC
 1036
 1037DEFPROCK_:PROCW`:PROCg_(G_%,l_%,""):PROCg_(G_%,n_%,""):PROCg_(G_%,p_%,"Fill disc"):PROCg_(G_%,r_%,"Fill disc"):PROCg_(G_%,x`%,""):PROCg_(L_%,h_%,""):PROCg_(L_%,C`%,"ADFS::0"):IFFNQ`(L_%,R`%)=FALSEPROCS`(L_%,R`%)
 1047ENDPROC
 1048
 1049DEFPROCW`:I%=FNZ`(0):Ac%=FALSE:V_%=4:D_%=&C31:T_%=-1:H_%=FALSE:M_%=FALSE:Ja%=0:m`%=0:i`$="":h`$="":REM***source_dir$="":source_leaf$=""
 1057Bc$="":Y_%=FALSE:n`%=FALSE:ENDPROC
 1061
 1062DEFPROCzb:vb$="Chopper":wb$=A_$:xb$="� David Holden 1995":Vb%=15
 1067REM chop window icons
 1069n_%=1:l_%=2:p_%=3:r_%=4:A`%=12:B`%=11:__%=10:x`%=9:mb%=13:_b%=14:`b%=15:Ka%=16:Ia%=17:Da%=18
 1075REM join window icons
 1077R`%=3:C`%=1:H`%=6:I`%=7:J`%=4:F`%=5:h_%=8:o`%=9
 1082ENDPROC
� --> Chopper
<�����������������������������������������������������
<�����������������������������������������������������
<� This program and all documentation � David Holden 1995
<�����������������������������������������������������
<�����������������������������������������������������
A_$="0.12"

8�0,"Error "+�(�)+" during initialisation : "+�$:�
�B_:��C_(�$,�)
!�:ș262343,D_%,E_%�F_%:ȎF_%�
�2:ș262341,,E_%
�3:Ȏ!E_%�
-�G_%:�H_%=��I_��J_(17,"NO","YES")�K_:�I_
-�L_%:�M_%=��I_��J_(18,"NO","YES")�K_:�I_
:ș262342,,E_%
�

�6:�N_

�7:�O_
�8:ș262364,E_%!24

�9:�P_
�17,18:ȎE_%!16�

�0:�Q_

�2:�R_
�3,5:�S_(E_%!20,E_%!24)
 
�8:�Q_
!�
"
�:�D_%=0�
$
ȎT_%�
%
�1:T_%+=2
&
�3:T_%+=2
'
�5:�U_
(
�6:�V_
)
�7:�W_
*
�8:�X_
+�10
,�100:T_%=101
-�101:�Y_
.�106:�Z_
/�110
0:D_%=&C31
1�
2�:��
4
5>��P_:a_%=!E_%:ș262351,,E_%+&C0:b_%=E_%!&C8:c_%=E_%:Ȏd_%�
9�e_%:Ȏa_%�
:�1:�M_%=��H_%=��I_:�f_(G_%)
;4�2:�M_%=��H_%=��I_:�f_(L_%):�g_(L_%,h_%,�i_(34))
<
�3:�K_
=
�4:�j_
>
�5:�Q_
?�
@2�k_%:�a_%>0�g_(G_%,l_%,"ADFS::"+�(a_%-1)+".$")
A*�m_%:�g_(L_%,n_%,"ADFS::"+�(a_%)+".$")
B�o_%:Ȏa_%�
C�0:�g_(G_%,p_%,"Fill disc")
D�1:�g_(G_%,p_%,"796K")
E�2:�g_(G_%,p_%,"1586K")
F�3:�g_(G_%,p_%,"713K")
G�4:�g_(G_%,p_%,"1423K")
H�
I�q_%:Ȏa_%�
J�0:�g_(G_%,r_%,"Fill disc")
K�1:�g_(G_%,r_%,"796K")
L�2:�g_(G_%,r_%,"1586K")
M�3:�g_(G_%,r_%,"714K")
N�4:�g_(G_%,r_%,"1423K")
O�
P!�:�b_%=1ș262356,,d_%,s_%,t_%
R�
S
TX��N_:�u_%,v_%:ș262351,,E_%+&C0:b_%=E_%!&C8:c_%=E_%!&C4:v_%=E_%!12:u_%=E_%!16:Ȏv_%�
Y�-2:�u_%=w_%�
Z
Ȏb_%�
[;�2:s_%=E_%!&C0-96:t_%=336:d_%=e_%:ș262356,,d_%,s_%,t_%
]�1:�M_%=��H_%=��I_:�f_(G_%)
^4�4:�M_%=��H_%=��I_:�f_(L_%):�g_(L_%,h_%,�i_(34))
_�
`�
a�x_%:�u_%=0�y_(x_%,0)
b�z_%:�u_%=0�y_(z_%,0)
c�G_%:�b_%=2�
d
Ȏu_%�
e@�l_%:s_%=E_%!&C0-60:t_%=c_%+10:d_%=k_%:ș262356,,d_%,s_%,t_%
g@�p_%:s_%=E_%!&C0-60:t_%=c_%+10:d_%=o_%:ș262356,,d_%,s_%,t_%
i@�r_%:s_%=E_%!&C0-60:t_%=c_%+10:d_%=q_%:ș262356,,d_%,s_%,t_%
k�
l�:Ȏu_%�
n�__%:�H_%=��T_%=10 T_%=7
o�H_%=��M_%=��`_
p8�A`%:�H_%�J_(17,"NO","YES")�K_:�g_(L_%,h_%,�i_(35))
q�B`%:�H_% D_%=D_%�&C31
r�
s�
t�L_%:Ȏu_%�
u�C`%:Ȏb_%�
v�1:�D`(E`%,C`%)
w>�2:s_%=E_%!&C0-60:t_%=c_%+10:d_%=m_%:ș262356,,d_%,s_%,t_%
y�
z�F`%:�T_%=110�D_%=0�Y_��G`
{8�H`%:�M_%�J_(18,"NO","YES")�K_:�g_(L_%,h_%,�i_(35))
|�I`%:�M_% D_%=D_%�&C31
}�J`%:�M_%�
~0�K_:�g_(L_%,h_%,�i_(16)+"- "+�(K`%)+�i_(28))
��
��
��:�
�
���S_(w%,i%):�l$:Ȏw%�
��G_%:�i%=n_%�H_%=��
�\I%=E_%+44:ȕ?I%>31:I%+=1:�:?I%=13:�g_(G_%,n_%,$(E_%+44)):ȕ?I%<>�".":I%-=1:�:L`$=$(I%+1)
��
��L_%:Y_%=�:�M_%=��
�@I%=E_%+44:ȕ?I%>31:I%+=1:�:?I%=13:�g_(L_%,C`%,$(E_%+44)):�M`
���:N`$="":O`$="":P`%=E_%!40:I%=E_%+44:ȕ?I%>31:I%+=1:�:?I%=13:�g_(L_%,C`%,$(E_%+44)):ȕ?I%<>�".":I%-=1:�:l$=$(I%+1):��l$,2)="01" l$=�l$,�(l$)-2)
��Q`(L_%,R`%)=��S`(L_%,R`%)
�:�g_(L_%,h_%,�i_(20)):�g_(x_%,1,l$):�T`(L_%,x_%,180,40)
��
��:�
�
�+��G`:�a$,U`$,V`%:�:��:�C_(�$,�):�W`:�
�;M_%=�:H_%=�:X`%=0:Y`%=1:K`%=0:�Z`(&4000)=��100,�i_(12)
��Q`(L_%,R`%)=��
�>a`%=0:O`$=�b`(L_%,C`%):a$=O`$:��a$,2)=".$" a$=�a$,�(a$)-2)
�%I%=�(�a$)):�I%>47�I%<52 a`%=I%-48
��J_(23,"Quit","OK")=��W`:�
�;ș12,12,O`$,c`%,70,0,&100,"*01"�,,,F%:�F%=0�100,�i_(24)
��I%=c`%+24:ȕ?I%>32:I%+=1:�:?I%=13:N`$=$(c`%+24):P`%=c`%!20:N`$=�N`$,�(N`$)-2):U`$=N`$:d`$=�e`(N`$,Y`%):ș41,49,O`$�,,V`%:�V`%=&B4000�V`%=&168000�
���U`$)="/" U`$=�U`$)
�6ș12,12,O`$,c`%,70,0,&100,"FILETYPE*"�,,,F%:�F%>0�
�TI%=c`%+32:ȕ?I%>13:I%+=1:�:?I%=13:f`$=$(c`%+33):C%=g`%:�:�$C%=f`$ P`%=C%!4�C%+=8
��!C%=0�$C%=f`$
��
�C�:�g_(x_%,1,U`$):�g_(L_%,h_%,�i_(20)):Y_%=�:�T`(L_%,x_%,180,40)
� �:�h`$=""�i`$=""�100,�i_(22)
�
M_%=�:�M`
��:�
�
�&��Y_:�l%,f$:�:��:�C_(�$,�):�K_:�
�1f$=O`$+"."+d`$:ș131080,17,f$�I%,,,,l%:�I%=0�
�,$j`%=�i_(33)+d`$:�J_(-1,"Quit","OK")=��
��k`
��:�K_:�g_(L_%,h_%,�i_(35))
��:�
��:�Z`(l%)=��100,�i_(25)
ظș263872:�g_(L_%,h_%,�i_(27)+l`$):�g_(L_%,C`%,f$):ș8,16,f$,c`%:ș13,&C3,l`$�m`%:ș12,1,m`%,c`%,l%,X`%�,,,,X`%:ș13,0,m`%:m`%=0:ș263873:K`%+=l%:Y`%+=1:M_%=�:d`$=�e`(N`$,Y`%):�k`:�
�
�'��k`:�7:n`%=�:S%=0:�Q`(L_%,o`%)=��
�*�g_(L_%,h_%,�i_(32)+d`$):D_%=0:T_%=106
�4�:�g_(L_%,h_%,�i_(32)+d`$+�i_(37)):D_%=0:T_%=110
��:�
�
�L��Z_:ș34,11,1,&58:ș34,11,0,&58:ș262732,1,a`%,S%�,,S%,F%:�F%�8 n`%=�:�
��n`%�F%�V_%=V_% T_%=100
��
�
�)��M`:�l%:�:��:�C_(�$,�):I%=�Z`(0):�
�Y�g_(L_%,h_%,�i_(27)+l`$):ș263872:ș8,17,�b`(L_%,C`%)�I%,,,,l%:�Z`(l%)=��100,�i_(25)
��ș8,16,�b`(L_%,C`%),c`%:ș13,&C3,l`$�m`%:ș12,1,m`%,c`%,l%,X`%�,,,,X`%:ș13,0,m`%:m`%=0:ș263873:K`%+=l%:M_%=�:�g_(L_%,h_%,�(l%)+" "+�i_(26)):�

+��`_:�a$,V`%,f`$:�:��:�C_(�$,�):�W`:�

mM_%=�:H_%=�:p`%=�q`(G_%,p_%):r`%=�q`(G_%,r_%):s`$=�b`(G_%,n_%):t`$=�b`(G_%,l_%):�p`%=0 I%=�u`(1,�i_(1)):�
�r`%=0 I%=�u`(1,�i_(2)):�
�s`$="" I%=�u`(1,�i_(3)):�
�t`$="" I%=�u`(1,�i_(4)):�
3ș8,17,s`$�I%,,A%,,v`%:�I%=2 I%=�u`(1,�i_(0)):�
�I%=0 I%=�u`(1,�i_(5)):�
PP`%=(A%>>8)�&FFF:L`$=�L`$,8):$w`%=t`$:a`%=-1:�w`%?6>47�w`%?6<52 a`%=w`%?6-48
Y`%=1:�a`%>=0�
X�g_(G_%,x`%,�y`(796*1024)+"-800K or "+�y`(1586*1024)+�i_(29)):�J_(6,"Quit","OK")=��
@ș262725,�(a`%)+�(0),z`%:V`%=z`%!16:�V`%=&B4000�V`%=&168000�
 +C%=g`%:f`$="":�:�C%!4=P`% f`$=$C%�C%+=8
#?�f`$>""�!C%=0:�f`$>""ș8,11,t`$+".FILETYPE/"+f`$,&FE4,0,0,0
%�
&�:�p`%<=0�100,�i_(15)
(�r`%<=0�100,�i_(15)
)-�:�g_(G_%,x`%,�i_(7)):H_%=�:T_%=1:D_%=0:�
-
.Bݤy`(s%):�_`%,``%,d%,l%:l%=v`%:_`%=�q`(G_%,p_%):�_`%=-1 _`%=s%
2#``%=�q`(G_%,r_%):�``%=-1 ``%=s%
3.d%=1:l%-=_`%:ȕl%>0:d%+=1:l%-=``%:�:=�(d%)
6
7��U_:�a`%>=0�
9@ș262723,�(a`%)�C%:�p`%<0 Aa%=C%�Aa%=p`%:�C%<p`%�100,�i_(14)
;
�:Aa%=p`%
=�:Ba%=0:�Ca:�D_%>0�
@�a`%>=0�
A"n`%=�:S%=0:�7:�Q`(G_%,Da%)=��
C�g_(G_%,x`%,�i_(10)):T_%=6
E!�:�g_(G_%,x`%,�i_(36)):T_%=10
H�
I�:T_%=7
K�:�
M
N-��W_:�g_(G_%,x`%,�i_(11)+�(Y`%)):�a`%>=0�
Q@ș262723,�(a`%)�C%:�r`%<0 Aa%=C%�Aa%=r`%:�C%<r`%�100,�i_(14)
S
�:Aa%=r`%
U�:�Ca:�D_%>0�Ea:�
W�a`%>=0�
X"n`%=�:S%=0:�7:�Q`(G_%,Da%)=��
Z�g_(G_%,x`%,�i_(10)):T_%=6
\!�:�g_(G_%,x`%,�i_(36)):T_%=10
_�
`�:T_%=7
b�:�
d
e ��Ca:�Fa%,V`%,a$:�:���Ga:�
h�Aa%=0�100,�i_(13)
i%E%=�Z`(Aa%):�E%<&8000�100,�i_(12)
j%Ha$=t`$+"."+�e`(L`$,Y`%):�a`%>=0�
l4�Q`(G_%,Ia%)ș41,50,"adfs::"+�(a`%),L`$+�Ha$,2)
mRș41,49,t`$�,,V`%:�V`%=&B4000�V`%=&168000 a$="/"+�Ha$,2):Ha$=�Ha$,�(Ha$)-2)+a$
oz�:ș13,&C3,s`$�Ja%:ș12,3,Ja%,c`%,Aa%,Ba%�,,E%,N%,Fa%:ș13,0,Ja%:Ja%=0:ș8,10,Ha$,P`%,,c`%,E%:I%=�Z`(0):D_%=0:�a`%>=0�
v�Q`(G_%,Ka%)�X_
w�"dismount :"+�a`%
x'�:Y`%+=1:Ba%=Fa%:�Ba%>=v`% D_%=&C31
{�
|
}��Ga:�Ja%>0ș13,0,Ja%:Ja%=0
�u`(3,�$+" "+�(�))=1:�
�H_%=�:T_%=-1:D_%=&C31:�
�
�L��V_:ș34,11,1,&58:ș34,11,0,&58:ș262732,1,a`%,S%�,,S%,F%:�F%�8 n`%=�:�
��n`%�F%�V_%=V_% T_%=7
��
�
�{��X_:�La%:La%=z`%!16:�g_(G_%,x`%,�i_(9)):ș393792,,0,0�a`%<<29,,La%�,,La%,,R%;F%:�R%>0�g_(G_%,x`%,�i_(19)):�100,�i_(30)
��
�
�4��Ea:H_%=�:T_%=&FF:�7:�K_:�g_(G_%,x`%,�i_(16)):�
�
�"ݤe`(a$,c%):=a$+�"00"+�(c%),2)
�
�9ݤq`(w%,i%):�a$,Ma%:a$=�b`(w%,i%):�a$="Fill disc":=-1
�=�(a$)*1024
�
����T`(w%,Na%,Oa%,Pa%):�x%,y%,Qa%,Ra%:!w`%=w%:ș262347,,w`%:x%=w`%!4:y%=w`%!16:!w`%=Na%:ș262347,,w`%:Qa%=w`%!12-w`%!4:Ra%=w`%!16-w`%!8:w`%!4=x%+Oa%:w`%!16=y%+Pa%:w`%!12=w`%!4+Qa%:w`%!8=w`%!16-Ra%:ș262341,,w`%:�
�
�f��I_:!w`%=G_%:ș262342,,w`%:!w`%=L_%:ș262342,,w`%:!w`%=z_%:ș262342,,w`%:!w`%=x_%:ș262342,,w`%:�
�
�9��D`(w%,i%):L%=�(�b`(w%,i%)):ș262354,w%,i%,,,-1,L%:�
�
�b��Sa(w%,i%,v%):!w`%=w%:w`%!4=i%:ș262350,,w`%:w`%!8=0:w`%!12=0:$(w`%!28)=�(v%):ș262349,,w`%:�
�
�_��g_(w%,i%,s$):!w`%=w%:w`%!4=i%:ș262350,,w`%:w`%!8=0:w`%!12=0:$(w`%!28)=s$:ș262349,,w`%:�
�
�W��Ta(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:w`%!8=1<<22:w`%!12=3<<21:ș262349,,w`%:�
�
�S��Ua(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:w`%!8=0:w`%!12=1<<22:ș262349,,w`%:�
�
�_��Va(w%,i%,s$):!w`%=w%:w`%!4=i%:ș262350,,w`%:w`%!8=0:w`%!12=0:$(w`%!28)=s$:ș262349,,w`%:�
�
�O��Wa(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:ș262354,w%,i%,,,-1,�$(w`%!28):�
�
�FݤQ`(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:�(w`%!24�1<<21):=�:�:=�
�
�S��S`(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:w`%!8=1<<21:w`%!12=0:ș262349,,w`%:�
�
�]ݤb`(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:I%=(w`%!28):ȕ?I%>31:I%+=1:�:?I%=13:=$(w`%!28)
�
�^ݤXa(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:I%=(w`%!28):ȕ?I%>31:I%+=1:�:?I%=13:=�$(w`%!28)
�
�KݤYa(a$):I%=E_%+&100:$I%=a$:ȕ?I%>31:I%+=1:�:ȕ?I%<>46:I%-=1:�:=$(I%+1)
�
����y_(w%,i%):!E_%=w%:ș262347,,E_%:X%=E_%!4-E_%!20:Y%=E_%!16-E_%!24:E_%!4=i%:ș262350,,E_%:!E_%=E_%!8+X%:E_%!4=E_%!12+Y%:E_%!8=E_%!16+X%:E_%!12=E_%!20+Y%:ș271360,%11000101,1,E_%!28,E_%:Za%=w%:�
�
���O_:�l$:ș271361:ȎZa%�
��z_%:La%=0:l$="Split"
�5�x_%:!w`%=x_%:w`%!4=1:ș262350,,w`%:l$=$(w`%!&1C)
���:ș262351,,E_%:E_%!20=E_%!12:E_%!24=E_%!16:E_%!28=!E_%:E_%!32=E_%!4:E_%!36=0:E_%!40=&FFD:E_%!16=1:$(E_%+44)=l$:!E_%=(�(l$)+49)��3:E_%!12=0:ș262375,17,E_%,E_%!20,E_%!24:!w`%=x_%:ș262342,,w`%:!w`%=z_%:ș262342,,w`%:�

	��R_:�:���C_(�$,�):�
aI%=E_%+44:ȕ?I%>31:I%+=1:�:?I%=13:ȕ?I%<>�".":I%-=1:�:?I%=13:i`$=$(E_%+44):h`$=$(I%+1):ȎZa%�
�z_%:�g_(G_%,l_%,i`$)
]�x_%:l`$=i`$+"."+h`$:�g_(L_%,h_%,�i_(31)+l`$):ș8,11,l`$,P`%:�Y_% D_%=0:M_%=�:T_%=100��G`
�:�

���aa(w%,ba%,Qa%,Ra%):�ca%,da%,ea%,fa%,ga%:ș53,-1,4�,,ca%:ș53,-1,11�,,da%:da%=(da%<<ca%)+Qa%:ș53,-1,5�,,ca%:ș53,-1,12�,,ea%:ea%=(ea%<<ca%)+Ra%:!w`%=w%:ș262347,,w`%:fa%=w`%!12-w`%!4:ga%=w`%!16-w`%!8:da%=(da%-fa%)�2
#`ea%=(ea%-ga%)�2:w`%!4=da%:w`%!12=da%+fa%:w`%!8=ea%:w`%!16=ea%+ga%:w`%!28=ba%:ș262341,,w`%:�
)
*.ݤJ_(ha%,ia$,ja$):�r%,p%,x%,y%,a$:�ha%=-1�
-
p%=j`%
.3�:p%=ka%:ȕha%>0:�:p%+=1:�?p%<32:p%+=1:ha%-=1:�
4��:a$="":ȕ?p%<>124�?p%>31:a$+=�(?p%):p%+=1:�:�g_(la%,1,a$):�g_(la%,2,$(p%+1)):�g_(la%,3,ia$):�g_(la%,4,ja$):�aa(la%,-1,0,0):�7:!w`%=la%:ș262368,,w`%:?w`%=1:w`%!1=w`%!4:w`%!3=w`%!8:w`%!5=w`%!12:w`%!7=w`%!16-44:ș7,21,w`%
C:ș262354,la%,-1,0,-200,-1,0:�:ș262343,0,w`%�r%:�r%=8�
G'�w`%!24=13 w`%!12=la%:w`%!16=4:r%=6
H'�w`%!24=27 w`%!12=la%:w`%!16=0:r%=6
I��:�r%=6�w`%!12=la%:!w`%=la%:ș262342,,w`%:ș53,-1,4�,,r%:ș53,-1,11�,,x%:x%=x%<<r%:ș53,-1,5�,,r%:ș53,-1,12�,,y%:y%=y%<<r%:ȗȓ0,0,x%,y%:�w`%!16=4:=�:�:=�
T
U5��ma(m%,i%):!(m%+28+(i%*24))=!(m%+28+(i%*24))�1:�
X
Y<��f_(w%):!E_%=w%:ș262347,,E_%:E_%!28=-1:ș262341,,E_%:�
]
^EݤZ`(Ma%):�e%:ș262380,na%+Ma%,-1�e%:�e%<(na%+Ma%):=�:�:=e%+&8000
b
c���oa:�pa,qa,ra,sa,m%:qa=1:pa=2:sa=4:ra=&80:�ta%&400:m%=ta%:e_%=�ua(m%,"Chopper",190):m%=�va("Info",0,wa%):m%=�va("Chop",0,0):m%=�va("Join",0,0):m%=�va("Reset",0,0):m%=�va("Save setup",0,0):m%=�va("Quit",ra,0)
o�o_%=�ua(m%,"First",180):m%=�va("Fill disc",0,0):m%=�va("800K",0,0):m%=�va("1.6Mb",0,0):m%=�va("720K",0,0):m%=�va("1.44Mb",ra,0)
v�q_%=�ua(m%,"Rest",180):m%=�va("Fill disc",0,0):m%=�va("800K",0,0):m%=�va("1.6Mb",0,0):m%=�va("720K",0,0):m%=�va("1.44Mb",ra,0)
}uș262722�,xa%:xa%-=1:k_%=�ua(m%,"Dest.",160):m%=�va("Other",0,z_%):�I%=0�xa%:m%=�va("ADFS:"+�I%,0,0):�:m%!-24=&80
�Km_%=�ua(m%,"From",160):�I%=0�xa%:m%=�va("ADFS:"+�I%,0,0):�:m%!-24=&80:�
�
�Qݤua(a%,ya$,za%):$a%=ya$:a%!12=&70207:a%!16=za%:a%!20=40:a%!24=0:m%=a%+28:=a%
�
�Hݤva(_a$,`a%,Ab%):!m%=`a%:m%!4=Ab%:m%!8=&7000001:$(m%+12)=_a$:=m%+24
�
�bݤBb(Cb$,Db%,Cb%):!m%=Db%:m%!4=0:m%!8=&7000101:m%!12=Cb%:m%!16=-1:m%!20=127:�Cb$<>"?" $Cb%=Cb$
�
=m%+24
�
�9��Eb(m%,i%):!(m%+36+(24*i%))=!(m%+36+(24*i%))�1<<22:�
�
�=��Fb (m%,i%):!(m%+36+(24*i%))=!(m%+36+(24*i%))��(1<<22):�
�
�oݤGb(Hb$,ba%):!E_%=ba%:E_%!4=-8:E_%!8=0:E_%!12=56:E_%!16=96:E_%!20=&2002:$(E_%+24)=Hb$:ș262338,,E_%�I%:=I%
�
�{��C_(x$,f%):D_%=&C31:ș263874:w`%!&80=0:$(w`%+&84)="Error "+�(�)+": "+x$+�(0):ș262367,w`%+&80,17,Ib%:�Ja%>0�#Ja%:Ja%=0
��m`%>0�#m`%:m`%=0
��W`:�f%�Q_
��
�
���Q_:
��m`%>0�#m`%
��Ja%>0�#Ja%
�ș262365,Jb%,&4B534154:�
�
�Qݤu`(Kb%,a$):w`%!&80=0:$(w`%+&84)=a$+�(0):ș262367,w`%+&80,16�Kb%,Ib%�,I%:=I%
�
�;ݤLb:ș16�I%:�J%=0�1:�:I%+=1:�?I%=34�?I%<32:�?I%<32:=""
�"�:�:I%+=1:�?I%<>32:�?I%<32:=""
�%J%=I%:�:J%+=1:�?J%<32:?J%=13:=$I%
�
�*ݤMb:�Nb%&400:�Ob=0�2�2:P%=Nb%:[OPT Ob
�.c` equd c`%
�i.Pb equd w`%:.c` equd c`%:.Qb equd Rb%:.Sb equd Tb%:.Ub equd wa%:.Vb equd Vb%:.Wb equd Ib%:.Xb equd 1
�
��.Yb ldr r1,Xb:cmp r1,#0:moveq pc,r14:adr r1,Zb:mov r0,#13:swi 8:cmp r0,#1:bne ab:stmfd r13!,{r14}:cmp r4,#&20:bne bb:mov r0,#255:ldr r2,c`:mov r3,#0:swi 8:ldr r6,Vb:ldr r4,c`:ldr r3,[r4],#4:mov r2,#0:.cb:ldrb r0,[r4,r2]
�mvn r0,r0:and r0,r0,#&FF:add r0,r0,r6:sub r3,r3,r0:sub r0,r0,r2:strb r0,[r4,r2]:add r2,r2,#1:cmp r2,#20:blt cb:cmp r3,#0:beq db
��.bb:ldr r0,Wb:swi&400Ef:adr r1,eb:.fb ldrb r0,[r1],#1:cmp r0,#0:swine 0:bne fb:align:bl gb:mov r0,#1:ldmfd r13!,{pc}:.ab:stmfd r13!,{r14}:swi 256+7:ldr r0,Sb:ldr r1,c`:add r1,r1,#48:str r0,[r1]:swi&400Cb:bl hb:mov r0,#12
�ldr r2,[r1,#4]:add r2,r2,r0:str r2,[r1,#4]:ldr r2,[r1,#12]:add r2,r2,r0:str r2,[r1,#12]:mov r0,#12:ldr r2,[r1,#8]:sub r2,r2,r0:str r2,[r1,#8]:ldr r2,[r1,#16]:sub r2,r2,r0:str r2,[r1,#16]:mvn r0,#0:str r0,[r1,#28]:swi&400c5
!eldr r0,Qb:ldr r1,c`:add r1,r1,#48:str r0,[r1]:swi&400Cb:bl hb:mvn r0,#0:str r0,[r1,#28]:swi&400c5
*�.ib:mov r0,#0:ldr r1,c`:add r1,r1,#48:swi&400c7:subs r4,r4,#1:bpl ib:bl gb:ldr r1,c`:add r1,r1,#48:ldr r0,Sb:str r0,[r1]:swi&400c6:ldr r0,Qb:str r0,[r1]:swi&400c6:mov r0,#0:ldmfd r13!,{pc}
=
>�.hb mov r4,#10:mvn r0,#0:mov r1,#4:swi&35:mov r10,r2:mvn r0,#0:mov r1,#11:swi&35:mov r8,r2,lsl r10:mvn r0,#0:mov r1,#5:swi&35:mov r9,r2:mvn r0,#0:mov r1,#12:swi&35:mov r7,r2,lsl r9:ldr r1,c`:add r1,r1,#48:ldr r2,[r1,#12]
S�ldr r3,[r1,#4]:sub r3,r2,r3:sub r2,r8,r3:mov r2,r2,lsr#1:str r2,[r1,#4]:add r2,r2,r3:str r2,[r1,#12]:ldr r2,[r1,#16]:ldr r3,[r1,#8]:sub r3,r2,r3:sub r2,r7,r3:mov r2,r2,lsr#1:str r2,[r1,#8]:add r2,r2,r3:str r2,[r1,#16]
bmov pc,r14
c�.db:ldr r1,c`:add r1,r1,#48:ldr r0,Ub:str r0,[r1]:mov r0,#8:str r0,[r1,#4]:swi&400ce:ldr r3,[r1,#28]:ldr r2,c`:add r2,r2,#4:.fb ldrb r0,[r2],#1:strb r0,[r3],#1:cmp r0,#32:bge fb:mov r0,#%00010111<<24:str r0,[r1,#8]
uWmov r0,#%11111111<<24:str r0,[r1,#12]:swi&400CD:mov r0,#0:str r0,Xb:ldmfd r13!,{pc}
{S.gb swi&42:add r3,r0,#600:.jb swi&42:cmp r0,r3:blt jb:mov pc,r14:]:�Ob>1:=�(Yb)
��[OPT Ob:.Zb equs "<obey$dir>.chop_reg":equb 0:align:.eb:equd&20200A0A:equd&20656854:equd&69676552:equd&61727473:equd&6e6f6974:equd&6c694620:equd&61682065
��equd&65622073:equd&74206e65:equd&65706d61:equd&20646572:equd&68746977:equd&0A0A070D:equd&2020200A:equd&20202020:equd&20202020:equd&676f7250:equd&206d6172:equd&6d726574:equd&74616e69:equd&0A676e69:equd&0A0D:]:�:=1
�
�2��kb:�:���#H%:�C_(�$+" loading Options",�):�
�CH%=�(lb$+".Options"):�H%=0 I%=�u`(1,"Options file not found"):�
�1�I%=mb%�Da%:�nb(G_%,I%):�:�nb(L_%,o`%):�#H%:�
�
�w��nb(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:�J%=64�67:w`%?J%=�#H%:�:w`%!8=(w`%!24)�(w`%!64):w`%!12=0:ș262349,,w`%:�
�
� ��j_:�:��:�#H%:�C_(�$,�):�
�FH%=�(lb$+".Options"):�I%=mb%�Da%:�ob(G_%,I%):�:�ob(L_%,o`%):�#H%:�
�
�H��ob(w%,i%):!w`%=w%:w`%!4=i%:ș262350,,w`%:�J%=24�27:�#H%,w`%?J%:�:�
�
�Dݤi_(ha%):�p%:p%=ka%:ȕha%>0:�:p%+=1:�?p%<32:p%+=1:ha%-=1:�:=$p%
�
�p��pb:ș8,17,lb$+".resources.messages"�F%,,,,L%:�(F%�1)<>1�0,"Messages file not found - unable to continue":�
�r�ka% L%+4:E%=ka%+L%:ș8,16,lb$+".resources.messages",ka%,0:?E%=13:qb%=0:I%=ka%:J%=I%:ȕI%<E%:�?I%=�"#"�?I%=10�
�ȕ?I%>31:I%+=1:�:I%+=1
�C�:I%+=3:�:?J%=?I%:I%+=1:J%+=1:�?I%<32:?J%=13:I%+=1:J%+=1:qb%+=1
�	�:�:�
�
�H��rb:ș8,17,"<Obey$Dir>.DOS_Tran"�F%,,,,L%:�(F%�1)<>1�g`% 8:!g`%=0:�
�Kș8,16,"<Obey$Dir>.DOS_Tran",c`%:L%+=c`%:C%=2:�I%=c`%�L%:�?I%=10 ?I%=13
��?I%=13 C%+=1
Ц�:�g`% 8*C%:C%=g`%:I%=c`%:ȕ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:�
�
����sb (tb%):�Cb% tb%,ub%&100:E%=Cb%+tb%:ș262361,,lb$+".resources.templates":ș262363,,c`%,Cb%,E%,-1,"info",0�,,R%:ș262337,,c`%�wa%:ș262363,,c`%,R%,E%,-1,"saveas",0�,,R%:ș262337,,c`%�x_%:ș262363,,c`%,R%,E%,-1,"chop",0�,,R%
��ș262337,,c`%�G_%:ș262363,,c`%,R%,E%,-1,"join",0�,,R%:ș262337,,c`%�L_%:ș262363,,c`%,R%,E%,-1,"dest",0�,,R%:ș262337,,c`%�z_%:ș262363,,c`%,R%,E%,-1,"yesno",0�,,R%:ș262337,,c`%�la%:ș262363,,c`%,R%,E%,ub%,"banner",0�,,R%
��ș262337,,c`%�Rb%:ș262363,,c`%,R%,E%,-1,"shad",0�,,R%:ș262337,,c`%�Tb%:ș262362:!E_%=wa%:E_%!4=2:ș262350,,E_%:$(E_%!28)=vb$:!E_%=wa%:E_%!4=3:ș262350,,E_%:$(E_%!28)=wb$:!E_%=wa%:E_%!4=4:ș262350,,E_%:$(E_%!28)=xb$:�
�
�j��B_:ș262336,200,&4B534154,"Chopper"�yb%,Jb%:�yb%<300�0,"This program requires RISC-OS 3 or better":�
���E_%&180,w`%&100,Ib% 24,z`%&40,j`% 64:$Ib%="Chopper":na%=�-&8000:c`%=�:�Z`(&4000)=�:�-1,"Not enough memory to run !Chopper"
�Yș35,"Obey$Dir",E_%,256,0,3�,,I%:E_%?I%=13:lb$=$E_%:�zb:�pb:�sb(&900):�rb:�oa:�Mb�Q_
%ș8,13,lb$+".Options"�F%:�F%=1�kb
G�K_:w_%=�Gb("!chopper",-1):�Ta(G_%,_b%):�Ta(G_%,`b%):�Ta(G_%,mb%):�


���K_:�W`:�g_(G_%,l_%,""):�g_(G_%,n_%,""):�g_(G_%,p_%,"Fill disc"):�g_(G_%,r_%,"Fill disc"):�g_(G_%,x`%,""):�g_(L_%,h_%,""):�g_(L_%,C`%,"ADFS::0"):�Q`(L_%,R`%)=��S`(L_%,R`%)
�

w��W`:I%=�Z`(0):Ac%=�:V_%=4:D_%=&C31:T_%=-1:H_%=�:M_%=�:Ja%=0:m`%=0:i`$="":h`$="":�***source_dir$="":source_leaf$=""
!Bc$="":Y_%=�:n`%=�:�
%
&?��zb:vb$="Chopper":wb$=A_$:xb$="� David Holden 1995":Vb%=15
+� chop window icons
-`n_%=1:l_%=2:p_%=3:r_%=4:A`%=12:B`%=11:__%=10:x`%=9:mb%=13:_b%=14:`b%=15:Ka%=16:Ia%=17:Da%=18
3� join window icons
53R`%=3:C`%=1:H`%=6:I`%=7:J`%=4:F`%=5:h_%=8:o`%=9
:�
�
00000000  0d 00 01 11 f4 20 2d 2d  3e 20 43 68 6f 70 70 65  |..... --> Choppe|
00000010  72 0d 00 02 3c f4 ab ab  ab ab ab ab ab ab ab ab  |r...<...........|
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 ab 0d 00 04  |................|
00000050  3c f4 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  bb 0d 00 05 3c f4 20 54  |............<. T|
00000090  68 69 73 20 70 72 6f 67  72 61 6d 20 61 6e 64 20  |his program and |
000000a0  61 6c 6c 20 64 6f 63 75  6d 65 6e 74 61 74 69 6f  |all documentatio|
000000b0  6e 20 a9 20 44 61 76 69  64 20 48 6f 6c 64 65 6e  |n . David Holden|
000000c0  20 31 39 39 35 0d 00 06  3c f4 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  ab 0d 00 07 3c f4 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 bb 0d 00 08  |................|
00000140  0e 41 5f 24 3d 22 30 2e  31 32 22 0d 00 0a 38 ee  |.A_$="0.12"...8.|
00000150  85 85 a2 30 2c 22 45 72  72 6f 72 20 22 2b c3 28  |...0,"Error "+.(|
00000160  9e 29 2b 22 20 64 75 72  69 6e 67 20 69 6e 69 74  |.)+" during init|
00000170  69 61 6c 69 73 61 74 69  6f 6e 20 3a 20 22 2b f6  |ialisation : "+.|
00000180  24 3a e0 0d 00 0c 13 f2  42 5f 3a ee 85 f2 43 5f  |$:......B_:...C_|
00000190  28 f6 24 2c b9 29 0d 00  0e 21 f5 3a c8 99 32 36  |(.$,.)...!.:..26|
000001a0  32 33 34 33 2c 44 5f 25  2c 45 5f 25 b8 46 5f 25  |2343,D_%,E_%.F_%|
000001b0  3a c8 8e 46 5f 25 ca 0d  00 12 14 c9 32 3a c8 99  |:..F_%......2:..|
000001c0  32 36 32 33 34 31 2c 2c  45 5f 25 0d 00 13 0e c9  |262341,,E_%.....|
000001d0  33 3a c8 8e 21 45 5f 25  ca 0d 00 14 2d c9 47 5f  |3:..!E_%....-.G_|
000001e0  25 3a e7 48 5f 25 3d a3  f2 49 5f 8b e7 a4 4a 5f  |%:.H_%=..I_...J_|
000001f0  28 31 37 2c 22 4e 4f 22  2c 22 59 45 53 22 29 f2  |(17,"NO","YES").|
00000200  4b 5f 3a f2 49 5f 0d 00  15 2d c9 4c 5f 25 3a e7  |K_:.I_...-.L_%:.|
00000210  4d 5f 25 3d a3 f2 49 5f  8b e7 a4 4a 5f 28 31 38  |M_%=..I_...J_(18|
00000220  2c 22 4e 4f 22 2c 22 59  45 53 22 29 f2 4b 5f 3a  |,"NO","YES").K_:|
00000230  f2 49 5f 0d 00 16 13 7f  3a c8 99 32 36 32 33 34  |.I_.....:..26234|
00000240  32 2c 2c 45 5f 25 0d 00  17 05 cb 0d 00 18 0a c9  |2,,E_%..........|
00000250  36 3a f2 4e 5f 0d 00 19  0a c9 37 3a f2 4f 5f 0d  |6:.N_.....7:.O_.|
00000260  00 1a 16 c9 38 3a c8 99  32 36 32 33 36 34 2c 45  |....8:..262364,E|
00000270  5f 25 21 32 34 0d 00 1b  0a c9 39 3a f2 50 5f 0d  |_%!24.....9:.P_.|
00000280  00 1c 14 c9 31 37 2c 31  38 3a c8 8e 45 5f 25 21  |....17,18:..E_%!|
00000290  31 36 ca 0d 00 1d 0a c9  30 3a f2 51 5f 0d 00 1e  |16......0:.Q_...|
000002a0  0a c9 32 3a f2 52 5f 0d  00 1f 1b c9 33 2c 35 3a  |..2:.R_.....3,5:|
000002b0  f2 53 5f 28 45 5f 25 21  32 30 2c 45 5f 25 21 32  |.S_(E_%!20,E_%!2|
000002c0  34 29 0d 00 20 0a c9 38  3a f2 51 5f 0d 00 21 05  |4).. ..8:.Q_..!.|
000002d0  cb 0d 00 22 0d cb 3a e7  44 5f 25 3d 30 8c 0d 00  |..."..:.D_%=0...|
000002e0  24 0a c8 8e 54 5f 25 ca  0d 00 25 0d c9 31 3a 54  |$...T_%...%..1:T|
000002f0  5f 25 2b 3d 32 0d 00 26  0d c9 33 3a 54 5f 25 2b  |_%+=2..&..3:T_%+|
00000300  3d 32 0d 00 27 0a c9 35  3a f2 55 5f 0d 00 28 0a  |=2..'..5:.U_..(.|
00000310  c9 36 3a f2 56 5f 0d 00  29 0a c9 37 3a f2 57 5f  |.6:.V_..)..7:.W_|
00000320  0d 00 2a 0a c9 38 3a f2  58 5f 0d 00 2b 07 c9 31  |..*..8:.X_..+..1|
00000330  30 0d 00 2c 10 c9 31 30  30 3a 54 5f 25 3d 31 30  |0..,..100:T_%=10|
00000340  31 0d 00 2d 0c c9 31 30  31 3a f2 59 5f 0d 00 2e  |1..-..101:.Y_...|
00000350  0c c9 31 30 36 3a f2 5a  5f 0d 00 2f 08 c9 31 31  |..106:.Z_../..11|
00000360  30 0d 00 30 0e 7f 3a 44  5f 25 3d 26 43 33 31 0d  |0..0..:D_%=&C31.|
00000370  00 31 05 cb 0d 00 32 08  cd 3a fd a3 0d 00 34 04  |.1....2..:....4.|
00000380  0d 00 35 3e dd f2 50 5f  3a 61 5f 25 3d 21 45 5f  |..5>..P_:a_%=!E_|
00000390  25 3a c8 99 32 36 32 33  35 31 2c 2c 45 5f 25 2b  |%:..262351,,E_%+|
000003a0  26 43 30 3a 62 5f 25 3d  45 5f 25 21 26 43 38 3a  |&C0:b_%=E_%!&C8:|
000003b0  63 5f 25 3d 45 5f 25 3a  c8 8e 64 5f 25 ca 0d 00  |c_%=E_%:..d_%...|
000003c0  39 0f c9 65 5f 25 3a c8  8e 61 5f 25 ca 0d 00 3a  |9..e_%:..a_%...:|
000003d0  1f c9 31 3a e7 4d 5f 25  3d a3 e7 48 5f 25 3d a3  |..1:.M_%=..H_%=.|
000003e0  f2 49 5f 3a f2 66 5f 28  47 5f 25 29 0d 00 3b 34  |.I_:.f_(G_%)..;4|
000003f0  c9 32 3a e7 4d 5f 25 3d  a3 e7 48 5f 25 3d a3 f2  |.2:.M_%=..H_%=..|
00000400  49 5f 3a f2 66 5f 28 4c  5f 25 29 3a f2 67 5f 28  |I_:.f_(L_%):.g_(|
00000410  4c 5f 25 2c 68 5f 25 2c  a4 69 5f 28 33 34 29 29  |L_%,h_%,.i_(34))|
00000420  0d 00 3c 0a c9 33 3a f2  4b 5f 0d 00 3d 0a c9 34  |..<..3:.K_..=..4|
00000430  3a f2 6a 5f 0d 00 3e 0a  c9 35 3a f2 51 5f 0d 00  |:.j_..>..5:.Q_..|
00000440  3f 05 cb 0d 00 40 32 c9  6b 5f 25 3a e7 61 5f 25  |?....@2.k_%:.a_%|
00000450  3e 30 f2 67 5f 28 47 5f  25 2c 6c 5f 25 2c 22 41  |>0.g_(G_%,l_%,"A|
00000460  44 46 53 3a 3a 22 2b c3  28 61 5f 25 2d 31 29 2b  |DFS::"+.(a_%-1)+|
00000470  22 2e 24 22 29 0d 00 41  2a c9 6d 5f 25 3a f2 67  |".$")..A*.m_%:.g|
00000480  5f 28 4c 5f 25 2c 6e 5f  25 2c 22 41 44 46 53 3a  |_(L_%,n_%,"ADFS:|
00000490  3a 22 2b c3 28 61 5f 25  29 2b 22 2e 24 22 29 0d  |:"+.(a_%)+".$").|
000004a0  00 42 0f c9 6f 5f 25 3a  c8 8e 61 5f 25 ca 0d 00  |.B..o_%:..a_%...|
000004b0  43 1f c9 30 3a f2 67 5f  28 47 5f 25 2c 70 5f 25  |C..0:.g_(G_%,p_%|
000004c0  2c 22 46 69 6c 6c 20 64  69 73 63 22 29 0d 00 44  |,"Fill disc")..D|
000004d0  1a c9 31 3a f2 67 5f 28  47 5f 25 2c 70 5f 25 2c  |..1:.g_(G_%,p_%,|
000004e0  22 37 39 36 4b 22 29 0d  00 45 1b c9 32 3a f2 67  |"796K")..E..2:.g|
000004f0  5f 28 47 5f 25 2c 70 5f  25 2c 22 31 35 38 36 4b  |_(G_%,p_%,"1586K|
00000500  22 29 0d 00 46 1a c9 33  3a f2 67 5f 28 47 5f 25  |")..F..3:.g_(G_%|
00000510  2c 70 5f 25 2c 22 37 31  33 4b 22 29 0d 00 47 1b  |,p_%,"713K")..G.|
00000520  c9 34 3a f2 67 5f 28 47  5f 25 2c 70 5f 25 2c 22  |.4:.g_(G_%,p_%,"|
00000530  31 34 32 33 4b 22 29 0d  00 48 05 cb 0d 00 49 0f  |1423K")..H....I.|
00000540  c9 71 5f 25 3a c8 8e 61  5f 25 ca 0d 00 4a 1f c9  |.q_%:..a_%...J..|
00000550  30 3a f2 67 5f 28 47 5f  25 2c 72 5f 25 2c 22 46  |0:.g_(G_%,r_%,"F|
00000560  69 6c 6c 20 64 69 73 63  22 29 0d 00 4b 1a c9 31  |ill disc")..K..1|
00000570  3a f2 67 5f 28 47 5f 25  2c 72 5f 25 2c 22 37 39  |:.g_(G_%,r_%,"79|
00000580  36 4b 22 29 0d 00 4c 1b  c9 32 3a f2 67 5f 28 47  |6K")..L..2:.g_(G|
00000590  5f 25 2c 72 5f 25 2c 22  31 35 38 36 4b 22 29 0d  |_%,r_%,"1586K").|
000005a0  00 4d 1a c9 33 3a f2 67  5f 28 47 5f 25 2c 72 5f  |.M..3:.g_(G_%,r_|
000005b0  25 2c 22 37 31 34 4b 22  29 0d 00 4e 1b c9 34 3a  |%,"714K")..N..4:|
000005c0  f2 67 5f 28 47 5f 25 2c  72 5f 25 2c 22 31 34 32  |.g_(G_%,r_%,"142|
000005d0  33 4b 22 29 0d 00 4f 05  cb 0d 00 50 21 cb 3a e7  |3K")..O....P!.:.|
000005e0  62 5f 25 3d 31 c8 99 32  36 32 33 35 36 2c 2c 64  |b_%=1..262356,,d|
000005f0  5f 25 2c 73 5f 25 2c 74  5f 25 0d 00 52 05 e1 0d  |_%,s_%,t_%..R...|
00000600  00 53 04 0d 00 54 58 dd  f2 4e 5f 3a ea 75 5f 25  |.S...TX..N_:.u_%|
00000610  2c 76 5f 25 3a c8 99 32  36 32 33 35 31 2c 2c 45  |,v_%:..262351,,E|
00000620  5f 25 2b 26 43 30 3a 62  5f 25 3d 45 5f 25 21 26  |_%+&C0:b_%=E_%!&|
00000630  43 38 3a 63 5f 25 3d 45  5f 25 21 26 43 34 3a 76  |C8:c_%=E_%!&C4:v|
00000640  5f 25 3d 45 5f 25 21 31  32 3a 75 5f 25 3d 45 5f  |_%=E_%!12:u_%=E_|
00000650  25 21 31 36 3a c8 8e 76  5f 25 ca 0d 00 59 11 c9  |%!16:..v_%...Y..|
00000660  2d 32 3a e7 75 5f 25 3d  77 5f 25 8c 0d 00 5a 0a  |-2:.u_%=w_%...Z.|
00000670  c8 8e 62 5f 25 ca 0d 00  5b 3b c9 32 3a 73 5f 25  |..b_%...[;.2:s_%|
00000680  3d 45 5f 25 21 26 43 30  2d 39 36 3a 74 5f 25 3d  |=E_%!&C0-96:t_%=|
00000690  33 33 36 3a 64 5f 25 3d  65 5f 25 3a c8 99 32 36  |336:d_%=e_%:..26|
000006a0  32 33 35 36 2c 2c 64 5f  25 2c 73 5f 25 2c 74 5f  |2356,,d_%,s_%,t_|
000006b0  25 0d 00 5d 1f c9 31 3a  e7 4d 5f 25 3d a3 e7 48  |%..]..1:.M_%=..H|
000006c0  5f 25 3d a3 f2 49 5f 3a  f2 66 5f 28 47 5f 25 29  |_%=..I_:.f_(G_%)|
000006d0  0d 00 5e 34 c9 34 3a e7  4d 5f 25 3d a3 e7 48 5f  |..^4.4:.M_%=..H_|
000006e0  25 3d a3 f2 49 5f 3a f2  66 5f 28 4c 5f 25 29 3a  |%=..I_:.f_(L_%):|
000006f0  f2 67 5f 28 4c 5f 25 2c  68 5f 25 2c a4 69 5f 28  |.g_(L_%,h_%,.i_(|
00000700  33 34 29 29 0d 00 5f 05  cb 0d 00 60 05 cd 0d 00  |34)).._....`....|
00000710  61 19 c9 78 5f 25 3a e7  75 5f 25 3d 30 f2 79 5f  |a..x_%:.u_%=0.y_|
00000720  28 78 5f 25 2c 30 29 0d  00 62 19 c9 7a 5f 25 3a  |(x_%,0)..b..z_%:|
00000730  e7 75 5f 25 3d 30 f2 79  5f 28 7a 5f 25 2c 30 29  |.u_%=0.y_(z_%,0)|
00000740  0d 00 63 10 c9 47 5f 25  3a e7 62 5f 25 3d 32 8c  |..c..G_%:.b_%=2.|
00000750  0d 00 64 0a c8 8e 75 5f  25 ca 0d 00 65 40 c9 6c  |..d...u_%...e@.l|
00000760  5f 25 3a 73 5f 25 3d 45  5f 25 21 26 43 30 2d 36  |_%:s_%=E_%!&C0-6|
00000770  30 3a 74 5f 25 3d 63 5f  25 2b 31 30 3a 64 5f 25  |0:t_%=c_%+10:d_%|
00000780  3d 6b 5f 25 3a c8 99 32  36 32 33 35 36 2c 2c 64  |=k_%:..262356,,d|
00000790  5f 25 2c 73 5f 25 2c 74  5f 25 0d 00 67 40 c9 70  |_%,s_%,t_%..g@.p|
000007a0  5f 25 3a 73 5f 25 3d 45  5f 25 21 26 43 30 2d 36  |_%:s_%=E_%!&C0-6|
000007b0  30 3a 74 5f 25 3d 63 5f  25 2b 31 30 3a 64 5f 25  |0:t_%=c_%+10:d_%|
000007c0  3d 6f 5f 25 3a c8 99 32  36 32 33 35 36 2c 2c 64  |=o_%:..262356,,d|
000007d0  5f 25 2c 73 5f 25 2c 74  5f 25 0d 00 69 40 c9 72  |_%,s_%,t_%..i@.r|
000007e0  5f 25 3a 73 5f 25 3d 45  5f 25 21 26 43 30 2d 36  |_%:s_%=E_%!&C0-6|
000007f0  30 3a 74 5f 25 3d 63 5f  25 2b 31 30 3a 64 5f 25  |0:t_%=c_%+10:d_%|
00000800  3d 71 5f 25 3a c8 99 32  36 32 33 35 36 2c 2c 64  |=q_%:..262356,,d|
00000810  5f 25 2c 73 5f 25 2c 74  5f 25 0d 00 6b 05 cb 0d  |_%,s_%,t_%..k...|
00000820  00 6c 0c cc 3a c8 8e 75  5f 25 ca 0d 00 6e 1c c9  |.l..:..u_%...n..|
00000830  5f 5f 25 3a e7 48 5f 25  3d b9 e7 54 5f 25 3d 31  |__%:.H_%=..T_%=1|
00000840  30 20 54 5f 25 3d 37 0d  00 6f 13 e7 48 5f 25 3d  |0 T_%=7..o..H_%=|
00000850  a3 e7 4d 5f 25 3d a3 f2  60 5f 0d 00 70 38 c9 41  |..M_%=..`_..p8.A|
00000860  60 25 3a e7 48 5f 25 e7  a4 4a 5f 28 31 37 2c 22  |`%:.H_%..J_(17,"|
00000870  4e 4f 22 2c 22 59 45 53  22 29 f2 4b 5f 3a f2 67  |NO","YES").K_:.g|
00000880  5f 28 4c 5f 25 2c 68 5f  25 2c a4 69 5f 28 33 35  |_(L_%,h_%,.i_(35|
00000890  29 29 0d 00 71 1a c9 42  60 25 3a e7 48 5f 25 20  |))..q..B`%:.H_% |
000008a0  44 5f 25 3d 44 5f 25 82  26 43 33 31 0d 00 72 05  |D_%=D_%.&C31..r.|
000008b0  cb 0d 00 73 05 cd 0d 00  74 0f c9 4c 5f 25 3a c8  |...s....t..L_%:.|
000008c0  8e 75 5f 25 ca 0d 00 75  0f c9 43 60 25 3a c8 8e  |.u_%...u..C`%:..|
000008d0  62 5f 25 ca 0d 00 76 13  c9 31 3a f2 44 60 28 45  |b_%...v..1:.D`(E|
000008e0  60 25 2c 43 60 25 29 0d  00 77 3e c9 32 3a 73 5f  |`%,C`%)..w>.2:s_|
000008f0  25 3d 45 5f 25 21 26 43  30 2d 36 30 3a 74 5f 25  |%=E_%!&C0-60:t_%|
00000900  3d 63 5f 25 2b 31 30 3a  64 5f 25 3d 6d 5f 25 3a  |=c_%+10:d_%=m_%:|
00000910  c8 99 32 36 32 33 35 36  2c 2c 64 5f 25 2c 73 5f  |..262356,,d_%,s_|
00000920  25 2c 74 5f 25 0d 00 79  05 cb 0d 00 7a 1e c9 46  |%,t_%..y....z..F|
00000930  60 25 3a e7 54 5f 25 3d  31 31 30 80 44 5f 25 3d  |`%:.T_%=110.D_%=|
00000940  30 f2 59 5f 8b f2 47 60  0d 00 7b 38 c9 48 60 25  |0.Y_..G`..{8.H`%|
00000950  3a e7 4d 5f 25 e7 a4 4a  5f 28 31 38 2c 22 4e 4f  |:.M_%..J_(18,"NO|
00000960  22 2c 22 59 45 53 22 29  f2 4b 5f 3a f2 67 5f 28  |","YES").K_:.g_(|
00000970  4c 5f 25 2c 68 5f 25 2c  a4 69 5f 28 33 35 29 29  |L_%,h_%,.i_(35))|
00000980  0d 00 7c 1a c9 49 60 25  3a e7 4d 5f 25 20 44 5f  |..|..I`%:.M_% D_|
00000990  25 3d 44 5f 25 82 26 43  33 31 0d 00 7d 0e c9 4a  |%=D_%.&C31..}..J|
000009a0  60 25 3a e7 4d 5f 25 8c  0d 00 7e 30 f2 4b 5f 3a  |`%:.M_%...~0.K_:|
000009b0  f2 67 5f 28 4c 5f 25 2c  68 5f 25 2c a4 69 5f 28  |.g_(L_%,h_%,.i_(|
000009c0  31 36 29 2b 22 2d 20 22  2b c3 28 4b 60 25 29 2b  |16)+"- "+.(K`%)+|
000009d0  a4 69 5f 28 32 38 29 29  0d 00 80 05 cd 0d 00 81  |.i_(28))........|
000009e0  05 cb 0d 00 82 07 cb 3a  e1 0d 00 84 04 0d 00 85  |.......:........|
000009f0  19 dd f2 53 5f 28 77 25  2c 69 25 29 3a ea 6c 24  |...S_(w%,i%):.l$|
00000a00  3a c8 8e 77 25 ca 0d 00  88 17 c9 47 5f 25 3a e7  |:..w%......G_%:.|
00000a10  69 25 3d 6e 5f 25 80 48  5f 25 3d a3 8c 0d 00 89  |i%=n_%.H_%=.....|
00000a20  5c 49 25 3d 45 5f 25 2b  34 34 3a c8 95 3f 49 25  |\I%=E_%+44:..?I%|
00000a30  3e 33 31 3a 49 25 2b 3d  31 3a ce 3a 3f 49 25 3d  |>31:I%+=1:.:?I%=|
00000a40  31 33 3a f2 67 5f 28 47  5f 25 2c 6e 5f 25 2c 24  |13:.g_(G_%,n_%,$|
00000a50  28 45 5f 25 2b 34 34 29  29 3a c8 95 3f 49 25 3c  |(E_%+44)):..?I%<|
00000a60  3e 97 22 2e 22 3a 49 25  2d 3d 31 3a ce 3a 4c 60  |>.".":I%-=1:.:L`|
00000a70  24 3d 24 28 49 25 2b 31  29 0d 00 8c 05 cd 0d 00  |$=$(I%+1).......|
00000a80  8d 16 c9 4c 5f 25 3a 59  5f 25 3d a3 3a e7 4d 5f  |...L_%:Y_%=.:.M_|
00000a90  25 3d b9 8c 0d 00 8f 40  49 25 3d 45 5f 25 2b 34  |%=.....@I%=E_%+4|
00000aa0  34 3a c8 95 3f 49 25 3e  33 31 3a 49 25 2b 3d 31  |4:..?I%>31:I%+=1|
00000ab0  3a ce 3a 3f 49 25 3d 31  33 3a f2 67 5f 28 4c 5f  |:.:?I%=13:.g_(L_|
00000ac0  25 2c 43 60 25 2c 24 28  45 5f 25 2b 34 34 29 29  |%,C`%,$(E_%+44))|
00000ad0  3a f2 4d 60 0d 00 92 93  cc 3a 4e 60 24 3d 22 22  |:.M`.....:N`$=""|
00000ae0  3a 4f 60 24 3d 22 22 3a  50 60 25 3d 45 5f 25 21  |:O`$="":P`%=E_%!|
00000af0  34 30 3a 49 25 3d 45 5f  25 2b 34 34 3a c8 95 3f  |40:I%=E_%+44:..?|
00000b00  49 25 3e 33 31 3a 49 25  2b 3d 31 3a ce 3a 3f 49  |I%>31:I%+=1:.:?I|
00000b10  25 3d 31 33 3a f2 67 5f  28 4c 5f 25 2c 43 60 25  |%=13:.g_(L_%,C`%|
00000b20  2c 24 28 45 5f 25 2b 34  34 29 29 3a c8 95 3f 49  |,$(E_%+44)):..?I|
00000b30  25 3c 3e 97 22 2e 22 3a  49 25 2d 3d 31 3a ce 3a  |%<>.".":I%-=1:.:|
00000b40  6c 24 3d 24 28 49 25 2b  31 29 3a e7 c2 6c 24 2c  |l$=$(I%+1):..l$,|
00000b50  32 29 3d 22 30 31 22 20  6c 24 3d c0 6c 24 2c a9  |2)="01" l$=.l$,.|
00000b60  28 6c 24 29 2d 32 29 0d  00 98 1f e7 a4 51 60 28  |(l$)-2)......Q`(|
00000b70  4c 5f 25 2c 52 60 25 29  3d b9 f2 53 60 28 4c 5f  |L_%,R`%)=..S`(L_|
00000b80  25 2c 52 60 25 29 0d 00  99 3a f2 67 5f 28 4c 5f  |%,R`%)...:.g_(L_|
00000b90  25 2c 68 5f 25 2c a4 69  5f 28 32 30 29 29 3a f2  |%,h_%,.i_(20)):.|
00000ba0  67 5f 28 78 5f 25 2c 31  2c 6c 24 29 3a f2 54 60  |g_(x_%,1,l$):.T`|
00000bb0  28 4c 5f 25 2c 78 5f 25  2c 31 38 30 2c 34 30 29  |(L_%,x_%,180,40)|
00000bc0  0d 00 9c 05 cd 0d 00 9d  07 cb 3a e1 0d 00 9f 04  |..........:.....|
00000bd0  0d 00 a0 2b dd f2 47 60  3a ea 61 24 2c 55 60 24  |...+..G`:.a$,U`$|
00000be0  2c 56 60 25 3a ea 85 3a  ee 85 ea 3a f2 43 5f 28  |,V`%:..:...:.C_(|
00000bf0  f6 24 2c a3 29 3a f2 57  60 3a e1 0d 00 a3 3b 4d  |.$,.):.W`:....;M|
00000c00  5f 25 3d a3 3a 48 5f 25  3d a3 3a 58 60 25 3d 30  |_%=.:H_%=.:X`%=0|
00000c10  3a 59 60 25 3d 31 3a 4b  60 25 3d 30 3a e7 a4 5a  |:Y`%=1:K`%=0:..Z|
00000c20  60 28 26 34 30 30 30 29  3d a3 85 31 30 30 2c a4  |`(&4000)=..100,.|
00000c30  69 5f 28 31 32 29 0d 00  a6 14 e7 a4 51 60 28 4c  |i_(12)......Q`(L|
00000c40  5f 25 2c 52 60 25 29 3d  b9 8c 0d 00 a7 3e 61 60  |_%,R`%)=.....>a`|
00000c50  25 3d 30 3a 4f 60 24 3d  a4 62 60 28 4c 5f 25 2c  |%=0:O`$=.b`(L_%,|
00000c60  43 60 25 29 3a 61 24 3d  4f 60 24 3a e7 c2 61 24  |C`%):a$=O`$:..a$|
00000c70  2c 32 29 3d 22 2e 24 22  20 61 24 3d c0 61 24 2c  |,2)=".$" a$=.a$,|
00000c80  a9 28 61 24 29 2d 32 29  0d 00 aa 25 49 25 3d 97  |.(a$)-2)...%I%=.|
00000c90  28 c2 61 24 29 29 3a e7  49 25 3e 34 37 80 49 25  |(.a$)):.I%>47.I%|
00000ca0  3c 35 32 20 61 60 25 3d  49 25 2d 34 38 0d 00 ab  |<52 a`%=I%-48...|
00000cb0  1f e7 a4 4a 5f 28 32 33  2c 22 51 75 69 74 22 2c  |...J_(23,"Quit",|
00000cc0  22 4f 4b 22 29 3d a3 f2  57 60 3a e1 0d 00 ac 3b  |"OK")=..W`:....;|
00000cd0  c8 99 31 32 2c 31 32 2c  4f 60 24 2c 63 60 25 2c  |..12,12,O`$,c`%,|
00000ce0  37 30 2c 30 2c 26 31 30  30 2c 22 2a 30 31 22 b8  |70,0,&100,"*01".|
00000cf0  2c 2c 2c 46 25 3a e7 46  25 3d 30 85 31 30 30 2c  |,,,F%:.F%=0.100,|
00000d00  a4 69 5f 28 32 34 29 0d  00 ae 95 49 25 3d 63 60  |.i_(24)....I%=c`|
00000d10  25 2b 32 34 3a c8 95 3f  49 25 3e 33 32 3a 49 25  |%+24:..?I%>32:I%|
00000d20  2b 3d 31 3a ce 3a 3f 49  25 3d 31 33 3a 4e 60 24  |+=1:.:?I%=13:N`$|
00000d30  3d 24 28 63 60 25 2b 32  34 29 3a 50 60 25 3d 63  |=$(c`%+24):P`%=c|
00000d40  60 25 21 32 30 3a 4e 60  24 3d c0 4e 60 24 2c a9  |`%!20:N`$=.N`$,.|
00000d50  28 4e 60 24 29 2d 32 29  3a 55 60 24 3d 4e 60 24  |(N`$)-2):U`$=N`$|
00000d60  3a 64 60 24 3d a4 65 60  28 4e 60 24 2c 59 60 25  |:d`$=.e`(N`$,Y`%|
00000d70  29 3a c8 99 34 31 2c 34  39 2c 4f 60 24 b8 2c 2c  |):..41,49,O`$.,,|
00000d80  56 60 25 3a e7 56 60 25  3d 26 42 34 30 30 30 84  |V`%:.V`%=&B4000.|
00000d90  56 60 25 3d 26 31 36 38  30 30 30 8c 0d 00 b5 18  |V`%=&168000.....|
00000da0  e7 c2 55 60 24 29 3d 22  2f 22 20 55 60 24 3d c0  |..U`$)="/" U`$=.|
00000db0  55 60 24 29 0d 00 b6 36  c8 99 31 32 2c 31 32 2c  |U`$)...6..12,12,|
00000dc0  4f 60 24 2c 63 60 25 2c  37 30 2c 30 2c 26 31 30  |O`$,c`%,70,0,&10|
00000dd0  30 2c 22 46 49 4c 45 54  59 50 45 2a 22 b8 2c 2c  |0,"FILETYPE*".,,|
00000de0  2c 46 25 3a e7 46 25 3e  30 8c 0d 00 b8 54 49 25  |,F%:.F%>0....TI%|
00000df0  3d 63 60 25 2b 33 32 3a  c8 95 3f 49 25 3e 31 33  |=c`%+32:..?I%>13|
00000e00  3a 49 25 2b 3d 31 3a ce  3a 3f 49 25 3d 31 33 3a  |:I%+=1:.:?I%=13:|
00000e10  66 60 24 3d 24 28 63 60  25 2b 33 33 29 3a 43 25  |f`$=$(c`%+33):C%|
00000e20  3d 67 60 25 3a f5 3a e7  24 43 25 3d 66 60 24 20  |=g`%:.:.$C%=f`$ |
00000e30  50 60 25 3d 43 25 21 34  8b 43 25 2b 3d 38 0d 00  |P`%=C%!4.C%+=8..|
00000e40  bc 12 fd 21 43 25 3d 30  84 24 43 25 3d 66 60 24  |...!C%=0.$C%=f`$|
00000e50  0d 00 bd 05 cd 0d 00 be  43 cd 3a f2 67 5f 28 78  |........C.:.g_(x|
00000e60  5f 25 2c 31 2c 55 60 24  29 3a f2 67 5f 28 4c 5f  |_%,1,U`$):.g_(L_|
00000e70  25 2c 68 5f 25 2c a4 69  5f 28 32 30 29 29 3a 59  |%,h_%,.i_(20)):Y|
00000e80  5f 25 3d b9 3a f2 54 60  28 4c 5f 25 2c 78 5f 25  |_%=.:.T`(L_%,x_%|
00000e90  2c 31 38 30 2c 34 30 29  0d 00 c3 20 cc 3a e7 68  |,180,40)... .:.h|
00000ea0  60 24 3d 22 22 84 69 60  24 3d 22 22 85 31 30 30  |`$="".i`$="".100|
00000eb0  2c a4 69 5f 28 32 32 29  0d 00 c5 0d 4d 5f 25 3d  |,.i_(22)....M_%=|
00000ec0  b9 3a f2 4d 60 0d 00 c6  07 cd 3a e1 0d 00 c8 04  |.:.M`.....:.....|
00000ed0  0d 00 c9 26 dd f2 59 5f  3a ea 6c 25 2c 66 24 3a  |...&..Y_:.l%,f$:|
00000ee0  ea 85 3a ee 85 ea 3a f2  43 5f 28 f6 24 2c a3 29  |..:...:.C_(.$,.)|
00000ef0  3a f2 4b 5f 3a e1 0d 00  cc 31 66 24 3d 4f 60 24  |:.K_:....1f$=O`$|
00000f00  2b 22 2e 22 2b 64 60 24  3a c8 99 31 33 31 30 38  |+"."+d`$:..13108|
00000f10  30 2c 31 37 2c 66 24 b8  49 25 2c 2c 2c 2c 6c 25  |0,17,f$.I%,,,,l%|
00000f20  3a e7 49 25 3d 30 8c 0d  00 cf 2c 24 6a 60 25 3d  |:.I%=0....,$j`%=|
00000f30  a4 69 5f 28 33 33 29 2b  64 60 24 3a e7 a4 4a 5f  |.i_(33)+d`$:..J_|
00000f40  28 2d 31 2c 22 51 75 69  74 22 2c 22 4f 4b 22 29  |(-1,"Quit","OK")|
00000f50  3d b9 8c 0d 00 d1 07 f2  6b 60 0d 00 d2 1e cc 3a  |=.......k`.....:|
00000f60  f2 4b 5f 3a f2 67 5f 28  4c 5f 25 2c 68 5f 25 2c  |.K_:.g_(L_%,h_%,|
00000f70  a4 69 5f 28 33 35 29 29  0d 00 d4 07 cd 3a e1 0d  |.i_(35)).....:..|
00000f80  00 d6 1c cd 3a e7 a4 5a  60 28 6c 25 29 3d a3 85  |....:..Z`(l%)=..|
00000f90  31 30 30 2c a4 69 5f 28  32 35 29 0d 00 d8 b8 c8  |100,.i_(25).....|
00000fa0  99 32 36 33 38 37 32 3a  f2 67 5f 28 4c 5f 25 2c  |.263872:.g_(L_%,|
00000fb0  68 5f 25 2c a4 69 5f 28  32 37 29 2b 6c 60 24 29  |h_%,.i_(27)+l`$)|
00000fc0  3a f2 67 5f 28 4c 5f 25  2c 43 60 25 2c 66 24 29  |:.g_(L_%,C`%,f$)|
00000fd0  3a c8 99 38 2c 31 36 2c  66 24 2c 63 60 25 3a c8  |:..8,16,f$,c`%:.|
00000fe0  99 31 33 2c 26 43 33 2c  6c 60 24 b8 6d 60 25 3a  |.13,&C3,l`$.m`%:|
00000ff0  c8 99 31 32 2c 31 2c 6d  60 25 2c 63 60 25 2c 6c  |..12,1,m`%,c`%,l|
00001000  25 2c 58 60 25 b8 2c 2c  2c 2c 58 60 25 3a c8 99  |%,X`%.,,,,X`%:..|
00001010  31 33 2c 30 2c 6d 60 25  3a 6d 60 25 3d 30 3a c8  |13,0,m`%:m`%=0:.|
00001020  99 32 36 33 38 37 33 3a  4b 60 25 2b 3d 6c 25 3a  |.263873:K`%+=l%:|
00001030  59 60 25 2b 3d 31 3a 4d  5f 25 3d b9 3a 64 60 24  |Y`%+=1:M_%=.:d`$|
00001040  3d a4 65 60 28 4e 60 24  2c 59 60 25 29 3a f2 6b  |=.e`(N`$,Y`%):.k|
00001050  60 3a e1 0d 00 e4 04 0d  00 e5 27 dd f2 6b 60 3a  |`:........'..k`:|
00001060  ef 37 3a 6e 60 25 3d a3  3a 53 25 3d 30 3a e7 a4  |.7:n`%=.:S%=0:..|
00001070  51 60 28 4c 5f 25 2c 6f  60 25 29 3d b9 8c 0d 00  |Q`(L_%,o`%)=....|
00001080  e9 2a f2 67 5f 28 4c 5f  25 2c 68 5f 25 2c a4 69  |.*.g_(L_%,h_%,.i|
00001090  5f 28 33 32 29 2b 64 60  24 29 3a 44 5f 25 3d 30  |_(32)+d`$):D_%=0|
000010a0  3a 54 5f 25 3d 31 30 36  0d 00 eb 34 cc 3a f2 67  |:T_%=106...4.:.g|
000010b0  5f 28 4c 5f 25 2c 68 5f  25 2c a4 69 5f 28 33 32  |_(L_%,h_%,.i_(32|
000010c0  29 2b 64 60 24 2b a4 69  5f 28 33 37 29 29 3a 44  |)+d`$+.i_(37)):D|
000010d0  5f 25 3d 30 3a 54 5f 25  3d 31 31 30 0d 00 ee 07  |_%=0:T_%=110....|
000010e0  cd 3a e1 0d 00 f0 04 0d  00 f1 4c dd f2 5a 5f 3a  |.:........L..Z_:|
000010f0  c8 99 33 34 2c 31 31 2c  31 2c 26 35 38 3a c8 99  |..34,11,1,&58:..|
00001100  33 34 2c 31 31 2c 30 2c  26 35 38 3a c8 99 32 36  |34,11,0,&58:..26|
00001110  32 37 33 32 2c 31 2c 61  60 25 2c 53 25 b8 2c 2c  |2732,1,a`%,S%.,,|
00001120  53 25 2c 46 25 3a e7 46  25 80 38 20 6e 60 25 3d  |S%,F%:.F%.8 n`%=|
00001130  b9 3a e1 0d 00 f4 1b e7  6e 60 25 e7 46 25 80 56  |.:......n`%.F%.V|
00001140  5f 25 3d 56 5f 25 20 54  5f 25 3d 31 30 30 0d 00  |_%=V_% T_%=100..|
00001150  f5 05 e1 0d 00 f6 04 0d  00 f7 29 dd f2 4d 60 3a  |..........)..M`:|
00001160  ea 6c 25 3a ea 85 3a ee  85 ea 3a f2 43 5f 28 f6  |.l%:..:...:.C_(.|
00001170  24 2c a3 29 3a 49 25 3d  a4 5a 60 28 30 29 3a e1  |$,.):I%=.Z`(0):.|
00001180  0d 00 fa 59 f2 67 5f 28  4c 5f 25 2c 68 5f 25 2c  |...Y.g_(L_%,h_%,|
00001190  a4 69 5f 28 32 37 29 2b  6c 60 24 29 3a c8 99 32  |.i_(27)+l`$):..2|
000011a0  36 33 38 37 32 3a c8 99  38 2c 31 37 2c a4 62 60  |63872:..8,17,.b`|
000011b0  28 4c 5f 25 2c 43 60 25  29 b8 49 25 2c 2c 2c 2c  |(L_%,C`%).I%,,,,|
000011c0  6c 25 3a e7 a4 5a 60 28  6c 25 29 3d a3 85 31 30  |l%:..Z`(l%)=..10|
000011d0  30 2c a4 69 5f 28 32 35  29 0d 00 fe 93 c8 99 38  |0,.i_(25)......8|
000011e0  2c 31 36 2c a4 62 60 28  4c 5f 25 2c 43 60 25 29  |,16,.b`(L_%,C`%)|
000011f0  2c 63 60 25 3a c8 99 31  33 2c 26 43 33 2c 6c 60  |,c`%:..13,&C3,l`|
00001200  24 b8 6d 60 25 3a c8 99  31 32 2c 31 2c 6d 60 25  |$.m`%:..12,1,m`%|
00001210  2c 63 60 25 2c 6c 25 2c  58 60 25 b8 2c 2c 2c 2c  |,c`%,l%,X`%.,,,,|
00001220  58 60 25 3a c8 99 31 33  2c 30 2c 6d 60 25 3a 6d  |X`%:..13,0,m`%:m|
00001230  60 25 3d 30 3a c8 99 32  36 33 38 37 33 3a 4b 60  |`%=0:..263873:K`|
00001240  25 2b 3d 6c 25 3a 4d 5f  25 3d b9 3a f2 67 5f 28  |%+=l%:M_%=.:.g_(|
00001250  4c 5f 25 2c 68 5f 25 2c  c3 28 6c 25 29 2b 22 20  |L_%,h_%,.(l%)+" |
00001260  22 2b a4 69 5f 28 32 36  29 29 3a e1 0d 01 06 04  |"+.i_(26)):.....|
00001270  0d 01 07 2b dd f2 60 5f  3a ea 61 24 2c 56 60 25  |...+..`_:.a$,V`%|
00001280  2c 66 60 24 3a ea 85 3a  ee 85 ea 3a f2 43 5f 28  |,f`$:..:...:.C_(|
00001290  f6 24 2c a3 29 3a f2 57  60 3a e1 0d 01 0a 6d 4d  |.$,.):.W`:....mM|
000012a0  5f 25 3d a3 3a 48 5f 25  3d a3 3a 70 60 25 3d a4  |_%=.:H_%=.:p`%=.|
000012b0  71 60 28 47 5f 25 2c 70  5f 25 29 3a 72 60 25 3d  |q`(G_%,p_%):r`%=|
000012c0  a4 71 60 28 47 5f 25 2c  72 5f 25 29 3a 73 60 24  |.q`(G_%,r_%):s`$|
000012d0  3d a4 62 60 28 47 5f 25  2c 6e 5f 25 29 3a 74 60  |=.b`(G_%,n_%):t`|
000012e0  24 3d a4 62 60 28 47 5f  25 2c 6c 5f 25 29 3a e7  |$=.b`(G_%,l_%):.|
000012f0  70 60 25 3d 30 20 49 25  3d a4 75 60 28 31 2c a4  |p`%=0 I%=.u`(1,.|
00001300  69 5f 28 31 29 29 3a e1  0d 01 10 1d e7 72 60 25  |i_(1)):......r`%|
00001310  3d 30 20 49 25 3d a4 75  60 28 31 2c a4 69 5f 28  |=0 I%=.u`(1,.i_(|
00001320  32 29 29 3a e1 0d 01 11  1e e7 73 60 24 3d 22 22  |2)):......s`$=""|
00001330  20 49 25 3d a4 75 60 28  31 2c a4 69 5f 28 33 29  | I%=.u`(1,.i_(3)|
00001340  29 3a e1 0d 01 12 1e e7  74 60 24 3d 22 22 20 49  |):......t`$="" I|
00001350  25 3d a4 75 60 28 31 2c  a4 69 5f 28 34 29 29 3a  |%=.u`(1,.i_(4)):|
00001360  e1 0d 01 13 33 c8 99 38  2c 31 37 2c 73 60 24 b8  |....3..8,17,s`$.|
00001370  49 25 2c 2c 41 25 2c 2c  76 60 25 3a e7 49 25 3d  |I%,,A%,,v`%:.I%=|
00001380  32 20 49 25 3d a4 75 60  28 31 2c a4 69 5f 28 30  |2 I%=.u`(1,.i_(0|
00001390  29 29 3a e1 0d 01 15 1c  e7 49 25 3d 30 20 49 25  |)):......I%=0 I%|
000013a0  3d a4 75 60 28 31 2c a4  69 5f 28 35 29 29 3a e1  |=.u`(1,.i_(5)):.|
000013b0  0d 01 16 50 50 60 25 3d  28 41 25 3e 3e 38 29 80  |...PP`%=(A%>>8).|
000013c0  26 46 46 46 3a 4c 60 24  3d c0 4c 60 24 2c 38 29  |&FFF:L`$=.L`$,8)|
000013d0  3a 24 77 60 25 3d 74 60  24 3a 61 60 25 3d 2d 31  |:$w`%=t`$:a`%=-1|
000013e0  3a e7 77 60 25 3f 36 3e  34 37 80 77 60 25 3f 36  |:.w`%?6>47.w`%?6|
000013f0  3c 35 32 20 61 60 25 3d  77 60 25 3f 36 2d 34 38  |<52 a`%=w`%?6-48|
00001400  0d 01 1a 12 59 60 25 3d  31 3a e7 61 60 25 3e 3d  |....Y`%=1:.a`%>=|
00001410  30 8c 0d 01 1c 58 f2 67  5f 28 47 5f 25 2c 78 60  |0....X.g_(G_%,x`|
00001420  25 2c a4 79 60 28 37 39  36 2a 31 30 32 34 29 2b  |%,.y`(796*1024)+|
00001430  22 2d 38 30 30 4b 20 6f  72 20 22 2b a4 79 60 28  |"-800K or "+.y`(|
00001440  31 35 38 36 2a 31 30 32  34 29 2b a4 69 5f 28 32  |1586*1024)+.i_(2|
00001450  39 29 29 3a e7 a4 4a 5f  28 36 2c 22 51 75 69 74  |9)):..J_(6,"Quit|
00001460  22 2c 22 4f 4b 22 29 3d  a3 e1 0d 01 1e 40 c8 99  |","OK")=.....@..|
00001470  32 36 32 37 32 35 2c c3  28 61 60 25 29 2b bd 28  |262725,.(a`%)+.(|
00001480  30 29 2c 7a 60 25 3a 56  60 25 3d 7a 60 25 21 31  |0),z`%:V`%=z`%!1|
00001490  36 3a e7 56 60 25 3d 26  42 34 30 30 30 84 56 60  |6:.V`%=&B4000.V`|
000014a0  25 3d 26 31 36 38 30 30  30 8c 0d 01 20 2b 43 25  |%=&168000... +C%|
000014b0  3d 67 60 25 3a 66 60 24  3d 22 22 3a f5 3a e7 43  |=g`%:f`$="":.:.C|
000014c0  25 21 34 3d 50 60 25 20  66 60 24 3d 24 43 25 8b  |%!4=P`% f`$=$C%.|
000014d0  43 25 2b 3d 38 0d 01 23  3f fd 66 60 24 3e 22 22  |C%+=8..#?.f`$>""|
000014e0  84 21 43 25 3d 30 3a e7  66 60 24 3e 22 22 c8 99  |.!C%=0:.f`$>""..|
000014f0  38 2c 31 31 2c 74 60 24  2b 22 2e 46 49 4c 45 54  |8,11,t`$+".FILET|
00001500  59 50 45 2f 22 2b 66 60  24 2c 26 46 45 34 2c 30  |YPE/"+f`$,&FE4,0|
00001510  2c 30 2c 30 0d 01 25 05  cd 0d 01 26 19 cc 3a e7  |,0,0..%....&..:.|
00001520  70 60 25 3c 3d 30 85 31  30 30 2c a4 69 5f 28 31  |p`%<=0.100,.i_(1|
00001530  35 29 0d 01 28 17 e7 72  60 25 3c 3d 30 85 31 30  |5)..(..r`%<=0.10|
00001540  30 2c a4 69 5f 28 31 35  29 0d 01 29 2d cd 3a f2  |0,.i_(15)..)-.:.|
00001550  67 5f 28 47 5f 25 2c 78  60 25 2c a4 69 5f 28 37  |g_(G_%,x`%,.i_(7|
00001560  29 29 3a 48 5f 25 3d b9  3a 54 5f 25 3d 31 3a 44  |)):H_%=.:T_%=1:D|
00001570  5f 25 3d 30 3a e1 0d 01  2d 04 0d 01 2e 42 dd a4  |_%=0:...-....B..|
00001580  79 60 28 73 25 29 3a ea  5f 60 25 2c 60 60 25 2c  |y`(s%):._`%,``%,|
00001590  64 25 2c 6c 25 3a 6c 25  3d 76 60 25 3a 5f 60 25  |d%,l%:l%=v`%:_`%|
000015a0  3d a4 71 60 28 47 5f 25  2c 70 5f 25 29 3a e7 5f  |=.q`(G_%,p_%):._|
000015b0  60 25 3d 2d 31 20 5f 60  25 3d 73 25 0d 01 32 23  |`%=-1 _`%=s%..2#|
000015c0  60 60 25 3d a4 71 60 28  47 5f 25 2c 72 5f 25 29  |``%=.q`(G_%,r_%)|
000015d0  3a e7 60 60 25 3d 2d 31  20 60 60 25 3d 73 25 0d  |:.``%=-1 ``%=s%.|
000015e0  01 33 2e 64 25 3d 31 3a  6c 25 2d 3d 5f 60 25 3a  |.3.d%=1:l%-=_`%:|
000015f0  c8 95 6c 25 3e 30 3a 64  25 2b 3d 31 3a 6c 25 2d  |..l%>0:d%+=1:l%-|
00001600  3d 60 60 25 3a ce 3a 3d  c3 28 64 25 29 0d 01 36  |=``%:.:=.(d%)..6|
00001610  04 0d 01 37 11 dd f2 55  5f 3a e7 61 60 25 3e 3d  |...7...U_:.a`%>=|
00001620  30 8c 0d 01 39 40 c8 99  32 36 32 37 32 33 2c c3  |0...9@..262723,.|
00001630  28 61 60 25 29 b8 43 25  3a e7 70 60 25 3c 30 20  |(a`%).C%:.p`%<0 |
00001640  41 61 25 3d 43 25 8b 41  61 25 3d 70 60 25 3a e7  |Aa%=C%.Aa%=p`%:.|
00001650  43 25 3c 70 60 25 85 31  30 30 2c a4 69 5f 28 31  |C%<p`%.100,.i_(1|
00001660  34 29 0d 01 3b 0d cc 3a  41 61 25 3d 70 60 25 0d  |4)..;..:Aa%=p`%.|
00001670  01 3d 17 cd 3a 42 61 25  3d 30 3a f2 43 61 3a e7  |.=..:Ba%=0:.Ca:.|
00001680  44 5f 25 3e 30 e1 0d 01  40 0c e7 61 60 25 3e 3d  |D_%>0...@..a`%>=|
00001690  30 8c 0d 01 41 22 6e 60  25 3d a3 3a 53 25 3d 30  |0...A"n`%=.:S%=0|
000016a0  3a ef 37 3a e7 a4 51 60  28 47 5f 25 2c 44 61 25  |:.7:..Q`(G_%,Da%|
000016b0  29 3d b9 8c 0d 01 43 1e  f2 67 5f 28 47 5f 25 2c  |)=....C..g_(G_%,|
000016c0  78 60 25 2c a4 69 5f 28  31 30 29 29 3a 54 5f 25  |x`%,.i_(10)):T_%|
000016d0  3d 36 0d 01 45 21 cc 3a  f2 67 5f 28 47 5f 25 2c  |=6..E!.:.g_(G_%,|
000016e0  78 60 25 2c a4 69 5f 28  33 36 29 29 3a 54 5f 25  |x`%,.i_(36)):T_%|
000016f0  3d 31 30 0d 01 48 05 cd  0d 01 49 0b cc 3a 54 5f  |=10..H....I..:T_|
00001700  25 3d 37 0d 01 4b 07 cd  3a e1 0d 01 4d 04 0d 01  |%=7..K..:...M...|
00001710  4e 2d dd f2 57 5f 3a f2  67 5f 28 47 5f 25 2c 78  |N-..W_:.g_(G_%,x|
00001720  60 25 2c a4 69 5f 28 31  31 29 2b c3 28 59 60 25  |`%,.i_(11)+.(Y`%|
00001730  29 29 3a e7 61 60 25 3e  3d 30 8c 0d 01 51 40 c8  |)):.a`%>=0...Q@.|
00001740  99 32 36 32 37 32 33 2c  c3 28 61 60 25 29 b8 43  |.262723,.(a`%).C|
00001750  25 3a e7 72 60 25 3c 30  20 41 61 25 3d 43 25 8b  |%:.r`%<0 Aa%=C%.|
00001760  41 61 25 3d 72 60 25 3a  e7 43 25 3c 72 60 25 85  |Aa%=r`%:.C%<r`%.|
00001770  31 30 30 2c a4 69 5f 28  31 34 29 0d 01 53 0d cc  |100,.i_(14)..S..|
00001780  3a 41 61 25 3d 72 60 25  0d 01 55 15 cd 3a f2 43  |:Aa%=r`%..U..:.C|
00001790  61 3a e7 44 5f 25 3e 30  f2 45 61 3a e1 0d 01 57  |a:.D_%>0.Ea:...W|
000017a0  0c e7 61 60 25 3e 3d 30  8c 0d 01 58 22 6e 60 25  |..a`%>=0...X"n`%|
000017b0  3d a3 3a 53 25 3d 30 3a  ef 37 3a e7 a4 51 60 28  |=.:S%=0:.7:..Q`(|
000017c0  47 5f 25 2c 44 61 25 29  3d b9 8c 0d 01 5a 1e f2  |G_%,Da%)=....Z..|
000017d0  67 5f 28 47 5f 25 2c 78  60 25 2c a4 69 5f 28 31  |g_(G_%,x`%,.i_(1|
000017e0  30 29 29 3a 54 5f 25 3d  36 0d 01 5c 21 cc 3a f2  |0)):T_%=6..\!.:.|
000017f0  67 5f 28 47 5f 25 2c 78  60 25 2c a4 69 5f 28 33  |g_(G_%,x`%,.i_(3|
00001800  36 29 29 3a 54 5f 25 3d  31 30 0d 01 5f 05 cd 0d  |6)):T_%=10.._...|
00001810  01 60 0b cc 3a 54 5f 25  3d 37 0d 01 62 07 cd 3a  |.`..:T_%=7..b..:|
00001820  e1 0d 01 64 04 0d 01 65  20 dd f2 43 61 3a ea 46  |...d...e ..Ca:.F|
00001830  61 25 2c 56 60 25 2c 61  24 3a ea 85 3a ee 85 ea  |a%,V`%,a$:..:...|
00001840  f2 47 61 3a e1 0d 01 68  16 e7 41 61 25 3d 30 85  |.Ga:...h..Aa%=0.|
00001850  31 30 30 2c a4 69 5f 28  31 33 29 0d 01 69 25 45  |100,.i_(13)..i%E|
00001860  25 3d a4 5a 60 28 41 61  25 29 3a e7 45 25 3c 26  |%=.Z`(Aa%):.E%<&|
00001870  38 30 30 30 85 31 30 30  2c a4 69 5f 28 31 32 29  |8000.100,.i_(12)|
00001880  0d 01 6a 25 48 61 24 3d  74 60 24 2b 22 2e 22 2b  |..j%Ha$=t`$+"."+|
00001890  a4 65 60 28 4c 60 24 2c  59 60 25 29 3a e7 61 60  |.e`(L`$,Y`%):.a`|
000018a0  25 3e 3d 30 8c 0d 01 6c  34 e7 a4 51 60 28 47 5f  |%>=0...l4..Q`(G_|
000018b0  25 2c 49 61 25 29 c8 99  34 31 2c 35 30 2c 22 61  |%,Ia%)..41,50,"a|
000018c0  64 66 73 3a 3a 22 2b c3  28 61 60 25 29 2c 4c 60  |dfs::"+.(a`%),L`|
000018d0  24 2b c2 48 61 24 2c 32  29 0d 01 6d 52 c8 99 34  |$+.Ha$,2)..mR..4|
000018e0  31 2c 34 39 2c 74 60 24  b8 2c 2c 56 60 25 3a e7  |1,49,t`$.,,V`%:.|
000018f0  56 60 25 3d 26 42 34 30  30 30 84 56 60 25 3d 26  |V`%=&B4000.V`%=&|
00001900  31 36 38 30 30 30 20 61  24 3d 22 2f 22 2b c2 48  |168000 a$="/"+.H|
00001910  61 24 2c 32 29 3a 48 61  24 3d c0 48 61 24 2c a9  |a$,2):Ha$=.Ha$,.|
00001920  28 48 61 24 29 2d 32 29  2b 61 24 0d 01 6f 7a cd  |(Ha$)-2)+a$..oz.|
00001930  3a c8 99 31 33 2c 26 43  33 2c 73 60 24 b8 4a 61  |:..13,&C3,s`$.Ja|
00001940  25 3a c8 99 31 32 2c 33  2c 4a 61 25 2c 63 60 25  |%:..12,3,Ja%,c`%|
00001950  2c 41 61 25 2c 42 61 25  b8 2c 2c 45 25 2c 4e 25  |,Aa%,Ba%.,,E%,N%|
00001960  2c 46 61 25 3a c8 99 31  33 2c 30 2c 4a 61 25 3a  |,Fa%:..13,0,Ja%:|
00001970  4a 61 25 3d 30 3a c8 99  38 2c 31 30 2c 48 61 24  |Ja%=0:..8,10,Ha$|
00001980  2c 50 60 25 2c 2c 63 60  25 2c 45 25 3a 49 25 3d  |,P`%,,c`%,E%:I%=|
00001990  a4 5a 60 28 30 29 3a 44  5f 25 3d 30 3a e7 61 60  |.Z`(0):D_%=0:.a`|
000019a0  25 3e 3d 30 8c 0d 01 76  14 e7 a4 51 60 28 47 5f  |%>=0...v...Q`(G_|
000019b0  25 2c 4b 61 25 29 f2 58  5f 0d 01 77 16 ff 22 64  |%,Ka%).X_..w.."d|
000019c0  69 73 6d 6f 75 6e 74 20  3a 22 2b c3 61 60 25 0d  |ismount :"+.a`%.|
000019d0  01 78 27 cd 3a 59 60 25  2b 3d 31 3a 42 61 25 3d  |.x'.:Y`%+=1:Ba%=|
000019e0  46 61 25 3a e7 42 61 25  3e 3d 76 60 25 20 44 5f  |Fa%:.Ba%>=v`% D_|
000019f0  25 3d 26 43 33 31 0d 01  7b 05 e1 0d 01 7c 04 0d  |%=&C31..{....|..|
00001a00  01 7d 1f dd f2 47 61 3a  e7 4a 61 25 3e 30 c8 99  |.}...Ga:.Ja%>0..|
00001a10  31 33 2c 30 2c 4a 61 25  3a 4a 61 25 3d 30 0d 01  |13,0,Ja%:Ja%=0..|
00001a20  7f 1b e7 a4 75 60 28 33  2c f6 24 2b 22 20 22 2b  |....u`(3,.$+" "+|
00001a30  c3 28 9e 29 29 3d 31 3a  e1 0d 01 80 1b 48 5f 25  |.(.))=1:.....H_%|
00001a40  3d a3 3a 54 5f 25 3d 2d  31 3a 44 5f 25 3d 26 43  |=.:T_%=-1:D_%=&C|
00001a50  33 31 3a e1 0d 01 82 04  0d 01 83 4c dd f2 56 5f  |31:........L..V_|
00001a60  3a c8 99 33 34 2c 31 31  2c 31 2c 26 35 38 3a c8  |:..34,11,1,&58:.|
00001a70  99 33 34 2c 31 31 2c 30  2c 26 35 38 3a c8 99 32  |.34,11,0,&58:..2|
00001a80  36 32 37 33 32 2c 31 2c  61 60 25 2c 53 25 b8 2c  |62732,1,a`%,S%.,|
00001a90  2c 53 25 2c 46 25 3a e7  46 25 80 38 20 6e 60 25  |,S%,F%:.F%.8 n`%|
00001aa0  3d b9 3a e1 0d 01 86 19  e7 6e 60 25 e7 46 25 80  |=.:......n`%.F%.|
00001ab0  56 5f 25 3d 56 5f 25 20  54 5f 25 3d 37 0d 01 87  |V_%=V_% T_%=7...|
00001ac0  05 e1 0d 01 88 04 0d 01  89 7b dd f2 58 5f 3a ea  |.........{..X_:.|
00001ad0  4c 61 25 3a 4c 61 25 3d  7a 60 25 21 31 36 3a f2  |La%:La%=z`%!16:.|
00001ae0  67 5f 28 47 5f 25 2c 78  60 25 2c a4 69 5f 28 39  |g_(G_%,x`%,.i_(9|
00001af0  29 29 3a c8 99 33 39 33  37 39 32 2c 2c 30 2c 30  |)):..393792,,0,0|
00001b00  84 61 60 25 3c 3c 32 39  2c 2c 4c 61 25 b8 2c 2c  |.a`%<<29,,La%.,,|
00001b10  4c 61 25 2c 2c 52 25 3b  46 25 3a e7 52 25 3e 30  |La%,,R%;F%:.R%>0|
00001b20  f2 67 5f 28 47 5f 25 2c  78 60 25 2c a4 69 5f 28  |.g_(G_%,x`%,.i_(|
00001b30  31 39 29 29 3a 85 31 30  30 2c a4 69 5f 28 33 30  |19)):.100,.i_(30|
00001b40  29 0d 01 8f 05 e1 0d 01  90 04 0d 01 91 34 dd f2  |)............4..|
00001b50  45 61 3a 48 5f 25 3d a3  3a 54 5f 25 3d 26 46 46  |Ea:H_%=.:T_%=&FF|
00001b60  3a ef 37 3a f2 4b 5f 3a  f2 67 5f 28 47 5f 25 2c  |:.7:.K_:.g_(G_%,|
00001b70  78 60 25 2c a4 69 5f 28  31 36 29 29 3a e1 0d 01  |x`%,.i_(16)):...|
00001b80  96 04 0d 01 97 22 dd a4  65 60 28 61 24 2c 63 25  |....."..e`(a$,c%|
00001b90  29 3a 3d 61 24 2b c2 22  30 30 22 2b c3 28 63 25  |):=a$+."00"+.(c%|
00001ba0  29 2c 32 29 0d 01 99 04  0d 01 9a 39 dd a4 71 60  |),2).......9..q`|
00001bb0  28 77 25 2c 69 25 29 3a  ea 61 24 2c 4d 61 25 3a  |(w%,i%):.a$,Ma%:|
00001bc0  61 24 3d a4 62 60 28 77  25 2c 69 25 29 3a e7 61  |a$=.b`(w%,i%):.a|
00001bd0  24 3d 22 46 69 6c 6c 20  64 69 73 63 22 3a 3d 2d  |$="Fill disc":=-|
00001be0  31 0d 01 9e 0f 3d bb 28  61 24 29 2a 31 30 32 34  |1....=.(a$)*1024|
00001bf0  0d 01 9f 04 0d 01 a0 d6  dd f2 54 60 28 77 25 2c  |..........T`(w%,|
00001c00  4e 61 25 2c 4f 61 25 2c  50 61 25 29 3a ea 78 25  |Na%,Oa%,Pa%):.x%|
00001c10  2c 79 25 2c 51 61 25 2c  52 61 25 3a 21 77 60 25  |,y%,Qa%,Ra%:!w`%|
00001c20  3d 77 25 3a c8 99 32 36  32 33 34 37 2c 2c 77 60  |=w%:..262347,,w`|
00001c30  25 3a 78 25 3d 77 60 25  21 34 3a 79 25 3d 77 60  |%:x%=w`%!4:y%=w`|
00001c40  25 21 31 36 3a 21 77 60  25 3d 4e 61 25 3a c8 99  |%!16:!w`%=Na%:..|
00001c50  32 36 32 33 34 37 2c 2c  77 60 25 3a 51 61 25 3d  |262347,,w`%:Qa%=|
00001c60  77 60 25 21 31 32 2d 77  60 25 21 34 3a 52 61 25  |w`%!12-w`%!4:Ra%|
00001c70  3d 77 60 25 21 31 36 2d  77 60 25 21 38 3a 77 60  |=w`%!16-w`%!8:w`|
00001c80  25 21 34 3d 78 25 2b 4f  61 25 3a 77 60 25 21 31  |%!4=x%+Oa%:w`%!1|
00001c90  36 3d 79 25 2b 50 61 25  3a 77 60 25 21 31 32 3d  |6=y%+Pa%:w`%!12=|
00001ca0  77 60 25 21 34 2b 51 61  25 3a 77 60 25 21 38 3d  |w`%!4+Qa%:w`%!8=|
00001cb0  77 60 25 21 31 36 2d 52  61 25 3a c8 99 32 36 32  |w`%!16-Ra%:..262|
00001cc0  33 34 31 2c 2c 77 60 25  3a e1 0d 01 a8 04 0d 01  |341,,w`%:.......|
00001cd0  a9 66 dd f2 49 5f 3a 21  77 60 25 3d 47 5f 25 3a  |.f..I_:!w`%=G_%:|
00001ce0  c8 99 32 36 32 33 34 32  2c 2c 77 60 25 3a 21 77  |..262342,,w`%:!w|
00001cf0  60 25 3d 4c 5f 25 3a c8  99 32 36 32 33 34 32 2c  |`%=L_%:..262342,|
00001d00  2c 77 60 25 3a 21 77 60  25 3d 7a 5f 25 3a c8 99  |,w`%:!w`%=z_%:..|
00001d10  32 36 32 33 34 32 2c 2c  77 60 25 3a 21 77 60 25  |262342,,w`%:!w`%|
00001d20  3d 78 5f 25 3a c8 99 32  36 32 33 34 32 2c 2c 77  |=x_%:..262342,,w|
00001d30  60 25 3a e1 0d 01 af 04  0d 01 b0 39 dd f2 44 60  |`%:........9..D`|
00001d40  28 77 25 2c 69 25 29 3a  4c 25 3d a9 28 a4 62 60  |(w%,i%):L%=.(.b`|
00001d50  28 77 25 2c 69 25 29 29  3a c8 99 32 36 32 33 35  |(w%,i%)):..26235|
00001d60  34 2c 77 25 2c 69 25 2c  2c 2c 2d 31 2c 4c 25 3a  |4,w%,i%,,,-1,L%:|
00001d70  e1 0d 01 b4 04 0d 01 b5  62 dd f2 53 61 28 77 25  |........b..Sa(w%|
00001d80  2c 69 25 2c 76 25 29 3a  21 77 60 25 3d 77 25 3a  |,i%,v%):!w`%=w%:|
00001d90  77 60 25 21 34 3d 69 25  3a c8 99 32 36 32 33 35  |w`%!4=i%:..26235|
00001da0  30 2c 2c 77 60 25 3a 77  60 25 21 38 3d 30 3a 77  |0,,w`%:w`%!8=0:w|
00001db0  60 25 21 31 32 3d 30 3a  24 28 77 60 25 21 32 38  |`%!12=0:$(w`%!28|
00001dc0  29 3d c3 28 76 25 29 3a  c8 99 32 36 32 33 34 39  |)=.(v%):..262349|
00001dd0  2c 2c 77 60 25 3a e1 0d  01 b9 04 0d 01 ba 5f dd  |,,w`%:........_.|
00001de0  f2 67 5f 28 77 25 2c 69  25 2c 73 24 29 3a 21 77  |.g_(w%,i%,s$):!w|
00001df0  60 25 3d 77 25 3a 77 60  25 21 34 3d 69 25 3a c8  |`%=w%:w`%!4=i%:.|
00001e00  99 32 36 32 33 35 30 2c  2c 77 60 25 3a 77 60 25  |.262350,,w`%:w`%|
00001e10  21 38 3d 30 3a 77 60 25  21 31 32 3d 30 3a 24 28  |!8=0:w`%!12=0:$(|
00001e20  77 60 25 21 32 38 29 3d  73 24 3a c8 99 32 36 32  |w`%!28)=s$:..262|
00001e30  33 34 39 2c 2c 77 60 25  3a e1 0d 01 be 04 0d 01  |349,,w`%:.......|
00001e40  bf 57 dd f2 54 61 28 77  25 2c 69 25 29 3a 21 77  |.W..Ta(w%,i%):!w|
00001e50  60 25 3d 77 25 3a 77 60  25 21 34 3d 69 25 3a c8  |`%=w%:w`%!4=i%:.|
00001e60  99 32 36 32 33 35 30 2c  2c 77 60 25 3a 77 60 25  |.262350,,w`%:w`%|
00001e70  21 38 3d 31 3c 3c 32 32  3a 77 60 25 21 31 32 3d  |!8=1<<22:w`%!12=|
00001e80  33 3c 3c 32 31 3a c8 99  32 36 32 33 34 39 2c 2c  |3<<21:..262349,,|
00001e90  77 60 25 3a e1 0d 01 c3  04 0d 01 c4 53 dd f2 55  |w`%:........S..U|
00001ea0  61 28 77 25 2c 69 25 29  3a 21 77 60 25 3d 77 25  |a(w%,i%):!w`%=w%|
00001eb0  3a 77 60 25 21 34 3d 69  25 3a c8 99 32 36 32 33  |:w`%!4=i%:..2623|
00001ec0  35 30 2c 2c 77 60 25 3a  77 60 25 21 38 3d 30 3a  |50,,w`%:w`%!8=0:|
00001ed0  77 60 25 21 31 32 3d 31  3c 3c 32 32 3a c8 99 32  |w`%!12=1<<22:..2|
00001ee0  36 32 33 34 39 2c 2c 77  60 25 3a e1 0d 01 c8 04  |62349,,w`%:.....|
00001ef0  0d 01 c9 5f dd f2 56 61  28 77 25 2c 69 25 2c 73  |..._..Va(w%,i%,s|
00001f00  24 29 3a 21 77 60 25 3d  77 25 3a 77 60 25 21 34  |$):!w`%=w%:w`%!4|
00001f10  3d 69 25 3a c8 99 32 36  32 33 35 30 2c 2c 77 60  |=i%:..262350,,w`|
00001f20  25 3a 77 60 25 21 38 3d  30 3a 77 60 25 21 31 32  |%:w`%!8=0:w`%!12|
00001f30  3d 30 3a 24 28 77 60 25  21 32 38 29 3d 73 24 3a  |=0:$(w`%!28)=s$:|
00001f40  c8 99 32 36 32 33 34 39  2c 2c 77 60 25 3a e1 0d  |..262349,,w`%:..|
00001f50  01 cd 04 0d 01 ce 4f dd  f2 57 61 28 77 25 2c 69  |......O..Wa(w%,i|
00001f60  25 29 3a 21 77 60 25 3d  77 25 3a 77 60 25 21 34  |%):!w`%=w%:w`%!4|
00001f70  3d 69 25 3a c8 99 32 36  32 33 35 30 2c 2c 77 60  |=i%:..262350,,w`|
00001f80  25 3a c8 99 32 36 32 33  35 34 2c 77 25 2c 69 25  |%:..262354,w%,i%|
00001f90  2c 2c 2c 2d 31 2c a9 24  28 77 60 25 21 32 38 29  |,,,-1,.$(w`%!28)|
00001fa0  3a e1 0d 01 d2 04 0d 01  d3 46 dd a4 51 60 28 77  |:........F..Q`(w|
00001fb0  25 2c 69 25 29 3a 21 77  60 25 3d 77 25 3a 77 60  |%,i%):!w`%=w%:w`|
00001fc0  25 21 34 3d 69 25 3a c8  99 32 36 32 33 35 30 2c  |%!4=i%:..262350,|
00001fd0  2c 77 60 25 3a e7 28 77  60 25 21 32 34 80 31 3c  |,w`%:.(w`%!24.1<|
00001fe0  3c 32 31 29 3a 3d b9 3a  8b 3a 3d a3 0d 01 d7 04  |<21):=.:.:=.....|
00001ff0  0d 01 d8 53 dd f2 53 60  28 77 25 2c 69 25 29 3a  |...S..S`(w%,i%):|
00002000  21 77 60 25 3d 77 25 3a  77 60 25 21 34 3d 69 25  |!w`%=w%:w`%!4=i%|
00002010  3a c8 99 32 36 32 33 35  30 2c 2c 77 60 25 3a 77  |:..262350,,w`%:w|
00002020  60 25 21 38 3d 31 3c 3c  32 31 3a 77 60 25 21 31  |`%!8=1<<21:w`%!1|
00002030  32 3d 30 3a c8 99 32 36  32 33 34 39 2c 2c 77 60  |2=0:..262349,,w`|
00002040  25 3a e1 0d 01 dd 04 0d  01 de 5d dd a4 62 60 28  |%:........]..b`(|
00002050  77 25 2c 69 25 29 3a 21  77 60 25 3d 77 25 3a 77  |w%,i%):!w`%=w%:w|
00002060  60 25 21 34 3d 69 25 3a  c8 99 32 36 32 33 35 30  |`%!4=i%:..262350|
00002070  2c 2c 77 60 25 3a 49 25  3d 28 77 60 25 21 32 38  |,,w`%:I%=(w`%!28|
00002080  29 3a c8 95 3f 49 25 3e  33 31 3a 49 25 2b 3d 31  |):..?I%>31:I%+=1|
00002090  3a ce 3a 3f 49 25 3d 31  33 3a 3d 24 28 77 60 25  |:.:?I%=13:=$(w`%|
000020a0  21 32 38 29 0d 01 e2 04  0d 01 e3 5e dd a4 58 61  |!28).......^..Xa|
000020b0  28 77 25 2c 69 25 29 3a  21 77 60 25 3d 77 25 3a  |(w%,i%):!w`%=w%:|
000020c0  77 60 25 21 34 3d 69 25  3a c8 99 32 36 32 33 35  |w`%!4=i%:..26235|
000020d0  30 2c 2c 77 60 25 3a 49  25 3d 28 77 60 25 21 32  |0,,w`%:I%=(w`%!2|
000020e0  38 29 3a c8 95 3f 49 25  3e 33 31 3a 49 25 2b 3d  |8):..?I%>31:I%+=|
000020f0  31 3a ce 3a 3f 49 25 3d  31 33 3a 3d bb 24 28 77  |1:.:?I%=13:=.$(w|
00002100  60 25 21 32 38 29 0d 01  e7 04 0d 01 e8 4b dd a4  |`%!28).......K..|
00002110  59 61 28 61 24 29 3a 49  25 3d 45 5f 25 2b 26 31  |Ya(a$):I%=E_%+&1|
00002120  30 30 3a 24 49 25 3d 61  24 3a c8 95 3f 49 25 3e  |00:$I%=a$:..?I%>|
00002130  33 31 3a 49 25 2b 3d 31  3a ce 3a c8 95 3f 49 25  |31:I%+=1:.:..?I%|
00002140  3c 3e 34 36 3a 49 25 2d  3d 31 3a ce 3a 3d 24 28  |<>46:I%-=1:.:=$(|
00002150  49 25 2b 31 29 0d 01 ed  04 0d 01 ee c5 dd f2 79  |I%+1)..........y|
00002160  5f 28 77 25 2c 69 25 29  3a 21 45 5f 25 3d 77 25  |_(w%,i%):!E_%=w%|
00002170  3a c8 99 32 36 32 33 34  37 2c 2c 45 5f 25 3a 58  |:..262347,,E_%:X|
00002180  25 3d 45 5f 25 21 34 2d  45 5f 25 21 32 30 3a 59  |%=E_%!4-E_%!20:Y|
00002190  25 3d 45 5f 25 21 31 36  2d 45 5f 25 21 32 34 3a  |%=E_%!16-E_%!24:|
000021a0  45 5f 25 21 34 3d 69 25  3a c8 99 32 36 32 33 35  |E_%!4=i%:..26235|
000021b0  30 2c 2c 45 5f 25 3a 21  45 5f 25 3d 45 5f 25 21  |0,,E_%:!E_%=E_%!|
000021c0  38 2b 58 25 3a 45 5f 25  21 34 3d 45 5f 25 21 31  |8+X%:E_%!4=E_%!1|
000021d0  32 2b 59 25 3a 45 5f 25  21 38 3d 45 5f 25 21 31  |2+Y%:E_%!8=E_%!1|
000021e0  36 2b 58 25 3a 45 5f 25  21 31 32 3d 45 5f 25 21  |6+X%:E_%!12=E_%!|
000021f0  32 30 2b 59 25 3a c8 99  32 37 31 33 36 30 2c 25  |20+Y%:..271360,%|
00002200  31 31 30 30 30 31 30 31  2c 31 2c 45 5f 25 21 32  |11000101,1,E_%!2|
00002210  38 2c 45 5f 25 3a 5a 61  25 3d 77 25 3a e1 0d 01  |8,E_%:Za%=w%:...|
00002220  f7 04 0d 01 f8 1c dd f2  4f 5f 3a ea 6c 24 3a c8  |........O_:.l$:.|
00002230  99 32 37 31 33 36 31 3a  c8 8e 5a 61 25 ca 0d 01  |.271361:..Za%...|
00002240  fc 19 c9 7a 5f 25 3a 4c  61 25 3d 30 3a 6c 24 3d  |...z_%:La%=0:l$=|
00002250  22 53 70 6c 69 74 22 0d  01 fd 35 c9 78 5f 25 3a  |"Split"...5.x_%:|
00002260  21 77 60 25 3d 78 5f 25  3a 77 60 25 21 34 3d 31  |!w`%=x_%:w`%!4=1|
00002270  3a c8 99 32 36 32 33 35  30 2c 2c 77 60 25 3a 6c  |:..262350,,w`%:l|
00002280  24 3d 24 28 77 60 25 21  26 31 43 29 0d 01 ff dd  |$=$(w`%!&1C)....|
00002290  cb 3a c8 99 32 36 32 33  35 31 2c 2c 45 5f 25 3a  |.:..262351,,E_%:|
000022a0  45 5f 25 21 32 30 3d 45  5f 25 21 31 32 3a 45 5f  |E_%!20=E_%!12:E_|
000022b0  25 21 32 34 3d 45 5f 25  21 31 36 3a 45 5f 25 21  |%!24=E_%!16:E_%!|
000022c0  32 38 3d 21 45 5f 25 3a  45 5f 25 21 33 32 3d 45  |28=!E_%:E_%!32=E|
000022d0  5f 25 21 34 3a 45 5f 25  21 33 36 3d 30 3a 45 5f  |_%!4:E_%!36=0:E_|
000022e0  25 21 34 30 3d 26 46 46  44 3a 45 5f 25 21 31 36  |%!40=&FFD:E_%!16|
000022f0  3d 31 3a 24 28 45 5f 25  2b 34 34 29 3d 6c 24 3a  |=1:$(E_%+44)=l$:|
00002300  21 45 5f 25 3d 28 a9 28  6c 24 29 2b 34 39 29 80  |!E_%=(.(l$)+49).|
00002310  ac 33 3a 45 5f 25 21 31  32 3d 30 3a c8 99 32 36  |.3:E_%!12=0:..26|
00002320  32 33 37 35 2c 31 37 2c  45 5f 25 2c 45 5f 25 21  |2375,17,E_%,E_%!|
00002330  32 30 2c 45 5f 25 21 32  34 3a 21 77 60 25 3d 78  |20,E_%!24:!w`%=x|
00002340  5f 25 3a c8 99 32 36 32  33 34 32 2c 2c 77 60 25  |_%:..262342,,w`%|
00002350  3a 21 77 60 25 3d 7a 5f  25 3a c8 99 32 36 32 33  |:!w`%=z_%:..2623|
00002360  34 32 2c 2c 77 60 25 3a  e1 0d 02 08 04 0d 02 09  |42,,w`%:........|
00002370  1a dd f2 52 5f 3a ea 85  3a ee 85 ea f2 43 5f 28  |...R_:..:....C_(|
00002380  f6 24 2c a3 29 3a e1 0d  02 0b 61 49 25 3d 45 5f  |.$,.):....aI%=E_|
00002390  25 2b 34 34 3a c8 95 3f  49 25 3e 33 31 3a 49 25  |%+44:..?I%>31:I%|
000023a0  2b 3d 31 3a ce 3a 3f 49  25 3d 31 33 3a c8 95 3f  |+=1:.:?I%=13:..?|
000023b0  49 25 3c 3e 97 22 2e 22  3a 49 25 2d 3d 31 3a ce  |I%<>.".":I%-=1:.|
000023c0  3a 3f 49 25 3d 31 33 3a  69 60 24 3d 24 28 45 5f  |:?I%=13:i`$=$(E_|
000023d0  25 2b 34 34 29 3a 68 60  24 3d 24 28 49 25 2b 31  |%+44):h`$=$(I%+1|
000023e0  29 3a c8 8e 5a 61 25 ca  0d 02 0f 19 c9 7a 5f 25  |):..Za%......z_%|
000023f0  3a f2 67 5f 28 47 5f 25  2c 6c 5f 25 2c 69 60 24  |:.g_(G_%,l_%,i`$|
00002400  29 0d 02 10 5d c9 78 5f  25 3a 6c 60 24 3d 69 60  |)...].x_%:l`$=i`|
00002410  24 2b 22 2e 22 2b 68 60  24 3a f2 67 5f 28 4c 5f  |$+"."+h`$:.g_(L_|
00002420  25 2c 68 5f 25 2c a4 69  5f 28 33 31 29 2b 6c 60  |%,h_%,.i_(31)+l`|
00002430  24 29 3a c8 99 38 2c 31  31 2c 6c 60 24 2c 50 60  |$):..8,11,l`$,P`|
00002440  25 3a e7 59 5f 25 20 44  5f 25 3d 30 3a 4d 5f 25  |%:.Y_% D_%=0:M_%|
00002450  3d b9 3a 54 5f 25 3d 31  30 30 8b f2 47 60 0d 02  |=.:T_%=100..G`..|
00002460  14 07 cb 3a e1 0d 02 16  04 0d 02 17 dd dd f2 61  |...:...........a|
00002470  61 28 77 25 2c 62 61 25  2c 51 61 25 2c 52 61 25  |a(w%,ba%,Qa%,Ra%|
00002480  29 3a ea 63 61 25 2c 64  61 25 2c 65 61 25 2c 66  |):.ca%,da%,ea%,f|
00002490  61 25 2c 67 61 25 3a c8  99 35 33 2c 2d 31 2c 34  |a%,ga%:..53,-1,4|
000024a0  b8 2c 2c 63 61 25 3a c8  99 35 33 2c 2d 31 2c 31  |.,,ca%:..53,-1,1|
000024b0  31 b8 2c 2c 64 61 25 3a  64 61 25 3d 28 64 61 25  |1.,,da%:da%=(da%|
000024c0  3c 3c 63 61 25 29 2b 51  61 25 3a c8 99 35 33 2c  |<<ca%)+Qa%:..53,|
000024d0  2d 31 2c 35 b8 2c 2c 63  61 25 3a c8 99 35 33 2c  |-1,5.,,ca%:..53,|
000024e0  2d 31 2c 31 32 b8 2c 2c  65 61 25 3a 65 61 25 3d  |-1,12.,,ea%:ea%=|
000024f0  28 65 61 25 3c 3c 63 61  25 29 2b 52 61 25 3a 21  |(ea%<<ca%)+Ra%:!|
00002500  77 60 25 3d 77 25 3a c8  99 32 36 32 33 34 37 2c  |w`%=w%:..262347,|
00002510  2c 77 60 25 3a 66 61 25  3d 77 60 25 21 31 32 2d  |,w`%:fa%=w`%!12-|
00002520  77 60 25 21 34 3a 67 61  25 3d 77 60 25 21 31 36  |w`%!4:ga%=w`%!16|
00002530  2d 77 60 25 21 38 3a 64  61 25 3d 28 64 61 25 2d  |-w`%!8:da%=(da%-|
00002540  66 61 25 29 81 32 0d 02  23 60 65 61 25 3d 28 65  |fa%).2..#`ea%=(e|
00002550  61 25 2d 67 61 25 29 81  32 3a 77 60 25 21 34 3d  |a%-ga%).2:w`%!4=|
00002560  64 61 25 3a 77 60 25 21  31 32 3d 64 61 25 2b 66  |da%:w`%!12=da%+f|
00002570  61 25 3a 77 60 25 21 38  3d 65 61 25 3a 77 60 25  |a%:w`%!8=ea%:w`%|
00002580  21 31 36 3d 65 61 25 2b  67 61 25 3a 77 60 25 21  |!16=ea%+ga%:w`%!|
00002590  32 38 3d 62 61 25 3a c8  99 32 36 32 33 34 31 2c  |28=ba%:..262341,|
000025a0  2c 77 60 25 3a e1 0d 02  29 04 0d 02 2a 2e dd a4  |,w`%:...)...*...|
000025b0  4a 5f 28 68 61 25 2c 69  61 24 2c 6a 61 24 29 3a  |J_(ha%,ia$,ja$):|
000025c0  ea 72 25 2c 70 25 2c 78  25 2c 79 25 2c 61 24 3a  |.r%,p%,x%,y%,a$:|
000025d0  e7 68 61 25 3d 2d 31 8c  0d 02 2d 0a 70 25 3d 6a  |.ha%=-1...-.p%=j|
000025e0  60 25 0d 02 2e 33 cc 3a  70 25 3d 6b 61 25 3a c8  |`%...3.:p%=ka%:.|
000025f0  95 68 61 25 3e 30 3a f5  3a 70 25 2b 3d 31 3a fd  |.ha%>0:.:p%+=1:.|
00002600  3f 70 25 3c 33 32 3a 70  25 2b 3d 31 3a 68 61 25  |?p%<32:p%+=1:ha%|
00002610  2d 3d 31 3a ce 0d 02 34  e0 cd 3a 61 24 3d 22 22  |-=1:...4..:a$=""|
00002620  3a c8 95 3f 70 25 3c 3e  31 32 34 80 3f 70 25 3e  |:..?p%<>124.?p%>|
00002630  33 31 3a 61 24 2b 3d bd  28 3f 70 25 29 3a 70 25  |31:a$+=.(?p%):p%|
00002640  2b 3d 31 3a ce 3a f2 67  5f 28 6c 61 25 2c 31 2c  |+=1:.:.g_(la%,1,|
00002650  61 24 29 3a f2 67 5f 28  6c 61 25 2c 32 2c 24 28  |a$):.g_(la%,2,$(|
00002660  70 25 2b 31 29 29 3a f2  67 5f 28 6c 61 25 2c 33  |p%+1)):.g_(la%,3|
00002670  2c 69 61 24 29 3a f2 67  5f 28 6c 61 25 2c 34 2c  |,ia$):.g_(la%,4,|
00002680  6a 61 24 29 3a f2 61 61  28 6c 61 25 2c 2d 31 2c  |ja$):.aa(la%,-1,|
00002690  30 2c 30 29 3a ef 37 3a  21 77 60 25 3d 6c 61 25  |0,0):.7:!w`%=la%|
000026a0  3a c8 99 32 36 32 33 36  38 2c 2c 77 60 25 3a 3f  |:..262368,,w`%:?|
000026b0  77 60 25 3d 31 3a 77 60  25 21 31 3d 77 60 25 21  |w`%=1:w`%!1=w`%!|
000026c0  34 3a 77 60 25 21 33 3d  77 60 25 21 38 3a 77 60  |4:w`%!3=w`%!8:w`|
000026d0  25 21 35 3d 77 60 25 21  31 32 3a 77 60 25 21 37  |%!5=w`%!12:w`%!7|
000026e0  3d 77 60 25 21 31 36 2d  34 34 3a c8 99 37 2c 32  |=w`%!16-44:..7,2|
000026f0  31 2c 77 60 25 0d 02 43  3a c8 99 32 36 32 33 35  |1,w`%..C:..26235|
00002700  34 2c 6c 61 25 2c 2d 31  2c 30 2c 2d 32 30 30 2c  |4,la%,-1,0,-200,|
00002710  2d 31 2c 30 3a f5 3a c8  99 32 36 32 33 34 33 2c  |-1,0:.:..262343,|
00002720  30 2c 77 60 25 b8 72 25  3a e7 72 25 3d 38 8c 0d  |0,w`%.r%:.r%=8..|
00002730  02 47 27 e7 77 60 25 21  32 34 3d 31 33 20 77 60  |.G'.w`%!24=13 w`|
00002740  25 21 31 32 3d 6c 61 25  3a 77 60 25 21 31 36 3d  |%!12=la%:w`%!16=|
00002750  34 3a 72 25 3d 36 0d 02  48 27 e7 77 60 25 21 32  |4:r%=6..H'.w`%!2|
00002760  34 3d 32 37 20 77 60 25  21 31 32 3d 6c 61 25 3a  |4=27 w`%!12=la%:|
00002770  77 60 25 21 31 36 3d 30  3a 72 25 3d 36 0d 02 49  |w`%!16=0:r%=6..I|
00002780  9f cd 3a fd 72 25 3d 36  80 77 60 25 21 31 32 3d  |..:.r%=6.w`%!12=|
00002790  6c 61 25 3a 21 77 60 25  3d 6c 61 25 3a c8 99 32  |la%:!w`%=la%:..2|
000027a0  36 32 33 34 32 2c 2c 77  60 25 3a c8 99 35 33 2c  |62342,,w`%:..53,|
000027b0  2d 31 2c 34 b8 2c 2c 72  25 3a c8 99 35 33 2c 2d  |-1,4.,,r%:..53,-|
000027c0  31 2c 31 31 b8 2c 2c 78  25 3a 78 25 3d 78 25 3c  |1,11.,,x%:x%=x%<|
000027d0  3c 72 25 3a c8 99 35 33  2c 2d 31 2c 35 b8 2c 2c  |<r%:..53,-1,5.,,|
000027e0  72 25 3a c8 99 35 33 2c  2d 31 2c 31 32 b8 2c 2c  |r%:..53,-1,12.,,|
000027f0  79 25 3a 79 25 3d 79 25  3c 3c 72 25 3a c8 97 c8  |y%:y%=y%<<r%:...|
00002800  93 30 2c 30 2c 78 25 2c  79 25 3a e7 77 60 25 21  |.0,0,x%,y%:.w`%!|
00002810  31 36 3d 34 3a 3d b9 3a  8b 3a 3d a3 0d 02 54 04  |16=4:=.:.:=...T.|
00002820  0d 02 55 35 dd f2 6d 61  28 6d 25 2c 69 25 29 3a  |..U5..ma(m%,i%):|
00002830  21 28 6d 25 2b 32 38 2b  28 69 25 2a 32 34 29 29  |!(m%+28+(i%*24))|
00002840  3d 21 28 6d 25 2b 32 38  2b 28 69 25 2a 32 34 29  |=!(m%+28+(i%*24)|
00002850  29 82 31 3a e1 0d 02 58  04 0d 02 59 3c dd f2 66  |).1:...X...Y<..f|
00002860  5f 28 77 25 29 3a 21 45  5f 25 3d 77 25 3a c8 99  |_(w%):!E_%=w%:..|
00002870  32 36 32 33 34 37 2c 2c  45 5f 25 3a 45 5f 25 21  |262347,,E_%:E_%!|
00002880  32 38 3d 2d 31 3a c8 99  32 36 32 33 34 31 2c 2c  |28=-1:..262341,,|
00002890  45 5f 25 3a e1 0d 02 5d  04 0d 02 5e 45 dd a4 5a  |E_%:...]...^E..Z|
000028a0  60 28 4d 61 25 29 3a ea  65 25 3a c8 99 32 36 32  |`(Ma%):.e%:..262|
000028b0  33 38 30 2c 6e 61 25 2b  4d 61 25 2c 2d 31 b8 65  |380,na%+Ma%,-1.e|
000028c0  25 3a e7 65 25 3c 28 6e  61 25 2b 4d 61 25 29 3a  |%:.e%<(na%+Ma%):|
000028d0  3d a3 3a 8b 3a 3d 65 25  2b 26 38 30 30 30 0d 02  |=.:.:=e%+&8000..|
000028e0  62 04 0d 02 63 d4 dd f2  6f 61 3a ea 70 61 2c 71  |b...c...oa:.pa,q|
000028f0  61 2c 72 61 2c 73 61 2c  6d 25 3a 71 61 3d 31 3a  |a,ra,sa,m%:qa=1:|
00002900  70 61 3d 32 3a 73 61 3d  34 3a 72 61 3d 26 38 30  |pa=2:sa=4:ra=&80|
00002910  3a de 74 61 25 26 34 30  30 3a 6d 25 3d 74 61 25  |:.ta%&400:m%=ta%|
00002920  3a 65 5f 25 3d a4 75 61  28 6d 25 2c 22 43 68 6f  |:e_%=.ua(m%,"Cho|
00002930  70 70 65 72 22 2c 31 39  30 29 3a 6d 25 3d a4 76  |pper",190):m%=.v|
00002940  61 28 22 49 6e 66 6f 22  2c 30 2c 77 61 25 29 3a  |a("Info",0,wa%):|
00002950  6d 25 3d a4 76 61 28 22  43 68 6f 70 22 2c 30 2c  |m%=.va("Chop",0,|
00002960  30 29 3a 6d 25 3d a4 76  61 28 22 4a 6f 69 6e 22  |0):m%=.va("Join"|
00002970  2c 30 2c 30 29 3a 6d 25  3d a4 76 61 28 22 52 65  |,0,0):m%=.va("Re|
00002980  73 65 74 22 2c 30 2c 30  29 3a 6d 25 3d a4 76 61  |set",0,0):m%=.va|
00002990  28 22 53 61 76 65 20 73  65 74 75 70 22 2c 30 2c  |("Save setup",0,|
000029a0  30 29 3a 6d 25 3d a4 76  61 28 22 51 75 69 74 22  |0):m%=.va("Quit"|
000029b0  2c 72 61 2c 30 29 0d 02  6f 83 6f 5f 25 3d a4 75  |,ra,0)..o.o_%=.u|
000029c0  61 28 6d 25 2c 22 46 69  72 73 74 22 2c 31 38 30  |a(m%,"First",180|
000029d0  29 3a 6d 25 3d a4 76 61  28 22 46 69 6c 6c 20 64  |):m%=.va("Fill d|
000029e0  69 73 63 22 2c 30 2c 30  29 3a 6d 25 3d a4 76 61  |isc",0,0):m%=.va|
000029f0  28 22 38 30 30 4b 22 2c  30 2c 30 29 3a 6d 25 3d  |("800K",0,0):m%=|
00002a00  a4 76 61 28 22 31 2e 36  4d 62 22 2c 30 2c 30 29  |.va("1.6Mb",0,0)|
00002a10  3a 6d 25 3d a4 76 61 28  22 37 32 30 4b 22 2c 30  |:m%=.va("720K",0|
00002a20  2c 30 29 3a 6d 25 3d a4  76 61 28 22 31 2e 34 34  |,0):m%=.va("1.44|
00002a30  4d 62 22 2c 72 61 2c 30  29 0d 02 76 82 71 5f 25  |Mb",ra,0)..v.q_%|
00002a40  3d a4 75 61 28 6d 25 2c  22 52 65 73 74 22 2c 31  |=.ua(m%,"Rest",1|
00002a50  38 30 29 3a 6d 25 3d a4  76 61 28 22 46 69 6c 6c  |80):m%=.va("Fill|
00002a60  20 64 69 73 63 22 2c 30  2c 30 29 3a 6d 25 3d a4  | disc",0,0):m%=.|
00002a70  76 61 28 22 38 30 30 4b  22 2c 30 2c 30 29 3a 6d  |va("800K",0,0):m|
00002a80  25 3d a4 76 61 28 22 31  2e 36 4d 62 22 2c 30 2c  |%=.va("1.6Mb",0,|
00002a90  30 29 3a 6d 25 3d a4 76  61 28 22 37 32 30 4b 22  |0):m%=.va("720K"|
00002aa0  2c 30 2c 30 29 3a 6d 25  3d a4 76 61 28 22 31 2e  |,0,0):m%=.va("1.|
00002ab0  34 34 4d 62 22 2c 72 61  2c 30 29 0d 02 7d 75 c8  |44Mb",ra,0)..}u.|
00002ac0  99 32 36 32 37 32 32 b8  2c 78 61 25 3a 78 61 25  |.262722.,xa%:xa%|
00002ad0  2d 3d 31 3a 6b 5f 25 3d  a4 75 61 28 6d 25 2c 22  |-=1:k_%=.ua(m%,"|
00002ae0  44 65 73 74 2e 22 2c 31  36 30 29 3a 6d 25 3d a4  |Dest.",160):m%=.|
00002af0  76 61 28 22 4f 74 68 65  72 22 2c 30 2c 7a 5f 25  |va("Other",0,z_%|
00002b00  29 3a e3 49 25 3d 30 b8  78 61 25 3a 6d 25 3d a4  |):.I%=0.xa%:m%=.|
00002b10  76 61 28 22 41 44 46 53  3a 22 2b c3 49 25 2c 30  |va("ADFS:"+.I%,0|
00002b20  2c 30 29 3a ed 3a 6d 25  21 2d 32 34 3d 26 38 30  |,0):.:m%!-24=&80|
00002b30  0d 02 85 4b 6d 5f 25 3d  a4 75 61 28 6d 25 2c 22  |...Km_%=.ua(m%,"|
00002b40  46 72 6f 6d 22 2c 31 36  30 29 3a e3 49 25 3d 30  |From",160):.I%=0|
00002b50  b8 78 61 25 3a 6d 25 3d  a4 76 61 28 22 41 44 46  |.xa%:m%=.va("ADF|
00002b60  53 3a 22 2b c3 49 25 2c  30 2c 30 29 3a ed 3a 6d  |S:"+.I%,0,0):.:m|
00002b70  25 21 2d 32 34 3d 26 38  30 3a e1 0d 02 8c 04 0d  |%!-24=&80:......|
00002b80  02 8d 51 dd a4 75 61 28  61 25 2c 79 61 24 2c 7a  |..Q..ua(a%,ya$,z|
00002b90  61 25 29 3a 24 61 25 3d  79 61 24 3a 61 25 21 31  |a%):$a%=ya$:a%!1|
00002ba0  32 3d 26 37 30 32 30 37  3a 61 25 21 31 36 3d 7a  |2=&70207:a%!16=z|
00002bb0  61 25 3a 61 25 21 32 30  3d 34 30 3a 61 25 21 32  |a%:a%!20=40:a%!2|
00002bc0  34 3d 30 3a 6d 25 3d 61  25 2b 32 38 3a 3d 61 25  |4=0:m%=a%+28:=a%|
00002bd0  0d 02 91 04 0d 02 92 48  dd a4 76 61 28 5f 61 24  |.......H..va(_a$|
00002be0  2c 60 61 25 2c 41 62 25  29 3a 21 6d 25 3d 60 61  |,`a%,Ab%):!m%=`a|
00002bf0  25 3a 6d 25 21 34 3d 41  62 25 3a 6d 25 21 38 3d  |%:m%!4=Ab%:m%!8=|
00002c00  26 37 30 30 30 30 30 31  3a 24 28 6d 25 2b 31 32  |&7000001:$(m%+12|
00002c10  29 3d 5f 61 24 3a 3d 6d  25 2b 32 34 0d 02 95 04  |)=_a$:=m%+24....|
00002c20  0d 02 96 62 dd a4 42 62  28 43 62 24 2c 44 62 25  |...b..Bb(Cb$,Db%|
00002c30  2c 43 62 25 29 3a 21 6d  25 3d 44 62 25 3a 6d 25  |,Cb%):!m%=Db%:m%|
00002c40  21 34 3d 30 3a 6d 25 21  38 3d 26 37 30 30 30 31  |!4=0:m%!8=&70001|
00002c50  30 31 3a 6d 25 21 31 32  3d 43 62 25 3a 6d 25 21  |01:m%!12=Cb%:m%!|
00002c60  31 36 3d 2d 31 3a 6d 25  21 32 30 3d 31 32 37 3a  |16=-1:m%!20=127:|
00002c70  e7 43 62 24 3c 3e 22 3f  22 20 24 43 62 25 3d 43  |.Cb$<>"?" $Cb%=C|
00002c80  62 24 0d 02 99 0a 3d 6d  25 2b 32 34 0d 02 9a 04  |b$....=m%+24....|
00002c90  0d 02 9b 39 dd f2 45 62  28 6d 25 2c 69 25 29 3a  |...9..Eb(m%,i%):|
00002ca0  21 28 6d 25 2b 33 36 2b  28 32 34 2a 69 25 29 29  |!(m%+36+(24*i%))|
00002cb0  3d 21 28 6d 25 2b 33 36  2b 28 32 34 2a 69 25 29  |=!(m%+36+(24*i%)|
00002cc0  29 84 31 3c 3c 32 32 3a  e1 0d 02 9e 04 0d 02 9f  |).1<<22:........|
00002cd0  3d dd f2 46 62 20 28 6d  25 2c 69 25 29 3a 21 28  |=..Fb (m%,i%):!(|
00002ce0  6d 25 2b 33 36 2b 28 32  34 2a 69 25 29 29 3d 21  |m%+36+(24*i%))=!|
00002cf0  28 6d 25 2b 33 36 2b 28  32 34 2a 69 25 29 29 80  |(m%+36+(24*i%)).|
00002d00  ac 28 31 3c 3c 32 32 29  3a e1 0d 02 a2 04 0d 02  |.(1<<22):.......|
00002d10  a3 6f dd a4 47 62 28 48  62 24 2c 62 61 25 29 3a  |.o..Gb(Hb$,ba%):|
00002d20  21 45 5f 25 3d 62 61 25  3a 45 5f 25 21 34 3d 2d  |!E_%=ba%:E_%!4=-|
00002d30  38 3a 45 5f 25 21 38 3d  30 3a 45 5f 25 21 31 32  |8:E_%!8=0:E_%!12|
00002d40  3d 35 36 3a 45 5f 25 21  31 36 3d 39 36 3a 45 5f  |=56:E_%!16=96:E_|
00002d50  25 21 32 30 3d 26 32 30  30 32 3a 24 28 45 5f 25  |%!20=&2002:$(E_%|
00002d60  2b 32 34 29 3d 48 62 24  3a c8 99 32 36 32 33 33  |+24)=Hb$:..26233|
00002d70  38 2c 2c 45 5f 25 b8 49  25 3a 3d 49 25 0d 02 a8  |8,,E_%.I%:=I%...|
00002d80  04 0d 02 a9 7b dd f2 43  5f 28 78 24 2c 66 25 29  |....{..C_(x$,f%)|
00002d90  3a 44 5f 25 3d 26 43 33  31 3a c8 99 32 36 33 38  |:D_%=&C31:..2638|
00002da0  37 34 3a 77 60 25 21 26  38 30 3d 30 3a 24 28 77  |74:w`%!&80=0:$(w|
00002db0  60 25 2b 26 38 34 29 3d  22 45 72 72 6f 72 20 22  |`%+&84)="Error "|
00002dc0  2b c3 28 9e 29 2b 22 3a  20 22 2b 78 24 2b bd 28  |+.(.)+": "+x$+.(|
00002dd0  30 29 3a c8 99 32 36 32  33 36 37 2c 77 60 25 2b  |0):..262367,w`%+|
00002de0  26 38 30 2c 31 37 2c 49  62 25 3a e7 4a 61 25 3e  |&80,17,Ib%:.Ja%>|
00002df0  30 d9 23 4a 61 25 3a 4a  61 25 3d 30 0d 02 ae 15  |0.#Ja%:Ja%=0....|
00002e00  e7 6d 60 25 3e 30 d9 23  6d 60 25 3a 6d 60 25 3d  |.m`%>0.#m`%:m`%=|
00002e10  30 0d 02 af 0e f2 57 60  3a e7 66 25 f2 51 5f 0d  |0.....W`:.f%.Q_.|
00002e20  02 b1 05 e1 0d 02 b2 04  0d 02 b3 0c dd f2 51 5f  |..............Q_|
00002e30  3a ee 85 87 0d 02 b5 0f  e7 6d 60 25 3e 30 d9 23  |:........m`%>0.#|
00002e40  6d 60 25 0d 02 b6 0f e7  4a 61 25 3e 30 d9 23 4a  |m`%.....Ja%>0.#J|
00002e50  61 25 0d 02 b7 1c c8 99  32 36 32 33 36 35 2c 4a  |a%......262365,J|
00002e60  62 25 2c 26 34 42 35 33  34 31 35 34 3a e0 0d 02  |b%,&4B534154:...|
00002e70  b9 04 0d 02 ba 51 dd a4  75 60 28 4b 62 25 2c 61  |.....Q..u`(Kb%,a|
00002e80  24 29 3a 77 60 25 21 26  38 30 3d 30 3a 24 28 77  |$):w`%!&80=0:$(w|
00002e90  60 25 2b 26 38 34 29 3d  61 24 2b bd 28 30 29 3a  |`%+&84)=a$+.(0):|
00002ea0  c8 99 32 36 32 33 36 37  2c 77 60 25 2b 26 38 30  |..262367,w`%+&80|
00002eb0  2c 31 36 84 4b 62 25 2c  49 62 25 b8 2c 49 25 3a  |,16.Kb%,Ib%.,I%:|
00002ec0  3d 49 25 0d 02 be 04 0d  02 bf 3b dd a4 4c 62 3a  |=I%.......;..Lb:|
00002ed0  c8 99 31 36 b8 49 25 3a  e3 4a 25 3d 30 b8 31 3a  |..16.I%:.J%=0.1:|
00002ee0  f5 3a 49 25 2b 3d 31 3a  fd 3f 49 25 3d 33 34 84  |.:I%+=1:.?I%=34.|
00002ef0  3f 49 25 3c 33 32 3a e7  3f 49 25 3c 33 32 3a 3d  |?I%<32:.?I%<32:=|
00002f00  22 22 0d 02 c3 22 ed 3a  f5 3a 49 25 2b 3d 31 3a  |""...".:.:I%+=1:|
00002f10  fd 3f 49 25 3c 3e 33 32  3a e7 3f 49 25 3c 33 32  |.?I%<>32:.?I%<32|
00002f20  3a 3d 22 22 0d 02 c5 25  4a 25 3d 49 25 3a f5 3a  |:=""...%J%=I%:.:|
00002f30  4a 25 2b 3d 31 3a fd 3f  4a 25 3c 33 32 3a 3f 4a  |J%+=1:.?J%<32:?J|
00002f40  25 3d 31 33 3a 3d 24 49  25 0d 02 c7 04 0d 02 c8  |%=13:=$I%.......|
00002f50  2a dd a4 4d 62 3a de 4e  62 25 26 34 30 30 3a e3  |*..Mb:.Nb%&400:.|
00002f60  4f 62 3d 30 b8 32 88 32  3a 50 25 3d 4e 62 25 3a  |Ob=0.2.2:P%=Nb%:|
00002f70  5b 4f 50 54 20 4f 62 0d  02 cd 10 2e 63 60 20 65  |[OPT Ob.....c` e|
00002f80  71 75 64 20 63 60 25 0d  02 cf 69 2e 50 62 20 65  |qud c`%...i.Pb e|
00002f90  71 75 64 20 77 60 25 3a  2e 63 60 20 65 71 75 64  |qud w`%:.c` equd|
00002fa0  20 63 60 25 3a 2e 51 62  20 65 71 75 64 20 52 62  | c`%:.Qb equd Rb|
00002fb0  25 3a 2e 53 62 20 65 71  75 64 20 54 62 25 3a 2e  |%:.Sb equd Tb%:.|
00002fc0  55 62 20 65 71 75 64 20  77 61 25 3a 2e 56 62 20  |Ub equd wa%:.Vb |
00002fd0  65 71 75 64 20 56 62 25  3a 2e 57 62 20 65 71 75  |equd Vb%:.Wb equ|
00002fe0  64 20 49 62 25 3a 2e 58  62 20 65 71 75 64 20 31  |d Ib%:.Xb equd 1|
00002ff0  0d 02 d8 04 0d 02 d9 df  2e 59 62 20 6c 64 72 20  |.........Yb ldr |
00003000  72 31 2c 58 62 3a 63 6d  70 20 72 31 2c 23 30 3a  |r1,Xb:cmp r1,#0:|
00003010  6d 6f 76 65 71 20 70 63  2c 72 31 34 3a 61 64 72  |moveq pc,r14:adr|
00003020  20 72 31 2c 5a 62 3a 6d  6f 76 20 72 30 2c 23 31  | r1,Zb:mov r0,#1|
00003030  33 3a 73 77 69 20 38 3a  63 6d 70 20 72 30 2c 23  |3:swi 8:cmp r0,#|
00003040  31 3a 62 6e 65 20 61 62  3a 73 74 6d 66 64 20 72  |1:bne ab:stmfd r|
00003050  31 33 21 2c 7b 72 31 34  7d 3a 63 6d 70 20 72 34  |13!,{r14}:cmp r4|
00003060  2c 23 26 32 30 3a 62 6e  65 20 62 62 3a 6d 6f 76  |,#&20:bne bb:mov|
00003070  20 72 30 2c 23 32 35 35  3a 6c 64 72 20 72 32 2c  | r0,#255:ldr r2,|
00003080  63 60 3a 6d 6f 76 20 72  33 2c 23 30 3a 73 77 69  |c`:mov r3,#0:swi|
00003090  20 38 3a 6c 64 72 20 72  36 2c 56 62 3a 6c 64 72  | 8:ldr r6,Vb:ldr|
000030a0  20 72 34 2c 63 60 3a 6c  64 72 20 72 33 2c 5b 72  | r4,c`:ldr r3,[r|
000030b0  34 5d 2c 23 34 3a 6d 6f  76 20 72 32 2c 23 30 3a  |4],#4:mov r2,#0:|
000030c0  2e 63 62 3a 6c 64 72 62  20 72 30 2c 5b 72 34 2c  |.cb:ldrb r0,[r4,|
000030d0  72 32 5d 0d 02 ef 83 6d  76 6e 20 72 30 2c 72 30  |r2]....mvn r0,r0|
000030e0  3a 61 6e 64 20 72 30 2c  72 30 2c 23 26 46 46 3a  |:and r0,r0,#&FF:|
000030f0  61 64 64 20 72 30 2c 72  30 2c 72 36 3a 73 75 62  |add r0,r0,r6:sub|
00003100  20 72 33 2c 72 33 2c 72  30 3a 73 75 62 20 72 30  | r3,r3,r0:sub r0|
00003110  2c 72 30 2c 72 32 3a 73  74 72 62 20 72 30 2c 5b  |,r0,r2:strb r0,[|
00003120  72 34 2c 72 32 5d 3a 61  64 64 20 72 32 2c 72 32  |r4,r2]:add r2,r2|
00003130  2c 23 31 3a 63 6d 70 20  72 32 2c 23 32 30 3a 62  |,#1:cmp r2,#20:b|
00003140  6c 74 20 63 62 3a 63 6d  70 20 72 33 2c 23 30 3a  |lt cb:cmp r3,#0:|
00003150  62 65 71 20 64 62 0d 02  fa e0 2e 62 62 3a 6c 64  |beq db.....bb:ld|
00003160  72 20 72 30 2c 57 62 3a  73 77 69 26 34 30 30 45  |r r0,Wb:swi&400E|
00003170  66 3a 61 64 72 20 72 31  2c 65 62 3a 2e 66 62 20  |f:adr r1,eb:.fb |
00003180  6c 64 72 62 20 72 30 2c  5b 72 31 5d 2c 23 31 3a  |ldrb r0,[r1],#1:|
00003190  63 6d 70 20 72 30 2c 23  30 3a 73 77 69 6e 65 20  |cmp r0,#0:swine |
000031a0  30 3a 62 6e 65 20 66 62  3a 61 6c 69 67 6e 3a 62  |0:bne fb:align:b|
000031b0  6c 20 67 62 3a 6d 6f 76  20 72 30 2c 23 31 3a 6c  |l gb:mov r0,#1:l|
000031c0  64 6d 66 64 20 72 31 33  21 2c 7b 70 63 7d 3a 2e  |dmfd r13!,{pc}:.|
000031d0  61 62 3a 73 74 6d 66 64  20 72 31 33 21 2c 7b 72  |ab:stmfd r13!,{r|
000031e0  31 34 7d 3a 73 77 69 20  32 35 36 2b 37 3a 6c 64  |14}:swi 256+7:ld|
000031f0  72 20 72 30 2c 53 62 3a  6c 64 72 20 72 31 2c 63  |r r0,Sb:ldr r1,c|
00003200  60 3a 61 64 64 20 72 31  2c 72 31 2c 23 34 38 3a  |`:add r1,r1,#48:|
00003210  73 74 72 20 72 30 2c 5b  72 31 5d 3a 73 77 69 26  |str r0,[r1]:swi&|
00003220  34 30 30 43 62 3a 62 6c  20 68 62 3a 6d 6f 76 20  |400Cb:bl hb:mov |
00003230  72 30 2c 23 31 32 0d 03  11 e2 6c 64 72 20 72 32  |r0,#12....ldr r2|
00003240  2c 5b 72 31 2c 23 34 5d  3a 61 64 64 20 72 32 2c  |,[r1,#4]:add r2,|
00003250  72 32 2c 72 30 3a 73 74  72 20 72 32 2c 5b 72 31  |r2,r0:str r2,[r1|
00003260  2c 23 34 5d 3a 6c 64 72  20 72 32 2c 5b 72 31 2c  |,#4]:ldr r2,[r1,|
00003270  23 31 32 5d 3a 61 64 64  20 72 32 2c 72 32 2c 72  |#12]:add r2,r2,r|
00003280  30 3a 73 74 72 20 72 32  2c 5b 72 31 2c 23 31 32  |0:str r2,[r1,#12|
00003290  5d 3a 6d 6f 76 20 72 30  2c 23 31 32 3a 6c 64 72  |]:mov r0,#12:ldr|
000032a0  20 72 32 2c 5b 72 31 2c  23 38 5d 3a 73 75 62 20  | r2,[r1,#8]:sub |
000032b0  72 32 2c 72 32 2c 72 30  3a 73 74 72 20 72 32 2c  |r2,r2,r0:str r2,|
000032c0  5b 72 31 2c 23 38 5d 3a  6c 64 72 20 72 32 2c 5b  |[r1,#8]:ldr r2,[|
000032d0  72 31 2c 23 31 36 5d 3a  73 75 62 20 72 32 2c 72  |r1,#16]:sub r2,r|
000032e0  32 2c 72 30 3a 73 74 72  20 72 32 2c 5b 72 31 2c  |2,r0:str r2,[r1,|
000032f0  23 31 36 5d 3a 6d 76 6e  20 72 30 2c 23 30 3a 73  |#16]:mvn r0,#0:s|
00003300  74 72 20 72 30 2c 5b 72  31 2c 23 32 38 5d 3a 73  |tr r0,[r1,#28]:s|
00003310  77 69 26 34 30 30 63 35  0d 03 21 65 6c 64 72 20  |wi&400c5..!eldr |
00003320  72 30 2c 51 62 3a 6c 64  72 20 72 31 2c 63 60 3a  |r0,Qb:ldr r1,c`:|
00003330  61 64 64 20 72 31 2c 72  31 2c 23 34 38 3a 73 74  |add r1,r1,#48:st|
00003340  72 20 72 30 2c 5b 72 31  5d 3a 73 77 69 26 34 30  |r r0,[r1]:swi&40|
00003350  30 43 62 3a 62 6c 20 68  62 3a 6d 76 6e 20 72 30  |0Cb:bl hb:mvn r0|
00003360  2c 23 30 3a 73 74 72 20  72 30 2c 5b 72 31 2c 23  |,#0:str r0,[r1,#|
00003370  32 38 5d 3a 73 77 69 26  34 30 30 63 35 0d 03 2a  |28]:swi&400c5..*|
00003380  c0 2e 69 62 3a 6d 6f 76  20 72 30 2c 23 30 3a 6c  |..ib:mov r0,#0:l|
00003390  64 72 20 72 31 2c 63 60  3a 61 64 64 20 72 31 2c  |dr r1,c`:add r1,|
000033a0  72 31 2c 23 34 38 3a 73  77 69 26 34 30 30 63 37  |r1,#48:swi&400c7|
000033b0  3a 73 75 62 73 20 72 34  2c 72 34 2c 23 31 3a 62  |:subs r4,r4,#1:b|
000033c0  70 6c 20 69 62 3a 62 6c  20 67 62 3a 6c 64 72 20  |pl ib:bl gb:ldr |
000033d0  72 31 2c 63 60 3a 61 64  64 20 72 31 2c 72 31 2c  |r1,c`:add r1,r1,|
000033e0  23 34 38 3a 6c 64 72 20  72 30 2c 53 62 3a 73 74  |#48:ldr r0,Sb:st|
000033f0  72 20 72 30 2c 5b 72 31  5d 3a 73 77 69 26 34 30  |r r0,[r1]:swi&40|
00003400  30 63 36 3a 6c 64 72 20  72 30 2c 51 62 3a 73 74  |0c6:ldr r0,Qb:st|
00003410  72 20 72 30 2c 5b 72 31  5d 3a 73 77 69 26 34 30  |r r0,[r1]:swi&40|
00003420  30 63 36 3a 6d 6f 76 20  72 30 2c 23 30 3a 6c 64  |0c6:mov r0,#0:ld|
00003430  6d 66 64 20 72 31 33 21  2c 7b 70 63 7d 0d 03 3d  |mfd r13!,{pc}..=|
00003440  04 0d 03 3e e0 2e 68 62  20 6d 6f 76 20 72 34 2c  |...>..hb mov r4,|
00003450  23 31 30 3a 6d 76 6e 20  72 30 2c 23 30 3a 6d 6f  |#10:mvn r0,#0:mo|
00003460  76 20 72 31 2c 23 34 3a  73 77 69 26 33 35 3a 6d  |v r1,#4:swi&35:m|
00003470  6f 76 20 72 31 30 2c 72  32 3a 6d 76 6e 20 72 30  |ov r10,r2:mvn r0|
00003480  2c 23 30 3a 6d 6f 76 20  72 31 2c 23 31 31 3a 73  |,#0:mov r1,#11:s|
00003490  77 69 26 33 35 3a 6d 6f  76 20 72 38 2c 72 32 2c  |wi&35:mov r8,r2,|
000034a0  6c 73 6c 20 72 31 30 3a  6d 76 6e 20 72 30 2c 23  |lsl r10:mvn r0,#|
000034b0  30 3a 6d 6f 76 20 72 31  2c 23 35 3a 73 77 69 26  |0:mov r1,#5:swi&|
000034c0  33 35 3a 6d 6f 76 20 72  39 2c 72 32 3a 6d 76 6e  |35:mov r9,r2:mvn|
000034d0  20 72 30 2c 23 30 3a 6d  6f 76 20 72 31 2c 23 31  | r0,#0:mov r1,#1|
000034e0  32 3a 73 77 69 26 33 35  3a 6d 6f 76 20 72 37 2c  |2:swi&35:mov r7,|
000034f0  72 32 2c 6c 73 6c 20 72  39 3a 6c 64 72 20 72 31  |r2,lsl r9:ldr r1|
00003500  2c 63 60 3a 61 64 64 20  72 31 2c 72 31 2c 23 34  |,c`:add r1,r1,#4|
00003510  38 3a 6c 64 72 20 72 32  2c 5b 72 31 2c 23 31 32  |8:ldr r2,[r1,#12|
00003520  5d 0d 03 53 dd 6c 64 72  20 72 33 2c 5b 72 31 2c  |]..S.ldr r3,[r1,|
00003530  23 34 5d 3a 73 75 62 20  72 33 2c 72 32 2c 72 33  |#4]:sub r3,r2,r3|
00003540  3a 73 75 62 20 72 32 2c  72 38 2c 72 33 3a 6d 6f  |:sub r2,r8,r3:mo|
00003550  76 20 72 32 2c 72 32 2c  6c 73 72 23 31 3a 73 74  |v r2,r2,lsr#1:st|
00003560  72 20 72 32 2c 5b 72 31  2c 23 34 5d 3a 61 64 64  |r r2,[r1,#4]:add|
00003570  20 72 32 2c 72 32 2c 72  33 3a 73 74 72 20 72 32  | r2,r2,r3:str r2|
00003580  2c 5b 72 31 2c 23 31 32  5d 3a 6c 64 72 20 72 32  |,[r1,#12]:ldr r2|
00003590  2c 5b 72 31 2c 23 31 36  5d 3a 6c 64 72 20 72 33  |,[r1,#16]:ldr r3|
000035a0  2c 5b 72 31 2c 23 38 5d  3a 73 75 62 20 72 33 2c  |,[r1,#8]:sub r3,|
000035b0  72 32 2c 72 33 3a 73 75  62 20 72 32 2c 72 37 2c  |r2,r3:sub r2,r7,|
000035c0  72 33 3a 6d 6f 76 20 72  32 2c 72 32 2c 6c 73 72  |r3:mov r2,r2,lsr|
000035d0  23 31 3a 73 74 72 20 72  32 2c 5b 72 31 2c 23 38  |#1:str r2,[r1,#8|
000035e0  5d 3a 61 64 64 20 72 32  2c 72 32 2c 72 33 3a 73  |]:add r2,r2,r3:s|
000035f0  74 72 20 72 32 2c 5b 72  31 2c 23 31 36 5d 0d 03  |tr r2,[r1,#16]..|
00003600  62 0e 6d 6f 76 20 70 63  2c 72 31 34 0d 03 63 da  |b.mov pc,r14..c.|
00003610  2e 64 62 3a 6c 64 72 20  72 31 2c 63 60 3a 61 64  |.db:ldr r1,c`:ad|
00003620  64 20 72 31 2c 72 31 2c  23 34 38 3a 6c 64 72 20  |d r1,r1,#48:ldr |
00003630  72 30 2c 55 62 3a 73 74  72 20 72 30 2c 5b 72 31  |r0,Ub:str r0,[r1|
00003640  5d 3a 6d 6f 76 20 72 30  2c 23 38 3a 73 74 72 20  |]:mov r0,#8:str |
00003650  72 30 2c 5b 72 31 2c 23  34 5d 3a 73 77 69 26 34  |r0,[r1,#4]:swi&4|
00003660  30 30 63 65 3a 6c 64 72  20 72 33 2c 5b 72 31 2c  |00ce:ldr r3,[r1,|
00003670  23 32 38 5d 3a 6c 64 72  20 72 32 2c 63 60 3a 61  |#28]:ldr r2,c`:a|
00003680  64 64 20 72 32 2c 72 32  2c 23 34 3a 2e 66 62 20  |dd r2,r2,#4:.fb |
00003690  6c 64 72 62 20 72 30 2c  5b 72 32 5d 2c 23 31 3a  |ldrb r0,[r2],#1:|
000036a0  73 74 72 62 20 72 30 2c  5b 72 33 5d 2c 23 31 3a  |strb r0,[r3],#1:|
000036b0  63 6d 70 20 72 30 2c 23  33 32 3a 62 67 65 20 66  |cmp r0,#32:bge f|
000036c0  62 3a 6d 6f 76 20 72 30  2c 23 25 30 30 30 31 30  |b:mov r0,#%00010|
000036d0  31 31 31 3c 3c 32 34 3a  73 74 72 20 72 30 2c 5b  |111<<24:str r0,[|
000036e0  72 31 2c 23 38 5d 0d 03  75 57 6d 6f 76 20 72 30  |r1,#8]..uWmov r0|
000036f0  2c 23 25 31 31 31 31 31  31 31 31 3c 3c 32 34 3a  |,#%11111111<<24:|
00003700  73 74 72 20 72 30 2c 5b  72 31 2c 23 31 32 5d 3a  |str r0,[r1,#12]:|
00003710  73 77 69 26 34 30 30 43  44 3a 6d 6f 76 20 72 30  |swi&400CD:mov r0|
00003720  2c 23 30 3a 73 74 72 20  72 30 2c 58 62 3a 6c 64  |,#0:str r0,Xb:ld|
00003730  6d 66 64 20 72 31 33 21  2c 7b 70 63 7d 0d 03 7b  |mfd r13!,{pc}..{|
00003740  53 2e 67 62 20 73 77 69  26 34 32 3a 61 64 64 20  |S.gb swi&42:add |
00003750  72 33 2c 72 30 2c 23 36  30 30 3a 2e 6a 62 20 73  |r3,r0,#600:.jb s|
00003760  77 69 26 34 32 3a 63 6d  70 20 72 30 2c 72 33 3a  |wi&42:cmp r0,r3:|
00003770  62 6c 74 20 6a 62 3a 6d  6f 76 20 70 63 2c 72 31  |blt jb:mov pc,r1|
00003780  34 3a 5d 3a e7 4f 62 3e  31 3a 3d ba 28 59 62 29  |4:]:.Ob>1:=.(Yb)|
00003790  0d 03 84 9d 5b 4f 50 54  20 4f 62 3a 2e 5a 62 20  |....[OPT Ob:.Zb |
000037a0  65 71 75 73 20 22 3c 6f  62 65 79 24 64 69 72 3e  |equs "<obey$dir>|
000037b0  2e 63 68 6f 70 5f 72 65  67 22 3a 65 71 75 62 20  |.chop_reg":equb |
000037c0  30 3a 61 6c 69 67 6e 3a  2e 65 62 3a 65 71 75 64  |0:align:.eb:equd|
000037d0  26 32 30 32 30 30 41 30  41 3a 65 71 75 64 26 32  |&20200A0A:equd&2|
000037e0  30 36 35 36 38 35 34 3a  65 71 75 64 26 36 39 36  |0656854:equd&696|
000037f0  37 36 35 35 32 3a 65 71  75 64 26 36 31 37 32 37  |76552:equd&61727|
00003800  34 37 33 3a 65 71 75 64  26 36 65 36 66 36 39 37  |473:equd&6e6f697|
00003810  34 3a 65 71 75 64 26 36  63 36 39 34 36 32 30 3a  |4:equd&6c694620:|
00003820  65 71 75 64 26 36 31 36  38 32 30 36 35 0d 03 89  |equd&61682065...|
00003830  d8 65 71 75 64 26 36 35  36 32 32 30 37 33 3a 65  |.equd&65622073:e|
00003840  71 75 64 26 37 34 32 30  36 65 36 35 3a 65 71 75  |qud&74206e65:equ|
00003850  64 26 36 35 37 30 36 64  36 31 3a 65 71 75 64 26  |d&65706d61:equd&|
00003860  32 30 36 34 36 35 37 32  3a 65 71 75 64 26 36 38  |20646572:equd&68|
00003870  37 34 36 39 37 37 3a 65  71 75 64 26 30 41 30 41  |746977:equd&0A0A|
00003880  30 37 30 44 3a 65 71 75  64 26 32 30 32 30 32 30  |070D:equd&202020|
00003890  30 41 3a 65 71 75 64 26  32 30 32 30 32 30 32 30  |0A:equd&20202020|
000038a0  3a 65 71 75 64 26 32 30  32 30 32 30 32 30 3a 65  |:equd&20202020:e|
000038b0  71 75 64 26 36 37 36 66  37 32 35 30 3a 65 71 75  |qud&676f7250:equ|
000038c0  64 26 32 30 36 64 36 31  37 32 3a 65 71 75 64 26  |d&206d6172:equd&|
000038d0  36 64 37 32 36 35 37 34  3a 65 71 75 64 26 37 34  |6d726574:equd&74|
000038e0  36 31 36 65 36 39 3a 65  71 75 64 26 30 41 36 37  |616e69:equd&0A67|
000038f0  36 65 36 39 3a 65 71 75  64 26 30 41 30 44 3a 5d  |6e69:equd&0A0D:]|
00003900  3a ed 3a 3d 31 0d 03 8f  04 0d 03 90 32 dd f2 6b  |:.:=1.......2..k|
00003910  62 3a ea 85 3a ee 85 ea  d9 23 48 25 3a f2 43 5f  |b:..:....#H%:.C_|
00003920  28 f6 24 2b 22 20 6c 6f  61 64 69 6e 67 20 4f 70  |(.$+" loading Op|
00003930  74 69 6f 6e 73 22 2c a3  29 3a e1 0d 03 92 43 48  |tions",.):....CH|
00003940  25 3d 8e 28 6c 62 24 2b  22 2e 4f 70 74 69 6f 6e  |%=.(lb$+".Option|
00003950  73 22 29 3a e7 48 25 3d  30 20 49 25 3d a4 75 60  |s"):.H%=0 I%=.u`|
00003960  28 31 2c 22 4f 70 74 69  6f 6e 73 20 66 69 6c 65  |(1,"Options file|
00003970  20 6e 6f 74 20 66 6f 75  6e 64 22 29 3a e1 0d 03  | not found"):...|
00003980  94 31 e3 49 25 3d 6d 62  25 b8 44 61 25 3a f2 6e  |.1.I%=mb%.Da%:.n|
00003990  62 28 47 5f 25 2c 49 25  29 3a ed 3a f2 6e 62 28  |b(G_%,I%):.:.nb(|
000039a0  4c 5f 25 2c 6f 60 25 29  3a d9 23 48 25 3a e1 0d  |L_%,o`%):.#H%:..|
000039b0  03 98 04 0d 03 99 77 dd  f2 6e 62 28 77 25 2c 69  |......w..nb(w%,i|
000039c0  25 29 3a 21 77 60 25 3d  77 25 3a 77 60 25 21 34  |%):!w`%=w%:w`%!4|
000039d0  3d 69 25 3a c8 99 32 36  32 33 35 30 2c 2c 77 60  |=i%:..262350,,w`|
000039e0  25 3a e3 4a 25 3d 36 34  b8 36 37 3a 77 60 25 3f  |%:.J%=64.67:w`%?|
000039f0  4a 25 3d 9a 23 48 25 3a  ed 3a 77 60 25 21 38 3d  |J%=.#H%:.:w`%!8=|
00003a00  28 77 60 25 21 32 34 29  82 28 77 60 25 21 36 34  |(w`%!24).(w`%!64|
00003a10  29 3a 77 60 25 21 31 32  3d 30 3a c8 99 32 36 32  |):w`%!12=0:..262|
00003a20  33 34 39 2c 2c 77 60 25  3a e1 0d 03 9e 04 0d 03  |349,,w`%:.......|
00003a30  9f 20 dd f2 6a 5f 3a ea  85 3a ee 85 ea 3a d9 23  |. ..j_:..:...:.#|
00003a40  48 25 3a f2 43 5f 28 f6  24 2c a3 29 3a e1 0d 03  |H%:.C_(.$,.):...|
00003a50  a1 46 48 25 3d ae 28 6c  62 24 2b 22 2e 4f 70 74  |.FH%=.(lb$+".Opt|
00003a60  69 6f 6e 73 22 29 3a e3  49 25 3d 6d 62 25 b8 44  |ions"):.I%=mb%.D|
00003a70  61 25 3a f2 6f 62 28 47  5f 25 2c 49 25 29 3a ed  |a%:.ob(G_%,I%):.|
00003a80  3a f2 6f 62 28 4c 5f 25  2c 6f 60 25 29 3a d9 23  |:.ob(L_%,o`%):.#|
00003a90  48 25 3a e1 0d 03 a6 04  0d 03 a7 48 dd f2 6f 62  |H%:........H..ob|
00003aa0  28 77 25 2c 69 25 29 3a  21 77 60 25 3d 77 25 3a  |(w%,i%):!w`%=w%:|
00003ab0  77 60 25 21 34 3d 69 25  3a c8 99 32 36 32 33 35  |w`%!4=i%:..26235|
00003ac0  30 2c 2c 77 60 25 3a e3  4a 25 3d 32 34 b8 32 37  |0,,w`%:.J%=24.27|
00003ad0  3a d5 23 48 25 2c 77 60  25 3f 4a 25 3a ed 3a e1  |:.#H%,w`%?J%:.:.|
00003ae0  0d 03 ab 04 0d 03 ac 44  dd a4 69 5f 28 68 61 25  |.......D..i_(ha%|
00003af0  29 3a ea 70 25 3a 70 25  3d 6b 61 25 3a c8 95 68  |):.p%:p%=ka%:..h|
00003b00  61 25 3e 30 3a f5 3a 70  25 2b 3d 31 3a fd 3f 70  |a%>0:.:p%+=1:.?p|
00003b10  25 3c 33 32 3a 70 25 2b  3d 31 3a 68 61 25 2d 3d  |%<32:p%+=1:ha%-=|
00003b20  31 3a ce 3a 3d 24 70 25  0d 03 b4 04 0d 03 b5 70  |1:.:=$p%.......p|
00003b30  dd f2 70 62 3a c8 99 38  2c 31 37 2c 6c 62 24 2b  |..pb:..8,17,lb$+|
00003b40  22 2e 72 65 73 6f 75 72  63 65 73 2e 6d 65 73 73  |".resources.mess|
00003b50  61 67 65 73 22 b8 46 25  2c 2c 2c 2c 4c 25 3a e7  |ages".F%,,,,L%:.|
00003b60  28 46 25 80 31 29 3c 3e  31 85 30 2c 22 4d 65 73  |(F%.1)<>1.0,"Mes|
00003b70  73 61 67 65 73 20 66 69  6c 65 20 6e 6f 74 20 66  |sages file not f|
00003b80  6f 75 6e 64 20 2d 20 75  6e 61 62 6c 65 20 74 6f  |ound - unable to|
00003b90  20 63 6f 6e 74 69 6e 75  65 22 3a e0 0d 03 b8 72  | continue":....r|
00003ba0  de 6b 61 25 20 4c 25 2b  34 3a 45 25 3d 6b 61 25  |.ka% L%+4:E%=ka%|
00003bb0  2b 4c 25 3a c8 99 38 2c  31 36 2c 6c 62 24 2b 22  |+L%:..8,16,lb$+"|
00003bc0  2e 72 65 73 6f 75 72 63  65 73 2e 6d 65 73 73 61  |.resources.messa|
00003bd0  67 65 73 22 2c 6b 61 25  2c 30 3a 3f 45 25 3d 31  |ges",ka%,0:?E%=1|
00003be0  33 3a 71 62 25 3d 30 3a  49 25 3d 6b 61 25 3a 4a  |3:qb%=0:I%=ka%:J|
00003bf0  25 3d 49 25 3a c8 95 49  25 3c 45 25 3a e7 3f 49  |%=I%:..I%<E%:.?I|
00003c00  25 3d 97 22 23 22 84 3f  49 25 3d 31 30 8c 0d 03  |%=."#".?I%=10...|
00003c10  be 1a c8 95 3f 49 25 3e  33 31 3a 49 25 2b 3d 31  |....?I%>31:I%+=1|
00003c20  3a ce 3a 49 25 2b 3d 31  0d 03 bf 43 cc 3a 49 25  |:.:I%+=1...C.:I%|
00003c30  2b 3d 33 3a f5 3a 3f 4a  25 3d 3f 49 25 3a 49 25  |+=3:.:?J%=?I%:I%|
00003c40  2b 3d 31 3a 4a 25 2b 3d  31 3a fd 3f 49 25 3c 33  |+=1:J%+=1:.?I%<3|
00003c50  32 3a 3f 4a 25 3d 31 33  3a 49 25 2b 3d 31 3a 4a  |2:?J%=13:I%+=1:J|
00003c60  25 2b 3d 31 3a 71 62 25  2b 3d 31 0d 03 c4 09 cd  |%+=1:qb%+=1.....|
00003c70  3a ce 3a e1 0d 03 c7 04  0d 03 c8 48 dd f2 72 62  |:.:........H..rb|
00003c80  3a c8 99 38 2c 31 37 2c  22 3c 4f 62 65 79 24 44  |:..8,17,"<Obey$D|
00003c90  69 72 3e 2e 44 4f 53 5f  54 72 61 6e 22 b8 46 25  |ir>.DOS_Tran".F%|
00003ca0  2c 2c 2c 2c 4c 25 3a e7  28 46 25 80 31 29 3c 3e  |,,,,L%:.(F%.1)<>|
00003cb0  31 de 67 60 25 20 38 3a  21 67 60 25 3d 30 3a e1  |1.g`% 8:!g`%=0:.|
00003cc0  0d 03 cb 4b c8 99 38 2c  31 36 2c 22 3c 4f 62 65  |...K..8,16,"<Obe|
00003cd0  79 24 44 69 72 3e 2e 44  4f 53 5f 54 72 61 6e 22  |y$Dir>.DOS_Tran"|
00003ce0  2c 63 60 25 3a 4c 25 2b  3d 63 60 25 3a 43 25 3d  |,c`%:L%+=c`%:C%=|
00003cf0  32 3a e3 49 25 3d 63 60  25 b8 4c 25 3a e7 3f 49  |2:.I%=c`%.L%:.?I|
00003d00  25 3d 31 30 20 3f 49 25  3d 31 33 0d 03 cf 11 e7  |%=10 ?I%=13.....|
00003d10  3f 49 25 3d 31 33 20 43  25 2b 3d 31 0d 03 d0 a6  |?I%=13 C%+=1....|
00003d20  ed 3a de 67 60 25 20 38  2a 43 25 3a 43 25 3d 67  |.:.g`% 8*C%:C%=g|
00003d30  60 25 3a 49 25 3d 63 60  25 3a c8 95 49 25 3c 4c  |`%:I%=c`%:..I%<L|
00003d40  25 3a 4a 25 3d 49 25 3a  f5 3a 49 25 2b 3d 31 3a  |%:J%=I%:.:I%+=1:|
00003d50  fd 3f 49 25 3c 33 33 3a  3f 49 25 3d 31 33 3a 24  |.?I%<33:?I%=13:$|
00003d60  43 25 3d 24 4a 25 3a f5  3a 49 25 2b 3d 31 3a fd  |C%=$J%:.:I%+=1:.|
00003d70  3f 49 25 3e 33 32 3a c8  99 31 33 31 31 30 35 2c  |?I%>32:..131105,|
00003d80  31 36 2c 49 25 b8 2c 2c  43 25 21 34 3a c8 95 3f  |16,I%.,,C%!4:..?|
00003d90  49 25 3c 3e 31 33 3a 49  25 2b 3d 31 3a ce 3a 49  |I%<>13:I%+=1:.:I|
00003da0  25 2b 3d 31 3a 43 25 2b  3d 38 3a ce 3a 21 43 25  |%+=1:C%+=8:.:!C%|
00003db0  3d 30 3a 43 25 21 34 3d  30 3a 43 25 21 38 3d 30  |=0:C%!4=0:C%!8=0|
00003dc0  3a e1 0d 03 dd 04 0d 03  de e5 dd f2 73 62 20 28  |:...........sb (|
00003dd0  74 62 25 29 3a de 43 62  25 20 74 62 25 2c 75 62  |tb%):.Cb% tb%,ub|
00003de0  25 26 31 30 30 3a 45 25  3d 43 62 25 2b 74 62 25  |%&100:E%=Cb%+tb%|
00003df0  3a c8 99 32 36 32 33 36  31 2c 2c 6c 62 24 2b 22  |:..262361,,lb$+"|
00003e00  2e 72 65 73 6f 75 72 63  65 73 2e 74 65 6d 70 6c  |.resources.templ|
00003e10  61 74 65 73 22 3a c8 99  32 36 32 33 36 33 2c 2c  |ates":..262363,,|
00003e20  63 60 25 2c 43 62 25 2c  45 25 2c 2d 31 2c 22 69  |c`%,Cb%,E%,-1,"i|
00003e30  6e 66 6f 22 2c 30 b8 2c  2c 52 25 3a c8 99 32 36  |nfo",0.,,R%:..26|
00003e40  32 33 33 37 2c 2c 63 60  25 b8 77 61 25 3a c8 99  |2337,,c`%.wa%:..|
00003e50  32 36 32 33 36 33 2c 2c  63 60 25 2c 52 25 2c 45  |262363,,c`%,R%,E|
00003e60  25 2c 2d 31 2c 22 73 61  76 65 61 73 22 2c 30 b8  |%,-1,"saveas",0.|
00003e70  2c 2c 52 25 3a c8 99 32  36 32 33 33 37 2c 2c 63  |,,R%:..262337,,c|
00003e80  60 25 b8 78 5f 25 3a c8  99 32 36 32 33 36 33 2c  |`%.x_%:..262363,|
00003e90  2c 63 60 25 2c 52 25 2c  45 25 2c 2d 31 2c 22 63  |,c`%,R%,E%,-1,"c|
00003ea0  68 6f 70 22 2c 30 b8 2c  2c 52 25 0d 03 e6 e3 c8  |hop",0.,,R%.....|
00003eb0  99 32 36 32 33 33 37 2c  2c 63 60 25 b8 47 5f 25  |.262337,,c`%.G_%|
00003ec0  3a c8 99 32 36 32 33 36  33 2c 2c 63 60 25 2c 52  |:..262363,,c`%,R|
00003ed0  25 2c 45 25 2c 2d 31 2c  22 6a 6f 69 6e 22 2c 30  |%,E%,-1,"join",0|
00003ee0  b8 2c 2c 52 25 3a c8 99  32 36 32 33 33 37 2c 2c  |.,,R%:..262337,,|
00003ef0  63 60 25 b8 4c 5f 25 3a  c8 99 32 36 32 33 36 33  |c`%.L_%:..262363|
00003f00  2c 2c 63 60 25 2c 52 25  2c 45 25 2c 2d 31 2c 22  |,,c`%,R%,E%,-1,"|
00003f10  64 65 73 74 22 2c 30 b8  2c 2c 52 25 3a c8 99 32  |dest",0.,,R%:..2|
00003f20  36 32 33 33 37 2c 2c 63  60 25 b8 7a 5f 25 3a c8  |62337,,c`%.z_%:.|
00003f30  99 32 36 32 33 36 33 2c  2c 63 60 25 2c 52 25 2c  |.262363,,c`%,R%,|
00003f40  45 25 2c 2d 31 2c 22 79  65 73 6e 6f 22 2c 30 b8  |E%,-1,"yesno",0.|
00003f50  2c 2c 52 25 3a c8 99 32  36 32 33 33 37 2c 2c 63  |,,R%:..262337,,c|
00003f60  60 25 b8 6c 61 25 3a c8  99 32 36 32 33 36 33 2c  |`%.la%:..262363,|
00003f70  2c 63 60 25 2c 52 25 2c  45 25 2c 75 62 25 2c 22  |,c`%,R%,E%,ub%,"|
00003f80  62 61 6e 6e 65 72 22 2c  30 b8 2c 2c 52 25 0d 03  |banner",0.,,R%..|
00003f90  ee de c8 99 32 36 32 33  33 37 2c 2c 63 60 25 b8  |....262337,,c`%.|
00003fa0  52 62 25 3a c8 99 32 36  32 33 36 33 2c 2c 63 60  |Rb%:..262363,,c`|
00003fb0  25 2c 52 25 2c 45 25 2c  2d 31 2c 22 73 68 61 64  |%,R%,E%,-1,"shad|
00003fc0  22 2c 30 b8 2c 2c 52 25  3a c8 99 32 36 32 33 33  |",0.,,R%:..26233|
00003fd0  37 2c 2c 63 60 25 b8 54  62 25 3a c8 99 32 36 32  |7,,c`%.Tb%:..262|
00003fe0  33 36 32 3a 21 45 5f 25  3d 77 61 25 3a 45 5f 25  |362:!E_%=wa%:E_%|
00003ff0  21 34 3d 32 3a c8 99 32  36 32 33 35 30 2c 2c 45  |!4=2:..262350,,E|
00004000  5f 25 3a 24 28 45 5f 25  21 32 38 29 3d 76 62 24  |_%:$(E_%!28)=vb$|
00004010  3a 21 45 5f 25 3d 77 61  25 3a 45 5f 25 21 34 3d  |:!E_%=wa%:E_%!4=|
00004020  33 3a c8 99 32 36 32 33  35 30 2c 2c 45 5f 25 3a  |3:..262350,,E_%:|
00004030  24 28 45 5f 25 21 32 38  29 3d 77 62 24 3a 21 45  |$(E_%!28)=wb$:!E|
00004040  5f 25 3d 77 61 25 3a 45  5f 25 21 34 3d 34 3a c8  |_%=wa%:E_%!4=4:.|
00004050  99 32 36 32 33 35 30 2c  2c 45 5f 25 3a 24 28 45  |.262350,,E_%:$(E|
00004060  5f 25 21 32 38 29 3d 78  62 24 3a e1 0d 03 f6 04  |_%!28)=xb$:.....|
00004070  0d 03 f7 6a dd f2 42 5f  3a c8 99 32 36 32 33 33  |...j..B_:..26233|
00004080  36 2c 32 30 30 2c 26 34  42 35 33 34 31 35 34 2c  |6,200,&4B534154,|
00004090  22 43 68 6f 70 70 65 72  22 b8 79 62 25 2c 4a 62  |"Chopper".yb%,Jb|
000040a0  25 3a e7 79 62 25 3c 33  30 30 85 30 2c 22 54 68  |%:.yb%<300.0,"Th|
000040b0  69 73 20 70 72 6f 67 72  61 6d 20 72 65 71 75 69  |is program requi|
000040c0  72 65 73 20 52 49 53 43  2d 4f 53 20 33 20 6f 72  |res RISC-OS 3 or|
000040d0  20 62 65 74 74 65 72 22  3a e0 0d 03 fa 80 de 45  | better":......E|
000040e0  5f 25 26 31 38 30 2c 77  60 25 26 31 30 30 2c 49  |_%&180,w`%&100,I|
000040f0  62 25 20 32 34 2c 7a 60  25 26 34 30 2c 6a 60 25  |b% 24,z`%&40,j`%|
00004100  20 36 34 3a 24 49 62 25  3d 22 43 68 6f 70 70 65  | 64:$Ib%="Choppe|
00004110  72 22 3a 6e 61 25 3d 93  2d 26 38 30 30 30 3a 63  |r":na%=.-&8000:c|
00004120  60 25 3d 93 3a e7 a4 5a  60 28 26 34 30 30 30 29  |`%=.:..Z`(&4000)|
00004130  3d a3 3a 85 2d 31 2c 22  4e 6f 74 20 65 6e 6f 75  |=.:.-1,"Not enou|
00004140  67 68 20 6d 65 6d 6f 72  79 20 74 6f 20 72 75 6e  |gh memory to run|
00004150  20 21 43 68 6f 70 70 65  72 22 0d 03 fe 59 c8 99  | !Chopper"...Y..|
00004160  33 35 2c 22 4f 62 65 79  24 44 69 72 22 2c 45 5f  |35,"Obey$Dir",E_|
00004170  25 2c 32 35 36 2c 30 2c  33 b8 2c 2c 49 25 3a 45  |%,256,0,3.,,I%:E|
00004180  5f 25 3f 49 25 3d 31 33  3a 6c 62 24 3d 24 45 5f  |_%?I%=13:lb$=$E_|
00004190  25 3a f2 7a 62 3a f2 70  62 3a f2 73 62 28 26 39  |%:.zb:.pb:.sb(&9|
000041a0  30 30 29 3a f2 72 62 3a  f2 6f 61 3a e7 a4 4d 62  |00):.rb:.oa:..Mb|
000041b0  f2 51 5f 0d 04 05 25 c8  99 38 2c 31 33 2c 6c 62  |.Q_...%..8,13,lb|
000041c0  24 2b 22 2e 4f 70 74 69  6f 6e 73 22 b8 46 25 3a  |$+".Options".F%:|
000041d0  e7 46 25 3d 31 f2 6b 62  0d 04 06 47 f2 4b 5f 3a  |.F%=1.kb...G.K_:|
000041e0  77 5f 25 3d a4 47 62 28  22 21 63 68 6f 70 70 65  |w_%=.Gb("!choppe|
000041f0  72 22 2c 2d 31 29 3a f2  54 61 28 47 5f 25 2c 5f  |r",-1):.Ta(G_%,_|
00004200  62 25 29 3a f2 54 61 28  47 5f 25 2c 60 62 25 29  |b%):.Ta(G_%,`b%)|
00004210  3a f2 54 61 28 47 5f 25  2c 6d 62 25 29 3a e1 0d  |:.Ta(G_%,mb%):..|
00004220  04 0c 04 0d 04 0d b1 dd  f2 4b 5f 3a f2 57 60 3a  |.........K_:.W`:|
00004230  f2 67 5f 28 47 5f 25 2c  6c 5f 25 2c 22 22 29 3a  |.g_(G_%,l_%,""):|
00004240  f2 67 5f 28 47 5f 25 2c  6e 5f 25 2c 22 22 29 3a  |.g_(G_%,n_%,""):|
00004250  f2 67 5f 28 47 5f 25 2c  70 5f 25 2c 22 46 69 6c  |.g_(G_%,p_%,"Fil|
00004260  6c 20 64 69 73 63 22 29  3a f2 67 5f 28 47 5f 25  |l disc"):.g_(G_%|
00004270  2c 72 5f 25 2c 22 46 69  6c 6c 20 64 69 73 63 22  |,r_%,"Fill disc"|
00004280  29 3a f2 67 5f 28 47 5f  25 2c 78 60 25 2c 22 22  |):.g_(G_%,x`%,""|
00004290  29 3a f2 67 5f 28 4c 5f  25 2c 68 5f 25 2c 22 22  |):.g_(L_%,h_%,""|
000042a0  29 3a f2 67 5f 28 4c 5f  25 2c 43 60 25 2c 22 41  |):.g_(L_%,C`%,"A|
000042b0  44 46 53 3a 3a 30 22 29  3a e7 a4 51 60 28 4c 5f  |DFS::0"):..Q`(L_|
000042c0  25 2c 52 60 25 29 3d a3  f2 53 60 28 4c 5f 25 2c  |%,R`%)=..S`(L_%,|
000042d0  52 60 25 29 0d 04 17 05  e1 0d 04 18 04 0d 04 19  |R`%)............|
000042e0  77 dd f2 57 60 3a 49 25  3d a4 5a 60 28 30 29 3a  |w..W`:I%=.Z`(0):|
000042f0  41 63 25 3d a3 3a 56 5f  25 3d 34 3a 44 5f 25 3d  |Ac%=.:V_%=4:D_%=|
00004300  26 43 33 31 3a 54 5f 25  3d 2d 31 3a 48 5f 25 3d  |&C31:T_%=-1:H_%=|
00004310  a3 3a 4d 5f 25 3d a3 3a  4a 61 25 3d 30 3a 6d 60  |.:M_%=.:Ja%=0:m`|
00004320  25 3d 30 3a 69 60 24 3d  22 22 3a 68 60 24 3d 22  |%=0:i`$="":h`$="|
00004330  22 3a f4 2a 2a 2a 73 6f  75 72 63 65 5f 64 69 72  |":.***source_dir|
00004340  24 3d 22 22 3a 73 6f 75  72 63 65 5f 6c 65 61 66  |$="":source_leaf|
00004350  24 3d 22 22 0d 04 21 18  42 63 24 3d 22 22 3a 59  |$=""..!.Bc$="":Y|
00004360  5f 25 3d a3 3a 6e 60 25  3d a3 3a e1 0d 04 25 04  |_%=.:n`%=.:...%.|
00004370  0d 04 26 3f dd f2 7a 62  3a 76 62 24 3d 22 43 68  |..&?..zb:vb$="Ch|
00004380  6f 70 70 65 72 22 3a 77  62 24 3d 41 5f 24 3a 78  |opper":wb$=A_$:x|
00004390  62 24 3d 22 a9 20 44 61  76 69 64 20 48 6f 6c 64  |b$=". David Hold|
000043a0  65 6e 20 31 39 39 35 22  3a 56 62 25 3d 31 35 0d  |en 1995":Vb%=15.|
000043b0  04 2b 17 f4 20 63 68 6f  70 20 77 69 6e 64 6f 77  |.+.. chop window|
000043c0  20 69 63 6f 6e 73 0d 04  2d 60 6e 5f 25 3d 31 3a  | icons..-`n_%=1:|
000043d0  6c 5f 25 3d 32 3a 70 5f  25 3d 33 3a 72 5f 25 3d  |l_%=2:p_%=3:r_%=|
000043e0  34 3a 41 60 25 3d 31 32  3a 42 60 25 3d 31 31 3a  |4:A`%=12:B`%=11:|
000043f0  5f 5f 25 3d 31 30 3a 78  60 25 3d 39 3a 6d 62 25  |__%=10:x`%=9:mb%|
00004400  3d 31 33 3a 5f 62 25 3d  31 34 3a 60 62 25 3d 31  |=13:_b%=14:`b%=1|
00004410  35 3a 4b 61 25 3d 31 36  3a 49 61 25 3d 31 37 3a  |5:Ka%=16:Ia%=17:|
00004420  44 61 25 3d 31 38 0d 04  33 17 f4 20 6a 6f 69 6e  |Da%=18..3.. join|
00004430  20 77 69 6e 64 6f 77 20  69 63 6f 6e 73 0d 04 35  | window icons..5|
00004440  33 52 60 25 3d 33 3a 43  60 25 3d 31 3a 48 60 25  |3R`%=3:C`%=1:H`%|
00004450  3d 36 3a 49 60 25 3d 37  3a 4a 60 25 3d 34 3a 46  |=6:I`%=7:J`%=4:F|
00004460  60 25 3d 35 3a 68 5f 25  3d 38 3a 6f 60 25 3d 39  |`%=5:h_%=8:o`%=9|
00004470  0d 04 3a 05 e1 0d ff                              |..:....|
00004477