Home » Personal collection » Acorn ADFS disks » Archimedes » Sibelius_6_Disk_1B.ADF » !InstallS6/!RunImage

!InstallS6/!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 » Personal collection » Acorn ADFS disks » Archimedes » Sibelius_6_Disk_1B.ADF
Filename: !InstallS6/!RunImage
Read OK:
File size: 3D54 bytes
Load address: FFFFFB43
Exec address: 134B80F6
File contents
   10END=PAGE+30000
   20REM FNFNFNFN *ADFS
   30DIM wn% 1024,icons% 1024,temp 1500,temp2 1000
   40PROCvars
   50E%=&4B534154:SYS"Wimp_Initialise",200,E%,"Sibelius Installer"
   60PROCreadscreenmode
   70SYS"Wimp_OpenTemplate",,"<SibInstall$Dir>.Templates"
   80SYS"Wimp_LoadTemplate",,temp+4,temp2,temp2+1000,-1,"Install"+CHR$0+"9012",0
   90SYS"Wimp_CreateWindow",,temp+4 TO win%
  100!temp=win%
  110temp!28 = -1
  120SYS"Wimp_CloseTemplate"
  130PROCnew
  140PROCupdateicons
  150SYS"Wimp_OpenWindow",,temp
  160IF NOT riscos3% SYS"Wimp_SetCaretPosition",win%,9,,,-1,0
  170REPEAT
  180SYS"Wimp_Poll",%00000011100000110001,wn% TO reason,wn%
  190CASE reason OF
  200WHEN 1: IF !wn%=!temp PROCredrawwindow
  210WHEN 2: SYS"Wimp_OpenWindow",,wn%
  220WHEN 3: SYS"Wimp_CloseWindow",,wn%:IF !wn%=!temp END
  230WHEN 6: PROCmouseclick
  240WHEN 7: PROCdragfinished
  250WHEN 8: SYS"Wimp_ProcessKey",wn%!24
  260WHEN 17,18,19 : PROCmessage
  270ENDCASE
  280UNTIL 0
  290DEFPROCreadscreenmode
  300!wn%=4
  310wn%!4=5
  320wn%!8=11
  330wn%!12=12
  340wn%!16=-1
  350SYS"OS_ReadVduVariables",wn%,wn%+20
  360ScreenX=(wn%!28)<<(wn%!20)
  370ScreenY=(wn%!32)<<(wn%!24)
  380ENDPROC
  390DEF PROCmouseclick
  400IF win%<>wn%!12 ENDPROC
  410iconnum%=wn%!16
  420winx%=!wn%
  430winy%=wn%!4
  440butt%=wn%!8
  450IF butt%=2 ENDPROC
  460IF iconnum%=16 PROCok
  470IF iconnum%=12 PROCstartdrag
  480ENDPROC
  490DEFPROCr(C%,g%,h%):LOCALi%,j%:CASEg%OF
  500WHEN-2:CASEh%OF
  510WHENea%:CASEC%OF
  520WHEN2:PROCj
  530OTHERWISE:PROCf
  540ENDCASE
  550ENDCASE
  560WHENo%:CASEC%OF
  570WHEN4:X%=NOTX%
  580WHEN2:SYS262356,,ra%,a%!0-96,a%!4+22
  590WHEN1:SYS262354,-1
  600ENDCASE
  610WHENm%:i%=VAL(FNb(m%,0)):j%=VAL(FNb(m%,1)):CASEh%OF
  620WHEN2:i%+=1
  630WHEN3:i%-=1
  640WHEN4:j%+=1
  650WHEN5:j%-=1
  660ENDCASE
  670PROCe(i%,j%):IFs%PROCc
  680ENDCASE
  690ENDPROC
  700DEFPROCt:CASEa%!0OF
  710WHEN2:B%=NOTB%:PROCb(d%,2,B%)
  720WHEN3:t%=NOTt%:PROCb(d%,3,t%)
  730WHEN4:PROCk
  740ENDCASE
  750SYS262351,,a%:IF(a%!8AND1)PROCj
  760ENDPROC
  770DEFPROCj:SYS262356,,ra%,a%!0-96,44*7-12:ENDPROC
  780DEFPROCk:PROCl:ENDPROC
  790DEFPROCu:CASEa%!16OF
  800WHEN0:PROCk
  810WHEN10:BPUT#a%!20,"/"+p$
  820WHEN1282:PROCy(a%!32,a%!36)
  830WHEN262337:PROCh:IFs%THEN
  840PROCg:PROCi
  850ENDIF
  860ENDCASE
  870ENDPROC
  880DEFPROCy(g%,h%):CASEg%OF
  890WHEN-2:CASEh%OF
  900WHENea%:PROCm(FNa("HLPICN"))
  910ENDCASE
  920WHENo%:PROCm(FNa("HLPWIN"))
  930ENDCASE
  940ENDPROC
  950DEFPROCf:IFA%=FALSEPROCi
  960IFA%THEN
  970a%!0=o%:SYS262347,,a%:a%!28=-1:SYS262341,,a%:s%=TRUE
  980ENDIF
  990ENDPROC
 1000DEFPROCq(g%):CASEg%OF
 1010WHENo%:PROCz
 1020ENDCASE
 1030ENDPROC
 1040DEFPROCz:LOCALn%,N%,O%,P%,Q%,u%:SYS262344,,a%TOn%:u%=-200*(p%!0/p%!8)+200:WHILEn%:SYS46,308,r%,"Sibelius",a%!4+u%-a%!20,a%!16+u%-a%!24,0,p%:SYS262346,,a%TOn%:ENDWHILE:ENDPROC
 1050DEFPROCe(i%,j%):IFi%>999i%=999
 1060IFi%<1i%=1
 1070IFj%>999j%=999
 1080IFj%<1j%=1
 1090IF(i%/j%)<1j%=i%
 1100p%!0=i%:p%!4=i%:p%!8=j%:p%!12=j%:PROCd(m%,0,STR$(i%)):PROCd(m%,1,STR$(j%)):PROCn(m%,0):PROCn(m%,1):ENDPROC
 1110DEFPROCc:LOCALb%,c%,D%,n%,x%,y%,C%,u%,n%,f%,R%:f%=a%+256:SYS262355,,f%:IFf%!0<>-1ANDf%!16<>-1R%=f%!16AND65535ELSER%=0
 1120D%=R%>0:IFD%ANDt%THEN
 1130b%=f%!8:c%=f%!12+R%DIV2:SYS262347,,f%:b%+=f%!4-f%!20:c%+=f%!16-f%!24
 1140ENDIF
 1150IFb%<-1000ORb%>F%+1000ORc%<-1000ORc%>G%+1000D%=FALSE
 1160SYS262351,,f%:x%=f%!0:y%=f%!4:C%=f%!8AND5:IFNOTD%ORNOTt%ORC%<>0THEN
 1170b%=x%:c%=y%
 1180ENDIF
 1190PROCA:SYS46,272,r%,"Sibelius",0,b%-200,c%-200,b%+200,c%+200:a%!0=o%:a%!4=0:a%!8=0:a%!12=400:a%!16=400:SYS262345,,a%TOn%:WHILEn%:a%!28-=b%-200:a%!32-=c%-200:a%!36-=b%-199:a%!40-=c%-199:IFa%!28>399a%!28=399ELSEIFa%!28<0a%!28=0
 1200IFa%!32>399a%!32=399ELSEIFa%!32<0a%!32=0
 1210IFa%!36>399a%!36=399ELSEIFa%!36<0a%!36=0
 1220IFa%!40>399a%!40=399ELSEIFa%!40<0a%!40=0
 1230SYS46,316,r%,"Sibelius"TON%,O%,P%,Q%:SYS262374,12:VDU24,a%!28;a%!32;a%!36;a%!40;
 1240RECTANGLEFILLka%-(b%-200),na%-(c%-200),397,395:SYS46,N%,O%,P%,Q%:SYS262346,,a%TOn%:ENDWHILE:SYS46,316,r%,"Sibelius"TON%,O%,P%,Q%:SYS262374,7:IFb%+200>F%RECTANGLEFILLF%-b%+200,0,200,400
 1250IFb%-200<0RECTANGLEFILL0,0,200-b%-v%,400
 1260IFc%-200<0RECTANGLEFILL0,0,400,200-c%-w%
 1270IFc%+200>G%RECTANGLEFILL0,G%-c%+200,400,200
 1280IFX%OR(t%ANDD%)THEN
 1290SYS262374,11:LINEx%-b%+192,y%-c%+200,x%-b%+208,y%-c%+200:LINEx%-b%+200,y%-c%+192,x%-b%+200,y%-c%+208
 1300ENDIF
 1310SYS46,N%,O%,P%,Q%:a%!0=o%:a%!4=0:a%!8=0:a%!12=400:a%!16=400:SYS262345,,a%TOn%:u%=-200*(p%!0/p%!8)+200:WHILEn%:SYS46,308,r%,"Sibelius",a%!4+u%-a%!20,a%!16+u%-a%!24,0,p%:SYS262346,,a%TOn%:ENDWHILE:ENDPROC
 1320DEFFNg(f$,sa%):LOCALH%:SYS262363,,a%,K%,W%+V%,-1,LEFT$(f$+STRING$(12,CHR$0)),0TO,,K%:a%?35=sa%:SYS262337,,a%TOH%:=H%
 1330DEFPROCh:LOCALta%,ua%:SYS53,MODE,4TO,,ta%:SYS53,MODE,5TO,,ua%:SYS53,MODE,11TO,,F%:SYS53,MODE,12TO,,G%:SYS53,MODE,9TO,,`%:F%=(F%+1)<<ta%:G%=(G%+1)<<ua%:v%=2^ta%:w%=2^ua%:`%=2^`%:ENDPROC
 1340DEFPROCA:a%!0=o%:SYS262348,,a%:ka%=a%!4:la%=a%!12:ma%=a%!16:na%=a%!8:ENDPROC
 1350DEFPROCs(z%,g%,h%):LOCALb%,c%:CASEg%OF
 1360WHENm%:CASEz%OF
 1370WHEN398,399,13:CASEh%OF
 1380WHEN0,1:IFz%=13PROCe(VAL(FNb(m%,0)),VAL(FNb(m%,1)))
 1390SYS262354,m%,1-h%,,,-1,LEN(FNb(m%,1-h%))
 1400ENDCASE
 1410OTHERWISESYS262364,z%
 1420ENDCASE
 1430WHEN-1:SYS262351,,a%:b%=a%!0:c%=a%!4:CASEz%OF
 1440WHEN396:b%-=v%
 1450WHEN397:b%+=v%
 1460WHEN398:c%-=w%
 1470WHEN399:c%+=w%
 1480WHEN412:b%-=10*v%
 1490WHEN413:b%+=10*v%
 1500WHEN414:c%-=10*w%
 1510WHEN415:c%+=10*w%
 1520OTHERWISESYS262364,z%
 1530ENDCASE
 1540IFB%MOUSETOb%,c%
 1550OTHERWISESYS262364,z%
 1560ENDCASE
 1570ENDPROC
 1580DEFFNd(d$,g$,r$,s$,t$):LOCALva%,wa%:SYS398594,ga%,d$,L%,ha%,g$,r$,s$,t$TO,,,va%;wa%:IF(wa%AND1)$L%=d$ELSEL%?va%=13
 1590=$L%
 1600DEFFNa(d$)=FNd(d$,"","","","")
 1610DEFFNj(d$,g$)=FNd(d$,g$,"","","")
 1620DEFFNe(m$):LOCALxa%,ya%:SYS262336,200,1263747412,m$TOxa%,ya%:IFxa%<200ERROR0,"WIMP is too old to initialise '"+m$+"'."
 1630=ya%
 1640DEFFNf(u$):LOCALza%:a%!0=-1:a%!4=0:a%!8=0:a%!12=68:a%!16=68:a%!20=8194:$(a%+24)=u$:SYS262338,,a%TOza%:=za%
 1650DEFFNh(h$,Aa%):LOCALi$,j$,Ba%,b$,S%,T%:IFLEN(h$)>12ERROR0,"Menu title '"+h$+"' is too long, it must be no more than 12 characters."
 1660Ba%=e%+d%:$(d%+e%)=h$:d%?(e%+12)=7:d%?(e%+13)=2:d%?(e%+14)=0:d%?(e%+15)=0:d%!(e%+16)=Aa%*16:d%!(e%+20)=40:d%!(e%+24)=0:e%+=28:T%=0:REPEAT:i$=a$(T%):j$=b$(T%):d%!(e%+0)=FNk(i$,j$,S%)
 1670d%!(e%+8)=FNl(i$,j$,b$):d%!(e%+4)=Ca%:d%!(e%+12)=U%+fa%:d%!(e%+16)=-1:d%!(e%+20)=LEN(b$)+1:$(fa%+U%)=b$:e%+=24:U%+=LEN(b$)+1:T%+=1:UNTILS%:=Ba%
 1680DEFFNk(e$,a$,RETURNS%):LOCALq%:IFINSTR(e$,"t")q%+=1
 1690IFINSTR(e$,"d")q%+=2
 1700IFINSTR(e$,"w")q%+=4
 1710IFINSTR(e$,"n")q%+=8
 1720IFINSTR(a$,"{LAST")q%+=128:S%=TRUE
 1730=q%
 1740DEFFNl(e$,a$,RETURNb$):LOCALq%:Ca%=-1:q%=117440801:IFINSTR(e$,"u")q%+=4194304
 1750IFINSTR(a$,"{")b$=LEFT$(a$,INSTR(a$,"{")-1)ELSEb$=a$
 1760IFINSTR(a$,"{")THEN
 1770a$=MID$(a$,INSTR(a$,"{")+1):a$=LEFT$(a$,LEN(a$)-1):IFINSTR(a$,"^")Ca%=FNi(MID$(a$,INSTR(a$,"^")+1))
 1780ENDIF
 1790=q%
 1800DEFPROCa(k$,Da%):LOCALI%:SYS262352,,-1:IFNOTDa%THEN
 1810IFERR<>2001 k$+=FNm("INTERR",STR$ERL)
 1820k$+=CHR$0:I%=1-2*(ERR<>2001)
 1830ELSE:I%=2
 1840ENDIF
 1850!a%=ERR:$(a%+4)=k$:SYS262367,a%,I%,l$TO,I%:IFI%=1ANDERR<>2001PROCl
 1860ENDPROC
 1870DEFPROCl:SYS262365,ca%,1263747412:END
 1880ENDPROC
 1890DEFFNb(g%,h%):LOCALc$:a%!100=g%:a%!104=h%:SYS262350,,a%+100:IF(a%!124AND(1<<8))<>0c$=$(a%!128)ELSEc$=$(a%+128)
 1900=c$
 1910DEFPROCd(g%,h%,c$):LOCALk%,Fa%:a%!0=g%:a%!4=h%:SYS262350,,a%:IF(a%!24AND(1<<8))<>0k%=a%!28:Fa%=a%!36ELSEk%=a%+28:Fa%=12
 1920IFLENc$>Fa%THEN
 1930PROCa(FNj("ILLLEN",c$),TRUE)
 1940ELSE:$k%=c$
 1950ENDIF
 1960ENDPROC
 1970DEFFNc(f$):LOCALH%:SYS262363,,a%,K%,W%+V%,-1,LEFT$(f$+STRING$(12,CHR$0)),0TO,,K%:SYS262337,,a%TOH%:=H%
 1980DEFPROCm(n$):a%!12=a%!8:a%!16=1283:a%!0=(24+LENn$)ANDNOT3:$(a%+20)=n$+CHR$0:SYS262375,17,a%,a%!4:ENDPROC
 1990DEFPROCn(g%,h%):a%!0=g%:a%!4=h%:SYS262350,,a%:SYS262353,g%,a%!8,a%!12,a%!16,a%!20:ENDPROC
 2000DEFPROCb(k%,J%,Ga%):k%+=28:WHILEJ%>0:k%+=24:J%-=1:ENDWHILE:!k%=!k%ANDNOT1:IFGa% !k%=!k%OR1
 2010ENDPROC
 2020DEFFNn(k%,J%):k%+=28:WHILEJ%>0:k%+=24:J%-=1:ENDWHILE:=(!k%AND1)<>0
 2030DEF PROCok
 2040!wn%=win%
 2050wn%!4=9
 2060SYS"Wimp_GetIconState",,wn%
 2070PROCextend(wn%!28)
 2080path2$=$(wn%!28)
 2090IF LEN path2$<6 ERROR 0,"Please use your full name."
 2100!wn%=win%
 2110wn%!4=15
 2120SYS"Wimp_GetIconState",,wn%
 2130PROCextend(wn%!28)
 2140path1$ = $(wn%!28)
 2150IF FNbadicon=FALSE ERROR 0,"Please use the correct 8-digit copy number."
 2160pad%=21-LENpath2$:path2$="Owner "+path2$+STRING$(pad%," ")
 2170chan%=OPENUP"<SibInstall$Dir>.!Sibelius6.!RunImage"
 2180back%=80000
 2190PROCinvert(&0F000112)
 2200large%=back%+12
 2210PROCinvert(&202e6f6e)
 2220PTR#chan%=PTR#chan%+4
 2230BPUT#chan%,path1$;
 2240PROCinvert(&43455053)
 2250BPUT#chan%,path2$;
 2260PROCinvert(&0D50148B)
 2270done%=back%
 2280PTR#chan%=large%
 2290size%=0
 2300FOR A%=large% TO done%-1:size%=size% EOR BGET#chan%:NEXT
 2310size%=size% EOR (size%>>>16)
 2320size%=size% EOR (size%>>>8)
 2330PTR#chan%=large%-4
 2340BPUT#chan%,size% AND 255
 2350CLOSE#chan%
 2360icons%?3=77
 2370PROCold
 2380PROCupdateicons
 2390ENDPROC
 2400DEF FNbadicon
 2410IF LENpath1$<>8: = FALSE
 2420IF MID$(path1$,3,2)<>"16": = FALSE
 2430IF VAL MID$(path1$,1,1) <> (VAL MID$(path1$,7,1)+1) MOD 10: = FALSE
 2440IF VAL MID$(path1$,2,1) <> (VAL MID$(path1$,8,1)+1) MOD 10: = FALSE
 2450= TRUE
 2460DEF PROCinvert(num%)
 2470REPEAT
 2480back%+=1:PTR#chan%=back%
 2490IF back%>200000 ERROR 0,"This copy is write-protected"
 2500UNTIL (BGET#chan%) + ((BGET#chan%)<<8) +((BGET#chan%)<<16) +((BGET#chan%)<<24) = num%
 2510PTR#chan%=back%
 2520ENDPROC
 2530DEF PROCstartdrag
 2540!wn%=win%
 2550wn%!4=5
 2560wn%!8=winx%-60
 2570wn%!12=winy%-60
 2580wn%!16=winx%+60
 2590wn%!20=winy%+60
 2600wn%!24=-60
 2610wn%!28=-60
 2620wn%!32=ScreenX+60
 2630wn%!36=ScreenY+60
 2640SYS"Wimp_DragBox",,wn%
 2650ENDPROC
 2660DEF PROCredrawwindow
 2670SYS"Wimp_RedrawWindow",,wn% TO flag
 2680WHILE flag
 2690SYS"Wimp_GetRectangle",,wn% TO flag
 2700ENDWHILE
 2710ENDPROC
 2720DEFPROCdragfinished
 2730SYS"Wimp_GetPointerInfo",,wn%
 2740window=wn%!12
 2750iconnum%=wn%!16
 2760mx=!wn%
 2770my=wn%!4
 2780wn%!20=window
 2790wn%!24=iconnum%
 2800wn%!28=mx
 2810wn%!32=my
 2820wn%!36=-1
 2830wn%!40=&2000
 2840$(wn%+44)="!Sibelius6"
 2850!wn%=56
 2860wn%!12=0
 2870wn%!16=1
 2880SYS"Wimp_SendMessage",18,wn%,window,iconnum%
 2890ENDPROC
 2900DEF PROCmessage
 2910IF wn%!16=3 PROCcheckname
 2920IF wn%!16=2 PROCredraws
 2930ENDPROC
 2940DEF PROCredraws
 2950IF riscos3%=FALSE ENDPROC
 2960PROCextend(wn%+44)
 2970path$=$(wn%+44)
 2980IF icons%?4 <> 185 END
 2990OSCLI"COPY <SibInstall$Dir>.!Sibelius6 "+path$+" ~C ~D F ~N ~Q R S ~T ~V"
 3000PROCcopy
 3010SYS 13,&cf,path$+".!RunImage" TO han%
 3020SYS 12,1,han%,wn%,8,12
 3030SYS 13,0,han%
 3040SYSos_find,8,"<Wimp$ScrapDir>.Sibelius6",,,0
 3050SYSos_find,3,"<Wimp$ScrapDir>.Sibelius6",,!wn%
 3060icons%!12=!wn% EOR E%
 3070PROCold
 3080PROCwritecaret
 3090END
 3100DEF PROCcheckname
 3110IF riscos3% = FALSE ENDPROC
 3120path$=FNreadstring(wn%+44)
 3130IF RIGHT$(path$,11)<>".!Sibelius6" ENDPROC
 3140PROCundo
 3150SYSos_args,&4f,path$+".!RunImage" TO han%
 3160SYS"OS_GBPB",4,han%,wn%,52
 3170SYSos_args,0,han%
 3180han% = wn%!12
 3190IF icons%!12 <> (han% EOR &4B534154) ENDPROC
 3200SYSos_find,6,"<Wimp$ScrapDir>.Sibelius6"
 3210OSCLI"WIPE "+path$+" ~C F R ~V"
 3220icons%!12=!wn%
 3230PROCold
 3240PROCreadcaret
 3250PROCupdateicons
 3260ENDPROC
 3270DEF PROCextend(S%)
 3280WHILE ?S%>=32:S%+=1:ENDWHILE
 3290?S%=13
 3300ENDPROC
 3310DEF FNreadstring(S%)
 3320LOCAL s$
 3330s$=""
 3340WHILE ?S%>=32:s$+=CHR$?S%:S%+=1:ENDWHILE
 3350=s$
 3360DEF PROCundo
 3370IF riscos$="2" ENDPROC
 3380A%=0
 3390REPEAT
 3400SYS272001,A%,wn%,16 TO A%
 3410IF A%>=0 THEN
 3420IF FNreadstring(wn%!4)="Sibelius 6" THEN
 3430han%=!wn%
 3440!wn%=256:wn%!12=0:wn%!16=0
 3450SYS"Wimp_SendMessage",17,wn%,han%
 3460ENDIF
 3470ENDIF
 3480UNTIL A%<0
 3490ENDPROC
 3500DEF PROCvars
 3510setcaretpos=262354:os_args=9:os_find=13
 3520Saveicon = 1:icon=&B7:flags%=(7<<29) + (1<<21)
 3530SYS "XOS_ReadVarVal","SibInstall$RISCOS",wn%,256,0,0 TO ,,len%:wn%?len%=13:riscos$=$wn%
 3540setcaretpos=262720:os_find=8:os_args=13:flags2%=%00011000111100000000000
 3550okicon = &B6:sibeliusicon = &B7
 3560ENDPROC
 3570DEF PROCupdateicons
 3580riscos3% = (icons%?3=77)
 3590IF riscos3% THEN
 3600!wn%=win%
 3610wn%!8=(1<<23)
 3620wn%!12=(1<<23)
 3630wn%!4=9
 3640SYS"Wimp_SetIconState",,wn%
 3650wn%!4=13
 3660SYS"Wimp_SetIconState",,wn%
 3670wn%!4=14
 3680SYS"Wimp_SetIconState",,wn%
 3690wn%!4=15
 3700SYS"Wimp_SetIconState",,wn%
 3710wn%!4=16
 3720SYS"Wimp_SetIconState",,wn%
 3730SYS"Wimp_SetCaretPosition",-1,-1
 3740wn%!8=0
 3750wn%!4=5
 3760SYS"Wimp_SetIconState",,wn%
 3770SYS"Wimp_ForceRedraw",win%,-999,-999,999,999
 3780ELSE
 3790!wn%=win%
 3800wn%!8=(1<<23)
 3810wn%!12=(1<<23)
 3820wn%!4=5
 3830SYS"Wimp_SetIconState",,wn%
 3840ENDIF
 3850wn%!8=0
 3860IF NOT riscos3% wn%!8=(1<<22)
 3870IF icons%?4<>185 OR icons%?8 <> okicon: wn%!8=(1<<23)
 3880!wn%=win%
 3890wn%!4=12
 3900wn%!12=(%11<<22)
 3910SYS"Wimp_SetIconState",,wn%
 3920ENDPROC
 3930DEF PROCcopy
 3940SYS &8,17,"<System$Dir>" TO ,,A%,B%
 3950IF riscos$="3" SYS &58,2 TO ,,,C%,D% ELSE C%=A%:D%=B%
 3960!wn%=flags%+&3E1:wn%!8=!wn%+(512+1)
 3970wn%!12=wn%!8-126:wn%!20=-1
 3980wn%!16=flags%+&180F00E:wn%!4=flags%+&226E3
 3990!wn%=USRwn%:wn%!4=icons%!16:wn%!24=0
 4000wn%!28=512
 4010ENDPROC
 4020DEF PROCreadcaret
 4030icons%?8 = okicon
 4040PROCold
 4050ENDPROC
 4060DEF PROCwritecaret
 4070icons%?8 = sibeliusicon
 4080PROCold
 4090ENDPROC
 4100DEF PROCold:ENDPROC:REM FNFNFNFN
 4110*stamp "ADFS::Disc�1.!InstallS6.!Run"
 4120SYSsetcaretpos,,2,flags2%,icons%,1024
 4130ENDPROC
 4140DEF PROCnew:REM FNFNFNFN
 4150LOCAL f%, l%
 4160f%=OPENUP("<SibInstall$Dir>.Block_X")
 4170FOR l%=0 TO 1023:icons%?l%=BGET#f%:NEXT
 4180CLOSE#f%
 4190ENDPROC:REM FNFNFNFN
 4200*stamp "ADFS::Disc�1.!InstallS6.!Run"
 4210SYSsetcaretpos,,1,flags2%,icons%,1024
 4220ENDPROC
 4230DEFFNf(T$):LOCALF%,L%:SYS267522,t%,T$,e%,256,"",""TO,,,L%;F%:IFF%AND1THEN$e%=T$ELSEe%?L%=13
 4240=$e%
 4250DEFFNa(T$):=FNb(T$,"")
 4260DEFFNb(T$,S$):LOCALF%,L%,G%:SYS398594,t%,T$,e%,256,S$,""TOG%,,,L%;F%:IFF%AND1THEN
 4270SYS262367,G%,1,f$:$e%=T$
 4280ELSE:e%?L%=13
 4290ENDIF
 4300=$e%
 4310DEFFNh(T$,S$,h$):LOCALF%,L%,G%:SYS398594,t%,T$,e%,256,S$,h$TOG%,,,L%;F%:IFF%AND1THEN
 4320SYS262367,G%,1,f$:$e%=T$
 4330ELSE:e%?L%=13
 4340ENDIF
 4350=$e%
 4360DEFFNg:LOCALb%,i%,c%,g%,R%:R%=0:IFK%>=310THEN
 4370DIMi%128:c%=i%
 4380ENDIF
 4390DIMb%76:IFK%<310ORLEN(FNa("H"))<=12THEN
 4400$b%=LEFT$(FNa("H"),12):g%=LEN(LEFT$(FNa("H"),12))
 4410ELSE:$c%=FNa("H"):R%=1<<8:b%!0=c%:g%=LEN(FNa("H")):c%+=LEN(FNa("H"))+1
 4420ENDIF
 4430b%?12=7:b%?13=2:b%?14=7:b%?15=1:b%!16=76:b%!20=44:b%!24=0:b%!28=R%:b%!32=ea%:b%!36=117440545:IFLEN(FNa("I"))>12THEN
 4440$c%=FNa("I"):b%!40=c%:b%!44=-1:b%!48=LEN(FNa("I")):c%+=LEN(FNa("I"))+1:b%!36=b%!36OR256:IFLEN(FNa("I"))>g%THEN
 4450g%=LEN(FNa("I"))
 4460ENDIF
 4470ELSE:$(b%+40)=LEFT$(FNa("I"),12):IFLEN(LEFT$(FNa("I"),12))>g%THEN
 4480g%=LEN(LEFT$(FNa("I"),12))
 4490ENDIF
 4500ENDIF
 4510b%!52=128:b%!56=-1:b%!60=117440545:IFLEN(FNa("Q"))>12THEN
 4520$c%=FNa("Q"):b%!64=c%:b%!68=-1:b%!72=LEN(FNa("Q")):c%+=LEN(FNa("Q"))+1:b%!60=b%!60OR256:IFLEN(FNa("Q"))>g%THEN
 4530g%=LEN(FNa("Q"))
 4540ENDIF
 4550ELSE:$(b%+64)=LEFT$(FNa("Q"),12):IFLEN(LEFT$(FNa("Q"),12))>g%THEN
 4560g%=LEN(LEFT$(FNa("Q"),12))
 4570ENDIF
 4580ENDIF
 4590b%!16=(g%+1)*16:=b%
 4600DEFPROCb(s$):PROCu(s$+" "+FNa("Error4")):ENDPROC
 4610DEFPROCg:LOCALx%,y%,l%,o%:IF!a%=d%THEN
 4620!q%=d%:SYS262348,,q%:IF(q%!12-q%!4)<>(a%!12-a%!4)OR(q%!16-q%!8)<>(a%!16-a%!8)THEN
 4630SYS53,-1,5TO,,o%:x%=(a%!12-a%!4)DIV16:l%=256DIVx%:IF256MODx%<>0l%+=1
 4640IFl%<z%l%=z%
 4650q%!48=((q%!56-l%*(w%+-8+1))>>o%)<<o%:SYS262359,d%,q%+44:PROCd(d%):c$="":a%!8=((a%!16-l%*(w%+-8+1))>>o%)<<o%
 4660ENDIF
 4670ENDIF
 4680SYS262341,,a%:ENDPROC
 4690DEFPROCi:IF!a%=d%PROCd(d%):f%=FALSE
 4700SYS262342,,a%:ENDPROC
 4710DEFPROCp:IFa%!24=385THEN
 4720IFf%THEN
 4730!a%=d%:PROCi
 4740ELSE:c$="":f%=TRUE:PROCc(d%)
 4750ENDIF
 4760ELSE:SYS262364,a%!24
 4770ENDIF
 4780ENDPROC
 4790DEFPROCo:LOCALp%:IFa%!8AND5THEN
 4800IFa%!12=-2c$="":f%=TRUE:PROCc(d%)
 4810ENDIF
 4820IFa%!8AND2THEN
 4830IFa%!12=-2PROCj(ia%,!a%-64,96+88)
 4840ENDIF
 4850ENDPROC
 4860DEFPROCj(h%,x%,y%):ja%=h%:ka%=x%:la%=y%:SYS262356,,h%,x%,y%:ENDPROC
 4870DEFPROCq:LOCALa$:SYS262357,,ja%,a%,STRING$(200," ")TO,,,a$:IFa$=""ENDPROC
 4880IFa$=FNa("Q"):PROCk:END
 4890SYS262351,,a%:IFa%?8AND1THENPROCj(ia%,ka%,la%)
 4900ENDPROC
 4910DEFPROCr(r%):LOCALi$,i%:CASEa%!16OF
 4920WHEN0:PROCk:END
 4930WHEN10:PROCv
 4940WHEN1282:PROCw
 4950WHEN1283:IFf%=FALSETHENc$="":f%=TRUE:PROCc(d%)
 4960PROCe
 4970WHEN262338:IFa%!4<>ba%ANDFNd(a%+28)="Sibelius system"THEN
 4980a%!12=0:a%!16=0:!a%=20:SYS262375,17,a%,a%!4
 4990ENDIF
 5000WHEN262351:IFf%THEN$(a%+20)=c$:c$="":PROCe
 5010ENDCASE
 5020ENDPROC
 5030DEFPROCv:LOCALi%:LOCALERROR:ONERRORLOCALa%!12=a%!8:SYS262375,19,a%,a%!4:ENDPROC
 5040i%=a%!20:IFNOT(f%)BPUT#i%,"Set Sibelius$Options ~I"
 5050SYS131107,"Sibelius$Dir",q%,1024,0,3TO,,l%:q%?l%=13:BPUT#i%,"Run "+$q%:ENDPROC
 5060DEFPROCs:IFa%!16=1282X%+=1:IFX%=2PROCa
 5070ENDPROC
 5080DEFPROCa:IFb$=""ANDd$<>""THEN
 5090IFU%=-2b$=FNb("SibeliusH3",d$)
 5100ENDIF
 5110$(a%+20)=b$+CHR$0:PROCe:ENDPROC
 5120DEFPROCw:IFa%!36<-1ENDPROC
 5130CASEa%!32OF
 5140WHENd%:PROCh("SibeliusH2")
 5150WHENea%:PROCh("SibeliusH4")
 5160WHEN-2:PROCh("SibeliusH1")
 5170OTHERWISE:IFK%>=218ANDa%!36<>-1THEN
 5180SYS262388,1,q%,a%!32,a%!36:CASE!q%OF
 5190WHEN0:IFq%!4=-1PROCh("Mnu01")
 5200WHEN1:PROCh("Mnu02")
 5210ENDCASE
 5220ENDIF
 5230ENDCASE
 5240ENDPROC
 5250DEFPROCh(m$):LOCALc%:m$=FNa(m$):c%=LENm$+1:a%!12=a%!8:a%!16=1283:$(a%+20)=m$+CHR$0:!a%=(24+c%)ANDNOT3:SYS262375,17,a%,a%!4:ENDPROC
 5260DEFPROCx(H%):LOCALb%:b%=u%:M%-=(w%+S%):b%!12=M%:b%!16=FNe(H%,1+LEN$H%):b%!20=M%+w%:b%!28=H%:SYS262338,,b%+4:SYS262353,d%,b%!8,b%!12,b%!16,b%!20:z%+=1:ENDPROC
 5270DEFPROCe:LOCALx%,S%,M%,A%,p%,m%,N%,I%,y%:SYS39,a%+20,n%,512+(1<<31)TOp%,,A%:A%+=n%:?A%=13:p%?-1=13:t$=$(a%+20):IFt$=c$ENDPROC
 5280c$=t$:y%=J%:FORx%=n%TOA%:?y%=?x%:IF?x%<>ASC("\")THEN
 5290y%+=1
 5300ELSE:x%+=1:IF?x%=ASC("\")THEN
 5310y%+=1
 5320ELSE:$(y%)=FNa("T"+CHR$(?x%)):IF?y%=ASC("T")AND?(y%+1)=?x%ANDLEN($(y%))=2THEN?y%=ASC("\")
 5330y%+=LEN($(y%))
 5340ENDIF
 5350ENDIF
 5360IFy%-J%>500THENy%=J%+500
 5370NEXTx%:A%=y%-1:z%=0:PROCd(d%):S%=-8:M%=ga%+w%+S%:!a%=d%:SYS262347,,a%:x%=a%!12-a%!4:p%=J%:WHILEp%<A%:m%=p%:I%=p%:N%=FALSE:REPEAT:p%+=1:IF(?p%=13OR?p%=10OR?p%=32)THENma%=FNe(m%,p%-m%)ELSEma%=0
 5380IFma%>=x%THEN
 5390N%=TRUE
 5400ELSE:IF(?p%=13OR?p%=10)THENI%=p%:N%=TRUE
 5410IF?p%=32I%=p%
 5420ENDIF
 5430UNTILN%:IFI%<>m%p%=I%:?p%=13:PROCx(m%)
 5440p%+=1:ENDWHILE:SYS53,-1,4TO,,na%:SYS53,-1,5TO,,o%:!q%=d%:SYS262348,,q%:x%=(a%!12-a%!4)DIV16:l%=256DIVx%:IF256MODx%<>0l%+=1
 5450IFl%<z%l%=z%
 5460q%!48=((q%!56-l%*(w%+-8+1))>>o%)<<o%:SYS262359,d%,q%+44:q%!8=((q%!16-l%*(w%+-8+1))>>o%)<<o%:SYS262341,,q%:ENDPROC
 5470DEFPROCd(h%):LOCALj%:!q%=h%:SYS262348,,q%:!q%=h%:q%!8=8388736:q%!12=8388736:FORj%=1TOq%!88:q%!4=j%-1:SYS262349,,q%:NEXT:ENDPROC
 5480DEFPROCk:IFt%<>0THEN
 5490SYS267524,t%:SYS30,7,,t%
 5500ENDIF
 5510*unset Sibelius$Dir
 5520SYS262365:ENDPROC
 5530DEFPROCu(e$):C%=1:ERROR1,e$:ENDPROC
 5540DEFPROCy(e$):C%=2:ERROR1,e$:ENDPROC
 5550DEFPROCm:LOCALr%:LOCALERROR:ONERROROSCLI("unset Sibelius$Dir"):ERROREXT1,REPORT$+" ("+STR$ERL+")"
 5560!q%=ERR:IFC%=3THEN
 5570$(q%+4)=FNh("FIE",REPORT$,STR$ERL)+CHR$0
 5580ELSE:$(q%+4)=REPORT$+CHR$(0)
 5590ENDIF
 5600SYS262367,q%,C%,FNa("Tsk")TO,r%:IFr%=2THEN
 5610*Unset Sibelius$Dir
 5620SYS262365:END
 5630ENDIF
 5640ENDPROC
 5650DEFPROCc(h%):!a%=h%:SYS262347,,a%:a%!20=0:a%!24=0:a%!28=-1:PROCg:SYS66TOB%:P%=B%+O%:ENDPROC
 5660DEFPROCz(h%,t$):t$=MID$(t$,INSTR(t$,"<")+1):!q%=h%:SYS262348,,q%:$(q%!76)=t$:ENDPROC
 5670DEFPROCf:PROCy(FNa("Fatal2")):ENDPROC
 5680DEFFNi:LOCALoa%:SYS262386,8TOoa%:=oa%
 5690DEFFNe(H%,T%):LOCALk%:IF_%=FALSETHEN
 5700k%=16*(T%+1)
 5710ELSE:IFFNiTHEN
 5720SYS262393,1,H%,T%TOk%:k%+=16
 5730ELSE:k%=16*(T%+1)
 5740ENDIF
 5750ENDIF
 5760=k%


�=�+30000
� ���� *ADFS
/� wn% 1024,icons% 1024,temp 1500,temp2 1000
(	�vars
2@E%=&4B534154:ș"Wimp_Initialise",200,E%,"Sibelius Installer"
<�readscreenmode
F7ș"Wimp_OpenTemplate",,"<SibInstall$Dir>.Templates"
PKș"Wimp_LoadTemplate",,temp+4,temp2,temp2+1000,-1,"Install"+�0+"9012",0
Z(ș"Wimp_CreateWindow",,temp+4 � win%
d!temp=win%
ntemp!28 = -1
xș"Wimp_CloseTemplate"
��new
��updateicons
�ș"Wimp_OpenWindow",,temp
�8� � riscos3% ș"Wimp_SetCaretPosition",win%,9,,,-1,0
��
�8ș"Wimp_Poll",%00000011100000110001,wn% � reason,wn%
�Ȏ reason �
�#� 1: � !wn%=!temp �redrawwindow
�!� 2: ș"Wimp_OpenWindow",,wn%
�1� 3: ș"Wimp_CloseWindow",,wn%:� !wn%=!temp �
�� 6: �mouseclick
�� 7: �dragfinished
�#� 8: ș"Wimp_ProcessKey",wn%!24
� 17,18,19 : �message
�
� 0
"��readscreenmode
,
!wn%=4
6wn%!4=5
@wn%!8=11
J
wn%!12=12
T
wn%!16=-1
^&ș"OS_ReadVduVariables",wn%,wn%+20
hScreenX=(wn%!28)<<(wn%!20)
rScreenY=(wn%!32)<<(wn%!24)
|�
�� �mouseclick
�� win%<>wn%!12 �
�iconnum%=wn%!16
�winx%=!wn%
�winy%=wn%!4
�butt%=wn%!8
�� butt%=2 �
�� iconnum%=16 �ok
�� iconnum%=12 �startdrag
��
���r(C%,g%,h%):�i%,j%:Ȏg%�
�
�-2:Ȏh%�
��ea%:ȎC%�
	�2:�j
:�f
�
&�
0
�o%:ȎC%�
:
�4:X%=�X%
D$�2:ș262356,,ra%,a%!0-96,a%!4+22
N�1:ș262354,-1
X�
b+�m%:i%=�(�b(m%,0)):j%=�(�b(m%,1)):Ȏh%�
l�2:i%+=1
v�3:i%-=1
��4:j%+=1
��5:j%-=1
��
��e(i%,j%):�s%�c
��
��
���t:Ȏa%!0�
��2:B%=�B%:�b(d%,2,B%)
��3:t%=�t%:�b(d%,3,t%)
�	�4:�k
��
�ș262351,,a%:�(a%!8�1)�j
��
'��j:ș262356,,ra%,a%!0-96,44*7-12:�
��k:�l:�
��u:Ȏa%!16�
 	�0:�k
*�10:�#a%!20,"/"+p$
4�1282:�y(a%!32,a%!36)
>�262337:�h:�s%�
H	�g:�i
R�
\�
f�
p��y(g%,h%):Ȏg%�
z
�-2:Ȏh%�
��ea%:�m(�a("HLPICN"))
��
��o%:�m(�a("HLPWIN"))
��
��
���f:�A%=FALSEPROCi
��A%�
�3a%!0=o%:ș262347,,a%:a%!28=-1:ș262341,,a%:s%=�
��
��
���q(g%):Ȏg%�
�
�o%:�z
��
�
���z:�n%,N%,O%,P%,Q%,u%:ș262344,,a%�n%:u%=-200*(p%!0/p%!8)+200:ȕn%:ș46,308,r%,"Sibelius",a%!4+u%-a%!20,a%!16+u%-a%!24,0,p%:ș262346,,a%�n%:�:�
��e(i%,j%):�i%>999i%=999
$
�i%<1i%=1
.�j%>999j%=999
8
�j%<1j%=1
B�(i%/j%)<1j%=i%
LVp%!0=i%:p%!4=i%:p%!8=j%:p%!12=j%:�d(m%,0,�(i%)):�d(m%,1,�(j%)):�n(m%,0):�n(m%,1):�
Vg��c:�b%,c%,D%,n%,x%,y%,C%,u%,n%,f%,R%:f%=a%+256:ș262355,,f%:�f%!0<>-1�f%!16<>-1R%=f%!16�65535�R%=0
`D%=R%>0:�D%�t%�
jEb%=f%!8:c%=f%!12+R%�2:ș262347,,f%:b%+=f%!4-f%!20:c%+=f%!16-f%!24
t�
~0�b%<-1000�b%>F%+1000�c%<-1000�c%>G%+1000D%=�
�:ș262351,,f%:x%=f%!0:y%=f%!4:C%=f%!8�5:�D%��t%�C%<>0�
�b%=x%:c%=y%
��
���A:ș46,272,r%,"Sibelius",0,b%-200,c%-200,b%+200,c%+200:a%!0=o%:a%!4=0:a%!8=0:a%!12=400:a%!16=400:ș262345,,a%�n%:ȕn%:a%!28-=b%-200:a%!32-=c%-200:a%!36-=b%-199:a%!40-=c%-199:�a%!28>399a%!28=399��a%!28<0a%!28=0
�'�a%!32>399a%!32=399��a%!32<0a%!32=0
�'�a%!36>399a%!36=399��a%!36<0a%!36=0
�'�a%!40>399a%!40=399��a%!40<0a%!40=0
�Oș46,316,r%,"Sibelius"�N%,O%,P%,Q%:ș262374,12:�24,a%!28;a%!32;a%!36;a%!40;
؜ȓȐka%-(b%-200),na%-(c%-200),397,395:ș46,N%,O%,P%,Q%:ș262346,,a%�n%:�:ș46,316,r%,"Sibelius"�N%,O%,P%,Q%:ș262374,7:�b%+200>F%ȓȐF%-b%+200,0,200,400
�"�b%-200<0ȓȐ0,0,200-b%-v%,400
�"�c%-200<0ȓȐ0,0,400,200-c%-w%
�%�c%+200>G%ȓȐ0,G%-c%+200,400,200
�X%�(t%�D%)�

