Home » Archimedes archive » Archimedes World » archimedes_world_volume_15_issue_1_scp.adf » !ProFiler_ProFiler » !ProFiler/Apps/SC_Manager/!RunImage
!ProFiler/Apps/SC_Manager/!RunImage
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_1_scp.adf » !ProFiler_ProFiler |
| Filename: | !ProFiler/Apps/SC_Manager/!RunImage |
| Read OK: | ✔ |
| File size: | 156F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>!RunImage (SA) Crunchpiled by TO's BasCP (#0001)
2f%=HIMEM:a$="0.01 (22 May 1997)":PROCb("SC_Manager"):b$=FNg("SC_Manager$SC"):IFb$=""ERROREXT1,"Usage: SC_Manager <client>"
60PROCa:END
80DEFPROCs:CASEQ%!16OF
110WHEN0:h%=TRUE
130WHEN1041:IFQ%!4<>q%THEN
140CASEQ%!20OF
150WHEN2:h%=TRUE
170WHEN4,5:S%=(Q%!20=4):IFa%THEN
190PROCc:IFS%PROCp
210ENDIF:IFi%ANDS%THEN
230PROCf:PROCg
260ENDIF
270ENDCASE
280ENDIF
290ENDCASE:ENDPROC
300DEFPROCh(N$):IFN$="ExtP"
330s%=!k%:r%=FNh(!k%):PROCi:!Q%=32:Q%!12=0:Q%!16=1041:Q%!20=3:Q%!24=r%:Q%!28=(a%<>0ANDa%<>f%)AND1:SYS262375,17,Q%:IFa%PROCj
440PROCk
460ENDIF:ENDPROC
470DEFPROCkLOCALS$,F%,T%,C%:g%=FALSE:T%=FNc(b$):i%=(T%>0):IFi%THEN
530F%=OPENIN"Filer:!AutoLoad":WHILENOTEOF#F%ANDNOTg%:IFFNs(GET$#F%,b$)g%=TRUE
560ENDWHILE:CLOSE#F%
590ENDIF:PROCl(s%,512,g%):PROCm(s%,512,NOTi%):ENDPROC
620DEFPROCf:g%=FNp(s%,512):ENDPROC
660DEFFNc(M$)LOCALT%:SYS131080,17,"Filer:RM."+M$TOT%:IFT%=1=1
690SYS131080,17,"Filer:Utilities."+M$+".Module"TOT%:IFT%=1=2
700=0
730DEFFNs(S$,b$):S$=FNf(S$):b$=FNf(b$):IFRIGHT$(S$,LENb$+1)="."+b$=TRUE
750IFRIGHT$(S$,LENb$+8)="."+b$+".MODULE"=TRUE
760=FALSE
790DEFFNi(b$)LOCALT%:T%=FNc(b$):IFT%=1="RMLoad Filer:RM."+b$
810IFT%=2="RMLoad Filer:Utilities."+b$+".Module"
820=""
870DEFPROCgLOCALW$,F%,G%,S$,l%:IFi%THEN
880W$="<Choices$Write>.Filer.":F%=OPENIN"Filer:!AutoLoad":G%=OPENOUT(W$+"~!AutoLoad"):SYS8,18,W$+"~!AutoLoad",4075:l%=FALSE:WHILENOTEOF#F%:S$=GET$#F%:IFg%THEN
960IFFNs(S$,b$)l%=TRUE
970BPUT#G%,S$
990ELSE:IFNOTFNs(S$,b$)BPUT#G%,S$
1000ENDIF:ENDWHILE:IFg%ANDNOTl%BPUT#G%,FNi(b$)
1030CLOSE#G%:CLOSE#F%:SYS8,6,W$+"!AutoLoad":SYS41,25,W$+"~!AutoLoad",W$+"!AutoLoad"
1080ENDIF:ENDPROC
1090DEFPROCpLOCALW$,F%,C%:W$="<Choices$Write>.Filer.":SYS8,8,W$+"External":F%=OPENOUT(W$+"External."+b$):SYS8,18,W$+"External."+b$,4095:C%=a%:WHILE!C%>=0:BPUT#F%,FNa(C%+8):CASE!C%OF
1190WHEN0,4:BPUT#F%,STR$C%!28
1210WHEN1:BPUT#F%,STR$C%!24
1220WHEN2:BPUT#F%,FNa(a%+C%!32)
1230WHEN3:BPUT#F%,STR$C%!40
1240ENDCASE:BPUT#F%,"---":C%+=C%!4:ENDWHILE:CLOSE#F%:ENDPROC
1290DEFPROCcLOCALI%,C%,b%:I%=s%:C%=a%:b%=0:WHILE!C%>=0:CASE!C%OF
1350WHEN0:C%!28=FNp(I%,b%):b%+=1
1370WHEN1:C%!24=FNj(I%,b%)-b%:b%+=C%!20
1380WHEN2:$(a%+C%!32)=FNk(I%,b%+1):b%+=2
1390WHEN3:C%!40=FNl(I%,b%+1):b%+=2
1400WHEN4:C%!28=FNm(I%,b%+1):b%+=2
1410ENDCASE:C%+=C%!4:ENDWHILE:SYS48,b$,788:ENDPROC
1450DEFPROCjLOCALC%,D%,S$,G%,P%,b%,Y%,I%,A%,j%,L%:SYS282310,,s%,72,512,Q%:Y%=Q%!4-8:b%=0:m%=0:C%=a%:WHILE!C%>=0:CASE!C%OF
1530WHEN0:P%=Q%:[OPT2:EQUD C%!28 AND4:EQUD192:EQUD8:EQUD Y%-44:EQUD460:EQUD Y%:EQUD b%:FNb(a%+C%!24):FNb(a%+C%!20):EQUD0:]:SYS282310,,s%,1,Q%:Y%-=52:b%+=1
1670WHEN1:N%=C%!20:D%=C%!24:FORI%=0TON%-1:P%=Q%:[OPT2:EQUD(D%=I%)AND4:EQUD384:EQUD8:EQUD Y%-44:EQUD460:EQUD Y%:EQUD b%:FNb(a%+C%!(32+I%*8)):EQUDm%:FNb(a%+C%!(28+I%*8)):EQUD0:]:SYS282310,,s%,1,Q%:Y%-=48:b%+=1:NEXT:m%+=1:Y%-=4
1860WHEN2:P%=Q%:[OPT2:EQUD0:EQUD256:EQUD8:EQUD Y%-112:EQUD460:EQUD Y%+4:EQUD b%:FNb(a%+C%!24):EQUD a%+C%!20:]:SYS282310,,s%,1,Q%:b%+=1:P%=Q%:[OPT2:EQUD0:EQUD512:EQUD24:EQUD Y%-88:EQUD444:EQUD Y%-40:EQUD b%:FNb(a%+C%!24):EQUD a%+C%!32:EQUD C%!36
2030FNb(a%+C%!28):EQUD-1:EQUD-1:]:SYS282310,,s%,1,Q%:b%+=1:Y%-=120
2100WHEN3:P%=Q%:[OPT2:EQUD3:EQUD320:EQUD8:EQUD Y%-44:EQUD300:EQUD Y%:EQUD b%:FNb(a%+C%!24):EQUD a%+C%!20:]:SYS282310,,s%,1,Q%:b%+=1:P%=Q%:[OPT2:EQUD528:EQUD832:EQUD300:EQUD Y%-44:EQUD460:EQUD Y%:EQUD b%:FNb(a%+C%!24):EQUD C%!28:EQUD C%!32
2270EQUD C%!36:EQUD C%!40:EQUD C%!44:EQUD-1:EQUD-1:EQUD116:]:SYS282310,,s%,1,Q%:b%+=1:Y%-=52
2360WHEN4:A%=a%+C%!32:j%=0:L%=0:REPEAT:WHILEA%?L%<>44ANDA%?L%>31:L%+=1:ENDWHILE:IFL%>j%j%=L%
2410A%+=L%+1:L%=0:UNTILA%?(L%-1)<32:P%=Q%:[OPT2:EQUD3:EQUD320:EQUD8:EQUD Y%-44:EQUD200:EQUD Y%:EQUD b%:FNb(a%+C%!24):EQUD a%+C%!20:]:SYS282310,,s%,1,Q%:b%+=1:P%=Q%:[OPT2:EQUD64:EQUD896:EQUD200:EQUD Y%-44:EQUD460:EQUD Y%:EQUD b%:FNb(a%+C%!24)
2590EQUD a%+C%!32:EQUD a%+C%!20:EQUD Q%:EQUD j%+1:EQUD-1:EQUD0:EQUD-1:EQUD-1:]:SYS282310,,s%,1,Q%:PROCn(s%,b%,C%!28):b%+=1:Y%-=52
2700ENDCASE:C%+=C%!4:ENDWHILE:IFY%>-312Y%=-312
2730PROCo(s%,0,Y%,468,0):ENDPROC
2750DEFFNb(A%)LOCALL%:WHILEA%?L%>31:L%+=1:ENDWHILE:[OPT2:EQUD A%:EQUD L%+1:]:=""
2820DEFPROCiLOCALT%,C%,D%,S$,c%,L%,A%,D$:SYS48,,784:c%=-1:REPEAT:SYS48,1,784TOS$,C%,D%:IFC%=0IFS$=b$c%=D%
2870UNTILC%<>0ORc%>=0:D$="No description":CASETRUEOF
2900WHENc%>0:IF!c%a%=c%+!c%ELSEa%=0
2920IFc%!4>0D$=FNa(c%+c%!4)
2930WHENc%=0:a%=0
2960WHENc%<0:SYS131080,17,"Filer:Utilities."+b$+".!Choices"TOT%,,,,L%:IFT%<>1ERROREXT1,"No default choices for "+b$
2980SYS262380,f%-32768+L%,-1TOA%:IFA%>=f%-32768+L%THEN
3000SYS8,255,"Filer:Utilities."+b$+".!Choices",f%:SYS"Filer_LoadChoices",b$,f%:a%=f%
3040ELSE:ERROREXT1,"No room for choices"
3060ENDIF:F%=OPENIN("Filer:Utilities."+b$+".!Desc"):IFF%D$=GET$#F%:CLOSE#F%
3080ENDCASE:PROCd(s%,513,D$):ENDPROC
3130DEFPROCb(N$):ONERRORERROREXTERR,REPORT$+" at line "+STR$ERL:END
40PROCq:PROCr:PROCe:s$=N$:DIMn%4,o%4,e%16,p%24:DIMQ%512:!n%=0:!o%=0:AncestorID%=p%+0:AncestorComp%=p%+4:ParentID%=p%+8:ParentComp%=p%+12:k%=p%+16:SelfComp%=p%+20:SYS282319,0,310,n%,o%,"<"+s$+"$Dir>",e%,p%TO,q%,Sprites%:h%=FALSE:d%=0:ENDPROC
230DEFPROCa:WHILENOTh%:SYS262369,,Q%,d%TOR%:CASER%OF
280WHEN0:PROCt
300WHEN1:PROCu
310WHEN2:PROCv(!Q%,TRUE)
320WHEN3:PROCw(!Q%)
330WHEN6:PROCx
340WHEN7:PROCy
350WHEN8:PROCz
360WHEN9:PROCB
370WHEN17,18,19:PROCs
390WHEN512:CASEQ%!8OF
400WHEN535360:PROCA
420WHEN282305:PROCh(FNa(Q%+16))
430WHEN535185:PROCS
440OTHERWISEPROCC(Q%!8)
450ENDCASE
460ENDCASE:ENDWHILE:ENDPROC
480DEFPROCt:d%=-1:ENDPROC
520DEFPROCu:SYS262344,,Q%TOM%:WHILEM%:PROCP:SYS262346,,Q%TOM%:ENDWHILE:ENDPROC
600DEFPROCv(!Q%,P%):IFNOTP%SYS262347,,Q%:Q%!28=-1
630SYS262341,,Q%:ENDPROC
650DEFPROCw(!Q%):SYS262342,,Q%:ENDPROC
690DEFPROCx:ENDPROC
720DEFPROCy:ENDPROC
750DEFPROCz:IF(Q%!24AND463)=460SYS262364,Q%!24
771ENDPROC
790DEFPROCB:ENDPROC
820DEFPROCA:SYS282310,,!k%,1,a$:ENDPROC
920DEFPROCS:h%=TRUE:ENDPROC
990DEFPROCC(Event%):ENDPROC
1020DEFPROCP:ENDPROC
1050DEFFNl(b%,G%)LOCALN%:SYS282310,,b%,833,G%TON%:=N%
1530DEFPROCd(b%,G%,T$):SYS282310,,b%,448,G%,T$:ENDPROC
1550DEFFNk(b%,G%)LOCALT$:SYS282310,,b%,513,G%,Q%,256TO,,,,T$:=T$
1850DEFPROCl(b%,G%,S%):SYS282310,,b%,196,G%,S%AND1:ENDPROC
1870DEFFNp(b%,G%):SYS282310,,b%,197,G%TOG%:=-G%
1970DEFFNj(b%,G%):SYS282310,,b%,389,G%TO,G%:=G%
2010DEFPROCn(b%,G%,S%):SYS282310,1,b%,898,G%,S%:ENDPROC
2030DEFFNm(b%,G%):SYS282310,1,b%,899,G%TOG%:=G%
2220DEFPROCm(b%,G%,S%)LOCALF%:SYS282310,,b%,64,G%,F%:F%=F%AND2147483647OR(S%<>0)AND-2147483648:SYS282310,,b%,65,G%,F%:ENDPROC
2260DEFPROCo(b%,!Q%,Q%!4,Q%!8,Q%!12):SYS282310,,b%,15,Q%:ENDPROC
2740DEFFNh(b%):SYS282310,,b%,0TOb%:=b%
3350DEFFNa(A%)LOCALS$:WHILE?A%>31:S$+=CHR$?A%:A%+=1:ENDWHILE:=S$
3450DEFFNf(S$)LOCALI%,T%:IFS$=""=""
3460SYS274520,-1TOT%:FORI%=1TOLENS$:MID$(S$,I%,1)=CHR$T%?ASCMID$(S$,I%,1):NEXT:=S$
3810DEFFNg(V$)LOCALN%:SYS131107,V$,Q%,255,,3TO,,N%:Q%?N%=13:=$Q%
4010DEFPROCr:ENDPROC
4990DEFPROCe:ENDPROC
7270DEFPROCq:ENDPROC
6�>!RunImage (SA) Crunchpiled by TO's BasCP (#0001)
of%=�:a$="0.01 (22 May 1997)":�b("SC_Manager"):b$=�g("SC_Manager$SC"):�b$=""��1,"Usage: SC_Manager <client>"
<�a:�
P��s:ȎQ%!16�
n �0:h%=�
��1041:�Q%!4<>q%�
� ȎQ%!20�
� �2:h%=�
��4,5:S%=(Q%!20=4):�a%�
� �c:�S%�p
�
�:�i%�S%�
� �f:�g
�
�
�
"�:�
,��h(N$):�N$="ExtP"
Jos%=!k%:r%=�h(!k%):�i:!Q%=32:Q%!12=0:Q%!16=1041:Q%!20=3:Q%!24=r%:Q%!28=(a%<>0�a%<>f%)�1:ș262375,17,Q%:�a%�j
��k
��:�
�1��k�S$,F%,T%,C%:g%=�:T%=�c(b$):i%=(T%>0):�i%�
6F%=�"Filer:!AutoLoad":ȕ��#F%��g%:�s(�#F%,b$)g%=�
0
�:�#F%
N$�:�l(s%,512,g%):�m(s%,512,�i%):�
l��f:g%=�p(s%,512):�
�4ݤc(M$)�T%:ș131080,17,"Filer:RM."+M$�T%:�T%=1=1
�:ș131080,17,"Filer:Utilities."+M$+".Module"�T%:�T%=1=2
�=0
�7ݤs(S$,b$):S$=�f(S$):b$=�f(b$):��S$,�b$+1)="."+b$=�
�"��S$,�b$+8)="."+b$+".MODULE"=�
�=�
4ݤi(b$)�T%:T%=�c(b$):�T%=1="RMLoad Filer:RM."+b$
*0�T%=2="RMLoad Filer:Utilities."+b$+".Module"
4=""
f��g�W$,F%,G%,S$,l%:�i%�
p�W$="<Choices$Write>.Filer.":F%=�"Filer:!AutoLoad":G%=�(W$+"~!AutoLoad"):ș8,18,W$+"~!AutoLoad",4075:l%=�:ȕ��#F%:S$=�#F%:�g%�
��s(S$,b$)l%=�
� �#G%,S$
��:笤s(S$,b$)�#G%,S$
��:�:�g%��l%�#G%,�i(b$)
I�#G%:�#F%:ș8,6,W$+"!AutoLoad":ș41,25,W$+"~!AutoLoad",W$+"!AutoLoad"
8�:�
B���p�W$,F%,C%:W$="<Choices$Write>.Filer.":ș8,8,W$+"External":F%=�(W$+"External."+b$):ș8,18,W$+"External."+b$,4095:C%=a%:ȕ!C%>=0:�#F%,�a(C%+8):Ȏ!C%�
��0,4:�#F%,�C%!28
��1:�#F%,�C%!24
��2:�#F%,�a(a%+C%!32)
��3:�#F%,�C%!40
�"�:�#F%,"---":C%+=C%!4:�:�#F%:�
1��c�I%,C%,b%:I%=s%:C%=a%:b%=0:ȕ!C%>=0:Ȏ!C%�
F �0:C%!28=�p(I%,b%):b%+=1
Z#�1:C%!24=�j(I%,b%)-b%:b%+=C%!20
d$�2:$(a%+C%!32)=�k(I%,b%+1):b%+=2
n �3:C%!40=�l(I%,b%+1):b%+=2
x �4:C%!28=�m(I%,b%+1):b%+=2
� �:C%+=C%!4:�:ș48,b$,788:�
�i��j�C%,D%,S$,G%,P%,b%,Y%,I%,A%,j%,L%:ș282310,,s%,72,512,Q%:Y%=Q%!4-8:b%=0:m%=0:C%=a%:ȕ!C%>=0:Ȏ!C%�
���0:P%=Q%:[OPT2:EQUD C%!28 �4:EQUD192:EQUD8:EQUD Y%-44:EQUD460:EQUD Y%:EQUD b%:�b(a%+C%!24):�b(a%+C%!20):EQUD0:]:ș282310,,s%,1,Q%:Y%-=52:b%+=1
���1:N%=C%!20:D%=C%!24:�I%=0�N%-1:P%=Q%:[OPT2:EQUD(D%=I%)�4:EQUD384:EQUD8:EQUD Y%-44:EQUD460:EQUD Y%:EQUD b%:�b(a%+C%!(32+I%*8)):EQUDm%:�b(a%+C%!(28+I%*8)):EQUD0:]:ș282310,,s%,1,Q%:Y%-=48:b%+=1:�:m%+=1:Y%-=4
D��2:P%=Q%:[OPT2:EQUD0:EQUD256:EQUD8:EQUD Y%-112:EQUD460:EQUD Y%+4:EQUD b%:�b(a%+C%!24):EQUD a%+C%!20:]:ș282310,,s%,1,Q%:b%+=1:P%=Q%:[OPT2:EQUD0:EQUD512:EQUD24:EQUD Y%-88:EQUD444:EQUD Y%-40:EQUD b%:�b(a%+C%!24):EQUD a%+C%!32:EQUD C%!36
�@�b(a%+C%!28):EQUD-1:EQUD-1:]:ș282310,,s%,1,Q%:b%+=1:Y%-=120
4��3:P%=Q%:[OPT2:EQUD3:EQUD320:EQUD8:EQUD Y%-44:EQUD300:EQUD Y%:EQUD b%:�b(a%+C%!24):EQUD a%+C%!20:]:ș282310,,s%,1,Q%:b%+=1:P%=Q%:[OPT2:EQUD528:EQUD832:EQUD300:EQUD Y%-44:EQUD460:EQUD Y%:EQUD b%:�b(a%+C%!24):EQUD C%!28:EQUD C%!32
�[EQUD C%!36:EQUD C%!40:EQUD C%!44:EQUD-1:EQUD-1:EQUD116:]:ș282310,,s%,1,Q%:b%+=1:Y%-=52
8G�4:A%=a%+C%!32:j%=0:L%=0:�:ȕA%?L%<>44�A%?L%>31:L%+=1:�:�L%>j%j%=L%
j�A%+=L%+1:L%=0:�A%?(L%-1)<32:P%=Q%:[OPT2:EQUD3:EQUD320:EQUD8:EQUD Y%-44:EQUD200:EQUD Y%:EQUD b%:�b(a%+C%!24):EQUD a%+C%!20:]:ș282310,,s%,1,Q%:b%+=1:P%=Q%:[OPT2:EQUD64:EQUD896:EQUD200:EQUD Y%-44:EQUD460:EQUD Y%:EQUD b%:�b(a%+C%!24)
}EQUD a%+C%!32:EQUD a%+C%!20:EQUD Q%:EQUD j%+1:EQUD-1:EQUD0:EQUD-1:EQUD-1:]:ș282310,,s%,1,Q%:�n(s%,b%,C%!28):b%+=1:Y%-=52
� �:C%+=C%!4:�:�Y%>-312Y%=-312
��o(s%,0,Y%,468,0):�
�?ݤb(A%)�L%:ȕA%?L%>31:L%+=1:�:[OPT2:EQUD A%:EQUD L%+1:]:=""
V��i�T%,C%,D%,S$,c%,L%,A%,D$:ș48,,784:c%=-1:�:ș48,1,784�S$,C%,D%:�C%=0�S$=b$c%=D%
6)�C%<>0�c%>=0:D$="No description":Ȏ��
T �c%>0:�!c%a%=c%+!c%�a%=0
h�c%!4>0D$=�a(c%+c%!4)
r�c%=0:a%=0
�g�c%<0:ș131080,17,"Filer:Utilities."+b$+".!Choices"�T%,,,,L%:�T%<>1��1,"No default choices for "+b$
�0ș262380,f%-32768+L%,-1�A%:�A%>=f%-32768+L%�
�Rș8,255,"Filer:Utilities."+b$+".!Choices",f%:ș"Filer_LoadChoices",b$,f%:a%=f%
� �:��1,"No room for choices"
�:�:F%=�("Filer:Utilities."+b$+".!Desc"):�F%D$=�#F%:�#F%
�:�d(s%,513,D$):�
:%��b(N$):��,�$+" at line "+Þ:�
(��q:�r:�e:s$=N$:�n%4,o%4,e%16,p%24:�Q%512:!n%=0:!o%=0:AncestorID%=p%+0:AncestorComp%=p%+4:ParentID%=p%+8:ParentComp%=p%+12:k%=p%+16:SelfComp%=p%+20:ș282319,0,310,n%,o%,"<"+s$+"$Dir>",e%,p%�,q%,Sprites%:h%=�:d%=0:�
�&��a:ȕ�h%:ș262369,,Q%,d%�R%:ȎR%�
�0:�t
, �1:�u
6�2:�v(!Q%,�)
@�3:�w(!Q%)
J �6:�x
T �7:�y
^ �8:�z
h �9:�B
r�17,18,19:�s
��512:ȎQ%!8�
��535360:�A
��282305:�h(�a(Q%+16))
��535185:�S
�
�C(Q%!8)
��
� �:�:�
���t:d%=-1:�
3��u:ș262344,,Q%�M%:ȕM%:�P:ș262346,,Q%�M%:�:�
X)��v(!Q%,P%):�P%ș262347,,Q%:Q%!28=-1
vș262341,,Q%:�
���w(!Q%):ș262342,,Q%:�
� ��x:�
� ��y:�
�&��z:�(Q%!24�463)=460ș262364,Q%!24
�
��B:�
4 ��A:ș282310,,!k%,1,a$:�
���S:h%=�:�
���C(Event%):�
� ��P:�
,ݤl(b%,G%)�N%:ș282310,,b%,833,G%�N%:=N%
�*��d(b%,G%,T$):ș282310,,b%,448,G%,T$:�
7ݤk(b%,G%)�T$:ș282310,,b%,513,G%,Q%,256�,,,,T$:=T$
:,��l(b%,G%,S%):ș282310,,b%,196,G%,S%�1:�
N*ݤp(b%,G%):ș282310,,b%,197,G%�G%:=-G%
�*ݤj(b%,G%):ș282310,,b%,389,G%�,G%:=G%
�+��n(b%,G%,S%):ș282310,1,b%,898,G%,S%:�
�*ݤm(b%,G%):ș282310,1,b%,899,G%�G%:=G%
�g��m(b%,G%,S%)�F%:ș282310,,b%,64,G%,F%:F%=F%�2147483647�(S%<>0)�-2147483648:ș282310,,b%,65,G%,F%:�
�4��o(b%,!Q%,Q%!4,Q%!8,Q%!12):ș282310,,b%,15,Q%:�
�!ݤh(b%):ș282310,,b%,0�b%:=b%
,ݤa(A%)�S$:ȕ?A%>31:S$+=�?A%:A%+=1:�:=S$
zݤf(S$)�I%,T%:�S$=""=""
�;ș274520,-1�T%:�I%=1��S$:�S$,I%,1)=�T%?��S$,I%,1):�:=S$
�7ݤg(V$)�N%:ș131107,V$,Q%,255,,3�,,N%:Q%?N%=13:=$Q%
� ��r:�
~ ��e:�
f ��q:�
� 00000000 0d 00 01 36 f4 3e 21 52 75 6e 49 6d 61 67 65 20 |...6.>!RunImage |
00000010 28 53 41 29 20 43 72 75 6e 63 68 70 69 6c 65 64 |(SA) Crunchpiled|
00000020 20 62 79 20 54 4f 27 73 20 42 61 73 43 50 20 28 | by TO's BasCP (|
00000030 23 30 30 30 31 29 0d 00 02 6f 66 25 3d 93 3a 61 |#0001)...of%=.:a|
00000040 24 3d 22 30 2e 30 31 20 28 32 32 20 4d 61 79 20 |$="0.01 (22 May |
00000050 31 39 39 37 29 22 3a f2 62 28 22 53 43 5f 4d 61 |1997)":.b("SC_Ma|
00000060 6e 61 67 65 72 22 29 3a 62 24 3d a4 67 28 22 53 |nager"):b$=.g("S|
00000070 43 5f 4d 61 6e 61 67 65 72 24 53 43 22 29 3a e7 |C_Manager$SC"):.|
00000080 62 24 3d 22 22 85 a2 31 2c 22 55 73 61 67 65 3a |b$=""..1,"Usage:|
00000090 20 53 43 5f 4d 61 6e 61 67 65 72 20 3c 63 6c 69 | SC_Manager <cli|
000000a0 65 6e 74 3e 22 0d 00 3c 08 f2 61 3a e0 0d 00 50 |ent>"..<..a:...P|
000000b0 10 dd f2 73 3a c8 8e 51 25 21 31 36 ca 0d 00 6e |...s:..Q%!16...n|
000000c0 0b c9 30 3a 68 25 3d b9 0d 00 82 14 c9 31 30 34 |..0:h%=......104|
000000d0 31 3a e7 51 25 21 34 3c 3e 71 25 8c 0d 00 8c 0c |1:.Q%!4<>q%.....|
000000e0 c8 8e 51 25 21 32 30 ca 0d 00 96 0b c9 32 3a 68 |..Q%!20......2:h|
000000f0 25 3d b9 0d 00 aa 1a c9 34 2c 35 3a 53 25 3d 28 |%=......4,5:S%=(|
00000100 51 25 21 32 30 3d 34 29 3a e7 61 25 8c 0d 00 be |Q%!20=4):.a%....|
00000110 0c f2 63 3a e7 53 25 f2 70 0d 00 d2 0d cd 3a e7 |..c:.S%.p.....:.|
00000120 69 25 80 53 25 8c 0d 00 e6 09 f2 66 3a f2 67 0d |i%.S%......f:.g.|
00000130 01 04 05 cd 0d 01 0e 05 cb 0d 01 18 05 cd 0d 01 |................|
00000140 22 07 cb 3a e1 0d 01 2c 16 dd f2 68 28 4e 24 29 |"..:...,...h(N$)|
00000150 3a e7 4e 24 3d 22 45 78 74 50 22 0d 01 4a 6f 73 |:.N$="ExtP"..Jos|
00000160 25 3d 21 6b 25 3a 72 25 3d a4 68 28 21 6b 25 29 |%=!k%:r%=.h(!k%)|
00000170 3a f2 69 3a 21 51 25 3d 33 32 3a 51 25 21 31 32 |:.i:!Q%=32:Q%!12|
00000180 3d 30 3a 51 25 21 31 36 3d 31 30 34 31 3a 51 25 |=0:Q%!16=1041:Q%|
00000190 21 32 30 3d 33 3a 51 25 21 32 34 3d 72 25 3a 51 |!20=3:Q%!24=r%:Q|
000001a0 25 21 32 38 3d 28 61 25 3c 3e 30 80 61 25 3c 3e |%!28=(a%<>0.a%<>|
000001b0 66 25 29 80 31 3a c8 99 32 36 32 33 37 35 2c 31 |f%).1:..262375,1|
000001c0 37 2c 51 25 3a e7 61 25 f2 6a 0d 01 b8 06 f2 6b |7,Q%:.a%.j.....k|
000001d0 0d 01 cc 07 cd 3a e1 0d 01 d6 31 dd f2 6b ea 53 |.....:....1..k.S|
000001e0 24 2c 46 25 2c 54 25 2c 43 25 3a 67 25 3d a3 3a |$,F%,T%,C%:g%=.:|
000001f0 54 25 3d a4 63 28 62 24 29 3a 69 25 3d 28 54 25 |T%=.c(b$):i%=(T%|
00000200 3e 30 29 3a e7 69 25 8c 0d 02 12 36 46 25 3d 8e |>0):.i%....6F%=.|
00000210 22 46 69 6c 65 72 3a 21 41 75 74 6f 4c 6f 61 64 |"Filer:!AutoLoad|
00000220 22 3a c8 95 ac c5 23 46 25 80 ac 67 25 3a e7 a4 |":....#F%..g%:..|
00000230 73 28 be 23 46 25 2c 62 24 29 67 25 3d b9 0d 02 |s(.#F%,b$)g%=...|
00000240 30 0a ce 3a d9 23 46 25 0d 02 4e 24 cd 3a f2 6c |0..:.#F%..N$.:.l|
00000250 28 73 25 2c 35 31 32 2c 67 25 29 3a f2 6d 28 73 |(s%,512,g%):.m(s|
00000260 25 2c 35 31 32 2c ac 69 25 29 3a e1 0d 02 6c 17 |%,512,.i%):...l.|
00000270 dd f2 66 3a 67 25 3d a4 70 28 73 25 2c 35 31 32 |..f:g%=.p(s%,512|
00000280 29 3a e1 0d 02 94 34 dd a4 63 28 4d 24 29 ea 54 |):....4..c(M$).T|
00000290 25 3a c8 99 31 33 31 30 38 30 2c 31 37 2c 22 46 |%:..131080,17,"F|
000002a0 69 6c 65 72 3a 52 4d 2e 22 2b 4d 24 b8 54 25 3a |iler:RM."+M$.T%:|
000002b0 e7 54 25 3d 31 3d 31 0d 02 b2 3a c8 99 31 33 31 |.T%=1=1...:..131|
000002c0 30 38 30 2c 31 37 2c 22 46 69 6c 65 72 3a 55 74 |080,17,"Filer:Ut|
000002d0 69 6c 69 74 69 65 73 2e 22 2b 4d 24 2b 22 2e 4d |ilities."+M$+".M|
000002e0 6f 64 75 6c 65 22 b8 54 25 3a e7 54 25 3d 31 3d |odule".T%:.T%=1=|
000002f0 32 0d 02 bc 06 3d 30 0d 02 da 37 dd a4 73 28 53 |2....=0...7..s(S|
00000300 24 2c 62 24 29 3a 53 24 3d a4 66 28 53 24 29 3a |$,b$):S$=.f(S$):|
00000310 62 24 3d a4 66 28 62 24 29 3a e7 c2 53 24 2c a9 |b$=.f(b$):..S$,.|
00000320 62 24 2b 31 29 3d 22 2e 22 2b 62 24 3d b9 0d 02 |b$+1)="."+b$=...|
00000330 ee 22 e7 c2 53 24 2c a9 62 24 2b 38 29 3d 22 2e |."..S$,.b$+8)=".|
00000340 22 2b 62 24 2b 22 2e 4d 4f 44 55 4c 45 22 3d b9 |"+b$+".MODULE"=.|
00000350 0d 02 f8 06 3d a3 0d 03 16 34 dd a4 69 28 62 24 |....=....4..i(b$|
00000360 29 ea 54 25 3a 54 25 3d a4 63 28 62 24 29 3a e7 |).T%:T%=.c(b$):.|
00000370 54 25 3d 31 3d 22 52 4d 4c 6f 61 64 20 46 69 6c |T%=1="RMLoad Fil|
00000380 65 72 3a 52 4d 2e 22 2b 62 24 0d 03 2a 30 e7 54 |er:RM."+b$..*0.T|
00000390 25 3d 32 3d 22 52 4d 4c 6f 61 64 20 46 69 6c 65 |%=2="RMLoad File|
000003a0 72 3a 55 74 69 6c 69 74 69 65 73 2e 22 2b 62 24 |r:Utilities."+b$|
000003b0 2b 22 2e 4d 6f 64 75 6c 65 22 0d 03 34 07 3d 22 |+".Module"..4.="|
000003c0 22 0d 03 66 1b dd f2 67 ea 57 24 2c 46 25 2c 47 |"..f...g.W$,F%,G|
000003d0 25 2c 53 24 2c 6c 25 3a e7 69 25 8c 0d 03 70 81 |%,S$,l%:.i%...p.|
000003e0 57 24 3d 22 3c 43 68 6f 69 63 65 73 24 57 72 69 |W$="<Choices$Wri|
000003f0 74 65 3e 2e 46 69 6c 65 72 2e 22 3a 46 25 3d 8e |te>.Filer.":F%=.|
00000400 22 46 69 6c 65 72 3a 21 41 75 74 6f 4c 6f 61 64 |"Filer:!AutoLoad|
00000410 22 3a 47 25 3d ae 28 57 24 2b 22 7e 21 41 75 74 |":G%=.(W$+"~!Aut|
00000420 6f 4c 6f 61 64 22 29 3a c8 99 38 2c 31 38 2c 57 |oLoad"):..8,18,W|
00000430 24 2b 22 7e 21 41 75 74 6f 4c 6f 61 64 22 2c 34 |$+"~!AutoLoad",4|
00000440 30 37 35 3a 6c 25 3d a3 3a c8 95 ac c5 23 46 25 |075:l%=.:....#F%|
00000450 3a 53 24 3d be 23 46 25 3a e7 67 25 8c 0d 03 c0 |:S$=.#F%:.g%....|
00000460 12 e7 a4 73 28 53 24 2c 62 24 29 6c 25 3d b9 0d |...s(S$,b$)l%=..|
00000470 03 ca 0b d5 23 47 25 2c 53 24 0d 03 de 18 cc 3a |....#G%,S$.....:|
00000480 e7 ac a4 73 28 53 24 2c 62 24 29 d5 23 47 25 2c |...s(S$,b$).#G%,|
00000490 53 24 0d 03 e8 1a cd 3a ce 3a e7 67 25 80 ac 6c |S$.....:.:.g%..l|
000004a0 25 d5 23 47 25 2c a4 69 28 62 24 29 0d 04 06 49 |%.#G%,.i(b$)...I|
000004b0 d9 23 47 25 3a d9 23 46 25 3a c8 99 38 2c 36 2c |.#G%:.#F%:..8,6,|
000004c0 57 24 2b 22 21 41 75 74 6f 4c 6f 61 64 22 3a c8 |W$+"!AutoLoad":.|
000004d0 99 34 31 2c 32 35 2c 57 24 2b 22 7e 21 41 75 74 |.41,25,W$+"~!Aut|
000004e0 6f 4c 6f 61 64 22 2c 57 24 2b 22 21 41 75 74 6f |oLoad",W$+"!Auto|
000004f0 4c 6f 61 64 22 0d 04 38 07 cd 3a e1 0d 04 42 9a |Load"..8..:...B.|
00000500 dd f2 70 ea 57 24 2c 46 25 2c 43 25 3a 57 24 3d |..p.W$,F%,C%:W$=|
00000510 22 3c 43 68 6f 69 63 65 73 24 57 72 69 74 65 3e |"<Choices$Write>|
00000520 2e 46 69 6c 65 72 2e 22 3a c8 99 38 2c 38 2c 57 |.Filer.":..8,8,W|
00000530 24 2b 22 45 78 74 65 72 6e 61 6c 22 3a 46 25 3d |$+"External":F%=|
00000540 ae 28 57 24 2b 22 45 78 74 65 72 6e 61 6c 2e 22 |.(W$+"External."|
00000550 2b 62 24 29 3a c8 99 38 2c 31 38 2c 57 24 2b 22 |+b$):..8,18,W$+"|
00000560 45 78 74 65 72 6e 61 6c 2e 22 2b 62 24 2c 34 30 |External."+b$,40|
00000570 39 35 3a 43 25 3d 61 25 3a c8 95 21 43 25 3e 3d |95:C%=a%:..!C%>=|
00000580 30 3a d5 23 46 25 2c a4 61 28 43 25 2b 38 29 3a |0:.#F%,.a(C%+8):|
00000590 c8 8e 21 43 25 ca 0d 04 a6 14 c9 30 2c 34 3a d5 |..!C%......0,4:.|
000005a0 23 46 25 2c c3 43 25 21 32 38 0d 04 ba 12 c9 31 |#F%,.C%!28.....1|
000005b0 3a d5 23 46 25 2c c3 43 25 21 32 34 0d 04 c4 18 |:.#F%,.C%!24....|
000005c0 c9 32 3a d5 23 46 25 2c a4 61 28 61 25 2b 43 25 |.2:.#F%,.a(a%+C%|
000005d0 21 33 32 29 0d 04 ce 12 c9 33 3a d5 23 46 25 2c |!32).....3:.#F%,|
000005e0 c3 43 25 21 34 30 0d 04 d8 22 cb 3a d5 23 46 25 |.C%!40...".:.#F%|
000005f0 2c 22 2d 2d 2d 22 3a 43 25 2b 3d 43 25 21 34 3a |,"---":C%+=C%!4:|
00000600 ce 3a d9 23 46 25 3a e1 0d 05 0a 31 dd f2 63 ea |.:.#F%:....1..c.|
00000610 49 25 2c 43 25 2c 62 25 3a 49 25 3d 73 25 3a 43 |I%,C%,b%:I%=s%:C|
00000620 25 3d 61 25 3a 62 25 3d 30 3a c8 95 21 43 25 3e |%=a%:b%=0:..!C%>|
00000630 3d 30 3a c8 8e 21 43 25 ca 0d 05 46 1c c9 30 3a |=0:..!C%...F..0:|
00000640 43 25 21 32 38 3d a4 70 28 49 25 2c 62 25 29 3a |C%!28=.p(I%,b%):|
00000650 62 25 2b 3d 31 0d 05 5a 23 c9 31 3a 43 25 21 32 |b%+=1..Z#.1:C%!2|
00000660 34 3d a4 6a 28 49 25 2c 62 25 29 2d 62 25 3a 62 |4=.j(I%,b%)-b%:b|
00000670 25 2b 3d 43 25 21 32 30 0d 05 64 24 c9 32 3a 24 |%+=C%!20..d$.2:$|
00000680 28 61 25 2b 43 25 21 33 32 29 3d a4 6b 28 49 25 |(a%+C%!32)=.k(I%|
00000690 2c 62 25 2b 31 29 3a 62 25 2b 3d 32 0d 05 6e 1e |,b%+1):b%+=2..n.|
000006a0 c9 33 3a 43 25 21 34 30 3d a4 6c 28 49 25 2c 62 |.3:C%!40=.l(I%,b|
000006b0 25 2b 31 29 3a 62 25 2b 3d 32 0d 05 78 1e c9 34 |%+1):b%+=2..x..4|
000006c0 3a 43 25 21 32 38 3d a4 6d 28 49 25 2c 62 25 2b |:C%!28=.m(I%,b%+|
000006d0 31 29 3a 62 25 2b 3d 32 0d 05 82 1e cb 3a 43 25 |1):b%+=2.....:C%|
000006e0 2b 3d 43 25 21 34 3a ce 3a c8 99 34 38 2c 62 24 |+=C%!4:.:..48,b$|
000006f0 2c 37 38 38 3a e1 0d 05 aa 69 dd f2 6a ea 43 25 |,788:....i..j.C%|
00000700 2c 44 25 2c 53 24 2c 47 25 2c 50 25 2c 62 25 2c |,D%,S$,G%,P%,b%,|
00000710 59 25 2c 49 25 2c 41 25 2c 6a 25 2c 4c 25 3a c8 |Y%,I%,A%,j%,L%:.|
00000720 99 32 38 32 33 31 30 2c 2c 73 25 2c 37 32 2c 35 |.282310,,s%,72,5|
00000730 31 32 2c 51 25 3a 59 25 3d 51 25 21 34 2d 38 3a |12,Q%:Y%=Q%!4-8:|
00000740 62 25 3d 30 3a 6d 25 3d 30 3a 43 25 3d 61 25 3a |b%=0:m%=0:C%=a%:|
00000750 c8 95 21 43 25 3e 3d 30 3a c8 8e 21 43 25 ca 0d |..!C%>=0:..!C%..|
00000760 05 fa 92 c9 30 3a 50 25 3d 51 25 3a 5b 4f 50 54 |....0:P%=Q%:[OPT|
00000770 32 3a 45 51 55 44 20 43 25 21 32 38 20 80 34 3a |2:EQUD C%!28 .4:|
00000780 45 51 55 44 31 39 32 3a 45 51 55 44 38 3a 45 51 |EQUD192:EQUD8:EQ|
00000790 55 44 20 59 25 2d 34 34 3a 45 51 55 44 34 36 30 |UD Y%-44:EQUD460|
000007a0 3a 45 51 55 44 20 59 25 3a 45 51 55 44 20 62 25 |:EQUD Y%:EQUD b%|
000007b0 3a a4 62 28 61 25 2b 43 25 21 32 34 29 3a a4 62 |:.b(a%+C%!24):.b|
000007c0 28 61 25 2b 43 25 21 32 30 29 3a 45 51 55 44 30 |(a%+C%!20):EQUD0|
000007d0 3a 5d 3a c8 99 32 38 32 33 31 30 2c 2c 73 25 2c |:]:..282310,,s%,|
000007e0 31 2c 51 25 3a 59 25 2d 3d 35 32 3a 62 25 2b 3d |1,Q%:Y%-=52:b%+=|
000007f0 31 0d 06 86 d2 c9 31 3a 4e 25 3d 43 25 21 32 30 |1.....1:N%=C%!20|
00000800 3a 44 25 3d 43 25 21 32 34 3a e3 49 25 3d 30 b8 |:D%=C%!24:.I%=0.|
00000810 4e 25 2d 31 3a 50 25 3d 51 25 3a 5b 4f 50 54 32 |N%-1:P%=Q%:[OPT2|
00000820 3a 45 51 55 44 28 44 25 3d 49 25 29 80 34 3a 45 |:EQUD(D%=I%).4:E|
00000830 51 55 44 33 38 34 3a 45 51 55 44 38 3a 45 51 55 |QUD384:EQUD8:EQU|
00000840 44 20 59 25 2d 34 34 3a 45 51 55 44 34 36 30 3a |D Y%-44:EQUD460:|
00000850 45 51 55 44 20 59 25 3a 45 51 55 44 20 62 25 3a |EQUD Y%:EQUD b%:|
00000860 a4 62 28 61 25 2b 43 25 21 28 33 32 2b 49 25 2a |.b(a%+C%!(32+I%*|
00000870 38 29 29 3a 45 51 55 44 6d 25 3a a4 62 28 61 25 |8)):EQUDm%:.b(a%|
00000880 2b 43 25 21 28 32 38 2b 49 25 2a 38 29 29 3a 45 |+C%!(28+I%*8)):E|
00000890 51 55 44 30 3a 5d 3a c8 99 32 38 32 33 31 30 2c |QUD0:]:..282310,|
000008a0 2c 73 25 2c 31 2c 51 25 3a 59 25 2d 3d 34 38 3a |,s%,1,Q%:Y%-=48:|
000008b0 62 25 2b 3d 31 3a ed 3a 6d 25 2b 3d 31 3a 59 25 |b%+=1:.:m%+=1:Y%|
000008c0 2d 3d 34 0d 07 44 ee c9 32 3a 50 25 3d 51 25 3a |-=4..D..2:P%=Q%:|
000008d0 5b 4f 50 54 32 3a 45 51 55 44 30 3a 45 51 55 44 |[OPT2:EQUD0:EQUD|
000008e0 32 35 36 3a 45 51 55 44 38 3a 45 51 55 44 20 59 |256:EQUD8:EQUD Y|
000008f0 25 2d 31 31 32 3a 45 51 55 44 34 36 30 3a 45 51 |%-112:EQUD460:EQ|
00000900 55 44 20 59 25 2b 34 3a 45 51 55 44 20 62 25 3a |UD Y%+4:EQUD b%:|
00000910 a4 62 28 61 25 2b 43 25 21 32 34 29 3a 45 51 55 |.b(a%+C%!24):EQU|
00000920 44 20 61 25 2b 43 25 21 32 30 3a 5d 3a c8 99 32 |D a%+C%!20:]:..2|
00000930 38 32 33 31 30 2c 2c 73 25 2c 31 2c 51 25 3a 62 |82310,,s%,1,Q%:b|
00000940 25 2b 3d 31 3a 50 25 3d 51 25 3a 5b 4f 50 54 32 |%+=1:P%=Q%:[OPT2|
00000950 3a 45 51 55 44 30 3a 45 51 55 44 35 31 32 3a 45 |:EQUD0:EQUD512:E|
00000960 51 55 44 32 34 3a 45 51 55 44 20 59 25 2d 38 38 |QUD24:EQUD Y%-88|
00000970 3a 45 51 55 44 34 34 34 3a 45 51 55 44 20 59 25 |:EQUD444:EQUD Y%|
00000980 2d 34 30 3a 45 51 55 44 20 62 25 3a a4 62 28 61 |-40:EQUD b%:.b(a|
00000990 25 2b 43 25 21 32 34 29 3a 45 51 55 44 20 61 25 |%+C%!24):EQUD a%|
000009a0 2b 43 25 21 33 32 3a 45 51 55 44 20 43 25 21 33 |+C%!32:EQUD C%!3|
000009b0 36 0d 07 ee 40 a4 62 28 61 25 2b 43 25 21 32 38 |6...@.b(a%+C%!28|
000009c0 29 3a 45 51 55 44 2d 31 3a 45 51 55 44 2d 31 3a |):EQUD-1:EQUD-1:|
000009d0 5d 3a c8 99 32 38 32 33 31 30 2c 2c 73 25 2c 31 |]:..282310,,s%,1|
000009e0 2c 51 25 3a 62 25 2b 3d 31 3a 59 25 2d 3d 31 32 |,Q%:b%+=1:Y%-=12|
000009f0 30 0d 08 34 e8 c9 33 3a 50 25 3d 51 25 3a 5b 4f |0..4..3:P%=Q%:[O|
00000a00 50 54 32 3a 45 51 55 44 33 3a 45 51 55 44 33 32 |PT2:EQUD3:EQUD32|
00000a10 30 3a 45 51 55 44 38 3a 45 51 55 44 20 59 25 2d |0:EQUD8:EQUD Y%-|
00000a20 34 34 3a 45 51 55 44 33 30 30 3a 45 51 55 44 20 |44:EQUD300:EQUD |
00000a30 59 25 3a 45 51 55 44 20 62 25 3a a4 62 28 61 25 |Y%:EQUD b%:.b(a%|
00000a40 2b 43 25 21 32 34 29 3a 45 51 55 44 20 61 25 2b |+C%!24):EQUD a%+|
00000a50 43 25 21 32 30 3a 5d 3a c8 99 32 38 32 33 31 30 |C%!20:]:..282310|
00000a60 2c 2c 73 25 2c 31 2c 51 25 3a 62 25 2b 3d 31 3a |,,s%,1,Q%:b%+=1:|
00000a70 50 25 3d 51 25 3a 5b 4f 50 54 32 3a 45 51 55 44 |P%=Q%:[OPT2:EQUD|
00000a80 35 32 38 3a 45 51 55 44 38 33 32 3a 45 51 55 44 |528:EQUD832:EQUD|
00000a90 33 30 30 3a 45 51 55 44 20 59 25 2d 34 34 3a 45 |300:EQUD Y%-44:E|
00000aa0 51 55 44 34 36 30 3a 45 51 55 44 20 59 25 3a 45 |QUD460:EQUD Y%:E|
00000ab0 51 55 44 20 62 25 3a a4 62 28 61 25 2b 43 25 21 |QUD b%:.b(a%+C%!|
00000ac0 32 34 29 3a 45 51 55 44 20 43 25 21 32 38 3a 45 |24):EQUD C%!28:E|
00000ad0 51 55 44 20 43 25 21 33 32 0d 08 de 5b 45 51 55 |QUD C%!32...[EQU|
00000ae0 44 20 43 25 21 33 36 3a 45 51 55 44 20 43 25 21 |D C%!36:EQUD C%!|
00000af0 34 30 3a 45 51 55 44 20 43 25 21 34 34 3a 45 51 |40:EQUD C%!44:EQ|
00000b00 55 44 2d 31 3a 45 51 55 44 2d 31 3a 45 51 55 44 |UD-1:EQUD-1:EQUD|
00000b10 31 31 36 3a 5d 3a c8 99 32 38 32 33 31 30 2c 2c |116:]:..282310,,|
00000b20 73 25 2c 31 2c 51 25 3a 62 25 2b 3d 31 3a 59 25 |s%,1,Q%:b%+=1:Y%|
00000b30 2d 3d 35 32 0d 09 38 47 c9 34 3a 41 25 3d 61 25 |-=52..8G.4:A%=a%|
00000b40 2b 43 25 21 33 32 3a 6a 25 3d 30 3a 4c 25 3d 30 |+C%!32:j%=0:L%=0|
00000b50 3a f5 3a c8 95 41 25 3f 4c 25 3c 3e 34 34 80 41 |:.:..A%?L%<>44.A|
00000b60 25 3f 4c 25 3e 33 31 3a 4c 25 2b 3d 31 3a ce 3a |%?L%>31:L%+=1:.:|
00000b70 e7 4c 25 3e 6a 25 6a 25 3d 4c 25 0d 09 6a ea 41 |.L%>j%j%=L%..j.A|
00000b80 25 2b 3d 4c 25 2b 31 3a 4c 25 3d 30 3a fd 41 25 |%+=L%+1:L%=0:.A%|
00000b90 3f 28 4c 25 2d 31 29 3c 33 32 3a 50 25 3d 51 25 |?(L%-1)<32:P%=Q%|
00000ba0 3a 5b 4f 50 54 32 3a 45 51 55 44 33 3a 45 51 55 |:[OPT2:EQUD3:EQU|
00000bb0 44 33 32 30 3a 45 51 55 44 38 3a 45 51 55 44 20 |D320:EQUD8:EQUD |
00000bc0 59 25 2d 34 34 3a 45 51 55 44 32 30 30 3a 45 51 |Y%-44:EQUD200:EQ|
00000bd0 55 44 20 59 25 3a 45 51 55 44 20 62 25 3a a4 62 |UD Y%:EQUD b%:.b|
00000be0 28 61 25 2b 43 25 21 32 34 29 3a 45 51 55 44 20 |(a%+C%!24):EQUD |
00000bf0 61 25 2b 43 25 21 32 30 3a 5d 3a c8 99 32 38 32 |a%+C%!20:]:..282|
00000c00 33 31 30 2c 2c 73 25 2c 31 2c 51 25 3a 62 25 2b |310,,s%,1,Q%:b%+|
00000c10 3d 31 3a 50 25 3d 51 25 3a 5b 4f 50 54 32 3a 45 |=1:P%=Q%:[OPT2:E|
00000c20 51 55 44 36 34 3a 45 51 55 44 38 39 36 3a 45 51 |QUD64:EQUD896:EQ|
00000c30 55 44 32 30 30 3a 45 51 55 44 20 59 25 2d 34 34 |UD200:EQUD Y%-44|
00000c40 3a 45 51 55 44 34 36 30 3a 45 51 55 44 20 59 25 |:EQUD460:EQUD Y%|
00000c50 3a 45 51 55 44 20 62 25 3a a4 62 28 61 25 2b 43 |:EQUD b%:.b(a%+C|
00000c60 25 21 32 34 29 0d 0a 1e 7d 45 51 55 44 20 61 25 |%!24)...}EQUD a%|
00000c70 2b 43 25 21 33 32 3a 45 51 55 44 20 61 25 2b 43 |+C%!32:EQUD a%+C|
00000c80 25 21 32 30 3a 45 51 55 44 20 51 25 3a 45 51 55 |%!20:EQUD Q%:EQU|
00000c90 44 20 6a 25 2b 31 3a 45 51 55 44 2d 31 3a 45 51 |D j%+1:EQUD-1:EQ|
00000ca0 55 44 30 3a 45 51 55 44 2d 31 3a 45 51 55 44 2d |UD0:EQUD-1:EQUD-|
00000cb0 31 3a 5d 3a c8 99 32 38 32 33 31 30 2c 2c 73 25 |1:]:..282310,,s%|
00000cc0 2c 31 2c 51 25 3a f2 6e 28 73 25 2c 62 25 2c 43 |,1,Q%:.n(s%,b%,C|
00000cd0 25 21 32 38 29 3a 62 25 2b 3d 31 3a 59 25 2d 3d |%!28):b%+=1:Y%-=|
00000ce0 35 32 0d 0a 8c 20 cb 3a 43 25 2b 3d 43 25 21 34 |52... .:C%+=C%!4|
00000cf0 3a ce 3a e7 59 25 3e 2d 33 31 32 59 25 3d 2d 33 |:.:.Y%>-312Y%=-3|
00000d00 31 32 0d 0a aa 17 f2 6f 28 73 25 2c 30 2c 59 25 |12.....o(s%,0,Y%|
00000d10 2c 34 36 38 2c 30 29 3a e1 0d 0a be 3f dd a4 62 |,468,0):....?..b|
00000d20 28 41 25 29 ea 4c 25 3a c8 95 41 25 3f 4c 25 3e |(A%).L%:..A%?L%>|
00000d30 33 31 3a 4c 25 2b 3d 31 3a ce 3a 5b 4f 50 54 32 |31:L%+=1:.:[OPT2|
00000d40 3a 45 51 55 44 20 41 25 3a 45 51 55 44 20 4c 25 |:EQUD A%:EQUD L%|
00000d50 2b 31 3a 5d 3a 3d 22 22 0d 0b 04 56 dd f2 69 ea |+1:]:=""...V..i.|
00000d60 54 25 2c 43 25 2c 44 25 2c 53 24 2c 63 25 2c 4c |T%,C%,D%,S$,c%,L|
00000d70 25 2c 41 25 2c 44 24 3a c8 99 34 38 2c 2c 37 38 |%,A%,D$:..48,,78|
00000d80 34 3a 63 25 3d 2d 31 3a f5 3a c8 99 34 38 2c 31 |4:c%=-1:.:..48,1|
00000d90 2c 37 38 34 b8 53 24 2c 43 25 2c 44 25 3a e7 43 |,784.S$,C%,D%:.C|
00000da0 25 3d 30 e7 53 24 3d 62 24 63 25 3d 44 25 0d 0b |%=0.S$=b$c%=D%..|
00000db0 36 29 fd 43 25 3c 3e 30 84 63 25 3e 3d 30 3a 44 |6).C%<>0.c%>=0:D|
00000dc0 24 3d 22 4e 6f 20 64 65 73 63 72 69 70 74 69 6f |$="No descriptio|
00000dd0 6e 22 3a c8 8e b9 ca 0d 0b 54 1c c9 63 25 3e 30 |n":......T..c%>0|
00000de0 3a e7 21 63 25 61 25 3d 63 25 2b 21 63 25 8b 61 |:.!c%a%=c%+!c%.a|
00000df0 25 3d 30 0d 0b 68 19 e7 63 25 21 34 3e 30 44 24 |%=0..h..c%!4>0D$|
00000e00 3d a4 61 28 63 25 2b 63 25 21 34 29 0d 0b 72 0e |=.a(c%+c%!4)..r.|
00000e10 c9 63 25 3d 30 3a 61 25 3d 30 0d 0b 90 67 c9 63 |.c%=0:a%=0...g.c|
00000e20 25 3c 30 3a c8 99 31 33 31 30 38 30 2c 31 37 2c |%<0:..131080,17,|
00000e30 22 46 69 6c 65 72 3a 55 74 69 6c 69 74 69 65 73 |"Filer:Utilities|
00000e40 2e 22 2b 62 24 2b 22 2e 21 43 68 6f 69 63 65 73 |."+b$+".!Choices|
00000e50 22 b8 54 25 2c 2c 2c 2c 4c 25 3a e7 54 25 3c 3e |".T%,,,,L%:.T%<>|
00000e60 31 85 a2 31 2c 22 4e 6f 20 64 65 66 61 75 6c 74 |1..1,"No default|
00000e70 20 63 68 6f 69 63 65 73 20 66 6f 72 20 22 2b 62 | choices for "+b|
00000e80 24 0d 0b a4 30 c8 99 32 36 32 33 38 30 2c 66 25 |$...0..262380,f%|
00000e90 2d 33 32 37 36 38 2b 4c 25 2c 2d 31 b8 41 25 3a |-32768+L%,-1.A%:|
00000ea0 e7 41 25 3e 3d 66 25 2d 33 32 37 36 38 2b 4c 25 |.A%>=f%-32768+L%|
00000eb0 8c 0d 0b b8 52 c8 99 38 2c 32 35 35 2c 22 46 69 |....R..8,255,"Fi|
00000ec0 6c 65 72 3a 55 74 69 6c 69 74 69 65 73 2e 22 2b |ler:Utilities."+|
00000ed0 62 24 2b 22 2e 21 43 68 6f 69 63 65 73 22 2c 66 |b$+".!Choices",f|
00000ee0 25 3a c8 99 22 46 69 6c 65 72 5f 4c 6f 61 64 43 |%:.."Filer_LoadC|
00000ef0 68 6f 69 63 65 73 22 2c 62 24 2c 66 25 3a 61 25 |hoices",b$,f%:a%|
00000f00 3d 66 25 0d 0b e0 1f cc 3a 85 a2 31 2c 22 4e 6f |=f%.....:..1,"No|
00000f10 20 72 6f 6f 6d 20 66 6f 72 20 63 68 6f 69 63 65 | room for choice|
00000f20 73 22 0d 0b f4 3a cd 3a 46 25 3d 8e 28 22 46 69 |s"...:.:F%=.("Fi|
00000f30 6c 65 72 3a 55 74 69 6c 69 74 69 65 73 2e 22 2b |ler:Utilities."+|
00000f40 62 24 2b 22 2e 21 44 65 73 63 22 29 3a e7 46 25 |b$+".!Desc"):.F%|
00000f50 44 24 3d be 23 46 25 3a d9 23 46 25 0d 0c 08 15 |D$=.#F%:.#F%....|
00000f60 cb 3a f2 64 28 73 25 2c 35 31 33 2c 44 24 29 3a |.:.d(s%,513,D$):|
00000f70 e1 0d 0c 3a 25 dd f2 62 28 4e 24 29 3a ee 85 85 |...:%..b(N$):...|
00000f80 a2 9f 2c f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 |..,.$+" at line |
00000f90 22 2b c3 9e 3a e0 0d 00 28 d9 f2 71 3a f2 72 3a |"+..:...(..q:.r:|
00000fa0 f2 65 3a 73 24 3d 4e 24 3a de 6e 25 34 2c 6f 25 |.e:s$=N$:.n%4,o%|
00000fb0 34 2c 65 25 31 36 2c 70 25 32 34 3a de 51 25 35 |4,e%16,p%24:.Q%5|
00000fc0 31 32 3a 21 6e 25 3d 30 3a 21 6f 25 3d 30 3a 41 |12:!n%=0:!o%=0:A|
00000fd0 6e 63 65 73 74 6f 72 49 44 25 3d 70 25 2b 30 3a |ncestorID%=p%+0:|
00000fe0 41 6e 63 65 73 74 6f 72 43 6f 6d 70 25 3d 70 25 |AncestorComp%=p%|
00000ff0 2b 34 3a 50 61 72 65 6e 74 49 44 25 3d 70 25 2b |+4:ParentID%=p%+|
00001000 38 3a 50 61 72 65 6e 74 43 6f 6d 70 25 3d 70 25 |8:ParentComp%=p%|
00001010 2b 31 32 3a 6b 25 3d 70 25 2b 31 36 3a 53 65 6c |+12:k%=p%+16:Sel|
00001020 66 43 6f 6d 70 25 3d 70 25 2b 32 30 3a c8 99 32 |fComp%=p%+20:..2|
00001030 38 32 33 31 39 2c 30 2c 33 31 30 2c 6e 25 2c 6f |82319,0,310,n%,o|
00001040 25 2c 22 3c 22 2b 73 24 2b 22 24 44 69 72 3e 22 |%,"<"+s$+"$Dir>"|
00001050 2c 65 25 2c 70 25 b8 2c 71 25 2c 53 70 72 69 74 |,e%,p%.,q%,Sprit|
00001060 65 73 25 3a 68 25 3d a3 3a 64 25 3d 30 3a e1 0d |es%:h%=.:d%=0:..|
00001070 00 e6 26 dd f2 61 3a c8 95 ac 68 25 3a c8 99 32 |..&..a:...h%:..2|
00001080 36 32 33 36 39 2c 2c 51 25 2c 64 25 b8 52 25 3a |62369,,Q%,d%.R%:|
00001090 c8 8e 52 25 ca 0d 01 18 09 c9 30 3a f2 74 0d 01 |..R%......0:.t..|
000010a0 2c 09 c9 31 3a f2 75 0d 01 36 10 c9 32 3a f2 76 |,..1:.u..6..2:.v|
000010b0 28 21 51 25 2c b9 29 0d 01 40 0e c9 33 3a f2 77 |(!Q%,.)..@..3:.w|
000010c0 28 21 51 25 29 0d 01 4a 09 c9 36 3a f2 78 0d 01 |(!Q%)..J..6:.x..|
000010d0 54 09 c9 37 3a f2 79 0d 01 5e 09 c9 38 3a f2 7a |T..7:.y..^..8:.z|
000010e0 0d 01 68 09 c9 39 3a f2 42 0d 01 72 10 c9 31 37 |..h..9:.B..r..17|
000010f0 2c 31 38 2c 31 39 3a f2 73 0d 01 86 10 c9 35 31 |,18,19:.s.....51|
00001100 32 3a c8 8e 51 25 21 38 ca 0d 01 90 0e c9 35 33 |2:..Q%!8......53|
00001110 35 33 36 30 3a f2 41 0d 01 a4 19 c9 32 38 32 33 |5360:.A.....2823|
00001120 30 35 3a f2 68 28 a4 61 28 51 25 2b 31 36 29 29 |05:.h(.a(Q%+16))|
00001130 0d 01 ae 0e c9 35 33 35 31 38 35 3a f2 53 0d 01 |.....535185:.S..|
00001140 b8 0d 7f f2 43 28 51 25 21 38 29 0d 01 c2 05 cb |....C(Q%!8).....|
00001150 0d 01 cc 09 cb 3a ce 3a e1 0d 01 e0 0f dd f2 74 |.....:.:.......t|
00001160 3a 64 25 3d 2d 31 3a e1 0d 02 08 33 dd f2 75 3a |:d%=-1:....3..u:|
00001170 c8 99 32 36 32 33 34 34 2c 2c 51 25 b8 4d 25 3a |..262344,,Q%.M%:|
00001180 c8 95 4d 25 3a f2 50 3a c8 99 32 36 32 33 34 36 |..M%:.P:..262346|
00001190 2c 2c 51 25 b8 4d 25 3a ce 3a e1 0d 02 58 29 dd |,,Q%.M%:.:...X).|
000011a0 f2 76 28 21 51 25 2c 50 25 29 3a e7 ac 50 25 c8 |.v(!Q%,P%):..P%.|
000011b0 99 32 36 32 33 34 37 2c 2c 51 25 3a 51 25 21 32 |.262347,,Q%:Q%!2|
000011c0 38 3d 2d 31 0d 02 76 12 c8 99 32 36 32 33 34 31 |8=-1..v...262341|
000011d0 2c 2c 51 25 3a e1 0d 02 8a 1b dd f2 77 28 21 51 |,,Q%:.......w(!Q|
000011e0 25 29 3a c8 99 32 36 32 33 34 32 2c 2c 51 25 3a |%):..262342,,Q%:|
000011f0 e1 0d 02 b2 09 dd f2 78 3a e1 0d 02 d0 09 dd f2 |.......x:.......|
00001200 79 3a e1 0d 02 ee 26 dd f2 7a 3a e7 28 51 25 21 |y:....&..z:.(Q%!|
00001210 32 34 80 34 36 33 29 3d 34 36 30 c8 99 32 36 32 |24.463)=460..262|
00001220 33 36 34 2c 51 25 21 32 34 0d 03 03 05 e1 0d 03 |364,Q%!24.......|
00001230 16 09 dd f2 42 3a e1 0d 03 34 1c dd f2 41 3a c8 |....B:...4...A:.|
00001240 99 32 38 32 33 31 30 2c 2c 21 6b 25 2c 31 2c 61 |.282310,,!k%,1,a|
00001250 24 3a e1 0d 03 98 0e dd f2 53 3a 68 25 3d b9 3a |$:.......S:h%=.:|
00001260 e1 0d 03 de 11 dd f2 43 28 45 76 65 6e 74 25 29 |.......C(Event%)|
00001270 3a e1 0d 03 fc 09 dd f2 50 3a e1 0d 04 1a 2c dd |:.......P:....,.|
00001280 a4 6c 28 62 25 2c 47 25 29 ea 4e 25 3a c8 99 32 |.l(b%,G%).N%:..2|
00001290 38 32 33 31 30 2c 2c 62 25 2c 38 33 33 2c 47 25 |82310,,b%,833,G%|
000012a0 b8 4e 25 3a 3d 4e 25 0d 05 fa 2a dd f2 64 28 62 |.N%:=N%...*..d(b|
000012b0 25 2c 47 25 2c 54 24 29 3a c8 99 32 38 32 33 31 |%,G%,T$):..28231|
000012c0 30 2c 2c 62 25 2c 34 34 38 2c 47 25 2c 54 24 3a |0,,b%,448,G%,T$:|
000012d0 e1 0d 06 0e 37 dd a4 6b 28 62 25 2c 47 25 29 ea |....7..k(b%,G%).|
000012e0 54 24 3a c8 99 32 38 32 33 31 30 2c 2c 62 25 2c |T$:..282310,,b%,|
000012f0 35 31 33 2c 47 25 2c 51 25 2c 32 35 36 b8 2c 2c |513,G%,Q%,256.,,|
00001300 2c 2c 54 24 3a 3d 54 24 0d 07 3a 2c dd f2 6c 28 |,,T$:=T$..:,..l(|
00001310 62 25 2c 47 25 2c 53 25 29 3a c8 99 32 38 32 33 |b%,G%,S%):..2823|
00001320 31 30 2c 2c 62 25 2c 31 39 36 2c 47 25 2c 53 25 |10,,b%,196,G%,S%|
00001330 80 31 3a e1 0d 07 4e 2a dd a4 70 28 62 25 2c 47 |.1:...N*..p(b%,G|
00001340 25 29 3a c8 99 32 38 32 33 31 30 2c 2c 62 25 2c |%):..282310,,b%,|
00001350 31 39 37 2c 47 25 b8 47 25 3a 3d 2d 47 25 0d 07 |197,G%.G%:=-G%..|
00001360 b2 2a dd a4 6a 28 62 25 2c 47 25 29 3a c8 99 32 |.*..j(b%,G%):..2|
00001370 38 32 33 31 30 2c 2c 62 25 2c 33 38 39 2c 47 25 |82310,,b%,389,G%|
00001380 b8 2c 47 25 3a 3d 47 25 0d 07 da 2b dd f2 6e 28 |.,G%:=G%...+..n(|
00001390 62 25 2c 47 25 2c 53 25 29 3a c8 99 32 38 32 33 |b%,G%,S%):..2823|
000013a0 31 30 2c 31 2c 62 25 2c 38 39 38 2c 47 25 2c 53 |10,1,b%,898,G%,S|
000013b0 25 3a e1 0d 07 ee 2a dd a4 6d 28 62 25 2c 47 25 |%:....*..m(b%,G%|
000013c0 29 3a c8 99 32 38 32 33 31 30 2c 31 2c 62 25 2c |):..282310,1,b%,|
000013d0 38 39 39 2c 47 25 b8 47 25 3a 3d 47 25 0d 08 ac |899,G%.G%:=G%...|
000013e0 67 dd f2 6d 28 62 25 2c 47 25 2c 53 25 29 ea 46 |g..m(b%,G%,S%).F|
000013f0 25 3a c8 99 32 38 32 33 31 30 2c 2c 62 25 2c 36 |%:..282310,,b%,6|
00001400 34 2c 47 25 2c 46 25 3a 46 25 3d 46 25 80 32 31 |4,G%,F%:F%=F%.21|
00001410 34 37 34 38 33 36 34 37 84 28 53 25 3c 3e 30 29 |47483647.(S%<>0)|
00001420 80 2d 32 31 34 37 34 38 33 36 34 38 3a c8 99 32 |.-2147483648:..2|
00001430 38 32 33 31 30 2c 2c 62 25 2c 36 35 2c 47 25 2c |82310,,b%,65,G%,|
00001440 46 25 3a e1 0d 08 d4 34 dd f2 6f 28 62 25 2c 21 |F%:....4..o(b%,!|
00001450 51 25 2c 51 25 21 34 2c 51 25 21 38 2c 51 25 21 |Q%,Q%!4,Q%!8,Q%!|
00001460 31 32 29 3a c8 99 32 38 32 33 31 30 2c 2c 62 25 |12):..282310,,b%|
00001470 2c 31 35 2c 51 25 3a e1 0d 0a b4 21 dd a4 68 28 |,15,Q%:....!..h(|
00001480 62 25 29 3a c8 99 32 38 32 33 31 30 2c 2c 62 25 |b%):..282310,,b%|
00001490 2c 30 b8 62 25 3a 3d 62 25 0d 0d 16 2c dd a4 61 |,0.b%:=b%...,..a|
000014a0 28 41 25 29 ea 53 24 3a c8 95 3f 41 25 3e 33 31 |(A%).S$:..?A%>31|
000014b0 3a 53 24 2b 3d bd 3f 41 25 3a 41 25 2b 3d 31 3a |:S$+=.?A%:A%+=1:|
000014c0 ce 3a 3d 53 24 0d 0d 7a 1b dd a4 66 28 53 24 29 |.:=S$..z...f(S$)|
000014d0 ea 49 25 2c 54 25 3a e7 53 24 3d 22 22 3d 22 22 |.I%,T%:.S$=""=""|
000014e0 0d 0d 84 3b c8 99 32 37 34 35 32 30 2c 2d 31 b8 |...;..274520,-1.|
000014f0 54 25 3a e3 49 25 3d 31 b8 a9 53 24 3a c1 53 24 |T%:.I%=1..S$:.S$|
00001500 2c 49 25 2c 31 29 3d bd 54 25 3f 97 c1 53 24 2c |,I%,1)=.T%?..S$,|
00001510 49 25 2c 31 29 3a ed 3a 3d 53 24 0d 0e e2 37 dd |I%,1):.:=S$...7.|
00001520 a4 67 28 56 24 29 ea 4e 25 3a c8 99 31 33 31 31 |.g(V$).N%:..1311|
00001530 30 37 2c 56 24 2c 51 25 2c 32 35 35 2c 2c 33 b8 |07,V$,Q%,255,,3.|
00001540 2c 2c 4e 25 3a 51 25 3f 4e 25 3d 31 33 3a 3d 24 |,,N%:Q%?N%=13:=$|
00001550 51 25 0d 0f aa 09 dd f2 72 3a e1 0d 13 7e 09 dd |Q%......r:...~..|
00001560 f2 65 3a e1 0d 1c 66 09 dd f2 71 3a e1 0d ff |.e:...f...q:...|
0000156f 
.