� >!RunImage

A� info% &FF: id$="Windy by JDB":id%=&0d0: dir$="<Windy$Dir>."
('$(info%+&00)="   Name:        "+id$
23$(info%+&40)="Purpose:     Spritefile Animator"
<5$(info%+&80)=" Author:   � J. David Barrow, 1993"
F2$(info%+&C0)="Version:      2.02  (29-Jul-93)"
P
Z#ș&400C0,200,&4B534154,id$�,th%
d*� � �error:ș&400EC,slot,-1:ș&400DD:�
n�init: �poll:ș&400DD:�
x
�� �error
�3e$="Error number: "+ß+". "+�$+" at line "+�(�)
�e%=�e(e$,6)
��
�
�;ݤe(e$,d):z!4=0:$(z+8)=e$+�(0):ș&400DF,z+4,d,id$�,d:=d
�
�� �init:�i,env$
�Mslot=-1:next=-1:ș&400EC,slot,next �slot,next,free:aslot=slot+32768:sam=0
�� z &1FF, u% 79, mf% 7
�� m0 291, m1 123, m2 63
�2� pt% 319, pc% 1023: ș8,16,dir$+"!Data",pc%,0
�&wh%=0:�clear:�mode:�menuc:�iconbar

,ș&10 � env$: env$=�env$,�env$,""" ")+2)

� env$<>"" �load(env$,0)

�

"

,� �iconbar

6%!z=-1:z!4=0:z!8=0:z!12=68:z!16=68

@#z!20=&0700303A:$(z+24)="!windy"

Jș&400C2,,z � ih%

T�

^

h� �menuc:�m,n,n$,i:�+0

r?� m1,Info,-1,Forward,-1,Reverse,m2,Frame Time,m2,Frame Hold

|D� -1,Mode,-1,Palette,-1,No Trans,-1,Single Task,-1,Clear,-1,Quit

�m=�mt(m0,id$,188):muyy=96

��

�4 �n,n$:m=�md(m,8�(n=m2),n,&07009011,n$):muyy+=44

��n$="Quit"

�!(m-24)+=128

�m=�mt(m1,"",0):n=13

��i=0�&C0�&40

�+ m=�mi(m,0,-1,&07009111,info%+i,-1,&40)

�' �($(info%+i))>n n=�($(info%+i))+1

��i

�.!(m-24)+=128:m=�mt(m1,"Program Info",n<<4)

��

�
B� �mt(m,n$,w):$m=n$:m!12=&00070207:m!16=w:m!20=44:m!24=0:=m+28
9� �md(m,f,p,fi,d$):!m=f:m!4=p:m!8=fi:$(m+12)=d$:=m+24
F� �mi(m,f,p,fi,b,v,l):!m=f:m!4=p:m!8=fi:m!12=b:m!16=v:m!20=l:=m+24
&
0� �window:�z%:z%=z+4
:�delete
DLz%!0=(1280-wx%)/2:z%!4=(1024-wy%)/2:z%!8=(1280-wx%)/2:z%!12=(1024+wy%)/2
N;z%!16=0:z%!20=0:z%!24=-1:z%!28=&87000002:z%!32=&7070207
X0z%!36=0:z%!40=0:z%!44=-wy%:z%!48=wx%:z%!52=0
b5z%!56=&39:z%!60=3<<12:z%!64=1:z%!68=(wy%<<16)+wx%
l$(z%+72)=$u%:z%!84=0
vș&400C1,,z+4�wh%
�
tim%=�
��
�
�
� �delete
�!�wh% !z=wh%:ș&400C3,,z:wh%=0
��
�
�� �open(o)
�� wh% �
�# �o !z=wh%:ș&400CB,,z: z!28=-1
�' ș&400C5,,z: mask=mask%+(1�mfr%=0)
��
��


� �redraw

�x%,y%
 x%=z!4+fx%:y%=z!8+fy%
*
ȕ rf%
40 ș&2E,&234,u%!32,u%!40,x%,y%,0,u%+48,pt%+64
> ș&400CA,,z � rf%
H�
R�
\
f� �poll:�why,rmt:quit=�
p�
zș&400C7,mask,z �why
�Ȏ why �
�%�0:�(�-tim%)>=mf%!0 �multi:tim%=�
� �1:ș&400C8,,z � rf%:�redraw
��2:�open(0)
��3:ș&400C6,,z:mask=mask%+1
��6:�click(!z,z!4,z!8,z!12)
�
�9:�menus
��17,18:�message
��
��quit=�
��
�
�� �click(x,y,b,h)

Ȏ h �
�-2
 Ȏ b �
$ �1,4:�open(1)
.  �2:mux=x-64:muy=muyy:�menuo
8 �
B�wh%
L Ȏ b �
V$ �1:�mfr%=0 mh%=0:mfi%=-1:�multi
`  �2:mux=x-64:muy=y+64:�menuo
j# �4:�mfr%=0 mh%=0:mfi%=1:�multi
t �
~�
��
�
�� �multi:�x%,y%
�
�mh% �
� mh%-=1
��
� � mfr%+1 �ss,�fw,�bw,�rv
� mi%=�sinfo(fn%)
� �?(u%!40+4)=42 mh%=mf%!4
��
�)!z=wh%:z!4=0:z!8=-wy%:z!12=wx%:z!16=0
�+ș&400C9,,z � rf%:x%=z!4+fx%:y%=z!8+fy%
�mi%=0�mnt%=1 �

 ȕ rf%
$  ș&2E,&222,u%!32,u%!40,x%,y%,0
  ș&400CA,,z �rf%
( �
2�
< ȕ rf%
F1  ș&2E,&234,u%!32,u%!40,x%,y%,0,u%+48,pt%+64
P  ș&400CA,,z �rf%
Z �
d�
n�
x
�	� �ss
�
fn%+=mfi%
��fn%>fs% fn%=1
��fn%<1 fn%=fs%
��
�
�	� �fw
�fn%+=1:�fn%>fs% fn%=1
��
�
�	� �bw
�fn%-=1:�fn%<1 fn%=fs%
��

	� �rv

fn%+=mfi%
"�fn%<=1 fn%=1:mfi%=1
,�fn%>=fs% fn%=fs%:mfi%=-1
6�
@
J� �sinfo(n%)
T.u%!40=u%!44:ȕn%>1:u%!40+=!(u%!40):n%-=1:�
^'ș&2E,&228,u%!32,u%!40 �,,,,,,u%!28
h/u%!48=1<<�mv(u%!28,4):u%!52=1<<�mv(u%!28,5)
rș&35,u%!28,3�,,n%
|�n%<>u%!24 �pixtrans(0)
��u%!28<>u%!36 �pixtrans(0)
�1�mc%=63 �n%=63 �u%!48=u%!56 �u%!52=u%!60 n%=0
�=n%
�
�$� �single:�mode,x,y,b,c,x%,y%,i%
�mnc%=mn%:�pixtrans(1)
�mode=�rm(u%!28)
��wimppal
��changemode
��mode>-1 �
� mn%=�:mc%=�mv(-1,3)
� �u%!24<63 �
�#  c=765:�!(u%!40+32)>44 �extpal
  �i%=0�u%!24
*   b=pt%+(i%<<2):�19,i%,16,b?1,b?2,b?3
/   �(b?1+b?2+b?3)<c c=(b?1+b?2+b?3):�128+i%
&	  �i%
0  �:ș&40750
: �
D �pixtrans(1)
N mi%=�sinfo(fn%)
X+ x%=(((�mv(-1,11)+1)<<�mv(-1,4))-ix%)/2
b+ y%=(((�mv(-1,12)+1)<<�mv(-1,5))-iy%)/2
l �
v  �mh% �
�
   mh%-=1
�  �
�   � mfr% �fw,�bw,�rv
�(   mi%=�sinfo(fn%):ș&35,u%!28,3�,,c
�-   �mc%=c �u%!48=u%!56 �u%!52=u%!60 mi%=0
�   �?(u%!40+4)=42 mh%=mf%!4
�  �
�  �mi%=0�mnt%=1 �
�%   ș&2E,&222,u%!32,u%!40,x%,y%,0
�  �
�2   ș&2E,&234,u%!32,u%!40,x%,y%,0,u%+48,pt%+64
�  �
�/  �:ȗx,y,b:� b>0 � (�-tim%)>=mf%!0: tim%=�
	 �b>0
 �:ș&400E3,mnc%
�
 2 b=�e("Sorry, cannot find a suitable mode.",1)
*�
4�
>
H� �rm(n%):�i%,d%,c%,m%
R1m%=�:c%=�rmc(m%):i%=0:�:�d%:i%+=1:�d%=m%�d%<0
\!n%=�rmc(n%):�:�d%:i%-=1:�i%=0
f�d%<0 d%=�+n%-c%
p=d%
z
�� �rmc(c%)
�ș&35,c%,3�,,c%
�$c%=1+(1�c%>1)+(1�c%>3)+(1�c%>15)
��+c%
�)�  0,29,41,44, 5, 4, 0, 0, 0,22,23,-1
�)�  8,30,42,45, 5, 1,11, 8, 8,22,23,-1
�)� 12,31,43,46, 2, 9,14,16,17,22,23,-1
�)� 15,28,15,15,10,13,15,24,24,22,23,-1
�=c%
�
�� �changemode:�i
�� �
���:mode=-1:��:�
	
�mode:�:�
	��
	�
	$
	.� �menuo
	8!(m0+28+24*1)=mfr%�1
	B!(m0+28+24*2)=mfr%>>1
	L!(m0+28+24*7)=mnt%
	Vș&400D4,,m0,mux,muy
	`�
	j
	t� �menuw(p,x,y,n):�m
	~6�n=3 m=�mt(m2,"C/secs",96) � m=�mt(m2,"Frames",96)
	�8m=�mi(m,132,-1,&07009311,m+24,m+28,4):$(m+28)="A0-9"
	�$(m2+52)=�(!(mf%+(n-3)*4))
	�ș&400E8,,p,x,y
	��
	�
	�� �menus:�but
	�ș&400CF,,z+128:but=z!136
	�Ȏ !z �
	��0:
	��1:mfr%=mfr%�1
	��2:mfr%=mfr%�2
	�"�3,4:!(mf%+(!z-3)*4)=�$(m2+52)
'�5:�sam �pixtrans(1):�dtmode(u%!28)

�6:�sam �palette
�7:mnt%=1-mnt%:�mode
 �8:�(mfr%>0 � sam>0) �single
(
�9:�clear
2�10:quit=�
<�
F!mask=mask%+(1�(mfr%=0�wh%=0))
P�but=1 �menuo
Z�
d
n� �palette
x�pixtrans(1)
�!� u%!24=15 � !(u%!40+32)>44 �
�3 �wimppal:�extpal:ș&400E4,,pt%::ș&40750:�mode
��
��
�
�� �dtmode(m)
��
���:m=�e(�$,1):��:�
�ș&400E3,m
���
��
�
�� �message

Ȏ z!16 �

�0:quit=�
3�3:� z!40=id% � z!40=&FF9 �load(�zt(z+44),z!16)
"-�5:� z!40=id% �ack: �load(�zt(z+44),z!16)
,�9:�mode
6'�&400C0:�menuw(z!20,z!24,z!28,z!32)
@�&400C1:�mode
J�
T�
^
h� �mode
rmn%=�:mc%=�mv(-1,3)
|�sam �pixtrans(1)
�
�wh% �
� !z=wh%:ș&400CC,,z
�/ �z!32�&10000 mi%=�sinfo(fn%):mh%+=1:�multi
��
��
�
�
� �ack
�z!0=&100:z!16=4: z!12=z!8
�ș&400E7,17,z,0
��
�
�)� �load(f$,ack):�i,j,flen,fslot,gslot
�ș8,17,f$ � ,,,,flen

�clear
fslot=flen+4+slot+32768
ș&400EC,fslot,-1 � gslot
&� gslot>=fslot �
0% s=aslot: sam=gslot-aslot: !s=sam
: ș&2E,&10A,s,f$
D � ack=3 �ack
N fs%=s!4: fn%=1: �mode
X0 i=�(f$)+1:�:i-=1:��f$,i,1)=".":$u%=�f$,i+1)
b; ix%=u%!16*u%!48: wx%=ix%: i=�($u%)*16+96: �wx%<i wx%=i
l. iy%=u%!20*u%!52: wy%=iy%: � wy%<96 wy%=96
v% fx%=(wx%-ix%)/2: fy%=(wy%-iy%)/2
�::
� i=u%!44+4
�$ �i?1=47�i?3=47�i?7=47�i?11=47 �
�   i?7=13:i?11=13
�   mfr%=3�i?2
�   mf%!0=�$(i+4)
�   mf%!4=�$(i+8)
� �
�::
� �window: �open(1)
��
�\ flen=�e("Cannot claim enough memory - increase 'Free' in Task Display and try again",1)
��

�



� �clear

 %mask%=&3830:mask=mask%+1: �delete

*ș&400EC,slot,-1: sam=0

4fs%=0: fn%=0: mfi%=1: mh%=0

>mnt%=0:mfr%=3

Hmf%!0=4:mf%!4=4

R�

\

f<� �zt(a):�i,i$:i=-1:�:i+=1:�a?i=0:a?i=13:i$=$a:a?i=0:=i$

p%� �mv(m%,v%):ș&35,m%,v%�,,v%:=v%

z

�� �pixtrans(n)

��n �

�/ u%!32=s:u%!40=u%!32+!(u%!32+8):u%!44=u%!40

�2 ș&2E,&228,u%!32,u%!40 �,,,u%!16,u%!20,,u%!28

��

�u%!36=u%!28

�ș&35,u%!28,3�,,u%!24

�/u%!48=1<<�mv(u%!28,4):u%!52=1<<�mv(u%!28,5)

�)u%!56=1<<�mv(-1,4):u%!60=1<<�mv(-1,5)

��u%!24=63 �

�$ �mc%=63 �table(255) � �trans256

��

� �!(u%!40+32)>44 �
  �extpal:�trans
 �
  � mc%>u%!24 � mc%<63 �
$   �table(u%!24*16+mc%)
.  �
8   �wimppal:�trans
B  �
L �
V�
`�
j
t� �table(i%):�t%:t%=pt%+64
~Ȏ i% �
��&11:!t%=&100
��&13:!t%=&300
��&1F:!t%=&700
��&33:!t%=&3020100
��&3F:!t%=&7040200
��&FF:�i%=0�255:t%?i%=i%:�i%
��
��
�
�� �wimppal:�i%,j%
�ș&400E5,,pt%
��u%!24=1 pt%!4=pt%!28
3�u%!24=3 pt%!4=pt%!8:pt%!8=pt%!16:pt%!12=pt%!28

>�i%=pt% � pt%+76 � 4:j%=!i% �&F0F0F000:!i%=(j%>>>4)�j%:�i%
�

(� �extpal:�i%
2;�i%=0�u%!24:!(pt%+(i%<<2))=!(u%!40+44+(i%<<3))��255:�i%
<�
F
P� �trans
Z$ș&40740,u%!28,pt%,mn%,-1,pt%+64
d�
n
x*� �trans256:�i%,p%,t%:p%=pc%:t%=pt%+64
�7�i%=0�15:ș&40740,12,p%,mn%,-1,t%:p%+=64:t%+=16:�i%
��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 04 0d 00 1e 41  de 20 69 6e 66 6f 25 20  |.......A. info% |
00000020  26 46 46 3a 20 69 64 24  3d 22 57 69 6e 64 79 20  |&FF: id$="Windy |
00000030  62 79 20 4a 44 42 22 3a  69 64 25 3d 26 30 64 30  |by JDB":id%=&0d0|
00000040  3a 20 64 69 72 24 3d 22  3c 57 69 6e 64 79 24 44  |: dir$="<Windy$D|
00000050  69 72 3e 2e 22 0d 00 28  27 24 28 69 6e 66 6f 25  |ir>."..('$(info%|
00000060  2b 26 30 30 29 3d 22 20  20 20 4e 61 6d 65 3a 20  |+&00)="   Name: |
00000070  20 20 20 20 20 20 20 22  2b 69 64 24 0d 00 32 33  |       "+id$..23|
00000080  24 28 69 6e 66 6f 25 2b  26 34 30 29 3d 22 50 75  |$(info%+&40)="Pu|
00000090  72 70 6f 73 65 3a 20 20  20 20 20 53 70 72 69 74  |rpose:     Sprit|
000000a0  65 66 69 6c 65 20 41 6e  69 6d 61 74 6f 72 22 0d  |efile Animator".|
000000b0  00 3c 35 24 28 69 6e 66  6f 25 2b 26 38 30 29 3d  |.<5$(info%+&80)=|
000000c0  22 20 41 75 74 68 6f 72  3a 20 20 20 a9 20 4a 2e  |" Author:   . J.|
000000d0  20 44 61 76 69 64 20 42  61 72 72 6f 77 2c 20 31  | David Barrow, 1|
000000e0  39 39 33 22 0d 00 46 32  24 28 69 6e 66 6f 25 2b  |993"..F2$(info%+|
000000f0  26 43 30 29 3d 22 56 65  72 73 69 6f 6e 3a 20 20  |&C0)="Version:  |
00000100  20 20 20 20 32 2e 30 32  20 20 28 32 39 2d 4a 75  |    2.02  (29-Ju|
00000110  6c 2d 39 33 29 22 0d 00  50 04 0d 00 5a 23 c8 99  |l-93)"..P...Z#..|
00000120  26 34 30 30 43 30 2c 32  30 30 2c 26 34 42 35 33  |&400C0,200,&4B53|
00000130  34 31 35 34 2c 69 64 24  b8 2c 74 68 25 0d 00 64  |4154,id$.,th%..d|
00000140  2a ee 20 85 20 f2 65 72  72 6f 72 3a c8 99 26 34  |*. . .error:..&4|
00000150  30 30 45 43 2c 73 6c 6f  74 2c 2d 31 3a c8 99 26  |00EC,slot,-1:..&|
00000160  34 30 30 44 44 3a e0 0d  00 6e 1b f2 69 6e 69 74  |400DD:...n..init|
00000170  3a 20 f2 70 6f 6c 6c 3a  c8 99 26 34 30 30 44 44  |: .poll:..&400DD|
00000180  3a e0 0d 00 78 04 0d 00  82 0c dd 20 f2 65 72 72  |:...x...... .err|
00000190  6f 72 0d 00 8c 33 65 24  3d 22 45 72 72 6f 72 20  |or...3e$="Error |
000001a0  6e 75 6d 62 65 72 3a 20  22 2b c3 9f 2b 22 2e 20  |number: "+..+". |
000001b0  22 2b f6 24 2b 22 20 61  74 20 6c 69 6e 65 20 22  |"+.$+" at line "|
000001c0  2b c3 28 9e 29 0d 00 96  0f 65 25 3d a4 65 28 65  |+.(.)....e%=.e(e|
000001d0  24 2c 36 29 0d 00 a0 05  e1 0d 00 aa 04 0d 00 b4  |$,6)............|
000001e0  3b dd a4 65 28 65 24 2c  64 29 3a 7a 21 34 3d 30  |;..e(e$,d):z!4=0|
000001f0  3a 24 28 7a 2b 38 29 3d  65 24 2b bd 28 30 29 3a  |:$(z+8)=e$+.(0):|
00000200  c8 99 26 34 30 30 44 46  2c 7a 2b 34 2c 64 2c 69  |..&400DF,z+4,d,i|
00000210  64 24 b8 2c 64 3a 3d 64  0d 00 be 04 0d 00 c8 13  |d$.,d:=d........|
00000220  dd 20 f2 69 6e 69 74 3a  ea 69 2c 65 6e 76 24 0d  |. .init:.i,env$.|
00000230  00 d2 4d 73 6c 6f 74 3d  2d 31 3a 6e 65 78 74 3d  |..Mslot=-1:next=|
00000240  2d 31 3a c8 99 26 34 30  30 45 43 2c 73 6c 6f 74  |-1:..&400EC,slot|
00000250  2c 6e 65 78 74 20 b8 73  6c 6f 74 2c 6e 65 78 74  |,next .slot,next|
00000260  2c 66 72 65 65 3a 61 73  6c 6f 74 3d 73 6c 6f 74  |,free:aslot=slot|
00000270  2b 33 32 37 36 38 3a 73  61 6d 3d 30 0d 00 dc 1a  |+32768:sam=0....|
00000280  de 20 7a 20 26 31 46 46  2c 20 75 25 20 37 39 2c  |. z &1FF, u% 79,|
00000290  20 6d 66 25 20 37 0d 00  e6 1b de 20 6d 30 20 32  | mf% 7..... m0 2|
000002a0  39 31 2c 20 6d 31 20 31  32 33 2c 20 6d 32 20 36  |91, m1 123, m2 6|
000002b0  33 0d 00 f0 32 de 20 70  74 25 20 33 31 39 2c 20  |3...2. pt% 319, |
000002c0  70 63 25 20 31 30 32 33  3a 20 c8 99 38 2c 31 36  |pc% 1023: ..8,16|
000002d0  2c 64 69 72 24 2b 22 21  44 61 74 61 22 2c 70 63  |,dir$+"!Data",pc|
000002e0  25 2c 30 0d 00 fa 26 77  68 25 3d 30 3a f2 63 6c  |%,0...&wh%=0:.cl|
000002f0  65 61 72 3a f2 6d 6f 64  65 3a f2 6d 65 6e 75 63  |ear:.mode:.menuc|
00000300  3a f2 69 63 6f 6e 62 61  72 0d 01 04 2c c8 99 26  |:.iconbar...,..&|
00000310  31 30 20 b8 20 65 6e 76  24 3a 20 65 6e 76 24 3d  |10 . env$: env$=|
00000320  c1 65 6e 76 24 2c a7 65  6e 76 24 2c 22 22 22 20  |.env$,.env$,""" |
00000330  22 29 2b 32 29 0d 01 0e  1c e7 20 65 6e 76 24 3c  |")+2)..... env$<|
00000340  3e 22 22 20 f2 6c 6f 61  64 28 65 6e 76 24 2c 30  |>"" .load(env$,0|
00000350  29 0d 01 18 05 e1 0d 01  22 04 0d 01 2c 0e dd 20  |)......."...,.. |
00000360  f2 69 63 6f 6e 62 61 72  0d 01 36 25 21 7a 3d 2d  |.iconbar..6%!z=-|
00000370  31 3a 7a 21 34 3d 30 3a  7a 21 38 3d 30 3a 7a 21  |1:z!4=0:z!8=0:z!|
00000380  31 32 3d 36 38 3a 7a 21  31 36 3d 36 38 0d 01 40  |12=68:z!16=68..@|
00000390  23 7a 21 32 30 3d 26 30  37 30 30 33 30 33 41 3a  |#z!20=&0700303A:|
000003a0  24 28 7a 2b 32 34 29 3d  22 21 77 69 6e 64 79 22  |$(z+24)="!windy"|
000003b0  0d 01 4a 15 c8 99 26 34  30 30 43 32 2c 2c 7a 20  |..J...&400C2,,z |
000003c0  b8 20 69 68 25 0d 01 54  05 e1 0d 01 5e 04 0d 01  |. ih%..T....^...|
000003d0  68 1a dd 20 f2 6d 65 6e  75 63 3a ea 6d 2c 6e 2c  |h.. .menuc:.m,n,|
000003e0  6e 24 2c 69 3a f7 2b 30  0d 01 72 3f dc 20 6d 31  |n$,i:.+0..r?. m1|
000003f0  2c 49 6e 66 6f 2c 2d 31  2c 46 6f 72 77 61 72 64  |,Info,-1,Forward|
00000400  2c 2d 31 2c 52 65 76 65  72 73 65 2c 6d 32 2c 46  |,-1,Reverse,m2,F|
00000410  72 61 6d 65 20 54 69 6d  65 2c 6d 32 2c 46 72 61  |rame Time,m2,Fra|
00000420  6d 65 20 48 6f 6c 64 0d  01 7c 44 dc 20 2d 31 2c  |me Hold..|D. -1,|
00000430  4d 6f 64 65 2c 2d 31 2c  50 61 6c 65 74 74 65 2c  |Mode,-1,Palette,|
00000440  2d 31 2c 4e 6f 20 54 72  61 6e 73 2c 2d 31 2c 53  |-1,No Trans,-1,S|
00000450  69 6e 67 6c 65 20 54 61  73 6b 2c 2d 31 2c 43 6c  |ingle Task,-1,Cl|
00000460  65 61 72 2c 2d 31 2c 51  75 69 74 0d 01 86 1d 6d  |ear,-1,Quit....m|
00000470  3d a4 6d 74 28 6d 30 2c  69 64 24 2c 31 38 38 29  |=.mt(m0,id$,188)|
00000480  3a 6d 75 79 79 3d 39 36  0d 01 90 05 f5 0d 01 9a  |:muyy=96........|
00000490  34 20 f3 6e 2c 6e 24 3a  6d 3d a4 6d 64 28 6d 2c  |4 .n,n$:m=.md(m,|
000004a0  38 80 28 6e 3d 6d 32 29  2c 6e 2c 26 30 37 30 30  |8.(n=m2),n,&0700|
000004b0  39 30 31 31 2c 6e 24 29  3a 6d 75 79 79 2b 3d 34  |9011,n$):muyy+=4|
000004c0  34 0d 01 a4 0e fd 6e 24  3d 22 51 75 69 74 22 0d  |4.....n$="Quit".|
000004d0  01 ae 10 21 28 6d 2d 32  34 29 2b 3d 31 32 38 0d  |...!(m-24)+=128.|
000004e0  01 b8 17 6d 3d a4 6d 74  28 6d 31 2c 22 22 2c 30  |...m=.mt(m1,"",0|
000004f0  29 3a 6e 3d 31 33 0d 01  c2 10 e3 69 3d 30 b8 26  |):n=13.....i=0.&|
00000500  43 30 88 26 34 30 0d 01  cc 2b 20 6d 3d a4 6d 69  |C0.&40...+ m=.mi|
00000510  28 6d 2c 30 2c 2d 31 2c  26 30 37 30 30 39 31 31  |(m,0,-1,&0700911|
00000520  31 2c 69 6e 66 6f 25 2b  69 2c 2d 31 2c 26 34 30  |1,info%+i,-1,&40|
00000530  29 0d 01 d6 27 20 e7 a9  28 24 28 69 6e 66 6f 25  |)...' ..($(info%|
00000540  2b 69 29 29 3e 6e 20 6e  3d a9 28 24 28 69 6e 66  |+i))>n n=.($(inf|
00000550  6f 25 2b 69 29 29 2b 31  0d 01 e0 06 ed 69 0d 01  |o%+i))+1.....i..|
00000560  ea 2e 21 28 6d 2d 32 34  29 2b 3d 31 32 38 3a 6d  |..!(m-24)+=128:m|
00000570  3d a4 6d 74 28 6d 31 2c  22 50 72 6f 67 72 61 6d  |=.mt(m1,"Program|
00000580  20 49 6e 66 6f 22 2c 6e  3c 3c 34 29 0d 01 f4 05  | Info",n<<4)....|
00000590  e1 0d 01 fe 04 0d 02 08  42 dd 20 a4 6d 74 28 6d  |........B. .mt(m|
000005a0  2c 6e 24 2c 77 29 3a 24  6d 3d 6e 24 3a 6d 21 31  |,n$,w):$m=n$:m!1|
000005b0  32 3d 26 30 30 30 37 30  32 30 37 3a 6d 21 31 36  |2=&00070207:m!16|
000005c0  3d 77 3a 6d 21 32 30 3d  34 34 3a 6d 21 32 34 3d  |=w:m!20=44:m!24=|
000005d0  30 3a 3d 6d 2b 32 38 0d  02 12 39 dd 20 a4 6d 64  |0:=m+28...9. .md|
000005e0  28 6d 2c 66 2c 70 2c 66  69 2c 64 24 29 3a 21 6d  |(m,f,p,fi,d$):!m|
000005f0  3d 66 3a 6d 21 34 3d 70  3a 6d 21 38 3d 66 69 3a  |=f:m!4=p:m!8=fi:|
00000600  24 28 6d 2b 31 32 29 3d  64 24 3a 3d 6d 2b 32 34  |$(m+12)=d$:=m+24|
00000610  0d 02 1c 46 dd 20 a4 6d  69 28 6d 2c 66 2c 70 2c  |...F. .mi(m,f,p,|
00000620  66 69 2c 62 2c 76 2c 6c  29 3a 21 6d 3d 66 3a 6d  |fi,b,v,l):!m=f:m|
00000630  21 34 3d 70 3a 6d 21 38  3d 66 69 3a 6d 21 31 32  |!4=p:m!8=fi:m!12|
00000640  3d 62 3a 6d 21 31 36 3d  76 3a 6d 21 32 30 3d 6c  |=b:m!16=v:m!20=l|
00000650  3a 3d 6d 2b 32 34 0d 02  26 04 0d 02 30 18 dd 20  |:=m+24..&...0.. |
00000660  f2 77 69 6e 64 6f 77 3a  ea 7a 25 3a 7a 25 3d 7a  |.window:.z%:z%=z|
00000670  2b 34 0d 02 3a 0b f2 64  65 6c 65 74 65 0d 02 44  |+4..:..delete..D|
00000680  4c 7a 25 21 30 3d 28 31  32 38 30 2d 77 78 25 29  |Lz%!0=(1280-wx%)|
00000690  2f 32 3a 7a 25 21 34 3d  28 31 30 32 34 2d 77 79  |/2:z%!4=(1024-wy|
000006a0  25 29 2f 32 3a 7a 25 21  38 3d 28 31 32 38 30 2d  |%)/2:z%!8=(1280-|
000006b0  77 78 25 29 2f 32 3a 7a  25 21 31 32 3d 28 31 30  |wx%)/2:z%!12=(10|
000006c0  32 34 2b 77 79 25 29 2f  32 0d 02 4e 3b 7a 25 21  |24+wy%)/2..N;z%!|
000006d0  31 36 3d 30 3a 7a 25 21  32 30 3d 30 3a 7a 25 21  |16=0:z%!20=0:z%!|
000006e0  32 34 3d 2d 31 3a 7a 25  21 32 38 3d 26 38 37 30  |24=-1:z%!28=&870|
000006f0  30 30 30 30 32 3a 7a 25  21 33 32 3d 26 37 30 37  |00002:z%!32=&707|
00000700  30 32 30 37 0d 02 58 30  7a 25 21 33 36 3d 30 3a  |0207..X0z%!36=0:|
00000710  7a 25 21 34 30 3d 30 3a  7a 25 21 34 34 3d 2d 77  |z%!40=0:z%!44=-w|
00000720  79 25 3a 7a 25 21 34 38  3d 77 78 25 3a 7a 25 21  |y%:z%!48=wx%:z%!|
00000730  35 32 3d 30 0d 02 62 35  7a 25 21 35 36 3d 26 33  |52=0..b5z%!56=&3|
00000740  39 3a 7a 25 21 36 30 3d  33 3c 3c 31 32 3a 7a 25  |9:z%!60=3<<12:z%|
00000750  21 36 34 3d 31 3a 7a 25  21 36 38 3d 28 77 79 25  |!64=1:z%!68=(wy%|
00000760  3c 3c 31 36 29 2b 77 78  25 0d 02 6c 18 24 28 7a  |<<16)+wx%..l.$(z|
00000770  25 2b 37 32 29 3d 24 75  25 3a 7a 25 21 38 34 3d  |%+72)=$u%:z%!84=|
00000780  30 0d 02 76 15 c8 99 26  34 30 30 43 31 2c 2c 7a  |0..v...&400C1,,z|
00000790  2b 34 b8 77 68 25 0d 02  80 0a 74 69 6d 25 3d 91  |+4.wh%....tim%=.|
000007a0  0d 02 8a 05 e1 0d 02 94  04 0d 02 9e 0d dd 20 f2  |.............. .|
000007b0  64 65 6c 65 74 65 0d 02  a8 21 e7 77 68 25 20 21  |delete...!.wh% !|
000007c0  7a 3d 77 68 25 3a c8 99  26 34 30 30 43 33 2c 2c  |z=wh%:..&400C3,,|
000007d0  7a 3a 77 68 25 3d 30 0d  02 b2 05 e1 0d 02 bc 04  |z:wh%=0.........|
000007e0  0d 02 c6 0e dd 20 f2 6f  70 65 6e 28 6f 29 0d 02  |..... .open(o)..|
000007f0  d0 0b e7 20 77 68 25 20  8c 0d 02 da 23 20 e7 6f  |... wh% ....# .o|
00000800  20 21 7a 3d 77 68 25 3a  c8 99 26 34 30 30 43 42  | !z=wh%:..&400CB|
00000810  2c 2c 7a 3a 20 7a 21 32  38 3d 2d 31 0d 02 e4 27  |,,z: z!28=-1...'|
00000820  20 c8 99 26 34 30 30 43  35 2c 2c 7a 3a 20 6d 61  | ..&400C5,,z: ma|
00000830  73 6b 3d 6d 61 73 6b 25  2b 28 31 80 6d 66 72 25  |sk=mask%+(1.mfr%|
00000840  3d 30 29 0d 02 ee 05 cd  0d 02 f8 05 e1 0d 03 02  |=0).............|
00000850  04 0d 03 0c 0d dd 20 f2  72 65 64 72 61 77 0d 03  |...... .redraw..|
00000860  16 0a ea 78 25 2c 79 25  0d 03 20 19 78 25 3d 7a  |...x%,y%.. .x%=z|
00000870  21 34 2b 66 78 25 3a 79  25 3d 7a 21 38 2b 66 79  |!4+fx%:y%=z!8+fy|
00000880  25 0d 03 2a 0a c8 95 20  72 66 25 0d 03 34 30 20  |%..*... rf%..40 |
00000890  c8 99 26 32 45 2c 26 32  33 34 2c 75 25 21 33 32  |..&2E,&234,u%!32|
000008a0  2c 75 25 21 34 30 2c 78  25 2c 79 25 2c 30 2c 75  |,u%!40,x%,y%,0,u|
000008b0  25 2b 34 38 2c 70 74 25  2b 36 34 0d 03 3e 16 20  |%+48,pt%+64..>. |
000008c0  c8 99 26 34 30 30 43 41  2c 2c 7a 20 b8 20 72 66  |..&400CA,,z . rf|
000008d0  25 0d 03 48 05 ce 0d 03  52 05 e1 0d 03 5c 04 0d  |%..H....R....\..|
000008e0  03 66 1b dd 20 f2 70 6f  6c 6c 3a ea 77 68 79 2c  |.f.. .poll:.why,|
000008f0  72 6d 74 3a 71 75 69 74  3d a3 0d 03 70 05 f5 0d  |rmt:quit=...p...|
00000900  03 7a 18 c8 99 26 34 30  30 43 37 2c 6d 61 73 6b  |.z...&400C7,mask|
00000910  2c 7a 20 b8 77 68 79 0d  03 84 0c c8 8e 20 77 68  |,z .why...... wh|
00000920  79 20 ca 0d 03 8e 25 c9  30 3a e7 28 91 2d 74 69  |y ....%.0:.(.-ti|
00000930  6d 25 29 3e 3d 6d 66 25  21 30 20 f2 6d 75 6c 74  |m%)>=mf%!0 .mult|
00000940  69 3a 74 69 6d 25 3d 91  0d 03 98 20 c9 31 3a c8  |i:tim%=.... .1:.|
00000950  99 26 34 30 30 43 38 2c  2c 7a 20 b8 20 72 66 25  |.&400C8,,z . rf%|
00000960  3a f2 72 65 64 72 61 77  0d 03 a2 0f c9 32 3a f2  |:.redraw.....2:.|
00000970  6f 70 65 6e 28 30 29 0d  03 ac 1f c9 33 3a c8 99  |open(0).....3:..|
00000980  26 34 30 30 43 36 2c 2c  7a 3a 6d 61 73 6b 3d 6d  |&400C6,,z:mask=m|
00000990  61 73 6b 25 2b 31 0d 03  b6 1e c9 36 3a f2 63 6c  |ask%+1.....6:.cl|
000009a0  69 63 6b 28 21 7a 2c 7a  21 34 2c 7a 21 38 2c 7a  |ick(!z,z!4,z!8,z|
000009b0  21 31 32 29 0d 03 c0 0d  c9 39 3a f2 6d 65 6e 75  |!12).....9:.menu|
000009c0  73 0d 03 ca 13 c9 31 37  2c 31 38 3a f2 6d 65 73  |s.....17,18:.mes|
000009d0  73 61 67 65 0d 03 d4 05  cb 0d 03 de 0b fd 71 75  |sage..........qu|
000009e0  69 74 3d b9 0d 03 e8 05  e1 0d 03 f2 04 0d 03 fc  |it=.............|
000009f0  15 dd 20 f2 63 6c 69 63  6b 28 78 2c 79 2c 62 2c  |.. .click(x,y,b,|
00000a00  68 29 0d 04 06 0a c8 8e  20 68 20 ca 0d 04 10 07  |h)...... h .....|
00000a10  c9 2d 32 0d 04 1a 0b 20  c8 8e 20 62 20 ca 0d 04  |.-2.... .. b ...|
00000a20  24 12 20 c9 31 2c 34 3a  f2 6f 70 65 6e 28 31 29  |$. .1,4:.open(1)|
00000a30  0d 04 2e 20 20 c9 32 3a  6d 75 78 3d 78 2d 36 34  |...  .2:mux=x-64|
00000a40  3a 6d 75 79 3d 6d 75 79  79 3a f2 6d 65 6e 75 6f  |:muy=muyy:.menuo|
00000a50  0d 04 38 06 20 cb 0d 04  42 08 c9 77 68 25 0d 04  |..8. ...B..wh%..|
00000a60  4c 0b 20 c8 8e 20 62 20  ca 0d 04 56 24 20 c9 31  |L. .. b ...V$ .1|
00000a70  3a e7 6d 66 72 25 3d 30  20 6d 68 25 3d 30 3a 6d  |:.mfr%=0 mh%=0:m|
00000a80  66 69 25 3d 2d 31 3a f2  6d 75 6c 74 69 0d 04 60  |fi%=-1:.multi..`|
00000a90  20 20 c9 32 3a 6d 75 78  3d 78 2d 36 34 3a 6d 75  |  .2:mux=x-64:mu|
00000aa0  79 3d 79 2b 36 34 3a f2  6d 65 6e 75 6f 0d 04 6a  |y=y+64:.menuo..j|
00000ab0  23 20 c9 34 3a e7 6d 66  72 25 3d 30 20 6d 68 25  |# .4:.mfr%=0 mh%|
00000ac0  3d 30 3a 6d 66 69 25 3d  31 3a f2 6d 75 6c 74 69  |=0:mfi%=1:.multi|
00000ad0  0d 04 74 06 20 cb 0d 04  7e 05 cb 0d 04 88 05 e1  |..t. ...~.......|
00000ae0  0d 04 92 04 0d 04 9c 13  dd 20 f2 6d 75 6c 74 69  |......... .multi|
00000af0  3a ea 78 25 2c 79 25 0d  04 a6 0a e7 6d 68 25 20  |:.x%,y%.....mh% |
00000b00  8c 0d 04 b0 0b 20 6d 68  25 2d 3d 31 0d 04 ba 05  |..... mh%-=1....|
00000b10  cc 0d 04 c4 1d 20 ee 20  6d 66 72 25 2b 31 20 f2  |..... . mfr%+1 .|
00000b20  73 73 2c f2 66 77 2c f2  62 77 2c f2 72 76 0d 04  |ss,.fw,.bw,.rv..|
00000b30  ce 14 20 6d 69 25 3d a4  73 69 6e 66 6f 28 66 6e  |.. mi%=.sinfo(fn|
00000b40  25 29 0d 04 d8 1d 20 e7  3f 28 75 25 21 34 30 2b  |%).... .?(u%!40+|
00000b50  34 29 3d 34 32 20 6d 68  25 3d 6d 66 25 21 34 0d  |4)=42 mh%=mf%!4.|
00000b60  04 e2 05 cd 0d 04 ec 29  21 7a 3d 77 68 25 3a 7a  |.......)!z=wh%:z|
00000b70  21 34 3d 30 3a 7a 21 38  3d 2d 77 79 25 3a 7a 21  |!4=0:z!8=-wy%:z!|
00000b80  31 32 3d 77 78 25 3a 7a  21 31 36 3d 30 0d 04 f6  |12=wx%:z!16=0...|
00000b90  2b c8 99 26 34 30 30 43  39 2c 2c 7a 20 b8 20 72  |+..&400C9,,z . r|
00000ba0  66 25 3a 78 25 3d 7a 21  34 2b 66 78 25 3a 79 25  |f%:x%=z!4+fx%:y%|
00000bb0  3d 7a 21 38 2b 66 79 25  0d 05 00 13 e7 6d 69 25  |=z!8+fy%.....mi%|
00000bc0  3d 30 84 6d 6e 74 25 3d  31 20 8c 0d 05 0a 0b 20  |=0.mnt%=1 ..... |
00000bd0  c8 95 20 72 66 25 0d 05  14 24 20 20 c8 99 26 32  |.. rf%...$  ..&2|
00000be0  45 2c 26 32 32 32 2c 75  25 21 33 32 2c 75 25 21  |E,&222,u%!32,u%!|
00000bf0  34 30 2c 78 25 2c 79 25  2c 30 0d 05 1e 16 20 20  |40,x%,y%,0....  |
00000c00  c8 99 26 34 30 30 43 41  2c 2c 7a 20 b8 72 66 25  |..&400CA,,z .rf%|
00000c10  0d 05 28 06 20 ce 0d 05  32 05 cc 0d 05 3c 0b 20  |..(. ...2....<. |
00000c20  c8 95 20 72 66 25 0d 05  46 31 20 20 c8 99 26 32  |.. rf%..F1  ..&2|
00000c30  45 2c 26 32 33 34 2c 75  25 21 33 32 2c 75 25 21  |E,&234,u%!32,u%!|
00000c40  34 30 2c 78 25 2c 79 25  2c 30 2c 75 25 2b 34 38  |40,x%,y%,0,u%+48|
00000c50  2c 70 74 25 2b 36 34 0d  05 50 16 20 20 c8 99 26  |,pt%+64..P.  ..&|
00000c60  34 30 30 43 41 2c 2c 7a  20 b8 72 66 25 0d 05 5a  |400CA,,z .rf%..Z|
00000c70  06 20 ce 0d 05 64 05 cd  0d 05 6e 05 e1 0d 05 78  |. ...d....n....x|
00000c80  04 0d 05 82 09 dd 20 f2  73 73 0d 05 8c 0d 66 6e  |...... .ss....fn|
00000c90  25 2b 3d 6d 66 69 25 0d  05 96 12 e7 66 6e 25 3e  |%+=mfi%.....fn%>|
00000ca0  66 73 25 20 66 6e 25 3d  31 0d 05 a0 12 e7 66 6e  |fs% fn%=1.....fn|
00000cb0  25 3c 31 20 66 6e 25 3d  66 73 25 0d 05 aa 05 e1  |%<1 fn%=fs%.....|
00000cc0  0d 05 b4 04 0d 05 be 09  dd 20 f2 66 77 0d 05 c8  |......... .fw...|
00000cd0  19 66 6e 25 2b 3d 31 3a  e7 66 6e 25 3e 66 73 25  |.fn%+=1:.fn%>fs%|
00000ce0  20 66 6e 25 3d 31 0d 05  d2 05 e1 0d 05 dc 04 0d  | fn%=1..........|
00000cf0  05 e6 09 dd 20 f2 62 77  0d 05 f0 19 66 6e 25 2d  |.... .bw....fn%-|
00000d00  3d 31 3a e7 66 6e 25 3c  31 20 66 6e 25 3d 66 73  |=1:.fn%<1 fn%=fs|
00000d10  25 0d 05 fa 05 e1 0d 06  04 04 0d 06 0e 09 dd 20  |%.............. |
00000d20  f2 72 76 0d 06 18 0d 66  6e 25 2b 3d 6d 66 69 25  |.rv....fn%+=mfi%|
00000d30  0d 06 22 18 e7 66 6e 25  3c 3d 31 20 66 6e 25 3d  |.."..fn%<=1 fn%=|
00000d40  31 3a 6d 66 69 25 3d 31  0d 06 2c 1d e7 66 6e 25  |1:mfi%=1..,..fn%|
00000d50  3e 3d 66 73 25 20 66 6e  25 3d 66 73 25 3a 6d 66  |>=fs% fn%=fs%:mf|
00000d60  69 25 3d 2d 31 0d 06 36  05 e1 0d 06 40 04 0d 06  |i%=-1..6....@...|
00000d70  4a 10 dd 20 a4 73 69 6e  66 6f 28 6e 25 29 0d 06  |J.. .sinfo(n%)..|
00000d80  54 2e 75 25 21 34 30 3d  75 25 21 34 34 3a c8 95  |T.u%!40=u%!44:..|
00000d90  6e 25 3e 31 3a 75 25 21  34 30 2b 3d 21 28 75 25  |n%>1:u%!40+=!(u%|
00000da0  21 34 30 29 3a 6e 25 2d  3d 31 3a ce 0d 06 5e 27  |!40):n%-=1:...^'|
00000db0  c8 99 26 32 45 2c 26 32  32 38 2c 75 25 21 33 32  |..&2E,&228,u%!32|
00000dc0  2c 75 25 21 34 30 20 b8  2c 2c 2c 2c 2c 2c 75 25  |,u%!40 .,,,,,,u%|
00000dd0  21 32 38 0d 06 68 2f 75  25 21 34 38 3d 31 3c 3c  |!28..h/u%!48=1<<|
00000de0  a4 6d 76 28 75 25 21 32  38 2c 34 29 3a 75 25 21  |.mv(u%!28,4):u%!|
00000df0  35 32 3d 31 3c 3c a4 6d  76 28 75 25 21 32 38 2c  |52=1<<.mv(u%!28,|
00000e00  35 29 0d 06 72 16 c8 99  26 33 35 2c 75 25 21 32  |5)..r...&35,u%!2|
00000e10  38 2c 33 b8 2c 2c 6e 25  0d 06 7c 1b e7 6e 25 3c  |8,3.,,n%..|..n%<|
00000e20  3e 75 25 21 32 34 20 f2  70 69 78 74 72 61 6e 73  |>u%!24 .pixtrans|
00000e30  28 30 29 0d 06 86 1e e7  75 25 21 32 38 3c 3e 75  |(0).....u%!28<>u|
00000e40  25 21 33 36 20 f2 70 69  78 74 72 61 6e 73 28 30  |%!36 .pixtrans(0|
00000e50  29 0d 06 90 31 e7 6d 63  25 3d 36 33 20 e7 6e 25  |)...1.mc%=63 .n%|
00000e60  3d 36 33 20 e7 75 25 21  34 38 3d 75 25 21 35 36  |=63 .u%!48=u%!56|
00000e70  20 e7 75 25 21 35 32 3d  75 25 21 36 30 20 6e 25  | .u%!52=u%!60 n%|
00000e80  3d 30 0d 06 9a 07 3d 6e  25 0d 06 a4 04 0d 06 ae  |=0....=n%.......|
00000e90  24 dd 20 f2 73 69 6e 67  6c 65 3a ea 6d 6f 64 65  |$. .single:.mode|
00000ea0  2c 78 2c 79 2c 62 2c 63  2c 78 25 2c 79 25 2c 69  |,x,y,b,c,x%,y%,i|
00000eb0  25 0d 06 b8 19 6d 6e 63  25 3d 6d 6e 25 3a f2 70  |%....mnc%=mn%:.p|
00000ec0  69 78 74 72 61 6e 73 28  31 29 0d 06 c2 13 6d 6f  |ixtrans(1)....mo|
00000ed0  64 65 3d a4 72 6d 28 75  25 21 32 38 29 0d 06 cc  |de=.rm(u%!28)...|
00000ee0  0c f2 77 69 6d 70 70 61  6c 0d 06 d6 0f f2 63 68  |..wimppal.....ch|
00000ef0  61 6e 67 65 6d 6f 64 65  0d 06 e0 0e e7 6d 6f 64  |angemode.....mod|
00000f00  65 3e 2d 31 20 8c 0d 06  ea 18 20 6d 6e 25 3d eb  |e>-1 ..... mn%=.|
00000f10  3a 6d 63 25 3d a4 6d 76  28 2d 31 2c 33 29 0d 06  |:mc%=.mv(-1,3)..|
00000f20  f4 10 20 e7 75 25 21 32  34 3c 36 33 20 8c 0d 06  |.. .u%!24<63 ...|
00000f30  fe 23 20 20 63 3d 37 36  35 3a e7 21 28 75 25 21  |.#  c=765:.!(u%!|
00000f40  34 30 2b 33 32 29 3e 34  34 20 f2 65 78 74 70 61  |40+32)>44 .extpa|
00000f50  6c 0d 07 08 11 20 20 e3  69 25 3d 30 b8 75 25 21  |l....  .i%=0.u%!|
00000f60  32 34 0d 07 12 2a 20 20  20 62 3d 70 74 25 2b 28  |24...*   b=pt%+(|
00000f70  69 25 3c 3c 32 29 3a ef  31 39 2c 69 25 2c 31 36  |i%<<2):.19,i%,16|
00000f80  2c 62 3f 31 2c 62 3f 32  2c 62 3f 33 0d 07 1c 2f  |,b?1,b?2,b?3.../|
00000f90  20 20 20 e7 28 62 3f 31  2b 62 3f 32 2b 62 3f 33  |   .(b?1+b?2+b?3|
00000fa0  29 3c 63 20 63 3d 28 62  3f 31 2b 62 3f 32 2b 62  |)<c c=(b?1+b?2+b|
00000fb0  3f 33 29 3a e6 31 32 38  2b 69 25 0d 07 26 09 20  |?3):.128+i%..&. |
00000fc0  20 ed 69 25 0d 07 30 10  20 20 da 3a c8 99 26 34  | .i%..0.  .:..&4|
00000fd0  30 37 35 30 0d 07 3a 06  20 cd 0d 07 44 11 20 f2  |0750..:. ...D. .|
00000fe0  70 69 78 74 72 61 6e 73  28 31 29 0d 07 4e 14 20  |pixtrans(1)..N. |
00000ff0  6d 69 25 3d a4 73 69 6e  66 6f 28 66 6e 25 29 0d  |mi%=.sinfo(fn%).|
00001000  07 58 2b 20 78 25 3d 28  28 28 a4 6d 76 28 2d 31  |.X+ x%=(((.mv(-1|
00001010  2c 31 31 29 2b 31 29 3c  3c a4 6d 76 28 2d 31 2c  |,11)+1)<<.mv(-1,|
00001020  34 29 29 2d 69 78 25 29  2f 32 0d 07 62 2b 20 79  |4))-ix%)/2..b+ y|
00001030  25 3d 28 28 28 a4 6d 76  28 2d 31 2c 31 32 29 2b  |%=(((.mv(-1,12)+|
00001040  31 29 3c 3c a4 6d 76 28  2d 31 2c 35 29 29 2d 69  |1)<<.mv(-1,5))-i|
00001050  79 25 29 2f 32 0d 07 6c  06 20 f5 0d 07 76 0c 20  |y%)/2..l. ...v. |
00001060  20 e7 6d 68 25 20 8c 0d  07 80 0d 20 20 20 6d 68  | .mh% .....   mh|
00001070  25 2d 3d 31 0d 07 8a 07  20 20 cc 0d 07 94 19 20  |%-=1....  ..... |
00001080  20 20 ee 20 6d 66 72 25  20 f2 66 77 2c f2 62 77  |  . mfr% .fw,.bw|
00001090  2c f2 72 76 0d 07 9e 28  20 20 20 6d 69 25 3d a4  |,.rv...(   mi%=.|
000010a0  73 69 6e 66 6f 28 66 6e  25 29 3a c8 99 26 33 35  |sinfo(fn%):..&35|
000010b0  2c 75 25 21 32 38 2c 33  b8 2c 2c 63 0d 07 a8 2d  |,u%!28,3.,,c...-|
000010c0  20 20 20 e7 6d 63 25 3d  63 20 e7 75 25 21 34 38  |   .mc%=c .u%!48|
000010d0  3d 75 25 21 35 36 20 e7  75 25 21 35 32 3d 75 25  |=u%!56 .u%!52=u%|
000010e0  21 36 30 20 6d 69 25 3d  30 0d 07 b2 1f 20 20 20  |!60 mi%=0....   |
000010f0  e7 3f 28 75 25 21 34 30  2b 34 29 3d 34 32 20 6d  |.?(u%!40+4)=42 m|
00001100  68 25 3d 6d 66 25 21 34  0d 07 bc 07 20 20 cd 0d  |h%=mf%!4....  ..|
00001110  07 c6 15 20 20 e7 6d 69  25 3d 30 84 6d 6e 74 25  |...  .mi%=0.mnt%|
00001120  3d 31 20 8c 0d 07 d0 25  20 20 20 c8 99 26 32 45  |=1 ....%   ..&2E|
00001130  2c 26 32 32 32 2c 75 25  21 33 32 2c 75 25 21 34  |,&222,u%!32,u%!4|
00001140  30 2c 78 25 2c 79 25 2c  30 0d 07 da 07 20 20 cc  |0,x%,y%,0....  .|
00001150  0d 07 e4 32 20 20 20 c8  99 26 32 45 2c 26 32 33  |...2   ..&2E,&23|
00001160  34 2c 75 25 21 33 32 2c  75 25 21 34 30 2c 78 25  |4,u%!32,u%!40,x%|
00001170  2c 79 25 2c 30 2c 75 25  2b 34 38 2c 70 74 25 2b  |,y%,0,u%+48,pt%+|
00001180  36 34 0d 07 ee 07 20 20  cd 0d 07 f8 2f 20 20 f5  |64....  ..../  .|
00001190  3a c8 97 78 2c 79 2c 62  3a fd 20 62 3e 30 20 84  |:..x,y,b:. b>0 .|
000011a0  20 28 91 2d 74 69 6d 25  29 3e 3d 6d 66 25 21 30  | (.-tim%)>=mf%!0|
000011b0  3a 20 74 69 6d 25 3d 91  0d 08 02 09 20 fd 62 3e  |: tim%=..... .b>|
000011c0  30 0d 08 0c 14 20 da 3a  c8 99 26 34 30 30 45 33  |0.... .:..&400E3|
000011d0  2c 6d 6e 63 25 0d 08 16  05 cc 0d 08 20 32 20 62  |,mnc%....... 2 b|
000011e0  3d a4 65 28 22 53 6f 72  72 79 2c 20 63 61 6e 6e  |=.e("Sorry, cann|
000011f0  6f 74 20 66 69 6e 64 20  61 20 73 75 69 74 61 62  |ot find a suitab|
00001200  6c 65 20 6d 6f 64 65 2e  22 2c 31 29 0d 08 2a 05  |le mode.",1)..*.|
00001210  cd 0d 08 34 05 e1 0d 08  3e 04 0d 08 48 1a dd 20  |...4....>...H.. |
00001220  a4 72 6d 28 6e 25 29 3a  ea 69 25 2c 64 25 2c 63  |.rm(n%):.i%,d%,c|
00001230  25 2c 6d 25 0d 08 52 31  6d 25 3d eb 3a 63 25 3d  |%,m%..R1m%=.:c%=|
00001240  a4 72 6d 63 28 6d 25 29  3a 69 25 3d 30 3a f5 3a  |.rmc(m%):i%=0:.:|
00001250  f3 64 25 3a 69 25 2b 3d  31 3a fd 64 25 3d 6d 25  |.d%:i%+=1:.d%=m%|
00001260  84 64 25 3c 30 0d 08 5c  21 6e 25 3d a4 72 6d 63  |.d%<0..\!n%=.rmc|
00001270  28 6e 25 29 3a f5 3a f3  64 25 3a 69 25 2d 3d 31  |(n%):.:.d%:i%-=1|
00001280  3a fd 69 25 3d 30 0d 08  66 14 e7 64 25 3c 30 20  |:.i%=0..f..d%<0 |
00001290  64 25 3d eb 2b 6e 25 2d  63 25 0d 08 70 07 3d 64  |d%=.+n%-c%..p.=d|
000012a0  25 0d 08 7a 04 0d 08 84  0e dd 20 a4 72 6d 63 28  |%..z...... .rmc(|
000012b0  63 25 29 0d 08 8e 13 c8  99 26 33 35 2c 63 25 2c  |c%)......&35,c%,|
000012c0  33 b8 2c 2c 63 25 0d 08  98 24 63 25 3d 31 2b 28  |3.,,c%...$c%=1+(|
000012d0  31 80 63 25 3e 31 29 2b  28 31 80 63 25 3e 33 29  |1.c%>1)+(1.c%>3)|
000012e0  2b 28 31 80 63 25 3e 31  35 29 0d 08 a2 08 f7 2b  |+(1.c%>15).....+|
000012f0  63 25 0d 08 ac 29 dc 20  20 30 2c 32 39 2c 34 31  |c%...).  0,29,41|
00001300  2c 34 34 2c 20 35 2c 20  34 2c 20 30 2c 20 30 2c  |,44, 5, 4, 0, 0,|
00001310  20 30 2c 32 32 2c 32 33  2c 2d 31 0d 08 b6 29 dc  | 0,22,23,-1...).|
00001320  20 20 38 2c 33 30 2c 34  32 2c 34 35 2c 20 35 2c  |  8,30,42,45, 5,|
00001330  20 31 2c 31 31 2c 20 38  2c 20 38 2c 32 32 2c 32  | 1,11, 8, 8,22,2|
00001340  33 2c 2d 31 0d 08 c0 29  dc 20 31 32 2c 33 31 2c  |3,-1...). 12,31,|
00001350  34 33 2c 34 36 2c 20 32  2c 20 39 2c 31 34 2c 31  |43,46, 2, 9,14,1|
00001360  36 2c 31 37 2c 32 32 2c  32 33 2c 2d 31 0d 08 ca  |6,17,22,23,-1...|
00001370  29 dc 20 31 35 2c 32 38  2c 31 35 2c 31 35 2c 31  |). 15,28,15,15,1|
00001380  30 2c 31 33 2c 31 35 2c  32 34 2c 32 34 2c 32 32  |0,13,15,24,24,22|
00001390  2c 32 33 2c 2d 31 0d 08  d4 07 3d 63 25 0d 08 de  |,23,-1....=c%...|
000013a0  04 0d 08 e8 14 dd 20 f2  63 68 61 6e 67 65 6d 6f  |...... .changemo|
000013b0  64 65 3a ea 69 0d 08 f2  07 ea 20 85 0d 08 fc 14  |de:.i..... .....|
000013c0  ee 85 ea 3a 6d 6f 64 65  3d 2d 31 3a f7 85 3a e1  |...:mode=-1:..:.|
000013d0  0d 09 06 0d eb 6d 6f 64  65 3a da 3a 87 0d 09 10  |.....mode:.:....|
000013e0  06 f7 85 0d 09 1a 05 e1  0d 09 24 04 0d 09 2e 0c  |..........$.....|
000013f0  dd 20 f2 6d 65 6e 75 6f  0d 09 38 18 21 28 6d 30  |. .menuo..8.!(m0|
00001400  2b 32 38 2b 32 34 2a 31  29 3d 6d 66 72 25 80 31  |+28+24*1)=mfr%.1|
00001410  0d 09 42 19 21 28 6d 30  2b 32 38 2b 32 34 2a 32  |..B.!(m0+28+24*2|
00001420  29 3d 6d 66 72 25 3e 3e  31 0d 09 4c 16 21 28 6d  |)=mfr%>>1..L.!(m|
00001430  30 2b 32 38 2b 32 34 2a  37 29 3d 6d 6e 74 25 0d  |0+28+24*7)=mnt%.|
00001440  09 56 18 c8 99 26 34 30  30 44 34 2c 2c 6d 30 2c  |.V...&400D4,,m0,|
00001450  6d 75 78 2c 6d 75 79 0d  09 60 05 e1 0d 09 6a 04  |mux,muy..`....j.|
00001460  0d 09 74 18 dd 20 f2 6d  65 6e 75 77 28 70 2c 78  |..t.. .menuw(p,x|
00001470  2c 79 2c 6e 29 3a ea 6d  0d 09 7e 36 e7 6e 3d 33  |,y,n):.m..~6.n=3|
00001480  20 6d 3d a4 6d 74 28 6d  32 2c 22 43 2f 73 65 63  | m=.mt(m2,"C/sec|
00001490  73 22 2c 39 36 29 20 8b  20 6d 3d a4 6d 74 28 6d  |s",96) . m=.mt(m|
000014a0  32 2c 22 46 72 61 6d 65  73 22 2c 39 36 29 0d 09  |2,"Frames",96)..|
000014b0  88 38 6d 3d a4 6d 69 28  6d 2c 31 33 32 2c 2d 31  |.8m=.mi(m,132,-1|
000014c0  2c 26 30 37 30 30 39 33  31 31 2c 6d 2b 32 34 2c  |,&07009311,m+24,|
000014d0  6d 2b 32 38 2c 34 29 3a  24 28 6d 2b 32 38 29 3d  |m+28,4):$(m+28)=|
000014e0  22 41 30 2d 39 22 0d 09  92 1e 24 28 6d 32 2b 35  |"A0-9"....$(m2+5|
000014f0  32 29 3d c3 28 21 28 6d  66 25 2b 28 6e 2d 33 29  |2)=.(!(mf%+(n-3)|
00001500  2a 34 29 29 0d 09 9c 13  c8 99 26 34 30 30 45 38  |*4))......&400E8|
00001510  2c 2c 70 2c 78 2c 79 0d  09 a6 05 e1 0d 09 b0 04  |,,p,x,y.........|
00001520  0d 09 ba 11 dd 20 f2 6d  65 6e 75 73 3a ea 62 75  |..... .menus:.bu|
00001530  74 0d 09 c4 1d c8 99 26  34 30 30 43 46 2c 2c 7a  |t......&400CF,,z|
00001540  2b 31 32 38 3a 62 75 74  3d 7a 21 31 33 36 0d 09  |+128:but=z!136..|
00001550  ce 0b c8 8e 20 21 7a 20  ca 0d 09 d8 07 c9 30 3a  |.... !z ......0:|
00001560  0d 09 e2 12 c9 31 3a 6d  66 72 25 3d 6d 66 72 25  |.....1:mfr%=mfr%|
00001570  82 31 0d 09 ec 12 c9 32  3a 6d 66 72 25 3d 6d 66  |.1.....2:mfr%=mf|
00001580  72 25 82 32 0d 09 f6 22  c9 33 2c 34 3a 21 28 6d  |r%.2...".3,4:!(m|
00001590  66 25 2b 28 21 7a 2d 33  29 2a 34 29 3d bb 24 28  |f%+(!z-3)*4)=.$(|
000015a0  6d 32 2b 35 32 29 0d 0a  00 27 c9 35 3a e7 73 61  |m2+52)...'.5:.sa|
000015b0  6d 20 f2 70 69 78 74 72  61 6e 73 28 31 29 3a f2  |m .pixtrans(1):.|
000015c0  64 74 6d 6f 64 65 28 75  25 21 32 38 29 0d 0a 0a  |dtmode(u%!28)...|
000015d0  14 c9 36 3a e7 73 61 6d  20 f2 70 61 6c 65 74 74  |..6:.sam .palett|
000015e0  65 0d 0a 14 18 c9 37 3a  6d 6e 74 25 3d 31 2d 6d  |e.....7:mnt%=1-m|
000015f0  6e 74 25 3a f2 6d 6f 64  65 0d 0a 1e 20 c9 38 3a  |nt%:.mode... .8:|
00001600  e7 28 6d 66 72 25 3e 30  20 80 20 73 61 6d 3e 30  |.(mfr%>0 . sam>0|
00001610  29 20 f2 73 69 6e 67 6c  65 0d 0a 28 0d c9 39 3a  |) .single..(..9:|
00001620  f2 63 6c 65 61 72 0d 0a  32 0e c9 31 30 3a 71 75  |.clear..2..10:qu|
00001630  69 74 3d b9 0d 0a 3c 05  cb 0d 0a 46 21 6d 61 73  |it=...<....F!mas|
00001640  6b 3d 6d 61 73 6b 25 2b  28 31 80 28 6d 66 72 25  |k=mask%+(1.(mfr%|
00001650  3d 30 84 77 68 25 3d 30  29 29 0d 0a 50 11 e7 62  |=0.wh%=0))..P..b|
00001660  75 74 3d 31 20 f2 6d 65  6e 75 6f 0d 0a 5a 05 e1  |ut=1 .menuo..Z..|
00001670  0d 0a 64 04 0d 0a 6e 0e  dd 20 f2 70 61 6c 65 74  |..d...n.. .palet|
00001680  74 65 0d 0a 78 10 f2 70  69 78 74 72 61 6e 73 28  |te..x..pixtrans(|
00001690  31 29 0d 0a 82 21 e7 20  75 25 21 32 34 3d 31 35  |1)...!. u%!24=15|
000016a0  20 80 20 21 28 75 25 21  34 30 2b 33 32 29 3e 34  | . !(u%!40+32)>4|
000016b0  34 20 8c 0d 0a 8c 33 20  f2 77 69 6d 70 70 61 6c  |4 ....3 .wimppal|
000016c0  3a f2 65 78 74 70 61 6c  3a c8 99 26 34 30 30 45  |:.extpal:..&400E|
000016d0  34 2c 2c 70 74 25 3a 3a  c8 99 26 34 30 37 35 30  |4,,pt%::..&40750|
000016e0  3a f2 6d 6f 64 65 0d 0a  96 05 cd 0d 0a a0 05 e1  |:.mode..........|
000016f0  0d 0a aa 04 0d 0a b4 10  dd 20 f2 64 74 6d 6f 64  |......... .dtmod|
00001700  65 28 6d 29 0d 0a be 06  ea 85 0d 0a c8 17 ee 85  |e(m)............|
00001710  ea 3a 6d 3d a4 65 28 f6  24 2c 31 29 3a f7 85 3a  |.:m=.e(.$,1):..:|
00001720  e1 0d 0a d2 0e c8 99 26  34 30 30 45 33 2c 6d 0d  |.......&400E3,m.|
00001730  0a dc 06 f7 85 0d 0a e6  05 e1 0d 0a f0 04 0d 0a  |................|
00001740  fa 0e dd 20 f2 6d 65 73  73 61 67 65 0d 0b 04 0d  |... .message....|
00001750  c8 8e 20 7a 21 31 36 20  ca 0d 0b 0e 0d c9 30 3a  |.. z!16 ......0:|
00001760  71 75 69 74 3d b9 0d 0b  18 33 c9 33 3a e7 20 7a  |quit=....3.3:. z|
00001770  21 34 30 3d 69 64 25 20  84 20 7a 21 34 30 3d 26  |!40=id% . z!40=&|
00001780  46 46 39 20 f2 6c 6f 61  64 28 a4 7a 74 28 7a 2b  |FF9 .load(.zt(z+|
00001790  34 34 29 2c 7a 21 31 36  29 0d 0b 22 2d c9 35 3a  |44),z!16).."-.5:|
000017a0  e7 20 7a 21 34 30 3d 69  64 25 20 f2 61 63 6b 3a  |. z!40=id% .ack:|
000017b0  20 f2 6c 6f 61 64 28 a4  7a 74 28 7a 2b 34 34 29  | .load(.zt(z+44)|
000017c0  2c 7a 21 31 36 29 0d 0b  2c 0c c9 39 3a f2 6d 6f  |,z!16)..,..9:.mo|
000017d0  64 65 0d 0b 36 27 c9 26  34 30 30 43 30 3a f2 6d  |de..6'.&400C0:.m|
000017e0  65 6e 75 77 28 7a 21 32  30 2c 7a 21 32 34 2c 7a  |enuw(z!20,z!24,z|
000017f0  21 32 38 2c 7a 21 33 32  29 0d 0b 40 11 c9 26 34  |!28,z!32)..@..&4|
00001800  30 30 43 31 3a f2 6d 6f  64 65 0d 0b 4a 05 cb 0d  |00C1:.mode..J...|
00001810  0b 54 05 e1 0d 0b 5e 04  0d 0b 68 0b dd 20 f2 6d  |.T....^...h.. .m|
00001820  6f 64 65 0d 0b 72 17 6d  6e 25 3d eb 3a 6d 63 25  |ode..r.mn%=.:mc%|
00001830  3d a4 6d 76 28 2d 31 2c  33 29 0d 0b 7c 15 e7 73  |=.mv(-1,3)..|..s|
00001840  61 6d 20 f2 70 69 78 74  72 61 6e 73 28 31 29 0d  |am .pixtrans(1).|
00001850  0b 86 0a e7 77 68 25 20  8c 0d 0b 90 17 20 21 7a  |....wh% ..... !z|
00001860  3d 77 68 25 3a c8 99 26  34 30 30 43 43 2c 2c 7a  |=wh%:..&400CC,,z|
00001870  0d 0b 9a 2f 20 e7 7a 21  33 32 80 26 31 30 30 30  |.../ .z!32.&1000|
00001880  30 20 6d 69 25 3d a4 73  69 6e 66 6f 28 66 6e 25  |0 mi%=.sinfo(fn%|
00001890  29 3a 6d 68 25 2b 3d 31  3a f2 6d 75 6c 74 69 0d  |):mh%+=1:.multi.|
000018a0  0b a4 05 cd 0d 0b ae 05  e1 0d 0b b8 04 0d 0b c2  |................|
000018b0  0a dd 20 f2 61 63 6b 0d  0b cc 1d 7a 21 30 3d 26  |.. .ack....z!0=&|
000018c0  31 30 30 3a 7a 21 31 36  3d 34 3a 20 7a 21 31 32  |100:z!16=4: z!12|
000018d0  3d 7a 21 38 0d 0b d6 13  c8 99 26 34 30 30 45 37  |=z!8......&400E7|
000018e0  2c 31 37 2c 7a 2c 30 0d  0b e0 05 e1 0d 0b ea 04  |,17,z,0.........|
000018f0  0d 0b f4 29 dd 20 f2 6c  6f 61 64 28 66 24 2c 61  |...). .load(f$,a|
00001900  63 6b 29 3a ea 69 2c 6a  2c 66 6c 65 6e 2c 66 73  |ck):.i,j,flen,fs|
00001910  6c 6f 74 2c 67 73 6c 6f  74 0d 0b fe 18 c8 99 38  |lot,gslot......8|
00001920  2c 31 37 2c 66 24 20 b8  20 2c 2c 2c 2c 66 6c 65  |,17,f$ . ,,,,fle|
00001930  6e 0d 0c 08 0a f2 63 6c  65 61 72 0d 0c 12 1b 66  |n.....clear....f|
00001940  73 6c 6f 74 3d 66 6c 65  6e 2b 34 2b 73 6c 6f 74  |slot=flen+4+slot|
00001950  2b 33 32 37 36 38 0d 0c  1c 1d c8 99 26 34 30 30  |+32768......&400|
00001960  45 43 2c 66 73 6c 6f 74  2c 2d 31 20 b8 20 67 73  |EC,fslot,-1 . gs|
00001970  6c 6f 74 0d 0c 26 14 e7  20 67 73 6c 6f 74 3e 3d  |lot..&.. gslot>=|
00001980  66 73 6c 6f 74 20 8c 0d  0c 30 25 20 73 3d 61 73  |fslot ...0% s=as|
00001990  6c 6f 74 3a 20 73 61 6d  3d 67 73 6c 6f 74 2d 61  |lot: sam=gslot-a|
000019a0  73 6c 6f 74 3a 20 21 73  3d 73 61 6d 0d 0c 3a 14  |slot: !s=sam..:.|
000019b0  20 c8 99 26 32 45 2c 26  31 30 41 2c 73 2c 66 24  | ..&2E,&10A,s,f$|
000019c0  0d 0c 44 11 20 e7 20 61  63 6b 3d 33 20 f2 61 63  |..D. . ack=3 .ac|
000019d0  6b 0d 0c 4e 1a 20 66 73  25 3d 73 21 34 3a 20 66  |k..N. fs%=s!4: f|
000019e0  6e 25 3d 31 3a 20 f2 6d  6f 64 65 0d 0c 58 30 20  |n%=1: .mode..X0 |
000019f0  69 3d a9 28 66 24 29 2b  31 3a f5 3a 69 2d 3d 31  |i=.(f$)+1:.:i-=1|
00001a00  3a fd c1 66 24 2c 69 2c  31 29 3d 22 2e 22 3a 24  |:..f$,i,1)=".":$|
00001a10  75 25 3d c1 66 24 2c 69  2b 31 29 0d 0c 62 3b 20  |u%=.f$,i+1)..b; |
00001a20  69 78 25 3d 75 25 21 31  36 2a 75 25 21 34 38 3a  |ix%=u%!16*u%!48:|
00001a30  20 77 78 25 3d 69 78 25  3a 20 69 3d a9 28 24 75  | wx%=ix%: i=.($u|
00001a40  25 29 2a 31 36 2b 39 36  3a 20 e7 77 78 25 3c 69  |%)*16+96: .wx%<i|
00001a50  20 77 78 25 3d 69 0d 0c  6c 2e 20 69 79 25 3d 75  | wx%=i..l. iy%=u|
00001a60  25 21 32 30 2a 75 25 21  35 32 3a 20 77 79 25 3d  |%!20*u%!52: wy%=|
00001a70  69 79 25 3a 20 e7 20 77  79 25 3c 39 36 20 77 79  |iy%: . wy%<96 wy|
00001a80  25 3d 39 36 0d 0c 76 25  20 66 78 25 3d 28 77 78  |%=96..v% fx%=(wx|
00001a90  25 2d 69 78 25 29 2f 32  3a 20 66 79 25 3d 28 77  |%-ix%)/2: fy%=(w|
00001aa0  79 25 2d 69 79 25 29 2f  32 0d 0c 80 06 3a 3a 0d  |y%-iy%)/2....::.|
00001ab0  0c 8a 0e 20 69 3d 75 25  21 34 34 2b 34 0d 0c 94  |... i=u%!44+4...|
00001ac0  24 20 e7 69 3f 31 3d 34  37 80 69 3f 33 3d 34 37  |$ .i?1=47.i?3=47|
00001ad0  80 69 3f 37 3d 34 37 80  69 3f 31 31 3d 34 37 20  |.i?7=47.i?11=47 |
00001ae0  8c 0d 0c 9e 15 20 20 20  69 3f 37 3d 31 33 3a 69  |.....   i?7=13:i|
00001af0  3f 31 31 3d 31 33 0d 0c  a8 11 20 20 20 6d 66 72  |?11=13....   mfr|
00001b00  25 3d 33 80 69 3f 32 0d  0c b2 14 20 20 20 6d 66  |%=3.i?2....   mf|
00001b10  25 21 30 3d bb 24 28 69  2b 34 29 0d 0c bc 14 20  |%!0=.$(i+4).... |
00001b20  20 20 6d 66 25 21 34 3d  bb 24 28 69 2b 38 29 0d  |  mf%!4=.$(i+8).|
00001b30  0c c6 06 20 cd 0d 0c d0  06 3a 3a 0d 0c da 16 20  |... .....::.... |
00001b40  f2 77 69 6e 64 6f 77 3a  20 f2 6f 70 65 6e 28 31  |.window: .open(1|
00001b50  29 0d 0c e4 05 cc 0d 0c  ee 5c 20 66 6c 65 6e 3d  |)........\ flen=|
00001b60  a4 65 28 22 43 61 6e 6e  6f 74 20 63 6c 61 69 6d  |.e("Cannot claim|
00001b70  20 65 6e 6f 75 67 68 20  6d 65 6d 6f 72 79 20 2d  | enough memory -|
00001b80  20 69 6e 63 72 65 61 73  65 20 27 46 72 65 65 27  | increase 'Free'|
00001b90  20 69 6e 20 54 61 73 6b  20 44 69 73 70 6c 61 79  | in Task Display|
00001ba0  20 61 6e 64 20 74 72 79  20 61 67 61 69 6e 22 2c  | and try again",|
00001bb0  31 29 0d 0c f8 05 cd 0d  0d 02 05 e1 0d 0d 0c 04  |1)..............|
00001bc0  0d 0d 16 0c dd 20 f2 63  6c 65 61 72 0d 0d 20 25  |..... .clear.. %|
00001bd0  6d 61 73 6b 25 3d 26 33  38 33 30 3a 6d 61 73 6b  |mask%=&3830:mask|
00001be0  3d 6d 61 73 6b 25 2b 31  3a 20 f2 64 65 6c 65 74  |=mask%+1: .delet|
00001bf0  65 0d 0d 2a 1b c8 99 26  34 30 30 45 43 2c 73 6c  |e..*...&400EC,sl|
00001c00  6f 74 2c 2d 31 3a 20 73  61 6d 3d 30 0d 0d 34 1f  |ot,-1: sam=0..4.|
00001c10  66 73 25 3d 30 3a 20 66  6e 25 3d 30 3a 20 6d 66  |fs%=0: fn%=0: mf|
00001c20  69 25 3d 31 3a 20 6d 68  25 3d 30 0d 0d 3e 11 6d  |i%=1: mh%=0..>.m|
00001c30  6e 74 25 3d 30 3a 6d 66  72 25 3d 33 0d 0d 48 13  |nt%=0:mfr%=3..H.|
00001c40  6d 66 25 21 30 3d 34 3a  6d 66 25 21 34 3d 34 0d  |mf%!0=4:mf%!4=4.|
00001c50  0d 52 05 e1 0d 0d 5c 04  0d 0d 66 3c dd 20 a4 7a  |.R....\...f<. .z|
00001c60  74 28 61 29 3a ea 69 2c  69 24 3a 69 3d 2d 31 3a  |t(a):.i,i$:i=-1:|
00001c70  f5 3a 69 2b 3d 31 3a fd  61 3f 69 3d 30 3a 61 3f  |.:i+=1:.a?i=0:a?|
00001c80  69 3d 31 33 3a 69 24 3d  24 61 3a 61 3f 69 3d 30  |i=13:i$=$a:a?i=0|
00001c90  3a 3d 69 24 0d 0d 70 25  dd 20 a4 6d 76 28 6d 25  |:=i$..p%. .mv(m%|
00001ca0  2c 76 25 29 3a c8 99 26  33 35 2c 6d 25 2c 76 25  |,v%):..&35,m%,v%|
00001cb0  b8 2c 2c 76 25 3a 3d 76  25 0d 0d 7a 04 0d 0d 84  |.,,v%:=v%..z....|
00001cc0  12 dd 20 f2 70 69 78 74  72 61 6e 73 28 6e 29 0d  |.. .pixtrans(n).|
00001cd0  0d 8e 08 e7 6e 20 8c 0d  0d 98 2f 20 75 25 21 33  |....n ..../ u%!3|
00001ce0  32 3d 73 3a 75 25 21 34  30 3d 75 25 21 33 32 2b  |2=s:u%!40=u%!32+|
00001cf0  21 28 75 25 21 33 32 2b  38 29 3a 75 25 21 34 34  |!(u%!32+8):u%!44|
00001d00  3d 75 25 21 34 30 0d 0d  a2 32 20 c8 99 26 32 45  |=u%!40...2 ..&2E|
00001d10  2c 26 32 32 38 2c 75 25  21 33 32 2c 75 25 21 34  |,&228,u%!32,u%!4|
00001d20  30 20 b8 2c 2c 2c 75 25  21 31 36 2c 75 25 21 32  |0 .,,,u%!16,u%!2|
00001d30  30 2c 2c 75 25 21 32 38  0d 0d ac 05 cd 0d 0d b6  |0,,u%!28........|
00001d40  0f 75 25 21 33 36 3d 75  25 21 32 38 0d 0d c0 19  |.u%!36=u%!28....|
00001d50  c8 99 26 33 35 2c 75 25  21 32 38 2c 33 b8 2c 2c  |..&35,u%!28,3.,,|
00001d60  75 25 21 32 34 0d 0d ca  2f 75 25 21 34 38 3d 31  |u%!24.../u%!48=1|
00001d70  3c 3c a4 6d 76 28 75 25  21 32 38 2c 34 29 3a 75  |<<.mv(u%!28,4):u|
00001d80  25 21 35 32 3d 31 3c 3c  a4 6d 76 28 75 25 21 32  |%!52=1<<.mv(u%!2|
00001d90  38 2c 35 29 0d 0d d4 29  75 25 21 35 36 3d 31 3c  |8,5)...)u%!56=1<|
00001da0  3c a4 6d 76 28 2d 31 2c  34 29 3a 75 25 21 36 30  |<.mv(-1,4):u%!60|
00001db0  3d 31 3c 3c a4 6d 76 28  2d 31 2c 35 29 0d 0d de  |=1<<.mv(-1,5)...|
00001dc0  0f e7 75 25 21 32 34 3d  36 33 20 8c 0d 0d e8 24  |..u%!24=63 ....$|
00001dd0  20 e7 6d 63 25 3d 36 33  20 f2 74 61 62 6c 65 28  | .mc%=63 .table(|
00001de0  32 35 35 29 20 8b 20 f2  74 72 61 6e 73 32 35 36  |255) . .trans256|
00001df0  0d 0d f2 05 cc 0d 0d fc  16 20 e7 21 28 75 25 21  |......... .!(u%!|
00001e00  34 30 2b 33 32 29 3e 34  34 20 8c 0d 0e 06 14 20  |40+32)>44 ..... |
00001e10  20 f2 65 78 74 70 61 6c  3a f2 74 72 61 6e 73 0d  | .extpal:.trans.|
00001e20  0e 10 06 20 cc 0d 0e 1a  1c 20 20 e7 20 6d 63 25  |... .....  . mc%|
00001e30  3e 75 25 21 32 34 20 80  20 6d 63 25 3c 36 33 20  |>u%!24 . mc%<63 |
00001e40  8c 0d 0e 24 1b 20 20 20  f2 74 61 62 6c 65 28 75  |...$.   .table(u|
00001e50  25 21 32 34 2a 31 36 2b  6d 63 25 29 0d 0e 2e 07  |%!24*16+mc%)....|
00001e60  20 20 cc 0d 0e 38 16 20  20 20 f2 77 69 6d 70 70  |  ...8.   .wimpp|
00001e70  61 6c 3a f2 74 72 61 6e  73 0d 0e 42 07 20 20 cd  |al:.trans..B.  .|
00001e80  0d 0e 4c 06 20 cd 0d 0e  56 05 cd 0d 0e 60 05 e1  |..L. ...V....`..|
00001e90  0d 0e 6a 04 0d 0e 74 1e  dd 20 f2 74 61 62 6c 65  |..j...t.. .table|
00001ea0  28 69 25 29 3a ea 74 25  3a 74 25 3d 70 74 25 2b  |(i%):.t%:t%=pt%+|
00001eb0  36 34 0d 0e 7e 0b c8 8e  20 69 25 20 ca 0d 0e 88  |64..~... i% ....|
00001ec0  11 c9 26 31 31 3a 21 74  25 3d 26 31 30 30 0d 0e  |..&11:!t%=&100..|
00001ed0  92 11 c9 26 31 33 3a 21  74 25 3d 26 33 30 30 0d  |...&13:!t%=&300.|
00001ee0  0e 9c 11 c9 26 31 46 3a  21 74 25 3d 26 37 30 30  |....&1F:!t%=&700|
00001ef0  0d 0e a6 15 c9 26 33 33  3a 21 74 25 3d 26 33 30  |.....&33:!t%=&30|
00001f00  32 30 31 30 30 0d 0e b0  15 c9 26 33 46 3a 21 74  |20100.....&3F:!t|
00001f10  25 3d 26 37 30 34 30 32  30 30 0d 0e ba 1f c9 26  |%=&7040200.....&|
00001f20  46 46 3a e3 69 25 3d 30  b8 32 35 35 3a 74 25 3f  |FF:.i%=0.255:t%?|
00001f30  69 25 3d 69 25 3a ed 69  25 0d 0e c4 05 cb 0d 0e  |i%=i%:.i%.......|
00001f40  ce 05 e1 0d 0e d8 04 0d  0e e2 15 dd 20 f2 77 69  |............ .wi|
00001f50  6d 70 70 61 6c 3a ea 69  25 2c 6a 25 0d 0e ec 11  |mppal:.i%,j%....|
00001f60  c8 99 26 34 30 30 45 35  2c 2c 70 74 25 0d 0e f6  |..&400E5,,pt%...|
00001f70  19 e7 75 25 21 32 34 3d  31 20 70 74 25 21 34 3d  |..u%!24=1 pt%!4=|
00001f80  70 74 25 21 32 38 0d 0f  00 33 e7 75 25 21 32 34  |pt%!28...3.u%!24|
00001f90  3d 33 20 70 74 25 21 34  3d 70 74 25 21 38 3a 70  |=3 pt%!4=pt%!8:p|
00001fa0  74 25 21 38 3d 70 74 25  21 31 36 3a 70 74 25 21  |t%!8=pt%!16:pt%!|
00001fb0  31 32 3d 70 74 25 21 32  38 0d 0f 0a 3e e3 69 25  |12=pt%!28...>.i%|
00001fc0  3d 70 74 25 20 b8 20 70  74 25 2b 37 36 20 88 20  |=pt% . pt%+76 . |
00001fd0  34 3a 6a 25 3d 21 69 25  20 80 26 46 30 46 30 46  |4:j%=!i% .&F0F0F|
00001fe0  30 30 30 3a 21 69 25 3d  28 6a 25 3e 3e 3e 34 29  |000:!i%=(j%>>>4)|
00001ff0  84 6a 25 3a ed 69 25 0d  0f 14 05 e1 0d 0f 1e 04  |.j%:.i%.........|
00002000  0d 0f 28 11 dd 20 f2 65  78 74 70 61 6c 3a ea 69  |..(.. .extpal:.i|
00002010  25 0d 0f 32 3b e3 69 25  3d 30 b8 75 25 21 32 34  |%..2;.i%=0.u%!24|
00002020  3a 21 28 70 74 25 2b 28  69 25 3c 3c 32 29 29 3d  |:!(pt%+(i%<<2))=|
00002030  21 28 75 25 21 34 30 2b  34 34 2b 28 69 25 3c 3c  |!(u%!40+44+(i%<<|
00002040  33 29 29 80 ac 32 35 35  3a ed 69 25 0d 0f 3c 05  |3))..255:.i%..<.|
00002050  e1 0d 0f 46 04 0d 0f 50  0c dd 20 f2 74 72 61 6e  |...F...P.. .tran|
00002060  73 0d 0f 5a 24 c8 99 26  34 30 37 34 30 2c 75 25  |s..Z$..&40740,u%|
00002070  21 32 38 2c 70 74 25 2c  6d 6e 25 2c 2d 31 2c 70  |!28,pt%,mn%,-1,p|
00002080  74 25 2b 36 34 0d 0f 64  05 e1 0d 0f 6e 04 0d 0f  |t%+64..d....n...|
00002090  78 2a dd 20 f2 74 72 61  6e 73 32 35 36 3a ea 69  |x*. .trans256:.i|
000020a0  25 2c 70 25 2c 74 25 3a  70 25 3d 70 63 25 3a 74  |%,p%,t%:p%=pc%:t|
000020b0  25 3d 70 74 25 2b 36 34  0d 0f 82 37 e3 69 25 3d  |%=pt%+64...7.i%=|
000020c0  30 b8 31 35 3a c8 99 26  34 30 37 34 30 2c 31 32  |0.15:..&40740,12|
000020d0  2c 70 25 2c 6d 6e 25 2c  2d 31 2c 74 25 3a 70 25  |,p%,mn%,-1,t%:p%|
000020e0  2b 3d 36 34 3a 74 25 2b  3d 31 36 3a ed 69 25 0d  |+=64:t%+=16:.i%.|
000020f0  0f 8c 05 e1 0d ff                                 |......|
000020f6