2�><Dance$Dir>.!RunImage
d�
�� The Dancer Program
�� By Lee McGinty 1990
��

,� This App -

^
� By -

�� Written -

��initialise

�)� � �error(�$+" ("+Þ+")",�,3):� �T`C
&-ș"Wimp_Initialise",2*100,!task%,program$
��loadtemplates
�&menu$="02Dancer|[info%]Info|Quit|"
�1dummy%=�createmenu(menublock%,menuind%,menu$)
ș"OS_GetEnv" � command$
G� �command$,"-file ") � �loadfile(�command$,�command$,"-file ")+6))
 �
R#ș"Wimp_Poll",0,block1 � event%
�Ȏ event% �
�� 0:� null reason code
�� dancing% � �nextframe
�� 1:� redraw window
��redraw
� 2:� Open window
L� !block1=newbackdrop% �
~�screensize
�block1!4=0:block1!8=bottom%
�#block1!12=right%:block1!16=top%
)ș"Wimp_SetExtent",!block1,(block1+4)
F�
xș"Wimp_OpenWindow",,block1
��update
�� 3:� Close window
� ș"Wimp_CloseWindow",,block1
!� 4:� Pointer entering window
@ � 5:� Pointer leaving window
r� 6:� Mouse click
��mouseclick(block1)
�� 7:� User drag box
� 8:� Key Pressed
:� 9:� Menu selection
l�decodemenu
�� 10:� Scroll request
�� 11:� Lose caret
� 12:� Gain caret
4� 17,18,19:� message
f�receive(block1)
��
�
� quit
�ș"Wimp_CloseDown"
	.�
	`��initialise
	�lefthandside%=-2
	�righthandside%=-1
	�� task% 5:$task%="TASK"
(&� block1 256,block2 256,block3 256
Z� area% 256
nindsize%=1024
�0� templateblock% 1024,tempindirect% indsize%
�block1!60=0
�#� menublock% 1024,menuind% 1024
�
quit=�
"program$="Dancer"
Tpurpose$="Icon bar dancer"
� author$="� 1991 Lee McGinty"
�version$="1.0 (1-May-1991)"
�noframes%=1024
nomoves%=256
N � frameposx%(noframes%-1,12)
� � frameposy%(noframes%-1,12)
�� movename$(nomoves%)
�� movestart%(nomoves%)

� moveend%(nomoves%)

H� framemove%(nomoves%)

z� frameinbet%(nomoves%)

� spritearea% 3072

��screensize

�mancolour%=7:� Black

�dancing%=�

�dancerx%=right%/2

�spritearea%!0=3072

�spritearea%!8=16

�%ș"OS_SpriteOp",9+256,spritearea%

�<ș"OS_SpriteOp",10+256,spritearea%,"<Dance$Dir>.Sprites"

�7ș"OS_SpriteOp",24+256,spritearea%,"man" � ,,saddr%

�@ș"OS_SpriteOp",40+256,spritearea%,"man" � ,,,width%,height%

�%width%=width%*2:height%=height%*4

�scale=0.75

��
��loadtemplates
B2ș"Wimp_OpenTemplate",,"<Dance$Dir>.Templates"
tgș"Wimp_LoadTemplate",,templateblock%,tempindirect%,tempindirect%+indsize%,-1,"info",0 � ,,nextind%
�1ș"Wimp_CreateWindow",,templateblock% � info%
�#$(�iconaddr(info%,15))=version$

"$(�iconaddr(info%,2))=program$
<"$(�iconaddr(info%,9))=purpose$
n"$(�iconaddr(info%,12))=author$
�ș"Wimp_CloseTemplate"
�block1!4=0
block1!8=bottom%
6block1!12=right%
hblock1!16=top%
�block1!20=0
�"block1!24=0:� ### = top% in DD
�block1!28=-2
0block1!32=&8C0
bblock1!36=&4040407
�block1!40=0
�block1!44=0
�block1!48=bottom%
*block1!52=right%
\block1!56=top%
ablock1!60=0
bblock1!64=0
pblock1!68=spritearea%
�� byte%=68 � 91
�block1!byte%=0
��
$4ș"Wimp_CreateWindow",,(block1+4) � newbackdrop%
Vblock1!0=newbackdrop%
�ș"Wimp_OpenWindow",,block1
��
�ݤiconaddr(handle,icon)
 !block1=handle:block1!4=icon
P!ș"Wimp_GetIconState",,block1
�=block1!28
���error(error$,err,flags%)
�8!block2=err:$(block2+4)=error$:?(block2+4+�error$)=0
;ș"Wimp_ReportError",block2,flags%,program$ � ,buttons%
J� buttons%=1 � �
Tș"Wimp_CloseDown"
^�
|��receive(block)
�� message%
�message%=block!16
Ȏ message% �
D� 0:quit=�
v� 1:
�� block!40=&258 �
�$(block+44)="<Wimp$Scrap>"
block?56=0
>block!12=block!8
pblock!16=2
�block!36=-1
�block!0=60
)ș"Wimp_SendMessage",17,block,block!4
8�
j&� 3,5:� there is some data to load
�� block!40=&258 �
�file$=�string(block+44)
�loadfile(file$)
2(� block!12<>0 � *DELETE <Wimp$Scrap>
dblock!12=block!8
�block!16=4
�)ș"Wimp_SendMessage",17,block,block!4
��
,�
^�
�ݤcreatemenu(mb%,ind%,t$)
�� �t$,1)<>"|" � t$+="|"
�7� new$,ptr%,shade%,tick%,dotted%,submenu%,writable%
& � indirected%,g%,numofitems%
X!numofitems%=��t$,2):t$=�t$,3)
�#nextmenu%=mb%+28+24*numofitems%
�+$mb%=�t$,�t$,"|")-1):t$=�t$,�t$,"|")+1)
�mb%?12=7
 mb%?13=2