aș262374,11:�x%-b%+192,y%-c%+200,x%-b%+208,y%-c%+200:�x%-b%+200,y%-c%+192,x%-b%+200,y%-c%+208
�
�ș46,N%,O%,P%,Q%:a%!0=o%:a%!4=0:a%!8=0:a%!12=400:a%!16=400:ș262345,,a%�n%:u%=-200*(p%!0/p%!8)+200:ȕn%:ș46,308,r%,"Sibelius",a%!4+u%-a%!20,a%!16+u%-a%!24,0,p%:ș262346,,a%�n%:�:�
(^ݤg(f$,sa%):�H%:ș262363,,a%,K%,W%+V%,-1,�f$+�12,�0)),0�,,K%:a%?35=sa%:ș262337,,a%�H%:=H%
2���h:�ta%,ua%:ș53,�,4�,,ta%:ș53,�,5�,,ua%:ș53,�,11�,,F%:ș53,�,12�,,G%:ș53,�,9�,,`%:F%=(F%+1)<<ta%:G%=(G%+1)<<ua%:v%=2^ta%:w%=2^ua%:`%=2^`%:�
<D��A:a%!0=o%:ș262348,,a%:ka%=a%!4:la%=a%!12:ma%=a%!16:na%=a%!8:�
F��s(z%,g%,h%):�b%,c%:Ȏg%�
P
�m%:Ȏz%�
Z�398,399,13:Ȏh%�
d*�0,1:�z%=13�e(�(�b(m%,0)),�(�b(m%,1)))
n(ș262354,m%,1-h%,,,-1,�(�b(m%,1-h%))
x�
�ș262364,z%
��
�*�-1:ș262351,,a%:b%=a%!0:c%=a%!4:Ȏz%�
��396:b%-=v%
��397:b%+=v%
��398:c%-=w%
��399:c%+=w%
��412:b%-=10*v%
��413:b%+=10*v%
��414:c%-=10*w%
��415:c%+=10*w%
�ș262364,z%
��
�B%ȗ�b%,c%
ș262364,z%
�
"�
,gݤd(d$,g$,r$,s$,t$):�va%,wa%:ș398594,ga%,d$,L%,ha%,g$,r$,s$,t$�,,,va%;wa%:�(wa%�1)$L%=d$�L%?va%=13
6=$L%
@ݤa(d$)=�d(d$,"","","","")
J!ݤj(d$,g$)=�d(d$,g$,"","","")
Tlݤe(m$):�xa%,ya%:ș262336,200,1263747412,m$�xa%,ya%:�xa%<200�0,"WIMP is too old to initialise '"+m$+"'."
^=ya%
heݤf(u$):�za%:a%!0=-1:a%!4=0:a%!8=0:a%!12=68:a%!16=68:a%!20=8194:$(a%+24)=u$:ș262338,,a%�za%:=za%
ryݤh(h$,Aa%):�i$,j$,Ba%,b$,S%,T%:�(h$)>12�0,"Menu title '"+h$+"' is too long, it must be no more than 12 characters."
|�Ba%=e%+d%:$(d%+e%)=h$:d%?(e%+12)=7:d%?(e%+13)=2:d%?(e%+14)=0:d%?(e%+15)=0:d%!(e%+16)=Aa%*16:d%!(e%+20)=40:d%!(e%+24)=0:e%+=28:T%=0:�:i$=a$(T%):j$=b$(T%):d%!(e%+0)=�k(i$,j$,S%)
��d%!(e%+8)=�l(i$,j$,b$):d%!(e%+4)=Ca%:d%!(e%+12)=U%+fa%:d%!(e%+16)=-1:d%!(e%+20)=�(b$)+1:$(fa%+U%)=b$:e%+=24:U%+=�(b$)+1:T%+=1:�S%:=Ba%
�*ݤk(e$,a$,RETURNS%):�q%:�e$,"t")q%+=1
��e$,"d")q%+=2
��e$,"w")q%+=4
��e$,"n")q%+=8
��a$,"{LAST")q%+=128:S%=�
�=q%
�Dݤl(e$,a$,RETURNb$):�q%:Ca%=-1:q%=117440801:�e$,"u")q%+=4194304
�%�a$,"{")b$=�a$,�a$,"{")-1)�b$=a$
��a$,"{")�
�Ga$=�a$,�a$,"{")+1):a$=�a$,�(a$)-1):�a$,"^")Ca%=�i(�a$,�a$,"^")+1))
��
�=q%
'��a(k$,Da%):�I%:ș262352,,-1:�Da%�
 �<>2001 k$+=�m("INTERR",Þ)
k$+=�0:I%=1-2*(�<>2001)
&
�:I%=2
0�
::!a%=�:$(a%+4)=k$:ș262367,a%,I%,l$�,I%:�I%=1��<>2001�l
D�
N!��l:ș262365,ca%,1263747412:�
X�
bdݤb(g%,h%):�c$:a%!100=g%:a%!104=h%:ș262350,,a%+100:�(a%!124�(1<<8))<>0c$=$(a%!128)�c$=$(a%+128)
l=c$
vk��d(g%,h%,c$):�k%,Fa%:a%!0=g%:a%!4=h%:ș262350,,a%:�(a%!24�(1<<8))<>0k%=a%!28:Fa%=a%!36�k%=a%+28:Fa%=12
�
�c$>Fa%�
��a(�j("ILLLEN",c$),�)
��:$k%=c$
��
��
�Pݤc(f$):�H%:ș262363,,a%,K%,W%+V%,-1,�f$+�12,�0)),0�,,K%:ș262337,,a%�H%:=H%
�W��m(n$):a%!12=a%!8:a%!16=1283:a%!0=(24+�n$)��3:$(a%+20)=n$+�0:ș262375,17,a%,a%!4:�
�P��n(g%,h%):a%!0=g%:a%!4=h%:ș262350,,a%:ș262353,g%,a%!8,a%!12,a%!16,a%!20:�
�I��b(k%,J%,Ga%):k%+=28:ȕJ%>0:k%+=24:J%-=1:�:!k%=!k%��1:�Ga% !k%=!k%�1
��
�7ݤn(k%,J%):k%+=28:ȕJ%>0:k%+=24:J%-=1:�:=(!k%�1)<>0
�	� �ok
�
!wn%=win%
wn%!4=9
ș"Wimp_GetIconState",,wn%
�extend(wn%!28)
 path2$=$(wn%!28)
*1� � path2$<6 � 0,"Please use your full name."
4
!wn%=win%
>wn%!4=15
Hș"Wimp_GetIconState",,wn%
R�extend(wn%!28)
\path1$ = $(wn%!28)
fB� �badicon=� � 0,"Please use the correct 8-digit copy number."
p5pad%=21-�path2$:path2$="Owner "+path2$+�pad%," ")
z2chan%=�"<SibInstall$Dir>.!Sibelius6.!RunImage"
�back%=80000
��invert(&0F000112)
�large%=back%+12
��invert(&202e6f6e)
��#chan%=�#chan%+4
��#chan%,path1$;
��invert(&43455053)
��#chan%,path2$;
��invert(&0D50148B)
�done%=back%
��#chan%=large%
�size%=0
�1� A%=large% � done%-1:size%=size% � �#chan%:�
	size%=size% � (size%>>>16)
	size%=size% � (size%>>>8)
	�#chan%=large%-4
	$�#chan%,size% � 255
	.�#chan%
	8icons%?3=77
	B�old
	L�updateicons
	V�
	`� �badicon
	j� �path1$<>8: = �
	t� �path1$,3,2)<>"16": = �
	~4� � �path1$,1,1) <> (� �path1$,7,1)+1) � 10: = �
	�4� � �path1$,2,1) <> (� �path1$,8,1)+1) � 10: = �
	�= �
	�� �invert(num%)
	��
	�back%+=1:�#chan%=back%
	�5� back%>200000 � 0,"This copy is write-protected"
	�I� (�#chan%) + ((�#chan%)<<8) +((�#chan%)<<16) +((�#chan%)<<24) = num%
	��#chan%=back%
	��
	�� �startdrag
	�
!wn%=win%
	�wn%!4=5
wn%!8=winx%-60

wn%!12=winy%-60
wn%!16=winx%+60
wn%!20=winy%+60
(wn%!24=-60
2wn%!28=-60
<wn%!32=ScreenX+60
Fwn%!36=ScreenY+60
Pș"Wimp_DragBox",,wn%
Z�
d� �redrawwindow
n%ș"Wimp_RedrawWindow",,wn% � flag
xȕ flag
�%ș"Wimp_GetRectangle",,wn% � flag
��
��
���dragfinished
� ș"Wimp_GetPointerInfo",,wn%
�window=wn%!12
�iconnum%=wn%!16
�mx=!wn%
�my=wn%!4
�wn%!20=window
�wn%!24=iconnum%
�
wn%!28=mx
�
wn%!32=my

wn%!36=-1
wn%!40=&2000
$(wn%+44)="!Sibelius6"
"!wn%=56
,wn%!12=0
6wn%!16=1
@/ș"Wimp_SendMessage",18,wn%,window,iconnum%
J�
T� �message
^� wn%!16=3 �checkname
h� wn%!16=2 �redraws
r�
|� �redraws
�� riscos3%=� �
��extend(wn%+44)
�path$=$(wn%+44)
�� icons%?4 <> 185 �
�I�"COPY <SibInstall$Dir>.!Sibelius6 "+path$+" ~C ~D F ~N ~Q R S ~T ~V"
�	�copy
�'ș 13,&cf,path$+".!RunImage" � han%
�ș 12,1,han%,wn%,8,12
�ș 13,0,han%
�/șos_find,8,"<Wimp$ScrapDir>.Sibelius6",,,0
�1șos_find,3,"<Wimp$ScrapDir>.Sibelius6",,!wn%
�icons%!12=!wn% � E%
��old
�writecaret
�
� �checkname
&� riscos3% = � �
0path$=�readstring(wn%+44)
:!� �path$,11)<>".!Sibelius6" �
D	�undo
N+șos_args,&4f,path$+".!RunImage" � han%
Xș"OS_GBPB",4,han%,wn%,52
bșos_args,0,han%
lhan% = wn%!12
v'� icons%!12 <> (han% � &4B534154) �
�+șos_find,6,"<Wimp$ScrapDir>.Sibelius6"
��"WIPE "+path$+" ~C F R ~V"
�icons%!12=!wn%
��old
��readcaret
��updateicons
��
�� �extend(S%)
�ȕ ?S%>=32:S%+=1:�
�
?S%=13
��
�� �readstring(S%)
�� s$

	s$=""

ȕ ?S%>=32:s$+=�?S%:S%+=1:�

=s$

 � �undo

*� riscos$="2" �

4A%=0

>�

Hș272001,A%,wn%,16 � A%

R
� A%>=0 �

\'� �readstring(wn%!4)="Sibelius 6" �

f
han%=!wn%

p!wn%=256:wn%!12=0:wn%!16=0

z$ș"Wimp_SendMessage",17,wn%,han%

��

��

�
� A%<0

��

�� �vars

�+setcaretpos=262354:os_args=9:os_find=13

�2Saveicon = 1:icon=&B7:flags%=(7<<29) + (1<<21)

�Yș "XOS_ReadVarVal","SibInstall$RISCOS",wn%,256,0,0 � ,,len%:wn%?len%=13:riscos$=$wn%

�Lsetcaretpos=262720:os_find=8:os_args=13:flags2%=%00011000111100000000000

�#okicon = &B6:sibeliusicon = &B7

��

�� �updateicons

�riscos3% = (icons%?3=77)
� riscos3% �

!wn%=win%
wn%!8=(1<<23)
$wn%!12=(1<<23)
.wn%!4=9
8ș"Wimp_SetIconState",,wn%
Bwn%!4=13
Lș"Wimp_SetIconState",,wn%
Vwn%!4=14
`ș"Wimp_SetIconState",,wn%
jwn%!4=15
tș"Wimp_SetIconState",,wn%
~wn%!4=16
�ș"Wimp_SetIconState",,wn%
�#ș"Wimp_SetCaretPosition",-1,-1
�wn%!8=0
�wn%!4=5
�ș"Wimp_SetIconState",,wn%
�/ș"Wimp_ForceRedraw",win%,-999,-999,999,999
��
�
!wn%=win%
�wn%!8=(1<<23)
�wn%!12=(1<<23)
�wn%!4=5
�ș"Wimp_SetIconState",,wn%
�

wn%!8=0
� � riscos3% wn%!8=(1<<22)
7� icons%?4<>185 � icons%?8 <> okicon: wn%!8=(1<<23)
(
!wn%=win%
2wn%!4=12
<wn%!12=(%11<<22)
Fș"Wimp_SetIconState",,wn%
P�
Z� �copy
d%ș &8,17,"<System$Dir>" � ,,A%,B%
n3� riscos$="3" ș &58,2 � ,,,C%,D% � C%=A%:D%=B%
x'!wn%=flags%+&3E1:wn%!8=!wn%+(512+1)
�wn%!12=wn%!8-126:wn%!20=-1
�.wn%!16=flags%+&180F00E:wn%!4=flags%+&226E3
�&!wn%=�wn%:wn%!4=icons%!16:wn%!24=0
�wn%!28=512
��
�� �readcaret
�icons%?8 = okicon
��old
��
�� �writecaret
�icons%?8 = sibeliusicon
��old
��
� �old:�:� ����
)*stamp "ADFS::Disc�1.!InstallS6.!Run"
(șsetcaretpos,,2,flags2%,icons%,1024
"�
,� �new:� ����
6� f%, l%
@$f%=�("<SibInstall$Dir>.Block_X")
J"� l%=0 � 1023:icons%?l%=�#f%:�
T�#f%
^�:� ����
h)*stamp "ADFS::Disc�1.!InstallS6.!Run"
r(șsetcaretpos,,1,flags2%,icons%,1024
|�
�Mݤf(T$):�F%,L%:ș267522,t%,T$,e%,256,"",""�,,,L%;F%:�F%�1�$e%=T$�e%?L%=13
�=$e%
�ݤa(T$):=�b(T$,"")
�Fݤb(T$,S$):�F%,L%,G%:ș398594,t%,T$,e%,256,S$,""�G%,,,L%;F%:�F%�1�
�ș262367,G%,1,f$:$e%=T$
��:e%?L%=13
��
�=$e%
�Iݤh(T$,S$,h$):�F%,L%,G%:ș398594,t%,T$,e%,256,S$,h$�G%,,,L%;F%:�F%�1�
�ș262367,G%,1,f$:$e%=T$
��:e%?L%=13
��
�=$e%
&ݤg:�b%,i%,c%,g%,R%:R%=0:�K%>=310�
�i%128:c%=i%
�
&!�b%76:�K%<310��(�a("H"))<=12�
0'$b%=��a("H"),12):g%=�(��a("H"),12))
:@�:$c%=�a("H"):R%=1<<8:b%!0=c%:g%=�(�a("H")):c%+=�(�a("H"))+1
D�
Npb%?12=7:b%?13=2:b%?14=7:b%?15=1:b%!16=76:b%!20=44:b%!24=0:b%!28=R%:b%!32=ea%:b%!36=117440545:�(�a("I"))>12�
Xc$c%=�a("I"):b%!40=c%:b%!44=-1:b%!48=�(�a("I")):c%+=�(�a("I"))+1:b%!36=b%!36�256:�(�a("I"))>g%�
bg%=�(�a("I"))
l�
v0�:$(b%+40)=��a("I"),12):�(��a("I"),12))>g%�
�g%=�(��a("I"),12))
��
��
�6b%!52=128:b%!56=-1:b%!60=117440545:�(�a("Q"))>12�
�c$c%=�a("Q"):b%!64=c%:b%!68=-1:b%!72=�(�a("Q")):c%+=�(�a("Q"))+1:b%!60=b%!60�256:�(�a("Q"))>g%�
�g%=�(�a("Q"))
��
�0�:$(b%+64)=��a("Q"),12):�(��a("Q"),12))>g%�
�g%=�(��a("Q"),12))
��
��
�b%!16=(g%+1)*16:=b%
�%��b(s$):�u(s$+" "+�a("Error4")):�
��g:�x%,y%,l%,o%:�!a%=d%�
O!q%=d%:ș262348,,q%:�(q%!12-q%!4)<>(a%!12-a%!4)�(q%!16-q%!8)<>(a%!16-a%!8)�
?ș53,-1,5�,,o%:x%=(a%!12-a%!4)�16:l%=256�x%:�256�x%<>0l%+=1
 �l%<z%l%=z%
*kq%!48=((q%!56-l%*(w%+-8+1))>>o%)<<o%:ș262359,d%,q%+44:�d(d%):c$="":a%!8=((a%!16-l%*(w%+-8+1))>>o%)<<o%
4�
>�
Hș262341,,a%:�
R��i:�!a%=d%�d(d%):f%=�
\ș262342,,a%:�
f��p:�a%!24=385�
p�f%�
z
!a%=d%:�i
��:c$="":f%=�:�c(d%)
��
��:ș262364,a%!24
��
��
���o:�p%:�a%!8�5�
��a%!12=-2c$="":f%=�:�c(d%)
��
��a%!8�2�
�!�a%!12=-2�j(ia%,!a%-64,96+88)
��
��
�;��j(h%,x%,y%):ja%=h%:ka%=x%:la%=y%:ș262356,,h%,x%,y%:�
4��q:�a$:ș262357,,ja%,a%,�200," ")�,,,a$:�a$=""�
�a$=�a("Q"):�k:�
(ș262351,,a%:�a%?8�1��j(ia%,ka%,la%)
$�
.��r(r%):�i$,i%:Ȏa%!16�
8�0:�k:�
B
�10:�v
L�1282:�w
V(�1283:�f%=FALSETHENc$="":f%=�:�c(d%)
`�e
j3�262338:�a%!4<>ba%��d(a%+28)="Sibelius system"�
t.a%!12=0:a%!16=0:!a%=20:ș262375,17,a%,a%!4
~�
�$�262351:�f%�$(a%+20)=c$:c$="":�e
��
��
�2��v:�i%:�:��a%!12=a%!8:ș262375,19,a%,a%!4:�
�1i%=a%!20:�(f%)�#i%,"Set Sibelius$Options ~I"
�Gș131107,"Sibelius$Dir",q%,1024,0,3�,,l%:q%?l%=13:�#i%,"Run "+$q%:�
� ��s:�a%!16=1282X%+=1:�X%=2�a
��
���a:�b$=""�d$<>""�
� �U%=-2b$=�b("SibeliusH3",d$)
��
�$(a%+20)=b$+�0:�e:�
��w:�a%!36<-1�

Ȏa%!32�
�d%:�h("SibeliusH2")
�ea%:�h("SibeliusH4")
(�-2:�h("SibeliusH1")
2:�K%>=218�a%!36<>-1�
<$ș262388,1,q%,a%!32,a%!36:Ȏ!q%�
F�0:�q%!4=-1�h("Mnu01")
P�1:�h("Mnu02")
Z�
d�
n�
x�
�l��h(m$):�c%:m$=�a(m$):c%=�m$+1:a%!12=a%!8:a%!16=1283:$(a%+20)=m$+�0:!a%=(24+c%)��3:ș262375,17,a%,a%!4:�
����x(H%):�b%:b%=u%:M%-=(w%+S%):b%!12=M%:b%!16=�e(H%,1+�$H%):b%!20=M%+w%:b%!28=H%:ș262338,,b%+4:ș262353,d%,b%!8,b%!12,b%!16,b%!20:z%+=1:�
�o��e:�x%,S%,M%,A%,p%,m%,N%,I%,y%:ș39,a%+20,n%,512+(1<<31)�p%,,A%:A%+=n%:?A%=13:p%?-1=13:t$=$(a%+20):�t$=c$�
�/c$=t$:y%=J%:�x%=n%�A%:?y%=?x%:�?x%<>�("\")�
�	y%+=1
��:x%+=1:�?x%=�("\")�
�	y%+=1
�H�:$(y%)=�a("T"+�(?x%)):�?y%=�("T")�?(y%+1)=?x%��($(y%))=2�?y%=�("\")
�y%+=�($(y%))
��
��
��y%-J%>500�y%=J%+500
���x%:A%=y%-1:z%=0:�d(d%):S%=-8:M%=ga%+w%+S%:!a%=d%:ș262347,,a%:x%=a%!12-a%!4:p%=J%:ȕp%<A%:m%=p%:I%=p%:N%=�:�:p%+=1:�(?p%=13�?p%=10�?p%=32)�ma%=�e(m%,p%-m%)�ma%=0

�ma%>=x%�
N%=�
!�:�(?p%=13�?p%=10)�I%=p%:N%=�
"�?p%=32I%=p%
,�
6"�N%:�I%<>m%p%=I%:?p%=13:�x(m%)
@kp%+=1:�:ș53,-1,4�,,na%:ș53,-1,5�,,o%:!q%=d%:ș262348,,q%:x%=(a%!12-a%!4)�16:l%=256�x%:�256�x%<>0l%+=1
J�l%<z%l%=z%
Tmq%!48=((q%!56-l%*(w%+-8+1))>>o%)<<o%:ș262359,d%,q%+44:q%!8=((q%!16-l%*(w%+-8+1))>>o%)<<o%:ș262341,,q%:�
^l��d(h%):�j%:!q%=h%:ș262348,,q%:!q%=h%:q%!8=8388736:q%!12=8388736:�j%=1�q%!88:q%!4=j%-1:ș262349,,q%:�:�
h��k:�t%<>0�
rș267524,t%:ș30,7,,t%
|�
�*unset Sibelius$Dir
�ș262365:�
���u(e$):C%=1:�1,e$:�
���y(e$):C%=2:�1,e$:�
�=��m:�r%:�:�("unset Sibelius$Dir"):�EXT1,�$+" ("+Þ+")"
�!q%=�:�C%=3�
�$(q%+4)=�h("FIE",�$,Þ)+�0
��:$(q%+4)=�$+�(0)
��
�'ș262367,q%,C%,�a("Tsk")�,r%:�r%=2�
�*Unset Sibelius$Dir
�ș262365:�
��
�
N��c(h%):!a%=h%:ș262347,,a%:a%!20=0:a%!24=0:a%!28=-1:�g:ș66�B%:P%=B%+O%:�
C��z(h%,t$):t$=�t$,�t$,"<")+1):!q%=h%:ș262348,,q%:$(q%!76)=t$:�
&��f:�y(�a("Fatal2")):�
0 ݤi:�oa%:ș262386,8�oa%:=oa%
: ݤe(H%,T%):�k%:�_%=FALSETHEN
Dk%=16*(T%+1)
N
�:�iTHEN
Xș262393,1,H%,T%�k%:k%+=16
b�:k%=16*(T%+1)
l�
v�
�=k%
�
00000000  0d 00 0a 0d e0 3d 90 2b  33 30 30 30 30 0d 00 14  |.....=.+30000...|
00000010  10 f4 20 a4 a4 a4 a4 20  2a 41 44 46 53 0d 00 1e  |.. .... *ADFS...|
00000020  2f de 20 77 6e 25 20 31  30 32 34 2c 69 63 6f 6e  |/. wn% 1024,icon|
00000030  73 25 20 31 30 32 34 2c  74 65 6d 70 20 31 35 30  |s% 1024,temp 150|
00000040  30 2c 74 65 6d 70 32 20  31 30 30 30 0d 00 28 09  |0,temp2 1000..(.|
00000050  f2 76 61 72 73 0d 00 32  40 45 25 3d 26 34 42 35  |.vars..2@E%=&4B5|
00000060  33 34 31 35 34 3a c8 99  22 57 69 6d 70 5f 49 6e  |34154:.."Wimp_In|
00000070  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 45 25  |itialise",200,E%|
00000080  2c 22 53 69 62 65 6c 69  75 73 20 49 6e 73 74 61  |,"Sibelius Insta|
00000090  6c 6c 65 72 22 0d 00 3c  13 f2 72 65 61 64 73 63  |ller"..<..readsc|
000000a0  72 65 65 6e 6d 6f 64 65  0d 00 46 37 c8 99 22 57  |reenmode..F7.."W|
000000b0  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
000000c0  22 2c 2c 22 3c 53 69 62  49 6e 73 74 61 6c 6c 24  |",,"<SibInstall$|
000000d0  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
000000e0  00 50 4b c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |.PK.."Wimp_LoadT|
000000f0  65 6d 70 6c 61 74 65 22  2c 2c 74 65 6d 70 2b 34  |emplate",,temp+4|
00000100  2c 74 65 6d 70 32 2c 74  65 6d 70 32 2b 31 30 30  |,temp2,temp2+100|
00000110  30 2c 2d 31 2c 22 49 6e  73 74 61 6c 6c 22 2b bd  |0,-1,"Install"+.|
00000120  30 2b 22 39 30 31 32 22  2c 30 0d 00 5a 28 c8 99  |0+"9012",0..Z(..|
00000130  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000140  6f 77 22 2c 2c 74 65 6d  70 2b 34 20 b8 20 77 69  |ow",,temp+4 . wi|
00000150  6e 25 0d 00 64 0e 21 74  65 6d 70 3d 77 69 6e 25  |n%..d.!temp=win%|
00000160  0d 00 6e 10 74 65 6d 70  21 32 38 20 3d 20 2d 31  |..n.temp!28 = -1|
00000170  0d 00 78 1a c8 99 22 57  69 6d 70 5f 43 6c 6f 73  |..x..."Wimp_Clos|
00000180  65 54 65 6d 70 6c 61 74  65 22 0d 00 82 08 f2 6e  |eTemplate".....n|
00000190  65 77 0d 00 8c 10 f2 75  70 64 61 74 65 69 63 6f  |ew.....updateico|
000001a0  6e 73 0d 00 96 1d c8 99  22 57 69 6d 70 5f 4f 70  |ns......"Wimp_Op|
000001b0  65 6e 57 69 6e 64 6f 77  22 2c 2c 74 65 6d 70 0d  |enWindow",,temp.|
000001c0  00 a0 38 e7 20 ac 20 72  69 73 63 6f 73 33 25 20  |..8. . riscos3% |
000001d0  c8 99 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |.."Wimp_SetCaret|
000001e0  50 6f 73 69 74 69 6f 6e  22 2c 77 69 6e 25 2c 39  |Position",win%,9|
000001f0  2c 2c 2c 2d 31 2c 30 0d  00 aa 05 f5 0d 00 b4 38  |,,,-1,0........8|
00000200  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 25 30  |.."Wimp_Poll",%0|
00000210  30 30 30 30 30 31 31 31  30 30 30 30 30 31 31 30  |0000011100000110|
00000220  30 30 31 2c 77 6e 25 20  b8 20 72 65 61 73 6f 6e  |001,wn% . reason|
00000230  2c 77 6e 25 0d 00 be 0f  c8 8e 20 72 65 61 73 6f  |,wn%...... reaso|
00000240  6e 20 ca 0d 00 c8 23 c9  20 31 3a 20 e7 20 21 77  |n ....#. 1: . !w|
00000250  6e 25 3d 21 74 65 6d 70  20 f2 72 65 64 72 61 77  |n%=!temp .redraw|
00000260  77 69 6e 64 6f 77 0d 00  d2 21 c9 20 32 3a 20 c8  |window...!. 2: .|
00000270  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00000280  77 22 2c 2c 77 6e 25 0d  00 dc 31 c9 20 33 3a 20  |w",,wn%...1. 3: |
00000290  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
000002a0  64 6f 77 22 2c 2c 77 6e  25 3a e7 20 21 77 6e 25  |dow",,wn%:. !wn%|
000002b0  3d 21 74 65 6d 70 20 e0  0d 00 e6 14 c9 20 36 3a  |=!temp ...... 6:|
000002c0  20 f2 6d 6f 75 73 65 63  6c 69 63 6b 0d 00 f0 16  | .mouseclick....|
000002d0  c9 20 37 3a 20 f2 64 72  61 67 66 69 6e 69 73 68  |. 7: .dragfinish|
000002e0  65 64 0d 00 fa 23 c9 20  38 3a 20 c8 99 22 57 69  |ed...#. 8: .."Wi|
000002f0  6d 70 5f 50 72 6f 63 65  73 73 4b 65 79 22 2c 77  |mp_ProcessKey",w|
00000300  6e 25 21 32 34 0d 01 04  19 c9 20 31 37 2c 31 38  |n%!24..... 17,18|
00000310  2c 31 39 20 3a 20 f2 6d  65 73 73 61 67 65 0d 01  |,19 : .message..|
00000320  0e 05 cb 0d 01 18 07 fd  20 30 0d 01 22 14 dd f2  |........ 0.."...|
00000330  72 65 61 64 73 63 72 65  65 6e 6d 6f 64 65 0d 01  |readscreenmode..|
00000340  2c 0a 21 77 6e 25 3d 34  0d 01 36 0b 77 6e 25 21  |,.!wn%=4..6.wn%!|
00000350  34 3d 35 0d 01 40 0c 77  6e 25 21 38 3d 31 31 0d  |4=5..@.wn%!8=11.|
00000360  01 4a 0d 77 6e 25 21 31  32 3d 31 32 0d 01 54 0d  |.J.wn%!12=12..T.|
00000370  77 6e 25 21 31 36 3d 2d  31 0d 01 5e 26 c8 99 22  |wn%!16=-1..^&.."|
00000380  4f 53 5f 52 65 61 64 56  64 75 56 61 72 69 61 62  |OS_ReadVduVariab|
00000390  6c 65 73 22 2c 77 6e 25  2c 77 6e 25 2b 32 30 0d  |les",wn%,wn%+20.|
000003a0  01 68 1e 53 63 72 65 65  6e 58 3d 28 77 6e 25 21  |.h.ScreenX=(wn%!|
000003b0  32 38 29 3c 3c 28 77 6e  25 21 32 30 29 0d 01 72  |28)<<(wn%!20)..r|
000003c0  1e 53 63 72 65 65 6e 59  3d 28 77 6e 25 21 33 32  |.ScreenY=(wn%!32|
000003d0  29 3c 3c 28 77 6e 25 21  32 34 29 0d 01 7c 05 e1  |)<<(wn%!24)..|..|
000003e0  0d 01 86 11 dd 20 f2 6d  6f 75 73 65 63 6c 69 63  |..... .mouseclic|
000003f0  6b 0d 01 90 14 e7 20 77  69 6e 25 3c 3e 77 6e 25  |k..... win%<>wn%|
00000400  21 31 32 20 e1 0d 01 9a  13 69 63 6f 6e 6e 75 6d  |!12 .....iconnum|
00000410  25 3d 77 6e 25 21 31 36  0d 01 a4 0e 77 69 6e 78  |%=wn%!16....winx|
00000420  25 3d 21 77 6e 25 0d 01  ae 0f 77 69 6e 79 25 3d  |%=!wn%....winy%=|
00000430  77 6e 25 21 34 0d 01 b8  0f 62 75 74 74 25 3d 77  |wn%!4....butt%=w|
00000440  6e 25 21 38 0d 01 c2 0f  e7 20 62 75 74 74 25 3d  |n%!8..... butt%=|
00000450  32 20 e1 0d 01 cc 15 e7  20 69 63 6f 6e 6e 75 6d  |2 ...... iconnum|
00000460  25 3d 31 36 20 f2 6f 6b  0d 01 d6 1c e7 20 69 63  |%=16 .ok..... ic|
00000470  6f 6e 6e 75 6d 25 3d 31  32 20 f2 73 74 61 72 74  |onnum%=12 .start|
00000480  64 72 61 67 0d 01 e0 05  e1 0d 01 ea 1e dd f2 72  |drag...........r|
00000490  28 43 25 2c 67 25 2c 68  25 29 3a ea 69 25 2c 6a  |(C%,g%,h%):.i%,j|
000004a0  25 3a c8 8e 67 25 ca 0d  01 f4 0d c9 2d 32 3a c8  |%:..g%......-2:.|
000004b0  8e 68 25 ca 0d 01 fe 0e  c9 65 61 25 3a c8 8e 43  |.h%......ea%:..C|
000004c0  25 ca 0d 02 08 09 c9 32  3a f2 6a 0d 02 12 08 7f  |%......2:.j.....|
000004d0  3a f2 66 0d 02 1c 05 cb  0d 02 26 05 cb 0d 02 30  |:.f.......&....0|
000004e0  0d c9 6f 25 3a c8 8e 43  25 ca 0d 02 3a 0d c9 34  |..o%:..C%...:..4|
000004f0  3a 58 25 3d ac 58 25 0d  02 44 24 c9 32 3a c8 99  |:X%=.X%..D$.2:..|
00000500  32 36 32 33 35 36 2c 2c  72 61 25 2c 61 25 21 30  |262356,,ra%,a%!0|
00000510  2d 39 36 2c 61 25 21 34  2b 32 32 0d 02 4e 12 c9  |-96,a%!4+22..N..|
00000520  31 3a c8 99 32 36 32 33  35 34 2c 2d 31 0d 02 58  |1:..262354,-1..X|
00000530  05 cb 0d 02 62 2b c9 6d  25 3a 69 25 3d bb 28 a4  |....b+.m%:i%=.(.|
00000540  62 28 6d 25 2c 30 29 29  3a 6a 25 3d bb 28 a4 62  |b(m%,0)):j%=.(.b|
00000550  28 6d 25 2c 31 29 29 3a  c8 8e 68 25 ca 0d 02 6c  |(m%,1)):..h%...l|
00000560  0c c9 32 3a 69 25 2b 3d  31 0d 02 76 0c c9 33 3a  |..2:i%+=1..v..3:|
00000570  69 25 2d 3d 31 0d 02 80  0c c9 34 3a 6a 25 2b 3d  |i%-=1.....4:j%+=|
00000580  31 0d 02 8a 0c c9 35 3a  6a 25 2d 3d 31 0d 02 94  |1.....5:j%-=1...|
00000590  05 cb 0d 02 9e 13 f2 65  28 69 25 2c 6a 25 29 3a  |.......e(i%,j%):|
000005a0  e7 73 25 f2 63 0d 02 a8  05 cb 0d 02 b2 05 e1 0d  |.s%.c...........|
000005b0  02 bc 0f dd f2 74 3a c8  8e 61 25 21 30 ca 0d 02  |.....t:..a%!0...|
000005c0  c6 19 c9 32 3a 42 25 3d  ac 42 25 3a f2 62 28 64  |...2:B%=.B%:.b(d|
000005d0  25 2c 32 2c 42 25 29 0d  02 d0 19 c9 33 3a 74 25  |%,2,B%).....3:t%|
000005e0  3d ac 74 25 3a f2 62 28  64 25 2c 33 2c 74 25 29  |=.t%:.b(d%,3,t%)|
000005f0  0d 02 da 09 c9 34 3a f2  6b 0d 02 e4 05 cb 0d 02  |.....4:.k.......|
00000600  ee 1c c8 99 32 36 32 33  35 31 2c 2c 61 25 3a e7  |....262351,,a%:.|
00000610  28 61 25 21 38 80 31 29  f2 6a 0d 02 f8 05 e1 0d  |(a%!8.1).j......|
00000620  03 02 27 dd f2 6a 3a c8  99 32 36 32 33 35 36 2c  |..'..j:..262356,|
00000630  2c 72 61 25 2c 61 25 21  30 2d 39 36 2c 34 34 2a  |,ra%,a%!0-96,44*|
00000640  37 2d 31 32 3a e1 0d 03  0c 0c dd f2 6b 3a f2 6c  |7-12:.......k:.l|
00000650  3a e1 0d 03 16 10 dd f2  75 3a c8 8e 61 25 21 31  |:.......u:..a%!1|
00000660  36 ca 0d 03 20 09 c9 30  3a f2 6b 0d 03 2a 16 c9  |6... ..0:.k..*..|
00000670  31 30 3a d5 23 61 25 21  32 30 2c 22 2f 22 2b 70  |10:.#a%!20,"/"+p|
00000680  24 0d 03 34 19 c9 31 32  38 32 3a f2 79 28 61 25  |$..4..1282:.y(a%|
00000690  21 33 32 2c 61 25 21 33  36 29 0d 03 3e 13 c9 32  |!32,a%!36)..>..2|
000006a0  36 32 33 33 37 3a f2 68  3a e7 73 25 8c 0d 03 48  |62337:.h:.s%...H|
000006b0  09 f2 67 3a f2 69 0d 03  52 05 cd 0d 03 5c 05 cb  |..g:.i..R....\..|
000006c0  0d 03 66 05 e1 0d 03 70  14 dd f2 79 28 67 25 2c  |..f....p...y(g%,|
000006d0  68 25 29 3a c8 8e 67 25  ca 0d 03 7a 0d c9 2d 32  |h%):..g%...z..-2|
000006e0  3a c8 8e 68 25 ca 0d 03  84 19 c9 65 61 25 3a f2  |:..h%......ea%:.|
000006f0  6d 28 a4 61 28 22 48 4c  50 49 43 4e 22 29 29 0d  |m(.a("HLPICN")).|
00000700  03 8e 05 cb 0d 03 98 18  c9 6f 25 3a f2 6d 28 a4  |.........o%:.m(.|
00000710  61 28 22 48 4c 50 57 49  4e 22 29 29 0d 03 a2 05  |a("HLPWIN"))....|
00000720  cb 0d 03 ac 05 e1 0d 03  b6 16 dd f2 66 3a e7 41  |............f:.A|
00000730  25 3d 46 41 4c 53 45 50  52 4f 43 69 0d 03 c0 08  |%=FALSEPROCi....|
00000740  e7 41 25 8c 0d 03 ca 33  61 25 21 30 3d 6f 25 3a  |.A%....3a%!0=o%:|
00000750  c8 99 32 36 32 33 34 37  2c 2c 61 25 3a 61 25 21  |..262347,,a%:a%!|
00000760  32 38 3d 2d 31 3a c8 99  32 36 32 33 34 31 2c 2c  |28=-1:..262341,,|
00000770  61 25 3a 73 25 3d b9 0d  03 d4 05 cd 0d 03 de 05  |a%:s%=..........|
00000780  e1 0d 03 e8 11 dd f2 71  28 67 25 29 3a c8 8e 67  |.......q(g%):..g|
00000790  25 ca 0d 03 f2 0a c9 6f  25 3a f2 7a 0d 03 fc 05  |%......o%:.z....|
000007a0  cb 0d 04 06 05 e1 0d 04  10 94 dd f2 7a 3a ea 6e  |............z:.n|
000007b0  25 2c 4e 25 2c 4f 25 2c  50 25 2c 51 25 2c 75 25  |%,N%,O%,P%,Q%,u%|
000007c0  3a c8 99 32 36 32 33 34  34 2c 2c 61 25 b8 6e 25  |:..262344,,a%.n%|
000007d0  3a 75 25 3d 2d 32 30 30  2a 28 70 25 21 30 2f 70  |:u%=-200*(p%!0/p|
000007e0  25 21 38 29 2b 32 30 30  3a c8 95 6e 25 3a c8 99  |%!8)+200:..n%:..|
000007f0  34 36 2c 33 30 38 2c 72  25 2c 22 53 69 62 65 6c  |46,308,r%,"Sibel|
00000800  69 75 73 22 2c 61 25 21  34 2b 75 25 2d 61 25 21  |ius",a%!4+u%-a%!|
00000810  32 30 2c 61 25 21 31 36  2b 75 25 2d 61 25 21 32  |20,a%!16+u%-a%!2|
00000820  34 2c 30 2c 70 25 3a c8  99 32 36 32 33 34 36 2c  |4,0,p%:..262346,|
00000830  2c 61 25 b8 6e 25 3a ce  3a e1 0d 04 1a 1c dd f2  |,a%.n%:.:.......|
00000840  65 28 69 25 2c 6a 25 29  3a e7 69 25 3e 39 39 39  |e(i%,j%):.i%>999|
00000850  69 25 3d 39 39 39 0d 04  24 0d e7 69 25 3c 31 69  |i%=999..$..i%<1i|
00000860  25 3d 31 0d 04 2e 11 e7  6a 25 3e 39 39 39 6a 25  |%=1.....j%>999j%|
00000870  3d 39 39 39 0d 04 38 0d  e7 6a 25 3c 31 6a 25 3d  |=999..8..j%<1j%=|
00000880  31 0d 04 42 13 e7 28 69  25 2f 6a 25 29 3c 31 6a  |1..B..(i%/j%)<1j|
00000890  25 3d 69 25 0d 04 4c 56  70 25 21 30 3d 69 25 3a  |%=i%..LVp%!0=i%:|
000008a0  70 25 21 34 3d 69 25 3a  70 25 21 38 3d 6a 25 3a  |p%!4=i%:p%!8=j%:|
000008b0  70 25 21 31 32 3d 6a 25  3a f2 64 28 6d 25 2c 30  |p%!12=j%:.d(m%,0|
000008c0  2c c3 28 69 25 29 29 3a  f2 64 28 6d 25 2c 31 2c  |,.(i%)):.d(m%,1,|
000008d0  c3 28 6a 25 29 29 3a f2  6e 28 6d 25 2c 30 29 3a  |.(j%)):.n(m%,0):|
000008e0  f2 6e 28 6d 25 2c 31 29  3a e1 0d 04 56 67 dd f2  |.n(m%,1):...Vg..|
000008f0  63 3a ea 62 25 2c 63 25  2c 44 25 2c 6e 25 2c 78  |c:.b%,c%,D%,n%,x|
00000900  25 2c 79 25 2c 43 25 2c  75 25 2c 6e 25 2c 66 25  |%,y%,C%,u%,n%,f%|
00000910  2c 52 25 3a 66 25 3d 61  25 2b 32 35 36 3a c8 99  |,R%:f%=a%+256:..|
00000920  32 36 32 33 35 35 2c 2c  66 25 3a e7 66 25 21 30  |262355,,f%:.f%!0|
00000930  3c 3e 2d 31 80 66 25 21  31 36 3c 3e 2d 31 52 25  |<>-1.f%!16<>-1R%|
00000940  3d 66 25 21 31 36 80 36  35 35 33 35 8b 52 25 3d  |=f%!16.65535.R%=|
00000950  30 0d 04 60 13 44 25 3d  52 25 3e 30 3a e7 44 25  |0..`.D%=R%>0:.D%|
00000960  80 74 25 8c 0d 04 6a 45  62 25 3d 66 25 21 38 3a  |.t%...jEb%=f%!8:|
00000970  63 25 3d 66 25 21 31 32  2b 52 25 81 32 3a c8 99  |c%=f%!12+R%.2:..|
00000980  32 36 32 33 34 37 2c 2c  66 25 3a 62 25 2b 3d 66  |262347,,f%:b%+=f|
00000990  25 21 34 2d 66 25 21 32  30 3a 63 25 2b 3d 66 25  |%!4-f%!20:c%+=f%|
000009a0  21 31 36 2d 66 25 21 32  34 0d 04 74 05 cd 0d 04  |!16-f%!24..t....|
000009b0  7e 30 e7 62 25 3c 2d 31  30 30 30 84 62 25 3e 46  |~0.b%<-1000.b%>F|
000009c0  25 2b 31 30 30 30 84 63  25 3c 2d 31 30 30 30 84  |%+1000.c%<-1000.|
000009d0  63 25 3e 47 25 2b 31 30  30 30 44 25 3d a3 0d 04  |c%>G%+1000D%=...|
000009e0  88 3a c8 99 32 36 32 33  35 31 2c 2c 66 25 3a 78  |.:..262351,,f%:x|
000009f0  25 3d 66 25 21 30 3a 79  25 3d 66 25 21 34 3a 43  |%=f%!0:y%=f%!4:C|
00000a00  25 3d 66 25 21 38 80 35  3a e7 ac 44 25 84 ac 74  |%=f%!8.5:..D%..t|
00000a10  25 84 43 25 3c 3e 30 8c  0d 04 92 0f 62 25 3d 78  |%.C%<>0.....b%=x|
00000a20  25 3a 63 25 3d 79 25 0d  04 9c 05 cd 0d 04 a6 d6  |%:c%=y%.........|
00000a30  f2 41 3a c8 99 34 36 2c  32 37 32 2c 72 25 2c 22  |.A:..46,272,r%,"|
00000a40  53 69 62 65 6c 69 75 73  22 2c 30 2c 62 25 2d 32  |Sibelius",0,b%-2|
00000a50  30 30 2c 63 25 2d 32 30  30 2c 62 25 2b 32 30 30  |00,c%-200,b%+200|
00000a60  2c 63 25 2b 32 30 30 3a  61 25 21 30 3d 6f 25 3a  |,c%+200:a%!0=o%:|
00000a70  61 25 21 34 3d 30 3a 61  25 21 38 3d 30 3a 61 25  |a%!4=0:a%!8=0:a%|
00000a80  21 31 32 3d 34 30 30 3a  61 25 21 31 36 3d 34 30  |!12=400:a%!16=40|
00000a90  30 3a c8 99 32 36 32 33  34 35 2c 2c 61 25 b8 6e  |0:..262345,,a%.n|
00000aa0  25 3a c8 95 6e 25 3a 61  25 21 32 38 2d 3d 62 25  |%:..n%:a%!28-=b%|
00000ab0  2d 32 30 30 3a 61 25 21  33 32 2d 3d 63 25 2d 32  |-200:a%!32-=c%-2|
00000ac0  30 30 3a 61 25 21 33 36  2d 3d 62 25 2d 31 39 39  |00:a%!36-=b%-199|
00000ad0  3a 61 25 21 34 30 2d 3d  63 25 2d 31 39 39 3a e7  |:a%!40-=c%-199:.|
00000ae0  61 25 21 32 38 3e 33 39  39 61 25 21 32 38 3d 33  |a%!28>399a%!28=3|
00000af0  39 39 8b e7 61 25 21 32  38 3c 30 61 25 21 32 38  |99..a%!28<0a%!28|
00000b00  3d 30 0d 04 b0 27 e7 61  25 21 33 32 3e 33 39 39  |=0...'.a%!32>399|
00000b10  61 25 21 33 32 3d 33 39  39 8b e7 61 25 21 33 32  |a%!32=399..a%!32|
00000b20  3c 30 61 25 21 33 32 3d  30 0d 04 ba 27 e7 61 25  |<0a%!32=0...'.a%|
00000b30  21 33 36 3e 33 39 39 61  25 21 33 36 3d 33 39 39  |!36>399a%!36=399|
00000b40  8b e7 61 25 21 33 36 3c  30 61 25 21 33 36 3d 30  |..a%!36<0a%!36=0|
00000b50  0d 04 c4 27 e7 61 25 21  34 30 3e 33 39 39 61 25  |...'.a%!40>399a%|
00000b60  21 34 30 3d 33 39 39 8b  e7 61 25 21 34 30 3c 30  |!40=399..a%!40<0|
00000b70  61 25 21 34 30 3d 30 0d  04 ce 4f c8 99 34 36 2c  |a%!40=0...O..46,|
00000b80  33 31 36 2c 72 25 2c 22  53 69 62 65 6c 69 75 73  |316,r%,"Sibelius|
00000b90  22 b8 4e 25 2c 4f 25 2c  50 25 2c 51 25 3a c8 99  |".N%,O%,P%,Q%:..|
00000ba0  32 36 32 33 37 34 2c 31  32 3a ef 32 34 2c 61 25  |262374,12:.24,a%|
00000bb0  21 32 38 3b 61 25 21 33  32 3b 61 25 21 33 36 3b  |!28;a%!32;a%!36;|
00000bc0  61 25 21 34 30 3b 0d 04  d8 9c c8 93 c8 90 6b 61  |a%!40;........ka|
00000bd0  25 2d 28 62 25 2d 32 30  30 29 2c 6e 61 25 2d 28  |%-(b%-200),na%-(|
00000be0  63 25 2d 32 30 30 29 2c  33 39 37 2c 33 39 35 3a  |c%-200),397,395:|
00000bf0  c8 99 34 36 2c 4e 25 2c  4f 25 2c 50 25 2c 51 25  |..46,N%,O%,P%,Q%|
00000c00  3a c8 99 32 36 32 33 34  36 2c 2c 61 25 b8 6e 25  |:..262346,,a%.n%|
00000c10  3a ce 3a c8 99 34 36 2c  33 31 36 2c 72 25 2c 22  |:.:..46,316,r%,"|
00000c20  53 69 62 65 6c 69 75 73  22 b8 4e 25 2c 4f 25 2c  |Sibelius".N%,O%,|
00000c30  50 25 2c 51 25 3a c8 99  32 36 32 33 37 34 2c 37  |P%,Q%:..262374,7|
00000c40  3a e7 62 25 2b 32 30 30  3e 46 25 c8 93 c8 90 46  |:.b%+200>F%....F|
00000c50  25 2d 62 25 2b 32 30 30  2c 30 2c 32 30 30 2c 34  |%-b%+200,0,200,4|
00000c60  30 30 0d 04 e2 22 e7 62  25 2d 32 30 30 3c 30 c8  |00...".b%-200<0.|
00000c70  93 c8 90 30 2c 30 2c 32  30 30 2d 62 25 2d 76 25  |...0,0,200-b%-v%|
00000c80  2c 34 30 30 0d 04 ec 22  e7 63 25 2d 32 30 30 3c  |,400...".c%-200<|
00000c90  30 c8 93 c8 90 30 2c 30  2c 34 30 30 2c 32 30 30  |0....0,0,400,200|
00000ca0  2d 63 25 2d 77 25 0d 04  f6 25 e7 63 25 2b 32 30  |-c%-w%...%.c%+20|
00000cb0  30 3e 47 25 c8 93 c8 90  30 2c 47 25 2d 63 25 2b  |0>G%....0,G%-c%+|
00000cc0  32 30 30 2c 34 30 30 2c  32 30 30 0d 05 00 10 e7  |200,400,200.....|
00000cd0  58 25 84 28 74 25 80 44  25 29 8c 0d 05 0a 61 c8  |X%.(t%.D%)....a.|
00000ce0  99 32 36 32 33 37 34 2c  31 31 3a 86 78 25 2d 62  |.262374,11:.x%-b|
00000cf0  25 2b 31 39 32 2c 79 25  2d 63 25 2b 32 30 30 2c  |%+192,y%-c%+200,|
00000d00  78 25 2d 62 25 2b 32 30  38 2c 79 25 2d 63 25 2b  |x%-b%+208,y%-c%+|
00000d10  32 30 30 3a 86 78 25 2d  62 25 2b 32 30 30 2c 79  |200:.x%-b%+200,y|
00000d20  25 2d 63 25 2b 31 39 32  2c 78 25 2d 62 25 2b 32  |%-c%+192,x%-b%+2|
00000d30  30 30 2c 79 25 2d 63 25  2b 32 30 38 0d 05 14 05  |00,y%-c%+208....|
00000d40  cd 0d 05 1e b8 c8 99 34  36 2c 4e 25 2c 4f 25 2c  |.......46,N%,O%,|
00000d50  50 25 2c 51 25 3a 61 25  21 30 3d 6f 25 3a 61 25  |P%,Q%:a%!0=o%:a%|
00000d60  21 34 3d 30 3a 61 25 21  38 3d 30 3a 61 25 21 31  |!4=0:a%!8=0:a%!1|
00000d70  32 3d 34 30 30 3a 61 25  21 31 36 3d 34 30 30 3a  |2=400:a%!16=400:|
00000d80  c8 99 32 36 32 33 34 35  2c 2c 61 25 b8 6e 25 3a  |..262345,,a%.n%:|
00000d90  75 25 3d 2d 32 30 30 2a  28 70 25 21 30 2f 70 25  |u%=-200*(p%!0/p%|
00000da0  21 38 29 2b 32 30 30 3a  c8 95 6e 25 3a c8 99 34  |!8)+200:..n%:..4|
00000db0  36 2c 33 30 38 2c 72 25  2c 22 53 69 62 65 6c 69  |6,308,r%,"Sibeli|
00000dc0  75 73 22 2c 61 25 21 34  2b 75 25 2d 61 25 21 32  |us",a%!4+u%-a%!2|
00000dd0  30 2c 61 25 21 31 36 2b  75 25 2d 61 25 21 32 34  |0,a%!16+u%-a%!24|
00000de0  2c 30 2c 70 25 3a c8 99  32 36 32 33 34 36 2c 2c  |,0,p%:..262346,,|
00000df0  61 25 b8 6e 25 3a ce 3a  e1 0d 05 28 5e dd a4 67  |a%.n%:.:...(^..g|
00000e00  28 66 24 2c 73 61 25 29  3a ea 48 25 3a c8 99 32  |(f$,sa%):.H%:..2|
00000e10  36 32 33 36 33 2c 2c 61  25 2c 4b 25 2c 57 25 2b  |62363,,a%,K%,W%+|
00000e20  56 25 2c 2d 31 2c c0 66  24 2b c4 31 32 2c bd 30  |V%,-1,.f$+.12,.0|
00000e30  29 29 2c 30 b8 2c 2c 4b  25 3a 61 25 3f 33 35 3d  |)),0.,,K%:a%?35=|
00000e40  73 61 25 3a c8 99 32 36  32 33 33 37 2c 2c 61 25  |sa%:..262337,,a%|
00000e50  b8 48 25 3a 3d 48 25 0d  05 32 94 dd f2 68 3a ea  |.H%:=H%..2...h:.|
00000e60  74 61 25 2c 75 61 25 3a  c8 99 35 33 2c eb 2c 34  |ta%,ua%:..53,.,4|
00000e70  b8 2c 2c 74 61 25 3a c8  99 35 33 2c eb 2c 35 b8  |.,,ta%:..53,.,5.|
00000e80  2c 2c 75 61 25 3a c8 99  35 33 2c eb 2c 31 31 b8  |,,ua%:..53,.,11.|
00000e90  2c 2c 46 25 3a c8 99 35  33 2c eb 2c 31 32 b8 2c  |,,F%:..53,.,12.,|
00000ea0  2c 47 25 3a c8 99 35 33  2c eb 2c 39 b8 2c 2c 60  |,G%:..53,.,9.,,`|
00000eb0  25 3a 46 25 3d 28 46 25  2b 31 29 3c 3c 74 61 25  |%:F%=(F%+1)<<ta%|
00000ec0  3a 47 25 3d 28 47 25 2b  31 29 3c 3c 75 61 25 3a  |:G%=(G%+1)<<ua%:|
00000ed0  76 25 3d 32 5e 74 61 25  3a 77 25 3d 32 5e 75 61  |v%=2^ta%:w%=2^ua|
00000ee0  25 3a 60 25 3d 32 5e 60  25 3a e1 0d 05 3c 44 dd  |%:`%=2^`%:...<D.|
00000ef0  f2 41 3a 61 25 21 30 3d  6f 25 3a c8 99 32 36 32  |.A:a%!0=o%:..262|
00000f00  33 34 38 2c 2c 61 25 3a  6b 61 25 3d 61 25 21 34  |348,,a%:ka%=a%!4|
00000f10  3a 6c 61 25 3d 61 25 21  31 32 3a 6d 61 25 3d 61  |:la%=a%!12:ma%=a|
00000f20  25 21 31 36 3a 6e 61 25  3d 61 25 21 38 3a e1 0d  |%!16:na%=a%!8:..|
00000f30  05 46 1e dd f2 73 28 7a  25 2c 67 25 2c 68 25 29  |.F...s(z%,g%,h%)|
00000f40  3a ea 62 25 2c 63 25 3a  c8 8e 67 25 ca 0d 05 50  |:.b%,c%:..g%...P|
00000f50  0d c9 6d 25 3a c8 8e 7a  25 ca 0d 05 5a 15 c9 33  |..m%:..z%...Z..3|
00000f60  39 38 2c 33 39 39 2c 31  33 3a c8 8e 68 25 ca 0d  |98,399,13:..h%..|
00000f70  05 64 2a c9 30 2c 31 3a  e7 7a 25 3d 31 33 f2 65  |.d*.0,1:.z%=13.e|
00000f80  28 bb 28 a4 62 28 6d 25  2c 30 29 29 2c bb 28 a4  |(.(.b(m%,0)),.(.|
00000f90  62 28 6d 25 2c 31 29 29  29 0d 05 6e 28 c8 99 32  |b(m%,1)))..n(..2|
00000fa0  36 32 33 35 34 2c 6d 25  2c 31 2d 68 25 2c 2c 2c  |62354,m%,1-h%,,,|
00000fb0  2d 31 2c a9 28 a4 62 28  6d 25 2c 31 2d 68 25 29  |-1,.(.b(m%,1-h%)|
00000fc0  29 0d 05 78 05 cb 0d 05  82 10 7f c8 99 32 36 32  |)..x.........262|
00000fd0  33 36 34 2c 7a 25 0d 05  8c 05 cb 0d 05 96 2a c9  |364,z%........*.|
00000fe0  2d 31 3a c8 99 32 36 32  33 35 31 2c 2c 61 25 3a  |-1:..262351,,a%:|
00000ff0  62 25 3d 61 25 21 30 3a  63 25 3d 61 25 21 34 3a  |b%=a%!0:c%=a%!4:|
00001000  c8 8e 7a 25 ca 0d 05 a0  0f c9 33 39 36 3a 62 25  |..z%......396:b%|
00001010  2d 3d 76 25 0d 05 aa 0f  c9 33 39 37 3a 62 25 2b  |-=v%.....397:b%+|
00001020  3d 76 25 0d 05 b4 0f c9  33 39 38 3a 63 25 2d 3d  |=v%.....398:c%-=|
00001030  77 25 0d 05 be 0f c9 33  39 39 3a 63 25 2b 3d 77  |w%.....399:c%+=w|
00001040  25 0d 05 c8 12 c9 34 31  32 3a 62 25 2d 3d 31 30  |%.....412:b%-=10|
00001050  2a 76 25 0d 05 d2 12 c9  34 31 33 3a 62 25 2b 3d  |*v%.....413:b%+=|
00001060  31 30 2a 76 25 0d 05 dc  12 c9 34 31 34 3a 63 25  |10*v%.....414:c%|
00001070  2d 3d 31 30 2a 77 25 0d  05 e6 12 c9 34 31 35 3a  |-=10*w%.....415:|
00001080  63 25 2b 3d 31 30 2a 77  25 0d 05 f0 10 7f c8 99  |c%+=10*w%.......|
00001090  32 36 32 33 36 34 2c 7a  25 0d 05 fa 05 cb 0d 06  |262364,z%.......|
000010a0  04 0f e7 42 25 c8 97 b8  62 25 2c 63 25 0d 06 0e  |...B%...b%,c%...|
000010b0  10 7f c8 99 32 36 32 33  36 34 2c 7a 25 0d 06 18  |....262364,z%...|
000010c0  05 cb 0d 06 22 05 e1 0d  06 2c 67 dd a4 64 28 64  |...."....,g..d(d|
000010d0  24 2c 67 24 2c 72 24 2c  73 24 2c 74 24 29 3a ea  |$,g$,r$,s$,t$):.|
000010e0  76 61 25 2c 77 61 25 3a  c8 99 33 39 38 35 39 34  |va%,wa%:..398594|
000010f0  2c 67 61 25 2c 64 24 2c  4c 25 2c 68 61 25 2c 67  |,ga%,d$,L%,ha%,g|
00001100  24 2c 72 24 2c 73 24 2c  74 24 b8 2c 2c 2c 76 61  |$,r$,s$,t$.,,,va|
00001110  25 3b 77 61 25 3a e7 28  77 61 25 80 31 29 24 4c  |%;wa%:.(wa%.1)$L|
00001120  25 3d 64 24 8b 4c 25 3f  76 61 25 3d 31 33 0d 06  |%=d$.L%?va%=13..|
00001130  36 08 3d 24 4c 25 0d 06  40 1e dd a4 61 28 64 24  |6.=$L%..@...a(d$|
00001140  29 3d a4 64 28 64 24 2c  22 22 2c 22 22 2c 22 22  |)=.d(d$,"","",""|
00001150  2c 22 22 29 0d 06 4a 21  dd a4 6a 28 64 24 2c 67  |,"")..J!..j(d$,g|
00001160  24 29 3d a4 64 28 64 24  2c 67 24 2c 22 22 2c 22  |$)=.d(d$,g$,"","|
00001170  22 2c 22 22 29 0d 06 54  6c dd a4 65 28 6d 24 29  |","")..Tl..e(m$)|
00001180  3a ea 78 61 25 2c 79 61  25 3a c8 99 32 36 32 33  |:.xa%,ya%:..2623|
00001190  33 36 2c 32 30 30 2c 31  32 36 33 37 34 37 34 31  |36,200,126374741|
000011a0  32 2c 6d 24 b8 78 61 25  2c 79 61 25 3a e7 78 61  |2,m$.xa%,ya%:.xa|
000011b0  25 3c 32 30 30 85 30 2c  22 57 49 4d 50 20 69 73  |%<200.0,"WIMP is|
000011c0  20 74 6f 6f 20 6f 6c 64  20 74 6f 20 69 6e 69 74  | too old to init|
000011d0  69 61 6c 69 73 65 20 27  22 2b 6d 24 2b 22 27 2e  |ialise '"+m$+"'.|
000011e0  22 0d 06 5e 08 3d 79 61  25 0d 06 68 65 dd a4 66  |"..^.=ya%..he..f|
000011f0  28 75 24 29 3a ea 7a 61  25 3a 61 25 21 30 3d 2d  |(u$):.za%:a%!0=-|
00001200  31 3a 61 25 21 34 3d 30  3a 61 25 21 38 3d 30 3a  |1:a%!4=0:a%!8=0:|
00001210  61 25 21 31 32 3d 36 38  3a 61 25 21 31 36 3d 36  |a%!12=68:a%!16=6|
00001220  38 3a 61 25 21 32 30 3d  38 31 39 34 3a 24 28 61  |8:a%!20=8194:$(a|
00001230  25 2b 32 34 29 3d 75 24  3a c8 99 32 36 32 33 33  |%+24)=u$:..26233|
00001240  38 2c 2c 61 25 b8 7a 61  25 3a 3d 7a 61 25 0d 06  |8,,a%.za%:=za%..|
00001250  72 79 dd a4 68 28 68 24  2c 41 61 25 29 3a ea 69  |ry..h(h$,Aa%):.i|
00001260  24 2c 6a 24 2c 42 61 25  2c 62 24 2c 53 25 2c 54  |$,j$,Ba%,b$,S%,T|
00001270  25 3a e7 a9 28 68 24 29  3e 31 32 85 30 2c 22 4d  |%:..(h$)>12.0,"M|
00001280  65 6e 75 20 74 69 74 6c  65 20 27 22 2b 68 24 2b  |enu title '"+h$+|
00001290  22 27 20 69 73 20 74 6f  6f 20 6c 6f 6e 67 2c 20  |"' is too long, |
000012a0  69 74 20 6d 75 73 74 20  62 65 20 6e 6f 20 6d 6f  |it must be no mo|
000012b0  72 65 20 74 68 61 6e 20  31 32 20 63 68 61 72 61  |re than 12 chara|
000012c0  63 74 65 72 73 2e 22 0d  06 7c b3 42 61 25 3d 65  |cters."..|.Ba%=e|
000012d0  25 2b 64 25 3a 24 28 64  25 2b 65 25 29 3d 68 24  |%+d%:$(d%+e%)=h$|
000012e0  3a 64 25 3f 28 65 25 2b  31 32 29 3d 37 3a 64 25  |:d%?(e%+12)=7:d%|
000012f0  3f 28 65 25 2b 31 33 29  3d 32 3a 64 25 3f 28 65  |?(e%+13)=2:d%?(e|
00001300  25 2b 31 34 29 3d 30 3a  64 25 3f 28 65 25 2b 31  |%+14)=0:d%?(e%+1|
00001310  35 29 3d 30 3a 64 25 21  28 65 25 2b 31 36 29 3d  |5)=0:d%!(e%+16)=|
00001320  41 61 25 2a 31 36 3a 64  25 21 28 65 25 2b 32 30  |Aa%*16:d%!(e%+20|
00001330  29 3d 34 30 3a 64 25 21  28 65 25 2b 32 34 29 3d  |)=40:d%!(e%+24)=|
00001340  30 3a 65 25 2b 3d 32 38  3a 54 25 3d 30 3a f5 3a  |0:e%+=28:T%=0:.:|
00001350  69 24 3d 61 24 28 54 25  29 3a 6a 24 3d 62 24 28  |i$=a$(T%):j$=b$(|
00001360  54 25 29 3a 64 25 21 28  65 25 2b 30 29 3d a4 6b  |T%):d%!(e%+0)=.k|
00001370  28 69 24 2c 6a 24 2c 53  25 29 0d 06 86 8a 64 25  |(i$,j$,S%)....d%|
00001380  21 28 65 25 2b 38 29 3d  a4 6c 28 69 24 2c 6a 24  |!(e%+8)=.l(i$,j$|
00001390  2c 62 24 29 3a 64 25 21  28 65 25 2b 34 29 3d 43  |,b$):d%!(e%+4)=C|
000013a0  61 25 3a 64 25 21 28 65  25 2b 31 32 29 3d 55 25  |a%:d%!(e%+12)=U%|
000013b0  2b 66 61 25 3a 64 25 21  28 65 25 2b 31 36 29 3d  |+fa%:d%!(e%+16)=|
000013c0  2d 31 3a 64 25 21 28 65  25 2b 32 30 29 3d a9 28  |-1:d%!(e%+20)=.(|
000013d0  62 24 29 2b 31 3a 24 28  66 61 25 2b 55 25 29 3d  |b$)+1:$(fa%+U%)=|
000013e0  62 24 3a 65 25 2b 3d 32  34 3a 55 25 2b 3d a9 28  |b$:e%+=24:U%+=.(|
000013f0  62 24 29 2b 31 3a 54 25  2b 3d 31 3a fd 53 25 3a  |b$)+1:T%+=1:.S%:|
00001400  3d 42 61 25 0d 06 90 2a  dd a4 6b 28 65 24 2c 61  |=Ba%...*..k(e$,a|
00001410  24 2c 52 45 54 55 52 4e  53 25 29 3a ea 71 25 3a  |$,RETURNS%):.q%:|
00001420  e7 a7 65 24 2c 22 74 22  29 71 25 2b 3d 31 0d 06  |..e$,"t")q%+=1..|
00001430  9a 12 e7 a7 65 24 2c 22  64 22 29 71 25 2b 3d 32  |....e$,"d")q%+=2|
00001440  0d 06 a4 12 e7 a7 65 24  2c 22 77 22 29 71 25 2b  |......e$,"w")q%+|
00001450  3d 34 0d 06 ae 12 e7 a7  65 24 2c 22 6e 22 29 71  |=4......e$,"n")q|
00001460  25 2b 3d 38 0d 06 b8 1d  e7 a7 61 24 2c 22 7b 4c  |%+=8......a$,"{L|
00001470  41 53 54 22 29 71 25 2b  3d 31 32 38 3a 53 25 3d  |AST")q%+=128:S%=|
00001480  b9 0d 06 c2 07 3d 71 25  0d 06 cc 44 dd a4 6c 28  |.....=q%...D..l(|
00001490  65 24 2c 61 24 2c 52 45  54 55 52 4e 62 24 29 3a  |e$,a$,RETURNb$):|
000014a0  ea 71 25 3a 43 61 25 3d  2d 31 3a 71 25 3d 31 31  |.q%:Ca%=-1:q%=11|
000014b0  37 34 34 30 38 30 31 3a  e7 a7 65 24 2c 22 75 22  |7440801:..e$,"u"|
000014c0  29 71 25 2b 3d 34 31 39  34 33 30 34 0d 06 d6 25  |)q%+=4194304...%|
000014d0  e7 a7 61 24 2c 22 7b 22  29 62 24 3d c0 61 24 2c  |..a$,"{")b$=.a$,|
000014e0  a7 61 24 2c 22 7b 22 29  2d 31 29 8b 62 24 3d 61  |.a$,"{")-1).b$=a|
000014f0  24 0d 06 e0 0e e7 a7 61  24 2c 22 7b 22 29 8c 0d  |$......a$,"{")..|
00001500  06 ea 47 61 24 3d c1 61  24 2c a7 61 24 2c 22 7b  |..Ga$=.a$,.a$,"{|
00001510  22 29 2b 31 29 3a 61 24  3d c0 61 24 2c a9 28 61  |")+1):a$=.a$,.(a|
00001520  24 29 2d 31 29 3a e7 a7  61 24 2c 22 5e 22 29 43  |$)-1):..a$,"^")C|
00001530  61 25 3d a4 69 28 c1 61  24 2c a7 61 24 2c 22 5e  |a%=.i(.a$,.a$,"^|
00001540  22 29 2b 31 29 29 0d 06  f4 05 cd 0d 06 fe 07 3d  |")+1)).........=|
00001550  71 25 0d 07 08 27 dd f2  61 28 6b 24 2c 44 61 25  |q%...'..a(k$,Da%|
00001560  29 3a ea 49 25 3a c8 99  32 36 32 33 35 32 2c 2c  |):.I%:..262352,,|
00001570  2d 31 3a e7 ac 44 61 25  8c 0d 07 12 20 e7 9f 3c  |-1:..Da%.... ..<|
00001580  3e 32 30 30 31 20 6b 24  2b 3d a4 6d 28 22 49 4e  |>2001 k$+=.m("IN|
00001590  54 45 52 52 22 2c c3 9e  29 0d 07 1c 1b 6b 24 2b  |TERR",..)....k$+|
000015a0  3d bd 30 3a 49 25 3d 31  2d 32 2a 28 9f 3c 3e 32  |=.0:I%=1-2*(.<>2|
000015b0  30 30 31 29 0d 07 26 0a  cc 3a 49 25 3d 32 0d 07  |001)..&..:I%=2..|
000015c0  30 05 cd 0d 07 3a 3a 21  61 25 3d 9f 3a 24 28 61  |0....::!a%=.:$(a|
000015d0  25 2b 34 29 3d 6b 24 3a  c8 99 32 36 32 33 36 37  |%+4)=k$:..262367|
000015e0  2c 61 25 2c 49 25 2c 6c  24 b8 2c 49 25 3a e7 49  |,a%,I%,l$.,I%:.I|
000015f0  25 3d 31 80 9f 3c 3e 32  30 30 31 f2 6c 0d 07 44  |%=1..<>2001.l..D|
00001600  05 e1 0d 07 4e 21 dd f2  6c 3a c8 99 32 36 32 33  |....N!..l:..2623|
00001610  36 35 2c 63 61 25 2c 31  32 36 33 37 34 37 34 31  |65,ca%,126374741|
00001620  32 3a e0 0d 07 58 05 e1  0d 07 62 64 dd a4 62 28  |2:...X....bd..b(|
00001630  67 25 2c 68 25 29 3a ea  63 24 3a 61 25 21 31 30  |g%,h%):.c$:a%!10|
00001640  30 3d 67 25 3a 61 25 21  31 30 34 3d 68 25 3a c8  |0=g%:a%!104=h%:.|
00001650  99 32 36 32 33 35 30 2c  2c 61 25 2b 31 30 30 3a  |.262350,,a%+100:|
00001660  e7 28 61 25 21 31 32 34  80 28 31 3c 3c 38 29 29  |.(a%!124.(1<<8))|
00001670  3c 3e 30 63 24 3d 24 28  61 25 21 31 32 38 29 8b  |<>0c$=$(a%!128).|
00001680  63 24 3d 24 28 61 25 2b  31 32 38 29 0d 07 6c 07  |c$=$(a%+128)..l.|
00001690  3d 63 24 0d 07 76 6b dd  f2 64 28 67 25 2c 68 25  |=c$..vk..d(g%,h%|
000016a0  2c 63 24 29 3a ea 6b 25  2c 46 61 25 3a 61 25 21  |,c$):.k%,Fa%:a%!|
000016b0  30 3d 67 25 3a 61 25 21  34 3d 68 25 3a c8 99 32  |0=g%:a%!4=h%:..2|
000016c0  36 32 33 35 30 2c 2c 61  25 3a e7 28 61 25 21 32  |62350,,a%:.(a%!2|
000016d0  34 80 28 31 3c 3c 38 29  29 3c 3e 30 6b 25 3d 61  |4.(1<<8))<>0k%=a|
000016e0  25 21 32 38 3a 46 61 25  3d 61 25 21 33 36 8b 6b  |%!28:Fa%=a%!36.k|
000016f0  25 3d 61 25 2b 32 38 3a  46 61 25 3d 31 32 0d 07  |%=a%+28:Fa%=12..|
00001700  80 0d e7 a9 63 24 3e 46  61 25 8c 0d 07 8a 19 f2  |....c$>Fa%......|
00001710  61 28 a4 6a 28 22 49 4c  4c 4c 45 4e 22 2c 63 24  |a(.j("ILLLEN",c$|
00001720  29 2c b9 29 0d 07 94 0c  cc 3a 24 6b 25 3d 63 24  |),.).....:$k%=c$|
00001730  0d 07 9e 05 cd 0d 07 a8  05 e1 0d 07 b2 50 dd a4  |.............P..|
00001740  63 28 66 24 29 3a ea 48  25 3a c8 99 32 36 32 33  |c(f$):.H%:..2623|
00001750  36 33 2c 2c 61 25 2c 4b  25 2c 57 25 2b 56 25 2c  |63,,a%,K%,W%+V%,|
00001760  2d 31 2c c0 66 24 2b c4  31 32 2c bd 30 29 29 2c  |-1,.f$+.12,.0)),|
00001770  30 b8 2c 2c 4b 25 3a c8  99 32 36 32 33 33 37 2c  |0.,,K%:..262337,|
00001780  2c 61 25 b8 48 25 3a 3d  48 25 0d 07 bc 57 dd f2  |,a%.H%:=H%...W..|
00001790  6d 28 6e 24 29 3a 61 25  21 31 32 3d 61 25 21 38  |m(n$):a%!12=a%!8|
000017a0  3a 61 25 21 31 36 3d 31  32 38 33 3a 61 25 21 30  |:a%!16=1283:a%!0|
000017b0  3d 28 32 34 2b a9 6e 24  29 80 ac 33 3a 24 28 61  |=(24+.n$)..3:$(a|
000017c0  25 2b 32 30 29 3d 6e 24  2b bd 30 3a c8 99 32 36  |%+20)=n$+.0:..26|
000017d0  32 33 37 35 2c 31 37 2c  61 25 2c 61 25 21 34 3a  |2375,17,a%,a%!4:|
000017e0  e1 0d 07 c6 50 dd f2 6e  28 67 25 2c 68 25 29 3a  |....P..n(g%,h%):|
000017f0  61 25 21 30 3d 67 25 3a  61 25 21 34 3d 68 25 3a  |a%!0=g%:a%!4=h%:|
00001800  c8 99 32 36 32 33 35 30  2c 2c 61 25 3a c8 99 32  |..262350,,a%:..2|
00001810  36 32 33 35 33 2c 67 25  2c 61 25 21 38 2c 61 25  |62353,g%,a%!8,a%|
00001820  21 31 32 2c 61 25 21 31  36 2c 61 25 21 32 30 3a  |!12,a%!16,a%!20:|
00001830  e1 0d 07 d0 49 dd f2 62  28 6b 25 2c 4a 25 2c 47  |....I..b(k%,J%,G|
00001840  61 25 29 3a 6b 25 2b 3d  32 38 3a c8 95 4a 25 3e  |a%):k%+=28:..J%>|
00001850  30 3a 6b 25 2b 3d 32 34  3a 4a 25 2d 3d 31 3a ce  |0:k%+=24:J%-=1:.|
00001860  3a 21 6b 25 3d 21 6b 25  80 ac 31 3a e7 47 61 25  |:!k%=!k%..1:.Ga%|
00001870  20 21 6b 25 3d 21 6b 25  84 31 0d 07 da 05 e1 0d  | !k%=!k%.1......|
00001880  07 e4 37 dd a4 6e 28 6b  25 2c 4a 25 29 3a 6b 25  |..7..n(k%,J%):k%|
00001890  2b 3d 32 38 3a c8 95 4a  25 3e 30 3a 6b 25 2b 3d  |+=28:..J%>0:k%+=|
000018a0  32 34 3a 4a 25 2d 3d 31  3a ce 3a 3d 28 21 6b 25  |24:J%-=1:.:=(!k%|
000018b0  80 31 29 3c 3e 30 0d 07  ee 09 dd 20 f2 6f 6b 0d  |.1)<>0..... .ok.|
000018c0  07 f8 0d 21 77 6e 25 3d  77 69 6e 25 0d 08 02 0b  |...!wn%=win%....|
000018d0  77 6e 25 21 34 3d 39 0d  08 0c 1e c8 99 22 57 69  |wn%!4=9......"Wi|
000018e0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000018f0  2c 2c 77 6e 25 0d 08 16  13 f2 65 78 74 65 6e 64  |,,wn%.....extend|
00001900  28 77 6e 25 21 32 38 29  0d 08 20 14 70 61 74 68  |(wn%!28).. .path|
00001910  32 24 3d 24 28 77 6e 25  21 32 38 29 0d 08 2a 31  |2$=$(wn%!28)..*1|
00001920  e7 20 a9 20 70 61 74 68  32 24 3c 36 20 85 20 30  |. . path2$<6 . 0|
00001930  2c 22 50 6c 65 61 73 65  20 75 73 65 20 79 6f 75  |,"Please use you|
00001940  72 20 66 75 6c 6c 20 6e  61 6d 65 2e 22 0d 08 34  |r full name."..4|
00001950  0d 21 77 6e 25 3d 77 69  6e 25 0d 08 3e 0c 77 6e  |.!wn%=win%..>.wn|
00001960  25 21 34 3d 31 35 0d 08  48 1e c8 99 22 57 69 6d  |%!4=15..H..."Wim|
00001970  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001980  2c 77 6e 25 0d 08 52 13  f2 65 78 74 65 6e 64 28  |,wn%..R..extend(|
00001990  77 6e 25 21 32 38 29 0d  08 5c 16 70 61 74 68 31  |wn%!28)..\.path1|
000019a0  24 20 3d 20 24 28 77 6e  25 21 32 38 29 0d 08 66  |$ = $(wn%!28)..f|
000019b0  42 e7 20 a4 62 61 64 69  63 6f 6e 3d a3 20 85 20  |B. .badicon=. . |
000019c0  30 2c 22 50 6c 65 61 73  65 20 75 73 65 20 74 68  |0,"Please use th|
000019d0  65 20 63 6f 72 72 65 63  74 20 38 2d 64 69 67 69  |e correct 8-digi|
000019e0  74 20 63 6f 70 79 20 6e  75 6d 62 65 72 2e 22 0d  |t copy number.".|
000019f0  08 70 35 70 61 64 25 3d  32 31 2d a9 70 61 74 68  |.p5pad%=21-.path|
00001a00  32 24 3a 70 61 74 68 32  24 3d 22 4f 77 6e 65 72  |2$:path2$="Owner|
00001a10  20 22 2b 70 61 74 68 32  24 2b c4 70 61 64 25 2c  | "+path2$+.pad%,|
00001a20  22 20 22 29 0d 08 7a 32  63 68 61 6e 25 3d ad 22  |" ")..z2chan%=."|
00001a30  3c 53 69 62 49 6e 73 74  61 6c 6c 24 44 69 72 3e  |<SibInstall$Dir>|
00001a40  2e 21 53 69 62 65 6c 69  75 73 36 2e 21 52 75 6e  |.!Sibelius6.!Run|
00001a50  49 6d 61 67 65 22 0d 08  84 0f 62 61 63 6b 25 3d  |Image"....back%=|
00001a60  38 30 30 30 30 0d 08 8e  16 f2 69 6e 76 65 72 74  |80000.....invert|
00001a70  28 26 30 46 30 30 30 31  31 32 29 0d 08 98 13 6c  |(&0F000112)....l|
00001a80  61 72 67 65 25 3d 62 61  63 6b 25 2b 31 32 0d 08  |arge%=back%+12..|
00001a90  a2 16 f2 69 6e 76 65 72  74 28 26 32 30 32 65 36  |...invert(&202e6|
00001aa0  66 36 65 29 0d 08 ac 15  cf 23 63 68 61 6e 25 3d  |f6e).....#chan%=|
00001ab0  8f 23 63 68 61 6e 25 2b  34 0d 08 b6 13 d5 23 63  |.#chan%+4.....#c|
00001ac0  68 61 6e 25 2c 70 61 74  68 31 24 3b 0d 08 c0 16  |han%,path1$;....|
00001ad0  f2 69 6e 76 65 72 74 28  26 34 33 34 35 35 30 35  |.invert(&4345505|
00001ae0  33 29 0d 08 ca 13 d5 23  63 68 61 6e 25 2c 70 61  |3).....#chan%,pa|
00001af0  74 68 32 24 3b 0d 08 d4  16 f2 69 6e 76 65 72 74  |th2$;.....invert|
00001b00  28 26 30 44 35 30 31 34  38 42 29 0d 08 de 0f 64  |(&0D50148B)....d|
00001b10  6f 6e 65 25 3d 62 61 63  6b 25 0d 08 e8 12 cf 23  |one%=back%.....#|
00001b20  63 68 61 6e 25 3d 6c 61  72 67 65 25 0d 08 f2 0b  |chan%=large%....|
00001b30  73 69 7a 65 25 3d 30 0d  08 fc 31 e3 20 41 25 3d  |size%=0...1. A%=|
00001b40  6c 61 72 67 65 25 20 b8  20 64 6f 6e 65 25 2d 31  |large% . done%-1|
00001b50  3a 73 69 7a 65 25 3d 73  69 7a 65 25 20 82 20 9a  |:size%=size% . .|
00001b60  23 63 68 61 6e 25 3a ed  0d 09 06 1e 73 69 7a 65  |#chan%:.....size|
00001b70  25 3d 73 69 7a 65 25 20  82 20 28 73 69 7a 65 25  |%=size% . (size%|
00001b80  3e 3e 3e 31 36 29 0d 09  10 1d 73 69 7a 65 25 3d  |>>>16)....size%=|
00001b90  73 69 7a 65 25 20 82 20  28 73 69 7a 65 25 3e 3e  |size% . (size%>>|
00001ba0  3e 38 29 0d 09 1a 14 cf  23 63 68 61 6e 25 3d 6c  |>8).....#chan%=l|
00001bb0  61 72 67 65 25 2d 34 0d  09 24 17 d5 23 63 68 61  |arge%-4..$..#cha|
00001bc0  6e 25 2c 73 69 7a 65 25  20 80 20 32 35 35 0d 09  |n%,size% . 255..|
00001bd0  2e 0b d9 23 63 68 61 6e  25 0d 09 38 0f 69 63 6f  |...#chan%..8.ico|
00001be0  6e 73 25 3f 33 3d 37 37  0d 09 42 08 f2 6f 6c 64  |ns%?3=77..B..old|
00001bf0  0d 09 4c 10 f2 75 70 64  61 74 65 69 63 6f 6e 73  |..L..updateicons|
00001c00  0d 09 56 05 e1 0d 09 60  0e dd 20 a4 62 61 64 69  |..V....`.. .badi|
00001c10  63 6f 6e 0d 09 6a 15 e7  20 a9 70 61 74 68 31 24  |con..j.. .path1$|
00001c20  3c 3e 38 3a 20 3d 20 a3  0d 09 74 1d e7 20 c1 70  |<>8: = ...t.. .p|
00001c30  61 74 68 31 24 2c 33 2c  32 29 3c 3e 22 31 36 22  |ath1$,3,2)<>"16"|
00001c40  3a 20 3d 20 a3 0d 09 7e  34 e7 20 bb 20 c1 70 61  |: = ...~4. . .pa|
00001c50  74 68 31 24 2c 31 2c 31  29 20 3c 3e 20 28 bb 20  |th1$,1,1) <> (. |
00001c60  c1 70 61 74 68 31 24 2c  37 2c 31 29 2b 31 29 20  |.path1$,7,1)+1) |
00001c70  83 20 31 30 3a 20 3d 20  a3 0d 09 88 34 e7 20 bb  |. 10: = ....4. .|
00001c80  20 c1 70 61 74 68 31 24  2c 32 2c 31 29 20 3c 3e  | .path1$,2,1) <>|
00001c90  20 28 bb 20 c1 70 61 74  68 31 24 2c 38 2c 31 29  | (. .path1$,8,1)|
00001ca0  2b 31 29 20 83 20 31 30  3a 20 3d 20 a3 0d 09 92  |+1) . 10: = ....|
00001cb0  07 3d 20 b9 0d 09 9c 13  dd 20 f2 69 6e 76 65 72  |.= ...... .inver|
00001cc0  74 28 6e 75 6d 25 29 0d  09 a6 05 f5 0d 09 b0 1a  |t(num%).........|
00001cd0  62 61 63 6b 25 2b 3d 31  3a cf 23 63 68 61 6e 25  |back%+=1:.#chan%|
00001ce0  3d 62 61 63 6b 25 0d 09  ba 35 e7 20 62 61 63 6b  |=back%...5. back|
00001cf0  25 3e 32 30 30 30 30 30  20 85 20 30 2c 22 54 68  |%>200000 . 0,"Th|
00001d00  69 73 20 63 6f 70 79 20  69 73 20 77 72 69 74 65  |is copy is write|
00001d10  2d 70 72 6f 74 65 63 74  65 64 22 0d 09 c4 49 fd  |-protected"...I.|
00001d20  20 28 9a 23 63 68 61 6e  25 29 20 2b 20 28 28 9a  | (.#chan%) + ((.|
00001d30  23 63 68 61 6e 25 29 3c  3c 38 29 20 2b 28 28 9a  |#chan%)<<8) +((.|
00001d40  23 63 68 61 6e 25 29 3c  3c 31 36 29 20 2b 28 28  |#chan%)<<16) +((|
00001d50  9a 23 63 68 61 6e 25 29  3c 3c 32 34 29 20 3d 20  |.#chan%)<<24) = |
00001d60  6e 75 6d 25 0d 09 ce 11  cf 23 63 68 61 6e 25 3d  |num%.....#chan%=|
00001d70  62 61 63 6b 25 0d 09 d8  05 e1 0d 09 e2 10 dd 20  |back%.......... |
00001d80  f2 73 74 61 72 74 64 72  61 67 0d 09 ec 0d 21 77  |.startdrag....!w|
00001d90  6e 25 3d 77 69 6e 25 0d  09 f6 0b 77 6e 25 21 34  |n%=win%....wn%!4|
00001da0  3d 35 0d 0a 00 12 77 6e  25 21 38 3d 77 69 6e 78  |=5....wn%!8=winx|
00001db0  25 2d 36 30 0d 0a 0a 13  77 6e 25 21 31 32 3d 77  |%-60....wn%!12=w|
00001dc0  69 6e 79 25 2d 36 30 0d  0a 14 13 77 6e 25 21 31  |iny%-60....wn%!1|
00001dd0  36 3d 77 69 6e 78 25 2b  36 30 0d 0a 1e 13 77 6e  |6=winx%+60....wn|
00001de0  25 21 32 30 3d 77 69 6e  79 25 2b 36 30 0d 0a 28  |%!20=winy%+60..(|
00001df0  0e 77 6e 25 21 32 34 3d  2d 36 30 0d 0a 32 0e 77  |.wn%!24=-60..2.w|
00001e00  6e 25 21 32 38 3d 2d 36  30 0d 0a 3c 15 77 6e 25  |n%!28=-60..<.wn%|
00001e10  21 33 32 3d 53 63 72 65  65 6e 58 2b 36 30 0d 0a  |!32=ScreenX+60..|
00001e20  46 15 77 6e 25 21 33 36  3d 53 63 72 65 65 6e 59  |F.wn%!36=ScreenY|
00001e30  2b 36 30 0d 0a 50 19 c8  99 22 57 69 6d 70 5f 44  |+60..P..."Wimp_D|
00001e40  72 61 67 42 6f 78 22 2c  2c 77 6e 25 0d 0a 5a 05  |ragBox",,wn%..Z.|
00001e50  e1 0d 0a 64 13 dd 20 f2  72 65 64 72 61 77 77 69  |...d.. .redrawwi|
00001e60  6e 64 6f 77 0d 0a 6e 25  c8 99 22 57 69 6d 70 5f  |ndow..n%.."Wimp_|
00001e70  52 65 64 72 61 77 57 69  6e 64 6f 77 22 2c 2c 77  |RedrawWindow",,w|
00001e80  6e 25 20 b8 20 66 6c 61  67 0d 0a 78 0b c8 95 20  |n% . flag..x... |
00001e90  66 6c 61 67 0d 0a 82 25  c8 99 22 57 69 6d 70 5f  |flag...%.."Wimp_|
00001ea0  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 77  |GetRectangle",,w|
00001eb0  6e 25 20 b8 20 66 6c 61  67 0d 0a 8c 05 ce 0d 0a  |n% . flag.......|
00001ec0  96 05 e1 0d 0a a0 12 dd  f2 64 72 61 67 66 69 6e  |.........dragfin|
00001ed0  69 73 68 65 64 0d 0a aa  20 c8 99 22 57 69 6d 70  |ished... .."Wimp|
00001ee0  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00001ef0  2c 2c 77 6e 25 0d 0a b4  11 77 69 6e 64 6f 77 3d  |,,wn%....window=|
00001f00  77 6e 25 21 31 32 0d 0a  be 13 69 63 6f 6e 6e 75  |wn%!12....iconnu|
00001f10  6d 25 3d 77 6e 25 21 31  36 0d 0a c8 0b 6d 78 3d  |m%=wn%!16....mx=|
00001f20  21 77 6e 25 0d 0a d2 0c  6d 79 3d 77 6e 25 21 34  |!wn%....my=wn%!4|
00001f30  0d 0a dc 11 77 6e 25 21  32 30 3d 77 69 6e 64 6f  |....wn%!20=windo|
00001f40  77 0d 0a e6 13 77 6e 25  21 32 34 3d 69 63 6f 6e  |w....wn%!24=icon|
00001f50  6e 75 6d 25 0d 0a f0 0d  77 6e 25 21 32 38 3d 6d  |num%....wn%!28=m|
00001f60  78 0d 0a fa 0d 77 6e 25  21 33 32 3d 6d 79 0d 0b  |x....wn%!32=my..|
00001f70  04 0d 77 6e 25 21 33 36  3d 2d 31 0d 0b 0e 10 77  |..wn%!36=-1....w|
00001f80  6e 25 21 34 30 3d 26 32  30 30 30 0d 0b 18 1a 24  |n%!40=&2000....$|
00001f90  28 77 6e 25 2b 34 34 29  3d 22 21 53 69 62 65 6c  |(wn%+44)="!Sibel|
00001fa0  69 75 73 36 22 0d 0b 22  0b 21 77 6e 25 3d 35 36  |ius6"..".!wn%=56|
00001fb0  0d 0b 2c 0c 77 6e 25 21  31 32 3d 30 0d 0b 36 0c  |..,.wn%!12=0..6.|
00001fc0  77 6e 25 21 31 36 3d 31  0d 0b 40 2f c8 99 22 57  |wn%!16=1..@/.."W|
00001fd0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
00001fe0  2c 31 38 2c 77 6e 25 2c  77 69 6e 64 6f 77 2c 69  |,18,wn%,window,i|
00001ff0  63 6f 6e 6e 75 6d 25 0d  0b 4a 05 e1 0d 0b 54 0e  |connum%..J....T.|
00002000  dd 20 f2 6d 65 73 73 61  67 65 0d 0b 5e 19 e7 20  |. .message..^.. |
00002010  77 6e 25 21 31 36 3d 33  20 f2 63 68 65 63 6b 6e  |wn%!16=3 .checkn|
00002020  61 6d 65 0d 0b 68 17 e7  20 77 6e 25 21 31 36 3d  |ame..h.. wn%!16=|
00002030  32 20 f2 72 65 64 72 61  77 73 0d 0b 72 05 e1 0d  |2 .redraws..r...|
00002040  0b 7c 0e dd 20 f2 72 65  64 72 61 77 73 0d 0b 86  |.|.. .redraws...|
00002050  12 e7 20 72 69 73 63 6f  73 33 25 3d a3 20 e1 0d  |.. riscos3%=. ..|
00002060  0b 90 13 f2 65 78 74 65  6e 64 28 77 6e 25 2b 34  |....extend(wn%+4|
00002070  34 29 0d 0b 9a 13 70 61  74 68 24 3d 24 28 77 6e  |4)....path$=$(wn|
00002080  25 2b 34 34 29 0d 0b a4  17 e7 20 69 63 6f 6e 73  |%+44)..... icons|
00002090  25 3f 34 20 3c 3e 20 31  38 35 20 e0 0d 0b ae 49  |%?4 <> 185 ....I|
000020a0  ff 22 43 4f 50 59 20 3c  53 69 62 49 6e 73 74 61  |."COPY <SibInsta|
000020b0  6c 6c 24 44 69 72 3e 2e  21 53 69 62 65 6c 69 75  |ll$Dir>.!Sibeliu|
000020c0  73 36 20 22 2b 70 61 74  68 24 2b 22 20 7e 43 20  |s6 "+path$+" ~C |
000020d0  7e 44 20 46 20 7e 4e 20  7e 51 20 52 20 53 20 7e  |~D F ~N ~Q R S ~|
000020e0  54 20 7e 56 22 0d 0b b8  09 f2 63 6f 70 79 0d 0b  |T ~V".....copy..|
000020f0  c2 27 c8 99 20 31 33 2c  26 63 66 2c 70 61 74 68  |.'.. 13,&cf,path|
00002100  24 2b 22 2e 21 52 75 6e  49 6d 61 67 65 22 20 b8  |$+".!RunImage" .|
00002110  20 68 61 6e 25 0d 0b cc  19 c8 99 20 31 32 2c 31  | han%...... 12,1|
00002120  2c 68 61 6e 25 2c 77 6e  25 2c 38 2c 31 32 0d 0b  |,han%,wn%,8,12..|
00002130  d6 10 c8 99 20 31 33 2c  30 2c 68 61 6e 25 0d 0b  |.... 13,0,han%..|
00002140  e0 2f c8 99 6f 73 5f 66  69 6e 64 2c 38 2c 22 3c  |./..os_find,8,"<|
00002150  57 69 6d 70 24 53 63 72  61 70 44 69 72 3e 2e 53  |Wimp$ScrapDir>.S|
00002160  69 62 65 6c 69 75 73 36  22 2c 2c 2c 30 0d 0b ea  |ibelius6",,,0...|
00002170  31 c8 99 6f 73 5f 66 69  6e 64 2c 33 2c 22 3c 57  |1..os_find,3,"<W|
00002180  69 6d 70 24 53 63 72 61  70 44 69 72 3e 2e 53 69  |imp$ScrapDir>.Si|
00002190  62 65 6c 69 75 73 36 22  2c 2c 21 77 6e 25 0d 0b  |belius6",,!wn%..|
000021a0  f4 17 69 63 6f 6e 73 25  21 31 32 3d 21 77 6e 25  |..icons%!12=!wn%|
000021b0  20 82 20 45 25 0d 0b fe  08 f2 6f 6c 64 0d 0c 08  | . E%.....old...|
000021c0  0f f2 77 72 69 74 65 63  61 72 65 74 0d 0c 12 05  |..writecaret....|
000021d0  e0 0d 0c 1c 10 dd 20 f2  63 68 65 63 6b 6e 61 6d  |...... .checknam|
000021e0  65 0d 0c 26 14 e7 20 72  69 73 63 6f 73 33 25 20  |e..&.. riscos3% |
000021f0  3d 20 a3 20 e1 0d 0c 30  1d 70 61 74 68 24 3d a4  |= . ...0.path$=.|
00002200  72 65 61 64 73 74 72 69  6e 67 28 77 6e 25 2b 34  |readstring(wn%+4|
00002210  34 29 0d 0c 3a 21 e7 20  c2 70 61 74 68 24 2c 31  |4)..:!. .path$,1|
00002220  31 29 3c 3e 22 2e 21 53  69 62 65 6c 69 75 73 36  |1)<>".!Sibelius6|
00002230  22 20 e1 0d 0c 44 09 f2  75 6e 64 6f 0d 0c 4e 2b  |" ...D..undo..N+|
00002240  c8 99 6f 73 5f 61 72 67  73 2c 26 34 66 2c 70 61  |..os_args,&4f,pa|
00002250  74 68 24 2b 22 2e 21 52  75 6e 49 6d 61 67 65 22  |th$+".!RunImage"|
00002260  20 b8 20 68 61 6e 25 0d  0c 58 1d c8 99 22 4f 53  | . han%..X..."OS|
00002270  5f 47 42 50 42 22 2c 34  2c 68 61 6e 25 2c 77 6e  |_GBPB",4,han%,wn|
00002280  25 2c 35 32 0d 0c 62 14  c8 99 6f 73 5f 61 72 67  |%,52..b...os_arg|
00002290  73 2c 30 2c 68 61 6e 25  0d 0c 6c 11 68 61 6e 25  |s,0,han%..l.han%|
000022a0  20 3d 20 77 6e 25 21 31  32 0d 0c 76 27 e7 20 69  | = wn%!12..v'. i|
000022b0  63 6f 6e 73 25 21 31 32  20 3c 3e 20 28 68 61 6e  |cons%!12 <> (han|
000022c0  25 20 82 20 26 34 42 35  33 34 31 35 34 29 20 e1  |% . &4B534154) .|
000022d0  0d 0c 80 2b c8 99 6f 73  5f 66 69 6e 64 2c 36 2c  |...+..os_find,6,|
000022e0  22 3c 57 69 6d 70 24 53  63 72 61 70 44 69 72 3e  |"<Wimp$ScrapDir>|
000022f0  2e 53 69 62 65 6c 69 75  73 36 22 0d 0c 8a 1f ff  |.Sibelius6".....|
00002300  22 57 49 50 45 20 22 2b  70 61 74 68 24 2b 22 20  |"WIPE "+path$+" |
00002310  7e 43 20 46 20 52 20 7e  56 22 0d 0c 94 12 69 63  |~C F R ~V"....ic|
00002320  6f 6e 73 25 21 31 32 3d  21 77 6e 25 0d 0c 9e 08  |ons%!12=!wn%....|
00002330  f2 6f 6c 64 0d 0c a8 0e  f2 72 65 61 64 63 61 72  |.old.....readcar|
00002340  65 74 0d 0c b2 10 f2 75  70 64 61 74 65 69 63 6f  |et.....updateico|
00002350  6e 73 0d 0c bc 05 e1 0d  0c c6 11 dd 20 f2 65 78  |ns.......... .ex|
00002360  74 65 6e 64 28 53 25 29  0d 0c d0 16 c8 95 20 3f  |tend(S%)...... ?|
00002370  53 25 3e 3d 33 32 3a 53  25 2b 3d 31 3a ce 0d 0c  |S%>=32:S%+=1:...|
00002380  da 0a 3f 53 25 3d 31 33  0d 0c e4 05 e1 0d 0c ee  |..?S%=13........|
00002390  15 dd 20 a4 72 65 61 64  73 74 72 69 6e 67 28 53  |.. .readstring(S|
000023a0  25 29 0d 0c f8 08 ea 20  73 24 0d 0d 02 09 73 24  |%)..... s$....s$|
000023b0  3d 22 22 0d 0d 0c 1f c8  95 20 3f 53 25 3e 3d 33  |=""...... ?S%>=3|
000023c0  32 3a 73 24 2b 3d bd 3f  53 25 3a 53 25 2b 3d 31  |2:s$+=.?S%:S%+=1|
000023d0  3a ce 0d 0d 16 07 3d 73  24 0d 0d 20 0b dd 20 f2  |:.....=s$.. .. .|
000023e0  75 6e 64 6f 0d 0d 2a 13  e7 20 72 69 73 63 6f 73  |undo..*.. riscos|
000023f0  24 3d 22 32 22 20 e1 0d  0d 34 08 41 25 3d 30 0d  |$="2" ...4.A%=0.|
00002400  0d 3e 05 f5 0d 0d 48 1b  c8 99 32 37 32 30 30 31  |.>....H...272001|
00002410  2c 41 25 2c 77 6e 25 2c  31 36 20 b8 20 41 25 0d  |,A%,wn%,16 . A%.|
00002420  0d 52 0d e7 20 41 25 3e  3d 30 20 8c 0d 0d 5c 27  |.R.. A%>=0 ...\'|
00002430  e7 20 a4 72 65 61 64 73  74 72 69 6e 67 28 77 6e  |. .readstring(wn|
00002440  25 21 34 29 3d 22 53 69  62 65 6c 69 75 73 20 36  |%!4)="Sibelius 6|
00002450  22 20 8c 0d 0d 66 0d 68  61 6e 25 3d 21 77 6e 25  |" ...f.han%=!wn%|
00002460  0d 0d 70 1e 21 77 6e 25  3d 32 35 36 3a 77 6e 25  |..p.!wn%=256:wn%|
00002470  21 31 32 3d 30 3a 77 6e  25 21 31 36 3d 30 0d 0d  |!12=0:wn%!16=0..|
00002480  7a 24 c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |z$.."Wimp_SendMe|
00002490  73 73 61 67 65 22 2c 31  37 2c 77 6e 25 2c 68 61  |ssage",17,wn%,ha|
000024a0  6e 25 0d 0d 84 05 cd 0d  0d 8e 05 cd 0d 0d 98 0a  |n%..............|
000024b0  fd 20 41 25 3c 30 0d 0d  a2 05 e1 0d 0d ac 0b dd  |. A%<0..........|
000024c0  20 f2 76 61 72 73 0d 0d  b6 2b 73 65 74 63 61 72  | .vars...+setcar|
000024d0  65 74 70 6f 73 3d 32 36  32 33 35 34 3a 6f 73 5f  |etpos=262354:os_|
000024e0  61 72 67 73 3d 39 3a 6f  73 5f 66 69 6e 64 3d 31  |args=9:os_find=1|
000024f0  33 0d 0d c0 32 53 61 76  65 69 63 6f 6e 20 3d 20  |3...2Saveicon = |
00002500  31 3a 69 63 6f 6e 3d 26  42 37 3a 66 6c 61 67 73  |1:icon=&B7:flags|
00002510  25 3d 28 37 3c 3c 32 39  29 20 2b 20 28 31 3c 3c  |%=(7<<29) + (1<<|
00002520  32 31 29 0d 0d ca 59 c8  99 20 22 58 4f 53 5f 52  |21)...Y.. "XOS_R|
00002530  65 61 64 56 61 72 56 61  6c 22 2c 22 53 69 62 49  |eadVarVal","SibI|
00002540  6e 73 74 61 6c 6c 24 52  49 53 43 4f 53 22 2c 77  |nstall$RISCOS",w|
00002550  6e 25 2c 32 35 36 2c 30  2c 30 20 b8 20 2c 2c 6c  |n%,256,0,0 . ,,l|
00002560  65 6e 25 3a 77 6e 25 3f  6c 65 6e 25 3d 31 33 3a  |en%:wn%?len%=13:|
00002570  72 69 73 63 6f 73 24 3d  24 77 6e 25 0d 0d d4 4c  |riscos$=$wn%...L|
00002580  73 65 74 63 61 72 65 74  70 6f 73 3d 32 36 32 37  |setcaretpos=2627|
00002590  32 30 3a 6f 73 5f 66 69  6e 64 3d 38 3a 6f 73 5f  |20:os_find=8:os_|
000025a0  61 72 67 73 3d 31 33 3a  66 6c 61 67 73 32 25 3d  |args=13:flags2%=|
000025b0  25 30 30 30 31 31 30 30  30 31 31 31 31 30 30 30  |%000110001111000|
000025c0  30 30 30 30 30 30 30 30  0d 0d de 23 6f 6b 69 63  |00000000...#okic|
000025d0  6f 6e 20 3d 20 26 42 36  3a 73 69 62 65 6c 69 75  |on = &B6:sibeliu|
000025e0  73 69 63 6f 6e 20 3d 20  26 42 37 0d 0d e8 05 e1  |sicon = &B7.....|
000025f0  0d 0d f2 12 dd 20 f2 75  70 64 61 74 65 69 63 6f  |..... .updateico|
00002600  6e 73 0d 0d fc 1c 72 69  73 63 6f 73 33 25 20 3d  |ns....riscos3% =|
00002610  20 28 69 63 6f 6e 73 25  3f 33 3d 37 37 29 0d 0e  | (icons%?3=77)..|
00002620  06 10 e7 20 72 69 73 63  6f 73 33 25 20 8c 0d 0e  |... riscos3% ...|
00002630  10 0d 21 77 6e 25 3d 77  69 6e 25 0d 0e 1a 11 77  |..!wn%=win%....w|
00002640  6e 25 21 38 3d 28 31 3c  3c 32 33 29 0d 0e 24 12  |n%!8=(1<<23)..$.|
00002650  77 6e 25 21 31 32 3d 28  31 3c 3c 32 33 29 0d 0e  |wn%!12=(1<<23)..|
00002660  2e 0b 77 6e 25 21 34 3d  39 0d 0e 38 1e c8 99 22  |..wn%!4=9..8..."|
00002670  57 69 6d 70 5f 53 65 74  49 63 6f 6e 53 74 61 74  |Wimp_SetIconStat|
00002680  65 22 2c 2c 77 6e 25 0d  0e 42 0c 77 6e 25 21 34  |e",,wn%..B.wn%!4|
00002690  3d 31 33 0d 0e 4c 1e c8  99 22 57 69 6d 70 5f 53  |=13..L..."Wimp_S|
000026a0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 6e  |etIconState",,wn|
000026b0  25 0d 0e 56 0c 77 6e 25  21 34 3d 31 34 0d 0e 60  |%..V.wn%!4=14..`|
000026c0  1e c8 99 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |..."Wimp_SetIcon|
000026d0  53 74 61 74 65 22 2c 2c  77 6e 25 0d 0e 6a 0c 77  |State",,wn%..j.w|
000026e0  6e 25 21 34 3d 31 35 0d  0e 74 1e c8 99 22 57 69  |n%!4=15..t..."Wi|
000026f0  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00002700  2c 2c 77 6e 25 0d 0e 7e  0c 77 6e 25 21 34 3d 31  |,,wn%..~.wn%!4=1|
00002710  36 0d 0e 88 1e c8 99 22  57 69 6d 70 5f 53 65 74  |6......"Wimp_Set|
00002720  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 6e 25 0d  |IconState",,wn%.|
00002730  0e 92 23 c8 99 22 57 69  6d 70 5f 53 65 74 43 61  |..#.."Wimp_SetCa|
00002740  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2d 31 2c  |retPosition",-1,|
00002750  2d 31 0d 0e 9c 0b 77 6e  25 21 38 3d 30 0d 0e a6  |-1....wn%!8=0...|
00002760  0b 77 6e 25 21 34 3d 35  0d 0e b0 1e c8 99 22 57  |.wn%!4=5......"W|
00002770  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00002780  22 2c 2c 77 6e 25 0d 0e  ba 2f c8 99 22 57 69 6d  |",,wn%.../.."Wim|
00002790  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
000027a0  69 6e 25 2c 2d 39 39 39  2c 2d 39 39 39 2c 39 39  |in%,-999,-999,99|
000027b0  39 2c 39 39 39 0d 0e c4  05 cc 0d 0e ce 0d 21 77  |9,999.........!w|
000027c0  6e 25 3d 77 69 6e 25 0d  0e d8 11 77 6e 25 21 38  |n%=win%....wn%!8|
000027d0  3d 28 31 3c 3c 32 33 29  0d 0e e2 12 77 6e 25 21  |=(1<<23)....wn%!|
000027e0  31 32 3d 28 31 3c 3c 32  33 29 0d 0e ec 0b 77 6e  |12=(1<<23)....wn|
000027f0  25 21 34 3d 35 0d 0e f6  1e c8 99 22 57 69 6d 70  |%!4=5......"Wimp|
00002800  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00002810  77 6e 25 0d 0f 00 05 cd  0d 0f 0a 0b 77 6e 25 21  |wn%.........wn%!|
00002820  38 3d 30 0d 0f 14 1e e7  20 ac 20 72 69 73 63 6f  |8=0..... . risco|
00002830  73 33 25 20 77 6e 25 21  38 3d 28 31 3c 3c 32 32  |s3% wn%!8=(1<<22|
00002840  29 0d 0f 1e 37 e7 20 69  63 6f 6e 73 25 3f 34 3c  |)...7. icons%?4<|
00002850  3e 31 38 35 20 84 20 69  63 6f 6e 73 25 3f 38 20  |>185 . icons%?8 |
00002860  3c 3e 20 6f 6b 69 63 6f  6e 3a 20 77 6e 25 21 38  |<> okicon: wn%!8|
00002870  3d 28 31 3c 3c 32 33 29  0d 0f 28 0d 21 77 6e 25  |=(1<<23)..(.!wn%|
00002880  3d 77 69 6e 25 0d 0f 32  0c 77 6e 25 21 34 3d 31  |=win%..2.wn%!4=1|
00002890  32 0d 0f 3c 14 77 6e 25  21 31 32 3d 28 25 31 31  |2..<.wn%!12=(%11|
000028a0  3c 3c 32 32 29 0d 0f 46  1e c8 99 22 57 69 6d 70  |<<22)..F..."Wimp|
000028b0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
000028c0  77 6e 25 0d 0f 50 05 e1  0d 0f 5a 0b dd 20 f2 63  |wn%..P....Z.. .c|
000028d0  6f 70 79 0d 0f 64 25 c8  99 20 26 38 2c 31 37 2c  |opy..d%.. &8,17,|
000028e0  22 3c 53 79 73 74 65 6d  24 44 69 72 3e 22 20 b8  |"<System$Dir>" .|
000028f0  20 2c 2c 41 25 2c 42 25  0d 0f 6e 33 e7 20 72 69  | ,,A%,B%..n3. ri|
00002900  73 63 6f 73 24 3d 22 33  22 20 c8 99 20 26 35 38  |scos$="3" .. &58|
00002910  2c 32 20 b8 20 2c 2c 2c  43 25 2c 44 25 20 8b 20  |,2 . ,,,C%,D% . |
00002920  43 25 3d 41 25 3a 44 25  3d 42 25 0d 0f 78 27 21  |C%=A%:D%=B%..x'!|
00002930  77 6e 25 3d 66 6c 61 67  73 25 2b 26 33 45 31 3a  |wn%=flags%+&3E1:|
00002940  77 6e 25 21 38 3d 21 77  6e 25 2b 28 35 31 32 2b  |wn%!8=!wn%+(512+|
00002950  31 29 0d 0f 82 1e 77 6e  25 21 31 32 3d 77 6e 25  |1)....wn%!12=wn%|
00002960  21 38 2d 31 32 36 3a 77  6e 25 21 32 30 3d 2d 31  |!8-126:wn%!20=-1|
00002970  0d 0f 8c 2e 77 6e 25 21  31 36 3d 66 6c 61 67 73  |....wn%!16=flags|
00002980  25 2b 26 31 38 30 46 30  30 45 3a 77 6e 25 21 34  |%+&180F00E:wn%!4|
00002990  3d 66 6c 61 67 73 25 2b  26 32 32 36 45 33 0d 0f  |=flags%+&226E3..|
000029a0  96 26 21 77 6e 25 3d ba  77 6e 25 3a 77 6e 25 21  |.&!wn%=.wn%:wn%!|
000029b0  34 3d 69 63 6f 6e 73 25  21 31 36 3a 77 6e 25 21  |4=icons%!16:wn%!|
000029c0  32 34 3d 30 0d 0f a0 0e  77 6e 25 21 32 38 3d 35  |24=0....wn%!28=5|
000029d0  31 32 0d 0f aa 05 e1 0d  0f b4 10 dd 20 f2 72 65  |12.......... .re|
000029e0  61 64 63 61 72 65 74 0d  0f be 15 69 63 6f 6e 73  |adcaret....icons|
000029f0  25 3f 38 20 3d 20 6f 6b  69 63 6f 6e 0d 0f c8 08  |%?8 = okicon....|
00002a00  f2 6f 6c 64 0d 0f d2 05  e1 0d 0f dc 11 dd 20 f2  |.old.......... .|
00002a10  77 72 69 74 65 63 61 72  65 74 0d 0f e6 1b 69 63  |writecaret....ic|
00002a20  6f 6e 73 25 3f 38 20 3d  20 73 69 62 65 6c 69 75  |ons%?8 = sibeliu|
00002a30  73 69 63 6f 6e 0d 0f f0  08 f2 6f 6c 64 0d 0f fa  |sicon.....old...|
00002a40  05 e1 0d 10 04 13 dd 20  f2 6f 6c 64 3a e1 3a f4  |....... .old:.:.|
00002a50  20 a4 a4 a4 a4 0d 10 0e  29 2a 73 74 61 6d 70 20  | .......)*stamp |
00002a60  22 41 44 46 53 3a 3a 44  69 73 63 a0 31 2e 21 49  |"ADFS::Disc.1.!I|
00002a70  6e 73 74 61 6c 6c 53 36  2e 21 52 75 6e 22 0d 10  |nstallS6.!Run"..|
00002a80  18 28 c8 99 73 65 74 63  61 72 65 74 70 6f 73 2c  |.(..setcaretpos,|
00002a90  2c 32 2c 66 6c 61 67 73  32 25 2c 69 63 6f 6e 73  |,2,flags2%,icons|
00002aa0  25 2c 31 30 32 34 0d 10  22 05 e1 0d 10 2c 11 dd  |%,1024.."....,..|
00002ab0  20 f2 6e 65 77 3a f4 20  a4 a4 a4 a4 0d 10 36 0c  | .new:. ......6.|
00002ac0  ea 20 66 25 2c 20 6c 25  0d 10 40 24 66 25 3d ad  |. f%, l%..@$f%=.|
00002ad0  28 22 3c 53 69 62 49 6e  73 74 61 6c 6c 24 44 69  |("<SibInstall$Di|
00002ae0  72 3e 2e 42 6c 6f 63 6b  5f 58 22 29 0d 10 4a 22  |r>.Block_X")..J"|
00002af0  e3 20 6c 25 3d 30 20 b8  20 31 30 32 33 3a 69 63  |. l%=0 . 1023:ic|
00002b00  6f 6e 73 25 3f 6c 25 3d  9a 23 66 25 3a ed 0d 10  |ons%?l%=.#f%:...|
00002b10  54 08 d9 23 66 25 0d 10  5e 0c e1 3a f4 20 a4 a4  |T..#f%..^..:. ..|
00002b20  a4 a4 0d 10 68 29 2a 73  74 61 6d 70 20 22 41 44  |....h)*stamp "AD|
00002b30  46 53 3a 3a 44 69 73 63  a0 31 2e 21 49 6e 73 74  |FS::Disc.1.!Inst|
00002b40  61 6c 6c 53 36 2e 21 52  75 6e 22 0d 10 72 28 c8  |allS6.!Run"..r(.|
00002b50  99 73 65 74 63 61 72 65  74 70 6f 73 2c 2c 31 2c  |.setcaretpos,,1,|
00002b60  66 6c 61 67 73 32 25 2c  69 63 6f 6e 73 25 2c 31  |flags2%,icons%,1|
00002b70  30 32 34 0d 10 7c 05 e1  0d 10 86 4d dd a4 66 28  |024..|.....M..f(|
00002b80  54 24 29 3a ea 46 25 2c  4c 25 3a c8 99 32 36 37  |T$):.F%,L%:..267|
00002b90  35 32 32 2c 74 25 2c 54  24 2c 65 25 2c 32 35 36  |522,t%,T$,e%,256|
00002ba0  2c 22 22 2c 22 22 b8 2c  2c 2c 4c 25 3b 46 25 3a  |,"","".,,,L%;F%:|
00002bb0  e7 46 25 80 31 8c 24 65  25 3d 54 24 8b 65 25 3f  |.F%.1.$e%=T$.e%?|
00002bc0  4c 25 3d 31 33 0d 10 90  08 3d 24 65 25 0d 10 9a  |L%=13....=$e%...|
00002bd0  16 dd a4 61 28 54 24 29  3a 3d a4 62 28 54 24 2c  |...a(T$):=.b(T$,|
00002be0  22 22 29 0d 10 a4 46 dd  a4 62 28 54 24 2c 53 24  |"")...F..b(T$,S$|
00002bf0  29 3a ea 46 25 2c 4c 25  2c 47 25 3a c8 99 33 39  |):.F%,L%,G%:..39|
00002c00  38 35 39 34 2c 74 25 2c  54 24 2c 65 25 2c 32 35  |8594,t%,T$,e%,25|
00002c10  36 2c 53 24 2c 22 22 b8  47 25 2c 2c 2c 4c 25 3b  |6,S$,"".G%,,,L%;|
00002c20  46 25 3a e7 46 25 80 31  8c 0d 10 ae 1b c8 99 32  |F%:.F%.1.......2|
00002c30  36 32 33 36 37 2c 47 25  2c 31 2c 66 24 3a 24 65  |62367,G%,1,f$:$e|
00002c40  25 3d 54 24 0d 10 b8 0e  cc 3a 65 25 3f 4c 25 3d  |%=T$.....:e%?L%=|
00002c50  31 33 0d 10 c2 05 cd 0d  10 cc 08 3d 24 65 25 0d  |13.........=$e%.|
00002c60  10 d6 49 dd a4 68 28 54  24 2c 53 24 2c 68 24 29  |..I..h(T$,S$,h$)|
00002c70  3a ea 46 25 2c 4c 25 2c  47 25 3a c8 99 33 39 38  |:.F%,L%,G%:..398|
00002c80  35 39 34 2c 74 25 2c 54  24 2c 65 25 2c 32 35 36  |594,t%,T$,e%,256|
00002c90  2c 53 24 2c 68 24 b8 47  25 2c 2c 2c 4c 25 3b 46  |,S$,h$.G%,,,L%;F|
00002ca0  25 3a e7 46 25 80 31 8c  0d 10 e0 1b c8 99 32 36  |%:.F%.1.......26|
00002cb0  32 33 36 37 2c 47 25 2c  31 2c 66 24 3a 24 65 25  |2367,G%,1,f$:$e%|
00002cc0  3d 54 24 0d 10 ea 0e cc  3a 65 25 3f 4c 25 3d 31  |=T$.....:e%?L%=1|
00002cd0  33 0d 10 f4 05 cd 0d 10  fe 08 3d 24 65 25 0d 11  |3.........=$e%..|
00002ce0  08 26 dd a4 67 3a ea 62  25 2c 69 25 2c 63 25 2c  |.&..g:.b%,i%,c%,|
00002cf0  67 25 2c 52 25 3a 52 25  3d 30 3a e7 4b 25 3e 3d  |g%,R%:R%=0:.K%>=|
00002d00  33 31 30 8c 0d 11 12 10  de 69 25 31 32 38 3a 63  |310......i%128:c|
00002d10  25 3d 69 25 0d 11 1c 05  cd 0d 11 26 21 de 62 25  |%=i%.......&!.b%|
00002d20  37 36 3a e7 4b 25 3c 33  31 30 84 a9 28 a4 61 28  |76:.K%<310..(.a(|
00002d30  22 48 22 29 29 3c 3d 31  32 8c 0d 11 30 27 24 62  |"H"))<=12...0'$b|
00002d40  25 3d c0 a4 61 28 22 48  22 29 2c 31 32 29 3a 67  |%=..a("H"),12):g|
00002d50  25 3d a9 28 c0 a4 61 28  22 48 22 29 2c 31 32 29  |%=.(..a("H"),12)|
00002d60  29 0d 11 3a 40 cc 3a 24  63 25 3d a4 61 28 22 48  |)..:@.:$c%=.a("H|
00002d70  22 29 3a 52 25 3d 31 3c  3c 38 3a 62 25 21 30 3d  |"):R%=1<<8:b%!0=|
00002d80  63 25 3a 67 25 3d a9 28  a4 61 28 22 48 22 29 29  |c%:g%=.(.a("H"))|
00002d90  3a 63 25 2b 3d a9 28 a4  61 28 22 48 22 29 29 2b  |:c%+=.(.a("H"))+|
00002da0  31 0d 11 44 05 cd 0d 11  4e 70 62 25 3f 31 32 3d  |1..D....Npb%?12=|
00002db0  37 3a 62 25 3f 31 33 3d  32 3a 62 25 3f 31 34 3d  |7:b%?13=2:b%?14=|
00002dc0  37 3a 62 25 3f 31 35 3d  31 3a 62 25 21 31 36 3d  |7:b%?15=1:b%!16=|
00002dd0  37 36 3a 62 25 21 32 30  3d 34 34 3a 62 25 21 32  |76:b%!20=44:b%!2|
00002de0  34 3d 30 3a 62 25 21 32  38 3d 52 25 3a 62 25 21  |4=0:b%!28=R%:b%!|
00002df0  33 32 3d 65 61 25 3a 62  25 21 33 36 3d 31 31 37  |32=ea%:b%!36=117|
00002e00  34 34 30 35 34 35 3a e7  a9 28 a4 61 28 22 49 22  |440545:..(.a("I"|
00002e10  29 29 3e 31 32 8c 0d 11  58 63 24 63 25 3d a4 61  |))>12...Xc$c%=.a|
00002e20  28 22 49 22 29 3a 62 25  21 34 30 3d 63 25 3a 62  |("I"):b%!40=c%:b|
00002e30  25 21 34 34 3d 2d 31 3a  62 25 21 34 38 3d a9 28  |%!44=-1:b%!48=.(|
00002e40  a4 61 28 22 49 22 29 29  3a 63 25 2b 3d a9 28 a4  |.a("I")):c%+=.(.|
00002e50  61 28 22 49 22 29 29 2b  31 3a 62 25 21 33 36 3d  |a("I"))+1:b%!36=|
00002e60  62 25 21 33 36 84 32 35  36 3a e7 a9 28 a4 61 28  |b%!36.256:..(.a(|
00002e70  22 49 22 29 29 3e 67 25  8c 0d 11 62 11 67 25 3d  |"I"))>g%...b.g%=|
00002e80  a9 28 a4 61 28 22 49 22  29 29 0d 11 6c 05 cd 0d  |.(.a("I"))..l...|
00002e90  11 76 30 cc 3a 24 28 62  25 2b 34 30 29 3d c0 a4  |.v0.:$(b%+40)=..|
00002ea0  61 28 22 49 22 29 2c 31  32 29 3a e7 a9 28 c0 a4  |a("I"),12):..(..|
00002eb0  61 28 22 49 22 29 2c 31  32 29 29 3e 67 25 8c 0d  |a("I"),12))>g%..|
00002ec0  11 80 16 67 25 3d a9 28  c0 a4 61 28 22 49 22 29  |...g%=.(..a("I")|
00002ed0  2c 31 32 29 29 0d 11 8a  05 cd 0d 11 94 05 cd 0d  |,12))...........|
00002ee0  11 9e 36 62 25 21 35 32  3d 31 32 38 3a 62 25 21  |..6b%!52=128:b%!|
00002ef0  35 36 3d 2d 31 3a 62 25  21 36 30 3d 31 31 37 34  |56=-1:b%!60=1174|
00002f00  34 30 35 34 35 3a e7 a9  28 a4 61 28 22 51 22 29  |40545:..(.a("Q")|
00002f10  29 3e 31 32 8c 0d 11 a8  63 24 63 25 3d a4 61 28  |)>12....c$c%=.a(|
00002f20  22 51 22 29 3a 62 25 21  36 34 3d 63 25 3a 62 25  |"Q"):b%!64=c%:b%|
00002f30  21 36 38 3d 2d 31 3a 62  25 21 37 32 3d a9 28 a4  |!68=-1:b%!72=.(.|
00002f40  61 28 22 51 22 29 29 3a  63 25 2b 3d a9 28 a4 61  |a("Q")):c%+=.(.a|
00002f50  28 22 51 22 29 29 2b 31  3a 62 25 21 36 30 3d 62  |("Q"))+1:b%!60=b|
00002f60  25 21 36 30 84 32 35 36  3a e7 a9 28 a4 61 28 22  |%!60.256:..(.a("|
00002f70  51 22 29 29 3e 67 25 8c  0d 11 b2 11 67 25 3d a9  |Q"))>g%.....g%=.|
00002f80  28 a4 61 28 22 51 22 29  29 0d 11 bc 05 cd 0d 11  |(.a("Q")).......|
00002f90  c6 30 cc 3a 24 28 62 25  2b 36 34 29 3d c0 a4 61  |.0.:$(b%+64)=..a|
00002fa0  28 22 51 22 29 2c 31 32  29 3a e7 a9 28 c0 a4 61  |("Q"),12):..(..a|
00002fb0  28 22 51 22 29 2c 31 32  29 29 3e 67 25 8c 0d 11  |("Q"),12))>g%...|
00002fc0  d0 16 67 25 3d a9 28 c0  a4 61 28 22 51 22 29 2c  |..g%=.(..a("Q"),|
00002fd0  31 32 29 29 0d 11 da 05  cd 0d 11 e4 05 cd 0d 11  |12))............|
00002fe0  ee 17 62 25 21 31 36 3d  28 67 25 2b 31 29 2a 31  |..b%!16=(g%+1)*1|
00002ff0  36 3a 3d 62 25 0d 11 f8  25 dd f2 62 28 73 24 29  |6:=b%...%..b(s$)|
00003000  3a f2 75 28 73 24 2b 22  20 22 2b a4 61 28 22 45  |:.u(s$+" "+.a("E|
00003010  72 72 6f 72 34 22 29 29  3a e1 0d 12 02 1d dd f2  |rror4")):.......|
00003020  67 3a ea 78 25 2c 79 25  2c 6c 25 2c 6f 25 3a e7  |g:.x%,y%,l%,o%:.|
00003030  21 61 25 3d 64 25 8c 0d  12 0c 4f 21 71 25 3d 64  |!a%=d%....O!q%=d|
00003040  25 3a c8 99 32 36 32 33  34 38 2c 2c 71 25 3a e7  |%:..262348,,q%:.|
00003050  28 71 25 21 31 32 2d 71  25 21 34 29 3c 3e 28 61  |(q%!12-q%!4)<>(a|
00003060  25 21 31 32 2d 61 25 21  34 29 84 28 71 25 21 31  |%!12-a%!4).(q%!1|
00003070  36 2d 71 25 21 38 29 3c  3e 28 61 25 21 31 36 2d  |6-q%!8)<>(a%!16-|
00003080  61 25 21 38 29 8c 0d 12  16 3f c8 99 35 33 2c 2d  |a%!8)....?..53,-|
00003090  31 2c 35 b8 2c 2c 6f 25  3a 78 25 3d 28 61 25 21  |1,5.,,o%:x%=(a%!|
000030a0  31 32 2d 61 25 21 34 29  81 31 36 3a 6c 25 3d 32  |12-a%!4).16:l%=2|
000030b0  35 36 81 78 25 3a e7 32  35 36 83 78 25 3c 3e 30  |56.x%:.256.x%<>0|
000030c0  6c 25 2b 3d 31 0d 12 20  0f e7 6c 25 3c 7a 25 6c  |l%+=1.. ..l%<z%l|
000030d0  25 3d 7a 25 0d 12 2a 6b  71 25 21 34 38 3d 28 28  |%=z%..*kq%!48=((|
000030e0  71 25 21 35 36 2d 6c 25  2a 28 77 25 2b 2d 38 2b  |q%!56-l%*(w%+-8+|
000030f0  31 29 29 3e 3e 6f 25 29  3c 3c 6f 25 3a c8 99 32  |1))>>o%)<<o%:..2|
00003100  36 32 33 35 39 2c 64 25  2c 71 25 2b 34 34 3a f2  |62359,d%,q%+44:.|
00003110  64 28 64 25 29 3a 63 24  3d 22 22 3a 61 25 21 38  |d(d%):c$="":a%!8|
00003120  3d 28 28 61 25 21 31 36  2d 6c 25 2a 28 77 25 2b  |=((a%!16-l%*(w%+|
00003130  2d 38 2b 31 29 29 3e 3e  6f 25 29 3c 3c 6f 25 0d  |-8+1))>>o%)<<o%.|
00003140  12 34 05 cd 0d 12 3e 05  cd 0d 12 48 12 c8 99 32  |.4....>....H...2|
00003150  36 32 33 34 31 2c 2c 61  25 3a e1 0d 12 52 1a dd  |62341,,a%:...R..|
00003160  f2 69 3a e7 21 61 25 3d  64 25 f2 64 28 64 25 29  |.i:.!a%=d%.d(d%)|
00003170  3a 66 25 3d a3 0d 12 5c  12 c8 99 32 36 32 33 34  |:f%=...\...26234|
00003180  32 2c 2c 61 25 3a e1 0d  12 66 13 dd f2 70 3a e7  |2,,a%:...f...p:.|
00003190  61 25 21 32 34 3d 33 38  35 8c 0d 12 70 08 e7 66  |a%!24=385...p..f|
000031a0  25 8c 0d 12 7a 0d 21 61  25 3d 64 25 3a f2 69 0d  |%...z.!a%=d%:.i.|
000031b0  12 84 17 cc 3a 63 24 3d  22 22 3a 66 25 3d b9 3a  |....:c$="":f%=.:|
000031c0  f2 63 28 64 25 29 0d 12  8e 05 cd 0d 12 98 14 cc  |.c(d%)..........|
000031d0  3a c8 99 32 36 32 33 36  34 2c 61 25 21 32 34 0d  |:..262364,a%!24.|
000031e0  12 a2 05 cd 0d 12 ac 05  e1 0d 12 b6 14 dd f2 6f  |...............o|
000031f0  3a ea 70 25 3a e7 61 25  21 38 80 35 8c 0d 12 c0  |:.p%:.a%!8.5....|
00003200  1e e7 61 25 21 31 32 3d  2d 32 63 24 3d 22 22 3a  |..a%!12=-2c$="":|
00003210  66 25 3d b9 3a f2 63 28  64 25 29 0d 12 ca 05 cd  |f%=.:.c(d%).....|
00003220  0d 12 d4 0c e7 61 25 21  38 80 32 8c 0d 12 de 21  |.....a%!8.2....!|
00003230  e7 61 25 21 31 32 3d 2d  32 f2 6a 28 69 61 25 2c  |.a%!12=-2.j(ia%,|
00003240  21 61 25 2d 36 34 2c 39  36 2b 38 38 29 0d 12 e8  |!a%-64,96+88)...|
00003250  05 cd 0d 12 f2 05 e1 0d  12 fc 3b dd f2 6a 28 68  |..........;..j(h|
00003260  25 2c 78 25 2c 79 25 29  3a 6a 61 25 3d 68 25 3a  |%,x%,y%):ja%=h%:|
00003270  6b 61 25 3d 78 25 3a 6c  61 25 3d 79 25 3a c8 99  |ka%=x%:la%=y%:..|
00003280  32 36 32 33 35 36 2c 2c  68 25 2c 78 25 2c 79 25  |262356,,h%,x%,y%|
00003290  3a e1 0d 13 06 34 dd f2  71 3a ea 61 24 3a c8 99  |:....4..q:.a$:..|
000032a0  32 36 32 33 35 37 2c 2c  6a 61 25 2c 61 25 2c c4  |262357,,ja%,a%,.|
000032b0  32 30 30 2c 22 20 22 29  b8 2c 2c 2c 61 24 3a e7  |200," ").,,,a$:.|
000032c0  61 24 3d 22 22 e1 0d 13  10 14 e7 61 24 3d a4 61  |a$=""......a$=.a|
000032d0  28 22 51 22 29 3a f2 6b  3a e0 0d 13 1a 28 c8 99  |("Q"):.k:....(..|
000032e0  32 36 32 33 35 31 2c 2c  61 25 3a e7 61 25 3f 38  |262351,,a%:.a%?8|
000032f0  80 31 8c f2 6a 28 69 61  25 2c 6b 61 25 2c 6c 61  |.1..j(ia%,ka%,la|
00003300  25 29 0d 13 24 05 e1 0d  13 2e 1b dd f2 72 28 72  |%)..$........r(r|
00003310  25 29 3a ea 69 24 2c 69  25 3a c8 8e 61 25 21 31  |%):.i$,i%:..a%!1|
00003320  36 ca 0d 13 38 0b c9 30  3a f2 6b 3a e0 0d 13 42  |6...8..0:.k:...B|
00003330  0a c9 31 30 3a f2 76 0d  13 4c 0c c9 31 32 38 32  |..10:.v..L..1282|
00003340  3a f2 77 0d 13 56 28 c9  31 32 38 33 3a e7 66 25  |:.w..V(.1283:.f%|
00003350  3d 46 41 4c 53 45 54 48  45 4e 63 24 3d 22 22 3a  |=FALSETHENc$="":|
00003360  66 25 3d b9 3a f2 63 28  64 25 29 0d 13 60 06 f2  |f%=.:.c(d%)..`..|
00003370  65 0d 13 6a 33 c9 32 36  32 33 33 38 3a e7 61 25  |e..j3.262338:.a%|
00003380  21 34 3c 3e 62 61 25 80  a4 64 28 61 25 2b 32 38  |!4<>ba%..d(a%+28|
00003390  29 3d 22 53 69 62 65 6c  69 75 73 20 73 79 73 74  |)="Sibelius syst|
000033a0  65 6d 22 8c 0d 13 74 2e  61 25 21 31 32 3d 30 3a  |em"...t.a%!12=0:|
000033b0  61 25 21 31 36 3d 30 3a  21 61 25 3d 32 30 3a c8  |a%!16=0:!a%=20:.|
000033c0  99 32 36 32 33 37 35 2c  31 37 2c 61 25 2c 61 25  |.262375,17,a%,a%|
000033d0  21 34 0d 13 7e 05 cd 0d  13 88 24 c9 32 36 32 33  |!4..~.....$.2623|
000033e0  35 31 3a e7 66 25 8c 24  28 61 25 2b 32 30 29 3d  |51:.f%.$(a%+20)=|
000033f0  63 24 3a 63 24 3d 22 22  3a f2 65 0d 13 92 05 cb  |c$:c$="":.e.....|
00003400  0d 13 9c 05 e1 0d 13 a6  32 dd f2 76 3a ea 69 25  |........2..v:.i%|
00003410  3a ea 85 3a ee 85 ea 61  25 21 31 32 3d 61 25 21  |:..:...a%!12=a%!|
00003420  38 3a c8 99 32 36 32 33  37 35 2c 31 39 2c 61 25  |8:..262375,19,a%|
00003430  2c 61 25 21 34 3a e1 0d  13 b0 31 69 25 3d 61 25  |,a%!4:....1i%=a%|
00003440  21 32 30 3a e7 ac 28 66  25 29 d5 23 69 25 2c 22  |!20:..(f%).#i%,"|
00003450  53 65 74 20 53 69 62 65  6c 69 75 73 24 4f 70 74  |Set Sibelius$Opt|
00003460  69 6f 6e 73 20 7e 49 22  0d 13 ba 47 c8 99 31 33  |ions ~I"...G..13|
00003470  31 31 30 37 2c 22 53 69  62 65 6c 69 75 73 24 44  |1107,"Sibelius$D|
00003480  69 72 22 2c 71 25 2c 31  30 32 34 2c 30 2c 33 b8  |ir",q%,1024,0,3.|
00003490  2c 2c 6c 25 3a 71 25 3f  6c 25 3d 31 33 3a d5 23  |,,l%:q%?l%=13:.#|
000034a0  69 25 2c 22 52 75 6e 20  22 2b 24 71 25 3a e1 0d  |i%,"Run "+$q%:..|
000034b0  13 c4 20 dd f2 73 3a e7  61 25 21 31 36 3d 31 32  |.. ..s:.a%!16=12|
000034c0  38 32 58 25 2b 3d 31 3a  e7 58 25 3d 32 f2 61 0d  |82X%+=1:.X%=2.a.|
000034d0  13 ce 05 e1 0d 13 d8 16  dd f2 61 3a e7 62 24 3d  |..........a:.b$=|
000034e0  22 22 80 64 24 3c 3e 22  22 8c 0d 13 e2 20 e7 55  |"".d$<>"".... .U|
000034f0  25 3d 2d 32 62 24 3d a4  62 28 22 53 69 62 65 6c  |%=-2b$=.b("Sibel|
00003500  69 75 73 48 33 22 2c 64  24 29 0d 13 ec 05 cd 0d  |iusH3",d$)......|
00003510  13 f6 17 24 28 61 25 2b  32 30 29 3d 62 24 2b bd  |...$(a%+20)=b$+.|
00003520  30 3a f2 65 3a e1 0d 14  00 12 dd f2 77 3a e7 61  |0:.e:.......w:.a|
00003530  25 21 33 36 3c 2d 31 e1  0d 14 0a 0c c8 8e 61 25  |%!36<-1.......a%|
00003540  21 33 32 ca 0d 14 14 18  c9 64 25 3a f2 68 28 22  |!32......d%:.h("|
00003550  53 69 62 65 6c 69 75 73  48 32 22 29 0d 14 1e 19  |SibeliusH2")....|
00003560  c9 65 61 25 3a f2 68 28  22 53 69 62 65 6c 69 75  |.ea%:.h("Sibeliu|
00003570  73 48 34 22 29 0d 14 28  18 c9 2d 32 3a f2 68 28  |sH4")..(..-2:.h(|
00003580  22 53 69 62 65 6c 69 75  73 48 31 22 29 0d 14 32  |"SibeliusH1")..2|
00003590  19 7f 3a e7 4b 25 3e 3d  32 31 38 80 61 25 21 33  |..:.K%>=218.a%!3|
000035a0  36 3c 3e 2d 31 8c 0d 14  3c 24 c8 99 32 36 32 33  |6<>-1...<$..2623|
000035b0  38 38 2c 31 2c 71 25 2c  61 25 21 33 32 2c 61 25  |88,1,q%,a%!32,a%|
000035c0  21 33 36 3a c8 8e 21 71  25 ca 0d 14 46 1a c9 30  |!36:..!q%...F..0|
000035d0  3a e7 71 25 21 34 3d 2d  31 f2 68 28 22 4d 6e 75  |:.q%!4=-1.h("Mnu|
000035e0  30 31 22 29 0d 14 50 12  c9 31 3a f2 68 28 22 4d  |01")..P..1:.h("M|
000035f0  6e 75 30 32 22 29 0d 14  5a 05 cb 0d 14 64 05 cd  |nu02")..Z....d..|
00003600  0d 14 6e 05 cb 0d 14 78  05 e1 0d 14 82 6c dd f2  |..n....x.....l..|
00003610  68 28 6d 24 29 3a ea 63  25 3a 6d 24 3d a4 61 28  |h(m$):.c%:m$=.a(|
00003620  6d 24 29 3a 63 25 3d a9  6d 24 2b 31 3a 61 25 21  |m$):c%=.m$+1:a%!|
00003630  31 32 3d 61 25 21 38 3a  61 25 21 31 36 3d 31 32  |12=a%!8:a%!16=12|
00003640  38 33 3a 24 28 61 25 2b  32 30 29 3d 6d 24 2b bd  |83:$(a%+20)=m$+.|
00003650  30 3a 21 61 25 3d 28 32  34 2b 63 25 29 80 ac 33  |0:!a%=(24+c%)..3|
00003660  3a c8 99 32 36 32 33 37  35 2c 31 37 2c 61 25 2c  |:..262375,17,a%,|
00003670  61 25 21 34 3a e1 0d 14  8c 8d dd f2 78 28 48 25  |a%!4:.......x(H%|
00003680  29 3a ea 62 25 3a 62 25  3d 75 25 3a 4d 25 2d 3d  |):.b%:b%=u%:M%-=|
00003690  28 77 25 2b 53 25 29 3a  62 25 21 31 32 3d 4d 25  |(w%+S%):b%!12=M%|
000036a0  3a 62 25 21 31 36 3d a4  65 28 48 25 2c 31 2b a9  |:b%!16=.e(H%,1+.|
000036b0  24 48 25 29 3a 62 25 21  32 30 3d 4d 25 2b 77 25  |$H%):b%!20=M%+w%|
000036c0  3a 62 25 21 32 38 3d 48  25 3a c8 99 32 36 32 33  |:b%!28=H%:..2623|
000036d0  33 38 2c 2c 62 25 2b 34  3a c8 99 32 36 32 33 35  |38,,b%+4:..26235|
000036e0  33 2c 64 25 2c 62 25 21  38 2c 62 25 21 31 32 2c  |3,d%,b%!8,b%!12,|
000036f0  62 25 21 31 36 2c 62 25  21 32 30 3a 7a 25 2b 3d  |b%!16,b%!20:z%+=|
00003700  31 3a e1 0d 14 96 6f dd  f2 65 3a ea 78 25 2c 53  |1:....o..e:.x%,S|
00003710  25 2c 4d 25 2c 41 25 2c  70 25 2c 6d 25 2c 4e 25  |%,M%,A%,p%,m%,N%|
00003720  2c 49 25 2c 79 25 3a c8  99 33 39 2c 61 25 2b 32  |,I%,y%:..39,a%+2|
00003730  30 2c 6e 25 2c 35 31 32  2b 28 31 3c 3c 33 31 29  |0,n%,512+(1<<31)|
00003740  b8 70 25 2c 2c 41 25 3a  41 25 2b 3d 6e 25 3a 3f  |.p%,,A%:A%+=n%:?|
00003750  41 25 3d 31 33 3a 70 25  3f 2d 31 3d 31 33 3a 74  |A%=13:p%?-1=13:t|
00003760  24 3d 24 28 61 25 2b 32  30 29 3a e7 74 24 3d 63  |$=$(a%+20):.t$=c|
00003770  24 e1 0d 14 a0 2f 63 24  3d 74 24 3a 79 25 3d 4a  |$..../c$=t$:y%=J|
00003780  25 3a e3 78 25 3d 6e 25  b8 41 25 3a 3f 79 25 3d  |%:.x%=n%.A%:?y%=|
00003790  3f 78 25 3a e7 3f 78 25  3c 3e 97 28 22 5c 22 29  |?x%:.?x%<>.("\")|
000037a0  8c 0d 14 aa 09 79 25 2b  3d 31 0d 14 b4 18 cc 3a  |.....y%+=1.....:|
000037b0  78 25 2b 3d 31 3a e7 3f  78 25 3d 97 28 22 5c 22  |x%+=1:.?x%=.("\"|
000037c0  29 8c 0d 14 be 09 79 25  2b 3d 31 0d 14 c8 48 cc  |).....y%+=1...H.|
000037d0  3a 24 28 79 25 29 3d a4  61 28 22 54 22 2b bd 28  |:$(y%)=.a("T"+.(|
000037e0  3f 78 25 29 29 3a e7 3f  79 25 3d 97 28 22 54 22  |?x%)):.?y%=.("T"|
000037f0  29 80 3f 28 79 25 2b 31  29 3d 3f 78 25 80 a9 28  |).?(y%+1)=?x%..(|
00003800  24 28 79 25 29 29 3d 32  8c 3f 79 25 3d 97 28 22  |$(y%))=2.?y%=.("|
00003810  5c 22 29 0d 14 d2 10 79  25 2b 3d a9 28 24 28 79  |\")....y%+=.($(y|
00003820  25 29 29 0d 14 dc 05 cd  0d 14 e6 05 cd 0d 14 f0  |%)).............|
00003830  18 e7 79 25 2d 4a 25 3e  35 30 30 8c 79 25 3d 4a  |..y%-J%>500.y%=J|
00003840  25 2b 35 30 30 0d 14 fa  a6 ed 78 25 3a 41 25 3d  |%+500.....x%:A%=|
00003850  79 25 2d 31 3a 7a 25 3d  30 3a f2 64 28 64 25 29  |y%-1:z%=0:.d(d%)|
00003860  3a 53 25 3d 2d 38 3a 4d  25 3d 67 61 25 2b 77 25  |:S%=-8:M%=ga%+w%|
00003870  2b 53 25 3a 21 61 25 3d  64 25 3a c8 99 32 36 32  |+S%:!a%=d%:..262|
00003880  33 34 37 2c 2c 61 25 3a  78 25 3d 61 25 21 31 32  |347,,a%:x%=a%!12|
00003890  2d 61 25 21 34 3a 70 25  3d 4a 25 3a c8 95 70 25  |-a%!4:p%=J%:..p%|
000038a0  3c 41 25 3a 6d 25 3d 70  25 3a 49 25 3d 70 25 3a  |<A%:m%=p%:I%=p%:|
000038b0  4e 25 3d a3 3a f5 3a 70  25 2b 3d 31 3a e7 28 3f  |N%=.:.:p%+=1:.(?|
000038c0  70 25 3d 31 33 84 3f 70  25 3d 31 30 84 3f 70 25  |p%=13.?p%=10.?p%|
000038d0  3d 33 32 29 8c 6d 61 25  3d a4 65 28 6d 25 2c 70  |=32).ma%=.e(m%,p|
000038e0  25 2d 6d 25 29 8b 6d 61  25 3d 30 0d 15 04 0d e7  |%-m%).ma%=0.....|
000038f0  6d 61 25 3e 3d 78 25 8c  0d 15 0e 08 4e 25 3d b9  |ma%>=x%.....N%=.|
00003900  0d 15 18 21 cc 3a e7 28  3f 70 25 3d 31 33 84 3f  |...!.:.(?p%=13.?|
00003910  70 25 3d 31 30 29 8c 49  25 3d 70 25 3a 4e 25 3d  |p%=10).I%=p%:N%=|
00003920  b9 0d 15 22 10 e7 3f 70  25 3d 33 32 49 25 3d 70  |..."..?p%=32I%=p|
00003930  25 0d 15 2c 05 cd 0d 15  36 22 fd 4e 25 3a e7 49  |%..,....6".N%:.I|
00003940  25 3c 3e 6d 25 70 25 3d  49 25 3a 3f 70 25 3d 31  |%<>m%p%=I%:?p%=1|
00003950  33 3a f2 78 28 6d 25 29  0d 15 40 6b 70 25 2b 3d  |3:.x(m%)..@kp%+=|
00003960  31 3a ce 3a c8 99 35 33  2c 2d 31 2c 34 b8 2c 2c  |1:.:..53,-1,4.,,|
00003970  6e 61 25 3a c8 99 35 33  2c 2d 31 2c 35 b8 2c 2c  |na%:..53,-1,5.,,|
00003980  6f 25 3a 21 71 25 3d 64  25 3a c8 99 32 36 32 33  |o%:!q%=d%:..2623|
00003990  34 38 2c 2c 71 25 3a 78  25 3d 28 61 25 21 31 32  |48,,q%:x%=(a%!12|
000039a0  2d 61 25 21 34 29 81 31  36 3a 6c 25 3d 32 35 36  |-a%!4).16:l%=256|
000039b0  81 78 25 3a e7 32 35 36  83 78 25 3c 3e 30 6c 25  |.x%:.256.x%<>0l%|
000039c0  2b 3d 31 0d 15 4a 0f e7  6c 25 3c 7a 25 6c 25 3d  |+=1..J..l%<z%l%=|
000039d0  7a 25 0d 15 54 6d 71 25  21 34 38 3d 28 28 71 25  |z%..Tmq%!48=((q%|
000039e0  21 35 36 2d 6c 25 2a 28  77 25 2b 2d 38 2b 31 29  |!56-l%*(w%+-8+1)|
000039f0  29 3e 3e 6f 25 29 3c 3c  6f 25 3a c8 99 32 36 32  |)>>o%)<<o%:..262|
00003a00  33 35 39 2c 64 25 2c 71  25 2b 34 34 3a 71 25 21  |359,d%,q%+44:q%!|
00003a10  38 3d 28 28 71 25 21 31  36 2d 6c 25 2a 28 77 25  |8=((q%!16-l%*(w%|
00003a20  2b 2d 38 2b 31 29 29 3e  3e 6f 25 29 3c 3c 6f 25  |+-8+1))>>o%)<<o%|
00003a30  3a c8 99 32 36 32 33 34  31 2c 2c 71 25 3a e1 0d  |:..262341,,q%:..|
00003a40  15 5e 6c dd f2 64 28 68  25 29 3a ea 6a 25 3a 21  |.^l..d(h%):.j%:!|
00003a50  71 25 3d 68 25 3a c8 99  32 36 32 33 34 38 2c 2c  |q%=h%:..262348,,|
00003a60  71 25 3a 21 71 25 3d 68  25 3a 71 25 21 38 3d 38  |q%:!q%=h%:q%!8=8|
00003a70  33 38 38 37 33 36 3a 71  25 21 31 32 3d 38 33 38  |388736:q%!12=838|
00003a80  38 37 33 36 3a e3 6a 25  3d 31 b8 71 25 21 38 38  |8736:.j%=1.q%!88|
00003a90  3a 71 25 21 34 3d 6a 25  2d 31 3a c8 99 32 36 32  |:q%!4=j%-1:..262|
00003aa0  33 34 39 2c 2c 71 25 3a  ed 3a e1 0d 15 68 0f dd  |349,,q%:.:...h..|
00003ab0  f2 6b 3a e7 74 25 3c 3e  30 8c 0d 15 72 1a c8 99  |.k:.t%<>0...r...|
00003ac0  32 36 37 35 32 34 2c 74  25 3a c8 99 33 30 2c 37  |267524,t%:..30,7|
00003ad0  2c 2c 74 25 0d 15 7c 05  cd 0d 15 86 17 2a 75 6e  |,,t%..|......*un|
00003ae0  73 65 74 20 53 69 62 65  6c 69 75 73 24 44 69 72  |set Sibelius$Dir|
00003af0  0d 15 90 0e c8 99 32 36  32 33 36 35 3a e1 0d 15  |......262365:...|
00003b00  9a 18 dd f2 75 28 65 24  29 3a 43 25 3d 31 3a 85  |....u(e$):C%=1:.|
00003b10  31 2c 65 24 3a e1 0d 15  a4 18 dd f2 79 28 65 24  |1,e$:.......y(e$|
00003b20  29 3a 43 25 3d 32 3a 85  31 2c 65 24 3a e1 0d 15  |):C%=2:.1,e$:...|
00003b30  ae 3d dd f2 6d 3a ea 72  25 3a ea 85 3a ee 85 ff  |.=..m:.r%:..:...|
00003b40  28 22 75 6e 73 65 74 20  53 69 62 65 6c 69 75 73  |("unset Sibelius|
00003b50  24 44 69 72 22 29 3a 85  45 58 54 31 2c f6 24 2b  |$Dir"):.EXT1,.$+|
00003b60  22 20 28 22 2b c3 9e 2b  22 29 22 0d 15 b8 10 21  |" ("+..+")"....!|
00003b70  71 25 3d 9f 3a e7 43 25  3d 33 8c 0d 15 c2 1e 24  |q%=.:.C%=3.....$|
00003b80  28 71 25 2b 34 29 3d a4  68 28 22 46 49 45 22 2c  |(q%+4)=.h("FIE",|
00003b90  f6 24 2c c3 9e 29 2b bd  30 0d 15 cc 15 cc 3a 24  |.$,..)+.0.....:$|
00003ba0  28 71 25 2b 34 29 3d f6  24 2b bd 28 30 29 0d 15  |(q%+4)=.$+.(0)..|
00003bb0  d6 05 cd 0d 15 e0 27 c8  99 32 36 32 33 36 37 2c  |......'..262367,|
00003bc0  71 25 2c 43 25 2c a4 61  28 22 54 73 6b 22 29 b8  |q%,C%,.a("Tsk").|
00003bd0  2c 72 25 3a e7 72 25 3d  32 8c 0d 15 ea 17 2a 55  |,r%:.r%=2.....*U|
00003be0  6e 73 65 74 20 53 69 62  65 6c 69 75 73 24 44 69  |nset Sibelius$Di|
00003bf0  72 0d 15 f4 0e c8 99 32  36 32 33 36 35 3a e0 0d  |r......262365:..|
00003c00  15 fe 05 cd 0d 16 08 05  e1 0d 16 12 4e dd f2 63  |............N..c|
00003c10  28 68 25 29 3a 21 61 25  3d 68 25 3a c8 99 32 36  |(h%):!a%=h%:..26|
00003c20  32 33 34 37 2c 2c 61 25  3a 61 25 21 32 30 3d 30  |2347,,a%:a%!20=0|
00003c30  3a 61 25 21 32 34 3d 30  3a 61 25 21 32 38 3d 2d  |:a%!24=0:a%!28=-|
00003c40  31 3a f2 67 3a c8 99 36  36 b8 42 25 3a 50 25 3d  |1:.g:..66.B%:P%=|
00003c50  42 25 2b 4f 25 3a e1 0d  16 1c 43 dd f2 7a 28 68  |B%+O%:....C..z(h|
00003c60  25 2c 74 24 29 3a 74 24  3d c1 74 24 2c a7 74 24  |%,t$):t$=.t$,.t$|
00003c70  2c 22 3c 22 29 2b 31 29  3a 21 71 25 3d 68 25 3a  |,"<")+1):!q%=h%:|
00003c80  c8 99 32 36 32 33 34 38  2c 2c 71 25 3a 24 28 71  |..262348,,q%:$(q|
00003c90  25 21 37 36 29 3d 74 24  3a e1 0d 16 26 1a dd f2  |%!76)=t$:...&...|
00003ca0  66 3a f2 79 28 a4 61 28  22 46 61 74 61 6c 32 22  |f:.y(.a("Fatal2"|
00003cb0  29 29 3a e1 0d 16 30 20  dd a4 69 3a ea 6f 61 25  |)):...0 ..i:.oa%|
00003cc0  3a c8 99 32 36 32 33 38  36 2c 38 b8 6f 61 25 3a  |:..262386,8.oa%:|
00003cd0  3d 6f 61 25 0d 16 3a 20  dd a4 65 28 48 25 2c 54  |=oa%..: ..e(H%,T|
00003ce0  25 29 3a ea 6b 25 3a e7  5f 25 3d 46 41 4c 53 45  |%):.k%:._%=FALSE|
00003cf0  54 48 45 4e 0d 16 44 10  6b 25 3d 31 36 2a 28 54  |THEN..D.k%=16*(T|
00003d00  25 2b 31 29 0d 16 4e 0d  cc 3a e7 a4 69 54 48 45  |%+1)..N..:..iTHE|
00003d10  4e 0d 16 58 1e c8 99 32  36 32 33 39 33 2c 31 2c  |N..X...262393,1,|
00003d20  48 25 2c 54 25 b8 6b 25  3a 6b 25 2b 3d 31 36 0d  |H%,T%.k%:k%+=16.|
00003d30  16 62 12 cc 3a 6b 25 3d  31 36 2a 28 54 25 2b 31  |.b..:k%=16*(T%+1|
00003d40  29 0d 16 6c 05 cd 0d 16  76 05 cd 0d 16 80 07 3d  |)..l....v......=|
00003d50  6b 25 0d ff                                       |k%..|
00003d54
!InstallS6/!RunImage.m0
!InstallS6/!RunImage.m1
!InstallS6/!RunImage.m2
!InstallS6/!RunImage.m4
!InstallS6/!RunImage.m5