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