Home » Archimedes archive » Archimedes World » AW-1994-09-Disc1.adf » Disk1Sep94 » !AWSept94/Goodies/Ray3D/!Ray3D/!Runimage
!AWSept94/Goodies/Ray3D/!Ray3D/!Runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1994-09-Disc1.adf » Disk1Sep94 |
Filename: | !AWSept94/Goodies/Ray3D/!Ray3D/!Runimage |
Read OK: | ✔ |
File size: | F9A6 bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
1 2o$="v1.82 (12 Febraury 1994)":aa%=182:SYS"Hourglass_On":SYS"OS_GetEnv"TOg$::ONERRORREPORT:PRINT" at line ";ERL:END 7PROCaa:SYS"Hourglass_Off":ONERRORPROCba(ERR,REPORT$,ERL) 10REPEAT:SYS"Wimp_Poll",1,b%TOaa:CASE(aa)OF 13WHEN1:PROCca(!b%) 15WHEN2:PROCK 16WHEN3:PROCo(!b%) 17WHEN4:PROCda(!b%) 18WHEN5:PROCea(!b%) 19WHEN6:PROCfa(b%) 20WHEN7:PROCga 21WHEN8:PROCha(!b%,b%!4,b%!24) 22WHEN9:PROCia(b%) 23WHEN17,18:PROCja(b%!16) 24ENDCASE 24IFba%PROCm(ca%) 25UNTILba%ANDNOTda%:PROCL:END 28DEFPROCi:ea%=0:IFfa%=0THEN 34FORN=1TOd%:IFINSTR($FNa(N),">")=0THENea%+=36 36NEXT:ea%=ea%+(U%*36) 39ELSE:FORN=1TOd%:a$=$FNa(N):IFLEFT$(a$,INSTR(a$,">")-1)=$FNd(fa%)THENea%+=36 42NEXT 44ENDIF 44IFea%<328THENea%=328 45PROCh:ENDPROC 47DEFPROCo(!b%):LOCALC%:C%=!b%:CASEC%OF 54WHENT%:PROCo(ga%):!b%=ha%:SYS"Wimp_CloseWindow",,b% 58WHENZ%:PROCE:!b%=ia%:SYS"Wimp_CloseWindow",,b% 61WHENa%(0),a%(1),a%(2):PROCE:!b%=a%(0):SYS"Wimp_CloseWindow",,b%:!b%=a%(1):SYS"Wimp_CloseWindow",,b%:!b%=a%(2):SYS"Wimp_CloseWindow",,b% 66ENDCASE 66IFC%<>ia%ANDC%<>ha%THEN 67!b%=C%:SYS"Wimp_CloseWindow",,b% 69ENDIF 69ENDPROC 70DEFPROCfa(b%):LOCALI%,A$,W%,ja%:I%=b%!16:W%=b%!12:IFW%=ka%THEN!b%=W%:SYS"Wimp_CloseWindow",,b% 76ja%=b%!8:CASEja%OF 78WHEN2:la%=0:IFW%=-2THEN 80la%=1:PROCF(" !Ray3d ","Info,Save Config,Fast,Colours...,Quit,",!b%,324) 83ENDIF 83IFW%=ma%AND`%>0THENPROCM(!b%,b%!4,3) 84IFW%=na%ANDoa%>0THENPROCM(!b%,b%!4,4) 85IFla%=0ANDW%<>pa%THEN 86la%=2:PROCF(" Main Menu ","Project,Select,Lights ,World,Macro,Grid,Zoom,Tools...,",!b%,b%!4) 89ENDIF 89 91WHEN1:CASEW%OF 92WHENia%:PROCV(W%,!b%,b%!4,ja%) 94WHENa%(0),a%(1),a%(2):PROCka 95OTHERWISE:PROCv(W%,I%,1) 96ENDCASE 96 98WHEN4:CASEW%OF 99WHEN-2:PROCW:PROCk:PROCo(ka%):SYS"Wimp_SetCaretPosition",Z%,0,0,0,-1,LEN(FNb(Z%,0)) 105ENDCASE 105IFI%=-1THEN 106PROCV(W%,!b%,b%!4,ja%) 108ELSE:PROCv(W%,I%,4) 110ENDIF 110WHEN16,64:IFW%=qa%ANDI%=0THENPROCN:ra%=1 112IFW%=sa%ANDI%=0THENPROCN:ra%=4 113IFW%=ta%ANDI%=0THENPROCN:ra%=5 114ENDCASE 115ENDPROC 116DEFPROCla:LOCALN,F,ua%,va%,m%,p:IFwa%=14ANDO%=0THENENDPROC 120IFwa%=30ANDO%=0THENENDPROC 121c%=xa%+H%-4:p=ya%*a:x%=(x%-b%!4+b%!20):y%=((b%!24-b%!16+y%)+u%*a):IFt%(90)=x%ANDt%(91)=y%ANDt%(92)=z%THENENDPROC 124t%(90)=x%:t%(91)=y%:t%(92)=z%:IFza%THEN 126IFx%MODp<=p/2THENx%=x%DIVp*pELSEx%=(x%DIVp+1)*p 127IFy%MODp<=p/2THENy%=y%DIVp*pELSEy%=(y%DIVp+1)*p 128ENDIF 129x%=(x%*8/a)+20000:y%=(y%*8/a)+20000::IFAa%>1000THEN 132ua%=W%:Aa%-=1000:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT:Aa%+=1:W%=ua% 138ENDIF 138:CASEwa%OF 140WHEN1:IFW%=a%(0)THENua%=SQR((c%!8-x%)^2+(c%!16-y%)^2) 142IFW%=a%(1)THENua%=SQR((c%!12-x%)^2+(c%!16-y%)^2) 143IFW%=a%(2)THENua%=SQR((c%!8-x%)^2+(c%!12-y%)^2) 144va%=c%!20:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!20=va%:PROCg:c%!20=ua%:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 156WHEN2:LOCALua%,va%:IFBa%=1THEN 158t%(1)=c%!20:t%(2)=c%!24:t%(3)=c%!28:t%(4)=t%(1):t%(5)=t%(2):t%(6)=t%(3):IFW%=a%(0)THENt%(4)=x%:t%(6)=y% 161IFW%=a%(1)THENt%(5)=x%:t%(6)=y% 162IFW%=a%(2)THENt%(4)=x%:t%(5)=y% 163IFl%<>t%(4)ANDn%<>t%(5)ANDq%<>t%(6)THEN 164Ca%=H%:PROCe:PROCp(Z%,wa%,0):wa%=13:PROCp(Z%,13,1):ERROR17,a$(3) 169ENDIF 169FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!20=t%(1):c%!24=t%(2):c%!28=t%(3):PROCg:c%!20=t%(4):c%!24=t%(5):c%!28=t%(6):PROCg 176SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 180ENDIF 180IFBa%=2THEN 181IFW%=a%(0)THENua%=SQR((c%!8-x%)^2+(c%!16-y%)^2) 182IFW%=a%(1)THENua%=SQR((c%!12-x%)^2+(c%!16-y%)^2) 183IFW%=a%(2)THENua%=SQR((c%!8-x%)^2+(c%!12-y%)^2) 184va%=c%!32:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!32=va%:PROCg:c%!32=ua%:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 195ENDIF 195IFBa%=3THEN 196IFW%=a%(0)THENua%=SQR((c%!20-x%)^2+(c%!28-y%)^2) 197IFW%=a%(1)THENua%=SQR((c%!24-x%)^2+(c%!28-y%)^2) 198IFW%=a%(2)THENua%=SQR((c%!20-x%)^2+(c%!24-y%)^2) 199va%=c%!36:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!36=va%:PROCg:c%!36=ua%:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 210ENDIF 210WHEN3:LOCALua%,va%:IFBa%=1THEN 213t%(1)=c%!20:t%(2)=c%!24:t%(3)=c%!28:t%(4)=t%(1):t%(5)=t%(2):t%(6)=t%(3):IFW%=a%(0)THENt%(4)=x%:t%(6)=y% 216IFW%=a%(1)THENt%(5)=x%:t%(6)=y% 217IFW%=a%(2)THENt%(4)=x%:t%(5)=y% 218IFl%<>t%(4)ANDn%<>t%(5)ANDq%<>t%(6)THEN 219Ca%=H%:PROCe:PROCp(Z%,wa%,0):wa%=13:PROCp(Z%,13,1):ERROR17,a$(4) 224ENDIF 224FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!20=t%(1):c%!24=t%(2):c%!28=t%(3):PROCg:c%!20=t%(4):c%!24=t%(5):c%!28=t%(6):PROCg 231SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 235ELSE:IFW%=a%(0)THENua%=SQR((c%!8-x%)^2+(c%!16-y%)^2) 236IFW%=a%(1)THENua%=SQR((c%!12-x%)^2+(c%!16-y%)^2) 237IFW%=a%(2)THENua%=SQR((c%!8-x%)^2+(c%!12-y%)^2) 238va%=c%!32:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!32=va%:PROCg:c%!32=ua%:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 249ENDIF 249WHEN4,32:LOCALq,n,o:q=c%!20:n=c%!24:o=c%!28:t%(1)=q:t%(2)=n:t%(3)=o:IFW%=a%(0)THENq=ABS(x%-c%!8):o=ABS(y%-c%!16) 254IFW%=a%(1)THENn=ABS(x%-c%!12):o=ABS(y%-c%!16) 255IFW%=a%(2)THENq=ABS(x%-c%!8):n=ABS(y%-c%!12) 256t%(4)=q:t%(5)=n:t%(6)=o:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!20=t%(1):c%!24=t%(2):c%!28=t%(3):PROCg 264c%!20=t%(4):c%!24=t%(5):c%!28=t%(6):PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 269WHEN5,6:LOCALF,b:FORb=1TO9:t%(b)=c%!(b*4+4):NEXT:IFW%=a%(0)THEN 272t%(14)=x%:t%(15)=n%:t%(16)=y%:t%(11)=l%:t%(12)=n%:t%(13)=y%:t%(17)=x%:t%(18)=n%:t%(19)=q% 276ENDIF 276IFW%=a%(1)THEN 277t%(14)=l%:t%(15)=x%:t%(16)=y%:t%(11)=l%:t%(12)=n%:t%(13)=y%:t%(17)=l%:t%(18)=x%:t%(19)=q% 281ENDIF 281IFW%=a%(2)THEN 282t%(14)=x%:t%(15)=y%:t%(16)=q%:t%(11)=l%:t%(12)=y%:t%(13)=q%:t%(17)=x%:t%(18)=n%:t%(19)=q% 286ENDIF 286:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:FORb=1TO9:c%!(b*4+4)=t%(b):NEXT:PROCg:FORb=1TO9:c%!(b*4+4)=t%(b+10):NEXT:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 299WHEN7:m%=c%+Aa%*12:t%(1)=!(m%-4):t%(2)=!m%:t%(3)=!(m%+4):IFW%=a%(0)THEN!(m%-4)=x%:!(m%+4)=y% 302IFW%=a%(1)THEN!m%=x%:!(m%+4)=y% 303IFW%=a%(2)THEN!(m%-4)=x%:!m%=y% 304t%(4)=!(m%-4):t%(5)=!m%:t%(6)=!(m%+4)::FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:!(m%-4)=t%(1):!m%=t%(2):!(m%+4)=t%(3):PROCg 312!(m%-4)=t%(4):!m%=t%(5):!(m%+4)=t%(6):PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 317WHEN8:m%=c%+Aa%*12:t%(1)=!m%:t%(2)=m%!4:t%(3)=m%!8:IFW%=a%(0)THEN!m%=x%:m%!8=y% 319IFW%=a%(1)THENm%!4=x%:m%!8=y% 320IFW%=a%(2)THEN!m%=x%:m%!4=y% 321t%(4)=!m%:t%(5)=m%!4:t%(6)=m%!8::FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:!m%=t%(1):m%!4=t%(2):m%!8=t%(3):PROCg:!m%=t%(4):m%!4=t%(5):m%!8=t%(6):PROCg 330SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 334WHEN9:IFW%=a%(0)THENf%(1)=x%:f%(3)=y% 335IFW%=a%(1)THENf%(2)=x%:f%(3)=y% 336IFW%=a%(2)THENf%(1)=x%:f%(2)=y% 337f%(0)=-1:PROCe 340WHEN10:IFW%=a%(0)THENb%(1)=x%:b%(3)=y% 341IFW%=a%(1)THENb%(2)=x%:b%(3)=y% 342IFW%=a%(2)THENb%(1)=x%:b%(2)=y% 343b%(0)=-1:PROCe 346WHEN13:IFW%=a%(0)THENl%=x%:q%=y% 347IFW%=a%(1)THENn%=x%:q%=y% 348IFW%=a%(2)THENl%=x%:n%=y% 349PROCe 351WHEN14,30:t%(1)=t%(93):t%(2)=t%(94):t%(3)=t%(95):IFW%=a%(0)THENt%(93)=x%:t%(95)=y% 353IFW%=a%(1)THENt%(94)=x%:t%(95)=y% 354IFW%=a%(2)THENt%(93)=x%:t%(94)=y% 355t%(4)=t%(93):t%(5)=t%(94):t%(6)=t%(95):t%(80)=W%::FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:t%(93)=t%(1):t%(94)=t%(2):t%(95)=t%(3):PROCG 365t%(93)=t%(4):t%(94)=t%(5):t%(95)=t%(6):PROCG:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 371WHEN16:LOCALU,V,_:U=c%(`%+1,1):V=c%(`%+1,2):_=c%(`%+1,3):IFW%=a%(0)THENua%=SQR((U-x%)^2+(_-y%)^2) 375IFW%=a%(1)THENua%=SQR((V-x%)^2+(_-y%)^2) 376IFW%=a%(2)THENua%=SQR((U-x%)^2+(V-y%)^2) 377va%=c%(`%+1,4):FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%(`%+1,4)=va%:PROCg:c%(`%+1,4)=ua%/2:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 390WHEN24:LOCALF,b:IFBa%=1THEN 392FORb=1TO9:t%(b)=c%!(b*4+4):NEXT:CASEW%OF 394WHENa%(0):t%(14)=x%:t%(15)=n%:t%(16)=y%:t%(11)=l%:t%(12)=n%:t%(13)=y%:t%(17)=x%:t%(18)=n%:t%(19)=q% 399WHENa%(1):t%(14)=l%:t%(15)=x%:t%(16)=y%:t%(11)=l%:t%(12)=n%:t%(13)=y%:t%(17)=l%:t%(18)=x%:t%(19)=q% 403WHENa%(2):t%(14)=x%:t%(15)=y%:t%(16)=q%:t%(11)=l%:t%(12)=y%:t%(13)=q%:t%(17)=x%:t%(18)=n%:t%(19)=q% 407ENDCASE 407:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:FORb=1TO9:c%!(b*4+4)=t%(b):NEXT:PROCg:FORb=1TO9:c%!(b*4+4)=t%(b+10):NEXT:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 420ELSE:t%(1)=c%!56:t%(2)=c%!60:t%(3)=c%!64:t%(4)=t%(1):t%(5)=t%(2):t%(6)=t%(3):IFW%=a%(0)THENt%(4)=x%:t%(6)=y% 423IFW%=a%(1)THENt%(5)=x%:t%(6)=y% 424IFW%=a%(2)THENt%(4)=x%:t%(5)=y% 425FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!56=t%(1):c%!60=t%(2):c%!64=t%(3):PROCg:c%!56=t%(4):c%!60=t%(5):c%!64=t%(6):PROCg 431SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 435ENDIF 435WHEN25:LOCALva%,ua%,Da%,Ea%:IFW%=a%(0)THENEa%=SQR((c%!8-x%)^2+(c%!16-y%)^2) 438IFW%=a%(1)THENEa%=SQR((c%!12-x%)^2+(c%!16-y%)^2) 439IFW%=a%(2)THENEa%=SQR((c%!8-x%)^2+(c%!12-y%)^2) 440va%=c%!36:Da%=c%!32:FORF=0TO2:IFa%(F)=W%THENua%=F 443NEXT:FORF=0TO2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:SYS"Wimp_UpdateWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:c%!32=Da%:c%!36=va%:PROCg:c%!32=Ea%:c%!36=ua%:PROCg:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:NEXT 456ENDCASE 456ENDPROC 457DEFPROCha(W%,I%,C%):LOCALFa%,c,e,Ga%:Ga%=-1:Ha%=-1:IFC%=385THENPROCma(W%) 464CASEC%OF 465WHEN13:CASEW%OF 467WHENIa%:Fa%=VAL(FNb(W%,I%)):IFFa%>100Fa%=100:PROCb(W%,I%,"100") 470IFg%(I%-6)<>Fa%THEN 471g%(I%-6)=Fa%:SYS"Wimp_ForceRedraw",W%,132,-(54*(I%-6)+68),590,-(54*(I%-6)+32):SYS"Wimp_ForceRedraw",W%,472,-264,584,-204 475ENDIF 475WHENJa%:IFI%=11THENKa%=VAL(FNb(W%,I%)) 477IFI%=12THENLa%=VAL(FNb(W%,I%)) 478IFI%=13THENMa%=VAL(FNb(W%,I%)) 479WHENZ%:IFwa%=13THENPROCX(W%) 481SYS"Wimp_CreateMenu",-1 483WHENNa%:IFI%=19THENPROCv(W%,20,4):Ga%=0 484WHENta%:IFI%=1THENPROCv(W%,2,4):Ga%=0 486WHENOa%:IFI%=4THENPROCv(W%,3,4):Ga%=0 488WHENPa%:IFI%=2THENPROCv(W%,8,4):Ga%=0 490WHENqa%:IFI%=1THEN 492IFINSTR(FNb(qa%,1),"$.")=0THEN 493ERROR17,a$(5) 495ENDIF 495PROCA(FNb(qa%,1)):Ga%=0 497ENDIF 497WHENsa%:IFI%=1THEN 499IFINSTR(FNb(sa%,1),"$.")=0THEN 500ERROR17,a$(5) 502ENDIF 502PROCO(FNb(sa%,1)):Ga%=0 504ENDIF 504ENDCASE 505WHEN387:PROCm(qa%):Ha%=0 507WHEN403:PROCm(sa%):Ha%=0 508WHEN389:SYS"Hourglass_On":IFQa%THEN 510BPUT#Ra%,"Rotate "+STR$(Ka%)+" "+STR$(La%)+" "+STR$(Ma%) 512ENDIF 512FORZ=1TOd%:IFK%?ZTHENPROCH(Z) 514NEXT:PROCe:PROCh:SYS"Hourglass_Off" 519ENDCASE 519:IFC%=(13ORC%=398ORC%=399)ANDGa%THEN 521IFC%<>399THENI%=FNn(W%,I%,1) 522IFC%=399THENI%=FNn(W%,I%,0) 523SYS"Wimp_SetCaretPosition",W%,I%,0,0,-1,LEN(FNb(W%,I%)) 525ENDIF 525IFW%=qa%ANDC%=13THENSYS"Wimp_CreateMenu",-1 526IFW%=sa%ANDC%=13THENSYS"Wimp_CreateMenu",-1 527IFHa%THENSYS"Wimp_ProcessKey",C% 528ENDPROC 529DEFPROCI(X):IFX=0ORX=3THEN 532c%()=0:b$()="":`%=0 534ENDIF 534IFX=1ORX=3THEN 535FORN=0TO20*Sa%STEP4:J%!N=0:NEXT:h%()=0:oa%=0:Aa%=0:Ta%=0:Ua%=0:_%=0:$V%="":V%?20=50:V%?23=50:V%?24=50:V%?25=50:V%?26=15:V%?29=0:V%?30=50:V%?31=50:V%!32=100:V%!36=0:PROCu($V%,0) 543ENDIF 543IFX=2ORX=3THEN 544!xa%=-256:H%=4:da%=0:Ca%=H%:g%()=0:FORM=0TOSa%STEP4:K%!M=0:NEXT:O%=0:d%=0:f%()=0:b%()=0:U%=0:fa%=0:FORM=1TOSa%/2:$FNd(M)="":NEXT:FORM=1TOSa%:$FNa(M)="":NEXT:PROCi 552ENDIF 552PROCe:PROCh:ENDPROC 555DEFPROCna:b%!0=-1:b%!4=0:b%!8=0:b%!12=64:b%!16=64:b%!20=385888266:$(b%+24)="!RAY3D":SYS"Wimp_CreateIcon",,b%:ENDPROC 564DEFPROCka:LOCALc%,x%,y%,z%,Va%,A%,N,o%:Va%=-1:o%=d%:c%=xa%+H%-4:CASEwa%OF 571WHEN1:c%!0=-2:c%!24=-256:H%+=24:d%+=1 574WHEN2:IFBa%=3THEN 575c%!0=-5:c%!232=-256:H%+=232:d%+=1:PROCi 577ENDIF 577IFBa%=2THEN 578Ba%=3:Va%=0:FORN=1TO8:!(c%+N*12+124)=c%!20:!(c%+N*12+128)=c%!24:!(c%+N*12+132)=c%!28:NEXT 581ENDIF 581IFBa%=1THEN 582Ba%=2:IFc%!8<>c%!20ORc%!12<>c%!24ORc%!16<>c%!28THENVa%=0 583IFVa%=0THEN 584FORN=1TO8:!(c%+N*12+28)=c%!8:!(c%+N*12+32)=c%!12:!(c%+N*12+36)=c%!16:NEXT 587ENDIF 587ENDIF 588WHEN3:IFBa%=1THEN 590Ba%=2:IFc%!8<>c%!20ORc%!12<>c%!24ORc%!16<>c%!28THENVa%=0 591IFVa%=0THEN 592FORN=1TO8:!(c%+N*12+24)=c%!8:!(c%+N*12+28)=c%!12:!(c%+N*12+32)=c%!16:NEXT 595ENDIF 595ELSE:c%!0=-4:c%!132=-256:H%+=132:d%+=1:PROCi 598ENDIF 598WHEN4:LOCALf,g,h:f=c%!20:g=c%!24:h=c%!28:PROCj(-f,-g,h,c%,1):PROCj(-f,g,h,c%,2):PROCj(-f,g,-h,c%,3):PROCj(-f,-g,-h,c%,4):PROCj(f,-g,h,c%,5):PROCj(f,g,h,c%,6):PROCj(f,g,-h,c%,7):PROCj(f,-g,-h,c%,8):c%!0=-6:c%!140=-256:H%+=140:d%+=1 607WHEN5:c%!56=c%!8+(c%!32-c%!8)/2:c%!60=c%!12+(c%!36-c%!12)/2:c%!64=c%!16+(c%!40-c%!16)/2:IFc%!8=c%!32THENc%!56+=20000 610IFc%!12=c%!36THENc%!60+=20000 611IFc%!16=c%!40THENc%!64+=20000 612c%!0=-7:c%!68=-256:H%+=68:d%+=1 614WHEN6:c%!0=-8:c%!56=-256:H%+=56:d%+=1 616WHEN7:IFAa%=2THENAa%=1002:Va%=0 617IFAa%=3THEN 618c%!0=-1:c%!44=-256:H%+=44:d%+=1:PROCi 620ENDIF 620WHEN8:A%=c%+Aa%*12:IF!A%=A%!-12ANDA%!4=A%!-8ANDA%!8=A%!-4THEN 623c%!0=-3:d%+=1:c%!8=Aa%-1:A%!12=-256:H%=H%+Aa%*12+12:PROCi 627ELSE:!(c%+Aa%*12+12)=!(c%+Aa%*12):!(c%+Aa%*12+16)=!(c%+Aa%*12+4):!(c%+Aa%*12+20)=!(c%+Aa%*12+8):Aa%+=1:Va%=0 630ENDIF 630WHEN13:PROCX(Z%) 632WHEN14:PROCY:PROCe 633WHEN16:`%+=1 634WHEN24:IFBa%=1THEN 635Ba%=2:Va%=0:c%!56=l%:c%!60=n%:c%!64=q% 637ELSE:c%!0=-9:c%!68=-256:H%+=68:d%+=1:PROCi 639ENDIF 639WHEN25:M=c%!36:FORN=1TO8:IFM=2THENPROCt(c%!32,0,0,12*N+24,12*N+28,12*N+32,0,45*N,0,1) 642IFM=1THENPROCt(0,0,c%!32,12*N+24,12*N+28,12*N+32,45*N,0,0,1) 643IFM=0THENPROCt(0,0,c%!32,12*N+24,12*N+28,12*N+32,0,0,45*N,1) 644ENDIF 645IFM=0THENc%!24=(c%!24)+1 646IFM=1THENc%!20=(c%!20)+1 647IFM=2THENc%!28=(c%!28)+1 648NEXT:c%!0=-4:c%!132=-256:H%+=132:d%+=1 651WHEN30:IFBa%=1THEN 651Ba%=2:Va%=0:t%(83)=t%(93):t%(84)=t%(94):t%(85)=t%(95):t%(93)=l%:t%(94)=n%:t%(95)=q% 654ELSE:PROCoa 656ENDIF 656WHEN32:LOCALf,g,h:f=c%!20:g=c%!24:h=c%!28:PROCj(-f,-g,h,c%,1):PROCj(-f,g,h,c%,2):PROCj(-f,g,-h,c%,3):PROCj(-f,-g,-h,c%,4):PROCj(f,-g,h,c%,5):PROCj(f,g,h,c%,6):PROCj(f,g,-h,c%,7):PROCj(f,-g,-h,c%,8):c%!0=-10:c%!140=-256:H%+=140:d%+=1 665ENDCASE 665CASEwa%OF 666WHEN1,2,3,4,5,6,7,8,25:PROCi:IFVa%THEN 668!(J%+d%*20-20)=0:!(J%+d%*20-16)=0:!(J%+d%*20-12)=0:!(J%+d%*20-8)=0:!(J%+d%*20-4)=0 672ENDIF 672ENDCASE 673IFVa%THEN 674Ca%=H%:PROCe:PROCh:PROCp(Z%,wa%,0):wa%=13:PROCp(Z%,13,1) 679ENDIF 679IFo%<>d%THEN!(J%+o%*20)=0 680ENDPROC 681DEFPROCV(W%,x%,y%,ja%):LOCALh%,j%,k%,c%:!b%=W%:SYS"Wimp_GetWindowState",,b%:h%=b%!4-b%!20:j%=b%!16-b%!24:CASEW%OF 686WHENa%(0),a%(2),a%(1)::PROCla 688WHENga%:IF_%<>0THEN 689R%=((j%-y%)DIV36)+1:IFTa%=R%ORUa%=R%THEN 691IFTa%=R%THEN 692SYS"Wimp_ForceRedraw",W%,0,-Ta%*36,348,-(Ta%-1)*36:Ta%=0:PROCb(T%,5,"") 695ENDIF 695IFUa%=R%THEN 696SYS"Wimp_ForceRedraw",W%,0,-Ua%*36,348,-(Ua%-1)*36:Ua%=0:PROCb(T%,7,"") 699ENDIF 699ELSE:IFTa%=0ANDR%<>Ua%THEN 701IFR%<=oa%THENTa%=R% 702ENDIF 703IFUa%=0ANDR%<>Ta%THEN 704IFR%<=oa%THENUa%=R% 705ENDIF 706PROCb(T%,5,FNh(V%-40+Ta%*40)):PROCb(T%,7,FNh(V%-40+Ua%*40)) 709ENDIF 709SYS"Wimp_ForceRedraw",W%,0,-R%*36,348,-(R%-1)*36 711ENDIF 711WHENha%:PROCP:R%=((j%-y%)DIV36)+1:IFWa%<>0THEN 715N=0:F=0:REPEAT:F+=1::a$=$FNa(F):IFLEFT$(a$,INSTR(a$,">")-1)=$FNd(Wa%)THENN+=1 717UNTILN=R%ORF=d%:IFN=R%THENR%=F 719ENDIF 720:IFR%>U%ANDWa%=0THEN 722R%=R%-U%:N=0:F=0:REPEAT:F+=1:IFINSTR($FNa(F),">")=0THENN+=1 724UNTILN=R%ORF=d%:IFN=R%THENR%=FELSER%=_% 726ENDIF 727:IFR%<=U%ANDWa%=0THEN 729IFx%-h%>288THEN 730_%=-R%:R%=0 732ELSE:Wa%=R%:R%=0 734ENDIF 734ENDIF 735IFR%>0ANDR%<=d%THEN_%=R% 736PROCB:PROCJ 739WHENia%:R%=((j%-y%)DIV36)+1:IFfa%<>0THEN 741N=0:F=0:REPEAT:F+=1::a$=$FNa(F):IFLEFT$(a$,INSTR(a$,">")-1)=$FNd(fa%)THENN+=1 745UNTILN=R%ORF=d%:IFN=R%THEN 747IFQa%THEN 748BPUT#Ra%,"Select "+$FNa(F) 750ENDIF 750K%?F=1-K%?F:IFK%?FTHENO%+=1ELSEO%-=1 752PROCe:PROCh 755ENDIF 755ENDIF 756:IFR%<=U%ANDfa%=0THEN 758IFx%-h%>288THEN 759FORN=1TOd%:a$=$FNa(N):IFLEFT$(a$,INSTR(a$,">")-1)=$FNd(R%)THEN 762IFQa%THEN 763BPUT#Ra%,"Select "+$FNa(N) 765ENDIF 765K%?N=1:O%+=1 767ENDIF 767NEXT:PROCe:PROCh 771ELSE:fa%=R%:PROCi 773ENDIF 773ENDIF 774:IFR%>U%ANDfa%=0THEN 776R%=R%-U%:N=0:F=0:REPEAT:F+=1:IFINSTR($FNa(F),">")=0THENN+=1 780UNTILN=R%ORF=d%:IFN=R%THEN 782IFQa%THEN 783BPUT#Ra%,"Select "+$FNa(F) 785ENDIF 785K%?F=1-K%?F:IFK%?FTHENO%+=1ELSEO%-=1 787PROCe:PROCh 790ENDIF 790ENDIF 791ENDCASE 792ENDPROC 793DEFPROCk:LOCALf,g:PROCE:b%!0=0:b%!4=-a*u%:b%!8=a*u%:b%!12=0:SYS"Wimp_SetExtent",a%(0),b%:SYS"Wimp_SetExtent",a%(1),b%:SYS"Wimp_SetExtent",a%(2),b%::f=(l%-20000)/8*a-(d%(3,3)-d%(3,1))/2:g=(n%-20000)/8*a+(d%(3,4)-d%(3,2))/2:b%!28=-1 805PROCw(a%(2),d%(3,1),d%(3,2),d%(3,3),d%(3,4),f,(-u%*a)+g):f=(l%-20000)/8*a-(d%(1,3)-d%(1,1))/2:g=(q%-20000)/8*a+(d%(1,4)-d%(1,2))/2:PROCw(a%(0),d%(1,1),d%(1,2),d%(1,3),d%(1,4),f,(-u%*a)+g):f=(n%-20000)/8*a-(d%(2,3)-d%(2,1))/2 810g=(q%-20000)/8*a+(d%(2,4)-d%(2,2))/2:PROCw(a%(1),d%(2,1),d%(2,2),d%(2,3),d%(2,4),f,(-u%*a)+g):PROCe:ENDPROC 814DEFFNl(A):LOCALS$,N:WHILE(A!NMOD256)<>13AND(A!NMOD256)<>0:S$+=CHR$(A!N):N+=1:ENDWHILE:=S$ 824DEFPROCA(e$):LOCALe%,N,F:SYS"Wimp_CreateMenu",-1:PROCo(qa%):PROCQ(Xa%):PROCP:d%+=1:SYS"OS_Find",143,e$TOe%:BPUT#e%,aa%DIV100:BPUT#e%,aa%MOD100:BPUT#e%,U%DIV100:BPUT#e%,U%MOD100:IFU%>0THEN 839FORN=1TOU%:PRINT#e%,$FNd(N):NEXT 843ENDIF 843BPUT#e%,d%DIV256:BPUT#e%,d%MOD256:BPUT#e%,H%DIV256:BPUT#e%,H%MOD256:SYS"OS_GBPB",2,e%,xa%,H%:FORN=1TOd%:PRINT#e%,$FNa(N):NEXT:BPUT#e%,oa%:SYS"OS_GBPB",2,e%,V%,oa%*40:IFd%<>0THENSYS"OS_GBPB",2,e%,J%,d%*20 853BPUT#e%,f%(0)+1:BPUT#e%,b%(0)+1:FORN=1TO3:BPUT#e%,f%(N)DIV256:BPUT#e%,f%(N)MOD256:BPUT#e%,b%(N)DIV256:BPUT#e%,b%(N)MOD256:NEXT:BPUT#e%,`%:FORN=1TO10:PRINT#e%,b$(N):FORF=0TO8:BPUT#e%,c%(N,F)DIV256:BPUT#e%,c%(N,F)MOD256:NEXT:NEXT:BPUT#e%,g%(0):BPUT#e%,g%(1):BPUT#e%,g%(2):SYS"OS_Find",0,e% 874OSCLI("SETTYPE "+e$+" 0FC"):da%=0:d%-=1:IFe$<>"<Ray$Dir>.Default"THENPROCb(qa%,1,e$) 877ENDPROC 878DEFPROCC(e$):LOCALe%,v%,B%:IFe$<>"<Ray$Dir>.Default"THENPROCb(qa%,1,e$) 882SYS"OS_Find",79,e$TOe%:B%=BGET#e%:v%=B%*100:B%=BGET#e%:v%+=B%:IFv%>aa%THENSYS"OS_Find",0,e%:ERROR17,a$(6) 888:U%=0:FORM=1TOSa%/2:$FNd(M)="":NEXT:IFv%>=110THEN 892B%=BGET#e%:U%=B%*100:B%=BGET#e%:U%+=B%:IFU%>0THEN 895FORN=1TOU%:INPUT#e%,$FNd(N):NEXT 899ENDIF 899ENDIF 900B%=BGET#e%:d%=B%*256:B%=BGET#e%:d%+=B%:B%=BGET#e%:H%=B%*256:B%=BGET#e%:H%+=B%:SYS"OS_GBPB",4,e%,xa%,H%:FORN=1TOd%:INPUT#e%,$FNa(N):NEXT:oa%=BGET#e%:SYS"OS_GBPB",4,e%,V%,oa%*40:IFd%<>0THENSYS"OS_GBPB",4,e%,J%,d%*20 910f%(0)=BGET#e%:b%(0)=BGET#e%:f%(0)-=1:b%(0)-=1:FORN=1TO3:B%=BGET#e%:f%(N)=B%*256:B%=BGET#e%:f%(N)+=B%:B%=BGET#e%:b%(N)=B%*256:B%=BGET#e%:b%(N)+=B%:NEXT:`%=BGET#e%:FORN=1TO10:INPUT#e%,b$(N):FORF=0TO8:B%=BGET#e%:c%(N,F)=B%*256:B%=BGET#e%:c%(N,F)+=B%:NEXT:NEXT:g%(0)=BGET#e%:g%(1)=BGET#e% 929g%(2)=BGET#e%:SYS"OS_Find",0,e%:Ta%=0:Ua%=0:_%=0:d%-=1:fa%=0:FORN=0TOSa%STEP4:K%!N=0:Ya%!N=0:NEXT:O%=0:IFe$<>"<Ray$Dir>.Default"THEN 938PROCk:PROCi:SYS"Wimp_SetCaretPosition",Z%,0,0,0,-1,LEN(FNb(Z%,0)) 942ENDIF 942PROCu($V%,0):Wa%=0:PROCJ:PROCe:PROCh:da%=0:ENDPROC 948DEFFNm(e$):LOCALF$,N:N=LEN(e$):WHILEMID$(e$,N,1)<>"."ANDN>0:F$=MID$(e$,N,1)+F$:N-=1:ENDWHILE:=F$ 957DEFPROCpa:LOCALN,F:PROCE:e%()=j%():C=OPENOUT("<Ray$Dir>.Options"):BPUT#C,e%(0):BPUT#C,e%(1):BPUT#C,e%(2):BPUT#C,e%(3):BPUT#C,e%(4):BPUT#C,e%(5):BPUT#C,(Za%+1):BPUT#C,(za%+1):ya%=VAL(FNb(Na%,19)):PRINT#C,STR$(ya%):BPUT#C,a:FORN=1TO4:FORF=1TO4:PRINT#C,STR$(d%(N,F)):NEXT:NEXT:CLOSE#C 976PROCe:PROCo(_a%):PROCh:ENDPROC 979DEFPROCqa:LOCALA$,N,F:C=OPENIN("<Ray$Dir>.Options"):e%(0)=BGET#C:e%(1)=BGET#C:e%(2)=BGET#C:e%(3)=BGET#C:e%(4)=BGET#C:e%(5)=BGET#C:Za%=BGET#C:Za%-=1:za%=BGET#C:za%-=1:INPUT#C,A$:ya%=VAL(A$):PROCb(Na%,19,A$):a=BGET#C:FORN=1TO4:FORF=1TO4:INPUT#C,A$:d%(N,F)=VAL(A$):NEXT:NEXT:CLOSE#C:FORN=0TO5 996!b%=_a%:b%!4=5+N:b%!12=&F0000000:b%!8=e%(N)<<28:SYS"Wimp_SetIconState",,b%:NEXT:FORN=0TO2:!b%=a%(N):SYS"Wimp_GetWindowInfo",,b%:!p%=a%(N):SYS"Wimp_DeleteWindow",,p%:?(b%+39)=e%(5):`a%=?(b%+34)AND1:SYS"Wimp_CreateWindow",,b%+4TOa%(N):NEXT 1007IF`a%THENPROCk 1008ENDPROC 1009DEFPROCE:LOCALN:!p%=a%(0):SYS"Wimp_GetWindowInfo",,p%:`a%=?(p%+34)AND1:IF`a%=0THENENDPROC 1016FORN=0TO2:b%!0=a%(N):SYS"Wimp_GetWindowState",,b%:d%(N+1,1)=b%!4:d%(N+1,2)=b%!8:d%(N+1,3)=b%!12:d%(N+1,4)=b%!16:NEXT:b%!0=Z%:SYS"Wimp_GetWindowState",,b%:d%(4,1)=b%!4:d%(4,2)=b%!8:d%(4,3)=b%!12:d%(4,4)=b%!16:ENDPROC 1027DEFPROCra(e$):LOCALN,F%,ab%,bb%,cb%,n$,l$:U%+=1:l$=FNi(FNm(e$)):$FNd(U%)=l$:SYS"Hourglass_On":FORN=0TOSa%STEP4:K%!N=0:NEXT:O%=0:SYS"OS_Find",79,e$TOe%:B%=BGET#e%:ab%=B%*100:B%=BGET#e%:ab%+=B%:IFab%>aa%THENSYS"OS_Find",0,e%:ERROR17,a$(6) 1041B%=BGET#e%:bb%=B%*256:B%=BGET#e%:bb%+=B%:IFd%+bb%>Sa%THENERROR17,a$(7) 1045FORN=d%+1TOd%+bb%:!(J%+N*20)=0:!(J%+N*20+4)=0:!(J%+N*20+8)=0:!(J%+N*20+12)=0:!(J%+N*20+16)=0:NEXT:FORN=1TObb%:SYS"Hourglass_Percentage",N/bb%*100:d%+=1:K%?d%=1:B%=BGET#e%:cb%=B%*256:B%=BGET#e%:cb%+=B%:INPUT#e%,n$ 1059$FNa(d%)=l$+">"+FNi(n$):SYS"OS_GBPB",4,e%,(xa%+H%-4),cb%:H%+=cb%:!(xa%+H%-4)=-256:NEXT:O%=bb%:SYS"OS_Find",0,e%:PROCi:Wa%=0:PROCJ:PROCk:SYS"Wimp_SetCaretPosition",Z%,0,0,0,-1,LEN(FNb(Z%,0)):PROCe:SYS"Hourglass_Off":PROCh:ENDPROC 1075DEFPROCO(e$):LOCALN%,db%,F%,a$:SYS"Wimp_CreateMenu",-1:PROCo(sa%):IFO%=0THENERROR17,a$(8) 1081SYS"OS_Find",143,e$TOe%:BPUT#e%,aa%DIV100:BPUT#e%,aa%MOD100:BPUT#e%,O%DIV256:BPUT#e%,O%MOD256:N%=xa%-4:db%=0:REPEAT:db%+=1:REPEAT:N%+=4:UNTIL!N%<0:IFK%?db%<>0THEN 1094F%=N%:REPEAT:F%+=4:UNTIL!F%<0:BPUT#e%,(F%-N%)DIV256:BPUT#e%,(F%-N%)MOD256:a$=$FNa(db%):IFINSTR(a$,">")<>0THENa$=RIGHT$(a$,LEN(a$)-INSTR(a$,">")) 1100PRINT#e%,a$:SYS"OS_GBPB",2,e%,N%,(F%-N%) 1103ENDIF 1103UNTIL!N%=-256:SYS"OS_Find",0,e%:OSCLI("SETTYPE "+e$+" 0FB"):PROCb(sa%,1,e$):ENDPROC 1109DEFPROCba(`,h$,ba) 1114*CLOSE 1114SYS"Hourglass_Smash":PROCp(Z%,wa%,0):wa%=13:PROCp(Z%,13,1):SYS"Wimp_CreateMenu",-1::CASE`OF 1120WHEN1:h$=a$(99):PROCA("Extinct"):!b%=`:$(b%+4)=h$:SYS"Wimp_ReportError",b%,1,"!Ray3d"TO,ja%:PROCL 1127WHEN17:VDU7 1128PROCb(eb%,1,h$):PROCm(eb%) 1131OTHERWISE 1132*Set Basic$File <Ray$Dir>.!Runimage 1132CHAIN"Edit:Throwback" 1133h$+=" ("+STR$(ba)+")."+a$(98):!b%=`:$(b%+4)=h$:SYS"Wimp_ReportError",b%,3,"!Ray3d"TO,ja%:IFja%=2THENPROCL 1137ENDCASE 1138ENDPROC 1139DEFPROCu(d$,fb%):IFoa%=0THENENDPROC 1144IFd$<>""THENgb%=FNo(d$)ELSEgb%=0 1145IFgb%=-1THENERROR17,a$(9) 1146IFfb%THENPROCQ(Xa%) 1147Xa%=gb%:F=gb%*40+V%:PROCb(na%,5,d$):h%()=F?23,F?24,F?25:hb%=F?30:ib%=F?29:jb%=F!32:kb%=F?31:lb%=F!36:PROCb(na%,26,STR$(ib%)+"%"):PROCb(na%,24,STR$(jb%)+"%"):PROCb(na%,21,STR$(lb%)+"%"):PROCb(na%,12,STR$(hb%)+"%"):PROCb(na%,17,STR$(kb%)+"%") 1161PROCb(na%,1,STR$(h%(0))+"%"):PROCb(na%,2,STR$(h%(1))+"%"):PROCb(na%,3,STR$(h%(2))+"%"):SYS"Wimp_ForceRedraw",na%,48,-672,474,-484:SYS"Wimp_ForceRedraw",ga%,0,-(oa%*36),348,0:ENDPROC 1167DEFPROCQ(A):LOCALF:F=A*40+V%:$(F)=" ":$(F)=FNb(na%,5):F?23=h%(0):F?24=h%(1):F?25=h%(2):F?30=hb%:F?31=kb%:F!36=lb%:F!32=jb%:F?29=ib%:SYS"Wimp_ForceRedraw",ga%,0,-(oa%*36),348,0:ENDPROC 1178DEFPROCsa:LOCALmb%,A:IFoa%=0THENENDPROC 1182mb%=Xa%+1:oa%-=1:FORN=Xa%TOoa%-1:FORF=0TO36STEP4:!(V%+N*40+F)=!(V%+(N+1)*40+F):NEXT:NEXT:IFXa%=oa%THENXa%-=1 1187IFoa%=0THEN 1188PROCu("",0) 1190ELSE:PROCu($(V%+Xa%*40),0) 1192ENDIF 1192:FORN=0TOd%:A=J%+N*20:IF!A=mb%THEN!A=0ELSEIF!A>mb%THEN!A=!A-1 1196A+=4:IF!A=mb%THEN!A=0ELSEIF!A>mb%THEN!A=!A-1 1197NEXT:PROCJ:ENDPROC 1200DEFPROCta:LOCALN:FORN=8TO14:PROCp(T%,N,0):NEXT:PROCb(T%,15,""):PROCb(T%,16,""):PROCb(T%,17,""):PROCb(T%,18,"100"):PROCb(T%,3,$FNd(-_%)):PROCp(T%,8,1):ENDPROC 1211DEFPROCJ:IF_%=0THENENDPROC 1214IF_%<0THENPROCta:ENDPROC 1215FORN=8TO14:PROCp(T%,N,0):NEXT:Ta%=!(J%+_%*20-20):Ua%=!(J%+_%*20-16):nb%=!(J%+_%*20-12):PROCp(T%,nb%+8,0):PROCb(T%,15,""):PROCb(T%,16,""):PROCb(T%,17,""):PROCb(T%,18,"100"):CASEnb%OF 1225WHEN1,2,3:PROCb(T%,18,STR$(!(J%+_%*20-8))) 1228WHEN4:PROCb(T%,15,STR$(!(J%+_%*20-8))):PROCb(T%,18,STR$(!(J%+_%*20-4))) 1230WHEN5:PROCb(T%,16,STR$(!(J%+_%*20-8))) 1231WHEN6:PROCb(T%,17,STR$(!(J%+_%*20-8))) 1232ENDCASE 1232PROCp(T%,nb%+8,1):a$=$FNa(_%):IFINSTR(a$,">")>0THENa$=RIGHT$(a$,LEN(a$)-INSTR(a$,">")) 1235PROCb(T%,3,a$):PROCb(T%,5,FNh(V%-40+Ta%*40)):PROCb(T%,7,FNh(V%-40+Ua%*40)):SYS"Wimp_ForceRedraw",ga%,0,-(oa%*36),348,0:SYS"Wimp_ForceRedraw",ha%,0,-180,348,0:PROCB:ENDPROC 1242DEFPROCua:IFoa%>=ob%THENERROR17,a$(10) 1245IFFNb(na%,5)=""THENERROR17,a$(11) 1246IFFNo(FNb(na%,5))<>-1THENERROR17,a$(12) 1247PROCQ(oa%):Xa%=oa%:oa%+=1:ENDPROC 1251DEFFNe(A$):LOCALB$:IFd%=0THEN=0 1255A$=FNg(A$):LOCALN,F:F=0:FORN=1TOd%:B$=FNg($FNa(N)):IFB$=A$THENF=N:N=d% 1261IFINSTR(B$,">")>0THEN 1262IFLEFT$(B$,INSTR(B$,">")-1)=A$THENF=N:N=d% 1263IFRIGHT$(B$,LEN(B$)-INSTR(B$,">"))=A$THENF=N:N=d% 1264ENDIF 1265NEXT:IFF<>0THEN=F 1267FORN=1TO`%:IFFNg(b$(N))=A$THENF=-1 1269NEXT:=F 1273DEFFNo(d$):LOCALgb%,N,F,N$:gb%=-1:FORN=0TOoa%-1:N$=FNh(N*40+V%):IFN$=d$THENgb%=N 1277NEXT:=gb% 1281DEFFNh(F):IFF=V%-40THEN="" 1282LOCALN$:REPEAT:N$+=CHR$(?F):F+=1:UNTIL?F=13OR?F=0ORF=N*40+V%+19:=N$ 1290DEFFNd(N):=N*50-50+pb% 1291DEFFNa(N):=N*50-50+qb% 1293DEFPROCZ(c%,p%):LOCALl,i,N:l=SQR((c%!24-c%!12)^2+(c%!20-c%!8)^2):l=SQR(l^2+(c%!28-c%!16)^2):IFl=0THENERROR17,a$(13) 1297IFc%!28-c%!16=0THEN 1298i=DEG(ASN((c%!20-c%!8)/l)):i=i*SGN(c%!24-c%!12):FORN=1TO8:IF(c%!24-c%!12)=0THEN 1301IFp%=2THEN 1302PROCt(0,c%!32,0,12*N+28,12*N+32,12*N+36,45*N,i,0,1) 1304ELSE:PROCt(0,c%!36,0,12*N+124,12*N+128,12*N+132,45*N,i,0,2) 1306ENDIF 1306ELSE:IFp%=2THEN 1308PROCt(c%!32,0,0,12*N+28,12*N+32,12*N+36,0,i,45*N,1) 1310ELSE:PROCt(c%!36,0,0,12*N+124,12*N+128,12*N+132,0,i,45*N,2) 1312ENDIF 1312ENDIF 1313NEXT 1315ENDIF 1315:IFc%!24-c%!12=0THEN 1317i=DEG(ASN((c%!20-c%!8)/l)):i=i*SGN(c%!16-c%!28):FORN=1TO8:IF(c%!28-c%!16)=0THEN 1320IFp%=2THEN 1321PROCx(0,0,c%!32,12*N+28,12*N+32,12*N+36,45*N,0,i,1) 1323ELSE:PROCx(0,0,c%!36,12*N+124,12*N+128,12*N+132,45*N,0,i,2) 1325ENDIF 1325ELSE:IFp%=2THEN 1327PROCx(c%!32,0,0,12*N+28,12*N+32,12*N+36,0,45*N,i,1) 1329ELSE:PROCx(c%!36,0,0,12*N+124,12*N+128,12*N+132,0,45*N,i,2) 1331ENDIF 1331ENDIF 1332NEXT 1334ENDIF 1334:IFc%!20-c%!8=0THEN 1336i=DEG(ASN((c%!24-c%!12)/l)):i=i*SGN(c%!28-c%!16):FORN=1TO8:IF(c%!28-c%!16)=0THEN 1339IFp%=2THEN 1340PROCy(0,0,c%!32,12*N+28,12*N+32,12*N+36,i,0,45*N,1) 1342ELSE:PROCy(0,0,c%!36,12*N+124,12*N+128,12*N+132,i,0,45*N,2) 1344ENDIF 1344ELSE:IFp%=2THEN 1346PROCy(0,c%!32,0,12*N+28,12*N+32,12*N+36,i,45*N,0,1) 1348ELSE:PROCy(0,c%!36,0,12*N+124,12*N+128,12*N+132,i,45*N,0,2) 1350ENDIF 1350ENDIF 1351NEXT 1353ENDIF 1353ENDPROC 1354DEFPROCva(c%):LOCALl,i:l=SQR((c%!24-c%!12)^2+(c%!20-c%!8)^2):l=SQR(l^2+(c%!28-c%!16)^2):IFl=0THENERROR17,a$(13) 1360IFc%!28-c%!16=0THEN 1361i=DEG(ASN((c%!20-c%!8)/l)):i=i*SGN(c%!24-c%!12):FORN=1TO8:IF(c%!24-c%!12)=0THEN 1364PROCt(0,c%!32,0,12*N+24,12*N+28,12*N+32,45*N,i,0,1) 1366ELSE:PROCt(c%!32,0,0,12*N+24,12*N+28,12*N+32,0,i,45*N,1) 1368ENDIF 1368NEXT 1370ENDIF 1370:IFc%!24-c%!12=0THEN 1372i=DEG(ASN((c%!20-c%!8)/l)):i=i*SGN(c%!16-c%!28):FORN=1TO8:IF(c%!28-c%!16)=0THEN 1375PROCx(0,0,c%!32,12*N+24,12*N+28,12*N+32,45*N,0,i,1) 1377ELSE:PROCx(c%!32,0,0,12*N+24,12*N+28,12*N+32,0,45*N,i,1) 1379ENDIF 1379NEXT 1381ENDIF 1381:IFc%!20-c%!8=0THEN 1383i=DEG(ASN((c%!24-c%!12)/l)):i=i*SGN(c%!28-c%!16):FORN=1TO8:IF(c%!28-c%!16)=0THEN 1386PROCy(0,0,c%!32,12*N+24,12*N+28,12*N+32,i,0,45*N,1) 1388ELSE:PROCy(0,c%!32,0,12*N+24,12*N+28,12*N+32,i,45*N,0,1) 1390ENDIF 1390NEXT 1392ENDIF 1392ENDPROC 1393DEFPROCB:rb%=0:IFWa%=0THEN 1397FORN=1TOd%:IFINSTR($FNa(N),">")=0THENrb%+=36 1399NEXT:rb%=rb%+(U%*36) 1402ELSE:FORN=1TOd%:a$=$FNa(N):IFLEFT$(a$,INSTR(a$,">")-1)=$FNd(Wa%)THENrb%+=36 1405NEXT 1407ENDIF 1407IFrb%<180THENrb%=180 1408b%!0=0:b%!4=-rb%:b%!8=348:b%!12=0:SYS"Wimp_SetExtent",ha%,b%:SYS"Wimp_ForceRedraw",ha%,0,-(d%*36),348,0:ENDPROC 1412DEFPROC_:LOCALa$:FORN=1TOd%:a$=$FNa(N):IFK%?NANDINSTR(a$,">")<>0THEN 1418$FNa(N)=RIGHT$(a$,LEN(a$)-INSTR(a$,">")) 1420ENDIF 1420NEXT:PROCR:ENDPROC 1423DEFPROCR:IFU%<>0THEN 1426FORN=U%TO1STEP-1:IFFNe($FNd(N))=0THEN 1428FORF=NTOU%:$FNd(F)=$FNd(F+1):NEXT:U%-=1:fa%=0 1431ENDIF 1431NEXT 1433ENDIF 1433IFU%<0THENU%=0 1434PROCi:PROCe:PROCh:ENDPROC 1438DEFPROC`(t):LOCALdb%,N%,F%,k,m,j,Z:IFO%=0THENENDPROC 1442SYS"Hourglass_On":da%=-1:N%=xa%-4:db%=0:k=l%:m=n%:j=q%:FORZ=1TOd%:REPEAT:N%+=4:UNTIL!N%<0:db%+=1:IFK%?db%THEN 1449CASE!N%OF 1450WHEN-1:PROCs(N%+8,N%+32,k,m,j) 1453WHEN-2:N%!8=(N%!8-l%)*t+l%:N%!12=(N%!12-n%)*t+n%:N%!16=(N%!16-q%)*t+q%:N%!20=N%!20*t 1458WHEN-3:k=l%:m=n%:j=q%:PROCs(N%+12,N%+(N%!8*12)+12,k,m,j) 1461WHEN-4:PROCs(N%+8,N%+20,k,m,j):PROCs(N%+36,N%+120,k,m,j):N%!32=N%!32*t 1465WHEN-5:PROCs(N%+8,N%+20,k,m,j):PROCs(N%+40,N%+220,k,m,j):N%!32=N%!32*t:N%!36=N%!36*t 1469WHEN-6,-10:PROCs(N%+8,N%+8,k,m,j):PROCs(N%+20,N%+20,0,0,0):PROCs(N%+44,N%+128,k,m,j) 1473WHEN-7,-8:PROCs(N%+8,N%+44,k,m,j) 1475WHEN-9:PROCs(N%+8,N%+56,k,m,j) 1477ENDCASE 1477ENDIF 1478NEXT:SYS"Hourglass_Off":ENDPROC 1481DEFPROCs(S%,E%,k,m,j):LOCALN:FORN=S%TOE%STEP12:!N=(!N-k)*t+k:N!4=(N!4-m)*t+m:N!8=(N!8-j)*t+j:NEXT:ENDPROC 1488DEFPROCH(S%):LOCALdb%,N%,F%,k,m,j,c,e,f,g,h:N%=xa%-4:db%=0:da%=-1:FORdb%=1TOS%:REPEAT:N%+=4:UNTIL!N%<0:NEXT:k=l%:m=n%:j=q%:CASE!N%OF 1495WHEN-1:PROCq(N%+8,N%+32) 1497WHEN-2:PROCq(N%+8,N%+8) 1498WHEN-3:PROCq(N%+12,N%+(N%!8*12)+12) 1499WHEN-4:PROCq(N%+8,N%+20):PROCq(N%+36,N%+120) 1500WHEN-5:PROCq(N%+8,N%+20):PROCq(N%+40,N%+220) 1501WHEN-6,-10:PROCq(N%+8,N%+8):N%!32=(N%!32-Ka%+360)MOD360:N%!36=(N%!36-La%+360)MOD360:N%!40=(N%!40-Ma%+360)MOD360:PROCq(N%+44,N%+128) 1507WHEN-7:PROCq(N%+8,N%+56) 1508WHEN-8:PROCq(N%+8,N%+44) 1509WHEN-9:PROCq(N%+8,N%+56) 1510ENDCASE 1510ENDPROC 1511DEFPROCq(S%,E%):sb%=l%:tb%=n%:ub%=q%:FORF%=S%TOE%STEP12:PROCwa(F%,F%+4,F%+8,Ka%):PROCxa(F%,F%+4,F%+8,La%):PROCya(F%,F%+4,F%+8,Ma%):NEXT:ENDPROC 1520DEFPROCwa(X,Y,Z,vb%):LOCALc,e:c=SIN(RAD(-vb%)):e=COS(RAD(-vb%)):A=(!X)-sb%:B=(!Y)-tb%:C=(!Z)-ub%:!Y=(B*e-C*c)+tb%:!Z=(B*c+C*e)+ub%:ENDPROC 1527DEFPROCxa(X,Y,Z,vb%):LOCALc,e:c=SIN(RAD(-vb%)):e=COS(RAD(-vb%)):A=(!X)-sb%:B=(!Y)-tb%:C=(!Z)-ub%:!X=(A*e+C*c)+sb%:!Z=(C*e-A*c)+ub%:ENDPROC 1534DEFPROCya(X,Y,Z,vb%):LOCALc,e:c=SIN(RAD(-vb%)):e=COS(RAD(-vb%)):A=(!X)-sb%:B=(!Y)-tb%:C=(!Z)-ub%:!X=(A*e-B*c)+sb%:!Y=(A*c+B*e)+tb%:ENDPROC 1541DEFPROCY:LOCALwb%,N,i%,xb%,yb%,zb%,db%,Z:IFO%=0THENENDPROC 1545SYS"Hourglass_On":da%=-1:xb%=t%(93)-l%:yb%=t%(94)-n%:zb%=t%(95)-q%:IFQa%THEN 1548BPUT#Ra%,"Move "+STR$(xb%)+" "+STR$(yb%)+" "+STR$(zb%) 1550ENDIF 1550i%=xa%-4:db%=0:FORZ=1TOd%:REPEAT:i%+=4:UNTIL!i%<0:wb%=!i%:db%+=1::IFK%?db%THEN 1556CASEwb%OF 1557WHEN-1:PROCl(8,32) 1559WHEN-2:PROCl(8,8) 1560WHEN-3:PROCl(12,i%!8*12+12) 1561WHEN-4:PROCl(8,8):PROCl(20,20):PROCl(36,120) 1563WHEN-5:PROCl(8,8):PROCl(20,20):PROCl(40,124):PROCl(136,220) 1565WHEN-6,-10:PROCl(8,8):PROCl(44,128) 1566WHEN-7:PROCl(8,56) 1567WHEN-8:PROCl(8,44) 1568WHEN-9:PROCl(8,56) 1569ENDCASE 1569ENDIF 1570NEXT:SYS"Hourglass_Off":ENDPROC 1573DEFPROCl(S%,E%):LOCALN:FORN=i%+S%TOi%+E%STEP12:!N=!N+xb%:!(N+4)=!(N+4)+yb%:!(N+8)=!(N+8)+zb%:NEXT:ENDPROC 1580DEFPROCza:LOCALdb%,N%,F%,L%,Z,bb%:IFO%=0THENENDPROC 1584SYS"Hourglass_On":da%=-1:bb%=0:N%=xa%+H%-8:db%=d%+1:FORZ=1TOd%:REPEAT:N%-=4:UNTIL!N%<0:db%-=1:IFK%?db%THEN 1590F%=xa%+H%-4:L%=N%:REPEAT:!F%=!L%:L%+=4:F%+=4:UNTIL!L%<0:!F%=-256:H%=F%-xa%+4:bb%+=1:$FNa(d%+bb%)=FNi($FNa(db%)):K%?d%=1 1596ENDIF 1596NEXT:d%+=bb%:SYS"Hourglass_Off":ENDPROC 1600DEFFNg(A$):LOCALN,C,B$:IFA$=""THEN="" 1604B$="":FORN=1TOLEN(A$):B$+=CHR$(ASC(MID$(A$,N,1))OR32):NEXT:=B$ 1608DEFPROCX(W%):LOCALZ:Z=FNe(FNb(W%,0)):IFQa%THEN 1611BPUT#Ra%,"Select "+$FNa(Z) 1613ENDIF 1613IFZ>0THEN 1614IFK%?Z=0THEN 1615K%?Z=1:O%+=1 1617ELSE:K%?Z=0:O%-=1 1619ENDIF 1619ENDIF 1620PROCe:PROCh:ENDPROC 1623DEFPROCS:LOCALdb%,N%,L%,F%,Q%,Ab%:IFO%=0THENENDPROC 1627SYS"Hourglass_On":da%=-1:bb%=0:N%=xa%+H%-8:db%=d%+1:Ab%=d%:FORZ=1TOAb%:REPEAT:N%-=4:UNTIL!N%<0:db%-=1:IFK%?db%THEN 1634F%=N%:REPEAT:F%+=4:UNTIL!F%<0:L%=N%:WHILE!F%<>-256:!L%=!F%:L%+=4:F%+=4:ENDWHILE:!L%=-256:H%=L%+4-xa%:FORQ%=db%TOd%:$FNa(Q%)=$FNa(Q%+1):K%?Q%=?(K%+Q%+1):?(Ya%+Q%)=?(Ya%+Q%+1):!(J%+Q%*20-20)=!(J%+Q%*20):!(J%+Q%*20-16)=!(J%+Q%*20+4) 1643!(J%+Q%*20-12)=!(J%+Q%*20+8):!(J%+Q%*20-8)=!(J%+Q%*20+12):!(J%+Q%*20-4)=!(J%+Q%*20+16):NEXT:_%=0:O%-=1:d%-=1 1649ENDIF 1649NEXT:SYS"Hourglass_Off":SYS"Wimp_ForceRedraw",ha%,0,-180,348,0:ENDPROC 1653DEFFNi(d$):LOCALN,A$,B$,Bb%:Bb%=0:A$="":IFINSTR(d$,"#")>0THEN 1658d$=LEFT$(d$,INSTR(d$,"#")) 1660ELSE:IFFNe(d$)=0THENA$=d$ELSEd$+=" #" 1661ENDIF 1662FORN=1TO6:IFc$(N)=d$THENBb%=k%(N):k%(N)+=1 1664NEXT:IFBb%<>0THEN=d$+STR$(Bb%+1) 1666IFA$<>""THEN=A$ 1667A$=FNg(d$):FORN=1TOd%:B$=FNg($FNa(N)):IFLEFT$(B$,LEN(A$))=A$THEN 1671IFVAL(RIGHT$(B$,LEN(B$)-LEN(A$)))>Bb%THEN 1672Bb%=VAL(RIGHT$(B$,LEN(B$)-LEN(A$))) 1674ENDIF 1674ENDIF 1675NEXT:c$(k%(0))=d$:k%(k%(0))=Bb%+1:k%(0)+=1:IFk%(0)=7THENk%(0)=1 1679=d$+STR$(Bb%+1) 1682DEFFNp:LOCALA$,N$,N%,F%:CASECb%OF 1684WHEN1:N$=a$(51) 1686WHEN2:N$=a$(52) 1687WHEN3:N$=a$(53) 1688WHEN4:N$=a$(54) 1689WHEN5:N$=a$(55) 1690WHEN6:N$=a$(56) 1691WHEN7:N$=a$(57) 1692WHEN8:N$=a$(58) 1693WHEN16:N$=a$(59) 1694WHEN24:N$=a$(60) 1695WHEN25:N$=a$(61) 1696WHEN32:N$=a$(62) 1697ENDCASE 1697N%=0:REPEAT:N%+=1:A$=FNg(N$+STR$(N%)):F%=1:Db%=-1:WHILEF%<=d%ANDDb%:IFA$=FNg($FNa(F%))THENDb%=0 1702F%+=1:ENDWHILE:UNTILDb%:PROCb(Z%,0,N$+STR$(N%)):SYS"Wimp_SetCaretPosition",Z%,0,0,0,-1,LEN(N$+STR$(N%)):=N$+STR$(N%) 1710DEFPROCT(Cb%):LOCALd$,c%,N:da%=-1:c%=xa%+H%-4:Ba%=1:IFc%>xa%+200*Sa%THENERROR17,a$(14) 1713CASECb%OF 1714WHEN1,2,3,4,32,5,6,7,8,16,24,25:d$=FNb(W%,0):IFfa%<>0ANDCb%<>16THEN 1717d$=$FNd(fa%)+">"+FNp 1719ELSE:IFd$=""ORFNe(d$)<>0THENd$=FNp 1720ENDIF 1721ENDCASE 1722CASECb%OF 1723WHEN1:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=0:Ca%=H%+16:$FNa(d%+1)=d$ 1728WHEN2:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=0:c%!36=0:Ca%=H%+16:$FNa(d%+1)=d$ 1733WHEN3:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=0:Ca%=H%+16:$FNa(d%+1)=d$ 1738WHEN4,32:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=0:c%!24=0:c%!28=0:c%!32=0:c%!36=0:c%!40=0:$FNa(d%+1)=d$:Ca%=H%+16 1744WHEN5,6:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=l%:c%!36=n%:c%!40=q%:c%!44=l%:c%!48=n%:c%!52=q%:$FNa(d%+1)=d$:Ca%=H%+16 1751WHEN7:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=l%:c%!36=n%:c%!40=q%:Ca%=H%+16:Aa%=2:$FNa(d%+1)=d$ 1757WHEN8:c%!4=0:c%!8=0:c%!12=l%:c%!16=n%:c%!20=q%:c%!24=l%:c%!28=n%:c%!32=q%:Ca%=H%+16:Aa%=2:$FNa(d%+1)=d$ 1762WHEN14:t%(93)=l%:t%(94)=n%:t%(95)=q%:Ca%=H%+16 1763WHEN16:c%(`%+1,0)=Eb%:c%(`%+1,1)=l%:c%(`%+1,2)=n%:c%(`%+1,3)=q%:c%(`%+1,4)=0:Ca%=H%+16:b$(`%+1)=d$ 1769WHEN24:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=l%:c%!36=n%:c%!40=q%:c%!44=l%:c%!48=n%:c%!52=q%:$FNa(d%+1)=d$:Ca%=H%+16 1776WHEN25:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=0:c%!36=0:$FNa(d%+1)=d$:Ca%=H%+16 1782WHEN30:t%(93)=l%:t%(94)=n%:t%(95)=q%:t%(83)=l%:t%(84)=n%:t%(85)=q% 1784ENDCASE 1784ENDPROC 1785DEFPROCU(N):PROCb(ma%,1,b$(N+1)):Fb%=N+1:i%(0)=c%(Fb%,5):i%(1)=c%(Fb%,6):i%(2)=c%(Fb%,7):IFc%(Fb%,0)=0THEN 1794PROCb(ma%,3,"Point") 1796ELSE:PROCb(ma%,3,"Extended") 1798ENDIF 1798PROCb(ma%,8,STR$c%(Fb%,5)):PROCb(ma%,9,STR$c%(Fb%,6)):PROCb(ma%,10,STR$c%(Fb%,7)):SYS"Wimp_ForceRedraw",ma%,48,-192,486,-80:ENDPROC 1803DEFPROCAa:LOCALN,wb%:wb%=_%:FORN=1TOd%:IFLEFT$($FNa(N),LEN($FNd(-wb%)))=$FNd(-wb%)THEN 1809_%=N:PROCP 1811ENDIF 1811NEXT:_%=wb%:ENDPROC 1814DEFPROCP:IF_%=0THENENDPROC 1817IF_%<0THENPROCAa:ENDPROC 1818!(J%+_%*20-20)=Ta%:!(J%+_%*20-16)=Ua%:!(J%+_%*20-12)=nb%:CASEnb%OF 1822WHEN1,2,3:!(J%+_%*20-8)=VAL(FNb(T%,18)) 1825WHEN4:!(J%+_%*20-8)=VAL(FNb(T%,15)):!(J%+_%*20-4)=VAL(FNb(T%,18)) 1828WHEN5:!(J%+_%*20-8)=VAL(FNb(T%,16)) 1830WHEN6:!(J%+_%*20-8)=VAL(FNb(T%,17)) 1832ENDCASE 1832ENDPROC 1833DEFPROCv(W%,I%,Gb%):LOCALFa%,A,c%,d$,Q%,Hb%:CASEW%OF 1839WHENPa%:CASEI%OF 1841WHEN4,5,6:Ib%=I%-3 1843WHEN7:SYS"Wimp_CreateMenu",-1 1844WHEN8:PROCBa:SYS"Wimp_CreateMenu",-1 1847ENDCASE 1847WHENOa%:CASEI%OF 1849WHEN3:PROCCa 1851WHEN2:PROCo(Oa%) 1852ENDCASE 1852 1854WHENJb%:IFI%>0ANDI%<5THENKb%=I% 1855IFI%=5THENSYS"Wimp_CreateMenu",-1:PROCo(Jb%) 1856IFI%=6THENPROCDa(Kb%) 1857 1859WHENqa%:IFI%=2THEN 1860IFINSTR(FNb(qa%,1),"$.")=0THENERROR17,a$(5) 1861SYS"Wimp_CreateMenu",-1:PROCA(FNb(qa%,1)) 1864ENDIF 1864 1867WHENsa%:IFI%=2THEN 1868IFINSTR(FNb(sa%,1),"$.")=0THENERROR17,a$(5) 1869SYS"Wimp_CreateMenu",-1:PROCO(FNb(sa%,1)) 1872ENDIF 1872 1874WHENeb%:IFI%=2THEN 1875PROCo(eb%) 1877ENDIF 1877 1879WHENT%:IFI%>7ANDI%<15THENnb%=I%-8 1880IFI%=22THENWa%=0:PROCB 1881 1883WHENNa%:IFI%=20THEN 1884SYS"Wimp_CreateMenu",-1:!b%=W%:b%!4=18:SYS"Wimp_GetIconState",,b%:e%(4)=b%!24>>28AND15:ya%=VAL(FNb(W%,19)):PROCe 1890ENDIF 1890IFI%>0ANDI%<17THEN 1891!b%=Na%:b%!4=18:b%!8=(I%-1)<<28:b%!12=&F0000000:SYS"Wimp_SetIconState",,b% 1894ENDIF 1894 1896WHENZ%:CASEI%OF 1897WHEN1,2,3,4,5,6,7,8,9,10,24,25,32:da%=-1:wa%=I% 1900WHEN11:IFa+1<=8THENa=a+1:PROCk 1900WHEN12:IFa-1>=1THENa=a-1:PROCk 1901WHEN13:wa%=I%:IFCa%<>H%THENPROCe 1903Ca%=H% 1905WHEN14,30:wa%=I%:PROCT(I%) 1906WHEN15:wa%=I% 1907WHEN16:da%=-1:wa%=I% 1908WHEN17:fa%=0:PROCi 1909WHEN18:A$=FNb(Z%,0):FORN=1TOd%:IFK%?NTHEN 1911IFINSTR($FNa(N),">")>0THEN 1912b$=LEFT$($FNa(N),INSTR($FNa(N),">")) 1914ELSE:b$="" 1916ENDIF 1916$FNa(N)=FNi(b$+A$) 1918ENDIF 1918NEXT:SYS"Wimp_ForceRedraw",ha%,0,-180,348,0:SYS"Wimp_ForceRedraw",ia%,0,-(d%*36),348,0 1922WHEN19:SYS"Hourglass_On":IFQa%THEN 1923BPUT#Ra%,"Copy" 1925ENDIF 1925PROCza:PROCi:PROCh:PROCe:SYS"Hourglass_Off" 1930WHEN20:FORM=0TOSa%STEP4:K%!M=0:NEXT:O%=0:PROCe:PROCh 1933WHEN21:IFO%=0THENERROR17,a$(15) 1933d$=FNb(Z%,0):Db%=0:IFU%=499THENERROR17,a$(16) 1935IFFNe(d$)<>0THENERROR17,a$(17) 1936FORN=1TOd%:IFK%?N=1ANDINSTR($FNa(N),">")=0THEN 1938$FNa(N)=d$+">"+$FNa(N):Db%=-1:K%?N=0:O%-=1 1941ENDIF 1941NEXT:IFDb%=0THENERROR17,a$(18) 1943U%+=1:$FNd(U%)=d$:PROCi:PROCe:PROCh 1947WHEN22:IFO%=0THENERROR17,a$(15) 1947PROC_ 1949WHEN23:FORN=1TOd%:K%?N=1:NEXT:O%=d%:PROCe:PROCh 1952WHEN26:PROCm(na%) 1953WHEN29:PROCm(Jb%) 1954WHEN31:SYS"OS_Confirm"TOLb%:IFLb%=121THEN 1955PROCS:PROCR:PROCb(Z%,0,"") 1959ENDIF 1959WHEN33:PROCB:PROCm(T%) 1961WHEN34:IFb%(1)=f%(1)ANDb%(2)=f%(2)ANDb%(3)=f%(3)THEN 1962ERROR17,a$(19) 1964ELSE:PROCm(pa%) 1966ENDIF 1966ENDCASE 1967CASEI%OF 1968WHEN1,2,3,4,5,6,7,8,16,24,25,32:IF`%+1>10THENERROR17,a$(20) 1970IFd%+1>Sa%THENERROR17,a$(21) 1971IFCa%<>H%THEN 1972Ca%=H%:PROCe:PROCT(I%) 1975ELSE:PROCT(I%) 1977ENDIF 1977ENDCASE 1978 1980WHENna%:CASEI%OF 1981WHEN28,29,30:PROCEa(I%-28) 1983WHEN13:IFhb%>0THENhb%-=1 1983PROCb(W%,12,STR$(hb%)+"%") 1985WHEN14:IFhb%<100THENhb%+=1 1985PROCb(W%,12,STR$(hb%)+"%") 1987WHEN16:IFkb%>0THENkb%-=1 1987PROCb(W%,17,STR$(kb%)+"%") 1989WHEN18:IFkb%<100THENkb%+=1 1989PROCb(W%,17,STR$(kb%)+"%") 1991WHEN22:IFlb%<100THENlb%+=1 1991PROCb(W%,21,STR$(lb%)+"%") 1993WHEN20:IFlb%>0THENlb%-=1 1993PROCb(W%,21,STR$(lb%)+"%") 1995WHEN32:IFjb%<100THENjb%+=1 1995PROCb(W%,24,STR$(jb%)+"%") 1997WHEN27:IFjb%>0THENjb%-=1 1997PROCb(W%,24,STR$(jb%)+"%") 1999WHEN31:IFib%>0THENib%-=1 1999PROCb(W%,26,STR$(ib%)+"%") 2001WHEN33:IFib%<100THENib%+=1 2001PROCb(W%,26,STR$(ib%)+"%") 2003WHEN7:PROCua 2004WHEN8:PROCsa 2005WHEN9:IFXa%>0THEN 2005PROCu($(V%+(Xa%-1)*40),1) 2007ENDIF 2007SYS"Wimp_SetCaretPosition",-1 2009WHEN10:IFXa%<oa%-1THEN 2009PROCu($(V%+(Xa%+1)*40),1) 2011ENDIF 2011SYS"Wimp_SetCaretPosition",-1 2013ENDCASE 2013 2015WHENIa%:CASEI%OF 2016WHEN0,1,2:!b%=W%:SYS"Wimp_GetWindowState",,b%:h%=b%!4-b%!20:j%=(b%!16-b%!24):MOUSEX,Y,Z:X=X-h%-132:PROCFa((X/450)*100) 2022WHEN13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28:SYS"Wimp_ReadPalette",,b%:Fa%=((I%-13)*4)+b%:g%(0)=(Fa%?1)/2.56:g%(1)=(Fa%?2)/2.56:g%(2)=(Fa%?3)/2.56:SYS"Wimp_ForceRedraw",W%,132,-176,590,-32:SYS"Wimp_ForceRedraw",W%,472,-264,584,-204 2029PROCb(Ia%,6,STR$g%(0)):PROCb(Ia%,7,STR$g%(1)):PROCb(Ia%,8,STR$g%(2)) 2033ENDCASE 2033 2035WHENca%:IFI%=1THENba%=0:PROCo(ca%) 2036IFI%=2THENda%=0 2037 2039WHEN_a%:CASEI%OF 2040WHEN12:e%()=j%():PROCe:IFGb%=4THENPROCo(W%) 2044FORN=0TO2:!b%=a%(N):SYS"Wimp_GetWindowInfo",,b%:!p%=a%(N):SYS"Wimp_DeleteWindow",,p%:?(b%+39)=e%(5):`a%=?(b%+34)AND1:SYS"Wimp_CreateWindow",,b%+4TOa%(N):NEXT:IF`a%THENPROCk 2052WHEN11:PROCo(W%) 2054WHEN5,6,7,8,9,10:!b%=W%:b%!4=I%:b%!12=&F0000000:IFja%=4THENj%(I%-5)+=1 2056IFja%=1THENj%(I%-5)-=1 2057IFj%(I%-5)>15THENj%(I%-5)=0 2058IFj%(I%-5)<0THENj%(I%-5)=16 2059b%!8=j%(I%-5)<<28:SYS"Wimp_SetIconState",,b% 2062ENDCASE 2062 2064WHENJa%:LOCALZ:CASEI%OF 2066WHEN4:Ka%-=5:IFKa%<0THENKa%+=360 2067WHEN5:Ka%+=5 2069WHEN6:La%-=5:IFLa%<0THENLa%+=360 2069WHEN7:La%+=5 2071WHEN8:Ma%-=5:IFMa%<0THENMa%+=360 2071WHEN9:Ma%+=5 2073WHEN10:SYS"Wimp_CreateMenu",-1:SYS"Hourglass_On":IFQa%THEN 2075BPUT#Ra%,"Rotate "+STR$(Ka%)+" "+STR$(La%)+" "+STR$(Ma%) 2077ENDIF 2077FORZ=1TOd%:IFK%?ZTHENPROCH(Z) 2079NEXT:PROCe:SYS"Hourglass_Off" 2083ENDCASE 2083Ka%=Ka%MOD360:La%=La%MOD360:Ma%=Ma%MOD360:PROCb(W%,11,STR$(Ka%)):PROCb(W%,12,STR$(La%)):PROCb(W%,13,STR$(Ma%)) 2088WHENma%:LOCALN,F:IFI%=1AND`%>0THENPROCM(!b%,b%!4,3) 2090IFI%=5ORI%=6ORI%=7THEN 2091LOCALX,Y,Z,Mb%,Nb%,h%,j%,Db%:!b%=ma%:SYS"Wimp_GetWindowState",,b%:h%=b%!4-b%!20:j%=(b%!16-b%!24):MOUSEX,Y,Z:X=X-h%-146:PROCGa((X/336)*100):c%(Fb%,I%)=i%(I%-5) 2096ENDIF 2096IFI%=11THEN 2097`%-=1:FORN=Fb%TO`%:b$(N)=b$(N+1):FORF=1TO8:c%(N,F)=c%(N+1,F):NEXT:NEXT:IFFb%>`%THENFb%=`% 2101PROCU(Fb%-1):PROCe 2103ENDIF 2103ENDCASE 2104ENDPROC 2105DEFPROCia(b%):LOCALi$,Ob%,A$,N:i$=STR$(la%)+" ":N=0:WHILEb%!N<>-1:i$=i$+"."+STR$(b%!N):N+=4:ENDWHILE:Ob%=b%!8:Pb%=!b%:SYS"Wimp_GetPointerInfo",,b%:Qb%=b%!8=1:CASEi$OF 2115WHEN"1 .1":PROCpa 2117WHEN"1 .2":Rb%=1-Rb%:SYS"OS_UpdateMEMC",Rb%*64,64 2119WHEN"1 .3":PROCm(_a%):FORN=0TO5:!b%=_a%:b%!4=5+N:b%!12=&F0000000:b%!8=e%(N)<<28:SYS"Wimp_SetIconState",,b%:NEXT 2124WHEN"1 .4":ba%=-1 2125WHEN"2 .0.3.0":PROCI(0) 2126WHEN"2 .0.3.1":PROCI(1) 2127WHEN"2 .0.3.2":PROCI(2) 2128WHEN"2 .0.3.3":PROCI(3) 2129WHEN"2 .0.4.0":PROCC("<Ray$Dir>.Default") 2130WHEN"2 .0.4.1":PROCA("<Ray$Dir>.Default") 2131WHEN"2 .1.0":FORN=1TOd%:K%?N=1:NEXT:O%=d%:PROCe:PROCh 2136WHEN"2 .1.1":FORM=0TOSa%STEP4:K%!M=0:NEXT:O%=0:PROCe:PROCh 2140WHEN"2 .1.2":FORN=1TOd%:IFK%?NTHENYa%?N=1 2142NEXT:PROCi:PROCe:PROCh 2147WHEN"2 .1.3":FORN=1TOd%:IFK%?NTHENYa%?N=0 2149NEXT:PROCi:PROCe:PROCh 2154WHEN"2 .1.4.0":d$=FNb(Z%,0):Db%=0:IFU%=499THENERROR17,a$(16) 2156IFFNe(d$)=0THEN 2157FORN=1TOd%:IFK%?NANDINSTR($FNa(N),">")=0THEN 2159$FNa(N)=d$+">"+$FNa(N):Db%=-1:K%?N=0:O%-=1 2162ENDIF 2162NEXT:IFDb%=-1THEN 2164U%+=1:$FNd(U%)=d$:PROCi:PROCe:PROCh 2170ELSE:ERROR17,a$(18) 2172ENDIF 2172ELSE:ERROR17,a$(17) 2175ENDIF 2175WHEN"2 .1.4.1":PROC_ 2177WHEN"2 .1.5":PROCS:PROCb(Z%,0,""):PROCR 2181WHEN"2 .1.7.0":SYS"Hourglass_On":IFQa%THEN 2183BPUT#Ra%,"Scale "+$Sb% 2185ENDIF 2185PROC`(VAL($Sb%)/100):PROCe:SYS"Hourglass_Off" 2189WHEN"2 .2.0.0":Eb%=0 2190WHEN"2 .2.0.1":Eb%=1 2191WHEN"2 .2.1":PROCm(ma%):PROCU(0) 2192WHEN"2 .3.0":PROCm(Ia%) 2193WHEN"2 .3.1":PROCB:PROCm(T%) 2195WHEN"2 .3.2":PROCm(na%) 2196WHEN"2 .4.1":BPUT#Ra%,"Stop":CLOSE#Ra%:Qa%=0 2197WHEN"2 .5.0":Za%=-1-Za%:ya%=VAL(FNb(Na%,19)):PROCe 2201WHEN"2 .5.1":za%=-1-za% 2202WHEN"2 .6.0":a=1:PROCk 2203WHEN"2 .6.1":a=2:PROCk 2204WHEN"2 .6.2":a=3:PROCk 2205WHEN"2 .6.3":a=4:PROCk 2206WHEN"2 .6.4":a=5:PROCk 2207WHEN"2 .6.5":a=6:PROCk 2208WHEN"2 .6.6":a=7:PROCk 2209WHEN"2 .6.7":a=8:PROCk 2210WHEN"2 .7":PROCW 2211ENDCASE 2211IFla%=3THENPROCU(Pb%) 2212IFla%=4THENPROCu($(V%+Pb%*40),1) 2213:IFQb%THEN 2215IFla%=1THENPROCF(" !Ray3d ","Info,Save Config,Fast,Colours...,Quit,",!b%,324) 2216IFla%=2THENPROCF(" Main Menu ","Project,Select,Lights ,World,Macro,Grid,Zoom,Tools...,",!b%,b%!4) 2217ENDIF 2218ENDPROC 2219DEFPROCF(j$,m$,X%,Y%):PROCn(Tb%,j$,m$):SYS"Wimp_CreateMenu",,Tb%,X%-Tb%!16/2,Y%:A$="No printer":SYS655680,,,,,A$TO,,,,A$:PROCb(Jb%,0,A$):PROCb(Ub%,1,"Generated on !Ray3d version "+STR$(aa%/100)):PROCb(Ub%,5,STR$(d%)):PROCb(Ub%,6,STR$(oa%)):PROCb(Ub%,7,STR$(`%)):ENDPROC 2231DEFPROCn(M%,j$,m$):LOCALI%,Bb%,Vb%,Wb%,Xb%,N:Xb%=128:$M%=j$:M%!12=459271:M%!20=44:M%!24=0:I%=M%+28:Bb%=LEN(j$)-2:REPEAT:A%=INSTR(m$,","):$(I%+12)=LEFT$(m$,A%-1):m$=MID$(m$,A%+1):IFA%>Bb%Bb%=A% 2240!I%=0:I%!4=0::CASE$(I%+12)OF 2243WHEN"Info":I%!4=ka% 2245WHEN"Rotate":I%!4=Ja% 2246WHEN"Grid options":I%!4=Na% 2247WHEN"3d file":I%!4=qa% 2248WHEN"About":I%!4=Ub% 2249WHEN"Selected":I%!4=sa% 2250WHEN"Print":I%!4=Jb% 2251WHEN"Fractal":I%!4=Pa% 2252WHEN"Record":I%!4=ta%:IFQa%THEN?I%=1 2252WHEN"Show":?I%=2 2254WHEN"Point":IFEb%=0THEN?I%=1 2254WHEN"Fast":IFRb%THEN?I%=1 2255WHEN"Extended":IFEb%=1THEN?I%=1:Xb%=129 2256WHEN"Show grid":IFZa%THEN?I%=1 2257WHEN"Snap to grid":IFza%THEN?I%=1 2258WHEN"Project":I%!4=Tb%+500:PROCn(I%!4,"Project","About,Save,Print,Clear,Default,") 2261WHEN"Grid":I%!4=Tb%+700:PROCn(I%!4,"Grid","Show grid,Snap to grid,Grid options,") 2263WHEN"World":I%!4=Tb%+900:?I%=2:PROCn(I%!4,"World","Background...,Link...,Surfaces...,") 2265WHEN"Select":I%!4=Tb%+1100:PROCn(I%!4,"Select","Select all,Clear ,Hide,Show,Group,Delete,Rotate,Scale,Fractal,") 2267WHEN"Type":I%!4=Tb%+1400:PROCn(I%!4,"Type:","Point,Extended,") 2269WHEN"Clear":I%!4=Tb%+1500:PROCn(I%!4,"Clear","Lights,Surfaces,Objects,All,") 2271WHEN"Scale":I%!4=Tb%+1700:PROCn(I%!4," Scale % ","@@,") 2273WHEN"Macro":I%!4=Tb%+1800:PROCn(I%!4," Macro ","Record,Stop,") 2275WHEN"Lights ":I%!4=Tb%+2000:PROCn(I%!4,"Lights","Type,Modify...,") 2277WHEN"Save":I%!4=Tb%+2300:PROCn(I%!4," Save: ","3d file,Selected,") 2279WHEN"Group":I%!4=Tb%+2500:PROCn(I%!4," Group ","Group ,Ungroup,") 2281WHEN"Zoom":I%!4=Tb%+2700:PROCn(I%!4," Zoom % ","100,200,300,400,500,600,700,800,") 2283WHEN"Default":I%!4=Tb%+3200:PROCn(I%!4," Default ","Load,Save ,") 2285ENDCASE 2285:I%!8=&7000021:IF$(I%+12)="Fractal"ANDO%=0THENI%!8=&7400021 2288IF$(I%+12)="Selected"ANDO%=0THENI%!8=&7400021 2289IF$(I%+12)="Group"ANDO%=0THENI%!8=&7400021 2290IF$(I%+12)="Clear "ANDO%=0THENI%!8=&7400021 2291IF$(I%+12)="Hide"ANDO%=0THENI%!8=&7400021 2292IF$(I%+12)="Show"ANDO%=0THENI%!8=&7400021 2293IF$(I%+12)="Select"ANDd%=0THENI%!8=&7400021 2294IF$(I%+12)="Modify..."AND`%=0THENI%!8=&7400021 2295IF$(I%+12)="Rename"ANDO%<>1THENI%!8=&7400021 2296IF$(I%+12)="Rotate"ANDO%=0THENI%!8=&7400021 2297IF$(I%+12)="Delete"ANDO%=0THENI%!8=&7400021 2298IF$(I%+12)="Scale"ANDO%=0THENI%!8=&7400021 2299IF$(I%+12)="Copy"ANDO%=0THENI%!8=&7400021 2300IF$(I%+12)="@@"THEN 2301$Sb%="":Xb%=132:I%!8=&7000121:I%!12=Sb%:I%!16=Yb%:I%!20=21 2304ENDIF 2304I%+=24:UNTILm$="":!(I%-24)=Xb%:M%!16=Bb%*16:ENDPROC 2308DEFPROCM(X%,Y%,Q):LOCALs$,M%,I%,Bb%,Vb%,Wb%:la%=Q:M%=Tb%:M%!12=459271:IFQ=3THEN$M%=" Lights "ELSE$M%=" Surfaces " 2313M%!20=44:M%!24=0:I%=M%+28:Bb%=8:IFQ=3THENFORF=1TO`% 2316IFQ=4THENFORF=1TOoa% 2317IFQ=3THENs$=b$(F)ELSEs$=$(V%+F*40-40) 2318A%=LEN(s$):I%!12=(Zb%+F*21)-21:$(Zb%+F*21-21)=s$:I%!16=21:IFA%+1>Bb%Bb%=A%+1 2322!I%=0:I%!4=0:I%!8=&7000121:I%+=24:NEXT:I%!-24=128:M%!16=Bb%*16:SYS"Wimp_CreateMenu",,Tb%,X%-Tb%!16/2,Y%:ENDPROC 2327DEFPROCDa(_b%):LOCALC,O,`b%,ac%,bc%,cc%:SYS"Wimp_CreateMenu",-1:SYS655680TO;F%:IFF%AND1THENERROR17,a$(23) 2334SYS"Hourglass_On":C=OPENOUT("Printer:"):LOCALERROR:ONERRORLOCAL:RESTOREERROR:CLOSE#C:PROCHa 2340SYS"PDriver_SelectJob",C,"Ray3d Printout"TOO:LOCALERROR:ONERRORLOCAL:RESTOREERROR:SYS"PDriver_AbortJob",C:SYS"PDriver_SelectJob",O:PROCHa 2345SYS"PDriver_PageSize"TO,,,`b%,cc%,ac%,bc%::dc%!0=1*2^16:dc%!12=1*2^16:dc%!4=0:dc%!8=0:ec%!0=0:ec%!4=0:ec%!8=u%:ec%!12=u%:fc%!0=((ac%-`b%-(u%*400))/2)+`b%:fc%!4=((bc%-cc%-(u%*400))/2)+cc%:gc%=-256 2356SYS"PDriver_GiveRectangle",_b%,ec%,dc%,fc%,gc%:SYS"PDriver_DrawPage",_b%,hc%,0,0TOk%,,ic%:WHILEk%:PROCIa(ic%):SYS"PDriver_GetRectangle",,ec%TOk%,,ic%:ENDWHILE:SYS"PDriver_EndJob",C:RESTOREERROR 2364SYS"PDriver_SelectJob",O:RESTOREERROR 2366CLOSE#C:SYS"Hourglass_Off":ENDPROC 2369DEFPROCHa:SYS"Hourglass_Smash":IFERR<>1THEN 2373ERROR17,REPORT$+" (line "+STR$ERL+")" 2375ELSE:ERROR1,REPORT$+" (line "+STR$ERL+")" 2377ENDIF 2377ENDPROC 2378DEFPROCIa(_b%):RECTANGLE0,0,u%,u%:IF_b%=4THEN 2382h%=0:j%=u%:PROCJa(7) 2385ELSE:db%+=1:E%=2:F%=_b%-1:!ca=0:!da=u%:!ea=7:!fa=7:G%=xa%:CALLga 2390ENDIF 2390ENDPROC 2391DEFPROCca(W%):LOCALk%,h%,j%,Fa%:!b%=W%:SYS"Wimp_RedrawWindow",,b%TOk%:h%=b%!4-b%!20:j%=(b%!16-b%!24):WHILEk%:CASEW%OF 2400WHENga%,ha%,ia%:PROCKa 2402WHENa%(0),a%(1),a%(2):PROCLa 2403WHENpa%:PROCJa(0) 2404WHENma%:PROCd(11):RECTANGLEFILLh%+146,j%-108,3.36*i%(0),20:PROCd(10):RECTANGLEFILLh%+146,j%-148,3.36*i%(1),20:PROCd(8):RECTANGLEFILLh%+146,j%-188,3.36*i%(2),20:PROCz(i%(0),i%(1),i%(2)):RECTANGLEFILLh%+50,j%-188,54,102 2410WHENna%:PROCd(11):RECTANGLEFILLh%+48,j%-516,3.12*h%(0),32:PROCd(10):RECTANGLEFILLh%+48,j%-568,3.12*h%(1),32:PROCd(8):RECTANGLEFILLh%+48,j%-620,3.12*h%(2),32:PROCz(h%(0),h%(1),h%(2)):RECTANGLEFILLh%+48,j%-672,426,32 2416WHENIa%:PROCd(11):RECTANGLEFILLh%+132,j%-64,4.5*g%(0),28:PROCd(10):RECTANGLEFILLh%+132,j%-118,4.5*g%(1),28:PROCd(8):RECTANGLEFILLh%+132,j%-176,4.5*g%(2),28:PROCz(g%(0),g%(1),g%(2)):RECTANGLEFILLh%+472,j%-268,112,60 2422ENDCASE 2422SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE:ENDPROC 2425DEFPROCd(A):SYS"Wimp_SetColour",A:ENDPROC 2429DEFPROCz(jc%,kc%,lc%):LOCALFa%:jc%=jc%*2.56:kc%=kc%*2.56:lc%=lc%*2.56:Fa%=(lc%<<24)+(kc%<<16)+(jc%<<8):SYS264003,Fa%,0,0,0,0:ENDPROC 2437DEFPROCKa:LOCALN,F,A$:CASEW%OF 2441WHENga%:B%=h%+16:C%=j%-8:D%=V%:E%=oa%:F%=0:IFE%>oa%THENE%=oa% 2444PROCd(2):RECTANGLEFILLh%,j%-(Ta%)*36,348,34:RECTANGLEFILLh%,j%-(Ua%)*36,348,34:PROCd(7):IFoa%<>0THENCALLmc% 2449WHENha%:N=0:nc%=36:IFWa%=0THEN 2452IFU%<>0THEN 2453PROCd(11):FORF=1TOU%:A$=$FNd(F):IFLEN(A$)>18THENA$=LEFT$(A$,18) 2457A$=A$+STRING$(19-LEN(A$)," ")+"*":IF-_%=FTHENPROCd(2):RECTANGLEFILLh%,j%-nc%,348,34 2459MOVEh%+16,j%+28-nc%:PROCd(11):PRINTA$:nc%+=36:NEXT 2465ENDIF 2465WHILEN<d%:N+=1:IFINSTR($FNa(N),">")=0THEN 2467IF_%=NTHEN 2468PROCd(2):RECTANGLEFILLh%,j%-nc%,348,34 2470ENDIF 2470PROCd(7):MOVEh%+16,j%+28-nc%:PRINT$FNa(N):nc%+=36 2474ENDIF 2474ENDWHILE 2476ELSE:FORN=1TOd%:a$=$FNa(N):IFLEFT$(a$,INSTR(a$,">")-1)=$FNd(Wa%)THEN 2479IFN=_%THEN 2480PROCd(2):RECTANGLEFILLh%,j%-nc%,348,34 2482ENDIF 2482PROCd(7):MOVEh%+16,j%+28-nc%:PRINTRIGHT$(a$,LEN(a$)-INSTR(a$,">")):nc%+=36 2487ENDIF 2487NEXT 2489ENDIF 2489WHENia%:N=0:nc%=36:IFfa%=0THEN 2492IFU%<>0THEN 2493PROCd(11):FORF=1TOU%:A$=$FNd(F):IFLEN(A$)>18THENA$=LEFT$(A$,18) 2497A$=A$+STRING$(19-LEN(A$)," ")+"*":MOVEh%+16,j%+28-nc%:PRINTA$:nc%+=36:NEXT 2502ENDIF 2502WHILEN<d%:N+=1:IFINSTR($FNa(N),">")=0THEN 2504IFK%?NTHEN 2505PROCd(2):RECTANGLEFILLh%,j%-nc%,348,34 2507ENDIF 2507IFYa%?N=1THENPROCd(8)ELSEPROCd(7) 2508MOVEh%+16,j%+28-nc%:PRINT$FNa(N):nc%+=36 2511ENDIF 2511ENDWHILE 2513ELSE:FORN=1TOd%:a$=$FNa(N):IFLEFT$(a$,INSTR(a$,">")-1)=$FNd(fa%)THEN 2516IFK%?NTHEN 2517PROCd(2):RECTANGLEFILLh%,j%-nc%,348,34 2519ENDIF 2519IFYa%?N=1THENPROCd(8)ELSEPROCd(7) 2520MOVEh%+16,j%+28-nc%:PRINTRIGHT$(a$,LEN(a$)-INSTR(a$,">")):nc%+=36 2524ENDIF 2524NEXT 2526ENDIF 2526ENDCASE 2527ENDPROC 2528DEFPROCFa(C%):LOCALk%,A%,B%:IFg%(I%)<>C%ANDC%>=0ANDC%<101THEN 2532PROCb(Ia%,6+I%,STR$(C%)):g%(I%)=C%:!b%=W%:b%!4=132:b%!8=-264:b%!12=590:b%!16=-32:SYS"Wimp_UpdateWindow",,b%TOk%:WHILEk%:IFI%=0THENPROCd(11) 2538IFI%=1THENPROCd(10) 2539IFI%=2THENPROCd(8) 2540A%=4.5*g%(I%):B%=4.5*100-A%:RECTANGLEFILLh%+132,j%-I%*56-64,A%,28:PROCd(1):RECTANGLEFILLh%+132+A%,j%-I%*56-64,B%,28:PROCz(g%(0),g%(1),g%(2)):RECTANGLEFILLh%+472,j%-268,112,60:SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE 2549ENDIF 2549ENDPROC 2550DEFPROCGa(C%):LOCALk%,A%,B%:IFi%(I%-5)<>C%ANDC%>=0ANDC%<101THEN 2554i%(I%-5)=C%:!b%=W%:b%!4=48:b%!8=-192:b%!12=486:b%!16=-80:SYS"Wimp_UpdateWindow",,b%TOk%:WHILEk%:IFI%=5THENPROCd(11) 2558IFI%=6THENPROCd(10) 2559IFI%=7THENPROCd(8) 2560A%=3.36*i%(I%-5):B%=3.36*100-A%:RECTANGLEFILLh%+146,j%+92-I%*40,A%,20:PROCd(1):RECTANGLEFILLh%+146+A%,j%+92-I%*40,B%,20:PROCz(i%(0),i%(1),i%(2)):RECTANGLEFILLh%+50,j%-188,54,102:PROCb(ma%,I%+3,STR$C%):SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE 2569ENDIF 2569ENDPROC 2570DEFPROCMa(C%):LOCALk%,A%,B%:IFh%(I%)<>C%ANDC%>=0ANDC%<101THEN 2574h%(I%)=C%:!b%=W%:b%!4=48:b%!8=-676:b%!12=472:b%!16=-484:SYS"Wimp_UpdateWindow",,b%TOk%:WHILEk%:IFI%=0THENPROCd(11) 2578IFI%=1THENPROCd(10) 2579IFI%=2THENPROCd(8) 2580A%=3.12*h%(I%):B%=3.12*100-A%:RECTANGLEFILLh%+48,j%-I%*52-516,A%,30:PROCd(1):RECTANGLEFILLh%+48+A%,j%-I%*52-516,B%,30:PROCz(h%(0),h%(1),h%(2)):RECTANGLEFILLh%+50,j%-672,422,30:PROCb(na%,I%+1,STR$(h%(I%))+"%"):SYS"Wimp_GetRectangle",,b%TOk%:ENDWHILE 2590ENDIF 2590ENDPROC 2591DEFPROCa(oc%,x%,y%,z%):x%-=20000:y%-=20000:z%-=20000:x%=x%*a/8:y%=y%*a/8:z%=z%*a/8:IFW%=a%(1)THENPLOToc%,h%+y%,j%+z%-u%*a 2596IFW%=a%(0)THENPLOToc%,h%+x%,j%+z%-u%*a 2597IFW%=a%(2)THENPLOToc%,h%+x%,j%+y%-u%*a 2598ENDPROC 2599DEFPROCEa(I%):LOCALX,Y,Z,Mb%,Nb%,h%,j%,Db%:!b%=na%:SYS"Wimp_GetWindowState",,b%:h%=b%!4-b%!20:j%=(b%!16-b%!24):MOUSEX,Y,Z:X=X-h%-48:PROCMa((X/312)*100):ENDPROC 2607DEFPROCj(x%,y%,z%,m%,pc%):LOCALc,e:c=SIN(RAD(m%!32)):e=COS(RAD(m%!32)):A=x%:B=y%:C=z%:y%=B*e-C*c:z%=B*c+C*e:c=SIN(RAD(m%!36)):e=COS(RAD(m%!36)):A=x%:B=y%:C=z%:x%=A*e+C*c:z%=C*e-A*c:c=SIN(RAD(m%!40)):e=COS(RAD(m%!40)):A=x%:B=y%:C=z%:x%=A*e-B*c:y%=A*c+B*e 2616!(m%+32+pc%*12)=x%+m%!8:!(m%+36+pc%*12)=y%+m%!12:!(m%+40+pc%*12)=z%+m%!16:ENDPROC 2620DEFPROCt(x,y,z,u,v,w,D,E,G,P):c=SIN(RAD(-D)):e=COS(RAD(-D)):A=x:B=y:C=z:y=B*e-C*c:z=B*c+C*e:c=SIN(RAD(-G)):e=COS(RAD(-G)):A=x:B=y:C=z:x=A*e+C*c:z=C*e-A*c:c=SIN(RAD(-E)):e=COS(RAD(-E)):A=x:B=y:C=z:x=A*e-B*c:y=A*c+B*e:IFP=1THEN 2630c%!u=x+c%!8:c%!v=y+c%!12:c%!w=z+c%!16 2634ELSE:c%!u=x+c%!20:c%!v=y+c%!24:c%!w=z+c%!28 2638ENDIF 2638ENDPROC 2639DEFPROCx(x,y,z,u,v,w,D,E,G,P):c=SIN(RAD(-E)):e=COS(RAD(-E)):A=x:B=y:C=z:x=A*e-B*c:y=A*c+B*e:c=SIN(RAD(-G)):e=COS(RAD(-G)):A=x:B=y:C=z:x=A*e+C*c:z=C*e-A*c:c=SIN(RAD(-D)):e=COS(RAD(-D)):A=x:B=y:C=z:y=B*e-C*c:z=B*c+C*e:IFP=1THEN 2648c%!u=x+c%!8:c%!v=y+c%!12:c%!w=z+c%!16 2652ELSE:c%!u=x+c%!20:c%!v=y+c%!24:c%!w=z+c%!28 2656ENDIF 2656ENDPROC 2657DEFPROCy(x,y,z,u,v,w,D,E,G,P):c=SIN(RAD(-E)):e=COS(RAD(-E)):A=x:B=y:C=z:x=A*e-B*c:y=A*c+B*e:c=SIN(RAD(-D)):e=COS(RAD(-D)):A=x:B=y:C=z:y=B*e-C*c:z=B*c+C*e:c=SIN(RAD(-G)):e=COS(RAD(-G)):A=x:B=y:C=z:x=A*e+C*c:z=C*e-A*c:IFP=1THEN 2666c%!u=x+c%!8:c%!v=y+c%!12:c%!w=z+c%!16 2670ELSE:c%!u=x+c%!20:c%!v=y+c%!24:c%!w=z+c%!28 2674ENDIF 2674ENDPROC 2675DEFPROCg:LOCALs%:s%=0:IFAa%>1000THENs%=Aa%:Aa%-=1000 2679c%=xa%+H%-4:PROCd((e%(1)EORe%(5))+48):CASEwa%OF 2682WHEN1:PROCa(4,c%!8,c%!12,c%!16):PLOT145,(c%!20)*a/8,0 2686WHEN2:LOCALha,ia,l,N,H,I,J:IFBa%=1THEN 2688PROCa(4,c%!8,c%!12,c%!16):PROCa(5,c%!20,c%!24,c%!28) 2691ENDIF 2691IFBa%=2THEN 2692PROCZ(c%,2):PROCa(4,c%!124,c%!128,c%!132):FORN=1TO8:PROCa(5,!(c%+N*12+28),!(c%+N*12+32),!(c%+N*12+36)):NEXT:FORN=1TO8:PROCa(4,!(c%+N*12+28),!(c%+N*12+32),!(c%+N*12+36)):PROCa(5,!(c%+20),!(c%+24),!(c%+28)):NEXT 2702ENDIF 2702IFBa%=3THEN 2703PROCZ(c%,3):PROCa(4,c%!124,c%!128,c%!132):FORN=1TO8:PROCa(5,!(c%+N*12+28),!(c%+N*12+32),!(c%+N*12+36)):NEXT:PROCa(4,c%!220,c%!224,c%!228):FORN=1TO8:PROCa(5,!(c%+N*12+124),!(c%+N*12+128),!(c%+N*12+132)):NEXT:FORN=1TO8 2713PROCa(4,!(c%+N*12+28),!(c%+N*12+32),!(c%+N*12+36)):PROCa(5,!(c%+N*12+124),!(c%+N*12+128),!(c%+N*12+132)):NEXT 2717ENDIF 2717WHEN3:LOCALha,ia,l,N,H,I,J:IFBa%=1THEN 2720PROCa(4,c%!8,c%!12,c%!16):PROCa(5,c%!20,c%!24,c%!28) 2723ELSE:PROCva(c%):H=c%!20-c%!8:I=c%!24-c%!12:J=c%!28-c%!16:PROCa(4,c%!120,c%!124,c%!128):FORN=1TO8:PROCa(5,!(c%+N*12+24),!(c%+N*12+28),!(c%+N*12+32)):NEXT:PROCa(4,c%!120+H,c%!124+I,c%!128+J):FORN=1TO8 2731PROCa(5,!(c%+N*12+24)+H,!(c%+N*12+28)+I,!(c%+N*12+32)+J):NEXT:FORN=1TO8:PROCa(4,!(c%+N*12+24),!(c%+N*12+28),!(c%+N*12+32)):PROCa(5,!(c%+N*12+24)+H,!(c%+N*12+28)+I,!(c%+N*12+32)+J):NEXT 2738ENDIF 2738WHEN4,32:LOCALx,y,z,f,g,h:x=c%!8:y=c%!12:z=c%!16:f=c%!20:g=c%!24:h=c%!28:PROCa(4,x-f,y-g,z-h):PROCa(5,x-f,y+g,z-h):PROCa(5,x+f,y+g,z-h):PROCa(5,x+f,y-g,z-h):PROCa(5,x-f,y-g,z-h):PROCa(4,x-f,y-g,z-h):PROCa(5,x-f,y-g,z+h) 2745PROCa(5,x+f,y-g,z+h):PROCa(5,x+f,y-g,z-h):PROCa(5,x-f,y-g,z-h):PROCa(4,x+f,y-g,z-h):PROCa(5,x+f,y-g,z+h):PROCa(5,x+f,y+g,z+h):PROCa(5,x+f,y+g,z-h):PROCa(5,x+f,y-g,z-h) 2751WHEN5,6:LOCALF,P:VDU23,6,240,0,0,0,0,0,0,0 2753IFwa%=5THENP=21ELSEP=5 2754PROCa(4,c%!44,c%!48,c%!52):FORF=1TO4:PROCa(P,c%!(F*12-4),c%!(F*12),c%!(F*12+4)):NEXT 2757WHEN7:PROCa(4,c%!8,c%!12,c%!16):PROCa(5,c%!20,c%!24,c%!28):IFAa%>2THENPROCa(5,c%!32,c%!36,c%!40) 2760IFAa%>2THENPROCa(5,c%!8,c%!12,c%!16) 2761WHEN8:PROCa(4,c%!12,c%!16,c%!20):FORN=2TOAa%:PROCa(5,!(c%+N*12),!(c%+N*12+4),!(c%+N*12+8)):NEXT 2767WHEN16:x%=c%(`%+1,1):y%=c%(`%+1,2):z%=c%(`%+1,3):i%=c%(`%+1,4)*2:PROCa(4,x%-i%,y%,z%):PROCa(5,x%+i%,y%,z%):PROCa(4,x%,y%-i%,z%):PROCa(5,x%,y%+i%,z%):PROCa(4,x%,y%,z%-i%):PROCa(5,x%,y%,z%+i%):PROCa(4,x%-i%,y%,z%):PROCa(5,x%,y%+i%,z%) 2773PROCa(5,x%+i%,y%,z%):PROCa(5,x%,y%-i%,z%):PROCa(5,x%-i%,y%,z%):PROCa(4,x%-i%,y%,z%):PROCa(5,x%,y%,z%+i%):PROCa(5,x%+i%,y%,z%):PROCa(5,x%,y%,z%-i%):PROCa(5,x%-i%,y%,z%):PROCa(4,x%,y%,z%-i%):PROCa(5,x%,y%+i%,z%):PROCa(5,x%,y%,z%+i%):PROCa(5,x%,y%-i%,z%):PROCa(5,x%,y%,z%-i%) 2781WHEN24:LOCALF,P:IFc%!32-c%!8=0THENP=1 2783IFc%!36-c%!12=0THENP=0 2784IFc%!40-c%!16=0THENP=2 2785IFW%=a%(P)THEN 2786PROCa(4,c%!44,c%!48,c%!52):FORF=1TO4:PROCa(5,c%!(F*12-4),c%!(F*12),c%!(F*12+4)):NEXT 2789ELSE:PROCa(4,c%!8,c%!12,c%!16):FORF=1TO2:PROCa(5,c%!(F*12+8),c%!(F*12+12),c%!(F*12+16)):NEXT 2792ENDIF 2792IFBa%=2AND(c%!56<>l%ORc%!60<>n%ORc%!64<>q%)THEN 2793IFW%=a%(P)THEN 2794FORF=1TO4:PROCa(4,c%!56,c%!60,c%!64):PROCa(5,c%!(F*12-4),c%!(F*12),c%!(F*12+4)):NEXT 2799ELSE:PROCa(4,c%!56,c%!60,c%!64):PROCa(5,c%!8,c%!12,c%!16):PROCa(4,c%!56,c%!60,c%!64):PROCa(5,c%!32,c%!36,c%!40) 2802ENDIF 2802ENDIF 2803WHEN25:IFW%=a%(c%!36)THEN 2805PROCa(4,c%!8,c%!12,c%!16):PLOT145,(c%!32)*a/8,0 2808ENDIF 2808ENDCASE 2809IFs%>1000THENAa%=s% 2810ENDPROC 2811DEFPROCG:PROCd((e%(1)EORe%(5))+48):CASEwa%OF 2815WHEN14:PROCa(4,l%,n%,q%):PROCa(5,t%(93),t%(94),t%(95)) 2818WHEN30:PROCa(4,l%,n%,q%):PROCa(5,t%(83),t%(84),t%(85)):PROCa(4,l%,n%,q%):PROCa(5,t%(93),t%(94),t%(95)) 2821ENDCASE 2821ENDPROC 2822DEFPROCoa:LOCALqc%,rc%,sc%:t%(93)-=l%:t%(94)-=n%:t%(95)-=q%:t%(83)-=l%:t%(84)-=n%:t%(85)-=q%:qc%=(t%(93)<>t%(83)):rc%=(t%(94)<>t%(84)):sc%=(t%(95)<>t%(85)):IFqc%+rc%+sc%=0THENENDPROC 2832IFqc%+rc%+sc%=-3THENERROR17,a$(24) 2833SYS"Hourglass_On":Ka%=0:La%=0:Ma%=0:IFt%(80)=a%(2)THENMa%=FNj(t%(93),t%(94),t%(83),t%(84)) 2836IFt%(80)=a%(0)THENLa%=FNj(t%(83),t%(85),t%(93),t%(95)) 2837IFt%(80)=a%(1)THENKa%=FNj(t%(85),t%(84),t%(95),t%(94)) 2838FORN=1TOd%:IFK%?NTHENPROCH(N) 2840NEXT:SYS"Hourglass_Off":PROCb(Ja%,11,STR$(Ka%)):PROCb(Ja%,12,STR$(La%)):PROCb(Ja%,13,STR$(Ma%)):PROCe:ENDPROC 2845DEFFNj(ja,ka,la,ma):LOCALA,K,L:A=SQR(ja^2+ka^2):IFA=0THEN=0 2849K=DEG(ASN(ka/A)):IFja<0THENK=180-K 2850A=SQR(la^2+ma^2):IFA=0THEN=0 2851L=DEG(ASN(ma/A)):IFla<0THENL=180-L 2852IF(L-K)<0THEN=360+L-KELSE=L-K 2853DEFPROCCa:LOCALW,e%,f$,c$,p$,Q:FORW=1TOVAL(FNb(Oa%,4)):SYS"Hourglass_On":e%=OPENIN(k$):f$=FNk(e%):WHILEf$<>"Stop":IFINSTR(f$," ")>0THEN 2864c$=LEFT$(f$,INSTR(f$," ")-1):p$=RIGHT$(f$,LEN(f$)-LEN(c$)-1) 2867ELSE:c$=f$:p$="" 2869ENDIF 2869CASEc$OF 2870WHEN"Rotate":Ka%=VAL(LEFT$(p$,INSTR(p$," ")-1)):p$=RIGHT$(p$,LEN(p$)-INSTR(p$," ")):La%=VAL(LEFT$(p$,INSTR(p$," ")-1)):p$=RIGHT$(p$,LEN(p$)-INSTR(p$," ")):Ma%=VAL(p$):FORQ=1TOd%:IFK%?QTHENPROCH(Q) 2878NEXT 2880WHEN"Scale":PROC`(VAL(p$)/100) 2882WHEN"Select":K%?(FNe(p$))=1-K%?(FNe(p$)) 2884WHEN"Copy":PROCza 2885WHEN"Move":t%(93)=VAL(LEFT$(p$,INSTR(p$," ")-1))+l%:p$=RIGHT$(p$,LEN(p$)-INSTR(p$," ")):t%(94)=VAL(LEFT$(p$,INSTR(p$," ")-1))+n%:p$=RIGHT$(p$,LEN(p$)-INSTR(p$," ")):t%(95)=VAL(p$)+q%:PROCY 2892ENDCASE 2892f$=FNk(e%):ENDWHILE:CLOSE#e%:SYS"Hourglass_Off":NEXT:PROCo(Oa%):PROCi:PROCe:PROCh:ENDPROC 2902DEFFNk(e%):LOCALs$,v%:s$="":v%=BGET#e%:WHILEv%>31ANDNOT(EOF#e%):s$+=CHR$v%:v%=BGET#e%:ENDWHILE:=s$ 2914DEFPROCJa(Fa%):LOCALN,i%,F,Q,r%,g%,b%:LOCALk,m,j,l,d,tc%,na,oa,pa:LOCALuc%,vc%,wc%:q=f%(1)-b%(1):n=f%(2)-b%(2):o=f%(3)-b%(3):d=SQR(n^2+o^2):l=SQR(n^2+o^2+q^2)::tc%=0:p%!0=b%(1):p%!4=b%(2):p%!8=b%(3)+1000:PROCr(p%,p%) 2925tc%=FNj(0,1000,p%!0-b%(1),p%!4-b%(2)):p%!0=f%(1):p%!4=f%(2):p%!8=f%(3):PROCr(p%,p%):k=p%!0:m=p%!4:j=p%!8:uc%=640-((k-20000)>>6)+h%:vc%=512-((m-20000)>>6)+j%-976::i%=xa%:FORN=1TOd%:F=0:REPEAT:p%!F=!i%:F+=4:i%+=4:UNTIL!i%<0:CASE!p%OF 2936WHEN-1:PROCr(p%+8,p%+32) 2938WHEN-2:PROCr(p%+8,p%+8) 2939WHEN-3:PROCr(p%+12,p%+(p%!8*12)+12) 2940WHEN-4:na=p%!20-p%!8:oa=p%!24-p%!12:pa=p%!28-p%!16:FORQ=36TO120STEP12:!(p%+Q+96)=!(p%+Q)+na:!(p%+Q+100)=!(p%+Q+4)+oa:!(p%+Q+104)=!(p%+Q+8)+pa:NEXT:PROCr(p%+36,p%+216) 2947WHEN-5:PROCr(p%+40,p%+220) 2948WHEN-6,-10:PROCr(p%+44,p%+128) 2949WHEN-7:PROCr(p%+8,p%+44) 2950WHEN-8:PROCr(p%+8,p%+44) 2951WHEN-9:PROCr(p%+8,p%+56) 2952ENDCASE 2952IFxc%AND!(J%+N*20-20)>0THEN 2953r%=?(V%+40*(!(J%+N*20-20))-17)*2.55:g%=?(V%+40*(!(J%+N*20-20))-16)*2.55:b%=?(V%+40*(!(J%+N*20-20))-15)*2.55:wc%=(b%<<24)+(g%<<16)+(r%<<8):IFr%<48ANDg%<48ANDb%<48THEN 2958PROCd(6) 2960ELSE:SYS"ColourTrans_SetGCOL",wc%,0,0 2962ENDIF 2962ELSE:PROCd(Fa%) 2965ENDIF 2965PROCNa(!p%):NEXT:PROCd(9):FORN=1TO`%:!p%=1:r%=c%(N,1):g%=c%(N,2):b%=c%(N,3):i%=c%(N,4)*2:p%!8=r%-i%:p%!12=g%:p%!16=b%:p%!20=r%+i%:p%!24=g%:p%!28=b%:p%!32=r%:p%!36=g%-i%:p%!40=b%:p%!44=r%:p%!48=g%+i%:p%!52=b% 2975p%!56=r%:p%!60=g%:p%!64=b%-i%:p%!68=r%:p%!72=g%:p%!76=b%+i%:PROCr(p%+8,p%+68):PROCNa(!p%):NEXT:ENDPROC 2981DEFPROCr(S%,E%):LOCALN%,x,y,z:FORN%=S%TOE%STEP12:IFd<>0THEN 2986x=N%!0-b%(1):y=N%!4-b%(2):z=N%!8-b%(3):N%!4=((y*oDIVd)-(z*nDIVd))+b%(2):N%!8=((y*nDIVd)+(z*oDIVd))+b%(3) 2990ENDIF 2990IFl<>0THEN 2991x=N%!0-b%(1):y=N%!4-b%(2):z=N%!8-b%(3):N%!0=((x*dDIVl)-(z*qDIVl))+b%(1):N%!8=((z*dDIVl)+(x*qDIVl))+b%(3) 2995ENDIF 2995x=N%!0-b%(1):y=N%!4-b%(2):z=N%!8-b%(3):c=SIN(RAD(-tc%)):e=COS(RAD(-tc%)):N%!0=(x*e-y*c)+b%(1):N%!4=(x*c+y*e)+b%(2):NEXT:ENDPROC 3001DEFPROCNa(wb%):LOCALT,r:CASEwb%OF 3005WHEN1:PROCc(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):PROCc(5,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):PROCc(5,p%!56,p%!60,p%!64,p%!68,p%!72,p%!76):PROCc(5,p%!8,p%!12,p%!16,p%!44,p%!48,p%!52):PROCc(5,p%!44,p%!48,p%!52,p%!20,p%!24,p%!28) 3011PROCc(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):PROCc(5,p%!32,p%!36,p%!40,p%!8,p%!12,p%!16):PROCc(5,p%!8,p%!12,p%!16,p%!68,p%!72,p%!76):PROCc(5,p%!68,p%!72,p%!76,p%!20,p%!24,p%!28):PROCc(5,p%!20,p%!24,p%!28,p%!56,p%!60,p%!64) 3016PROCc(5,p%!56,p%!60,p%!64,p%!8,p%!12,p%!16):PROCc(5,p%!32,p%!36,p%!40,p%!68,p%!72,p%!76):PROCc(5,p%!68,p%!72,p%!76,p%!44,p%!48,p%!52):PROCc(5,p%!44,p%!48,p%!52,p%!56,p%!60,p%!64):PROCc(5,p%!56,p%!60,p%!64,p%!32,p%!36,p%!40) 3022WHEN-1:PROCc(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):PROCc(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):PROCc(5,p%!32,p%!36,p%!40,p%!8,p%!12,p%!16) 3026WHEN-2:PROCc(4,p%!8,p%!12,p%!16,p%!8,p%!12,p%!16):r=p%!20DIV((p%!16-j)>>9):IFp%!16<=jTHENPLOT145,(r),0 3029WHEN-3:FORT=p%+12TOp%+(p%!8)*12STEP12:PROCc(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):NEXT:T=p%+(p%!8)*12:PROCc(5,p%!12,p%!16,p%!20,!(T),!(T+4),!(T+8)) 3036WHEN-4:PROCc(5,p%!36,p%!40,p%!44,p%!120,p%!124,p%!128):FORT=p%+36TOp%+108STEP12:PROCc(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):NEXT:PROCc(5,p%!132,p%!136,p%!140,p%!216,p%!220,p%!224):FORT=p%+132TOp%+204STEP12 3042PROCc(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):NEXT:FORT=p%+36TOp%+120STEP12:PROCc(5,!(T),!(T+4),!(T+8),!(T+96),!(T+100),!(T+104)):NEXT 3048WHEN-5:PROCc(5,p%!40,p%!44,p%!48,p%!124,p%!128,p%!132):FORT=p%+40TOp%+112STEP12:PROCc(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):NEXT:PROCc(5,p%!136,p%!140,p%!144,p%!220,p%!224,p%!228):FORT=p%+136TOp%+208STEP12 3054PROCc(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):NEXT:FORT=p%+40TOp%+124STEP12:PROCc(5,!(T),!(T+4),!(T+8),!(T+96),!(T+100),!(T+104)):NEXT 3060WHEN-6,-10:PROCc(5,p%!44,p%!48,p%!52,p%!80,p%!84,p%!88):PROCc(5,p%!44,p%!48,p%!52,p%!56,p%!60,p%!64):PROCc(5,p%!56,p%!60,p%!64,p%!68,p%!72,p%!76):PROCc(5,p%!68,p%!72,p%!76,p%!80,p%!84,p%!88):PROCc(5,p%!92,p%!96,p%!100,p%!128,p%!132,p%!136) 3065PROCc(5,p%!92,p%!96,p%!100,p%!104,p%!108,p%!112):PROCc(5,p%!104,p%!108,p%!112,p%!116,p%!120,p%!124):PROCc(5,p%!116,p%!120,p%!124,p%!128,p%!132,p%!136):FORT=p%+44TOp%+80STEP12:PROCc(5,!(T),!(T+4),!(T+8),!(T+48),!(T+52),!(T+56)):NEXT 3072WHEN-7:PROCc(21,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):PROCc(21,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):PROCc(21,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):PROCc(21,p%!44,p%!48,p%!52,p%!8,p%!12,p%!16) 3077WHEN-8:PROCc(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):PROCc(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):PROCc(5,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):PROCc(5,p%!44,p%!48,p%!52,p%!8,p%!12,p%!16) 3082WHEN-9:PROCc(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):PROCc(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):PROCc(5,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):PROCc(5,p%!44,p%!48,p%!52,p%!8,p%!12,p%!16):PROCc(5,p%!56,p%!60,p%!64,p%!8,p%!12,p%!16) 3087PROCc(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):PROCc(5,p%!20,p%!24,p%!28,p%!56,p%!60,p%!64):PROCc(5,p%!56,p%!60,p%!64,p%!20,p%!24,p%!28):PROCc(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):PROCc(5,p%!32,p%!36,p%!40,p%!56,p%!60,p%!64) 3092PROCc(5,p%!56,p%!60,p%!64,p%!32,p%!36,p%!40):PROCc(5,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):PROCc(5,p%!44,p%!48,p%!52,p%!56,p%!60,p%!64):PROCc(5,p%!56,p%!60,p%!64,p%!44,p%!48,p%!52):PROCc(5,p%!44,p%!48,p%!52,p%!8,p%!12,p%!16) 3097PROCc(5,p%!8,p%!12,p%!16,p%!56,p%!60,p%!64) 3099ENDCASE 3099ENDPROC 3100DEFPROCc(a%,yc%,zc%,Ac%,Bc%,Cc%,Dc%):LOCALs:IFAc%>=jANDDc%>=jTHENENDPROC 3104:IFAc%>=jTHEN 3106s=(j-Ac%)/(Dc%-Ac%)+.1:yc%=yc%+(Bc%-yc%)*s:zc%=zc%+(Cc%-zc%)*s:Ac%=Ac%+(Dc%-Ac%)*s 3112ENDIF 3112IFDc%>=jTHEN 3113s=(j-Dc%)/(Ac%-Dc%)+.1:Bc%=Bc%+(yc%-Bc%)*s:Cc%=Cc%+(zc%-Cc%)*s:Dc%=Dc%+(Ac%-Dc%)*s 3119ENDIF 3119:IFAc%-j<>0THEN 3121yc%=((k*Ac%)-(j*yc%))DIV(Ac%-j):zc%=((m*Ac%)-(j*zc%))DIV(Ac%-j) 3124ENDIF 3124IFDc%-j<>0THEN 3125Bc%=((k*Dc%)-(j*Bc%))DIV(Dc%-j):Cc%=((m*Dc%)-(j*Cc%))DIV(Dc%-j) 3128ENDIF 3128yc%=(yc%-20000)>>6:zc%=(zc%-20000)>>6:Bc%=(Bc%-20000)>>6:Cc%=(Cc%-20000)>>6:PLOT4,yc%+uc%,zc%+vc%:PLOTa%,Bc%+uc%,Cc%+vc%:ENDPROC 3133DEFPROCBa:LOCALQ%,A:qa=VAL(FNb(W%,2))*.05+.05:SYS"Hourglass_On":Q%=xa%:A=0:WHILE!Q%<>-256:A+=1:IF!Q%=-1ANDK%?ATHEN 3143IFd%+(4^Ib%)>Sa%THEN 3144ERROR17,a$(7) 3146ENDIF 3146q$=$FNa(A)+" *":Hb%=0:q=((Q%!24-Q%!12)*(Q%!40-Q%!16)-(Q%!28-Q%!16)*(Q%!36-Q%!12))/1000:n=((Q%!28-Q%!16)*(Q%!32-Q%!8)-(Q%!20-Q%!8)*(Q%!40-Q%!16))/1000:o=((Q%!20-Q%!8)*(Q%!36-Q%!12)-(Q%!24-Q%!12)*(Q%!32-Q%!8))/1000 3151PROCD(Q%!8,Q%!12,Q%!16,Q%!20,Q%!24,Q%!28,Q%!32,Q%!36,Q%!40,Ib%) 3153ENDIF 3153REPEAT:Q%+=4:UNTIL!Q%<0:ENDWHILE::PROCS:PROCe:PROCh:SYS"Hourglass_Off":ENDPROC 3161DEFPROCD(Ec%,Fc%,Gc%,Hc%,Ic%,Jc%,Kc%,Lc%,Mc%,R):LOCALNc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%,Uc%,Vc%,r:IFR=0THEN 3165Hb%+=1:PROCOa(Ec%,Fc%,Gc%,Hc%,Ic%,Jc%,Kc%,Lc%,Mc%) 3168ELSE:Nc%=(Hc%+Ec%)/2:Oc%=(Ic%+Fc%)/2:Pc%=(Jc%+Gc%)/2:r=RND(-(Nc%+Oc%+Pc%)/3):r=0:FORP=1TO10:r=r+RND(100):NEXT:r=(r/10)/50-1:r=r*qa/4:Nc%+=q*r:Oc%+=n*r:Pc%+=o*r::Qc%=(Kc%+Hc%)/2:Rc%=(Lc%+Ic%)/2:Sc%=(Mc%+Jc%)/2:r=RND(-(Qc%+Rc%+Sc%)/3) 3176r=0:FORP=1TO10:r=r+RND(100):NEXT:r=(r/10)/50-1:r=r*qa/4:Qc%+=q*r:Rc%+=n*r:Sc%+=o*r::Tc%=(Kc%+Ec%)/2:Uc%=(Lc%+Fc%)/2:Vc%=(Mc%+Gc%)/2:r=RND(-(Tc%+Uc%+Vc%)/3):r=0:FORP=1TO10:r=r+RND(100):NEXT:r=(r/10)/50-1:r=r*qa/4 3184Tc%+=q*r:Uc%+=n*r:Vc%+=o*r::PROCD(Ec%,Fc%,Gc%,Nc%,Oc%,Pc%,Tc%,Uc%,Vc%,R-1):PROCD(Hc%,Ic%,Jc%,Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,R-1):PROCD(Kc%,Lc%,Mc%,Tc%,Uc%,Vc%,Qc%,Rc%,Sc%,R-1):PROCD(Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%,Uc%,Vc%,R-1) 3191ENDIF 3191ENDPROC 3192DEFPROCOa(yc%,zc%,Ac%,Bc%,Cc%,Dc%,Wc%,Xc%,Yc%):LOCALc%,N:c%=xa%+H%-4:c%!0=-1:c%!44=-256:H%+=44:c%!8=yc%:c%!12=zc%:c%!16=Ac%:c%!20=Bc%:c%!24=Cc%:c%!28=Dc%:c%!32=Wc%:c%!36=Xc%:c%!40=Yc%:d%+=1:N=d%:c%!4=0:K%?N=0:Ya%?N=0 3203!(J%+N*20)=0:!(J%+N*20+4)=0:!(J%+N*20+8)=0:!(J%+N*20+12)=0:!(J%+N*20+16)=0:$FNa(d%)=q$+STR$(Hb%):ENDPROC 3208DEFPROCPa:LOCALt%:SYS"OS_ReadMemMapInfo"TOZc%:_c%=Zc%:SYS"Wimp_SlotSize",-1,-1TOt%:`c%=t%+32768:SYS"Wimp_SlotSize",`c%+_c%-32768,-1:SYS"OS_Heap",0,`c%,,_c%:ENDPROC 3218DEFFNf(ad%):LOCALa%:SYS"XOS_Heap",2,`c%,,ad%TO,,a%:IFa%<>0THEN=a% 3223IFFNs(ad%)=FALSETHEN=0 3224SYS"XOS_Heap",2,`c%,,ad%TO,,a%:PROCQa:IFa%=0THENERROR1,a$(2) 3227=a% 3230DEFFNt(bd%):SYS"OS_Heap",3,`c%,bd%:PROCQa:=0 3235DEFFNs(ad%):LOCALs%,f%:s%=FNq(_c%+ad%):SYS"XWimp_SlotSize",`c%+s%-32768,-1TO;f%:IF(f%AND1)=1THEN=FALSE 3239SYS"OS_Heap",5,`c%,,s%-_c%:_c%=s%:=TRUE 3244DEFPROCQa:LOCALs%,t%:s%=_c%:SYS"XOS_Heap",5,`c%,,-s%TO,,,t%:IFt%=-s%THENt%=s% 3248_c%=FNq(_c%-t%):SYS"XOS_Heap",5,`c%,,_c%-(s%-t%):SYS"Wimp_SlotSize",`c%+_c%-32768,-1:ENDPROC 3252DEFFNq(s%):LOCALt%:IF(s%MODZc%)<>0THEN 3256t%=Zc%-(s%MODZc%):s%+=t% 3259ENDIF 3259=s% 3263DEFPROCaa:DIMb% 1536,Tb% 4000,cd% 8192:dd%=cd%+8192:DIMp% 1536:DIMmc% 4096:DIMed% 18*1024,fc% 8,ec% 16,hc% 16,dc% 16:DIMSb% 10,Yb% 10:DIMg%(2),h%(2):DIMb%(3),f%(3),e%(5),j%(5):DIMb$(10),c%(10,8),a%(2):DIMi%(2):c%()=0:DIMt%(100):DIMd%(4,4):DIMc$(6),k%(6):DIMa$(100) 3277SYS"OS_File",16,"<Ray$Dir>.code",mc%,0:ob%=VAL(FNr("max_surfaces")):Sa%=VAL(FNr("max_objects")):u%=1236::ga=mc%+2896:ra=mc%+64:sa=mc%+104:fa=mc%+156:ea=mc%+152:ta=mc%+160:ua=mc%+164:ca=mc%+144:da=mc%+148::k%(0)=1:c$()="" 3294O%=0:Eb%=0:Rb%=0:ea%=328:rb%=0:Wa%=0:Fb%=0:$Sb%="":$Yb%="A0-9":ba%=0:ra%=0:Ka%=0:La%=0:Ma%=0:l%=24960:n%=24960:q%=24960:wa%=13:da%=0:Ta%=0:Ua%=0:_%=0:nb%=0:H%=4:Ca%=4:d%=0:U%=0:oa%=0 3301fa%=0:Aa%=0:`%=0:Kb%=1:Qa%=0:xc%=-1:Ib%=2:S=-1:SYS"Wimp_Initialise",200,&4B534154,"Ray3d"TO,fd%:PROCPa:SYS"OS_SpriteOp",266,ed%,"<Ray$Dir>.Sprites"::pb%=FNf(50*Sa%):qb%=FNf(25*Sa%):V%=FNf(40*ob%):Zb%=FNf(21*ob%) 3312xa%=FNf(200*Sa%):J%=FNf(20*Sa%):K%=FNf(Sa%):Ya%=FNf(Sa%):!ta=K%:!ua=Ya%:!xa%=-256::PROCna:PROCRa:PROCSa:PROCqa:PROCb(ka%,6,o$):PROCC("<Ray$Dir>.Default"):PROCu($V%,0)::FORN=0TO20*Sa%STEP4:J%!N=0:NEXT:FORN=0TOSa%STEP4:Ya%!N=0:K%!N=0:NEXT:FORN=1TO3:g$=RIGHT$(g$,LEN(g$)-INSTR(g$," ")):NEXT 3329IFINSTR(g$,"$")>0THENPROCC(g$) 3330:!b%=Na%:b%!4=18:b%!8=e%(4)<<28:b%!12=&F0000000:SYS"Wimp_SetIconState",,b%:j%()=e%() 3335*FX 163,242,8 3335ENDPROC 3336DEFPROCRa:LOCALM$,C,N:M$="":C=OPENIN("<Ray$Dir>.Messages"):WHILEM$<>"End":M$=FNk(C):IFM$<>"End"THENa$(VAL(LEFT$(M$,INSTR(M$,":"))))=RIGHT$(M$,LEN(M$)-INSTR(M$,":")) 3344ENDWHILE:CLOSE#C:ENDPROC 3347DEFFNk(e%):LOCALs$,v%:s$="":v%=BGET#e%:WHILEv%>31ANDNOT(EOF#e%):s$+=CHR$v%:v%=BGET#e%:ENDWHILE:=s$ 3358DEFPROCLa:LOCALdb%,F,H,I,J:VDU23,6,240,0,0,0,0,0,0,0 3360IFZa%THEN 3361PROCd(e%(4)):C%=j%-u%*a:D%=h%:E%=h%+u%*a:F%=j%:G%=ya%*a:CALLra:B%=h%:D%=j%:E%=j%-u%*a:F%=h%+u%*a:G%=ya%*a:CALLsa 3367ENDIF 3367!ca=h%:!da=j%:!ea=e%(0):!fa=e%(3):F%=0:G%=xa%:E%=a*2:IFW%=a%(0)THENF%=1 3371IFW%=a%(1)THENF%=2 3372CALLga::IFf%(0)THENPROCTa 3375IFb%(0)THENPROCUa 3376IF`%>0THENPROCVa 3377PROCWa:IFCa%<>H%THENPROCg 3379IFwa%=14ANDO%<>0THENPROCG 3380IFwa%=30ANDO%<>0THENPROCG 3381ENDPROC 3382DEFPROCTa:PROCd(11):PROCa(4,f%(1),f%(2),f%(3)):PLOT145,8,0:ENDPROC 3386DEFPROCUa:PROCd(11):PROCa(4,b%(1)-80/a,b%(2),b%(3)):PROCa(5,b%(1)+80/a,b%(2),b%(3)):PROCa(4,b%(1),b%(2)-80/a,b%(3)):PROCa(5,b%(1),b%(2)+80/a,b%(3)):PROCa(4,b%(1),b%(2),b%(3)-80/a):PROCa(5,b%(1),b%(2),b%(3)+80/a):ENDPROC 3396DEFPROCVa:LOCALN,F,x%,y%,z%,i%,gd%:PROCd(9):VDU23,6,128,0,0,0,0,0,0,0 3401gd%=5:FORN=1TO`%:x%=c%(N,1):y%=c%(N,2):z%=c%(N,3):i%=c%(N,4)*2::FORF=1TOc%(N,0)+1:IFF=2THENgd%=21:i%=i%*8 3408PROCa(4,x%-i%,y%,z%):PROCa(gd%,x%+i%,y%,z%):PROCa(4,x%,y%-i%,z%):PROCa(gd%,x%,y%+i%,z%):PROCa(4,x%,y%,z%-i%):PROCa(gd%,x%,y%,z%+i%):PROCa(4,x%-i%,y%,z%):PROCa(gd%,x%,y%+i%,z%):PROCa(gd%,x%+i%,y%,z%):PROCa(gd%,x%,y%-i%,z%) 3413PROCa(gd%,x%-i%,y%,z%):PROCa(4,x%-i%,y%,z%):PROCa(gd%,x%,y%,z%+i%):PROCa(gd%,x%+i%,y%,z%):PROCa(gd%,x%,y%,z%-i%):PROCa(gd%,x%-i%,y%,z%):PROCa(4,x%,y%,z%-i%):PROCa(gd%,x%,y%+i%,z%):PROCa(gd%,x%,y%,z%+i%):PROCa(gd%,x%,y%-i%,z%):PROCa(gd%,x%,y%,z%-i%):NEXT:NEXT:ENDPROC 3422DEFPROCWa:PROCd(e%(2)):PROCa(4,l%-120/a,n%,q%):PROCa(5,l%+120/a,n%,q%):PROCa(4,l%,n%-120/a,q%):PROCa(5,l%,n%+120/a,q%):PROCa(4,l%,n%,q%-120/a):PROCa(5,l%,n%,q%+120/a):ENDPROC 3432DEFPROCK:LOCALA,B,hd%,id%:id%=(b%!28)=-2:hd%=!b%:IFNOTid%THENSYS"Wimp_OpenWindow",,b% 3436IFb%!28=-2THENb%!28=0 3437CASEhd%OF 3438WHENT%:A=b%!4:B=b%!16:PROCw(ha%,A+16,B-236,A+384,B-56,0,0):PROCw(ga%,A+16,B-480,A+384,B-300,0,0):A=36*oa%:IFA<180THENA=180 3443b%!0=0:b%!4=-A:b%!8=348:b%!12=0:SYS"Wimp_SetExtent",ga%,b%:b%!0=0:b%!4=-rb%:b%!8=348:b%!12=0:SYS"Wimp_SetExtent",ha%,b% 3448WHENZ%:A=b%!4:B=b%!16:PROCw(ia%,A+16,B-344,A+388,B-16,0,0):b%!0=0:b%!4=-ea%:b%!8=356:b%!12=0:SYS"Wimp_SetExtent",ia%,b%:SYS"Wimp_SetCaretPosition",hd%,0,0,0,-1,LEN(FNb(hd%,0)) 3454WHENNa%:SYS"Wimp_SetCaretPosition",hd%,19,0,0,-1,LEN(FNb(hd%,19)) 3455WHENJa%:SYS"Wimp_SetCaretPosition",hd%,11,0,0,-1,LEN(FNb(hd%,11)) 3456WHENsa%:SYS"Wimp_SetCaretPosition",hd%,1,0,0,-1,LEN(FNb(hd%,1)) 3457WHENqa%:SYS"Wimp_SetCaretPosition",hd%,1,0,0,-1,LEN(FNb(hd%,1)) 3458WHENta%:SYS"Wimp_SetCaretPosition",hd%,1,0,0,-1,LEN(FNb(hd%,1)) 3459WHENOa%:SYS"Wimp_SetCaretPosition",hd%,4,0,0,-1,LEN(FNb(hd%,4)) 3460WHENPa%:SYS"Wimp_SetCaretPosition",hd%,2,0,0,-1,LEN(FNb(hd%,2)) 3461ENDCASE 3461IFid%THEN 3462!b%=hd%:SYS"Wimp_GetWindowState",,b%:b%!28=-2:SYS"Wimp_OpenWindow",,b% 3465ENDIF 3465ENDPROC 3466DEFPROCW:!b%=Z%:b%!4=d%(4,1):b%!8=d%(4,2):b%!12=d%(4,3):b%!16=d%(4,4):b%!20=0:b%!24=0:b%!28=-1:PROCK:ENDPROC 3473DEFPROCm(W%):!b%=W%:SYS"Wimp_GetWindowState",,b%:b%!28=-1:PROCK:ENDPROC 3478DEFPROCw(w%,jd%,kd%,ld%,md%,nd%,od%):!b%=w%:b%!4=jd%:b%!8=kd%:b%!12=ld%:b%!16=md%:b%!20=nd%:b%!24=od%:SYS"Wimp_OpenWindow",,b%:SYS"Wimp_ForceRedraw",w%,jd%,kd%,ld%,md%:ENDPROC 3485DEFPROCN:SYS"Wimp_GetWindowState",,b%+12:X%=b%!16-b%!32:Y%=b%!28-b%!36:b%!16=I%:SYS"Wimp_GetIconState",,b%+12:b%!16=5:b%!20+=X%-2:b%!24+=Y%-4:b%!28+=X%+2:b%!32+=Y%+4:b%!36=0:b%!40=0:b%!44=&7FFFFFFF:b%!48=&7FFFFFFF:SYS"Wimp_DragBox",,b%+12:ENDPROC 3501DEFPROCga:LOCALt%:IFra%=1THENe$=FNb(qa%,1):t%=252 3505IFra%=4THENe$=FNb(sa%,1):t%=251 3506IFra%=5THENe$=FNb(ta%,1):t%=250 3507SYS"Wimp_GetPointerInfo",,b%:IFb%!12=-1THENENDPROC 3509S=0:b%!20=256:b%!32=S:b%!36=1:b%!40=b%!12:b%!44=b%!16:b%!48=!b%:b%!52=b%!4:b%!56=-1:b%!60=t%:$(b%+64)=FNm(e$)+CHR$0:SYS"Wimp_SendMessage",17,b%+20,b%!12,b%!16:ENDPROC 3519DEFPROCja(M%):LOCALA$,pd%:CASEM%OF 3525WHEN0:ba%=-1 3527WHEN1:IFb%!12<>STHEN 3530b%!0=60:b%!12=b%!8:b%!16=2:b%!36=-1:$(b%+44)="<Wimp$Scrap>"+CHR$0:SYS"Wimp_SendMessage",17,b%,b%!4 3535ENDIF 3535WHEN2:A$=FNl(b%+44):b%!12=b%!8:b%!16=3:SYS"Wimp_SendMessage",17,b%,b%!4:S=-1:IFra%=1THENPROCA(A$) 3539IFra%=4THENPROCO(A$) 3540IFra%=5THEN 3541IFQa%THENERROR17,a$(25) 3542k$=A$:Ra%=OPENOUT(k$):Qa%=-1:OSCLI("Settype "+k$+" 0fa"):SYS"Wimp_CreateMenu",-1 3546ENDIF 3546WHEN3:A$=FNl(b%+44):pd%=b%!40:b%!12=b%!8:b%!16=4:b%!36=-1:$(b%+44)=A$+CHR$0:SYS"Wimp_SendMessage",17,b%,b%!4:IFpd%=252THENPROCC(A$) 3553IFpd%=251THENPROCra(A$) 3554IFpd%=250THEN 3555IFQa%THENERROR17,a$(1) 3556PROCb(Oa%,1,FNm(A$)):k$=A$:PROCm(Oa%) 3560ENDIF 3560IFA$="<Wimp$Scrap>"THENOSCLI("Delete "+A$) 3561WHEN5:IFb%!40=252THENPROCXa:PROCC(FNl(b%+44)) 3562ENDCASE 3563ENDPROC 3564DEFPROCXa:b%!12=b%!8:b%!16=4:!b%=64:SYS"Wimp_SendMessage",17,b%,b%!4:ENDPROC 3569DEFPROCL 3574*CLOSE 3574SYS"Wimp_CloseDown":ENDPROC 3576DEFPROCSa:SYS"Wimp_OpenTemplate",,"<Ray$Dir>.Templates":ka%=FNc("info"):sa%=FNc("savesel"):na%=FNc("surface"):T%=FNc("texture"):Z%=FNc("tools"):Ia%=FNc("background"):ma%=FNc("light"):a%(0)=FNc("Front"):a%(1)=FNc("side"):a%(2)=FNc("plan") 3591qa%=FNc("save"):Ja%=FNc("rotate"):Na%=FNc("Grid_opt"):_a%=FNc("options"):ca%=FNc("quit"):eb%=FNc("error"):Jb%=FNc("print"):Ub%=FNc("info2"):ga%=FNc("Surf_List"):ha%=FNc("obj_list"):ia%=FNc("main"):pa%=FNc("3d"):ta%=FNc("rec_mac") 3604Oa%=FNc("macro"):Pa%=FNc("FRAC"):SYS"Wimp_CloseTemplate":ENDPROC 3608DEFFNc(d$):SYS"Wimp_LoadTemplate",,b%,cd%,dd%,-1,d$,0TO,,cd%,,,,P%:IFd$="tools"ORd$="surface"THENb%!64=ed% 3612IFd$="rotate"THENb%!64=ed% 3613IFd$="texture"THENb%!64=ed% 3614SYS"Wimp_CreateWindow",,b%TOqd%:=qd% 3620DEFFNn(W%,I%,Ga%):LOCALrd%,N:SYS"Wimp_WhichIcon",W%,b%,61440,57344:N=-4:REPEAT:N+=4:UNTILb%!N=I%:IFGa%=0THEN 3624IFN=0THENREPEAT:N+=4:UNTILb%!N=-1 3625rd%=b%!(N-4) 3627ELSE:IFb%!(N+4)=-1THENrd%=b%!0ELSErd%=b%!(N+4) 3628ENDIF 3629=rd% 3632DEFFNb(sd%,td%):b%!0=sd%:b%!4=td%:SYS"Wimp_GetIconState",,b%:=$(b%!28) 3637DEFPROCp(!b%,b%!4,N%):b%!8=N%<<21:b%!12=1<<21:SYS"Wimp_SetIconState",,b%:ENDPROC 3640DEFPROCb(W%,I%,S$):b%!0=W%:b%!4=I%:SYS"Wimp_GetIconState",,b%:$(b%!28)=S$:b%!8=0:b%!12=0:SYS"Wimp_SetIconState",,b%:ENDPROC 3648DEFFNr(r$):LOCALS$,cb%,N:SYS"OS_ReadVarVal",r$,b%,250,0,0TO,,cb%:S$="":FORN=0TOcb%-1:S$=S$+CHR$(b%?N):NEXT:=S$ 3656DEFPROCe:LOCALN,A:FORN=0TO2:SYS"Wimp_ForceRedraw",a%(N),0,-u%*a,u%*a,0:NEXT:ENDPROC 3659DEFPROCh:SYS"Wimp_ForceRedraw",ia%,0,-36000,348,0:ENDPROC 3663DEFPROCea(W%):LOCAL`a%:CASEW%OF 3667WHENa%(0),a%(1),a%(2):SYS"Wimp_SpriteOp",36,,"ptr_cross",1,6,3:!b%=Z%:SYS"Wimp_GetWindowInfo",,b%:`a%=?(b%+34)AND1:IF`a%SYS"Wimp_SetCaretPosition",Z%,0,0,0,-1,LEN(FNb(Z%,0)) 3671WHENZ%:SYS"Wimp_SetCaretPosition",Z%,0,0,0,-1,LEN(FNb(Z%,0)) 3674ENDCASE 3674ENDPROC 3675DEFPROCda(W%):SYS"Wimp_SpriteOp",36,,"ptr_default",1,1,1:ENDPROC 3679DEFPROCf(H$):b%!0=256:b%!4=0:b%!8=0:b%!12=0:b%!16=39168:$(b%+20)="!Ray3d@"+H$:SYS"Wimp_SendMessage",17,b%,0:ENDPROC 3685DEFPROCma(hd%):CASEhd%OF 3688WHENZ%:CASEwa%OF 3690WHEN1:PROCf("100") 3692WHEN2:PROCf("101") 3693WHEN3:PROCf("102") 3694WHEN4:PROCf("103") 3695WHEN5:PROCf("107") 3696WHEN6:PROCf("106") 3697WHEN7:PROCf("108") 3698WHEN8:PROCf("110") 3699WHEN9:PROCf("32") 3700WHEN10:PROCf("32") 3701WHEN11:PROCf("15") 3702WHEN12:PROCf("15") 3703WHEN13:PROCf("15") 3704WHEN14:PROCf("113") 3705WHEN16:PROCf("51") 3706WHEN24:PROCf("105") 3707WHEN25:PROCf("109") 3708WHEN30:PROCf("73") 3709WHEN32:PROCf("104") 3710ENDCASE 3710WHENsa%:PROCf("24") 3712WHENna%:PROCf("80") 3713WHENT%:PROCf("79") 3714WHENIa%:PROCf("29") 3715WHENma%:PROCf("51") 3716WHENqa%:PROCf("24") 3717WHENJa%:PROCf("73") 3718WHENNa%:PROCf("16") 3719WHEN_a%:PROCf("46") 3720WHENJb%:PROCf("20") 3721WHENta%:PROCf("19") 3722WHENOa%:PROCf("19") 3723WHENPa%:PROCf("37") 3724ENDCASE 3724ENDPROC
ao$="v1.82 (12 Febraury 1994)":aa%=182:ș"Hourglass_On":ș"OS_GetEnv"�g$::�:�" at line ";�:� '�aa:ș"Hourglass_Off":��ba(�,�$,�) #�:ș"Wimp_Poll",1,b%�aa:Ȏ(aa)� �1:�ca(!b%) �2:�K �3:�o(!b%) �4:�da(!b%) �5:�ea(!b%) �6:�fa(b%) �7:�ga �8:�ha(!b%,b%!4,b%!24) �9:�ia(b%) �17,18:�ja(b%!16) � �ba%�m(ca%) �ba%��da%:�L:� ��i:ea%=0:�fa%=0� "#�N=1�d%:�$�a(N),">")=0�ea%+=36 $�:ea%=ea%+(U%*36) '9�:�N=1�d%:a$=$�a(N):�a$,�a$,">")-1)=$�d(fa%)�ea%+=36 *� ,� ,�ea%<328�ea%=328 -�h:� /��o(!b%):�C%:C%=!b%:ȎC%� 60�T%:�o(ga%):!b%=ha%:ș"Wimp_CloseWindow",,b% :+�Z%:�E:!b%=ia%:ș"Wimp_CloseWindow",,b% =��a%(0),a%(1),a%(2):�E:!b%=a%(0):ș"Wimp_CloseWindow",,b%:!b%=a%(1):ș"Wimp_CloseWindow",,b%:!b%=a%(2):ș"Wimp_CloseWindow",,b% B� B�C%<>ia%�C%<>ha%� C#!b%=C%:ș"Wimp_CloseWindow",,b% E� E� FT��fa(b%):�I%,A$,W%,ja%:I%=b%!16:W%=b%!12:�W%=ka%�!b%=W%:ș"Wimp_CloseWindow",,b% Lja%=b%!8:Ȏja%� N�2:la%=0:�W%=-2� PIla%=1:�F(" !Ray3d ","Info,Save Config,Fast,Colours...,Quit,",!b%,324) S� S�W%=ma%�`%>0��M(!b%,b%!4,3) T �W%=na%�oa%>0��M(!b%,b%!4,4) U�la%=0�W%<>pa%� V_la%=2:�F(" Main Menu ","Project,Select,Lights ,World,Macro,Grid,Zoom,Tools...,",!b%,b%!4) Y� Y [�1:ȎW%� \�ia%:�V(W%,!b%,b%!4,ja%) ^�a%(0),a%(1),a%(2):�ka _:�v(W%,I%,1) `� ` b�4:ȎW%� cG�-2:�W:�k:�o(ka%):ș"Wimp_SetCaretPosition",Z%,0,0,0,-1,�(�b(Z%,0)) i� i�I%=-1� j�V(W%,!b%,b%!4,ja%) l�:�v(W%,I%,4) n� n �16,64:�W%=qa%�I%=0��N:ra%=1 p�W%=sa%�I%=0��N:ra%=4 q�W%=ta%�I%=0��N:ra%=5 r� s� t)��la:�N,F,ua%,va%,m%,p:�wa%=14�O%=0�� x�wa%=30�O%=0�� yfc%=xa%+H%-4:p=ya%*a:x%=(x%-b%!4+b%!20):y%=((b%!24-b%!16+y%)+u%*a):�t%(90)=x%�t%(91)=y%�t%(92)=z%�� |'t%(90)=x%:t%(91)=y%:t%(92)=z%:�za%� ~&�x%�p<=p/2�x%=x%�p*p�x%=(x%�p+1)*p &�y%�p<=p/2�y%=y%�p*p�y%=(y%�p+1)*p �� �3x%=(x%*8/a)+20000:y%=(y%*8/a)+20000::�Aa%>1000� ��ua%=W%:Aa%-=1000:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:�g:ș"Wimp_GetRectangle",,b%�k%:�:�:Aa%+=1:W%=ua% �� �:Ȏwa%� �0�1:�W%=a%(0)�ua%=�((c%!8-x%)^2+(c%!16-y%)^2) �.�W%=a%(1)�ua%=�((c%!12-x%)^2+(c%!16-y%)^2) �-�W%=a%(2)�ua%=�((c%!8-x%)^2+(c%!12-y%)^2) ��va%=c%!20:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!20=va%:�g:c%!20=ua%:�g:ș"Wimp_GetRectangle",,b%�k%:�:� ��2:�ua%,va%:�Ba%=1� �gt%(1)=c%!20:t%(2)=c%!24:t%(3)=c%!28:t%(4)=t%(1):t%(5)=t%(2):t%(6)=t%(3):�W%=a%(0)�t%(4)=x%:t%(6)=y% ��W%=a%(1)�t%(5)=x%:t%(6)=y% ��W%=a%(2)�t%(4)=x%:t%(5)=y% �#�l%<>t%(4)�n%<>t%(5)�q%<>t%(6)� �7Ca%=H%:�e:�p(Z%,wa%,0):wa%=13:�p(Z%,13,1):�17,a$(3) �� ���F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!20=t%(1):c%!24=t%(2):c%!28=t%(3):�g:c%!20=t%(4):c%!24=t%(5):c%!28=t%(6):�g �$ș"Wimp_GetRectangle",,b%�k%:�:� �� ��Ba%=2� �-�W%=a%(0)�ua%=�((c%!8-x%)^2+(c%!16-y%)^2) �.�W%=a%(1)�ua%=�((c%!12-x%)^2+(c%!16-y%)^2) �-�W%=a%(2)�ua%=�((c%!8-x%)^2+(c%!12-y%)^2) ��va%=c%!32:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!32=va%:�g:c%!32=ua%:�g:ș"Wimp_GetRectangle",,b%�k%:�:� �� ��Ba%=3� �.�W%=a%(0)�ua%=�((c%!20-x%)^2+(c%!28-y%)^2) �.�W%=a%(1)�ua%=�((c%!24-x%)^2+(c%!28-y%)^2) �.�W%=a%(2)�ua%=�((c%!20-x%)^2+(c%!24-y%)^2) ��va%=c%!36:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!36=va%:�g:c%!36=ua%:�g:ș"Wimp_GetRectangle",,b%�k%:�:� �� ��3:�ua%,va%:�Ba%=1� �gt%(1)=c%!20:t%(2)=c%!24:t%(3)=c%!28:t%(4)=t%(1):t%(5)=t%(2):t%(6)=t%(3):�W%=a%(0)�t%(4)=x%:t%(6)=y% ��W%=a%(1)�t%(5)=x%:t%(6)=y% ��W%=a%(2)�t%(4)=x%:t%(5)=y% �#�l%<>t%(4)�n%<>t%(5)�q%<>t%(6)� �7Ca%=H%:�e:�p(Z%,wa%,0):wa%=13:�p(Z%,13,1):�17,a$(4) �� ���F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!20=t%(1):c%!24=t%(2):c%!28=t%(3):�g:c%!20=t%(4):c%!24=t%(5):c%!28=t%(6):�g �$ș"Wimp_GetRectangle",,b%�k%:�:� �/�:�W%=a%(0)�ua%=�((c%!8-x%)^2+(c%!16-y%)^2) �.�W%=a%(1)�ua%=�((c%!12-x%)^2+(c%!16-y%)^2) �-�W%=a%(2)�ua%=�((c%!8-x%)^2+(c%!12-y%)^2) ��va%=c%!32:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!32=va%:�g:c%!32=ua%:�g:ș"Wimp_GetRectangle",,b%�k%:�:� �� �e�4,32:�q,n,o:q=c%!20:n=c%!24:o=c%!28:t%(1)=q:t%(2)=n:t%(3)=o:�W%=a%(0)�q=�(x%-c%!8):o=�(y%-c%!16) �)�W%=a%(1)�n=�(x%-c%!12):o=�(y%-c%!16) �(�W%=a%(2)�q=�(x%-c%!8):n=�(y%-c%!12) �t%(4)=q:t%(5)=n:t%(6)=o:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!20=t%(1):c%!24=t%(2):c%!28=t%(3):�g Kc%!20=t%(4):c%!24=t%(5):c%!28=t%(6):�g:ș"Wimp_GetRectangle",,b%�k%:�:� 2�5,6:�F,b:�b=1�9:t%(b)=c%!(b*4+4):�:�W%=a%(0)� ]t%(14)=x%:t%(15)=n%:t%(16)=y%:t%(11)=l%:t%(12)=n%:t%(13)=y%:t%(17)=x%:t%(18)=n%:t%(19)=q% � �W%=a%(1)� ]t%(14)=l%:t%(15)=x%:t%(16)=y%:t%(11)=l%:t%(12)=n%:t%(13)=y%:t%(17)=l%:t%(18)=x%:t%(19)=q% � �W%=a%(2)� ]t%(14)=x%:t%(15)=y%:t%(16)=q%:t%(11)=l%:t%(12)=y%:t%(13)=q%:t%(17)=x%:t%(18)=n%:t%(19)=q% � �:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:�b=1�9:c%!(b*4+4)=t%(b):�:�g:�b=1�9:c%!(b*4+4)=t%(b+10):�:�g:ș"Wimp_GetRectangle",,b%�k%:�:� +Y�7:m%=c%+Aa%*12:t%(1)=!(m%-4):t%(2)=!m%:t%(3)=!(m%+4):�W%=a%(0)�!(m%-4)=x%:!(m%+4)=y% .�W%=a%(1)�!m%=x%:!(m%+4)=y% /�W%=a%(2)�!(m%-4)=x%:!m%=y% 0�t%(4)=!(m%-4):t%(5)=!m%:t%(6)=!(m%+4)::�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:!(m%-4)=t%(1):!m%=t%(2):!(m%+4)=t%(3):�g 8M!(m%-4)=t%(4):!m%=t%(5):!(m%+4)=t%(6):�g:ș"Wimp_GetRectangle",,b%�k%:�:� =L�8:m%=c%+Aa%*12:t%(1)=!m%:t%(2)=m%!4:t%(3)=m%!8:�W%=a%(0)�!m%=x%:m%!8=y% ?�W%=a%(1)�m%!4=x%:m%!8=y% @�W%=a%(2)�!m%=x%:m%!4=y% A�t%(4)=!m%:t%(5)=m%!4:t%(6)=m%!8::�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:!m%=t%(1):m%!4=t%(2):m%!8=t%(3):�g:!m%=t%(4):m%!4=t%(5):m%!8=t%(6):�g J$ș"Wimp_GetRectangle",,b%�k%:�:� N"�9:�W%=a%(0)�f%(1)=x%:f%(3)=y% O�W%=a%(1)�f%(2)=x%:f%(3)=y% P�W%=a%(2)�f%(1)=x%:f%(2)=y% Qf%(0)=-1:�e T#�10:�W%=a%(0)�b%(1)=x%:b%(3)=y% U�W%=a%(1)�b%(2)=x%:b%(3)=y% V�W%=a%(2)�b%(1)=x%:b%(2)=y% Wb%(0)=-1:�e Z�13:�W%=a%(0)�l%=x%:q%=y% [�W%=a%(1)�n%=x%:q%=y% \�W%=a%(2)�l%=x%:n%=y% ]�e _O�14,30:t%(1)=t%(93):t%(2)=t%(94):t%(3)=t%(95):�W%=a%(0)�t%(93)=x%:t%(95)=y% a!�W%=a%(1)�t%(94)=x%:t%(95)=y% b!�W%=a%(2)�t%(93)=x%:t%(94)=y% c�t%(4)=t%(93):t%(5)=t%(94):t%(6)=t%(95):t%(80)=W%::�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:t%(93)=t%(1):t%(94)=t%(2):t%(95)=t%(3):�G mNt%(93)=t%(4):t%(94)=t%(5):t%(95)=t%(6):�G:ș"Wimp_GetRectangle",,b%�k%:�:� sX�16:�U,V,_:U=c%(`%+1,1):V=c%(`%+1,2):_=c%(`%+1,3):�W%=a%(0)�ua%=�((U-x%)^2+(_-y%)^2) w&�W%=a%(1)�ua%=�((V-x%)^2+(_-y%)^2) x&�W%=a%(2)�ua%=�((U-x%)^2+(V-y%)^2) y�va%=c%(`%+1,4):�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%(`%+1,4)=va%:�g:c%(`%+1,4)=ua%/2:�g:ș"Wimp_GetRectangle",,b%�k%:�:� ��24:�F,b:�Ba%=1� �#�b=1�9:t%(b)=c%!(b*4+4):�:ȎW%� �d�a%(0):t%(14)=x%:t%(15)=n%:t%(16)=y%:t%(11)=l%:t%(12)=n%:t%(13)=y%:t%(17)=x%:t%(18)=n%:t%(19)=q% �d�a%(1):t%(14)=l%:t%(15)=x%:t%(16)=y%:t%(11)=l%:t%(12)=n%:t%(13)=y%:t%(17)=l%:t%(18)=x%:t%(19)=q% �d�a%(2):t%(14)=x%:t%(15)=y%:t%(16)=q%:t%(11)=l%:t%(12)=y%:t%(13)=q%:t%(17)=x%:t%(18)=n%:t%(19)=q% �� ��:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:�b=1�9:c%!(b*4+4)=t%(b):�:�g:�b=1�9:c%!(b*4+4)=t%(b+10):�:�g:ș"Wimp_GetRectangle",,b%�k%:�:� �i�:t%(1)=c%!56:t%(2)=c%!60:t%(3)=c%!64:t%(4)=t%(1):t%(5)=t%(2):t%(6)=t%(3):�W%=a%(0)�t%(4)=x%:t%(6)=y% ��W%=a%(1)�t%(5)=x%:t%(6)=y% ��W%=a%(2)�t%(4)=x%:t%(5)=y% ���F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!56=t%(1):c%!60=t%(2):c%!64=t%(3):�g:c%!56=t%(4):c%!60=t%(5):c%!64=t%(6):�g �$ș"Wimp_GetRectangle",,b%�k%:�:� �� �B�25:�va%,ua%,Da%,Ea%:�W%=a%(0)�Ea%=�((c%!8-x%)^2+(c%!16-y%)^2) �.�W%=a%(1)�Ea%=�((c%!12-x%)^2+(c%!16-y%)^2) �-�W%=a%(2)�Ea%=�((c%!8-x%)^2+(c%!12-y%)^2) �.va%=c%!36:Da%=c%!32:�F=0�2:�a%(F)=W%�ua%=F ���:�F=0�2:W%=a%(F):!b%=W%:b%!4=0:b%!8=-u%*a:b%!12=u%*a:b%!16=0:ș"Wimp_UpdateWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:c%!32=Da%:c%!36=va%:�g:c%!32=Ea%:c%!36=ua%:�g:ș"Wimp_GetRectangle",,b%�k%:�:� �� �� �=��ha(W%,I%,C%):�Fa%,c,e,Ga%:Ga%=-1:Ha%=-1:�C%=385��ma(W%) � ȎC%� � �13:ȎW%� �9�Ia%:Fa%=�(�b(W%,I%)):�Fa%>100Fa%=100:�b(W%,I%,"100") ��g%(I%-6)<>Fa%� �zg%(I%-6)=Fa%:ș"Wimp_ForceRedraw",W%,132,-(54*(I%-6)+68),590,-(54*(I%-6)+32):ș"Wimp_ForceRedraw",W%,472,-264,584,-204 �� � �Ja%:�I%=11�Ka%=�(�b(W%,I%)) ��I%=12�La%=�(�b(W%,I%)) ��I%=13�Ma%=�(�b(W%,I%)) ��Z%:�wa%=13��X(W%) �ș"Wimp_CreateMenu",-1 �!�Na%:�I%=19��v(W%,20,4):Ga%=0 ��ta%:�I%=1��v(W%,2,4):Ga%=0 ��Oa%:�I%=4��v(W%,3,4):Ga%=0 ��Pa%:�I%=2��v(W%,8,4):Ga%=0 ��qa%:�I%=1� �秤b(qa%,1),"$.")=0� � �17,a$(5) �� ��A(�b(qa%,1)):Ga%=0 �� ��sa%:�I%=1� �秤b(sa%,1),"$.")=0� � �17,a$(5) �� ��O(�b(sa%,1)):Ga%=0 �� �� ��387:�m(qa%):Ha%=0 ��403:�m(sa%):Ha%=0 ��389:ș"Hourglass_On":�Qa%� �0�#Ra%,"Rotate "+�(Ka%)+" "+�(La%)+" "+�(Ma%) � �Z=1�d%:�K%?Z��H(Z) �:�e:�h:ș"Hourglass_Off" � :�C%=(13�C%=398�C%=399)�Ga%� �C%<>399�I%=�n(W%,I%,1) �C%=399�I%=�n(W%,I%,0) 7ș"Wimp_SetCaretPosition",W%,I%,0,0,-1,�(�b(W%,I%)) � (�W%=qa%�C%=13�ș"Wimp_CreateMenu",-1 (�W%=sa%�C%=13�ș"Wimp_CreateMenu",-1 �Ha%�ș"Wimp_ProcessKey",C% � ��I(X):�X=0�X=3� c%()=0:b$()="":`%=0 � �X=1�X=3� ��N=0�20*Sa%�4:J%!N=0:�:h%()=0:oa%=0:Aa%=0:Ta%=0:Ua%=0:_%=0:$V%="":V%?20=50:V%?23=50:V%?24=50:V%?25=50:V%?26=15:V%?29=0:V%?30=50:V%?31=50:V%!32=100:V%!36=0:�u($V%,0) � �X=2�X=3� �!xa%=-256:H%=4:da%=0:Ca%=H%:g%()=0:�M=0�Sa%�4:K%!M=0:�:O%=0:d%=0:f%()=0:b%()=0:U%=0:fa%=0:�M=1�Sa%/2:$�d(M)="":�:�M=1�Sa%:$�a(M)="":�:�i (� (�e:�h:� +l��na:b%!0=-1:b%!4=0:b%!8=0:b%!12=64:b%!16=64:b%!20=385888266:$(b%+24)="!RAY3D":ș"Wimp_CreateIcon",,b%:� 4A��ka:�c%,x%,y%,z%,Va%,A%,N,o%:Va%=-1:o%=d%:c%=xa%+H%-4:Ȏwa%� ;&�1:c%!0=-2:c%!24=-256:H%+=24:d%+=1 >�2:�Ba%=3� ?(c%!0=-5:c%!232=-256:H%+=232:d%+=1:�i A� A�Ba%=2� BWBa%=3:Va%=0:�N=1�8:!(c%+N*12+124)=c%!20:!(c%+N*12+128)=c%!24:!(c%+N*12+132)=c%!28:� E� E�Ba%=1� F6Ba%=2:�c%!8<>c%!20�c%!12<>c%!24�c%!16<>c%!28�Va%=0 G�Va%=0� HG�N=1�8:!(c%+N*12+28)=c%!8:!(c%+N*12+32)=c%!12:!(c%+N*12+36)=c%!16:� K� K� L�3:�Ba%=1� N6Ba%=2:�c%!8<>c%!20�c%!12<>c%!24�c%!16<>c%!28�Va%=0 O�Va%=0� PG�N=1�8:!(c%+N*12+24)=c%!8:!(c%+N*12+28)=c%!12:!(c%+N*12+32)=c%!16:� S� S*�:c%!0=-4:c%!132=-256:H%+=132:d%+=1:�i V� V��4:�f,g,h:f=c%!20:g=c%!24:h=c%!28:�j(-f,-g,h,c%,1):�j(-f,g,h,c%,2):�j(-f,g,-h,c%,3):�j(-f,-g,-h,c%,4):�j(f,-g,h,c%,5):�j(f,g,h,c%,6):�j(f,g,-h,c%,7):�j(f,-g,-h,c%,8):c%!0=-6:c%!140=-256:H%+=140:d%+=1 _q�5:c%!56=c%!8+(c%!32-c%!8)/2:c%!60=c%!12+(c%!36-c%!12)/2:c%!64=c%!16+(c%!40-c%!16)/2:�c%!8=c%!32�c%!56+=20000 b�c%!12=c%!36�c%!60+=20000 c�c%!16=c%!40�c%!64+=20000 d#c%!0=-7:c%!68=-256:H%+=68:d%+=1 f&�6:c%!0=-8:c%!56=-256:H%+=56:d%+=1 h�7:�Aa%=2�Aa%=1002:Va%=0 i�Aa%=3� j&c%!0=-1:c%!44=-256:H%+=44:d%+=1:�i l� l6�8:A%=c%+Aa%*12:�!A%=A%!-12�A%!4=A%!-8�A%!8=A%!-4� o:c%!0=-3:d%+=1:c%!8=Aa%-1:A%!12=-256:H%=H%+Aa%*12+12:�i sm�:!(c%+Aa%*12+12)=!(c%+Aa%*12):!(c%+Aa%*12+16)=!(c%+Aa%*12+4):!(c%+Aa%*12+20)=!(c%+Aa%*12+8):Aa%+=1:Va%=0 v� v�13:�X(Z%) x �14:�Y:�e y �16:`%+=1 z�24:�Ba%=1� {*Ba%=2:Va%=0:c%!56=l%:c%!60=n%:c%!64=q% }(�:c%!0=-9:c%!68=-256:H%+=68:d%+=1:�i � L�25:M=c%!36:�N=1�8:�M=2��t(c%!32,0,0,12*N+24,12*N+28,12*N+32,0,45*N,0,1) �9�M=1��t(0,0,c%!32,12*N+24,12*N+28,12*N+32,45*N,0,0,1) �9�M=0��t(0,0,c%!32,12*N+24,12*N+28,12*N+32,0,0,45*N,1) �� ��M=0�c%!24=(c%!24)+1 ��M=1�c%!20=(c%!20)+1 ��M=2�c%!28=(c%!28)+1 �'�:c%!0=-4:c%!132=-256:H%+=132:d%+=1 ��30:�Ba%=1� �WBa%=2:Va%=0:t%(83)=t%(93):t%(84)=t%(94):t%(85)=t%(95):t%(93)=l%:t%(94)=n%:t%(95)=q% � �:�oa �� ���32:�f,g,h:f=c%!20:g=c%!24:h=c%!28:�j(-f,-g,h,c%,1):�j(-f,g,h,c%,2):�j(-f,g,-h,c%,3):�j(-f,-g,-h,c%,4):�j(f,-g,h,c%,5):�j(f,g,h,c%,6):�j(f,g,-h,c%,7):�j(f,-g,-h,c%,8):c%!0=-10:c%!140=-256:H%+=140:d%+=1 �� � Ȏwa%� � �1,2,3,4,5,6,7,8,25:�i:�Va%� �V!(J%+d%*20-20)=0:!(J%+d%*20-16)=0:!(J%+d%*20-12)=0:!(J%+d%*20-8)=0:!(J%+d%*20-4)=0 �� �� � �Va%� �0Ca%=H%:�e:�h:�p(Z%,wa%,0):wa%=13:�p(Z%,13,1) �� ��o%<>d%�!(J%+o%*20)=0 �� �h��V(W%,x%,y%,ja%):�h%,j%,k%,c%:!b%=W%:ș"Wimp_GetWindowState",,b%:h%=b%!4-b%!20:j%=b%!16-b%!24:ȎW%� ��a%(0),a%(2),a%(1)::�la ��ga%:�_%<>0� �%R%=((j%-y%)�36)+1:�Ta%=R%�Ua%=R%� ��Ta%=R%� �Gș"Wimp_ForceRedraw",W%,0,-Ta%*36,348,-(Ta%-1)*36:Ta%=0:�b(T%,5,"") �� ��Ua%=R%� �Gș"Wimp_ForceRedraw",W%,0,-Ua%*36,348,-(Ua%-1)*36:Ua%=0:�b(T%,7,"") �� ��:�Ta%=0�R%<>Ua%� ��R%<=oa%�Ta%=R% �� ��Ua%=0�R%<>Ta%� ��R%<=oa%�Ua%=R% �� �7�b(T%,5,�h(V%-40+Ta%*40)):�b(T%,7,�h(V%-40+Ua%*40)) �� �3ș"Wimp_ForceRedraw",W%,0,-R%*36,348,-(R%-1)*36 �� �&�ha%:�P:R%=((j%-y%)�36)+1:�Wa%<>0� �<N=0:F=0:�:F+=1::a$=$�a(F):�a$,�a$,">")-1)=$�d(Wa%)�N+=1 ��N=R%�F=d%:�N=R%�R%=F �� �:�R%>U%�Wa%=0� �0R%=R%-U%:N=0:F=0:�:F+=1:�$�a(F),">")=0�N+=1 ��N=R%�F=d%:�N=R%�R%=F�R%=_% �� �:�R%<=U%�Wa%=0� ��x%-h%>288� �_%=-R%:R%=0 ��:Wa%=R%:R%=0 �� �� ��R%>0�R%<=d%�_%=R% � �B:�J �#�ia%:R%=((j%-y%)�36)+1:�fa%<>0� �<N=0:F=0:�:F+=1::a$=$�a(F):�a$,�a$,">")-1)=$�d(fa%)�N+=1 ��N=R%�F=d%:�N=R%� � �Qa%� ��#Ra%,"Select "+$�a(F) �� �!K%?F=1-K%?F:�K%?F�O%+=1�O%-=1 � �e:�h �� �� �:�R%<=U%�fa%=0� ��x%-h%>288� �/�N=1�d%:a$=$�a(N):�a$,�a$,">")-1)=$�d(R%)� � �Qa%� ��#Ra%,"Select "+$�a(N) �� �K%?N=1:O%+=1 �� ��:�e:�h �:fa%=R%:�i � � :�R%>U%�fa%=0� 0R%=R%-U%:N=0:F=0:�:F+=1:�$�a(F),">")=0�N+=1 �N=R%�F=d%:�N=R%� �Qa%� �#Ra%,"Select "+$�a(F) � !K%?F=1-K%?F:�K%?F�O%+=1�O%-=1 �e:�h � � � � ���k:�f,g:�E:b%!0=0:b%!4=-a*u%:b%!8=a*u%:b%!12=0:ș"Wimp_SetExtent",a%(0),b%:ș"Wimp_SetExtent",a%(1),b%:ș"Wimp_SetExtent",a%(2),b%::f=(l%-20000)/8*a-(d%(3,3)-d%(3,1))/2:g=(n%-20000)/8*a+(d%(3,4)-d%(3,2))/2:b%!28=-1 %��w(a%(2),d%(3,1),d%(3,2),d%(3,3),d%(3,4),f,(-u%*a)+g):f=(l%-20000)/8*a-(d%(1,3)-d%(1,1))/2:g=(q%-20000)/8*a+(d%(1,4)-d%(1,2))/2:�w(a%(0),d%(1,1),d%(1,2),d%(1,3),d%(1,4),f,(-u%*a)+g):f=(n%-20000)/8*a-(d%(2,3)-d%(2,1))/2 *cg=(q%-20000)/8*a+(d%(2,4)-d%(2,2))/2:�w(a%(1),d%(2,1),d%(2,2),d%(2,3),d%(2,4),f,(-u%*a)+g):�e:� .Cݤl(A):�S$,N:ȕ(A!N�256)<>13�(A!N�256)<>0:S$+=�(A!N):N+=1:�:=S$ 8���A(e$):�e%,N,F:ș"Wimp_CreateMenu",-1:�o(qa%):�Q(Xa%):�P:d%+=1:ș"OS_Find",143,e$�e%:�#e%,aa%�100:�#e%,aa%�100:�#e%,U%�100:�#e%,U%�100:�U%>0� G�N=1�U%:�#e%,$�d(N):� K� K��#e%,d%�256:�#e%,d%�256:�#e%,H%�256:�#e%,H%�256:ș"OS_GBPB",2,e%,xa%,H%:�N=1�d%:�#e%,$�a(N):�:�#e%,oa%:ș"OS_GBPB",2,e%,V%,oa%*40:�d%<>0�ș"OS_GBPB",2,e%,J%,d%*20 U��#e%,f%(0)+1:�#e%,b%(0)+1:�N=1�3:�#e%,f%(N)�256:�#e%,f%(N)�256:�#e%,b%(N)�256:�#e%,b%(N)�256:�:�#e%,`%:�N=1�10:�#e%,b$(N):�F=0�8:�#e%,c%(N,F)�256:�#e%,c%(N,F)�256:�:�:�#e%,g%(0):�#e%,g%(1):�#e%,g%(2):ș"OS_Find",0,e% jM�("SETTYPE "+e$+" 0FC"):da%=0:d%-=1:�e$<>"<Ray$Dir>.Default"��b(qa%,1,e$) m� n;��C(e$):�e%,v%,B%:�e$<>"<Ray$Dir>.Default"��b(qa%,1,e$) r\ș"OS_Find",79,e$�e%:B%=�#e%:v%=B%*100:B%=�#e%:v%+=B%:�v%>aa%�ș"OS_Find",0,e%:�17,a$(6) x*:U%=0:�M=1�Sa%/2:$�d(M)="":�:�v%>=110� |+B%=�#e%:U%=B%*100:B%=�#e%:U%+=B%:�U%>0� �N=1�U%:�#e%,$�d(N):� �� �� ��B%=�#e%:d%=B%*256:B%=�#e%:d%+=B%:B%=�#e%:H%=B%*256:B%=�#e%:H%+=B%:ș"OS_GBPB",4,e%,xa%,H%:�N=1�d%:�#e%,$�a(N):�:oa%=�#e%:ș"OS_GBPB",4,e%,V%,oa%*40:�d%<>0�ș"OS_GBPB",4,e%,J%,d%*20 ��f%(0)=�#e%:b%(0)=�#e%:f%(0)-=1:b%(0)-=1:�N=1�3:B%=�#e%:f%(N)=B%*256:B%=�#e%:f%(N)+=B%:B%=�#e%:b%(N)=B%*256:B%=�#e%:b%(N)+=B%:�:`%=�#e%:�N=1�10:�#e%,b$(N):�F=0�8:B%=�#e%:c%(N,F)=B%*256:B%=�#e%:c%(N,F)+=B%:�:�:g%(0)=�#e%:g%(1)=�#e% �wg%(2)=�#e%:ș"OS_Find",0,e%:Ta%=0:Ua%=0:_%=0:d%-=1:fa%=0:�N=0�Sa%�4:K%!N=0:Ya%!N=0:�:O%=0:�e$<>"<Ray$Dir>.Default"� �;�k:�i:ș"Wimp_SetCaretPosition",Z%,0,0,0,-1,�(�b(Z%,0)) �� �$�u($V%,0):Wa%=0:�J:�e:�h:da%=0:� �Gݤm(e$):�F$,N:N=�(e$):ȕ�e$,N,1)<>"."�N>0:F$=�e$,N,1)+F$:N-=1:�:=F$ ����pa:�N,F:�E:e%()=j%():C=�("<Ray$Dir>.Options"):�#C,e%(0):�#C,e%(1):�#C,e%(2):�#C,e%(3):�#C,e%(4):�#C,e%(5):�#C,(Za%+1):�#C,(za%+1):ya%=�(�b(Na%,19)):�#C,�(ya%):�#C,a:�N=1�4:�F=1�4:�#C,�(d%(N,F)):�:�:�#C ��e:�o(_a%):�h:� ����qa:�A$,N,F:C=�("<Ray$Dir>.Options"):e%(0)=�#C:e%(1)=�#C:e%(2)=�#C:e%(3)=�#C:e%(4)=�#C:e%(5)=�#C:Za%=�#C:Za%-=1:za%=�#C:za%-=1:�#C,A$:ya%=�(A$):�b(Na%,19,A$):a=�#C:�N=1�4:�F=1�4:�#C,A$:d%(N,F)=�(A$):�:�:�#C:�N=0�5 ��!b%=_a%:b%!4=5+N:b%!12=&F0000000:b%!8=e%(N)<<28:ș"Wimp_SetIconState",,b%:�:�N=0�2:!b%=a%(N):ș"Wimp_GetWindowInfo",,b%:!p%=a%(N):ș"Wimp_DeleteWindow",,p%:?(b%+39)=e%(5):`a%=?(b%+34)�1:ș"Wimp_CreateWindow",,b%+4�a%(N):� ��`a%��k �� �G��E:�N:!p%=a%(0):ș"Wimp_GetWindowInfo",,p%:`a%=?(p%+34)�1:�`a%=0�� ���N=0�2:b%!0=a%(N):ș"Wimp_GetWindowState",,b%:d%(N+1,1)=b%!4:d%(N+1,2)=b%!8:d%(N+1,3)=b%!12:d%(N+1,4)=b%!16:�:b%!0=Z%:ș"Wimp_GetWindowState",,b%:d%(4,1)=b%!4:d%(4,2)=b%!8:d%(4,3)=b%!12:d%(4,4)=b%!16:� ���ra(e$):�N,F%,ab%,bb%,cb%,n$,l$:U%+=1:l$=�i(�m(e$)):$�d(U%)=l$:ș"Hourglass_On":�N=0�Sa%�4:K%!N=0:�:O%=0:ș"OS_Find",79,e$�e%:B%=�#e%:ab%=B%*100:B%=�#e%:ab%+=B%:�ab%>aa%�ș"OS_Find",0,e%:�17,a$(6) <B%=�#e%:bb%=B%*256:B%=�#e%:bb%+=B%:�d%+bb%>Sa%��17,a$(7) ��N=d%+1�d%+bb%:!(J%+N*20)=0:!(J%+N*20+4)=0:!(J%+N*20+8)=0:!(J%+N*20+12)=0:!(J%+N*20+16)=0:�:�N=1�bb%:ș"Hourglass_Percentage",N/bb%*100:d%+=1:K%?d%=1:B%=�#e%:cb%=B%*256:B%=�#e%:cb%+=B%:�#e%,n$ #�$�a(d%)=l$+">"+�i(n$):ș"OS_GBPB",4,e%,(xa%+H%-4),cb%:H%+=cb%:!(xa%+H%-4)=-256:�:O%=bb%:ș"OS_Find",0,e%:�i:Wa%=0:�J:�k:ș"Wimp_SetCaretPosition",Z%,0,0,0,-1,�(�b(Z%,0)):�e:ș"Hourglass_Off":�h:� 3H��O(e$):�N%,db%,F%,a$:ș"Wimp_CreateMenu",-1:�o(sa%):�O%=0��17,a$(8) 9~ș"OS_Find",143,e$�e%:�#e%,aa%�100:�#e%,aa%�100:�#e%,O%�256:�#e%,O%�256:N%=xa%-4:db%=0:�:db%+=1:�:N%+=4:�!N%<0:�K%?db%<>0� FjF%=N%:�:F%+=4:�!F%<0:�#e%,(F%-N%)�256:�#e%,(F%-N%)�256:a$=$�a(db%):�a$,">")<>0�a$=�a$,�(a$)-�a$,">")) L'�#e%,a$:ș"OS_GBPB",2,e%,N%,(F%-N%) O� OE�!N%=-256:ș"OS_Find",0,e%:�("SETTYPE "+e$+" 0FB"):�b(sa%,1,e$):� U��ba(`,h$,ba) Z *CLOSE ZTș"Hourglass_Smash":�p(Z%,wa%,0):wa%=13:�p(Z%,13,1):ș"Wimp_CreateMenu",-1::Ȏ`� `Z�1:h$=a$(99):�A("Extinct"):!b%=`:$(b%+4)=h$:ș"Wimp_ReportError",b%,1,"!Ray3d"�,ja%:�L g �17:�7 h�b(eb%,1,h$):�m(eb%) k l'*Set Basic$File <Ray$Dir>.!Runimage l�"Edit:Throwback" mah$+=" ("+�(ba)+")."+a$(98):!b%=`:$(b%+4)=h$:ș"Wimp_ReportError",b%,3,"!Ray3d"�,ja%:�ja%=2��L q� r� s��u(d$,fb%):�oa%=0�� x�d$<>""�gb%=�o(d$)�gb%=0 y�gb%=-1��17,a$(9) z�fb%��Q(Xa%) {�Xa%=gb%:F=gb%*40+V%:�b(na%,5,d$):h%()=F?23,F?24,F?25:hb%=F?30:ib%=F?29:jb%=F!32:kb%=F?31:lb%=F!36:�b(na%,26,�(ib%)+"%"):�b(na%,24,�(jb%)+"%"):�b(na%,21,�(lb%)+"%"):�b(na%,12,�(hb%)+"%"):�b(na%,17,�(kb%)+"%") ���b(na%,1,�(h%(0))+"%"):�b(na%,2,�(h%(1))+"%"):�b(na%,3,�(h%(2))+"%"):ș"Wimp_ForceRedraw",na%,48,-672,474,-484:ș"Wimp_ForceRedraw",ga%,0,-(oa%*36),348,0:� ����Q(A):�F:F=A*40+V%:$(F)=" ":$(F)=�b(na%,5):F?23=h%(0):F?24=h%(1):F?25=h%(2):F?30=hb%:F?31=kb%:F!36=lb%:F!32=jb%:F?29=ib%:ș"Wimp_ForceRedraw",ga%,0,-(oa%*36),348,0:� ���sa:�mb%,A:�oa%=0�� �]mb%=Xa%+1:oa%-=1:�N=Xa%�oa%-1:�F=0�36�4:!(V%+N*40+F)=!(V%+(N+1)*40+F):�:�:�Xa%=oa%�Xa%-=1 ��oa%=0� ��u("",0) ��:�u($(V%+Xa%*40),0) �� �3:�N=0�d%:A=J%+N*20:�!A=mb%�!A=0��!A>mb%�!A=!A-1 �%A+=4:�!A=mb%�!A=0��!A>mb%�!A=!A-1 � �:�J:� �v��ta:�N:�N=8�14:�p(T%,N,0):�:�b(T%,15,""):�b(T%,16,""):�b(T%,17,""):�b(T%,18,"100"):�b(T%,3,$�d(-_%)):�p(T%,8,1):� ���J:�_%=0�� ��_%<0��ta:� ���N=8�14:�p(T%,N,0):�:Ta%=!(J%+_%*20-20):Ua%=!(J%+_%*20-16):nb%=!(J%+_%*20-12):�p(T%,nb%+8,0):�b(T%,15,""):�b(T%,16,""):�b(T%,17,""):�b(T%,18,"100"):Ȏnb%� �%�1,2,3:�b(T%,18,�(!(J%+_%*20-8))) �<�4:�b(T%,15,�(!(J%+_%*20-8))):�b(T%,18,�(!(J%+_%*20-4))) �!�5:�b(T%,16,�(!(J%+_%*20-8))) �!�6:�b(T%,17,�(!(J%+_%*20-8))) �� �@�p(T%,nb%+8,1):a$=$�a(_%):�a$,">")>0�a$=�a$,�(a$)-�a$,">")) ә�b(T%,3,a$):�b(T%,5,�h(V%-40+Ta%*40)):�b(T%,7,�h(V%-40+Ua%*40)):ș"Wimp_ForceRedraw",ga%,0,-(oa%*36),348,0:ș"Wimp_ForceRedraw",ha%,0,-180,348,0:�B:� ���ua:�oa%>=ob%��17,a$(10) ��b(na%,5)=""��17,a$(11) �!�o(�b(na%,5))<>-1��17,a$(12) ��Q(oa%):Xa%=oa%:oa%+=1:� �ݤe(A$):�B$:�d%=0�=0 �<A$=�g(A$):�N,F:F=0:�N=1�d%:B$=�g($�a(N)):�B$=A$�F=N:N=d% ��B$,">")>0� � �B$,�B$,">")-1)=A$�F=N:N=d% �$��B$,�(B$)-�B$,">"))=A$�F=N:N=d% �� ��:�F<>0�=F ��N=1�`%:�g(b$(N))=A$�F=-1 ��:=F �Eݤo(d$):�gb%,N,F,N$:gb%=-1:�N=0�oa%-1:N$=�h(N*40+V%):�N$=d$�gb%=N � �:=gb% ݤh(F):�F=V%-40�="" 5�N$:�:N$+=�(?F):F+=1:�?F=13�?F=0�F=N*40+V%+19:=N$ ݤd(N):=N*50-50+pb% ݤa(N):=N*50-50+qb% b��Z(c%,p%):�l,i,N:l=�((c%!24-c%!12)^2+(c%!20-c%!8)^2):l=�(l^2+(c%!28-c%!16)^2):�l=0��17,a$(13) �c%!28-c%!16=0� Fi=�(�((c%!20-c%!8)/l)):i=i*�(c%!24-c%!12):�N=1�8:�(c%!24-c%!12)=0� �p%=2� 4�t(0,c%!32,0,12*N+28,12*N+32,12*N+36,45*N,i,0,1) 9�:�t(0,c%!36,0,12*N+124,12*N+128,12*N+132,45*N,i,0,2) � �:�p%=2� 4�t(c%!32,0,0,12*N+28,12*N+32,12*N+36,0,i,45*N,1) 9�:�t(c%!36,0,0,12*N+124,12*N+128,12*N+132,0,i,45*N,2) � � !� #� #:�c%!24-c%!12=0� %Fi=�(�((c%!20-c%!8)/l)):i=i*�(c%!16-c%!28):�N=1�8:�(c%!28-c%!16)=0� ( �p%=2� )4�x(0,0,c%!32,12*N+28,12*N+32,12*N+36,45*N,0,i,1) +9�:�x(0,0,c%!36,12*N+124,12*N+128,12*N+132,45*N,0,i,2) -� -�:�p%=2� /4�x(c%!32,0,0,12*N+28,12*N+32,12*N+36,0,45*N,i,1) 19�:�x(c%!36,0,0,12*N+124,12*N+128,12*N+132,0,45*N,i,2) 3� 3� 4� 6� 6:�c%!20-c%!8=0� 8Gi=�(�((c%!24-c%!12)/l)):i=i*�(c%!28-c%!16):�N=1�8:�(c%!28-c%!16)=0� ; �p%=2� <4�y(0,0,c%!32,12*N+28,12*N+32,12*N+36,i,0,45*N,1) >9�:�y(0,0,c%!36,12*N+124,12*N+128,12*N+132,i,0,45*N,2) @� @�:�p%=2� B4�y(0,c%!32,0,12*N+28,12*N+32,12*N+36,i,45*N,0,1) D9�:�y(0,c%!36,0,12*N+124,12*N+128,12*N+132,i,45*N,0,2) F� F� G� I� I� J^��va(c%):�l,i:l=�((c%!24-c%!12)^2+(c%!20-c%!8)^2):l=�(l^2+(c%!28-c%!16)^2):�l=0��17,a$(13) P�c%!28-c%!16=0� QFi=�(�((c%!20-c%!8)/l)):i=i*�(c%!24-c%!12):�N=1�8:�(c%!24-c%!12)=0� T4�t(0,c%!32,0,12*N+24,12*N+28,12*N+32,45*N,i,0,1) V6�:�t(c%!32,0,0,12*N+24,12*N+28,12*N+32,0,i,45*N,1) X� X� Z� Z:�c%!24-c%!12=0� \Fi=�(�((c%!20-c%!8)/l)):i=i*�(c%!16-c%!28):�N=1�8:�(c%!28-c%!16)=0� _4�x(0,0,c%!32,12*N+24,12*N+28,12*N+32,45*N,0,i,1) a6�:�x(c%!32,0,0,12*N+24,12*N+28,12*N+32,0,45*N,i,1) c� c� e� e:�c%!20-c%!8=0� gGi=�(�((c%!24-c%!12)/l)):i=i*�(c%!28-c%!16):�N=1�8:�(c%!28-c%!16)=0� j4�y(0,0,c%!32,12*N+24,12*N+28,12*N+32,i,0,45*N,1) l6�:�y(0,c%!32,0,12*N+24,12*N+28,12*N+32,i,45*N,0,1) n� n� p� p� q��B:rb%=0:�Wa%=0� u#�N=1�d%:�$�a(N),">")=0�rb%+=36 w�:rb%=rb%+(U%*36) z9�:�N=1�d%:a$=$�a(N):�a$,�a$,">")-1)=$�d(Wa%)�rb%+=36 }� � �rb%<180�rb%=180 �kb%!0=0:b%!4=-rb%:b%!8=348:b%!12=0:ș"Wimp_SetExtent",ha%,b%:ș"Wimp_ForceRedraw",ha%,0,-(d%*36),348,0:� �0��_:�a$:�N=1�d%:a$=$�a(N):�K%?N��a$,">")<>0� �$�a(N)=�a$,�(a$)-�a$,">")) �� � �:�R:� ���R:�U%<>0� ��N=U%�1�-1:�e($�d(N))=0� �)�F=N�U%:$�d(F)=$�d(F+1):�:U%-=1:fa%=0 �� �� �� ��U%<0�U%=0 ��i:�e:�h:� �%��`(t):�db%,N%,F%,k,m,j,Z:�O%=0�� �`ș"Hourglass_On":da%=-1:N%=xa%-4:db%=0:k=l%:m=n%:j=q%:�Z=1�d%:�:N%+=4:�!N%<0:db%+=1:�K%?db%� � Ȏ!N%� ��-1:�s(N%+8,N%+32,k,m,j) �U�-2:N%!8=(N%!8-l%)*t+l%:N%!12=(N%!12-n%)*t+n%:N%!16=(N%!16-q%)*t+q%:N%!20=N%!20*t �6�-3:k=l%:m=n%:j=q%:�s(N%+12,N%+(N%!8*12)+12,k,m,j) �A�-4:�s(N%+8,N%+20,k,m,j):�s(N%+36,N%+120,k,m,j):N%!32=N%!32*t �O�-5:�s(N%+8,N%+20,k,m,j):�s(N%+40,N%+220,k,m,j):N%!32=N%!32*t:N%!36=N%!36*t �L�-6,-10:�s(N%+8,N%+8,k,m,j):�s(N%+20,N%+20,0,0,0):�s(N%+44,N%+128,k,m,j) ��-7,-8:�s(N%+8,N%+44,k,m,j) ��-9:�s(N%+8,N%+56,k,m,j) �� �� ��:ș"Hourglass_Off":� �U��s(S%,E%,k,m,j):�N:�N=S%�E%�12:!N=(!N-k)*t+k:N!4=(N!4-m)*t+m:N!8=(N!8-j)*t+j:�:� �m��H(S%):�db%,N%,F%,k,m,j,c,e,f,g,h:N%=xa%-4:db%=0:da%=-1:�db%=1�S%:�:N%+=4:�!N%<0:�:k=l%:m=n%:j=q%:Ȏ!N%� ��-1:�q(N%+8,N%+32) ��-2:�q(N%+8,N%+8) �!�-3:�q(N%+12,N%+(N%!8*12)+12) �'�-4:�q(N%+8,N%+20):�q(N%+36,N%+120) �'�-5:�q(N%+8,N%+20):�q(N%+40,N%+220) �x�-6,-10:�q(N%+8,N%+8):N%!32=(N%!32-Ka%+360)�360:N%!36=(N%!36-La%+360)�360:N%!40=(N%!40-Ma%+360)�360:�q(N%+44,N%+128) ��-7:�q(N%+8,N%+56) ��-8:�q(N%+8,N%+44) ��-9:�q(N%+8,N%+56) �� �� �v��q(S%,E%):sb%=l%:tb%=n%:ub%=q%:�F%=S%�E%�12:�wa(F%,F%+4,F%+8,Ka%):�xa(F%,F%+4,F%+8,La%):�ya(F%,F%+4,F%+8,Ma%):�:� �w��wa(X,Y,Z,vb%):�c,e:c=�(�(-vb%)):e=�(�(-vb%)):A=(!X)-sb%:B=(!Y)-tb%:C=(!Z)-ub%:!Y=(B*e-C*c)+tb%:!Z=(B*c+C*e)+ub%:� �w��xa(X,Y,Z,vb%):�c,e:c=�(�(-vb%)):e=�(�(-vb%)):A=(!X)-sb%:B=(!Y)-tb%:C=(!Z)-ub%:!X=(A*e+C*c)+sb%:!Z=(C*e-A*c)+ub%:� �w��ya(X,Y,Z,vb%):�c,e:c=�(�(-vb%)):e=�(�(-vb%)):A=(!X)-sb%:B=(!Y)-tb%:C=(!Z)-ub%:!X=(A*e-B*c)+sb%:!Y=(A*c+B*e)+tb%:� +��Y:�wb%,N,i%,xb%,yb%,zb%,db%,Z:�O%=0�� Kș"Hourglass_On":da%=-1:xb%=t%(93)-l%:yb%=t%(94)-n%:zb%=t%(95)-q%:�Qa%� .�#Ra%,"Move "+�(xb%)+" "+�(yb%)+" "+�(zb%) � Bi%=xa%-4:db%=0:�Z=1�d%:�:i%+=4:�!i%<0:wb%=!i%:db%+=1::�K%?db%� Ȏwb%� �-1:�l(8,32) �-2:�l(8,8) �-3:�l(12,i%!8*12+12) $�-4:�l(8,8):�l(20,20):�l(36,120) 0�-5:�l(8,8):�l(20,20):�l(40,124):�l(136,220) �-6,-10:�l(8,8):�l(44,128) �-7:�l(8,56) �-8:�l(8,44) �-9:�l(8,56) !� !� "�:ș"Hourglass_Off":� %U��l(S%,E%):�N:�N=i%+S%�i%+E%�12:!N=!N+xb%:!(N+4)=!(N+4)+yb%:!(N+8)=!(N+8)+zb%:�:� ,$��za:�db%,N%,F%,L%,Z,bb%:�O%=0�� 0]ș"Hourglass_On":da%=-1:bb%=0:N%=xa%+H%-8:db%=d%+1:�Z=1�d%:�:N%-=4:�!N%<0:db%-=1:�K%?db%� 6oF%=xa%+H%-4:L%=N%:�:!F%=!L%:L%+=4:F%+=4:�!L%<0:!F%=-256:H%=F%-xa%+4:bb%+=1:$�a(d%+bb%)=�i($�a(db%)):K%?d%=1 <� <!�:d%+=bb%:ș"Hourglass_Off":� @ݤg(A$):�N,C,B$:�A$=""�="" D0B$="":�N=1��(A$):B$+=�(�(�A$,N,1))�32):�:=B$ H#��X(W%):�Z:Z=�e(�b(W%,0)):�Qa%� K�#Ra%,"Select "+$�a(Z) M� M �Z>0� N�K%?Z=0� OK%?Z=1:O%+=1 Q�:K%?Z=0:O%-=1 S� S� T�e:�h:� W$��S:�db%,N%,L%,F%,Q%,Ab%:�O%=0�� [eș"Hourglass_On":da%=-1:bb%=0:N%=xa%+H%-8:db%=d%+1:Ab%=d%:�Z=1�Ab%:�:N%-=4:�!N%<0:db%-=1:�K%?db%� b�F%=N%:�:F%+=4:�!F%<0:L%=N%:ȕ!F%<>-256:!L%=!F%:L%+=4:F%+=4:�:!L%=-256:H%=L%+4-xa%:�Q%=db%�d%:$�a(Q%)=$�a(Q%+1):K%?Q%=?(K%+Q%+1):?(Ya%+Q%)=?(Ya%+Q%+1):!(J%+Q%*20-20)=!(J%+Q%*20):!(J%+Q%*20-16)=!(J%+Q%*20+4) km!(J%+Q%*20-12)=!(J%+Q%*20+8):!(J%+Q%*20-8)=!(J%+Q%*20+12):!(J%+Q%*20-4)=!(J%+Q%*20+16):�:_%=0:O%-=1:d%-=1 q� q?�:ș"Hourglass_Off":ș"Wimp_ForceRedraw",ha%,0,-180,348,0:� u1ݤi(d$):�N,A$,B$,Bb%:Bb%=0:A$="":�d$,"#")>0� zd$=�d$,�d$,"#")) |�:�e(d$)=0�A$=d$�d$+=" #" }� ~'�N=1�6:�c$(N)=d$�Bb%=k%(N):k%(N)+=1 ��:�Bb%<>0�=d$+�(Bb%+1) ��A$<>""�=A$ �3A$=�g(d$):�N=1�d%:B$=�g($�a(N)):�B$,�(A$))=A$� ��(�B$,�(B$)-�(A$)))>Bb%� �Bb%=�(�B$,�(B$)-�(A$))) �� �� �<�:c$(k%(0))=d$:k%(k%(0))=Bb%+1:k%(0)+=1:�k%(0)=7�k%(0)=1 �=d$+�(Bb%+1) �ݤp:�A$,N$,N%,F%:ȎCb%� ��1:N$=a$(51) ��2:N$=a$(52) ��3:N$=a$(53) ��4:N$=a$(54) ��5:N$=a$(55) ��6:N$=a$(56) ��7:N$=a$(57) ��8:N$=a$(58) ��16:N$=a$(59) ��24:N$=a$(60) ��25:N$=a$(61) ��32:N$=a$(62) �� �ON%=0:�:N%+=1:A$=�g(N$+�(N%)):F%=1:Db%=-1:ȕF%<=d%�Db%:�A$=�g($�a(F%))�Db%=0 �^F%+=1:�:�Db%:�b(Z%,0,N$+�(N%)):ș"Wimp_SetCaretPosition",Z%,0,0,0,-1,�(N$+�(N%)):=N$+�(N%) �I��T(Cb%):�d$,c%,N:da%=-1:c%=xa%+H%-4:Ba%=1:�c%>xa%+200*Sa%��17,a$(14) � ȎCb%� �=�1,2,3,4,32,5,6,7,8,16,24,25:d$=�b(W%,0):�fa%<>0�Cb%<>16� �d$=$�d(fa%)+">"+�p ��:�d$=""��e(d$)<>0�d$=�p �� �� � ȎCb%� �F�1:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=0:Ca%=H%+16:$�a(d%+1)=d$ �i�2:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=0:c%!36=0:Ca%=H%+16:$�a(d%+1)=d$ �a�3:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=0:Ca%=H%+16:$�a(d%+1)=d$ �q�4,32:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=0:c%!24=0:c%!28=0:c%!32=0:c%!36=0:c%!40=0:$�a(d%+1)=d$:Ca%=H%+16 Б�5,6:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=l%:c%!36=n%:c%!40=q%:c%!44=l%:c%!48=n%:c%!52=q%:$�a(d%+1)=d$:Ca%=H%+16 �z�7:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=l%:c%!36=n%:c%!40=q%:Ca%=H%+16:Aa%=2:$�a(d%+1)=d$ �g�8:c%!4=0:c%!8=0:c%!12=l%:c%!16=n%:c%!20=q%:c%!24=l%:c%!28=n%:c%!32=q%:Ca%=H%+16:Aa%=2:$�a(d%+1)=d$ �/�14:t%(93)=l%:t%(94)=n%:t%(95)=q%:Ca%=H%+16 �c�16:c%(`%+1,0)=Eb%:c%(`%+1,1)=l%:c%(`%+1,2)=n%:c%(`%+1,3)=q%:c%(`%+1,4)=0:Ca%=H%+16:b$(`%+1)=d$ ��24:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=l%:c%!36=n%:c%!40=q%:c%!44=l%:c%!48=n%:c%!52=q%:$�a(d%+1)=d$:Ca%=H%+16 �j�25:c%!4=0:c%!8=l%:c%!12=n%:c%!16=q%:c%!20=l%:c%!24=n%:c%!28=q%:c%!32=0:c%!36=0:$�a(d%+1)=d$:Ca%=H%+16 �C�30:t%(93)=l%:t%(94)=n%:t%(95)=q%:t%(83)=l%:t%(84)=n%:t%(85)=q% �� �� �b��U(N):�b(ma%,1,b$(N+1)):Fb%=N+1:i%(0)=c%(Fb%,5):i%(1)=c%(Fb%,6):i%(2)=c%(Fb%,7):�c%(Fb%,0)=0� �b(ma%,3,"Point") �:�b(ma%,3,"Extended") � n�b(ma%,8,�c%(Fb%,5)):�b(ma%,9,�c%(Fb%,6)):�b(ma%,10,�c%(Fb%,7)):ș"Wimp_ForceRedraw",ma%,48,-192,486,-80:� @��Aa:�N,wb%:wb%=_%:�N=1�d%:�$�a(N),�($�d(-wb%)))=$�d(-wb%)� _%=N:�P � �:_%=wb%:� ��P:�_%=0�� �_%<0��Aa:� C!(J%+_%*20-20)=Ta%:!(J%+_%*20-16)=Ua%:!(J%+_%*20-12)=nb%:Ȏnb%� %�1,2,3:!(J%+_%*20-8)=�(�b(T%,18)) !<�4:!(J%+_%*20-8)=�(�b(T%,15)):!(J%+_%*20-4)=�(�b(T%,18)) $!�5:!(J%+_%*20-8)=�(�b(T%,16)) &!�6:!(J%+_%*20-8)=�(�b(T%,17)) (� (� ),��v(W%,I%,Gb%):�Fa%,A,c%,d$,Q%,Hb%:ȎW%� /�Pa%:ȎI%� 1�4,5,6:Ib%=I%-3 3�7:ș"Wimp_CreateMenu",-1 4!�8:�Ba:ș"Wimp_CreateMenu",-1 7� 7�Oa%:ȎI%� 9 �3:�Ca ;�2:�o(Oa%) <� < >�Jb%:�I%>0�I%<5�Kb%=I% ?(�I%=5�ș"Wimp_CreateMenu",-1:�o(Jb%) @�I%=6��Da(Kb%) A C�qa%:�I%=2� D!秤b(qa%,1),"$.")=0��17,a$(5) E(ș"Wimp_CreateMenu",-1:�A(�b(qa%,1)) H� H K�sa%:�I%=2� L!秤b(sa%,1),"$.")=0��17,a$(5) M(ș"Wimp_CreateMenu",-1:�O(�b(sa%,1)) P� P R�eb%:�I%=2� S�o(eb%) U� U W�T%:�I%>7�I%<15�nb%=I%-8 X�I%=22�Wa%=0:�B Y [�Na%:�I%=20� \jș"Wimp_CreateMenu",-1:!b%=W%:b%!4=18:ș"Wimp_GetIconState",,b%:e%(4)=b%!24>>28�15:ya%=�(�b(W%,19)):�e b� b�I%>0�I%<17� cM!b%=Na%:b%!4=18:b%!8=(I%-1)<<28:b%!12=&F0000000:ș"Wimp_SetIconState",,b% f� f h �Z%:ȎI%� i0�1,2,3,4,5,6,7,8,9,10,24,25,32:da%=-1:wa%=I% l�11:�a+1<=8�a=a+1:�k l�12:�a-1>=1�a=a-1:�k m�13:wa%=I%:�Ca%<>H%��e o Ca%=H% q�14,30:wa%=I%:�T(I%) r�15:wa%=I% s�16:da%=-1:wa%=I% t�17:fa%=0:�i u"�18:A$=�b(Z%,0):�N=1�d%:�K%?N� w�$�a(N),">")>0� xb$=�$�a(N),�$�a(N),">")) z�:b$="" |� |$�a(N)=�i(b$+A$) ~� ~U�:ș"Wimp_ForceRedraw",ha%,0,-180,348,0:ș"Wimp_ForceRedraw",ia%,0,-(d%*36),348,0 ��19:ș"Hourglass_On":�Qa%� ��#Ra%,"Copy" �� �"�za:�i:�h:�e:ș"Hourglass_Off" �&�20:�M=0�Sa%�4:K%!M=0:�:O%=0:�e:�h ��21:�O%=0��17,a$(15) �(d$=�b(Z%,0):Db%=0:�U%=499��17,a$(16) ��e(d$)<>0��17,a$(17) �#�N=1�d%:�K%?N=1��$�a(N),">")=0� �,$�a(N)=d$+">"+$�a(N):Db%=-1:K%?N=0:O%-=1 �� ��:�Db%=0��17,a$(18) �U%+=1:$�d(U%)=d$:�i:�e:�h ��22:�O%=0��17,a$(15) ��_ �$�23:�N=1�d%:K%?N=1:�:O%=d%:�e:�h ��26:�m(na%) ��29:�m(Jb%) �$�31:ș"OS_Confirm"�Lb%:�Lb%=121� ��S:�R:�b(Z%,0,"") �� ��33:�B:�m(T%) �-�34:�b%(1)=f%(1)�b%(2)=f%(2)�b%(3)=f%(3)� ��17,a$(19) � �:�m(pa%) �� �� � ȎI%� �4�1,2,3,4,5,6,7,8,16,24,25,32:�`%+1>10��17,a$(20) ��d%+1>Sa%��17,a$(21) � �Ca%<>H%� �Ca%=H%:�e:�T(I%) ��:�T(I%) �� �� � ��na%:ȎI%� ��28,29,30:�Ea(I%-28) ��13:�hb%>0�hb%-=1 ��b(W%,12,�(hb%)+"%") ��14:�hb%<100�hb%+=1 ��b(W%,12,�(hb%)+"%") ��16:�kb%>0�kb%-=1 ��b(W%,17,�(kb%)+"%") ��18:�kb%<100�kb%+=1 ��b(W%,17,�(kb%)+"%") ��22:�lb%<100�lb%+=1 ��b(W%,21,�(lb%)+"%") ��20:�lb%>0�lb%-=1 ��b(W%,21,�(lb%)+"%") ��32:�jb%<100�jb%+=1 ��b(W%,24,�(jb%)+"%") ��27:�jb%>0�jb%-=1 ��b(W%,24,�(jb%)+"%") ��31:�ib%>0�ib%-=1 ��b(W%,26,�(ib%)+"%") ��33:�ib%<100�ib%+=1 ��b(W%,26,�(ib%)+"%") � �7:�ua � �8:�sa ��9:�Xa%>0� ��u($(V%+(Xa%-1)*40),1) �� � ș"Wimp_SetCaretPosition",-1 ��10:�Xa%<oa%-1� ��u($(V%+(Xa%+1)*40),1) �� � ș"Wimp_SetCaretPosition",-1 �� � ��Ia%:ȎI%� �p�0,1,2:!b%=W%:ș"Wimp_GetWindowState",,b%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȗX,Y,Z:X=X-h%-132:�Fa((X/450)*100) ���13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28:ș"Wimp_ReadPalette",,b%:Fa%=((I%-13)*4)+b%:g%(0)=(Fa%?1)/2.56:g%(1)=(Fa%?2)/2.56:g%(2)=(Fa%?3)/2.56:ș"Wimp_ForceRedraw",W%,132,-176,590,-32:ș"Wimp_ForceRedraw",W%,472,-264,584,-204 �6�b(Ia%,6,�g%(0)):�b(Ia%,7,�g%(1)):�b(Ia%,8,�g%(2)) �� � ��ca%:�I%=1�ba%=0:�o(ca%) ��I%=2�da%=0 � ��_a%:ȎI%� �"�12:e%()=j%():�e:�Gb%=4��o(W%) ���N=0�2:!b%=a%(N):ș"Wimp_GetWindowInfo",,b%:!p%=a%(N):ș"Wimp_DeleteWindow",,p%:?(b%+39)=e%(5):`a%=?(b%+34)�1:ș"Wimp_CreateWindow",,b%+4�a%(N):�:�`a%��k �11:�o(W%) C�5,6,7,8,9,10:!b%=W%:b%!4=I%:b%!12=&F0000000:�ja%=4�j%(I%-5)+=1 �ja%=1�j%(I%-5)-=1 �j%(I%-5)>15�j%(I%-5)=0 �j%(I%-5)<0�j%(I%-5)=16 /b%!8=j%(I%-5)<<28:ș"Wimp_SetIconState",,b% � �Ja%:�Z:ȎI%� �4:Ka%-=5:�Ka%<0�Ka%+=360 �5:Ka%+=5 �6:La%-=5:�La%<0�La%+=360 �7:La%+=5 �8:Ma%-=5:�Ma%<0�Ma%+=360 �9:Ma%+=5 5�10:ș"Wimp_CreateMenu",-1:ș"Hourglass_On":�Qa%� 0�#Ra%,"Rotate "+�(Ka%)+" "+�(La%)+" "+�(Ma%) � �Z=1�d%:�K%?Z��H(Z) �:�e:ș"Hourglass_Off" #� #ZKa%=Ka%�360:La%=La%�360:Ma%=Ma%�360:�b(W%,11,�(Ka%)):�b(W%,12,�(La%)):�b(W%,13,�(Ma%)) ('�ma%:�N,F:�I%=1�`%>0��M(!b%,b%!4,3) *�I%=5�I%=6�I%=7� +��X,Y,Z,Mb%,Nb%,h%,j%,Db%:!b%=ma%:ș"Wimp_GetWindowState",,b%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȗX,Y,Z:X=X-h%-146:�Ga((X/336)*100):c%(Fb%,I%)=i%(I%-5) 0� 0�I%=11� 1M`%-=1:�N=Fb%�`%:b$(N)=b$(N+1):�F=1�8:c%(N,F)=c%(N+1,F):�:�:�Fb%>`%�Fb%=`% 5�U(Fb%-1):�e 7� 7� 8� 9���ia(b%):�i$,Ob%,A$,N:i$=�(la%)+" ":N=0:ȕb%!N<>-1:i$=i$+"."+�(b%!N):N+=4:�:Ob%=b%!8:Pb%=!b%:ș"Wimp_GetPointerInfo",,b%:Qb%=b%!8=1:Ȏi$� C�"1 .1":�pa E1�"1 .2":Rb%=1-Rb%:ș"OS_UpdateMEMC",Rb%*64,64 Gf�"1 .3":�m(_a%):�N=0�5:!b%=_a%:b%!4=5+N:b%!12=&F0000000:b%!8=e%(N)<<28:ș"Wimp_SetIconState",,b%:� L�"1 .4":ba%=-1 M�"2 .0.3.0":�I(0) N�"2 .0.3.1":�I(1) O�"2 .0.3.2":�I(2) P�"2 .0.3.3":�I(3) Q'�"2 .0.4.0":�C("<Ray$Dir>.Default") R'�"2 .0.4.1":�A("<Ray$Dir>.Default") S*�"2 .1.0":�N=1�d%:K%?N=1:�:O%=d%:�e:�h X,�"2 .1.1":�M=0�Sa%�4:K%!M=0:�:O%=0:�e:�h \#�"2 .1.2":�N=1�d%:�K%?N�Ya%?N=1 ^�:�i:�e:�h c#�"2 .1.3":�N=1�d%:�K%?N�Ya%?N=0 e�:�i:�e:�h j4�"2 .1.4.0":d$=�b(Z%,0):Db%=0:�U%=499��17,a$(16) l�e(d$)=0� m!�N=1�d%:�K%?N��$�a(N),">")=0� o,$�a(N)=d$+">"+$�a(N):Db%=-1:K%?N=0:O%-=1 r� r�:�Db%=-1� tU%+=1:$�d(U%)=d$:�i:�e:�h z�:�17,a$(18) |� |�:�17,a$(17) � �"2 .1.4.1":�_ ��"2 .1.5":�S:�b(Z%,0,""):�R �&�"2 .1.7.0":ș"Hourglass_On":�Qa%� ��#Ra%,"Scale "+$Sb% �� �(�`(�($Sb%)/100):�e:ș"Hourglass_Off" ��"2 .2.0.0":Eb%=0 ��"2 .2.0.1":Eb%=1 ��"2 .2.1":�m(ma%):�U(0) ��"2 .3.0":�m(Ia%) ��"2 .3.1":�B:�m(T%) ��"2 .3.2":�m(na%) �&�"2 .4.1":�#Ra%,"Stop":�#Ra%:Qa%=0 �-�"2 .5.0":Za%=-1-Za%:ya%=�(�b(Na%,19)):�e ��"2 .5.1":za%=-1-za% ��"2 .6.0":a=1:�k ��"2 .6.1":a=2:�k ��"2 .6.2":a=3:�k ��"2 .6.3":a=4:�k ��"2 .6.4":a=5:�k ��"2 .6.5":a=6:�k ��"2 .6.6":a=7:�k ��"2 .6.7":a=8:�k ��"2 .7":�W �� ��la%=3��U(Pb%) ��la%=4��u($(V%+Pb%*40),1) � :�Qb%� �J�la%=1��F(" !Ray3d ","Info,Save Config,Fast,Colours...,Quit,",!b%,324) �`�la%=2��F(" Main Menu ","Project,Select,Lights ,World,Macro,Grid,Zoom,Tools...,",!b%,b%!4) �� �� ����F(j$,m$,X%,Y%):�n(Tb%,j$,m$):ș"Wimp_CreateMenu",,Tb%,X%-Tb%!16/2,Y%:A$="No printer":ș655680,,,,,A$�,,,,A$:�b(Jb%,0,A$):�b(Ub%,1,"Generated on !Ray3d version "+�(aa%/100)):�b(Ub%,5,�(d%)):�b(Ub%,6,�(oa%)):�b(Ub%,7,�(`%)):� ����n(M%,j$,m$):�I%,Bb%,Vb%,Wb%,Xb%,N:Xb%=128:$M%=j$:M%!12=459271:M%!20=44:M%!24=0:I%=M%+28:Bb%=�(j$)-2:�:A%=�m$,","):$(I%+12)=�m$,A%-1):m$=�m$,A%+1):�A%>Bb%Bb%=A% �!I%=0:I%!4=0::Ȏ$(I%+12)� ��"Info":I%!4=ka% ��"Rotate":I%!4=Ja% ��"Grid options":I%!4=Na% ��"3d file":I%!4=qa% ��"About":I%!4=Ub% ��"Selected":I%!4=sa% ��"Print":I%!4=Jb% ��"Fractal":I%!4=Pa% �!�"Record":I%!4=ta%:�Qa%�?I%=1 ��"Show":?I%=2 ��"Point":�Eb%=0�?I%=1 ��"Fast":�Rb%�?I%=1 �$�"Extended":�Eb%=1�?I%=1:Xb%=129 ��"Show grid":�Za%�?I%=1 ��"Snap to grid":�za%�?I%=1 �P�"Project":I%!4=Tb%+500:�n(I%!4,"Project","About,Save,Print,Clear,Default,") �O�"Grid":I%!4=Tb%+700:�n(I%!4,"Grid","Show grid,Snap to grid,Grid options,") �U�"World":I%!4=Tb%+900:?I%=2:�n(I%!4,"World","Background...,Link...,Surfaces...,") �n�"Select":I%!4=Tb%+1100:�n(I%!4,"Select","Select all,Clear ,Hide,Show,Group,Delete,Rotate,Scale,Fractal,") �<�"Type":I%!4=Tb%+1400:�n(I%!4,"Type:","Point,Extended,") �J�"Clear":I%!4=Tb%+1500:�n(I%!4,"Clear","Lights,Surfaces,Objects,All,") �5�"Scale":I%!4=Tb%+1700:�n(I%!4," Scale % ","@@,") �>�"Macro":I%!4=Tb%+1800:�n(I%!4," Macro ","Record,Stop,") �@�"Lights ":I%!4=Tb%+2000:�n(I%!4,"Lights","Type,Modify...,") �D�"Save":I%!4=Tb%+2300:�n(I%!4," Save: ","3d file,Selected,") �@�"Group":I%!4=Tb%+2500:�n(I%!4," Group ","Group ,Ungroup,") �P�"Zoom":I%!4=Tb%+2700:�n(I%!4," Zoom % ","100,200,300,400,500,600,700,800,") �?�"Default":I%!4=Tb%+3200:�n(I%!4," Default ","Load,Save ,") �� �9:I%!8=&7000021:�$(I%+12)="Fractal"�O%=0�I%!8=&7400021 �+�$(I%+12)="Selected"�O%=0�I%!8=&7400021 �(�$(I%+12)="Group"�O%=0�I%!8=&7400021 �)�$(I%+12)="Clear "�O%=0�I%!8=&7400021 �'�$(I%+12)="Hide"�O%=0�I%!8=&7400021 �'�$(I%+12)="Show"�O%=0�I%!8=&7400021 �)�$(I%+12)="Select"�d%=0�I%!8=&7400021 �,�$(I%+12)="Modify..."�`%=0�I%!8=&7400021 �*�$(I%+12)="Rename"�O%<>1�I%!8=&7400021 �)�$(I%+12)="Rotate"�O%=0�I%!8=&7400021 �)�$(I%+12)="Delete"�O%=0�I%!8=&7400021 �(�$(I%+12)="Scale"�O%=0�I%!8=&7400021 �'�$(I%+12)="Copy"�O%=0�I%!8=&7400021 ��$(I%+12)="@@"� �>$Sb%="":Xb%=132:I%!8=&7000121:I%!12=Sb%:I%!16=Yb%:I%!20=21 � -I%+=24:�m$="":!(I%-24)=Xb%:M%!16=Bb%*16:� g��M(X%,Y%,Q):�s$,M%,I%,Bb%,Vb%,Wb%:la%=Q:M%=Tb%:M%!12=459271:�Q=3�$M%=" Lights "�$M%=" Surfaces " 0M%!20=44:M%!24=0:I%=M%+28:Bb%=8:�Q=3��F=1�`% �Q=4��F=1�oa% "�Q=3�s$=b$(F)�s$=$(V%+F*40-40) MA%=�(s$):I%!12=(Zb%+F*21)-21:$(Zb%+F*21-21)=s$:I%!16=21:�A%+1>Bb%Bb%=A%+1 i!I%=0:I%!4=0:I%!8=&7000121:I%+=24:�:I%!-24=128:M%!16=Bb%*16:ș"Wimp_CreateMenu",,Tb%,X%-Tb%!16/2,Y%:� W��Da(_b%):�C,O,`b%,ac%,bc%,cc%:ș"Wimp_CreateMenu",-1:ș655680�;F%:�F%�1��17,a$(23) 6ș"Hourglass_On":C=�("Printer:"):�:��:��:�#C:�Ha $kș"PDriver_SelectJob",C,"Ray3d Printout"�O:�:��:��:ș"PDriver_AbortJob",C:ș"PDriver_SelectJob",O:�Ha )�ș"PDriver_PageSize"�,,,`b%,cc%,ac%,bc%::dc%!0=1*2^16:dc%!12=1*2^16:dc%!4=0:dc%!8=0:ec%!0=0:ec%!4=0:ec%!8=u%:ec%!12=u%:fc%!0=((ac%-`b%-(u%*400))/2)+`b%:fc%!4=((bc%-cc%-(u%*400))/2)+cc%:gc%=-256 4�ș"PDriver_GiveRectangle",_b%,ec%,dc%,fc%,gc%:ș"PDriver_DrawPage",_b%,hc%,0,0�k%,,ic%:ȕk%:�Ia(ic%):ș"PDriver_GetRectangle",,ec%�k%,,ic%:�:ș"PDriver_EndJob",C:�� <ș"PDriver_SelectJob",O:�� >�#C:ș"Hourglass_Off":� A#��Ha:ș"Hourglass_Smash":�<>1� E�17,�$+" (line "+Þ+")" G�:�1,�$+" (line "+Þ+")" I� I� J!��Ia(_b%):ȓ0,0,u%,u%:�_b%=4� Nh%=0:j%=u%:�Ja(7) Q>�:db%+=1:E%=2:F%=_b%-1:!ca=0:!da=u%:!ea=7:!fa=7:G%=xa%:�ga V� V� Wh��ca(W%):�k%,h%,j%,Fa%:!b%=W%:ș"Wimp_RedrawWindow",,b%�k%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȕk%:ȎW%� `�ga%,ha%,ia%:�Ka b�a%(0),a%(1),a%(2):�La c�pa%:�Ja(0) d��ma%:�d(11):ȓȐh%+146,j%-108,3.36*i%(0),20:�d(10):ȓȐh%+146,j%-148,3.36*i%(1),20:�d(8):ȓȐh%+146,j%-188,3.36*i%(2),20:�z(i%(0),i%(1),i%(2)):ȓȐh%+50,j%-188,54,102 j��na%:�d(11):ȓȐh%+48,j%-516,3.12*h%(0),32:�d(10):ȓȐh%+48,j%-568,3.12*h%(1),32:�d(8):ȓȐh%+48,j%-620,3.12*h%(2),32:�z(h%(0),h%(1),h%(2)):ȓȐh%+48,j%-672,426,32 p��Ia%:�d(11):ȓȐh%+132,j%-64,4.5*g%(0),28:�d(10):ȓȐh%+132,j%-118,4.5*g%(1),28:�d(8):ȓȐh%+132,j%-176,4.5*g%(2),28:�z(g%(0),g%(1),g%(2)):ȓȐh%+472,j%-268,112,60 v� v$ș"Wimp_GetRectangle",,b%�k%:�:� y!��d(A):ș"Wimp_SetColour",A:� }x��z(jc%,kc%,lc%):�Fa%:jc%=jc%*2.56:kc%=kc%*2.56:lc%=lc%*2.56:Fa%=(lc%<<24)+(kc%<<16)+(jc%<<8):ș264003,Fa%,0,0,0,0:� ���Ka:�N,F,A$:ȎW%� �:�ga%:B%=h%+16:C%=j%-8:D%=V%:E%=oa%:F%=0:�E%>oa%�E%=oa% �P�d(2):ȓȐh%,j%-(Ta%)*36,348,34:ȓȐh%,j%-(Ua%)*36,348,34:�d(7):�oa%<>0��mc% ��ha%:N=0:nc%=36:�Wa%=0� ��U%<>0� �1�d(11):�F=1�U%:A$=$�d(F):�(A$)>18�A$=�A$,18) �>A$=A$+�19-�(A$)," ")+"*":�-_%=F��d(2):ȓȐh%,j%-nc%,348,34 �)�h%+16,j%+28-nc%:�d(11):�A$:nc%+=36:� �� � ȕN<d%:N+=1:�$�a(N),">")=0� � �_%=N� ��d(2):ȓȐh%,j%-nc%,348,34 �� �*�d(7):�h%+16,j%+28-nc%:�$�a(N):nc%+=36 �� �� �2�:�N=1�d%:a$=$�a(N):�a$,�a$,">")-1)=$�d(Wa%)� � �N=_%� ��d(2):ȓȐh%,j%-nc%,348,34 �� �7�d(7):�h%+16,j%+28-nc%:��a$,�(a$)-�a$,">")):nc%+=36 �� �� �� ��ia%:N=0:nc%=36:�fa%=0� ��U%<>0� �1�d(11):�F=1�U%:A$=$�d(F):�(A$)>18�A$=�A$,18) �;A$=A$+�19-�(A$)," ")+"*":�h%+16,j%+28-nc%:�A$:nc%+=36:� �� � ȕN<d%:N+=1:�$�a(N),">")=0� � �K%?N� ��d(2):ȓȐh%,j%-nc%,348,34 �� ��Ya%?N=1��d(8)��d(7) �$�h%+16,j%+28-nc%:�$�a(N):nc%+=36 �� �� �2�:�N=1�d%:a$=$�a(N):�a$,�a$,">")-1)=$�d(fa%)� � �K%?N� ��d(2):ȓȐh%,j%-nc%,348,34 �� ��Ya%?N=1��d(8)��d(7) �1�h%+16,j%+28-nc%:��a$,�(a$)-�a$,">")):nc%+=36 �� �� �� �� �� �0��Fa(C%):�k%,A%,B%:�g%(I%)<>C%�C%>=0�C%<101� �}�b(Ia%,6+I%,�(C%)):g%(I%)=C%:!b%=W%:b%!4=132:b%!8=-264:b%!12=590:b%!16=-32:ș"Wimp_UpdateWindow",,b%�k%:ȕk%:�I%=0��d(11) ��I%=1��d(10) ��I%=2��d(8) �A%=4.5*g%(I%):B%=4.5*100-A%:ȓȐh%+132,j%-I%*56-64,A%,28:�d(1):ȓȐh%+132+A%,j%-I%*56-64,B%,28:�z(g%(0),g%(1),g%(2)):ȓȐh%+472,j%-268,112,60:ș"Wimp_GetRectangle",,b%�k%:� �� �� �2��Ga(C%):�k%,A%,B%:�i%(I%-5)<>C%�C%>=0�C%<101� �ki%(I%-5)=C%:!b%=W%:b%!4=48:b%!8=-192:b%!12=486:b%!16=-80:ș"Wimp_UpdateWindow",,b%�k%:ȕk%:�I%=5��d(11) ��I%=6��d(10) ��I%=7��d(8) �A%=3.36*i%(I%-5):B%=3.36*100-A%:ȓȐh%+146,j%+92-I%*40,A%,20:�d(1):ȓȐh%+146+A%,j%+92-I%*40,B%,20:�z(i%(0),i%(1),i%(2)):ȓȐh%+50,j%-188,54,102:�b(ma%,I%+3,�C%):ș"Wimp_GetRectangle",,b%�k%:� � � 0��Ma(C%):�k%,A%,B%:�h%(I%)<>C%�C%>=0�C%<101� jh%(I%)=C%:!b%=W%:b%!4=48:b%!8=-676:b%!12=472:b%!16=-484:ș"Wimp_UpdateWindow",,b%�k%:ȕk%:�I%=0��d(11) �I%=1��d(10) �I%=2��d(8) �A%=3.12*h%(I%):B%=3.12*100-A%:ȓȐh%+48,j%-I%*52-516,A%,30:�d(1):ȓȐh%+48+A%,j%-I%*52-516,B%,30:�z(h%(0),h%(1),h%(2)):ȓȐh%+50,j%-672,422,30:�b(na%,I%+1,�(h%(I%))+"%"):ș"Wimp_GetRectangle",,b%�k%:� � � q��a(oc%,x%,y%,z%):x%-=20000:y%-=20000:z%-=20000:x%=x%*a/8:y%=y%*a/8:z%=z%*a/8:�W%=a%(1)��oc%,h%+y%,j%+z%-u%*a $#�W%=a%(0)��oc%,h%+x%,j%+z%-u%*a %#�W%=a%(2)��oc%,h%+x%,j%+y%-u%*a &� '���Ea(I%):�X,Y,Z,Mb%,Nb%,h%,j%,Db%:!b%=na%:ș"Wimp_GetWindowState",,b%:h%=b%!4-b%!20:j%=(b%!16-b%!24):ȗX,Y,Z:X=X-h%-48:�Ma((X/312)*100):� /���j(x%,y%,z%,m%,pc%):�c,e:c=�(�(m%!32)):e=�(�(m%!32)):A=x%:B=y%:C=z%:y%=B*e-C*c:z%=B*c+C*e:c=�(�(m%!36)):e=�(�(m%!36)):A=x%:B=y%:C=z%:x%=A*e+C*c:z%=C*e-A*c:c=�(�(m%!40)):e=�(�(m%!40)):A=x%:B=y%:C=z%:x%=A*e-B*c:y%=A*c+B*e 8O!(m%+32+pc%*12)=x%+m%!8:!(m%+36+pc%*12)=y%+m%!12:!(m%+40+pc%*12)=z%+m%!16:� <���t(x,y,z,u,v,w,D,E,G,P):c=�(�(-D)):e=�(�(-D)):A=x:B=y:C=z:y=B*e-C*c:z=B*c+C*e:c=�(�(-G)):e=�(�(-G)):A=x:B=y:C=z:x=A*e+C*c:z=C*e-A*c:c=�(�(-E)):e=�(�(-E)):A=x:B=y:C=z:x=A*e-B*c:y=A*c+B*e:�P=1� F)c%!u=x+c%!8:c%!v=y+c%!12:c%!w=z+c%!16 J,�:c%!u=x+c%!20:c%!v=y+c%!24:c%!w=z+c%!28 N� N� O���x(x,y,z,u,v,w,D,E,G,P):c=�(�(-E)):e=�(�(-E)):A=x:B=y:C=z:x=A*e-B*c:y=A*c+B*e:c=�(�(-G)):e=�(�(-G)):A=x:B=y:C=z:x=A*e+C*c:z=C*e-A*c:c=�(�(-D)):e=�(�(-D)):A=x:B=y:C=z:y=B*e-C*c:z=B*c+C*e:�P=1� X)c%!u=x+c%!8:c%!v=y+c%!12:c%!w=z+c%!16 \,�:c%!u=x+c%!20:c%!v=y+c%!24:c%!w=z+c%!28 `� `� a���y(x,y,z,u,v,w,D,E,G,P):c=�(�(-E)):e=�(�(-E)):A=x:B=y:C=z:x=A*e-B*c:y=A*c+B*e:c=�(�(-D)):e=�(�(-D)):A=x:B=y:C=z:y=B*e-C*c:z=B*c+C*e:c=�(�(-G)):e=�(�(-G)):A=x:B=y:C=z:x=A*e+C*c:z=C*e-A*c:�P=1� j)c%!u=x+c%!8:c%!v=y+c%!12:c%!w=z+c%!16 n,�:c%!u=x+c%!20:c%!v=y+c%!24:c%!w=z+c%!28 r� r� s+��g:�s%:s%=0:�Aa%>1000�s%=Aa%:Aa%-=1000 w+c%=xa%+H%-4:�d((e%(1)�e%(5))+48):Ȏwa%� z0�1:�a(4,c%!8,c%!12,c%!16):�145,(c%!20)*a/8,0 ~�2:�ha,ia,l,N,H,I,J:�Ba%=1� �2�a(4,c%!8,c%!12,c%!16):�a(5,c%!20,c%!24,c%!28) �� ��Ba%=2� ���Z(c%,2):�a(4,c%!124,c%!128,c%!132):�N=1�8:�a(5,!(c%+N*12+28),!(c%+N*12+32),!(c%+N*12+36)):�:�N=1�8:�a(4,!(c%+N*12+28),!(c%+N*12+32),!(c%+N*12+36)):�a(5,!(c%+20),!(c%+24),!(c%+28)):� �� ��Ba%=3� ���Z(c%,3):�a(4,c%!124,c%!128,c%!132):�N=1�8:�a(5,!(c%+N*12+28),!(c%+N*12+32),!(c%+N*12+36)):�:�a(4,c%!220,c%!224,c%!228):�N=1�8:�a(5,!(c%+N*12+124),!(c%+N*12+128),!(c%+N*12+132)):�:�N=1�8 �h�a(4,!(c%+N*12+28),!(c%+N*12+32),!(c%+N*12+36)):�a(5,!(c%+N*12+124),!(c%+N*12+128),!(c%+N*12+132)):� �� ��3:�ha,ia,l,N,H,I,J:�Ba%=1� �2�a(4,c%!8,c%!12,c%!16):�a(5,c%!20,c%!24,c%!28) ���:�va(c%):H=c%!20-c%!8:I=c%!24-c%!12:J=c%!28-c%!16:�a(4,c%!120,c%!124,c%!128):�N=1�8:�a(5,!(c%+N*12+24),!(c%+N*12+28),!(c%+N*12+32)):�:�a(4,c%!120+H,c%!124+I,c%!128+J):�N=1�8 ���a(5,!(c%+N*12+24)+H,!(c%+N*12+28)+I,!(c%+N*12+32)+J):�:�N=1�8:�a(4,!(c%+N*12+24),!(c%+N*12+28),!(c%+N*12+32)):�a(5,!(c%+N*12+24)+H,!(c%+N*12+28)+I,!(c%+N*12+32)+J):� �� ���4,32:�x,y,z,f,g,h:x=c%!8:y=c%!12:z=c%!16:f=c%!20:g=c%!24:h=c%!28:�a(4,x-f,y-g,z-h):�a(5,x-f,y+g,z-h):�a(5,x+f,y+g,z-h):�a(5,x+f,y-g,z-h):�a(5,x-f,y-g,z-h):�a(4,x-f,y-g,z-h):�a(5,x-f,y-g,z+h) ���a(5,x+f,y-g,z+h):�a(5,x+f,y-g,z-h):�a(5,x-f,y-g,z-h):�a(4,x+f,y-g,z-h):�a(5,x+f,y-g,z+h):�a(5,x+f,y+g,z+h):�a(5,x+f,y+g,z-h):�a(5,x+f,y-g,z-h) �%�5,6:�F,P:�23,6,240,0,0,0,0,0,0,0 ��wa%=5�P=21�P=5 �L�a(4,c%!44,c%!48,c%!52):�F=1�4:�a(P,c%!(F*12-4),c%!(F*12),c%!(F*12+4)):� �T�7:�a(4,c%!8,c%!12,c%!16):�a(5,c%!20,c%!24,c%!28):�Aa%>2��a(5,c%!32,c%!36,c%!40) �!�Aa%>2��a(5,c%!8,c%!12,c%!16) �T�8:�a(4,c%!12,c%!16,c%!20):�N=2�Aa%:�a(5,!(c%+N*12),!(c%+N*12+4),!(c%+N*12+8)):� ���16:x%=c%(`%+1,1):y%=c%(`%+1,2):z%=c%(`%+1,3):i%=c%(`%+1,4)*2:�a(4,x%-i%,y%,z%):�a(5,x%+i%,y%,z%):�a(4,x%,y%-i%,z%):�a(5,x%,y%+i%,z%):�a(4,x%,y%,z%-i%):�a(5,x%,y%,z%+i%):�a(4,x%-i%,y%,z%):�a(5,x%,y%+i%,z%) ���a(5,x%+i%,y%,z%):�a(5,x%,y%-i%,z%):�a(5,x%-i%,y%,z%):�a(4,x%-i%,y%,z%):�a(5,x%,y%,z%+i%):�a(5,x%+i%,y%,z%):�a(5,x%,y%,z%-i%):�a(5,x%-i%,y%,z%):�a(4,x%,y%,z%-i%):�a(5,x%,y%+i%,z%):�a(5,x%,y%,z%+i%):�a(5,x%,y%-i%,z%):�a(5,x%,y%,z%-i%) ��24:�F,P:�c%!32-c%!8=0�P=1 ��c%!36-c%!12=0�P=0 ��c%!40-c%!16=0�P=2 ��W%=a%(P)� �L�a(4,c%!44,c%!48,c%!52):�F=1�4:�a(5,c%!(F*12-4),c%!(F*12),c%!(F*12+4)):� �Q�:�a(4,c%!8,c%!12,c%!16):�F=1�2:�a(5,c%!(F*12+8),c%!(F*12+12),c%!(F*12+16)):� �� �+�Ba%=2�(c%!56<>l%�c%!60<>n%�c%!64<>q%)� ��W%=a%(P)� �L�F=1�4:�a(4,c%!56,c%!60,c%!64):�a(5,c%!(F*12-4),c%!(F*12),c%!(F*12+4)):� �d�:�a(4,c%!56,c%!60,c%!64):�a(5,c%!8,c%!12,c%!16):�a(4,c%!56,c%!60,c%!64):�a(5,c%!32,c%!36,c%!40) �� �� ��25:�W%=a%(c%!36)� �-�a(4,c%!8,c%!12,c%!16):�145,(c%!32)*a/8,0 �� �� ��s%>1000�Aa%=s% �� �#��G:�d((e%(1)�e%(5))+48):Ȏwa%� �1�14:�a(4,l%,n%,q%):�a(5,t%(93),t%(94),t%(95)) [�30:�a(4,l%,n%,q%):�a(5,t%(83),t%(84),t%(85)):�a(4,l%,n%,q%):�a(5,t%(93),t%(94),t%(95)) � � ���oa:�qc%,rc%,sc%:t%(93)-=l%:t%(94)-=n%:t%(95)-=q%:t%(83)-=l%:t%(84)-=n%:t%(85)-=q%:qc%=(t%(93)<>t%(83)):rc%=(t%(94)<>t%(84)):sc%=(t%(95)<>t%(85)):�qc%+rc%+sc%=0�� �qc%+rc%+sc%=-3��17,a$(24) Xș"Hourglass_On":Ka%=0:La%=0:Ma%=0:�t%(80)=a%(2)�Ma%=�j(t%(93),t%(94),t%(83),t%(84)) 5�t%(80)=a%(0)�La%=�j(t%(83),t%(85),t%(93),t%(95)) 5�t%(80)=a%(1)�Ka%=�j(t%(85),t%(84),t%(95),t%(94)) �N=1�d%:�K%?N��H(N) R�:ș"Hourglass_Off":�b(Ja%,11,�(Ka%)):�b(Ja%,12,�(La%)):�b(Ja%,13,�(Ma%)):�e:� 2ݤj(ja,ka,la,ma):�A,K,L:A=�(ja^2+ka^2):�A=0�=0 !K=�(�(ka/A)):�ja<0�K=180-K "A=�(la^2+ma^2):�A=0�=0 #L=�(�(ma/A)):�la<0�L=180-L $�(L-K)<0�=360+L-K�=L-K %i��Ca:�W,e%,f$,c$,p$,Q:�W=1��(�b(Oa%,4)):ș"Hourglass_On":e%=�(k$):f$=�k(e%):ȕf$<>"Stop":�f$," ")>0� 0,c$=�f$,�f$," ")-1):p$=�f$,�(f$)-�(c$)-1) 3�:c$=f$:p$="" 5� 5 Ȏc$� 6��"Rotate":Ka%=�(�p$,�p$," ")-1)):p$=�p$,�(p$)-�p$," ")):La%=�(�p$,�p$," ")-1)):p$=�p$,�(p$)-�p$," ")):Ma%=�(p$):�Q=1�d%:�K%?Q��H(Q) >� @�"Scale":�`(�(p$)/100) B'�"Select":K%?(�e(p$))=1-K%?(�e(p$)) D�"Copy":�za E��"Move":t%(93)=�(�p$,�p$," ")-1))+l%:p$=�p$,�(p$)-�p$," ")):t%(94)=�(�p$,�p$," ")-1))+n%:p$=�p$,�(p$)-�p$," ")):t%(95)=�(p$)+q%:�Y L� L;f$=�k(e%):�:�#e%:ș"Hourglass_Off":�:�o(Oa%):�i:�e:�h:� VFݤk(e%):�s$,v%:s$="":v%=�#e%:ȕv%>31��(�#e%):s$+=�v%:v%=�#e%:�:=s$ b���Ja(Fa%):�N,i%,F,Q,r%,g%,b%:�k,m,j,l,d,tc%,na,oa,pa:�uc%,vc%,wc%:q=f%(1)-b%(1):n=f%(2)-b%(2):o=f%(3)-b%(3):d=�(n^2+o^2):l=�(n^2+o^2+q^2)::tc%=0:p%!0=b%(1):p%!4=b%(2):p%!8=b%(3)+1000:�r(p%,p%) m�tc%=�j(0,1000,p%!0-b%(1),p%!4-b%(2)):p%!0=f%(1):p%!4=f%(2):p%!8=f%(3):�r(p%,p%):k=p%!0:m=p%!4:j=p%!8:uc%=640-((k-20000)>>6)+h%:vc%=512-((m-20000)>>6)+j%-976::i%=xa%:�N=1�d%:F=0:�:p%!F=!i%:F+=4:i%+=4:�!i%<0:Ȏ!p%� x�-1:�r(p%+8,p%+32) z�-2:�r(p%+8,p%+8) {!�-3:�r(p%+12,p%+(p%!8*12)+12) |��-4:na=p%!20-p%!8:oa=p%!24-p%!12:pa=p%!28-p%!16:�Q=36�120�12:!(p%+Q+96)=!(p%+Q)+na:!(p%+Q+100)=!(p%+Q+4)+oa:!(p%+Q+104)=!(p%+Q+8)+pa:�:�r(p%+36,p%+216) ��-5:�r(p%+40,p%+220) ��-6,-10:�r(p%+44,p%+128) ��-7:�r(p%+8,p%+44) ��-8:�r(p%+8,p%+44) ��-9:�r(p%+8,p%+56) �� ��xc%�!(J%+N*20-20)>0� ��r%=?(V%+40*(!(J%+N*20-20))-17)*2.55:g%=?(V%+40*(!(J%+N*20-20))-16)*2.55:b%=?(V%+40*(!(J%+N*20-20))-15)*2.55:wc%=(b%<<24)+(g%<<16)+(r%<<8):�r%<48�g%<48�b%<48� � �d(6) �%�:ș"ColourTrans_SetGCOL",wc%,0,0 �� � �:�d(Fa%) �� ���Na(!p%):�:�d(9):�N=1�`%:!p%=1:r%=c%(N,1):g%=c%(N,2):b%=c%(N,3):i%=c%(N,4)*2:p%!8=r%-i%:p%!12=g%:p%!16=b%:p%!20=r%+i%:p%!24=g%:p%!28=b%:p%!32=r%:p%!36=g%-i%:p%!40=b%:p%!44=r%:p%!48=g%+i%:p%!52=b% �[p%!56=r%:p%!60=g%:p%!64=b%-i%:p%!68=r%:p%!72=g%:p%!76=b%+i%:�r(p%+8,p%+68):�Na(!p%):�:� �,��r(S%,E%):�N%,x,y,z:�N%=S%�E%�12:�d<>0� �dx=N%!0-b%(1):y=N%!4-b%(2):z=N%!8-b%(3):N%!4=((y*o�d)-(z*n�d))+b%(2):N%!8=((y*n�d)+(z*o�d))+b%(3) �� � �l<>0� �dx=N%!0-b%(1):y=N%!4-b%(2):z=N%!8-b%(3):N%!0=((x*d�l)-(z*q�l))+b%(1):N%!8=((z*d�l)+(x*q�l))+b%(3) �� �rx=N%!0-b%(1):y=N%!4-b%(2):z=N%!8-b%(3):c=�(�(-tc%)):e=�(�(-tc%)):N%!0=(x*e-y*c)+b%(1):N%!4=(x*c+y*e)+b%(2):�:� ���Na(wb%):�T,r:Ȏwb%� ���1:�c(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):�c(5,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):�c(5,p%!56,p%!60,p%!64,p%!68,p%!72,p%!76):�c(5,p%!8,p%!12,p%!16,p%!44,p%!48,p%!52):�c(5,p%!44,p%!48,p%!52,p%!20,p%!24,p%!28) ���c(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):�c(5,p%!32,p%!36,p%!40,p%!8,p%!12,p%!16):�c(5,p%!8,p%!12,p%!16,p%!68,p%!72,p%!76):�c(5,p%!68,p%!72,p%!76,p%!20,p%!24,p%!28):�c(5,p%!20,p%!24,p%!28,p%!56,p%!60,p%!64) ���c(5,p%!56,p%!60,p%!64,p%!8,p%!12,p%!16):�c(5,p%!32,p%!36,p%!40,p%!68,p%!72,p%!76):�c(5,p%!68,p%!72,p%!76,p%!44,p%!48,p%!52):�c(5,p%!44,p%!48,p%!52,p%!56,p%!60,p%!64):�c(5,p%!56,p%!60,p%!64,p%!32,p%!36,p%!40) �-1:�c(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):�c(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):�c(5,p%!32,p%!36,p%!40,p%!8,p%!12,p%!16) �[�-2:�c(4,p%!8,p%!12,p%!16,p%!8,p%!12,p%!16):r=p%!20�((p%!16-j)>>9):�p%!16<=j��145,(r),0 Ս�-3:�T=p%+12�p%+(p%!8)*12�12:�c(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):�:T=p%+(p%!8)*12:�c(5,p%!12,p%!16,p%!20,!(T),!(T+4),!(T+8)) ܾ�-4:�c(5,p%!36,p%!40,p%!44,p%!120,p%!124,p%!128):�T=p%+36�p%+108�12:�c(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):�:�c(5,p%!132,p%!136,p%!140,p%!216,p%!220,p%!224):�T=p%+132�p%+204�12 �~�c(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):�:�T=p%+36�p%+120�12:�c(5,!(T),!(T+4),!(T+8),!(T+96),!(T+100),!(T+104)):� ��-5:�c(5,p%!40,p%!44,p%!48,p%!124,p%!128,p%!132):�T=p%+40�p%+112�12:�c(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):�:�c(5,p%!136,p%!140,p%!144,p%!220,p%!224,p%!228):�T=p%+136�p%+208�12 �~�c(5,!(T),!(T+4),!(T+8),!(T+12),!(T+16),!(T+20)):�:�T=p%+40�p%+124�12:�c(5,!(T),!(T+4),!(T+8),!(T+96),!(T+100),!(T+104)):� ���-6,-10:�c(5,p%!44,p%!48,p%!52,p%!80,p%!84,p%!88):�c(5,p%!44,p%!48,p%!52,p%!56,p%!60,p%!64):�c(5,p%!56,p%!60,p%!64,p%!68,p%!72,p%!76):�c(5,p%!68,p%!72,p%!76,p%!80,p%!84,p%!88):�c(5,p%!92,p%!96,p%!100,p%!128,p%!132,p%!136) ���c(5,p%!92,p%!96,p%!100,p%!104,p%!108,p%!112):�c(5,p%!104,p%!108,p%!112,p%!116,p%!120,p%!124):�c(5,p%!116,p%!120,p%!124,p%!128,p%!132,p%!136):�T=p%+44�p%+80�12:�c(5,!(T),!(T+4),!(T+8),!(T+48),!(T+52),!(T+56)):� ��-7:�c(21,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):�c(21,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):�c(21,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):�c(21,p%!44,p%!48,p%!52,p%!8,p%!12,p%!16) ��-8:�c(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):�c(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):�c(5,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):�c(5,p%!44,p%!48,p%!52,p%!8,p%!12,p%!16) ��-9:�c(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):�c(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):�c(5,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):�c(5,p%!44,p%!48,p%!52,p%!8,p%!12,p%!16):�c(5,p%!56,p%!60,p%!64,p%!8,p%!12,p%!16) ��c(5,p%!8,p%!12,p%!16,p%!20,p%!24,p%!28):�c(5,p%!20,p%!24,p%!28,p%!56,p%!60,p%!64):�c(5,p%!56,p%!60,p%!64,p%!20,p%!24,p%!28):�c(5,p%!20,p%!24,p%!28,p%!32,p%!36,p%!40):�c(5,p%!32,p%!36,p%!40,p%!56,p%!60,p%!64) ��c(5,p%!56,p%!60,p%!64,p%!32,p%!36,p%!40):�c(5,p%!32,p%!36,p%!40,p%!44,p%!48,p%!52):�c(5,p%!44,p%!48,p%!52,p%!56,p%!60,p%!64):�c(5,p%!56,p%!60,p%!64,p%!44,p%!48,p%!52):�c(5,p%!44,p%!48,p%!52,p%!8,p%!12,p%!16) ,�c(5,p%!8,p%!12,p%!16,p%!56,p%!60,p%!64) � � 7��c(a%,yc%,zc%,Ac%,Bc%,Cc%,Dc%):�s:�Ac%>=j�Dc%>=j�� :�Ac%>=j� "Vs=(j-Ac%)/(Dc%-Ac%)+.1:yc%=yc%+(Bc%-yc%)*s:zc%=zc%+(Cc%-zc%)*s:Ac%=Ac%+(Dc%-Ac%)*s (� (�Dc%>=j� )Vs=(j-Dc%)/(Ac%-Dc%)+.1:Bc%=Bc%+(yc%-Bc%)*s:Cc%=Cc%+(zc%-Cc%)*s:Dc%=Dc%+(Ac%-Dc%)*s /� /:�Ac%-j<>0� 1?yc%=((k*Ac%)-(j*yc%))�(Ac%-j):zc%=((m*Ac%)-(j*zc%))�(Ac%-j) 4� 4�Dc%-j<>0� 5?Bc%=((k*Dc%)-(j*Bc%))�(Dc%-j):Cc%=((m*Dc%)-(j*Cc%))�(Dc%-j) 8� 8xyc%=(yc%-20000)>>6:zc%=(zc%-20000)>>6:Bc%=(Bc%-20000)>>6:Cc%=(Cc%-20000)>>6:�4,yc%+uc%,zc%+vc%:�a%,Bc%+uc%,Cc%+vc%:� =`��Ba:�Q%,A:qa=�(�b(W%,2))*.05+.05:ș"Hourglass_On":Q%=xa%:A=0:ȕ!Q%<>-256:A+=1:�!Q%=-1�K%?A� G�d%+(4^Ib%)>Sa%� H �17,a$(7) J� J�q$=$�a(A)+" *":Hb%=0:q=((Q%!24-Q%!12)*(Q%!40-Q%!16)-(Q%!28-Q%!16)*(Q%!36-Q%!12))/1000:n=((Q%!28-Q%!16)*(Q%!32-Q%!8)-(Q%!20-Q%!8)*(Q%!40-Q%!16))/1000:o=((Q%!20-Q%!8)*(Q%!36-Q%!12)-(Q%!24-Q%!12)*(Q%!32-Q%!8))/1000 O@�D(Q%!8,Q%!12,Q%!16,Q%!20,Q%!24,Q%!28,Q%!32,Q%!36,Q%!40,Ib%) Q� Q2�:Q%+=4:�!Q%<0:�::�S:�e:�h:ș"Hourglass_Off":� Y[��D(Ec%,Fc%,Gc%,Hc%,Ic%,Jc%,Kc%,Lc%,Mc%,R):�Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%,Uc%,Vc%,r:�R=0� ]3Hb%+=1:�Oa(Ec%,Fc%,Gc%,Hc%,Ic%,Jc%,Kc%,Lc%,Mc%) `��:Nc%=(Hc%+Ec%)/2:Oc%=(Ic%+Fc%)/2:Pc%=(Jc%+Gc%)/2:r=�(-(Nc%+Oc%+Pc%)/3):r=0:�P=1�10:r=r+�(100):�:r=(r/10)/50-1:r=r*qa/4:Nc%+=q*r:Oc%+=n*r:Pc%+=o*r::Qc%=(Kc%+Hc%)/2:Rc%=(Lc%+Ic%)/2:Sc%=(Mc%+Jc%)/2:r=�(-(Qc%+Rc%+Sc%)/3) h�r=0:�P=1�10:r=r+�(100):�:r=(r/10)/50-1:r=r*qa/4:Qc%+=q*r:Rc%+=n*r:Sc%+=o*r::Tc%=(Kc%+Ec%)/2:Uc%=(Lc%+Fc%)/2:Vc%=(Mc%+Gc%)/2:r=�(-(Tc%+Uc%+Vc%)/3):r=0:�P=1�10:r=r+�(100):�:r=(r/10)/50-1:r=r*qa/4 p�Tc%+=q*r:Uc%+=n*r:Vc%+=o*r::�D(Ec%,Fc%,Gc%,Nc%,Oc%,Pc%,Tc%,Uc%,Vc%,R-1):�D(Hc%,Ic%,Jc%,Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,R-1):�D(Kc%,Lc%,Mc%,Tc%,Uc%,Vc%,Qc%,Rc%,Sc%,R-1):�D(Nc%,Oc%,Pc%,Qc%,Rc%,Sc%,Tc%,Uc%,Vc%,R-1) w� w� x���Oa(yc%,zc%,Ac%,Bc%,Cc%,Dc%,Wc%,Xc%,Yc%):�c%,N:c%=xa%+H%-4:c%!0=-1:c%!44=-256:H%+=44:c%!8=yc%:c%!12=zc%:c%!16=Ac%:c%!20=Bc%:c%!24=Cc%:c%!28=Dc%:c%!32=Wc%:c%!36=Xc%:c%!40=Yc%:d%+=1:N=d%:c%!4=0:K%?N=0:Ya%?N=0 �b!(J%+N*20)=0:!(J%+N*20+4)=0:!(J%+N*20+8)=0:!(J%+N*20+12)=0:!(J%+N*20+16)=0:$�a(d%)=q$+�(Hb%):� ����Pa:�t%:ș"OS_ReadMemMapInfo"�Zc%:_c%=Zc%:ș"Wimp_SlotSize",-1,-1�t%:`c%=t%+32768:ș"Wimp_SlotSize",`c%+_c%-32768,-1:ș"OS_Heap",0,`c%,,_c%:� �8ݤf(ad%):�a%:ș"XOS_Heap",2,`c%,,ad%�,,a%:�a%<>0�=a% ��s(ad%)=��=0 �3ș"XOS_Heap",2,`c%,,ad%�,,a%:�Qa:�a%=0��1,a$(2) �=a% �)ݤt(bd%):ș"OS_Heap",3,`c%,bd%:�Qa:=0 �Vݤs(ad%):�s%,f%:s%=�q(_c%+ad%):ș"XWimp_SlotSize",`c%+s%-32768,-1�;f%:�(f%�1)=1�=� �'ș"OS_Heap",5,`c%,,s%-_c%:_c%=s%:=� �B��Qa:�s%,t%:s%=_c%:ș"XOS_Heap",5,`c%,,-s%�,,,t%:�t%=-s%�t%=s% �W_c%=�q(_c%-t%):ș"XOS_Heap",5,`c%,,_c%-(s%-t%):ș"Wimp_SlotSize",`c%+_c%-32768,-1:� �ݤq(s%):�t%:�(s%�Zc%)<>0� �t%=Zc%-(s%�Zc%):s%+=t% �� �=s% ����aa:�b% 1536,Tb% 4000,cd% 8192:dd%=cd%+8192:�p% 1536:�mc% 4096:�ed% 18*1024,fc% 8,ec% 16,hc% 16,dc% 16:�Sb% 10,Yb% 10:�g%(2),h%(2):�b%(3),f%(3),e%(5),j%(5):�b$(10),c%(10,8),a%(2):�i%(2):c%()=0:�t%(100):�d%(4,4):�c$(6),k%(6):�a$(100) ��ș"OS_File",16,"<Ray$Dir>.code",mc%,0:ob%=�(�r("max_surfaces")):Sa%=�(�r("max_objects")):u%=1236::ga=mc%+2896:ra=mc%+64:sa=mc%+104:fa=mc%+156:ea=mc%+152:ta=mc%+160:ua=mc%+164:ca=mc%+144:da=mc%+148::k%(0)=1:c$()="" O%=0:Eb%=0:Rb%=0:ea%=328:rb%=0:Wa%=0:Fb%=0:$Sb%="":$Yb%="A0-9":ba%=0:ra%=0:Ka%=0:La%=0:Ma%=0:l%=24960:n%=24960:q%=24960:wa%=13:da%=0:Ta%=0:Ua%=0:_%=0:nb%=0:H%=4:Ca%=4:d%=0:U%=0:oa%=0 ��fa%=0:Aa%=0:`%=0:Kb%=1:Qa%=0:xc%=-1:Ib%=2:S=-1:ș"Wimp_Initialise",200,&4B534154,"Ray3d"�,fd%:�Pa:ș"OS_SpriteOp",266,ed%,"<Ray$Dir>.Sprites"::pb%=�f(50*Sa%):qb%=�f(25*Sa%):V%=�f(40*ob%):Zb%=�f(21*ob%) ��xa%=�f(200*Sa%):J%=�f(20*Sa%):K%=�f(Sa%):Ya%=�f(Sa%):!ta=K%:!ua=Ya%:!xa%=-256::�na:�Ra:�Sa:�qa:�b(ka%,6,o$):�C("<Ray$Dir>.Default"):�u($V%,0)::�N=0�20*Sa%�4:J%!N=0:�:�N=0�Sa%�4:Ya%!N=0:K%!N=0:�:�N=1�3:g$=�g$,�(g$)-�g$," ")):� �g$,"$")>0��C(g$) W:!b%=Na%:b%!4=18:b%!8=e%(4)<<28:b%!12=&F0000000:ș"Wimp_SetIconState",,b%:j%()=e%() *FX 163,242,8 � y��Ra:�M$,C,N:M$="":C=�("<Ray$Dir>.Messages"):ȕM$<>"End":M$=�k(C):�M$<>"End"�a$(�(�M$,�M$,":"))))=�M$,�(M$)-�M$,":")) �:�#C:� Fݤk(e%):�s$,v%:s$="":v%=�#e%:ȕv%>31��(�#e%):s$+=�v%:v%=�#e%:�:=s$ -��La:�db%,F,H,I,J:�23,6,240,0,0,0,0,0,0,0 �Za%� !k�d(e%(4)):C%=j%-u%*a:D%=h%:E%=h%+u%*a:F%=j%:G%=ya%*a:�ra:B%=h%:D%=j%:E%=j%-u%*a:F%=h%+u%*a:G%=ya%*a:�sa '� 'G!ca=h%:!da=j%:!ea=e%(0):!fa=e%(3):F%=0:G%=xa%:E%=a*2:�W%=a%(0)�F%=1 +�W%=a%(1)�F%=2 ,�ga::�f%(0)��Ta /�b%(0)��Ua 0 �`%>0��Va 1�Wa:�Ca%<>H%��g 3�wa%=14�O%<>0��G 4�wa%=30�O%<>0��G 5� 62��Ta:�d(11):�a(4,f%(1),f%(2),f%(3)):�145,8,0:� :���Ua:�d(11):�a(4,b%(1)-80/a,b%(2),b%(3)):�a(5,b%(1)+80/a,b%(2),b%(3)):�a(4,b%(1),b%(2)-80/a,b%(3)):�a(5,b%(1),b%(2)+80/a,b%(3)):�a(4,b%(1),b%(2),b%(3)-80/a):�a(5,b%(1),b%(2),b%(3)+80/a):� D;��Va:�N,F,x%,y%,z%,i%,gd%:�d(9):�23,6,128,0,0,0,0,0,0,0 Icgd%=5:�N=1�`%:x%=c%(N,1):y%=c%(N,2):z%=c%(N,3):i%=c%(N,4)*2::�F=1�c%(N,0)+1:�F=2�gd%=21:i%=i%*8 P��a(4,x%-i%,y%,z%):�a(gd%,x%+i%,y%,z%):�a(4,x%,y%-i%,z%):�a(gd%,x%,y%+i%,z%):�a(4,x%,y%,z%-i%):�a(gd%,x%,y%,z%+i%):�a(4,x%-i%,y%,z%):�a(gd%,x%,y%+i%,z%):�a(gd%,x%+i%,y%,z%):�a(gd%,x%,y%-i%,z%) U��a(gd%,x%-i%,y%,z%):�a(4,x%-i%,y%,z%):�a(gd%,x%,y%,z%+i%):�a(gd%,x%+i%,y%,z%):�a(gd%,x%,y%,z%-i%):�a(gd%,x%-i%,y%,z%):�a(4,x%,y%,z%-i%):�a(gd%,x%,y%+i%,z%):�a(gd%,x%,y%,z%+i%):�a(gd%,x%,y%-i%,z%):�a(gd%,x%,y%,z%-i%):�:�:� ^���Wa:�d(e%(2)):�a(4,l%-120/a,n%,q%):�a(5,l%+120/a,n%,q%):�a(4,l%,n%-120/a,q%):�a(5,l%,n%+120/a,q%):�a(4,l%,n%,q%-120/a):�a(5,l%,n%,q%+120/a):� hI��K:�A,B,hd%,id%:id%=(b%!28)=-2:hd%=!b%:�id%�ș"Wimp_OpenWindow",,b% l�b%!28=-2�b%!28=0 m Ȏhd%� nq�T%:A=b%!4:B=b%!16:�w(ha%,A+16,B-236,A+384,B-56,0,0):�w(ga%,A+16,B-480,A+384,B-300,0,0):A=36*oa%:�A<180�A=180 syb%!0=0:b%!4=-A:b%!8=348:b%!12=0:ș"Wimp_SetExtent",ga%,b%:b%!0=0:b%!4=-rb%:b%!8=348:b%!12=0:ș"Wimp_SetExtent",ha%,b% x��Z%:A=b%!4:B=b%!16:�w(ia%,A+16,B-344,A+388,B-16,0,0):b%!0=0:b%!4=-ea%:b%!8=356:b%!12=0:ș"Wimp_SetExtent",ia%,b%:ș"Wimp_SetCaretPosition",hd%,0,0,0,-1,�(�b(hd%,0)) ~>�Na%:ș"Wimp_SetCaretPosition",hd%,19,0,0,-1,�(�b(hd%,19)) >�Ja%:ș"Wimp_SetCaretPosition",hd%,11,0,0,-1,�(�b(hd%,11)) �<�sa%:ș"Wimp_SetCaretPosition",hd%,1,0,0,-1,�(�b(hd%,1)) �<�qa%:ș"Wimp_SetCaretPosition",hd%,1,0,0,-1,�(�b(hd%,1)) �<�ta%:ș"Wimp_SetCaretPosition",hd%,1,0,0,-1,�(�b(hd%,1)) �<�Oa%:ș"Wimp_SetCaretPosition",hd%,4,0,0,-1,�(�b(hd%,4)) �<�Pa%:ș"Wimp_SetCaretPosition",hd%,2,0,0,-1,�(�b(hd%,2)) �� � �id%� �H!b%=hd%:ș"Wimp_GetWindowState",,b%:b%!28=-2:ș"Wimp_OpenWindow",,b% �� �� �b��W:!b%=Z%:b%!4=d%(4,1):b%!8=d%(4,2):b%!12=d%(4,3):b%!16=d%(4,4):b%!20=0:b%!24=0:b%!28=-1:�K:� �<��m(W%):!b%=W%:ș"Wimp_GetWindowState",,b%:b%!28=-1:�K:� ����w(w%,jd%,kd%,ld%,md%,nd%,od%):!b%=w%:b%!4=jd%:b%!8=kd%:b%!12=ld%:b%!16=md%:b%!20=nd%:b%!24=od%:ș"Wimp_OpenWindow",,b%:ș"Wimp_ForceRedraw",w%,jd%,kd%,ld%,md%:� ����N:ș"Wimp_GetWindowState",,b%+12:X%=b%!16-b%!32:Y%=b%!28-b%!36:b%!16=I%:ș"Wimp_GetIconState",,b%+12:b%!16=5:b%!20+=X%-2:b%!24+=Y%-4:b%!28+=X%+2:b%!32+=Y%+4:b%!36=0:b%!40=0:b%!44=&7FFFFFFF:b%!48=&7FFFFFFF:ș"Wimp_DragBox",,b%+12:� �'��ga:�t%:�ra%=1�e$=�b(qa%,1):t%=252 ��ra%=4�e$=�b(sa%,1):t%=251 ��ra%=5�e$=�b(ta%,1):t%=250 �+ș"Wimp_GetPointerInfo",,b%:�b%!12=-1�� ��S=0:b%!20=256:b%!32=S:b%!36=1:b%!40=b%!12:b%!44=b%!16:b%!48=!b%:b%!52=b%!4:b%!56=-1:b%!60=t%:$(b%+64)=�m(e$)+�0:ș"Wimp_SendMessage",17,b%+20,b%!12,b%!16:� ���ja(M%):�A$,pd%:ȎM%� � �0:ba%=-1 ��1:�b%!12<>S� �bb%!0=60:b%!12=b%!8:b%!16=2:b%!36=-1:$(b%+44)="<Wimp$Scrap>"+�0:ș"Wimp_SendMessage",17,b%,b%!4 �� �Y�2:A$=�l(b%+44):b%!12=b%!8:b%!16=3:ș"Wimp_SendMessage",17,b%,b%!4:S=-1:�ra%=1��A(A$) ��ra%=4��O(A$) ��ra%=5� ��Qa%��17,a$(25) �Ik$=A$:Ra%=�(k$):Qa%=-1:�("Settype "+k$+" 0fa"):ș"Wimp_CreateMenu",-1 �� �x�3:A$=�l(b%+44):pd%=b%!40:b%!12=b%!8:b%!16=4:b%!36=-1:$(b%+44)=A$+�0:ș"Wimp_SendMessage",17,b%,b%!4:�pd%=252��C(A$) ��pd%=251��ra(A$) � �pd%=250� ��Qa%��17,a$(1) �"�b(Oa%,1,�m(A$)):k$=A$:�m(Oa%) �� �&�A$="<Wimp$Scrap>"��("Delete "+A$) �#�5:�b%!40=252��Xa:�C(�l(b%+44)) �� �� �D��Xa:b%!12=b%!8:b%!16=4:!b%=64:ș"Wimp_SendMessage",17,b%,b%!4:� ���L � *CLOSE �ș"Wimp_CloseDown":� ����Sa:ș"Wimp_OpenTemplate",,"<Ray$Dir>.Templates":ka%=�c("info"):sa%=�c("savesel"):na%=�c("surface"):T%=�c("texture"):Z%=�c("tools"):Ia%=�c("background"):ma%=�c("light"):a%(0)=�c("Front"):a%(1)=�c("side"):a%(2)=�c("plan") �qa%=�c("save"):Ja%=�c("rotate"):Na%=�c("Grid_opt"):_a%=�c("options"):ca%=�c("quit"):eb%=�c("error"):Jb%=�c("print"):Ub%=�c("info2"):ga%=�c("Surf_List"):ha%=�c("obj_list"):ia%=�c("main"):pa%=�c("3d"):ta%=�c("rec_mac") ;Oa%=�c("macro"):Pa%=�c("FRAC"):ș"Wimp_CloseTemplate":� dݤc(d$):ș"Wimp_LoadTemplate",,b%,cd%,dd%,-1,d$,0�,,cd%,,,,P%:�d$="tools"�d$="surface"�b%!64=ed% �d$="rotate"�b%!64=ed% �d$="texture"�b%!64=ed% &ș"Wimp_CreateWindow",,b%�qd%:=qd% $[ݤn(W%,I%,Ga%):�rd%,N:ș"Wimp_WhichIcon",W%,b%,61440,57344:N=-4:�:N+=4:�b%!N=I%:�Ga%=0� (�N=0��:N+=4:�b%!N=-1 )rd%=b%!(N-4) +(�:�b%!(N+4)=-1�rd%=b%!0�rd%=b%!(N+4) ,� -=rd% 0Fݤb(sd%,td%):b%!0=sd%:b%!4=td%:ș"Wimp_GetIconState",,b%:=$(b%!28) 5H��p(!b%,b%!4,N%):b%!8=N%<<21:b%!12=1<<21:ș"Wimp_SetIconState",,b%:� 8r��b(W%,I%,S$):b%!0=W%:b%!4=I%:ș"Wimp_GetIconState",,b%:$(b%!28)=S$:b%!8=0:b%!12=0:ș"Wimp_SetIconState",,b%:� @`ݤr(r$):�S$,cb%,N:ș"OS_ReadVarVal",r$,b%,250,0,0�,,cb%:S$="":�N=0�cb%-1:S$=S$+�(b%?N):�:=S$ HA��e:�N,A:�N=0�2:ș"Wimp_ForceRedraw",a%(N),0,-u%*a,u%*a,0:�:� K1��h:ș"Wimp_ForceRedraw",ia%,0,-36000,348,0:� O��ea(W%):�`a%:ȎW%� S��a%(0),a%(1),a%(2):ș"Wimp_SpriteOp",36,,"ptr_cross",1,6,3:!b%=Z%:ș"Wimp_GetWindowInfo",,b%:`a%=?(b%+34)�1:�`a%ș"Wimp_SetCaretPosition",Z%,0,0,0,-1,�(�b(Z%,0)) W9�Z%:ș"Wimp_SetCaretPosition",Z%,0,0,0,-1,�(�b(Z%,0)) Z� Z� [8��da(W%):ș"Wimp_SpriteOp",36,,"ptr_default",1,1,1:� _k��f(H$):b%!0=256:b%!4=0:b%!8=0:b%!12=0:b%!16=39168:$(b%+20)="!Ray3d@"+H$:ș"Wimp_SendMessage",17,b%,0:� e��ma(hd%):Ȏhd%� h�Z%:Ȏwa%� j�1:�f("100") l�2:�f("101") m�3:�f("102") n�4:�f("103") o�5:�f("107") p�6:�f("106") q�7:�f("108") r�8:�f("110") s�9:�f("32") t�10:�f("32") u�11:�f("15") v�12:�f("15") w�13:�f("15") x�14:�f("113") y�16:�f("51") z�24:�f("105") {�25:�f("109") |�30:�f("73") }�32:�f("104") ~� ~�sa%:�f("24") ��na%:�f("80") ��T%:�f("79") ��Ia%:�f("29") ��ma%:�f("51") ��qa%:�f("24") ��Ja%:�f("73") ��Na%:�f("16") ��_a%:�f("46") ��Jb%:�f("20") ��ta%:�f("19") ��Oa%:�f("19") ��Pa%:�f("37") �� �� �
00000000 0d 00 01 04 0d 00 02 61 6f 24 3d 22 76 31 2e 38 |.......ao$="v1.8| 00000010 32 20 28 31 32 20 46 65 62 72 61 75 72 79 20 31 |2 (12 Febraury 1| 00000020 39 39 34 29 22 3a 61 61 25 3d 31 38 32 3a c8 99 |994)":aa%=182:..| 00000030 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 3a c8 |"Hourglass_On":.| 00000040 99 22 4f 53 5f 47 65 74 45 6e 76 22 b8 67 24 3a |."OS_GetEnv".g$:| 00000050 3a ee 85 f6 3a f1 22 20 61 74 20 6c 69 6e 65 20 |:...:." at line | 00000060 22 3b 9e 3a e0 0d 00 07 27 f2 61 61 3a c8 99 22 |";.:....'.aa:.."| 00000070 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 3a ee |Hourglass_Off":.| 00000080 85 f2 62 61 28 9f 2c f6 24 2c 9e 29 0d 00 0a 23 |..ba(.,.$,.)...#| 00000090 f5 3a c8 99 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c |.:.."Wimp_Poll",| 000000a0 31 2c 62 25 b8 61 61 3a c8 8e 28 61 61 29 ca 0d |1,b%.aa:..(aa)..| 000000b0 00 0d 0f c9 31 3a f2 63 61 28 21 62 25 29 0d 00 |....1:.ca(!b%)..| 000000c0 0f 09 c9 32 3a f2 4b 0d 00 10 0e c9 33 3a f2 6f |...2:.K.....3:.o| 000000d0 28 21 62 25 29 0d 00 11 0f c9 34 3a f2 64 61 28 |(!b%).....4:.da(| 000000e0 21 62 25 29 0d 00 12 0f c9 35 3a f2 65 61 28 21 |!b%).....5:.ea(!| 000000f0 62 25 29 0d 00 13 0e c9 36 3a f2 66 61 28 62 25 |b%).....6:.fa(b%| 00000100 29 0d 00 14 0a c9 37 3a f2 67 61 0d 00 15 1a c9 |).....7:.ga.....| 00000110 38 3a f2 68 61 28 21 62 25 2c 62 25 21 34 2c 62 |8:.ha(!b%,b%!4,b| 00000120 25 21 32 34 29 0d 00 16 0e c9 39 3a f2 69 61 28 |%!24).....9:.ia(| 00000130 62 25 29 0d 00 17 15 c9 31 37 2c 31 38 3a f2 6a |b%).....17,18:.j| 00000140 61 28 62 25 21 31 36 29 0d 00 18 05 cb 0d 00 18 |a(b%!16)........| 00000150 0f e7 62 61 25 f2 6d 28 63 61 25 29 0d 00 19 12 |..ba%.m(ca%)....| 00000160 fd 62 61 25 80 ac 64 61 25 3a f2 4c 3a e0 0d 00 |.ba%..da%:.L:...| 00000170 1c 15 dd f2 69 3a 65 61 25 3d 30 3a e7 66 61 25 |....i:ea%=0:.fa%| 00000180 3d 30 8c 0d 00 22 23 e3 4e 3d 31 b8 64 25 3a e7 |=0..."#.N=1.d%:.| 00000190 a7 24 a4 61 28 4e 29 2c 22 3e 22 29 3d 30 8c 65 |.$.a(N),">")=0.e| 000001a0 61 25 2b 3d 33 36 0d 00 24 15 ed 3a 65 61 25 3d |a%+=36..$..:ea%=| 000001b0 65 61 25 2b 28 55 25 2a 33 36 29 0d 00 27 39 cc |ea%+(U%*36)..'9.| 000001c0 3a e3 4e 3d 31 b8 64 25 3a 61 24 3d 24 a4 61 28 |:.N=1.d%:a$=$.a(| 000001d0 4e 29 3a e7 c0 61 24 2c a7 61 24 2c 22 3e 22 29 |N):..a$,.a$,">")| 000001e0 2d 31 29 3d 24 a4 64 28 66 61 25 29 8c 65 61 25 |-1)=$.d(fa%).ea%| 000001f0 2b 3d 33 36 0d 00 2a 05 ed 0d 00 2c 05 cd 0d 00 |+=36..*....,....| 00000200 2c 14 e7 65 61 25 3c 33 32 38 8c 65 61 25 3d 33 |,..ea%<328.ea%=3| 00000210 32 38 0d 00 2d 08 f2 68 3a e1 0d 00 2f 1d dd f2 |28..-..h:.../...| 00000220 6f 28 21 62 25 29 3a ea 43 25 3a 43 25 3d 21 62 |o(!b%):.C%:C%=!b| 00000230 25 3a c8 8e 43 25 ca 0d 00 36 30 c9 54 25 3a f2 |%:..C%...60.T%:.| 00000240 6f 28 67 61 25 29 3a 21 62 25 3d 68 61 25 3a c8 |o(ga%):!b%=ha%:.| 00000250 99 22 57 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 |."Wimp_CloseWind| 00000260 6f 77 22 2c 2c 62 25 0d 00 3a 2b c9 5a 25 3a f2 |ow",,b%..:+.Z%:.| 00000270 45 3a 21 62 25 3d 69 61 25 3a c8 99 22 57 69 6d |E:!b%=ia%:.."Wim| 00000280 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c |p_CloseWindow",,| 00000290 62 25 0d 00 3d 82 c9 61 25 28 30 29 2c 61 25 28 |b%..=..a%(0),a%(| 000002a0 31 29 2c 61 25 28 32 29 3a f2 45 3a 21 62 25 3d |1),a%(2):.E:!b%=| 000002b0 61 25 28 30 29 3a c8 99 22 57 69 6d 70 5f 43 6c |a%(0):.."Wimp_Cl| 000002c0 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 25 3a 21 |oseWindow",,b%:!| 000002d0 62 25 3d 61 25 28 31 29 3a c8 99 22 57 69 6d 70 |b%=a%(1):.."Wimp| 000002e0 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 |_CloseWindow",,b| 000002f0 25 3a 21 62 25 3d 61 25 28 32 29 3a c8 99 22 57 |%:!b%=a%(2):.."W| 00000300 69 6d 70 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 |imp_CloseWindow"| 00000310 2c 2c 62 25 0d 00 42 05 cb 0d 00 42 15 e7 43 25 |,,b%..B....B..C%| 00000320 3c 3e 69 61 25 80 43 25 3c 3e 68 61 25 8c 0d 00 |<>ia%.C%<>ha%...| 00000330 43 23 21 62 25 3d 43 25 3a c8 99 22 57 69 6d 70 |C#!b%=C%:.."Wimp| 00000340 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 |_CloseWindow",,b| 00000350 25 0d 00 45 05 cd 0d 00 45 05 e1 0d 00 46 54 dd |%..E....E....FT.| 00000360 f2 66 61 28 62 25 29 3a ea 49 25 2c 41 24 2c 57 |.fa(b%):.I%,A$,W| 00000370 25 2c 6a 61 25 3a 49 25 3d 62 25 21 31 36 3a 57 |%,ja%:I%=b%!16:W| 00000380 25 3d 62 25 21 31 32 3a e7 57 25 3d 6b 61 25 8c |%=b%!12:.W%=ka%.| 00000390 21 62 25 3d 57 25 3a c8 99 22 57 69 6d 70 5f 43 |!b%=W%:.."Wimp_C| 000003a0 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 25 0d |loseWindow",,b%.| 000003b0 00 4c 13 6a 61 25 3d 62 25 21 38 3a c8 8e 6a 61 |.L.ja%=b%!8:..ja| 000003c0 25 ca 0d 00 4e 14 c9 32 3a 6c 61 25 3d 30 3a e7 |%...N..2:la%=0:.| 000003d0 57 25 3d 2d 32 8c 0d 00 50 49 6c 61 25 3d 31 3a |W%=-2...PIla%=1:| 000003e0 f2 46 28 22 20 21 52 61 79 33 64 20 22 2c 22 49 |.F(" !Ray3d ","I| 000003f0 6e 66 6f 2c 53 61 76 65 20 43 6f 6e 66 69 67 2c |nfo,Save Config,| 00000400 46 61 73 74 2c 43 6f 6c 6f 75 72 73 2e 2e 2e 2c |Fast,Colours...,| 00000410 51 75 69 74 2c 22 2c 21 62 25 2c 33 32 34 29 0d |Quit,",!b%,324).| 00000420 00 53 05 cd 0d 00 53 1f e7 57 25 3d 6d 61 25 80 |.S....S..W%=ma%.| 00000430 60 25 3e 30 8c f2 4d 28 21 62 25 2c 62 25 21 34 |`%>0..M(!b%,b%!4| 00000440 2c 33 29 0d 00 54 20 e7 57 25 3d 6e 61 25 80 6f |,3)..T .W%=na%.o| 00000450 61 25 3e 30 8c f2 4d 28 21 62 25 2c 62 25 21 34 |a%>0..M(!b%,b%!4| 00000460 2c 34 29 0d 00 55 13 e7 6c 61 25 3d 30 80 57 25 |,4)..U..la%=0.W%| 00000470 3c 3e 70 61 25 8c 0d 00 56 5f 6c 61 25 3d 32 3a |<>pa%...V_la%=2:| 00000480 f2 46 28 22 20 20 4d 61 69 6e 20 4d 65 6e 75 20 |.F(" Main Menu | 00000490 20 22 2c 22 50 72 6f 6a 65 63 74 2c 53 65 6c 65 | ","Project,Sele| 000004a0 63 74 2c 4c 69 67 68 74 73 20 2c 57 6f 72 6c 64 |ct,Lights ,World| 000004b0 2c 4d 61 63 72 6f 2c 47 72 69 64 2c 5a 6f 6f 6d |,Macro,Grid,Zoom| 000004c0 2c 54 6f 6f 6c 73 2e 2e 2e 2c 22 2c 21 62 25 2c |,Tools...,",!b%,| 000004d0 62 25 21 34 29 0d 00 59 05 cd 0d 00 59 04 0d 00 |b%!4)..Y....Y...| 000004e0 5b 0c c9 31 3a c8 8e 57 25 ca 0d 00 5c 1c c9 69 |[..1:..W%...\..i| 000004f0 61 25 3a f2 56 28 57 25 2c 21 62 25 2c 62 25 21 |a%:.V(W%,!b%,b%!| 00000500 34 2c 6a 61 25 29 0d 00 5e 1a c9 61 25 28 30 29 |4,ja%)..^..a%(0)| 00000510 2c 61 25 28 31 29 2c 61 25 28 32 29 3a f2 6b 61 |,a%(1),a%(2):.ka| 00000520 0d 00 5f 11 7f 3a f2 76 28 57 25 2c 49 25 2c 31 |.._..:.v(W%,I%,1| 00000530 29 0d 00 60 05 cb 0d 00 60 04 0d 00 62 0c c9 34 |)..`....`...b..4| 00000540 3a c8 8e 57 25 ca 0d 00 63 47 c9 2d 32 3a f2 57 |:..W%...cG.-2:.W| 00000550 3a f2 6b 3a f2 6f 28 6b 61 25 29 3a c8 99 22 57 |:.k:.o(ka%):.."W| 00000560 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 |imp_SetCaretPosi| 00000570 74 69 6f 6e 22 2c 5a 25 2c 30 2c 30 2c 30 2c 2d |tion",Z%,0,0,0,-| 00000580 31 2c a9 28 a4 62 28 5a 25 2c 30 29 29 0d 00 69 |1,.(.b(Z%,0))..i| 00000590 05 cb 0d 00 69 0b e7 49 25 3d 2d 31 8c 0d 00 6a |....i..I%=-1...j| 000005a0 17 f2 56 28 57 25 2c 21 62 25 2c 62 25 21 34 2c |..V(W%,!b%,b%!4,| 000005b0 6a 61 25 29 0d 00 6c 11 cc 3a f2 76 28 57 25 2c |ja%)..l..:.v(W%,| 000005c0 49 25 2c 34 29 0d 00 6e 05 cd 0d 00 6e 20 c9 31 |I%,4)..n....n .1| 000005d0 36 2c 36 34 3a e7 57 25 3d 71 61 25 80 49 25 3d |6,64:.W%=qa%.I%=| 000005e0 30 8c f2 4e 3a 72 61 25 3d 31 0d 00 70 19 e7 57 |0..N:ra%=1..p..W| 000005f0 25 3d 73 61 25 80 49 25 3d 30 8c f2 4e 3a 72 61 |%=sa%.I%=0..N:ra| 00000600 25 3d 34 0d 00 71 19 e7 57 25 3d 74 61 25 80 49 |%=4..q..W%=ta%.I| 00000610 25 3d 30 8c f2 4e 3a 72 61 25 3d 35 0d 00 72 05 |%=0..N:ra%=5..r.| 00000620 cb 0d 00 73 05 e1 0d 00 74 29 dd f2 6c 61 3a ea |...s....t)..la:.| 00000630 4e 2c 46 2c 75 61 25 2c 76 61 25 2c 6d 25 2c 70 |N,F,ua%,va%,m%,p| 00000640 3a e7 77 61 25 3d 31 34 80 4f 25 3d 30 8c e1 0d |:.wa%=14.O%=0...| 00000650 00 78 12 e7 77 61 25 3d 33 30 80 4f 25 3d 30 8c |.x..wa%=30.O%=0.| 00000660 e1 0d 00 79 66 63 25 3d 78 61 25 2b 48 25 2d 34 |...yfc%=xa%+H%-4| 00000670 3a 70 3d 79 61 25 2a 61 3a 78 25 3d 28 78 25 2d |:p=ya%*a:x%=(x%-| 00000680 62 25 21 34 2b 62 25 21 32 30 29 3a 79 25 3d 28 |b%!4+b%!20):y%=(| 00000690 28 62 25 21 32 34 2d 62 25 21 31 36 2b 79 25 29 |(b%!24-b%!16+y%)| 000006a0 2b 75 25 2a 61 29 3a e7 74 25 28 39 30 29 3d 78 |+u%*a):.t%(90)=x| 000006b0 25 80 74 25 28 39 31 29 3d 79 25 80 74 25 28 39 |%.t%(91)=y%.t%(9| 000006c0 32 29 3d 7a 25 8c e1 0d 00 7c 27 74 25 28 39 30 |2)=z%....|'t%(90| 000006d0 29 3d 78 25 3a 74 25 28 39 31 29 3d 79 25 3a 74 |)=x%:t%(91)=y%:t| 000006e0 25 28 39 32 29 3d 7a 25 3a e7 7a 61 25 8c 0d 00 |%(92)=z%:.za%...| 000006f0 7e 26 e7 78 25 83 70 3c 3d 70 2f 32 8c 78 25 3d |~&.x%.p<=p/2.x%=| 00000700 78 25 81 70 2a 70 8b 78 25 3d 28 78 25 81 70 2b |x%.p*p.x%=(x%.p+| 00000710 31 29 2a 70 0d 00 7f 26 e7 79 25 83 70 3c 3d 70 |1)*p...&.y%.p<=p| 00000720 2f 32 8c 79 25 3d 79 25 81 70 2a 70 8b 79 25 3d |/2.y%=y%.p*p.y%=| 00000730 28 79 25 81 70 2b 31 29 2a 70 0d 00 80 05 cd 0d |(y%.p+1)*p......| 00000740 00 81 33 78 25 3d 28 78 25 2a 38 2f 61 29 2b 32 |..3x%=(x%*8/a)+2| 00000750 30 30 30 30 3a 79 25 3d 28 79 25 2a 38 2f 61 29 |0000:y%=(y%*8/a)| 00000760 2b 32 30 30 30 30 3a 3a e7 41 61 25 3e 31 30 30 |+20000::.Aa%>100| 00000770 30 8c 0d 00 84 c3 75 61 25 3d 57 25 3a 41 61 25 |0.....ua%=W%:Aa%| 00000780 2d 3d 31 30 30 30 3a e3 46 3d 30 b8 32 3a 57 25 |-=1000:.F=0.2:W%| 00000790 3d 61 25 28 46 29 3a 21 62 25 3d 57 25 3a 62 25 |=a%(F):!b%=W%:b%| 000007a0 21 34 3d 30 3a 62 25 21 38 3d 2d 75 25 2a 61 3a |!4=0:b%!8=-u%*a:| 000007b0 62 25 21 31 32 3d 75 25 2a 61 3a 62 25 21 31 36 |b%!12=u%*a:b%!16| 000007c0 3d 30 3a c8 99 22 57 69 6d 70 5f 55 70 64 61 74 |=0:.."Wimp_Updat| 000007d0 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 3a |eWindow",,b%.k%:| 000007e0 68 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 |h%=b%!4-b%!20:j%| 000007f0 3d 28 62 25 21 31 36 2d 62 25 21 32 34 29 3a c8 |=(b%!16-b%!24):.| 00000800 95 6b 25 3a f2 67 3a c8 99 22 57 69 6d 70 5f 47 |.k%:.g:.."Wimp_G| 00000810 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 |etRectangle",,b%| 00000820 b8 6b 25 3a ce 3a ed 3a 41 61 25 2b 3d 31 3a 57 |.k%:.:.:Aa%+=1:W| 00000830 25 3d 75 61 25 0d 00 8a 05 cd 0d 00 8a 0b 3a c8 |%=ua%.........:.| 00000840 8e 77 61 25 ca 0d 00 8c 30 c9 31 3a e7 57 25 3d |.wa%....0.1:.W%=| 00000850 61 25 28 30 29 8c 75 61 25 3d b6 28 28 63 25 21 |a%(0).ua%=.((c%!| 00000860 38 2d 78 25 29 5e 32 2b 28 63 25 21 31 36 2d 79 |8-x%)^2+(c%!16-y| 00000870 25 29 5e 32 29 0d 00 8e 2e e7 57 25 3d 61 25 28 |%)^2).....W%=a%(| 00000880 31 29 8c 75 61 25 3d b6 28 28 63 25 21 31 32 2d |1).ua%=.((c%!12-| 00000890 78 25 29 5e 32 2b 28 63 25 21 31 36 2d 79 25 29 |x%)^2+(c%!16-y%)| 000008a0 5e 32 29 0d 00 8f 2d e7 57 25 3d 61 25 28 32 29 |^2)...-.W%=a%(2)| 000008b0 8c 75 61 25 3d b6 28 28 63 25 21 38 2d 78 25 29 |.ua%=.((c%!8-x%)| 000008c0 5e 32 2b 28 63 25 21 31 32 2d 79 25 29 5e 32 29 |^2+(c%!12-y%)^2)| 000008d0 0d 00 90 c5 76 61 25 3d 63 25 21 32 30 3a e3 46 |....va%=c%!20:.F| 000008e0 3d 30 b8 32 3a 57 25 3d 61 25 28 46 29 3a 21 62 |=0.2:W%=a%(F):!b| 000008f0 25 3d 57 25 3a 62 25 21 34 3d 30 3a 62 25 21 38 |%=W%:b%!4=0:b%!8| 00000900 3d 2d 75 25 2a 61 3a 62 25 21 31 32 3d 75 25 2a |=-u%*a:b%!12=u%*| 00000910 61 3a 62 25 21 31 36 3d 30 3a c8 99 22 57 69 6d |a:b%!16=0:.."Wim| 00000920 70 5f 55 70 64 61 74 65 57 69 6e 64 6f 77 22 2c |p_UpdateWindow",| 00000930 2c 62 25 b8 6b 25 3a 68 25 3d 62 25 21 34 2d 62 |,b%.k%:h%=b%!4-b| 00000940 25 21 32 30 3a 6a 25 3d 28 62 25 21 31 36 2d 62 |%!20:j%=(b%!16-b| 00000950 25 21 32 34 29 3a c8 95 6b 25 3a 63 25 21 32 30 |%!24):..k%:c%!20| 00000960 3d 76 61 25 3a f2 67 3a 63 25 21 32 30 3d 75 61 |=va%:.g:c%!20=ua| 00000970 25 3a f2 67 3a c8 99 22 57 69 6d 70 5f 47 65 74 |%:.g:.."Wimp_Get| 00000980 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 6b |Rectangle",,b%.k| 00000990 25 3a ce 3a ed 0d 00 9c 17 c9 32 3a ea 75 61 25 |%:.:......2:.ua%| 000009a0 2c 76 61 25 3a e7 42 61 25 3d 31 8c 0d 00 9e 67 |,va%:.Ba%=1....g| 000009b0 74 25 28 31 29 3d 63 25 21 32 30 3a 74 25 28 32 |t%(1)=c%!20:t%(2| 000009c0 29 3d 63 25 21 32 34 3a 74 25 28 33 29 3d 63 25 |)=c%!24:t%(3)=c%| 000009d0 21 32 38 3a 74 25 28 34 29 3d 74 25 28 31 29 3a |!28:t%(4)=t%(1):| 000009e0 74 25 28 35 29 3d 74 25 28 32 29 3a 74 25 28 36 |t%(5)=t%(2):t%(6| 000009f0 29 3d 74 25 28 33 29 3a e7 57 25 3d 61 25 28 30 |)=t%(3):.W%=a%(0| 00000a00 29 8c 74 25 28 34 29 3d 78 25 3a 74 25 28 36 29 |).t%(4)=x%:t%(6)| 00000a10 3d 79 25 0d 00 a1 1f e7 57 25 3d 61 25 28 31 29 |=y%.....W%=a%(1)| 00000a20 8c 74 25 28 35 29 3d 78 25 3a 74 25 28 36 29 3d |.t%(5)=x%:t%(6)=| 00000a30 79 25 0d 00 a2 1f e7 57 25 3d 61 25 28 32 29 8c |y%.....W%=a%(2).| 00000a40 74 25 28 34 29 3d 78 25 3a 74 25 28 35 29 3d 79 |t%(4)=x%:t%(5)=y| 00000a50 25 0d 00 a3 23 e7 6c 25 3c 3e 74 25 28 34 29 80 |%...#.l%<>t%(4).| 00000a60 6e 25 3c 3e 74 25 28 35 29 80 71 25 3c 3e 74 25 |n%<>t%(5).q%<>t%| 00000a70 28 36 29 8c 0d 00 a4 37 43 61 25 3d 48 25 3a f2 |(6)....7Ca%=H%:.| 00000a80 65 3a f2 70 28 5a 25 2c 77 61 25 2c 30 29 3a 77 |e:.p(Z%,wa%,0):w| 00000a90 61 25 3d 31 33 3a f2 70 28 5a 25 2c 31 33 2c 31 |a%=13:.p(Z%,13,1| 00000aa0 29 3a 85 31 37 2c 61 24 28 33 29 0d 00 a9 05 cd |):.17,a$(3).....| 00000ab0 0d 00 a9 ce e3 46 3d 30 b8 32 3a 57 25 3d 61 25 |.....F=0.2:W%=a%| 00000ac0 28 46 29 3a 21 62 25 3d 57 25 3a 62 25 21 34 3d |(F):!b%=W%:b%!4=| 00000ad0 30 3a 62 25 21 38 3d 2d 75 25 2a 61 3a 62 25 21 |0:b%!8=-u%*a:b%!| 00000ae0 31 32 3d 75 25 2a 61 3a 62 25 21 31 36 3d 30 3a |12=u%*a:b%!16=0:| 00000af0 c8 99 22 57 69 6d 70 5f 55 70 64 61 74 65 57 69 |.."Wimp_UpdateWi| 00000b00 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 3a 68 25 3d |ndow",,b%.k%:h%=| 00000b10 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 3d 28 62 |b%!4-b%!20:j%=(b| 00000b20 25 21 31 36 2d 62 25 21 32 34 29 3a c8 95 6b 25 |%!16-b%!24):..k%| 00000b30 3a 63 25 21 32 30 3d 74 25 28 31 29 3a 63 25 21 |:c%!20=t%(1):c%!| 00000b40 32 34 3d 74 25 28 32 29 3a 63 25 21 32 38 3d 74 |24=t%(2):c%!28=t| 00000b50 25 28 33 29 3a f2 67 3a 63 25 21 32 30 3d 74 25 |%(3):.g:c%!20=t%| 00000b60 28 34 29 3a 63 25 21 32 34 3d 74 25 28 35 29 3a |(4):c%!24=t%(5):| 00000b70 63 25 21 32 38 3d 74 25 28 36 29 3a f2 67 0d 00 |c%!28=t%(6):.g..| 00000b80 b0 24 c8 99 22 57 69 6d 70 5f 47 65 74 52 65 63 |.$.."Wimp_GetRec| 00000b90 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 6b 25 3a ce |tangle",,b%.k%:.| 00000ba0 3a ed 0d 00 b4 05 cd 0d 00 b4 0b e7 42 61 25 3d |:...........Ba%=| 00000bb0 32 8c 0d 00 b5 2d e7 57 25 3d 61 25 28 30 29 8c |2....-.W%=a%(0).| 00000bc0 75 61 25 3d b6 28 28 63 25 21 38 2d 78 25 29 5e |ua%=.((c%!8-x%)^| 00000bd0 32 2b 28 63 25 21 31 36 2d 79 25 29 5e 32 29 0d |2+(c%!16-y%)^2).| 00000be0 00 b6 2e e7 57 25 3d 61 25 28 31 29 8c 75 61 25 |....W%=a%(1).ua%| 00000bf0 3d b6 28 28 63 25 21 31 32 2d 78 25 29 5e 32 2b |=.((c%!12-x%)^2+| 00000c00 28 63 25 21 31 36 2d 79 25 29 5e 32 29 0d 00 b7 |(c%!16-y%)^2)...| 00000c10 2d e7 57 25 3d 61 25 28 32 29 8c 75 61 25 3d b6 |-.W%=a%(2).ua%=.| 00000c20 28 28 63 25 21 38 2d 78 25 29 5e 32 2b 28 63 25 |((c%!8-x%)^2+(c%| 00000c30 21 31 32 2d 79 25 29 5e 32 29 0d 00 b8 c5 76 61 |!12-y%)^2)....va| 00000c40 25 3d 63 25 21 33 32 3a e3 46 3d 30 b8 32 3a 57 |%=c%!32:.F=0.2:W| 00000c50 25 3d 61 25 28 46 29 3a 21 62 25 3d 57 25 3a 62 |%=a%(F):!b%=W%:b| 00000c60 25 21 34 3d 30 3a 62 25 21 38 3d 2d 75 25 2a 61 |%!4=0:b%!8=-u%*a| 00000c70 3a 62 25 21 31 32 3d 75 25 2a 61 3a 62 25 21 31 |:b%!12=u%*a:b%!1| 00000c80 36 3d 30 3a c8 99 22 57 69 6d 70 5f 55 70 64 61 |6=0:.."Wimp_Upda| 00000c90 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 |teWindow",,b%.k%| 00000ca0 3a 68 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a |:h%=b%!4-b%!20:j| 00000cb0 25 3d 28 62 25 21 31 36 2d 62 25 21 32 34 29 3a |%=(b%!16-b%!24):| 00000cc0 c8 95 6b 25 3a 63 25 21 33 32 3d 76 61 25 3a f2 |..k%:c%!32=va%:.| 00000cd0 67 3a 63 25 21 33 32 3d 75 61 25 3a f2 67 3a c8 |g:c%!32=ua%:.g:.| 00000ce0 99 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e |."Wimp_GetRectan| 00000cf0 67 6c 65 22 2c 2c 62 25 b8 6b 25 3a ce 3a ed 0d |gle",,b%.k%:.:..| 00000d00 00 c3 05 cd 0d 00 c3 0b e7 42 61 25 3d 33 8c 0d |.........Ba%=3..| 00000d10 00 c4 2e e7 57 25 3d 61 25 28 30 29 8c 75 61 25 |....W%=a%(0).ua%| 00000d20 3d b6 28 28 63 25 21 32 30 2d 78 25 29 5e 32 2b |=.((c%!20-x%)^2+| 00000d30 28 63 25 21 32 38 2d 79 25 29 5e 32 29 0d 00 c5 |(c%!28-y%)^2)...| 00000d40 2e e7 57 25 3d 61 25 28 31 29 8c 75 61 25 3d b6 |..W%=a%(1).ua%=.| 00000d50 28 28 63 25 21 32 34 2d 78 25 29 5e 32 2b 28 63 |((c%!24-x%)^2+(c| 00000d60 25 21 32 38 2d 79 25 29 5e 32 29 0d 00 c6 2e e7 |%!28-y%)^2).....| 00000d70 57 25 3d 61 25 28 32 29 8c 75 61 25 3d b6 28 28 |W%=a%(2).ua%=.((| 00000d80 63 25 21 32 30 2d 78 25 29 5e 32 2b 28 63 25 21 |c%!20-x%)^2+(c%!| 00000d90 32 34 2d 79 25 29 5e 32 29 0d 00 c7 c5 76 61 25 |24-y%)^2)....va%| 00000da0 3d 63 25 21 33 36 3a e3 46 3d 30 b8 32 3a 57 25 |=c%!36:.F=0.2:W%| 00000db0 3d 61 25 28 46 29 3a 21 62 25 3d 57 25 3a 62 25 |=a%(F):!b%=W%:b%| 00000dc0 21 34 3d 30 3a 62 25 21 38 3d 2d 75 25 2a 61 3a |!4=0:b%!8=-u%*a:| 00000dd0 62 25 21 31 32 3d 75 25 2a 61 3a 62 25 21 31 36 |b%!12=u%*a:b%!16| 00000de0 3d 30 3a c8 99 22 57 69 6d 70 5f 55 70 64 61 74 |=0:.."Wimp_Updat| 00000df0 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 3a |eWindow",,b%.k%:| 00000e00 68 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 |h%=b%!4-b%!20:j%| 00000e10 3d 28 62 25 21 31 36 2d 62 25 21 32 34 29 3a c8 |=(b%!16-b%!24):.| 00000e20 95 6b 25 3a 63 25 21 33 36 3d 76 61 25 3a f2 67 |.k%:c%!36=va%:.g| 00000e30 3a 63 25 21 33 36 3d 75 61 25 3a f2 67 3a c8 99 |:c%!36=ua%:.g:..| 00000e40 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 |"Wimp_GetRectang| 00000e50 6c 65 22 2c 2c 62 25 b8 6b 25 3a ce 3a ed 0d 00 |le",,b%.k%:.:...| 00000e60 d2 05 cd 0d 00 d2 17 c9 33 3a ea 75 61 25 2c 76 |........3:.ua%,v| 00000e70 61 25 3a e7 42 61 25 3d 31 8c 0d 00 d5 67 74 25 |a%:.Ba%=1....gt%| 00000e80 28 31 29 3d 63 25 21 32 30 3a 74 25 28 32 29 3d |(1)=c%!20:t%(2)=| 00000e90 63 25 21 32 34 3a 74 25 28 33 29 3d 63 25 21 32 |c%!24:t%(3)=c%!2| 00000ea0 38 3a 74 25 28 34 29 3d 74 25 28 31 29 3a 74 25 |8:t%(4)=t%(1):t%| 00000eb0 28 35 29 3d 74 25 28 32 29 3a 74 25 28 36 29 3d |(5)=t%(2):t%(6)=| 00000ec0 74 25 28 33 29 3a e7 57 25 3d 61 25 28 30 29 8c |t%(3):.W%=a%(0).| 00000ed0 74 25 28 34 29 3d 78 25 3a 74 25 28 36 29 3d 79 |t%(4)=x%:t%(6)=y| 00000ee0 25 0d 00 d8 1f e7 57 25 3d 61 25 28 31 29 8c 74 |%.....W%=a%(1).t| 00000ef0 25 28 35 29 3d 78 25 3a 74 25 28 36 29 3d 79 25 |%(5)=x%:t%(6)=y%| 00000f00 0d 00 d9 1f e7 57 25 3d 61 25 28 32 29 8c 74 25 |.....W%=a%(2).t%| 00000f10 28 34 29 3d 78 25 3a 74 25 28 35 29 3d 79 25 0d |(4)=x%:t%(5)=y%.| 00000f20 00 da 23 e7 6c 25 3c 3e 74 25 28 34 29 80 6e 25 |..#.l%<>t%(4).n%| 00000f30 3c 3e 74 25 28 35 29 80 71 25 3c 3e 74 25 28 36 |<>t%(5).q%<>t%(6| 00000f40 29 8c 0d 00 db 37 43 61 25 3d 48 25 3a f2 65 3a |)....7Ca%=H%:.e:| 00000f50 f2 70 28 5a 25 2c 77 61 25 2c 30 29 3a 77 61 25 |.p(Z%,wa%,0):wa%| 00000f60 3d 31 33 3a f2 70 28 5a 25 2c 31 33 2c 31 29 3a |=13:.p(Z%,13,1):| 00000f70 85 31 37 2c 61 24 28 34 29 0d 00 e0 05 cd 0d 00 |.17,a$(4).......| 00000f80 e0 ce e3 46 3d 30 b8 32 3a 57 25 3d 61 25 28 46 |...F=0.2:W%=a%(F| 00000f90 29 3a 21 62 25 3d 57 25 3a 62 25 21 34 3d 30 3a |):!b%=W%:b%!4=0:| 00000fa0 62 25 21 38 3d 2d 75 25 2a 61 3a 62 25 21 31 32 |b%!8=-u%*a:b%!12| 00000fb0 3d 75 25 2a 61 3a 62 25 21 31 36 3d 30 3a c8 99 |=u%*a:b%!16=0:..| 00000fc0 22 57 69 6d 70 5f 55 70 64 61 74 65 57 69 6e 64 |"Wimp_UpdateWind| 00000fd0 6f 77 22 2c 2c 62 25 b8 6b 25 3a 68 25 3d 62 25 |ow",,b%.k%:h%=b%| 00000fe0 21 34 2d 62 25 21 32 30 3a 6a 25 3d 28 62 25 21 |!4-b%!20:j%=(b%!| 00000ff0 31 36 2d 62 25 21 32 34 29 3a c8 95 6b 25 3a 63 |16-b%!24):..k%:c| 00001000 25 21 32 30 3d 74 25 28 31 29 3a 63 25 21 32 34 |%!20=t%(1):c%!24| 00001010 3d 74 25 28 32 29 3a 63 25 21 32 38 3d 74 25 28 |=t%(2):c%!28=t%(| 00001020 33 29 3a f2 67 3a 63 25 21 32 30 3d 74 25 28 34 |3):.g:c%!20=t%(4| 00001030 29 3a 63 25 21 32 34 3d 74 25 28 35 29 3a 63 25 |):c%!24=t%(5):c%| 00001040 21 32 38 3d 74 25 28 36 29 3a f2 67 0d 00 e7 24 |!28=t%(6):.g...$| 00001050 c8 99 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 |.."Wimp_GetRecta| 00001060 6e 67 6c 65 22 2c 2c 62 25 b8 6b 25 3a ce 3a ed |ngle",,b%.k%:.:.| 00001070 0d 00 eb 2f cc 3a e7 57 25 3d 61 25 28 30 29 8c |.../.:.W%=a%(0).| 00001080 75 61 25 3d b6 28 28 63 25 21 38 2d 78 25 29 5e |ua%=.((c%!8-x%)^| 00001090 32 2b 28 63 25 21 31 36 2d 79 25 29 5e 32 29 0d |2+(c%!16-y%)^2).| 000010a0 00 ec 2e e7 57 25 3d 61 25 28 31 29 8c 75 61 25 |....W%=a%(1).ua%| 000010b0 3d b6 28 28 63 25 21 31 32 2d 78 25 29 5e 32 2b |=.((c%!12-x%)^2+| 000010c0 28 63 25 21 31 36 2d 79 25 29 5e 32 29 0d 00 ed |(c%!16-y%)^2)...| 000010d0 2d e7 57 25 3d 61 25 28 32 29 8c 75 61 25 3d b6 |-.W%=a%(2).ua%=.| 000010e0 28 28 63 25 21 38 2d 78 25 29 5e 32 2b 28 63 25 |((c%!8-x%)^2+(c%| 000010f0 21 31 32 2d 79 25 29 5e 32 29 0d 00 ee c5 76 61 |!12-y%)^2)....va| 00001100 25 3d 63 25 21 33 32 3a e3 46 3d 30 b8 32 3a 57 |%=c%!32:.F=0.2:W| 00001110 25 3d 61 25 28 46 29 3a 21 62 25 3d 57 25 3a 62 |%=a%(F):!b%=W%:b| 00001120 25 21 34 3d 30 3a 62 25 21 38 3d 2d 75 25 2a 61 |%!4=0:b%!8=-u%*a| 00001130 3a 62 25 21 31 32 3d 75 25 2a 61 3a 62 25 21 31 |:b%!12=u%*a:b%!1| 00001140 36 3d 30 3a c8 99 22 57 69 6d 70 5f 55 70 64 61 |6=0:.."Wimp_Upda| 00001150 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 |teWindow",,b%.k%| 00001160 3a 68 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a |:h%=b%!4-b%!20:j| 00001170 25 3d 28 62 25 21 31 36 2d 62 25 21 32 34 29 3a |%=(b%!16-b%!24):| 00001180 c8 95 6b 25 3a 63 25 21 33 32 3d 76 61 25 3a f2 |..k%:c%!32=va%:.| 00001190 67 3a 63 25 21 33 32 3d 75 61 25 3a f2 67 3a c8 |g:c%!32=ua%:.g:.| 000011a0 99 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e |."Wimp_GetRectan| 000011b0 67 6c 65 22 2c 2c 62 25 b8 6b 25 3a ce 3a ed 0d |gle",,b%.k%:.:..| 000011c0 00 f9 05 cd 0d 00 f9 65 c9 34 2c 33 32 3a ea 71 |.......e.4,32:.q| 000011d0 2c 6e 2c 6f 3a 71 3d 63 25 21 32 30 3a 6e 3d 63 |,n,o:q=c%!20:n=c| 000011e0 25 21 32 34 3a 6f 3d 63 25 21 32 38 3a 74 25 28 |%!24:o=c%!28:t%(| 000011f0 31 29 3d 71 3a 74 25 28 32 29 3d 6e 3a 74 25 28 |1)=q:t%(2)=n:t%(| 00001200 33 29 3d 6f 3a e7 57 25 3d 61 25 28 30 29 8c 71 |3)=o:.W%=a%(0).q| 00001210 3d 94 28 78 25 2d 63 25 21 38 29 3a 6f 3d 94 28 |=.(x%-c%!8):o=.(| 00001220 79 25 2d 63 25 21 31 36 29 0d 00 fe 29 e7 57 25 |y%-c%!16)...).W%| 00001230 3d 61 25 28 31 29 8c 6e 3d 94 28 78 25 2d 63 25 |=a%(1).n=.(x%-c%| 00001240 21 31 32 29 3a 6f 3d 94 28 79 25 2d 63 25 21 31 |!12):o=.(y%-c%!1| 00001250 36 29 0d 00 ff 28 e7 57 25 3d 61 25 28 32 29 8c |6)...(.W%=a%(2).| 00001260 71 3d 94 28 78 25 2d 63 25 21 38 29 3a 6e 3d 94 |q=.(x%-c%!8):n=.| 00001270 28 79 25 2d 63 25 21 31 32 29 0d 01 00 bf 74 25 |(y%-c%!12)....t%| 00001280 28 34 29 3d 71 3a 74 25 28 35 29 3d 6e 3a 74 25 |(4)=q:t%(5)=n:t%| 00001290 28 36 29 3d 6f 3a e3 46 3d 30 b8 32 3a 57 25 3d |(6)=o:.F=0.2:W%=| 000012a0 61 25 28 46 29 3a 21 62 25 3d 57 25 3a 62 25 21 |a%(F):!b%=W%:b%!| 000012b0 34 3d 30 3a 62 25 21 38 3d 2d 75 25 2a 61 3a 62 |4=0:b%!8=-u%*a:b| 000012c0 25 21 31 32 3d 75 25 2a 61 3a 62 25 21 31 36 3d |%!12=u%*a:b%!16=| 000012d0 30 3a c8 99 22 57 69 6d 70 5f 55 70 64 61 74 65 |0:.."Wimp_Update| 000012e0 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 3a 68 |Window",,b%.k%:h| 000012f0 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 3d |%=b%!4-b%!20:j%=| 00001300 28 62 25 21 31 36 2d 62 25 21 32 34 29 3a c8 95 |(b%!16-b%!24):..| 00001310 6b 25 3a 63 25 21 32 30 3d 74 25 28 31 29 3a 63 |k%:c%!20=t%(1):c| 00001320 25 21 32 34 3d 74 25 28 32 29 3a 63 25 21 32 38 |%!24=t%(2):c%!28| 00001330 3d 74 25 28 33 29 3a f2 67 0d 01 08 4b 63 25 21 |=t%(3):.g...Kc%!| 00001340 32 30 3d 74 25 28 34 29 3a 63 25 21 32 34 3d 74 |20=t%(4):c%!24=t| 00001350 25 28 35 29 3a 63 25 21 32 38 3d 74 25 28 36 29 |%(5):c%!28=t%(6)| 00001360 3a f2 67 3a c8 99 22 57 69 6d 70 5f 47 65 74 52 |:.g:.."Wimp_GetR| 00001370 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 6b 25 |ectangle",,b%.k%| 00001380 3a ce 3a ed 0d 01 0d 32 c9 35 2c 36 3a ea 46 2c |:.:....2.5,6:.F,| 00001390 62 3a e3 62 3d 31 b8 39 3a 74 25 28 62 29 3d 63 |b:.b=1.9:t%(b)=c| 000013a0 25 21 28 62 2a 34 2b 34 29 3a ed 3a e7 57 25 3d |%!(b*4+4):.:.W%=| 000013b0 61 25 28 30 29 8c 0d 01 10 5d 74 25 28 31 34 29 |a%(0)....]t%(14)| 000013c0 3d 78 25 3a 74 25 28 31 35 29 3d 6e 25 3a 74 25 |=x%:t%(15)=n%:t%| 000013d0 28 31 36 29 3d 79 25 3a 74 25 28 31 31 29 3d 6c |(16)=y%:t%(11)=l| 000013e0 25 3a 74 25 28 31 32 29 3d 6e 25 3a 74 25 28 31 |%:t%(12)=n%:t%(1| 000013f0 33 29 3d 79 25 3a 74 25 28 31 37 29 3d 78 25 3a |3)=y%:t%(17)=x%:| 00001400 74 25 28 31 38 29 3d 6e 25 3a 74 25 28 31 39 29 |t%(18)=n%:t%(19)| 00001410 3d 71 25 0d 01 14 05 cd 0d 01 14 0e e7 57 25 3d |=q%..........W%=| 00001420 61 25 28 31 29 8c 0d 01 15 5d 74 25 28 31 34 29 |a%(1)....]t%(14)| 00001430 3d 6c 25 3a 74 25 28 31 35 29 3d 78 25 3a 74 25 |=l%:t%(15)=x%:t%| 00001440 28 31 36 29 3d 79 25 3a 74 25 28 31 31 29 3d 6c |(16)=y%:t%(11)=l| 00001450 25 3a 74 25 28 31 32 29 3d 6e 25 3a 74 25 28 31 |%:t%(12)=n%:t%(1| 00001460 33 29 3d 79 25 3a 74 25 28 31 37 29 3d 6c 25 3a |3)=y%:t%(17)=l%:| 00001470 74 25 28 31 38 29 3d 78 25 3a 74 25 28 31 39 29 |t%(18)=x%:t%(19)| 00001480 3d 71 25 0d 01 19 05 cd 0d 01 19 0e e7 57 25 3d |=q%..........W%=| 00001490 61 25 28 32 29 8c 0d 01 1a 5d 74 25 28 31 34 29 |a%(2)....]t%(14)| 000014a0 3d 78 25 3a 74 25 28 31 35 29 3d 79 25 3a 74 25 |=x%:t%(15)=y%:t%| 000014b0 28 31 36 29 3d 71 25 3a 74 25 28 31 31 29 3d 6c |(16)=q%:t%(11)=l| 000014c0 25 3a 74 25 28 31 32 29 3d 79 25 3a 74 25 28 31 |%:t%(12)=y%:t%(1| 000014d0 33 29 3d 71 25 3a 74 25 28 31 37 29 3d 78 25 3a |3)=q%:t%(17)=x%:| 000014e0 74 25 28 31 38 29 3d 6e 25 3a 74 25 28 31 39 29 |t%(18)=n%:t%(19)| 000014f0 3d 71 25 0d 01 1e 05 cd 0d 01 1e df 3a e3 46 3d |=q%.........:.F=| 00001500 30 b8 32 3a 57 25 3d 61 25 28 46 29 3a 21 62 25 |0.2:W%=a%(F):!b%| 00001510 3d 57 25 3a 62 25 21 34 3d 30 3a 62 25 21 38 3d |=W%:b%!4=0:b%!8=| 00001520 2d 75 25 2a 61 3a 62 25 21 31 32 3d 75 25 2a 61 |-u%*a:b%!12=u%*a| 00001530 3a 62 25 21 31 36 3d 30 3a c8 99 22 57 69 6d 70 |:b%!16=0:.."Wimp| 00001540 5f 55 70 64 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_UpdateWindow",,| 00001550 62 25 b8 6b 25 3a 68 25 3d 62 25 21 34 2d 62 25 |b%.k%:h%=b%!4-b%| 00001560 21 32 30 3a 6a 25 3d 28 62 25 21 31 36 2d 62 25 |!20:j%=(b%!16-b%| 00001570 21 32 34 29 3a c8 95 6b 25 3a e3 62 3d 31 b8 39 |!24):..k%:.b=1.9| 00001580 3a 63 25 21 28 62 2a 34 2b 34 29 3d 74 25 28 62 |:c%!(b*4+4)=t%(b| 00001590 29 3a ed 3a f2 67 3a e3 62 3d 31 b8 39 3a 63 25 |):.:.g:.b=1.9:c%| 000015a0 21 28 62 2a 34 2b 34 29 3d 74 25 28 62 2b 31 30 |!(b*4+4)=t%(b+10| 000015b0 29 3a ed 3a f2 67 3a c8 99 22 57 69 6d 70 5f 47 |):.:.g:.."Wimp_G| 000015c0 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 |etRectangle",,b%| 000015d0 b8 6b 25 3a ce 3a ed 0d 01 2b 59 c9 37 3a 6d 25 |.k%:.:...+Y.7:m%| 000015e0 3d 63 25 2b 41 61 25 2a 31 32 3a 74 25 28 31 29 |=c%+Aa%*12:t%(1)| 000015f0 3d 21 28 6d 25 2d 34 29 3a 74 25 28 32 29 3d 21 |=!(m%-4):t%(2)=!| 00001600 6d 25 3a 74 25 28 33 29 3d 21 28 6d 25 2b 34 29 |m%:t%(3)=!(m%+4)| 00001610 3a e7 57 25 3d 61 25 28 30 29 8c 21 28 6d 25 2d |:.W%=a%(0).!(m%-| 00001620 34 29 3d 78 25 3a 21 28 6d 25 2b 34 29 3d 79 25 |4)=x%:!(m%+4)=y%| 00001630 0d 01 2e 1f e7 57 25 3d 61 25 28 31 29 8c 21 6d |.....W%=a%(1).!m| 00001640 25 3d 78 25 3a 21 28 6d 25 2b 34 29 3d 79 25 0d |%=x%:!(m%+4)=y%.| 00001650 01 2f 1f e7 57 25 3d 61 25 28 32 29 8c 21 28 6d |./..W%=a%(2).!(m| 00001660 25 2d 34 29 3d 78 25 3a 21 6d 25 3d 79 25 0d 01 |%-4)=x%:!m%=y%..| 00001670 30 d0 74 25 28 34 29 3d 21 28 6d 25 2d 34 29 3a |0.t%(4)=!(m%-4):| 00001680 74 25 28 35 29 3d 21 6d 25 3a 74 25 28 36 29 3d |t%(5)=!m%:t%(6)=| 00001690 21 28 6d 25 2b 34 29 3a 3a e3 46 3d 30 b8 32 3a |!(m%+4)::.F=0.2:| 000016a0 57 25 3d 61 25 28 46 29 3a 21 62 25 3d 57 25 3a |W%=a%(F):!b%=W%:| 000016b0 62 25 21 34 3d 30 3a 62 25 21 38 3d 2d 75 25 2a |b%!4=0:b%!8=-u%*| 000016c0 61 3a 62 25 21 31 32 3d 75 25 2a 61 3a 62 25 21 |a:b%!12=u%*a:b%!| 000016d0 31 36 3d 30 3a c8 99 22 57 69 6d 70 5f 55 70 64 |16=0:.."Wimp_Upd| 000016e0 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b |ateWindow",,b%.k| 000016f0 25 3a 68 25 3d 62 25 21 34 2d 62 25 21 32 30 3a |%:h%=b%!4-b%!20:| 00001700 6a 25 3d 28 62 25 21 31 36 2d 62 25 21 32 34 29 |j%=(b%!16-b%!24)| 00001710 3a c8 95 6b 25 3a 21 28 6d 25 2d 34 29 3d 74 25 |:..k%:!(m%-4)=t%| 00001720 28 31 29 3a 21 6d 25 3d 74 25 28 32 29 3a 21 28 |(1):!m%=t%(2):!(| 00001730 6d 25 2b 34 29 3d 74 25 28 33 29 3a f2 67 0d 01 |m%+4)=t%(3):.g..| 00001740 38 4d 21 28 6d 25 2d 34 29 3d 74 25 28 34 29 3a |8M!(m%-4)=t%(4):| 00001750 21 6d 25 3d 74 25 28 35 29 3a 21 28 6d 25 2b 34 |!m%=t%(5):!(m%+4| 00001760 29 3d 74 25 28 36 29 3a f2 67 3a c8 99 22 57 69 |)=t%(6):.g:.."Wi| 00001770 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"| 00001780 2c 2c 62 25 b8 6b 25 3a ce 3a ed 0d 01 3d 4c c9 |,,b%.k%:.:...=L.| 00001790 38 3a 6d 25 3d 63 25 2b 41 61 25 2a 31 32 3a 74 |8:m%=c%+Aa%*12:t| 000017a0 25 28 31 29 3d 21 6d 25 3a 74 25 28 32 29 3d 6d |%(1)=!m%:t%(2)=m| 000017b0 25 21 34 3a 74 25 28 33 29 3d 6d 25 21 38 3a e7 |%!4:t%(3)=m%!8:.| 000017c0 57 25 3d 61 25 28 30 29 8c 21 6d 25 3d 78 25 3a |W%=a%(0).!m%=x%:| 000017d0 6d 25 21 38 3d 79 25 0d 01 3f 1d e7 57 25 3d 61 |m%!8=y%..?..W%=a| 000017e0 25 28 31 29 8c 6d 25 21 34 3d 78 25 3a 6d 25 21 |%(1).m%!4=x%:m%!| 000017f0 38 3d 79 25 0d 01 40 1c e7 57 25 3d 61 25 28 32 |8=y%..@..W%=a%(2| 00001800 29 8c 21 6d 25 3d 78 25 3a 6d 25 21 34 3d 79 25 |).!m%=x%:m%!4=y%| 00001810 0d 01 41 e7 74 25 28 34 29 3d 21 6d 25 3a 74 25 |..A.t%(4)=!m%:t%| 00001820 28 35 29 3d 6d 25 21 34 3a 74 25 28 36 29 3d 6d |(5)=m%!4:t%(6)=m| 00001830 25 21 38 3a 3a e3 46 3d 30 b8 32 3a 57 25 3d 61 |%!8::.F=0.2:W%=a| 00001840 25 28 46 29 3a 21 62 25 3d 57 25 3a 62 25 21 34 |%(F):!b%=W%:b%!4| 00001850 3d 30 3a 62 25 21 38 3d 2d 75 25 2a 61 3a 62 25 |=0:b%!8=-u%*a:b%| 00001860 21 31 32 3d 75 25 2a 61 3a 62 25 21 31 36 3d 30 |!12=u%*a:b%!16=0| 00001870 3a c8 99 22 57 69 6d 70 5f 55 70 64 61 74 65 57 |:.."Wimp_UpdateW| 00001880 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 3a 68 25 |indow",,b%.k%:h%| 00001890 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 3d 28 |=b%!4-b%!20:j%=(| 000018a0 62 25 21 31 36 2d 62 25 21 32 34 29 3a c8 95 6b |b%!16-b%!24):..k| 000018b0 25 3a 21 6d 25 3d 74 25 28 31 29 3a 6d 25 21 34 |%:!m%=t%(1):m%!4| 000018c0 3d 74 25 28 32 29 3a 6d 25 21 38 3d 74 25 28 33 |=t%(2):m%!8=t%(3| 000018d0 29 3a f2 67 3a 21 6d 25 3d 74 25 28 34 29 3a 6d |):.g:!m%=t%(4):m| 000018e0 25 21 34 3d 74 25 28 35 29 3a 6d 25 21 38 3d 74 |%!4=t%(5):m%!8=t| 000018f0 25 28 36 29 3a f2 67 0d 01 4a 24 c8 99 22 57 69 |%(6):.g..J$.."Wi| 00001900 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"| 00001910 2c 2c 62 25 b8 6b 25 3a ce 3a ed 0d 01 4e 22 c9 |,,b%.k%:.:...N".| 00001920 39 3a e7 57 25 3d 61 25 28 30 29 8c 66 25 28 31 |9:.W%=a%(0).f%(1| 00001930 29 3d 78 25 3a 66 25 28 33 29 3d 79 25 0d 01 4f |)=x%:f%(3)=y%..O| 00001940 1f e7 57 25 3d 61 25 28 31 29 8c 66 25 28 32 29 |..W%=a%(1).f%(2)| 00001950 3d 78 25 3a 66 25 28 33 29 3d 79 25 0d 01 50 1f |=x%:f%(3)=y%..P.| 00001960 e7 57 25 3d 61 25 28 32 29 8c 66 25 28 31 29 3d |.W%=a%(2).f%(1)=| 00001970 78 25 3a 66 25 28 32 29 3d 79 25 0d 01 51 0f 66 |x%:f%(2)=y%..Q.f| 00001980 25 28 30 29 3d 2d 31 3a f2 65 0d 01 54 23 c9 31 |%(0)=-1:.e..T#.1| 00001990 30 3a e7 57 25 3d 61 25 28 30 29 8c 62 25 28 31 |0:.W%=a%(0).b%(1| 000019a0 29 3d 78 25 3a 62 25 28 33 29 3d 79 25 0d 01 55 |)=x%:b%(3)=y%..U| 000019b0 1f e7 57 25 3d 61 25 28 31 29 8c 62 25 28 32 29 |..W%=a%(1).b%(2)| 000019c0 3d 78 25 3a 62 25 28 33 29 3d 79 25 0d 01 56 1f |=x%:b%(3)=y%..V.| 000019d0 e7 57 25 3d 61 25 28 32 29 8c 62 25 28 31 29 3d |.W%=a%(2).b%(1)=| 000019e0 78 25 3a 62 25 28 32 29 3d 79 25 0d 01 57 0f 62 |x%:b%(2)=y%..W.b| 000019f0 25 28 30 29 3d 2d 31 3a f2 65 0d 01 5a 1d c9 31 |%(0)=-1:.e..Z..1| 00001a00 33 3a e7 57 25 3d 61 25 28 30 29 8c 6c 25 3d 78 |3:.W%=a%(0).l%=x| 00001a10 25 3a 71 25 3d 79 25 0d 01 5b 19 e7 57 25 3d 61 |%:q%=y%..[..W%=a| 00001a20 25 28 31 29 8c 6e 25 3d 78 25 3a 71 25 3d 79 25 |%(1).n%=x%:q%=y%| 00001a30 0d 01 5c 19 e7 57 25 3d 61 25 28 32 29 8c 6c 25 |..\..W%=a%(2).l%| 00001a40 3d 78 25 3a 6e 25 3d 79 25 0d 01 5d 06 f2 65 0d |=x%:n%=y%..]..e.| 00001a50 01 5f 4f c9 31 34 2c 33 30 3a 74 25 28 31 29 3d |._O.14,30:t%(1)=| 00001a60 74 25 28 39 33 29 3a 74 25 28 32 29 3d 74 25 28 |t%(93):t%(2)=t%(| 00001a70 39 34 29 3a 74 25 28 33 29 3d 74 25 28 39 35 29 |94):t%(3)=t%(95)| 00001a80 3a e7 57 25 3d 61 25 28 30 29 8c 74 25 28 39 33 |:.W%=a%(0).t%(93| 00001a90 29 3d 78 25 3a 74 25 28 39 35 29 3d 79 25 0d 01 |)=x%:t%(95)=y%..| 00001aa0 61 21 e7 57 25 3d 61 25 28 31 29 8c 74 25 28 39 |a!.W%=a%(1).t%(9| 00001ab0 34 29 3d 78 25 3a 74 25 28 39 35 29 3d 79 25 0d |4)=x%:t%(95)=y%.| 00001ac0 01 62 21 e7 57 25 3d 61 25 28 32 29 8c 74 25 28 |.b!.W%=a%(2).t%(| 00001ad0 39 33 29 3d 78 25 3a 74 25 28 39 34 29 3d 79 25 |93)=x%:t%(94)=y%| 00001ae0 0d 01 63 dc 74 25 28 34 29 3d 74 25 28 39 33 29 |..c.t%(4)=t%(93)| 00001af0 3a 74 25 28 35 29 3d 74 25 28 39 34 29 3a 74 25 |:t%(5)=t%(94):t%| 00001b00 28 36 29 3d 74 25 28 39 35 29 3a 74 25 28 38 30 |(6)=t%(95):t%(80| 00001b10 29 3d 57 25 3a 3a e3 46 3d 30 b8 32 3a 57 25 3d |)=W%::.F=0.2:W%=| 00001b20 61 25 28 46 29 3a 21 62 25 3d 57 25 3a 62 25 21 |a%(F):!b%=W%:b%!| 00001b30 34 3d 30 3a 62 25 21 38 3d 2d 75 25 2a 61 3a 62 |4=0:b%!8=-u%*a:b| 00001b40 25 21 31 32 3d 75 25 2a 61 3a 62 25 21 31 36 3d |%!12=u%*a:b%!16=| 00001b50 30 3a c8 99 22 57 69 6d 70 5f 55 70 64 61 74 65 |0:.."Wimp_Update| 00001b60 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 3a 68 |Window",,b%.k%:h| 00001b70 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 3d |%=b%!4-b%!20:j%=| 00001b80 28 62 25 21 31 36 2d 62 25 21 32 34 29 3a c8 95 |(b%!16-b%!24):..| 00001b90 6b 25 3a 74 25 28 39 33 29 3d 74 25 28 31 29 3a |k%:t%(93)=t%(1):| 00001ba0 74 25 28 39 34 29 3d 74 25 28 32 29 3a 74 25 28 |t%(94)=t%(2):t%(| 00001bb0 39 35 29 3d 74 25 28 33 29 3a f2 47 0d 01 6d 4e |95)=t%(3):.G..mN| 00001bc0 74 25 28 39 33 29 3d 74 25 28 34 29 3a 74 25 28 |t%(93)=t%(4):t%(| 00001bd0 39 34 29 3d 74 25 28 35 29 3a 74 25 28 39 35 29 |94)=t%(5):t%(95)| 00001be0 3d 74 25 28 36 29 3a f2 47 3a c8 99 22 57 69 6d |=t%(6):.G:.."Wim| 00001bf0 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c |p_GetRectangle",| 00001c00 2c 62 25 b8 6b 25 3a ce 3a ed 0d 01 73 58 c9 31 |,b%.k%:.:...sX.1| 00001c10 36 3a ea 55 2c 56 2c 5f 3a 55 3d 63 25 28 60 25 |6:.U,V,_:U=c%(`%| 00001c20 2b 31 2c 31 29 3a 56 3d 63 25 28 60 25 2b 31 2c |+1,1):V=c%(`%+1,| 00001c30 32 29 3a 5f 3d 63 25 28 60 25 2b 31 2c 33 29 3a |2):_=c%(`%+1,3):| 00001c40 e7 57 25 3d 61 25 28 30 29 8c 75 61 25 3d b6 28 |.W%=a%(0).ua%=.(| 00001c50 28 55 2d 78 25 29 5e 32 2b 28 5f 2d 79 25 29 5e |(U-x%)^2+(_-y%)^| 00001c60 32 29 0d 01 77 26 e7 57 25 3d 61 25 28 31 29 8c |2)..w&.W%=a%(1).| 00001c70 75 61 25 3d b6 28 28 56 2d 78 25 29 5e 32 2b 28 |ua%=.((V-x%)^2+(| 00001c80 5f 2d 79 25 29 5e 32 29 0d 01 78 26 e7 57 25 3d |_-y%)^2)..x&.W%=| 00001c90 61 25 28 32 29 8c 75 61 25 3d b6 28 28 55 2d 78 |a%(2).ua%=.((U-x| 00001ca0 25 29 5e 32 2b 28 56 2d 79 25 29 5e 32 29 0d 01 |%)^2+(V-y%)^2)..| 00001cb0 79 d6 76 61 25 3d 63 25 28 60 25 2b 31 2c 34 29 |y.va%=c%(`%+1,4)| 00001cc0 3a e3 46 3d 30 b8 32 3a 57 25 3d 61 25 28 46 29 |:.F=0.2:W%=a%(F)| 00001cd0 3a 21 62 25 3d 57 25 3a 62 25 21 34 3d 30 3a 62 |:!b%=W%:b%!4=0:b| 00001ce0 25 21 38 3d 2d 75 25 2a 61 3a 62 25 21 31 32 3d |%!8=-u%*a:b%!12=| 00001cf0 75 25 2a 61 3a 62 25 21 31 36 3d 30 3a c8 99 22 |u%*a:b%!16=0:.."| 00001d00 57 69 6d 70 5f 55 70 64 61 74 65 57 69 6e 64 6f |Wimp_UpdateWindo| 00001d10 77 22 2c 2c 62 25 b8 6b 25 3a 68 25 3d 62 25 21 |w",,b%.k%:h%=b%!| 00001d20 34 2d 62 25 21 32 30 3a 6a 25 3d 28 62 25 21 31 |4-b%!20:j%=(b%!1| 00001d30 36 2d 62 25 21 32 34 29 3a c8 95 6b 25 3a 63 25 |6-b%!24):..k%:c%| 00001d40 28 60 25 2b 31 2c 34 29 3d 76 61 25 3a f2 67 3a |(`%+1,4)=va%:.g:| 00001d50 63 25 28 60 25 2b 31 2c 34 29 3d 75 61 25 2f 32 |c%(`%+1,4)=ua%/2| 00001d60 3a f2 67 3a c8 99 22 57 69 6d 70 5f 47 65 74 52 |:.g:.."Wimp_GetR| 00001d70 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 6b 25 |ectangle",,b%.k%| 00001d80 3a ce 3a ed 0d 01 86 14 c9 32 34 3a ea 46 2c 62 |:.:......24:.F,b| 00001d90 3a e7 42 61 25 3d 31 8c 0d 01 88 23 e3 62 3d 31 |:.Ba%=1....#.b=1| 00001da0 b8 39 3a 74 25 28 62 29 3d 63 25 21 28 62 2a 34 |.9:t%(b)=c%!(b*4| 00001db0 2b 34 29 3a ed 3a c8 8e 57 25 ca 0d 01 8a 64 c9 |+4):.:..W%....d.| 00001dc0 61 25 28 30 29 3a 74 25 28 31 34 29 3d 78 25 3a |a%(0):t%(14)=x%:| 00001dd0 74 25 28 31 35 29 3d 6e 25 3a 74 25 28 31 36 29 |t%(15)=n%:t%(16)| 00001de0 3d 79 25 3a 74 25 28 31 31 29 3d 6c 25 3a 74 25 |=y%:t%(11)=l%:t%| 00001df0 28 31 32 29 3d 6e 25 3a 74 25 28 31 33 29 3d 79 |(12)=n%:t%(13)=y| 00001e00 25 3a 74 25 28 31 37 29 3d 78 25 3a 74 25 28 31 |%:t%(17)=x%:t%(1| 00001e10 38 29 3d 6e 25 3a 74 25 28 31 39 29 3d 71 25 0d |8)=n%:t%(19)=q%.| 00001e20 01 8f 64 c9 61 25 28 31 29 3a 74 25 28 31 34 29 |..d.a%(1):t%(14)| 00001e30 3d 6c 25 3a 74 25 28 31 35 29 3d 78 25 3a 74 25 |=l%:t%(15)=x%:t%| 00001e40 28 31 36 29 3d 79 25 3a 74 25 28 31 31 29 3d 6c |(16)=y%:t%(11)=l| 00001e50 25 3a 74 25 28 31 32 29 3d 6e 25 3a 74 25 28 31 |%:t%(12)=n%:t%(1| 00001e60 33 29 3d 79 25 3a 74 25 28 31 37 29 3d 6c 25 3a |3)=y%:t%(17)=l%:| 00001e70 74 25 28 31 38 29 3d 78 25 3a 74 25 28 31 39 29 |t%(18)=x%:t%(19)| 00001e80 3d 71 25 0d 01 93 64 c9 61 25 28 32 29 3a 74 25 |=q%...d.a%(2):t%| 00001e90 28 31 34 29 3d 78 25 3a 74 25 28 31 35 29 3d 79 |(14)=x%:t%(15)=y| 00001ea0 25 3a 74 25 28 31 36 29 3d 71 25 3a 74 25 28 31 |%:t%(16)=q%:t%(1| 00001eb0 31 29 3d 6c 25 3a 74 25 28 31 32 29 3d 79 25 3a |1)=l%:t%(12)=y%:| 00001ec0 74 25 28 31 33 29 3d 71 25 3a 74 25 28 31 37 29 |t%(13)=q%:t%(17)| 00001ed0 3d 78 25 3a 74 25 28 31 38 29 3d 6e 25 3a 74 25 |=x%:t%(18)=n%:t%| 00001ee0 28 31 39 29 3d 71 25 0d 01 97 05 cb 0d 01 97 df |(19)=q%.........| 00001ef0 3a e3 46 3d 30 b8 32 3a 57 25 3d 61 25 28 46 29 |:.F=0.2:W%=a%(F)| 00001f00 3a 21 62 25 3d 57 25 3a 62 25 21 34 3d 30 3a 62 |:!b%=W%:b%!4=0:b| 00001f10 25 21 38 3d 2d 75 25 2a 61 3a 62 25 21 31 32 3d |%!8=-u%*a:b%!12=| 00001f20 75 25 2a 61 3a 62 25 21 31 36 3d 30 3a c8 99 22 |u%*a:b%!16=0:.."| 00001f30 57 69 6d 70 5f 55 70 64 61 74 65 57 69 6e 64 6f |Wimp_UpdateWindo| 00001f40 77 22 2c 2c 62 25 b8 6b 25 3a 68 25 3d 62 25 21 |w",,b%.k%:h%=b%!| 00001f50 34 2d 62 25 21 32 30 3a 6a 25 3d 28 62 25 21 31 |4-b%!20:j%=(b%!1| 00001f60 36 2d 62 25 21 32 34 29 3a c8 95 6b 25 3a e3 62 |6-b%!24):..k%:.b| 00001f70 3d 31 b8 39 3a 63 25 21 28 62 2a 34 2b 34 29 3d |=1.9:c%!(b*4+4)=| 00001f80 74 25 28 62 29 3a ed 3a f2 67 3a e3 62 3d 31 b8 |t%(b):.:.g:.b=1.| 00001f90 39 3a 63 25 21 28 62 2a 34 2b 34 29 3d 74 25 28 |9:c%!(b*4+4)=t%(| 00001fa0 62 2b 31 30 29 3a ed 3a f2 67 3a c8 99 22 57 69 |b+10):.:.g:.."Wi| 00001fb0 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 |mp_GetRectangle"| 00001fc0 2c 2c 62 25 b8 6b 25 3a ce 3a ed 0d 01 a4 69 cc |,,b%.k%:.:....i.| 00001fd0 3a 74 25 28 31 29 3d 63 25 21 35 36 3a 74 25 28 |:t%(1)=c%!56:t%(| 00001fe0 32 29 3d 63 25 21 36 30 3a 74 25 28 33 29 3d 63 |2)=c%!60:t%(3)=c| 00001ff0 25 21 36 34 3a 74 25 28 34 29 3d 74 25 28 31 29 |%!64:t%(4)=t%(1)| 00002000 3a 74 25 28 35 29 3d 74 25 28 32 29 3a 74 25 28 |:t%(5)=t%(2):t%(| 00002010 36 29 3d 74 25 28 33 29 3a e7 57 25 3d 61 25 28 |6)=t%(3):.W%=a%(| 00002020 30 29 8c 74 25 28 34 29 3d 78 25 3a 74 25 28 36 |0).t%(4)=x%:t%(6| 00002030 29 3d 79 25 0d 01 a7 1f e7 57 25 3d 61 25 28 31 |)=y%.....W%=a%(1| 00002040 29 8c 74 25 28 35 29 3d 78 25 3a 74 25 28 36 29 |).t%(5)=x%:t%(6)| 00002050 3d 79 25 0d 01 a8 1f e7 57 25 3d 61 25 28 32 29 |=y%.....W%=a%(2)| 00002060 8c 74 25 28 34 29 3d 78 25 3a 74 25 28 35 29 3d |.t%(4)=x%:t%(5)=| 00002070 79 25 0d 01 a9 ce e3 46 3d 30 b8 32 3a 57 25 3d |y%.....F=0.2:W%=| 00002080 61 25 28 46 29 3a 21 62 25 3d 57 25 3a 62 25 21 |a%(F):!b%=W%:b%!| 00002090 34 3d 30 3a 62 25 21 38 3d 2d 75 25 2a 61 3a 62 |4=0:b%!8=-u%*a:b| 000020a0 25 21 31 32 3d 75 25 2a 61 3a 62 25 21 31 36 3d |%!12=u%*a:b%!16=| 000020b0 30 3a c8 99 22 57 69 6d 70 5f 55 70 64 61 74 65 |0:.."Wimp_Update| 000020c0 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 3a 68 |Window",,b%.k%:h| 000020d0 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 3d |%=b%!4-b%!20:j%=| 000020e0 28 62 25 21 31 36 2d 62 25 21 32 34 29 3a c8 95 |(b%!16-b%!24):..| 000020f0 6b 25 3a 63 25 21 35 36 3d 74 25 28 31 29 3a 63 |k%:c%!56=t%(1):c| 00002100 25 21 36 30 3d 74 25 28 32 29 3a 63 25 21 36 34 |%!60=t%(2):c%!64| 00002110 3d 74 25 28 33 29 3a f2 67 3a 63 25 21 35 36 3d |=t%(3):.g:c%!56=| 00002120 74 25 28 34 29 3a 63 25 21 36 30 3d 74 25 28 35 |t%(4):c%!60=t%(5| 00002130 29 3a 63 25 21 36 34 3d 74 25 28 36 29 3a f2 67 |):c%!64=t%(6):.g| 00002140 0d 01 af 24 c8 99 22 57 69 6d 70 5f 47 65 74 52 |...$.."Wimp_GetR| 00002150 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 6b 25 |ectangle",,b%.k%| 00002160 3a ce 3a ed 0d 01 b3 05 cd 0d 01 b3 42 c9 32 35 |:.:.........B.25| 00002170 3a ea 76 61 25 2c 75 61 25 2c 44 61 25 2c 45 61 |:.va%,ua%,Da%,Ea| 00002180 25 3a e7 57 25 3d 61 25 28 30 29 8c 45 61 25 3d |%:.W%=a%(0).Ea%=| 00002190 b6 28 28 63 25 21 38 2d 78 25 29 5e 32 2b 28 63 |.((c%!8-x%)^2+(c| 000021a0 25 21 31 36 2d 79 25 29 5e 32 29 0d 01 b6 2e e7 |%!16-y%)^2).....| 000021b0 57 25 3d 61 25 28 31 29 8c 45 61 25 3d b6 28 28 |W%=a%(1).Ea%=.((| 000021c0 63 25 21 31 32 2d 78 25 29 5e 32 2b 28 63 25 21 |c%!12-x%)^2+(c%!| 000021d0 31 36 2d 79 25 29 5e 32 29 0d 01 b7 2d e7 57 25 |16-y%)^2)...-.W%| 000021e0 3d 61 25 28 32 29 8c 45 61 25 3d b6 28 28 63 25 |=a%(2).Ea%=.((c%| 000021f0 21 38 2d 78 25 29 5e 32 2b 28 63 25 21 31 32 2d |!8-x%)^2+(c%!12-| 00002200 79 25 29 5e 32 29 0d 01 b8 2e 76 61 25 3d 63 25 |y%)^2)....va%=c%| 00002210 21 33 36 3a 44 61 25 3d 63 25 21 33 32 3a e3 46 |!36:Da%=c%!32:.F| 00002220 3d 30 b8 32 3a e7 61 25 28 46 29 3d 57 25 8c 75 |=0.2:.a%(F)=W%.u| 00002230 61 25 3d 46 0d 01 bb d1 ed 3a e3 46 3d 30 b8 32 |a%=F.....:.F=0.2| 00002240 3a 57 25 3d 61 25 28 46 29 3a 21 62 25 3d 57 25 |:W%=a%(F):!b%=W%| 00002250 3a 62 25 21 34 3d 30 3a 62 25 21 38 3d 2d 75 25 |:b%!4=0:b%!8=-u%| 00002260 2a 61 3a 62 25 21 31 32 3d 75 25 2a 61 3a 62 25 |*a:b%!12=u%*a:b%| 00002270 21 31 36 3d 30 3a c8 99 22 57 69 6d 70 5f 55 70 |!16=0:.."Wimp_Up| 00002280 64 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 |dateWindow",,b%.| 00002290 6b 25 3a 68 25 3d 62 25 21 34 2d 62 25 21 32 30 |k%:h%=b%!4-b%!20| 000022a0 3a 6a 25 3d 28 62 25 21 31 36 2d 62 25 21 32 34 |:j%=(b%!16-b%!24| 000022b0 29 3a c8 95 6b 25 3a 63 25 21 33 32 3d 44 61 25 |):..k%:c%!32=Da%| 000022c0 3a 63 25 21 33 36 3d 76 61 25 3a f2 67 3a 63 25 |:c%!36=va%:.g:c%| 000022d0 21 33 32 3d 45 61 25 3a 63 25 21 33 36 3d 75 61 |!32=Ea%:c%!36=ua| 000022e0 25 3a f2 67 3a c8 99 22 57 69 6d 70 5f 47 65 74 |%:.g:.."Wimp_Get| 000022f0 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 6b |Rectangle",,b%.k| 00002300 25 3a ce 3a ed 0d 01 c8 05 cb 0d 01 c8 05 e1 0d |%:.:............| 00002310 01 c9 3d dd f2 68 61 28 57 25 2c 49 25 2c 43 25 |..=..ha(W%,I%,C%| 00002320 29 3a ea 46 61 25 2c 63 2c 65 2c 47 61 25 3a 47 |):.Fa%,c,e,Ga%:G| 00002330 61 25 3d 2d 31 3a 48 61 25 3d 2d 31 3a e7 43 25 |a%=-1:Ha%=-1:.C%| 00002340 3d 33 38 35 8c f2 6d 61 28 57 25 29 0d 01 d0 09 |=385..ma(W%)....| 00002350 c8 8e 43 25 ca 0d 01 d1 0d c9 31 33 3a c8 8e 57 |..C%......13:..W| 00002360 25 ca 0d 01 d3 39 c9 49 61 25 3a 46 61 25 3d bb |%....9.Ia%:Fa%=.| 00002370 28 a4 62 28 57 25 2c 49 25 29 29 3a e7 46 61 25 |(.b(W%,I%)):.Fa%| 00002380 3e 31 30 30 46 61 25 3d 31 30 30 3a f2 62 28 57 |>100Fa%=100:.b(W| 00002390 25 2c 49 25 2c 22 31 30 30 22 29 0d 01 d6 13 e7 |%,I%,"100").....| 000023a0 67 25 28 49 25 2d 36 29 3c 3e 46 61 25 8c 0d 01 |g%(I%-6)<>Fa%...| 000023b0 d7 7a 67 25 28 49 25 2d 36 29 3d 46 61 25 3a c8 |.zg%(I%-6)=Fa%:.| 000023c0 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 |."Wimp_ForceRedr| 000023d0 61 77 22 2c 57 25 2c 31 33 32 2c 2d 28 35 34 2a |aw",W%,132,-(54*| 000023e0 28 49 25 2d 36 29 2b 36 38 29 2c 35 39 30 2c 2d |(I%-6)+68),590,-| 000023f0 28 35 34 2a 28 49 25 2d 36 29 2b 33 32 29 3a c8 |(54*(I%-6)+32):.| 00002400 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 |."Wimp_ForceRedr| 00002410 61 77 22 2c 57 25 2c 34 37 32 2c 2d 32 36 34 2c |aw",W%,472,-264,| 00002420 35 38 34 2c 2d 32 30 34 0d 01 db 05 cd 0d 01 db |584,-204........| 00002430 20 c9 4a 61 25 3a e7 49 25 3d 31 31 8c 4b 61 25 | .Ja%:.I%=11.Ka%| 00002440 3d bb 28 a4 62 28 57 25 2c 49 25 29 29 0d 01 dd |=.(.b(W%,I%))...| 00002450 1b e7 49 25 3d 31 32 8c 4c 61 25 3d bb 28 a4 62 |..I%=12.La%=.(.b| 00002460 28 57 25 2c 49 25 29 29 0d 01 de 1b e7 49 25 3d |(W%,I%)).....I%=| 00002470 31 33 8c 4d 61 25 3d bb 28 a4 62 28 57 25 2c 49 |13.Ma%=.(.b(W%,I| 00002480 25 29 29 0d 01 df 16 c9 5a 25 3a e7 77 61 25 3d |%)).....Z%:.wa%=| 00002490 31 33 8c f2 58 28 57 25 29 0d 01 e1 1a c8 99 22 |13..X(W%)......"| 000024a0 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"| 000024b0 2c 2d 31 0d 01 e3 21 c9 4e 61 25 3a e7 49 25 3d |,-1...!.Na%:.I%=| 000024c0 31 39 8c f2 76 28 57 25 2c 32 30 2c 34 29 3a 47 |19..v(W%,20,4):G| 000024d0 61 25 3d 30 0d 01 e4 1f c9 74 61 25 3a e7 49 25 |a%=0.....ta%:.I%| 000024e0 3d 31 8c f2 76 28 57 25 2c 32 2c 34 29 3a 47 61 |=1..v(W%,2,4):Ga| 000024f0 25 3d 30 0d 01 e6 1f c9 4f 61 25 3a e7 49 25 3d |%=0.....Oa%:.I%=| 00002500 34 8c f2 76 28 57 25 2c 33 2c 34 29 3a 47 61 25 |4..v(W%,3,4):Ga%| 00002510 3d 30 0d 01 e8 1f c9 50 61 25 3a e7 49 25 3d 32 |=0.....Pa%:.I%=2| 00002520 8c f2 76 28 57 25 2c 38 2c 34 29 3a 47 61 25 3d |..v(W%,8,4):Ga%=| 00002530 30 0d 01 ea 0f c9 71 61 25 3a e7 49 25 3d 31 8c |0.....qa%:.I%=1.| 00002540 0d 01 ec 18 e7 a7 a4 62 28 71 61 25 2c 31 29 2c |.......b(qa%,1),| 00002550 22 24 2e 22 29 3d 30 8c 0d 01 ed 0d 85 31 37 2c |"$.")=0......17,| 00002560 61 24 28 35 29 0d 01 ef 05 cd 0d 01 ef 17 f2 41 |a$(5)..........A| 00002570 28 a4 62 28 71 61 25 2c 31 29 29 3a 47 61 25 3d |(.b(qa%,1)):Ga%=| 00002580 30 0d 01 f1 05 cd 0d 01 f1 0f c9 73 61 25 3a e7 |0..........sa%:.| 00002590 49 25 3d 31 8c 0d 01 f3 18 e7 a7 a4 62 28 73 61 |I%=1........b(sa| 000025a0 25 2c 31 29 2c 22 24 2e 22 29 3d 30 8c 0d 01 f4 |%,1),"$.")=0....| 000025b0 0d 85 31 37 2c 61 24 28 35 29 0d 01 f6 05 cd 0d |..17,a$(5)......| 000025c0 01 f6 17 f2 4f 28 a4 62 28 73 61 25 2c 31 29 29 |....O(.b(sa%,1))| 000025d0 3a 47 61 25 3d 30 0d 01 f8 05 cd 0d 01 f8 05 cb |:Ga%=0..........| 000025e0 0d 01 f9 16 c9 33 38 37 3a f2 6d 28 71 61 25 29 |.....387:.m(qa%)| 000025f0 3a 48 61 25 3d 30 0d 01 fb 16 c9 34 30 33 3a f2 |:Ha%=0.....403:.| 00002600 6d 28 73 61 25 29 3a 48 61 25 3d 30 0d 01 fc 1f |m(sa%):Ha%=0....| 00002610 c9 33 38 39 3a c8 99 22 48 6f 75 72 67 6c 61 73 |.389:.."Hourglas| 00002620 73 5f 4f 6e 22 3a e7 51 61 25 8c 0d 01 fe 30 d5 |s_On":.Qa%....0.| 00002630 23 52 61 25 2c 22 52 6f 74 61 74 65 20 22 2b c3 |#Ra%,"Rotate "+.| 00002640 28 4b 61 25 29 2b 22 20 22 2b c3 28 4c 61 25 29 |(Ka%)+" "+.(La%)| 00002650 2b 22 20 22 2b c3 28 4d 61 25 29 0d 02 00 05 cd |+" "+.(Ma%).....| 00002660 0d 02 00 17 e3 5a 3d 31 b8 64 25 3a e7 4b 25 3f |.....Z=1.d%:.K%?| 00002670 5a 8c f2 48 28 5a 29 0d 02 02 1d ed 3a f2 65 3a |Z..H(Z).....:.e:| 00002680 f2 68 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |.h:.."Hourglass_| 00002690 4f 66 66 22 0d 02 07 05 cb 0d 02 07 20 3a e7 43 |Off"........ :.C| 000026a0 25 3d 28 31 33 84 43 25 3d 33 39 38 84 43 25 3d |%=(13.C%=398.C%=| 000026b0 33 39 39 29 80 47 61 25 8c 0d 02 09 1b e7 43 25 |399).Ga%......C%| 000026c0 3c 3e 33 39 39 8c 49 25 3d a4 6e 28 57 25 2c 49 |<>399.I%=.n(W%,I| 000026d0 25 2c 31 29 0d 02 0a 1a e7 43 25 3d 33 39 39 8c |%,1).....C%=399.| 000026e0 49 25 3d a4 6e 28 57 25 2c 49 25 2c 30 29 0d 02 |I%=.n(W%,I%,0)..| 000026f0 0b 37 c8 99 22 57 69 6d 70 5f 53 65 74 43 61 72 |.7.."Wimp_SetCar| 00002700 65 74 50 6f 73 69 74 69 6f 6e 22 2c 57 25 2c 49 |etPosition",W%,I| 00002710 25 2c 30 2c 30 2c 2d 31 2c a9 28 a4 62 28 57 25 |%,0,0,-1,.(.b(W%| 00002720 2c 49 25 29 29 0d 02 0d 05 cd 0d 02 0d 28 e7 57 |,I%))........(.W| 00002730 25 3d 71 61 25 80 43 25 3d 31 33 8c c8 99 22 57 |%=qa%.C%=13..."W| 00002740 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",| 00002750 2d 31 0d 02 0e 28 e7 57 25 3d 73 61 25 80 43 25 |-1...(.W%=sa%.C%| 00002760 3d 31 33 8c c8 99 22 57 69 6d 70 5f 43 72 65 61 |=13..."Wimp_Crea| 00002770 74 65 4d 65 6e 75 22 2c 2d 31 0d 02 0f 1f e7 48 |teMenu",-1.....H| 00002780 61 25 8c c8 99 22 57 69 6d 70 5f 50 72 6f 63 65 |a%..."Wimp_Proce| 00002790 73 73 4b 65 79 22 2c 43 25 0d 02 10 05 e1 0d 02 |ssKey",C%.......| 000027a0 11 14 dd f2 49 28 58 29 3a e7 58 3d 30 84 58 3d |....I(X):.X=0.X=| 000027b0 33 8c 0d 02 14 17 63 25 28 29 3d 30 3a 62 24 28 |3.....c%()=0:b$(| 000027c0 29 3d 22 22 3a 60 25 3d 30 0d 02 16 05 cd 0d 02 |)="":`%=0.......| 000027d0 16 0d e7 58 3d 31 84 58 3d 33 8c 0d 02 17 a8 e3 |...X=1.X=3......| 000027e0 4e 3d 30 b8 32 30 2a 53 61 25 88 34 3a 4a 25 21 |N=0.20*Sa%.4:J%!| 000027f0 4e 3d 30 3a ed 3a 68 25 28 29 3d 30 3a 6f 61 25 |N=0:.:h%()=0:oa%| 00002800 3d 30 3a 41 61 25 3d 30 3a 54 61 25 3d 30 3a 55 |=0:Aa%=0:Ta%=0:U| 00002810 61 25 3d 30 3a 5f 25 3d 30 3a 24 56 25 3d 22 22 |a%=0:_%=0:$V%=""| 00002820 3a 56 25 3f 32 30 3d 35 30 3a 56 25 3f 32 33 3d |:V%?20=50:V%?23=| 00002830 35 30 3a 56 25 3f 32 34 3d 35 30 3a 56 25 3f 32 |50:V%?24=50:V%?2| 00002840 35 3d 35 30 3a 56 25 3f 32 36 3d 31 35 3a 56 25 |5=50:V%?26=15:V%| 00002850 3f 32 39 3d 30 3a 56 25 3f 33 30 3d 35 30 3a 56 |?29=0:V%?30=50:V| 00002860 25 3f 33 31 3d 35 30 3a 56 25 21 33 32 3d 31 30 |%?31=50:V%!32=10| 00002870 30 3a 56 25 21 33 36 3d 30 3a f2 75 28 24 56 25 |0:V%!36=0:.u($V%| 00002880 2c 30 29 0d 02 1f 05 cd 0d 02 1f 0d e7 58 3d 32 |,0)..........X=2| 00002890 84 58 3d 33 8c 0d 02 20 8c 21 78 61 25 3d 2d 32 |.X=3... .!xa%=-2| 000028a0 35 36 3a 48 25 3d 34 3a 64 61 25 3d 30 3a 43 61 |56:H%=4:da%=0:Ca| 000028b0 25 3d 48 25 3a 67 25 28 29 3d 30 3a e3 4d 3d 30 |%=H%:g%()=0:.M=0| 000028c0 b8 53 61 25 88 34 3a 4b 25 21 4d 3d 30 3a ed 3a |.Sa%.4:K%!M=0:.:| 000028d0 4f 25 3d 30 3a 64 25 3d 30 3a 66 25 28 29 3d 30 |O%=0:d%=0:f%()=0| 000028e0 3a 62 25 28 29 3d 30 3a 55 25 3d 30 3a 66 61 25 |:b%()=0:U%=0:fa%| 000028f0 3d 30 3a e3 4d 3d 31 b8 53 61 25 2f 32 3a 24 a4 |=0:.M=1.Sa%/2:$.| 00002900 64 28 4d 29 3d 22 22 3a ed 3a e3 4d 3d 31 b8 53 |d(M)="":.:.M=1.S| 00002910 61 25 3a 24 a4 61 28 4d 29 3d 22 22 3a ed 3a f2 |a%:$.a(M)="":.:.| 00002920 69 0d 02 28 05 cd 0d 02 28 0b f2 65 3a f2 68 3a |i..(....(..e:.h:| 00002930 e1 0d 02 2b 6c dd f2 6e 61 3a 62 25 21 30 3d 2d |...+l..na:b%!0=-| 00002940 31 3a 62 25 21 34 3d 30 3a 62 25 21 38 3d 30 3a |1:b%!4=0:b%!8=0:| 00002950 62 25 21 31 32 3d 36 34 3a 62 25 21 31 36 3d 36 |b%!12=64:b%!16=6| 00002960 34 3a 62 25 21 32 30 3d 33 38 35 38 38 38 32 36 |4:b%!20=38588826| 00002970 36 3a 24 28 62 25 2b 32 34 29 3d 22 21 52 41 59 |6:$(b%+24)="!RAY| 00002980 33 44 22 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 |3D":.."Wimp_Crea| 00002990 74 65 49 63 6f 6e 22 2c 2c 62 25 3a e1 0d 02 34 |teIcon",,b%:...4| 000029a0 41 dd f2 6b 61 3a ea 63 25 2c 78 25 2c 79 25 2c |A..ka:.c%,x%,y%,| 000029b0 7a 25 2c 56 61 25 2c 41 25 2c 4e 2c 6f 25 3a 56 |z%,Va%,A%,N,o%:V| 000029c0 61 25 3d 2d 31 3a 6f 25 3d 64 25 3a 63 25 3d 78 |a%=-1:o%=d%:c%=x| 000029d0 61 25 2b 48 25 2d 34 3a c8 8e 77 61 25 ca 0d 02 |a%+H%-4:..wa%...| 000029e0 3b 26 c9 31 3a 63 25 21 30 3d 2d 32 3a 63 25 21 |;&.1:c%!0=-2:c%!| 000029f0 32 34 3d 2d 32 35 36 3a 48 25 2b 3d 32 34 3a 64 |24=-256:H%+=24:d| 00002a00 25 2b 3d 31 0d 02 3e 0e c9 32 3a e7 42 61 25 3d |%+=1..>..2:.Ba%=| 00002a10 33 8c 0d 02 3f 28 63 25 21 30 3d 2d 35 3a 63 25 |3...?(c%!0=-5:c%| 00002a20 21 32 33 32 3d 2d 32 35 36 3a 48 25 2b 3d 32 33 |!232=-256:H%+=23| 00002a30 32 3a 64 25 2b 3d 31 3a f2 69 0d 02 41 05 cd 0d |2:d%+=1:.i..A...| 00002a40 02 41 0b e7 42 61 25 3d 32 8c 0d 02 42 57 42 61 |.A..Ba%=2...BWBa| 00002a50 25 3d 33 3a 56 61 25 3d 30 3a e3 4e 3d 31 b8 38 |%=3:Va%=0:.N=1.8| 00002a60 3a 21 28 63 25 2b 4e 2a 31 32 2b 31 32 34 29 3d |:!(c%+N*12+124)=| 00002a70 63 25 21 32 30 3a 21 28 63 25 2b 4e 2a 31 32 2b |c%!20:!(c%+N*12+| 00002a80 31 32 38 29 3d 63 25 21 32 34 3a 21 28 63 25 2b |128)=c%!24:!(c%+| 00002a90 4e 2a 31 32 2b 31 33 32 29 3d 63 25 21 32 38 3a |N*12+132)=c%!28:| 00002aa0 ed 0d 02 45 05 cd 0d 02 45 0b e7 42 61 25 3d 31 |...E....E..Ba%=1| 00002ab0 8c 0d 02 46 36 42 61 25 3d 32 3a e7 63 25 21 38 |...F6Ba%=2:.c%!8| 00002ac0 3c 3e 63 25 21 32 30 84 63 25 21 31 32 3c 3e 63 |<>c%!20.c%!12<>c| 00002ad0 25 21 32 34 84 63 25 21 31 36 3c 3e 63 25 21 32 |%!24.c%!16<>c%!2| 00002ae0 38 8c 56 61 25 3d 30 0d 02 47 0b e7 56 61 25 3d |8.Va%=0..G..Va%=| 00002af0 30 8c 0d 02 48 47 e3 4e 3d 31 b8 38 3a 21 28 63 |0...HG.N=1.8:!(c| 00002b00 25 2b 4e 2a 31 32 2b 32 38 29 3d 63 25 21 38 3a |%+N*12+28)=c%!8:| 00002b10 21 28 63 25 2b 4e 2a 31 32 2b 33 32 29 3d 63 25 |!(c%+N*12+32)=c%| 00002b20 21 31 32 3a 21 28 63 25 2b 4e 2a 31 32 2b 33 36 |!12:!(c%+N*12+36| 00002b30 29 3d 63 25 21 31 36 3a ed 0d 02 4b 05 cd 0d 02 |)=c%!16:...K....| 00002b40 4b 05 cd 0d 02 4c 0e c9 33 3a e7 42 61 25 3d 31 |K....L..3:.Ba%=1| 00002b50 8c 0d 02 4e 36 42 61 25 3d 32 3a e7 63 25 21 38 |...N6Ba%=2:.c%!8| 00002b60 3c 3e 63 25 21 32 30 84 63 25 21 31 32 3c 3e 63 |<>c%!20.c%!12<>c| 00002b70 25 21 32 34 84 63 25 21 31 36 3c 3e 63 25 21 32 |%!24.c%!16<>c%!2| 00002b80 38 8c 56 61 25 3d 30 0d 02 4f 0b e7 56 61 25 3d |8.Va%=0..O..Va%=| 00002b90 30 8c 0d 02 50 47 e3 4e 3d 31 b8 38 3a 21 28 63 |0...PG.N=1.8:!(c| 00002ba0 25 2b 4e 2a 31 32 2b 32 34 29 3d 63 25 21 38 3a |%+N*12+24)=c%!8:| 00002bb0 21 28 63 25 2b 4e 2a 31 32 2b 32 38 29 3d 63 25 |!(c%+N*12+28)=c%| 00002bc0 21 31 32 3a 21 28 63 25 2b 4e 2a 31 32 2b 33 32 |!12:!(c%+N*12+32| 00002bd0 29 3d 63 25 21 31 36 3a ed 0d 02 53 05 cd 0d 02 |)=c%!16:...S....| 00002be0 53 2a cc 3a 63 25 21 30 3d 2d 34 3a 63 25 21 31 |S*.:c%!0=-4:c%!1| 00002bf0 33 32 3d 2d 32 35 36 3a 48 25 2b 3d 31 33 32 3a |32=-256:H%+=132:| 00002c00 64 25 2b 3d 31 3a f2 69 0d 02 56 05 cd 0d 02 56 |d%+=1:.i..V....V| 00002c10 cb c9 34 3a ea 66 2c 67 2c 68 3a 66 3d 63 25 21 |..4:.f,g,h:f=c%!| 00002c20 32 30 3a 67 3d 63 25 21 32 34 3a 68 3d 63 25 21 |20:g=c%!24:h=c%!| 00002c30 32 38 3a f2 6a 28 2d 66 2c 2d 67 2c 68 2c 63 25 |28:.j(-f,-g,h,c%| 00002c40 2c 31 29 3a f2 6a 28 2d 66 2c 67 2c 68 2c 63 25 |,1):.j(-f,g,h,c%| 00002c50 2c 32 29 3a f2 6a 28 2d 66 2c 67 2c 2d 68 2c 63 |,2):.j(-f,g,-h,c| 00002c60 25 2c 33 29 3a f2 6a 28 2d 66 2c 2d 67 2c 2d 68 |%,3):.j(-f,-g,-h| 00002c70 2c 63 25 2c 34 29 3a f2 6a 28 66 2c 2d 67 2c 68 |,c%,4):.j(f,-g,h| 00002c80 2c 63 25 2c 35 29 3a f2 6a 28 66 2c 67 2c 68 2c |,c%,5):.j(f,g,h,| 00002c90 63 25 2c 36 29 3a f2 6a 28 66 2c 67 2c 2d 68 2c |c%,6):.j(f,g,-h,| 00002ca0 63 25 2c 37 29 3a f2 6a 28 66 2c 2d 67 2c 2d 68 |c%,7):.j(f,-g,-h| 00002cb0 2c 63 25 2c 38 29 3a 63 25 21 30 3d 2d 36 3a 63 |,c%,8):c%!0=-6:c| 00002cc0 25 21 31 34 30 3d 2d 32 35 36 3a 48 25 2b 3d 31 |%!140=-256:H%+=1| 00002cd0 34 30 3a 64 25 2b 3d 31 0d 02 5f 71 c9 35 3a 63 |40:d%+=1.._q.5:c| 00002ce0 25 21 35 36 3d 63 25 21 38 2b 28 63 25 21 33 32 |%!56=c%!8+(c%!32| 00002cf0 2d 63 25 21 38 29 2f 32 3a 63 25 21 36 30 3d 63 |-c%!8)/2:c%!60=c| 00002d00 25 21 31 32 2b 28 63 25 21 33 36 2d 63 25 21 31 |%!12+(c%!36-c%!1| 00002d10 32 29 2f 32 3a 63 25 21 36 34 3d 63 25 21 31 36 |2)/2:c%!64=c%!16| 00002d20 2b 28 63 25 21 34 30 2d 63 25 21 31 36 29 2f 32 |+(c%!40-c%!16)/2| 00002d30 3a e7 63 25 21 38 3d 63 25 21 33 32 8c 63 25 21 |:.c%!8=c%!32.c%!| 00002d40 35 36 2b 3d 32 30 30 30 30 0d 02 62 1d e7 63 25 |56+=20000..b..c%| 00002d50 21 31 32 3d 63 25 21 33 36 8c 63 25 21 36 30 2b |!12=c%!36.c%!60+| 00002d60 3d 32 30 30 30 30 0d 02 63 1d e7 63 25 21 31 36 |=20000..c..c%!16| 00002d70 3d 63 25 21 34 30 8c 63 25 21 36 34 2b 3d 32 30 |=c%!40.c%!64+=20| 00002d80 30 30 30 0d 02 64 23 63 25 21 30 3d 2d 37 3a 63 |000..d#c%!0=-7:c| 00002d90 25 21 36 38 3d 2d 32 35 36 3a 48 25 2b 3d 36 38 |%!68=-256:H%+=68| 00002da0 3a 64 25 2b 3d 31 0d 02 66 26 c9 36 3a 63 25 21 |:d%+=1..f&.6:c%!| 00002db0 30 3d 2d 38 3a 63 25 21 35 36 3d 2d 32 35 36 3a |0=-8:c%!56=-256:| 00002dc0 48 25 2b 3d 35 36 3a 64 25 2b 3d 31 0d 02 68 1c |H%+=56:d%+=1..h.| 00002dd0 c9 37 3a e7 41 61 25 3d 32 8c 41 61 25 3d 31 30 |.7:.Aa%=2.Aa%=10| 00002de0 30 32 3a 56 61 25 3d 30 0d 02 69 0b e7 41 61 25 |02:Va%=0..i..Aa%| 00002df0 3d 33 8c 0d 02 6a 26 63 25 21 30 3d 2d 31 3a 63 |=3...j&c%!0=-1:c| 00002e00 25 21 34 34 3d 2d 32 35 36 3a 48 25 2b 3d 34 34 |%!44=-256:H%+=44| 00002e10 3a 64 25 2b 3d 31 3a f2 69 0d 02 6c 05 cd 0d 02 |:d%+=1:.i..l....| 00002e20 6c 36 c9 38 3a 41 25 3d 63 25 2b 41 61 25 2a 31 |l6.8:A%=c%+Aa%*1| 00002e30 32 3a e7 21 41 25 3d 41 25 21 2d 31 32 80 41 25 |2:.!A%=A%!-12.A%| 00002e40 21 34 3d 41 25 21 2d 38 80 41 25 21 38 3d 41 25 |!4=A%!-8.A%!8=A%| 00002e50 21 2d 34 8c 0d 02 6f 3a 63 25 21 30 3d 2d 33 3a |!-4...o:c%!0=-3:| 00002e60 64 25 2b 3d 31 3a 63 25 21 38 3d 41 61 25 2d 31 |d%+=1:c%!8=Aa%-1| 00002e70 3a 41 25 21 31 32 3d 2d 32 35 36 3a 48 25 3d 48 |:A%!12=-256:H%=H| 00002e80 25 2b 41 61 25 2a 31 32 2b 31 32 3a f2 69 0d 02 |%+Aa%*12+12:.i..| 00002e90 73 6d cc 3a 21 28 63 25 2b 41 61 25 2a 31 32 2b |sm.:!(c%+Aa%*12+| 00002ea0 31 32 29 3d 21 28 63 25 2b 41 61 25 2a 31 32 29 |12)=!(c%+Aa%*12)| 00002eb0 3a 21 28 63 25 2b 41 61 25 2a 31 32 2b 31 36 29 |:!(c%+Aa%*12+16)| 00002ec0 3d 21 28 63 25 2b 41 61 25 2a 31 32 2b 34 29 3a |=!(c%+Aa%*12+4):| 00002ed0 21 28 63 25 2b 41 61 25 2a 31 32 2b 32 30 29 3d |!(c%+Aa%*12+20)=| 00002ee0 21 28 63 25 2b 41 61 25 2a 31 32 2b 38 29 3a 41 |!(c%+Aa%*12+8):A| 00002ef0 61 25 2b 3d 31 3a 56 61 25 3d 30 0d 02 76 05 cd |a%+=1:Va%=0..v..| 00002f00 0d 02 76 0e c9 31 33 3a f2 58 28 5a 25 29 0d 02 |..v..13:.X(Z%)..| 00002f10 78 0d c9 31 34 3a f2 59 3a f2 65 0d 02 79 0d c9 |x..14:.Y:.e..y..| 00002f20 31 36 3a 60 25 2b 3d 31 0d 02 7a 0f c9 32 34 3a |16:`%+=1..z..24:| 00002f30 e7 42 61 25 3d 31 8c 0d 02 7b 2a 42 61 25 3d 32 |.Ba%=1...{*Ba%=2| 00002f40 3a 56 61 25 3d 30 3a 63 25 21 35 36 3d 6c 25 3a |:Va%=0:c%!56=l%:| 00002f50 63 25 21 36 30 3d 6e 25 3a 63 25 21 36 34 3d 71 |c%!60=n%:c%!64=q| 00002f60 25 0d 02 7d 28 cc 3a 63 25 21 30 3d 2d 39 3a 63 |%..}(.:c%!0=-9:c| 00002f70 25 21 36 38 3d 2d 32 35 36 3a 48 25 2b 3d 36 38 |%!68=-256:H%+=68| 00002f80 3a 64 25 2b 3d 31 3a f2 69 0d 02 7f 05 cd 0d 02 |:d%+=1:.i.......| 00002f90 7f 4c c9 32 35 3a 4d 3d 63 25 21 33 36 3a e3 4e |.L.25:M=c%!36:.N| 00002fa0 3d 31 b8 38 3a e7 4d 3d 32 8c f2 74 28 63 25 21 |=1.8:.M=2..t(c%!| 00002fb0 33 32 2c 30 2c 30 2c 31 32 2a 4e 2b 32 34 2c 31 |32,0,0,12*N+24,1| 00002fc0 32 2a 4e 2b 32 38 2c 31 32 2a 4e 2b 33 32 2c 30 |2*N+28,12*N+32,0| 00002fd0 2c 34 35 2a 4e 2c 30 2c 31 29 0d 02 82 39 e7 4d |,45*N,0,1)...9.M| 00002fe0 3d 31 8c f2 74 28 30 2c 30 2c 63 25 21 33 32 2c |=1..t(0,0,c%!32,| 00002ff0 31 32 2a 4e 2b 32 34 2c 31 32 2a 4e 2b 32 38 2c |12*N+24,12*N+28,| 00003000 31 32 2a 4e 2b 33 32 2c 34 35 2a 4e 2c 30 2c 30 |12*N+32,45*N,0,0| 00003010 2c 31 29 0d 02 83 39 e7 4d 3d 30 8c f2 74 28 30 |,1)...9.M=0..t(0| 00003020 2c 30 2c 63 25 21 33 32 2c 31 32 2a 4e 2b 32 34 |,0,c%!32,12*N+24| 00003030 2c 31 32 2a 4e 2b 32 38 2c 31 32 2a 4e 2b 33 32 |,12*N+28,12*N+32| 00003040 2c 30 2c 30 2c 34 35 2a 4e 2c 31 29 0d 02 84 05 |,0,0,45*N,1)....| 00003050 cd 0d 02 85 18 e7 4d 3d 30 8c 63 25 21 32 34 3d |......M=0.c%!24=| 00003060 28 63 25 21 32 34 29 2b 31 0d 02 86 18 e7 4d 3d |(c%!24)+1.....M=| 00003070 31 8c 63 25 21 32 30 3d 28 63 25 21 32 30 29 2b |1.c%!20=(c%!20)+| 00003080 31 0d 02 87 18 e7 4d 3d 32 8c 63 25 21 32 38 3d |1.....M=2.c%!28=| 00003090 28 63 25 21 32 38 29 2b 31 0d 02 88 27 ed 3a 63 |(c%!28)+1...'.:c| 000030a0 25 21 30 3d 2d 34 3a 63 25 21 31 33 32 3d 2d 32 |%!0=-4:c%!132=-2| 000030b0 35 36 3a 48 25 2b 3d 31 33 32 3a 64 25 2b 3d 31 |56:H%+=132:d%+=1| 000030c0 0d 02 8b 0f c9 33 30 3a e7 42 61 25 3d 31 8c 0d |.....30:.Ba%=1..| 000030d0 02 8b 57 42 61 25 3d 32 3a 56 61 25 3d 30 3a 74 |..WBa%=2:Va%=0:t| 000030e0 25 28 38 33 29 3d 74 25 28 39 33 29 3a 74 25 28 |%(83)=t%(93):t%(| 000030f0 38 34 29 3d 74 25 28 39 34 29 3a 74 25 28 38 35 |84)=t%(94):t%(85| 00003100 29 3d 74 25 28 39 35 29 3a 74 25 28 39 33 29 3d |)=t%(95):t%(93)=| 00003110 6c 25 3a 74 25 28 39 34 29 3d 6e 25 3a 74 25 28 |l%:t%(94)=n%:t%(| 00003120 39 35 29 3d 71 25 0d 02 8e 09 cc 3a f2 6f 61 0d |95)=q%.....:.oa.| 00003130 02 90 05 cd 0d 02 90 cd c9 33 32 3a ea 66 2c 67 |.........32:.f,g| 00003140 2c 68 3a 66 3d 63 25 21 32 30 3a 67 3d 63 25 21 |,h:f=c%!20:g=c%!| 00003150 32 34 3a 68 3d 63 25 21 32 38 3a f2 6a 28 2d 66 |24:h=c%!28:.j(-f| 00003160 2c 2d 67 2c 68 2c 63 25 2c 31 29 3a f2 6a 28 2d |,-g,h,c%,1):.j(-| 00003170 66 2c 67 2c 68 2c 63 25 2c 32 29 3a f2 6a 28 2d |f,g,h,c%,2):.j(-| 00003180 66 2c 67 2c 2d 68 2c 63 25 2c 33 29 3a f2 6a 28 |f,g,-h,c%,3):.j(| 00003190 2d 66 2c 2d 67 2c 2d 68 2c 63 25 2c 34 29 3a f2 |-f,-g,-h,c%,4):.| 000031a0 6a 28 66 2c 2d 67 2c 68 2c 63 25 2c 35 29 3a f2 |j(f,-g,h,c%,5):.| 000031b0 6a 28 66 2c 67 2c 68 2c 63 25 2c 36 29 3a f2 6a |j(f,g,h,c%,6):.j| 000031c0 28 66 2c 67 2c 2d 68 2c 63 25 2c 37 29 3a f2 6a |(f,g,-h,c%,7):.j| 000031d0 28 66 2c 2d 67 2c 2d 68 2c 63 25 2c 38 29 3a 63 |(f,-g,-h,c%,8):c| 000031e0 25 21 30 3d 2d 31 30 3a 63 25 21 31 34 30 3d 2d |%!0=-10:c%!140=-| 000031f0 32 35 36 3a 48 25 2b 3d 31 34 30 3a 64 25 2b 3d |256:H%+=140:d%+=| 00003200 31 0d 02 99 05 cb 0d 02 99 0a c8 8e 77 61 25 ca |1...........wa%.| 00003210 0d 02 9a 20 c9 31 2c 32 2c 33 2c 34 2c 35 2c 36 |... .1,2,3,4,5,6| 00003220 2c 37 2c 38 2c 32 35 3a f2 69 3a e7 56 61 25 8c |,7,8,25:.i:.Va%.| 00003230 0d 02 9c 56 21 28 4a 25 2b 64 25 2a 32 30 2d 32 |...V!(J%+d%*20-2| 00003240 30 29 3d 30 3a 21 28 4a 25 2b 64 25 2a 32 30 2d |0)=0:!(J%+d%*20-| 00003250 31 36 29 3d 30 3a 21 28 4a 25 2b 64 25 2a 32 30 |16)=0:!(J%+d%*20| 00003260 2d 31 32 29 3d 30 3a 21 28 4a 25 2b 64 25 2a 32 |-12)=0:!(J%+d%*2| 00003270 30 2d 38 29 3d 30 3a 21 28 4a 25 2b 64 25 2a 32 |0-8)=0:!(J%+d%*2| 00003280 30 2d 34 29 3d 30 0d 02 a0 05 cd 0d 02 a0 05 cb |0-4)=0..........| 00003290 0d 02 a1 09 e7 56 61 25 8c 0d 02 a2 30 43 61 25 |.....Va%....0Ca%| 000032a0 3d 48 25 3a f2 65 3a f2 68 3a f2 70 28 5a 25 2c |=H%:.e:.h:.p(Z%,| 000032b0 77 61 25 2c 30 29 3a 77 61 25 3d 31 33 3a f2 70 |wa%,0):wa%=13:.p| 000032c0 28 5a 25 2c 31 33 2c 31 29 0d 02 a7 05 cd 0d 02 |(Z%,13,1).......| 000032d0 a7 19 e7 6f 25 3c 3e 64 25 8c 21 28 4a 25 2b 6f |...o%<>d%.!(J%+o| 000032e0 25 2a 32 30 29 3d 30 0d 02 a8 05 e1 0d 02 a9 68 |%*20)=0........h| 000032f0 dd f2 56 28 57 25 2c 78 25 2c 79 25 2c 6a 61 25 |..V(W%,x%,y%,ja%| 00003300 29 3a ea 68 25 2c 6a 25 2c 6b 25 2c 63 25 3a 21 |):.h%,j%,k%,c%:!| 00003310 62 25 3d 57 25 3a c8 99 22 57 69 6d 70 5f 47 65 |b%=W%:.."Wimp_Ge| 00003320 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 |tWindowState",,b| 00003330 25 3a 68 25 3d 62 25 21 34 2d 62 25 21 32 30 3a |%:h%=b%!4-b%!20:| 00003340 6a 25 3d 62 25 21 31 36 2d 62 25 21 32 34 3a c8 |j%=b%!16-b%!24:.| 00003350 8e 57 25 ca 0d 02 ae 1b c9 61 25 28 30 29 2c 61 |.W%......a%(0),a| 00003360 25 28 32 29 2c 61 25 28 31 29 3a 3a f2 6c 61 0d |%(2),a%(1)::.la.| 00003370 02 b0 10 c9 67 61 25 3a e7 5f 25 3c 3e 30 8c 0d |....ga%:._%<>0..| 00003380 02 b1 25 52 25 3d 28 28 6a 25 2d 79 25 29 81 33 |..%R%=((j%-y%).3| 00003390 36 29 2b 31 3a e7 54 61 25 3d 52 25 84 55 61 25 |6)+1:.Ta%=R%.Ua%| 000033a0 3d 52 25 8c 0d 02 b3 0c e7 54 61 25 3d 52 25 8c |=R%......Ta%=R%.| 000033b0 0d 02 b4 47 c8 99 22 57 69 6d 70 5f 46 6f 72 63 |...G.."Wimp_Forc| 000033c0 65 52 65 64 72 61 77 22 2c 57 25 2c 30 2c 2d 54 |eRedraw",W%,0,-T| 000033d0 61 25 2a 33 36 2c 33 34 38 2c 2d 28 54 61 25 2d |a%*36,348,-(Ta%-| 000033e0 31 29 2a 33 36 3a 54 61 25 3d 30 3a f2 62 28 54 |1)*36:Ta%=0:.b(T| 000033f0 25 2c 35 2c 22 22 29 0d 02 b7 05 cd 0d 02 b7 0c |%,5,"").........| 00003400 e7 55 61 25 3d 52 25 8c 0d 02 b8 47 c8 99 22 57 |.Ua%=R%....G.."W| 00003410 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 |imp_ForceRedraw"| 00003420 2c 57 25 2c 30 2c 2d 55 61 25 2a 33 36 2c 33 34 |,W%,0,-Ua%*36,34| 00003430 38 2c 2d 28 55 61 25 2d 31 29 2a 33 36 3a 55 61 |8,-(Ua%-1)*36:Ua| 00003440 25 3d 30 3a f2 62 28 54 25 2c 37 2c 22 22 29 0d |%=0:.b(T%,7,"").| 00003450 02 bb 05 cd 0d 02 bb 15 cc 3a e7 54 61 25 3d 30 |.........:.Ta%=0| 00003460 80 52 25 3c 3e 55 61 25 8c 0d 02 bd 13 e7 52 25 |.R%<>Ua%......R%| 00003470 3c 3d 6f 61 25 8c 54 61 25 3d 52 25 0d 02 be 05 |<=oa%.Ta%=R%....| 00003480 cd 0d 02 bf 13 e7 55 61 25 3d 30 80 52 25 3c 3e |......Ua%=0.R%<>| 00003490 54 61 25 8c 0d 02 c0 13 e7 52 25 3c 3d 6f 61 25 |Ta%......R%<=oa%| 000034a0 8c 55 61 25 3d 52 25 0d 02 c1 05 cd 0d 02 c2 37 |.Ua%=R%........7| 000034b0 f2 62 28 54 25 2c 35 2c a4 68 28 56 25 2d 34 30 |.b(T%,5,.h(V%-40| 000034c0 2b 54 61 25 2a 34 30 29 29 3a f2 62 28 54 25 2c |+Ta%*40)):.b(T%,| 000034d0 37 2c a4 68 28 56 25 2d 34 30 2b 55 61 25 2a 34 |7,.h(V%-40+Ua%*4| 000034e0 30 29 29 0d 02 c5 05 cd 0d 02 c5 33 c8 99 22 57 |0))........3.."W| 000034f0 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 |imp_ForceRedraw"| 00003500 2c 57 25 2c 30 2c 2d 52 25 2a 33 36 2c 33 34 38 |,W%,0,-R%*36,348| 00003510 2c 2d 28 52 25 2d 31 29 2a 33 36 0d 02 c7 05 cd |,-(R%-1)*36.....| 00003520 0d 02 c7 26 c9 68 61 25 3a f2 50 3a 52 25 3d 28 |...&.ha%:.P:R%=(| 00003530 28 6a 25 2d 79 25 29 81 33 36 29 2b 31 3a e7 57 |(j%-y%).36)+1:.W| 00003540 61 25 3c 3e 30 8c 0d 02 cb 3c 4e 3d 30 3a 46 3d |a%<>0....<N=0:F=| 00003550 30 3a f5 3a 46 2b 3d 31 3a 3a 61 24 3d 24 a4 61 |0:.:F+=1::a$=$.a| 00003560 28 46 29 3a e7 c0 61 24 2c a7 61 24 2c 22 3e 22 |(F):..a$,.a$,">"| 00003570 29 2d 31 29 3d 24 a4 64 28 57 61 25 29 8c 4e 2b |)-1)=$.d(Wa%).N+| 00003580 3d 31 0d 02 cd 19 fd 4e 3d 52 25 84 46 3d 64 25 |=1.....N=R%.F=d%| 00003590 3a e7 4e 3d 52 25 8c 52 25 3d 46 0d 02 cf 05 cd |:.N=R%.R%=F.....| 000035a0 0d 02 d0 12 3a e7 52 25 3e 55 25 80 57 61 25 3d |....:.R%>U%.Wa%=| 000035b0 30 8c 0d 02 d2 30 52 25 3d 52 25 2d 55 25 3a 4e |0....0R%=R%-U%:N| 000035c0 3d 30 3a 46 3d 30 3a f5 3a 46 2b 3d 31 3a e7 a7 |=0:F=0:.:F+=1:..| 000035d0 24 a4 61 28 46 29 2c 22 3e 22 29 3d 30 8c 4e 2b |$.a(F),">")=0.N+| 000035e0 3d 31 0d 02 d4 1f fd 4e 3d 52 25 84 46 3d 64 25 |=1.....N=R%.F=d%| 000035f0 3a e7 4e 3d 52 25 8c 52 25 3d 46 8b 52 25 3d 5f |:.N=R%.R%=F.R%=_| 00003600 25 0d 02 d6 05 cd 0d 02 d7 13 3a e7 52 25 3c 3d |%.........:.R%<=| 00003610 55 25 80 57 61 25 3d 30 8c 0d 02 d9 0f e7 78 25 |U%.Wa%=0......x%| 00003620 2d 68 25 3e 32 38 38 8c 0d 02 da 0f 5f 25 3d 2d |-h%>288....._%=-| 00003630 52 25 3a 52 25 3d 30 0d 02 dc 11 cc 3a 57 61 25 |R%:R%=0.....:Wa%| 00003640 3d 52 25 3a 52 25 3d 30 0d 02 de 05 cd 0d 02 de |=R%:R%=0........| 00003650 05 cd 0d 02 df 16 e7 52 25 3e 30 80 52 25 3c 3d |.......R%>0.R%<=| 00003660 64 25 8c 5f 25 3d 52 25 0d 02 e0 09 f2 42 3a f2 |d%._%=R%.....B:.| 00003670 4a 0d 02 e3 23 c9 69 61 25 3a 52 25 3d 28 28 6a |J...#.ia%:R%=((j| 00003680 25 2d 79 25 29 81 33 36 29 2b 31 3a e7 66 61 25 |%-y%).36)+1:.fa%| 00003690 3c 3e 30 8c 0d 02 e5 3c 4e 3d 30 3a 46 3d 30 3a |<>0....<N=0:F=0:| 000036a0 f5 3a 46 2b 3d 31 3a 3a 61 24 3d 24 a4 61 28 46 |.:F+=1::a$=$.a(F| 000036b0 29 3a e7 c0 61 24 2c a7 61 24 2c 22 3e 22 29 2d |):..a$,.a$,">")-| 000036c0 31 29 3d 24 a4 64 28 66 61 25 29 8c 4e 2b 3d 31 |1)=$.d(fa%).N+=1| 000036d0 0d 02 e9 15 fd 4e 3d 52 25 84 46 3d 64 25 3a e7 |.....N=R%.F=d%:.| 000036e0 4e 3d 52 25 8c 0d 02 eb 09 e7 51 61 25 8c 0d 02 |N=R%......Qa%...| 000036f0 ec 1a d5 23 52 61 25 2c 22 53 65 6c 65 63 74 20 |...#Ra%,"Select | 00003700 22 2b 24 a4 61 28 46 29 0d 02 ee 05 cd 0d 02 ee |"+$.a(F)........| 00003710 21 4b 25 3f 46 3d 31 2d 4b 25 3f 46 3a e7 4b 25 |!K%?F=1-K%?F:.K%| 00003720 3f 46 8c 4f 25 2b 3d 31 8b 4f 25 2d 3d 31 0d 02 |?F.O%+=1.O%-=1..| 00003730 f0 09 f2 65 3a f2 68 0d 02 f3 05 cd 0d 02 f3 05 |...e:.h.........| 00003740 cd 0d 02 f4 13 3a e7 52 25 3c 3d 55 25 80 66 61 |.....:.R%<=U%.fa| 00003750 25 3d 30 8c 0d 02 f6 0f e7 78 25 2d 68 25 3e 32 |%=0......x%-h%>2| 00003760 38 38 8c 0d 02 f7 2f e3 4e 3d 31 b8 64 25 3a 61 |88..../.N=1.d%:a| 00003770 24 3d 24 a4 61 28 4e 29 3a e7 c0 61 24 2c a7 61 |$=$.a(N):..a$,.a| 00003780 24 2c 22 3e 22 29 2d 31 29 3d 24 a4 64 28 52 25 |$,">")-1)=$.d(R%| 00003790 29 8c 0d 02 fa 09 e7 51 61 25 8c 0d 02 fb 1a d5 |)......Qa%......| 000037a0 23 52 61 25 2c 22 53 65 6c 65 63 74 20 22 2b 24 |#Ra%,"Select "+$| 000037b0 a4 61 28 4e 29 0d 02 fd 05 cd 0d 02 fd 10 4b 25 |.a(N).........K%| 000037c0 3f 4e 3d 31 3a 4f 25 2b 3d 31 0d 02 ff 05 cd 0d |?N=1:O%+=1......| 000037d0 02 ff 0b ed 3a f2 65 3a f2 68 0d 03 03 0f cc 3a |....:.e:.h.....:| 000037e0 66 61 25 3d 52 25 3a f2 69 0d 03 05 05 cd 0d 03 |fa%=R%:.i.......| 000037f0 05 05 cd 0d 03 06 12 3a e7 52 25 3e 55 25 80 66 |.......:.R%>U%.f| 00003800 61 25 3d 30 8c 0d 03 08 30 52 25 3d 52 25 2d 55 |a%=0....0R%=R%-U| 00003810 25 3a 4e 3d 30 3a 46 3d 30 3a f5 3a 46 2b 3d 31 |%:N=0:F=0:.:F+=1| 00003820 3a e7 a7 24 a4 61 28 46 29 2c 22 3e 22 29 3d 30 |:..$.a(F),">")=0| 00003830 8c 4e 2b 3d 31 0d 03 0c 15 fd 4e 3d 52 25 84 46 |.N+=1.....N=R%.F| 00003840 3d 64 25 3a e7 4e 3d 52 25 8c 0d 03 0e 09 e7 51 |=d%:.N=R%......Q| 00003850 61 25 8c 0d 03 0f 1a d5 23 52 61 25 2c 22 53 65 |a%......#Ra%,"Se| 00003860 6c 65 63 74 20 22 2b 24 a4 61 28 46 29 0d 03 11 |lect "+$.a(F)...| 00003870 05 cd 0d 03 11 21 4b 25 3f 46 3d 31 2d 4b 25 3f |.....!K%?F=1-K%?| 00003880 46 3a e7 4b 25 3f 46 8c 4f 25 2b 3d 31 8b 4f 25 |F:.K%?F.O%+=1.O%| 00003890 2d 3d 31 0d 03 13 09 f2 65 3a f2 68 0d 03 16 05 |-=1.....e:.h....| 000038a0 cd 0d 03 16 05 cd 0d 03 17 05 cb 0d 03 18 05 e1 |................| 000038b0 0d 03 19 db dd f2 6b 3a ea 66 2c 67 3a f2 45 3a |......k:.f,g:.E:| 000038c0 62 25 21 30 3d 30 3a 62 25 21 34 3d 2d 61 2a 75 |b%!0=0:b%!4=-a*u| 000038d0 25 3a 62 25 21 38 3d 61 2a 75 25 3a 62 25 21 31 |%:b%!8=a*u%:b%!1| 000038e0 32 3d 30 3a c8 99 22 57 69 6d 70 5f 53 65 74 45 |2=0:.."Wimp_SetE| 000038f0 78 74 65 6e 74 22 2c 61 25 28 30 29 2c 62 25 3a |xtent",a%(0),b%:| 00003900 c8 99 22 57 69 6d 70 5f 53 65 74 45 78 74 65 6e |.."Wimp_SetExten| 00003910 74 22 2c 61 25 28 31 29 2c 62 25 3a c8 99 22 57 |t",a%(1),b%:.."W| 00003920 69 6d 70 5f 53 65 74 45 78 74 65 6e 74 22 2c 61 |imp_SetExtent",a| 00003930 25 28 32 29 2c 62 25 3a 3a 66 3d 28 6c 25 2d 32 |%(2),b%::f=(l%-2| 00003940 30 30 30 30 29 2f 38 2a 61 2d 28 64 25 28 33 2c |0000)/8*a-(d%(3,| 00003950 33 29 2d 64 25 28 33 2c 31 29 29 2f 32 3a 67 3d |3)-d%(3,1))/2:g=| 00003960 28 6e 25 2d 32 30 30 30 30 29 2f 38 2a 61 2b 28 |(n%-20000)/8*a+(| 00003970 64 25 28 33 2c 34 29 2d 64 25 28 33 2c 32 29 29 |d%(3,4)-d%(3,2))| 00003980 2f 32 3a 62 25 21 32 38 3d 2d 31 0d 03 25 de f2 |/2:b%!28=-1..%..| 00003990 77 28 61 25 28 32 29 2c 64 25 28 33 2c 31 29 2c |w(a%(2),d%(3,1),| 000039a0 64 25 28 33 2c 32 29 2c 64 25 28 33 2c 33 29 2c |d%(3,2),d%(3,3),| 000039b0 64 25 28 33 2c 34 29 2c 66 2c 28 2d 75 25 2a 61 |d%(3,4),f,(-u%*a| 000039c0 29 2b 67 29 3a 66 3d 28 6c 25 2d 32 30 30 30 30 |)+g):f=(l%-20000| 000039d0 29 2f 38 2a 61 2d 28 64 25 28 31 2c 33 29 2d 64 |)/8*a-(d%(1,3)-d| 000039e0 25 28 31 2c 31 29 29 2f 32 3a 67 3d 28 71 25 2d |%(1,1))/2:g=(q%-| 000039f0 32 30 30 30 30 29 2f 38 2a 61 2b 28 64 25 28 31 |20000)/8*a+(d%(1| 00003a00 2c 34 29 2d 64 25 28 31 2c 32 29 29 2f 32 3a f2 |,4)-d%(1,2))/2:.| 00003a10 77 28 61 25 28 30 29 2c 64 25 28 31 2c 31 29 2c |w(a%(0),d%(1,1),| 00003a20 64 25 28 31 2c 32 29 2c 64 25 28 31 2c 33 29 2c |d%(1,2),d%(1,3),| 00003a30 64 25 28 31 2c 34 29 2c 66 2c 28 2d 75 25 2a 61 |d%(1,4),f,(-u%*a| 00003a40 29 2b 67 29 3a 66 3d 28 6e 25 2d 32 30 30 30 30 |)+g):f=(n%-20000| 00003a50 29 2f 38 2a 61 2d 28 64 25 28 32 2c 33 29 2d 64 |)/8*a-(d%(2,3)-d| 00003a60 25 28 32 2c 31 29 29 2f 32 0d 03 2a 63 67 3d 28 |%(2,1))/2..*cg=(| 00003a70 71 25 2d 32 30 30 30 30 29 2f 38 2a 61 2b 28 64 |q%-20000)/8*a+(d| 00003a80 25 28 32 2c 34 29 2d 64 25 28 32 2c 32 29 29 2f |%(2,4)-d%(2,2))/| 00003a90 32 3a f2 77 28 61 25 28 31 29 2c 64 25 28 32 2c |2:.w(a%(1),d%(2,| 00003aa0 31 29 2c 64 25 28 32 2c 32 29 2c 64 25 28 32 2c |1),d%(2,2),d%(2,| 00003ab0 33 29 2c 64 25 28 32 2c 34 29 2c 66 2c 28 2d 75 |3),d%(2,4),f,(-u| 00003ac0 25 2a 61 29 2b 67 29 3a f2 65 3a e1 0d 03 2e 43 |%*a)+g):.e:....C| 00003ad0 dd a4 6c 28 41 29 3a ea 53 24 2c 4e 3a c8 95 28 |..l(A):.S$,N:..(| 00003ae0 41 21 4e 83 32 35 36 29 3c 3e 31 33 80 28 41 21 |A!N.256)<>13.(A!| 00003af0 4e 83 32 35 36 29 3c 3e 30 3a 53 24 2b 3d bd 28 |N.256)<>0:S$+=.(| 00003b00 41 21 4e 29 3a 4e 2b 3d 31 3a ce 3a 3d 53 24 0d |A!N):N+=1:.:=S$.| 00003b10 03 38 92 dd f2 41 28 65 24 29 3a ea 65 25 2c 4e |.8...A(e$):.e%,N| 00003b20 2c 46 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 74 |,F:.."Wimp_Creat| 00003b30 65 4d 65 6e 75 22 2c 2d 31 3a f2 6f 28 71 61 25 |eMenu",-1:.o(qa%| 00003b40 29 3a f2 51 28 58 61 25 29 3a f2 50 3a 64 25 2b |):.Q(Xa%):.P:d%+| 00003b50 3d 31 3a c8 99 22 4f 53 5f 46 69 6e 64 22 2c 31 |=1:.."OS_Find",1| 00003b60 34 33 2c 65 24 b8 65 25 3a d5 23 65 25 2c 61 61 |43,e$.e%:.#e%,aa| 00003b70 25 81 31 30 30 3a d5 23 65 25 2c 61 61 25 83 31 |%.100:.#e%,aa%.1| 00003b80 30 30 3a d5 23 65 25 2c 55 25 81 31 30 30 3a d5 |00:.#e%,U%.100:.| 00003b90 23 65 25 2c 55 25 83 31 30 30 3a e7 55 25 3e 30 |#e%,U%.100:.U%>0| 00003ba0 8c 0d 03 47 19 e3 4e 3d 31 b8 55 25 3a f1 23 65 |...G..N=1.U%:.#e| 00003bb0 25 2c 24 a4 64 28 4e 29 3a ed 0d 03 4b 05 cd 0d |%,$.d(N):...K...| 00003bc0 03 4b a6 d5 23 65 25 2c 64 25 81 32 35 36 3a d5 |.K..#e%,d%.256:.| 00003bd0 23 65 25 2c 64 25 83 32 35 36 3a d5 23 65 25 2c |#e%,d%.256:.#e%,| 00003be0 48 25 81 32 35 36 3a d5 23 65 25 2c 48 25 83 32 |H%.256:.#e%,H%.2| 00003bf0 35 36 3a c8 99 22 4f 53 5f 47 42 50 42 22 2c 32 |56:.."OS_GBPB",2| 00003c00 2c 65 25 2c 78 61 25 2c 48 25 3a e3 4e 3d 31 b8 |,e%,xa%,H%:.N=1.| 00003c10 64 25 3a f1 23 65 25 2c 24 a4 61 28 4e 29 3a ed |d%:.#e%,$.a(N):.| 00003c20 3a d5 23 65 25 2c 6f 61 25 3a c8 99 22 4f 53 5f |:.#e%,oa%:.."OS_| 00003c30 47 42 50 42 22 2c 32 2c 65 25 2c 56 25 2c 6f 61 |GBPB",2,e%,V%,oa| 00003c40 25 2a 34 30 3a e7 64 25 3c 3e 30 8c c8 99 22 4f |%*40:.d%<>0..."O| 00003c50 53 5f 47 42 50 42 22 2c 32 2c 65 25 2c 4a 25 2c |S_GBPB",2,e%,J%,| 00003c60 64 25 2a 32 30 0d 03 55 dc d5 23 65 25 2c 66 25 |d%*20..U..#e%,f%| 00003c70 28 30 29 2b 31 3a d5 23 65 25 2c 62 25 28 30 29 |(0)+1:.#e%,b%(0)| 00003c80 2b 31 3a e3 4e 3d 31 b8 33 3a d5 23 65 25 2c 66 |+1:.N=1.3:.#e%,f| 00003c90 25 28 4e 29 81 32 35 36 3a d5 23 65 25 2c 66 25 |%(N).256:.#e%,f%| 00003ca0 28 4e 29 83 32 35 36 3a d5 23 65 25 2c 62 25 28 |(N).256:.#e%,b%(| 00003cb0 4e 29 81 32 35 36 3a d5 23 65 25 2c 62 25 28 4e |N).256:.#e%,b%(N| 00003cc0 29 83 32 35 36 3a ed 3a d5 23 65 25 2c 60 25 3a |).256:.:.#e%,`%:| 00003cd0 e3 4e 3d 31 b8 31 30 3a f1 23 65 25 2c 62 24 28 |.N=1.10:.#e%,b$(| 00003ce0 4e 29 3a e3 46 3d 30 b8 38 3a d5 23 65 25 2c 63 |N):.F=0.8:.#e%,c| 00003cf0 25 28 4e 2c 46 29 81 32 35 36 3a d5 23 65 25 2c |%(N,F).256:.#e%,| 00003d00 63 25 28 4e 2c 46 29 83 32 35 36 3a ed 3a ed 3a |c%(N,F).256:.:.:| 00003d10 d5 23 65 25 2c 67 25 28 30 29 3a d5 23 65 25 2c |.#e%,g%(0):.#e%,| 00003d20 67 25 28 31 29 3a d5 23 65 25 2c 67 25 28 32 29 |g%(1):.#e%,g%(2)| 00003d30 3a c8 99 22 4f 53 5f 46 69 6e 64 22 2c 30 2c 65 |:.."OS_Find",0,e| 00003d40 25 0d 03 6a 4d ff 28 22 53 45 54 54 59 50 45 20 |%..jM.("SETTYPE | 00003d50 22 2b 65 24 2b 22 20 30 46 43 22 29 3a 64 61 25 |"+e$+" 0FC"):da%| 00003d60 3d 30 3a 64 25 2d 3d 31 3a e7 65 24 3c 3e 22 3c |=0:d%-=1:.e$<>"<| 00003d70 52 61 79 24 44 69 72 3e 2e 44 65 66 61 75 6c 74 |Ray$Dir>.Default| 00003d80 22 8c f2 62 28 71 61 25 2c 31 2c 65 24 29 0d 03 |"..b(qa%,1,e$)..| 00003d90 6d 05 e1 0d 03 6e 3b dd f2 43 28 65 24 29 3a ea |m....n;..C(e$):.| 00003da0 65 25 2c 76 25 2c 42 25 3a e7 65 24 3c 3e 22 3c |e%,v%,B%:.e$<>"<| 00003db0 52 61 79 24 44 69 72 3e 2e 44 65 66 61 75 6c 74 |Ray$Dir>.Default| 00003dc0 22 8c f2 62 28 71 61 25 2c 31 2c 65 24 29 0d 03 |"..b(qa%,1,e$)..| 00003dd0 72 5c c8 99 22 4f 53 5f 46 69 6e 64 22 2c 37 39 |r\.."OS_Find",79| 00003de0 2c 65 24 b8 65 25 3a 42 25 3d 9a 23 65 25 3a 76 |,e$.e%:B%=.#e%:v| 00003df0 25 3d 42 25 2a 31 30 30 3a 42 25 3d 9a 23 65 25 |%=B%*100:B%=.#e%| 00003e00 3a 76 25 2b 3d 42 25 3a e7 76 25 3e 61 61 25 8c |:v%+=B%:.v%>aa%.| 00003e10 c8 99 22 4f 53 5f 46 69 6e 64 22 2c 30 2c 65 25 |.."OS_Find",0,e%| 00003e20 3a 85 31 37 2c 61 24 28 36 29 0d 03 78 2a 3a 55 |:.17,a$(6)..x*:U| 00003e30 25 3d 30 3a e3 4d 3d 31 b8 53 61 25 2f 32 3a 24 |%=0:.M=1.Sa%/2:$| 00003e40 a4 64 28 4d 29 3d 22 22 3a ed 3a e7 76 25 3e 3d |.d(M)="":.:.v%>=| 00003e50 31 31 30 8c 0d 03 7c 2b 42 25 3d 9a 23 65 25 3a |110...|+B%=.#e%:| 00003e60 55 25 3d 42 25 2a 31 30 30 3a 42 25 3d 9a 23 65 |U%=B%*100:B%=.#e| 00003e70 25 3a 55 25 2b 3d 42 25 3a e7 55 25 3e 30 8c 0d |%:U%+=B%:.U%>0..| 00003e80 03 7f 19 e3 4e 3d 31 b8 55 25 3a e8 23 65 25 2c |....N=1.U%:.#e%,| 00003e90 24 a4 64 28 4e 29 3a ed 0d 03 83 05 cd 0d 03 83 |$.d(N):.........| 00003ea0 05 cd 0d 03 84 b8 42 25 3d 9a 23 65 25 3a 64 25 |......B%=.#e%:d%| 00003eb0 3d 42 25 2a 32 35 36 3a 42 25 3d 9a 23 65 25 3a |=B%*256:B%=.#e%:| 00003ec0 64 25 2b 3d 42 25 3a 42 25 3d 9a 23 65 25 3a 48 |d%+=B%:B%=.#e%:H| 00003ed0 25 3d 42 25 2a 32 35 36 3a 42 25 3d 9a 23 65 25 |%=B%*256:B%=.#e%| 00003ee0 3a 48 25 2b 3d 42 25 3a c8 99 22 4f 53 5f 47 42 |:H%+=B%:.."OS_GB| 00003ef0 50 42 22 2c 34 2c 65 25 2c 78 61 25 2c 48 25 3a |PB",4,e%,xa%,H%:| 00003f00 e3 4e 3d 31 b8 64 25 3a e8 23 65 25 2c 24 a4 61 |.N=1.d%:.#e%,$.a| 00003f10 28 4e 29 3a ed 3a 6f 61 25 3d 9a 23 65 25 3a c8 |(N):.:oa%=.#e%:.| 00003f20 99 22 4f 53 5f 47 42 50 42 22 2c 34 2c 65 25 2c |."OS_GBPB",4,e%,| 00003f30 56 25 2c 6f 61 25 2a 34 30 3a e7 64 25 3c 3e 30 |V%,oa%*40:.d%<>0| 00003f40 8c c8 99 22 4f 53 5f 47 42 50 42 22 2c 34 2c 65 |..."OS_GBPB",4,e| 00003f50 25 2c 4a 25 2c 64 25 2a 32 30 0d 03 8e e9 66 25 |%,J%,d%*20....f%| 00003f60 28 30 29 3d 9a 23 65 25 3a 62 25 28 30 29 3d 9a |(0)=.#e%:b%(0)=.| 00003f70 23 65 25 3a 66 25 28 30 29 2d 3d 31 3a 62 25 28 |#e%:f%(0)-=1:b%(| 00003f80 30 29 2d 3d 31 3a e3 4e 3d 31 b8 33 3a 42 25 3d |0)-=1:.N=1.3:B%=| 00003f90 9a 23 65 25 3a 66 25 28 4e 29 3d 42 25 2a 32 35 |.#e%:f%(N)=B%*25| 00003fa0 36 3a 42 25 3d 9a 23 65 25 3a 66 25 28 4e 29 2b |6:B%=.#e%:f%(N)+| 00003fb0 3d 42 25 3a 42 25 3d 9a 23 65 25 3a 62 25 28 4e |=B%:B%=.#e%:b%(N| 00003fc0 29 3d 42 25 2a 32 35 36 3a 42 25 3d 9a 23 65 25 |)=B%*256:B%=.#e%| 00003fd0 3a 62 25 28 4e 29 2b 3d 42 25 3a ed 3a 60 25 3d |:b%(N)+=B%:.:`%=| 00003fe0 9a 23 65 25 3a e3 4e 3d 31 b8 31 30 3a e8 23 65 |.#e%:.N=1.10:.#e| 00003ff0 25 2c 62 24 28 4e 29 3a e3 46 3d 30 b8 38 3a 42 |%,b$(N):.F=0.8:B| 00004000 25 3d 9a 23 65 25 3a 63 25 28 4e 2c 46 29 3d 42 |%=.#e%:c%(N,F)=B| 00004010 25 2a 32 35 36 3a 42 25 3d 9a 23 65 25 3a 63 25 |%*256:B%=.#e%:c%| 00004020 28 4e 2c 46 29 2b 3d 42 25 3a ed 3a ed 3a 67 25 |(N,F)+=B%:.:.:g%| 00004030 28 30 29 3d 9a 23 65 25 3a 67 25 28 31 29 3d 9a |(0)=.#e%:g%(1)=.| 00004040 23 65 25 0d 03 a1 77 67 25 28 32 29 3d 9a 23 65 |#e%...wg%(2)=.#e| 00004050 25 3a c8 99 22 4f 53 5f 46 69 6e 64 22 2c 30 2c |%:.."OS_Find",0,| 00004060 65 25 3a 54 61 25 3d 30 3a 55 61 25 3d 30 3a 5f |e%:Ta%=0:Ua%=0:_| 00004070 25 3d 30 3a 64 25 2d 3d 31 3a 66 61 25 3d 30 3a |%=0:d%-=1:fa%=0:| 00004080 e3 4e 3d 30 b8 53 61 25 88 34 3a 4b 25 21 4e 3d |.N=0.Sa%.4:K%!N=| 00004090 30 3a 59 61 25 21 4e 3d 30 3a ed 3a 4f 25 3d 30 |0:Ya%!N=0:.:O%=0| 000040a0 3a e7 65 24 3c 3e 22 3c 52 61 79 24 44 69 72 3e |:.e$<>"<Ray$Dir>| 000040b0 2e 44 65 66 61 75 6c 74 22 8c 0d 03 aa 3b f2 6b |.Default"....;.k| 000040c0 3a f2 69 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 |:.i:.."Wimp_SetC| 000040d0 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 5a 25 |aretPosition",Z%| 000040e0 2c 30 2c 30 2c 30 2c 2d 31 2c a9 28 a4 62 28 5a |,0,0,0,-1,.(.b(Z| 000040f0 25 2c 30 29 29 0d 03 ae 05 cd 0d 03 ae 24 f2 75 |%,0))........$.u| 00004100 28 24 56 25 2c 30 29 3a 57 61 25 3d 30 3a f2 4a |($V%,0):Wa%=0:.J| 00004110 3a f2 65 3a f2 68 3a 64 61 25 3d 30 3a e1 0d 03 |:.e:.h:da%=0:...| 00004120 b4 47 dd a4 6d 28 65 24 29 3a ea 46 24 2c 4e 3a |.G..m(e$):.F$,N:| 00004130 4e 3d a9 28 65 24 29 3a c8 95 c1 65 24 2c 4e 2c |N=.(e$):...e$,N,| 00004140 31 29 3c 3e 22 2e 22 80 4e 3e 30 3a 46 24 3d c1 |1)<>".".N>0:F$=.| 00004150 65 24 2c 4e 2c 31 29 2b 46 24 3a 4e 2d 3d 31 3a |e$,N,1)+F$:N-=1:| 00004160 ce 3a 3d 46 24 0d 03 bd cf dd f2 70 61 3a ea 4e |.:=F$......pa:.N| 00004170 2c 46 3a f2 45 3a 65 25 28 29 3d 6a 25 28 29 3a |,F:.E:e%()=j%():| 00004180 43 3d ae 28 22 3c 52 61 79 24 44 69 72 3e 2e 4f |C=.("<Ray$Dir>.O| 00004190 70 74 69 6f 6e 73 22 29 3a d5 23 43 2c 65 25 28 |ptions"):.#C,e%(| 000041a0 30 29 3a d5 23 43 2c 65 25 28 31 29 3a d5 23 43 |0):.#C,e%(1):.#C| 000041b0 2c 65 25 28 32 29 3a d5 23 43 2c 65 25 28 33 29 |,e%(2):.#C,e%(3)| 000041c0 3a d5 23 43 2c 65 25 28 34 29 3a d5 23 43 2c 65 |:.#C,e%(4):.#C,e| 000041d0 25 28 35 29 3a d5 23 43 2c 28 5a 61 25 2b 31 29 |%(5):.#C,(Za%+1)| 000041e0 3a d5 23 43 2c 28 7a 61 25 2b 31 29 3a 79 61 25 |:.#C,(za%+1):ya%| 000041f0 3d bb 28 a4 62 28 4e 61 25 2c 31 39 29 29 3a f1 |=.(.b(Na%,19)):.| 00004200 23 43 2c c3 28 79 61 25 29 3a d5 23 43 2c 61 3a |#C,.(ya%):.#C,a:| 00004210 e3 4e 3d 31 b8 34 3a e3 46 3d 31 b8 34 3a f1 23 |.N=1.4:.F=1.4:.#| 00004220 43 2c c3 28 64 25 28 4e 2c 46 29 29 3a ed 3a ed |C,.(d%(N,F)):.:.| 00004230 3a d9 23 43 0d 03 d0 13 f2 65 3a f2 6f 28 5f 61 |:.#C.....e:.o(_a| 00004240 25 29 3a f2 68 3a e1 0d 03 d3 da dd f2 71 61 3a |%):.h:.......qa:| 00004250 ea 41 24 2c 4e 2c 46 3a 43 3d 8e 28 22 3c 52 61 |.A$,N,F:C=.("<Ra| 00004260 79 24 44 69 72 3e 2e 4f 70 74 69 6f 6e 73 22 29 |y$Dir>.Options")| 00004270 3a 65 25 28 30 29 3d 9a 23 43 3a 65 25 28 31 29 |:e%(0)=.#C:e%(1)| 00004280 3d 9a 23 43 3a 65 25 28 32 29 3d 9a 23 43 3a 65 |=.#C:e%(2)=.#C:e| 00004290 25 28 33 29 3d 9a 23 43 3a 65 25 28 34 29 3d 9a |%(3)=.#C:e%(4)=.| 000042a0 23 43 3a 65 25 28 35 29 3d 9a 23 43 3a 5a 61 25 |#C:e%(5)=.#C:Za%| 000042b0 3d 9a 23 43 3a 5a 61 25 2d 3d 31 3a 7a 61 25 3d |=.#C:Za%-=1:za%=| 000042c0 9a 23 43 3a 7a 61 25 2d 3d 31 3a e8 23 43 2c 41 |.#C:za%-=1:.#C,A| 000042d0 24 3a 79 61 25 3d bb 28 41 24 29 3a f2 62 28 4e |$:ya%=.(A$):.b(N| 000042e0 61 25 2c 31 39 2c 41 24 29 3a 61 3d 9a 23 43 3a |a%,19,A$):a=.#C:| 000042f0 e3 4e 3d 31 b8 34 3a e3 46 3d 31 b8 34 3a e8 23 |.N=1.4:.F=1.4:.#| 00004300 43 2c 41 24 3a 64 25 28 4e 2c 46 29 3d bb 28 41 |C,A$:d%(N,F)=.(A| 00004310 24 29 3a ed 3a ed 3a d9 23 43 3a e3 4e 3d 30 b8 |$):.:.:.#C:.N=0.| 00004320 35 0d 03 e4 e1 21 62 25 3d 5f 61 25 3a 62 25 21 |5....!b%=_a%:b%!| 00004330 34 3d 35 2b 4e 3a 62 25 21 31 32 3d 26 46 30 30 |4=5+N:b%!12=&F00| 00004340 30 30 30 30 30 3a 62 25 21 38 3d 65 25 28 4e 29 |00000:b%!8=e%(N)| 00004350 3c 3c 32 38 3a c8 99 22 57 69 6d 70 5f 53 65 74 |<<28:.."Wimp_Set| 00004360 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 3a ed |IconState",,b%:.| 00004370 3a e3 4e 3d 30 b8 32 3a 21 62 25 3d 61 25 28 4e |:.N=0.2:!b%=a%(N| 00004380 29 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |):.."Wimp_GetWin| 00004390 64 6f 77 49 6e 66 6f 22 2c 2c 62 25 3a 21 70 25 |dowInfo",,b%:!p%| 000043a0 3d 61 25 28 4e 29 3a c8 99 22 57 69 6d 70 5f 44 |=a%(N):.."Wimp_D| 000043b0 65 6c 65 74 65 57 69 6e 64 6f 77 22 2c 2c 70 25 |eleteWindow",,p%| 000043c0 3a 3f 28 62 25 2b 33 39 29 3d 65 25 28 35 29 3a |:?(b%+39)=e%(5):| 000043d0 60 61 25 3d 3f 28 62 25 2b 33 34 29 80 31 3a c8 |`a%=?(b%+34).1:.| 000043e0 99 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e |."Wimp_CreateWin| 000043f0 64 6f 77 22 2c 2c 62 25 2b 34 b8 61 25 28 4e 29 |dow",,b%+4.a%(N)| 00004400 3a ed 0d 03 ef 0b e7 60 61 25 8c f2 6b 0d 03 f0 |:......`a%..k...| 00004410 05 e1 0d 03 f1 47 dd f2 45 3a ea 4e 3a 21 70 25 |.....G..E:.N:!p%| 00004420 3d 61 25 28 30 29 3a c8 99 22 57 69 6d 70 5f 47 |=a%(0):.."Wimp_G| 00004430 65 74 57 69 6e 64 6f 77 49 6e 66 6f 22 2c 2c 70 |etWindowInfo",,p| 00004440 25 3a 60 61 25 3d 3f 28 70 25 2b 33 34 29 80 31 |%:`a%=?(p%+34).1| 00004450 3a e7 60 61 25 3d 30 8c e1 0d 03 f8 cd e3 4e 3d |:.`a%=0.......N=| 00004460 30 b8 32 3a 62 25 21 30 3d 61 25 28 4e 29 3a c8 |0.2:b%!0=a%(N):.| 00004470 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow| 00004480 53 74 61 74 65 22 2c 2c 62 25 3a 64 25 28 4e 2b |State",,b%:d%(N+| 00004490 31 2c 31 29 3d 62 25 21 34 3a 64 25 28 4e 2b 31 |1,1)=b%!4:d%(N+1| 000044a0 2c 32 29 3d 62 25 21 38 3a 64 25 28 4e 2b 31 2c |,2)=b%!8:d%(N+1,| 000044b0 33 29 3d 62 25 21 31 32 3a 64 25 28 4e 2b 31 2c |3)=b%!12:d%(N+1,| 000044c0 34 29 3d 62 25 21 31 36 3a ed 3a 62 25 21 30 3d |4)=b%!16:.:b%!0=| 000044d0 5a 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 |Z%:.."Wimp_GetWi| 000044e0 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 3a 64 |ndowState",,b%:d| 000044f0 25 28 34 2c 31 29 3d 62 25 21 34 3a 64 25 28 34 |%(4,1)=b%!4:d%(4| 00004500 2c 32 29 3d 62 25 21 38 3a 64 25 28 34 2c 33 29 |,2)=b%!8:d%(4,3)| 00004510 3d 62 25 21 31 32 3a 64 25 28 34 2c 34 29 3d 62 |=b%!12:d%(4,4)=b| 00004520 25 21 31 36 3a e1 0d 04 03 c9 dd f2 72 61 28 65 |%!16:.......ra(e| 00004530 24 29 3a ea 4e 2c 46 25 2c 61 62 25 2c 62 62 25 |$):.N,F%,ab%,bb%| 00004540 2c 63 62 25 2c 6e 24 2c 6c 24 3a 55 25 2b 3d 31 |,cb%,n$,l$:U%+=1| 00004550 3a 6c 24 3d a4 69 28 a4 6d 28 65 24 29 29 3a 24 |:l$=.i(.m(e$)):$| 00004560 a4 64 28 55 25 29 3d 6c 24 3a c8 99 22 48 6f 75 |.d(U%)=l$:.."Hou| 00004570 72 67 6c 61 73 73 5f 4f 6e 22 3a e3 4e 3d 30 b8 |rglass_On":.N=0.| 00004580 53 61 25 88 34 3a 4b 25 21 4e 3d 30 3a ed 3a 4f |Sa%.4:K%!N=0:.:O| 00004590 25 3d 30 3a c8 99 22 4f 53 5f 46 69 6e 64 22 2c |%=0:.."OS_Find",| 000045a0 37 39 2c 65 24 b8 65 25 3a 42 25 3d 9a 23 65 25 |79,e$.e%:B%=.#e%| 000045b0 3a 61 62 25 3d 42 25 2a 31 30 30 3a 42 25 3d 9a |:ab%=B%*100:B%=.| 000045c0 23 65 25 3a 61 62 25 2b 3d 42 25 3a e7 61 62 25 |#e%:ab%+=B%:.ab%| 000045d0 3e 61 61 25 8c c8 99 22 4f 53 5f 46 69 6e 64 22 |>aa%..."OS_Find"| 000045e0 2c 30 2c 65 25 3a 85 31 37 2c 61 24 28 36 29 0d |,0,e%:.17,a$(6).| 000045f0 04 11 3c 42 25 3d 9a 23 65 25 3a 62 62 25 3d 42 |..<B%=.#e%:bb%=B| 00004600 25 2a 32 35 36 3a 42 25 3d 9a 23 65 25 3a 62 62 |%*256:B%=.#e%:bb| 00004610 25 2b 3d 42 25 3a e7 64 25 2b 62 62 25 3e 53 61 |%+=B%:.d%+bb%>Sa| 00004620 25 8c 85 31 37 2c 61 24 28 37 29 0d 04 15 c4 e3 |%..17,a$(7).....| 00004630 4e 3d 64 25 2b 31 b8 64 25 2b 62 62 25 3a 21 28 |N=d%+1.d%+bb%:!(| 00004640 4a 25 2b 4e 2a 32 30 29 3d 30 3a 21 28 4a 25 2b |J%+N*20)=0:!(J%+| 00004650 4e 2a 32 30 2b 34 29 3d 30 3a 21 28 4a 25 2b 4e |N*20+4)=0:!(J%+N| 00004660 2a 32 30 2b 38 29 3d 30 3a 21 28 4a 25 2b 4e 2a |*20+8)=0:!(J%+N*| 00004670 32 30 2b 31 32 29 3d 30 3a 21 28 4a 25 2b 4e 2a |20+12)=0:!(J%+N*| 00004680 32 30 2b 31 36 29 3d 30 3a ed 3a e3 4e 3d 31 b8 |20+16)=0:.:.N=1.| 00004690 62 62 25 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 |bb%:.."Hourglass| 000046a0 5f 50 65 72 63 65 6e 74 61 67 65 22 2c 4e 2f 62 |_Percentage",N/b| 000046b0 62 25 2a 31 30 30 3a 64 25 2b 3d 31 3a 4b 25 3f |b%*100:d%+=1:K%?| 000046c0 64 25 3d 31 3a 42 25 3d 9a 23 65 25 3a 63 62 25 |d%=1:B%=.#e%:cb%| 000046d0 3d 42 25 2a 32 35 36 3a 42 25 3d 9a 23 65 25 3a |=B%*256:B%=.#e%:| 000046e0 63 62 25 2b 3d 42 25 3a e8 23 65 25 2c 6e 24 0d |cb%+=B%:.#e%,n$.| 000046f0 04 23 c7 24 a4 61 28 64 25 29 3d 6c 24 2b 22 3e |.#.$.a(d%)=l$+">| 00004700 22 2b a4 69 28 6e 24 29 3a c8 99 22 4f 53 5f 47 |"+.i(n$):.."OS_G| 00004710 42 50 42 22 2c 34 2c 65 25 2c 28 78 61 25 2b 48 |BPB",4,e%,(xa%+H| 00004720 25 2d 34 29 2c 63 62 25 3a 48 25 2b 3d 63 62 25 |%-4),cb%:H%+=cb%| 00004730 3a 21 28 78 61 25 2b 48 25 2d 34 29 3d 2d 32 35 |:!(xa%+H%-4)=-25| 00004740 36 3a ed 3a 4f 25 3d 62 62 25 3a c8 99 22 4f 53 |6:.:O%=bb%:.."OS| 00004750 5f 46 69 6e 64 22 2c 30 2c 65 25 3a f2 69 3a 57 |_Find",0,e%:.i:W| 00004760 61 25 3d 30 3a f2 4a 3a f2 6b 3a c8 99 22 57 69 |a%=0:.J:.k:.."Wi| 00004770 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 |mp_SetCaretPosit| 00004780 69 6f 6e 22 2c 5a 25 2c 30 2c 30 2c 30 2c 2d 31 |ion",Z%,0,0,0,-1| 00004790 2c a9 28 a4 62 28 5a 25 2c 30 29 29 3a f2 65 3a |,.(.b(Z%,0)):.e:| 000047a0 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 |.."Hourglass_Off| 000047b0 22 3a f2 68 3a e1 0d 04 33 48 dd f2 4f 28 65 24 |":.h:...3H..O(e$| 000047c0 29 3a ea 4e 25 2c 64 62 25 2c 46 25 2c 61 24 3a |):.N%,db%,F%,a$:| 000047d0 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |.."Wimp_CreateMe| 000047e0 6e 75 22 2c 2d 31 3a f2 6f 28 73 61 25 29 3a e7 |nu",-1:.o(sa%):.| 000047f0 4f 25 3d 30 8c 85 31 37 2c 61 24 28 38 29 0d 04 |O%=0..17,a$(8)..| 00004800 39 7e c8 99 22 4f 53 5f 46 69 6e 64 22 2c 31 34 |9~.."OS_Find",14| 00004810 33 2c 65 24 b8 65 25 3a d5 23 65 25 2c 61 61 25 |3,e$.e%:.#e%,aa%| 00004820 81 31 30 30 3a d5 23 65 25 2c 61 61 25 83 31 30 |.100:.#e%,aa%.10| 00004830 30 3a d5 23 65 25 2c 4f 25 81 32 35 36 3a d5 23 |0:.#e%,O%.256:.#| 00004840 65 25 2c 4f 25 83 32 35 36 3a 4e 25 3d 78 61 25 |e%,O%.256:N%=xa%| 00004850 2d 34 3a 64 62 25 3d 30 3a f5 3a 64 62 25 2b 3d |-4:db%=0:.:db%+=| 00004860 31 3a f5 3a 4e 25 2b 3d 34 3a fd 21 4e 25 3c 30 |1:.:N%+=4:.!N%<0| 00004870 3a e7 4b 25 3f 64 62 25 3c 3e 30 8c 0d 04 46 6a |:.K%?db%<>0...Fj| 00004880 46 25 3d 4e 25 3a f5 3a 46 25 2b 3d 34 3a fd 21 |F%=N%:.:F%+=4:.!| 00004890 46 25 3c 30 3a d5 23 65 25 2c 28 46 25 2d 4e 25 |F%<0:.#e%,(F%-N%| 000048a0 29 81 32 35 36 3a d5 23 65 25 2c 28 46 25 2d 4e |).256:.#e%,(F%-N| 000048b0 25 29 83 32 35 36 3a 61 24 3d 24 a4 61 28 64 62 |%).256:a$=$.a(db| 000048c0 25 29 3a e7 a7 61 24 2c 22 3e 22 29 3c 3e 30 8c |%):..a$,">")<>0.| 000048d0 61 24 3d c2 61 24 2c a9 28 61 24 29 2d a7 61 24 |a$=.a$,.(a$)-.a$| 000048e0 2c 22 3e 22 29 29 0d 04 4c 27 f1 23 65 25 2c 61 |,">"))..L'.#e%,a| 000048f0 24 3a c8 99 22 4f 53 5f 47 42 50 42 22 2c 32 2c |$:.."OS_GBPB",2,| 00004900 65 25 2c 4e 25 2c 28 46 25 2d 4e 25 29 0d 04 4f |e%,N%,(F%-N%)..O| 00004910 05 cd 0d 04 4f 45 fd 21 4e 25 3d 2d 32 35 36 3a |....OE.!N%=-256:| 00004920 c8 99 22 4f 53 5f 46 69 6e 64 22 2c 30 2c 65 25 |.."OS_Find",0,e%| 00004930 3a ff 28 22 53 45 54 54 59 50 45 20 22 2b 65 24 |:.("SETTYPE "+e$| 00004940 2b 22 20 30 46 42 22 29 3a f2 62 28 73 61 25 2c |+" 0FB"):.b(sa%,| 00004950 31 2c 65 24 29 3a e1 0d 04 55 11 dd f2 62 61 28 |1,e$):...U...ba(| 00004960 60 2c 68 24 2c 62 61 29 0d 04 5a 0a 2a 43 4c 4f |`,h$,ba)..Z.*CLO| 00004970 53 45 0d 04 5a 54 c8 99 22 48 6f 75 72 67 6c 61 |SE..ZT.."Hourgla| 00004980 73 73 5f 53 6d 61 73 68 22 3a f2 70 28 5a 25 2c |ss_Smash":.p(Z%,| 00004990 77 61 25 2c 30 29 3a 77 61 25 3d 31 33 3a f2 70 |wa%,0):wa%=13:.p| 000049a0 28 5a 25 2c 31 33 2c 31 29 3a c8 99 22 57 69 6d |(Z%,13,1):.."Wim| 000049b0 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 |p_CreateMenu",-1| 000049c0 3a 3a c8 8e 60 ca 0d 04 60 5a c9 31 3a 68 24 3d |::..`...`Z.1:h$=| 000049d0 61 24 28 39 39 29 3a f2 41 28 22 45 78 74 69 6e |a$(99):.A("Extin| 000049e0 63 74 22 29 3a 21 62 25 3d 60 3a 24 28 62 25 2b |ct"):!b%=`:$(b%+| 000049f0 34 29 3d 68 24 3a c8 99 22 57 69 6d 70 5f 52 65 |4)=h$:.."Wimp_Re| 00004a00 70 6f 72 74 45 72 72 6f 72 22 2c 62 25 2c 31 2c |portError",b%,1,| 00004a10 22 21 52 61 79 33 64 22 b8 2c 6a 61 25 3a f2 4c |"!Ray3d".,ja%:.L| 00004a20 0d 04 67 0a c9 31 37 3a ef 37 0d 04 68 18 f2 62 |..g..17:.7..h..b| 00004a30 28 65 62 25 2c 31 2c 68 24 29 3a f2 6d 28 65 62 |(eb%,1,h$):.m(eb| 00004a40 25 29 0d 04 6b 05 7f 0d 04 6c 27 2a 53 65 74 20 |%)..k....l'*Set | 00004a50 42 61 73 69 63 24 46 69 6c 65 20 3c 52 61 79 24 |Basic$File <Ray$| 00004a60 44 69 72 3e 2e 21 52 75 6e 69 6d 61 67 65 0d 04 |Dir>.!Runimage..| 00004a70 6c 15 d7 22 45 64 69 74 3a 54 68 72 6f 77 62 61 |l.."Edit:Throwba| 00004a80 63 6b 22 0d 04 6d 61 68 24 2b 3d 22 20 28 22 2b |ck"..mah$+=" ("+| 00004a90 c3 28 62 61 29 2b 22 29 2e 22 2b 61 24 28 39 38 |.(ba)+")."+a$(98| 00004aa0 29 3a 21 62 25 3d 60 3a 24 28 62 25 2b 34 29 3d |):!b%=`:$(b%+4)=| 00004ab0 68 24 3a c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 |h$:.."Wimp_Repor| 00004ac0 74 45 72 72 6f 72 22 2c 62 25 2c 33 2c 22 21 52 |tError",b%,3,"!R| 00004ad0 61 79 33 64 22 b8 2c 6a 61 25 3a e7 6a 61 25 3d |ay3d".,ja%:.ja%=| 00004ae0 32 8c f2 4c 0d 04 71 05 cb 0d 04 72 05 e1 0d 04 |2..L..q....r....| 00004af0 73 18 dd f2 75 28 64 24 2c 66 62 25 29 3a e7 6f |s...u(d$,fb%):.o| 00004b00 61 25 3d 30 8c e1 0d 04 78 1c e7 64 24 3c 3e 22 |a%=0....x..d$<>"| 00004b10 22 8c 67 62 25 3d a4 6f 28 64 24 29 8b 67 62 25 |".gb%=.o(d$).gb%| 00004b20 3d 30 0d 04 79 15 e7 67 62 25 3d 2d 31 8c 85 31 |=0..y..gb%=-1..1| 00004b30 37 2c 61 24 28 39 29 0d 04 7a 10 e7 66 62 25 8c |7,a$(9)..z..fb%.| 00004b40 f2 51 28 58 61 25 29 0d 04 7b d3 58 61 25 3d 67 |.Q(Xa%)..{.Xa%=g| 00004b50 62 25 3a 46 3d 67 62 25 2a 34 30 2b 56 25 3a f2 |b%:F=gb%*40+V%:.| 00004b60 62 28 6e 61 25 2c 35 2c 64 24 29 3a 68 25 28 29 |b(na%,5,d$):h%()| 00004b70 3d 46 3f 32 33 2c 46 3f 32 34 2c 46 3f 32 35 3a |=F?23,F?24,F?25:| 00004b80 68 62 25 3d 46 3f 33 30 3a 69 62 25 3d 46 3f 32 |hb%=F?30:ib%=F?2| 00004b90 39 3a 6a 62 25 3d 46 21 33 32 3a 6b 62 25 3d 46 |9:jb%=F!32:kb%=F| 00004ba0 3f 33 31 3a 6c 62 25 3d 46 21 33 36 3a f2 62 28 |?31:lb%=F!36:.b(| 00004bb0 6e 61 25 2c 32 36 2c c3 28 69 62 25 29 2b 22 25 |na%,26,.(ib%)+"%| 00004bc0 22 29 3a f2 62 28 6e 61 25 2c 32 34 2c c3 28 6a |"):.b(na%,24,.(j| 00004bd0 62 25 29 2b 22 25 22 29 3a f2 62 28 6e 61 25 2c |b%)+"%"):.b(na%,| 00004be0 32 31 2c c3 28 6c 62 25 29 2b 22 25 22 29 3a f2 |21,.(lb%)+"%"):.| 00004bf0 62 28 6e 61 25 2c 31 32 2c c3 28 68 62 25 29 2b |b(na%,12,.(hb%)+| 00004c00 22 25 22 29 3a f2 62 28 6e 61 25 2c 31 37 2c c3 |"%"):.b(na%,17,.| 00004c10 28 6b 62 25 29 2b 22 25 22 29 0d 04 89 9f f2 62 |(kb%)+"%").....b| 00004c20 28 6e 61 25 2c 31 2c c3 28 68 25 28 30 29 29 2b |(na%,1,.(h%(0))+| 00004c30 22 25 22 29 3a f2 62 28 6e 61 25 2c 32 2c c3 28 |"%"):.b(na%,2,.(| 00004c40 68 25 28 31 29 29 2b 22 25 22 29 3a f2 62 28 6e |h%(1))+"%"):.b(n| 00004c50 61 25 2c 33 2c c3 28 68 25 28 32 29 29 2b 22 25 |a%,3,.(h%(2))+"%| 00004c60 22 29 3a c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 |"):.."Wimp_Force| 00004c70 52 65 64 72 61 77 22 2c 6e 61 25 2c 34 38 2c 2d |Redraw",na%,48,-| 00004c80 36 37 32 2c 34 37 34 2c 2d 34 38 34 3a c8 99 22 |672,474,-484:.."| 00004c90 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 |Wimp_ForceRedraw| 00004ca0 22 2c 67 61 25 2c 30 2c 2d 28 6f 61 25 2a 33 36 |",ga%,0,-(oa%*36| 00004cb0 29 2c 33 34 38 2c 30 3a e1 0d 04 8f bc dd f2 51 |),348,0:.......Q| 00004cc0 28 41 29 3a ea 46 3a 46 3d 41 2a 34 30 2b 56 25 |(A):.F:F=A*40+V%| 00004cd0 3a 24 28 46 29 3d 22 20 20 20 20 20 20 20 20 20 |:$(F)=" | 00004ce0 20 20 20 20 20 20 20 20 20 20 22 3a 24 28 46 29 | ":$(F)| 00004cf0 3d a4 62 28 6e 61 25 2c 35 29 3a 46 3f 32 33 3d |=.b(na%,5):F?23=| 00004d00 68 25 28 30 29 3a 46 3f 32 34 3d 68 25 28 31 29 |h%(0):F?24=h%(1)| 00004d10 3a 46 3f 32 35 3d 68 25 28 32 29 3a 46 3f 33 30 |:F?25=h%(2):F?30| 00004d20 3d 68 62 25 3a 46 3f 33 31 3d 6b 62 25 3a 46 21 |=hb%:F?31=kb%:F!| 00004d30 33 36 3d 6c 62 25 3a 46 21 33 32 3d 6a 62 25 3a |36=lb%:F!32=jb%:| 00004d40 46 3f 32 39 3d 69 62 25 3a c8 99 22 57 69 6d 70 |F?29=ib%:.."Wimp| 00004d50 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c 67 61 |_ForceRedraw",ga| 00004d60 25 2c 30 2c 2d 28 6f 61 25 2a 33 36 29 2c 33 34 |%,0,-(oa%*36),34| 00004d70 38 2c 30 3a e1 0d 04 9a 18 dd f2 73 61 3a ea 6d |8,0:.......sa:.m| 00004d80 62 25 2c 41 3a e7 6f 61 25 3d 30 8c e1 0d 04 9e |b%,A:.oa%=0.....| 00004d90 5d 6d 62 25 3d 58 61 25 2b 31 3a 6f 61 25 2d 3d |]mb%=Xa%+1:oa%-=| 00004da0 31 3a e3 4e 3d 58 61 25 b8 6f 61 25 2d 31 3a e3 |1:.N=Xa%.oa%-1:.| 00004db0 46 3d 30 b8 33 36 88 34 3a 21 28 56 25 2b 4e 2a |F=0.36.4:!(V%+N*| 00004dc0 34 30 2b 46 29 3d 21 28 56 25 2b 28 4e 2b 31 29 |40+F)=!(V%+(N+1)| 00004dd0 2a 34 30 2b 46 29 3a ed 3a ed 3a e7 58 61 25 3d |*40+F):.:.:.Xa%=| 00004de0 6f 61 25 8c 58 61 25 2d 3d 31 0d 04 a3 0b e7 6f |oa%.Xa%-=1.....o| 00004df0 61 25 3d 30 8c 0d 04 a4 0c f2 75 28 22 22 2c 30 |a%=0......u("",0| 00004e00 29 0d 04 a6 18 cc 3a f2 75 28 24 28 56 25 2b 58 |).....:.u($(V%+X| 00004e10 61 25 2a 34 30 29 2c 30 29 0d 04 a8 05 cd 0d 04 |a%*40),0).......| 00004e20 a8 33 3a e3 4e 3d 30 b8 64 25 3a 41 3d 4a 25 2b |.3:.N=0.d%:A=J%+| 00004e30 4e 2a 32 30 3a e7 21 41 3d 6d 62 25 8c 21 41 3d |N*20:.!A=mb%.!A=| 00004e40 30 8b e7 21 41 3e 6d 62 25 8c 21 41 3d 21 41 2d |0..!A>mb%.!A=!A-| 00004e50 31 0d 04 ac 25 41 2b 3d 34 3a e7 21 41 3d 6d 62 |1...%A+=4:.!A=mb| 00004e60 25 8c 21 41 3d 30 8b e7 21 41 3e 6d 62 25 8c 21 |%.!A=0..!A>mb%.!| 00004e70 41 3d 21 41 2d 31 0d 04 ad 0a ed 3a f2 4a 3a e1 |A=!A-1.....:.J:.| 00004e80 0d 04 b0 76 dd f2 74 61 3a ea 4e 3a e3 4e 3d 38 |...v..ta:.N:.N=8| 00004e90 b8 31 34 3a f2 70 28 54 25 2c 4e 2c 30 29 3a ed |.14:.p(T%,N,0):.| 00004ea0 3a f2 62 28 54 25 2c 31 35 2c 22 22 29 3a f2 62 |:.b(T%,15,""):.b| 00004eb0 28 54 25 2c 31 36 2c 22 22 29 3a f2 62 28 54 25 |(T%,16,""):.b(T%| 00004ec0 2c 31 37 2c 22 22 29 3a f2 62 28 54 25 2c 31 38 |,17,""):.b(T%,18| 00004ed0 2c 22 31 30 30 22 29 3a f2 62 28 54 25 2c 33 2c |,"100"):.b(T%,3,| 00004ee0 24 a4 64 28 2d 5f 25 29 29 3a f2 70 28 54 25 2c |$.d(-_%)):.p(T%,| 00004ef0 38 2c 31 29 3a e1 0d 04 bb 0f dd f2 4a 3a e7 5f |8,1):.......J:._| 00004f00 25 3d 30 8c e1 0d 04 be 0f e7 5f 25 3c 30 8c f2 |%=0......._%<0..| 00004f10 74 61 3a e1 0d 04 bf 9e e3 4e 3d 38 b8 31 34 3a |ta:......N=8.14:| 00004f20 f2 70 28 54 25 2c 4e 2c 30 29 3a ed 3a 54 61 25 |.p(T%,N,0):.:Ta%| 00004f30 3d 21 28 4a 25 2b 5f 25 2a 32 30 2d 32 30 29 3a |=!(J%+_%*20-20):| 00004f40 55 61 25 3d 21 28 4a 25 2b 5f 25 2a 32 30 2d 31 |Ua%=!(J%+_%*20-1| 00004f50 36 29 3a 6e 62 25 3d 21 28 4a 25 2b 5f 25 2a 32 |6):nb%=!(J%+_%*2| 00004f60 30 2d 31 32 29 3a f2 70 28 54 25 2c 6e 62 25 2b |0-12):.p(T%,nb%+| 00004f70 38 2c 30 29 3a f2 62 28 54 25 2c 31 35 2c 22 22 |8,0):.b(T%,15,""| 00004f80 29 3a f2 62 28 54 25 2c 31 36 2c 22 22 29 3a f2 |):.b(T%,16,""):.| 00004f90 62 28 54 25 2c 31 37 2c 22 22 29 3a f2 62 28 54 |b(T%,17,""):.b(T| 00004fa0 25 2c 31 38 2c 22 31 30 30 22 29 3a c8 8e 6e 62 |%,18,"100"):..nb| 00004fb0 25 ca 0d 04 c9 25 c9 31 2c 32 2c 33 3a f2 62 28 |%....%.1,2,3:.b(| 00004fc0 54 25 2c 31 38 2c c3 28 21 28 4a 25 2b 5f 25 2a |T%,18,.(!(J%+_%*| 00004fd0 32 30 2d 38 29 29 29 0d 04 cc 3c c9 34 3a f2 62 |20-8)))...<.4:.b| 00004fe0 28 54 25 2c 31 35 2c c3 28 21 28 4a 25 2b 5f 25 |(T%,15,.(!(J%+_%| 00004ff0 2a 32 30 2d 38 29 29 29 3a f2 62 28 54 25 2c 31 |*20-8))):.b(T%,1| 00005000 38 2c c3 28 21 28 4a 25 2b 5f 25 2a 32 30 2d 34 |8,.(!(J%+_%*20-4| 00005010 29 29 29 0d 04 ce 21 c9 35 3a f2 62 28 54 25 2c |)))...!.5:.b(T%,| 00005020 31 36 2c c3 28 21 28 4a 25 2b 5f 25 2a 32 30 2d |16,.(!(J%+_%*20-| 00005030 38 29 29 29 0d 04 cf 21 c9 36 3a f2 62 28 54 25 |8)))...!.6:.b(T%| 00005040 2c 31 37 2c c3 28 21 28 4a 25 2b 5f 25 2a 32 30 |,17,.(!(J%+_%*20| 00005050 2d 38 29 29 29 0d 04 d0 05 cb 0d 04 d0 40 f2 70 |-8)))........@.p| 00005060 28 54 25 2c 6e 62 25 2b 38 2c 31 29 3a 61 24 3d |(T%,nb%+8,1):a$=| 00005070 24 a4 61 28 5f 25 29 3a e7 a7 61 24 2c 22 3e 22 |$.a(_%):..a$,">"| 00005080 29 3e 30 8c 61 24 3d c2 61 24 2c a9 28 61 24 29 |)>0.a$=.a$,.(a$)| 00005090 2d a7 61 24 2c 22 3e 22 29 29 0d 04 d3 99 f2 62 |-.a$,">")).....b| 000050a0 28 54 25 2c 33 2c 61 24 29 3a f2 62 28 54 25 2c |(T%,3,a$):.b(T%,| 000050b0 35 2c a4 68 28 56 25 2d 34 30 2b 54 61 25 2a 34 |5,.h(V%-40+Ta%*4| 000050c0 30 29 29 3a f2 62 28 54 25 2c 37 2c a4 68 28 56 |0)):.b(T%,7,.h(V| 000050d0 25 2d 34 30 2b 55 61 25 2a 34 30 29 29 3a c8 99 |%-40+Ua%*40)):..| 000050e0 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 |"Wimp_ForceRedra| 000050f0 77 22 2c 67 61 25 2c 30 2c 2d 28 6f 61 25 2a 33 |w",ga%,0,-(oa%*3| 00005100 36 29 2c 33 34 38 2c 30 3a c8 99 22 57 69 6d 70 |6),348,0:.."Wimp| 00005110 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c 68 61 |_ForceRedraw",ha| 00005120 25 2c 30 2c 2d 31 38 30 2c 33 34 38 2c 30 3a f2 |%,0,-180,348,0:.| 00005130 42 3a e1 0d 04 da 1d dd f2 75 61 3a e7 6f 61 25 |B:.......ua:.oa%| 00005140 3e 3d 6f 62 25 8c 85 31 37 2c 61 24 28 31 30 29 |>=ob%..17,a$(10)| 00005150 0d 04 dd 1c e7 a4 62 28 6e 61 25 2c 35 29 3d 22 |......b(na%,5)="| 00005160 22 8c 85 31 37 2c 61 24 28 31 31 29 0d 04 de 21 |"..17,a$(11)...!| 00005170 e7 a4 6f 28 a4 62 28 6e 61 25 2c 35 29 29 3c 3e |..o(.b(na%,5))<>| 00005180 2d 31 8c 85 31 37 2c 61 24 28 31 32 29 0d 04 df |-1..17,a$(12)...| 00005190 1c f2 51 28 6f 61 25 29 3a 58 61 25 3d 6f 61 25 |..Q(oa%):Xa%=oa%| 000051a0 3a 6f 61 25 2b 3d 31 3a e1 0d 04 e3 18 dd a4 65 |:oa%+=1:.......e| 000051b0 28 41 24 29 3a ea 42 24 3a e7 64 25 3d 30 8c 3d |(A$):.B$:.d%=0.=| 000051c0 30 0d 04 e7 3c 41 24 3d a4 67 28 41 24 29 3a ea |0...<A$=.g(A$):.| 000051d0 4e 2c 46 3a 46 3d 30 3a e3 4e 3d 31 b8 64 25 3a |N,F:F=0:.N=1.d%:| 000051e0 42 24 3d a4 67 28 24 a4 61 28 4e 29 29 3a e7 42 |B$=.g($.a(N)):.B| 000051f0 24 3d 41 24 8c 46 3d 4e 3a 4e 3d 64 25 0d 04 ed |$=A$.F=N:N=d%...| 00005200 10 e7 a7 42 24 2c 22 3e 22 29 3e 30 8c 0d 04 ee |...B$,">")>0....| 00005210 20 e7 c0 42 24 2c a7 42 24 2c 22 3e 22 29 2d 31 | ..B$,.B$,">")-1| 00005220 29 3d 41 24 8c 46 3d 4e 3a 4e 3d 64 25 0d 04 ef |)=A$.F=N:N=d%...| 00005230 24 e7 c2 42 24 2c a9 28 42 24 29 2d a7 42 24 2c |$..B$,.(B$)-.B$,| 00005240 22 3e 22 29 29 3d 41 24 8c 46 3d 4e 3a 4e 3d 64 |">"))=A$.F=N:N=d| 00005250 25 0d 04 f0 05 cd 0d 04 f1 0e ed 3a e7 46 3c 3e |%..........:.F<>| 00005260 30 8c 3d 46 0d 04 f3 1e e3 4e 3d 31 b8 60 25 3a |0.=F.....N=1.`%:| 00005270 e7 a4 67 28 62 24 28 4e 29 29 3d 41 24 8c 46 3d |..g(b$(N))=A$.F=| 00005280 2d 31 0d 04 f5 08 ed 3a 3d 46 0d 04 f9 45 dd a4 |-1.....:=F...E..| 00005290 6f 28 64 24 29 3a ea 67 62 25 2c 4e 2c 46 2c 4e |o(d$):.gb%,N,F,N| 000052a0 24 3a 67 62 25 3d 2d 31 3a e3 4e 3d 30 b8 6f 61 |$:gb%=-1:.N=0.oa| 000052b0 25 2d 31 3a 4e 24 3d a4 68 28 4e 2a 34 30 2b 56 |%-1:N$=.h(N*40+V| 000052c0 25 29 3a e7 4e 24 3d 64 24 8c 67 62 25 3d 4e 0d |%):.N$=d$.gb%=N.| 000052d0 04 fd 0a ed 3a 3d 67 62 25 0d 05 01 17 dd a4 68 |....:=gb%......h| 000052e0 28 46 29 3a e7 46 3d 56 25 2d 34 30 8c 3d 22 22 |(F):.F=V%-40.=""| 000052f0 0d 05 02 35 ea 4e 24 3a f5 3a 4e 24 2b 3d bd 28 |...5.N$:.:N$+=.(| 00005300 3f 46 29 3a 46 2b 3d 31 3a fd 3f 46 3d 31 33 84 |?F):F+=1:.?F=13.| 00005310 3f 46 3d 30 84 46 3d 4e 2a 34 30 2b 56 25 2b 31 |?F=0.F=N*40+V%+1| 00005320 39 3a 3d 4e 24 0d 05 0a 17 dd a4 64 28 4e 29 3a |9:=N$......d(N):| 00005330 3d 4e 2a 35 30 2d 35 30 2b 70 62 25 0d 05 0b 17 |=N*50-50+pb%....| 00005340 dd a4 61 28 4e 29 3a 3d 4e 2a 35 30 2d 35 30 2b |..a(N):=N*50-50+| 00005350 71 62 25 0d 05 0d 62 dd f2 5a 28 63 25 2c 70 25 |qb%...b..Z(c%,p%| 00005360 29 3a ea 6c 2c 69 2c 4e 3a 6c 3d b6 28 28 63 25 |):.l,i,N:l=.((c%| 00005370 21 32 34 2d 63 25 21 31 32 29 5e 32 2b 28 63 25 |!24-c%!12)^2+(c%| 00005380 21 32 30 2d 63 25 21 38 29 5e 32 29 3a 6c 3d b6 |!20-c%!8)^2):l=.| 00005390 28 6c 5e 32 2b 28 63 25 21 32 38 2d 63 25 21 31 |(l^2+(c%!28-c%!1| 000053a0 36 29 5e 32 29 3a e7 6c 3d 30 8c 85 31 37 2c 61 |6)^2):.l=0..17,a| 000053b0 24 28 31 33 29 0d 05 11 13 e7 63 25 21 32 38 2d |$(13).....c%!28-| 000053c0 63 25 21 31 36 3d 30 8c 0d 05 12 46 69 3d 9d 28 |c%!16=0....Fi=.(| 000053d0 98 28 28 63 25 21 32 30 2d 63 25 21 38 29 2f 6c |.((c%!20-c%!8)/l| 000053e0 29 29 3a 69 3d 69 2a b4 28 63 25 21 32 34 2d 63 |)):i=i*.(c%!24-c| 000053f0 25 21 31 32 29 3a e3 4e 3d 31 b8 38 3a e7 28 63 |%!12):.N=1.8:.(c| 00005400 25 21 32 34 2d 63 25 21 31 32 29 3d 30 8c 0d 05 |%!24-c%!12)=0...| 00005410 15 0a e7 70 25 3d 32 8c 0d 05 16 34 f2 74 28 30 |...p%=2....4.t(0| 00005420 2c 63 25 21 33 32 2c 30 2c 31 32 2a 4e 2b 32 38 |,c%!32,0,12*N+28| 00005430 2c 31 32 2a 4e 2b 33 32 2c 31 32 2a 4e 2b 33 36 |,12*N+32,12*N+36| 00005440 2c 34 35 2a 4e 2c 69 2c 30 2c 31 29 0d 05 18 39 |,45*N,i,0,1)...9| 00005450 cc 3a f2 74 28 30 2c 63 25 21 33 36 2c 30 2c 31 |.:.t(0,c%!36,0,1| 00005460 32 2a 4e 2b 31 32 34 2c 31 32 2a 4e 2b 31 32 38 |2*N+124,12*N+128| 00005470 2c 31 32 2a 4e 2b 31 33 32 2c 34 35 2a 4e 2c 69 |,12*N+132,45*N,i| 00005480 2c 30 2c 32 29 0d 05 1a 05 cd 0d 05 1a 0c cc 3a |,0,2)..........:| 00005490 e7 70 25 3d 32 8c 0d 05 1c 34 f2 74 28 63 25 21 |.p%=2....4.t(c%!| 000054a0 33 32 2c 30 2c 30 2c 31 32 2a 4e 2b 32 38 2c 31 |32,0,0,12*N+28,1| 000054b0 32 2a 4e 2b 33 32 2c 31 32 2a 4e 2b 33 36 2c 30 |2*N+32,12*N+36,0| 000054c0 2c 69 2c 34 35 2a 4e 2c 31 29 0d 05 1e 39 cc 3a |,i,45*N,1)...9.:| 000054d0 f2 74 28 63 25 21 33 36 2c 30 2c 30 2c 31 32 2a |.t(c%!36,0,0,12*| 000054e0 4e 2b 31 32 34 2c 31 32 2a 4e 2b 31 32 38 2c 31 |N+124,12*N+128,1| 000054f0 32 2a 4e 2b 31 33 32 2c 30 2c 69 2c 34 35 2a 4e |2*N+132,0,i,45*N| 00005500 2c 32 29 0d 05 20 05 cd 0d 05 20 05 cd 0d 05 21 |,2).. .... ....!| 00005510 05 ed 0d 05 23 05 cd 0d 05 23 14 3a e7 63 25 21 |....#....#.:.c%!| 00005520 32 34 2d 63 25 21 31 32 3d 30 8c 0d 05 25 46 69 |24-c%!12=0...%Fi| 00005530 3d 9d 28 98 28 28 63 25 21 32 30 2d 63 25 21 38 |=.(.((c%!20-c%!8| 00005540 29 2f 6c 29 29 3a 69 3d 69 2a b4 28 63 25 21 31 |)/l)):i=i*.(c%!1| 00005550 36 2d 63 25 21 32 38 29 3a e3 4e 3d 31 b8 38 3a |6-c%!28):.N=1.8:| 00005560 e7 28 63 25 21 32 38 2d 63 25 21 31 36 29 3d 30 |.(c%!28-c%!16)=0| 00005570 8c 0d 05 28 0a e7 70 25 3d 32 8c 0d 05 29 34 f2 |...(..p%=2...)4.| 00005580 78 28 30 2c 30 2c 63 25 21 33 32 2c 31 32 2a 4e |x(0,0,c%!32,12*N| 00005590 2b 32 38 2c 31 32 2a 4e 2b 33 32 2c 31 32 2a 4e |+28,12*N+32,12*N| 000055a0 2b 33 36 2c 34 35 2a 4e 2c 30 2c 69 2c 31 29 0d |+36,45*N,0,i,1).| 000055b0 05 2b 39 cc 3a f2 78 28 30 2c 30 2c 63 25 21 33 |.+9.:.x(0,0,c%!3| 000055c0 36 2c 31 32 2a 4e 2b 31 32 34 2c 31 32 2a 4e 2b |6,12*N+124,12*N+| 000055d0 31 32 38 2c 31 32 2a 4e 2b 31 33 32 2c 34 35 2a |128,12*N+132,45*| 000055e0 4e 2c 30 2c 69 2c 32 29 0d 05 2d 05 cd 0d 05 2d |N,0,i,2)..-....-| 000055f0 0c cc 3a e7 70 25 3d 32 8c 0d 05 2f 34 f2 78 28 |..:.p%=2.../4.x(| 00005600 63 25 21 33 32 2c 30 2c 30 2c 31 32 2a 4e 2b 32 |c%!32,0,0,12*N+2| 00005610 38 2c 31 32 2a 4e 2b 33 32 2c 31 32 2a 4e 2b 33 |8,12*N+32,12*N+3| 00005620 36 2c 30 2c 34 35 2a 4e 2c 69 2c 31 29 0d 05 31 |6,0,45*N,i,1)..1| 00005630 39 cc 3a f2 78 28 63 25 21 33 36 2c 30 2c 30 2c |9.:.x(c%!36,0,0,| 00005640 31 32 2a 4e 2b 31 32 34 2c 31 32 2a 4e 2b 31 32 |12*N+124,12*N+12| 00005650 38 2c 31 32 2a 4e 2b 31 33 32 2c 30 2c 34 35 2a |8,12*N+132,0,45*| 00005660 4e 2c 69 2c 32 29 0d 05 33 05 cd 0d 05 33 05 cd |N,i,2)..3....3..| 00005670 0d 05 34 05 ed 0d 05 36 05 cd 0d 05 36 13 3a e7 |..4....6....6.:.| 00005680 63 25 21 32 30 2d 63 25 21 38 3d 30 8c 0d 05 38 |c%!20-c%!8=0...8| 00005690 47 69 3d 9d 28 98 28 28 63 25 21 32 34 2d 63 25 |Gi=.(.((c%!24-c%| 000056a0 21 31 32 29 2f 6c 29 29 3a 69 3d 69 2a b4 28 63 |!12)/l)):i=i*.(c| 000056b0 25 21 32 38 2d 63 25 21 31 36 29 3a e3 4e 3d 31 |%!28-c%!16):.N=1| 000056c0 b8 38 3a e7 28 63 25 21 32 38 2d 63 25 21 31 36 |.8:.(c%!28-c%!16| 000056d0 29 3d 30 8c 0d 05 3b 0a e7 70 25 3d 32 8c 0d 05 |)=0...;..p%=2...| 000056e0 3c 34 f2 79 28 30 2c 30 2c 63 25 21 33 32 2c 31 |<4.y(0,0,c%!32,1| 000056f0 32 2a 4e 2b 32 38 2c 31 32 2a 4e 2b 33 32 2c 31 |2*N+28,12*N+32,1| 00005700 32 2a 4e 2b 33 36 2c 69 2c 30 2c 34 35 2a 4e 2c |2*N+36,i,0,45*N,| 00005710 31 29 0d 05 3e 39 cc 3a f2 79 28 30 2c 30 2c 63 |1)..>9.:.y(0,0,c| 00005720 25 21 33 36 2c 31 32 2a 4e 2b 31 32 34 2c 31 32 |%!36,12*N+124,12| 00005730 2a 4e 2b 31 32 38 2c 31 32 2a 4e 2b 31 33 32 2c |*N+128,12*N+132,| 00005740 69 2c 30 2c 34 35 2a 4e 2c 32 29 0d 05 40 05 cd |i,0,45*N,2)..@..| 00005750 0d 05 40 0c cc 3a e7 70 25 3d 32 8c 0d 05 42 34 |..@..:.p%=2...B4| 00005760 f2 79 28 30 2c 63 25 21 33 32 2c 30 2c 31 32 2a |.y(0,c%!32,0,12*| 00005770 4e 2b 32 38 2c 31 32 2a 4e 2b 33 32 2c 31 32 2a |N+28,12*N+32,12*| 00005780 4e 2b 33 36 2c 69 2c 34 35 2a 4e 2c 30 2c 31 29 |N+36,i,45*N,0,1)| 00005790 0d 05 44 39 cc 3a f2 79 28 30 2c 63 25 21 33 36 |..D9.:.y(0,c%!36| 000057a0 2c 30 2c 31 32 2a 4e 2b 31 32 34 2c 31 32 2a 4e |,0,12*N+124,12*N| 000057b0 2b 31 32 38 2c 31 32 2a 4e 2b 31 33 32 2c 69 2c |+128,12*N+132,i,| 000057c0 34 35 2a 4e 2c 30 2c 32 29 0d 05 46 05 cd 0d 05 |45*N,0,2)..F....| 000057d0 46 05 cd 0d 05 47 05 ed 0d 05 49 05 cd 0d 05 49 |F....G....I....I| 000057e0 05 e1 0d 05 4a 5e dd f2 76 61 28 63 25 29 3a ea |....J^..va(c%):.| 000057f0 6c 2c 69 3a 6c 3d b6 28 28 63 25 21 32 34 2d 63 |l,i:l=.((c%!24-c| 00005800 25 21 31 32 29 5e 32 2b 28 63 25 21 32 30 2d 63 |%!12)^2+(c%!20-c| 00005810 25 21 38 29 5e 32 29 3a 6c 3d b6 28 6c 5e 32 2b |%!8)^2):l=.(l^2+| 00005820 28 63 25 21 32 38 2d 63 25 21 31 36 29 5e 32 29 |(c%!28-c%!16)^2)| 00005830 3a e7 6c 3d 30 8c 85 31 37 2c 61 24 28 31 33 29 |:.l=0..17,a$(13)| 00005840 0d 05 50 13 e7 63 25 21 32 38 2d 63 25 21 31 36 |..P..c%!28-c%!16| 00005850 3d 30 8c 0d 05 51 46 69 3d 9d 28 98 28 28 63 25 |=0...QFi=.(.((c%| 00005860 21 32 30 2d 63 25 21 38 29 2f 6c 29 29 3a 69 3d |!20-c%!8)/l)):i=| 00005870 69 2a b4 28 63 25 21 32 34 2d 63 25 21 31 32 29 |i*.(c%!24-c%!12)| 00005880 3a e3 4e 3d 31 b8 38 3a e7 28 63 25 21 32 34 2d |:.N=1.8:.(c%!24-| 00005890 63 25 21 31 32 29 3d 30 8c 0d 05 54 34 f2 74 28 |c%!12)=0...T4.t(| 000058a0 30 2c 63 25 21 33 32 2c 30 2c 31 32 2a 4e 2b 32 |0,c%!32,0,12*N+2| 000058b0 34 2c 31 32 2a 4e 2b 32 38 2c 31 32 2a 4e 2b 33 |4,12*N+28,12*N+3| 000058c0 32 2c 34 35 2a 4e 2c 69 2c 30 2c 31 29 0d 05 56 |2,45*N,i,0,1)..V| 000058d0 36 cc 3a f2 74 28 63 25 21 33 32 2c 30 2c 30 2c |6.:.t(c%!32,0,0,| 000058e0 31 32 2a 4e 2b 32 34 2c 31 32 2a 4e 2b 32 38 2c |12*N+24,12*N+28,| 000058f0 31 32 2a 4e 2b 33 32 2c 30 2c 69 2c 34 35 2a 4e |12*N+32,0,i,45*N| 00005900 2c 31 29 0d 05 58 05 cd 0d 05 58 05 ed 0d 05 5a |,1)..X....X....Z| 00005910 05 cd 0d 05 5a 14 3a e7 63 25 21 32 34 2d 63 25 |....Z.:.c%!24-c%| 00005920 21 31 32 3d 30 8c 0d 05 5c 46 69 3d 9d 28 98 28 |!12=0...\Fi=.(.(| 00005930 28 63 25 21 32 30 2d 63 25 21 38 29 2f 6c 29 29 |(c%!20-c%!8)/l))| 00005940 3a 69 3d 69 2a b4 28 63 25 21 31 36 2d 63 25 21 |:i=i*.(c%!16-c%!| 00005950 32 38 29 3a e3 4e 3d 31 b8 38 3a e7 28 63 25 21 |28):.N=1.8:.(c%!| 00005960 32 38 2d 63 25 21 31 36 29 3d 30 8c 0d 05 5f 34 |28-c%!16)=0..._4| 00005970 f2 78 28 30 2c 30 2c 63 25 21 33 32 2c 31 32 2a |.x(0,0,c%!32,12*| 00005980 4e 2b 32 34 2c 31 32 2a 4e 2b 32 38 2c 31 32 2a |N+24,12*N+28,12*| 00005990 4e 2b 33 32 2c 34 35 2a 4e 2c 30 2c 69 2c 31 29 |N+32,45*N,0,i,1)| 000059a0 0d 05 61 36 cc 3a f2 78 28 63 25 21 33 32 2c 30 |..a6.:.x(c%!32,0| 000059b0 2c 30 2c 31 32 2a 4e 2b 32 34 2c 31 32 2a 4e 2b |,0,12*N+24,12*N+| 000059c0 32 38 2c 31 32 2a 4e 2b 33 32 2c 30 2c 34 35 2a |28,12*N+32,0,45*| 000059d0 4e 2c 69 2c 31 29 0d 05 63 05 cd 0d 05 63 05 ed |N,i,1)..c....c..| 000059e0 0d 05 65 05 cd 0d 05 65 13 3a e7 63 25 21 32 30 |..e....e.:.c%!20| 000059f0 2d 63 25 21 38 3d 30 8c 0d 05 67 47 69 3d 9d 28 |-c%!8=0...gGi=.(| 00005a00 98 28 28 63 25 21 32 34 2d 63 25 21 31 32 29 2f |.((c%!24-c%!12)/| 00005a10 6c 29 29 3a 69 3d 69 2a b4 28 63 25 21 32 38 2d |l)):i=i*.(c%!28-| 00005a20 63 25 21 31 36 29 3a e3 4e 3d 31 b8 38 3a e7 28 |c%!16):.N=1.8:.(| 00005a30 63 25 21 32 38 2d 63 25 21 31 36 29 3d 30 8c 0d |c%!28-c%!16)=0..| 00005a40 05 6a 34 f2 79 28 30 2c 30 2c 63 25 21 33 32 2c |.j4.y(0,0,c%!32,| 00005a50 31 32 2a 4e 2b 32 34 2c 31 32 2a 4e 2b 32 38 2c |12*N+24,12*N+28,| 00005a60 31 32 2a 4e 2b 33 32 2c 69 2c 30 2c 34 35 2a 4e |12*N+32,i,0,45*N| 00005a70 2c 31 29 0d 05 6c 36 cc 3a f2 79 28 30 2c 63 25 |,1)..l6.:.y(0,c%| 00005a80 21 33 32 2c 30 2c 31 32 2a 4e 2b 32 34 2c 31 32 |!32,0,12*N+24,12| 00005a90 2a 4e 2b 32 38 2c 31 32 2a 4e 2b 33 32 2c 69 2c |*N+28,12*N+32,i,| 00005aa0 34 35 2a 4e 2c 30 2c 31 29 0d 05 6e 05 cd 0d 05 |45*N,0,1)..n....| 00005ab0 6e 05 ed 0d 05 70 05 cd 0d 05 70 05 e1 0d 05 71 |n....p....p....q| 00005ac0 15 dd f2 42 3a 72 62 25 3d 30 3a e7 57 61 25 3d |...B:rb%=0:.Wa%=| 00005ad0 30 8c 0d 05 75 23 e3 4e 3d 31 b8 64 25 3a e7 a7 |0...u#.N=1.d%:..| 00005ae0 24 a4 61 28 4e 29 2c 22 3e 22 29 3d 30 8c 72 62 |$.a(N),">")=0.rb| 00005af0 25 2b 3d 33 36 0d 05 77 15 ed 3a 72 62 25 3d 72 |%+=36..w..:rb%=r| 00005b00 62 25 2b 28 55 25 2a 33 36 29 0d 05 7a 39 cc 3a |b%+(U%*36)..z9.:| 00005b10 e3 4e 3d 31 b8 64 25 3a 61 24 3d 24 a4 61 28 4e |.N=1.d%:a$=$.a(N| 00005b20 29 3a e7 c0 61 24 2c a7 61 24 2c 22 3e 22 29 2d |):..a$,.a$,">")-| 00005b30 31 29 3d 24 a4 64 28 57 61 25 29 8c 72 62 25 2b |1)=$.d(Wa%).rb%+| 00005b40 3d 33 36 0d 05 7d 05 ed 0d 05 7f 05 cd 0d 05 7f |=36..}..........| 00005b50 14 e7 72 62 25 3c 31 38 30 8c 72 62 25 3d 31 38 |..rb%<180.rb%=18| 00005b60 30 0d 05 80 6b 62 25 21 30 3d 30 3a 62 25 21 34 |0...kb%!0=0:b%!4| 00005b70 3d 2d 72 62 25 3a 62 25 21 38 3d 33 34 38 3a 62 |=-rb%:b%!8=348:b| 00005b80 25 21 31 32 3d 30 3a c8 99 22 57 69 6d 70 5f 53 |%!12=0:.."Wimp_S| 00005b90 65 74 45 78 74 65 6e 74 22 2c 68 61 25 2c 62 25 |etExtent",ha%,b%| 00005ba0 3a c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 |:.."Wimp_ForceRe| 00005bb0 64 72 61 77 22 2c 68 61 25 2c 30 2c 2d 28 64 25 |draw",ha%,0,-(d%| 00005bc0 2a 33 36 29 2c 33 34 38 2c 30 3a e1 0d 05 84 30 |*36),348,0:....0| 00005bd0 dd f2 5f 3a ea 61 24 3a e3 4e 3d 31 b8 64 25 3a |.._:.a$:.N=1.d%:| 00005be0 61 24 3d 24 a4 61 28 4e 29 3a e7 4b 25 3f 4e 80 |a$=$.a(N):.K%?N.| 00005bf0 a7 61 24 2c 22 3e 22 29 3c 3e 30 8c 0d 05 8a 1e |.a$,">")<>0.....| 00005c00 24 a4 61 28 4e 29 3d c2 61 24 2c a9 28 61 24 29 |$.a(N)=.a$,.(a$)| 00005c10 2d a7 61 24 2c 22 3e 22 29 29 0d 05 8c 05 cd 0d |-.a$,">"))......| 00005c20 05 8c 0a ed 3a f2 52 3a e1 0d 05 8f 0f dd f2 52 |....:.R:.......R| 00005c30 3a e7 55 25 3c 3e 30 8c 0d 05 92 1d e3 4e 3d 55 |:.U%<>0......N=U| 00005c40 25 b8 31 88 2d 31 3a e7 a4 65 28 24 a4 64 28 4e |%.1.-1:..e($.d(N| 00005c50 29 29 3d 30 8c 0d 05 94 29 e3 46 3d 4e b8 55 25 |))=0....).F=N.U%| 00005c60 3a 24 a4 64 28 46 29 3d 24 a4 64 28 46 2b 31 29 |:$.d(F)=$.d(F+1)| 00005c70 3a ed 3a 55 25 2d 3d 31 3a 66 61 25 3d 30 0d 05 |:.:U%-=1:fa%=0..| 00005c80 97 05 cd 0d 05 97 05 ed 0d 05 99 05 cd 0d 05 99 |................| 00005c90 0e e7 55 25 3c 30 8c 55 25 3d 30 0d 05 9a 0e f2 |..U%<0.U%=0.....| 00005ca0 69 3a f2 65 3a f2 68 3a e1 0d 05 9e 25 dd f2 60 |i:.e:.h:....%..`| 00005cb0 28 74 29 3a ea 64 62 25 2c 4e 25 2c 46 25 2c 6b |(t):.db%,N%,F%,k| 00005cc0 2c 6d 2c 6a 2c 5a 3a e7 4f 25 3d 30 8c e1 0d 05 |,m,j,Z:.O%=0....| 00005cd0 a2 60 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f |.`.."Hourglass_O| 00005ce0 6e 22 3a 64 61 25 3d 2d 31 3a 4e 25 3d 78 61 25 |n":da%=-1:N%=xa%| 00005cf0 2d 34 3a 64 62 25 3d 30 3a 6b 3d 6c 25 3a 6d 3d |-4:db%=0:k=l%:m=| 00005d00 6e 25 3a 6a 3d 71 25 3a e3 5a 3d 31 b8 64 25 3a |n%:j=q%:.Z=1.d%:| 00005d10 f5 3a 4e 25 2b 3d 34 3a fd 21 4e 25 3c 30 3a 64 |.:N%+=4:.!N%<0:d| 00005d20 62 25 2b 3d 31 3a e7 4b 25 3f 64 62 25 8c 0d 05 |b%+=1:.K%?db%...| 00005d30 a9 0a c8 8e 21 4e 25 ca 0d 05 aa 1c c9 2d 31 3a |....!N%......-1:| 00005d40 f2 73 28 4e 25 2b 38 2c 4e 25 2b 33 32 2c 6b 2c |.s(N%+8,N%+32,k,| 00005d50 6d 2c 6a 29 0d 05 ad 55 c9 2d 32 3a 4e 25 21 38 |m,j)...U.-2:N%!8| 00005d60 3d 28 4e 25 21 38 2d 6c 25 29 2a 74 2b 6c 25 3a |=(N%!8-l%)*t+l%:| 00005d70 4e 25 21 31 32 3d 28 4e 25 21 31 32 2d 6e 25 29 |N%!12=(N%!12-n%)| 00005d80 2a 74 2b 6e 25 3a 4e 25 21 31 36 3d 28 4e 25 21 |*t+n%:N%!16=(N%!| 00005d90 31 36 2d 71 25 29 2a 74 2b 71 25 3a 4e 25 21 32 |16-q%)*t+q%:N%!2| 00005da0 30 3d 4e 25 21 32 30 2a 74 0d 05 b2 36 c9 2d 33 |0=N%!20*t...6.-3| 00005db0 3a 6b 3d 6c 25 3a 6d 3d 6e 25 3a 6a 3d 71 25 3a |:k=l%:m=n%:j=q%:| 00005dc0 f2 73 28 4e 25 2b 31 32 2c 4e 25 2b 28 4e 25 21 |.s(N%+12,N%+(N%!| 00005dd0 38 2a 31 32 29 2b 31 32 2c 6b 2c 6d 2c 6a 29 0d |8*12)+12,k,m,j).| 00005de0 05 b5 41 c9 2d 34 3a f2 73 28 4e 25 2b 38 2c 4e |..A.-4:.s(N%+8,N| 00005df0 25 2b 32 30 2c 6b 2c 6d 2c 6a 29 3a f2 73 28 4e |%+20,k,m,j):.s(N| 00005e00 25 2b 33 36 2c 4e 25 2b 31 32 30 2c 6b 2c 6d 2c |%+36,N%+120,k,m,| 00005e10 6a 29 3a 4e 25 21 33 32 3d 4e 25 21 33 32 2a 74 |j):N%!32=N%!32*t| 00005e20 0d 05 b9 4f c9 2d 35 3a f2 73 28 4e 25 2b 38 2c |...O.-5:.s(N%+8,| 00005e30 4e 25 2b 32 30 2c 6b 2c 6d 2c 6a 29 3a f2 73 28 |N%+20,k,m,j):.s(| 00005e40 4e 25 2b 34 30 2c 4e 25 2b 32 32 30 2c 6b 2c 6d |N%+40,N%+220,k,m| 00005e50 2c 6a 29 3a 4e 25 21 33 32 3d 4e 25 21 33 32 2a |,j):N%!32=N%!32*| 00005e60 74 3a 4e 25 21 33 36 3d 4e 25 21 33 36 2a 74 0d |t:N%!36=N%!36*t.| 00005e70 05 bd 4c c9 2d 36 2c 2d 31 30 3a f2 73 28 4e 25 |..L.-6,-10:.s(N%| 00005e80 2b 38 2c 4e 25 2b 38 2c 6b 2c 6d 2c 6a 29 3a f2 |+8,N%+8,k,m,j):.| 00005e90 73 28 4e 25 2b 32 30 2c 4e 25 2b 32 30 2c 30 2c |s(N%+20,N%+20,0,| 00005ea0 30 2c 30 29 3a f2 73 28 4e 25 2b 34 34 2c 4e 25 |0,0):.s(N%+44,N%| 00005eb0 2b 31 32 38 2c 6b 2c 6d 2c 6a 29 0d 05 c1 1f c9 |+128,k,m,j).....| 00005ec0 2d 37 2c 2d 38 3a f2 73 28 4e 25 2b 38 2c 4e 25 |-7,-8:.s(N%+8,N%| 00005ed0 2b 34 34 2c 6b 2c 6d 2c 6a 29 0d 05 c3 1c c9 2d |+44,k,m,j).....-| 00005ee0 39 3a f2 73 28 4e 25 2b 38 2c 4e 25 2b 35 36 2c |9:.s(N%+8,N%+56,| 00005ef0 6b 2c 6d 2c 6a 29 0d 05 c5 05 cb 0d 05 c5 05 cd |k,m,j)..........| 00005f00 0d 05 c6 19 ed 3a c8 99 22 48 6f 75 72 67 6c 61 |.....:.."Hourgla| 00005f10 73 73 5f 4f 66 66 22 3a e1 0d 05 c9 55 dd f2 73 |ss_Off":....U..s| 00005f20 28 53 25 2c 45 25 2c 6b 2c 6d 2c 6a 29 3a ea 4e |(S%,E%,k,m,j):.N| 00005f30 3a e3 4e 3d 53 25 b8 45 25 88 31 32 3a 21 4e 3d |:.N=S%.E%.12:!N=| 00005f40 28 21 4e 2d 6b 29 2a 74 2b 6b 3a 4e 21 34 3d 28 |(!N-k)*t+k:N!4=(| 00005f50 4e 21 34 2d 6d 29 2a 74 2b 6d 3a 4e 21 38 3d 28 |N!4-m)*t+m:N!8=(| 00005f60 4e 21 38 2d 6a 29 2a 74 2b 6a 3a ed 3a e1 0d 05 |N!8-j)*t+j:.:...| 00005f70 d0 6d dd f2 48 28 53 25 29 3a ea 64 62 25 2c 4e |.m..H(S%):.db%,N| 00005f80 25 2c 46 25 2c 6b 2c 6d 2c 6a 2c 63 2c 65 2c 66 |%,F%,k,m,j,c,e,f| 00005f90 2c 67 2c 68 3a 4e 25 3d 78 61 25 2d 34 3a 64 62 |,g,h:N%=xa%-4:db| 00005fa0 25 3d 30 3a 64 61 25 3d 2d 31 3a e3 64 62 25 3d |%=0:da%=-1:.db%=| 00005fb0 31 b8 53 25 3a f5 3a 4e 25 2b 3d 34 3a fd 21 4e |1.S%:.:N%+=4:.!N| 00005fc0 25 3c 30 3a ed 3a 6b 3d 6c 25 3a 6d 3d 6e 25 3a |%<0:.:k=l%:m=n%:| 00005fd0 6a 3d 71 25 3a c8 8e 21 4e 25 ca 0d 05 d7 16 c9 |j=q%:..!N%......| 00005fe0 2d 31 3a f2 71 28 4e 25 2b 38 2c 4e 25 2b 33 32 |-1:.q(N%+8,N%+32| 00005ff0 29 0d 05 d9 15 c9 2d 32 3a f2 71 28 4e 25 2b 38 |).....-2:.q(N%+8| 00006000 2c 4e 25 2b 38 29 0d 05 da 21 c9 2d 33 3a f2 71 |,N%+8)...!.-3:.q| 00006010 28 4e 25 2b 31 32 2c 4e 25 2b 28 4e 25 21 38 2a |(N%+12,N%+(N%!8*| 00006020 31 32 29 2b 31 32 29 0d 05 db 27 c9 2d 34 3a f2 |12)+12)...'.-4:.| 00006030 71 28 4e 25 2b 38 2c 4e 25 2b 32 30 29 3a f2 71 |q(N%+8,N%+20):.q| 00006040 28 4e 25 2b 33 36 2c 4e 25 2b 31 32 30 29 0d 05 |(N%+36,N%+120)..| 00006050 dc 27 c9 2d 35 3a f2 71 28 4e 25 2b 38 2c 4e 25 |.'.-5:.q(N%+8,N%| 00006060 2b 32 30 29 3a f2 71 28 4e 25 2b 34 30 2c 4e 25 |+20):.q(N%+40,N%| 00006070 2b 32 32 30 29 0d 05 dd 78 c9 2d 36 2c 2d 31 30 |+220)...x.-6,-10| 00006080 3a f2 71 28 4e 25 2b 38 2c 4e 25 2b 38 29 3a 4e |:.q(N%+8,N%+8):N| 00006090 25 21 33 32 3d 28 4e 25 21 33 32 2d 4b 61 25 2b |%!32=(N%!32-Ka%+| 000060a0 33 36 30 29 83 33 36 30 3a 4e 25 21 33 36 3d 28 |360).360:N%!36=(| 000060b0 4e 25 21 33 36 2d 4c 61 25 2b 33 36 30 29 83 33 |N%!36-La%+360).3| 000060c0 36 30 3a 4e 25 21 34 30 3d 28 4e 25 21 34 30 2d |60:N%!40=(N%!40-| 000060d0 4d 61 25 2b 33 36 30 29 83 33 36 30 3a f2 71 28 |Ma%+360).360:.q(| 000060e0 4e 25 2b 34 34 2c 4e 25 2b 31 32 38 29 0d 05 e3 |N%+44,N%+128)...| 000060f0 16 c9 2d 37 3a f2 71 28 4e 25 2b 38 2c 4e 25 2b |..-7:.q(N%+8,N%+| 00006100 35 36 29 0d 05 e4 16 c9 2d 38 3a f2 71 28 4e 25 |56).....-8:.q(N%| 00006110 2b 38 2c 4e 25 2b 34 34 29 0d 05 e5 16 c9 2d 39 |+8,N%+44).....-9| 00006120 3a f2 71 28 4e 25 2b 38 2c 4e 25 2b 35 36 29 0d |:.q(N%+8,N%+56).| 00006130 05 e6 05 cb 0d 05 e6 05 e1 0d 05 e7 76 dd f2 71 |............v..q| 00006140 28 53 25 2c 45 25 29 3a 73 62 25 3d 6c 25 3a 74 |(S%,E%):sb%=l%:t| 00006150 62 25 3d 6e 25 3a 75 62 25 3d 71 25 3a e3 46 25 |b%=n%:ub%=q%:.F%| 00006160 3d 53 25 b8 45 25 88 31 32 3a f2 77 61 28 46 25 |=S%.E%.12:.wa(F%| 00006170 2c 46 25 2b 34 2c 46 25 2b 38 2c 4b 61 25 29 3a |,F%+4,F%+8,Ka%):| 00006180 f2 78 61 28 46 25 2c 46 25 2b 34 2c 46 25 2b 38 |.xa(F%,F%+4,F%+8| 00006190 2c 4c 61 25 29 3a f2 79 61 28 46 25 2c 46 25 2b |,La%):.ya(F%,F%+| 000061a0 34 2c 46 25 2b 38 2c 4d 61 25 29 3a ed 3a e1 0d |4,F%+8,Ma%):.:..| 000061b0 05 f0 77 dd f2 77 61 28 58 2c 59 2c 5a 2c 76 62 |..w..wa(X,Y,Z,vb| 000061c0 25 29 3a ea 63 2c 65 3a 63 3d b5 28 b2 28 2d 76 |%):.c,e:c=.(.(-v| 000061d0 62 25 29 29 3a 65 3d 9b 28 b2 28 2d 76 62 25 29 |b%)):e=.(.(-vb%)| 000061e0 29 3a 41 3d 28 21 58 29 2d 73 62 25 3a 42 3d 28 |):A=(!X)-sb%:B=(| 000061f0 21 59 29 2d 74 62 25 3a 43 3d 28 21 5a 29 2d 75 |!Y)-tb%:C=(!Z)-u| 00006200 62 25 3a 21 59 3d 28 42 2a 65 2d 43 2a 63 29 2b |b%:!Y=(B*e-C*c)+| 00006210 74 62 25 3a 21 5a 3d 28 42 2a 63 2b 43 2a 65 29 |tb%:!Z=(B*c+C*e)| 00006220 2b 75 62 25 3a e1 0d 05 f7 77 dd f2 78 61 28 58 |+ub%:....w..xa(X| 00006230 2c 59 2c 5a 2c 76 62 25 29 3a ea 63 2c 65 3a 63 |,Y,Z,vb%):.c,e:c| 00006240 3d b5 28 b2 28 2d 76 62 25 29 29 3a 65 3d 9b 28 |=.(.(-vb%)):e=.(| 00006250 b2 28 2d 76 62 25 29 29 3a 41 3d 28 21 58 29 2d |.(-vb%)):A=(!X)-| 00006260 73 62 25 3a 42 3d 28 21 59 29 2d 74 62 25 3a 43 |sb%:B=(!Y)-tb%:C| 00006270 3d 28 21 5a 29 2d 75 62 25 3a 21 58 3d 28 41 2a |=(!Z)-ub%:!X=(A*| 00006280 65 2b 43 2a 63 29 2b 73 62 25 3a 21 5a 3d 28 43 |e+C*c)+sb%:!Z=(C| 00006290 2a 65 2d 41 2a 63 29 2b 75 62 25 3a e1 0d 05 fe |*e-A*c)+ub%:....| 000062a0 77 dd f2 79 61 28 58 2c 59 2c 5a 2c 76 62 25 29 |w..ya(X,Y,Z,vb%)| 000062b0 3a ea 63 2c 65 3a 63 3d b5 28 b2 28 2d 76 62 25 |:.c,e:c=.(.(-vb%| 000062c0 29 29 3a 65 3d 9b 28 b2 28 2d 76 62 25 29 29 3a |)):e=.(.(-vb%)):| 000062d0 41 3d 28 21 58 29 2d 73 62 25 3a 42 3d 28 21 59 |A=(!X)-sb%:B=(!Y| 000062e0 29 2d 74 62 25 3a 43 3d 28 21 5a 29 2d 75 62 25 |)-tb%:C=(!Z)-ub%| 000062f0 3a 21 58 3d 28 41 2a 65 2d 42 2a 63 29 2b 73 62 |:!X=(A*e-B*c)+sb| 00006300 25 3a 21 59 3d 28 41 2a 63 2b 42 2a 65 29 2b 74 |%:!Y=(A*c+B*e)+t| 00006310 62 25 3a e1 0d 06 05 2b dd f2 59 3a ea 77 62 25 |b%:....+..Y:.wb%| 00006320 2c 4e 2c 69 25 2c 78 62 25 2c 79 62 25 2c 7a 62 |,N,i%,xb%,yb%,zb| 00006330 25 2c 64 62 25 2c 5a 3a e7 4f 25 3d 30 8c e1 0d |%,db%,Z:.O%=0...| 00006340 06 09 4b c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |..K.."Hourglass_| 00006350 4f 6e 22 3a 64 61 25 3d 2d 31 3a 78 62 25 3d 74 |On":da%=-1:xb%=t| 00006360 25 28 39 33 29 2d 6c 25 3a 79 62 25 3d 74 25 28 |%(93)-l%:yb%=t%(| 00006370 39 34 29 2d 6e 25 3a 7a 62 25 3d 74 25 28 39 35 |94)-n%:zb%=t%(95| 00006380 29 2d 71 25 3a e7 51 61 25 8c 0d 06 0c 2e d5 23 |)-q%:.Qa%......#| 00006390 52 61 25 2c 22 4d 6f 76 65 20 22 2b c3 28 78 62 |Ra%,"Move "+.(xb| 000063a0 25 29 2b 22 20 22 2b c3 28 79 62 25 29 2b 22 20 |%)+" "+.(yb%)+" | 000063b0 22 2b c3 28 7a 62 25 29 0d 06 0e 05 cd 0d 06 0e |"+.(zb%)........| 000063c0 42 69 25 3d 78 61 25 2d 34 3a 64 62 25 3d 30 3a |Bi%=xa%-4:db%=0:| 000063d0 e3 5a 3d 31 b8 64 25 3a f5 3a 69 25 2b 3d 34 3a |.Z=1.d%:.:i%+=4:| 000063e0 fd 21 69 25 3c 30 3a 77 62 25 3d 21 69 25 3a 64 |.!i%<0:wb%=!i%:d| 000063f0 62 25 2b 3d 31 3a 3a e7 4b 25 3f 64 62 25 8c 0d |b%+=1::.K%?db%..| 00006400 06 14 0a c8 8e 77 62 25 ca 0d 06 15 10 c9 2d 31 |.....wb%......-1| 00006410 3a f2 6c 28 38 2c 33 32 29 0d 06 17 0f c9 2d 32 |:.l(8,32).....-2| 00006420 3a f2 6c 28 38 2c 38 29 0d 06 18 19 c9 2d 33 3a |:.l(8,8).....-3:| 00006430 f2 6c 28 31 32 2c 69 25 21 38 2a 31 32 2b 31 32 |.l(12,i%!8*12+12| 00006440 29 0d 06 19 24 c9 2d 34 3a f2 6c 28 38 2c 38 29 |)...$.-4:.l(8,8)| 00006450 3a f2 6c 28 32 30 2c 32 30 29 3a f2 6c 28 33 36 |:.l(20,20):.l(36| 00006460 2c 31 32 30 29 0d 06 1b 30 c9 2d 35 3a f2 6c 28 |,120)...0.-5:.l(| 00006470 38 2c 38 29 3a f2 6c 28 32 30 2c 32 30 29 3a f2 |8,8):.l(20,20):.| 00006480 6c 28 34 30 2c 31 32 34 29 3a f2 6c 28 31 33 36 |l(40,124):.l(136| 00006490 2c 32 32 30 29 0d 06 1d 1e c9 2d 36 2c 2d 31 30 |,220).....-6,-10| 000064a0 3a f2 6c 28 38 2c 38 29 3a f2 6c 28 34 34 2c 31 |:.l(8,8):.l(44,1| 000064b0 32 38 29 0d 06 1e 10 c9 2d 37 3a f2 6c 28 38 2c |28).....-7:.l(8,| 000064c0 35 36 29 0d 06 1f 10 c9 2d 38 3a f2 6c 28 38 2c |56).....-8:.l(8,| 000064d0 34 34 29 0d 06 20 10 c9 2d 39 3a f2 6c 28 38 2c |44).. ..-9:.l(8,| 000064e0 35 36 29 0d 06 21 05 cb 0d 06 21 05 cd 0d 06 22 |56)..!....!...."| 000064f0 19 ed 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |..:.."Hourglass_| 00006500 4f 66 66 22 3a e1 0d 06 25 55 dd f2 6c 28 53 25 |Off":...%U..l(S%| 00006510 2c 45 25 29 3a ea 4e 3a e3 4e 3d 69 25 2b 53 25 |,E%):.N:.N=i%+S%| 00006520 b8 69 25 2b 45 25 88 31 32 3a 21 4e 3d 21 4e 2b |.i%+E%.12:!N=!N+| 00006530 78 62 25 3a 21 28 4e 2b 34 29 3d 21 28 4e 2b 34 |xb%:!(N+4)=!(N+4| 00006540 29 2b 79 62 25 3a 21 28 4e 2b 38 29 3d 21 28 4e |)+yb%:!(N+8)=!(N| 00006550 2b 38 29 2b 7a 62 25 3a ed 3a e1 0d 06 2c 24 dd |+8)+zb%:.:...,$.| 00006560 f2 7a 61 3a ea 64 62 25 2c 4e 25 2c 46 25 2c 4c |.za:.db%,N%,F%,L| 00006570 25 2c 5a 2c 62 62 25 3a e7 4f 25 3d 30 8c e1 0d |%,Z,bb%:.O%=0...| 00006580 06 30 5d c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |.0].."Hourglass_| 00006590 4f 6e 22 3a 64 61 25 3d 2d 31 3a 62 62 25 3d 30 |On":da%=-1:bb%=0| 000065a0 3a 4e 25 3d 78 61 25 2b 48 25 2d 38 3a 64 62 25 |:N%=xa%+H%-8:db%| 000065b0 3d 64 25 2b 31 3a e3 5a 3d 31 b8 64 25 3a f5 3a |=d%+1:.Z=1.d%:.:| 000065c0 4e 25 2d 3d 34 3a fd 21 4e 25 3c 30 3a 64 62 25 |N%-=4:.!N%<0:db%| 000065d0 2d 3d 31 3a e7 4b 25 3f 64 62 25 8c 0d 06 36 6f |-=1:.K%?db%...6o| 000065e0 46 25 3d 78 61 25 2b 48 25 2d 34 3a 4c 25 3d 4e |F%=xa%+H%-4:L%=N| 000065f0 25 3a f5 3a 21 46 25 3d 21 4c 25 3a 4c 25 2b 3d |%:.:!F%=!L%:L%+=| 00006600 34 3a 46 25 2b 3d 34 3a fd 21 4c 25 3c 30 3a 21 |4:F%+=4:.!L%<0:!| 00006610 46 25 3d 2d 32 35 36 3a 48 25 3d 46 25 2d 78 61 |F%=-256:H%=F%-xa| 00006620 25 2b 34 3a 62 62 25 2b 3d 31 3a 24 a4 61 28 64 |%+4:bb%+=1:$.a(d| 00006630 25 2b 62 62 25 29 3d a4 69 28 24 a4 61 28 64 62 |%+bb%)=.i($.a(db| 00006640 25 29 29 3a 4b 25 3f 64 25 3d 31 0d 06 3c 05 cd |%)):K%?d%=1..<..| 00006650 0d 06 3c 21 ed 3a 64 25 2b 3d 62 62 25 3a c8 99 |..<!.:d%+=bb%:..| 00006660 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 3a |"Hourglass_Off":| 00006670 e1 0d 06 40 1e dd a4 67 28 41 24 29 3a ea 4e 2c |...@...g(A$):.N,| 00006680 43 2c 42 24 3a e7 41 24 3d 22 22 8c 3d 22 22 0d |C,B$:.A$="".="".| 00006690 06 44 30 42 24 3d 22 22 3a e3 4e 3d 31 b8 a9 28 |.D0B$="":.N=1..(| 000066a0 41 24 29 3a 42 24 2b 3d bd 28 97 28 c1 41 24 2c |A$):B$+=.(.(.A$,| 000066b0 4e 2c 31 29 29 84 33 32 29 3a ed 3a 3d 42 24 0d |N,1)).32):.:=B$.| 000066c0 06 48 23 dd f2 58 28 57 25 29 3a ea 5a 3a 5a 3d |.H#..X(W%):.Z:Z=| 000066d0 a4 65 28 a4 62 28 57 25 2c 30 29 29 3a e7 51 61 |.e(.b(W%,0)):.Qa| 000066e0 25 8c 0d 06 4b 1a d5 23 52 61 25 2c 22 53 65 6c |%...K..#Ra%,"Sel| 000066f0 65 63 74 20 22 2b 24 a4 61 28 5a 29 0d 06 4d 05 |ect "+$.a(Z)..M.| 00006700 cd 0d 06 4d 09 e7 5a 3e 30 8c 0d 06 4e 0c e7 4b |...M..Z>0...N..K| 00006710 25 3f 5a 3d 30 8c 0d 06 4f 10 4b 25 3f 5a 3d 31 |%?Z=0...O.K%?Z=1| 00006720 3a 4f 25 2b 3d 31 0d 06 51 12 cc 3a 4b 25 3f 5a |:O%+=1..Q..:K%?Z| 00006730 3d 30 3a 4f 25 2d 3d 31 0d 06 53 05 cd 0d 06 53 |=0:O%-=1..S....S| 00006740 05 cd 0d 06 54 0b f2 65 3a f2 68 3a e1 0d 06 57 |....T..e:.h:...W| 00006750 24 dd f2 53 3a ea 64 62 25 2c 4e 25 2c 4c 25 2c |$..S:.db%,N%,L%,| 00006760 46 25 2c 51 25 2c 41 62 25 3a e7 4f 25 3d 30 8c |F%,Q%,Ab%:.O%=0.| 00006770 e1 0d 06 5b 65 c8 99 22 48 6f 75 72 67 6c 61 73 |...[e.."Hourglas| 00006780 73 5f 4f 6e 22 3a 64 61 25 3d 2d 31 3a 62 62 25 |s_On":da%=-1:bb%| 00006790 3d 30 3a 4e 25 3d 78 61 25 2b 48 25 2d 38 3a 64 |=0:N%=xa%+H%-8:d| 000067a0 62 25 3d 64 25 2b 31 3a 41 62 25 3d 64 25 3a e3 |b%=d%+1:Ab%=d%:.| 000067b0 5a 3d 31 b8 41 62 25 3a f5 3a 4e 25 2d 3d 34 3a |Z=1.Ab%:.:N%-=4:| 000067c0 fd 21 4e 25 3c 30 3a 64 62 25 2d 3d 31 3a e7 4b |.!N%<0:db%-=1:.K| 000067d0 25 3f 64 62 25 8c 0d 06 62 d1 46 25 3d 4e 25 3a |%?db%...b.F%=N%:| 000067e0 f5 3a 46 25 2b 3d 34 3a fd 21 46 25 3c 30 3a 4c |.:F%+=4:.!F%<0:L| 000067f0 25 3d 4e 25 3a c8 95 21 46 25 3c 3e 2d 32 35 36 |%=N%:..!F%<>-256| 00006800 3a 21 4c 25 3d 21 46 25 3a 4c 25 2b 3d 34 3a 46 |:!L%=!F%:L%+=4:F| 00006810 25 2b 3d 34 3a ce 3a 21 4c 25 3d 2d 32 35 36 3a |%+=4:.:!L%=-256:| 00006820 48 25 3d 4c 25 2b 34 2d 78 61 25 3a e3 51 25 3d |H%=L%+4-xa%:.Q%=| 00006830 64 62 25 b8 64 25 3a 24 a4 61 28 51 25 29 3d 24 |db%.d%:$.a(Q%)=$| 00006840 a4 61 28 51 25 2b 31 29 3a 4b 25 3f 51 25 3d 3f |.a(Q%+1):K%?Q%=?| 00006850 28 4b 25 2b 51 25 2b 31 29 3a 3f 28 59 61 25 2b |(K%+Q%+1):?(Ya%+| 00006860 51 25 29 3d 3f 28 59 61 25 2b 51 25 2b 31 29 3a |Q%)=?(Ya%+Q%+1):| 00006870 21 28 4a 25 2b 51 25 2a 32 30 2d 32 30 29 3d 21 |!(J%+Q%*20-20)=!| 00006880 28 4a 25 2b 51 25 2a 32 30 29 3a 21 28 4a 25 2b |(J%+Q%*20):!(J%+| 00006890 51 25 2a 32 30 2d 31 36 29 3d 21 28 4a 25 2b 51 |Q%*20-16)=!(J%+Q| 000068a0 25 2a 32 30 2b 34 29 0d 06 6b 6d 21 28 4a 25 2b |%*20+4)..km!(J%+| 000068b0 51 25 2a 32 30 2d 31 32 29 3d 21 28 4a 25 2b 51 |Q%*20-12)=!(J%+Q| 000068c0 25 2a 32 30 2b 38 29 3a 21 28 4a 25 2b 51 25 2a |%*20+8):!(J%+Q%*| 000068d0 32 30 2d 38 29 3d 21 28 4a 25 2b 51 25 2a 32 30 |20-8)=!(J%+Q%*20| 000068e0 2b 31 32 29 3a 21 28 4a 25 2b 51 25 2a 32 30 2d |+12):!(J%+Q%*20-| 000068f0 34 29 3d 21 28 4a 25 2b 51 25 2a 32 30 2b 31 36 |4)=!(J%+Q%*20+16| 00006900 29 3a ed 3a 5f 25 3d 30 3a 4f 25 2d 3d 31 3a 64 |):.:_%=0:O%-=1:d| 00006910 25 2d 3d 31 0d 06 71 05 cd 0d 06 71 3f ed 3a c8 |%-=1..q....q?.:.| 00006920 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f 66 66 22 |."Hourglass_Off"| 00006930 3a c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 |:.."Wimp_ForceRe| 00006940 64 72 61 77 22 2c 68 61 25 2c 30 2c 2d 31 38 30 |draw",ha%,0,-180| 00006950 2c 33 34 38 2c 30 3a e1 0d 06 75 31 dd a4 69 28 |,348,0:...u1..i(| 00006960 64 24 29 3a ea 4e 2c 41 24 2c 42 24 2c 42 62 25 |d$):.N,A$,B$,Bb%| 00006970 3a 42 62 25 3d 30 3a 41 24 3d 22 22 3a e7 a7 64 |:Bb%=0:A$="":..d| 00006980 24 2c 22 23 22 29 3e 30 8c 0d 06 7a 14 64 24 3d |$,"#")>0...z.d$=| 00006990 c0 64 24 2c a7 64 24 2c 22 23 22 29 29 0d 06 7c |.d$,.d$,"#"))..|| 000069a0 1e cc 3a e7 a4 65 28 64 24 29 3d 30 8c 41 24 3d |..:..e(d$)=0.A$=| 000069b0 64 24 8b 64 24 2b 3d 22 20 23 22 0d 06 7d 05 cd |d$.d$+=" #"..}..| 000069c0 0d 06 7e 27 e3 4e 3d 31 b8 36 3a e7 63 24 28 4e |..~'.N=1.6:.c$(N| 000069d0 29 3d 64 24 8c 42 62 25 3d 6b 25 28 4e 29 3a 6b |)=d$.Bb%=k%(N):k| 000069e0 25 28 4e 29 2b 3d 31 0d 06 80 1a ed 3a e7 42 62 |%(N)+=1.....:.Bb| 000069f0 25 3c 3e 30 8c 3d 64 24 2b c3 28 42 62 25 2b 31 |%<>0.=d$+.(Bb%+1| 00006a00 29 0d 06 82 0f e7 41 24 3c 3e 22 22 8c 3d 41 24 |).....A$<>"".=A$| 00006a10 0d 06 83 33 41 24 3d a4 67 28 64 24 29 3a e3 4e |...3A$=.g(d$):.N| 00006a20 3d 31 b8 64 25 3a 42 24 3d a4 67 28 24 a4 61 28 |=1.d%:B$=.g($.a(| 00006a30 4e 29 29 3a e7 c0 42 24 2c a9 28 41 24 29 29 3d |N)):..B$,.(A$))=| 00006a40 41 24 8c 0d 06 87 1d e7 bb 28 c2 42 24 2c a9 28 |A$.......(.B$,.(| 00006a50 42 24 29 2d a9 28 41 24 29 29 29 3e 42 62 25 8c |B$)-.(A$)))>Bb%.| 00006a60 0d 06 88 1b 42 62 25 3d bb 28 c2 42 24 2c a9 28 |....Bb%=.(.B$,.(| 00006a70 42 24 29 2d a9 28 41 24 29 29 29 0d 06 8a 05 cd |B$)-.(A$))).....| 00006a80 0d 06 8a 05 cd 0d 06 8b 3c ed 3a 63 24 28 6b 25 |........<.:c$(k%| 00006a90 28 30 29 29 3d 64 24 3a 6b 25 28 6b 25 28 30 29 |(0))=d$:k%(k%(0)| 00006aa0 29 3d 42 62 25 2b 31 3a 6b 25 28 30 29 2b 3d 31 |)=Bb%+1:k%(0)+=1| 00006ab0 3a e7 6b 25 28 30 29 3d 37 8c 6b 25 28 30 29 3d |:.k%(0)=7.k%(0)=| 00006ac0 31 0d 06 8f 10 3d 64 24 2b c3 28 42 62 25 2b 31 |1....=d$+.(Bb%+1| 00006ad0 29 0d 06 92 1b dd a4 70 3a ea 41 24 2c 4e 24 2c |)......p:.A$,N$,| 00006ae0 4e 25 2c 46 25 3a c8 8e 43 62 25 ca 0d 06 94 10 |N%,F%:..Cb%.....| 00006af0 c9 31 3a 4e 24 3d 61 24 28 35 31 29 0d 06 96 10 |.1:N$=a$(51)....| 00006b00 c9 32 3a 4e 24 3d 61 24 28 35 32 29 0d 06 97 10 |.2:N$=a$(52)....| 00006b10 c9 33 3a 4e 24 3d 61 24 28 35 33 29 0d 06 98 10 |.3:N$=a$(53)....| 00006b20 c9 34 3a 4e 24 3d 61 24 28 35 34 29 0d 06 99 10 |.4:N$=a$(54)....| 00006b30 c9 35 3a 4e 24 3d 61 24 28 35 35 29 0d 06 9a 10 |.5:N$=a$(55)....| 00006b40 c9 36 3a 4e 24 3d 61 24 28 35 36 29 0d 06 9b 10 |.6:N$=a$(56)....| 00006b50 c9 37 3a 4e 24 3d 61 24 28 35 37 29 0d 06 9c 10 |.7:N$=a$(57)....| 00006b60 c9 38 3a 4e 24 3d 61 24 28 35 38 29 0d 06 9d 11 |.8:N$=a$(58)....| 00006b70 c9 31 36 3a 4e 24 3d 61 24 28 35 39 29 0d 06 9e |.16:N$=a$(59)...| 00006b80 11 c9 32 34 3a 4e 24 3d 61 24 28 36 30 29 0d 06 |..24:N$=a$(60)..| 00006b90 9f 11 c9 32 35 3a 4e 24 3d 61 24 28 36 31 29 0d |...25:N$=a$(61).| 00006ba0 06 a0 11 c9 33 32 3a 4e 24 3d 61 24 28 36 32 29 |....32:N$=a$(62)| 00006bb0 0d 06 a1 05 cb 0d 06 a1 4f 4e 25 3d 30 3a f5 3a |........ON%=0:.:| 00006bc0 4e 25 2b 3d 31 3a 41 24 3d a4 67 28 4e 24 2b c3 |N%+=1:A$=.g(N$+.| 00006bd0 28 4e 25 29 29 3a 46 25 3d 31 3a 44 62 25 3d 2d |(N%)):F%=1:Db%=-| 00006be0 31 3a c8 95 46 25 3c 3d 64 25 80 44 62 25 3a e7 |1:..F%<=d%.Db%:.| 00006bf0 41 24 3d a4 67 28 24 a4 61 28 46 25 29 29 8c 44 |A$=.g($.a(F%)).D| 00006c00 62 25 3d 30 0d 06 a6 5e 46 25 2b 3d 31 3a ce 3a |b%=0...^F%+=1:.:| 00006c10 fd 44 62 25 3a f2 62 28 5a 25 2c 30 2c 4e 24 2b |.Db%:.b(Z%,0,N$+| 00006c20 c3 28 4e 25 29 29 3a c8 99 22 57 69 6d 70 5f 53 |.(N%)):.."Wimp_S| 00006c30 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 |etCaretPosition"| 00006c40 2c 5a 25 2c 30 2c 30 2c 30 2c 2d 31 2c a9 28 4e |,Z%,0,0,0,-1,.(N| 00006c50 24 2b c3 28 4e 25 29 29 3a 3d 4e 24 2b c3 28 4e |$+.(N%)):=N$+.(N| 00006c60 25 29 0d 06 ae 49 dd f2 54 28 43 62 25 29 3a ea |%)...I..T(Cb%):.| 00006c70 64 24 2c 63 25 2c 4e 3a 64 61 25 3d 2d 31 3a 63 |d$,c%,N:da%=-1:c| 00006c80 25 3d 78 61 25 2b 48 25 2d 34 3a 42 61 25 3d 31 |%=xa%+H%-4:Ba%=1| 00006c90 3a e7 63 25 3e 78 61 25 2b 32 30 30 2a 53 61 25 |:.c%>xa%+200*Sa%| 00006ca0 8c 85 31 37 2c 61 24 28 31 34 29 0d 06 b1 0a c8 |..17,a$(14).....| 00006cb0 8e 43 62 25 ca 0d 06 b2 3d c9 31 2c 32 2c 33 2c |.Cb%....=.1,2,3,| 00006cc0 34 2c 33 32 2c 35 2c 36 2c 37 2c 38 2c 31 36 2c |4,32,5,6,7,8,16,| 00006cd0 32 34 2c 32 35 3a 64 24 3d a4 62 28 57 25 2c 30 |24,25:d$=.b(W%,0| 00006ce0 29 3a e7 66 61 25 3c 3e 30 80 43 62 25 3c 3e 31 |):.fa%<>0.Cb%<>1| 00006cf0 36 8c 0d 06 b5 16 64 24 3d 24 a4 64 28 66 61 25 |6.....d$=$.d(fa%| 00006d00 29 2b 22 3e 22 2b a4 70 0d 06 b7 1c cc 3a e7 64 |)+">"+.p.....:.d| 00006d10 24 3d 22 22 84 a4 65 28 64 24 29 3c 3e 30 8c 64 |$=""..e(d$)<>0.d| 00006d20 24 3d a4 70 0d 06 b8 05 cd 0d 06 b9 05 cb 0d 06 |$=.p............| 00006d30 ba 0a c8 8e 43 62 25 ca 0d 06 bb 46 c9 31 3a 63 |....Cb%....F.1:c| 00006d40 25 21 34 3d 30 3a 63 25 21 38 3d 6c 25 3a 63 25 |%!4=0:c%!8=l%:c%| 00006d50 21 31 32 3d 6e 25 3a 63 25 21 31 36 3d 71 25 3a |!12=n%:c%!16=q%:| 00006d60 63 25 21 32 30 3d 30 3a 43 61 25 3d 48 25 2b 31 |c%!20=0:Ca%=H%+1| 00006d70 36 3a 24 a4 61 28 64 25 2b 31 29 3d 64 24 0d 06 |6:$.a(d%+1)=d$..| 00006d80 c0 69 c9 32 3a 63 25 21 34 3d 30 3a 63 25 21 38 |.i.2:c%!4=0:c%!8| 00006d90 3d 6c 25 3a 63 25 21 31 32 3d 6e 25 3a 63 25 21 |=l%:c%!12=n%:c%!| 00006da0 31 36 3d 71 25 3a 63 25 21 32 30 3d 6c 25 3a 63 |16=q%:c%!20=l%:c| 00006db0 25 21 32 34 3d 6e 25 3a 63 25 21 32 38 3d 71 25 |%!24=n%:c%!28=q%| 00006dc0 3a 63 25 21 33 32 3d 30 3a 63 25 21 33 36 3d 30 |:c%!32=0:c%!36=0| 00006dd0 3a 43 61 25 3d 48 25 2b 31 36 3a 24 a4 61 28 64 |:Ca%=H%+16:$.a(d| 00006de0 25 2b 31 29 3d 64 24 0d 06 c5 61 c9 33 3a 63 25 |%+1)=d$...a.3:c%| 00006df0 21 34 3d 30 3a 63 25 21 38 3d 6c 25 3a 63 25 21 |!4=0:c%!8=l%:c%!| 00006e00 31 32 3d 6e 25 3a 63 25 21 31 36 3d 71 25 3a 63 |12=n%:c%!16=q%:c| 00006e10 25 21 32 30 3d 6c 25 3a 63 25 21 32 34 3d 6e 25 |%!20=l%:c%!24=n%| 00006e20 3a 63 25 21 32 38 3d 71 25 3a 63 25 21 33 32 3d |:c%!28=q%:c%!32=| 00006e30 30 3a 43 61 25 3d 48 25 2b 31 36 3a 24 a4 61 28 |0:Ca%=H%+16:$.a(| 00006e40 64 25 2b 31 29 3d 64 24 0d 06 ca 71 c9 34 2c 33 |d%+1)=d$...q.4,3| 00006e50 32 3a 63 25 21 34 3d 30 3a 63 25 21 38 3d 6c 25 |2:c%!4=0:c%!8=l%| 00006e60 3a 63 25 21 31 32 3d 6e 25 3a 63 25 21 31 36 3d |:c%!12=n%:c%!16=| 00006e70 71 25 3a 63 25 21 32 30 3d 30 3a 63 25 21 32 34 |q%:c%!20=0:c%!24| 00006e80 3d 30 3a 63 25 21 32 38 3d 30 3a 63 25 21 33 32 |=0:c%!28=0:c%!32| 00006e90 3d 30 3a 63 25 21 33 36 3d 30 3a 63 25 21 34 30 |=0:c%!36=0:c%!40| 00006ea0 3d 30 3a 24 a4 61 28 64 25 2b 31 29 3d 64 24 3a |=0:$.a(d%+1)=d$:| 00006eb0 43 61 25 3d 48 25 2b 31 36 0d 06 d0 91 c9 35 2c |Ca%=H%+16.....5,| 00006ec0 36 3a 63 25 21 34 3d 30 3a 63 25 21 38 3d 6c 25 |6:c%!4=0:c%!8=l%| 00006ed0 3a 63 25 21 31 32 3d 6e 25 3a 63 25 21 31 36 3d |:c%!12=n%:c%!16=| 00006ee0 71 25 3a 63 25 21 32 30 3d 6c 25 3a 63 25 21 32 |q%:c%!20=l%:c%!2| 00006ef0 34 3d 6e 25 3a 63 25 21 32 38 3d 71 25 3a 63 25 |4=n%:c%!28=q%:c%| 00006f00 21 33 32 3d 6c 25 3a 63 25 21 33 36 3d 6e 25 3a |!32=l%:c%!36=n%:| 00006f10 63 25 21 34 30 3d 71 25 3a 63 25 21 34 34 3d 6c |c%!40=q%:c%!44=l| 00006f20 25 3a 63 25 21 34 38 3d 6e 25 3a 63 25 21 35 32 |%:c%!48=n%:c%!52| 00006f30 3d 71 25 3a 24 a4 61 28 64 25 2b 31 29 3d 64 24 |=q%:$.a(d%+1)=d$| 00006f40 3a 43 61 25 3d 48 25 2b 31 36 0d 06 d7 7a c9 37 |:Ca%=H%+16...z.7| 00006f50 3a 63 25 21 34 3d 30 3a 63 25 21 38 3d 6c 25 3a |:c%!4=0:c%!8=l%:| 00006f60 63 25 21 31 32 3d 6e 25 3a 63 25 21 31 36 3d 71 |c%!12=n%:c%!16=q| 00006f70 25 3a 63 25 21 32 30 3d 6c 25 3a 63 25 21 32 34 |%:c%!20=l%:c%!24| 00006f80 3d 6e 25 3a 63 25 21 32 38 3d 71 25 3a 63 25 21 |=n%:c%!28=q%:c%!| 00006f90 33 32 3d 6c 25 3a 63 25 21 33 36 3d 6e 25 3a 63 |32=l%:c%!36=n%:c| 00006fa0 25 21 34 30 3d 71 25 3a 43 61 25 3d 48 25 2b 31 |%!40=q%:Ca%=H%+1| 00006fb0 36 3a 41 61 25 3d 32 3a 24 a4 61 28 64 25 2b 31 |6:Aa%=2:$.a(d%+1| 00006fc0 29 3d 64 24 0d 06 dd 67 c9 38 3a 63 25 21 34 3d |)=d$...g.8:c%!4=| 00006fd0 30 3a 63 25 21 38 3d 30 3a 63 25 21 31 32 3d 6c |0:c%!8=0:c%!12=l| 00006fe0 25 3a 63 25 21 31 36 3d 6e 25 3a 63 25 21 32 30 |%:c%!16=n%:c%!20| 00006ff0 3d 71 25 3a 63 25 21 32 34 3d 6c 25 3a 63 25 21 |=q%:c%!24=l%:c%!| 00007000 32 38 3d 6e 25 3a 63 25 21 33 32 3d 71 25 3a 43 |28=n%:c%!32=q%:C| 00007010 61 25 3d 48 25 2b 31 36 3a 41 61 25 3d 32 3a 24 |a%=H%+16:Aa%=2:$| 00007020 a4 61 28 64 25 2b 31 29 3d 64 24 0d 06 e2 2f c9 |.a(d%+1)=d$.../.| 00007030 31 34 3a 74 25 28 39 33 29 3d 6c 25 3a 74 25 28 |14:t%(93)=l%:t%(| 00007040 39 34 29 3d 6e 25 3a 74 25 28 39 35 29 3d 71 25 |94)=n%:t%(95)=q%| 00007050 3a 43 61 25 3d 48 25 2b 31 36 0d 06 e3 63 c9 31 |:Ca%=H%+16...c.1| 00007060 36 3a 63 25 28 60 25 2b 31 2c 30 29 3d 45 62 25 |6:c%(`%+1,0)=Eb%| 00007070 3a 63 25 28 60 25 2b 31 2c 31 29 3d 6c 25 3a 63 |:c%(`%+1,1)=l%:c| 00007080 25 28 60 25 2b 31 2c 32 29 3d 6e 25 3a 63 25 28 |%(`%+1,2)=n%:c%(| 00007090 60 25 2b 31 2c 33 29 3d 71 25 3a 63 25 28 60 25 |`%+1,3)=q%:c%(`%| 000070a0 2b 31 2c 34 29 3d 30 3a 43 61 25 3d 48 25 2b 31 |+1,4)=0:Ca%=H%+1| 000070b0 36 3a 62 24 28 60 25 2b 31 29 3d 64 24 0d 06 e9 |6:b$(`%+1)=d$...| 000070c0 90 c9 32 34 3a 63 25 21 34 3d 30 3a 63 25 21 38 |..24:c%!4=0:c%!8| 000070d0 3d 6c 25 3a 63 25 21 31 32 3d 6e 25 3a 63 25 21 |=l%:c%!12=n%:c%!| 000070e0 31 36 3d 71 25 3a 63 25 21 32 30 3d 6c 25 3a 63 |16=q%:c%!20=l%:c| 000070f0 25 21 32 34 3d 6e 25 3a 63 25 21 32 38 3d 71 25 |%!24=n%:c%!28=q%| 00007100 3a 63 25 21 33 32 3d 6c 25 3a 63 25 21 33 36 3d |:c%!32=l%:c%!36=| 00007110 6e 25 3a 63 25 21 34 30 3d 71 25 3a 63 25 21 34 |n%:c%!40=q%:c%!4| 00007120 34 3d 6c 25 3a 63 25 21 34 38 3d 6e 25 3a 63 25 |4=l%:c%!48=n%:c%| 00007130 21 35 32 3d 71 25 3a 24 a4 61 28 64 25 2b 31 29 |!52=q%:$.a(d%+1)| 00007140 3d 64 24 3a 43 61 25 3d 48 25 2b 31 36 0d 06 f0 |=d$:Ca%=H%+16...| 00007150 6a c9 32 35 3a 63 25 21 34 3d 30 3a 63 25 21 38 |j.25:c%!4=0:c%!8| 00007160 3d 6c 25 3a 63 25 21 31 32 3d 6e 25 3a 63 25 21 |=l%:c%!12=n%:c%!| 00007170 31 36 3d 71 25 3a 63 25 21 32 30 3d 6c 25 3a 63 |16=q%:c%!20=l%:c| 00007180 25 21 32 34 3d 6e 25 3a 63 25 21 32 38 3d 71 25 |%!24=n%:c%!28=q%| 00007190 3a 63 25 21 33 32 3d 30 3a 63 25 21 33 36 3d 30 |:c%!32=0:c%!36=0| 000071a0 3a 24 a4 61 28 64 25 2b 31 29 3d 64 24 3a 43 61 |:$.a(d%+1)=d$:Ca| 000071b0 25 3d 48 25 2b 31 36 0d 06 f6 43 c9 33 30 3a 74 |%=H%+16...C.30:t| 000071c0 25 28 39 33 29 3d 6c 25 3a 74 25 28 39 34 29 3d |%(93)=l%:t%(94)=| 000071d0 6e 25 3a 74 25 28 39 35 29 3d 71 25 3a 74 25 28 |n%:t%(95)=q%:t%(| 000071e0 38 33 29 3d 6c 25 3a 74 25 28 38 34 29 3d 6e 25 |83)=l%:t%(84)=n%| 000071f0 3a 74 25 28 38 35 29 3d 71 25 0d 06 f8 05 cb 0d |:t%(85)=q%......| 00007200 06 f8 05 e1 0d 06 f9 62 dd f2 55 28 4e 29 3a f2 |.......b..U(N):.| 00007210 62 28 6d 61 25 2c 31 2c 62 24 28 4e 2b 31 29 29 |b(ma%,1,b$(N+1))| 00007220 3a 46 62 25 3d 4e 2b 31 3a 69 25 28 30 29 3d 63 |:Fb%=N+1:i%(0)=c| 00007230 25 28 46 62 25 2c 35 29 3a 69 25 28 31 29 3d 63 |%(Fb%,5):i%(1)=c| 00007240 25 28 46 62 25 2c 36 29 3a 69 25 28 32 29 3d 63 |%(Fb%,6):i%(2)=c| 00007250 25 28 46 62 25 2c 37 29 3a e7 63 25 28 46 62 25 |%(Fb%,7):.c%(Fb%| 00007260 2c 30 29 3d 30 8c 0d 07 02 15 f2 62 28 6d 61 25 |,0)=0......b(ma%| 00007270 2c 33 2c 22 50 6f 69 6e 74 22 29 0d 07 04 1a cc |,3,"Point").....| 00007280 3a f2 62 28 6d 61 25 2c 33 2c 22 45 78 74 65 6e |:.b(ma%,3,"Exten| 00007290 64 65 64 22 29 0d 07 06 05 cd 0d 07 06 6e f2 62 |ded")........n.b| 000072a0 28 6d 61 25 2c 38 2c c3 63 25 28 46 62 25 2c 35 |(ma%,8,.c%(Fb%,5| 000072b0 29 29 3a f2 62 28 6d 61 25 2c 39 2c c3 63 25 28 |)):.b(ma%,9,.c%(| 000072c0 46 62 25 2c 36 29 29 3a f2 62 28 6d 61 25 2c 31 |Fb%,6)):.b(ma%,1| 000072d0 30 2c c3 63 25 28 46 62 25 2c 37 29 29 3a c8 99 |0,.c%(Fb%,7)):..| 000072e0 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 |"Wimp_ForceRedra| 000072f0 77 22 2c 6d 61 25 2c 34 38 2c 2d 31 39 32 2c 34 |w",ma%,48,-192,4| 00007300 38 36 2c 2d 38 30 3a e1 0d 07 0b 40 dd f2 41 61 |86,-80:....@..Aa| 00007310 3a ea 4e 2c 77 62 25 3a 77 62 25 3d 5f 25 3a e3 |:.N,wb%:wb%=_%:.| 00007320 4e 3d 31 b8 64 25 3a e7 c0 24 a4 61 28 4e 29 2c |N=1.d%:..$.a(N),| 00007330 a9 28 24 a4 64 28 2d 77 62 25 29 29 29 3d 24 a4 |.($.d(-wb%)))=$.| 00007340 64 28 2d 77 62 25 29 8c 0d 07 11 0b 5f 25 3d 4e |d(-wb%)....._%=N| 00007350 3a f2 50 0d 07 13 05 cd 0d 07 13 0e ed 3a 5f 25 |:.P..........:_%| 00007360 3d 77 62 25 3a e1 0d 07 16 0f dd f2 50 3a e7 5f |=wb%:.......P:._| 00007370 25 3d 30 8c e1 0d 07 19 0f e7 5f 25 3c 30 8c f2 |%=0......._%<0..| 00007380 41 61 3a e1 0d 07 1a 43 21 28 4a 25 2b 5f 25 2a |Aa:....C!(J%+_%*| 00007390 32 30 2d 32 30 29 3d 54 61 25 3a 21 28 4a 25 2b |20-20)=Ta%:!(J%+| 000073a0 5f 25 2a 32 30 2d 31 36 29 3d 55 61 25 3a 21 28 |_%*20-16)=Ua%:!(| 000073b0 4a 25 2b 5f 25 2a 32 30 2d 31 32 29 3d 6e 62 25 |J%+_%*20-12)=nb%| 000073c0 3a c8 8e 6e 62 25 ca 0d 07 1e 25 c9 31 2c 32 2c |:..nb%....%.1,2,| 000073d0 33 3a 21 28 4a 25 2b 5f 25 2a 32 30 2d 38 29 3d |3:!(J%+_%*20-8)=| 000073e0 bb 28 a4 62 28 54 25 2c 31 38 29 29 0d 07 21 3c |.(.b(T%,18))..!<| 000073f0 c9 34 3a 21 28 4a 25 2b 5f 25 2a 32 30 2d 38 29 |.4:!(J%+_%*20-8)| 00007400 3d bb 28 a4 62 28 54 25 2c 31 35 29 29 3a 21 28 |=.(.b(T%,15)):!(| 00007410 4a 25 2b 5f 25 2a 32 30 2d 34 29 3d bb 28 a4 62 |J%+_%*20-4)=.(.b| 00007420 28 54 25 2c 31 38 29 29 0d 07 24 21 c9 35 3a 21 |(T%,18))..$!.5:!| 00007430 28 4a 25 2b 5f 25 2a 32 30 2d 38 29 3d bb 28 a4 |(J%+_%*20-8)=.(.| 00007440 62 28 54 25 2c 31 36 29 29 0d 07 26 21 c9 36 3a |b(T%,16))..&!.6:| 00007450 21 28 4a 25 2b 5f 25 2a 32 30 2d 38 29 3d bb 28 |!(J%+_%*20-8)=.(| 00007460 a4 62 28 54 25 2c 31 37 29 29 0d 07 28 05 cb 0d |.b(T%,17))..(...| 00007470 07 28 05 e1 0d 07 29 2c dd f2 76 28 57 25 2c 49 |.(....),..v(W%,I| 00007480 25 2c 47 62 25 29 3a ea 46 61 25 2c 41 2c 63 25 |%,Gb%):.Fa%,A,c%| 00007490 2c 64 24 2c 51 25 2c 48 62 25 3a c8 8e 57 25 ca |,d$,Q%,Hb%:..W%.| 000074a0 0d 07 2f 0e c9 50 61 25 3a c8 8e 49 25 ca 0d 07 |../..Pa%:..I%...| 000074b0 31 13 c9 34 2c 35 2c 36 3a 49 62 25 3d 49 25 2d |1..4,5,6:Ib%=I%-| 000074c0 33 0d 07 33 1d c9 37 3a c8 99 22 57 69 6d 70 5f |3..3..7:.."Wimp_| 000074d0 43 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 0d 07 |CreateMenu",-1..| 000074e0 34 21 c9 38 3a f2 42 61 3a c8 99 22 57 69 6d 70 |4!.8:.Ba:.."Wimp| 000074f0 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 0d |_CreateMenu",-1.| 00007500 07 37 05 cb 0d 07 37 0e c9 4f 61 25 3a c8 8e 49 |.7....7..Oa%:..I| 00007510 25 ca 0d 07 39 0a c9 33 3a f2 43 61 0d 07 3b 0e |%...9..3:.Ca..;.| 00007520 c9 32 3a f2 6f 28 4f 61 25 29 0d 07 3c 05 cb 0d |.2:.o(Oa%)..<...| 00007530 07 3c 04 0d 07 3e 1a c9 4a 62 25 3a e7 49 25 3e |.<...>..Jb%:.I%>| 00007540 30 80 49 25 3c 35 8c 4b 62 25 3d 49 25 0d 07 3f |0.I%<5.Kb%=I%..?| 00007550 28 e7 49 25 3d 35 8c c8 99 22 57 69 6d 70 5f 43 |(.I%=5..."Wimp_C| 00007560 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 3a f2 6f |reateMenu",-1:.o| 00007570 28 4a 62 25 29 0d 07 40 12 e7 49 25 3d 36 8c f2 |(Jb%)..@..I%=6..| 00007580 44 61 28 4b 62 25 29 0d 07 41 04 0d 07 43 0f c9 |Da(Kb%)..A...C..| 00007590 71 61 25 3a e7 49 25 3d 32 8c 0d 07 44 21 e7 a7 |qa%:.I%=2...D!..| 000075a0 a4 62 28 71 61 25 2c 31 29 2c 22 24 2e 22 29 3d |.b(qa%,1),"$.")=| 000075b0 30 8c 85 31 37 2c 61 24 28 35 29 0d 07 45 28 c8 |0..17,a$(5)..E(.| 000075c0 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e |."Wimp_CreateMen| 000075d0 75 22 2c 2d 31 3a f2 41 28 a4 62 28 71 61 25 2c |u",-1:.A(.b(qa%,| 000075e0 31 29 29 0d 07 48 05 cd 0d 07 48 04 0d 07 4b 0f |1))..H....H...K.| 000075f0 c9 73 61 25 3a e7 49 25 3d 32 8c 0d 07 4c 21 e7 |.sa%:.I%=2...L!.| 00007600 a7 a4 62 28 73 61 25 2c 31 29 2c 22 24 2e 22 29 |..b(sa%,1),"$.")| 00007610 3d 30 8c 85 31 37 2c 61 24 28 35 29 0d 07 4d 28 |=0..17,a$(5)..M(| 00007620 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |.."Wimp_CreateMe| 00007630 6e 75 22 2c 2d 31 3a f2 4f 28 a4 62 28 73 61 25 |nu",-1:.O(.b(sa%| 00007640 2c 31 29 29 0d 07 50 05 cd 0d 07 50 04 0d 07 52 |,1))..P....P...R| 00007650 0f c9 65 62 25 3a e7 49 25 3d 32 8c 0d 07 53 0b |..eb%:.I%=2...S.| 00007660 f2 6f 28 65 62 25 29 0d 07 55 05 cd 0d 07 55 04 |.o(eb%)..U....U.| 00007670 0d 07 57 1c c9 54 25 3a e7 49 25 3e 37 80 49 25 |..W..T%:.I%>7.I%| 00007680 3c 31 35 8c 6e 62 25 3d 49 25 2d 38 0d 07 58 13 |<15.nb%=I%-8..X.| 00007690 e7 49 25 3d 32 32 8c 57 61 25 3d 30 3a f2 42 0d |.I%=22.Wa%=0:.B.| 000076a0 07 59 04 0d 07 5b 10 c9 4e 61 25 3a e7 49 25 3d |.Y...[..Na%:.I%=| 000076b0 32 30 8c 0d 07 5c 6a c8 99 22 57 69 6d 70 5f 43 |20...\j.."Wimp_C| 000076c0 72 65 61 74 65 4d 65 6e 75 22 2c 2d 31 3a 21 62 |reateMenu",-1:!b| 000076d0 25 3d 57 25 3a 62 25 21 34 3d 31 38 3a c8 99 22 |%=W%:b%!4=18:.."| 000076e0 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat| 000076f0 65 22 2c 2c 62 25 3a 65 25 28 34 29 3d 62 25 21 |e",,b%:e%(4)=b%!| 00007700 32 34 3e 3e 32 38 80 31 35 3a 79 61 25 3d bb 28 |24>>28.15:ya%=.(| 00007710 a4 62 28 57 25 2c 31 39 29 29 3a f2 65 0d 07 62 |.b(W%,19)):.e..b| 00007720 05 cd 0d 07 62 10 e7 49 25 3e 30 80 49 25 3c 31 |....b..I%>0.I%<1| 00007730 37 8c 0d 07 63 4d 21 62 25 3d 4e 61 25 3a 62 25 |7...cM!b%=Na%:b%| 00007740 21 34 3d 31 38 3a 62 25 21 38 3d 28 49 25 2d 31 |!4=18:b%!8=(I%-1| 00007750 29 3c 3c 32 38 3a 62 25 21 31 32 3d 26 46 30 30 |)<<28:b%!12=&F00| 00007760 30 30 30 30 30 3a c8 99 22 57 69 6d 70 5f 53 65 |00000:.."Wimp_Se| 00007770 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 0d |tIconState",,b%.| 00007780 07 66 05 cd 0d 07 66 04 0d 07 68 0d c9 5a 25 3a |.f....f...h..Z%:| 00007790 c8 8e 49 25 ca 0d 07 69 30 c9 31 2c 32 2c 33 2c |..I%...i0.1,2,3,| 000077a0 34 2c 35 2c 36 2c 37 2c 38 2c 39 2c 31 30 2c 32 |4,5,6,7,8,9,10,2| 000077b0 34 2c 32 35 2c 33 32 3a 64 61 25 3d 2d 31 3a 77 |4,25,32:da%=-1:w| 000077c0 61 25 3d 49 25 0d 07 6c 18 c9 31 31 3a e7 61 2b |a%=I%..l..11:.a+| 000077d0 31 3c 3d 38 8c 61 3d 61 2b 31 3a f2 6b 0d 07 6c |1<=8.a=a+1:.k..l| 000077e0 18 c9 31 32 3a e7 61 2d 31 3e 3d 31 8c 61 3d 61 |..12:.a-1>=1.a=a| 000077f0 2d 31 3a f2 6b 0d 07 6d 1a c9 31 33 3a 77 61 25 |-1:.k..m..13:wa%| 00007800 3d 49 25 3a e7 43 61 25 3c 3e 48 25 8c f2 65 0d |=I%:.Ca%<>H%..e.| 00007810 07 6f 0a 43 61 25 3d 48 25 0d 07 71 18 c9 31 34 |.o.Ca%=H%..q..14| 00007820 2c 33 30 3a 77 61 25 3d 49 25 3a f2 54 28 49 25 |,30:wa%=I%:.T(I%| 00007830 29 0d 07 72 0e c9 31 35 3a 77 61 25 3d 49 25 0d |)..r..15:wa%=I%.| 00007840 07 73 15 c9 31 36 3a 64 61 25 3d 2d 31 3a 77 61 |.s..16:da%=-1:wa| 00007850 25 3d 49 25 0d 07 74 10 c9 31 37 3a 66 61 25 3d |%=I%..t..17:fa%=| 00007860 30 3a f2 69 0d 07 75 22 c9 31 38 3a 41 24 3d a4 |0:.i..u".18:A$=.| 00007870 62 28 5a 25 2c 30 29 3a e3 4e 3d 31 b8 64 25 3a |b(Z%,0):.N=1.d%:| 00007880 e7 4b 25 3f 4e 8c 0d 07 77 14 e7 a7 24 a4 61 28 |.K%?N...w...$.a(| 00007890 4e 29 2c 22 3e 22 29 3e 30 8c 0d 07 78 1c 62 24 |N),">")>0...x.b$| 000078a0 3d c0 24 a4 61 28 4e 29 2c a7 24 a4 61 28 4e 29 |=.$.a(N),.$.a(N)| 000078b0 2c 22 3e 22 29 29 0d 07 7a 0b cc 3a 62 24 3d 22 |,">"))..z..:b$="| 000078c0 22 0d 07 7c 05 cd 0d 07 7c 14 24 a4 61 28 4e 29 |"..|....|.$.a(N)| 000078d0 3d a4 69 28 62 24 2b 41 24 29 0d 07 7e 05 cd 0d |=.i(b$+A$)..~...| 000078e0 07 7e 55 ed 3a c8 99 22 57 69 6d 70 5f 46 6f 72 |.~U.:.."Wimp_For| 000078f0 63 65 52 65 64 72 61 77 22 2c 68 61 25 2c 30 2c |ceRedraw",ha%,0,| 00007900 2d 31 38 30 2c 33 34 38 2c 30 3a c8 99 22 57 69 |-180,348,0:.."Wi| 00007910 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c |mp_ForceRedraw",| 00007920 69 61 25 2c 30 2c 2d 28 64 25 2a 33 36 29 2c 33 |ia%,0,-(d%*36),3| 00007930 34 38 2c 30 0d 07 82 1e c9 31 39 3a c8 99 22 48 |48,0.....19:.."H| 00007940 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 3a e7 51 61 |ourglass_On":.Qa| 00007950 25 8c 0d 07 83 10 d5 23 52 61 25 2c 22 43 6f 70 |%......#Ra%,"Cop| 00007960 79 22 0d 07 85 05 cd 0d 07 85 22 f2 7a 61 3a f2 |y"........".za:.| 00007970 69 3a f2 68 3a f2 65 3a c8 99 22 48 6f 75 72 67 |i:.h:.e:.."Hourg| 00007980 6c 61 73 73 5f 4f 66 66 22 0d 07 8a 26 c9 32 30 |lass_Off"...&.20| 00007990 3a e3 4d 3d 30 b8 53 61 25 88 34 3a 4b 25 21 4d |:.M=0.Sa%.4:K%!M| 000079a0 3d 30 3a ed 3a 4f 25 3d 30 3a f2 65 3a f2 68 0d |=0:.:O%=0:.e:.h.| 000079b0 07 8d 18 c9 32 31 3a e7 4f 25 3d 30 8c 85 31 37 |....21:.O%=0..17| 000079c0 2c 61 24 28 31 35 29 0d 07 8d 28 64 24 3d a4 62 |,a$(15)...(d$=.b| 000079d0 28 5a 25 2c 30 29 3a 44 62 25 3d 30 3a e7 55 25 |(Z%,0):Db%=0:.U%| 000079e0 3d 34 39 39 8c 85 31 37 2c 61 24 28 31 36 29 0d |=499..17,a$(16).| 000079f0 07 8f 19 e7 a4 65 28 64 24 29 3c 3e 30 8c 85 31 |.....e(d$)<>0..1| 00007a00 37 2c 61 24 28 31 37 29 0d 07 90 23 e3 4e 3d 31 |7,a$(17)...#.N=1| 00007a10 b8 64 25 3a e7 4b 25 3f 4e 3d 31 80 a7 24 a4 61 |.d%:.K%?N=1..$.a| 00007a20 28 4e 29 2c 22 3e 22 29 3d 30 8c 0d 07 92 2c 24 |(N),">")=0....,$| 00007a30 a4 61 28 4e 29 3d 64 24 2b 22 3e 22 2b 24 a4 61 |.a(N)=d$+">"+$.a| 00007a40 28 4e 29 3a 44 62 25 3d 2d 31 3a 4b 25 3f 4e 3d |(N):Db%=-1:K%?N=| 00007a50 30 3a 4f 25 2d 3d 31 0d 07 95 05 cd 0d 07 95 17 |0:O%-=1.........| 00007a60 ed 3a e7 44 62 25 3d 30 8c 85 31 37 2c 61 24 28 |.:.Db%=0..17,a$(| 00007a70 31 38 29 0d 07 97 1d 55 25 2b 3d 31 3a 24 a4 64 |18)....U%+=1:$.d| 00007a80 28 55 25 29 3d 64 24 3a f2 69 3a f2 65 3a f2 68 |(U%)=d$:.i:.e:.h| 00007a90 0d 07 9b 18 c9 32 32 3a e7 4f 25 3d 30 8c 85 31 |.....22:.O%=0..1| 00007aa0 37 2c 61 24 28 31 35 29 0d 07 9b 06 f2 5f 0d 07 |7,a$(15)....._..| 00007ab0 9d 24 c9 32 33 3a e3 4e 3d 31 b8 64 25 3a 4b 25 |.$.23:.N=1.d%:K%| 00007ac0 3f 4e 3d 31 3a ed 3a 4f 25 3d 64 25 3a f2 65 3a |?N=1:.:O%=d%:.e:| 00007ad0 f2 68 0d 07 a0 0f c9 32 36 3a f2 6d 28 6e 61 25 |.h.....26:.m(na%| 00007ae0 29 0d 07 a1 0f c9 32 39 3a f2 6d 28 4a 62 25 29 |).....29:.m(Jb%)| 00007af0 0d 07 a2 24 c9 33 31 3a c8 99 22 4f 53 5f 43 6f |...$.31:.."OS_Co| 00007b00 6e 66 69 72 6d 22 b8 4c 62 25 3a e7 4c 62 25 3d |nfirm".Lb%:.Lb%=| 00007b10 31 32 31 8c 0d 07 a3 15 f2 53 3a f2 52 3a f2 62 |121......S:.R:.b| 00007b20 28 5a 25 2c 30 2c 22 22 29 0d 07 a7 05 cd 0d 07 |(Z%,0,"").......| 00007b30 a7 11 c9 33 33 3a f2 42 3a f2 6d 28 54 25 29 0d |...33:.B:.m(T%).| 00007b40 07 a9 2d c9 33 34 3a e7 62 25 28 31 29 3d 66 25 |..-.34:.b%(1)=f%| 00007b50 28 31 29 80 62 25 28 32 29 3d 66 25 28 32 29 80 |(1).b%(2)=f%(2).| 00007b60 62 25 28 33 29 3d 66 25 28 33 29 8c 0d 07 aa 0e |b%(3)=f%(3).....| 00007b70 85 31 37 2c 61 24 28 31 39 29 0d 07 ac 0d cc 3a |.17,a$(19).....:| 00007b80 f2 6d 28 70 61 25 29 0d 07 ae 05 cd 0d 07 ae 05 |.m(pa%).........| 00007b90 cb 0d 07 af 09 c8 8e 49 25 ca 0d 07 b0 34 c9 31 |.......I%....4.1| 00007ba0 2c 32 2c 33 2c 34 2c 35 2c 36 2c 37 2c 38 2c 31 |,2,3,4,5,6,7,8,1| 00007bb0 36 2c 32 34 2c 32 35 2c 33 32 3a e7 60 25 2b 31 |6,24,25,32:.`%+1| 00007bc0 3e 31 30 8c 85 31 37 2c 61 24 28 32 30 29 0d 07 |>10..17,a$(20)..| 00007bd0 b2 18 e7 64 25 2b 31 3e 53 61 25 8c 85 31 37 2c |...d%+1>Sa%..17,| 00007be0 61 24 28 32 31 29 0d 07 b3 0d e7 43 61 25 3c 3e |a$(21).....Ca%<>| 00007bf0 48 25 8c 0d 07 b4 14 43 61 25 3d 48 25 3a f2 65 |H%.....Ca%=H%:.e| 00007c00 3a f2 54 28 49 25 29 0d 07 b7 0c cc 3a f2 54 28 |:.T(I%).....:.T(| 00007c10 49 25 29 0d 07 b9 05 cd 0d 07 b9 05 cb 0d 07 ba |I%).............| 00007c20 04 0d 07 bc 0e c9 6e 61 25 3a c8 8e 49 25 ca 0d |......na%:..I%..| 00007c30 07 bd 18 c9 32 38 2c 32 39 2c 33 30 3a f2 45 61 |....28,29,30:.Ea| 00007c40 28 49 25 2d 32 38 29 0d 07 bf 15 c9 31 33 3a e7 |(I%-28).....13:.| 00007c50 68 62 25 3e 30 8c 68 62 25 2d 3d 31 0d 07 bf 18 |hb%>0.hb%-=1....| 00007c60 f2 62 28 57 25 2c 31 32 2c c3 28 68 62 25 29 2b |.b(W%,12,.(hb%)+| 00007c70 22 25 22 29 0d 07 c1 17 c9 31 34 3a e7 68 62 25 |"%").....14:.hb%| 00007c80 3c 31 30 30 8c 68 62 25 2b 3d 31 0d 07 c1 18 f2 |<100.hb%+=1.....| 00007c90 62 28 57 25 2c 31 32 2c c3 28 68 62 25 29 2b 22 |b(W%,12,.(hb%)+"| 00007ca0 25 22 29 0d 07 c3 15 c9 31 36 3a e7 6b 62 25 3e |%").....16:.kb%>| 00007cb0 30 8c 6b 62 25 2d 3d 31 0d 07 c3 18 f2 62 28 57 |0.kb%-=1.....b(W| 00007cc0 25 2c 31 37 2c c3 28 6b 62 25 29 2b 22 25 22 29 |%,17,.(kb%)+"%")| 00007cd0 0d 07 c5 17 c9 31 38 3a e7 6b 62 25 3c 31 30 30 |.....18:.kb%<100| 00007ce0 8c 6b 62 25 2b 3d 31 0d 07 c5 18 f2 62 28 57 25 |.kb%+=1.....b(W%| 00007cf0 2c 31 37 2c c3 28 6b 62 25 29 2b 22 25 22 29 0d |,17,.(kb%)+"%").| 00007d00 07 c7 17 c9 32 32 3a e7 6c 62 25 3c 31 30 30 8c |....22:.lb%<100.| 00007d10 6c 62 25 2b 3d 31 0d 07 c7 18 f2 62 28 57 25 2c |lb%+=1.....b(W%,| 00007d20 32 31 2c c3 28 6c 62 25 29 2b 22 25 22 29 0d 07 |21,.(lb%)+"%")..| 00007d30 c9 15 c9 32 30 3a e7 6c 62 25 3e 30 8c 6c 62 25 |...20:.lb%>0.lb%| 00007d40 2d 3d 31 0d 07 c9 18 f2 62 28 57 25 2c 32 31 2c |-=1.....b(W%,21,| 00007d50 c3 28 6c 62 25 29 2b 22 25 22 29 0d 07 cb 17 c9 |.(lb%)+"%").....| 00007d60 33 32 3a e7 6a 62 25 3c 31 30 30 8c 6a 62 25 2b |32:.jb%<100.jb%+| 00007d70 3d 31 0d 07 cb 18 f2 62 28 57 25 2c 32 34 2c c3 |=1.....b(W%,24,.| 00007d80 28 6a 62 25 29 2b 22 25 22 29 0d 07 cd 15 c9 32 |(jb%)+"%").....2| 00007d90 37 3a e7 6a 62 25 3e 30 8c 6a 62 25 2d 3d 31 0d |7:.jb%>0.jb%-=1.| 00007da0 07 cd 18 f2 62 28 57 25 2c 32 34 2c c3 28 6a 62 |....b(W%,24,.(jb| 00007db0 25 29 2b 22 25 22 29 0d 07 cf 15 c9 33 31 3a e7 |%)+"%").....31:.| 00007dc0 69 62 25 3e 30 8c 69 62 25 2d 3d 31 0d 07 cf 18 |ib%>0.ib%-=1....| 00007dd0 f2 62 28 57 25 2c 32 36 2c c3 28 69 62 25 29 2b |.b(W%,26,.(ib%)+| 00007de0 22 25 22 29 0d 07 d1 17 c9 33 33 3a e7 69 62 25 |"%").....33:.ib%| 00007df0 3c 31 30 30 8c 69 62 25 2b 3d 31 0d 07 d1 18 f2 |<100.ib%+=1.....| 00007e00 62 28 57 25 2c 32 36 2c c3 28 69 62 25 29 2b 22 |b(W%,26,.(ib%)+"| 00007e10 25 22 29 0d 07 d3 0a c9 37 3a f2 75 61 0d 07 d4 |%").....7:.ua...| 00007e20 0a c9 38 3a f2 73 61 0d 07 d5 0e c9 39 3a e7 58 |..8:.sa.....9:.X| 00007e30 61 25 3e 30 8c 0d 07 d5 1a f2 75 28 24 28 56 25 |a%>0......u($(V%| 00007e40 2b 28 58 61 25 2d 31 29 2a 34 30 29 2c 31 29 0d |+(Xa%-1)*40),1).| 00007e50 07 d7 05 cd 0d 07 d7 20 c8 99 22 57 69 6d 70 5f |....... .."Wimp_| 00007e60 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e |SetCaretPosition| 00007e70 22 2c 2d 31 0d 07 d9 13 c9 31 30 3a e7 58 61 25 |",-1.....10:.Xa%| 00007e80 3c 6f 61 25 2d 31 8c 0d 07 d9 1a f2 75 28 24 28 |<oa%-1......u($(| 00007e90 56 25 2b 28 58 61 25 2b 31 29 2a 34 30 29 2c 31 |V%+(Xa%+1)*40),1| 00007ea0 29 0d 07 db 05 cd 0d 07 db 20 c8 99 22 57 69 6d |)........ .."Wim| 00007eb0 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi| 00007ec0 6f 6e 22 2c 2d 31 0d 07 dd 05 cb 0d 07 dd 04 0d |on",-1..........| 00007ed0 07 df 0e c9 49 61 25 3a c8 8e 49 25 ca 0d 07 e0 |....Ia%:..I%....| 00007ee0 70 c9 30 2c 31 2c 32 3a 21 62 25 3d 57 25 3a c8 |p.0,1,2:!b%=W%:.| 00007ef0 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow| 00007f00 53 74 61 74 65 22 2c 2c 62 25 3a 68 25 3d 62 25 |State",,b%:h%=b%| 00007f10 21 34 2d 62 25 21 32 30 3a 6a 25 3d 28 62 25 21 |!4-b%!20:j%=(b%!| 00007f20 31 36 2d 62 25 21 32 34 29 3a c8 97 58 2c 59 2c |16-b%!24):..X,Y,| 00007f30 5a 3a 58 3d 58 2d 68 25 2d 31 33 32 3a f2 46 61 |Z:X=X-h%-132:.Fa| 00007f40 28 28 58 2f 34 35 30 29 2a 31 30 30 29 0d 07 e6 |((X/450)*100)...| 00007f50 ec c9 31 33 2c 31 34 2c 31 35 2c 31 36 2c 31 37 |..13,14,15,16,17| 00007f60 2c 31 38 2c 31 39 2c 32 30 2c 32 31 2c 32 32 2c |,18,19,20,21,22,| 00007f70 32 33 2c 32 34 2c 32 35 2c 32 36 2c 32 37 2c 32 |23,24,25,26,27,2| 00007f80 38 3a c8 99 22 57 69 6d 70 5f 52 65 61 64 50 61 |8:.."Wimp_ReadPa| 00007f90 6c 65 74 74 65 22 2c 2c 62 25 3a 46 61 25 3d 28 |lette",,b%:Fa%=(| 00007fa0 28 49 25 2d 31 33 29 2a 34 29 2b 62 25 3a 67 25 |(I%-13)*4)+b%:g%| 00007fb0 28 30 29 3d 28 46 61 25 3f 31 29 2f 32 2e 35 36 |(0)=(Fa%?1)/2.56| 00007fc0 3a 67 25 28 31 29 3d 28 46 61 25 3f 32 29 2f 32 |:g%(1)=(Fa%?2)/2| 00007fd0 2e 35 36 3a 67 25 28 32 29 3d 28 46 61 25 3f 33 |.56:g%(2)=(Fa%?3| 00007fe0 29 2f 32 2e 35 36 3a c8 99 22 57 69 6d 70 5f 46 |)/2.56:.."Wimp_F| 00007ff0 6f 72 63 65 52 65 64 72 61 77 22 2c 57 25 2c 31 |orceRedraw",W%,1| 00008000 33 32 2c 2d 31 37 36 2c 35 39 30 2c 2d 33 32 3a |32,-176,590,-32:| 00008010 c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 |.."Wimp_ForceRed| 00008020 72 61 77 22 2c 57 25 2c 34 37 32 2c 2d 32 36 34 |raw",W%,472,-264| 00008030 2c 35 38 34 2c 2d 32 30 34 0d 07 ed 36 f2 62 28 |,584,-204...6.b(| 00008040 49 61 25 2c 36 2c c3 67 25 28 30 29 29 3a f2 62 |Ia%,6,.g%(0)):.b| 00008050 28 49 61 25 2c 37 2c c3 67 25 28 31 29 29 3a f2 |(Ia%,7,.g%(1)):.| 00008060 62 28 49 61 25 2c 38 2c c3 67 25 28 32 29 29 0d |b(Ia%,8,.g%(2)).| 00008070 07 f1 05 cb 0d 07 f1 04 0d 07 f3 1c c9 63 61 25 |.............ca%| 00008080 3a e7 49 25 3d 31 8c 62 61 25 3d 30 3a f2 6f 28 |:.I%=1.ba%=0:.o(| 00008090 63 61 25 29 0d 07 f4 0f e7 49 25 3d 32 8c 64 61 |ca%).....I%=2.da| 000080a0 25 3d 30 0d 07 f5 04 0d 07 f7 0e c9 5f 61 25 3a |%=0........._a%:| 000080b0 c8 8e 49 25 ca 0d 07 f8 22 c9 31 32 3a 65 25 28 |..I%....".12:e%(| 000080c0 29 3d 6a 25 28 29 3a f2 65 3a e7 47 62 25 3d 34 |)=j%():.e:.Gb%=4| 000080d0 8c f2 6f 28 57 25 29 0d 07 fc 9d e3 4e 3d 30 b8 |..o(W%).....N=0.| 000080e0 32 3a 21 62 25 3d 61 25 28 4e 29 3a c8 99 22 57 |2:!b%=a%(N):.."W| 000080f0 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 49 6e 66 |imp_GetWindowInf| 00008100 6f 22 2c 2c 62 25 3a 21 70 25 3d 61 25 28 4e 29 |o",,b%:!p%=a%(N)| 00008110 3a c8 99 22 57 69 6d 70 5f 44 65 6c 65 74 65 57 |:.."Wimp_DeleteW| 00008120 69 6e 64 6f 77 22 2c 2c 70 25 3a 3f 28 62 25 2b |indow",,p%:?(b%+| 00008130 33 39 29 3d 65 25 28 35 29 3a 60 61 25 3d 3f 28 |39)=e%(5):`a%=?(| 00008140 62 25 2b 33 34 29 80 31 3a c8 99 22 57 69 6d 70 |b%+34).1:.."Wimp| 00008150 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,| 00008160 62 25 2b 34 b8 61 25 28 4e 29 3a ed 3a e7 60 61 |b%+4.a%(N):.:.`a| 00008170 25 8c f2 6b 0d 08 04 0e c9 31 31 3a f2 6f 28 57 |%..k.....11:.o(W| 00008180 25 29 0d 08 06 43 c9 35 2c 36 2c 37 2c 38 2c 39 |%)...C.5,6,7,8,9| 00008190 2c 31 30 3a 21 62 25 3d 57 25 3a 62 25 21 34 3d |,10:!b%=W%:b%!4=| 000081a0 49 25 3a 62 25 21 31 32 3d 26 46 30 30 30 30 30 |I%:b%!12=&F00000| 000081b0 30 30 3a e7 6a 61 25 3d 34 8c 6a 25 28 49 25 2d |00:.ja%=4.j%(I%-| 000081c0 35 29 2b 3d 31 0d 08 08 16 e7 6a 61 25 3d 31 8c |5)+=1.....ja%=1.| 000081d0 6a 25 28 49 25 2d 35 29 2d 3d 31 0d 08 09 1b e7 |j%(I%-5)-=1.....| 000081e0 6a 25 28 49 25 2d 35 29 3e 31 35 8c 6a 25 28 49 |j%(I%-5)>15.j%(I| 000081f0 25 2d 35 29 3d 30 0d 08 0a 1b e7 6a 25 28 49 25 |%-5)=0.....j%(I%| 00008200 2d 35 29 3c 30 8c 6a 25 28 49 25 2d 35 29 3d 31 |-5)<0.j%(I%-5)=1| 00008210 36 0d 08 0b 2f 62 25 21 38 3d 6a 25 28 49 25 2d |6.../b%!8=j%(I%-| 00008220 35 29 3c 3c 32 38 3a c8 99 22 57 69 6d 70 5f 53 |5)<<28:.."Wimp_S| 00008230 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 |etIconState",,b%| 00008240 0d 08 0e 05 cb 0d 08 0e 04 0d 08 10 11 c9 4a 61 |..............Ja| 00008250 25 3a ea 5a 3a c8 8e 49 25 ca 0d 08 12 1d c9 34 |%:.Z:..I%......4| 00008260 3a 4b 61 25 2d 3d 35 3a e7 4b 61 25 3c 30 8c 4b |:Ka%-=5:.Ka%<0.K| 00008270 61 25 2b 3d 33 36 30 0d 08 13 0d c9 35 3a 4b 61 |a%+=360.....5:Ka| 00008280 25 2b 3d 35 0d 08 15 1d c9 36 3a 4c 61 25 2d 3d |%+=5.....6:La%-=| 00008290 35 3a e7 4c 61 25 3c 30 8c 4c 61 25 2b 3d 33 36 |5:.La%<0.La%+=36| 000082a0 30 0d 08 15 0d c9 37 3a 4c 61 25 2b 3d 35 0d 08 |0.....7:La%+=5..| 000082b0 17 1d c9 38 3a 4d 61 25 2d 3d 35 3a e7 4d 61 25 |...8:Ma%-=5:.Ma%| 000082c0 3c 30 8c 4d 61 25 2b 3d 33 36 30 0d 08 17 0d c9 |<0.Ma%+=360.....| 000082d0 39 3a 4d 61 25 2b 3d 35 0d 08 19 35 c9 31 30 3a |9:Ma%+=5...5.10:| 000082e0 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |.."Wimp_CreateMe| 000082f0 6e 75 22 2c 2d 31 3a c8 99 22 48 6f 75 72 67 6c |nu",-1:.."Hourgl| 00008300 61 73 73 5f 4f 6e 22 3a e7 51 61 25 8c 0d 08 1b |ass_On":.Qa%....| 00008310 30 d5 23 52 61 25 2c 22 52 6f 74 61 74 65 20 22 |0.#Ra%,"Rotate "| 00008320 2b c3 28 4b 61 25 29 2b 22 20 22 2b c3 28 4c 61 |+.(Ka%)+" "+.(La| 00008330 25 29 2b 22 20 22 2b c3 28 4d 61 25 29 0d 08 1d |%)+" "+.(Ma%)...| 00008340 05 cd 0d 08 1d 17 e3 5a 3d 31 b8 64 25 3a e7 4b |.......Z=1.d%:.K| 00008350 25 3f 5a 8c f2 48 28 5a 29 0d 08 1f 1a ed 3a f2 |%?Z..H(Z).....:.| 00008360 65 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f |e:.."Hourglass_O| 00008370 66 66 22 0d 08 23 05 cb 0d 08 23 5a 4b 61 25 3d |ff"..#....#ZKa%=| 00008380 4b 61 25 83 33 36 30 3a 4c 61 25 3d 4c 61 25 83 |Ka%.360:La%=La%.| 00008390 33 36 30 3a 4d 61 25 3d 4d 61 25 83 33 36 30 3a |360:Ma%=Ma%.360:| 000083a0 f2 62 28 57 25 2c 31 31 2c c3 28 4b 61 25 29 29 |.b(W%,11,.(Ka%))| 000083b0 3a f2 62 28 57 25 2c 31 32 2c c3 28 4c 61 25 29 |:.b(W%,12,.(La%)| 000083c0 29 3a f2 62 28 57 25 2c 31 33 2c c3 28 4d 61 25 |):.b(W%,13,.(Ma%| 000083d0 29 29 0d 08 28 27 c9 6d 61 25 3a ea 4e 2c 46 3a |))..('.ma%:.N,F:| 000083e0 e7 49 25 3d 31 80 60 25 3e 30 8c f2 4d 28 21 62 |.I%=1.`%>0..M(!b| 000083f0 25 2c 62 25 21 34 2c 33 29 0d 08 2a 14 e7 49 25 |%,b%!4,3)..*..I%| 00008400 3d 35 84 49 25 3d 36 84 49 25 3d 37 8c 0d 08 2b |=5.I%=6.I%=7...+| 00008410 97 ea 58 2c 59 2c 5a 2c 4d 62 25 2c 4e 62 25 2c |..X,Y,Z,Mb%,Nb%,| 00008420 68 25 2c 6a 25 2c 44 62 25 3a 21 62 25 3d 6d 61 |h%,j%,Db%:!b%=ma| 00008430 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |%:.."Wimp_GetWin| 00008440 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 3a 68 25 |dowState",,b%:h%| 00008450 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 3d 28 |=b%!4-b%!20:j%=(| 00008460 62 25 21 31 36 2d 62 25 21 32 34 29 3a c8 97 58 |b%!16-b%!24):..X| 00008470 2c 59 2c 5a 3a 58 3d 58 2d 68 25 2d 31 34 36 3a |,Y,Z:X=X-h%-146:| 00008480 f2 47 61 28 28 58 2f 33 33 36 29 2a 31 30 30 29 |.Ga((X/336)*100)| 00008490 3a 63 25 28 46 62 25 2c 49 25 29 3d 69 25 28 49 |:c%(Fb%,I%)=i%(I| 000084a0 25 2d 35 29 0d 08 30 05 cd 0d 08 30 0b e7 49 25 |%-5)..0....0..I%| 000084b0 3d 31 31 8c 0d 08 31 4d 60 25 2d 3d 31 3a e3 4e |=11...1M`%-=1:.N| 000084c0 3d 46 62 25 b8 60 25 3a 62 24 28 4e 29 3d 62 24 |=Fb%.`%:b$(N)=b$| 000084d0 28 4e 2b 31 29 3a e3 46 3d 31 b8 38 3a 63 25 28 |(N+1):.F=1.8:c%(| 000084e0 4e 2c 46 29 3d 63 25 28 4e 2b 31 2c 46 29 3a ed |N,F)=c%(N+1,F):.| 000084f0 3a ed 3a e7 46 62 25 3e 60 25 8c 46 62 25 3d 60 |:.:.Fb%>`%.Fb%=`| 00008500 25 0d 08 35 10 f2 55 28 46 62 25 2d 31 29 3a f2 |%..5..U(Fb%-1):.| 00008510 65 0d 08 37 05 cd 0d 08 37 05 cb 0d 08 38 05 e1 |e..7....7....8..| 00008520 0d 08 39 8d dd f2 69 61 28 62 25 29 3a ea 69 24 |..9...ia(b%):.i$| 00008530 2c 4f 62 25 2c 41 24 2c 4e 3a 69 24 3d c3 28 6c |,Ob%,A$,N:i$=.(l| 00008540 61 25 29 2b 22 20 22 3a 4e 3d 30 3a c8 95 62 25 |a%)+" ":N=0:..b%| 00008550 21 4e 3c 3e 2d 31 3a 69 24 3d 69 24 2b 22 2e 22 |!N<>-1:i$=i$+"."| 00008560 2b c3 28 62 25 21 4e 29 3a 4e 2b 3d 34 3a ce 3a |+.(b%!N):N+=4:.:| 00008570 4f 62 25 3d 62 25 21 38 3a 50 62 25 3d 21 62 25 |Ob%=b%!8:Pb%=!b%| 00008580 3a c8 99 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e |:.."Wimp_GetPoin| 00008590 74 65 72 49 6e 66 6f 22 2c 2c 62 25 3a 51 62 25 |terInfo",,b%:Qb%| 000085a0 3d 62 25 21 38 3d 31 3a c8 8e 69 24 ca 0d 08 43 |=b%!8=1:..i$...C| 000085b0 0f c9 22 31 20 2e 31 22 3a f2 70 61 0d 08 45 31 |.."1 .1":.pa..E1| 000085c0 c9 22 31 20 2e 32 22 3a 52 62 25 3d 31 2d 52 62 |."1 .2":Rb%=1-Rb| 000085d0 25 3a c8 99 22 4f 53 5f 55 70 64 61 74 65 4d 45 |%:.."OS_UpdateME| 000085e0 4d 43 22 2c 52 62 25 2a 36 34 2c 36 34 0d 08 47 |MC",Rb%*64,64..G| 000085f0 66 c9 22 31 20 2e 33 22 3a f2 6d 28 5f 61 25 29 |f."1 .3":.m(_a%)| 00008600 3a e3 4e 3d 30 b8 35 3a 21 62 25 3d 5f 61 25 3a |:.N=0.5:!b%=_a%:| 00008610 62 25 21 34 3d 35 2b 4e 3a 62 25 21 31 32 3d 26 |b%!4=5+N:b%!12=&| 00008620 46 30 30 30 30 30 30 30 3a 62 25 21 38 3d 65 25 |F0000000:b%!8=e%| 00008630 28 4e 29 3c 3c 32 38 3a c8 99 22 57 69 6d 70 5f |(N)<<28:.."Wimp_| 00008640 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 |SetIconState",,b| 00008650 25 3a ed 0d 08 4c 12 c9 22 31 20 2e 34 22 3a 62 |%:...L.."1 .4":b| 00008660 61 25 3d 2d 31 0d 08 4d 15 c9 22 32 20 2e 30 2e |a%=-1..M.."2 .0.| 00008670 33 2e 30 22 3a f2 49 28 30 29 0d 08 4e 15 c9 22 |3.0":.I(0)..N.."| 00008680 32 20 2e 30 2e 33 2e 31 22 3a f2 49 28 31 29 0d |2 .0.3.1":.I(1).| 00008690 08 4f 15 c9 22 32 20 2e 30 2e 33 2e 32 22 3a f2 |.O.."2 .0.3.2":.| 000086a0 49 28 32 29 0d 08 50 15 c9 22 32 20 2e 30 2e 33 |I(2)..P.."2 .0.3| 000086b0 2e 33 22 3a f2 49 28 33 29 0d 08 51 27 c9 22 32 |.3":.I(3)..Q'."2| 000086c0 20 2e 30 2e 34 2e 30 22 3a f2 43 28 22 3c 52 61 | .0.4.0":.C("<Ra| 000086d0 79 24 44 69 72 3e 2e 44 65 66 61 75 6c 74 22 29 |y$Dir>.Default")| 000086e0 0d 08 52 27 c9 22 32 20 2e 30 2e 34 2e 31 22 3a |..R'."2 .0.4.1":| 000086f0 f2 41 28 22 3c 52 61 79 24 44 69 72 3e 2e 44 65 |.A("<Ray$Dir>.De| 00008700 66 61 75 6c 74 22 29 0d 08 53 2a c9 22 32 20 2e |fault")..S*."2 .| 00008710 31 2e 30 22 3a e3 4e 3d 31 b8 64 25 3a 4b 25 3f |1.0":.N=1.d%:K%?| 00008720 4e 3d 31 3a ed 3a 4f 25 3d 64 25 3a f2 65 3a f2 |N=1:.:O%=d%:.e:.| 00008730 68 0d 08 58 2c c9 22 32 20 2e 31 2e 31 22 3a e3 |h..X,."2 .1.1":.| 00008740 4d 3d 30 b8 53 61 25 88 34 3a 4b 25 21 4d 3d 30 |M=0.Sa%.4:K%!M=0| 00008750 3a ed 3a 4f 25 3d 30 3a f2 65 3a f2 68 0d 08 5c |:.:O%=0:.e:.h..\| 00008760 23 c9 22 32 20 2e 31 2e 32 22 3a e3 4e 3d 31 b8 |#."2 .1.2":.N=1.| 00008770 64 25 3a e7 4b 25 3f 4e 8c 59 61 25 3f 4e 3d 31 |d%:.K%?N.Ya%?N=1| 00008780 0d 08 5e 0e ed 3a f2 69 3a f2 65 3a f2 68 0d 08 |..^..:.i:.e:.h..| 00008790 63 23 c9 22 32 20 2e 31 2e 33 22 3a e3 4e 3d 31 |c#."2 .1.3":.N=1| 000087a0 b8 64 25 3a e7 4b 25 3f 4e 8c 59 61 25 3f 4e 3d |.d%:.K%?N.Ya%?N=| 000087b0 30 0d 08 65 0e ed 3a f2 69 3a f2 65 3a f2 68 0d |0..e..:.i:.e:.h.| 000087c0 08 6a 34 c9 22 32 20 2e 31 2e 34 2e 30 22 3a 64 |.j4."2 .1.4.0":d| 000087d0 24 3d a4 62 28 5a 25 2c 30 29 3a 44 62 25 3d 30 |$=.b(Z%,0):Db%=0| 000087e0 3a e7 55 25 3d 34 39 39 8c 85 31 37 2c 61 24 28 |:.U%=499..17,a$(| 000087f0 31 36 29 0d 08 6c 0e e7 a4 65 28 64 24 29 3d 30 |16)..l...e(d$)=0| 00008800 8c 0d 08 6d 21 e3 4e 3d 31 b8 64 25 3a e7 4b 25 |...m!.N=1.d%:.K%| 00008810 3f 4e 80 a7 24 a4 61 28 4e 29 2c 22 3e 22 29 3d |?N..$.a(N),">")=| 00008820 30 8c 0d 08 6f 2c 24 a4 61 28 4e 29 3d 64 24 2b |0...o,$.a(N)=d$+| 00008830 22 3e 22 2b 24 a4 61 28 4e 29 3a 44 62 25 3d 2d |">"+$.a(N):Db%=-| 00008840 31 3a 4b 25 3f 4e 3d 30 3a 4f 25 2d 3d 31 0d 08 |1:K%?N=0:O%-=1..| 00008850 72 05 cd 0d 08 72 0e ed 3a e7 44 62 25 3d 2d 31 |r....r..:.Db%=-1| 00008860 8c 0d 08 74 1d 55 25 2b 3d 31 3a 24 a4 64 28 55 |...t.U%+=1:$.d(U| 00008870 25 29 3d 64 24 3a f2 69 3a f2 65 3a f2 68 0d 08 |%)=d$:.i:.e:.h..| 00008880 7a 10 cc 3a 85 31 37 2c 61 24 28 31 38 29 0d 08 |z..:.17,a$(18)..| 00008890 7c 05 cd 0d 08 7c 10 cc 3a 85 31 37 2c 61 24 28 ||....|..:.17,a$(| 000088a0 31 37 29 0d 08 7f 05 cd 0d 08 7f 12 c9 22 32 20 |17).........."2 | 000088b0 2e 31 2e 34 2e 31 22 3a f2 5f 0d 08 81 1f c9 22 |.1.4.1":._....."| 000088c0 32 20 2e 31 2e 35 22 3a f2 53 3a f2 62 28 5a 25 |2 .1.5":.S:.b(Z%| 000088d0 2c 30 2c 22 22 29 3a f2 52 0d 08 85 26 c9 22 32 |,0,""):.R...&."2| 000088e0 20 2e 31 2e 37 2e 30 22 3a c8 99 22 48 6f 75 72 | .1.7.0":.."Hour| 000088f0 67 6c 61 73 73 5f 4f 6e 22 3a e7 51 61 25 8c 0d |glass_On":.Qa%..| 00008900 08 87 17 d5 23 52 61 25 2c 22 53 63 61 6c 65 20 |....#Ra%,"Scale | 00008910 22 2b 24 53 62 25 0d 08 89 05 cd 0d 08 89 28 f2 |"+$Sb%........(.| 00008920 60 28 bb 28 24 53 62 25 29 2f 31 30 30 29 3a f2 |`(.($Sb%)/100):.| 00008930 65 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f |e:.."Hourglass_O| 00008940 66 66 22 0d 08 8d 15 c9 22 32 20 2e 32 2e 30 2e |ff"....."2 .2.0.| 00008950 30 22 3a 45 62 25 3d 30 0d 08 8e 15 c9 22 32 20 |0":Eb%=0....."2 | 00008960 2e 32 2e 30 2e 31 22 3a 45 62 25 3d 31 0d 08 8f |.2.0.1":Eb%=1...| 00008970 1b c9 22 32 20 2e 32 2e 31 22 3a f2 6d 28 6d 61 |.."2 .2.1":.m(ma| 00008980 25 29 3a f2 55 28 30 29 0d 08 90 15 c9 22 32 20 |%):.U(0)....."2 | 00008990 2e 33 2e 30 22 3a f2 6d 28 49 61 25 29 0d 08 91 |.3.0":.m(Ia%)...| 000089a0 17 c9 22 32 20 2e 33 2e 31 22 3a f2 42 3a f2 6d |.."2 .3.1":.B:.m| 000089b0 28 54 25 29 0d 08 93 15 c9 22 32 20 2e 33 2e 32 |(T%)....."2 .3.2| 000089c0 22 3a f2 6d 28 6e 61 25 29 0d 08 94 26 c9 22 32 |":.m(na%)...&."2| 000089d0 20 2e 34 2e 31 22 3a d5 23 52 61 25 2c 22 53 74 | .4.1":.#Ra%,"St| 000089e0 6f 70 22 3a d9 23 52 61 25 3a 51 61 25 3d 30 0d |op":.#Ra%:Qa%=0.| 000089f0 08 95 2d c9 22 32 20 2e 35 2e 30 22 3a 5a 61 25 |..-."2 .5.0":Za%| 00008a00 3d 2d 31 2d 5a 61 25 3a 79 61 25 3d bb 28 a4 62 |=-1-Za%:ya%=.(.b| 00008a10 28 4e 61 25 2c 31 39 29 29 3a f2 65 0d 08 99 18 |(Na%,19)):.e....| 00008a20 c9 22 32 20 2e 35 2e 31 22 3a 7a 61 25 3d 2d 31 |."2 .5.1":za%=-1| 00008a30 2d 7a 61 25 0d 08 9a 14 c9 22 32 20 2e 36 2e 30 |-za%....."2 .6.0| 00008a40 22 3a 61 3d 31 3a f2 6b 0d 08 9b 14 c9 22 32 20 |":a=1:.k....."2 | 00008a50 2e 36 2e 31 22 3a 61 3d 32 3a f2 6b 0d 08 9c 14 |.6.1":a=2:.k....| 00008a60 c9 22 32 20 2e 36 2e 32 22 3a 61 3d 33 3a f2 6b |."2 .6.2":a=3:.k| 00008a70 0d 08 9d 14 c9 22 32 20 2e 36 2e 33 22 3a 61 3d |....."2 .6.3":a=| 00008a80 34 3a f2 6b 0d 08 9e 14 c9 22 32 20 2e 36 2e 34 |4:.k....."2 .6.4| 00008a90 22 3a 61 3d 35 3a f2 6b 0d 08 9f 14 c9 22 32 20 |":a=5:.k....."2 | 00008aa0 2e 36 2e 35 22 3a 61 3d 36 3a f2 6b 0d 08 a0 14 |.6.5":a=6:.k....| 00008ab0 c9 22 32 20 2e 36 2e 36 22 3a 61 3d 37 3a f2 6b |."2 .6.6":a=7:.k| 00008ac0 0d 08 a1 14 c9 22 32 20 2e 36 2e 37 22 3a 61 3d |....."2 .6.7":a=| 00008ad0 38 3a f2 6b 0d 08 a2 0e c9 22 32 20 2e 37 22 3a |8:.k....."2 .7":| 00008ae0 f2 57 0d 08 a3 05 cb 0d 08 a3 12 e7 6c 61 25 3d |.W..........la%=| 00008af0 33 8c f2 55 28 50 62 25 29 0d 08 a4 1d e7 6c 61 |3..U(Pb%).....la| 00008b00 25 3d 34 8c f2 75 28 24 28 56 25 2b 50 62 25 2a |%=4..u($(V%+Pb%*| 00008b10 34 30 29 2c 31 29 0d 08 a5 0a 3a e7 51 62 25 8c |40),1)....:.Qb%.| 00008b20 0d 08 a7 4a e7 6c 61 25 3d 31 8c f2 46 28 22 20 |...J.la%=1..F(" | 00008b30 21 52 61 79 33 64 20 22 2c 22 49 6e 66 6f 2c 53 |!Ray3d ","Info,S| 00008b40 61 76 65 20 43 6f 6e 66 69 67 2c 46 61 73 74 2c |ave Config,Fast,| 00008b50 43 6f 6c 6f 75 72 73 2e 2e 2e 2c 51 75 69 74 2c |Colours...,Quit,| 00008b60 22 2c 21 62 25 2c 33 32 34 29 0d 08 a8 60 e7 6c |",!b%,324)...`.l| 00008b70 61 25 3d 32 8c f2 46 28 22 20 20 4d 61 69 6e 20 |a%=2..F(" Main | 00008b80 4d 65 6e 75 20 20 22 2c 22 50 72 6f 6a 65 63 74 |Menu ","Project| 00008b90 2c 53 65 6c 65 63 74 2c 4c 69 67 68 74 73 20 2c |,Select,Lights ,| 00008ba0 57 6f 72 6c 64 2c 4d 61 63 72 6f 2c 47 72 69 64 |World,Macro,Grid| 00008bb0 2c 5a 6f 6f 6d 2c 54 6f 6f 6c 73 2e 2e 2e 2c 22 |,Zoom,Tools...,"| 00008bc0 2c 21 62 25 2c 62 25 21 34 29 0d 08 a9 05 cd 0d |,!b%,b%!4)......| 00008bd0 08 aa 05 e1 0d 08 ab e5 dd f2 46 28 6a 24 2c 6d |..........F(j$,m| 00008be0 24 2c 58 25 2c 59 25 29 3a f2 6e 28 54 62 25 2c |$,X%,Y%):.n(Tb%,| 00008bf0 6a 24 2c 6d 24 29 3a c8 99 22 57 69 6d 70 5f 43 |j$,m$):.."Wimp_C| 00008c00 72 65 61 74 65 4d 65 6e 75 22 2c 2c 54 62 25 2c |reateMenu",,Tb%,| 00008c10 58 25 2d 54 62 25 21 31 36 2f 32 2c 59 25 3a 41 |X%-Tb%!16/2,Y%:A| 00008c20 24 3d 22 4e 6f 20 70 72 69 6e 74 65 72 22 3a c8 |$="No printer":.| 00008c30 99 36 35 35 36 38 30 2c 2c 2c 2c 2c 41 24 b8 2c |.655680,,,,,A$.,| 00008c40 2c 2c 2c 41 24 3a f2 62 28 4a 62 25 2c 30 2c 41 |,,,A$:.b(Jb%,0,A| 00008c50 24 29 3a f2 62 28 55 62 25 2c 31 2c 22 47 65 6e |$):.b(Ub%,1,"Gen| 00008c60 65 72 61 74 65 64 20 6f 6e 20 21 52 61 79 33 64 |erated on !Ray3d| 00008c70 20 76 65 72 73 69 6f 6e 20 22 2b c3 28 61 61 25 | version "+.(aa%| 00008c80 2f 31 30 30 29 29 3a f2 62 28 55 62 25 2c 35 2c |/100)):.b(Ub%,5,| 00008c90 c3 28 64 25 29 29 3a f2 62 28 55 62 25 2c 36 2c |.(d%)):.b(Ub%,6,| 00008ca0 c3 28 6f 61 25 29 29 3a f2 62 28 55 62 25 2c 37 |.(oa%)):.b(Ub%,7| 00008cb0 2c c3 28 60 25 29 29 3a e1 0d 08 b7 a5 dd f2 6e |,.(`%)):.......n| 00008cc0 28 4d 25 2c 6a 24 2c 6d 24 29 3a ea 49 25 2c 42 |(M%,j$,m$):.I%,B| 00008cd0 62 25 2c 56 62 25 2c 57 62 25 2c 58 62 25 2c 4e |b%,Vb%,Wb%,Xb%,N| 00008ce0 3a 58 62 25 3d 31 32 38 3a 24 4d 25 3d 6a 24 3a |:Xb%=128:$M%=j$:| 00008cf0 4d 25 21 31 32 3d 34 35 39 32 37 31 3a 4d 25 21 |M%!12=459271:M%!| 00008d00 32 30 3d 34 34 3a 4d 25 21 32 34 3d 30 3a 49 25 |20=44:M%!24=0:I%| 00008d10 3d 4d 25 2b 32 38 3a 42 62 25 3d a9 28 6a 24 29 |=M%+28:Bb%=.(j$)| 00008d20 2d 32 3a f5 3a 41 25 3d a7 6d 24 2c 22 2c 22 29 |-2:.:A%=.m$,",")| 00008d30 3a 24 28 49 25 2b 31 32 29 3d c0 6d 24 2c 41 25 |:$(I%+12)=.m$,A%| 00008d40 2d 31 29 3a 6d 24 3d c1 6d 24 2c 41 25 2b 31 29 |-1):m$=.m$,A%+1)| 00008d50 3a e7 41 25 3e 42 62 25 42 62 25 3d 41 25 0d 08 |:.A%>Bb%Bb%=A%..| 00008d60 c0 1d 21 49 25 3d 30 3a 49 25 21 34 3d 30 3a 3a |..!I%=0:I%!4=0::| 00008d70 c8 8e 24 28 49 25 2b 31 32 29 ca 0d 08 c3 14 c9 |..$(I%+12)......| 00008d80 22 49 6e 66 6f 22 3a 49 25 21 34 3d 6b 61 25 0d |"Info":I%!4=ka%.| 00008d90 08 c5 16 c9 22 52 6f 74 61 74 65 22 3a 49 25 21 |...."Rotate":I%!| 00008da0 34 3d 4a 61 25 0d 08 c6 1c c9 22 47 72 69 64 20 |4=Ja%....."Grid | 00008db0 6f 70 74 69 6f 6e 73 22 3a 49 25 21 34 3d 4e 61 |options":I%!4=Na| 00008dc0 25 0d 08 c7 17 c9 22 33 64 20 66 69 6c 65 22 3a |%....."3d file":| 00008dd0 49 25 21 34 3d 71 61 25 0d 08 c8 15 c9 22 41 62 |I%!4=qa%....."Ab| 00008de0 6f 75 74 22 3a 49 25 21 34 3d 55 62 25 0d 08 c9 |out":I%!4=Ub%...| 00008df0 18 c9 22 53 65 6c 65 63 74 65 64 22 3a 49 25 21 |.."Selected":I%!| 00008e00 34 3d 73 61 25 0d 08 ca 15 c9 22 50 72 69 6e 74 |4=sa%....."Print| 00008e10 22 3a 49 25 21 34 3d 4a 62 25 0d 08 cb 17 c9 22 |":I%!4=Jb%....."| 00008e20 46 72 61 63 74 61 6c 22 3a 49 25 21 34 3d 50 61 |Fractal":I%!4=Pa| 00008e30 25 0d 08 cc 21 c9 22 52 65 63 6f 72 64 22 3a 49 |%...!."Record":I| 00008e40 25 21 34 3d 74 61 25 3a e7 51 61 25 8c 3f 49 25 |%!4=ta%:.Qa%.?I%| 00008e50 3d 31 0d 08 cc 11 c9 22 53 68 6f 77 22 3a 3f 49 |=1....."Show":?I| 00008e60 25 3d 32 0d 08 ce 19 c9 22 50 6f 69 6e 74 22 3a |%=2....."Point":| 00008e70 e7 45 62 25 3d 30 8c 3f 49 25 3d 31 0d 08 ce 16 |.Eb%=0.?I%=1....| 00008e80 c9 22 46 61 73 74 22 3a e7 52 62 25 8c 3f 49 25 |."Fast":.Rb%.?I%| 00008e90 3d 31 0d 08 cf 24 c9 22 45 78 74 65 6e 64 65 64 |=1...$."Extended| 00008ea0 22 3a e7 45 62 25 3d 31 8c 3f 49 25 3d 31 3a 58 |":.Eb%=1.?I%=1:X| 00008eb0 62 25 3d 31 32 39 0d 08 d0 1b c9 22 53 68 6f 77 |b%=129....."Show| 00008ec0 20 67 72 69 64 22 3a e7 5a 61 25 8c 3f 49 25 3d | grid":.Za%.?I%=| 00008ed0 31 0d 08 d1 1e c9 22 53 6e 61 70 20 74 6f 20 67 |1....."Snap to g| 00008ee0 72 69 64 22 3a e7 7a 61 25 8c 3f 49 25 3d 31 0d |rid":.za%.?I%=1.| 00008ef0 08 d2 50 c9 22 50 72 6f 6a 65 63 74 22 3a 49 25 |..P."Project":I%| 00008f00 21 34 3d 54 62 25 2b 35 30 30 3a f2 6e 28 49 25 |!4=Tb%+500:.n(I%| 00008f10 21 34 2c 22 50 72 6f 6a 65 63 74 22 2c 22 41 62 |!4,"Project","Ab| 00008f20 6f 75 74 2c 53 61 76 65 2c 50 72 69 6e 74 2c 43 |out,Save,Print,C| 00008f30 6c 65 61 72 2c 44 65 66 61 75 6c 74 2c 22 29 0d |lear,Default,").| 00008f40 08 d5 4f c9 22 47 72 69 64 22 3a 49 25 21 34 3d |..O."Grid":I%!4=| 00008f50 54 62 25 2b 37 30 30 3a f2 6e 28 49 25 21 34 2c |Tb%+700:.n(I%!4,| 00008f60 22 47 72 69 64 22 2c 22 53 68 6f 77 20 67 72 69 |"Grid","Show gri| 00008f70 64 2c 53 6e 61 70 20 74 6f 20 67 72 69 64 2c 47 |d,Snap to grid,G| 00008f80 72 69 64 20 6f 70 74 69 6f 6e 73 2c 22 29 0d 08 |rid options,")..| 00008f90 d7 55 c9 22 57 6f 72 6c 64 22 3a 49 25 21 34 3d |.U."World":I%!4=| 00008fa0 54 62 25 2b 39 30 30 3a 3f 49 25 3d 32 3a f2 6e |Tb%+900:?I%=2:.n| 00008fb0 28 49 25 21 34 2c 22 57 6f 72 6c 64 22 2c 22 42 |(I%!4,"World","B| 00008fc0 61 63 6b 67 72 6f 75 6e 64 2e 2e 2e 2c 4c 69 6e |ackground...,Lin| 00008fd0 6b 2e 2e 2e 2c 53 75 72 66 61 63 65 73 2e 2e 2e |k...,Surfaces...| 00008fe0 2c 22 29 0d 08 d9 6e c9 22 53 65 6c 65 63 74 22 |,")...n."Select"| 00008ff0 3a 49 25 21 34 3d 54 62 25 2b 31 31 30 30 3a f2 |:I%!4=Tb%+1100:.| 00009000 6e 28 49 25 21 34 2c 22 53 65 6c 65 63 74 22 2c |n(I%!4,"Select",| 00009010 22 53 65 6c 65 63 74 20 61 6c 6c 2c 43 6c 65 61 |"Select all,Clea| 00009020 72 20 2c 48 69 64 65 2c 53 68 6f 77 2c 47 72 6f |r ,Hide,Show,Gro| 00009030 75 70 2c 44 65 6c 65 74 65 2c 52 6f 74 61 74 65 |up,Delete,Rotate| 00009040 2c 53 63 61 6c 65 2c 46 72 61 63 74 61 6c 2c 22 |,Scale,Fractal,"| 00009050 29 0d 08 db 3c c9 22 54 79 70 65 22 3a 49 25 21 |)...<."Type":I%!| 00009060 34 3d 54 62 25 2b 31 34 30 30 3a f2 6e 28 49 25 |4=Tb%+1400:.n(I%| 00009070 21 34 2c 22 54 79 70 65 3a 22 2c 22 50 6f 69 6e |!4,"Type:","Poin| 00009080 74 2c 45 78 74 65 6e 64 65 64 2c 22 29 0d 08 dd |t,Extended,")...| 00009090 4a c9 22 43 6c 65 61 72 22 3a 49 25 21 34 3d 54 |J."Clear":I%!4=T| 000090a0 62 25 2b 31 35 30 30 3a f2 6e 28 49 25 21 34 2c |b%+1500:.n(I%!4,| 000090b0 22 43 6c 65 61 72 22 2c 22 4c 69 67 68 74 73 2c |"Clear","Lights,| 000090c0 53 75 72 66 61 63 65 73 2c 4f 62 6a 65 63 74 73 |Surfaces,Objects| 000090d0 2c 41 6c 6c 2c 22 29 0d 08 df 35 c9 22 53 63 61 |,All,")...5."Sca| 000090e0 6c 65 22 3a 49 25 21 34 3d 54 62 25 2b 31 37 30 |le":I%!4=Tb%+170| 000090f0 30 3a f2 6e 28 49 25 21 34 2c 22 20 53 63 61 6c |0:.n(I%!4," Scal| 00009100 65 20 25 20 22 2c 22 40 40 2c 22 29 0d 08 e1 3e |e % ","@@,")...>| 00009110 c9 22 4d 61 63 72 6f 22 3a 49 25 21 34 3d 54 62 |."Macro":I%!4=Tb| 00009120 25 2b 31 38 30 30 3a f2 6e 28 49 25 21 34 2c 22 |%+1800:.n(I%!4,"| 00009130 20 20 4d 61 63 72 6f 20 20 22 2c 22 52 65 63 6f | Macro ","Reco| 00009140 72 64 2c 53 74 6f 70 2c 22 29 0d 08 e3 40 c9 22 |rd,Stop,")...@."| 00009150 4c 69 67 68 74 73 20 22 3a 49 25 21 34 3d 54 62 |Lights ":I%!4=Tb| 00009160 25 2b 32 30 30 30 3a f2 6e 28 49 25 21 34 2c 22 |%+2000:.n(I%!4,"| 00009170 4c 69 67 68 74 73 22 2c 22 54 79 70 65 2c 4d 6f |Lights","Type,Mo| 00009180 64 69 66 79 2e 2e 2e 2c 22 29 0d 08 e5 44 c9 22 |dify...,")...D."| 00009190 53 61 76 65 22 3a 49 25 21 34 3d 54 62 25 2b 32 |Save":I%!4=Tb%+2| 000091a0 33 30 30 3a f2 6e 28 49 25 21 34 2c 22 20 20 20 |300:.n(I%!4," | 000091b0 53 61 76 65 3a 20 20 20 22 2c 22 33 64 20 66 69 |Save: ","3d fi| 000091c0 6c 65 2c 53 65 6c 65 63 74 65 64 2c 22 29 0d 08 |le,Selected,")..| 000091d0 e7 40 c9 22 47 72 6f 75 70 22 3a 49 25 21 34 3d |.@."Group":I%!4=| 000091e0 54 62 25 2b 32 35 30 30 3a f2 6e 28 49 25 21 34 |Tb%+2500:.n(I%!4| 000091f0 2c 22 20 47 72 6f 75 70 20 20 22 2c 22 47 72 6f |," Group ","Gro| 00009200 75 70 20 2c 55 6e 67 72 6f 75 70 2c 22 29 0d 08 |up ,Ungroup,")..| 00009210 e9 50 c9 22 5a 6f 6f 6d 22 3a 49 25 21 34 3d 54 |.P."Zoom":I%!4=T| 00009220 62 25 2b 32 37 30 30 3a f2 6e 28 49 25 21 34 2c |b%+2700:.n(I%!4,| 00009230 22 20 5a 6f 6f 6d 20 25 20 22 2c 22 31 30 30 2c |" Zoom % ","100,| 00009240 32 30 30 2c 33 30 30 2c 34 30 30 2c 35 30 30 2c |200,300,400,500,| 00009250 36 30 30 2c 37 30 30 2c 38 30 30 2c 22 29 0d 08 |600,700,800,")..| 00009260 eb 3f c9 22 44 65 66 61 75 6c 74 22 3a 49 25 21 |.?."Default":I%!| 00009270 34 3d 54 62 25 2b 33 32 30 30 3a f2 6e 28 49 25 |4=Tb%+3200:.n(I%| 00009280 21 34 2c 22 20 44 65 66 61 75 6c 74 20 22 2c 22 |!4," Default ","| 00009290 4c 6f 61 64 2c 53 61 76 65 20 2c 22 29 0d 08 ed |Load,Save ,")...| 000092a0 05 cb 0d 08 ed 39 3a 49 25 21 38 3d 26 37 30 30 |.....9:I%!8=&700| 000092b0 30 30 32 31 3a e7 24 28 49 25 2b 31 32 29 3d 22 |0021:.$(I%+12)="| 000092c0 46 72 61 63 74 61 6c 22 80 4f 25 3d 30 8c 49 25 |Fractal".O%=0.I%| 000092d0 21 38 3d 26 37 34 30 30 30 32 31 0d 08 f0 2b e7 |!8=&7400021...+.| 000092e0 24 28 49 25 2b 31 32 29 3d 22 53 65 6c 65 63 74 |$(I%+12)="Select| 000092f0 65 64 22 80 4f 25 3d 30 8c 49 25 21 38 3d 26 37 |ed".O%=0.I%!8=&7| 00009300 34 30 30 30 32 31 0d 08 f1 28 e7 24 28 49 25 2b |400021...(.$(I%+| 00009310 31 32 29 3d 22 47 72 6f 75 70 22 80 4f 25 3d 30 |12)="Group".O%=0| 00009320 8c 49 25 21 38 3d 26 37 34 30 30 30 32 31 0d 08 |.I%!8=&7400021..| 00009330 f2 29 e7 24 28 49 25 2b 31 32 29 3d 22 43 6c 65 |.).$(I%+12)="Cle| 00009340 61 72 20 22 80 4f 25 3d 30 8c 49 25 21 38 3d 26 |ar ".O%=0.I%!8=&| 00009350 37 34 30 30 30 32 31 0d 08 f3 27 e7 24 28 49 25 |7400021...'.$(I%| 00009360 2b 31 32 29 3d 22 48 69 64 65 22 80 4f 25 3d 30 |+12)="Hide".O%=0| 00009370 8c 49 25 21 38 3d 26 37 34 30 30 30 32 31 0d 08 |.I%!8=&7400021..| 00009380 f4 27 e7 24 28 49 25 2b 31 32 29 3d 22 53 68 6f |.'.$(I%+12)="Sho| 00009390 77 22 80 4f 25 3d 30 8c 49 25 21 38 3d 26 37 34 |w".O%=0.I%!8=&74| 000093a0 30 30 30 32 31 0d 08 f5 29 e7 24 28 49 25 2b 31 |00021...).$(I%+1| 000093b0 32 29 3d 22 53 65 6c 65 63 74 22 80 64 25 3d 30 |2)="Select".d%=0| 000093c0 8c 49 25 21 38 3d 26 37 34 30 30 30 32 31 0d 08 |.I%!8=&7400021..| 000093d0 f6 2c e7 24 28 49 25 2b 31 32 29 3d 22 4d 6f 64 |.,.$(I%+12)="Mod| 000093e0 69 66 79 2e 2e 2e 22 80 60 25 3d 30 8c 49 25 21 |ify...".`%=0.I%!| 000093f0 38 3d 26 37 34 30 30 30 32 31 0d 08 f7 2a e7 24 |8=&7400021...*.$| 00009400 28 49 25 2b 31 32 29 3d 22 52 65 6e 61 6d 65 22 |(I%+12)="Rename"| 00009410 80 4f 25 3c 3e 31 8c 49 25 21 38 3d 26 37 34 30 |.O%<>1.I%!8=&740| 00009420 30 30 32 31 0d 08 f8 29 e7 24 28 49 25 2b 31 32 |0021...).$(I%+12| 00009430 29 3d 22 52 6f 74 61 74 65 22 80 4f 25 3d 30 8c |)="Rotate".O%=0.| 00009440 49 25 21 38 3d 26 37 34 30 30 30 32 31 0d 08 f9 |I%!8=&7400021...| 00009450 29 e7 24 28 49 25 2b 31 32 29 3d 22 44 65 6c 65 |).$(I%+12)="Dele| 00009460 74 65 22 80 4f 25 3d 30 8c 49 25 21 38 3d 26 37 |te".O%=0.I%!8=&7| 00009470 34 30 30 30 32 31 0d 08 fa 28 e7 24 28 49 25 2b |400021...(.$(I%+| 00009480 31 32 29 3d 22 53 63 61 6c 65 22 80 4f 25 3d 30 |12)="Scale".O%=0| 00009490 8c 49 25 21 38 3d 26 37 34 30 30 30 32 31 0d 08 |.I%!8=&7400021..| 000094a0 fb 27 e7 24 28 49 25 2b 31 32 29 3d 22 43 6f 70 |.'.$(I%+12)="Cop| 000094b0 79 22 80 4f 25 3d 30 8c 49 25 21 38 3d 26 37 34 |y".O%=0.I%!8=&74| 000094c0 30 30 30 32 31 0d 08 fc 13 e7 24 28 49 25 2b 31 |00021.....$(I%+1| 000094d0 32 29 3d 22 40 40 22 8c 0d 08 fd 3e 24 53 62 25 |2)="@@"....>$Sb%| 000094e0 3d 22 22 3a 58 62 25 3d 31 33 32 3a 49 25 21 38 |="":Xb%=132:I%!8| 000094f0 3d 26 37 30 30 30 31 32 31 3a 49 25 21 31 32 3d |=&7000121:I%!12=| 00009500 53 62 25 3a 49 25 21 31 36 3d 59 62 25 3a 49 25 |Sb%:I%!16=Yb%:I%| 00009510 21 32 30 3d 32 31 0d 09 00 05 cd 0d 09 00 2d 49 |!20=21........-I| 00009520 25 2b 3d 32 34 3a fd 6d 24 3d 22 22 3a 21 28 49 |%+=24:.m$="":!(I| 00009530 25 2d 32 34 29 3d 58 62 25 3a 4d 25 21 31 36 3d |%-24)=Xb%:M%!16=| 00009540 42 62 25 2a 31 36 3a e1 0d 09 04 67 dd f2 4d 28 |Bb%*16:....g..M(| 00009550 58 25 2c 59 25 2c 51 29 3a ea 73 24 2c 4d 25 2c |X%,Y%,Q):.s$,M%,| 00009560 49 25 2c 42 62 25 2c 56 62 25 2c 57 62 25 3a 6c |I%,Bb%,Vb%,Wb%:l| 00009570 61 25 3d 51 3a 4d 25 3d 54 62 25 3a 4d 25 21 31 |a%=Q:M%=Tb%:M%!1| 00009580 32 3d 34 35 39 32 37 31 3a e7 51 3d 33 8c 24 4d |2=459271:.Q=3.$M| 00009590 25 3d 22 20 20 4c 69 67 68 74 73 20 20 22 8b 24 |%=" Lights ".$| 000095a0 4d 25 3d 22 20 53 75 72 66 61 63 65 73 20 22 0d |M%=" Surfaces ".| 000095b0 09 09 30 4d 25 21 32 30 3d 34 34 3a 4d 25 21 32 |..0M%!20=44:M%!2| 000095c0 34 3d 30 3a 49 25 3d 4d 25 2b 32 38 3a 42 62 25 |4=0:I%=M%+28:Bb%| 000095d0 3d 38 3a e7 51 3d 33 8c e3 46 3d 31 b8 60 25 0d |=8:.Q=3..F=1.`%.| 000095e0 09 0c 11 e7 51 3d 34 8c e3 46 3d 31 b8 6f 61 25 |....Q=4..F=1.oa%| 000095f0 0d 09 0d 22 e7 51 3d 33 8c 73 24 3d 62 24 28 46 |...".Q=3.s$=b$(F| 00009600 29 8b 73 24 3d 24 28 56 25 2b 46 2a 34 30 2d 34 |).s$=$(V%+F*40-4| 00009610 30 29 0d 09 0e 4d 41 25 3d a9 28 73 24 29 3a 49 |0)...MA%=.(s$):I| 00009620 25 21 31 32 3d 28 5a 62 25 2b 46 2a 32 31 29 2d |%!12=(Zb%+F*21)-| 00009630 32 31 3a 24 28 5a 62 25 2b 46 2a 32 31 2d 32 31 |21:$(Zb%+F*21-21| 00009640 29 3d 73 24 3a 49 25 21 31 36 3d 32 31 3a e7 41 |)=s$:I%!16=21:.A| 00009650 25 2b 31 3e 42 62 25 42 62 25 3d 41 25 2b 31 0d |%+1>Bb%Bb%=A%+1.| 00009660 09 12 69 21 49 25 3d 30 3a 49 25 21 34 3d 30 3a |..i!I%=0:I%!4=0:| 00009670 49 25 21 38 3d 26 37 30 30 30 31 32 31 3a 49 25 |I%!8=&7000121:I%| 00009680 2b 3d 32 34 3a ed 3a 49 25 21 2d 32 34 3d 31 32 |+=24:.:I%!-24=12| 00009690 38 3a 4d 25 21 31 36 3d 42 62 25 2a 31 36 3a c8 |8:M%!16=Bb%*16:.| 000096a0 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e |."Wimp_CreateMen| 000096b0 75 22 2c 2c 54 62 25 2c 58 25 2d 54 62 25 21 31 |u",,Tb%,X%-Tb%!1| 000096c0 36 2f 32 2c 59 25 3a e1 0d 09 17 57 dd f2 44 61 |6/2,Y%:....W..Da| 000096d0 28 5f 62 25 29 3a ea 43 2c 4f 2c 60 62 25 2c 61 |(_b%):.C,O,`b%,a| 000096e0 63 25 2c 62 63 25 2c 63 63 25 3a c8 99 22 57 69 |c%,bc%,cc%:.."Wi| 000096f0 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2d |mp_CreateMenu",-| 00009700 31 3a c8 99 36 35 35 36 38 30 b8 3b 46 25 3a e7 |1:..655680.;F%:.| 00009710 46 25 80 31 8c 85 31 37 2c 61 24 28 32 33 29 0d |F%.1..17,a$(23).| 00009720 09 1e 36 c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |..6.."Hourglass_| 00009730 4f 6e 22 3a 43 3d ae 28 22 50 72 69 6e 74 65 72 |On":C=.("Printer| 00009740 3a 22 29 3a ea 85 3a ee 85 ea 3a f7 85 3a d9 23 |:"):..:...:..:.#| 00009750 43 3a f2 48 61 0d 09 24 6b c8 99 22 50 44 72 69 |C:.Ha..$k.."PDri| 00009760 76 65 72 5f 53 65 6c 65 63 74 4a 6f 62 22 2c 43 |ver_SelectJob",C| 00009770 2c 22 52 61 79 33 64 20 50 72 69 6e 74 6f 75 74 |,"Ray3d Printout| 00009780 22 b8 4f 3a ea 85 3a ee 85 ea 3a f7 85 3a c8 99 |".O:..:...:..:..| 00009790 22 50 44 72 69 76 65 72 5f 41 62 6f 72 74 4a 6f |"PDriver_AbortJo| 000097a0 62 22 2c 43 3a c8 99 22 50 44 72 69 76 65 72 5f |b",C:.."PDriver_| 000097b0 53 65 6c 65 63 74 4a 6f 62 22 2c 4f 3a f2 48 61 |SelectJob",O:.Ha| 000097c0 0d 09 29 c5 c8 99 22 50 44 72 69 76 65 72 5f 50 |..)..."PDriver_P| 000097d0 61 67 65 53 69 7a 65 22 b8 2c 2c 2c 60 62 25 2c |ageSize".,,,`b%,| 000097e0 63 63 25 2c 61 63 25 2c 62 63 25 3a 3a 64 63 25 |cc%,ac%,bc%::dc%| 000097f0 21 30 3d 31 2a 32 5e 31 36 3a 64 63 25 21 31 32 |!0=1*2^16:dc%!12| 00009800 3d 31 2a 32 5e 31 36 3a 64 63 25 21 34 3d 30 3a |=1*2^16:dc%!4=0:| 00009810 64 63 25 21 38 3d 30 3a 65 63 25 21 30 3d 30 3a |dc%!8=0:ec%!0=0:| 00009820 65 63 25 21 34 3d 30 3a 65 63 25 21 38 3d 75 25 |ec%!4=0:ec%!8=u%| 00009830 3a 65 63 25 21 31 32 3d 75 25 3a 66 63 25 21 30 |:ec%!12=u%:fc%!0| 00009840 3d 28 28 61 63 25 2d 60 62 25 2d 28 75 25 2a 34 |=((ac%-`b%-(u%*4| 00009850 30 30 29 29 2f 32 29 2b 60 62 25 3a 66 63 25 21 |00))/2)+`b%:fc%!| 00009860 34 3d 28 28 62 63 25 2d 63 63 25 2d 28 75 25 2a |4=((bc%-cc%-(u%*| 00009870 34 30 30 29 29 2f 32 29 2b 63 63 25 3a 67 63 25 |400))/2)+cc%:gc%| 00009880 3d 2d 32 35 36 0d 09 34 a8 c8 99 22 50 44 72 69 |=-256..4..."PDri| 00009890 76 65 72 5f 47 69 76 65 52 65 63 74 61 6e 67 6c |ver_GiveRectangl| 000098a0 65 22 2c 5f 62 25 2c 65 63 25 2c 64 63 25 2c 66 |e",_b%,ec%,dc%,f| 000098b0 63 25 2c 67 63 25 3a c8 99 22 50 44 72 69 76 65 |c%,gc%:.."PDrive| 000098c0 72 5f 44 72 61 77 50 61 67 65 22 2c 5f 62 25 2c |r_DrawPage",_b%,| 000098d0 68 63 25 2c 30 2c 30 b8 6b 25 2c 2c 69 63 25 3a |hc%,0,0.k%,,ic%:| 000098e0 c8 95 6b 25 3a f2 49 61 28 69 63 25 29 3a c8 99 |..k%:.Ia(ic%):..| 000098f0 22 50 44 72 69 76 65 72 5f 47 65 74 52 65 63 74 |"PDriver_GetRect| 00009900 61 6e 67 6c 65 22 2c 2c 65 63 25 b8 6b 25 2c 2c |angle",,ec%.k%,,| 00009910 69 63 25 3a ce 3a c8 99 22 50 44 72 69 76 65 72 |ic%:.:.."PDriver| 00009920 5f 45 6e 64 4a 6f 62 22 2c 43 3a f7 85 0d 09 3c |_EndJob",C:....<| 00009930 1e c8 99 22 50 44 72 69 76 65 72 5f 53 65 6c 65 |..."PDriver_Sele| 00009940 63 74 4a 6f 62 22 2c 4f 3a f7 85 0d 09 3e 1b d9 |ctJob",O:....>..| 00009950 23 43 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |#C:.."Hourglass_| 00009960 4f 66 66 22 3a e1 0d 09 41 23 dd f2 48 61 3a c8 |Off":...A#..Ha:.| 00009970 99 22 48 6f 75 72 67 6c 61 73 73 5f 53 6d 61 73 |."Hourglass_Smas| 00009980 68 22 3a e7 9f 3c 3e 31 8c 0d 09 45 1b 85 31 37 |h":..<>1...E..17| 00009990 2c f6 24 2b 22 20 28 6c 69 6e 65 20 22 2b c3 9e |,.$+" (line "+..| 000099a0 2b 22 29 22 0d 09 47 1c cc 3a 85 31 2c f6 24 2b |+")"..G..:.1,.$+| 000099b0 22 20 28 6c 69 6e 65 20 22 2b c3 9e 2b 22 29 22 |" (line "+..+")"| 000099c0 0d 09 49 05 cd 0d 09 49 05 e1 0d 09 4a 21 dd f2 |..I....I....J!..| 000099d0 49 61 28 5f 62 25 29 3a c8 93 30 2c 30 2c 75 25 |Ia(_b%):..0,0,u%| 000099e0 2c 75 25 3a e7 5f 62 25 3d 34 8c 0d 09 4e 15 68 |,u%:._b%=4...N.h| 000099f0 25 3d 30 3a 6a 25 3d 75 25 3a f2 4a 61 28 37 29 |%=0:j%=u%:.Ja(7)| 00009a00 0d 09 51 3e cc 3a 64 62 25 2b 3d 31 3a 45 25 3d |..Q>.:db%+=1:E%=| 00009a10 32 3a 46 25 3d 5f 62 25 2d 31 3a 21 63 61 3d 30 |2:F%=_b%-1:!ca=0| 00009a20 3a 21 64 61 3d 75 25 3a 21 65 61 3d 37 3a 21 66 |:!da=u%:!ea=7:!f| 00009a30 61 3d 37 3a 47 25 3d 78 61 25 3a d6 67 61 0d 09 |a=7:G%=xa%:.ga..| 00009a40 56 05 cd 0d 09 56 05 e1 0d 09 57 68 dd f2 63 61 |V....V....Wh..ca| 00009a50 28 57 25 29 3a ea 6b 25 2c 68 25 2c 6a 25 2c 46 |(W%):.k%,h%,j%,F| 00009a60 61 25 3a 21 62 25 3d 57 25 3a c8 99 22 57 69 6d |a%:!b%=W%:.."Wim| 00009a70 70 5f 52 65 64 72 61 77 57 69 6e 64 6f 77 22 2c |p_RedrawWindow",| 00009a80 2c 62 25 b8 6b 25 3a 68 25 3d 62 25 21 34 2d 62 |,b%.k%:h%=b%!4-b| 00009a90 25 21 32 30 3a 6a 25 3d 28 62 25 21 31 36 2d 62 |%!20:j%=(b%!16-b| 00009aa0 25 21 32 34 29 3a c8 95 6b 25 3a c8 8e 57 25 ca |%!24):..k%:..W%.| 00009ab0 0d 09 60 14 c9 67 61 25 2c 68 61 25 2c 69 61 25 |..`..ga%,ha%,ia%| 00009ac0 3a f2 4b 61 0d 09 62 1a c9 61 25 28 30 29 2c 61 |:.Ka..b..a%(0),a| 00009ad0 25 28 31 29 2c 61 25 28 32 29 3a f2 4c 61 0d 09 |%(1),a%(2):.La..| 00009ae0 63 0f c9 70 61 25 3a f2 4a 61 28 30 29 0d 09 64 |c..pa%:.Ja(0)..d| 00009af0 aa c9 6d 61 25 3a f2 64 28 31 31 29 3a c8 93 c8 |..ma%:.d(11):...| 00009b00 90 68 25 2b 31 34 36 2c 6a 25 2d 31 30 38 2c 33 |.h%+146,j%-108,3| 00009b10 2e 33 36 2a 69 25 28 30 29 2c 32 30 3a f2 64 28 |.36*i%(0),20:.d(| 00009b20 31 30 29 3a c8 93 c8 90 68 25 2b 31 34 36 2c 6a |10):....h%+146,j| 00009b30 25 2d 31 34 38 2c 33 2e 33 36 2a 69 25 28 31 29 |%-148,3.36*i%(1)| 00009b40 2c 32 30 3a f2 64 28 38 29 3a c8 93 c8 90 68 25 |,20:.d(8):....h%| 00009b50 2b 31 34 36 2c 6a 25 2d 31 38 38 2c 33 2e 33 36 |+146,j%-188,3.36| 00009b60 2a 69 25 28 32 29 2c 32 30 3a f2 7a 28 69 25 28 |*i%(2),20:.z(i%(| 00009b70 30 29 2c 69 25 28 31 29 2c 69 25 28 32 29 29 3a |0),i%(1),i%(2)):| 00009b80 c8 93 c8 90 68 25 2b 35 30 2c 6a 25 2d 31 38 38 |....h%+50,j%-188| 00009b90 2c 35 34 2c 31 30 32 0d 09 6a a7 c9 6e 61 25 3a |,54,102..j..na%:| 00009ba0 f2 64 28 31 31 29 3a c8 93 c8 90 68 25 2b 34 38 |.d(11):....h%+48| 00009bb0 2c 6a 25 2d 35 31 36 2c 33 2e 31 32 2a 68 25 28 |,j%-516,3.12*h%(| 00009bc0 30 29 2c 33 32 3a f2 64 28 31 30 29 3a c8 93 c8 |0),32:.d(10):...| 00009bd0 90 68 25 2b 34 38 2c 6a 25 2d 35 36 38 2c 33 2e |.h%+48,j%-568,3.| 00009be0 31 32 2a 68 25 28 31 29 2c 33 32 3a f2 64 28 38 |12*h%(1),32:.d(8| 00009bf0 29 3a c8 93 c8 90 68 25 2b 34 38 2c 6a 25 2d 36 |):....h%+48,j%-6| 00009c00 32 30 2c 33 2e 31 32 2a 68 25 28 32 29 2c 33 32 |20,3.12*h%(2),32| 00009c10 3a f2 7a 28 68 25 28 30 29 2c 68 25 28 31 29 2c |:.z(h%(0),h%(1),| 00009c20 68 25 28 32 29 29 3a c8 93 c8 90 68 25 2b 34 38 |h%(2)):....h%+48| 00009c30 2c 6a 25 2d 36 37 32 2c 34 32 36 2c 33 32 0d 09 |,j%-672,426,32..| 00009c40 70 a7 c9 49 61 25 3a f2 64 28 31 31 29 3a c8 93 |p..Ia%:.d(11):..| 00009c50 c8 90 68 25 2b 31 33 32 2c 6a 25 2d 36 34 2c 34 |..h%+132,j%-64,4| 00009c60 2e 35 2a 67 25 28 30 29 2c 32 38 3a f2 64 28 31 |.5*g%(0),28:.d(1| 00009c70 30 29 3a c8 93 c8 90 68 25 2b 31 33 32 2c 6a 25 |0):....h%+132,j%| 00009c80 2d 31 31 38 2c 34 2e 35 2a 67 25 28 31 29 2c 32 |-118,4.5*g%(1),2| 00009c90 38 3a f2 64 28 38 29 3a c8 93 c8 90 68 25 2b 31 |8:.d(8):....h%+1| 00009ca0 33 32 2c 6a 25 2d 31 37 36 2c 34 2e 35 2a 67 25 |32,j%-176,4.5*g%| 00009cb0 28 32 29 2c 32 38 3a f2 7a 28 67 25 28 30 29 2c |(2),28:.z(g%(0),| 00009cc0 67 25 28 31 29 2c 67 25 28 32 29 29 3a c8 93 c8 |g%(1),g%(2)):...| 00009cd0 90 68 25 2b 34 37 32 2c 6a 25 2d 32 36 38 2c 31 |.h%+472,j%-268,1| 00009ce0 31 32 2c 36 30 0d 09 76 05 cb 0d 09 76 24 c8 99 |12,60..v....v$..| 00009cf0 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 |"Wimp_GetRectang| 00009d00 6c 65 22 2c 2c 62 25 b8 6b 25 3a ce 3a e1 0d 09 |le",,b%.k%:.:...| 00009d10 79 21 dd f2 64 28 41 29 3a c8 99 22 57 69 6d 70 |y!..d(A):.."Wimp| 00009d20 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 41 3a e1 0d |_SetColour",A:..| 00009d30 09 7d 78 dd f2 7a 28 6a 63 25 2c 6b 63 25 2c 6c |.}x..z(jc%,kc%,l| 00009d40 63 25 29 3a ea 46 61 25 3a 6a 63 25 3d 6a 63 25 |c%):.Fa%:jc%=jc%| 00009d50 2a 32 2e 35 36 3a 6b 63 25 3d 6b 63 25 2a 32 2e |*2.56:kc%=kc%*2.| 00009d60 35 36 3a 6c 63 25 3d 6c 63 25 2a 32 2e 35 36 3a |56:lc%=lc%*2.56:| 00009d70 46 61 25 3d 28 6c 63 25 3c 3c 32 34 29 2b 28 6b |Fa%=(lc%<<24)+(k| 00009d80 63 25 3c 3c 31 36 29 2b 28 6a 63 25 3c 3c 38 29 |c%<<16)+(jc%<<8)| 00009d90 3a c8 99 32 36 34 30 30 33 2c 46 61 25 2c 30 2c |:..264003,Fa%,0,| 00009da0 30 2c 30 2c 30 3a e1 0d 09 85 16 dd f2 4b 61 3a |0,0,0:.......Ka:| 00009db0 ea 4e 2c 46 2c 41 24 3a c8 8e 57 25 ca 0d 09 89 |.N,F,A$:..W%....| 00009dc0 3a c9 67 61 25 3a 42 25 3d 68 25 2b 31 36 3a 43 |:.ga%:B%=h%+16:C| 00009dd0 25 3d 6a 25 2d 38 3a 44 25 3d 56 25 3a 45 25 3d |%=j%-8:D%=V%:E%=| 00009de0 6f 61 25 3a 46 25 3d 30 3a e7 45 25 3e 6f 61 25 |oa%:F%=0:.E%>oa%| 00009df0 8c 45 25 3d 6f 61 25 0d 09 8c 50 f2 64 28 32 29 |.E%=oa%...P.d(2)| 00009e00 3a c8 93 c8 90 68 25 2c 6a 25 2d 28 54 61 25 29 |:....h%,j%-(Ta%)| 00009e10 2a 33 36 2c 33 34 38 2c 33 34 3a c8 93 c8 90 68 |*36,348,34:....h| 00009e20 25 2c 6a 25 2d 28 55 61 25 29 2a 33 36 2c 33 34 |%,j%-(Ua%)*36,34| 00009e30 38 2c 33 34 3a f2 64 28 37 29 3a e7 6f 61 25 3c |8,34:.d(7):.oa%<| 00009e40 3e 30 8c d6 6d 63 25 0d 09 91 1b c9 68 61 25 3a |>0..mc%.....ha%:| 00009e50 4e 3d 30 3a 6e 63 25 3d 33 36 3a e7 57 61 25 3d |N=0:nc%=36:.Wa%=| 00009e60 30 8c 0d 09 94 0b e7 55 25 3c 3e 30 8c 0d 09 95 |0......U%<>0....| 00009e70 31 f2 64 28 31 31 29 3a e3 46 3d 31 b8 55 25 3a |1.d(11):.F=1.U%:| 00009e80 41 24 3d 24 a4 64 28 46 29 3a e7 a9 28 41 24 29 |A$=$.d(F):..(A$)| 00009e90 3e 31 38 8c 41 24 3d c0 41 24 2c 31 38 29 0d 09 |>18.A$=.A$,18)..| 00009ea0 99 3e 41 24 3d 41 24 2b c4 31 39 2d a9 28 41 24 |.>A$=A$+.19-.(A$| 00009eb0 29 2c 22 20 22 29 2b 22 2a 22 3a e7 2d 5f 25 3d |)," ")+"*":.-_%=| 00009ec0 46 8c f2 64 28 32 29 3a c8 93 c8 90 68 25 2c 6a |F..d(2):....h%,j| 00009ed0 25 2d 6e 63 25 2c 33 34 38 2c 33 34 0d 09 9b 29 |%-nc%,348,34...)| 00009ee0 ec 68 25 2b 31 36 2c 6a 25 2b 32 38 2d 6e 63 25 |.h%+16,j%+28-nc%| 00009ef0 3a f2 64 28 31 31 29 3a f1 41 24 3a 6e 63 25 2b |:.d(11):.A$:nc%+| 00009f00 3d 33 36 3a ed 0d 09 a1 05 cd 0d 09 a1 20 c8 95 |=36:......... ..| 00009f10 4e 3c 64 25 3a 4e 2b 3d 31 3a e7 a7 24 a4 61 28 |N<d%:N+=1:..$.a(| 00009f20 4e 29 2c 22 3e 22 29 3d 30 8c 0d 09 a3 0a e7 5f |N),">")=0......_| 00009f30 25 3d 4e 8c 0d 09 a4 1e f2 64 28 32 29 3a c8 93 |%=N......d(2):..| 00009f40 c8 90 68 25 2c 6a 25 2d 6e 63 25 2c 33 34 38 2c |..h%,j%-nc%,348,| 00009f50 33 34 0d 09 a6 05 cd 0d 09 a6 2a f2 64 28 37 29 |34........*.d(7)| 00009f60 3a ec 68 25 2b 31 36 2c 6a 25 2b 32 38 2d 6e 63 |:.h%+16,j%+28-nc| 00009f70 25 3a f1 24 a4 61 28 4e 29 3a 6e 63 25 2b 3d 33 |%:.$.a(N):nc%+=3| 00009f80 36 0d 09 aa 05 cd 0d 09 aa 05 ce 0d 09 ac 32 cc |6.............2.| 00009f90 3a e3 4e 3d 31 b8 64 25 3a 61 24 3d 24 a4 61 28 |:.N=1.d%:a$=$.a(| 00009fa0 4e 29 3a e7 c0 61 24 2c a7 61 24 2c 22 3e 22 29 |N):..a$,.a$,">")| 00009fb0 2d 31 29 3d 24 a4 64 28 57 61 25 29 8c 0d 09 af |-1)=$.d(Wa%)....| 00009fc0 0a e7 4e 3d 5f 25 8c 0d 09 b0 1e f2 64 28 32 29 |..N=_%......d(2)| 00009fd0 3a c8 93 c8 90 68 25 2c 6a 25 2d 6e 63 25 2c 33 |:....h%,j%-nc%,3| 00009fe0 34 38 2c 33 34 0d 09 b2 05 cd 0d 09 b2 37 f2 64 |48,34........7.d| 00009ff0 28 37 29 3a ec 68 25 2b 31 36 2c 6a 25 2b 32 38 |(7):.h%+16,j%+28| 0000a000 2d 6e 63 25 3a f1 c2 61 24 2c a9 28 61 24 29 2d |-nc%:..a$,.(a$)-| 0000a010 a7 61 24 2c 22 3e 22 29 29 3a 6e 63 25 2b 3d 33 |.a$,">")):nc%+=3| 0000a020 36 0d 09 b7 05 cd 0d 09 b7 05 ed 0d 09 b9 05 cd |6...............| 0000a030 0d 09 b9 1b c9 69 61 25 3a 4e 3d 30 3a 6e 63 25 |.....ia%:N=0:nc%| 0000a040 3d 33 36 3a e7 66 61 25 3d 30 8c 0d 09 bc 0b e7 |=36:.fa%=0......| 0000a050 55 25 3c 3e 30 8c 0d 09 bd 31 f2 64 28 31 31 29 |U%<>0....1.d(11)| 0000a060 3a e3 46 3d 31 b8 55 25 3a 41 24 3d 24 a4 64 28 |:.F=1.U%:A$=$.d(| 0000a070 46 29 3a e7 a9 28 41 24 29 3e 31 38 8c 41 24 3d |F):..(A$)>18.A$=| 0000a080 c0 41 24 2c 31 38 29 0d 09 c1 3b 41 24 3d 41 24 |.A$,18)...;A$=A$| 0000a090 2b c4 31 39 2d a9 28 41 24 29 2c 22 20 22 29 2b |+.19-.(A$)," ")+| 0000a0a0 22 2a 22 3a ec 68 25 2b 31 36 2c 6a 25 2b 32 38 |"*":.h%+16,j%+28| 0000a0b0 2d 6e 63 25 3a f1 41 24 3a 6e 63 25 2b 3d 33 36 |-nc%:.A$:nc%+=36| 0000a0c0 3a ed 0d 09 c6 05 cd 0d 09 c6 20 c8 95 4e 3c 64 |:......... ..N<d| 0000a0d0 25 3a 4e 2b 3d 31 3a e7 a7 24 a4 61 28 4e 29 2c |%:N+=1:..$.a(N),| 0000a0e0 22 3e 22 29 3d 30 8c 0d 09 c8 0a e7 4b 25 3f 4e |">")=0......K%?N| 0000a0f0 8c 0d 09 c9 1e f2 64 28 32 29 3a c8 93 c8 90 68 |......d(2):....h| 0000a100 25 2c 6a 25 2d 6e 63 25 2c 33 34 38 2c 33 34 0d |%,j%-nc%,348,34.| 0000a110 09 cb 05 cd 0d 09 cb 18 e7 59 61 25 3f 4e 3d 31 |.........Ya%?N=1| 0000a120 8c f2 64 28 38 29 8b f2 64 28 37 29 0d 09 cc 24 |..d(8)..d(7)...$| 0000a130 ec 68 25 2b 31 36 2c 6a 25 2b 32 38 2d 6e 63 25 |.h%+16,j%+28-nc%| 0000a140 3a f1 24 a4 61 28 4e 29 3a 6e 63 25 2b 3d 33 36 |:.$.a(N):nc%+=36| 0000a150 0d 09 cf 05 cd 0d 09 cf 05 ce 0d 09 d1 32 cc 3a |.............2.:| 0000a160 e3 4e 3d 31 b8 64 25 3a 61 24 3d 24 a4 61 28 4e |.N=1.d%:a$=$.a(N| 0000a170 29 3a e7 c0 61 24 2c a7 61 24 2c 22 3e 22 29 2d |):..a$,.a$,">")-| 0000a180 31 29 3d 24 a4 64 28 66 61 25 29 8c 0d 09 d4 0a |1)=$.d(fa%).....| 0000a190 e7 4b 25 3f 4e 8c 0d 09 d5 1e f2 64 28 32 29 3a |.K%?N......d(2):| 0000a1a0 c8 93 c8 90 68 25 2c 6a 25 2d 6e 63 25 2c 33 34 |....h%,j%-nc%,34| 0000a1b0 38 2c 33 34 0d 09 d7 05 cd 0d 09 d7 18 e7 59 61 |8,34..........Ya| 0000a1c0 25 3f 4e 3d 31 8c f2 64 28 38 29 8b f2 64 28 37 |%?N=1..d(8)..d(7| 0000a1d0 29 0d 09 d8 31 ec 68 25 2b 31 36 2c 6a 25 2b 32 |)...1.h%+16,j%+2| 0000a1e0 38 2d 6e 63 25 3a f1 c2 61 24 2c a9 28 61 24 29 |8-nc%:..a$,.(a$)| 0000a1f0 2d a7 61 24 2c 22 3e 22 29 29 3a 6e 63 25 2b 3d |-.a$,">")):nc%+=| 0000a200 33 36 0d 09 dc 05 cd 0d 09 dc 05 ed 0d 09 de 05 |36..............| 0000a210 cd 0d 09 de 05 cb 0d 09 df 05 e1 0d 09 e0 30 dd |..............0.| 0000a220 f2 46 61 28 43 25 29 3a ea 6b 25 2c 41 25 2c 42 |.Fa(C%):.k%,A%,B| 0000a230 25 3a e7 67 25 28 49 25 29 3c 3e 43 25 80 43 25 |%:.g%(I%)<>C%.C%| 0000a240 3e 3d 30 80 43 25 3c 31 30 31 8c 0d 09 e4 7d f2 |>=0.C%<101....}.| 0000a250 62 28 49 61 25 2c 36 2b 49 25 2c c3 28 43 25 29 |b(Ia%,6+I%,.(C%)| 0000a260 29 3a 67 25 28 49 25 29 3d 43 25 3a 21 62 25 3d |):g%(I%)=C%:!b%=| 0000a270 57 25 3a 62 25 21 34 3d 31 33 32 3a 62 25 21 38 |W%:b%!4=132:b%!8| 0000a280 3d 2d 32 36 34 3a 62 25 21 31 32 3d 35 39 30 3a |=-264:b%!12=590:| 0000a290 62 25 21 31 36 3d 2d 33 32 3a c8 99 22 57 69 6d |b%!16=-32:.."Wim| 0000a2a0 70 5f 55 70 64 61 74 65 57 69 6e 64 6f 77 22 2c |p_UpdateWindow",| 0000a2b0 2c 62 25 b8 6b 25 3a c8 95 6b 25 3a e7 49 25 3d |,b%.k%:..k%:.I%=| 0000a2c0 30 8c f2 64 28 31 31 29 0d 09 ea 10 e7 49 25 3d |0..d(11).....I%=| 0000a2d0 31 8c f2 64 28 31 30 29 0d 09 eb 0f e7 49 25 3d |1..d(10).....I%=| 0000a2e0 32 8c f2 64 28 38 29 0d 09 ec b0 41 25 3d 34 2e |2..d(8)....A%=4.| 0000a2f0 35 2a 67 25 28 49 25 29 3a 42 25 3d 34 2e 35 2a |5*g%(I%):B%=4.5*| 0000a300 31 30 30 2d 41 25 3a c8 93 c8 90 68 25 2b 31 33 |100-A%:....h%+13| 0000a310 32 2c 6a 25 2d 49 25 2a 35 36 2d 36 34 2c 41 25 |2,j%-I%*56-64,A%| 0000a320 2c 32 38 3a f2 64 28 31 29 3a c8 93 c8 90 68 25 |,28:.d(1):....h%| 0000a330 2b 31 33 32 2b 41 25 2c 6a 25 2d 49 25 2a 35 36 |+132+A%,j%-I%*56| 0000a340 2d 36 34 2c 42 25 2c 32 38 3a f2 7a 28 67 25 28 |-64,B%,28:.z(g%(| 0000a350 30 29 2c 67 25 28 31 29 2c 67 25 28 32 29 29 3a |0),g%(1),g%(2)):| 0000a360 c8 93 c8 90 68 25 2b 34 37 32 2c 6a 25 2d 32 36 |....h%+472,j%-26| 0000a370 38 2c 31 31 32 2c 36 30 3a c8 99 22 57 69 6d 70 |8,112,60:.."Wimp| 0000a380 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c |_GetRectangle",,| 0000a390 62 25 b8 6b 25 3a ce 0d 09 f5 05 cd 0d 09 f5 05 |b%.k%:..........| 0000a3a0 e1 0d 09 f6 32 dd f2 47 61 28 43 25 29 3a ea 6b |....2..Ga(C%):.k| 0000a3b0 25 2c 41 25 2c 42 25 3a e7 69 25 28 49 25 2d 35 |%,A%,B%:.i%(I%-5| 0000a3c0 29 3c 3e 43 25 80 43 25 3e 3d 30 80 43 25 3c 31 |)<>C%.C%>=0.C%<1| 0000a3d0 30 31 8c 0d 09 fa 6b 69 25 28 49 25 2d 35 29 3d |01....ki%(I%-5)=| 0000a3e0 43 25 3a 21 62 25 3d 57 25 3a 62 25 21 34 3d 34 |C%:!b%=W%:b%!4=4| 0000a3f0 38 3a 62 25 21 38 3d 2d 31 39 32 3a 62 25 21 31 |8:b%!8=-192:b%!1| 0000a400 32 3d 34 38 36 3a 62 25 21 31 36 3d 2d 38 30 3a |2=486:b%!16=-80:| 0000a410 c8 99 22 57 69 6d 70 5f 55 70 64 61 74 65 57 69 |.."Wimp_UpdateWi| 0000a420 6e 64 6f 77 22 2c 2c 62 25 b8 6b 25 3a c8 95 6b |ndow",,b%.k%:..k| 0000a430 25 3a e7 49 25 3d 35 8c f2 64 28 31 31 29 0d 09 |%:.I%=5..d(11)..| 0000a440 fe 10 e7 49 25 3d 36 8c f2 64 28 31 30 29 0d 09 |...I%=6..d(10)..| 0000a450 ff 0f e7 49 25 3d 37 8c f2 64 28 38 29 0d 0a 00 |...I%=7..d(8)...| 0000a460 c4 41 25 3d 33 2e 33 36 2a 69 25 28 49 25 2d 35 |.A%=3.36*i%(I%-5| 0000a470 29 3a 42 25 3d 33 2e 33 36 2a 31 30 30 2d 41 25 |):B%=3.36*100-A%| 0000a480 3a c8 93 c8 90 68 25 2b 31 34 36 2c 6a 25 2b 39 |:....h%+146,j%+9| 0000a490 32 2d 49 25 2a 34 30 2c 41 25 2c 32 30 3a f2 64 |2-I%*40,A%,20:.d| 0000a4a0 28 31 29 3a c8 93 c8 90 68 25 2b 31 34 36 2b 41 |(1):....h%+146+A| 0000a4b0 25 2c 6a 25 2b 39 32 2d 49 25 2a 34 30 2c 42 25 |%,j%+92-I%*40,B%| 0000a4c0 2c 32 30 3a f2 7a 28 69 25 28 30 29 2c 69 25 28 |,20:.z(i%(0),i%(| 0000a4d0 31 29 2c 69 25 28 32 29 29 3a c8 93 c8 90 68 25 |1),i%(2)):....h%| 0000a4e0 2b 35 30 2c 6a 25 2d 31 38 38 2c 35 34 2c 31 30 |+50,j%-188,54,10| 0000a4f0 32 3a f2 62 28 6d 61 25 2c 49 25 2b 33 2c c3 43 |2:.b(ma%,I%+3,.C| 0000a500 25 29 3a c8 99 22 57 69 6d 70 5f 47 65 74 52 65 |%):.."Wimp_GetRe| 0000a510 63 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 6b 25 3a |ctangle",,b%.k%:| 0000a520 ce 0d 0a 09 05 cd 0d 0a 09 05 e1 0d 0a 0a 30 dd |..............0.| 0000a530 f2 4d 61 28 43 25 29 3a ea 6b 25 2c 41 25 2c 42 |.Ma(C%):.k%,A%,B| 0000a540 25 3a e7 68 25 28 49 25 29 3c 3e 43 25 80 43 25 |%:.h%(I%)<>C%.C%| 0000a550 3e 3d 30 80 43 25 3c 31 30 31 8c 0d 0a 0e 6a 68 |>=0.C%<101....jh| 0000a560 25 28 49 25 29 3d 43 25 3a 21 62 25 3d 57 25 3a |%(I%)=C%:!b%=W%:| 0000a570 62 25 21 34 3d 34 38 3a 62 25 21 38 3d 2d 36 37 |b%!4=48:b%!8=-67| 0000a580 36 3a 62 25 21 31 32 3d 34 37 32 3a 62 25 21 31 |6:b%!12=472:b%!1| 0000a590 36 3d 2d 34 38 34 3a c8 99 22 57 69 6d 70 5f 55 |6=-484:.."Wimp_U| 0000a5a0 70 64 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 |pdateWindow",,b%| 0000a5b0 b8 6b 25 3a c8 95 6b 25 3a e7 49 25 3d 30 8c f2 |.k%:..k%:.I%=0..| 0000a5c0 64 28 31 31 29 0d 0a 12 10 e7 49 25 3d 31 8c f2 |d(11).....I%=1..| 0000a5d0 64 28 31 30 29 0d 0a 13 0f e7 49 25 3d 32 8c f2 |d(10).....I%=2..| 0000a5e0 64 28 38 29 0d 0a 14 cc 41 25 3d 33 2e 31 32 2a |d(8)....A%=3.12*| 0000a5f0 68 25 28 49 25 29 3a 42 25 3d 33 2e 31 32 2a 31 |h%(I%):B%=3.12*1| 0000a600 30 30 2d 41 25 3a c8 93 c8 90 68 25 2b 34 38 2c |00-A%:....h%+48,| 0000a610 6a 25 2d 49 25 2a 35 32 2d 35 31 36 2c 41 25 2c |j%-I%*52-516,A%,| 0000a620 33 30 3a f2 64 28 31 29 3a c8 93 c8 90 68 25 2b |30:.d(1):....h%+| 0000a630 34 38 2b 41 25 2c 6a 25 2d 49 25 2a 35 32 2d 35 |48+A%,j%-I%*52-5| 0000a640 31 36 2c 42 25 2c 33 30 3a f2 7a 28 68 25 28 30 |16,B%,30:.z(h%(0| 0000a650 29 2c 68 25 28 31 29 2c 68 25 28 32 29 29 3a c8 |),h%(1),h%(2)):.| 0000a660 93 c8 90 68 25 2b 35 30 2c 6a 25 2d 36 37 32 2c |...h%+50,j%-672,| 0000a670 34 32 32 2c 33 30 3a f2 62 28 6e 61 25 2c 49 25 |422,30:.b(na%,I%| 0000a680 2b 31 2c c3 28 68 25 28 49 25 29 29 2b 22 25 22 |+1,.(h%(I%))+"%"| 0000a690 29 3a c8 99 22 57 69 6d 70 5f 47 65 74 52 65 63 |):.."Wimp_GetRec| 0000a6a0 74 61 6e 67 6c 65 22 2c 2c 62 25 b8 6b 25 3a ce |tangle",,b%.k%:.| 0000a6b0 0d 0a 1e 05 cd 0d 0a 1e 05 e1 0d 0a 1f 71 dd f2 |.............q..| 0000a6c0 61 28 6f 63 25 2c 78 25 2c 79 25 2c 7a 25 29 3a |a(oc%,x%,y%,z%):| 0000a6d0 78 25 2d 3d 32 30 30 30 30 3a 79 25 2d 3d 32 30 |x%-=20000:y%-=20| 0000a6e0 30 30 30 3a 7a 25 2d 3d 32 30 30 30 30 3a 78 25 |000:z%-=20000:x%| 0000a6f0 3d 78 25 2a 61 2f 38 3a 79 25 3d 79 25 2a 61 2f |=x%*a/8:y%=y%*a/| 0000a700 38 3a 7a 25 3d 7a 25 2a 61 2f 38 3a e7 57 25 3d |8:z%=z%*a/8:.W%=| 0000a710 61 25 28 31 29 8c f0 6f 63 25 2c 68 25 2b 79 25 |a%(1)..oc%,h%+y%| 0000a720 2c 6a 25 2b 7a 25 2d 75 25 2a 61 0d 0a 24 23 e7 |,j%+z%-u%*a..$#.| 0000a730 57 25 3d 61 25 28 30 29 8c f0 6f 63 25 2c 68 25 |W%=a%(0)..oc%,h%| 0000a740 2b 78 25 2c 6a 25 2b 7a 25 2d 75 25 2a 61 0d 0a |+x%,j%+z%-u%*a..| 0000a750 25 23 e7 57 25 3d 61 25 28 32 29 8c f0 6f 63 25 |%#.W%=a%(2)..oc%| 0000a760 2c 68 25 2b 78 25 2c 6a 25 2b 79 25 2d 75 25 2a |,h%+x%,j%+y%-u%*| 0000a770 61 0d 0a 26 05 e1 0d 0a 27 8d dd f2 45 61 28 49 |a..&....'...Ea(I| 0000a780 25 29 3a ea 58 2c 59 2c 5a 2c 4d 62 25 2c 4e 62 |%):.X,Y,Z,Mb%,Nb| 0000a790 25 2c 68 25 2c 6a 25 2c 44 62 25 3a 21 62 25 3d |%,h%,j%,Db%:!b%=| 0000a7a0 6e 61 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 |na%:.."Wimp_GetW| 0000a7b0 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 3a |indowState",,b%:| 0000a7c0 68 25 3d 62 25 21 34 2d 62 25 21 32 30 3a 6a 25 |h%=b%!4-b%!20:j%| 0000a7d0 3d 28 62 25 21 31 36 2d 62 25 21 32 34 29 3a c8 |=(b%!16-b%!24):.| 0000a7e0 97 58 2c 59 2c 5a 3a 58 3d 58 2d 68 25 2d 34 38 |.X,Y,Z:X=X-h%-48| 0000a7f0 3a f2 4d 61 28 28 58 2f 33 31 32 29 2a 31 30 30 |:.Ma((X/312)*100| 0000a800 29 3a e1 0d 0a 2f e0 dd f2 6a 28 78 25 2c 79 25 |):.../...j(x%,y%| 0000a810 2c 7a 25 2c 6d 25 2c 70 63 25 29 3a ea 63 2c 65 |,z%,m%,pc%):.c,e| 0000a820 3a 63 3d b5 28 b2 28 6d 25 21 33 32 29 29 3a 65 |:c=.(.(m%!32)):e| 0000a830 3d 9b 28 b2 28 6d 25 21 33 32 29 29 3a 41 3d 78 |=.(.(m%!32)):A=x| 0000a840 25 3a 42 3d 79 25 3a 43 3d 7a 25 3a 79 25 3d 42 |%:B=y%:C=z%:y%=B| 0000a850 2a 65 2d 43 2a 63 3a 7a 25 3d 42 2a 63 2b 43 2a |*e-C*c:z%=B*c+C*| 0000a860 65 3a 63 3d b5 28 b2 28 6d 25 21 33 36 29 29 3a |e:c=.(.(m%!36)):| 0000a870 65 3d 9b 28 b2 28 6d 25 21 33 36 29 29 3a 41 3d |e=.(.(m%!36)):A=| 0000a880 78 25 3a 42 3d 79 25 3a 43 3d 7a 25 3a 78 25 3d |x%:B=y%:C=z%:x%=| 0000a890 41 2a 65 2b 43 2a 63 3a 7a 25 3d 43 2a 65 2d 41 |A*e+C*c:z%=C*e-A| 0000a8a0 2a 63 3a 63 3d b5 28 b2 28 6d 25 21 34 30 29 29 |*c:c=.(.(m%!40))| 0000a8b0 3a 65 3d 9b 28 b2 28 6d 25 21 34 30 29 29 3a 41 |:e=.(.(m%!40)):A| 0000a8c0 3d 78 25 3a 42 3d 79 25 3a 43 3d 7a 25 3a 78 25 |=x%:B=y%:C=z%:x%| 0000a8d0 3d 41 2a 65 2d 42 2a 63 3a 79 25 3d 41 2a 63 2b |=A*e-B*c:y%=A*c+| 0000a8e0 42 2a 65 0d 0a 38 4f 21 28 6d 25 2b 33 32 2b 70 |B*e..8O!(m%+32+p| 0000a8f0 63 25 2a 31 32 29 3d 78 25 2b 6d 25 21 38 3a 21 |c%*12)=x%+m%!8:!| 0000a900 28 6d 25 2b 33 36 2b 70 63 25 2a 31 32 29 3d 79 |(m%+36+pc%*12)=y| 0000a910 25 2b 6d 25 21 31 32 3a 21 28 6d 25 2b 34 30 2b |%+m%!12:!(m%+40+| 0000a920 70 63 25 2a 31 32 29 3d 7a 25 2b 6d 25 21 31 36 |pc%*12)=z%+m%!16| 0000a930 3a e1 0d 0a 3c c4 dd f2 74 28 78 2c 79 2c 7a 2c |:...<...t(x,y,z,| 0000a940 75 2c 76 2c 77 2c 44 2c 45 2c 47 2c 50 29 3a 63 |u,v,w,D,E,G,P):c| 0000a950 3d b5 28 b2 28 2d 44 29 29 3a 65 3d 9b 28 b2 28 |=.(.(-D)):e=.(.(| 0000a960 2d 44 29 29 3a 41 3d 78 3a 42 3d 79 3a 43 3d 7a |-D)):A=x:B=y:C=z| 0000a970 3a 79 3d 42 2a 65 2d 43 2a 63 3a 7a 3d 42 2a 63 |:y=B*e-C*c:z=B*c| 0000a980 2b 43 2a 65 3a 63 3d b5 28 b2 28 2d 47 29 29 3a |+C*e:c=.(.(-G)):| 0000a990 65 3d 9b 28 b2 28 2d 47 29 29 3a 41 3d 78 3a 42 |e=.(.(-G)):A=x:B| 0000a9a0 3d 79 3a 43 3d 7a 3a 78 3d 41 2a 65 2b 43 2a 63 |=y:C=z:x=A*e+C*c| 0000a9b0 3a 7a 3d 43 2a 65 2d 41 2a 63 3a 63 3d b5 28 b2 |:z=C*e-A*c:c=.(.| 0000a9c0 28 2d 45 29 29 3a 65 3d 9b 28 b2 28 2d 45 29 29 |(-E)):e=.(.(-E))| 0000a9d0 3a 41 3d 78 3a 42 3d 79 3a 43 3d 7a 3a 78 3d 41 |:A=x:B=y:C=z:x=A| 0000a9e0 2a 65 2d 42 2a 63 3a 79 3d 41 2a 63 2b 42 2a 65 |*e-B*c:y=A*c+B*e| 0000a9f0 3a e7 50 3d 31 8c 0d 0a 46 29 63 25 21 75 3d 78 |:.P=1...F)c%!u=x| 0000aa00 2b 63 25 21 38 3a 63 25 21 76 3d 79 2b 63 25 21 |+c%!8:c%!v=y+c%!| 0000aa10 31 32 3a 63 25 21 77 3d 7a 2b 63 25 21 31 36 0d |12:c%!w=z+c%!16.| 0000aa20 0a 4a 2c cc 3a 63 25 21 75 3d 78 2b 63 25 21 32 |.J,.:c%!u=x+c%!2| 0000aa30 30 3a 63 25 21 76 3d 79 2b 63 25 21 32 34 3a 63 |0:c%!v=y+c%!24:c| 0000aa40 25 21 77 3d 7a 2b 63 25 21 32 38 0d 0a 4e 05 cd |%!w=z+c%!28..N..| 0000aa50 0d 0a 4e 05 e1 0d 0a 4f c4 dd f2 78 28 78 2c 79 |..N....O...x(x,y| 0000aa60 2c 7a 2c 75 2c 76 2c 77 2c 44 2c 45 2c 47 2c 50 |,z,u,v,w,D,E,G,P| 0000aa70 29 3a 63 3d b5 28 b2 28 2d 45 29 29 3a 65 3d 9b |):c=.(.(-E)):e=.| 0000aa80 28 b2 28 2d 45 29 29 3a 41 3d 78 3a 42 3d 79 3a |(.(-E)):A=x:B=y:| 0000aa90 43 3d 7a 3a 78 3d 41 2a 65 2d 42 2a 63 3a 79 3d |C=z:x=A*e-B*c:y=| 0000aaa0 41 2a 63 2b 42 2a 65 3a 63 3d b5 28 b2 28 2d 47 |A*c+B*e:c=.(.(-G| 0000aab0 29 29 3a 65 3d 9b 28 b2 28 2d 47 29 29 3a 41 3d |)):e=.(.(-G)):A=| 0000aac0 78 3a 42 3d 79 3a 43 3d 7a 3a 78 3d 41 2a 65 2b |x:B=y:C=z:x=A*e+| 0000aad0 43 2a 63 3a 7a 3d 43 2a 65 2d 41 2a 63 3a 63 3d |C*c:z=C*e-A*c:c=| 0000aae0 b5 28 b2 28 2d 44 29 29 3a 65 3d 9b 28 b2 28 2d |.(.(-D)):e=.(.(-| 0000aaf0 44 29 29 3a 41 3d 78 3a 42 3d 79 3a 43 3d 7a 3a |D)):A=x:B=y:C=z:| 0000ab00 79 3d 42 2a 65 2d 43 2a 63 3a 7a 3d 42 2a 63 2b |y=B*e-C*c:z=B*c+| 0000ab10 43 2a 65 3a e7 50 3d 31 8c 0d 0a 58 29 63 25 21 |C*e:.P=1...X)c%!| 0000ab20 75 3d 78 2b 63 25 21 38 3a 63 25 21 76 3d 79 2b |u=x+c%!8:c%!v=y+| 0000ab30 63 25 21 31 32 3a 63 25 21 77 3d 7a 2b 63 25 21 |c%!12:c%!w=z+c%!| 0000ab40 31 36 0d 0a 5c 2c cc 3a 63 25 21 75 3d 78 2b 63 |16..\,.:c%!u=x+c| 0000ab50 25 21 32 30 3a 63 25 21 76 3d 79 2b 63 25 21 32 |%!20:c%!v=y+c%!2| 0000ab60 34 3a 63 25 21 77 3d 7a 2b 63 25 21 32 38 0d 0a |4:c%!w=z+c%!28..| 0000ab70 60 05 cd 0d 0a 60 05 e1 0d 0a 61 c4 dd f2 79 28 |`....`....a...y(| 0000ab80 78 2c 79 2c 7a 2c 75 2c 76 2c 77 2c 44 2c 45 2c |x,y,z,u,v,w,D,E,| 0000ab90 47 2c 50 29 3a 63 3d b5 28 b2 28 2d 45 29 29 3a |G,P):c=.(.(-E)):| 0000aba0 65 3d 9b 28 b2 28 2d 45 29 29 3a 41 3d 78 3a 42 |e=.(.(-E)):A=x:B| 0000abb0 3d 79 3a 43 3d 7a 3a 78 3d 41 2a 65 2d 42 2a 63 |=y:C=z:x=A*e-B*c| 0000abc0 3a 79 3d 41 2a 63 2b 42 2a 65 3a 63 3d b5 28 b2 |:y=A*c+B*e:c=.(.| 0000abd0 28 2d 44 29 29 3a 65 3d 9b 28 b2 28 2d 44 29 29 |(-D)):e=.(.(-D))| 0000abe0 3a 41 3d 78 3a 42 3d 79 3a 43 3d 7a 3a 79 3d 42 |:A=x:B=y:C=z:y=B| 0000abf0 2a 65 2d 43 2a 63 3a 7a 3d 42 2a 63 2b 43 2a 65 |*e-C*c:z=B*c+C*e| 0000ac00 3a 63 3d b5 28 b2 28 2d 47 29 29 3a 65 3d 9b 28 |:c=.(.(-G)):e=.(| 0000ac10 b2 28 2d 47 29 29 3a 41 3d 78 3a 42 3d 79 3a 43 |.(-G)):A=x:B=y:C| 0000ac20 3d 7a 3a 78 3d 41 2a 65 2b 43 2a 63 3a 7a 3d 43 |=z:x=A*e+C*c:z=C| 0000ac30 2a 65 2d 41 2a 63 3a e7 50 3d 31 8c 0d 0a 6a 29 |*e-A*c:.P=1...j)| 0000ac40 63 25 21 75 3d 78 2b 63 25 21 38 3a 63 25 21 76 |c%!u=x+c%!8:c%!v| 0000ac50 3d 79 2b 63 25 21 31 32 3a 63 25 21 77 3d 7a 2b |=y+c%!12:c%!w=z+| 0000ac60 63 25 21 31 36 0d 0a 6e 2c cc 3a 63 25 21 75 3d |c%!16..n,.:c%!u=| 0000ac70 78 2b 63 25 21 32 30 3a 63 25 21 76 3d 79 2b 63 |x+c%!20:c%!v=y+c| 0000ac80 25 21 32 34 3a 63 25 21 77 3d 7a 2b 63 25 21 32 |%!24:c%!w=z+c%!2| 0000ac90 38 0d 0a 72 05 cd 0d 0a 72 05 e1 0d 0a 73 2b dd |8..r....r....s+.| 0000aca0 f2 67 3a ea 73 25 3a 73 25 3d 30 3a e7 41 61 25 |.g:.s%:s%=0:.Aa%| 0000acb0 3e 31 30 30 30 8c 73 25 3d 41 61 25 3a 41 61 25 |>1000.s%=Aa%:Aa%| 0000acc0 2d 3d 31 30 30 30 0d 0a 77 2b 63 25 3d 78 61 25 |-=1000..w+c%=xa%| 0000acd0 2b 48 25 2d 34 3a f2 64 28 28 65 25 28 31 29 82 |+H%-4:.d((e%(1).| 0000ace0 65 25 28 35 29 29 2b 34 38 29 3a c8 8e 77 61 25 |e%(5))+48):..wa%| 0000acf0 ca 0d 0a 7a 30 c9 31 3a f2 61 28 34 2c 63 25 21 |...z0.1:.a(4,c%!| 0000ad00 38 2c 63 25 21 31 32 2c 63 25 21 31 36 29 3a f0 |8,c%!12,c%!16):.| 0000ad10 31 34 35 2c 28 63 25 21 32 30 29 2a 61 2f 38 2c |145,(c%!20)*a/8,| 0000ad20 30 0d 0a 7e 1f c9 32 3a ea 68 61 2c 69 61 2c 6c |0..~..2:.ha,ia,l| 0000ad30 2c 4e 2c 48 2c 49 2c 4a 3a e7 42 61 25 3d 31 8c |,N,H,I,J:.Ba%=1.| 0000ad40 0d 0a 80 32 f2 61 28 34 2c 63 25 21 38 2c 63 25 |...2.a(4,c%!8,c%| 0000ad50 21 31 32 2c 63 25 21 31 36 29 3a f2 61 28 35 2c |!12,c%!16):.a(5,| 0000ad60 63 25 21 32 30 2c 63 25 21 32 34 2c 63 25 21 32 |c%!20,c%!24,c%!2| 0000ad70 38 29 0d 0a 83 05 cd 0d 0a 83 0b e7 42 61 25 3d |8)..........Ba%=| 0000ad80 32 8c 0d 0a 84 ba f2 5a 28 63 25 2c 32 29 3a f2 |2......Z(c%,2):.| 0000ad90 61 28 34 2c 63 25 21 31 32 34 2c 63 25 21 31 32 |a(4,c%!124,c%!12| 0000ada0 38 2c 63 25 21 31 33 32 29 3a e3 4e 3d 31 b8 38 |8,c%!132):.N=1.8| 0000adb0 3a f2 61 28 35 2c 21 28 63 25 2b 4e 2a 31 32 2b |:.a(5,!(c%+N*12+| 0000adc0 32 38 29 2c 21 28 63 25 2b 4e 2a 31 32 2b 33 32 |28),!(c%+N*12+32| 0000add0 29 2c 21 28 63 25 2b 4e 2a 31 32 2b 33 36 29 29 |),!(c%+N*12+36))| 0000ade0 3a ed 3a e3 4e 3d 31 b8 38 3a f2 61 28 34 2c 21 |:.:.N=1.8:.a(4,!| 0000adf0 28 63 25 2b 4e 2a 31 32 2b 32 38 29 2c 21 28 63 |(c%+N*12+28),!(c| 0000ae00 25 2b 4e 2a 31 32 2b 33 32 29 2c 21 28 63 25 2b |%+N*12+32),!(c%+| 0000ae10 4e 2a 31 32 2b 33 36 29 29 3a f2 61 28 35 2c 21 |N*12+36)):.a(5,!| 0000ae20 28 63 25 2b 32 30 29 2c 21 28 63 25 2b 32 34 29 |(c%+20),!(c%+24)| 0000ae30 2c 21 28 63 25 2b 32 38 29 29 3a ed 0d 0a 8e 05 |,!(c%+28)):.....| 0000ae40 cd 0d 0a 8e 0b e7 42 61 25 3d 33 8c 0d 0a 8f be |......Ba%=3.....| 0000ae50 f2 5a 28 63 25 2c 33 29 3a f2 61 28 34 2c 63 25 |.Z(c%,3):.a(4,c%| 0000ae60 21 31 32 34 2c 63 25 21 31 32 38 2c 63 25 21 31 |!124,c%!128,c%!1| 0000ae70 33 32 29 3a e3 4e 3d 31 b8 38 3a f2 61 28 35 2c |32):.N=1.8:.a(5,| 0000ae80 21 28 63 25 2b 4e 2a 31 32 2b 32 38 29 2c 21 28 |!(c%+N*12+28),!(| 0000ae90 63 25 2b 4e 2a 31 32 2b 33 32 29 2c 21 28 63 25 |c%+N*12+32),!(c%| 0000aea0 2b 4e 2a 31 32 2b 33 36 29 29 3a ed 3a f2 61 28 |+N*12+36)):.:.a(| 0000aeb0 34 2c 63 25 21 32 32 30 2c 63 25 21 32 32 34 2c |4,c%!220,c%!224,| 0000aec0 63 25 21 32 32 38 29 3a e3 4e 3d 31 b8 38 3a f2 |c%!228):.N=1.8:.| 0000aed0 61 28 35 2c 21 28 63 25 2b 4e 2a 31 32 2b 31 32 |a(5,!(c%+N*12+12| 0000aee0 34 29 2c 21 28 63 25 2b 4e 2a 31 32 2b 31 32 38 |4),!(c%+N*12+128| 0000aef0 29 2c 21 28 63 25 2b 4e 2a 31 32 2b 31 33 32 29 |),!(c%+N*12+132)| 0000af00 29 3a ed 3a e3 4e 3d 31 b8 38 0d 0a 99 68 f2 61 |):.:.N=1.8...h.a| 0000af10 28 34 2c 21 28 63 25 2b 4e 2a 31 32 2b 32 38 29 |(4,!(c%+N*12+28)| 0000af20 2c 21 28 63 25 2b 4e 2a 31 32 2b 33 32 29 2c 21 |,!(c%+N*12+32),!| 0000af30 28 63 25 2b 4e 2a 31 32 2b 33 36 29 29 3a f2 61 |(c%+N*12+36)):.a| 0000af40 28 35 2c 21 28 63 25 2b 4e 2a 31 32 2b 31 32 34 |(5,!(c%+N*12+124| 0000af50 29 2c 21 28 63 25 2b 4e 2a 31 32 2b 31 32 38 29 |),!(c%+N*12+128)| 0000af60 2c 21 28 63 25 2b 4e 2a 31 32 2b 31 33 32 29 29 |,!(c%+N*12+132))| 0000af70 3a ed 0d 0a 9d 05 cd 0d 0a 9d 1f c9 33 3a ea 68 |:...........3:.h| 0000af80 61 2c 69 61 2c 6c 2c 4e 2c 48 2c 49 2c 4a 3a e7 |a,ia,l,N,H,I,J:.| 0000af90 42 61 25 3d 31 8c 0d 0a a0 32 f2 61 28 34 2c 63 |Ba%=1....2.a(4,c| 0000afa0 25 21 38 2c 63 25 21 31 32 2c 63 25 21 31 36 29 |%!8,c%!12,c%!16)| 0000afb0 3a f2 61 28 35 2c 63 25 21 32 30 2c 63 25 21 32 |:.a(5,c%!20,c%!2| 0000afc0 34 2c 63 25 21 32 38 29 0d 0a a3 b2 cc 3a f2 76 |4,c%!28).....:.v| 0000afd0 61 28 63 25 29 3a 48 3d 63 25 21 32 30 2d 63 25 |a(c%):H=c%!20-c%| 0000afe0 21 38 3a 49 3d 63 25 21 32 34 2d 63 25 21 31 32 |!8:I=c%!24-c%!12| 0000aff0 3a 4a 3d 63 25 21 32 38 2d 63 25 21 31 36 3a f2 |:J=c%!28-c%!16:.| 0000b000 61 28 34 2c 63 25 21 31 32 30 2c 63 25 21 31 32 |a(4,c%!120,c%!12| 0000b010 34 2c 63 25 21 31 32 38 29 3a e3 4e 3d 31 b8 38 |4,c%!128):.N=1.8| 0000b020 3a f2 61 28 35 2c 21 28 63 25 2b 4e 2a 31 32 2b |:.a(5,!(c%+N*12+| 0000b030 32 34 29 2c 21 28 63 25 2b 4e 2a 31 32 2b 32 38 |24),!(c%+N*12+28| 0000b040 29 2c 21 28 63 25 2b 4e 2a 31 32 2b 33 32 29 29 |),!(c%+N*12+32))| 0000b050 3a ed 3a f2 61 28 34 2c 63 25 21 31 32 30 2b 48 |:.:.a(4,c%!120+H| 0000b060 2c 63 25 21 31 32 34 2b 49 2c 63 25 21 31 32 38 |,c%!124+I,c%!128| 0000b070 2b 4a 29 3a e3 4e 3d 31 b8 38 0d 0a ab aa f2 61 |+J):.N=1.8.....a| 0000b080 28 35 2c 21 28 63 25 2b 4e 2a 31 32 2b 32 34 29 |(5,!(c%+N*12+24)| 0000b090 2b 48 2c 21 28 63 25 2b 4e 2a 31 32 2b 32 38 29 |+H,!(c%+N*12+28)| 0000b0a0 2b 49 2c 21 28 63 25 2b 4e 2a 31 32 2b 33 32 29 |+I,!(c%+N*12+32)| 0000b0b0 2b 4a 29 3a ed 3a e3 4e 3d 31 b8 38 3a f2 61 28 |+J):.:.N=1.8:.a(| 0000b0c0 34 2c 21 28 63 25 2b 4e 2a 31 32 2b 32 34 29 2c |4,!(c%+N*12+24),| 0000b0d0 21 28 63 25 2b 4e 2a 31 32 2b 32 38 29 2c 21 28 |!(c%+N*12+28),!(| 0000b0e0 63 25 2b 4e 2a 31 32 2b 33 32 29 29 3a f2 61 28 |c%+N*12+32)):.a(| 0000b0f0 35 2c 21 28 63 25 2b 4e 2a 31 32 2b 32 34 29 2b |5,!(c%+N*12+24)+| 0000b100 48 2c 21 28 63 25 2b 4e 2a 31 32 2b 32 38 29 2b |H,!(c%+N*12+28)+| 0000b110 49 2c 21 28 63 25 2b 4e 2a 31 32 2b 33 32 29 2b |I,!(c%+N*12+32)+| 0000b120 4a 29 3a ed 0d 0a b2 05 cd 0d 0a b2 c3 c9 34 2c |J):...........4,| 0000b130 33 32 3a ea 78 2c 79 2c 7a 2c 66 2c 67 2c 68 3a |32:.x,y,z,f,g,h:| 0000b140 78 3d 63 25 21 38 3a 79 3d 63 25 21 31 32 3a 7a |x=c%!8:y=c%!12:z| 0000b150 3d 63 25 21 31 36 3a 66 3d 63 25 21 32 30 3a 67 |=c%!16:f=c%!20:g| 0000b160 3d 63 25 21 32 34 3a 68 3d 63 25 21 32 38 3a f2 |=c%!24:h=c%!28:.| 0000b170 61 28 34 2c 78 2d 66 2c 79 2d 67 2c 7a 2d 68 29 |a(4,x-f,y-g,z-h)| 0000b180 3a f2 61 28 35 2c 78 2d 66 2c 79 2b 67 2c 7a 2d |:.a(5,x-f,y+g,z-| 0000b190 68 29 3a f2 61 28 35 2c 78 2b 66 2c 79 2b 67 2c |h):.a(5,x+f,y+g,| 0000b1a0 7a 2d 68 29 3a f2 61 28 35 2c 78 2b 66 2c 79 2d |z-h):.a(5,x+f,y-| 0000b1b0 67 2c 7a 2d 68 29 3a f2 61 28 35 2c 78 2d 66 2c |g,z-h):.a(5,x-f,| 0000b1c0 79 2d 67 2c 7a 2d 68 29 3a f2 61 28 34 2c 78 2d |y-g,z-h):.a(4,x-| 0000b1d0 66 2c 79 2d 67 2c 7a 2d 68 29 3a f2 61 28 35 2c |f,y-g,z-h):.a(5,| 0000b1e0 78 2d 66 2c 79 2d 67 2c 7a 2b 68 29 0d 0a b9 93 |x-f,y-g,z+h)....| 0000b1f0 f2 61 28 35 2c 78 2b 66 2c 79 2d 67 2c 7a 2b 68 |.a(5,x+f,y-g,z+h| 0000b200 29 3a f2 61 28 35 2c 78 2b 66 2c 79 2d 67 2c 7a |):.a(5,x+f,y-g,z| 0000b210 2d 68 29 3a f2 61 28 35 2c 78 2d 66 2c 79 2d 67 |-h):.a(5,x-f,y-g| 0000b220 2c 7a 2d 68 29 3a f2 61 28 34 2c 78 2b 66 2c 79 |,z-h):.a(4,x+f,y| 0000b230 2d 67 2c 7a 2d 68 29 3a f2 61 28 35 2c 78 2b 66 |-g,z-h):.a(5,x+f| 0000b240 2c 79 2d 67 2c 7a 2b 68 29 3a f2 61 28 35 2c 78 |,y-g,z+h):.a(5,x| 0000b250 2b 66 2c 79 2b 67 2c 7a 2b 68 29 3a f2 61 28 35 |+f,y+g,z+h):.a(5| 0000b260 2c 78 2b 66 2c 79 2b 67 2c 7a 2d 68 29 3a f2 61 |,x+f,y+g,z-h):.a| 0000b270 28 35 2c 78 2b 66 2c 79 2d 67 2c 7a 2d 68 29 0d |(5,x+f,y-g,z-h).| 0000b280 0a bf 25 c9 35 2c 36 3a ea 46 2c 50 3a ef 32 33 |..%.5,6:.F,P:.23| 0000b290 2c 36 2c 32 34 30 2c 30 2c 30 2c 30 2c 30 2c 30 |,6,240,0,0,0,0,0| 0000b2a0 2c 30 2c 30 0d 0a c1 13 e7 77 61 25 3d 35 8c 50 |,0,0.....wa%=5.P| 0000b2b0 3d 32 31 8b 50 3d 35 0d 0a c2 4c f2 61 28 34 2c |=21.P=5...L.a(4,| 0000b2c0 63 25 21 34 34 2c 63 25 21 34 38 2c 63 25 21 35 |c%!44,c%!48,c%!5| 0000b2d0 32 29 3a e3 46 3d 31 b8 34 3a f2 61 28 50 2c 63 |2):.F=1.4:.a(P,c| 0000b2e0 25 21 28 46 2a 31 32 2d 34 29 2c 63 25 21 28 46 |%!(F*12-4),c%!(F| 0000b2f0 2a 31 32 29 2c 63 25 21 28 46 2a 31 32 2b 34 29 |*12),c%!(F*12+4)| 0000b300 29 3a ed 0d 0a c5 54 c9 37 3a f2 61 28 34 2c 63 |):....T.7:.a(4,c| 0000b310 25 21 38 2c 63 25 21 31 32 2c 63 25 21 31 36 29 |%!8,c%!12,c%!16)| 0000b320 3a f2 61 28 35 2c 63 25 21 32 30 2c 63 25 21 32 |:.a(5,c%!20,c%!2| 0000b330 34 2c 63 25 21 32 38 29 3a e7 41 61 25 3e 32 8c |4,c%!28):.Aa%>2.| 0000b340 f2 61 28 35 2c 63 25 21 33 32 2c 63 25 21 33 36 |.a(5,c%!32,c%!36| 0000b350 2c 63 25 21 34 30 29 0d 0a c8 21 e7 41 61 25 3e |,c%!40)...!.Aa%>| 0000b360 32 8c f2 61 28 35 2c 63 25 21 38 2c 63 25 21 31 |2..a(5,c%!8,c%!1| 0000b370 32 2c 63 25 21 31 36 29 0d 0a c9 54 c9 38 3a f2 |2,c%!16)...T.8:.| 0000b380 61 28 34 2c 63 25 21 31 32 2c 63 25 21 31 36 2c |a(4,c%!12,c%!16,| 0000b390 63 25 21 32 30 29 3a e3 4e 3d 32 b8 41 61 25 3a |c%!20):.N=2.Aa%:| 0000b3a0 f2 61 28 35 2c 21 28 63 25 2b 4e 2a 31 32 29 2c |.a(5,!(c%+N*12),| 0000b3b0 21 28 63 25 2b 4e 2a 31 32 2b 34 29 2c 21 28 63 |!(c%+N*12+4),!(c| 0000b3c0 25 2b 4e 2a 31 32 2b 38 29 29 3a ed 0d 0a cf d1 |%+N*12+8)):.....| 0000b3d0 c9 31 36 3a 78 25 3d 63 25 28 60 25 2b 31 2c 31 |.16:x%=c%(`%+1,1| 0000b3e0 29 3a 79 25 3d 63 25 28 60 25 2b 31 2c 32 29 3a |):y%=c%(`%+1,2):| 0000b3f0 7a 25 3d 63 25 28 60 25 2b 31 2c 33 29 3a 69 25 |z%=c%(`%+1,3):i%| 0000b400 3d 63 25 28 60 25 2b 31 2c 34 29 2a 32 3a f2 61 |=c%(`%+1,4)*2:.a| 0000b410 28 34 2c 78 25 2d 69 25 2c 79 25 2c 7a 25 29 3a |(4,x%-i%,y%,z%):| 0000b420 f2 61 28 35 2c 78 25 2b 69 25 2c 79 25 2c 7a 25 |.a(5,x%+i%,y%,z%| 0000b430 29 3a f2 61 28 34 2c 78 25 2c 79 25 2d 69 25 2c |):.a(4,x%,y%-i%,| 0000b440 7a 25 29 3a f2 61 28 35 2c 78 25 2c 79 25 2b 69 |z%):.a(5,x%,y%+i| 0000b450 25 2c 7a 25 29 3a f2 61 28 34 2c 78 25 2c 79 25 |%,z%):.a(4,x%,y%| 0000b460 2c 7a 25 2d 69 25 29 3a f2 61 28 35 2c 78 25 2c |,z%-i%):.a(5,x%,| 0000b470 79 25 2c 7a 25 2b 69 25 29 3a f2 61 28 34 2c 78 |y%,z%+i%):.a(4,x| 0000b480 25 2d 69 25 2c 79 25 2c 7a 25 29 3a f2 61 28 35 |%-i%,y%,z%):.a(5| 0000b490 2c 78 25 2c 79 25 2b 69 25 2c 7a 25 29 0d 0a d5 |,x%,y%+i%,z%)...| 0000b4a0 ed f2 61 28 35 2c 78 25 2b 69 25 2c 79 25 2c 7a |..a(5,x%+i%,y%,z| 0000b4b0 25 29 3a f2 61 28 35 2c 78 25 2c 79 25 2d 69 25 |%):.a(5,x%,y%-i%| 0000b4c0 2c 7a 25 29 3a f2 61 28 35 2c 78 25 2d 69 25 2c |,z%):.a(5,x%-i%,| 0000b4d0 79 25 2c 7a 25 29 3a f2 61 28 34 2c 78 25 2d 69 |y%,z%):.a(4,x%-i| 0000b4e0 25 2c 79 25 2c 7a 25 29 3a f2 61 28 35 2c 78 25 |%,y%,z%):.a(5,x%| 0000b4f0 2c 79 25 2c 7a 25 2b 69 25 29 3a f2 61 28 35 2c |,y%,z%+i%):.a(5,| 0000b500 78 25 2b 69 25 2c 79 25 2c 7a 25 29 3a f2 61 28 |x%+i%,y%,z%):.a(| 0000b510 35 2c 78 25 2c 79 25 2c 7a 25 2d 69 25 29 3a f2 |5,x%,y%,z%-i%):.| 0000b520 61 28 35 2c 78 25 2d 69 25 2c 79 25 2c 7a 25 29 |a(5,x%-i%,y%,z%)| 0000b530 3a f2 61 28 34 2c 78 25 2c 79 25 2c 7a 25 2d 69 |:.a(4,x%,y%,z%-i| 0000b540 25 29 3a f2 61 28 35 2c 78 25 2c 79 25 2b 69 25 |%):.a(5,x%,y%+i%| 0000b550 2c 7a 25 29 3a f2 61 28 35 2c 78 25 2c 79 25 2c |,z%):.a(5,x%,y%,| 0000b560 7a 25 2b 69 25 29 3a f2 61 28 35 2c 78 25 2c 79 |z%+i%):.a(5,x%,y| 0000b570 25 2d 69 25 2c 7a 25 29 3a f2 61 28 35 2c 78 25 |%-i%,z%):.a(5,x%| 0000b580 2c 79 25 2c 7a 25 2d 69 25 29 0d 0a dd 1e c9 32 |,y%,z%-i%).....2| 0000b590 34 3a ea 46 2c 50 3a e7 63 25 21 33 32 2d 63 25 |4:.F,P:.c%!32-c%| 0000b5a0 21 38 3d 30 8c 50 3d 31 0d 0a df 16 e7 63 25 21 |!8=0.P=1.....c%!| 0000b5b0 33 36 2d 63 25 21 31 32 3d 30 8c 50 3d 30 0d 0a |36-c%!12=0.P=0..| 0000b5c0 e0 16 e7 63 25 21 34 30 2d 63 25 21 31 36 3d 30 |...c%!40-c%!16=0| 0000b5d0 8c 50 3d 32 0d 0a e1 0e e7 57 25 3d 61 25 28 50 |.P=2.....W%=a%(P| 0000b5e0 29 8c 0d 0a e2 4c f2 61 28 34 2c 63 25 21 34 34 |)....L.a(4,c%!44| 0000b5f0 2c 63 25 21 34 38 2c 63 25 21 35 32 29 3a e3 46 |,c%!48,c%!52):.F| 0000b600 3d 31 b8 34 3a f2 61 28 35 2c 63 25 21 28 46 2a |=1.4:.a(5,c%!(F*| 0000b610 31 32 2d 34 29 2c 63 25 21 28 46 2a 31 32 29 2c |12-4),c%!(F*12),| 0000b620 63 25 21 28 46 2a 31 32 2b 34 29 29 3a ed 0d 0a |c%!(F*12+4)):...| 0000b630 e5 51 cc 3a f2 61 28 34 2c 63 25 21 38 2c 63 25 |.Q.:.a(4,c%!8,c%| 0000b640 21 31 32 2c 63 25 21 31 36 29 3a e3 46 3d 31 b8 |!12,c%!16):.F=1.| 0000b650 32 3a f2 61 28 35 2c 63 25 21 28 46 2a 31 32 2b |2:.a(5,c%!(F*12+| 0000b660 38 29 2c 63 25 21 28 46 2a 31 32 2b 31 32 29 2c |8),c%!(F*12+12),| 0000b670 63 25 21 28 46 2a 31 32 2b 31 36 29 29 3a ed 0d |c%!(F*12+16)):..| 0000b680 0a e8 05 cd 0d 0a e8 2b e7 42 61 25 3d 32 80 28 |.......+.Ba%=2.(| 0000b690 63 25 21 35 36 3c 3e 6c 25 84 63 25 21 36 30 3c |c%!56<>l%.c%!60<| 0000b6a0 3e 6e 25 84 63 25 21 36 34 3c 3e 71 25 29 8c 0d |>n%.c%!64<>q%)..| 0000b6b0 0a e9 0e e7 57 25 3d 61 25 28 50 29 8c 0d 0a ea |....W%=a%(P)....| 0000b6c0 4c e3 46 3d 31 b8 34 3a f2 61 28 34 2c 63 25 21 |L.F=1.4:.a(4,c%!| 0000b6d0 35 36 2c 63 25 21 36 30 2c 63 25 21 36 34 29 3a |56,c%!60,c%!64):| 0000b6e0 f2 61 28 35 2c 63 25 21 28 46 2a 31 32 2d 34 29 |.a(5,c%!(F*12-4)| 0000b6f0 2c 63 25 21 28 46 2a 31 32 29 2c 63 25 21 28 46 |,c%!(F*12),c%!(F| 0000b700 2a 31 32 2b 34 29 29 3a ed 0d 0a ef 64 cc 3a f2 |*12+4)):....d.:.| 0000b710 61 28 34 2c 63 25 21 35 36 2c 63 25 21 36 30 2c |a(4,c%!56,c%!60,| 0000b720 63 25 21 36 34 29 3a f2 61 28 35 2c 63 25 21 38 |c%!64):.a(5,c%!8| 0000b730 2c 63 25 21 31 32 2c 63 25 21 31 36 29 3a f2 61 |,c%!12,c%!16):.a| 0000b740 28 34 2c 63 25 21 35 36 2c 63 25 21 36 30 2c 63 |(4,c%!56,c%!60,c| 0000b750 25 21 36 34 29 3a f2 61 28 35 2c 63 25 21 33 32 |%!64):.a(5,c%!32| 0000b760 2c 63 25 21 33 36 2c 63 25 21 34 30 29 0d 0a f2 |,c%!36,c%!40)...| 0000b770 05 cd 0d 0a f2 05 cd 0d 0a f3 16 c9 32 35 3a e7 |............25:.| 0000b780 57 25 3d 61 25 28 63 25 21 33 36 29 8c 0d 0a f5 |W%=a%(c%!36)....| 0000b790 2d f2 61 28 34 2c 63 25 21 38 2c 63 25 21 31 32 |-.a(4,c%!8,c%!12| 0000b7a0 2c 63 25 21 31 36 29 3a f0 31 34 35 2c 28 63 25 |,c%!16):.145,(c%| 0000b7b0 21 33 32 29 2a 61 2f 38 2c 30 0d 0a f8 05 cd 0d |!32)*a/8,0......| 0000b7c0 0a f8 05 cb 0d 0a f9 13 e7 73 25 3e 31 30 30 30 |.........s%>1000| 0000b7d0 8c 41 61 25 3d 73 25 0d 0a fa 05 e1 0d 0a fb 23 |.Aa%=s%........#| 0000b7e0 dd f2 47 3a f2 64 28 28 65 25 28 31 29 82 65 25 |..G:.d((e%(1).e%| 0000b7f0 28 35 29 29 2b 34 38 29 3a c8 8e 77 61 25 ca 0d |(5))+48):..wa%..| 0000b800 0a ff 31 c9 31 34 3a f2 61 28 34 2c 6c 25 2c 6e |..1.14:.a(4,l%,n| 0000b810 25 2c 71 25 29 3a f2 61 28 35 2c 74 25 28 39 33 |%,q%):.a(5,t%(93| 0000b820 29 2c 74 25 28 39 34 29 2c 74 25 28 39 35 29 29 |),t%(94),t%(95))| 0000b830 0d 0b 02 5b c9 33 30 3a f2 61 28 34 2c 6c 25 2c |...[.30:.a(4,l%,| 0000b840 6e 25 2c 71 25 29 3a f2 61 28 35 2c 74 25 28 38 |n%,q%):.a(5,t%(8| 0000b850 33 29 2c 74 25 28 38 34 29 2c 74 25 28 38 35 29 |3),t%(84),t%(85)| 0000b860 29 3a f2 61 28 34 2c 6c 25 2c 6e 25 2c 71 25 29 |):.a(4,l%,n%,q%)| 0000b870 3a f2 61 28 35 2c 74 25 28 39 33 29 2c 74 25 28 |:.a(5,t%(93),t%(| 0000b880 39 34 29 2c 74 25 28 39 35 29 29 0d 0b 05 05 cb |94),t%(95)).....| 0000b890 0d 0b 05 05 e1 0d 0b 06 a7 dd f2 6f 61 3a ea 71 |...........oa:.q| 0000b8a0 63 25 2c 72 63 25 2c 73 63 25 3a 74 25 28 39 33 |c%,rc%,sc%:t%(93| 0000b8b0 29 2d 3d 6c 25 3a 74 25 28 39 34 29 2d 3d 6e 25 |)-=l%:t%(94)-=n%| 0000b8c0 3a 74 25 28 39 35 29 2d 3d 71 25 3a 74 25 28 38 |:t%(95)-=q%:t%(8| 0000b8d0 33 29 2d 3d 6c 25 3a 74 25 28 38 34 29 2d 3d 6e |3)-=l%:t%(84)-=n| 0000b8e0 25 3a 74 25 28 38 35 29 2d 3d 71 25 3a 71 63 25 |%:t%(85)-=q%:qc%| 0000b8f0 3d 28 74 25 28 39 33 29 3c 3e 74 25 28 38 33 29 |=(t%(93)<>t%(83)| 0000b900 29 3a 72 63 25 3d 28 74 25 28 39 34 29 3c 3e 74 |):rc%=(t%(94)<>t| 0000b910 25 28 38 34 29 29 3a 73 63 25 3d 28 74 25 28 39 |%(84)):sc%=(t%(9| 0000b920 35 29 3c 3e 74 25 28 38 35 29 29 3a e7 71 63 25 |5)<>t%(85)):.qc%| 0000b930 2b 72 63 25 2b 73 63 25 3d 30 8c e1 0d 0b 10 1e |+rc%+sc%=0......| 0000b940 e7 71 63 25 2b 72 63 25 2b 73 63 25 3d 2d 33 8c |.qc%+rc%+sc%=-3.| 0000b950 85 31 37 2c 61 24 28 32 34 29 0d 0b 11 58 c8 99 |.17,a$(24)...X..| 0000b960 22 48 6f 75 72 67 6c 61 73 73 5f 4f 6e 22 3a 4b |"Hourglass_On":K| 0000b970 61 25 3d 30 3a 4c 61 25 3d 30 3a 4d 61 25 3d 30 |a%=0:La%=0:Ma%=0| 0000b980 3a e7 74 25 28 38 30 29 3d 61 25 28 32 29 8c 4d |:.t%(80)=a%(2).M| 0000b990 61 25 3d a4 6a 28 74 25 28 39 33 29 2c 74 25 28 |a%=.j(t%(93),t%(| 0000b9a0 39 34 29 2c 74 25 28 38 33 29 2c 74 25 28 38 34 |94),t%(83),t%(84| 0000b9b0 29 29 0d 0b 14 35 e7 74 25 28 38 30 29 3d 61 25 |))...5.t%(80)=a%| 0000b9c0 28 30 29 8c 4c 61 25 3d a4 6a 28 74 25 28 38 33 |(0).La%=.j(t%(83| 0000b9d0 29 2c 74 25 28 38 35 29 2c 74 25 28 39 33 29 2c |),t%(85),t%(93),| 0000b9e0 74 25 28 39 35 29 29 0d 0b 15 35 e7 74 25 28 38 |t%(95))...5.t%(8| 0000b9f0 30 29 3d 61 25 28 31 29 8c 4b 61 25 3d a4 6a 28 |0)=a%(1).Ka%=.j(| 0000ba00 74 25 28 38 35 29 2c 74 25 28 38 34 29 2c 74 25 |t%(85),t%(84),t%| 0000ba10 28 39 35 29 2c 74 25 28 39 34 29 29 0d 0b 16 17 |(95),t%(94))....| 0000ba20 e3 4e 3d 31 b8 64 25 3a e7 4b 25 3f 4e 8c f2 48 |.N=1.d%:.K%?N..H| 0000ba30 28 4e 29 0d 0b 18 52 ed 3a c8 99 22 48 6f 75 72 |(N)...R.:.."Hour| 0000ba40 67 6c 61 73 73 5f 4f 66 66 22 3a f2 62 28 4a 61 |glass_Off":.b(Ja| 0000ba50 25 2c 31 31 2c c3 28 4b 61 25 29 29 3a f2 62 28 |%,11,.(Ka%)):.b(| 0000ba60 4a 61 25 2c 31 32 2c c3 28 4c 61 25 29 29 3a f2 |Ja%,12,.(La%)):.| 0000ba70 62 28 4a 61 25 2c 31 33 2c c3 28 4d 61 25 29 29 |b(Ja%,13,.(Ma%))| 0000ba80 3a f2 65 3a e1 0d 0b 1d 32 dd a4 6a 28 6a 61 2c |:.e:....2..j(ja,| 0000ba90 6b 61 2c 6c 61 2c 6d 61 29 3a ea 41 2c 4b 2c 4c |ka,la,ma):.A,K,L| 0000baa0 3a 41 3d b6 28 6a 61 5e 32 2b 6b 61 5e 32 29 3a |:A=.(ja^2+ka^2):| 0000bab0 e7 41 3d 30 8c 3d 30 0d 0b 21 1e 4b 3d 9d 28 98 |.A=0.=0..!.K=.(.| 0000bac0 28 6b 61 2f 41 29 29 3a e7 6a 61 3c 30 8c 4b 3d |(ka/A)):.ja<0.K=| 0000bad0 31 38 30 2d 4b 0d 0b 22 1a 41 3d b6 28 6c 61 5e |180-K..".A=.(la^| 0000bae0 32 2b 6d 61 5e 32 29 3a e7 41 3d 30 8c 3d 30 0d |2+ma^2):.A=0.=0.| 0000baf0 0b 23 1e 4c 3d 9d 28 98 28 6d 61 2f 41 29 29 3a |.#.L=.(.(ma/A)):| 0000bb00 e7 6c 61 3c 30 8c 4c 3d 31 38 30 2d 4c 0d 0b 24 |.la<0.L=180-L..$| 0000bb10 1a e7 28 4c 2d 4b 29 3c 30 8c 3d 33 36 30 2b 4c |..(L-K)<0.=360+L| 0000bb20 2d 4b 8b 3d 4c 2d 4b 0d 0b 25 69 dd f2 43 61 3a |-K.=L-K..%i..Ca:| 0000bb30 ea 57 2c 65 25 2c 66 24 2c 63 24 2c 70 24 2c 51 |.W,e%,f$,c$,p$,Q| 0000bb40 3a e3 57 3d 31 b8 bb 28 a4 62 28 4f 61 25 2c 34 |:.W=1..(.b(Oa%,4| 0000bb50 29 29 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f |)):.."Hourglass_| 0000bb60 4f 6e 22 3a 65 25 3d 8e 28 6b 24 29 3a 66 24 3d |On":e%=.(k$):f$=| 0000bb70 a4 6b 28 65 25 29 3a c8 95 66 24 3c 3e 22 53 74 |.k(e%):..f$<>"St| 0000bb80 6f 70 22 3a e7 a7 66 24 2c 22 20 22 29 3e 30 8c |op":..f$," ")>0.| 0000bb90 0d 0b 30 2c 63 24 3d c0 66 24 2c a7 66 24 2c 22 |..0,c$=.f$,.f$,"| 0000bba0 20 22 29 2d 31 29 3a 70 24 3d c2 66 24 2c a9 28 | ")-1):p$=.f$,.(| 0000bbb0 66 24 29 2d a9 28 63 24 29 2d 31 29 0d 0b 33 11 |f$)-.(c$)-1)..3.| 0000bbc0 cc 3a 63 24 3d 66 24 3a 70 24 3d 22 22 0d 0b 35 |.:c$=f$:p$=""..5| 0000bbd0 05 cd 0d 0b 35 09 c8 8e 63 24 ca 0d 0b 36 87 c9 |....5...c$...6..| 0000bbe0 22 52 6f 74 61 74 65 22 3a 4b 61 25 3d bb 28 c0 |"Rotate":Ka%=.(.| 0000bbf0 70 24 2c a7 70 24 2c 22 20 22 29 2d 31 29 29 3a |p$,.p$," ")-1)):| 0000bc00 70 24 3d c2 70 24 2c a9 28 70 24 29 2d a7 70 24 |p$=.p$,.(p$)-.p$| 0000bc10 2c 22 20 22 29 29 3a 4c 61 25 3d bb 28 c0 70 24 |," ")):La%=.(.p$| 0000bc20 2c a7 70 24 2c 22 20 22 29 2d 31 29 29 3a 70 24 |,.p$," ")-1)):p$| 0000bc30 3d c2 70 24 2c a9 28 70 24 29 2d a7 70 24 2c 22 |=.p$,.(p$)-.p$,"| 0000bc40 20 22 29 29 3a 4d 61 25 3d bb 28 70 24 29 3a e3 | ")):Ma%=.(p$):.| 0000bc50 51 3d 31 b8 64 25 3a e7 4b 25 3f 51 8c f2 48 28 |Q=1.d%:.K%?Q..H(| 0000bc60 51 29 0d 0b 3e 05 ed 0d 0b 40 1a c9 22 53 63 61 |Q)..>....@.."Sca| 0000bc70 6c 65 22 3a f2 60 28 bb 28 70 24 29 2f 31 30 30 |le":.`(.(p$)/100| 0000bc80 29 0d 0b 42 27 c9 22 53 65 6c 65 63 74 22 3a 4b |)..B'."Select":K| 0000bc90 25 3f 28 a4 65 28 70 24 29 29 3d 31 2d 4b 25 3f |%?(.e(p$))=1-K%?| 0000bca0 28 a4 65 28 70 24 29 29 0d 0b 44 0f c9 22 43 6f |(.e(p$))..D.."Co| 0000bcb0 70 79 22 3a f2 7a 61 0d 0b 45 86 c9 22 4d 6f 76 |py":.za..E.."Mov| 0000bcc0 65 22 3a 74 25 28 39 33 29 3d bb 28 c0 70 24 2c |e":t%(93)=.(.p$,| 0000bcd0 a7 70 24 2c 22 20 22 29 2d 31 29 29 2b 6c 25 3a |.p$," ")-1))+l%:| 0000bce0 70 24 3d c2 70 24 2c a9 28 70 24 29 2d a7 70 24 |p$=.p$,.(p$)-.p$| 0000bcf0 2c 22 20 22 29 29 3a 74 25 28 39 34 29 3d bb 28 |," ")):t%(94)=.(| 0000bd00 c0 70 24 2c a7 70 24 2c 22 20 22 29 2d 31 29 29 |.p$,.p$," ")-1))| 0000bd10 2b 6e 25 3a 70 24 3d c2 70 24 2c a9 28 70 24 29 |+n%:p$=.p$,.(p$)| 0000bd20 2d a7 70 24 2c 22 20 22 29 29 3a 74 25 28 39 35 |-.p$," ")):t%(95| 0000bd30 29 3d bb 28 70 24 29 2b 71 25 3a f2 59 0d 0b 4c |)=.(p$)+q%:.Y..L| 0000bd40 05 cb 0d 0b 4c 3b 66 24 3d a4 6b 28 65 25 29 3a |....L;f$=.k(e%):| 0000bd50 ce 3a d9 23 65 25 3a c8 99 22 48 6f 75 72 67 6c |.:.#e%:.."Hourgl| 0000bd60 61 73 73 5f 4f 66 66 22 3a ed 3a f2 6f 28 4f 61 |ass_Off":.:.o(Oa| 0000bd70 25 29 3a f2 69 3a f2 65 3a f2 68 3a e1 0d 0b 56 |%):.i:.e:.h:...V| 0000bd80 46 dd a4 6b 28 65 25 29 3a ea 73 24 2c 76 25 3a |F..k(e%):.s$,v%:| 0000bd90 73 24 3d 22 22 3a 76 25 3d 9a 23 65 25 3a c8 95 |s$="":v%=.#e%:..| 0000bda0 76 25 3e 33 31 80 ac 28 c5 23 65 25 29 3a 73 24 |v%>31..(.#e%):s$| 0000bdb0 2b 3d bd 76 25 3a 76 25 3d 9a 23 65 25 3a ce 3a |+=.v%:v%=.#e%:.:| 0000bdc0 3d 73 24 0d 0b 62 c4 dd f2 4a 61 28 46 61 25 29 |=s$..b...Ja(Fa%)| 0000bdd0 3a ea 4e 2c 69 25 2c 46 2c 51 2c 72 25 2c 67 25 |:.N,i%,F,Q,r%,g%| 0000bde0 2c 62 25 3a ea 6b 2c 6d 2c 6a 2c 6c 2c 64 2c 74 |,b%:.k,m,j,l,d,t| 0000bdf0 63 25 2c 6e 61 2c 6f 61 2c 70 61 3a ea 75 63 25 |c%,na,oa,pa:.uc%| 0000be00 2c 76 63 25 2c 77 63 25 3a 71 3d 66 25 28 31 29 |,vc%,wc%:q=f%(1)| 0000be10 2d 62 25 28 31 29 3a 6e 3d 66 25 28 32 29 2d 62 |-b%(1):n=f%(2)-b| 0000be20 25 28 32 29 3a 6f 3d 66 25 28 33 29 2d 62 25 28 |%(2):o=f%(3)-b%(| 0000be30 33 29 3a 64 3d b6 28 6e 5e 32 2b 6f 5e 32 29 3a |3):d=.(n^2+o^2):| 0000be40 6c 3d b6 28 6e 5e 32 2b 6f 5e 32 2b 71 5e 32 29 |l=.(n^2+o^2+q^2)| 0000be50 3a 3a 74 63 25 3d 30 3a 70 25 21 30 3d 62 25 28 |::tc%=0:p%!0=b%(| 0000be60 31 29 3a 70 25 21 34 3d 62 25 28 32 29 3a 70 25 |1):p%!4=b%(2):p%| 0000be70 21 38 3d 62 25 28 33 29 2b 31 30 30 30 3a f2 72 |!8=b%(3)+1000:.r| 0000be80 28 70 25 2c 70 25 29 0d 0b 6d d8 74 63 25 3d a4 |(p%,p%)..m.tc%=.| 0000be90 6a 28 30 2c 31 30 30 30 2c 70 25 21 30 2d 62 25 |j(0,1000,p%!0-b%| 0000bea0 28 31 29 2c 70 25 21 34 2d 62 25 28 32 29 29 3a |(1),p%!4-b%(2)):| 0000beb0 70 25 21 30 3d 66 25 28 31 29 3a 70 25 21 34 3d |p%!0=f%(1):p%!4=| 0000bec0 66 25 28 32 29 3a 70 25 21 38 3d 66 25 28 33 29 |f%(2):p%!8=f%(3)| 0000bed0 3a f2 72 28 70 25 2c 70 25 29 3a 6b 3d 70 25 21 |:.r(p%,p%):k=p%!| 0000bee0 30 3a 6d 3d 70 25 21 34 3a 6a 3d 70 25 21 38 3a |0:m=p%!4:j=p%!8:| 0000bef0 75 63 25 3d 36 34 30 2d 28 28 6b 2d 32 30 30 30 |uc%=640-((k-2000| 0000bf00 30 29 3e 3e 36 29 2b 68 25 3a 76 63 25 3d 35 31 |0)>>6)+h%:vc%=51| 0000bf10 32 2d 28 28 6d 2d 32 30 30 30 30 29 3e 3e 36 29 |2-((m-20000)>>6)| 0000bf20 2b 6a 25 2d 39 37 36 3a 3a 69 25 3d 78 61 25 3a |+j%-976::i%=xa%:| 0000bf30 e3 4e 3d 31 b8 64 25 3a 46 3d 30 3a f5 3a 70 25 |.N=1.d%:F=0:.:p%| 0000bf40 21 46 3d 21 69 25 3a 46 2b 3d 34 3a 69 25 2b 3d |!F=!i%:F+=4:i%+=| 0000bf50 34 3a fd 21 69 25 3c 30 3a c8 8e 21 70 25 ca 0d |4:.!i%<0:..!p%..| 0000bf60 0b 78 16 c9 2d 31 3a f2 72 28 70 25 2b 38 2c 70 |.x..-1:.r(p%+8,p| 0000bf70 25 2b 33 32 29 0d 0b 7a 15 c9 2d 32 3a f2 72 28 |%+32)..z..-2:.r(| 0000bf80 70 25 2b 38 2c 70 25 2b 38 29 0d 0b 7b 21 c9 2d |p%+8,p%+8)..{!.-| 0000bf90 33 3a f2 72 28 70 25 2b 31 32 2c 70 25 2b 28 70 |3:.r(p%+12,p%+(p| 0000bfa0 25 21 38 2a 31 32 29 2b 31 32 29 0d 0b 7c 9b c9 |%!8*12)+12)..|..| 0000bfb0 2d 34 3a 6e 61 3d 70 25 21 32 30 2d 70 25 21 38 |-4:na=p%!20-p%!8| 0000bfc0 3a 6f 61 3d 70 25 21 32 34 2d 70 25 21 31 32 3a |:oa=p%!24-p%!12:| 0000bfd0 70 61 3d 70 25 21 32 38 2d 70 25 21 31 36 3a e3 |pa=p%!28-p%!16:.| 0000bfe0 51 3d 33 36 b8 31 32 30 88 31 32 3a 21 28 70 25 |Q=36.120.12:!(p%| 0000bff0 2b 51 2b 39 36 29 3d 21 28 70 25 2b 51 29 2b 6e |+Q+96)=!(p%+Q)+n| 0000c000 61 3a 21 28 70 25 2b 51 2b 31 30 30 29 3d 21 28 |a:!(p%+Q+100)=!(| 0000c010 70 25 2b 51 2b 34 29 2b 6f 61 3a 21 28 70 25 2b |p%+Q+4)+oa:!(p%+| 0000c020 51 2b 31 30 34 29 3d 21 28 70 25 2b 51 2b 38 29 |Q+104)=!(p%+Q+8)| 0000c030 2b 70 61 3a ed 3a f2 72 28 70 25 2b 33 36 2c 70 |+pa:.:.r(p%+36,p| 0000c040 25 2b 32 31 36 29 0d 0b 83 18 c9 2d 35 3a f2 72 |%+216).....-5:.r| 0000c050 28 70 25 2b 34 30 2c 70 25 2b 32 32 30 29 0d 0b |(p%+40,p%+220)..| 0000c060 84 1c c9 2d 36 2c 2d 31 30 3a f2 72 28 70 25 2b |...-6,-10:.r(p%+| 0000c070 34 34 2c 70 25 2b 31 32 38 29 0d 0b 85 16 c9 2d |44,p%+128).....-| 0000c080 37 3a f2 72 28 70 25 2b 38 2c 70 25 2b 34 34 29 |7:.r(p%+8,p%+44)| 0000c090 0d 0b 86 16 c9 2d 38 3a f2 72 28 70 25 2b 38 2c |.....-8:.r(p%+8,| 0000c0a0 70 25 2b 34 34 29 0d 0b 87 16 c9 2d 39 3a f2 72 |p%+44).....-9:.r| 0000c0b0 28 70 25 2b 38 2c 70 25 2b 35 36 29 0d 0b 88 05 |(p%+8,p%+56)....| 0000c0c0 cb 0d 0b 88 19 e7 78 63 25 80 21 28 4a 25 2b 4e |......xc%.!(J%+N| 0000c0d0 2a 32 30 2d 32 30 29 3e 30 8c 0d 0b 89 a1 72 25 |*20-20)>0.....r%| 0000c0e0 3d 3f 28 56 25 2b 34 30 2a 28 21 28 4a 25 2b 4e |=?(V%+40*(!(J%+N| 0000c0f0 2a 32 30 2d 32 30 29 29 2d 31 37 29 2a 32 2e 35 |*20-20))-17)*2.5| 0000c100 35 3a 67 25 3d 3f 28 56 25 2b 34 30 2a 28 21 28 |5:g%=?(V%+40*(!(| 0000c110 4a 25 2b 4e 2a 32 30 2d 32 30 29 29 2d 31 36 29 |J%+N*20-20))-16)| 0000c120 2a 32 2e 35 35 3a 62 25 3d 3f 28 56 25 2b 34 30 |*2.55:b%=?(V%+40| 0000c130 2a 28 21 28 4a 25 2b 4e 2a 32 30 2d 32 30 29 29 |*(!(J%+N*20-20))| 0000c140 2d 31 35 29 2a 32 2e 35 35 3a 77 63 25 3d 28 62 |-15)*2.55:wc%=(b| 0000c150 25 3c 3c 32 34 29 2b 28 67 25 3c 3c 31 36 29 2b |%<<24)+(g%<<16)+| 0000c160 28 72 25 3c 3c 38 29 3a e7 72 25 3c 34 38 80 67 |(r%<<8):.r%<48.g| 0000c170 25 3c 34 38 80 62 25 3c 34 38 8c 0d 0b 8e 09 f2 |%<48.b%<48......| 0000c180 64 28 36 29 0d 0b 90 25 cc 3a c8 99 22 43 6f 6c |d(6)...%.:.."Col| 0000c190 6f 75 72 54 72 61 6e 73 5f 53 65 74 47 43 4f 4c |ourTrans_SetGCOL| 0000c1a0 22 2c 77 63 25 2c 30 2c 30 0d 0b 92 05 cd 0d 0b |",wc%,0,0.......| 0000c1b0 92 0d cc 3a f2 64 28 46 61 25 29 0d 0b 95 05 cd |...:.d(Fa%).....| 0000c1c0 0d 0b 95 c7 f2 4e 61 28 21 70 25 29 3a ed 3a f2 |.....Na(!p%):.:.| 0000c1d0 64 28 39 29 3a e3 4e 3d 31 b8 60 25 3a 21 70 25 |d(9):.N=1.`%:!p%| 0000c1e0 3d 31 3a 72 25 3d 63 25 28 4e 2c 31 29 3a 67 25 |=1:r%=c%(N,1):g%| 0000c1f0 3d 63 25 28 4e 2c 32 29 3a 62 25 3d 63 25 28 4e |=c%(N,2):b%=c%(N| 0000c200 2c 33 29 3a 69 25 3d 63 25 28 4e 2c 34 29 2a 32 |,3):i%=c%(N,4)*2| 0000c210 3a 70 25 21 38 3d 72 25 2d 69 25 3a 70 25 21 31 |:p%!8=r%-i%:p%!1| 0000c220 32 3d 67 25 3a 70 25 21 31 36 3d 62 25 3a 70 25 |2=g%:p%!16=b%:p%| 0000c230 21 32 30 3d 72 25 2b 69 25 3a 70 25 21 32 34 3d |!20=r%+i%:p%!24=| 0000c240 67 25 3a 70 25 21 32 38 3d 62 25 3a 70 25 21 33 |g%:p%!28=b%:p%!3| 0000c250 32 3d 72 25 3a 70 25 21 33 36 3d 67 25 2d 69 25 |2=r%:p%!36=g%-i%| 0000c260 3a 70 25 21 34 30 3d 62 25 3a 70 25 21 34 34 3d |:p%!40=b%:p%!44=| 0000c270 72 25 3a 70 25 21 34 38 3d 67 25 2b 69 25 3a 70 |r%:p%!48=g%+i%:p| 0000c280 25 21 35 32 3d 62 25 0d 0b 9f 5b 70 25 21 35 36 |%!52=b%...[p%!56| 0000c290 3d 72 25 3a 70 25 21 36 30 3d 67 25 3a 70 25 21 |=r%:p%!60=g%:p%!| 0000c2a0 36 34 3d 62 25 2d 69 25 3a 70 25 21 36 38 3d 72 |64=b%-i%:p%!68=r| 0000c2b0 25 3a 70 25 21 37 32 3d 67 25 3a 70 25 21 37 36 |%:p%!72=g%:p%!76| 0000c2c0 3d 62 25 2b 69 25 3a f2 72 28 70 25 2b 38 2c 70 |=b%+i%:.r(p%+8,p| 0000c2d0 25 2b 36 38 29 3a f2 4e 61 28 21 70 25 29 3a ed |%+68):.Na(!p%):.| 0000c2e0 3a e1 0d 0b a5 2c dd f2 72 28 53 25 2c 45 25 29 |:....,..r(S%,E%)| 0000c2f0 3a ea 4e 25 2c 78 2c 79 2c 7a 3a e3 4e 25 3d 53 |:.N%,x,y,z:.N%=S| 0000c300 25 b8 45 25 88 31 32 3a e7 64 3c 3e 30 8c 0d 0b |%.E%.12:.d<>0...| 0000c310 aa 64 78 3d 4e 25 21 30 2d 62 25 28 31 29 3a 79 |.dx=N%!0-b%(1):y| 0000c320 3d 4e 25 21 34 2d 62 25 28 32 29 3a 7a 3d 4e 25 |=N%!4-b%(2):z=N%| 0000c330 21 38 2d 62 25 28 33 29 3a 4e 25 21 34 3d 28 28 |!8-b%(3):N%!4=((| 0000c340 79 2a 6f 81 64 29 2d 28 7a 2a 6e 81 64 29 29 2b |y*o.d)-(z*n.d))+| 0000c350 62 25 28 32 29 3a 4e 25 21 38 3d 28 28 79 2a 6e |b%(2):N%!8=((y*n| 0000c360 81 64 29 2b 28 7a 2a 6f 81 64 29 29 2b 62 25 28 |.d)+(z*o.d))+b%(| 0000c370 33 29 0d 0b ae 05 cd 0d 0b ae 0a e7 6c 3c 3e 30 |3)..........l<>0| 0000c380 8c 0d 0b af 64 78 3d 4e 25 21 30 2d 62 25 28 31 |....dx=N%!0-b%(1| 0000c390 29 3a 79 3d 4e 25 21 34 2d 62 25 28 32 29 3a 7a |):y=N%!4-b%(2):z| 0000c3a0 3d 4e 25 21 38 2d 62 25 28 33 29 3a 4e 25 21 30 |=N%!8-b%(3):N%!0| 0000c3b0 3d 28 28 78 2a 64 81 6c 29 2d 28 7a 2a 71 81 6c |=((x*d.l)-(z*q.l| 0000c3c0 29 29 2b 62 25 28 31 29 3a 4e 25 21 38 3d 28 28 |))+b%(1):N%!8=((| 0000c3d0 7a 2a 64 81 6c 29 2b 28 78 2a 71 81 6c 29 29 2b |z*d.l)+(x*q.l))+| 0000c3e0 62 25 28 33 29 0d 0b b3 05 cd 0d 0b b3 72 78 3d |b%(3)........rx=| 0000c3f0 4e 25 21 30 2d 62 25 28 31 29 3a 79 3d 4e 25 21 |N%!0-b%(1):y=N%!| 0000c400 34 2d 62 25 28 32 29 3a 7a 3d 4e 25 21 38 2d 62 |4-b%(2):z=N%!8-b| 0000c410 25 28 33 29 3a 63 3d b5 28 b2 28 2d 74 63 25 29 |%(3):c=.(.(-tc%)| 0000c420 29 3a 65 3d 9b 28 b2 28 2d 74 63 25 29 29 3a 4e |):e=.(.(-tc%)):N| 0000c430 25 21 30 3d 28 78 2a 65 2d 79 2a 63 29 2b 62 25 |%!0=(x*e-y*c)+b%| 0000c440 28 31 29 3a 4e 25 21 34 3d 28 78 2a 63 2b 79 2a |(1):N%!4=(x*c+y*| 0000c450 65 29 2b 62 25 28 32 29 3a ed 3a e1 0d 0b b9 19 |e)+b%(2):.:.....| 0000c460 dd f2 4e 61 28 77 62 25 29 3a ea 54 2c 72 3a c8 |..Na(wb%):.T,r:.| 0000c470 8e 77 62 25 ca 0d 0b bd d6 c9 31 3a f2 63 28 35 |.wb%......1:.c(5| 0000c480 2c 70 25 21 38 2c 70 25 21 31 32 2c 70 25 21 31 |,p%!8,p%!12,p%!1| 0000c490 36 2c 70 25 21 32 30 2c 70 25 21 32 34 2c 70 25 |6,p%!20,p%!24,p%| 0000c4a0 21 32 38 29 3a f2 63 28 35 2c 70 25 21 33 32 2c |!28):.c(5,p%!32,| 0000c4b0 70 25 21 33 36 2c 70 25 21 34 30 2c 70 25 21 34 |p%!36,p%!40,p%!4| 0000c4c0 34 2c 70 25 21 34 38 2c 70 25 21 35 32 29 3a f2 |4,p%!48,p%!52):.| 0000c4d0 63 28 35 2c 70 25 21 35 36 2c 70 25 21 36 30 2c |c(5,p%!56,p%!60,| 0000c4e0 70 25 21 36 34 2c 70 25 21 36 38 2c 70 25 21 37 |p%!64,p%!68,p%!7| 0000c4f0 32 2c 70 25 21 37 36 29 3a f2 63 28 35 2c 70 25 |2,p%!76):.c(5,p%| 0000c500 21 38 2c 70 25 21 31 32 2c 70 25 21 31 36 2c 70 |!8,p%!12,p%!16,p| 0000c510 25 21 34 34 2c 70 25 21 34 38 2c 70 25 21 35 32 |%!44,p%!48,p%!52| 0000c520 29 3a f2 63 28 35 2c 70 25 21 34 34 2c 70 25 21 |):.c(5,p%!44,p%!| 0000c530 34 38 2c 70 25 21 35 32 2c 70 25 21 32 30 2c 70 |48,p%!52,p%!20,p| 0000c540 25 21 32 34 2c 70 25 21 32 38 29 0d 0b c3 d3 f2 |%!24,p%!28).....| 0000c550 63 28 35 2c 70 25 21 32 30 2c 70 25 21 32 34 2c |c(5,p%!20,p%!24,| 0000c560 70 25 21 32 38 2c 70 25 21 33 32 2c 70 25 21 33 |p%!28,p%!32,p%!3| 0000c570 36 2c 70 25 21 34 30 29 3a f2 63 28 35 2c 70 25 |6,p%!40):.c(5,p%| 0000c580 21 33 32 2c 70 25 21 33 36 2c 70 25 21 34 30 2c |!32,p%!36,p%!40,| 0000c590 70 25 21 38 2c 70 25 21 31 32 2c 70 25 21 31 36 |p%!8,p%!12,p%!16| 0000c5a0 29 3a f2 63 28 35 2c 70 25 21 38 2c 70 25 21 31 |):.c(5,p%!8,p%!1| 0000c5b0 32 2c 70 25 21 31 36 2c 70 25 21 36 38 2c 70 25 |2,p%!16,p%!68,p%| 0000c5c0 21 37 32 2c 70 25 21 37 36 29 3a f2 63 28 35 2c |!72,p%!76):.c(5,| 0000c5d0 70 25 21 36 38 2c 70 25 21 37 32 2c 70 25 21 37 |p%!68,p%!72,p%!7| 0000c5e0 36 2c 70 25 21 32 30 2c 70 25 21 32 34 2c 70 25 |6,p%!20,p%!24,p%| 0000c5f0 21 32 38 29 3a f2 63 28 35 2c 70 25 21 32 30 2c |!28):.c(5,p%!20,| 0000c600 70 25 21 32 34 2c 70 25 21 32 38 2c 70 25 21 35 |p%!24,p%!28,p%!5| 0000c610 36 2c 70 25 21 36 30 2c 70 25 21 36 34 29 0d 0b |6,p%!60,p%!64)..| 0000c620 c8 d4 f2 63 28 35 2c 70 25 21 35 36 2c 70 25 21 |...c(5,p%!56,p%!| 0000c630 36 30 2c 70 25 21 36 34 2c 70 25 21 38 2c 70 25 |60,p%!64,p%!8,p%| 0000c640 21 31 32 2c 70 25 21 31 36 29 3a f2 63 28 35 2c |!12,p%!16):.c(5,| 0000c650 70 25 21 33 32 2c 70 25 21 33 36 2c 70 25 21 34 |p%!32,p%!36,p%!4| 0000c660 30 2c 70 25 21 36 38 2c 70 25 21 37 32 2c 70 25 |0,p%!68,p%!72,p%| 0000c670 21 37 36 29 3a f2 63 28 35 2c 70 25 21 36 38 2c |!76):.c(5,p%!68,| 0000c680 70 25 21 37 32 2c 70 25 21 37 36 2c 70 25 21 34 |p%!72,p%!76,p%!4| 0000c690 34 2c 70 25 21 34 38 2c 70 25 21 35 32 29 3a f2 |4,p%!48,p%!52):.| 0000c6a0 63 28 35 2c 70 25 21 34 34 2c 70 25 21 34 38 2c |c(5,p%!44,p%!48,| 0000c6b0 70 25 21 35 32 2c 70 25 21 35 36 2c 70 25 21 36 |p%!52,p%!56,p%!6| 0000c6c0 30 2c 70 25 21 36 34 29 3a f2 63 28 35 2c 70 25 |0,p%!64):.c(5,p%| 0000c6d0 21 35 36 2c 70 25 21 36 30 2c 70 25 21 36 34 2c |!56,p%!60,p%!64,| 0000c6e0 70 25 21 33 32 2c 70 25 21 33 36 2c 70 25 21 34 |p%!32,p%!36,p%!4| 0000c6f0 30 29 0d 0b ce 83 c9 2d 31 3a f2 63 28 35 2c 70 |0).....-1:.c(5,p| 0000c700 25 21 38 2c 70 25 21 31 32 2c 70 25 21 31 36 2c |%!8,p%!12,p%!16,| 0000c710 70 25 21 32 30 2c 70 25 21 32 34 2c 70 25 21 32 |p%!20,p%!24,p%!2| 0000c720 38 29 3a f2 63 28 35 2c 70 25 21 32 30 2c 70 25 |8):.c(5,p%!20,p%| 0000c730 21 32 34 2c 70 25 21 32 38 2c 70 25 21 33 32 2c |!24,p%!28,p%!32,| 0000c740 70 25 21 33 36 2c 70 25 21 34 30 29 3a f2 63 28 |p%!36,p%!40):.c(| 0000c750 35 2c 70 25 21 33 32 2c 70 25 21 33 36 2c 70 25 |5,p%!32,p%!36,p%| 0000c760 21 34 30 2c 70 25 21 38 2c 70 25 21 31 32 2c 70 |!40,p%!8,p%!12,p| 0000c770 25 21 31 36 29 0d 0b d2 5b c9 2d 32 3a f2 63 28 |%!16)...[.-2:.c(| 0000c780 34 2c 70 25 21 38 2c 70 25 21 31 32 2c 70 25 21 |4,p%!8,p%!12,p%!| 0000c790 31 36 2c 70 25 21 38 2c 70 25 21 31 32 2c 70 25 |16,p%!8,p%!12,p%| 0000c7a0 21 31 36 29 3a 72 3d 70 25 21 32 30 81 28 28 70 |!16):r=p%!20.((p| 0000c7b0 25 21 31 36 2d 6a 29 3e 3e 39 29 3a e7 70 25 21 |%!16-j)>>9):.p%!| 0000c7c0 31 36 3c 3d 6a 8c f0 31 34 35 2c 28 72 29 2c 30 |16<=j..145,(r),0| 0000c7d0 0d 0b d5 8d c9 2d 33 3a e3 54 3d 70 25 2b 31 32 |.....-3:.T=p%+12| 0000c7e0 b8 70 25 2b 28 70 25 21 38 29 2a 31 32 88 31 32 |.p%+(p%!8)*12.12| 0000c7f0 3a f2 63 28 35 2c 21 28 54 29 2c 21 28 54 2b 34 |:.c(5,!(T),!(T+4| 0000c800 29 2c 21 28 54 2b 38 29 2c 21 28 54 2b 31 32 29 |),!(T+8),!(T+12)| 0000c810 2c 21 28 54 2b 31 36 29 2c 21 28 54 2b 32 30 29 |,!(T+16),!(T+20)| 0000c820 29 3a ed 3a 54 3d 70 25 2b 28 70 25 21 38 29 2a |):.:T=p%+(p%!8)*| 0000c830 31 32 3a f2 63 28 35 2c 70 25 21 31 32 2c 70 25 |12:.c(5,p%!12,p%| 0000c840 21 31 36 2c 70 25 21 32 30 2c 21 28 54 29 2c 21 |!16,p%!20,!(T),!| 0000c850 28 54 2b 34 29 2c 21 28 54 2b 38 29 29 0d 0b dc |(T+4),!(T+8))...| 0000c860 be c9 2d 34 3a f2 63 28 35 2c 70 25 21 33 36 2c |..-4:.c(5,p%!36,| 0000c870 70 25 21 34 30 2c 70 25 21 34 34 2c 70 25 21 31 |p%!40,p%!44,p%!1| 0000c880 32 30 2c 70 25 21 31 32 34 2c 70 25 21 31 32 38 |20,p%!124,p%!128| 0000c890 29 3a e3 54 3d 70 25 2b 33 36 b8 70 25 2b 31 30 |):.T=p%+36.p%+10| 0000c8a0 38 88 31 32 3a f2 63 28 35 2c 21 28 54 29 2c 21 |8.12:.c(5,!(T),!| 0000c8b0 28 54 2b 34 29 2c 21 28 54 2b 38 29 2c 21 28 54 |(T+4),!(T+8),!(T| 0000c8c0 2b 31 32 29 2c 21 28 54 2b 31 36 29 2c 21 28 54 |+12),!(T+16),!(T| 0000c8d0 2b 32 30 29 29 3a ed 3a f2 63 28 35 2c 70 25 21 |+20)):.:.c(5,p%!| 0000c8e0 31 33 32 2c 70 25 21 31 33 36 2c 70 25 21 31 34 |132,p%!136,p%!14| 0000c8f0 30 2c 70 25 21 32 31 36 2c 70 25 21 32 32 30 2c |0,p%!216,p%!220,| 0000c900 70 25 21 32 32 34 29 3a e3 54 3d 70 25 2b 31 33 |p%!224):.T=p%+13| 0000c910 32 b8 70 25 2b 32 30 34 88 31 32 0d 0b e2 7e f2 |2.p%+204.12...~.| 0000c920 63 28 35 2c 21 28 54 29 2c 21 28 54 2b 34 29 2c |c(5,!(T),!(T+4),| 0000c930 21 28 54 2b 38 29 2c 21 28 54 2b 31 32 29 2c 21 |!(T+8),!(T+12),!| 0000c940 28 54 2b 31 36 29 2c 21 28 54 2b 32 30 29 29 3a |(T+16),!(T+20)):| 0000c950 ed 3a e3 54 3d 70 25 2b 33 36 b8 70 25 2b 31 32 |.:.T=p%+36.p%+12| 0000c960 30 88 31 32 3a f2 63 28 35 2c 21 28 54 29 2c 21 |0.12:.c(5,!(T),!| 0000c970 28 54 2b 34 29 2c 21 28 54 2b 38 29 2c 21 28 54 |(T+4),!(T+8),!(T| 0000c980 2b 39 36 29 2c 21 28 54 2b 31 30 30 29 2c 21 28 |+96),!(T+100),!(| 0000c990 54 2b 31 30 34 29 29 3a ed 0d 0b e8 be c9 2d 35 |T+104)):......-5| 0000c9a0 3a f2 63 28 35 2c 70 25 21 34 30 2c 70 25 21 34 |:.c(5,p%!40,p%!4| 0000c9b0 34 2c 70 25 21 34 38 2c 70 25 21 31 32 34 2c 70 |4,p%!48,p%!124,p| 0000c9c0 25 21 31 32 38 2c 70 25 21 31 33 32 29 3a e3 54 |%!128,p%!132):.T| 0000c9d0 3d 70 25 2b 34 30 b8 70 25 2b 31 31 32 88 31 32 |=p%+40.p%+112.12| 0000c9e0 3a f2 63 28 35 2c 21 28 54 29 2c 21 28 54 2b 34 |:.c(5,!(T),!(T+4| 0000c9f0 29 2c 21 28 54 2b 38 29 2c 21 28 54 2b 31 32 29 |),!(T+8),!(T+12)| 0000ca00 2c 21 28 54 2b 31 36 29 2c 21 28 54 2b 32 30 29 |,!(T+16),!(T+20)| 0000ca10 29 3a ed 3a f2 63 28 35 2c 70 25 21 31 33 36 2c |):.:.c(5,p%!136,| 0000ca20 70 25 21 31 34 30 2c 70 25 21 31 34 34 2c 70 25 |p%!140,p%!144,p%| 0000ca30 21 32 32 30 2c 70 25 21 32 32 34 2c 70 25 21 32 |!220,p%!224,p%!2| 0000ca40 32 38 29 3a e3 54 3d 70 25 2b 31 33 36 b8 70 25 |28):.T=p%+136.p%| 0000ca50 2b 32 30 38 88 31 32 0d 0b ee 7e f2 63 28 35 2c |+208.12...~.c(5,| 0000ca60 21 28 54 29 2c 21 28 54 2b 34 29 2c 21 28 54 2b |!(T),!(T+4),!(T+| 0000ca70 38 29 2c 21 28 54 2b 31 32 29 2c 21 28 54 2b 31 |8),!(T+12),!(T+1| 0000ca80 36 29 2c 21 28 54 2b 32 30 29 29 3a ed 3a e3 54 |6),!(T+20)):.:.T| 0000ca90 3d 70 25 2b 34 30 b8 70 25 2b 31 32 34 88 31 32 |=p%+40.p%+124.12| 0000caa0 3a f2 63 28 35 2c 21 28 54 29 2c 21 28 54 2b 34 |:.c(5,!(T),!(T+4| 0000cab0 29 2c 21 28 54 2b 38 29 2c 21 28 54 2b 39 36 29 |),!(T+8),!(T+96)| 0000cac0 2c 21 28 54 2b 31 30 30 29 2c 21 28 54 2b 31 30 |,!(T+100),!(T+10| 0000cad0 34 29 29 3a ed 0d 0b f4 e1 c9 2d 36 2c 2d 31 30 |4)):......-6,-10| 0000cae0 3a f2 63 28 35 2c 70 25 21 34 34 2c 70 25 21 34 |:.c(5,p%!44,p%!4| 0000caf0 38 2c 70 25 21 35 32 2c 70 25 21 38 30 2c 70 25 |8,p%!52,p%!80,p%| 0000cb00 21 38 34 2c 70 25 21 38 38 29 3a f2 63 28 35 2c |!84,p%!88):.c(5,| 0000cb10 70 25 21 34 34 2c 70 25 21 34 38 2c 70 25 21 35 |p%!44,p%!48,p%!5| 0000cb20 32 2c 70 25 21 35 36 2c 70 25 21 36 30 2c 70 25 |2,p%!56,p%!60,p%| 0000cb30 21 36 34 29 3a f2 63 28 35 2c 70 25 21 35 36 2c |!64):.c(5,p%!56,| 0000cb40 70 25 21 36 30 2c 70 25 21 36 34 2c 70 25 21 36 |p%!60,p%!64,p%!6| 0000cb50 38 2c 70 25 21 37 32 2c 70 25 21 37 36 29 3a f2 |8,p%!72,p%!76):.| 0000cb60 63 28 35 2c 70 25 21 36 38 2c 70 25 21 37 32 2c |c(5,p%!68,p%!72,| 0000cb70 70 25 21 37 36 2c 70 25 21 38 30 2c 70 25 21 38 |p%!76,p%!80,p%!8| 0000cb80 34 2c 70 25 21 38 38 29 3a f2 63 28 35 2c 70 25 |4,p%!88):.c(5,p%| 0000cb90 21 39 32 2c 70 25 21 39 36 2c 70 25 21 31 30 30 |!92,p%!96,p%!100| 0000cba0 2c 70 25 21 31 32 38 2c 70 25 21 31 33 32 2c 70 |,p%!128,p%!132,p| 0000cbb0 25 21 31 33 36 29 0d 0b f9 d6 f2 63 28 35 2c 70 |%!136).....c(5,p| 0000cbc0 25 21 39 32 2c 70 25 21 39 36 2c 70 25 21 31 30 |%!92,p%!96,p%!10| 0000cbd0 30 2c 70 25 21 31 30 34 2c 70 25 21 31 30 38 2c |0,p%!104,p%!108,| 0000cbe0 70 25 21 31 31 32 29 3a f2 63 28 35 2c 70 25 21 |p%!112):.c(5,p%!| 0000cbf0 31 30 34 2c 70 25 21 31 30 38 2c 70 25 21 31 31 |104,p%!108,p%!11| 0000cc00 32 2c 70 25 21 31 31 36 2c 70 25 21 31 32 30 2c |2,p%!116,p%!120,| 0000cc10 70 25 21 31 32 34 29 3a f2 63 28 35 2c 70 25 21 |p%!124):.c(5,p%!| 0000cc20 31 31 36 2c 70 25 21 31 32 30 2c 70 25 21 31 32 |116,p%!120,p%!12| 0000cc30 34 2c 70 25 21 31 32 38 2c 70 25 21 31 33 32 2c |4,p%!128,p%!132,| 0000cc40 70 25 21 31 33 36 29 3a e3 54 3d 70 25 2b 34 34 |p%!136):.T=p%+44| 0000cc50 b8 70 25 2b 38 30 88 31 32 3a f2 63 28 35 2c 21 |.p%+80.12:.c(5,!| 0000cc60 28 54 29 2c 21 28 54 2b 34 29 2c 21 28 54 2b 38 |(T),!(T+4),!(T+8| 0000cc70 29 2c 21 28 54 2b 34 38 29 2c 21 28 54 2b 35 32 |),!(T+48),!(T+52| 0000cc80 29 2c 21 28 54 2b 35 36 29 29 3a ed 0d 0c 00 b1 |),!(T+56)):.....| 0000cc90 c9 2d 37 3a f2 63 28 32 31 2c 70 25 21 38 2c 70 |.-7:.c(21,p%!8,p| 0000cca0 25 21 31 32 2c 70 25 21 31 36 2c 70 25 21 32 30 |%!12,p%!16,p%!20| 0000ccb0 2c 70 25 21 32 34 2c 70 25 21 32 38 29 3a f2 63 |,p%!24,p%!28):.c| 0000ccc0 28 32 31 2c 70 25 21 32 30 2c 70 25 21 32 34 2c |(21,p%!20,p%!24,| 0000ccd0 70 25 21 32 38 2c 70 25 21 33 32 2c 70 25 21 33 |p%!28,p%!32,p%!3| 0000cce0 36 2c 70 25 21 34 30 29 3a f2 63 28 32 31 2c 70 |6,p%!40):.c(21,p| 0000ccf0 25 21 33 32 2c 70 25 21 33 36 2c 70 25 21 34 30 |%!32,p%!36,p%!40| 0000cd00 2c 70 25 21 34 34 2c 70 25 21 34 38 2c 70 25 21 |,p%!44,p%!48,p%!| 0000cd10 35 32 29 3a f2 63 28 32 31 2c 70 25 21 34 34 2c |52):.c(21,p%!44,| 0000cd20 70 25 21 34 38 2c 70 25 21 35 32 2c 70 25 21 38 |p%!48,p%!52,p%!8| 0000cd30 2c 70 25 21 31 32 2c 70 25 21 31 36 29 0d 0c 05 |,p%!12,p%!16)...| 0000cd40 ad c9 2d 38 3a f2 63 28 35 2c 70 25 21 38 2c 70 |..-8:.c(5,p%!8,p| 0000cd50 25 21 31 32 2c 70 25 21 31 36 2c 70 25 21 32 30 |%!12,p%!16,p%!20| 0000cd60 2c 70 25 21 32 34 2c 70 25 21 32 38 29 3a f2 63 |,p%!24,p%!28):.c| 0000cd70 28 35 2c 70 25 21 32 30 2c 70 25 21 32 34 2c 70 |(5,p%!20,p%!24,p| 0000cd80 25 21 32 38 2c 70 25 21 33 32 2c 70 25 21 33 36 |%!28,p%!32,p%!36| 0000cd90 2c 70 25 21 34 30 29 3a f2 63 28 35 2c 70 25 21 |,p%!40):.c(5,p%!| 0000cda0 33 32 2c 70 25 21 33 36 2c 70 25 21 34 30 2c 70 |32,p%!36,p%!40,p| 0000cdb0 25 21 34 34 2c 70 25 21 34 38 2c 70 25 21 35 32 |%!44,p%!48,p%!52| 0000cdc0 29 3a f2 63 28 35 2c 70 25 21 34 34 2c 70 25 21 |):.c(5,p%!44,p%!| 0000cdd0 34 38 2c 70 25 21 35 32 2c 70 25 21 38 2c 70 25 |48,p%!52,p%!8,p%| 0000cde0 21 31 32 2c 70 25 21 31 36 29 0d 0c 0a d6 c9 2d |!12,p%!16).....-| 0000cdf0 39 3a f2 63 28 35 2c 70 25 21 38 2c 70 25 21 31 |9:.c(5,p%!8,p%!1| 0000ce00 32 2c 70 25 21 31 36 2c 70 25 21 32 30 2c 70 25 |2,p%!16,p%!20,p%| 0000ce10 21 32 34 2c 70 25 21 32 38 29 3a f2 63 28 35 2c |!24,p%!28):.c(5,| 0000ce20 70 25 21 32 30 2c 70 25 21 32 34 2c 70 25 21 32 |p%!20,p%!24,p%!2| 0000ce30 38 2c 70 25 21 33 32 2c 70 25 21 33 36 2c 70 25 |8,p%!32,p%!36,p%| 0000ce40 21 34 30 29 3a f2 63 28 35 2c 70 25 21 33 32 2c |!40):.c(5,p%!32,| 0000ce50 70 25 21 33 36 2c 70 25 21 34 30 2c 70 25 21 34 |p%!36,p%!40,p%!4| 0000ce60 34 2c 70 25 21 34 38 2c 70 25 21 35 32 29 3a f2 |4,p%!48,p%!52):.| 0000ce70 63 28 35 2c 70 25 21 34 34 2c 70 25 21 34 38 2c |c(5,p%!44,p%!48,| 0000ce80 70 25 21 35 32 2c 70 25 21 38 2c 70 25 21 31 32 |p%!52,p%!8,p%!12| 0000ce90 2c 70 25 21 31 36 29 3a f2 63 28 35 2c 70 25 21 |,p%!16):.c(5,p%!| 0000cea0 35 36 2c 70 25 21 36 30 2c 70 25 21 36 34 2c 70 |56,p%!60,p%!64,p| 0000ceb0 25 21 38 2c 70 25 21 31 32 2c 70 25 21 31 36 29 |%!8,p%!12,p%!16)| 0000cec0 0d 0c 0f d4 f2 63 28 35 2c 70 25 21 38 2c 70 25 |.....c(5,p%!8,p%| 0000ced0 21 31 32 2c 70 25 21 31 36 2c 70 25 21 32 30 2c |!12,p%!16,p%!20,| 0000cee0 70 25 21 32 34 2c 70 25 21 32 38 29 3a f2 63 28 |p%!24,p%!28):.c(| 0000cef0 35 2c 70 25 21 32 30 2c 70 25 21 32 34 2c 70 25 |5,p%!20,p%!24,p%| 0000cf00 21 32 38 2c 70 25 21 35 36 2c 70 25 21 36 30 2c |!28,p%!56,p%!60,| 0000cf10 70 25 21 36 34 29 3a f2 63 28 35 2c 70 25 21 35 |p%!64):.c(5,p%!5| 0000cf20 36 2c 70 25 21 36 30 2c 70 25 21 36 34 2c 70 25 |6,p%!60,p%!64,p%| 0000cf30 21 32 30 2c 70 25 21 32 34 2c 70 25 21 32 38 29 |!20,p%!24,p%!28)| 0000cf40 3a f2 63 28 35 2c 70 25 21 32 30 2c 70 25 21 32 |:.c(5,p%!20,p%!2| 0000cf50 34 2c 70 25 21 32 38 2c 70 25 21 33 32 2c 70 25 |4,p%!28,p%!32,p%| 0000cf60 21 33 36 2c 70 25 21 34 30 29 3a f2 63 28 35 2c |!36,p%!40):.c(5,| 0000cf70 70 25 21 33 32 2c 70 25 21 33 36 2c 70 25 21 34 |p%!32,p%!36,p%!4| 0000cf80 30 2c 70 25 21 35 36 2c 70 25 21 36 30 2c 70 25 |0,p%!56,p%!60,p%| 0000cf90 21 36 34 29 0d 0c 14 d4 f2 63 28 35 2c 70 25 21 |!64).....c(5,p%!| 0000cfa0 35 36 2c 70 25 21 36 30 2c 70 25 21 36 34 2c 70 |56,p%!60,p%!64,p| 0000cfb0 25 21 33 32 2c 70 25 21 33 36 2c 70 25 21 34 30 |%!32,p%!36,p%!40| 0000cfc0 29 3a f2 63 28 35 2c 70 25 21 33 32 2c 70 25 21 |):.c(5,p%!32,p%!| 0000cfd0 33 36 2c 70 25 21 34 30 2c 70 25 21 34 34 2c 70 |36,p%!40,p%!44,p| 0000cfe0 25 21 34 38 2c 70 25 21 35 32 29 3a f2 63 28 35 |%!48,p%!52):.c(5| 0000cff0 2c 70 25 21 34 34 2c 70 25 21 34 38 2c 70 25 21 |,p%!44,p%!48,p%!| 0000d000 35 32 2c 70 25 21 35 36 2c 70 25 21 36 30 2c 70 |52,p%!56,p%!60,p| 0000d010 25 21 36 34 29 3a f2 63 28 35 2c 70 25 21 35 36 |%!64):.c(5,p%!56| 0000d020 2c 70 25 21 36 30 2c 70 25 21 36 34 2c 70 25 21 |,p%!60,p%!64,p%!| 0000d030 34 34 2c 70 25 21 34 38 2c 70 25 21 35 32 29 3a |44,p%!48,p%!52):| 0000d040 f2 63 28 35 2c 70 25 21 34 34 2c 70 25 21 34 38 |.c(5,p%!44,p%!48| 0000d050 2c 70 25 21 35 32 2c 70 25 21 38 2c 70 25 21 31 |,p%!52,p%!8,p%!1| 0000d060 32 2c 70 25 21 31 36 29 0d 0c 19 2c f2 63 28 35 |2,p%!16)...,.c(5| 0000d070 2c 70 25 21 38 2c 70 25 21 31 32 2c 70 25 21 31 |,p%!8,p%!12,p%!1| 0000d080 36 2c 70 25 21 35 36 2c 70 25 21 36 30 2c 70 25 |6,p%!56,p%!60,p%| 0000d090 21 36 34 29 0d 0c 1b 05 cb 0d 0c 1b 05 e1 0d 0c |!64)............| 0000d0a0 1c 37 dd f2 63 28 61 25 2c 79 63 25 2c 7a 63 25 |.7..c(a%,yc%,zc%| 0000d0b0 2c 41 63 25 2c 42 63 25 2c 43 63 25 2c 44 63 25 |,Ac%,Bc%,Cc%,Dc%| 0000d0c0 29 3a ea 73 3a e7 41 63 25 3e 3d 6a 80 44 63 25 |):.s:.Ac%>=j.Dc%| 0000d0d0 3e 3d 6a 8c e1 0d 0c 20 0d 3a e7 41 63 25 3e 3d |>=j.... .:.Ac%>=| 0000d0e0 6a 8c 0d 0c 22 56 73 3d 28 6a 2d 41 63 25 29 2f |j..."Vs=(j-Ac%)/| 0000d0f0 28 44 63 25 2d 41 63 25 29 2b 2e 31 3a 79 63 25 |(Dc%-Ac%)+.1:yc%| 0000d100 3d 79 63 25 2b 28 42 63 25 2d 79 63 25 29 2a 73 |=yc%+(Bc%-yc%)*s| 0000d110 3a 7a 63 25 3d 7a 63 25 2b 28 43 63 25 2d 7a 63 |:zc%=zc%+(Cc%-zc| 0000d120 25 29 2a 73 3a 41 63 25 3d 41 63 25 2b 28 44 63 |%)*s:Ac%=Ac%+(Dc| 0000d130 25 2d 41 63 25 29 2a 73 0d 0c 28 05 cd 0d 0c 28 |%-Ac%)*s..(....(| 0000d140 0c e7 44 63 25 3e 3d 6a 8c 0d 0c 29 56 73 3d 28 |..Dc%>=j...)Vs=(| 0000d150 6a 2d 44 63 25 29 2f 28 41 63 25 2d 44 63 25 29 |j-Dc%)/(Ac%-Dc%)| 0000d160 2b 2e 31 3a 42 63 25 3d 42 63 25 2b 28 79 63 25 |+.1:Bc%=Bc%+(yc%| 0000d170 2d 42 63 25 29 2a 73 3a 43 63 25 3d 43 63 25 2b |-Bc%)*s:Cc%=Cc%+| 0000d180 28 7a 63 25 2d 43 63 25 29 2a 73 3a 44 63 25 3d |(zc%-Cc%)*s:Dc%=| 0000d190 44 63 25 2b 28 41 63 25 2d 44 63 25 29 2a 73 0d |Dc%+(Ac%-Dc%)*s.| 0000d1a0 0c 2f 05 cd 0d 0c 2f 0f 3a e7 41 63 25 2d 6a 3c |./..../.:.Ac%-j<| 0000d1b0 3e 30 8c 0d 0c 31 3f 79 63 25 3d 28 28 6b 2a 41 |>0...1?yc%=((k*A| 0000d1c0 63 25 29 2d 28 6a 2a 79 63 25 29 29 81 28 41 63 |c%)-(j*yc%)).(Ac| 0000d1d0 25 2d 6a 29 3a 7a 63 25 3d 28 28 6d 2a 41 63 25 |%-j):zc%=((m*Ac%| 0000d1e0 29 2d 28 6a 2a 7a 63 25 29 29 81 28 41 63 25 2d |)-(j*zc%)).(Ac%-| 0000d1f0 6a 29 0d 0c 34 05 cd 0d 0c 34 0e e7 44 63 25 2d |j)..4....4..Dc%-| 0000d200 6a 3c 3e 30 8c 0d 0c 35 3f 42 63 25 3d 28 28 6b |j<>0...5?Bc%=((k| 0000d210 2a 44 63 25 29 2d 28 6a 2a 42 63 25 29 29 81 28 |*Dc%)-(j*Bc%)).(| 0000d220 44 63 25 2d 6a 29 3a 43 63 25 3d 28 28 6d 2a 44 |Dc%-j):Cc%=((m*D| 0000d230 63 25 29 2d 28 6a 2a 43 63 25 29 29 81 28 44 63 |c%)-(j*Cc%)).(Dc| 0000d240 25 2d 6a 29 0d 0c 38 05 cd 0d 0c 38 78 79 63 25 |%-j)..8....8xyc%| 0000d250 3d 28 79 63 25 2d 32 30 30 30 30 29 3e 3e 36 3a |=(yc%-20000)>>6:| 0000d260 7a 63 25 3d 28 7a 63 25 2d 32 30 30 30 30 29 3e |zc%=(zc%-20000)>| 0000d270 3e 36 3a 42 63 25 3d 28 42 63 25 2d 32 30 30 30 |>6:Bc%=(Bc%-2000| 0000d280 30 29 3e 3e 36 3a 43 63 25 3d 28 43 63 25 2d 32 |0)>>6:Cc%=(Cc%-2| 0000d290 30 30 30 30 29 3e 3e 36 3a f0 34 2c 79 63 25 2b |0000)>>6:.4,yc%+| 0000d2a0 75 63 25 2c 7a 63 25 2b 76 63 25 3a f0 61 25 2c |uc%,zc%+vc%:.a%,| 0000d2b0 42 63 25 2b 75 63 25 2c 43 63 25 2b 76 63 25 3a |Bc%+uc%,Cc%+vc%:| 0000d2c0 e1 0d 0c 3d 60 dd f2 42 61 3a ea 51 25 2c 41 3a |...=`..Ba:.Q%,A:| 0000d2d0 71 61 3d bb 28 a4 62 28 57 25 2c 32 29 29 2a 2e |qa=.(.b(W%,2))*.| 0000d2e0 30 35 2b 2e 30 35 3a c8 99 22 48 6f 75 72 67 6c |05+.05:.."Hourgl| 0000d2f0 61 73 73 5f 4f 6e 22 3a 51 25 3d 78 61 25 3a 41 |ass_On":Q%=xa%:A| 0000d300 3d 30 3a c8 95 21 51 25 3c 3e 2d 32 35 36 3a 41 |=0:..!Q%<>-256:A| 0000d310 2b 3d 31 3a e7 21 51 25 3d 2d 31 80 4b 25 3f 41 |+=1:.!Q%=-1.K%?A| 0000d320 8c 0d 0c 47 14 e7 64 25 2b 28 34 5e 49 62 25 29 |...G..d%+(4^Ib%)| 0000d330 3e 53 61 25 8c 0d 0c 48 0d 85 31 37 2c 61 24 28 |>Sa%...H..17,a$(| 0000d340 37 29 0d 0c 4a 05 cd 0d 0c 4a d7 71 24 3d 24 a4 |7)..J....J.q$=$.| 0000d350 61 28 41 29 2b 22 20 2a 22 3a 48 62 25 3d 30 3a |a(A)+" *":Hb%=0:| 0000d360 71 3d 28 28 51 25 21 32 34 2d 51 25 21 31 32 29 |q=((Q%!24-Q%!12)| 0000d370 2a 28 51 25 21 34 30 2d 51 25 21 31 36 29 2d 28 |*(Q%!40-Q%!16)-(| 0000d380 51 25 21 32 38 2d 51 25 21 31 36 29 2a 28 51 25 |Q%!28-Q%!16)*(Q%| 0000d390 21 33 36 2d 51 25 21 31 32 29 29 2f 31 30 30 30 |!36-Q%!12))/1000| 0000d3a0 3a 6e 3d 28 28 51 25 21 32 38 2d 51 25 21 31 36 |:n=((Q%!28-Q%!16| 0000d3b0 29 2a 28 51 25 21 33 32 2d 51 25 21 38 29 2d 28 |)*(Q%!32-Q%!8)-(| 0000d3c0 51 25 21 32 30 2d 51 25 21 38 29 2a 28 51 25 21 |Q%!20-Q%!8)*(Q%!| 0000d3d0 34 30 2d 51 25 21 31 36 29 29 2f 31 30 30 30 3a |40-Q%!16))/1000:| 0000d3e0 6f 3d 28 28 51 25 21 32 30 2d 51 25 21 38 29 2a |o=((Q%!20-Q%!8)*| 0000d3f0 28 51 25 21 33 36 2d 51 25 21 31 32 29 2d 28 51 |(Q%!36-Q%!12)-(Q| 0000d400 25 21 32 34 2d 51 25 21 31 32 29 2a 28 51 25 21 |%!24-Q%!12)*(Q%!| 0000d410 33 32 2d 51 25 21 38 29 29 2f 31 30 30 30 0d 0c |32-Q%!8))/1000..| 0000d420 4f 40 f2 44 28 51 25 21 38 2c 51 25 21 31 32 2c |O@.D(Q%!8,Q%!12,| 0000d430 51 25 21 31 36 2c 51 25 21 32 30 2c 51 25 21 32 |Q%!16,Q%!20,Q%!2| 0000d440 34 2c 51 25 21 32 38 2c 51 25 21 33 32 2c 51 25 |4,Q%!28,Q%!32,Q%| 0000d450 21 33 36 2c 51 25 21 34 30 2c 49 62 25 29 0d 0c |!36,Q%!40,Ib%)..| 0000d460 51 05 cd 0d 0c 51 32 f5 3a 51 25 2b 3d 34 3a fd |Q....Q2.:Q%+=4:.| 0000d470 21 51 25 3c 30 3a ce 3a 3a f2 53 3a f2 65 3a f2 |!Q%<0:.::.S:.e:.| 0000d480 68 3a c8 99 22 48 6f 75 72 67 6c 61 73 73 5f 4f |h:.."Hourglass_O| 0000d490 66 66 22 3a e1 0d 0c 59 5b dd f2 44 28 45 63 25 |ff":...Y[..D(Ec%| 0000d4a0 2c 46 63 25 2c 47 63 25 2c 48 63 25 2c 49 63 25 |,Fc%,Gc%,Hc%,Ic%| 0000d4b0 2c 4a 63 25 2c 4b 63 25 2c 4c 63 25 2c 4d 63 25 |,Jc%,Kc%,Lc%,Mc%| 0000d4c0 2c 52 29 3a ea 4e 63 25 2c 4f 63 25 2c 50 63 25 |,R):.Nc%,Oc%,Pc%| 0000d4d0 2c 51 63 25 2c 52 63 25 2c 53 63 25 2c 54 63 25 |,Qc%,Rc%,Sc%,Tc%| 0000d4e0 2c 55 63 25 2c 56 63 25 2c 72 3a e7 52 3d 30 8c |,Uc%,Vc%,r:.R=0.| 0000d4f0 0d 0c 5d 33 48 62 25 2b 3d 31 3a f2 4f 61 28 45 |..]3Hb%+=1:.Oa(E| 0000d500 63 25 2c 46 63 25 2c 47 63 25 2c 48 63 25 2c 49 |c%,Fc%,Gc%,Hc%,I| 0000d510 63 25 2c 4a 63 25 2c 4b 63 25 2c 4c 63 25 2c 4d |c%,Jc%,Kc%,Lc%,M| 0000d520 63 25 29 0d 0c 60 dd cc 3a 4e 63 25 3d 28 48 63 |c%)..`..:Nc%=(Hc| 0000d530 25 2b 45 63 25 29 2f 32 3a 4f 63 25 3d 28 49 63 |%+Ec%)/2:Oc%=(Ic| 0000d540 25 2b 46 63 25 29 2f 32 3a 50 63 25 3d 28 4a 63 |%+Fc%)/2:Pc%=(Jc| 0000d550 25 2b 47 63 25 29 2f 32 3a 72 3d b3 28 2d 28 4e |%+Gc%)/2:r=.(-(N| 0000d560 63 25 2b 4f 63 25 2b 50 63 25 29 2f 33 29 3a 72 |c%+Oc%+Pc%)/3):r| 0000d570 3d 30 3a e3 50 3d 31 b8 31 30 3a 72 3d 72 2b b3 |=0:.P=1.10:r=r+.| 0000d580 28 31 30 30 29 3a ed 3a 72 3d 28 72 2f 31 30 29 |(100):.:r=(r/10)| 0000d590 2f 35 30 2d 31 3a 72 3d 72 2a 71 61 2f 34 3a 4e |/50-1:r=r*qa/4:N| 0000d5a0 63 25 2b 3d 71 2a 72 3a 4f 63 25 2b 3d 6e 2a 72 |c%+=q*r:Oc%+=n*r| 0000d5b0 3a 50 63 25 2b 3d 6f 2a 72 3a 3a 51 63 25 3d 28 |:Pc%+=o*r::Qc%=(| 0000d5c0 4b 63 25 2b 48 63 25 29 2f 32 3a 52 63 25 3d 28 |Kc%+Hc%)/2:Rc%=(| 0000d5d0 4c 63 25 2b 49 63 25 29 2f 32 3a 53 63 25 3d 28 |Lc%+Ic%)/2:Sc%=(| 0000d5e0 4d 63 25 2b 4a 63 25 29 2f 32 3a 72 3d b3 28 2d |Mc%+Jc%)/2:r=.(-| 0000d5f0 28 51 63 25 2b 52 63 25 2b 53 63 25 29 2f 33 29 |(Qc%+Rc%+Sc%)/3)| 0000d600 0d 0c 68 c5 72 3d 30 3a e3 50 3d 31 b8 31 30 3a |..h.r=0:.P=1.10:| 0000d610 72 3d 72 2b b3 28 31 30 30 29 3a ed 3a 72 3d 28 |r=r+.(100):.:r=(| 0000d620 72 2f 31 30 29 2f 35 30 2d 31 3a 72 3d 72 2a 71 |r/10)/50-1:r=r*q| 0000d630 61 2f 34 3a 51 63 25 2b 3d 71 2a 72 3a 52 63 25 |a/4:Qc%+=q*r:Rc%| 0000d640 2b 3d 6e 2a 72 3a 53 63 25 2b 3d 6f 2a 72 3a 3a |+=n*r:Sc%+=o*r::| 0000d650 54 63 25 3d 28 4b 63 25 2b 45 63 25 29 2f 32 3a |Tc%=(Kc%+Ec%)/2:| 0000d660 55 63 25 3d 28 4c 63 25 2b 46 63 25 29 2f 32 3a |Uc%=(Lc%+Fc%)/2:| 0000d670 56 63 25 3d 28 4d 63 25 2b 47 63 25 29 2f 32 3a |Vc%=(Mc%+Gc%)/2:| 0000d680 72 3d b3 28 2d 28 54 63 25 2b 55 63 25 2b 56 63 |r=.(-(Tc%+Uc%+Vc| 0000d690 25 29 2f 33 29 3a 72 3d 30 3a e3 50 3d 31 b8 31 |%)/3):r=0:.P=1.1| 0000d6a0 30 3a 72 3d 72 2b b3 28 31 30 30 29 3a ed 3a 72 |0:r=r+.(100):.:r| 0000d6b0 3d 28 72 2f 31 30 29 2f 35 30 2d 31 3a 72 3d 72 |=(r/10)/50-1:r=r| 0000d6c0 2a 71 61 2f 34 0d 0c 70 cf 54 63 25 2b 3d 71 2a |*qa/4..p.Tc%+=q*| 0000d6d0 72 3a 55 63 25 2b 3d 6e 2a 72 3a 56 63 25 2b 3d |r:Uc%+=n*r:Vc%+=| 0000d6e0 6f 2a 72 3a 3a f2 44 28 45 63 25 2c 46 63 25 2c |o*r::.D(Ec%,Fc%,| 0000d6f0 47 63 25 2c 4e 63 25 2c 4f 63 25 2c 50 63 25 2c |Gc%,Nc%,Oc%,Pc%,| 0000d700 54 63 25 2c 55 63 25 2c 56 63 25 2c 52 2d 31 29 |Tc%,Uc%,Vc%,R-1)| 0000d710 3a f2 44 28 48 63 25 2c 49 63 25 2c 4a 63 25 2c |:.D(Hc%,Ic%,Jc%,| 0000d720 4e 63 25 2c 4f 63 25 2c 50 63 25 2c 51 63 25 2c |Nc%,Oc%,Pc%,Qc%,| 0000d730 52 63 25 2c 53 63 25 2c 52 2d 31 29 3a f2 44 28 |Rc%,Sc%,R-1):.D(| 0000d740 4b 63 25 2c 4c 63 25 2c 4d 63 25 2c 54 63 25 2c |Kc%,Lc%,Mc%,Tc%,| 0000d750 55 63 25 2c 56 63 25 2c 51 63 25 2c 52 63 25 2c |Uc%,Vc%,Qc%,Rc%,| 0000d760 53 63 25 2c 52 2d 31 29 3a f2 44 28 4e 63 25 2c |Sc%,R-1):.D(Nc%,| 0000d770 4f 63 25 2c 50 63 25 2c 51 63 25 2c 52 63 25 2c |Oc%,Pc%,Qc%,Rc%,| 0000d780 53 63 25 2c 54 63 25 2c 55 63 25 2c 56 63 25 2c |Sc%,Tc%,Uc%,Vc%,| 0000d790 52 2d 31 29 0d 0c 77 05 cd 0d 0c 77 05 e1 0d 0c |R-1)..w....w....| 0000d7a0 78 d3 dd f2 4f 61 28 79 63 25 2c 7a 63 25 2c 41 |x...Oa(yc%,zc%,A| 0000d7b0 63 25 2c 42 63 25 2c 43 63 25 2c 44 63 25 2c 57 |c%,Bc%,Cc%,Dc%,W| 0000d7c0 63 25 2c 58 63 25 2c 59 63 25 29 3a ea 63 25 2c |c%,Xc%,Yc%):.c%,| 0000d7d0 4e 3a 63 25 3d 78 61 25 2b 48 25 2d 34 3a 63 25 |N:c%=xa%+H%-4:c%| 0000d7e0 21 30 3d 2d 31 3a 63 25 21 34 34 3d 2d 32 35 36 |!0=-1:c%!44=-256| 0000d7f0 3a 48 25 2b 3d 34 34 3a 63 25 21 38 3d 79 63 25 |:H%+=44:c%!8=yc%| 0000d800 3a 63 25 21 31 32 3d 7a 63 25 3a 63 25 21 31 36 |:c%!12=zc%:c%!16| 0000d810 3d 41 63 25 3a 63 25 21 32 30 3d 42 63 25 3a 63 |=Ac%:c%!20=Bc%:c| 0000d820 25 21 32 34 3d 43 63 25 3a 63 25 21 32 38 3d 44 |%!24=Cc%:c%!28=D| 0000d830 63 25 3a 63 25 21 33 32 3d 57 63 25 3a 63 25 21 |c%:c%!32=Wc%:c%!| 0000d840 33 36 3d 58 63 25 3a 63 25 21 34 30 3d 59 63 25 |36=Xc%:c%!40=Yc%| 0000d850 3a 64 25 2b 3d 31 3a 4e 3d 64 25 3a 63 25 21 34 |:d%+=1:N=d%:c%!4| 0000d860 3d 30 3a 4b 25 3f 4e 3d 30 3a 59 61 25 3f 4e 3d |=0:K%?N=0:Ya%?N=| 0000d870 30 0d 0c 83 62 21 28 4a 25 2b 4e 2a 32 30 29 3d |0...b!(J%+N*20)=| 0000d880 30 3a 21 28 4a 25 2b 4e 2a 32 30 2b 34 29 3d 30 |0:!(J%+N*20+4)=0| 0000d890 3a 21 28 4a 25 2b 4e 2a 32 30 2b 38 29 3d 30 3a |:!(J%+N*20+8)=0:| 0000d8a0 21 28 4a 25 2b 4e 2a 32 30 2b 31 32 29 3d 30 3a |!(J%+N*20+12)=0:| 0000d8b0 21 28 4a 25 2b 4e 2a 32 30 2b 31 36 29 3d 30 3a |!(J%+N*20+16)=0:| 0000d8c0 24 a4 61 28 64 25 29 3d 71 24 2b c3 28 48 62 25 |$.a(d%)=q$+.(Hb%| 0000d8d0 29 3a e1 0d 0c 88 92 dd f2 50 61 3a ea 74 25 3a |):.......Pa:.t%:| 0000d8e0 c8 99 22 4f 53 5f 52 65 61 64 4d 65 6d 4d 61 70 |.."OS_ReadMemMap| 0000d8f0 49 6e 66 6f 22 b8 5a 63 25 3a 5f 63 25 3d 5a 63 |Info".Zc%:_c%=Zc| 0000d900 25 3a c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 69 |%:.."Wimp_SlotSi| 0000d910 7a 65 22 2c 2d 31 2c 2d 31 b8 74 25 3a 60 63 25 |ze",-1,-1.t%:`c%| 0000d920 3d 74 25 2b 33 32 37 36 38 3a c8 99 22 57 69 6d |=t%+32768:.."Wim| 0000d930 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 60 63 25 2b |p_SlotSize",`c%+| 0000d940 5f 63 25 2d 33 32 37 36 38 2c 2d 31 3a c8 99 22 |_c%-32768,-1:.."| 0000d950 4f 53 5f 48 65 61 70 22 2c 30 2c 60 63 25 2c 2c |OS_Heap",0,`c%,,| 0000d960 5f 63 25 3a e1 0d 0c 92 38 dd a4 66 28 61 64 25 |_c%:....8..f(ad%| 0000d970 29 3a ea 61 25 3a c8 99 22 58 4f 53 5f 48 65 61 |):.a%:.."XOS_Hea| 0000d980 70 22 2c 32 2c 60 63 25 2c 2c 61 64 25 b8 2c 2c |p",2,`c%,,ad%.,,| 0000d990 61 25 3a e7 61 25 3c 3e 30 8c 3d 61 25 0d 0c 97 |a%:.a%<>0.=a%...| 0000d9a0 11 e7 a4 73 28 61 64 25 29 3d a3 8c 3d 30 0d 0c |...s(ad%)=..=0..| 0000d9b0 98 33 c8 99 22 58 4f 53 5f 48 65 61 70 22 2c 32 |.3.."XOS_Heap",2| 0000d9c0 2c 60 63 25 2c 2c 61 64 25 b8 2c 2c 61 25 3a f2 |,`c%,,ad%.,,a%:.| 0000d9d0 51 61 3a e7 61 25 3d 30 8c 85 31 2c 61 24 28 32 |Qa:.a%=0..1,a$(2| 0000d9e0 29 0d 0c 9b 07 3d 61 25 0d 0c 9e 29 dd a4 74 28 |)....=a%...)..t(| 0000d9f0 62 64 25 29 3a c8 99 22 4f 53 5f 48 65 61 70 22 |bd%):.."OS_Heap"| 0000da00 2c 33 2c 60 63 25 2c 62 64 25 3a f2 51 61 3a 3d |,3,`c%,bd%:.Qa:=| 0000da10 30 0d 0c a3 56 dd a4 73 28 61 64 25 29 3a ea 73 |0...V..s(ad%):.s| 0000da20 25 2c 66 25 3a 73 25 3d a4 71 28 5f 63 25 2b 61 |%,f%:s%=.q(_c%+a| 0000da30 64 25 29 3a c8 99 22 58 57 69 6d 70 5f 53 6c 6f |d%):.."XWimp_Slo| 0000da40 74 53 69 7a 65 22 2c 60 63 25 2b 73 25 2d 33 32 |tSize",`c%+s%-32| 0000da50 37 36 38 2c 2d 31 b8 3b 66 25 3a e7 28 66 25 80 |768,-1.;f%:.(f%.| 0000da60 31 29 3d 31 8c 3d a3 0d 0c a7 27 c8 99 22 4f 53 |1)=1.=....'.."OS| 0000da70 5f 48 65 61 70 22 2c 35 2c 60 63 25 2c 2c 73 25 |_Heap",5,`c%,,s%| 0000da80 2d 5f 63 25 3a 5f 63 25 3d 73 25 3a 3d b9 0d 0c |-_c%:_c%=s%:=...| 0000da90 ac 42 dd f2 51 61 3a ea 73 25 2c 74 25 3a 73 25 |.B..Qa:.s%,t%:s%| 0000daa0 3d 5f 63 25 3a c8 99 22 58 4f 53 5f 48 65 61 70 |=_c%:.."XOS_Heap| 0000dab0 22 2c 35 2c 60 63 25 2c 2c 2d 73 25 b8 2c 2c 2c |",5,`c%,,-s%.,,,| 0000dac0 74 25 3a e7 74 25 3d 2d 73 25 8c 74 25 3d 73 25 |t%:.t%=-s%.t%=s%| 0000dad0 0d 0c b0 57 5f 63 25 3d a4 71 28 5f 63 25 2d 74 |...W_c%=.q(_c%-t| 0000dae0 25 29 3a c8 99 22 58 4f 53 5f 48 65 61 70 22 2c |%):.."XOS_Heap",| 0000daf0 35 2c 60 63 25 2c 2c 5f 63 25 2d 28 73 25 2d 74 |5,`c%,,_c%-(s%-t| 0000db00 25 29 3a c8 99 22 57 69 6d 70 5f 53 6c 6f 74 53 |%):.."Wimp_SlotS| 0000db10 69 7a 65 22 2c 60 63 25 2b 5f 63 25 2d 33 32 37 |ize",`c%+_c%-327| 0000db20 36 38 2c 2d 31 3a e1 0d 0c b4 1d dd a4 71 28 73 |68,-1:.......q(s| 0000db30 25 29 3a ea 74 25 3a e7 28 73 25 83 5a 63 25 29 |%):.t%:.(s%.Zc%)| 0000db40 3c 3e 30 8c 0d 0c b8 1a 74 25 3d 5a 63 25 2d 28 |<>0.....t%=Zc%-(| 0000db50 73 25 83 5a 63 25 29 3a 73 25 2b 3d 74 25 0d 0c |s%.Zc%):s%+=t%..| 0000db60 bb 05 cd 0d 0c bb 07 3d 73 25 0d 0c bf ed dd f2 |.......=s%......| 0000db70 61 61 3a de 62 25 20 31 35 33 36 2c 54 62 25 20 |aa:.b% 1536,Tb% | 0000db80 34 30 30 30 2c 63 64 25 20 38 31 39 32 3a 64 64 |4000,cd% 8192:dd| 0000db90 25 3d 63 64 25 2b 38 31 39 32 3a de 70 25 20 31 |%=cd%+8192:.p% 1| 0000dba0 35 33 36 3a de 6d 63 25 20 34 30 39 36 3a de 65 |536:.mc% 4096:.e| 0000dbb0 64 25 20 31 38 2a 31 30 32 34 2c 66 63 25 20 38 |d% 18*1024,fc% 8| 0000dbc0 2c 65 63 25 20 31 36 2c 68 63 25 20 31 36 2c 64 |,ec% 16,hc% 16,d| 0000dbd0 63 25 20 31 36 3a de 53 62 25 20 31 30 2c 59 62 |c% 16:.Sb% 10,Yb| 0000dbe0 25 20 31 30 3a de 67 25 28 32 29 2c 68 25 28 32 |% 10:.g%(2),h%(2| 0000dbf0 29 3a de 62 25 28 33 29 2c 66 25 28 33 29 2c 65 |):.b%(3),f%(3),e| 0000dc00 25 28 35 29 2c 6a 25 28 35 29 3a de 62 24 28 31 |%(5),j%(5):.b$(1| 0000dc10 30 29 2c 63 25 28 31 30 2c 38 29 2c 61 25 28 32 |0),c%(10,8),a%(2| 0000dc20 29 3a de 69 25 28 32 29 3a 63 25 28 29 3d 30 3a |):.i%(2):c%()=0:| 0000dc30 de 74 25 28 31 30 30 29 3a de 64 25 28 34 2c 34 |.t%(100):.d%(4,4| 0000dc40 29 3a de 63 24 28 36 29 2c 6b 25 28 36 29 3a de |):.c$(6),k%(6):.| 0000dc50 61 24 28 31 30 30 29 0d 0c cd d9 c8 99 22 4f 53 |a$(100)......"OS| 0000dc60 5f 46 69 6c 65 22 2c 31 36 2c 22 3c 52 61 79 24 |_File",16,"<Ray$| 0000dc70 44 69 72 3e 2e 63 6f 64 65 22 2c 6d 63 25 2c 30 |Dir>.code",mc%,0| 0000dc80 3a 6f 62 25 3d bb 28 a4 72 28 22 6d 61 78 5f 73 |:ob%=.(.r("max_s| 0000dc90 75 72 66 61 63 65 73 22 29 29 3a 53 61 25 3d bb |urfaces")):Sa%=.| 0000dca0 28 a4 72 28 22 6d 61 78 5f 6f 62 6a 65 63 74 73 |(.r("max_objects| 0000dcb0 22 29 29 3a 75 25 3d 31 32 33 36 3a 3a 67 61 3d |")):u%=1236::ga=| 0000dcc0 6d 63 25 2b 32 38 39 36 3a 72 61 3d 6d 63 25 2b |mc%+2896:ra=mc%+| 0000dcd0 36 34 3a 73 61 3d 6d 63 25 2b 31 30 34 3a 66 61 |64:sa=mc%+104:fa| 0000dce0 3d 6d 63 25 2b 31 35 36 3a 65 61 3d 6d 63 25 2b |=mc%+156:ea=mc%+| 0000dcf0 31 35 32 3a 74 61 3d 6d 63 25 2b 31 36 30 3a 75 |152:ta=mc%+160:u| 0000dd00 61 3d 6d 63 25 2b 31 36 34 3a 63 61 3d 6d 63 25 |a=mc%+164:ca=mc%| 0000dd10 2b 31 34 34 3a 64 61 3d 6d 63 25 2b 31 34 38 3a |+144:da=mc%+148:| 0000dd20 3a 6b 25 28 30 29 3d 31 3a 63 24 28 29 3d 22 22 |:k%(0)=1:c$()=""| 0000dd30 0d 0c de ba 4f 25 3d 30 3a 45 62 25 3d 30 3a 52 |....O%=0:Eb%=0:R| 0000dd40 62 25 3d 30 3a 65 61 25 3d 33 32 38 3a 72 62 25 |b%=0:ea%=328:rb%| 0000dd50 3d 30 3a 57 61 25 3d 30 3a 46 62 25 3d 30 3a 24 |=0:Wa%=0:Fb%=0:$| 0000dd60 53 62 25 3d 22 22 3a 24 59 62 25 3d 22 41 30 2d |Sb%="":$Yb%="A0-| 0000dd70 39 22 3a 62 61 25 3d 30 3a 72 61 25 3d 30 3a 4b |9":ba%=0:ra%=0:K| 0000dd80 61 25 3d 30 3a 4c 61 25 3d 30 3a 4d 61 25 3d 30 |a%=0:La%=0:Ma%=0| 0000dd90 3a 6c 25 3d 32 34 39 36 30 3a 6e 25 3d 32 34 39 |:l%=24960:n%=249| 0000dda0 36 30 3a 71 25 3d 32 34 39 36 30 3a 77 61 25 3d |60:q%=24960:wa%=| 0000ddb0 31 33 3a 64 61 25 3d 30 3a 54 61 25 3d 30 3a 55 |13:da%=0:Ta%=0:U| 0000ddc0 61 25 3d 30 3a 5f 25 3d 30 3a 6e 62 25 3d 30 3a |a%=0:_%=0:nb%=0:| 0000ddd0 48 25 3d 34 3a 43 61 25 3d 34 3a 64 25 3d 30 3a |H%=4:Ca%=4:d%=0:| 0000dde0 55 25 3d 30 3a 6f 61 25 3d 30 0d 0c e5 cd 66 61 |U%=0:oa%=0....fa| 0000ddf0 25 3d 30 3a 41 61 25 3d 30 3a 60 25 3d 30 3a 4b |%=0:Aa%=0:`%=0:K| 0000de00 62 25 3d 31 3a 51 61 25 3d 30 3a 78 63 25 3d 2d |b%=1:Qa%=0:xc%=-| 0000de10 31 3a 49 62 25 3d 32 3a 53 3d 2d 31 3a c8 99 22 |1:Ib%=2:S=-1:.."| 0000de20 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 |Wimp_Initialise"| 0000de30 2c 32 30 30 2c 26 34 42 35 33 34 31 35 34 2c 22 |,200,&4B534154,"| 0000de40 52 61 79 33 64 22 b8 2c 66 64 25 3a f2 50 61 3a |Ray3d".,fd%:.Pa:| 0000de50 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",| 0000de60 32 36 36 2c 65 64 25 2c 22 3c 52 61 79 24 44 69 |266,ed%,"<Ray$Di| 0000de70 72 3e 2e 53 70 72 69 74 65 73 22 3a 3a 70 62 25 |r>.Sprites"::pb%| 0000de80 3d a4 66 28 35 30 2a 53 61 25 29 3a 71 62 25 3d |=.f(50*Sa%):qb%=| 0000de90 a4 66 28 32 35 2a 53 61 25 29 3a 56 25 3d a4 66 |.f(25*Sa%):V%=.f| 0000dea0 28 34 30 2a 6f 62 25 29 3a 5a 62 25 3d a4 66 28 |(40*ob%):Zb%=.f(| 0000deb0 32 31 2a 6f 62 25 29 0d 0c f0 e5 78 61 25 3d a4 |21*ob%)....xa%=.| 0000dec0 66 28 32 30 30 2a 53 61 25 29 3a 4a 25 3d a4 66 |f(200*Sa%):J%=.f| 0000ded0 28 32 30 2a 53 61 25 29 3a 4b 25 3d a4 66 28 53 |(20*Sa%):K%=.f(S| 0000dee0 61 25 29 3a 59 61 25 3d a4 66 28 53 61 25 29 3a |a%):Ya%=.f(Sa%):| 0000def0 21 74 61 3d 4b 25 3a 21 75 61 3d 59 61 25 3a 21 |!ta=K%:!ua=Ya%:!| 0000df00 78 61 25 3d 2d 32 35 36 3a 3a f2 6e 61 3a f2 52 |xa%=-256::.na:.R| 0000df10 61 3a f2 53 61 3a f2 71 61 3a f2 62 28 6b 61 25 |a:.Sa:.qa:.b(ka%| 0000df20 2c 36 2c 6f 24 29 3a f2 43 28 22 3c 52 61 79 24 |,6,o$):.C("<Ray$| 0000df30 44 69 72 3e 2e 44 65 66 61 75 6c 74 22 29 3a f2 |Dir>.Default"):.| 0000df40 75 28 24 56 25 2c 30 29 3a 3a e3 4e 3d 30 b8 32 |u($V%,0)::.N=0.2| 0000df50 30 2a 53 61 25 88 34 3a 4a 25 21 4e 3d 30 3a ed |0*Sa%.4:J%!N=0:.| 0000df60 3a e3 4e 3d 30 b8 53 61 25 88 34 3a 59 61 25 21 |:.N=0.Sa%.4:Ya%!| 0000df70 4e 3d 30 3a 4b 25 21 4e 3d 30 3a ed 3a e3 4e 3d |N=0:K%!N=0:.:.N=| 0000df80 31 b8 33 3a 67 24 3d c2 67 24 2c a9 28 67 24 29 |1.3:g$=.g$,.(g$)| 0000df90 2d a7 67 24 2c 22 20 22 29 29 3a ed 0d 0d 01 16 |-.g$," ")):.....| 0000dfa0 e7 a7 67 24 2c 22 24 22 29 3e 30 8c f2 43 28 67 |..g$,"$")>0..C(g| 0000dfb0 24 29 0d 0d 02 57 3a 21 62 25 3d 4e 61 25 3a 62 |$)...W:!b%=Na%:b| 0000dfc0 25 21 34 3d 31 38 3a 62 25 21 38 3d 65 25 28 34 |%!4=18:b%!8=e%(4| 0000dfd0 29 3c 3c 32 38 3a 62 25 21 31 32 3d 26 46 30 30 |)<<28:b%!12=&F00| 0000dfe0 30 30 30 30 30 3a c8 99 22 57 69 6d 70 5f 53 65 |00000:.."Wimp_Se| 0000dff0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 3a |tIconState",,b%:| 0000e000 6a 25 28 29 3d 65 25 28 29 0d 0d 07 11 2a 46 58 |j%()=e%()....*FX| 0000e010 20 31 36 33 2c 32 34 32 2c 38 0d 0d 07 05 e1 0d | 163,242,8......| 0000e020 0d 08 79 dd f2 52 61 3a ea 4d 24 2c 43 2c 4e 3a |..y..Ra:.M$,C,N:| 0000e030 4d 24 3d 22 22 3a 43 3d 8e 28 22 3c 52 61 79 24 |M$="":C=.("<Ray$| 0000e040 44 69 72 3e 2e 4d 65 73 73 61 67 65 73 22 29 3a |Dir>.Messages"):| 0000e050 c8 95 4d 24 3c 3e 22 45 6e 64 22 3a 4d 24 3d a4 |..M$<>"End":M$=.| 0000e060 6b 28 43 29 3a e7 4d 24 3c 3e 22 45 6e 64 22 8c |k(C):.M$<>"End".| 0000e070 61 24 28 bb 28 c0 4d 24 2c a7 4d 24 2c 22 3a 22 |a$(.(.M$,.M$,":"| 0000e080 29 29 29 29 3d c2 4d 24 2c a9 28 4d 24 29 2d a7 |))))=.M$,.(M$)-.| 0000e090 4d 24 2c 22 3a 22 29 29 0d 0d 10 0b ce 3a d9 23 |M$,":")).....:.#| 0000e0a0 43 3a e1 0d 0d 13 46 dd a4 6b 28 65 25 29 3a ea |C:....F..k(e%):.| 0000e0b0 73 24 2c 76 25 3a 73 24 3d 22 22 3a 76 25 3d 9a |s$,v%:s$="":v%=.| 0000e0c0 23 65 25 3a c8 95 76 25 3e 33 31 80 ac 28 c5 23 |#e%:..v%>31..(.#| 0000e0d0 65 25 29 3a 73 24 2b 3d bd 76 25 3a 76 25 3d 9a |e%):s$+=.v%:v%=.| 0000e0e0 23 65 25 3a ce 3a 3d 73 24 0d 0d 1e 2d dd f2 4c |#e%:.:=s$...-..L| 0000e0f0 61 3a ea 64 62 25 2c 46 2c 48 2c 49 2c 4a 3a ef |a:.db%,F,H,I,J:.| 0000e100 32 33 2c 36 2c 32 34 30 2c 30 2c 30 2c 30 2c 30 |23,6,240,0,0,0,0| 0000e110 2c 30 2c 30 2c 30 0d 0d 20 09 e7 5a 61 25 8c 0d |,0,0,0.. ..Za%..| 0000e120 0d 21 6b f2 64 28 65 25 28 34 29 29 3a 43 25 3d |.!k.d(e%(4)):C%=| 0000e130 6a 25 2d 75 25 2a 61 3a 44 25 3d 68 25 3a 45 25 |j%-u%*a:D%=h%:E%| 0000e140 3d 68 25 2b 75 25 2a 61 3a 46 25 3d 6a 25 3a 47 |=h%+u%*a:F%=j%:G| 0000e150 25 3d 79 61 25 2a 61 3a d6 72 61 3a 42 25 3d 68 |%=ya%*a:.ra:B%=h| 0000e160 25 3a 44 25 3d 6a 25 3a 45 25 3d 6a 25 2d 75 25 |%:D%=j%:E%=j%-u%| 0000e170 2a 61 3a 46 25 3d 68 25 2b 75 25 2a 61 3a 47 25 |*a:F%=h%+u%*a:G%| 0000e180 3d 79 61 25 2a 61 3a d6 73 61 0d 0d 27 05 cd 0d |=ya%*a:.sa..'...| 0000e190 0d 27 47 21 63 61 3d 68 25 3a 21 64 61 3d 6a 25 |.'G!ca=h%:!da=j%| 0000e1a0 3a 21 65 61 3d 65 25 28 30 29 3a 21 66 61 3d 65 |:!ea=e%(0):!fa=e| 0000e1b0 25 28 33 29 3a 46 25 3d 30 3a 47 25 3d 78 61 25 |%(3):F%=0:G%=xa%| 0000e1c0 3a 45 25 3d 61 2a 32 3a e7 57 25 3d 61 25 28 30 |:E%=a*2:.W%=a%(0| 0000e1d0 29 8c 46 25 3d 31 0d 0d 2b 12 e7 57 25 3d 61 25 |).F%=1..+..W%=a%| 0000e1e0 28 31 29 8c 46 25 3d 32 0d 0d 2c 13 d6 67 61 3a |(1).F%=2..,..ga:| 0000e1f0 3a e7 66 25 28 30 29 8c f2 54 61 0d 0d 2f 0e e7 |:.f%(0)..Ta../..| 0000e200 62 25 28 30 29 8c f2 55 61 0d 0d 30 0d e7 60 25 |b%(0)..Ua..0..`%| 0000e210 3e 30 8c f2 56 61 0d 0d 31 13 f2 57 61 3a e7 43 |>0..Va..1..Wa:.C| 0000e220 61 25 3c 3e 48 25 8c f2 67 0d 0d 33 14 e7 77 61 |a%<>H%..g..3..wa| 0000e230 25 3d 31 34 80 4f 25 3c 3e 30 8c f2 47 0d 0d 34 |%=14.O%<>0..G..4| 0000e240 14 e7 77 61 25 3d 33 30 80 4f 25 3c 3e 30 8c f2 |..wa%=30.O%<>0..| 0000e250 47 0d 0d 35 05 e1 0d 0d 36 32 dd f2 54 61 3a f2 |G..5....62..Ta:.| 0000e260 64 28 31 31 29 3a f2 61 28 34 2c 66 25 28 31 29 |d(11):.a(4,f%(1)| 0000e270 2c 66 25 28 32 29 2c 66 25 28 33 29 29 3a f0 31 |,f%(2),f%(3)):.1| 0000e280 34 35 2c 38 2c 30 3a e1 0d 0d 3a bf dd f2 55 61 |45,8,0:...:...Ua| 0000e290 3a f2 64 28 31 31 29 3a f2 61 28 34 2c 62 25 28 |:.d(11):.a(4,b%(| 0000e2a0 31 29 2d 38 30 2f 61 2c 62 25 28 32 29 2c 62 25 |1)-80/a,b%(2),b%| 0000e2b0 28 33 29 29 3a f2 61 28 35 2c 62 25 28 31 29 2b |(3)):.a(5,b%(1)+| 0000e2c0 38 30 2f 61 2c 62 25 28 32 29 2c 62 25 28 33 29 |80/a,b%(2),b%(3)| 0000e2d0 29 3a f2 61 28 34 2c 62 25 28 31 29 2c 62 25 28 |):.a(4,b%(1),b%(| 0000e2e0 32 29 2d 38 30 2f 61 2c 62 25 28 33 29 29 3a f2 |2)-80/a,b%(3)):.| 0000e2f0 61 28 35 2c 62 25 28 31 29 2c 62 25 28 32 29 2b |a(5,b%(1),b%(2)+| 0000e300 38 30 2f 61 2c 62 25 28 33 29 29 3a f2 61 28 34 |80/a,b%(3)):.a(4| 0000e310 2c 62 25 28 31 29 2c 62 25 28 32 29 2c 62 25 28 |,b%(1),b%(2),b%(| 0000e320 33 29 2d 38 30 2f 61 29 3a f2 61 28 35 2c 62 25 |3)-80/a):.a(5,b%| 0000e330 28 31 29 2c 62 25 28 32 29 2c 62 25 28 33 29 2b |(1),b%(2),b%(3)+| 0000e340 38 30 2f 61 29 3a e1 0d 0d 44 3b dd f2 56 61 3a |80/a):...D;..Va:| 0000e350 ea 4e 2c 46 2c 78 25 2c 79 25 2c 7a 25 2c 69 25 |.N,F,x%,y%,z%,i%| 0000e360 2c 67 64 25 3a f2 64 28 39 29 3a ef 32 33 2c 36 |,gd%:.d(9):.23,6| 0000e370 2c 31 32 38 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |,128,0,0,0,0,0,0| 0000e380 2c 30 0d 0d 49 63 67 64 25 3d 35 3a e3 4e 3d 31 |,0..Icgd%=5:.N=1| 0000e390 b8 60 25 3a 78 25 3d 63 25 28 4e 2c 31 29 3a 79 |.`%:x%=c%(N,1):y| 0000e3a0 25 3d 63 25 28 4e 2c 32 29 3a 7a 25 3d 63 25 28 |%=c%(N,2):z%=c%(| 0000e3b0 4e 2c 33 29 3a 69 25 3d 63 25 28 4e 2c 34 29 2a |N,3):i%=c%(N,4)*| 0000e3c0 32 3a 3a e3 46 3d 31 b8 63 25 28 4e 2c 30 29 2b |2::.F=1.c%(N,0)+| 0000e3d0 31 3a e7 46 3d 32 8c 67 64 25 3d 32 31 3a 69 25 |1:.F=2.gd%=21:i%| 0000e3e0 3d 69 25 2a 38 0d 0d 50 c3 f2 61 28 34 2c 78 25 |=i%*8..P..a(4,x%| 0000e3f0 2d 69 25 2c 79 25 2c 7a 25 29 3a f2 61 28 67 64 |-i%,y%,z%):.a(gd| 0000e400 25 2c 78 25 2b 69 25 2c 79 25 2c 7a 25 29 3a f2 |%,x%+i%,y%,z%):.| 0000e410 61 28 34 2c 78 25 2c 79 25 2d 69 25 2c 7a 25 29 |a(4,x%,y%-i%,z%)| 0000e420 3a f2 61 28 67 64 25 2c 78 25 2c 79 25 2b 69 25 |:.a(gd%,x%,y%+i%| 0000e430 2c 7a 25 29 3a f2 61 28 34 2c 78 25 2c 79 25 2c |,z%):.a(4,x%,y%,| 0000e440 7a 25 2d 69 25 29 3a f2 61 28 67 64 25 2c 78 25 |z%-i%):.a(gd%,x%| 0000e450 2c 79 25 2c 7a 25 2b 69 25 29 3a f2 61 28 34 2c |,y%,z%+i%):.a(4,| 0000e460 78 25 2d 69 25 2c 79 25 2c 7a 25 29 3a f2 61 28 |x%-i%,y%,z%):.a(| 0000e470 67 64 25 2c 78 25 2c 79 25 2b 69 25 2c 7a 25 29 |gd%,x%,y%+i%,z%)| 0000e480 3a f2 61 28 67 64 25 2c 78 25 2b 69 25 2c 79 25 |:.a(gd%,x%+i%,y%| 0000e490 2c 7a 25 29 3a f2 61 28 67 64 25 2c 78 25 2c 79 |,z%):.a(gd%,x%,y| 0000e4a0 25 2d 69 25 2c 7a 25 29 0d 0d 55 e1 f2 61 28 67 |%-i%,z%)..U..a(g| 0000e4b0 64 25 2c 78 25 2d 69 25 2c 79 25 2c 7a 25 29 3a |d%,x%-i%,y%,z%):| 0000e4c0 f2 61 28 34 2c 78 25 2d 69 25 2c 79 25 2c 7a 25 |.a(4,x%-i%,y%,z%| 0000e4d0 29 3a f2 61 28 67 64 25 2c 78 25 2c 79 25 2c 7a |):.a(gd%,x%,y%,z| 0000e4e0 25 2b 69 25 29 3a f2 61 28 67 64 25 2c 78 25 2b |%+i%):.a(gd%,x%+| 0000e4f0 69 25 2c 79 25 2c 7a 25 29 3a f2 61 28 67 64 25 |i%,y%,z%):.a(gd%| 0000e500 2c 78 25 2c 79 25 2c 7a 25 2d 69 25 29 3a f2 61 |,x%,y%,z%-i%):.a| 0000e510 28 67 64 25 2c 78 25 2d 69 25 2c 79 25 2c 7a 25 |(gd%,x%-i%,y%,z%| 0000e520 29 3a f2 61 28 34 2c 78 25 2c 79 25 2c 7a 25 2d |):.a(4,x%,y%,z%-| 0000e530 69 25 29 3a f2 61 28 67 64 25 2c 78 25 2c 79 25 |i%):.a(gd%,x%,y%| 0000e540 2b 69 25 2c 7a 25 29 3a f2 61 28 67 64 25 2c 78 |+i%,z%):.a(gd%,x| 0000e550 25 2c 79 25 2c 7a 25 2b 69 25 29 3a f2 61 28 67 |%,y%,z%+i%):.a(g| 0000e560 64 25 2c 78 25 2c 79 25 2d 69 25 2c 7a 25 29 3a |d%,x%,y%-i%,z%):| 0000e570 f2 61 28 67 64 25 2c 78 25 2c 79 25 2c 7a 25 2d |.a(gd%,x%,y%,z%-| 0000e580 69 25 29 3a ed 3a ed 3a e1 0d 0d 5e 92 dd f2 57 |i%):.:.:...^...W| 0000e590 61 3a f2 64 28 65 25 28 32 29 29 3a f2 61 28 34 |a:.d(e%(2)):.a(4| 0000e5a0 2c 6c 25 2d 31 32 30 2f 61 2c 6e 25 2c 71 25 29 |,l%-120/a,n%,q%)| 0000e5b0 3a f2 61 28 35 2c 6c 25 2b 31 32 30 2f 61 2c 6e |:.a(5,l%+120/a,n| 0000e5c0 25 2c 71 25 29 3a f2 61 28 34 2c 6c 25 2c 6e 25 |%,q%):.a(4,l%,n%| 0000e5d0 2d 31 32 30 2f 61 2c 71 25 29 3a f2 61 28 35 2c |-120/a,q%):.a(5,| 0000e5e0 6c 25 2c 6e 25 2b 31 32 30 2f 61 2c 71 25 29 3a |l%,n%+120/a,q%):| 0000e5f0 f2 61 28 34 2c 6c 25 2c 6e 25 2c 71 25 2d 31 32 |.a(4,l%,n%,q%-12| 0000e600 30 2f 61 29 3a f2 61 28 35 2c 6c 25 2c 6e 25 2c |0/a):.a(5,l%,n%,| 0000e610 71 25 2b 31 32 30 2f 61 29 3a e1 0d 0d 68 49 dd |q%+120/a):...hI.| 0000e620 f2 4b 3a ea 41 2c 42 2c 68 64 25 2c 69 64 25 3a |.K:.A,B,hd%,id%:| 0000e630 69 64 25 3d 28 62 25 21 32 38 29 3d 2d 32 3a 68 |id%=(b%!28)=-2:h| 0000e640 64 25 3d 21 62 25 3a e7 ac 69 64 25 8c c8 99 22 |d%=!b%:..id%..."| 0000e650 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 |Wimp_OpenWindow"| 0000e660 2c 2c 62 25 0d 0d 6c 15 e7 62 25 21 32 38 3d 2d |,,b%..l..b%!28=-| 0000e670 32 8c 62 25 21 32 38 3d 30 0d 0d 6d 0a c8 8e 68 |2.b%!28=0..m...h| 0000e680 64 25 ca 0d 0d 6e 71 c9 54 25 3a 41 3d 62 25 21 |d%...nq.T%:A=b%!| 0000e690 34 3a 42 3d 62 25 21 31 36 3a f2 77 28 68 61 25 |4:B=b%!16:.w(ha%| 0000e6a0 2c 41 2b 31 36 2c 42 2d 32 33 36 2c 41 2b 33 38 |,A+16,B-236,A+38| 0000e6b0 34 2c 42 2d 35 36 2c 30 2c 30 29 3a f2 77 28 67 |4,B-56,0,0):.w(g| 0000e6c0 61 25 2c 41 2b 31 36 2c 42 2d 34 38 30 2c 41 2b |a%,A+16,B-480,A+| 0000e6d0 33 38 34 2c 42 2d 33 30 30 2c 30 2c 30 29 3a 41 |384,B-300,0,0):A| 0000e6e0 3d 33 36 2a 6f 61 25 3a e7 41 3c 31 38 30 8c 41 |=36*oa%:.A<180.A| 0000e6f0 3d 31 38 30 0d 0d 73 79 62 25 21 30 3d 30 3a 62 |=180..syb%!0=0:b| 0000e700 25 21 34 3d 2d 41 3a 62 25 21 38 3d 33 34 38 3a |%!4=-A:b%!8=348:| 0000e710 62 25 21 31 32 3d 30 3a c8 99 22 57 69 6d 70 5f |b%!12=0:.."Wimp_| 0000e720 53 65 74 45 78 74 65 6e 74 22 2c 67 61 25 2c 62 |SetExtent",ga%,b| 0000e730 25 3a 62 25 21 30 3d 30 3a 62 25 21 34 3d 2d 72 |%:b%!0=0:b%!4=-r| 0000e740 62 25 3a 62 25 21 38 3d 33 34 38 3a 62 25 21 31 |b%:b%!8=348:b%!1| 0000e750 32 3d 30 3a c8 99 22 57 69 6d 70 5f 53 65 74 45 |2=0:.."Wimp_SetE| 0000e760 78 74 65 6e 74 22 2c 68 61 25 2c 62 25 0d 0d 78 |xtent",ha%,b%..x| 0000e770 a8 c9 5a 25 3a 41 3d 62 25 21 34 3a 42 3d 62 25 |..Z%:A=b%!4:B=b%| 0000e780 21 31 36 3a f2 77 28 69 61 25 2c 41 2b 31 36 2c |!16:.w(ia%,A+16,| 0000e790 42 2d 33 34 34 2c 41 2b 33 38 38 2c 42 2d 31 36 |B-344,A+388,B-16| 0000e7a0 2c 30 2c 30 29 3a 62 25 21 30 3d 30 3a 62 25 21 |,0,0):b%!0=0:b%!| 0000e7b0 34 3d 2d 65 61 25 3a 62 25 21 38 3d 33 35 36 3a |4=-ea%:b%!8=356:| 0000e7c0 62 25 21 31 32 3d 30 3a c8 99 22 57 69 6d 70 5f |b%!12=0:.."Wimp_| 0000e7d0 53 65 74 45 78 74 65 6e 74 22 2c 69 61 25 2c 62 |SetExtent",ia%,b| 0000e7e0 25 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 61 72 |%:.."Wimp_SetCar| 0000e7f0 65 74 50 6f 73 69 74 69 6f 6e 22 2c 68 64 25 2c |etPosition",hd%,| 0000e800 30 2c 30 2c 30 2c 2d 31 2c a9 28 a4 62 28 68 64 |0,0,0,-1,.(.b(hd| 0000e810 25 2c 30 29 29 0d 0d 7e 3e c9 4e 61 25 3a c8 99 |%,0))..~>.Na%:..| 0000e820 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f |"Wimp_SetCaretPo| 0000e830 73 69 74 69 6f 6e 22 2c 68 64 25 2c 31 39 2c 30 |sition",hd%,19,0| 0000e840 2c 30 2c 2d 31 2c a9 28 a4 62 28 68 64 25 2c 31 |,0,-1,.(.b(hd%,1| 0000e850 39 29 29 0d 0d 7f 3e c9 4a 61 25 3a c8 99 22 57 |9))...>.Ja%:.."W| 0000e860 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 |imp_SetCaretPosi| 0000e870 74 69 6f 6e 22 2c 68 64 25 2c 31 31 2c 30 2c 30 |tion",hd%,11,0,0| 0000e880 2c 2d 31 2c a9 28 a4 62 28 68 64 25 2c 31 31 29 |,-1,.(.b(hd%,11)| 0000e890 29 0d 0d 80 3c c9 73 61 25 3a c8 99 22 57 69 6d |)...<.sa%:.."Wim| 0000e8a0 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi| 0000e8b0 6f 6e 22 2c 68 64 25 2c 31 2c 30 2c 30 2c 2d 31 |on",hd%,1,0,0,-1| 0000e8c0 2c a9 28 a4 62 28 68 64 25 2c 31 29 29 0d 0d 81 |,.(.b(hd%,1))...| 0000e8d0 3c c9 71 61 25 3a c8 99 22 57 69 6d 70 5f 53 65 |<.qa%:.."Wimp_Se| 0000e8e0 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c |tCaretPosition",| 0000e8f0 68 64 25 2c 31 2c 30 2c 30 2c 2d 31 2c a9 28 a4 |hd%,1,0,0,-1,.(.| 0000e900 62 28 68 64 25 2c 31 29 29 0d 0d 82 3c c9 74 61 |b(hd%,1))...<.ta| 0000e910 25 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 61 72 |%:.."Wimp_SetCar| 0000e920 65 74 50 6f 73 69 74 69 6f 6e 22 2c 68 64 25 2c |etPosition",hd%,| 0000e930 31 2c 30 2c 30 2c 2d 31 2c a9 28 a4 62 28 68 64 |1,0,0,-1,.(.b(hd| 0000e940 25 2c 31 29 29 0d 0d 83 3c c9 4f 61 25 3a c8 99 |%,1))...<.Oa%:..| 0000e950 22 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f |"Wimp_SetCaretPo| 0000e960 73 69 74 69 6f 6e 22 2c 68 64 25 2c 34 2c 30 2c |sition",hd%,4,0,| 0000e970 30 2c 2d 31 2c a9 28 a4 62 28 68 64 25 2c 34 29 |0,-1,.(.b(hd%,4)| 0000e980 29 0d 0d 84 3c c9 50 61 25 3a c8 99 22 57 69 6d |)...<.Pa%:.."Wim| 0000e990 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 74 69 |p_SetCaretPositi| 0000e9a0 6f 6e 22 2c 68 64 25 2c 32 2c 30 2c 30 2c 2d 31 |on",hd%,2,0,0,-1| 0000e9b0 2c a9 28 a4 62 28 68 64 25 2c 32 29 29 0d 0d 85 |,.(.b(hd%,2))...| 0000e9c0 05 cb 0d 0d 85 09 e7 69 64 25 8c 0d 0d 86 48 21 |.......id%....H!| 0000e9d0 62 25 3d 68 64 25 3a c8 99 22 57 69 6d 70 5f 47 |b%=hd%:.."Wimp_G| 0000e9e0 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,| 0000e9f0 62 25 3a 62 25 21 32 38 3d 2d 32 3a c8 99 22 57 |b%:b%!28=-2:.."W| 0000ea00 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c |imp_OpenWindow",| 0000ea10 2c 62 25 0d 0d 89 05 cd 0d 0d 89 05 e1 0d 0d 8a |,b%.............| 0000ea20 62 dd f2 57 3a 21 62 25 3d 5a 25 3a 62 25 21 34 |b..W:!b%=Z%:b%!4| 0000ea30 3d 64 25 28 34 2c 31 29 3a 62 25 21 38 3d 64 25 |=d%(4,1):b%!8=d%| 0000ea40 28 34 2c 32 29 3a 62 25 21 31 32 3d 64 25 28 34 |(4,2):b%!12=d%(4| 0000ea50 2c 33 29 3a 62 25 21 31 36 3d 64 25 28 34 2c 34 |,3):b%!16=d%(4,4| 0000ea60 29 3a 62 25 21 32 30 3d 30 3a 62 25 21 32 34 3d |):b%!20=0:b%!24=| 0000ea70 30 3a 62 25 21 32 38 3d 2d 31 3a f2 4b 3a e1 0d |0:b%!28=-1:.K:..| 0000ea80 0d 91 3c dd f2 6d 28 57 25 29 3a 21 62 25 3d 57 |..<..m(W%):!b%=W| 0000ea90 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 69 6e |%:.."Wimp_GetWin| 0000eaa0 64 6f 77 53 74 61 74 65 22 2c 2c 62 25 3a 62 25 |dowState",,b%:b%| 0000eab0 21 32 38 3d 2d 31 3a f2 4b 3a e1 0d 0d 96 a6 dd |!28=-1:.K:......| 0000eac0 f2 77 28 77 25 2c 6a 64 25 2c 6b 64 25 2c 6c 64 |.w(w%,jd%,kd%,ld| 0000ead0 25 2c 6d 64 25 2c 6e 64 25 2c 6f 64 25 29 3a 21 |%,md%,nd%,od%):!| 0000eae0 62 25 3d 77 25 3a 62 25 21 34 3d 6a 64 25 3a 62 |b%=w%:b%!4=jd%:b| 0000eaf0 25 21 38 3d 6b 64 25 3a 62 25 21 31 32 3d 6c 64 |%!8=kd%:b%!12=ld| 0000eb00 25 3a 62 25 21 31 36 3d 6d 64 25 3a 62 25 21 32 |%:b%!16=md%:b%!2| 0000eb10 30 3d 6e 64 25 3a 62 25 21 32 34 3d 6f 64 25 3a |0=nd%:b%!24=od%:| 0000eb20 c8 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 |.."Wimp_OpenWind| 0000eb30 6f 77 22 2c 2c 62 25 3a c8 99 22 57 69 6d 70 5f |ow",,b%:.."Wimp_| 0000eb40 46 6f 72 63 65 52 65 64 72 61 77 22 2c 77 25 2c |ForceRedraw",w%,| 0000eb50 6a 64 25 2c 6b 64 25 2c 6c 64 25 2c 6d 64 25 3a |jd%,kd%,ld%,md%:| 0000eb60 e1 0d 0d 9d ec dd f2 4e 3a c8 99 22 57 69 6d 70 |.......N:.."Wimp| 0000eb70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"| 0000eb80 2c 2c 62 25 2b 31 32 3a 58 25 3d 62 25 21 31 36 |,,b%+12:X%=b%!16| 0000eb90 2d 62 25 21 33 32 3a 59 25 3d 62 25 21 32 38 2d |-b%!32:Y%=b%!28-| 0000eba0 62 25 21 33 36 3a 62 25 21 31 36 3d 49 25 3a c8 |b%!36:b%!16=I%:.| 0000ebb0 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 |."Wimp_GetIconSt| 0000ebc0 61 74 65 22 2c 2c 62 25 2b 31 32 3a 62 25 21 31 |ate",,b%+12:b%!1| 0000ebd0 36 3d 35 3a 62 25 21 32 30 2b 3d 58 25 2d 32 3a |6=5:b%!20+=X%-2:| 0000ebe0 62 25 21 32 34 2b 3d 59 25 2d 34 3a 62 25 21 32 |b%!24+=Y%-4:b%!2| 0000ebf0 38 2b 3d 58 25 2b 32 3a 62 25 21 33 32 2b 3d 59 |8+=X%+2:b%!32+=Y| 0000ec00 25 2b 34 3a 62 25 21 33 36 3d 30 3a 62 25 21 34 |%+4:b%!36=0:b%!4| 0000ec10 30 3d 30 3a 62 25 21 34 34 3d 26 37 46 46 46 46 |0=0:b%!44=&7FFFF| 0000ec20 46 46 46 3a 62 25 21 34 38 3d 26 37 46 46 46 46 |FFF:b%!48=&7FFFF| 0000ec30 46 46 46 3a c8 99 22 57 69 6d 70 5f 44 72 61 67 |FFF:.."Wimp_Drag| 0000ec40 42 6f 78 22 2c 2c 62 25 2b 31 32 3a e1 0d 0d ad |Box",,b%+12:....| 0000ec50 27 dd f2 67 61 3a ea 74 25 3a e7 72 61 25 3d 31 |'..ga:.t%:.ra%=1| 0000ec60 8c 65 24 3d a4 62 28 71 61 25 2c 31 29 3a 74 25 |.e$=.b(qa%,1):t%| 0000ec70 3d 32 35 32 0d 0d b1 1e e7 72 61 25 3d 34 8c 65 |=252.....ra%=4.e| 0000ec80 24 3d a4 62 28 73 61 25 2c 31 29 3a 74 25 3d 32 |$=.b(sa%,1):t%=2| 0000ec90 35 31 0d 0d b2 1e e7 72 61 25 3d 35 8c 65 24 3d |51.....ra%=5.e$=| 0000eca0 a4 62 28 74 61 25 2c 31 29 3a 74 25 3d 32 35 30 |.b(ta%,1):t%=250| 0000ecb0 0d 0d b3 2b c8 99 22 57 69 6d 70 5f 47 65 74 50 |...+.."Wimp_GetP| 0000ecc0 6f 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 62 25 3a |ointerInfo",,b%:| 0000ecd0 e7 62 25 21 31 32 3d 2d 31 8c e1 0d 0d b5 9f 53 |.b%!12=-1......S| 0000ece0 3d 30 3a 62 25 21 32 30 3d 32 35 36 3a 62 25 21 |=0:b%!20=256:b%!| 0000ecf0 33 32 3d 53 3a 62 25 21 33 36 3d 31 3a 62 25 21 |32=S:b%!36=1:b%!| 0000ed00 34 30 3d 62 25 21 31 32 3a 62 25 21 34 34 3d 62 |40=b%!12:b%!44=b| 0000ed10 25 21 31 36 3a 62 25 21 34 38 3d 21 62 25 3a 62 |%!16:b%!48=!b%:b| 0000ed20 25 21 35 32 3d 62 25 21 34 3a 62 25 21 35 36 3d |%!52=b%!4:b%!56=| 0000ed30 2d 31 3a 62 25 21 36 30 3d 74 25 3a 24 28 62 25 |-1:b%!60=t%:$(b%| 0000ed40 2b 36 34 29 3d a4 6d 28 65 24 29 2b bd 30 3a c8 |+64)=.m(e$)+.0:.| 0000ed50 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 |."Wimp_SendMessa| 0000ed60 67 65 22 2c 31 37 2c 62 25 2b 32 30 2c 62 25 21 |ge",17,b%+20,b%!| 0000ed70 31 32 2c 62 25 21 31 36 3a e1 0d 0d bf 1a dd f2 |12,b%!16:.......| 0000ed80 6a 61 28 4d 25 29 3a ea 41 24 2c 70 64 25 3a c8 |ja(M%):.A$,pd%:.| 0000ed90 8e 4d 25 ca 0d 0d c5 0d c9 30 3a 62 61 25 3d 2d |.M%......0:ba%=-| 0000eda0 31 0d 0d c7 11 c9 31 3a e7 62 25 21 31 32 3c 3e |1.....1:.b%!12<>| 0000edb0 53 8c 0d 0d ca 62 62 25 21 30 3d 36 30 3a 62 25 |S....bb%!0=60:b%| 0000edc0 21 31 32 3d 62 25 21 38 3a 62 25 21 31 36 3d 32 |!12=b%!8:b%!16=2| 0000edd0 3a 62 25 21 33 36 3d 2d 31 3a 24 28 62 25 2b 34 |:b%!36=-1:$(b%+4| 0000ede0 34 29 3d 22 3c 57 69 6d 70 24 53 63 72 61 70 3e |4)="<Wimp$Scrap>| 0000edf0 22 2b bd 30 3a c8 99 22 57 69 6d 70 5f 53 65 6e |"+.0:.."Wimp_Sen| 0000ee00 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 62 25 2c |dMessage",17,b%,| 0000ee10 62 25 21 34 0d 0d cf 05 cd 0d 0d cf 59 c9 32 3a |b%!4........Y.2:| 0000ee20 41 24 3d a4 6c 28 62 25 2b 34 34 29 3a 62 25 21 |A$=.l(b%+44):b%!| 0000ee30 31 32 3d 62 25 21 38 3a 62 25 21 31 36 3d 33 3a |12=b%!8:b%!16=3:| 0000ee40 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 |.."Wimp_SendMess| 0000ee50 61 67 65 22 2c 31 37 2c 62 25 2c 62 25 21 34 3a |age",17,b%,b%!4:| 0000ee60 53 3d 2d 31 3a e7 72 61 25 3d 31 8c f2 41 28 41 |S=-1:.ra%=1..A(A| 0000ee70 24 29 0d 0d d3 11 e7 72 61 25 3d 34 8c f2 4f 28 |$).....ra%=4..O(| 0000ee80 41 24 29 0d 0d d4 0b e7 72 61 25 3d 35 8c 0d 0d |A$).....ra%=5...| 0000ee90 d5 13 e7 51 61 25 8c 85 31 37 2c 61 24 28 32 35 |...Qa%..17,a$(25| 0000eea0 29 0d 0d d6 49 6b 24 3d 41 24 3a 52 61 25 3d ae |)...Ik$=A$:Ra%=.| 0000eeb0 28 6b 24 29 3a 51 61 25 3d 2d 31 3a ff 28 22 53 |(k$):Qa%=-1:.("S| 0000eec0 65 74 74 79 70 65 20 22 2b 6b 24 2b 22 20 30 66 |ettype "+k$+" 0f| 0000eed0 61 22 29 3a c8 99 22 57 69 6d 70 5f 43 72 65 61 |a"):.."Wimp_Crea| 0000eee0 74 65 4d 65 6e 75 22 2c 2d 31 0d 0d da 05 cd 0d |teMenu",-1......| 0000eef0 0d da 78 c9 33 3a 41 24 3d a4 6c 28 62 25 2b 34 |..x.3:A$=.l(b%+4| 0000ef00 34 29 3a 70 64 25 3d 62 25 21 34 30 3a 62 25 21 |4):pd%=b%!40:b%!| 0000ef10 31 32 3d 62 25 21 38 3a 62 25 21 31 36 3d 34 3a |12=b%!8:b%!16=4:| 0000ef20 62 25 21 33 36 3d 2d 31 3a 24 28 62 25 2b 34 34 |b%!36=-1:$(b%+44| 0000ef30 29 3d 41 24 2b bd 30 3a c8 99 22 57 69 6d 70 5f |)=A$+.0:.."Wimp_| 0000ef40 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c |SendMessage",17,| 0000ef50 62 25 2c 62 25 21 34 3a e7 70 64 25 3d 32 35 32 |b%,b%!4:.pd%=252| 0000ef60 8c f2 43 28 41 24 29 0d 0d e1 14 e7 70 64 25 3d |..C(A$).....pd%=| 0000ef70 32 35 31 8c f2 72 61 28 41 24 29 0d 0d e2 0d e7 |251..ra(A$).....| 0000ef80 70 64 25 3d 32 35 30 8c 0d 0d e3 12 e7 51 61 25 |pd%=250......Qa%| 0000ef90 8c 85 31 37 2c 61 24 28 31 29 0d 0d e4 22 f2 62 |..17,a$(1)...".b| 0000efa0 28 4f 61 25 2c 31 2c a4 6d 28 41 24 29 29 3a 6b |(Oa%,1,.m(A$)):k| 0000efb0 24 3d 41 24 3a f2 6d 28 4f 61 25 29 0d 0d e8 05 |$=A$:.m(Oa%)....| 0000efc0 cd 0d 0d e8 26 e7 41 24 3d 22 3c 57 69 6d 70 24 |....&.A$="<Wimp$| 0000efd0 53 63 72 61 70 3e 22 8c ff 28 22 44 65 6c 65 74 |Scrap>"..("Delet| 0000efe0 65 20 22 2b 41 24 29 0d 0d e9 23 c9 35 3a e7 62 |e "+A$)...#.5:.b| 0000eff0 25 21 34 30 3d 32 35 32 8c f2 58 61 3a f2 43 28 |%!40=252..Xa:.C(| 0000f000 a4 6c 28 62 25 2b 34 34 29 29 0d 0d ea 05 cb 0d |.l(b%+44))......| 0000f010 0d eb 05 e1 0d 0d ec 44 dd f2 58 61 3a 62 25 21 |.......D..Xa:b%!| 0000f020 31 32 3d 62 25 21 38 3a 62 25 21 31 36 3d 34 3a |12=b%!8:b%!16=4:| 0000f030 21 62 25 3d 36 34 3a c8 99 22 57 69 6d 70 5f 53 |!b%=64:.."Wimp_S| 0000f040 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 62 |endMessage",17,b| 0000f050 25 2c 62 25 21 34 3a e1 0d 0d f1 07 dd f2 4c 0d |%,b%!4:.......L.| 0000f060 0d f6 0a 2a 43 4c 4f 53 45 0d 0d f6 18 c8 99 22 |...*CLOSE......"| 0000f070 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 3a |Wimp_CloseDown":| 0000f080 e1 0d 0d f8 e1 dd f2 53 61 3a c8 99 22 57 69 6d |.......Sa:.."Wim| 0000f090 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c |p_OpenTemplate",| 0000f0a0 2c 22 3c 52 61 79 24 44 69 72 3e 2e 54 65 6d 70 |,"<Ray$Dir>.Temp| 0000f0b0 6c 61 74 65 73 22 3a 6b 61 25 3d a4 63 28 22 69 |lates":ka%=.c("i| 0000f0c0 6e 66 6f 22 29 3a 73 61 25 3d a4 63 28 22 73 61 |nfo"):sa%=.c("sa| 0000f0d0 76 65 73 65 6c 22 29 3a 6e 61 25 3d a4 63 28 22 |vesel"):na%=.c("| 0000f0e0 73 75 72 66 61 63 65 22 29 3a 54 25 3d a4 63 28 |surface"):T%=.c(| 0000f0f0 22 74 65 78 74 75 72 65 22 29 3a 5a 25 3d a4 63 |"texture"):Z%=.c| 0000f100 28 22 74 6f 6f 6c 73 22 29 3a 49 61 25 3d a4 63 |("tools"):Ia%=.c| 0000f110 28 22 62 61 63 6b 67 72 6f 75 6e 64 22 29 3a 6d |("background"):m| 0000f120 61 25 3d a4 63 28 22 6c 69 67 68 74 22 29 3a 61 |a%=.c("light"):a| 0000f130 25 28 30 29 3d a4 63 28 22 46 72 6f 6e 74 22 29 |%(0)=.c("Front")| 0000f140 3a 61 25 28 31 29 3d a4 63 28 22 73 69 64 65 22 |:a%(1)=.c("side"| 0000f150 29 3a 61 25 28 32 29 3d a4 63 28 22 70 6c 61 6e |):a%(2)=.c("plan| 0000f160 22 29 0d 0e 07 dc 71 61 25 3d a4 63 28 22 73 61 |")....qa%=.c("sa| 0000f170 76 65 22 29 3a 4a 61 25 3d a4 63 28 22 72 6f 74 |ve"):Ja%=.c("rot| 0000f180 61 74 65 22 29 3a 4e 61 25 3d a4 63 28 22 47 72 |ate"):Na%=.c("Gr| 0000f190 69 64 5f 6f 70 74 22 29 3a 5f 61 25 3d a4 63 28 |id_opt"):_a%=.c(| 0000f1a0 22 6f 70 74 69 6f 6e 73 22 29 3a 63 61 25 3d a4 |"options"):ca%=.| 0000f1b0 63 28 22 71 75 69 74 22 29 3a 65 62 25 3d a4 63 |c("quit"):eb%=.c| 0000f1c0 28 22 65 72 72 6f 72 22 29 3a 4a 62 25 3d a4 63 |("error"):Jb%=.c| 0000f1d0 28 22 70 72 69 6e 74 22 29 3a 55 62 25 3d a4 63 |("print"):Ub%=.c| 0000f1e0 28 22 69 6e 66 6f 32 22 29 3a 67 61 25 3d a4 63 |("info2"):ga%=.c| 0000f1f0 28 22 53 75 72 66 5f 4c 69 73 74 22 29 3a 68 61 |("Surf_List"):ha| 0000f200 25 3d a4 63 28 22 6f 62 6a 5f 6c 69 73 74 22 29 |%=.c("obj_list")| 0000f210 3a 69 61 25 3d a4 63 28 22 6d 61 69 6e 22 29 3a |:ia%=.c("main"):| 0000f220 70 61 25 3d a4 63 28 22 33 64 22 29 3a 74 61 25 |pa%=.c("3d"):ta%| 0000f230 3d a4 63 28 22 72 65 63 5f 6d 61 63 22 29 0d 0e |=.c("rec_mac")..| 0000f240 14 3b 4f 61 25 3d a4 63 28 22 6d 61 63 72 6f 22 |.;Oa%=.c("macro"| 0000f250 29 3a 50 61 25 3d a4 63 28 22 46 52 41 43 22 29 |):Pa%=.c("FRAC")| 0000f260 3a c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 54 65 |:.."Wimp_CloseTe| 0000f270 6d 70 6c 61 74 65 22 3a e1 0d 0e 18 64 dd a4 63 |mplate":....d..c| 0000f280 28 64 24 29 3a c8 99 22 57 69 6d 70 5f 4c 6f 61 |(d$):.."Wimp_Loa| 0000f290 64 54 65 6d 70 6c 61 74 65 22 2c 2c 62 25 2c 63 |dTemplate",,b%,c| 0000f2a0 64 25 2c 64 64 25 2c 2d 31 2c 64 24 2c 30 b8 2c |d%,dd%,-1,d$,0.,| 0000f2b0 2c 63 64 25 2c 2c 2c 2c 50 25 3a e7 64 24 3d 22 |,cd%,,,,P%:.d$="| 0000f2c0 74 6f 6f 6c 73 22 84 64 24 3d 22 73 75 72 66 61 |tools".d$="surfa| 0000f2d0 63 65 22 8c 62 25 21 36 34 3d 65 64 25 0d 0e 1c |ce".b%!64=ed%...| 0000f2e0 1a e7 64 24 3d 22 72 6f 74 61 74 65 22 8c 62 25 |..d$="rotate".b%| 0000f2f0 21 36 34 3d 65 64 25 0d 0e 1d 1b e7 64 24 3d 22 |!64=ed%.....d$="| 0000f300 74 65 78 74 75 72 65 22 8c 62 25 21 36 34 3d 65 |texture".b%!64=e| 0000f310 64 25 0d 0e 1e 26 c8 99 22 57 69 6d 70 5f 43 72 |d%...&.."Wimp_Cr| 0000f320 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 25 b8 |eateWindow",,b%.| 0000f330 71 64 25 3a 3d 71 64 25 0d 0e 24 5b dd a4 6e 28 |qd%:=qd%..$[..n(| 0000f340 57 25 2c 49 25 2c 47 61 25 29 3a ea 72 64 25 2c |W%,I%,Ga%):.rd%,| 0000f350 4e 3a c8 99 22 57 69 6d 70 5f 57 68 69 63 68 49 |N:.."Wimp_WhichI| 0000f360 63 6f 6e 22 2c 57 25 2c 62 25 2c 36 31 34 34 30 |con",W%,b%,61440| 0000f370 2c 35 37 33 34 34 3a 4e 3d 2d 34 3a f5 3a 4e 2b |,57344:N=-4:.:N+| 0000f380 3d 34 3a fd 62 25 21 4e 3d 49 25 3a e7 47 61 25 |=4:.b%!N=I%:.Ga%| 0000f390 3d 30 8c 0d 0e 28 18 e7 4e 3d 30 8c f5 3a 4e 2b |=0...(..N=0..:N+| 0000f3a0 3d 34 3a fd 62 25 21 4e 3d 2d 31 0d 0e 29 10 72 |=4:.b%!N=-1..).r| 0000f3b0 64 25 3d 62 25 21 28 4e 2d 34 29 0d 0e 2b 28 cc |d%=b%!(N-4)..+(.| 0000f3c0 3a e7 62 25 21 28 4e 2b 34 29 3d 2d 31 8c 72 64 |:.b%!(N+4)=-1.rd| 0000f3d0 25 3d 62 25 21 30 8b 72 64 25 3d 62 25 21 28 4e |%=b%!0.rd%=b%!(N| 0000f3e0 2b 34 29 0d 0e 2c 05 cd 0d 0e 2d 08 3d 72 64 25 |+4)..,....-.=rd%| 0000f3f0 0d 0e 30 46 dd a4 62 28 73 64 25 2c 74 64 25 29 |..0F..b(sd%,td%)| 0000f400 3a 62 25 21 30 3d 73 64 25 3a 62 25 21 34 3d 74 |:b%!0=sd%:b%!4=t| 0000f410 64 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 49 63 |d%:.."Wimp_GetIc| 0000f420 6f 6e 53 74 61 74 65 22 2c 2c 62 25 3a 3d 24 28 |onState",,b%:=$(| 0000f430 62 25 21 32 38 29 0d 0e 35 48 dd f2 70 28 21 62 |b%!28)..5H..p(!b| 0000f440 25 2c 62 25 21 34 2c 4e 25 29 3a 62 25 21 38 3d |%,b%!4,N%):b%!8=| 0000f450 4e 25 3c 3c 32 31 3a 62 25 21 31 32 3d 31 3c 3c |N%<<21:b%!12=1<<| 0000f460 32 31 3a c8 99 22 57 69 6d 70 5f 53 65 74 49 63 |21:.."Wimp_SetIc| 0000f470 6f 6e 53 74 61 74 65 22 2c 2c 62 25 3a e1 0d 0e |onState",,b%:...| 0000f480 38 72 dd f2 62 28 57 25 2c 49 25 2c 53 24 29 3a |8r..b(W%,I%,S$):| 0000f490 62 25 21 30 3d 57 25 3a 62 25 21 34 3d 49 25 3a |b%!0=W%:b%!4=I%:| 0000f4a0 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS| 0000f4b0 74 61 74 65 22 2c 2c 62 25 3a 24 28 62 25 21 32 |tate",,b%:$(b%!2| 0000f4c0 38 29 3d 53 24 3a 62 25 21 38 3d 30 3a 62 25 21 |8)=S$:b%!8=0:b%!| 0000f4d0 31 32 3d 30 3a c8 99 22 57 69 6d 70 5f 53 65 74 |12=0:.."Wimp_Set| 0000f4e0 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 25 3a e1 |IconState",,b%:.| 0000f4f0 0d 0e 40 60 dd a4 72 28 72 24 29 3a ea 53 24 2c |..@`..r(r$):.S$,| 0000f500 63 62 25 2c 4e 3a c8 99 22 4f 53 5f 52 65 61 64 |cb%,N:.."OS_Read| 0000f510 56 61 72 56 61 6c 22 2c 72 24 2c 62 25 2c 32 35 |VarVal",r$,b%,25| 0000f520 30 2c 30 2c 30 b8 2c 2c 63 62 25 3a 53 24 3d 22 |0,0,0.,,cb%:S$="| 0000f530 22 3a e3 4e 3d 30 b8 63 62 25 2d 31 3a 53 24 3d |":.N=0.cb%-1:S$=| 0000f540 53 24 2b bd 28 62 25 3f 4e 29 3a ed 3a 3d 53 24 |S$+.(b%?N):.:=S$| 0000f550 0d 0e 48 41 dd f2 65 3a ea 4e 2c 41 3a e3 4e 3d |..HA..e:.N,A:.N=| 0000f560 30 b8 32 3a c8 99 22 57 69 6d 70 5f 46 6f 72 63 |0.2:.."Wimp_Forc| 0000f570 65 52 65 64 72 61 77 22 2c 61 25 28 4e 29 2c 30 |eRedraw",a%(N),0| 0000f580 2c 2d 75 25 2a 61 2c 75 25 2a 61 2c 30 3a ed 3a |,-u%*a,u%*a,0:.:| 0000f590 e1 0d 0e 4b 31 dd f2 68 3a c8 99 22 57 69 6d 70 |...K1..h:.."Wimp| 0000f5a0 5f 46 6f 72 63 65 52 65 64 72 61 77 22 2c 69 61 |_ForceRedraw",ia| 0000f5b0 25 2c 30 2c 2d 33 36 30 30 30 2c 33 34 38 2c 30 |%,0,-36000,348,0| 0000f5c0 3a e1 0d 0e 4f 17 dd f2 65 61 28 57 25 29 3a ea |:...O...ea(W%):.| 0000f5d0 60 61 25 3a c8 8e 57 25 ca 0d 0e 53 a5 c9 61 25 |`a%:..W%...S..a%| 0000f5e0 28 30 29 2c 61 25 28 31 29 2c 61 25 28 32 29 3a |(0),a%(1),a%(2):| 0000f5f0 c8 99 22 57 69 6d 70 5f 53 70 72 69 74 65 4f 70 |.."Wimp_SpriteOp| 0000f600 22 2c 33 36 2c 2c 22 70 74 72 5f 63 72 6f 73 73 |",36,,"ptr_cross| 0000f610 22 2c 31 2c 36 2c 33 3a 21 62 25 3d 5a 25 3a c8 |",1,6,3:!b%=Z%:.| 0000f620 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow| 0000f630 49 6e 66 6f 22 2c 2c 62 25 3a 60 61 25 3d 3f 28 |Info",,b%:`a%=?(| 0000f640 62 25 2b 33 34 29 80 31 3a e7 60 61 25 c8 99 22 |b%+34).1:.`a%.."| 0000f650 57 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 |Wimp_SetCaretPos| 0000f660 69 74 69 6f 6e 22 2c 5a 25 2c 30 2c 30 2c 30 2c |ition",Z%,0,0,0,| 0000f670 2d 31 2c a9 28 a4 62 28 5a 25 2c 30 29 29 0d 0e |-1,.(.b(Z%,0))..| 0000f680 57 39 c9 5a 25 3a c8 99 22 57 69 6d 70 5f 53 65 |W9.Z%:.."Wimp_Se| 0000f690 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c |tCaretPosition",| 0000f6a0 5a 25 2c 30 2c 30 2c 30 2c 2d 31 2c a9 28 a4 62 |Z%,0,0,0,-1,.(.b| 0000f6b0 28 5a 25 2c 30 29 29 0d 0e 5a 05 cb 0d 0e 5a 05 |(Z%,0))..Z....Z.| 0000f6c0 e1 0d 0e 5b 38 dd f2 64 61 28 57 25 29 3a c8 99 |...[8..da(W%):..| 0000f6d0 22 57 69 6d 70 5f 53 70 72 69 74 65 4f 70 22 2c |"Wimp_SpriteOp",| 0000f6e0 33 36 2c 2c 22 70 74 72 5f 64 65 66 61 75 6c 74 |36,,"ptr_default| 0000f6f0 22 2c 31 2c 31 2c 31 3a e1 0d 0e 5f 6b dd f2 66 |",1,1,1:..._k..f| 0000f700 28 48 24 29 3a 62 25 21 30 3d 32 35 36 3a 62 25 |(H$):b%!0=256:b%| 0000f710 21 34 3d 30 3a 62 25 21 38 3d 30 3a 62 25 21 31 |!4=0:b%!8=0:b%!1| 0000f720 32 3d 30 3a 62 25 21 31 36 3d 33 39 31 36 38 3a |2=0:b%!16=39168:| 0000f730 24 28 62 25 2b 32 30 29 3d 22 21 52 61 79 33 64 |$(b%+20)="!Ray3d| 0000f740 40 22 2b 48 24 3a c8 99 22 57 69 6d 70 5f 53 65 |@"+H$:.."Wimp_Se| 0000f750 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 62 25 |ndMessage",17,b%| 0000f760 2c 30 3a e1 0d 0e 65 14 dd f2 6d 61 28 68 64 25 |,0:...e...ma(hd%| 0000f770 29 3a c8 8e 68 64 25 ca 0d 0e 68 0e c9 5a 25 3a |):..hd%...h..Z%:| 0000f780 c8 8e 77 61 25 ca 0d 0e 6a 10 c9 31 3a f2 66 28 |..wa%...j..1:.f(| 0000f790 22 31 30 30 22 29 0d 0e 6c 10 c9 32 3a f2 66 28 |"100")..l..2:.f(| 0000f7a0 22 31 30 31 22 29 0d 0e 6d 10 c9 33 3a f2 66 28 |"101")..m..3:.f(| 0000f7b0 22 31 30 32 22 29 0d 0e 6e 10 c9 34 3a f2 66 28 |"102")..n..4:.f(| 0000f7c0 22 31 30 33 22 29 0d 0e 6f 10 c9 35 3a f2 66 28 |"103")..o..5:.f(| 0000f7d0 22 31 30 37 22 29 0d 0e 70 10 c9 36 3a f2 66 28 |"107")..p..6:.f(| 0000f7e0 22 31 30 36 22 29 0d 0e 71 10 c9 37 3a f2 66 28 |"106")..q..7:.f(| 0000f7f0 22 31 30 38 22 29 0d 0e 72 10 c9 38 3a f2 66 28 |"108")..r..8:.f(| 0000f800 22 31 31 30 22 29 0d 0e 73 0f c9 39 3a f2 66 28 |"110")..s..9:.f(| 0000f810 22 33 32 22 29 0d 0e 74 10 c9 31 30 3a f2 66 28 |"32")..t..10:.f(| 0000f820 22 33 32 22 29 0d 0e 75 10 c9 31 31 3a f2 66 28 |"32")..u..11:.f(| 0000f830 22 31 35 22 29 0d 0e 76 10 c9 31 32 3a f2 66 28 |"15")..v..12:.f(| 0000f840 22 31 35 22 29 0d 0e 77 10 c9 31 33 3a f2 66 28 |"15")..w..13:.f(| 0000f850 22 31 35 22 29 0d 0e 78 11 c9 31 34 3a f2 66 28 |"15")..x..14:.f(| 0000f860 22 31 31 33 22 29 0d 0e 79 10 c9 31 36 3a f2 66 |"113")..y..16:.f| 0000f870 28 22 35 31 22 29 0d 0e 7a 11 c9 32 34 3a f2 66 |("51")..z..24:.f| 0000f880 28 22 31 30 35 22 29 0d 0e 7b 11 c9 32 35 3a f2 |("105")..{..25:.| 0000f890 66 28 22 31 30 39 22 29 0d 0e 7c 10 c9 33 30 3a |f("109")..|..30:| 0000f8a0 f2 66 28 22 37 33 22 29 0d 0e 7d 11 c9 33 32 3a |.f("73")..}..32:| 0000f8b0 f2 66 28 22 31 30 34 22 29 0d 0e 7e 05 cb 0d 0e |.f("104")..~....| 0000f8c0 7e 11 c9 73 61 25 3a f2 66 28 22 32 34 22 29 0d |~..sa%:.f("24").| 0000f8d0 0e 80 11 c9 6e 61 25 3a f2 66 28 22 38 30 22 29 |....na%:.f("80")| 0000f8e0 0d 0e 81 10 c9 54 25 3a f2 66 28 22 37 39 22 29 |.....T%:.f("79")| 0000f8f0 0d 0e 82 11 c9 49 61 25 3a f2 66 28 22 32 39 22 |.....Ia%:.f("29"| 0000f900 29 0d 0e 83 11 c9 6d 61 25 3a f2 66 28 22 35 31 |).....ma%:.f("51| 0000f910 22 29 0d 0e 84 11 c9 71 61 25 3a f2 66 28 22 32 |").....qa%:.f("2| 0000f920 34 22 29 0d 0e 85 11 c9 4a 61 25 3a f2 66 28 22 |4").....Ja%:.f("| 0000f930 37 33 22 29 0d 0e 86 11 c9 4e 61 25 3a f2 66 28 |73").....Na%:.f(| 0000f940 22 31 36 22 29 0d 0e 87 11 c9 5f 61 25 3a f2 66 |"16")....._a%:.f| 0000f950 28 22 34 36 22 29 0d 0e 88 11 c9 4a 62 25 3a f2 |("46").....Jb%:.| 0000f960 66 28 22 32 30 22 29 0d 0e 89 11 c9 74 61 25 3a |f("20").....ta%:| 0000f970 f2 66 28 22 31 39 22 29 0d 0e 8a 11 c9 4f 61 25 |.f("19").....Oa%| 0000f980 3a f2 66 28 22 31 39 22 29 0d 0e 8b 11 c9 50 61 |:.f("19").....Pa| 0000f990 25 3a f2 66 28 22 33 37 22 29 0d 0e 8c 05 cb 0d |%:.f("37")......| 0000f9a0 0e 8c 05 e1 0d ff |......| 0000f9a6