Rmb%?14=7
�mb%?15=0
�mb%!16=(�$mb%*16)+8
�
mb%!20=44
mb%!24=0
Lptr%=mb%+28
~8�:shade%=0:tick%=0:dotted%=0:writable%=0:submenu%=-1
�*� �t$,1)="{" � t$=�(�t$,2,�t$,"}")-2))
�!�t$,1)="#" tick%=1:t$=�t$,2)
�t$,1)="[" �
F"t$=�t$,2):new$=�t$,�t$,"]")-1)
xX� �new$,"%") � submenu%=�new$ � new$=�new$:submenu%=�createmenu(nextmenu%,ind%,new$)
�t$=�t$,�t$,"]")+1)
��
�t$,1)="." t$=�t$,2)
@(�t$,1)="*" shade%=&400000:t$=�t$,2)
r#�t$,1)=":" dotted%=2:t$=�t$,2)
�%�t$,1)="^" writable%=4:t$=�t$,2)
�g%=�t$,"|")
 � writable% �
 :/i%=�t$,","):ptr%!12=��t$,i%-1):t$=�t$,i%+1)
 lptr%!16=-1
 �ptr%!20=��t$,�t$,"|")-1)
 �(mb%!16=�greater(mb%!16,4+16*ptr%!20)
!�
!4� g%-1>12 �
!f!(ptr%+12)=ind%
!�$ind%=�t$,g%-1):ind%+=g%
!�!(ptr%+16)=0
!�!(ptr%+20)=g%
".indirected%=1
"`�
"�indirected%=�
"�$(ptr%+12)=�t$,g%-1)
"��
#(#mb%!16=�greater(mb%!16,g%*16-8)
#Z�
#�t$=�t$,g%+1)
#�7!ptr%=tick% � dotted% � writable% � (&80 � (t$=""))
#�ptr%!4=submenu%
$"Jptr%!8=&10021 � shade% � writable%<<6 � 0<<28 � 7<<24 � indirected%<<8
$Tptr%+=24
$�
�t$=""
$�=mb%
$�'� �greater(a%,b%):� a%>b% =a% � =b%
%��mouseclick(block)
%N� buttons%,window%,icon%
%�buttons%=block!8
%�window%=block!12
%�icon%=block!16
&Ȏ window% �
&H� newbackdrop%:
&zx%=block!0:y%=block!4
&�� buttons%=2 �
&�,ș"Wimp_CreateMenu",,menublock%,x%-64,y%
&��
&��
'�
'B��decodemenu
't� buttons%
'�#ș"Wimp_GetPointerInfo",,block2
'�buttons%=block2!8
(
1ș"Wimp_DecodeMenu",,menublock%,block1,block2
(<Ȏ $block2 �
(n
� "Quit":
(�
quit=�
(��
)6� buttons%=1 � ș"Wimp_CreateMenu",,menublock%,0,0
)6�
)h� �screensize
)�!block2=4:block2!4=5
)�block2!8=11:block2!12=12
)�block2!16=-1
*0*ș "OS_ReadVduVariables",block2,block2
*bxs%=!block2:ys%=block2!4
*�4right%=(block2!8+1)<<xs%:top%=(block2!12+1)<<ys%
*�bottom%=136
*��
+*ݤstring(mem%)
+\�S$
+�S$="":�:
+�S$+=�(?mem%)
+�mem%+=1
,$�?mem%=0
,V=S$
,���loadfile(filename$)
,�� �
,�8� � � �error("Cannot Load File: "+�$,0,1):�#C%:� �:�
-lastframe%=0
-PC%=�filename$
-�version%=�#C%
-�-� version%<100 � � 0,"Dance file too old"
-�nomovesindance%=(�#C%)-1
.� move%=1 � nomovesindance%
.Jname$=""
.|� byte%=0 � 12
.�name$+=�(�#C%)
.��
/movename$(move%)=name$
/Dnoframesindance%=�#C%
/v;� nextframe%=lastframe% � lastframe%+noframesindance%-1
/�� Read in points
/�� pos%=1 � 12
0,frameposx%(nextframe%,pos%)=(�#C%)*scale
0>,frameposy%(nextframe%,pos%)=(�#C%)*scale
0p�
0� frameinbet%(nextframe%)=�#C%
0�framemove%(nextframe%)=�#C%
0�W� framemove%(nextframe%)>128 � framemove%(nextframe%)=-(256-framemove%(nextframe%))
0�;� frameinbet%(nextframe%)=0 � frameinbet%(nextframe%)=5
1�
18 movestart%(move%)=lastframe%
1j1moveend%(move%)=lastframe%+noframesindance%-1
1o lastframe%+=noframesindance%
1��
1��#C%
1�� �
2�setupdance
22�
2d1��drawman(x%,y%,fromframe%,toframe%,fraction)
2��line(3,2)
2��line(2,1)
3,�line(1,4)
3^�line(4,5)
3��line(1,6)
3��line(6,7)
3��line(7,8)
4&�line(8,9)
4X�line(6,10)
4��line(10,11)
4��line(11,12)
4� � Calc pos of centre of head
5 [x1%=(frameposx%(toframe%,1)-frameposx%(fromframe%,1))*fraction+frameposx%(fromframe%,1)
5R[y1%=(frameposy%(toframe%,1)-frameposy%(fromframe%,1))*fraction+frameposy%(fromframe%,1)
5�[x2%=(frameposx%(toframe%,6)-frameposx%(fromframe%,6))*fraction+frameposx%(fromframe%,6)
5�[y2%=(frameposy%(toframe%,6)-frameposy%(fromframe%,6))*fraction+frameposy%(fromframe%,6)
5�� x1%=x2% � y1%=y2% �
6factor=0
6L�
6~*factor=16/(�((x1%-x2%)^2+(y1%-y2%)^2))
6��
6�headx%=x1%+(x1%-x2%)*factor
7heady%=y1%+(y1%-y2%)*factor
7F#ȏ headx%+x%,heady%+y%,16*scale
7x�
7���line(point1%,point2%)
7�%� x1%,x2%,x3%,x4%,y1%,y2%,y3%,y4%
8&x1%=frameposx%(fromframe%,point1%)
8@$x2%=frameposx%(toframe%,point1%)
8r&x3%=frameposx%(fromframe%,point2%)
8�$x4%=frameposx%(toframe%,point2%)
8�&y1%=frameposy%(fromframe%,point1%)
9$y2%=frameposy%(toframe%,point1%)
9:&y3%=frameposy%(fromframe%,point2%)
9l$y4%=frameposy%(toframe%,point2%)
9�9� (x2%-x1%)*fraction+x%+x1%,(y2%-y1%)*fraction+y%+y1%
9�9� (x4%-x3%)*fraction+x%+x3%,(y4%-y3%)*fraction+y%+y3%
:�
:�'��man(fromframe%,toframe%,fraction)
:�<ș"OS_SpriteOp",60+256,spritearea%,"man",0 � r0,r1,r2,r3
:�
�4+128
:��
:��mancolour%
:�.�drawman(8,0,fromframe%,toframe%,fraction)
:�ș"OS_SpriteOp",r0,r1,r2,r3
:��update
:��
:� 
:���nextframe
;
inbet%+=1
;� inbet%<>inbettotal% �
;5�man(currentframe%,nextframe%,inbet%/inbettotal%)
;+dancerx%+=(framemove%(currentframe%))*4
; 
�position
;$�
;.*� nextframe%>=moveend%(currentmove%) �
;8#currentmove%=�(nomovesindance%)
;Binbet%=0
;Lcurrentframe%=nextframe%
;Q*inbettotal%=frameinbet%(currentframe%)
;V'nextframe%=movestart%(currentmove%)
;[+dancerx%+=(framemove%(currentframe%))*4
;]
�position
;`5�man(currentframe%,nextframe%,inbet%/inbettotal%)
;j�
;tcurrentframe%=nextframe%
;~nextframe%+=1
;�$�man(currentframe%,nextframe%,0)
;�inbet%=0
;�*inbettotal%=frameinbet%(currentframe%)
;�+dancerx%+=(framemove%(currentframe%))*4
;�
�position
;��
;��
;��
;� 
;���setupdance
;�dancing%=�
;�#currentmove%=�(nomovesindance%)
;�*currentframe%=movestart%(currentmove%)
;�'�man(currentframe%,currentframe%,0)
;�inbet%=0
<*inbettotal%=frameinbet%(currentframe%)
<
nextframe%=currentframe%+1
<dancerx%=right%/2
<7ș"Wimp_ForceRedraw",newbackdrop%,0,136,right%,top%
<�
< 
<(
� �redraw
<<� !block1=newbackdrop% �
<F)ș"Wimp_RedrawWindow",,block1 � more%
<Pȕ more%
<Ug� �intersection(dancerx%,136,dancerx%+width%,136+height%,block1!28,block1!32,block1!36,block1!40) �
<Z�PlotIcon(dancerx%)
<_�
<n*ș "Wimp_GetRectangle",,block1 � more%
<x �
<��
<��
<��
<�� �PlotIcon(xpos%)
<�!block2=xpos%:block2!4=136
<�/block2!8=xpos%+width%:block2!12=136+height%
<�)block2!16=%100000010:block2!20=saddr%
<�%block2!24=spritearea%:block2!28=0
<�ș"Wimp_PlotIcon",,block2
<��
@t��position
@~6� dancerx%>=right%-width% � dancerx%=right%-width%
@�� dancerx%<0 � dancerx%=0
@��
Bh3ݤintersection(x1%,y1%,x2%,y2%,x3%,y3%,x4%,y4%)
Brxd%=x3%-x1%:yd%=y3%-y1%
B|"� xd%>0 � � xd%>(x2%-x1%) � =�
B�%� xd%<0 � � �(xd%)>(x4%-x3%) � =�
B�"� yd%>0 � � yd%>(y2%-y1%) � =�
B�%� yd%<0 � � �(yd%)>(y4%-y3%) � =�
B�=�
FP��update
FZ!block3=newbackdrop%
Fd<block3!4=dancerx%:block3!8=136:block3!12=dancerx%+width%
Fiblock3!16=136+height%
Fnș &400C9,,block3 � more%
Fxȕ more%
F�g� �intersection(dancerx%,136,dancerx%+width%,136+height%,block3!28,block3!32,block3!36,block3!40) �
F��PlotIcon(dancerx%)
F��
F�ș &400CA,,block3 � more%
F��
F��
�

00000000  0d 00 32 1b f4 3e 3c 44  61 6e 63 65 24 44 69 72  |..2..><Dance$Dir|
00000010  3e 2e 21 52 75 6e 49 6d  61 67 65 0d 00 64 05 f4  |>.!RunImage..d..|
00000020  0d 00 96 18 f4 20 54 68  65 20 44 61 6e 63 65 72  |..... The Dancer|
00000030  20 50 72 6f 67 72 61 6d  0d 00 c8 19 f4 20 42 79  | Program..... By|
00000040  20 4c 65 65 20 4d 63 47  69 6e 74 79 20 31 39 39  | Lee McGinty 199|
00000050  30 0d 00 fa 05 f4 0d 01  2c 10 f4 20 54 68 69 73  |0.......,.. This|
00000060  20 41 70 70 20 2d 0d 01  5e 0a f4 20 42 79 20 2d  | App -..^.. By -|
00000070  0d 01 90 0f f4 20 57 72  69 74 74 65 6e 20 2d 0d  |..... Written -.|
00000080  01 c2 0f f2 69 6e 69 74  69 61 6c 69 73 65 0d 01  |....initialise..|
00000090  f4 29 ee 20 85 20 f2 65  72 72 6f 72 28 f6 24 2b  |.). . .error(.$+|
000000a0  22 20 28 22 2b c3 9e 2b  22 29 22 2c 9f 2c 33 29  |" ("+..+")",.,3)|
000000b0  3a e5 20 8d 54 60 43 0d  02 26 2d c8 99 22 57 69  |:. .T`C..&-.."Wi|
000000c0  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
000000d0  2a 31 30 30 2c 21 74 61  73 6b 25 2c 70 72 6f 67  |*100,!task%,prog|
000000e0  72 61 6d 24 0d 02 8a 12  f2 6c 6f 61 64 74 65 6d  |ram$.....loadtem|
000000f0  70 6c 61 74 65 73 0d 02  bc 26 6d 65 6e 75 24 3d  |plates...&menu$=|
00000100  22 30 32 44 61 6e 63 65  72 7c 5b 69 6e 66 6f 25  |"02Dancer|[info%|
00000110  5d 49 6e 66 6f 7c 51 75  69 74 7c 22 0d 02 ee 31  |]Info|Quit|"...1|
00000120  64 75 6d 6d 79 25 3d a4  63 72 65 61 74 65 6d 65  |dummy%=.createme|
00000130  6e 75 28 6d 65 6e 75 62  6c 6f 63 6b 25 2c 6d 65  |nu(menublock%,me|
00000140  6e 75 69 6e 64 25 2c 6d  65 6e 75 24 29 0d 03 02  |nuind%,menu$)...|
00000150  1c c8 99 22 4f 53 5f 47  65 74 45 6e 76 22 20 b8  |..."OS_GetEnv" .|
00000160  20 63 6f 6d 6d 61 6e 64  24 0d 03 0c 47 e7 20 a7  | command$...G. .|
00000170  63 6f 6d 6d 61 6e 64 24  2c 22 2d 66 69 6c 65 20  |command$,"-file |
00000180  22 29 20 8c 20 f2 6c 6f  61 64 66 69 6c 65 28 c1  |") . .loadfile(.|
00000190  63 6f 6d 6d 61 6e 64 24  2c a7 63 6f 6d 6d 61 6e  |command$,.comman|
000001a0  64 24 2c 22 2d 66 69 6c  65 20 22 29 2b 36 29 29  |d$,"-file ")+6))|
000001b0  0d 03 20 05 f5 0d 03 52  23 c8 99 22 57 69 6d 70  |.. ....R#.."Wimp|
000001c0  5f 50 6f 6c 6c 22 2c 30  2c 62 6c 6f 63 6b 31 20  |_Poll",0,block1 |
000001d0  b8 20 65 76 65 6e 74 25  0d 03 84 0f c8 8e 20 65  |. event%...... e|
000001e0  76 65 6e 74 25 20 ca 0d  03 b6 1a c9 20 30 3a f4  |vent% ...... 0:.|
000001f0  20 6e 75 6c 6c 20 72 65  61 73 6f 6e 20 63 6f 64  | null reason cod|
00000200  65 0d 03 c0 1b e7 20 64  61 6e 63 69 6e 67 25 20  |e..... dancing% |
00000210  8c 20 f2 6e 65 78 74 66  72 61 6d 65 0d 03 e8 17  |. .nextframe....|
00000220  c9 20 31 3a f4 20 72 65  64 72 61 77 20 77 69 6e  |. 1:. redraw win|
00000230  64 6f 77 0d 03 fc 0b f2  72 65 64 72 61 77 0d 04  |dow.....redraw..|
00000240  1a 15 c9 20 32 3a f4 20  4f 70 65 6e 20 77 69 6e  |... 2:. Open win|
00000250  64 6f 77 0d 04 4c 1c e7  20 21 62 6c 6f 63 6b 31  |dow..L.. !block1|
00000260  3d 6e 65 77 62 61 63 6b  64 72 6f 70 25 20 8c 0d  |=newbackdrop% ..|
00000270  04 7e 0f f2 73 63 72 65  65 6e 73 69 7a 65 0d 04  |.~..screensize..|
00000280  b0 1f 62 6c 6f 63 6b 31  21 34 3d 30 3a 62 6c 6f  |..block1!4=0:blo|
00000290  63 6b 31 21 38 3d 62 6f  74 74 6f 6d 25 0d 04 e2  |ck1!8=bottom%...|
000002a0  23 62 6c 6f 63 6b 31 21  31 32 3d 72 69 67 68 74  |#block1!12=right|
000002b0  25 3a 62 6c 6f 63 6b 31  21 31 36 3d 74 6f 70 25  |%:block1!16=top%|
000002c0  0d 05 14 29 c8 99 22 57  69 6d 70 5f 53 65 74 45  |...).."Wimp_SetE|
000002d0  78 74 65 6e 74 22 2c 21  62 6c 6f 63 6b 31 2c 28  |xtent",!block1,(|
000002e0  62 6c 6f 63 6b 31 2b 34  29 0d 05 46 05 cd 0d 05  |block1+4)..F....|
000002f0  78 1f c8 99 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |x..."Wimp_OpenWi|
00000300  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 31 0d 05 91  |ndow",,block1...|
00000310  0b f2 75 70 64 61 74 65  0d 05 aa 16 c9 20 33 3a  |..update..... 3:|
00000320  f4 20 43 6c 6f 73 65 20  77 69 6e 64 6f 77 0d 05  |. Close window..|
00000330  dc 20 c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |. .."Wimp_CloseW|
00000340  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 31 0d 06  |indow",,block1..|
00000350  0e 21 c9 20 34 3a f4 20  50 6f 69 6e 74 65 72 20  |.!. 4:. Pointer |
00000360  65 6e 74 65 72 69 6e 67  20 77 69 6e 64 6f 77 0d  |entering window.|
00000370  06 40 20 c9 20 35 3a f4  20 50 6f 69 6e 74 65 72  |.@ . 5:. Pointer|
00000380  20 6c 65 61 76 69 6e 67  20 77 69 6e 64 6f 77 0d  | leaving window.|
00000390  06 72 15 c9 20 36 3a f4  20 4d 6f 75 73 65 20 63  |.r.. 6:. Mouse c|
000003a0  6c 69 63 6b 0d 06 a4 17  f2 6d 6f 75 73 65 63 6c  |lick.....mousecl|
000003b0  69 63 6b 28 62 6c 6f 63  6b 31 29 0d 06 d6 17 c9  |ick(block1).....|
000003c0  20 37 3a f4 20 55 73 65  72 20 64 72 61 67 20 62  | 7:. User drag b|
000003d0  6f 78 0d 07 08 15 c9 20  38 3a f4 20 4b 65 79 20  |ox..... 8:. Key |
000003e0  50 72 65 73 73 65 64 0d  07 3a 18 c9 20 39 3a f4  |Pressed..:.. 9:.|
000003f0  20 4d 65 6e 75 20 73 65  6c 65 63 74 69 6f 6e 0d  | Menu selection.|
00000400  07 6c 0f f2 64 65 63 6f  64 65 6d 65 6e 75 0d 07  |.l..decodemenu..|
00000410  9e 19 c9 20 31 30 3a f4  20 53 63 72 6f 6c 6c 20  |... 10:. Scroll |
00000420  72 65 71 75 65 73 74 0d  07 d0 15 c9 20 31 31 3a  |request..... 11:|
00000430  f4 20 4c 6f 73 65 20 63  61 72 65 74 0d 08 02 15  |. Lose caret....|
00000440  c9 20 31 32 3a f4 20 47  61 69 6e 20 63 61 72 65  |. 12:. Gain care|
00000450  74 0d 08 34 18 c9 20 31  37 2c 31 38 2c 31 39 3a  |t..4.. 17,18,19:|
00000460  f4 20 6d 65 73 73 61 67  65 0d 08 66 14 f2 72 65  |. message..f..re|
00000470  63 65 69 76 65 28 62 6c  6f 63 6b 31 29 0d 08 98  |ceive(block1)...|
00000480  05 cb 0d 08 ca 0a fd 20  71 75 69 74 0d 08 fc 16  |....... quit....|
00000490  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |.."Wimp_CloseDow|
000004a0  6e 22 0d 09 2e 05 e0 0d  09 60 10 dd f2 69 6e 69  |n".......`...ini|
000004b0  74 69 61 6c 69 73 65 0d  09 92 14 6c 65 66 74 68  |tialise....lefth|
000004c0  61 6e 64 73 69 64 65 25  3d 2d 32 0d 09 c4 15 72  |andside%=-2....r|
000004d0  69 67 68 74 68 61 6e 64  73 69 64 65 25 3d 2d 31  |ighthandside%=-1|
000004e0  0d 09 f6 1b de 20 74 61  73 6b 25 20 35 3a 24 74  |..... task% 5:$t|
000004f0  61 73 6b 25 3d 22 54 41  53 4b 22 0d 0a 28 26 de  |ask%="TASK"..(&.|
00000500  20 62 6c 6f 63 6b 31 20  32 35 36 2c 62 6c 6f 63  | block1 256,bloc|
00000510  6b 32 20 32 35 36 2c 62  6c 6f 63 6b 33 20 32 35  |k2 256,block3 25|
00000520  36 0d 0a 5a 0f de 20 61  72 65 61 25 20 32 35 36  |6..Z.. area% 256|
00000530  0d 0a 6e 11 69 6e 64 73  69 7a 65 25 3d 31 30 32  |..n.indsize%=102|
00000540  34 0d 0a 8c 30 de 20 74  65 6d 70 6c 61 74 65 62  |4...0. templateb|
00000550  6c 6f 63 6b 25 20 31 30  32 34 2c 74 65 6d 70 69  |lock% 1024,tempi|
00000560  6e 64 69 72 65 63 74 25  20 69 6e 64 73 69 7a 65  |ndirect% indsize|
00000570  25 0d 0a 96 0f 62 6c 6f  63 6b 31 21 36 30 3d 30  |%....block1!60=0|
00000580  0d 0a be 23 de 20 6d 65  6e 75 62 6c 6f 63 6b 25  |...#. menublock%|
00000590  20 31 30 32 34 2c 6d 65  6e 75 69 6e 64 25 20 31  | 1024,menuind% 1|
000005a0  30 32 34 0d 0a f0 0a 71  75 69 74 3d a3 0d 0b 22  |024....quit=..."|
000005b0  15 70 72 6f 67 72 61 6d  24 3d 22 44 61 6e 63 65  |.program$="Dance|
000005c0  72 22 0d 0b 54 1e 70 75  72 70 6f 73 65 24 3d 22  |r"..T.purpose$="|
000005d0  49 63 6f 6e 20 62 61 72  20 64 61 6e 63 65 72 22  |Icon bar dancer"|
000005e0  0d 0b 86 20 61 75 74 68  6f 72 24 3d 22 a9 20 31  |... author$=". 1|
000005f0  39 39 31 20 4c 65 65 20  4d 63 47 69 6e 74 79 22  |991 Lee McGinty"|
00000600  0d 0b b8 1f 76 65 72 73  69 6f 6e 24 3d 22 31 2e  |....version$="1.|
00000610  30 20 28 31 2d 4d 61 79  2d 31 39 39 31 29 22 0d  |0 (1-May-1991)".|
00000620  0b ea 12 6e 6f 66 72 61  6d 65 73 25 3d 31 30 32  |...noframes%=102|
00000630  34 0d 0c 1c 10 6e 6f 6d  6f 76 65 73 25 3d 32 35  |4....nomoves%=25|
00000640  36 0d 0c 4e 20 de 20 66  72 61 6d 65 70 6f 73 78  |6..N . frameposx|
00000650  25 28 6e 6f 66 72 61 6d  65 73 25 2d 31 2c 31 32  |%(noframes%-1,12|
00000660  29 0d 0c 80 20 de 20 66  72 61 6d 65 70 6f 73 79  |)... . frameposy|
00000670  25 28 6e 6f 66 72 61 6d  65 73 25 2d 31 2c 31 32  |%(noframes%-1,12|
00000680  29 0d 0c b2 19 de 20 6d  6f 76 65 6e 61 6d 65 24  |)..... movename$|
00000690  28 6e 6f 6d 6f 76 65 73  25 29 0d 0c e4 1a de 20  |(nomoves%)..... |
000006a0  6d 6f 76 65 73 74 61 72  74 25 28 6e 6f 6d 6f 76  |movestart%(nomov|
000006b0  65 73 25 29 0d 0d 16 18  de 20 6d 6f 76 65 65 6e  |es%)..... moveen|
000006c0  64 25 28 6e 6f 6d 6f 76  65 73 25 29 0d 0d 48 1a  |d%(nomoves%)..H.|
000006d0  de 20 66 72 61 6d 65 6d  6f 76 65 25 28 6e 6f 6d  |. framemove%(nom|
000006e0  6f 76 65 73 25 29 0d 0d  7a 1b de 20 66 72 61 6d  |oves%)..z.. fram|
000006f0  65 69 6e 62 65 74 25 28  6e 6f 6d 6f 76 65 73 25  |einbet%(nomoves%|
00000700  29 0d 0d 7f 16 de 20 73  70 72 69 74 65 61 72 65  |)..... spriteare|
00000710  61 25 20 33 30 37 32 0d  0d 84 0f f2 73 63 72 65  |a% 3072.....scre|
00000720  65 6e 73 69 7a 65 0d 0d  8e 18 6d 61 6e 63 6f 6c  |ensize....mancol|
00000730  6f 75 72 25 3d 37 3a f4  20 42 6c 61 63 6b 0d 0d  |our%=7:. Black..|
00000740  ac 0e 64 61 6e 63 69 6e  67 25 3d a3 0d 0d b6 15  |..dancing%=.....|
00000750  64 61 6e 63 65 72 78 25  3d 72 69 67 68 74 25 2f  |dancerx%=right%/|
00000760  32 0d 0d c0 16 73 70 72  69 74 65 61 72 65 61 25  |2....spritearea%|
00000770  21 30 3d 33 30 37 32 0d  0d ca 14 73 70 72 69 74  |!0=3072....sprit|
00000780  65 61 72 65 61 25 21 38  3d 31 36 0d 0d d4 25 c8  |earea%!8=16...%.|
00000790  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 39  |."OS_SpriteOp",9|
000007a0  2b 32 35 36 2c 73 70 72  69 74 65 61 72 65 61 25  |+256,spritearea%|
000007b0  0d 0d de 3c c8 99 22 4f  53 5f 53 70 72 69 74 65  |...<.."OS_Sprite|
000007c0  4f 70 22 2c 31 30 2b 32  35 36 2c 73 70 72 69 74  |Op",10+256,sprit|
000007d0  65 61 72 65 61 25 2c 22  3c 44 61 6e 63 65 24 44  |earea%,"<Dance$D|
000007e0  69 72 3e 2e 53 70 72 69  74 65 73 22 0d 0d e3 37  |ir>.Sprites"...7|
000007f0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000800  32 34 2b 32 35 36 2c 73  70 72 69 74 65 61 72 65  |24+256,spriteare|
00000810  61 25 2c 22 6d 61 6e 22  20 b8 20 2c 2c 73 61 64  |a%,"man" . ,,sad|
00000820  64 72 25 0d 0d e4 40 c8  99 22 4f 53 5f 53 70 72  |dr%...@.."OS_Spr|
00000830  69 74 65 4f 70 22 2c 34  30 2b 32 35 36 2c 73 70  |iteOp",40+256,sp|
00000840  72 69 74 65 61 72 65 61  25 2c 22 6d 61 6e 22 20  |ritearea%,"man" |
00000850  b8 20 2c 2c 2c 77 69 64  74 68 25 2c 68 65 69 67  |. ,,,width%,heig|
00000860  68 74 25 0d 0d e5 25 77  69 64 74 68 25 3d 77 69  |ht%...%width%=wi|
00000870  64 74 68 25 2a 32 3a 68  65 69 67 68 74 25 3d 68  |dth%*2:height%=h|
00000880  65 69 67 68 74 25 2a 34  0d 0d e6 0e 73 63 61 6c  |eight%*4....scal|
00000890  65 3d 30 2e 37 35 0d 0d  e8 05 e1 0d 0e 10 13 dd  |e=0.75..........|
000008a0  f2 6c 6f 61 64 74 65 6d  70 6c 61 74 65 73 0d 0e  |.loadtemplates..|
000008b0  42 32 c8 99 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |B2.."Wimp_OpenTe|
000008c0  6d 70 6c 61 74 65 22 2c  2c 22 3c 44 61 6e 63 65  |mplate",,"<Dance|
000008d0  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
000008e0  0d 0e 74 67 c8 99 22 57  69 6d 70 5f 4c 6f 61 64  |..tg.."Wimp_Load|
000008f0  54 65 6d 70 6c 61 74 65  22 2c 2c 74 65 6d 70 6c  |Template",,templ|
00000900  61 74 65 62 6c 6f 63 6b  25 2c 74 65 6d 70 69 6e  |ateblock%,tempin|
00000910  64 69 72 65 63 74 25 2c  74 65 6d 70 69 6e 64 69  |direct%,tempindi|
00000920  72 65 63 74 25 2b 69 6e  64 73 69 7a 65 25 2c 2d  |rect%+indsize%,-|
00000930  31 2c 22 69 6e 66 6f 22  2c 30 20 b8 20 2c 2c 6e  |1,"info",0 . ,,n|
00000940  65 78 74 69 6e 64 25 0d  0e a6 31 c8 99 22 57 69  |extind%...1.."Wi|
00000950  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000960  2c 2c 74 65 6d 70 6c 61  74 65 62 6c 6f 63 6b 25  |,,templateblock%|
00000970  20 b8 20 69 6e 66 6f 25  0d 0e d8 23 24 28 a4 69  | . info%...#$(.i|
00000980  63 6f 6e 61 64 64 72 28  69 6e 66 6f 25 2c 31 35  |conaddr(info%,15|
00000990  29 29 3d 76 65 72 73 69  6f 6e 24 0d 0f 0a 22 24  |))=version$..."$|
000009a0  28 a4 69 63 6f 6e 61 64  64 72 28 69 6e 66 6f 25  |(.iconaddr(info%|
000009b0  2c 32 29 29 3d 70 72 6f  67 72 61 6d 24 0d 0f 3c  |,2))=program$..<|
000009c0  22 24 28 a4 69 63 6f 6e  61 64 64 72 28 69 6e 66  |"$(.iconaddr(inf|
000009d0  6f 25 2c 39 29 29 3d 70  75 72 70 6f 73 65 24 0d  |o%,9))=purpose$.|
000009e0  0f 6e 22 24 28 a4 69 63  6f 6e 61 64 64 72 28 69  |.n"$(.iconaddr(i|
000009f0  6e 66 6f 25 2c 31 32 29  29 3d 61 75 74 68 6f 72  |nfo%,12))=author|
00000a00  24 0d 0f a0 1a c8 99 22  57 69 6d 70 5f 43 6c 6f  |$......"Wimp_Clo|
00000a10  73 65 54 65 6d 70 6c 61  74 65 22 0d 0f d2 0e 62  |seTemplate"....b|
00000a20  6c 6f 63 6b 31 21 34 3d  30 0d 10 04 14 62 6c 6f  |lock1!4=0....blo|
00000a30  63 6b 31 21 38 3d 62 6f  74 74 6f 6d 25 0d 10 36  |ck1!8=bottom%..6|
00000a40  14 62 6c 6f 63 6b 31 21  31 32 3d 72 69 67 68 74  |.block1!12=right|
00000a50  25 0d 10 68 12 62 6c 6f  63 6b 31 21 31 36 3d 74  |%..h.block1!16=t|
00000a60  6f 70 25 0d 10 9a 0f 62  6c 6f 63 6b 31 21 32 30  |op%....block1!20|
00000a70  3d 30 0d 10 cc 22 62 6c  6f 63 6b 31 21 32 34 3d  |=0..."block1!24=|
00000a80  30 3a f4 20 23 23 23 20  3d 20 74 6f 70 25 20 69  |0:. ### = top% i|
00000a90  6e 20 44 44 0d 10 fe 10  62 6c 6f 63 6b 31 21 32  |n DD....block1!2|
00000aa0  38 3d 2d 32 0d 11 30 12  62 6c 6f 63 6b 31 21 33  |8=-2..0.block1!3|
00000ab0  32 3d 26 38 43 30 0d 11  62 16 62 6c 6f 63 6b 31  |2=&8C0..b.block1|
00000ac0  21 33 36 3d 26 34 30 34  30 34 30 37 0d 11 94 0f  |!36=&4040407....|
00000ad0  62 6c 6f 63 6b 31 21 34  30 3d 30 0d 11 c6 0f 62  |block1!40=0....b|
00000ae0  6c 6f 63 6b 31 21 34 34  3d 30 0d 11 f8 15 62 6c  |lock1!44=0....bl|
00000af0  6f 63 6b 31 21 34 38 3d  62 6f 74 74 6f 6d 25 0d  |ock1!48=bottom%.|
00000b00  12 2a 14 62 6c 6f 63 6b  31 21 35 32 3d 72 69 67  |.*.block1!52=rig|
00000b10  68 74 25 0d 12 5c 12 62  6c 6f 63 6b 31 21 35 36  |ht%..\.block1!56|
00000b20  3d 74 6f 70 25 0d 12 61  0f 62 6c 6f 63 6b 31 21  |=top%..a.block1!|
00000b30  36 30 3d 30 0d 12 62 0f  62 6c 6f 63 6b 31 21 36  |60=0..b.block1!6|
00000b40  34 3d 30 0d 12 70 19 62  6c 6f 63 6b 31 21 36 38  |4=0..p.block1!68|
00000b50  3d 73 70 72 69 74 65 61  72 65 61 25 0d 12 8e 13  |=spritearea%....|
00000b60  e3 20 62 79 74 65 25 3d  36 38 20 b8 20 39 31 0d  |. byte%=68 . 91.|
00000b70  12 c0 12 62 6c 6f 63 6b  31 21 62 79 74 65 25 3d  |...block1!byte%=|
00000b80  30 0d 12 f2 05 ed 0d 13  24 34 c8 99 22 57 69 6d  |0.......$4.."Wim|
00000b90  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000ba0  2c 28 62 6c 6f 63 6b 31  2b 34 29 20 b8 20 6e 65  |,(block1+4) . ne|
00000bb0  77 62 61 63 6b 64 72 6f  70 25 0d 13 56 19 62 6c  |wbackdrop%..V.bl|
00000bc0  6f 63 6b 31 21 30 3d 6e  65 77 62 61 63 6b 64 72  |ock1!0=newbackdr|
00000bd0  6f 70 25 0d 13 88 1f c8  99 22 57 69 6d 70 5f 4f  |op%......"Wimp_O|
00000be0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |penWindow",,bloc|
00000bf0  6b 31 0d 13 ba 05 e1 0d  13 ec 1b dd a4 69 63 6f  |k1...........ico|
00000c00  6e 61 64 64 72 28 68 61  6e 64 6c 65 2c 69 63 6f  |naddr(handle,ico|
00000c10  6e 29 0d 14 1e 20 21 62  6c 6f 63 6b 31 3d 68 61  |n)... !block1=ha|
00000c20  6e 64 6c 65 3a 62 6c 6f  63 6b 31 21 34 3d 69 63  |ndle:block1!4=ic|
00000c30  6f 6e 0d 14 50 21 c8 99  22 57 69 6d 70 5f 47 65  |on..P!.."Wimp_Ge|
00000c40  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6f  |tIconState",,blo|
00000c50  63 6b 31 0d 14 82 0e 3d  62 6c 6f 63 6b 31 21 32  |ck1....=block1!2|
00000c60  38 0d 14 b4 1e dd f2 65  72 72 6f 72 28 65 72 72  |8......error(err|
00000c70  6f 72 24 2c 65 72 72 2c  66 6c 61 67 73 25 29 0d  |or$,err,flags%).|
00000c80  14 e6 38 21 62 6c 6f 63  6b 32 3d 65 72 72 3a 24  |..8!block2=err:$|
00000c90  28 62 6c 6f 63 6b 32 2b  34 29 3d 65 72 72 6f 72  |(block2+4)=error|
00000ca0  24 3a 3f 28 62 6c 6f 63  6b 32 2b 34 2b a9 65 72  |$:?(block2+4+.er|
00000cb0  72 6f 72 24 29 3d 30 0d  15 18 3b c8 99 22 57 69  |ror$)=0...;.."Wi|
00000cc0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000cd0  62 6c 6f 63 6b 32 2c 66  6c 61 67 73 25 2c 70 72  |block2,flags%,pr|
00000ce0  6f 67 72 61 6d 24 20 b8  20 2c 62 75 74 74 6f 6e  |ogram$ . ,button|
00000cf0  73 25 0d 15 4a 14 e7 20  62 75 74 74 6f 6e 73 25  |s%..J.. buttons%|
00000d00  3d 31 20 8c 20 e1 0d 15  54 16 c8 99 22 57 69 6d  |=1 . ...T..."Wim|
00000d10  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 15 5e 05  |p_CloseDown"..^.|
00000d20  e0 0d 15 7c 14 dd f2 72  65 63 65 69 76 65 28 62  |...|...receive(b|
00000d30  6c 6f 63 6b 29 0d 15 ae  0e ea 20 6d 65 73 73 61  |lock)..... messa|
00000d40  67 65 25 0d 15 e0 15 6d  65 73 73 61 67 65 25 3d  |ge%....message%=|
00000d50  62 6c 6f 63 6b 21 31 36  0d 16 12 11 c8 8e 20 6d  |block!16...... m|
00000d60  65 73 73 61 67 65 25 20  ca 0d 16 44 0e c9 20 30  |essage% ...D.. 0|
00000d70  3a 71 75 69 74 3d b9 0d  16 76 08 c9 20 31 3a 0d  |:quit=...v.. 1:.|
00000d80  16 a8 15 e7 20 62 6c 6f  63 6b 21 34 30 3d 26 32  |.... block!40=&2|
00000d90  35 38 20 8c 0d 16 da 1e  24 28 62 6c 6f 63 6b 2b  |58 .....$(block+|
00000da0  34 34 29 3d 22 3c 57 69  6d 70 24 53 63 72 61 70  |44)="<Wimp$Scrap|
00000db0  3e 22 0d 17 0c 0e 62 6c  6f 63 6b 3f 35 36 3d 30  |>"....block?56=0|
00000dc0  0d 17 3e 14 62 6c 6f 63  6b 21 31 32 3d 62 6c 6f  |..>.block!12=blo|
00000dd0  63 6b 21 38 0d 17 70 0e  62 6c 6f 63 6b 21 31 36  |ck!8..p.block!16|
00000de0  3d 32 0d 17 a2 0f 62 6c  6f 63 6b 21 33 36 3d 2d  |=2....block!36=-|
00000df0  31 0d 17 d4 0e 62 6c 6f  63 6b 21 30 3d 36 30 0d  |1....block!0=60.|
00000e00  18 06 29 c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |..).."Wimp_SendM|
00000e10  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6f 63 6b  |essage",17,block|
00000e20  2c 62 6c 6f 63 6b 21 34  0d 18 38 05 cd 0d 18 6a  |,block!4..8....j|
00000e30  26 c9 20 33 2c 35 3a f4  20 74 68 65 72 65 20 69  |&. 3,5:. there i|
00000e40  73 20 73 6f 6d 65 20 64  61 74 61 20 74 6f 20 6c  |s some data to l|
00000e50  6f 61 64 0d 18 9c 15 e7  20 62 6c 6f 63 6b 21 34  |oad..... block!4|
00000e60  30 3d 26 32 35 38 20 8c  0d 18 ce 1b 66 69 6c 65  |0=&258 .....file|
00000e70  24 3d a4 73 74 72 69 6e  67 28 62 6c 6f 63 6b 2b  |$=.string(block+|
00000e80  34 34 29 0d 19 00 14 f2  6c 6f 61 64 66 69 6c 65  |44).....loadfile|
00000e90  28 66 69 6c 65 24 29 0d  19 32 28 e7 20 62 6c 6f  |(file$)..2(. blo|
00000ea0  63 6b 21 31 32 3c 3e 30  20 8c 20 2a 44 45 4c 45  |ck!12<>0 . *DELE|
00000eb0  54 45 20 3c 57 69 6d 70  24 53 63 72 61 70 3e 0d  |TE <Wimp$Scrap>.|
00000ec0  19 64 14 62 6c 6f 63 6b  21 31 32 3d 62 6c 6f 63  |.d.block!12=bloc|
00000ed0  6b 21 38 0d 19 96 0e 62  6c 6f 63 6b 21 31 36 3d  |k!8....block!16=|
00000ee0  34 0d 19 c8 29 c8 99 22  57 69 6d 70 5f 53 65 6e  |4...).."Wimp_Sen|
00000ef0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 62 6c 6f  |dMessage",17,blo|
00000f00  63 6b 2c 62 6c 6f 63 6b  21 34 0d 19 fa 05 cd 0d  |ck,block!4......|
00000f10  1a 2c 05 cb 0d 1a 5e 05  e1 0d 1a 90 1d dd a4 63  |.,....^........c|
00000f20  72 65 61 74 65 6d 65 6e  75 28 6d 62 25 2c 69 6e  |reatemenu(mb%,in|
00000f30  64 25 2c 74 24 29 0d 1a  c2 1b e7 20 c2 74 24 2c  |d%,t$)..... .t$,|
00000f40  31 29 3c 3e 22 7c 22 20  8c 20 74 24 2b 3d 22 7c  |1)<>"|" . t$+="||
00000f50  22 0d 1a f4 37 ea 20 6e  65 77 24 2c 70 74 72 25  |"...7. new$,ptr%|
00000f60  2c 73 68 61 64 65 25 2c  74 69 63 6b 25 2c 64 6f  |,shade%,tick%,do|
00000f70  74 74 65 64 25 2c 73 75  62 6d 65 6e 75 25 2c 77  |tted%,submenu%,w|
00000f80  72 69 74 61 62 6c 65 25  0d 1b 26 20 ea 20 69 6e  |ritable%..& . in|
00000f90  64 69 72 65 63 74 65 64  25 2c 67 25 2c 6e 75 6d  |directed%,g%,num|
00000fa0  6f 66 69 74 65 6d 73 25  0d 1b 58 21 6e 75 6d 6f  |ofitems%..X!numo|
00000fb0  66 69 74 65 6d 73 25 3d  bb c0 74 24 2c 32 29 3a  |fitems%=..t$,2):|
00000fc0  74 24 3d c1 74 24 2c 33  29 0d 1b 8a 23 6e 65 78  |t$=.t$,3)...#nex|
00000fd0  74 6d 65 6e 75 25 3d 6d  62 25 2b 32 38 2b 32 34  |tmenu%=mb%+28+24|
00000fe0  2a 6e 75 6d 6f 66 69 74  65 6d 73 25 0d 1b bc 2b  |*numofitems%...+|
00000ff0  24 6d 62 25 3d c0 74 24  2c a7 74 24 2c 22 7c 22  |$mb%=.t$,.t$,"|"|
00001000  29 2d 31 29 3a 74 24 3d  c1 74 24 2c a7 74 24 2c  |)-1):t$=.t$,.t$,|
00001010  22 7c 22 29 2b 31 29 0d  1b ee 0c 6d 62 25 3f 31  |"|")+1)....mb%?1|
00001020  32 3d 37 0d 1c 20 0c 6d  62 25 3f 31 33 3d 32 0d  |2=7.. .mb%?13=2.|
00001030  1c 52 0c 6d 62 25 3f 31  34 3d 37 0d 1c 84 0c 6d  |.R.mb%?14=7....m|
00001040  62 25 3f 31 35 3d 30 0d  1c b6 17 6d 62 25 21 31  |b%?15=0....mb%!1|
00001050  36 3d 28 a9 24 6d 62 25  2a 31 36 29 2b 38 0d 1c  |6=(.$mb%*16)+8..|
00001060  e8 0d 6d 62 25 21 32 30  3d 34 34 0d 1d 1a 0c 6d  |..mb%!20=44....m|
00001070  62 25 21 32 34 3d 30 0d  1d 4c 0f 70 74 72 25 3d  |b%!24=0..L.ptr%=|
00001080  6d 62 25 2b 32 38 0d 1d  7e 38 f5 3a 73 68 61 64  |mb%+28..~8.:shad|
00001090  65 25 3d 30 3a 74 69 63  6b 25 3d 30 3a 64 6f 74  |e%=0:tick%=0:dot|
000010a0  74 65 64 25 3d 30 3a 77  72 69 74 61 62 6c 65 25  |ted%=0:writable%|
000010b0  3d 30 3a 73 75 62 6d 65  6e 75 25 3d 2d 31 0d 1d  |=0:submenu%=-1..|
000010c0  b0 2a e7 20 c0 74 24 2c  31 29 3d 22 7b 22 20 8c  |.*. .t$,1)="{" .|
000010d0  20 74 24 3d a0 28 c1 74  24 2c 32 2c a7 74 24 2c  | t$=.(.t$,2,.t$,|
000010e0  22 7d 22 29 2d 32 29 29  0d 1d e2 21 e7 c0 74 24  |"}")-2))...!..t$|
000010f0  2c 31 29 3d 22 23 22 20  74 69 63 6b 25 3d 31 3a  |,1)="#" tick%=1:|
00001100  74 24 3d c1 74 24 2c 32  29 0d 1e 14 11 e7 c0 74  |t$=.t$,2)......t|
00001110  24 2c 31 29 3d 22 5b 22  20 8c 0d 1e 46 22 74 24  |$,1)="[" ...F"t$|
00001120  3d c1 74 24 2c 32 29 3a  6e 65 77 24 3d c0 74 24  |=.t$,2):new$=.t$|
00001130  2c a7 74 24 2c 22 5d 22  29 2d 31 29 0d 1e 78 58  |,.t$,"]")-1)..xX|
00001140  e7 20 a7 6e 65 77 24 2c  22 25 22 29 20 8c 20 73  |. .new$,"%") . s|
00001150  75 62 6d 65 6e 75 25 3d  a0 6e 65 77 24 20 8b 20  |ubmenu%=.new$ . |
00001160  6e 65 77 24 3d a0 6e 65  77 24 3a 73 75 62 6d 65  |new$=.new$:subme|
00001170  6e 75 25 3d a4 63 72 65  61 74 65 6d 65 6e 75 28  |nu%=.createmenu(|
00001180  6e 65 78 74 6d 65 6e 75  25 2c 69 6e 64 25 2c 6e  |nextmenu%,ind%,n|
00001190  65 77 24 29 0d 1e aa 16  74 24 3d c1 74 24 2c a7  |ew$)....t$=.t$,.|
000011a0  74 24 2c 22 5d 22 29 2b  31 29 0d 1e dc 05 cd 0d  |t$,"]")+1)......|
000011b0  1f 0e 19 e7 c0 74 24 2c  31 29 3d 22 2e 22 20 74  |.....t$,1)="." t|
000011c0  24 3d c1 74 24 2c 32 29  0d 1f 40 28 e7 c0 74 24  |$=.t$,2)..@(..t$|
000011d0  2c 31 29 3d 22 2a 22 20  73 68 61 64 65 25 3d 26  |,1)="*" shade%=&|
000011e0  34 30 30 30 30 30 3a 74  24 3d c1 74 24 2c 32 29  |400000:t$=.t$,2)|
000011f0  0d 1f 72 23 e7 c0 74 24  2c 31 29 3d 22 3a 22 20  |..r#..t$,1)=":" |
00001200  64 6f 74 74 65 64 25 3d  32 3a 74 24 3d c1 74 24  |dotted%=2:t$=.t$|
00001210  2c 32 29 0d 1f a4 25 e7  c0 74 24 2c 31 29 3d 22  |,2)...%..t$,1)="|
00001220  5e 22 20 77 72 69 74 61  62 6c 65 25 3d 34 3a 74  |^" writable%=4:t|
00001230  24 3d c1 74 24 2c 32 29  0d 1f d6 0f 67 25 3d a7  |$=.t$,2)....g%=.|
00001240  74 24 2c 22 7c 22 29 0d  20 08 11 e7 20 77 72 69  |t$,"|"). ... wri|
00001250  74 61 62 6c 65 25 20 8c  0d 20 3a 2f 69 25 3d a7  |table% .. :/i%=.|
00001260  74 24 2c 22 2c 22 29 3a  70 74 72 25 21 31 32 3d  |t$,","):ptr%!12=|
00001270  a0 c0 74 24 2c 69 25 2d  31 29 3a 74 24 3d c1 74  |..t$,i%-1):t$=.t|
00001280  24 2c 69 25 2b 31 29 0d  20 6c 0e 70 74 72 25 21  |$,i%+1). l.ptr%!|
00001290  31 36 3d 2d 31 0d 20 9e  1c 70 74 72 25 21 32 30  |16=-1. ..ptr%!20|
000012a0  3d a0 c0 74 24 2c a7 74  24 2c 22 7c 22 29 2d 31  |=..t$,.t$,"|")-1|
000012b0  29 0d 20 d0 28 6d 62 25  21 31 36 3d a4 67 72 65  |). .(mb%!16=.gre|
000012c0  61 74 65 72 28 6d 62 25  21 31 36 2c 34 2b 31 36  |ater(mb%!16,4+16|
000012d0  2a 70 74 72 25 21 32 30  29 0d 21 02 05 cc 0d 21  |*ptr%!20).!....!|
000012e0  34 0f e7 20 67 25 2d 31  3e 31 32 20 8c 0d 21 66  |4.. g%-1>12 ..!f|
000012f0  13 21 28 70 74 72 25 2b  31 32 29 3d 69 6e 64 25  |.!(ptr%+12)=ind%|
00001300  0d 21 98 1c 24 69 6e 64  25 3d c0 74 24 2c 67 25  |.!..$ind%=.t$,g%|
00001310  2d 31 29 3a 69 6e 64 25  2b 3d 67 25 0d 21 ca 10  |-1):ind%+=g%.!..|
00001320  21 28 70 74 72 25 2b 31  36 29 3d 30 0d 21 fc 11  |!(ptr%+16)=0.!..|
00001330  21 28 70 74 72 25 2b 32  30 29 3d 67 25 0d 22 2e  |!(ptr%+20)=g%.".|
00001340  11 69 6e 64 69 72 65 63  74 65 64 25 3d 31 0d 22  |.indirected%=1."|
00001350  60 05 cc 0d 22 92 11 69  6e 64 69 72 65 63 74 65  |`..."..indirecte|
00001360  64 25 3d a3 0d 22 c4 18  24 28 70 74 72 25 2b 31  |d%=.."..$(ptr%+1|
00001370  32 29 3d c0 74 24 2c 67  25 2d 31 29 0d 22 f6 05  |2)=.t$,g%-1)."..|
00001380  cd 0d 23 28 23 6d 62 25  21 31 36 3d a4 67 72 65  |..#(#mb%!16=.gre|
00001390  61 74 65 72 28 6d 62 25  21 31 36 2c 67 25 2a 31  |ater(mb%!16,g%*1|
000013a0  36 2d 38 29 0d 23 5a 05  cd 0d 23 8c 10 74 24 3d  |6-8).#Z...#..t$=|
000013b0  c1 74 24 2c 67 25 2b 31  29 0d 23 be 37 21 70 74  |.t$,g%+1).#.7!pt|
000013c0  72 25 3d 74 69 63 6b 25  20 84 20 64 6f 74 74 65  |r%=tick% . dotte|
000013d0  64 25 20 84 20 77 72 69  74 61 62 6c 65 25 20 84  |d% . writable% .|
000013e0  20 28 26 38 30 20 80 20  28 74 24 3d 22 22 29 29  | (&80 . (t$=""))|
000013f0  0d 23 f0 13 70 74 72 25  21 34 3d 73 75 62 6d 65  |.#..ptr%!4=subme|
00001400  6e 75 25 0d 24 22 4a 70  74 72 25 21 38 3d 26 31  |nu%.$"Jptr%!8=&1|
00001410  30 30 32 31 20 84 20 73  68 61 64 65 25 20 84 20  |0021 . shade% . |
00001420  77 72 69 74 61 62 6c 65  25 3c 3c 36 20 84 20 30  |writable%<<6 . 0|
00001430  3c 3c 32 38 20 84 20 37  3c 3c 32 34 20 84 20 69  |<<28 . 7<<24 . i|
00001440  6e 64 69 72 65 63 74 65  64 25 3c 3c 38 0d 24 54  |ndirected%<<8.$T|
00001450  0c 70 74 72 25 2b 3d 32  34 0d 24 86 0a fd 74 24  |.ptr%+=24.$...t$|
00001460  3d 22 22 0d 24 b8 08 3d  6d 62 25 0d 24 ea 27 dd  |="".$..=mb%.$.'.|
00001470  20 a4 67 72 65 61 74 65  72 28 61 25 2c 62 25 29  | .greater(a%,b%)|
00001480  3a e7 20 61 25 3e 62 25  20 3d 61 25 20 8b 20 3d  |:. a%>b% =a% . =|
00001490  62 25 0d 25 1c 17 dd f2  6d 6f 75 73 65 63 6c 69  |b%.%....mousecli|
000014a0  63 6b 28 62 6c 6f 63 6b  29 0d 25 4e 1c ea 20 62  |ck(block).%N.. b|
000014b0  75 74 74 6f 6e 73 25 2c  77 69 6e 64 6f 77 25 2c  |uttons%,window%,|
000014c0  69 63 6f 6e 25 0d 25 80  14 62 75 74 74 6f 6e 73  |icon%.%..buttons|
000014d0  25 3d 62 6c 6f 63 6b 21  38 0d 25 b2 14 77 69 6e  |%=block!8.%..win|
000014e0  64 6f 77 25 3d 62 6c 6f  63 6b 21 31 32 0d 25 e4  |dow%=block!12.%.|
000014f0  12 69 63 6f 6e 25 3d 62  6c 6f 63 6b 21 31 36 0d  |.icon%=block!16.|
00001500  26 16 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |&.... window% ..|
00001510  26 48 13 c9 20 6e 65 77  62 61 63 6b 64 72 6f 70  |&H.. newbackdrop|
00001520  25 3a 0d 26 7a 19 78 25  3d 62 6c 6f 63 6b 21 30  |%:.&z.x%=block!0|
00001530  3a 79 25 3d 62 6c 6f 63  6b 21 34 0d 26 84 12 e7  |:y%=block!4.&...|
00001540  20 62 75 74 74 6f 6e 73  25 3d 32 20 8c 0d 26 ac  | buttons%=2 ..&.|
00001550  2c c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |,.."Wimp_CreateM|
00001560  65 6e 75 22 2c 2c 6d 65  6e 75 62 6c 6f 63 6b 25  |enu",,menublock%|
00001570  2c 78 25 2d 36 34 2c 79  25 0d 26 c0 05 cd 0d 26  |,x%-64,y%.&....&|
00001580  de 05 cb 0d 27 10 05 e1  0d 27 42 10 dd f2 64 65  |....'....'B...de|
00001590  63 6f 64 65 6d 65 6e 75  0d 27 74 0e ea 20 62 75  |codemenu.'t.. bu|
000015a0  74 74 6f 6e 73 25 0d 27  a6 23 c8 99 22 57 69 6d  |ttons%.'.#.."Wim|
000015b0  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
000015c0  22 2c 2c 62 6c 6f 63 6b  32 0d 27 d8 15 62 75 74  |",,block2.'..but|
000015d0  74 6f 6e 73 25 3d 62 6c  6f 63 6b 32 21 38 0d 28  |tons%=block2!8.(|
000015e0  0a 31 c8 99 22 57 69 6d  70 5f 44 65 63 6f 64 65  |.1.."Wimp_Decode|
000015f0  4d 65 6e 75 22 2c 2c 6d  65 6e 75 62 6c 6f 63 6b  |Menu",,menublock|
00001600  25 2c 62 6c 6f 63 6b 31  2c 62 6c 6f 63 6b 32 0d  |%,block1,block2.|
00001610  28 3c 10 c8 8e 20 24 62  6c 6f 63 6b 32 20 ca 0d  |(<... $block2 ..|
00001620  28 6e 0d c9 20 22 51 75  69 74 22 3a 0d 28 a0 0a  |(n.. "Quit":.(..|
00001630  71 75 69 74 3d b9 0d 28  d2 05 cb 0d 29 04 36 e7  |quit=..(....).6.|
00001640  20 62 75 74 74 6f 6e 73  25 3d 31 20 8c 20 c8 99  | buttons%=1 . ..|
00001650  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00001660  22 2c 2c 6d 65 6e 75 62  6c 6f 63 6b 25 2c 30 2c  |",,menublock%,0,|
00001670  30 0d 29 36 05 e1 0d 29  68 11 dd 20 f2 73 63 72  |0.)6...)h.. .scr|
00001680  65 65 6e 73 69 7a 65 0d  29 9a 18 21 62 6c 6f 63  |eensize.)..!bloc|
00001690  6b 32 3d 34 3a 62 6c 6f  63 6b 32 21 34 3d 35 0d  |k2=4:block2!4=5.|
000016a0  29 cc 1c 62 6c 6f 63 6b  32 21 38 3d 31 31 3a 62  |)..block2!8=11:b|
000016b0  6c 6f 63 6b 32 21 31 32  3d 31 32 0d 29 fe 10 62  |lock2!12=12.)..b|
000016c0  6c 6f 63 6b 32 21 31 36  3d 2d 31 0d 2a 30 2a c8  |lock2!16=-1.*0*.|
000016d0  99 20 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |. "OS_ReadVduVar|
000016e0  69 61 62 6c 65 73 22 2c  62 6c 6f 63 6b 32 2c 62  |iables",block2,b|
000016f0  6c 6f 63 6b 32 0d 2a 62  1c 78 73 25 3d 21 62 6c  |lock2.*b.xs%=!bl|
00001700  6f 63 6b 32 3a 79 73 25  3d 62 6c 6f 63 6b 32 21  |ock2:ys%=block2!|
00001710  34 0d 2a 94 34 72 69 67  68 74 25 3d 28 62 6c 6f  |4.*.4right%=(blo|
00001720  63 6b 32 21 38 2b 31 29  3c 3c 78 73 25 3a 74 6f  |ck2!8+1)<<xs%:to|
00001730  70 25 3d 28 62 6c 6f 63  6b 32 21 31 32 2b 31 29  |p%=(block2!12+1)|
00001740  3c 3c 79 73 25 0d 2a c6  0f 62 6f 74 74 6f 6d 25  |<<ys%.*..bottom%|
00001750  3d 31 33 36 0d 2a f8 05  e1 0d 2b 2a 12 dd a4 73  |=136.*....+*...s|
00001760  74 72 69 6e 67 28 6d 65  6d 25 29 0d 2b 5c 07 ea  |tring(mem%).+\..|
00001770  53 24 0d 2b 8e 0c 53 24  3d 22 22 3a f5 3a 0d 2b  |S$.+..S$="":.:.+|
00001780  c0 10 53 24 2b 3d bd 28  3f 6d 65 6d 25 29 0d 2b  |..S$+=.(?mem%).+|
00001790  f2 0b 6d 65 6d 25 2b 3d  31 0d 2c 24 0c fd 3f 6d  |..mem%+=1.,$..?m|
000017a0  65 6d 25 3d 30 0d 2c 56  07 3d 53 24 0d 2c 88 19  |em%=0.,V.=S$.,..|
000017b0  dd f2 6c 6f 61 64 66 69  6c 65 28 66 69 6c 65 6e  |..loadfile(filen|
000017c0  61 6d 65 24 29 0d 2c ba  07 ea 20 85 0d 2c ec 38  |ame$).,... ..,.8|
000017d0  ee 20 85 20 ea 20 f2 65  72 72 6f 72 28 22 43 61  |. . . .error("Ca|
000017e0  6e 6e 6f 74 20 4c 6f 61  64 20 46 69 6c 65 3a 20  |nnot Load File: |
000017f0  22 2b f6 24 2c 30 2c 31  29 3a d9 23 43 25 3a f7  |"+.$,0,1):.#C%:.|
00001800  20 85 3a e1 0d 2d 1e 10  6c 61 73 74 66 72 61 6d  | .:..-..lastfram|
00001810  65 25 3d 30 0d 2d 50 11  43 25 3d 8e 66 69 6c 65  |e%=0.-P.C%=.file|
00001820  6e 61 6d 65 24 0d 2d 82  11 76 65 72 73 69 6f 6e  |name$.-..version|
00001830  25 3d 9a 23 43 25 0d 2d  b4 2d e7 20 76 65 72 73  |%=.#C%.-.-. vers|
00001840  69 6f 6e 25 3c 31 30 30  20 8c 20 85 20 30 2c 22  |ion%<100 . . 0,"|
00001850  44 61 6e 63 65 20 66 69  6c 65 20 74 6f 6f 20 6f  |Dance file too o|
00001860  6c 64 22 0d 2d e6 1c 6e  6f 6d 6f 76 65 73 69 6e  |ld".-..nomovesin|
00001870  64 61 6e 63 65 25 3d 28  9a 23 43 25 29 2d 31 0d  |dance%=(.#C%)-1.|
00001880  2e 18 1f e3 20 6d 6f 76  65 25 3d 31 20 b8 20 6e  |.... move%=1 . n|
00001890  6f 6d 6f 76 65 73 69 6e  64 61 6e 63 65 25 0d 2e  |omovesindance%..|
000018a0  4a 0c 6e 61 6d 65 24 3d  22 22 0d 2e 7c 12 e3 20  |J.name$=""..|.. |
000018b0  62 79 74 65 25 3d 30 20  b8 20 31 32 0d 2e ae 12  |byte%=0 . 12....|
000018c0  6e 61 6d 65 24 2b 3d bd  28 9a 23 43 25 29 0d 2e  |name$+=.(.#C%)..|
000018d0  e0 05 ed 0d 2f 12 1a 6d  6f 76 65 6e 61 6d 65 24  |..../..movename$|
000018e0  28 6d 6f 76 65 25 29 3d  6e 61 6d 65 24 0d 2f 44  |(move%)=name$./D|
000018f0  19 6e 6f 66 72 61 6d 65  73 69 6e 64 61 6e 63 65  |.noframesindance|
00001900  25 3d 9a 23 43 25 0d 2f  76 3b e3 20 6e 65 78 74  |%=.#C%./v;. next|
00001910  66 72 61 6d 65 25 3d 6c  61 73 74 66 72 61 6d 65  |frame%=lastframe|
00001920  25 20 b8 20 6c 61 73 74  66 72 61 6d 65 25 2b 6e  |% . lastframe%+n|
00001930  6f 66 72 61 6d 65 73 69  6e 64 61 6e 63 65 25 2d  |oframesindance%-|
00001940  31 0d 2f a8 14 f4 20 52  65 61 64 20 69 6e 20 70  |1./... Read in p|
00001950  6f 69 6e 74 73 0d 2f da  11 e3 20 70 6f 73 25 3d  |oints./... pos%=|
00001960  31 20 b8 20 31 32 0d 30  0c 2c 66 72 61 6d 65 70  |1 . 12.0.,framep|
00001970  6f 73 78 25 28 6e 65 78  74 66 72 61 6d 65 25 2c  |osx%(nextframe%,|
00001980  70 6f 73 25 29 3d 28 9a  23 43 25 29 2a 73 63 61  |pos%)=(.#C%)*sca|
00001990  6c 65 0d 30 3e 2c 66 72  61 6d 65 70 6f 73 79 25  |le.0>,frameposy%|
000019a0  28 6e 65 78 74 66 72 61  6d 65 25 2c 70 6f 73 25  |(nextframe%,pos%|
000019b0  29 3d 28 9a 23 43 25 29  2a 73 63 61 6c 65 0d 30  |)=(.#C%)*scale.0|
000019c0  70 05 ed 0d 30 84 20 66  72 61 6d 65 69 6e 62 65  |p...0. frameinbe|
000019d0  74 25 28 6e 65 78 74 66  72 61 6d 65 25 29 3d 9a  |t%(nextframe%)=.|
000019e0  23 43 25 0d 30 a2 1f 66  72 61 6d 65 6d 6f 76 65  |#C%.0..framemove|
000019f0  25 28 6e 65 78 74 66 72  61 6d 65 25 29 3d 9a 23  |%(nextframe%)=.#|
00001a00  43 25 0d 30 ac 57 e7 20  66 72 61 6d 65 6d 6f 76  |C%.0.W. framemov|
00001a10  65 25 28 6e 65 78 74 66  72 61 6d 65 25 29 3e 31  |e%(nextframe%)>1|
00001a20  32 38 20 8c 20 66 72 61  6d 65 6d 6f 76 65 25 28  |28 . framemove%(|
00001a30  6e 65 78 74 66 72 61 6d  65 25 29 3d 2d 28 32 35  |nextframe%)=-(25|
00001a40  36 2d 66 72 61 6d 65 6d  6f 76 65 25 28 6e 65 78  |6-framemove%(nex|
00001a50  74 66 72 61 6d 65 25 29  29 0d 30 de 3b e7 20 66  |tframe%)).0.;. f|
00001a60  72 61 6d 65 69 6e 62 65  74 25 28 6e 65 78 74 66  |rameinbet%(nextf|
00001a70  72 61 6d 65 25 29 3d 30  20 8c 20 66 72 61 6d 65  |rame%)=0 . frame|
00001a80  69 6e 62 65 74 25 28 6e  65 78 74 66 72 61 6d 65  |inbet%(nextframe|
00001a90  25 29 3d 35 0d 31 06 05  ed 0d 31 38 20 6d 6f 76  |%)=5.1....18 mov|
00001aa0  65 73 74 61 72 74 25 28  6d 6f 76 65 25 29 3d 6c  |estart%(move%)=l|
00001ab0  61 73 74 66 72 61 6d 65  25 0d 31 6a 31 6d 6f 76  |astframe%.1j1mov|
00001ac0  65 65 6e 64 25 28 6d 6f  76 65 25 29 3d 6c 61 73  |eend%(move%)=las|
00001ad0  74 66 72 61 6d 65 25 2b  6e 6f 66 72 61 6d 65 73  |tframe%+noframes|
00001ae0  69 6e 64 61 6e 63 65 25  2d 31 0d 31 6f 20 6c 61  |indance%-1.1o la|
00001af0  73 74 66 72 61 6d 65 25  2b 3d 6e 6f 66 72 61 6d  |stframe%+=nofram|
00001b00  65 73 69 6e 64 61 6e 63  65 25 0d 31 9c 05 ed 0d  |esindance%.1....|
00001b10  31 a6 08 d9 23 43 25 0d  31 ce 07 f7 20 85 0d 32  |1...#C%.1... ..2|
00001b20  00 0f f2 73 65 74 75 70  64 61 6e 63 65 0d 32 32  |...setupdance.22|
00001b30  05 e1 0d 32 64 31 dd f2  64 72 61 77 6d 61 6e 28  |...2d1..drawman(|
00001b40  78 25 2c 79 25 2c 66 72  6f 6d 66 72 61 6d 65 25  |x%,y%,fromframe%|
00001b50  2c 74 6f 66 72 61 6d 65  25 2c 66 72 61 63 74 69  |,toframe%,fracti|
00001b60  6f 6e 29 0d 32 c8 0e f2  6c 69 6e 65 28 33 2c 32  |on).2...line(3,2|
00001b70  29 0d 32 fa 0e f2 6c 69  6e 65 28 32 2c 31 29 0d  |).2...line(2,1).|
00001b80  33 2c 0e f2 6c 69 6e 65  28 31 2c 34 29 0d 33 5e  |3,..line(1,4).3^|
00001b90  0e f2 6c 69 6e 65 28 34  2c 35 29 0d 33 90 0e f2  |..line(4,5).3...|
00001ba0  6c 69 6e 65 28 31 2c 36  29 0d 33 c2 0e f2 6c 69  |line(1,6).3...li|
00001bb0  6e 65 28 36 2c 37 29 0d  33 f4 0e f2 6c 69 6e 65  |ne(6,7).3...line|
00001bc0  28 37 2c 38 29 0d 34 26  0e f2 6c 69 6e 65 28 38  |(7,8).4&..line(8|
00001bd0  2c 39 29 0d 34 58 0f f2  6c 69 6e 65 28 36 2c 31  |,9).4X..line(6,1|
00001be0  30 29 0d 34 8a 10 f2 6c  69 6e 65 28 31 30 2c 31  |0).4...line(10,1|
00001bf0  31 29 0d 34 bc 10 f2 6c  69 6e 65 28 31 31 2c 31  |1).4...line(11,1|
00001c00  32 29 0d 34 ee 20 f4 20  43 61 6c 63 20 70 6f 73  |2).4. . Calc pos|
00001c10  20 6f 66 20 63 65 6e 74  72 65 20 6f 66 20 68 65  | of centre of he|
00001c20  61 64 0d 35 20 5b 78 31  25 3d 28 66 72 61 6d 65  |ad.5 [x1%=(frame|
00001c30  70 6f 73 78 25 28 74 6f  66 72 61 6d 65 25 2c 31  |posx%(toframe%,1|
00001c40  29 2d 66 72 61 6d 65 70  6f 73 78 25 28 66 72 6f  |)-frameposx%(fro|
00001c50  6d 66 72 61 6d 65 25 2c  31 29 29 2a 66 72 61 63  |mframe%,1))*frac|
00001c60  74 69 6f 6e 2b 66 72 61  6d 65 70 6f 73 78 25 28  |tion+frameposx%(|
00001c70  66 72 6f 6d 66 72 61 6d  65 25 2c 31 29 0d 35 52  |fromframe%,1).5R|
00001c80  5b 79 31 25 3d 28 66 72  61 6d 65 70 6f 73 79 25  |[y1%=(frameposy%|
00001c90  28 74 6f 66 72 61 6d 65  25 2c 31 29 2d 66 72 61  |(toframe%,1)-fra|
00001ca0  6d 65 70 6f 73 79 25 28  66 72 6f 6d 66 72 61 6d  |meposy%(fromfram|
00001cb0  65 25 2c 31 29 29 2a 66  72 61 63 74 69 6f 6e 2b  |e%,1))*fraction+|
00001cc0  66 72 61 6d 65 70 6f 73  79 25 28 66 72 6f 6d 66  |frameposy%(fromf|
00001cd0  72 61 6d 65 25 2c 31 29  0d 35 84 5b 78 32 25 3d  |rame%,1).5.[x2%=|
00001ce0  28 66 72 61 6d 65 70 6f  73 78 25 28 74 6f 66 72  |(frameposx%(tofr|
00001cf0  61 6d 65 25 2c 36 29 2d  66 72 61 6d 65 70 6f 73  |ame%,6)-framepos|
00001d00  78 25 28 66 72 6f 6d 66  72 61 6d 65 25 2c 36 29  |x%(fromframe%,6)|
00001d10  29 2a 66 72 61 63 74 69  6f 6e 2b 66 72 61 6d 65  |)*fraction+frame|
00001d20  70 6f 73 78 25 28 66 72  6f 6d 66 72 61 6d 65 25  |posx%(fromframe%|
00001d30  2c 36 29 0d 35 b6 5b 79  32 25 3d 28 66 72 61 6d  |,6).5.[y2%=(fram|
00001d40  65 70 6f 73 79 25 28 74  6f 66 72 61 6d 65 25 2c  |eposy%(toframe%,|
00001d50  36 29 2d 66 72 61 6d 65  70 6f 73 79 25 28 66 72  |6)-frameposy%(fr|
00001d60  6f 6d 66 72 61 6d 65 25  2c 36 29 29 2a 66 72 61  |omframe%,6))*fra|
00001d70  63 74 69 6f 6e 2b 66 72  61 6d 65 70 6f 73 79 25  |ction+frameposy%|
00001d80  28 66 72 6f 6d 66 72 61  6d 65 25 2c 36 29 0d 35  |(fromframe%,6).5|
00001d90  e8 19 e7 20 78 31 25 3d  78 32 25 20 80 20 79 31  |... x1%=x2% . y1|
00001da0  25 3d 79 32 25 20 8c 0d  36 1a 0c 66 61 63 74 6f  |%=y2% ..6..facto|
00001db0  72 3d 30 0d 36 4c 05 cc  0d 36 7e 2a 66 61 63 74  |r=0.6L...6~*fact|
00001dc0  6f 72 3d 31 36 2f 28 b6  28 28 78 31 25 2d 78 32  |or=16/(.((x1%-x2|
00001dd0  25 29 5e 32 2b 28 79 31  25 2d 79 32 25 29 5e 32  |%)^2+(y1%-y2%)^2|
00001de0  29 29 0d 36 b0 05 cd 0d  36 e2 1f 68 65 61 64 78  |)).6....6..headx|
00001df0  25 3d 78 31 25 2b 28 78  31 25 2d 78 32 25 29 2a  |%=x1%+(x1%-x2%)*|
00001e00  66 61 63 74 6f 72 0d 37  14 1f 68 65 61 64 79 25  |factor.7..heady%|
00001e10  3d 79 31 25 2b 28 79 31  25 2d 79 32 25 29 2a 66  |=y1%+(y1%-y2%)*f|
00001e20  61 63 74 6f 72 0d 37 46  23 c8 8f 20 68 65 61 64  |actor.7F#.. head|
00001e30  78 25 2b 78 25 2c 68 65  61 64 79 25 2b 79 25 2c  |x%+x%,heady%+y%,|
00001e40  31 36 2a 73 63 61 6c 65  0d 37 78 05 e1 0d 37 aa  |16*scale.7x...7.|
00001e50  1b dd f2 6c 69 6e 65 28  70 6f 69 6e 74 31 25 2c  |...line(point1%,|
00001e60  70 6f 69 6e 74 32 25 29  0d 37 dc 25 ea 20 78 31  |point2%).7.%. x1|
00001e70  25 2c 78 32 25 2c 78 33  25 2c 78 34 25 2c 79 31  |%,x2%,x3%,x4%,y1|
00001e80  25 2c 79 32 25 2c 79 33  25 2c 79 34 25 0d 38 0e  |%,y2%,y3%,y4%.8.|
00001e90  26 78 31 25 3d 66 72 61  6d 65 70 6f 73 78 25 28  |&x1%=frameposx%(|
00001ea0  66 72 6f 6d 66 72 61 6d  65 25 2c 70 6f 69 6e 74  |fromframe%,point|
00001eb0  31 25 29 0d 38 40 24 78  32 25 3d 66 72 61 6d 65  |1%).8@$x2%=frame|
00001ec0  70 6f 73 78 25 28 74 6f  66 72 61 6d 65 25 2c 70  |posx%(toframe%,p|
00001ed0  6f 69 6e 74 31 25 29 0d  38 72 26 78 33 25 3d 66  |oint1%).8r&x3%=f|
00001ee0  72 61 6d 65 70 6f 73 78  25 28 66 72 6f 6d 66 72  |rameposx%(fromfr|
00001ef0  61 6d 65 25 2c 70 6f 69  6e 74 32 25 29 0d 38 a4  |ame%,point2%).8.|
00001f00  24 78 34 25 3d 66 72 61  6d 65 70 6f 73 78 25 28  |$x4%=frameposx%(|
00001f10  74 6f 66 72 61 6d 65 25  2c 70 6f 69 6e 74 32 25  |toframe%,point2%|
00001f20  29 0d 38 d6 26 79 31 25  3d 66 72 61 6d 65 70 6f  |).8.&y1%=framepo|
00001f30  73 79 25 28 66 72 6f 6d  66 72 61 6d 65 25 2c 70  |sy%(fromframe%,p|
00001f40  6f 69 6e 74 31 25 29 0d  39 08 24 79 32 25 3d 66  |oint1%).9.$y2%=f|
00001f50  72 61 6d 65 70 6f 73 79  25 28 74 6f 66 72 61 6d  |rameposy%(tofram|
00001f60  65 25 2c 70 6f 69 6e 74  31 25 29 0d 39 3a 26 79  |e%,point1%).9:&y|
00001f70  33 25 3d 66 72 61 6d 65  70 6f 73 79 25 28 66 72  |3%=frameposy%(fr|
00001f80  6f 6d 66 72 61 6d 65 25  2c 70 6f 69 6e 74 32 25  |omframe%,point2%|
00001f90  29 0d 39 6c 24 79 34 25  3d 66 72 61 6d 65 70 6f  |).9l$y4%=framepo|
00001fa0  73 79 25 28 74 6f 66 72  61 6d 65 25 2c 70 6f 69  |sy%(toframe%,poi|
00001fb0  6e 74 32 25 29 0d 39 9e  39 ec 20 28 78 32 25 2d  |nt2%).9.9. (x2%-|
00001fc0  78 31 25 29 2a 66 72 61  63 74 69 6f 6e 2b 78 25  |x1%)*fraction+x%|
00001fd0  2b 78 31 25 2c 28 79 32  25 2d 79 31 25 29 2a 66  |+x1%,(y2%-y1%)*f|
00001fe0  72 61 63 74 69 6f 6e 2b  79 25 2b 79 31 25 0d 39  |raction+y%+y1%.9|
00001ff0  d0 39 df 20 28 78 34 25  2d 78 33 25 29 2a 66 72  |.9. (x4%-x3%)*fr|
00002000  61 63 74 69 6f 6e 2b 78  25 2b 78 33 25 2c 28 79  |action+x%+x3%,(y|
00002010  34 25 2d 79 33 25 29 2a  66 72 61 63 74 69 6f 6e  |4%-y3%)*fraction|
00002020  2b 79 25 2b 79 33 25 0d  3a 02 05 e1 0d 3a 98 27  |+y%+y3%.:....:.'|
00002030  dd f2 6d 61 6e 28 66 72  6f 6d 66 72 61 6d 65 25  |..man(fromframe%|
00002040  2c 74 6f 66 72 61 6d 65  25 2c 66 72 61 63 74 69  |,toframe%,fracti|
00002050  6f 6e 29 0d 3a a2 3c c8  99 22 4f 53 5f 53 70 72  |on).:.<.."OS_Spr|
00002060  69 74 65 4f 70 22 2c 36  30 2b 32 35 36 2c 73 70  |iteOp",60+256,sp|
00002070  72 69 74 65 61 72 65 61  25 2c 22 6d 61 6e 22 2c  |ritearea%,"man",|
00002080  30 20 b8 20 72 30 2c 72  31 2c 72 32 2c 72 33 0d  |0 . r0,r1,r2,r3.|
00002090  3a ad 0a e6 34 2b 31 32  38 0d 3a b6 05 da 0d 3a  |:...4+128.:....:|
000020a0  c1 0f e6 6d 61 6e 63 6f  6c 6f 75 72 25 0d 3a ca  |...mancolour%.:.|
000020b0  2e f2 64 72 61 77 6d 61  6e 28 38 2c 30 2c 66 72  |..drawman(8,0,fr|
000020c0  6f 6d 66 72 61 6d 65 25  2c 74 6f 66 72 61 6d 65  |omframe%,toframe|
000020d0  25 2c 66 72 61 63 74 69  6f 6e 29 0d 3a d4 1f c8  |%,fraction).:...|
000020e0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 72  |."OS_SpriteOp",r|
000020f0  30 2c 72 31 2c 72 32 2c  72 33 0d 3a d9 0b f2 75  |0,r1,r2,r3.:...u|
00002100  70 64 61 74 65 0d 3a de  05 e1 0d 3a e8 05 20 0d  |pdate.:....:.. .|
00002110  3a fc 0f dd f2 6e 65 78  74 66 72 61 6d 65 0d 3b  |:....nextframe.;|
00002120  06 0d 69 6e 62 65 74 25  2b 3d 31 0d 3b 10 1b e7  |..inbet%+=1.;...|
00002130  20 69 6e 62 65 74 25 3c  3e 69 6e 62 65 74 74 6f  | inbet%<>inbetto|
00002140  74 61 6c 25 20 8c 0d 3b  1a 35 f2 6d 61 6e 28 63  |tal% ..;.5.man(c|
00002150  75 72 72 65 6e 74 66 72  61 6d 65 25 2c 6e 65 78  |urrentframe%,nex|
00002160  74 66 72 61 6d 65 25 2c  69 6e 62 65 74 25 2f 69  |tframe%,inbet%/i|
00002170  6e 62 65 74 74 6f 74 61  6c 25 29 0d 3b 1f 2b 64  |nbettotal%).;.+d|
00002180  61 6e 63 65 72 78 25 2b  3d 28 66 72 61 6d 65 6d  |ancerx%+=(framem|
00002190  6f 76 65 25 28 63 75 72  72 65 6e 74 66 72 61 6d  |ove%(currentfram|
000021a0  65 25 29 29 2a 34 0d 3b  20 0d f2 70 6f 73 69 74  |e%))*4.; ..posit|
000021b0  69 6f 6e 0d 3b 24 05 cc  0d 3b 2e 2a e7 20 6e 65  |ion.;$...;.*. ne|
000021c0  78 74 66 72 61 6d 65 25  3e 3d 6d 6f 76 65 65 6e  |xtframe%>=moveen|
000021d0  64 25 28 63 75 72 72 65  6e 74 6d 6f 76 65 25 29  |d%(currentmove%)|
000021e0  20 8c 0d 3b 38 23 63 75  72 72 65 6e 74 6d 6f 76  | ..;8#currentmov|
000021f0  65 25 3d b3 28 6e 6f 6d  6f 76 65 73 69 6e 64 61  |e%=.(nomovesinda|
00002200  6e 63 65 25 29 0d 3b 42  0c 69 6e 62 65 74 25 3d  |nce%).;B.inbet%=|
00002210  30 0d 3b 4c 1c 63 75 72  72 65 6e 74 66 72 61 6d  |0.;L.currentfram|
00002220  65 25 3d 6e 65 78 74 66  72 61 6d 65 25 0d 3b 51  |e%=nextframe%.;Q|
00002230  2a 69 6e 62 65 74 74 6f  74 61 6c 25 3d 66 72 61  |*inbettotal%=fra|
00002240  6d 65 69 6e 62 65 74 25  28 63 75 72 72 65 6e 74  |meinbet%(current|
00002250  66 72 61 6d 65 25 29 0d  3b 56 27 6e 65 78 74 66  |frame%).;V'nextf|
00002260  72 61 6d 65 25 3d 6d 6f  76 65 73 74 61 72 74 25  |rame%=movestart%|
00002270  28 63 75 72 72 65 6e 74  6d 6f 76 65 25 29 0d 3b  |(currentmove%).;|
00002280  5b 2b 64 61 6e 63 65 72  78 25 2b 3d 28 66 72 61  |[+dancerx%+=(fra|
00002290  6d 65 6d 6f 76 65 25 28  63 75 72 72 65 6e 74 66  |memove%(currentf|
000022a0  72 61 6d 65 25 29 29 2a  34 0d 3b 5d 0d f2 70 6f  |rame%))*4.;]..po|
000022b0  73 69 74 69 6f 6e 0d 3b  60 35 f2 6d 61 6e 28 63  |sition.;`5.man(c|
000022c0  75 72 72 65 6e 74 66 72  61 6d 65 25 2c 6e 65 78  |urrentframe%,nex|
000022d0  74 66 72 61 6d 65 25 2c  69 6e 62 65 74 25 2f 69  |tframe%,inbet%/i|
000022e0  6e 62 65 74 74 6f 74 61  6c 25 29 0d 3b 6a 05 cc  |nbettotal%).;j..|
000022f0  0d 3b 74 1c 63 75 72 72  65 6e 74 66 72 61 6d 65  |.;t.currentframe|
00002300  25 3d 6e 65 78 74 66 72  61 6d 65 25 0d 3b 7e 11  |%=nextframe%.;~.|
00002310  6e 65 78 74 66 72 61 6d  65 25 2b 3d 31 0d 3b 88  |nextframe%+=1.;.|
00002320  24 f2 6d 61 6e 28 63 75  72 72 65 6e 74 66 72 61  |$.man(currentfra|
00002330  6d 65 25 2c 6e 65 78 74  66 72 61 6d 65 25 2c 30  |me%,nextframe%,0|
00002340  29 0d 3b 92 0c 69 6e 62  65 74 25 3d 30 0d 3b 97  |).;..inbet%=0.;.|
00002350  2a 69 6e 62 65 74 74 6f  74 61 6c 25 3d 66 72 61  |*inbettotal%=fra|
00002360  6d 65 69 6e 62 65 74 25  28 63 75 72 72 65 6e 74  |meinbet%(current|
00002370  66 72 61 6d 65 25 29 0d  3b 99 2b 64 61 6e 63 65  |frame%).;.+dance|
00002380  72 78 25 2b 3d 28 66 72  61 6d 65 6d 6f 76 65 25  |rx%+=(framemove%|
00002390  28 63 75 72 72 65 6e 74  66 72 61 6d 65 25 29 29  |(currentframe%))|
000023a0  2a 34 0d 3b 9a 0d f2 70  6f 73 69 74 69 6f 6e 0d  |*4.;...position.|
000023b0  3b 9c 05 cd 0d 3b a6 05  cd 0d 3b b0 05 e1 0d 3b  |;....;....;....;|
000023c0  ba 05 20 0d 3b c4 10 dd  f2 73 65 74 75 70 64 61  |.. .;....setupda|
000023d0  6e 63 65 0d 3b ce 0e 64  61 6e 63 69 6e 67 25 3d  |nce.;..dancing%=|
000023e0  b9 0d 3b d8 23 63 75 72  72 65 6e 74 6d 6f 76 65  |..;.#currentmove|
000023f0  25 3d b3 28 6e 6f 6d 6f  76 65 73 69 6e 64 61 6e  |%=.(nomovesindan|
00002400  63 65 25 29 0d 3b e2 2a  63 75 72 72 65 6e 74 66  |ce%).;.*currentf|
00002410  72 61 6d 65 25 3d 6d 6f  76 65 73 74 61 72 74 25  |rame%=movestart%|
00002420  28 63 75 72 72 65 6e 74  6d 6f 76 65 25 29 0d 3b  |(currentmove%).;|
00002430  ec 27 f2 6d 61 6e 28 63  75 72 72 65 6e 74 66 72  |.'.man(currentfr|
00002440  61 6d 65 25 2c 63 75 72  72 65 6e 74 66 72 61 6d  |ame%,currentfram|
00002450  65 25 2c 30 29 0d 3b f6  0c 69 6e 62 65 74 25 3d  |e%,0).;..inbet%=|
00002460  30 0d 3c 00 2a 69 6e 62  65 74 74 6f 74 61 6c 25  |0.<.*inbettotal%|
00002470  3d 66 72 61 6d 65 69 6e  62 65 74 25 28 63 75 72  |=frameinbet%(cur|
00002480  72 65 6e 74 66 72 61 6d  65 25 29 0d 3c 0a 1e 6e  |rentframe%).<..n|
00002490  65 78 74 66 72 61 6d 65  25 3d 63 75 72 72 65 6e  |extframe%=curren|
000024a0  74 66 72 61 6d 65 25 2b  31 0d 3c 0f 15 64 61 6e  |tframe%+1.<..dan|
000024b0  63 65 72 78 25 3d 72 69  67 68 74 25 2f 32 0d 3c  |cerx%=right%/2.<|
000024c0  11 37 c8 99 22 57 69 6d  70 5f 46 6f 72 63 65 52  |.7.."Wimp_ForceR|
000024d0  65 64 72 61 77 22 2c 6e  65 77 62 61 63 6b 64 72  |edraw",newbackdr|
000024e0  6f 70 25 2c 30 2c 31 33  36 2c 72 69 67 68 74 25  |op%,0,136,right%|
000024f0  2c 74 6f 70 25 0d 3c 14  05 e1 0d 3c 1e 05 20 0d  |,top%.<....<.. .|
00002500  3c 28 0d dd 20 f2 72 65  64 72 61 77 0d 3c 3c 1c  |<(.. .redraw.<<.|
00002510  e7 20 21 62 6c 6f 63 6b  31 3d 6e 65 77 62 61 63  |. !block1=newbac|
00002520  6b 64 72 6f 70 25 20 8c  0d 3c 46 29 c8 99 22 57  |kdrop% ..<F).."W|
00002530  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00002540  22 2c 2c 62 6c 6f 63 6b  31 20 b8 20 6d 6f 72 65  |",,block1 . more|
00002550  25 0d 3c 50 0c c8 95 20  6d 6f 72 65 25 0d 3c 55  |%.<P... more%.<U|
00002560  67 e7 20 a4 69 6e 74 65  72 73 65 63 74 69 6f 6e  |g. .intersection|
00002570  28 64 61 6e 63 65 72 78  25 2c 31 33 36 2c 64 61  |(dancerx%,136,da|
00002580  6e 63 65 72 78 25 2b 77  69 64 74 68 25 2c 31 33  |ncerx%+width%,13|
00002590  36 2b 68 65 69 67 68 74  25 2c 62 6c 6f 63 6b 31  |6+height%,block1|
000025a0  21 32 38 2c 62 6c 6f 63  6b 31 21 33 32 2c 62 6c  |!28,block1!32,bl|
000025b0  6f 63 6b 31 21 33 36 2c  62 6c 6f 63 6b 31 21 34  |ock1!36,block1!4|
000025c0  30 29 20 8c 0d 3c 5a 17  f2 50 6c 6f 74 49 63 6f  |0) ..<Z..PlotIco|
000025d0  6e 28 64 61 6e 63 65 72  78 25 29 0d 3c 5f 05 cd  |n(dancerx%).<_..|
000025e0  0d 3c 6e 2a c8 99 20 22  57 69 6d 70 5f 47 65 74  |.<n*.. "Wimp_Get|
000025f0  52 65 63 74 61 6e 67 6c  65 22 2c 2c 62 6c 6f 63  |Rectangle",,bloc|
00002600  6b 31 20 b8 20 6d 6f 72  65 25 0d 3c 78 06 20 ce  |k1 . more%.<x. .|
00002610  0d 3c 82 05 cc 0d 3c 8e  05 cd 0d 3c 91 05 e1 0d  |.<....<....<....|
00002620  3c 96 16 dd 20 f2 50 6c  6f 74 49 63 6f 6e 28 78  |<... .PlotIcon(x|
00002630  70 6f 73 25 29 0d 3c a0  1e 21 62 6c 6f 63 6b 32  |pos%).<..!block2|
00002640  3d 78 70 6f 73 25 3a 62  6c 6f 63 6b 32 21 34 3d  |=xpos%:block2!4=|
00002650  31 33 36 0d 3c aa 2f 62  6c 6f 63 6b 32 21 38 3d  |136.<./block2!8=|
00002660  78 70 6f 73 25 2b 77 69  64 74 68 25 3a 62 6c 6f  |xpos%+width%:blo|
00002670  63 6b 32 21 31 32 3d 31  33 36 2b 68 65 69 67 68  |ck2!12=136+heigh|
00002680  74 25 0d 3c b4 29 62 6c  6f 63 6b 32 21 31 36 3d  |t%.<.)block2!16=|
00002690  25 31 30 30 30 30 30 30  31 30 3a 62 6c 6f 63 6b  |%100000010:block|
000026a0  32 21 32 30 3d 73 61 64  64 72 25 0d 3c b6 25 62  |2!20=saddr%.<.%b|
000026b0  6c 6f 63 6b 32 21 32 34  3d 73 70 72 69 74 65 61  |lock2!24=spritea|
000026c0  72 65 61 25 3a 62 6c 6f  63 6b 32 21 32 38 3d 30  |rea%:block2!28=0|
000026d0  0d 3c be 1d c8 99 22 57  69 6d 70 5f 50 6c 6f 74  |.<...."Wimp_Plot|
000026e0  49 63 6f 6e 22 2c 2c 62  6c 6f 63 6b 32 0d 3c c8  |Icon",,block2.<.|
000026f0  05 e1 0d 40 74 0e dd f2  70 6f 73 69 74 69 6f 6e  |...@t...position|
00002700  0d 40 7e 36 e7 20 64 61  6e 63 65 72 78 25 3e 3d  |.@~6. dancerx%>=|
00002710  72 69 67 68 74 25 2d 77  69 64 74 68 25 20 8c 20  |right%-width% . |
00002720  64 61 6e 63 65 72 78 25  3d 72 69 67 68 74 25 2d  |dancerx%=right%-|
00002730  77 69 64 74 68 25 0d 40  88 1d e7 20 64 61 6e 63  |width%.@... danc|
00002740  65 72 78 25 3c 30 20 8c  20 64 61 6e 63 65 72 78  |erx%<0 . dancerx|
00002750  25 3d 30 0d 40 92 05 e1  0d 42 68 33 dd a4 69 6e  |%=0.@....Bh3..in|
00002760  74 65 72 73 65 63 74 69  6f 6e 28 78 31 25 2c 79  |tersection(x1%,y|
00002770  31 25 2c 78 32 25 2c 79  32 25 2c 78 33 25 2c 79  |1%,x2%,y2%,x3%,y|
00002780  33 25 2c 78 34 25 2c 79  34 25 29 0d 42 72 1b 78  |3%,x4%,y4%).Br.x|
00002790  64 25 3d 78 33 25 2d 78  31 25 3a 79 64 25 3d 79  |d%=x3%-x1%:yd%=y|
000027a0  33 25 2d 79 31 25 0d 42  7c 22 e7 20 78 64 25 3e  |3%-y1%.B|". xd%>|
000027b0  30 20 8c 20 e7 20 78 64  25 3e 28 78 32 25 2d 78  |0 . . xd%>(x2%-x|
000027c0  31 25 29 20 8c 20 3d a3  0d 42 86 25 e7 20 78 64  |1%) . =..B.%. xd|
000027d0  25 3c 30 20 8c 20 e7 20  94 28 78 64 25 29 3e 28  |%<0 . . .(xd%)>(|
000027e0  78 34 25 2d 78 33 25 29  20 8c 20 3d a3 0d 42 90  |x4%-x3%) . =..B.|
000027f0  22 e7 20 79 64 25 3e 30  20 8c 20 e7 20 79 64 25  |". yd%>0 . . yd%|
00002800  3e 28 79 32 25 2d 79 31  25 29 20 8c 20 3d a3 0d  |>(y2%-y1%) . =..|
00002810  42 9a 25 e7 20 79 64 25  3c 30 20 8c 20 e7 20 94  |B.%. yd%<0 . . .|
00002820  28 79 64 25 29 3e 28 79  34 25 2d 79 33 25 29 20  |(yd%)>(y4%-y3%) |
00002830  8c 20 3d a3 0d 42 a4 06  3d b9 0d 46 50 0c dd f2  |. =..B..=..FP...|
00002840  75 70 64 61 74 65 0d 46  5a 18 21 62 6c 6f 63 6b  |update.FZ.!block|
00002850  33 3d 6e 65 77 62 61 63  6b 64 72 6f 70 25 0d 46  |3=newbackdrop%.F|
00002860  64 3c 62 6c 6f 63 6b 33  21 34 3d 64 61 6e 63 65  |d<block3!4=dance|
00002870  72 78 25 3a 62 6c 6f 63  6b 33 21 38 3d 31 33 36  |rx%:block3!8=136|
00002880  3a 62 6c 6f 63 6b 33 21  31 32 3d 64 61 6e 63 65  |:block3!12=dance|
00002890  72 78 25 2b 77 69 64 74  68 25 0d 46 69 19 62 6c  |rx%+width%.Fi.bl|
000028a0  6f 63 6b 33 21 31 36 3d  31 33 36 2b 68 65 69 67  |ock3!16=136+heig|
000028b0  68 74 25 0d 46 6e 1d c8  99 20 26 34 30 30 43 39  |ht%.Fn... &400C9|
000028c0  2c 2c 62 6c 6f 63 6b 33  20 b8 20 6d 6f 72 65 25  |,,block3 . more%|
000028d0  0d 46 78 0c c8 95 20 6d  6f 72 65 25 0d 46 82 67  |.Fx... more%.F.g|
000028e0  e7 20 a4 69 6e 74 65 72  73 65 63 74 69 6f 6e 28  |. .intersection(|
000028f0  64 61 6e 63 65 72 78 25  2c 31 33 36 2c 64 61 6e  |dancerx%,136,dan|
00002900  63 65 72 78 25 2b 77 69  64 74 68 25 2c 31 33 36  |cerx%+width%,136|
00002910  2b 68 65 69 67 68 74 25  2c 62 6c 6f 63 6b 33 21  |+height%,block3!|
00002920  32 38 2c 62 6c 6f 63 6b  33 21 33 32 2c 62 6c 6f  |28,block3!32,blo|
00002930  63 6b 33 21 33 36 2c 62  6c 6f 63 6b 33 21 34 30  |ck3!36,block3!40|
00002940  29 20 8c 0d 46 8c 17 f2  50 6c 6f 74 49 63 6f 6e  |) ..F...PlotIcon|
00002950  28 64 61 6e 63 65 72 78  25 29 0d 46 96 05 cd 0d  |(dancerx%).F....|
00002960  46 a0 1d c8 99 20 26 34  30 30 43 41 2c 2c 62 6c  |F.... &400CA,,bl|
00002970  6f 63 6b 33 20 b8 20 6d  6f 72 65 25 0d 46 aa 05  |ock3 . more%.F..|
00002980  ce 0d 46 b4 05 e1 0d ff                           |..F.....|
00002988