6�SCSI::SCSIDisc4.$.CoverDisks.!Bodywise.!runimage

� cache%=FALSE:ONERRORGOTO5
� *CACHE ON
� cache%=TRUE
� ONERROROFF

*FX220,27

�sortmemory
Cș "Wimp_Initialise",200,&4B534154,"BodyWise" � wimpver%,taskh%
	]� �error(�$+" (Internal error code "+Þ+")"+�0,�):ș "Wimp_CloseDown",taskh%,&4B534154:�

&�"LOAD <BodyWise$Dir>.code "+�~mc%
�mc_starts
�sortsprites

�initiallise
�modechange
��PROCerror(STR$~(scale%!0)+" "+STR$~(scale%!4)+" "+STR$~(scale%!8)+" "+STR$~(scale%!12)+" "+STR$~(coltrans%!0)+" "+STR$~(coltrans%!4)+" "+STR$~(coltrans%!8)+" "+STR$~(coltrans%!12),0)
�baricon
7� � �error(�$+" (Internal error code "+Þ+")"+�0,�)
� �event:� quit%
(ș "Wimp_CloseDown",taskh%,&4B534154
�PRINT QUIT
	*QUIT
�SYS"OS_Exit",errblk%
�
	�STOP

��mc_starts
outline%=!mc%
clearbody%=mc%!&04
animcl%=mc%!&08
animbdr%=mc%!&0C
sp_on_body%=mc%!&10
 expandsp%=mc%!&14
!crunchsp%=mc%!&18
"cspname%=mc%!&1C
#nspname%=mc%!&20
$animdull%=mc%!&24
%score0%=mc%!&28
&scored0%=mc%!&2C
'bluetowhite%=mc%!&30
(�
)
*��sortmemory
+X� work%=&9000:MAXWINDIND%=4096:MAXWINDSTR%=4096:SPRITESEXT%=8000:REM pdbs%=&40000 ??
,X� work%=&9000:MAXWINDIND%=4808:MAXWINDSTR%=5864:SPRITESEXT%=8000:REM pdbs%=&40000 ??
-Vwork%=&9000:MAXWINDIND%=11920:MAXWINDSTR%=13008:SPRITESEXT%=8000:� pdbs%=&40000 ??
.0windind%=work%:windstr%=windind%+MAXWINDIND%
/Kwindptrlist%=windstr%+MAXWINDSTR%:wptrlist%=windptrlist%+80:B%=windstr%
0Mmc%=&F200:bodyarea%=&FA00:sparea%=&1E200:detarea%=&50200:animarea%=&62200
1�
2
3��sortsprites
4%!bodyarea%=58*1024:bodyarea%!8=16
5#ș "OS_SpriteOp",&109,bodyarea%
67ș "OS_SpriteOp",&10F,bodyarea%,"body",1,312,365,12
7"!sparea%=200*1024:sparea%!8=16
8!ș "OS_SpriteOp",&109,sparea%
9:ș "OS_SpriteOp",&10A,sparea%,"<BodyWise$Dir>.sprites"
:=ș "OS_SpriteOp",&10B,sparea%,"<BodyWise$Dir>.body_sp1_c"
;=ș "OS_SpriteOp",&10B,sparea%,"<BodyWise$Dir>.body_sp2_c"
<:ș "OS_SpriteOp",&10B,sparea%,"<BodyWise$Dir>.eight_c"
=#!detarea%=72*1024:detarea%!8=16
>"ș "OS_SpriteOp",&109,detarea%
?%!animarea%=30*1024:animarea%!8=16
@#ș "OS_SpriteOp",&109,animarea%
AL� may not need SYS "OS_SpriteOp",&10A,animarea%,"<BodyWise$Dir>.pinbuts"
B;� scale% 16:!scale%=1:scale%!4=1:scale%!8=1:scale%!12=1
CU� bodscale% 16:!bodscale%=1:bodscale%!4=1:bodscale%!8=1:bodscale%!12=1:spscale%=1
D+� coltrans% 16,sppalet% 128,sysbut$(15)
E� +0
F�� &FFFFFF00,&FFFFFF00,&DDDDDD00,&DDDDDD00,&BBBBBB00,&BBBBBB00,&99999900,&99999900,&77777700,&77777700,&55555500,&55555500,&33333300,&33333300,&0,&0
G�� &99440000,&99440000,&EEEE00,&EEEE00,&CC0000,&CC0000,&DD00,&DD00,&BBEEEE00,&BBEEEE00,&885500,&885500,&BBFF00,&BBFF00,&FFBB0000,&FFBB0000
H&�k%=0�31:� a%:sppalet%!(4*k%)=a%:�
I� +0
J�� mskel_off,mskel_onn,nerve_off,nerve_onn,blood_off,blood_onn,respi_off,respi_onn,diges_off,diges_onn,excre_off,excre_onn,endoc_off,endoc_onn,repro_off,repro_onn
K�k%=0�15:�sysbut$(k%):�
L�expandbuts
M,�addpalet(bodyarea%,"body"):�cl_body(15)
N�
O
P��outlinebody
Q;ș "OS_SpriteOp",&118,bodyarea%,"body" � ,,A%:A%+=A%!32
R>ș "OS_SpriteOp",&118,sparea%,"muscright" � ,,B%:B%+=B%!32
S� outline%
T�
U
V��cl_body(C%)
W;ș "OS_SpriteOp",&118,bodyarea%,"body" � ,,A%:A%+=A%!32
X� clearbody%
Y�
Z
[��white_body
\;ș "OS_SpriteOp",&118,bodyarea%,"body" � ,,A%:A%+=A%!32
]� bluetowhite%
^�
_
`��cl_anim(D%)
a;ș "OS_SpriteOp",&118,animarea%,"anim" � ,,A%:A%+=A%!32
b=ș "OS_SpriteOp",&128,animarea%,"anim" � ,,,B%,C%:B%=B%/2
c �s%=2�4:D%=D%�(D%<<(2^s%)):�
d
� animcl%
e�
f
g"��dullanim(C%,le%,lo%,ri%,hi%)
h;ș "OS_SpriteOp",&118,animarea%,"anim" � ,,A%:A%+=A%!32
iD%=((le%-4)/4)-1
jE%=(612-(lo%-4))/4
kF%=((ri%+2)/4)-1
lG%=(612-(hi%+2))/4
m� animdull%
n�
o
p��anim_bdr(spn$)
q�spn$="anim"�
r;ș "OS_SpriteOp",&118,animarea%,"anim" � ,,A%:A%+=A%!32
s=ș "OS_SpriteOp",&128,animarea%,"anim" � ,,,B%,C%:B%=B%/2
t�
u8ș "OS_SpriteOp",&118,detarea%,spn$ � ,,A%:A%+=A%!32
v:ș "OS_SpriteOp",&128,detarea%,spn$ � ,,,B%,C%:B%=B%/2
w�
x� animbdr%
y�
z
{6��add_sp(areafrom%,spfrom$,areato%,spto$,C%,D%,G%)
|� H%
}8ș "OS_SpriteOp",&118,areato%,spto$ � ,,A%:A%+=A%!32
~7ș "OS_SpriteOp",&128,areato%,spto$ � ,,,H%:H%=H%/2
<ș "OS_SpriteOp",&118,areafrom%,spfrom$ � ,,B%:B%+=B%!32
�� sp_on_body%
��
�
���expandbuts
�� sy%=0�15
�;ș"OS_SpriteOp",&118,sparea%,sysbut$(sy%) � ,,cspimage%
�cspimage%+=cspimage%!32
�Oș"OS_SpriteOp",&10F,sparea%,sysbut$(sy%)+"q",0,!cspimage%*2,cspimage%!4,12
�I�((cspimage%?8)�&10)<>0:ș"OS_SpriteOp",&11D,sparea%,sysbut$(sy%)+"q"
�p�lett%=1�9:?(cspname%+(lett%-1))=�(�sysbut$(sy%),lett%,1)):?(nspname%+(lett%-1))=�(�sysbut$(sy%),lett%,1)):�
�,�lett%=10�12:?(cspname%+(lett%-1))=&00:�
�?(nspname%+9)=&71
�,�lett%=11�12:?(nspname%+(lett%-1))=&00:�
�G%=sparea%
�� expandsp%
�-ș"OS_SpriteOp",&119,sparea%,sysbut$(sy%)
�>ș"OS_SpriteOp",&11A,sparea%,sysbut$(sy%)+"q",sysbut$(sy%)
��
��
�
���expand(spn$)
�Z� create sprite "j" size 5 bytes to store the size of the compacted sprite & mask byte
�4ș"OS_SpriteOp",&10F,detarea%,spn$+"j",0,10,1,12
�5ș"OS_SpriteOp",&118,detarea%,spn$+"j" � ,,image%
�image%+=image%!32
�4ș"OS_SpriteOp",&118,detarea%,spn$ � ,,cspimage%
�3!image%=((cspimage%!16)+1)*8 : � size in pixels
�cspimage%+=cspimage%!32
�,image%?4=cspimage%?8 : � store mask byte
�4� create sprite "q" (temporarily) to expand into
�Hș"OS_SpriteOp",&10F,detarea%,spn$+"q",0,!cspimage%*2,cspimage%!4,12
�B�((cspimage%?8)�&10)<>0:ș"OS_SpriteOp",&11D,detarea%,spn$+"q"
�f�lett%=1��(spn$):?(cspname%+(lett%-1))=�(�spn$,lett%,1)):?(nspname%+(lett%-1))=�(�spn$,lett%,1)):�
�?�(spn$)<11:�lett%=�(spn$)+1�12:?(cspname%+(lett%-1))=&00:�
�?(nspname%+�(spn$))=&71
�?�(spn$)<10:�lett%=�(spn$)+2�12:?(nspname%+(lett%-1))=&00:�
�G%=detarea%
�� expandsp%
�D� delete original (compacted) sprite, rename "q" sprite to orig.
�&ș"OS_SpriteOp",&119,detarea%,spn$
�/ș"OS_SpriteOp",&11A,detarea%,spn$+"q",spn$
�(� need to reset G% for drawit use ??
��
�
���compact(spn$)
�\� create sprite "q" (temporary) to be compacted into (size details stored in sprite "j")
�5ș"OS_SpriteOp",&118,detarea%,spn$+"j" � ,,image%
�$image%+=image%!32:mask%=image%?4
�9ș"OS_SpriteOp",&10F,detarea%,spn$+"q",0,!image%,1,12
�5ș"OS_SpriteOp",&118,detarea%,spn$+"q" � ,,image%
�image%+=image%!32
�<ș"OS_SpriteOp",&128,detarea%,spn$ � ,,,!image%,image%!4
�$!image%=!image%/2:image%?8=mask%
�f�lett%=1��(spn$):?(nspname%+(lett%-1))=�(�spn$,lett%,1)):?(cspname%+(lett%-1))=�(�spn$,lett%,1)):�
�?�(spn$)<11:�lett%=�(spn$)+1�12:?(nspname%+(lett%-1))=&00:�
�?(cspname%+�(spn$))=&71
�?�(spn$)<10:�lett%=�(spn$)+2�12:?(cspname%+(lett%-1))=&00:�
�G%=detarea%
�� crunchsp%
�P� delete original (normal) sprite and "j" sprite, rename "q" sprite to orig.
�Mș"OS_SpriteOp",&119,detarea%,spn$:ș"OS_SpriteOp",&119,detarea%,spn$+"j"
�/ș"OS_SpriteOp",&11A,detarea%,spn$+"q",spn$
�(� need to reset G% for drawit use ??
��
�
���initiallise
�\� blk% 256,ibname% 20,errblk% 200,menu% 1024,blk2% 256,input_disk_name% 12,txtbuff% 1024
�2� pdrect% 16,pdrect2% 16,pdtrans% 16,pdplot% 8
�&� ctrans% 256,paltab% 64,SCALE% 16
�� defaultdata%(3,2)
�
�:quit%=�
�0wptr1%=windstr%:wptr2%=windind%:windcount%=1
�6ș "Wimp_OpenTemplate",,"<BodyWise$Dir>.Templates"
�6�load_template("proginfo"):�load_template("setup")
�9�load_template("overview"):�load_template("systdefn")
�8�load_template("bodyoutl"):�load_template("message")
�7�load_template("animate"):�load_template("systems")
�#�PROCload_template("paintdbox")
��load_template("editdbox")
�7�load_template("pinorgs"):�load_template("pinoutl")
��load_template("orgdefn")
��load_template("savebody")
��load_template("printbody")
��load_template("saveanim")
��load_template("printanim")
�ș "Wimp_CloseTemplate"
�Y�PROCerror(STR$(windind%+MAXWINDIND%-wptr2%)+" "+STR$(windstr%+MAXWINDSTR%-wptr1%),0)
�^� may not needSYS "OS_SpriteOp",&109,animarea%:REM needed to blank out pinbuts sprite file
�rmaxsp%=53:� bodysp$(maxsp%),bodysp%(maxsp%,3),sysb%(7,1),sysbarea%(7,3),link$(23),animfile$(24,1),butdef%(2,3)
�^� ovlines$(9),systemlabels$(9),system_on%(7),systlink$(8),systbodysp%(maxsp%),buttype%(24)
ګ� systwords$(21),systlinkwords%(7,1),systtit$(7),spk%(16),words$(1,17,1),animwords$(1,5),orgjustwords$(18,1),words%(1,7),wordovlay$(24),lines$(1,2),closercoords%(24,4)
�?� bodybox%(43,2),bodyboxlab$(43),animbox%(43,1),bwfile$(24)
�� candpos%(17,1)
�<� olf1$(16),olf2$(3),temp$(16),smell%(16),whicholf2%(16)
�X� spkmax%(10),skpain%(6,1),skpress%(8,1),skheat1%(10,1),skheat2%(5,1),sktouch%(16,1)
�� harr%(22,1),hanim$(37)
�-� canal%(10,3),cochlea%(17,3),spark%(2,1)
�_� axon1%(7,1),cell%(3,1),axon2%(20,1),tail%(3,1),neuron1%(9,1),neuron3%(17,1),neuron5%(6,1)
� � babyegg%(8,1),peregg%(7,1)
��fill_arrays
�3a$=�converttolower(�readsysvar("BodyWise$Dir"))
�(�a$,"adfs::bodywise")<>0 Y%=0 �Y%=1
�0ș "Wimp_CreateWindow",,wptrlist%!0 � infow%
�1ș "Wimp_CreateWindow",,wptrlist%!4 � setupw%
�0ș "Wimp_CreateWindow",,wptrlist%!8 � overw%
�1ș "Wimp_CreateWindow",,wptrlist%!12 � defnw%
�1ș "Wimp_CreateWindow",,wptrlist%!16 � bodyw%
�0ș "Wimp_CreateWindow",,wptrlist%!20 � msgw%
�1ș "Wimp_CreateWindow",,wptrlist%!24 � animw%
�1ș "Wimp_CreateWindow",,wptrlist%!28 � systw%
�5�SYS "Wimp_CreateWindow",,wptrlist%!32 TO pdboxw%
�2ș "Wimp_CreateWindow",,wptrlist%!32 � edboxw%
�4ș "Wimp_CreateWindow",,wptrlist%!36 � pinorgsw%
�4ș "Wimp_CreateWindow",,wptrlist%!40 � pinoutlw%
�4ș "Wimp_CreateWindow",,wptrlist%!44 � orgdefnw%
�3ș "Wimp_CreateWindow",,wptrlist%!48 � sabodyw%
�3ș "Wimp_CreateWindow",,wptrlist%!52 � prbodyw%
�3ș "Wimp_CreateWindow",,wptrlist%!56 � saanimw%
�3ș "Wimp_CreateWindow",,wptrlist%!60 � pranimw%
�+d%=wptrlist%!8:fixedwidth%=(d%!8)-(!d%)
�1�selecticn(overw%,0,�):�selecticn(systw%,0,�)
�5�selecticn(setupw%,47,�):�selecticn(setupw%,48,�)
�5�selecticn(setupw%,33,�):�selecticn(setupw%,34,�)
�3�selecticn(setupw%,3,�):�selecticn(setupw%,2,�)
�5�selecticn(setupw%,11,�):�selecticn(setupw%,12,�)
�(�j%=15�30:�selecticn(setupw%,j%,�):�
�(�j%=37�44:�selecticn(setupw%,j%,�):�
�3activesysticn%=0:systclick%=10:activeorgicn%=-1

%firsttime%=�:currmenu%=0:sexon%=0


#�initbodylabels:�hidebodylabels

�initanimw:�animbuts_onoff

�hideicn(systw%,3,�)

/�shadeicn(overw%,4,�):�shadeicn(overw%,5,�)

&�j%=10�27:�shadeicn(overw%,j%,�):�

(�j%=15�20:�selecticn(setupw%,j%,�):�

5�selecticn(setupw%,23,�):�selecticn(setupw%,26,�)

5�selecticn(setupw%,12,�):�selecticn(setupw%,11,�)

	4� ************ pin the body part ***************


doingpinpart%=�:pinnoof%=0

�� pinscore%(7),pinpart$(15),pinmess$(3,1),pindonepart%(23),pinchosenpos%(23,1),pinorgsize%(23,1),rect%(3),oldrect%(3),pinsprs$(23),pinlink%(15,3),pinchlink%(7),pincorrectpos%(23,1),pinbut$(15),randch%(7),pinscale% 16

� DIM screct%(3,3)


� +0

5� "Select a body part to","place on the outline."

-� "Move the mouse to the","body outline."

6� "Place the part and click","to fix in position."

;� "Select a body part to redo","or select OK to score."

)�j%=0�3:�k%=0�1:� pinmess$(j%,k%):�:�

� +0

w� "Ribcage       : ","Pelvis        : ","Brain         : ","Eye           : ","Spinal cord   : ","Heart         : "

�� "Lungs         : ","Diaphragm     : ","Stomach       : ","Liver         : ","Pancreas      : ","Intestines    : ","Kidneys       : ","Bladder       : ","Female organs : ","Male organs   : "

�k%=0�15:� pinpart$(k%):�

� +0

�� "ribcage  ","pelvis  ","brain  ","eye  ","spinal cord   ","heart  ","lungs  ","diaphragm   ","stomach  ","liver  ","pancreas  ","intestines   ","kidneys  ","bladder  ","female organs   ","male organs   "

�k%=0�15:� pinbut$(k%):�

� +0

�� 24,272,120,132,128,100,104,52,80,60,24,18,80,36,112,124,56,34,64,68,32,30,64,68,56,26,64,68,88,50,104,52,48,56,112,96,112,124,120,132,128,100,64,68,56,34,64,68

-�j%=0�23:�k%=0�1:� pinorgsize%(j%,k%):�:�

� +0

� cord,360,240

� ribback,260,416

 � hipbone,236,168

!� diaph_b,276,424

"� brain,304,780

#� eye,312,812

$� kidneys,284,360

%� rectum,252,160

&� uterus,308,168

'� seminal,300,104

(� bladder,332,172

)� prostate,300,104

*� pancreas,332,360

+� stomach,332,368

,� liver,268,388

-� diaph_f,276,424

.� heart,340,504

/� lungs,268,464

0� intestines,252,160

1� ribfront,260,416

2� pubis,236,168

3� vas_def,300,104

4� vagina,308,168

5� penis,300,104

6K�j%=0�23:� pinsprs$(j%):� pincorrectpos%(j%,0):� pincorrectpos%(j%,1):�

7� +0

8k� 1,19,-1,-1,2,20,-1,-1,4,-1,-1,-1,5,-1,-1,-1,0,-1,-1,-1,16,-1,-1,-1,17,-1,-1,-1,3,15,-1,-1,13,-1,-1,-1

9U� 14,-1,-1,-1,12,-1,-1,-1,18,7,-1,-1,6,-1,-1,-1,10,-1,-1,-1,8,22,-1,-1,23,9,21,11

:*�j%=0�15:�k%=0�3:� pinlink%(j%,k%):�:�

;�PROCrandompin

<�RESTORE +0

=I�DATA 208,128,520,328,228,332,496,484,164,488,572,692,270,696,484,920

>8�FORj%=0TO3:FORk%=0TO3:READ screct%(j%,k%):NEXT:NEXT

?�

@

A��initbodylabels

B&�k%=0�43:�selecticn(bodyw%,k%,�):�

C�

D

E��hidebodylabels

F$�k%=0�43:�hideicn(bodyw%,k%,�):�

Glabelson%=10

H�

I

J��initanimw

K�activeicn%=-1:doingmove%=�:firstmove%=�:activetxticn%=0:activew%=0:doingcloser%=�:firstcloser%=�:texton%=0:textnewon%=0:onlyfem%=0

L<�k%=5�49:�hideicn(animw%,k%,�):�selecticn(animw%,k%,�):�

M�

N

O��hideicn(w%,i%,f%)

P$!blk%=w%:blk%!4=i%:blk%!12=1<<23

Q�f% blk%!8=1<<23:�:blk%!8=0

R ș "Wimp_SetIconState",,blk%

S�

T

U��fill_arrays

V� +0

W� skullback,68,5

X� nerves_b,58,38

Y� skeleton,0,40

Z� hipbone,52,142

[� diaph_b,87,107

\� pit_pin,88,24

]� brain,76,9

^� senses,73,22

_� mouth,73,34

`� oesophagus,88,40

a� trachea,85,39

b� thyroid,88,56

c� skull,68,5

d� lymph_b,68,67

e� adrenals,78,123

f� kidneys,73,127

g� blood,0,0

h� rectum,86,170

i� ovaries,81,179

j� uterus,79,175

k� ureter,76,131

l� seminal,85,178

m� bladder,84,177

n� prostate,87,186

o� spleen,108,113

p� pancreas,84,131

q� stomach,84,108

r� gall,80,126

s� liver,68,112

t� diaph_f,70,103

u� heart,84,81

v� lungs,69,70

w� intestines,64,132

x� thymus,92,76

y� ribsside,64,63

z� ribsfront,72,66

{� pubis,78,178

|� vas_def,76,174

}� nerves_f,0,9

~� lymph_f,4,9

� muscleft,89,41

�� muscfront,90,62

�� muscright,0,0

�� vagina,79,187

�� testes,86,200

�� penis,82,187

�� skinarmr,0,137

�� skinarml,128,141

�� skinlegs,65,248

�� skin,39,0

��DATA breastsw,36,0

��DATA hipsw,48,150

�� breastsw,0,0

�� hipsw,0,0

�� sense,78,23

�� eyelid,78,23

�=� s%=0�maxsp%:� bodysp$(s%),bodysp%(s%,1),bodysp%(s%,2):�

�Fbodysp%(3,3)=15:bodysp%(12,3)=15:bodysp%(17,3)=15:bodysp%(32,3)=15

�bodysp%(42,3)=8

�� +0

�*� "02,03,12,34,35,36"    :REM skeleton

�)� "40,41,42"             :REM muscles

�'� "06"                   :REM brain

�(� "01,38"                :REM nerves

�&� "46,47,48,49,50,51,53" :REM skin

�(� "07,52"                :REM senses

�'� "16"                   :REM blood

�'� "30"                   :REM heart

�'� "13,24,33,39"          :REM lymph

�)� "10"                   :REM trachea

�'� "31"                   :REM lungs

�+� "04,29"                :REM diaphragm

�'� "08"                   :REM mouth

�,� "09"                   :REM oesophagus

�)� "26"                   :REM stomach

�'� "28"                   :REM liver

�&� "27"                   :REM gall

�*� "25"                   :REM pancreas

�,� "17,32"                :REM intestines

�)� "15"                   :REM kidneys

�)� "22"                   :REM bladder

�&� "46,47,48,49,50,51,53" :REM skin

�2� "05,11,14,18,25,33,44" :REM endocrine glands

�2� "18,19,21,23,37,43,44,45" :REM reprod organs

�� s%=0�23:� link$(s%):�

�� +0

�?� "02,03,12,34,35,36,40,41"    :REM musculo-skeletal on own

�/� "01,06,07,38,46,47,48,52"    :REM nervous

�5� "13,16,24,30,33,39"          :REM blood & lymph

�3� "04,10,29,31"                :REM respiratory

�1� "08,09,17,25,26,27,28,32"    :REM digestive

�1� "15,20,22,46,47,48"          :REM excretory

�0� "05,11,14,18,25,33,44"      :REM endocrine

�^� "18"                         :REM reproductive (not complete - done in PROCchecksystsex)

�L� "00,02,03,34,36,40"          :REM musculo-skeletal with another system

�� s%=0�8:� systlink$(s%):�

�� +0

�=� 12,656,370,656,50,436,352,436,44,220,312,220,14,4,290,4

�(� s%=0�7:� r%=0�1:� sysb%(s%,r%):�:�

�� +0

��� 4,-280,274,-116,290,-280,560,-116,4,-500,274,-336,290,-500,560,-336,4,-716,274,-556,290,-716,560,-556,4,-932,274,-772,290,-932,560,-772

�,� s%=0�7:� r%=0�3:� sysbarea%(s%,r%):�:�

�,� max. size anim window title = 19 chars

�� +0

�� "brain","09,the brain"

�� "mouth","09,the mouth"

�� "eye","07,the eye"

�%� "endo","19,the pituitary gland"

�'� "nosetong","17,the nose & tongue"

�%� "artvein","16,arteries & veins"

�� "skin","13,touch sensors"

�� "heart","09,the heart"

�� "bone","05,bones"

�� "kidney","11,the kidneys"

�#� "liver","16,liver & pancreas"

�� "joint","06,joints"

� � "stomach","11,the stomach"

�%� "lungs","18,respiratory system"

�"� "repcoup","14,making a baby"

�&� "bladder","17,bladder & urethra"

�� "lymph","11,lymph nodes"

�)� "smintest","17,the small intestine"

�)� "lgintest","17,the large intestine"

�&� "repfemal","16,ovaries & uterus"

�#� "repmale","14,penis & testes"

�� "ear","07,the ear"

�$� "muscle","16,skeletal muscles"

�� "nerves","06,nerves"

�� "skin","12,sweat glands"

�-� s%=0�24:� r%=0�1:� animfile$(s%,r%):�:�

�� +0

�� brai,mout,eye,pitu,nose,artv,skin,hear,bone,kidn,live,join,stom,lung,sex,blad,lymp,smin,lgin,fema,male,ear,musc,nerv,swea

�� s%=0�24:� bwfile$(s%):�

�� +0

�7� 2,5,2,1,3,2,1,4,2,2,2,2,2,2,6,2,2,2,2,2,2,1,2,2,2

ހ� 1=closer,cross_section  2=cross-section,closer 3=closer,new-view 4=x-section,circulation 5=new-view,closer 6=xs,childbirth

��s%=0�24:� buttype%(s%):�

�� +0

�#� body overview label line data

�� "09,0112,1132,0216,1056,0064,1020,0200,0890,0522,1260,0530,1160,0512,1406,0406,1378,0542,1048,0384,1236,0542,1048,0370,0900,0514,0780,0316,0734,0556,0780,0300,0824,0456,0842,0416,0818"

��� "11,0520,1342,0388,1336,0190,1428,0384,1386,0132,1132,0154,0868,0132,1368,0328,1354,0200,1253,0278,1292,0278,1292,0324,1288,0278,1292,0310,1332,0504,1254,0424,1200,0504,1254,0438,1178,0430,1116,0380,1156,0430,1116,0378,0926"

�� "09,0236,1248,0368,1184,0302,1216,0356,1164,0110,1132,0382,1082,0182,0697,0296,0716,0244,0708,0294,0748,0182,0697,0270,0788,0236,0756,0278,0776,0526,1170,0382,1138,0488,1012,0454,0972"

�Z� "04,0220,0874,0320,1070,0246,0924,0322,0980,0140,1260,0380,1220,0162,1312,0348,1298"

���DATA "09,0172,1366,0322,1312,0120,1076,0330,0986,0124,0968,0410,0944,0174,0700,0370,0828,0252,0748,0280,0832,0252,0748,0414,0762,0472,1172,0386,1170,0160,0812,0338,0928,0512,0950,0354,0910"

�� "12,0172,1366,0322,1312,0120,1076,0418,0942,0104,0968,0306,0956,0180,0708,0258,0758,0258,0758,0326,0848,0258,0758,0370,0796,0532,0666,0500,0852,0500,0852,0448,0834,0500,0852,0402,0902,0472,1172,0386,1170,0160,0812,0338,0928,0512,0950,0354,0910"

�Z� "04,0500,1042,0412,0918,0278,0756,0362,0726,0278,0756,0364,0694,0132,1132,0154,0868"

��� "10,0218,1310,0352,1342,0448,1262,0374,1208,0488,1170,0386,1140,0466,1042,0378,0988,0378,0988,0336,0956,0378,0988,0412,0962,0480,0706,0350,0652,0408,0676,0374,0650,0476,1412,0392,1360,0508,0940,0396,0918"

�F� "03,0260,0632,0364,0676,0308,0652,0350,0650,0464,0714,0366,0706"

�F� "03,0234,0632,0364,0734,0304,0690,0332,0728,0488,0719,0364,0707"

��� "10,0218,1310,0352,1342,0448,1262,0374,1208,0488,1170,0386,1140,0466,1042,0378,0988,0378,0988,0336,0956,0378,0988,0412,0962,0480,0706,0334,0726,0426,0714,0398,0730,0476,1412,0392,1360,0508,0940,0396,0918"

��s%=0�9:� ovlines$(s%):�

�� +0

�$� body system label icon numbers

�� "07,08,11,22,25,26,27,42"

�� "07,21,00,06,02,04,23,28"

�� "05,05,07,16,29,30"

�� "03,13,31,32"

�"� "08,01,10,12,17,18,33,34,43"

�� "03,09,15,24"

�� "07,03,37,29,38,40,41,43"

�� "02,20,35"

�� "02,19,36"

�� "07,03,37,29,38,39,41,43"

�!�s%=0�9:� systemlabels$(s%):�

�� +0

�&� "The Musculo-skeletal system :-"

�8� " - gives support and movement to the whole body;"

�1� " - protects delicate organs behind bones."

�� "The Nervous system :-"
(� " - controls most body processes;"

5� " - lets us understand and be aware of things."
%� "The Blood and Lymph system :-"
3� " - provides transport to nearly every cell;"
7� " - carries food, waste, oxygen, carbon dioxide,"
4� "   disease fighters, hormones and much more."
!� "The Respiratory system :-"
9� " - gives blood oxygen and removes carbon dioxide."
� "The Digestive system :-"
	9� " - breaks down food into chemicals used by cells."

� "The Excretory system :-"
-� " - cleans the body of waste material."
� "The Endocrine system :-"

9� " - secretes hormones that control body processes."
'� "The Male Reproductive system :-"
5� " - produces sperm to place inside the female."
)� "The Female Reproductive system :-"
*� " - produces eggs and grows babies."
�s%=0�21:� systwords$(s%):�
� +0
� spine 25 (simple)
�� "The spine or backbone is made of 26 small bones called vertebrae. Joints between the vertebrae allow the spine the bend easily."
� spine 25
�� "The spine or vertebral column or backbone is made of 26 small bones called vertebrae. Joints between the vertebrae enable the spine to bend."
� pelvis 26 (simple)
�� "The pelvis is a big ring of bone joined to the bottom of the spine and top of the leg bones. Females have a wider pelvis so babies can squeeze through the hole in the middle."
� pelvis 26
�� "The pelvis is a large ring of bone joined to the bottom of the spine and top of the leg bones. Females have a wider pelvis so babies can squeeze through the hole in the middle."
� ligaments 27 (simple)
�� "Ligaments are very strong 'cords'. They are made of strong fibres and join together many things such as two bones making a joint."
� ligaments 27
�� "Ligaments are very strong 'cords'. They are made of strong fibres and join together many things such as two bones making a joint."
 � spinal cord 28 (simple)
!�� "The spinal cord lies in the spine, in a hole that goes through each bone of the spine. The spinal cord is made of many nerves that join the brain with the rest of the body."
"� spinal cord 28
#�� "The spinal cord lies in the spine, in a hole that goes through each bone of the spine. The spinal cord is made of many nerves that join the brain with the rest of the body."
$� thymus 29 (simple)
%�� "The thymus is an important gland. It helps make white blood cells that travel in blood and lymph to fight diseases and keep us well."
&� thymus 29
'�� "The thymus is an important gland. It helps make white blood cells that travel in blood and lymph killing bacteria and viruses to keep us well."
(� spleen 30 (simple)
)D� "The spleen helps make white blood cells that fight diseases."
*� spleen 30
+�� "The spleen helps make white blood cells that fight diseases. It also destroys old red blood cells that no longer work properly."
,� trachea 31 (simple)
-�� "The trachea or windpipe is the tube from the back of the throat to the lungs. When we breath air goes through this tube."
.� trachea 31
/�� "The trachea or windpipe is the tube from the back of the throat to the lungs. When we breath air goes through this tube."
0� epiglottis 32 (simple)
1�� "The epiglottis is a small flap at the top of the trachea. It closes the top of the trachea when we swallow to stop food going into the lungs."
2� epiglottis 32
3�� "The epiglottis is a small flap of cartilage at the top of the trachea. It seals off the trachea when we swallow to stop food going into the lungs."
4� oesophagus 33 (simple)
5y� "The oesophagus is the tube from the back of the throat to the stomach. Food passes to the stomach down this tube."
6� oesophagus 33
7y� "The oesophagus is the tube from the back of the throat to the stomach. Food passes to the stomach down this tube."
8� gall bladder 34 (simple)
9l� "The gall bladder is a small hollow organ which stores a special juice made in the liver (see liver)."
:� gall bladder 34
;�� "The gall bladder is a small hollow organ which stores and concentrates bile, a special juice made in the liver (see liver)."
<� prostate 35 (simple)
=~� "The prostate gland makes a juice that mixes with the male sex cells (sperm) to help them live inside the woman's body."
>� prostate 35
?�� "The prostate gland makes an alkaline liquid that mixes with the male sex cells (sperm) to help them survive inside the woman's body."
@� vagina 36 (simple)
A�� "The vagina is a tube which joins a hole between a woman's legs to the uterus or womb. A baby being born comes out through this tube."
B� vagina 36
C�� "The vagina is a tube which joins a hole between a woman's legs to the uterus or womb. A baby being born comes out through this tube."
D� thyroid 37 (simple)
EQ� "The thyroid gland makes hormones that control how quickly cells use food."
F� thyroid 37
G\� "The thyroid gland makes hormones that control how quickly cells use glucose (sugar)."
H� adrenals 38 (simple)
If� "The two adrenal glands sit on the kidneys. They make hormones that help the body in many ways."
J� adrenals 38
Kf� "The two adrenal glands sit on the kidneys. They make hormones that help the body in many ways."
L� ovaries 39 (simple)
M�� "The two ovaries ripen one egg every month. The egg may become a baby. The ovaries also produce hormones that effect the woman's body."
N� ovaries 39
O�� "The two ovaries mature and release one egg every month. The egg may become a baby. The ovaries also produce hormones that effect the woman's body."
P� testes 40 (simple)
Q�� "The two testes produce millions of sperm a day. A sperm may join with an egg to start a baby. The testes also produce hormones that effect the man's body."
R� testes 40
S�� "The two testes produce millions of sperm a day. A sperm may join with an egg to start a baby. The testes also produce hormones that effect the man's body."
T� pineal gland 41 (simple)
UY� "The pineal gland makes hormones. The effects of the hormones are not fully clear."
V� pineal gland 41
W^� "The pineal gland makes hormones. The effects of the hormones are not fully understood."
X� skull 42 (simple)
Y�� "The 28 bones of the head are joined together to make the skull. The 2 main parts are the face and the cranium which holds the brain."
Z� skull 42
[�� "The 28 bones of the head are joined together to form the skull. The 2 main parts are the face and the cranium which contains and protects the brain."
\� pancreas 43 (simple)
]h� "The pancreas makes a special juice to digest food (see liver). The pancreas also makes hormones."
^� pancreas 43
_�� "The pancreas makes enzymes that digest food (see liver). The pancreas also makes hormones that control how much glucose (sugar) is in the blood feeding the body cells."
`/�s%=0�18:�r%=0�1:� orgjustwords$(s%,r%):�:�
a� +0
b/� 0,2,3,5,6,9,10,11,12,13,14,15,16,17,18,21
c/�s%=0�7:�t%=0�1:� systlinkwords%(s%,t%):�:�
d� +0
e"� "23,Musculo-skeletal system"
f!� "22,Nervous/sensory system"
g)� "30,Circulatory & Lymphatic system"
h� "18,Respiratory system"
i� "16,Digestive system"
j� "14,Urinary system"
k� "19,Reproductive system"
l� "16,Endocrine system"
m�s%=0�7:� systtit$(s%):�
n� +0
o8� 5,102,1404,5,84,1348,3,86,1348,9,48,1292,13,8,1236
p9� 13,22,1236,20,8,1120,5,52,1116,4,42,1120,6,464,1032
q6� 5,16,952,5,26,1012,7,26,1060,17,8,844,13,370,568
r6� 17,6,732,11,6,680,15,14,680,15,340,620,16,22,592
s;� 14,40,592,3,504,1320,6,468,1244,6,456,1244,19,16,1116
t<� 8,452,1028,8,454,760,12,398,828,12,398,1088,8,464,1144
u;� 8,464,1008,8,86,1232,12,42,1288,12,400,1144,12,24,784
v:� 8,456,704,8,456,704,8,422,1240,14,370,1028,8,448,684
w0� 8,448,684,12,398,1392,8,462,1384,8,464,916
x*�s%=0�43:�r%=0�2:� bodybox%(s%,r%):�:�
y� +0
z�� brain,mouth,eye,pituitary,"nose & tongue","artery & vein","touch sensors (skin)",heart,bone,kidney,liver,joint,stomach,"lungs & diaphragm","making a baby","bladder & urethra","lymph nodes","small intestine","large intestine","ovaries & uterus"
{�� "penis & testes",ear,muscle,nerves,"sweat glands (skin)",spine,pelvis,ligaments,"spinal cord",thymus,spleen,trachea,epiglottis,oesophagus,"gall bladder",prostate,vagina,thyroid,"adrenal glands",ovaries,testes,"pineal gland",skull,pancreas
| �s%=0�43:� bodyboxlab$(s%):�
}� +0
~�� 30,540,278,540,526,540,30,468,278,468,526,468,30,396,526,396,30,324,526,324,30,252,526,252,30,176,526,176,30,100,278,100,526,100,30,24,278,24,526,24
�� 74,540,324,540,574,540,78,468,324,468,582,468,52,396,592,396,36,324,620,324,36,252,620,252,52,176,596,176,66,100,324,100,592,100,28,324,324,24,568,24,30,552,394,552,30,16,394,16
�*�s%=0�43:�r%=0�1:� animbox%(s%,r%):�:�
�� +0
�'� 496,232,566,298,12 :REM mouth (1)
�+� 240,188,358,290,10 :REM pituitary (3)
�,� 256,428,366,522,8  :REM nosetongue (4)
�,� 352,244,398,290,14 :REM skin touch (6)
�&� 428,312,502,374,14 :REM bone (8)
�(� 352,464,382,590,8  :REM kidney (9)
�(� 472,376,506,410,14 :REM lungs (13)
�+� 288,200,442,330,8 :REM make baby (14)
�2� 312,140,362,178,14 :REM small intestine (17)
�)� 72,472,202,562,6   :REM female (19)
�(� 388,116,418,146,10  :REM male (20)
�&� 304,152,694,470,6  :REM ear (21)
�#�r%=0�4:� closercoords%(1,r%):�
�.�s%=3�4:�r%=0�4:� closercoords%(s%,r%):�:�
�#�r%=0�4:� closercoords%(6,r%):�
�.�s%=8�9:�r%=0�4:� closercoords%(s%,r%):�:�
�0�s%=13�14:�r%=0�4:� closercoords%(s%,r%):�:�
�$�r%=0�4:� closercoords%(17,r%):�
�0�s%=19�21:�r%=0�4:� closercoords%(s%,r%):�:�
�
�� +0
��� 52,488,48,424,62,488,58,424,72,488,68,424,102,488,98,424,112,492,108,428,122,492,118,428,152,496,148,432,162,500,168,432,172,504,178,436,202,512,206,500,208,520,212,512
�(�s%=0�10:�r%=0�3:� canal%(s%,r%):�:�
�� +0
��� 354,432,334,384,364,436,320,364,370,440,318,360,388,452,308,332,394,456,308,332,402,460,308,324,418,472,432,428,426,476,440,440,432,480,446,448,448,492,462,464,454,500,470,468,460,504,478,476
�e� 478,516,488,496,486,520,500,508,494,528,502,512,516,536,522,520,532,540,538,532,548,544,550,540
�*�s%=0�17:�r%=0�3:� cochlea%(s%,r%):�:�
�� +0
�� 153,103,132,88,145,91
�'�s%=0�2:�r%=0�1:� spark%(s%,r%):�:�
�� +0
�u� 2,52,10,55,19,57,27,59,36,62,44,64,52,67,59,70,68,73,75,75,84,75,89,73,95,71,101,69,107,67,113,65,119,63,126,62
�*�s%=0�17:�r%=0�1:� candpos%(s%,r%):�:�
�� +0
�@� -72,384,4,324,80,264,156,204,232,144,308,84,384,24,460,-36
�#� 476,392,72,-16,44,312,528,-60
��� 648,404,724,344,392,596,244,-4,320,-64,-40,516,216,324,292,264,368,204,444,144,700,-48,-12,188,-88,248,192,544,268,484,344,424,420,364,496,304,572,244,648,184,724,124
�"� 468,520,36,440,520,68,64,112
�)� s%=0�7:� r%=0�1:� axon1%(s%,r%):�:�
�(� s%=0�3:� r%=0�1:� cell%(s%,r%):�:�
�*� s%=0�20:� r%=0�1:� axon2%(s%,r%):�:�
�(� s%=0�3:� r%=0�1:� tail%(s%,r%):�:�
�� +0
�G� 4,89,10,94,16,99,28,104,21,109,39,108,27,120,56,128,65,135,74,142
�~� 3,12,10,18,20,22,16,28,31,26,22,39,51,47,64,57,77,67,90,77,103,87,116,97,129,107,141,113,135,119,152,120,141,131,173,141
�3� 120,3,128,2,129,18,140,7,159,27,169,35,179,43
�+� s%=0�9:� r%=0�1:� neuron1%(s%,r%):�:�
�,� s%=0�17:� r%=0�1:� neuron3%(s%,r%):�:�
�+� s%=0�6:� r%=0�1:� neuron5%(s%,r%):�:�
�� +0
�F� "032,91,024,87,016,84,014,77,014,68,017,61,026,59,036,59,045,56"
�1� "042,89,043,80,043,71,043,63,036,59,045,56"
�*� "048,89,046,80,046,71,046,62,052,53"
�*� "058,91,066,86,075,82,075,71,074,62"
�8� "064,91,056,86,051,85,046,80,046,71,046,62,052,53"
�#� "074,90,075,82,075,71,074,62"
�#� "081,90,078,82,078,71,078,59"
�1� "091,91,099,86,107,81,107,71,106,62,094,59"
�*� "096,90,086,86,078,82,078,71,078,59"
�*� "106,89,107,81,107,71,106,62,094,59"
�*� "112,89,110,81,110,71,109,61,099,55"
�8� "122,91,131,86,139,81,139,71,138,62,127,59,113,54"
�1� "128,90,119,86,110,81,110,71,109,61,099,55"
�1� "138,90,139,81,139,71,138,62,127,59,113,54"
�1� "144,90,142,81,142,71,141,61,129,56,120,51"
�F� "155,90,165,86,171,80,171,71,169,61,158,59,145,57,129,56,120,51"
�8� "160,90,151,86,142,81,142,71,141,61,129,56,120,51"
��s%=0�16:� olf1$(s%):�
�� +0
�T� "051,46,054,35,062,28,074,24,088,23,104,25,119,28,132,31,145,33,159,34,170,34"
�F� "073,48,073,38,079,30,093,27,110,29,123,32,138,34,152,35,165,36"
�?� "093,48,093,39,102,32,115,32,128,34,143,36,158,38,169,38"
�*� "115,45,121,36,135,37,149,39,164,40"
��s%=0�3:� olf2$(s%):�
�� +0
�'� 2,1,2,0,1,2,2,1,0,1,2,2,1,2,0,2,0
��s%=0�16:� smell%(s%):�
�� +0
�'� 0,0,0,1,0,1,1,2,1,2,2,3,2,3,3,3,3
��s%=0�16:� whicholf2%(s%):�
�� +0
�� 7,7,9,9,11,6,17,14,11,7,7
��s%=0�10:� spkmax%(s%):�
�� +0
�0� 60,57,68,57,66,65,66,76,65,86,67,96,66,106
�H� 87,97,85,106,105,98,90,114,103,107,108,114,124,114,140,114,156,114
�T� 75,78,86,84,80,94,78,105,82,114,93,114,105,114,117,114,128,114,140,114,152,114
�3� 120,78,125,94,123,105,132,114,142,114,152,114
�z� 39,71,52,70,63,72,48,83,56,82,51,94,50,105,49,116,40,123,54,123,67,122,85,123,99,123,112,122,130,123,144,123,157,122
�(�s%=0�6:�r%=0�1:� skpain%(s%,r%):�:�
�)�s%=0�8:�r%=0�1:� skpress%(s%,r%):�:�
�*�s%=0�10:�r%=0�1:� skheat1%(s%,r%):�:�
�)�s%=0�5:�r%=0�1:� skheat2%(s%,r%):�:�
�*�s%=0�16:�r%=0�1:� sktouch%(s%,r%):�:�
�� +0
�� 76,32,77,107,69,53,80,82,95,88,90,65,94,45,115,45,53,45,132,62,47,57,103,59,113,75,111,81,84,48,88,31,77,8,77,129,30,45,7,45,5,57,26,57,89,8
�'�s%=0�22:�r%=0�1:� harr%(s%,r%):�:�
�� +0
�� "diast,000,000,13.."
�+� "arr16,077,008,15,arr17,077,129,15.."
�<� "diast,000,000,13,arro0,076,032,15,arro1,077,107,15.."
�+� "diast,000,000,13,arro2,069,053,15.."
�+� "diast,000,000,13,arro3,080,082,15.."
�+� "diast,000,000,13,arro4,095,088,15.."
�+� "diast,000,000,13,arro5,090,065,15.."
�+� "diast,000,000,13,arro6,094,045,15.."
�<� "diast,000,000,13,arro7,115,045,15,arro8,053,045,15.."
�+� "diast,000,000,13,arr18,030,045,15.."
�+� "diast,000,000,13,arr19,007,045,15.."
�� "diast,000,000,13.."
�+� "diast,000,000,13,arr20,005,057,15.."
�+� "diast,000,000,13,arr21,026,057,15.."
�<� "diast,000,000,13,arro9,132,062,15,arr10,047,057,15.."
�+� "diast,000,000,13,arr11,103,059,15.."
�+� "diast,000,000,13,arr12,113,075,15.."
�+� "diast,000,000,13,arr13,111,081,15.."
�+� "diast,000,000,13,arr14,084,048,15.."
�+� "diast,000,000,13,arr15,088,031,15.."
�+� "diast,000,000,13,arr22,089,008,15.."
�� "diast,000,000,13.."
�<� "diast,000,000,13,bloo1,067,055,00,ltkey,152,114,00.."
�M� "diast,000,000,13,ltkey,152,114,00,sysat,064,050,13,bloo2,068,059,00.."
�M� "diast,000,000,13,ltkey,152,114,00,sysat,064,050,13,bloo3,068,064,00.."
�^� "diast,000,000,13,ltkey,152,114,00,sysat,064,050,13,sysv1,066,070,13,bloo4,071,063,00.."
�M� "diast,000,000,13,ltkey,152,114,00,sysv2,066,059,13,bloo5,072,048,00.."
�M� "diast,000,000,13,ltkey,152,114,00,sysv2,066,059,13,bloo6,069,037,00.."
M� "diast,000,000,13,ltkey,152,114,00,sysv2,066,059,13,bloo7,053,031,00.."

<� "diast,000,000,13,ltkey,152,114,00,bloo8,000,000,00.."
<� "diast,000,000,13,ltkey,152,114,00,bloo9,000,000,00.."
<� "diast,000,000,13,ltkey,152,114,00,blo10,000,000,00.."
+� "diast,000,000,13,ltkey,152,114,00.."
<� "diast,000,000,13,ltkey,152,114,00,blo11,000,000,00.."
<� "diast,000,000,13,ltkey,152,114,00,blo12,000,000,00.."
<� "diast,000,000,13,ltkey,152,114,00,blo13,000,000,00.."
<� "diast,000,000,13,ltkey,152,114,00,blo14,061,043,00.."
	<� "diast,000,000,13,ltkey,152,114,00,bloo1,067,055,00.."

�s%=0�37:� hanim$(s%):�
� swal%(7,1)
� +0

8� 63,26,63,23,63,23,63,23,63,19,116,15,113,15,113,15
&�j%=0�7:�k%=0�1:� swal%(j%,k%):�:�
� skindel$(11)
�+0
W� sknerves,skarm,pinred,skpress,spark2,spark3,spine,pressure,touch,pain,heat,pierce
�s%=0�10:� skindel$(s%):�
� +0
>� 27,94,30,88,33,89,37,89,41,89,50,99,50,102,51,105,52,108
)�j%=0�8:�k%=0�1:� babyegg%(j%,k%):�:�
� +0
5� 24,20,22,15,34,13,44,13,56,16,66,20,75,25,81,32
(�j%=0�7:�k%=0�1:� peregg%(j%,k%):�:�
�

��event
"ș "Wimp_Poll",0,blk% � e%,eb%
Ȏ e% �
  � 0: �doingmove% �animate
#          �doingcloser% �closer
 )          �doingpinpart% �movepinpart
!  � 1: �redraw(!eb%)
"  � 2: �openwind(blk%)
#  � 3: �closewinds(blk%)
$+  � 4: �!eb%=pinoutlw%:�leavingpinoutlw
%,  � 5: �!eb%=pinoutlw%:�enteringpinoutlw
&2  � 6: �click(eb%!0,eb%!4,eb%!8,eb%!12,eb%!16)
';  � 7: �dragging%=1:�sendsavesprmess:�:�sendsavetxtmess
(  � 8: �keyevent
)  � 9: �menuselect
*  � 17,18: �receive
+  � 19: �receiveack
,�
-�
.
/��redraw(w%)
0Ȏ w% �
1  � systw%: �redrawsystw
2  � bodyw%: �redrawbodyw
3  � animw%: �redrawanimw
4"  � pinoutlw%: �redrawpinoutlw
5   : �redrawother
6�
7�
8
9��redrawother
:(ș "Wimp_RedrawWindow",,blk% � more%
;ȕ more%
<)ș "Wimp_GetRectangle",,blk% � more%:
=�
>�
?
@��redrawsystw
A!blk2%=!blk%
B)ș "Wimp_RedrawWindow",,blk2% � more%
C6spx%=blk2%!4-blk2%!20:spy%=(blk2%!16-blk2%!24)-936
Dȕ more%
E�isselected(setupw%,33)�
F! �sy%=0�7:�drawsystbut(sy%):�
G�
H
 �sy%=0�7
I4  �isselected(setupw%,37+sy%):�drawsystbut(sy%)
J �
K�
L*ș "Wimp_GetRectangle",,blk2% � more%:
M�
N�
O
P��drawsystbut(sy%)
Qyș "OS_SpriteOp",&134,sparea%,sysbut$((sy%*2)-system_on%(sy%)),spx%+sysb%(sy%,0),spy%+sysb%(sy%,1),0,scale%,coltrans%
R�
S
T��redrawbodyw
U(ș "Wimp_RedrawWindow",,blk% � more%
V>spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-(spscale%*1460)
Wȕ more%
XJș "OS_SpriteOp",&134,bodyarea%,"body",spx%,spy%,0,bodscale%,coltrans%
Y)ș "Wimp_GetRectangle",,blk% � more%:
Z�
[�
\
]��redrawanimw
^(ș "Wimp_RedrawWindow",,blk% � more%
_7spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
`ȕ more%
aGș "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
b)ș "Wimp_GetRectangle",,blk% � more%:
c�
d�
e
f��update_buttons(sy%)
g.!blk%=systw%:ș"Wimp_GetWindowState",,blk%
h2spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-936
ieblk%!4=sysbarea%(sy%,0):blk%!8=sysbarea%(sy%,1):blk%!12=sysbarea%(sy%,2):blk%!16=sysbarea%(sy%,3)
j(ș "Wimp_UpdateWindow",,blk% � more%
kȕ more%
l�drawsystbut(sy%)
m(ș "Wimp_GetRectangle",,blk% � more%
n�
o�
p
q��keyevent
r{�((!blk%<>sabodyw%)�(!blk%<>saanimw%)�(!blk%<>edboxw%)�(!blk%<>setupw%))�((blk%!24)<>13):ș "Wimp_ProcessKey",blk%!24:�
sA�(!blk%=edboxw%)�((blk%!4)<>2):ș "Wimp_ProcessKey",blk%!24:�
tU�((!blk%=sabodyw%)�(!blk%=saanimw%))�((blk%!4)<>1):ș "Wimp_ProcessKey",blk%!24:�
uA�(!blk%=setupw%)�((blk%!4)<>7):ș "Wimp_ProcessKey",blk%!24:�
vȎ !blk% �
w � sabodyw%:
xq   � ��geticnstring(sabodyw%,1),".")=0:�error("To save, drag the SpriteFile icon to a directory display",0):�
yL   �savespritefile(�geticnstring(sabodyw%,1),0,0):ș"Wimp_CreateMenu",-1
z � saanimw%:
{q   � ��geticnstring(saanimw%,1),".")=0:�error("To save, drag the SpriteFile icon to a directory display",0):�
|L   �savespritefile(�geticnstring(saanimw%,1),0,0):ș"Wimp_CreateMenu",-1
} � edboxw%:
~n   � ��geticnstring(edboxw%,2),".")=0:�error("To save, drag the TextFile icon to a directory display",0):�
I   �savetextfile(�geticnstring(edboxw%,2),0,0):ș"Wimp_CreateMenu",-1
� � setupw%:
�s   pw$=�converttolower(�geticnstring(setupw%,7)):�pw$="coitus":sexon%=-1:�removesex(�):�:sexon%=0:�removesex(�)
��
��
�
�ݤreadsysvar(a$)
�Oș "OS_ReadVarVal",a$,blk%,256,0,0 � ,,a%:a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
�=a$
�
�ݤwimpscrapexists
�8ș "XOS_ReadVarVal","Wimp$Scrap",blk%,256,0,0 � ;fl%
�N�(fl%�%1)=%1:�error("Wimp$Scrap not defined. Data transfer aborted.",0):=0
�=-1
�
���open_systw
��isopen(overw%)�
�1!blk2%=overw%:ș "Wimp_GetWindowState",,blk2%
��closewind(blk%)
�4�(blk2%!16)-(blk2%!8)>936:blk2%!8=(blk2%!16)-936
�"!blk2%=systw%:�openwind(blk2%)
��
�/!blk%=systw%:ș "Wimp_GetWindowState",,blk%
�O� firsttime% blk%!4=0:blk%!8=44:blk%!12=568:blk%!16=983:blk%!20=0:blk%!24=0
�blk%!28=-1:�openwind(blk%)
�笤isopen(bodyw%) �
�` � firsttime% firsttime%=�:blk%!4=614:blk%!8=44:blk%!12=1279:blk%!16=983:blk%!20=0:blk%!24=0
�, !blk%=bodyw%:blk%!28=-1:�openwind(blk%)
��
��
��checksystsex:�plotbodysyst
��
�
���open_overw
�!�labelson%<10:�removebodylabs
�1!blk2%=systw%:ș "Wimp_GetWindowState",,blk2%
�%�isopen(systw%):�closewind(blk%)
�"!blk2%=overw%:�openwind(blk2%)
��checksex:�plotbodyorgs
��
�
���open_detw
�!!blk%=overw%:�closewind(blk%)
�.!blk%=detw%:ș "Wimp_GetWindowState",,blk%
�_blk%!4=0:blk%!8=136:blk%!12=568:blk%!16=1023:blk%!20=0:blk%!24=0:blk%!28=-1:�openwind(blk%)
��
�
���open_setupw
�� j%,wasopen%
��isopen(setupw%)�
�3 !blk2%=setupw%:ș "Wimp_GetWindowState",,blk2%
�  �closewind(blk%):wasopen%=�
��
�/ ș "Wimp_GetPointerInfo",,blk2%:wasopen%=�
��
��isselected(setupw%,47)�
�& �j%=9�30:�hideicn(setupw%,j%,�):�
�% �j%=0�8:�hideicn(setupw%,j%,�):�
�' �j%=31�44:�hideicn(setupw%,j%,�):�
� �changesetupextent(300)
�[ �wasopen%:blk%!8=blk2%!4:blk%!16=(blk%!8)+300:�:blk%!16=blk2%!16:blk%!8=(blk%!16)-300
� blk%!24=0
��
�& �j%=9�30:�hideicn(setupw%,j%,�):�
�% �j%=0�8:�hideicn(setupw%,j%,�):�
�' �j%=31�44:�hideicn(setupw%,j%,�):�
� �changesetupextent(180)
�[ �wasopen%:blk%!8=blk2%!4:blk%!16=(blk%!8)+180:�:blk%!16=blk2%!16:blk%!8=(blk%!16)-180
� blk%!24=0
��
�!blk%=setupw%
�3�wasopen%:blk%!4=(!blk2%)-300:�:blk%!4=blk2%!4
�blk%!12=(blk%!4)+600
�
blk%!20=0
�blk%!28=-1
��openwind(blk%)
��
�
���openwind(b%)
�ș "Wimp_OpenWindow",,b%
��
�
���changesetupextent(siz%)
�-!blk%=0:blk%!4=-siz%:blk%!8=600:blk%!12=0
�#ș"Wimp_SetExtent",setupw%,blk%
��
�
���closewinds(b%)
�#ș "Wimp_GetPointerInfo",,blk2%
�currclosebut%=blk2%!8
��closewind(b%)
�Ȏ !b% �
�,  � systw%:!blk%=bodyw%:�closewind(blk%)
�0  � bodyw%:�isopen(systw%):�closewind(blk%)
�3              �isopen(overw%):�closewind(blk%)
�  � overw%:�open_systw
�9  � animw%:�selecticn(bodyw%,activeicn%,�):�initanimw
�D              �(currclosebut%=1)�(� �isopen(bodyw%)):�open_systw
�%  � defnw%:�selecticn(systw%,3,�)
�D              �(currclosebut%=1)�(� �isopen(bodyw%)):�open_systw
�6  � pinorgsw%:�isopen(pinoutlw%):�closewind(blk%)
�6  � pinoutlw%:�isopen(pinorgsw%):�closewind(blk%)
�E  � orgdefnw%:�selecticn(bodyw%,activeorgicn%,�):activeorgicn%=-1
��
��
�
���closewind(b%)
�ș "Wimp_CloseWindow",,b%
��
�
�ݤreadstring(p%)
�8�a$:a$="":ȕ (�(a$)<255)�(?p%>31):a$+=�(?p%):p%+=1:�
�=a$
�
���load_template(name$)
�Nwptrlist%!((windcount%-1)*4)=wptr1%:windptrlist%!((windcount%-1)*4)=wptr2%
�Tș "Wimp_LoadTemplate",,wptr1%,wptr2%,windind%+MAXWINDIND%,-1,name$,0 � ,,wptr2%
�C�name$="animate" animwtitle%=wptr1%!72:animwtitlesiz%=wptr1%+80
�D�name$="systdefn" systwtitle%=wptr1%!72:systwtitlesiz%=wptr1%+80
�>n%=wptr1%!84:�I%=0�(n%-1)*32�32:d%=wptr1%+88+I%:f%=(d%!16)
� �(f%�259)=258�
�6  �name$="pinorgs":d%!24=bodyarea%:�:d%!24=sparea%
� �
�, �(f%�259)=0 f%=(f%�&FFFF0FFF)�&00000000
�Z �(f%�259)=257 � d%!24<>-1 � 秤readstring(d%!24),"b0")<>0 f%=(f%�&FFFF0FFF)�&00000000
�Z �(f%�259)=257 � d%!24<>-1 � 秤readstring(d%!24),"b1")<>0 f%=(f%�&FFFF0FFF)�&00000000
�Z �(f%�259)=257 � d%!24<>-1 � 秤readstring(d%!24),"b2")<>0 f%=(f%�&0FFF0FFF)�&C0009000
�� �(f%�259)=259 �(name$="overview"�name$="systems"�name$="animate"�name$="bodyoutl"�name$="pinorgs") � f%=(f%�&FFFF0FFF)�&00003000
� �(f%�258)=2 �
  a$=�readstring(d%+20)

+  ș "XWimp_SpriteOp",40,,a$ � ,,,w%,h%
  �(w%�h%)=0�
-   f%=f%�256:$wptr2%=a$:?(wptr2%+(�a$))=0
;   d%!20=wptr2%:d%!24=sparea%:d%!28=�a$:wptr2%+=�(a$)+1
  �
 �

 d%!16=f%
�
	-wptr1%+=88+((wptr1%!84)*32):windcount%+=1

�


��baricon

$ibname%="frame1"
5�!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=62:blk%!16=96
4!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=84:blk%!16=72
Gblk%!20=&1000313A:blk%!24=ibname%:blk%!28=sparea%:blk%!32=�$ibname%
%ș "Wimp_CreateIcon",,blk% � ibh%
�



,��savespritefile(f$,fromdrag%,filetemp%)
� �
*��:� �:�error("Save failed. "+�$,0):�
� currmenu% = -2 �
 �makebodyforsapr(-1)
;�IFFNisopen(systw%)AND(FNno_systems_on=1):PROCbodyboxes
) sp$=�leaf(�geticnstring(sabodyw%,1))
/ ș"XOS_SpriteOp",&11A,bodyarea%,"body",sp$
& ș"OS_SpriteOp",&10C,bodyarea%,f$
/ ș"XOS_SpriteOp",&11A,bodyarea%,sp$,"body"
 >�IFFNisopen(systw%)AND(FNno_systems_on=1):PROCplotbodysyst
!3 �isopen(systw%):�plotbodysyst:�:�plotbodyorgs
"�
# �doingmove%�
$)  �isselected(saanimw%,5):�getbwfile
%  �makeanimforsapr(-1)
& �
'=�IFFNisselected(animw%,0)AND(NOTdoingmove%):PROCanimboxes
() sp$=�leaf(�geticnstring(saanimw%,1))
)/ ș"XOS_SpriteOp",&11A,animarea%,"anim",sp$
*& ș"OS_SpriteOp",&10C,animarea%,f$
+/ ș"XOS_SpriteOp",&11A,animarea%,sp$,"anim"
, �doingmove%�
-�  �isselected(saanimw%,5)�((activeicn%=4)�(activeicn%=7)�(activeicn%=13)�(activeicn%=14)�(activeicn%=15)�(activeicn%=17)�(activeicn%=23))�
.k   �Y%=0 test%=0:�:�floppy_disk("bodywise","$.!Bodywise."+animfile$(activeicn%,0)+"_c","",""):�error%=0
/Y   ș "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>."+animfile$(activeicn%,0)+"_c"
0b   ș "XOS_SpriteOp",&119,animarea%,"anim":ș "OS_SpriteOp",&10F,animarea%,"anim",1,384,154,12
1;   �addpalet(animarea%,"anim"):�makesprites(activeicn%)
2  �
3%  �makeorgan(activew%,activeicn%)
4R  �isselected(animw%,0):�addlines(0):�plotanim:�addlabels:�addwords(activew%)
5 �
6�� IFFNisselected(animw%,0)AND(NOTdoingmove%):PROCmakeorgan(activew%,activeicn%):PROCaddlines:PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
7�
8�RESTORE ERROR
9�fromdrag% �
:N �currmenu%=-2:�puticnstring(sabodyw%,1,f$):�:�puticnstring(saanimw%,1,f$)
;�
< �filetemp%<>-1�
=O  �currmenu%=-2:�puticnstring(sabodyw%,1,f$):�:�puticnstring(saanimw%,1,f$)
> �
?�
@!ș "Wimp_SetCaretPosition",-1
A�
B
C��getbwfile
DHș"XOS_SpriteOp",&118,detarea%,"bw"+�(activeicn%)+�(activew%) � ;fl%
E�(fl%�%1)=%1�
Fr �Y%=0 test%=0:�:�floppy_disk("bodywise","$.!Bodywise.body_bw_c."+bwfile$(activeicn%)+"_bw_c","",""):�error%=0
Gt �(activeicn%=4)�(activeicn%=7)�(activeicn%=13)�(activeicn%=14)�(activeicn%=15)�(activeicn%=17)�(activeicn%=23)�
Ha  ș "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>.body_bw_c."+bwfile$(activeicn%)+"_bw_c"
I �
Ja  ș "OS_SpriteOp",&10B,detarea%,"<BodyWise$chaindir>.body_bw_c."+bwfile$(activeicn%)+"_bw_c"
K �
L�
M�
N
O��makebodyforsapr(save%)
P� j%
Q�isopen(overw%)�
R �save%�
S9  �isselected(sabodyw%,5):�cl_body(15):�:�cl_body(0)
T �
U9  �isselected(prbodyw%,1):�cl_body(15):�:�cl_body(0)
V �
W3 �isselected(overw%,8)��isselected(overw%,25)�
X  startsp%=46:endsp%=maxsp%
Y �
Z  �isselected(overw%,5)�
[    startsp%=40:endsp%=maxsp%
\  �
]   �save%�
^c    �isselected(sabodyw%,5):�outlinebody:�:�add_sp(sparea%,"bodyoutl",bodyarea%,"body",0,0,16)
_   �
`c    �isselected(prbodyw%,1):�outlinebody:�:�add_sp(sparea%,"bodyoutl",bodyarea%,"body",0,0,16)
a   �
b   startsp%=0:endsp%=maxsp%
c  �
d �
e �j%=startsp%�endsp%
fl  �bodysp%(j%,0):�add_sp(sparea%,bodysp$(j%),bodyarea%,"body",bodysp%(j%,1),bodysp%(j%,2),bodysp%(j%,3))
g �
hI �isselected(overw%,8)��isselected(overw%,25)��isselected(overw%,5)�
i
  �save%�
j,   笤isselected(sabodyw%,5):�white_body
k  �
l,   笤isselected(prbodyw%,1):�white_body
m  �
n �
o�
p �save%�
qa  �isselected(sabodyw%,5):�outlinebody:�:�add_sp(sparea%,"bodyoutl",bodyarea%,"body",0,0,16)
r �
sa  �isselected(prbodyw%,1):�outlinebody:�:�add_sp(sparea%,"bodyoutl",bodyarea%,"body",0,0,16)
t �
u �j%=0�maxsp%
vn  �systbodysp%(j%):�add_sp(sparea%,bodysp$(j%),bodyarea%,"body",bodysp%(j%,1),bodysp%(j%,2),bodysp%(j%,3))
w �
x �no_systems_on=1�
yK  �(save%���isselected(sabodyw%,10))�(�save%���isselected(prbodyw%,6))�
z@   �(�system_on=7)�(�isselected(systw%,1)):�addbodylabels(8)
{@   �(�system_on=6)�(�isselected(systw%,1)):�addbodylabels(9)
|I   �(�system_on<6)�(�isselected(systw%,0)):�addbodylabels(�system_on)
}W   �save%:�bodyboxes(�isselected(sabodyw%,8)):�:�bodyboxes(�isselected(prbodyw%,4))
~  �
 �
��
��
�
���makeanimforsapr(save%)
�H�(save%��isselected(saanimw%,5))�((�save%)��isselected(pranimw%,1))�
�M �add_sp(detarea%,"bw"+�(activeicn%)+�(activew%),animarea%,"anim",0,0,16)
� �texton%:�addlines(-1)
��
� �texton%:�addlines(0)
��
�
�texton%�
�U �save%:�animboxes(�isselected(saanimw%,7)):�:�animboxes(�isselected(pranimw%,3))
��
��
�
�*��savetextfile(f$,fromdrag%,filetemp%)
�� �
�S��:� �:�error("Save of '"+�leaf(�geticnstring(edboxw%,2))+"' failed. "+�$,0):�
�
X=� f$
�Ȏ currmenu% �
�' � -3: �#X,�geticnstring(animw%,50)
�*          �#X,�geticnstring(animw%,51)
�@ � -4: �j%=0�totsysttxtlines%:�#X,�geticnstring(defnw%,j%):�
��
��#X
�� �
��fromdrag% �
�5�"SETTYPE "+f$+" fff":�puticnstring(edboxw%,2,f$)
��
�E �filetemp%<>-1:�"SETTYPE "+f$+" fff":�puticnstring(edboxw%,2,f$)
��
�!ș "Wimp_SetCaretPosition",-1
��
�
�ݤfiletype(a$)
�ș "XOS_File",5,a$ � a%
�=a%
�
�
��receive
�Ȏ eb%!16 �
�  � 0: quit% = �
�/  � 2: �j%=0�(!blk%-1)�4:blk2%!j%=blk%!j%:�
�          � blk2%!36=-1 �
�#           � �wimpscrapexists �
�            Ȏ dragging% �
�Y             � 1: �savespritefile(�readstring(blk2%+44),-1,blk2%!36):�sendloadsprmess
�W             � 2: �savetextfile(�readstring(blk2%+44),-1,blk2%!36):�sendloadtxtmess
�            �
�           �
�          �
�           Ȏ dragging% �
�X            � 1: �savespritefile(�readstring(blk2%+44),-1,blk2%!36):�sendloadsprmess
�V            � 2: �savetextfile(�readstring(blk2%+44),-1,blk2%!36):�sendloadtxtmess
�           �
�          �
�1  � 4: �blk%!12=myref%:ș"Wimp_CreateMenu",-1
�3  � 6: �dragging%=1:�ramfetchspr:�:�ramfetchtxt
�  � &400C1: �modechange
��
��
�
���ramfetchspr
�� area%
��firstramfetch%�
�" �j%=0�24�4:blk2%!j%=blk%!j%:�
� firstramfetch%=0
� �currmenu%=-2�
�  �makebodyforsapr(-1)
�=�  IFFNisopen(systw%)AND(FNno_systems_on=1):PROCbodyboxes
�*  sp$=�leaf(�geticnstring(sabodyw%,1))
�0  ș"XOS_SpriteOp",&11A,bodyarea%,"body",sp$
� �
�  �doingmove%�
�*   �isselected(saanimw%,5):�getbwfile
�   �makeanimforsapr(-1)
�  �
�-�  IFFNisselected(animw%,0):PROCanimboxes
�*  sp$=�leaf(�geticnstring(saanimw%,1))
�0  ș"XOS_SpriteOp",&11A,animarea%,"anim",sp$
� �
�" �j%=0�24�4:blk%!j%=blk2%!j%:�
��
�3�currmenu%=-2:area%=bodyarea%:�:area%=animarea%
�extaskh%=blk%!4
�(�(area%!12-rambytesdone%)<(blk%!24)�
�^ ș"Wimp_TransferBlock",taskh%,area%+rambytesdone%,extaskh%,blk%!20,area%!12-rambytesdone%
�< blk%!12=blk%!8:blk%!16=7:blk%!24=area%!12-rambytesdone%
�9 ș "Wimp_SendMessage",17,blk%,extaskh%:myref%=blk%!8
� rambytesdone%=area%!12-4
� �currmenu%=-2�
�*  sp$=�leaf(�geticnstring(sabodyw%,1))
�0  ș"XOS_SpriteOp",&11A,bodyarea%,sp$,"body"
�4  �isopen(systw%):�plotbodysyst:�:�plotbodyorgs
�@�  IFFNisopen(systw%)AND(FNno_systems_on=1):PROCplotbodysyst
� �
�*  sp$=�leaf(�geticnstring(saanimw%,1))
�0  ș"XOS_SpriteOp",&11A,animarea%,sp$,"anim"
�  �doingmove%�
�   �isselected(saanimw%,5)�((activeicn%=4)�(activeicn%=7)�(activeicn%=13)�(activeicn%=14)�(activeicn%=15)�(activeicn%=17)�(activeicn%=23))�
�l    �Y%=0 test%=0:�:�floppy_disk("bodywise","$.!Bodywise."+animfile$(activeicn%,0)+"_c","",""):�error%=0
�Z    ș "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>."+animfile$(activeicn%,0)+"_c"
�c    ș "XOS_SpriteOp",&119,animarea%,"anim":ș "OS_SpriteOp",&10F,animarea%,"anim",1,384,154,12
�<    �addpalet(animarea%,"anim"):�makesprites(activeicn%)
�   �
�&   �makeorgan(activew%,activeicn%)
�S   �isselected(animw%,0):�addlines(0):�plotanim:�addlabels:�addwords(activew%)
�  �
��  IFFNisselected(animw%,0):PROCmakeorgan(activew%,activeicn%):PROCaddlines:PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
� �
� ș"Wimp_CreateMenu",-1
��
�O ș"Wimp_TransferBlock",taskh%,area%+rambytesdone%,extaskh%,blk%!20,blk%!24
� blk%!12=blk%!8:blk%!16=7
�9 ș "Wimp_SendMessage",18,blk%,extaskh%:myref%=blk%!8
� rambytesdone%+=(blk%!24)
��
��
�
���ramfetchtxt
�� j%,a$
�!�j%=0�24�4:blk2%!j%=blk%!j%:�
�R�currmenu%=-3:begtxt%=0:�j%=50�51:�stringtotxtbuff(�geticnstring(animw%,j%)):�
�_�currmenu%=-4:begtxt%=0:�j%=0�totsysttxtlines%:�stringtotxtbuff(�geticnstring(defnw%,j%)):�
�!�j%=0�24�4:blk%!j%=blk2%!j%:�
�extaskh%=blk%!4
�'�(begtxt%-rambytesdone%)<(blk%!24)�
�R ș"Wimp_TransferBlock",taskh%,txtbuff%,extaskh%,blk%!20,begtxt%-rambytesdone%
�; blk%!12=blk%!8:blk%!16=7:blk%!24=begtxt%-rambytesdone%
9 ș "Wimp_SendMessage",17,blk%,extaskh%:myref%=blk%!8

 rambytesdone%=begtxt%
 ș"Wimp_CreateMenu",-1
�
D ș"Wimp_TransferBlock",taskh%,txtbuff%,extaskh%,blk%!20,blk%!24
 blk%!12=blk%!8:blk%!16=7
9 ș "Wimp_SendMessage",18,blk%,extaskh%:myref%=blk%!8
 rambytesdone%+=(blk%!24)
�
	�


��stringtotxtbuff(s$)
$(txtbuff%+begtxt%)=s$

1begtxt%+=�(s$):txtbuff%?begtxt%=10:begtxt%+=1
�

��receiveack
Ȏ eb%!16 �
=  � 3: �myref%=blk%!8:�receiverdied(�readstring(blk%+44))
1  � 4: �blk%!12=myref%:ș"Wimp_CreateMenu",-1
*  � 7: �myref%=blk%!8:�ramreceiverdied
�
�

��receiverdied(f$)
ș "XOS_File",6,f$
4�error("Data transfer failed: Receiver died.",0)
�

��ramreceiverdied
8�error("RAM data transfer failed: Receiver died.",0)
�
 
!��addpalet(area%,spn$)
"+ș"OS_SpriteOp",&118,area%,spn$ � ,,r2%
#:f%=(r2%+44):t%=sppalet%:�s%=0�31:!f%=!t%:t%+=4:f%+=4:�
$�
%
&��modechange
'Cș"Wimp_ReadPixTrans",&100,bodyarea%,"body",,,,scale%,coltrans%
(Cbodscale%!0=(scale%!0)*spscale%:bodscale%!4=(scale%!4)*spscale%
)/bodscale%!8=scale%!8:bodscale%!12=scale%!12
*W!pinscale%=!scale%:pinscale%!4=scale%!4:pinscale%!8=scale%!8:pinscale%!12=scale%!12
+�
,
-��error(msg$,errno%)
.�CLOSE#0
/*CHANNELVOICE 1 9
0!!errblk%=99:$(errblk%+4)=msg$
1.ș "Wimp_ReportError",errblk%,0,"Bodywise"
2�
3
4��discmess(msg$,errno%)
5�CLOSE#0
6*CHANNELVOICE 1 9
7!!errblk%=99:$(errblk%+4)=msg$
83ș "Wimp_ReportError",errblk%,%10000,"Bodywise"
9�
:
;��selecticn(w%,i%,f%)
<F!blk%=w%:blk%!4=i%:blk%!12=(1<<21):�f%=0 blk%!8=0:� blk%!8=blk%!12
= ș "Wimp_SetIconState",,blk%
>�
?
@��geticonstate(w%,i%)
A3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
B�
C
Dݤisselected(w%,i%)
E�geticonstate(w%,i%)
F =((blk%!24)�(1<<21))=(1<<21)
G
Hݤisopen(w%)
I+!blk%=w%:ș "Wimp_GetWindowState",,blk%
J =((blk%!32)�(1<<16))=(1<<16)
K
L��wintoscrn(b%)
M.!blk2%=!b%:ș "Wimp_GetWindowState",,blk2%
Nb%!8+=(blk2%!4)-(blk2%!20)
O b%!12+=(blk2%!16)-(blk2%!24)
Pb%!16+=(blk2%!4)-(blk2%!20)
Q b%!20+=(blk2%!16)-(blk2%!24)
R�
S
T2ݤleaf(f$) I%=�f$:ȕI%>1��f$,I%,1)<>"."I%-=1:�
U�f$,I%,1)="."I%+=1
V=�f$,I%)
W
Xݤconverttolower(a$)
Y� l%,b$,ch%:b$=""
Z
�l%=1��a$
[ch%=�(�a$,l%,1))
\!�(ch%>&40)�(ch%<&5B):ch%+=&20
]b$+=�ch%
^�
_=b$
`
aݤgeticnstring(w%,i%)
b3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
c=�readstring(blk%!28)
d
e��puticnstring(w%,i%,a$)
f3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
g$$(blk%!28)=a$:?((blk%!28)+�a$)=0
h3blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%
i�
j
k��sendsavesprmess
lKș "Wimp_GetPointerInfo",,blk%:x%=!blk%:y%=blk%!4:w%=blk%!12:i%=blk%!16
m !blk%=56:blk%!12=0:blk%!16=1
n/blk%!20=w%:blk%!24=i%:blk%!28=x%:blk%!32=y%
o3�currmenu%=-2:blk%!36=58*1024:�:blk%!36=30*1024
p-blk%!40=&FF9:$(blk%+44)=proposedfname$+�0
qQ�w%=-2:ș "Wimp_SendMessage",17,blk%,w%,i%:�:ș "Wimp_SendMessage",17,blk%,w%
r3myref%=blk%!8:rambytesdone%=4:firstramfetch%=-1
s�
t
u��sendsavetxtmess
vKș "Wimp_GetPointerInfo",,blk%:x%=!blk%:y%=blk%!4:w%=blk%!12:i%=blk%!16
w !blk%=56:blk%!12=0:blk%!16=1
x/blk%!20=w%:blk%!24=i%:blk%!28=x%:blk%!32=y%
y,�currmenu%=-3:blk%!36=360:�:blk%!36=1024
z-blk%!40=&FFF:$(blk%+44)=proposedfname$+�0
{Q�w%=-2:ș "Wimp_SendMessage",17,blk%,w%,i%:�:ș "Wimp_SendMessage",17,blk%,w%
|!myref%=blk%!8:rambytesdone%=0
}�
~
��sendloadsprmess
�blk2%!12=blk2%!8:blk2%!16=3
�5�currmenu%=-2:blk2%!36=58*1024:�:blk2%!36=30*1024
�m�(blk2%!20)=-2:ș "Wimp_SendMessage",18,blk2%,blk2%!20,blk2%!24:�:ș "Wimp_SendMessage",18,blk2%,blk2%!20
�myref%=blk2%!8
��
�
���sendloadtxtmess
�blk2%!12=blk2%!8:blk2%!16=3
�.�currmenu%=-3:blk2%!36=360:�:blk2%!36=1024
�m�(blk2%!20)=-2:ș "Wimp_SendMessage",18,blk2%,blk2%!20,blk2%!24:�:ș "Wimp_SendMessage",18,blk2%,blk2%!20
�myref%=blk2%!8
��
�
���startdrag(w%,i%,n$)
�proposedfname$=n$
�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
�?�wintoscrn(blk%):blk%!8-=4:blk%!12-=4:blk%!16+=4:blk%!20+=4
�Rblk%!4=5:blk%!24=0:blk%!28=0:blk%!32=2000:blk%!36=2000:ș "Wimp_DragBox",,blk%
��
�
���setupwclick(b%,i%)
�� j%,k%
�Ȏ i% �
�  � 2,3: �animbuts_onoff
�$            �isopen(orgdefnw%)�
�d             a$=�geticnstring(bodyw%,activeorgicn%):�(�(a$)>&60)�(�(a$)<&7B):�a$,1)=�(�(a$)-&20)
�o             �puticnstring(orgdefnw%,0,a$):�puticnstring(orgdefnw%,1,orgjustwords$(activeorgicn%-25,simp%))
�            �
�w  � 8: pw$=�converttolower(�geticnstring(setupw%,7)):�pw$="coitus":sexon%=-1:�removesex(�):�:sexon%=0:�removesex(�)
�  � 11,12:
�/       �isopen(pinorgsw%):�closewind(blk%)
�/       �isopen(pinoutlw%):�closewind(blk%)
�6       �i%=12:�j%=15�30:�selecticn(setupw%,j%,0):�
�       �i%=11:�randompin
�       �open_setupw
�8  � 15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30:
�/       �isopen(pinorgsw%):�closewind(blk%)
�/       �isopen(pinoutlw%):�closewind(blk%)
�D       �i%=29�:�isselected(setupw%,29):�selecticn(setupw%,30,�)
�D       �i%=30�:�isselected(setupw%,30):�selecticn(setupw%,29,�)
�       k%=0:�j%=15�30
�%        �isselected(setupw%,j%)�
�         k%+=1
�k         �k%=9:�selecticn(setupw%,i%,�):�discmess("Only 8 parts of the body may be chosen at once",0):�
�
        �
�       �
�       �(i%=29)�(i%=30)�
�M        ș"Wimp_ForceRedraw",setupw%,114,-412-(48*14)-96,158,-412-(48*14)
�       �
�W        ș"Wimp_ForceRedraw",setupw%,114,-412-(48*(i%-15))-48,158,-412-(48*(i%-15))
�       �
�.  � 33: �isopen(systw%):�closewinds(blk%)
�=           �j%=5�12:�hideicn(systw%,j%,�):�:�initsystbody
�           �open_setupw
�.  � 34: �isopen(systw%):�closewinds(blk%)
�           �j%=5�12
�Y            �isselected(setupw%,32+j%):�hideicn(systw%,j%,�):�:�hideicn(systw%,j%,�)
�           �
�)           �initsystbody:�open_setupw
�C  � 37,38,39,40,41,42,43,44: �isopen(systw%):�closewinds(blk%)
�\            �isselected(setupw%,i%):�hideicn(systw%,i%-32,�):�:�hideicn(systw%,i%-32,�)
�            �initsystbody
�Z            ș"Wimp_ForceRedraw",setupw%,76,-656-(48*(i%-37))-48,120,-656-(48*(i%-37))
�*  � 47: �open_setupw:�changetofullbody
�%  � 48: �open_setupw:�changetopin
��
��
�
���initsystbody
�� j%
�$�j%=0�maxsp%:systbodysp%(j%)=0:�
�9�j%=5�12:�selecticn(systw%,j%,�):system_on%(j%-5)=�:�
��
�
���sabodywclick(b%,i%)
�#ș "Wimp_GetPointerInfo",,blk2%
�*currmenubut%=blk2%!8:�currmenubut%=2:�
�Ȏ i% �
�V  � 0: �b%=64 �startdrag(sabodyw%,i%,�leaf(�geticnstring(sabodyw%,1))):dragging%=1
�
  � 2:
�q   � ��geticnstring(sabodyw%,1),".")=0:�error("To save, drag the SpriteFile icon to a directory display",0):�
�^   �savespritefile(�geticnstring(sabodyw%,1),0,0):� currmenubut%<>1:ș"Wimp_CreateMenu",-1
��
��
�
���prbodywclick(b%,i%)
�#ș "Wimp_GetPointerInfo",,blk2%
�*currmenubut%=blk2%!8:�currmenubut%=2:�
�;�i%=7:�printit:� currmenubut%<>1:ș"Wimp_CreateMenu",-1
��
�
���saanimwclick(b%,i%)
�#ș "Wimp_GetPointerInfo",,blk2%
�*currmenubut%=blk2%!8:�currmenubut%=2:�
�Ȏ i% �
�V  � 0: �b%=64 �startdrag(saanimw%,i%,�leaf(�geticnstring(saanimw%,1))):dragging%=1
�
  � 2:
�q   � ��geticnstring(saanimw%,1),".")=0:�error("To save, drag the SpriteFile icon to a directory display",0):�
�^   �savespritefile(�geticnstring(saanimw%,1),0,0):� currmenubut%<>1:ș"Wimp_CreateMenu",-1
��
��
�
���pranimwclick(b%,i%)
�#ș "Wimp_GetPointerInfo",,blk2%
�*currmenubut%=blk2%!8:�currmenubut%=2:�
�;�i%=5:�printit:� currmenubut%<>1:ș"Wimp_CreateMenu",-1
��
�
���edboxwclick(b%,i%)
�#ș "Wimp_GetPointerInfo",,blk2%
�*currmenubut%=blk2%!8:�currmenubut%=2:�
�Ȏ i% �
�
  � 0:
�n   � ��geticnstring(edboxw%,2),".")=0:�error("To save, drag the TextFile icon to a directory display",0):�
�\   �savetextfile(�geticnstring(edboxw%,2),0,0)::� currmenubut%<>1:ș"Wimp_CreateMenu",-1
�T  � 3: �b%=64 �startdrag(edboxw%,i%,�leaf(�geticnstring(edboxw%,2))):dragging%=2
��
��
�
���overwclick(b%,i%)
��toggleicnsel(overw%,i%)
�Ȏ i% �
�7  � 0: �changesex(overw%,0):�checksex:�plotbodyorgs
�7  � 1: �changesex(overw%,1):�checksex:�plotbodyorgs
�*  � 2: �bigsmall(overw%):�plotbodyorgs
�-  � 3: �open_systw:�selecticn(overw%,3,�)
�~�  WHEN 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27:PROCtoggleplot(i%):PROCchecksex:PROCplotbodyorgs
�7  � 6,7,8,9:�toggleplot(i%):�checksex:�plotbodyorgs
�

�

��systwclick(mx%,my%,b%,i%)
6�(i%<>5)�((i%<7)�(i%>12)):�toggleicnsel(systw%,i%)
Ȏ i% �
4  � -1,5,6,7,8,9,10,11,12: �checksystem(mx%,my%)
f  � 0: �changesex(systw%,0):�checksystsex:�system_on%(0)�system_on%(6)�system_on%(7):�plotbodysyst
f  � 1: �changesex(systw%,1):�checksystsex:�system_on%(0)�system_on%(6)�system_on%(7):�plotbodysyst
	*  � 2: �bigsmall(systw%):�plotbodysyst

  � 3: �systemtext(0)
-  � 4: �open_overw:�selecticn(systw%,4,�)
�

�

��defnwclick(mx%,my%,b%)
 �b%=2:�defnw_menu(mx%,my%):�
�

��bodywclick(mx%,my%,b%,i%)
<�(b%=2)�(� �isselected(systw%,2)):�bodyw_menu(mx%,my%):�
�toggleicnsel(bodyw%,i%)
"�(i%>=0)�(i%<25):�gocloser(i%)
(�(i%>=25)�(i%<=43):�justwordinfo(i%)
�

��animwclick(mx%,my%,b%,i%)
 �b%=2:�animw_menu(mx%,my%):�
�toggleicnsel(animw%,i%)
Ȏ i% �
  � 0: onlyfem%=0:�text
!  � 1: onlyfem%=0:�windowlev1
 !  � 2: onlyfem%=0:�windowlev2
!  � 3: onlyfem%=0
"%          �isselected(animw%,3)�
#l           �doingcloser%:doingcloser%=0:activew%=1:�showanim(activew%,activeicn%):�selecticn(animw%,2,�)
$1           doingmove%=�:firstmove%=�:�animate
%          �
&g           �showanim(activew%,activeicn%):�animateend:ș"Wimp_ForceRedraw",animw%,660,-700,780,-636
'          �
(�  � 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48:
)?        �activetxticn%>4 �selecticn(animw%,activetxticn%,�)
*G        �activetxticn%=i% activetxticn%=activew%:�:activetxticn%=i%
+$        �addwords(activetxticn%)
,  � 49: �animate
-�
.�
/
0��click(mx%,my%,but%,w%,i%)
1Ȏ w% �
2  � -2:
3    Ȏ but% �
4G      � 2: �master_menu("BodyWise","Info,Setup...,7Quit,",!eb%,256)
5>      � 4: �isselected(setupw%,48):�startpin:�:�startgame
6	    �
7&  � setupw%: �setupwclick(but%,i%)
8$  � overw%: �overwclick(but%,i%)
9,  � systw%: �systwclick(mx%,my%,but%,i%)
:,  � bodyw%: �bodywclick(mx%,my%,but%,i%)
;,  � animw%: �animwclick(mx%,my%,but%,i%)
<-�  WHEN pdboxw%: PROCpdboxwclick(but%,i%)
=&  � edboxw%: �edboxwclick(but%,i%)
>)  � defnw%: �defnwclick(mx%,my%,but%)
?2  � pinorgsw%: �pinorgswclick(mx%,my%,but%,i%)
@O  � pinoutlw%: �(pingotto%=2)�(pingotto%=9):�pinoutlwclick(mx%,my%,but%,i%)
A(  � sabodyw%: �sabodywclick(but%,i%)
B(  � prbodyw%: �prbodywclick(but%,i%)
C(  � saanimw%: �saanimwclick(but%,i%)
D(  � pranimw%: �pranimwclick(but%,i%)
E�
F�
G
H��animbuts_onoff
Iactivetxticn%=activew%
J:�isopen(animw%)�:�isselected(animw%,0) �removelabels
K.� �isselected(setupw%,3):simp%=1:�:simp%=0
Lb�isopen(animw%)�:�isselected(animw%,0) �addlines(0):�plotanim:�addlabels:�addwords(activew%)
M�
N
O��shadeicn(w%,i%,f%)
P$!blk%=w%:blk%!4=i%:blk%!12=1<<22
Q�f% blk%!8=1<<22:�:blk%!8=0
R ș "Wimp_SetIconState",,blk%
S�
T
U��toggleicnsel(w%,i%)
VB� �isselected(w%,i%) �selecticn(w%,i%,�):�:�selecticn(w%,i%,�)
W�
X
Y��toggleplot(i%)
Ztemp$=link$(i%-4):more%=�
[�
\.bodysp%(�(temp$),0)=�isselected(overw%,i%)
]3�(temp$)>2� temp$=�temp$,�(temp$)-3):�:more%=�
^
� � more%
_� check ureter
`P�(i%=23)�(i%=24):bodysp%(20,0)=�isselected(overw%,23)��isselected(overw%,24)
a� check pancreas
bP�(i%=21)�(i%=26):bodysp%(25,0)=�isselected(overw%,21)��isselected(overw%,26)
c�
d
e��systemtext(fromsystbut%)
f;笤isselected(systw%,3):!blk%=defnw%:�closewind(blk%):�
gB!blk2%=defnw%:ș"Wimp_GetWindowState",,blk2%:oldwpos%=blk2%!28
h�fromsystbut%�
ih �(((blk2%!12)-(blk2%!4))=800)�(((blk2%!16)-(blk2%!8))>=length%):wasfullwindow%=�:�:wasfullwindow%=�
j�
k!!blk%=defnw%:�closewind(blk%)
l�sortsystemtext
m�fromsystbut%�
n �wasfullwindow%�
o2  �(blk2%!16)<(length%+48):blk2%!16=length%+48
p   blk2%!8=(blk2%!16)-length%
q �
r@  �((blk2%!16)-(blk2%!8))>length%:blk2%!8=(blk2%!16)-length%
s  blk2%!24=0
t �
u�
v�!blk2%=defnw%:blk2%!4=240:blk2%!8=(1024-length%)/2:blk2%!12=240+800:blk2%!16=(blk2%!8)+length%:blk2%!20=0:blk2%!24=0:blk2%!28=-1
w�
x�openwind(blk2%)
y�
z
{��sortsystemtext
|l%=0
}�j%=0�7
~ �isselected(systw%,j%+5)�
3  �k%=systlinkwords%(j%,0)�systlinkwords%(j%,1)
�4   �puticnstring(defnw%,l%,systwords$(k%)):l%+=1
�  �
� �
��
�totsysttxtlines%=l%-1
��l%<22�
�, �j%=l%�21:�puticnstring(defnw%,j%,""):�
��
�length%=((40*l%)+8)
�O!blk%=0:blk%!4=-length%:blk%!8=800:blk%!12=0:ș"Wimp_SetExtent",defnw%,blk%
��
�
���checksex
�<bodysp%(3,0)=�isselected(overw%,4)��isselected(overw%,1)
�Wbodysp%(18,0)=(�isselected(overw%,26)��isselected(overw%,27))��isselected(overw%,1)
�>bodysp%(19,0)=�isselected(overw%,27)��isselected(overw%,1)
�bodysp%(43,0)=bodysp%(19,0)
�>bodysp%(21,0)=�isselected(overw%,27)��isselected(overw%,0)
�Wbodysp%(23,0)=bodysp%(21,0):bodysp%(37,0)=bodysp%(21,0):bodysp%(45,0)=bodysp%(21,0)
�Wbodysp%(44,0)=(�isselected(overw%,26)��isselected(overw%,27))��isselected(overw%,0)
�Vbodysp%(50,0)=(�isselected(overw%,8)��isselected(overw%,25))��isselected(overw%,1)
�bodysp%(51,0)=bodysp%(50,0)
�?bodysp%(33,0)=�isselected(overw%,12)��isselected(overw%,26)
�>bodysp%(46,0)=�isselected(overw%,8)��isselected(overw%,25)
�bodysp%(47,0)=bodysp%(46,0)
�bodysp%(48,0)=bodysp%(46,0)
�bodysp%(49,0)=bodysp%(46,0)
�bodysp%(53,0)=bodysp%(46,0)
��
�
���changesex(w%,i%)
�+�selecticn(w%,1-i%,��isselected(w%,i%))
�e� w%=overw% �selecticn(systw%,0,�isselected(overw%,0)):�selecticn(systw%,1,�isselected(overw%,1))
�e� w%=systw% �selecticn(overw%,0,�isselected(systw%,0)):�selecticn(overw%,1,�isselected(systw%,1))
��
�
���bigsmall(w%)
�9�w%=systw%:�selecticn(overw%,2,�isselected(systw%,2))
�9�w%=overw%:�selecticn(systw%,2,�isselected(overw%,2))
�!�labelson%<10:�removebodylabs
�.!blk%=bodyw%:ș"Wimp_GetWindowState",,blk%
�G!bodscale%=(!bodscale%)/spscale%:bodscale%!4=(bodscale%!4)/spscale%
��spscale%=1 �
�^blk%!20=2*blk%!20+((blk%!12-blk%!4)/2):blk%!24=2*blk%!24-((blk%!16-blk%!8)/2):� blk%!28=-1
�spscale%=2
��
�^blk%!20=(blk%!20-(blk%!12-blk%!4)/2)/2:blk%!24=(blk%!24+(blk%!16-blk%!8)/2)/2:� blk%!28=-1
��(blk%!20)<0 blk%!20=0
��(blk%!24)>0 blk%!24=0
�6�(blk%!12-blk%!4)>624 blk%!20=0:blk%!12=blk%!4+624
�8�(blk%!16-blk%!8)>1460 blk%!24=0:blk%!8=blk%!16-1460
�P�(blk%!4-blk%!20+624)<blk%!12 blk%!20=blk%!20-(blk%!12-(blk%!4-blk%!20+624))
�R�(blk%!16-blk%!24-1460)>blk%!8 blk%!24=blk%!24+((blk%!16-blk%!24-1460)-blk%!8)
�spscale%=1
��
�G!bodscale%=(!bodscale%)*spscale%:bodscale%!4=(bodscale%!4)*spscale%
�#!blk2%=bodyw%:�closewind(blk2%)
�e!blk2%=0:blk2%!4=-(1460*spscale%):blk2%!8=624*spscale%:blk2%!12=0:ș"Wimp_SetExtent",bodyw%,blk2%
��openwind(blk%)
��
�
���checksystem(mx%,my%)
�.!blk%=systw%:ș"Wimp_GetWindowState",,blk%
�2�(blk%!16)-(blk%!24)-my%>=68�:systclick%=0:�:�
�.�(blk%!16)-(blk%!24)-my%>=288:systclick%=2
�.�(blk%!16)-(blk%!24)-my%>=508:systclick%=4
�.�(blk%!16)-(blk%!24)-my%>=724:systclick%=6
�/�mx%-((blk%!4)-(blk%!20))>284:systclick%+=1
�f�systclick%<>1:�discmess("Only the Nervous system is available in this demonstration system.",0):�
�D�isselected(setupw%,34)�:笤isselected(setupw%,37+systclick%):�
�!�labelson%<10:�removebodylabs
��system_on%(systclick%)�
�? system_on%(systclick%)=�:�selecticn(systw%,systclick%+5,�)
�X �(systclick%=0)�(�no_systems_on>0):�togglesystplot(8):�:�togglesystplot(systclick%)
�l �system_on%(0)�(�no_systems_on=1):system_on%(0)=�:�togglesystplot(8):system_on%(0)=�:�togglesystplot(0)
��
�? system_on%(systclick%)=�:�selecticn(systw%,systclick%+5,�)
� �systclick%=0�
�?  �no_systems_on=1:�togglesystplot(0):�:�togglesystplot(8)
� �
�m  �system_on%(0)�(�no_systems_on=2):system_on%(0)=�:�togglesystplot(0):system_on%(0)=�:�togglesystplot(8)
�!  �togglesystplot(systclick%)
� �
��
��update_buttons(systclick%)
��checksystsex
��no_systems_on=0�
�0 �selecticn(systw%,3,�):�hideicn(systw%,3,�)
�3 �isopen(defnw%):!blk%=defnw%:�closewind(blk%)
�/ ș"Wimp_ForceRedraw",systw%,334,-56,430,-8
��
�+ �no_systems_on=1:�hideicn(systw%,3,�)
��
�*�isselected(systw%,3):�systemtext(-1)
��plotbodysyst
��
�
���togglesystplot(system%)
�$temp$=systlink$(system%):more%=�
��
�^�system%<8:systbodysp%(�(temp$))=system_on%(system%):�:systbodysp%(�(temp$))=system_on%(0)
�3�(temp$)>2� temp$=�temp$,�(temp$)-3):�:more%=�
�
� � more%
��
�
�ݤno_systems_on
�	on%=0
��m%=0�7
��system_on%(m%):on%+=1
��
�=on%
�
�ݤsystem_on
��m%=0�7
��system_on%(m%):=m%
��
�=9
�
���checksystsex
�6systbodysp%(3)=system_on%(0)��isselected(systw%,1)
�7systbodysp%(21)=system_on%(7)��isselected(systw%,0)
�#systbodysp%(23)=systbodysp%(21)
�#systbodysp%(37)=systbodysp%(21)
�#systbodysp%(45)=systbodysp%(21)
�Gsystbodysp%(44)=(system_on%(6)�system_on%(7))��isselected(systw%,0)
�Gsystbodysp%(18)=(system_on%(6)�system_on%(7))��isselected(systw%,1)
�7systbodysp%(19)=system_on%(7)��isselected(systw%,1)
�#systbodysp%(43)=systbodysp%(19)
/systbodysp%(46)=system_on%(1)�system_on%(5)

#systbodysp%(47)=systbodysp%(46)
#systbodysp%(48)=systbodysp%(46)
/systbodysp%(33)=system_on%(2)�system_on%(6)
/systbodysp%(25)=system_on%(4)�system_on%(6)
2�(labelson%<10)�(�system_on>5):�removebodylabs
�

��bodysystdefn
	�isopen(systw%)�

!!blk%=systw%:�closewind(blk%)
<!blk2%=systw%:ș"Wimp_GetWindowState",,blk2%:blk2%!28=-1
�

f!blk2%=systw%:blk2%!4=250:blk2%!8=500:blk2%!12=1030:blk2%!16=700:blk2%!20=0:blk2%!24=0:blk2%!28=-1
�
�activesysticn%>0�
�!systwtitlesiz%=5+�(systtit$(activesysticn%-26)):$systwtitle%="The "+�systtit$(activesysticn%-26),�(systtit$(activesysticn%-26))-3)
9�puticnstring(systw%,0,systwords$(activesysticn%-26))
�openwind(blk2%)
�
�

��justwordinfo(i%)
� a$
P笤isselected(bodyw%,i%):activeorgicn%=-1:!blk%=orgdefnw%:�closewind(blk%):�
:�activeorgicn%<>-1�:�selecticn(bodyw%,activeorgicn%,�)
activeorgicn%=i%
La$=�geticnstring(bodyw%,i%):�(�(a$)>&60)�(�(a$)<&7B):�a$,1)=�(�(a$)-&20)
b�puticnstring(orgdefnw%,0,a$):�puticnstring(orgdefnw%,1,orgjustwords$(activeorgicn%-25,simp%))
笤isopen(orgdefnw%)�
i !blk%=orgdefnw%:blk%!4=250:blk%!8=360:blk%!12=250+780:blk%!16=360+244:blk%!20=0:blk%!24=0:blk%!28=-1
 �openwind(blk%)
 �
!�
"
#��gocloser(i%)
$U笤isselected(bodyw%,i%):activeicn%=-1:!blk%=animw%:�closewind(blk%):�initanimw:�
%��activeicn%<>-1�:�selecticn(bodyw%,activeicn%,�):!blk%=animw%:ș"Wimp_GetWindowState",,blk%:oldhandl%=blk%!28:�closewind(blk%):�initanimw:wasopen%=�:�:wasopen%=�
&9� IFFNisopen(animw%):!blk%=animw%:PROCclosewind(blk%)
't!animwtitlesiz%=21+�(animfile$(i%,1)):$animwtitle%="The body in detail: "+�animfile$(i%,1),�(animfile$(i%,1))-3)
(activeicn%=i%:activew%=0
)d�buttype%(activeicn%)=1:�puticnstring(animw%,1,"closer"):�puticnstring(animw%,2,"cross-section")
*d�buttype%(activeicn%)=2:�puticnstring(animw%,1,"cross-section"):�puticnstring(animw%,2,"closer")
+_�buttype%(activeicn%)=3:�puticnstring(animw%,1,"closer"):�puticnstring(animw%,2,"new view")
,i�buttype%(activeicn%)=4:�puticnstring(animw%,1,"cross-section"):�puticnstring(animw%,2,"circulation")
-_�buttype%(activeicn%)=5:�puticnstring(animw%,1,"new view"):�puticnstring(animw%,2,"closer")
.`�buttype%(activeicn%)=6:�puticnstring(animw%,1,"closer"):�puticnstring(animw%,2,"pregnancy")
/)*Set BodyWise$chaindir <BodyWise$Dir>
0h�i%<24:wfile$="$.!Bodywise.wordfiles."+animfile$(i%,0)+"_w":�:wfile$="$.!Bodywise.wordfiles.sweat_w"
1h�i%<24:nfile$="$.!Bodywise.numbfiles."+animfile$(i%,0)+"_n":�:nfile$="$.!Bodywise.numbfiles.sweat_n"
2h�Y%=0 test%=0:�:�floppy_disk("bodywise","$.!Bodywise."+animfile$(i%,0)+"_c",wfile$,nfile$):�error%=0
3Nș "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>."+animfile$(i%,0)+"_c"
47ș "OS_SpriteOp",&10F,animarea%,"anim",1,384,154,12
50�addpalet(animarea%,"anim"):�makesprites(i%)
6%�getwordfile(i%):�getnumbfile(i%)
7�i%=20�
8- �sexon%:butdef%(1,3)=-1:�:butdef%(1,3)=0
9�
:9�showhidebuts(0,i%):�k%=0�3:�selecticn(animw%,k%,�):�
;K!blk%=0:blk%!4=-700:blk%!8=780:blk%!12=0:ș"Wimp_SetExtent",animw%,blk%
<�wasopen%�
=@!blk%=animw%:ș"Wimp_GetWindowState",,blk%:blk%!28=oldhandl%
>�
?e!blk%=animw%:blk%!4=250:blk%!8=162:blk%!12=250+780:blk%!16=162+700:blk%!20=0:blk%!24=0:blk%!28=-1
@�
A�openwind(blk%)
B�showanim(0,i%)
C�
D
E��getwordfile(i%)
F� t%,s%,u%
Gx�i%<24:wfile$="<BodyWise$chaindir>.wordfiles."+animfile$(i%,0)+"_w":�:wfile$="<BodyWise$chaindir>.wordfiles.sweat_w"
HX=� wfile$
I�s%=0�1:�t%=0�17:�u%=0�1
J�#X, words$(s%,t%,u%)
K	�:�:�
L�s%=0�1:�t%=0�5
M�#X, animwords$(s%,t%)
N�:�
O�#X
P�
Q
R��getnumbfile(i%)
S� t%,s%
Tx�i%<24:nfile$="<BodyWise$chaindir>.numbfiles."+animfile$(i%,0)+"_n":�:nfile$="<BodyWise$chaindir>.numbfiles.sweat_n"
UX=� nfile$
V�t%=0�1:�s%=0�2
W�#X, lines$(t%,s%)
X�:�
Y�t%=0�1:�s%=0�7
Z�#X, words%(t%,s%)
[�:�
\�t%=0�2:�s%=0�3
]�#X, butdef%(t%,s%)
^�:�
_�#X
`�
a
b��makesprites(i%)
cȎ i% �
dY � 2: �cl_anim(15):�add_sp(detarea%,"eyea",animarea%,"anim",50,76,15):�flip(1,"eyea")
e>         �add_sp(detarea%,"eyea",animarea%,"anim",50,9,15)
fV         ș "OS_SpriteOp",&10F,detarea%,"eye0",0,384,154,12:�copysp("anim","eye0")
gO         �add_sp(detarea%,"eyeb",animarea%,"anim",56,76,15):�flip(1,"eyeb")
h?         �add_sp(detarea%,"eyeb",animarea%,"anim",56,34,15)
iX         ș "OS_SpriteOp",&119,detarea%,"eyea":ș "OS_SpriteOp",&119,detarea%,"eyeb"
jV         ș "OS_SpriteOp",&10F,detarea%,"eye1",0,384,154,12:�copysp("anim","eye1")
kM � 4: �cl_anim(15):�add_sp(detarea%,"nosebulb",animarea%,"anim",16,11,15)
lV         � s%=0�4:�add_sp(detarea%,"olfcells",animarea%,"anim",16+(s%*32),67,15):�
m\         ș "OS_SpriteOp",&10F,detarea%,"noston1",0,384,154,12:�copysp("anim","noston1")
n`         �cl_anim(15):�add_sp(detarea%,"tongue",animarea%,"anim",55,14,15):�flip(2,"tongue")
oA         �add_sp(detarea%,"tongue",animarea%,"anim",93,14,15)
p�         ș "OS_SpriteOp",&119,detarea%,"tongue":ș "OS_SpriteOp",&119,detarea%,"nosebulb":ș "OS_SpriteOp",&119,detarea%,"olfcells"
q\         ș "OS_SpriteOp",&10F,detarea%,"noston2",0,384,154,12:�copysp("anim","noston2")
r| � 5: �cl_anim(15):�add_sp(detarea%,"av",animarea%,"anim",14,16,15):�add_sp(detarea%,"avmove",animarea%,"anim",14,16,13)
s�         �add_sp(detarea%,"heartarr",animarea%,"anim",6,76,15):�add_sp(detarea%,"artery",animarea%,"anim",6,6,15):�add_sp(detarea%,"vein",animarea%,"anim",7,132,15)
t�         ș "OS_SpriteOp",&119,detarea%,"avmove":ș "OS_SpriteOp",&10F,detarea%,"avmove",0,384,154,12:�copysp("anim","avmove")
uK � 6: �cl_anim(15):�add_sp(detarea%,"skback",animarea%,"anim",28,27,15)
v�         � s%=0�2:�add_sp(detarea%,"skxsect",animarea%,"anim",29+(s%*45),55,13):�add_sp(detarea%,"sknerves",animarea%,"anim",29+(s%*45),59,15):�
wZ         ș "OS_SpriteOp",&10F,detarea%,"skinxs",0,384,154,12:�copysp("anim","skinxs")
x� � 11:�cl_anim(15):�add_sp(detarea%,"scapula",animarea%,"anim",134,31,15):�add_sp(detarea%,"hum0",animarea%,"anim",104,22,15):�add_sp(detarea%,"humlig",animarea%,"anim",131,37,15)
yu         �add_sp(detarea%,"disthum",animarea%,"anim",54,83,15):�add_sp(detarea%,"ulna0",animarea%,"anim",9,63,15)
z\         ș "OS_SpriteOp",&10F,detarea%,"jointxs",0,384,154,12:�copysp("anim","jointxs")
{� � 13:�cl_anim(15):�add_sp(detarea%,"lungsbgrd",animarea%,"anim",11,15,15):�flip(2,"lungsbgrd"):�add_sp(detarea%,"lungsbgrd",animarea%,"anim",93,15,15)
|�         ș "OS_SpriteOp",&119,detarea%,"lungsbgrd":ș "OS_SpriteOp",&10F,detarea%,"lungsbgrd",0,384,154,12:�copysp("anim","lungsbgrd")
}^ � 15:�cl_anim(15):�add_sp(detarea%,"bladder",animarea%,"anim",28,5,15):�flip(2,"bladder")
~A         �add_sp(detarea%,"bladder",animarea%,"anim",96,5,15)
5         ș "OS_SpriteOp",&119,detarea%,"bladder"
�^         ș "OS_SpriteOp",&10F,detarea%,"bladder0",0,384,154,12:�copysp("anim","bladder0")
�W         �add_sp(detarea%,"bladderxs",animarea%,"anim",28,5,9):�flip(2,"bladderxs")
�B         �add_sp(detarea%,"bladderxs",animarea%,"anim",96,5,9)
�7         ș "OS_SpriteOp",&119,detarea%,"bladderxs"
�^         ș "OS_SpriteOp",&10F,detarea%,"bladder1",0,384,154,12:�copysp("anim","bladder1")
� � 23:�r%=0�1
�N         �expand("cell"+�(r%)):�expand("axon"+�(r%)):�expand("tail"+�(r%))
�E         ș"OS_SpriteOp",&10F,detarea%,"nerve"+�(r%),0,384,154,12
�:         ș"OS_SpriteOp",&13C,detarea%,"nerve"+�(r%),0
�3         �18,0,11:� 25,4,0;0;:� 25,101,768;616;
�^         � s%=0�7:ș"OS_SpriteOp",&122,detarea%,"axon"+�(r%),axon1%(s%,0),axon1%(s%,1),8:�
�\         � s%=0�3:ș"OS_SpriteOp",&122,detarea%,"cell"+�(r%),cell%(s%,0),cell%(s%,1),8:�
�_         � s%=0�20:ș"OS_SpriteOp",&122,detarea%,"axon"+�(r%),axon2%(s%,0),axon2%(s%,1),8:�
�\         � s%=0�3:ș"OS_SpriteOp",&122,detarea%,"tail"+�(r%),tail%(s%,0),tail%(s%,1),8:�
�.         ș"OS_SpriteOp",&13C,detarea%,0,0
�%         �anim_bdr("nerve"+�(r%))
��         ș"OS_SpriteOp",&119,detarea%,"cell"+�(r%):ș"OS_SpriteOp",&119,detarea%,"axon"+�(r%):ș"OS_SpriteOp",&119,detarea%,"tail"+�(r%)
�         �
�@ � 24:�r%=0�10:ș "OS_SpriteOp",&119,detarea%,skindel$(r%):�
�E         �r%=0�3:ș "OS_SpriteOp",&119,detarea%,"pinhead"+�(r%):�
�A         �r%=0�3:ș "OS_SpriteOp",&119,detarea%,"pin"+�(r%):�
�N         �cl_anim(15):�add_sp(detarea%,"skback",animarea%,"anim",28,27,15)
�U         � s%=0�2:�add_sp(detarea%,"skxsect",animarea%,"anim",29+(s%*45),55,13):�
�S         � s%=0�1:�add_sp(detarea%,"sweat",animarea%,"anim",53+(s%*63),54,15):�
�\         ș "OS_SpriteOp",&119,detarea%,"skxsect":ș "OS_SpriteOp",&119,detarea%,"sweat"
�Z         ș "OS_SpriteOp",&10F,detarea%,"skinxs",0,384,154,12:�copysp("anim","skinxs")
��
�C�PROCerror(animfile$(i%,0)+" "+STR$(!detarea%-(detarea%!12)),0)
��
�
���copysp(fromsp$,tosp$)
�_�fromsp$="anim" fromarea%=animarea%:toarea%=detarea%:�:fromarea%=detarea%:toarea%=animarea%
�(ș"OS_SpriteOp",&13C,toarea%,tosp$,0
�0ș"OS_SpriteOp",&122,fromarea%,fromsp$,0,0,0
�$ș"OS_SpriteOp",&13C,toarea%,0,0
��
�
���showanim(wlev%,i%)
��makeorgan(wlev%,i%)
�
�plotanim
��
�
���makeorgan(wlev%,i%)
�Ȏ i% �
�  � 0: �makebrain(wlev%)
�  � 1: �makemouth(wlev%)
�  � 2: �makeeye(wlev%)
�  � 3: �makepit(wlev%)
�  � 4: �makenose(wlev%)
�  � 5: �makeartv(wlev%)
�  � 6: �makeskin(wlev%)
�  � 7: �makeheart(wlev%)
�  � 8: �makebone(wlev%)
�  � 9: �makekidney(wlev%)
�  � 10: �makeliver(wlev%)
�  � 11: �makejoint(wlev%)
�  � 12: �makestomach(wlev%)
�  � 13: �makelungs(wlev%)
�  � 14: �makebaby(wlev%)
�  � 15: �makebladder(wlev%)
�  � 16: �makelymph(wlev%)
�   � 17: �makesmintest(wlev%)
�   � 18: �makelgintest(wlev%)
�  � 19: �makefemale(wlev%)
�  � 20: �makemale(wlev%)
�  � 21: �makeear(wlev%)
�  � 22: �makemuscle(wlev%)
�  � 23: �makenerves(wlev%)
�  � 24: �makesweat(wlev%)
��
��
�
���showhidebuts(wlev%,i%)
�a� shows or hides top 4 buttons of animw% dep on i% and windowlevel(0=top,1=xsection,2=closer)
�!blk%=animw%:blk%!12=1<<23
��k%=0�3
�
blk%!4=k%
�.�butdef%(wlev%,k%):blk%!8=0:�:blk%!8=1<<23
� ș "Wimp_SetIconState",,blk%
��
�.ș "Wimp_ForceRedraw",animw%,0,-112,780,-8
��
�
���removesex(fl%)
�*CHANNELVOICE 1 9
�4�IFfl%:butdef%(20,1,3)=0:ELSE:butdef%(20,1,3)=-1
ր�fl%:systemlabels$(7)="02,20,35":systemlabels$(8)="02,19,36":�:systemlabels$(7)="03,14,20,35":systemlabels$(8)="03,14,19,36"
׶�fl%:�discmess("Incorrect password. Parts of the Reproductive System are now hidden.",0):�:�discmess("Correct password. All parts of the Reproductive System are now viewable.",0)
�V�(�no_systems_on=1)�(�system_on=7):�hideicn(bodyw%,14,fl%):�selecticn(bodyw%,14,�)
�V�(�no_systems_on=1)�(�system_on=8):�hideicn(bodyw%,14,fl%):�selecticn(bodyw%,14,�)
�8�activeicn%=20:�selecticn(bodyw%,20,�):�gocloser(20)
�8�activeicn%=14:�selecticn(bodyw%,14,�):�gocloser(14)
�1ș"Wimp_ForceRedraw",bodyw%,370,-900,608,-848
��
�
�
��text
� �IFdoingmove% PROCanimateend
�T�isselected(animw%,0):texton%=-1:textnewon%=-1:�addtext:�:texton%=0:�removetext
�1�doingcloser%:doingcloser%=�:�changewindowlev
��
�
���removetext
�B!blk2%=animw%:ș"Wimp_GetWindowState",,blk2%:windpos%=blk2%!28
�activetxticn%=activew%
�#!blk2%=animw%:�closewind(blk2%)
�P!blk2%=0:blk2%!4=-700:blk2%!8=780:blk2%!12=0:ș"Wimp_SetExtent",animw%,blk2%
��doingmove%�
� �removelabels
� �doingcloser%:�closerboxes
� �plotanim
��
�.!blk%=animw%:ș"Wimp_GetWindowState",,blk%
�'blk%!8=blk%!16-700:blk%!28=windpos%
��openwind(blk%)
��
�
���removelabels
��words%(simp%,1)<>-1�
�~ �k%=words%(simp%,0)�words%(simp%,1):�hideicn(animw%,�(words$(simp%,k%,0)),�):�selecticn(animw%,�(words$(simp%,k%,0)),�):�
��
�0�doingmove%:�makeorgan(activew%,activeicn%)
��
�
�
��addtext
�B!blk2%=animw%:ș"Wimp_GetWindowState",,blk2%:windpos%=blk2%!28
�#!blk2%=animw%:�closewind(blk2%)
�P!blk2%=0:blk2%!4=-936:blk2%!8=780:blk2%!12=0:ș"Wimp_SetExtent",animw%,blk2%
��doingmove%�
$ �makeorgan(activew%,activeicn%)

 �doingcloser%:�closerboxes
: �addlines(0):�plotanim:�addlabels:�addwords(activew%)
�
< �puticnstring(animw%,50,""):�puticnstring(animw%,51,"")
�
.!blk%=animw%:ș"Wimp_GetWindowState",,blk%
:�blk%!16<936 blk%!16=936:blk%!8=0:�:blk%!8=blk%!16-936
blk%!24=0:blk%!28=windpos%
	�openwind(blk%)

�

��addlines(fromsaveprint%)

+ș"OS_SpriteOp",&13C,animarea%,"anim",0
ș"Wimp_SetColour",7
�fromsaveprint%�
W �((activeicn%=4)�(activew%=1))�((activeicn%=17)�(activew%>0)):ș"Wimp_SetColour",0
� �((activeicn%=6)�(activew%=2))�((activeicn%=17)�(activew%=0))�((activeicn%=19)�(activew%=0))�((activeicn%=20)�(activew%=0))�((activeicn%=20)�(activew%=2)):ș"Wimp_SetColour",11
�
0lin$=lines$(simp%,activew%):nolines%=�(lin$)
lin$=�lin$,�(lin$)-3)
�k%=1�nolines%
J�25,4,�(�lin$,1,3));�(�lin$,5,3));:�25,5,�(�lin$,9,3));�(�lin$,13,3));
N�25,4,�(�lin$,1,3))+2;�(�lin$,5,3));:�25,5,�(�lin$,9,3))+2;�(�lin$,13,3));
lin$=�lin$,�(lin$)-16)
�
&ș"OS_SpriteOp",&13C,animarea%,0,0
�

��addlabels
Fst%=words%(simp%,(activew%*2)+2):end%=words%(simp%,(activew%*2)+3)

�st%<>-1�
 �k%=st%�end%
!\�puticnstring(animw%,�(words$(simp%,k%,0)),�words$(simp%,k%,0),�(words$(simp%,k%,0))-3))
",�hideicn(animw%,�(words$(simp%,k%,0)),�)
#�
$�
%�
&
'��addwords(i%)
(q�i%<words%(simp%,0):�puticnstring(animw%,50,words$(simp%,i%,0)):�puticnstring(animw%,51,words$(simp%,i%,1)):�
)Fst%=words%(simp%,(activew%*2)+2):end%=words%(simp%,(activew%*2)+3)
*
�st%<>-1�
+�k%=st%�end%
,��IFVAL(words$(activeicn%,simp%,k%,0))=i%:PROCputicnstring(animw%,51,words$(activeicn%,simp%,k%,1)):PROCputicnstring(animw%,50,"Information - "+RIGHT$(words$(activeicn%,simp%,k%,0),LEN(words$(activeicn%,simp%,k%,0))-3))
-6titl$=�words$(simp%,k%,0),�(words$(simp%,k%,0))-3)
.<�(�(titl$)>&60)�(�(titl$)<&7B):�titl$,1)=�(�(titl$)-&20)
/l�(�(titl$)>&30)�(�(titl$)<&3A)�(�(�titl$,4,1))>&60)�(�(�titl$,4,1))<&7B):�titl$,4)=�(�(�titl$,4,1))-&20)
0h�(words$(simp%,k%,0))=i%:�puticnstring(animw%,51,words$(simp%,k%,1)):�puticnstring(animw%,50,titl$)
1�
2�
3�
4
5��windowlev1
6�doingmove% �animateend
7�isselected(animw%,1) �
8 activew%=1
9` � �geticnstring(animw%,1)="closer":doingcloser%=�:firstcloser%=�:�closer:�:�:doingcloser%=�
:�
;5 activew%=0:�selecticn(animw%,2,�):doingcloser%=�
<�
=�changewindowlev
>�
?
@��windowlev2
A�doingmove% �animateend
B�isselected(animw%,2) �
C activew%=2
D` � �geticnstring(animw%,2)="closer":doingcloser%=�:firstcloser%=�:�closer:�:�:doingcloser%=�
E�
F doingcloser%=�
GR �(activeicn%=1)�(activeicn%=4):activew%=0:�selecticn(animw%,1,�):�:activew%=1
H�
I�changewindowlev
J�
K
L��changewindowlev
M&�showhidebuts(activew%,activeicn%)
N�笤isselected(animw%,0) �showanim(activew%,activeicn%):�:�removelabels:�addlines(0):�plotanim:�addlabels:�addwords(activew%):activetxticn%=activew%
O�
P
Q��closer
RA�firstcloser%:clos%=0:firstcloser%=�:lasttime%=�:�closersetup
S
�clos%=1�
T �<lasttime%+100:�
U�
V �<lasttime%+10:�
W�
X�clos%=0:�closerbox
Y�clos%>0:�closerboxes
Z!�clos%=0:�plotanimcloserfirst
[2�(clos%>0)�(clos%<clnumb%):�plotanimcloserrest
\I�clos%=clnumb%:doingcloser%=�:�changewindowlev:�:lasttime%=�:clos%+=1
]X�IFclos%=clnumb%:doingcloser%=FALSE:PROCchangewindowlev:ELSE:lasttime%=TIME:clos%+=1
^�
_
`��closerbox
a+ș"OS_SpriteOp",&13C,animarea%,"anim",0
b?�18,0,7:� 25,4,clleft%;cllow%;:� 25,101,clright%;cllow%+10;
cZ� 25,101,clright%-10;clhigh%;:� 25,101,clleft%;clhigh%-10;:� 25,101,clleft%+10;cllow%;
dD�18,0,9:� 25,4,clleft%+4;cllow%+4;:� 25,101,clright%-4;cllow%+6;
e]� 25,101,clright%-6;clhigh%-4;:� 25,101,clleft%+4;clhigh%-6;:� 25,101,clleft%+6;cllow%+4;
f&ș"OS_SpriteOp",&13C,animarea%,0,0
gz�IFactiveicn%=1:PROCdullanim(12,clleft%,cllow%,clright%,clhigh%):ELSE:PROCdullanim(15,clleft%,cllow%,clright%,clhigh%)
h�
i
j��closerboxes
k+ș"OS_SpriteOp",&13C,animarea%,"anim",0
l4�VDU18,128,0:VDU23,12,0,9,9,0,0,9,9,0:VDU18,24,0
m�18,0,9
nl� 25,4,clleft%-(clos%*clle%);cllow%-(clos%*cllo%);:� 25,101,clright%+(clos%*clri%);cllow%-(clos%*cllo%);
or� 25,101,clright%+(clos%*clri%)-2;clhigh%+(clos%*clhi%);:� 25,101,clleft%-(clos%*clle%);clhigh%+(clos%*clhi%);
p:� 25,101,clleft%-(clos%*clle%)+2;cllow%-(clos%*cllo%);
q&ș"OS_SpriteOp",&13C,animarea%,0,0
rz�IFactiveicn%=1:PROCdullanim(12,clleft%,cllow%,clright%,clhigh%):ELSE:PROCdullanim(15,clleft%,cllow%,clright%,clhigh%)
s�
t
u��closersetup
v'clleft%=closercoords%(activeicn%,0)
w&cllow%=closercoords%(activeicn%,1)
x(clright%=closercoords%(activeicn%,2)
y'clhigh%=closercoords%(activeicn%,3)
z'clnumb%=closercoords%(activeicn%,4)
{clle%=(clleft%-8)/clnumb%
|cllo%=(cllow%-8)/clnumb%
} clri%=(760-clright%)/clnumb%
~clhi%=(608-clhigh%)/clnumb%
�
�
���plotbodyorgs
��cl_body(15)
�K�isselected(overw%,8)��isselected(overw%,25):startsp%=46:endsp%=maxsp%
�g�(��isselected(overw%,8))�(��isselected(overw%,25))��isselected(overw%,5):startsp%=40:endsp%=maxsp%
�p笤isselected(overw%,5)���isselected(overw%,8)���isselected(overw%,25):�outlinebody:startsp%=0:endsp%=maxsp%
��j%=startsp%�endsp%
�k �bodysp%(j%,0):�add_sp(sparea%,bodysp$(j%),bodyarea%,"body",bodysp%(j%,1),bodysp%(j%,2),bodysp%(j%,3))
��
�.!blk%=bodyw%:ș"Wimp_GetWindowState",,blk%
�>spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-(spscale%*1460)
�P!blk%=bodyw%:blk%!4=0:blk%!8=-(1460*spscale%):blk%!12=624*spscale%:blk%!16=0
�(ș "Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�Jș "OS_SpriteOp",&134,bodyarea%,"body",spx%,spy%,0,bodscale%,coltrans%
�(ș "Wimp_GetRectangle",,blk% � more%
��
��
�
���plotbodysyst
��cl_body(15):�outlinebody
��j%=0�maxsp%
�m �systbodysp%(j%):�add_sp(sparea%,bodysp$(j%),bodyarea%,"body",bodysp%(j%,1),bodysp%(j%,2),bodysp%(j%,3))
��
�%�(spscale%=1)�(�no_systems_on=1)�
�=�(�system_on=7)�(�isselected(systw%,1)):�addbodylabels(8)
�=�(�system_on=6)�(�isselected(systw%,1)):�addbodylabels(9)
�F�(�system_on<6)�(�isselected(systw%,0)):�addbodylabels(�system_on)
��
�.!blk%=bodyw%:ș"Wimp_GetWindowState",,blk%
�>spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-(spscale%*1460)
�P!blk%=bodyw%:blk%!4=0:blk%!8=-(1460*spscale%):blk%!12=624*spscale%:blk%!16=0
�(ș "Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�Jș "OS_SpriteOp",&134,bodyarea%,"body",spx%,spy%,0,bodscale%,coltrans%
�(ș "Wimp_GetRectangle",,blk% � more%
��
�?�(spscale%=1)�(�no_systems_on=1):�addbodylabbuts(labelson%)
��
�
���plotanim
�.!blk%=animw%:ș"Wimp_GetWindowState",,blk%
�7spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
�=!blk%=animw%:blk%!4=0:blk%!8=-700:blk%!12=780:blk%!16=-72
�(ș "Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�Gș "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
�(ș "Wimp_GetRectangle",,blk% � more%
��
��
�
���plotanimmove
�.!blk%=animw%:ș"Wimp_GetWindowState",,blk%
�7spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
�=!blk%=animw%:blk%!4=0:blk%!8=-700:blk%!12=660:blk%!16=-72
�(ș "Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�Gș "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
�(ș "Wimp_GetRectangle",,blk% � more%
��
�?!blk%=animw%:blk%!4=660:blk%!8=-636:blk%!12=780:blk%!16=-72
�(ș "Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�Gș "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
�(ș "Wimp_GetRectangle",,blk% � more%
��
��
�
���plotanimcloserfirst
�� j%
�.!blk%=animw%:ș"Wimp_GetWindowState",,blk%
�7spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
��j%=1�4
�!blk%=animw%
�M�j%=1:blk%!4=clleft%:blk%!8=cllow%:blk%!12=clright%+2:blk%!16=cllow%+10+4
�O�j%=2:blk%!4=clright%-10:blk%!8=cllow%:blk%!12=clright%+2:blk%!16=clhigh%+4
�O�j%=3:blk%!4=clleft%:blk%!8=clhigh%-10:blk%!12=clright%+2:blk%!16=clhigh%+4
�M�j%=4:blk%!4=clleft%:blk%!8=cllow%:blk%!12=clleft%+10+2:blk%!16=clhigh%+4
�;blk%!4+=6:blk%!8-=(76+616):blk%!12+=6:blk%!16-=(76+616)
�(ș "Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�Gș "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
�(ș "Wimp_GetRectangle",,blk% � more%
��
��
��
�
���plotanimcloserrest
�� j%
�.!blk%=animw%:ș"Wimp_GetWindowState",,blk%
�7spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
��j%=1�4
�!blk%=animw%
݂�j%=1:blk%!4=clleft%-(clos%*clle%):blk%!8=cllow%-(clos%*cllo%):blk%!12=clright%+(clos%*clri%)+2:blk%!16=cllow%-(clos%*cllo%)+4
ކ�j%=2:blk%!4=clright%+(clos%*clri%)-2:blk%!8=cllow%-(clos%*cllo%):blk%!12=clright%+(clos%*clri%)+2:blk%!16=clhigh%+(clos%*clhi%)+4
߄�j%=3:blk%!4=clleft%-(clos%*clle%):blk%!8=clhigh%+(clos%*clhi%):blk%!12=clright%+(clos%*clri%)+2:blk%!16=clhigh%+(clos%*clhi%)+4
��j%=4:blk%!4=clleft%-(clos%*clle%):blk%!8=cllow%-(clos%*cllo%):blk%!12=clleft%-(clos%*clle%)+2+2:blk%!16=clhigh%+(clos%*clhi%)+4
�;blk%!4+=6:blk%!8-=(76+616):blk%!12+=6:blk%!16-=(76+616)
�(ș "Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�Gș "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
�(ș "Wimp_GetRectangle",,blk% � more%
��
��
��
�
���addbodylabels(sy%)
�labelson%=sy%
�+ș"OS_SpriteOp",&13C,bodyarea%,"body",0
�ș"Wimp_SetColour",7
�'lin$=ovlines$(sy%):nolines%=�(lin$)
�lin$=�lin$,�(lin$)-3)
��k%=1�nolines%
�K�25,4,�(�lin$,1,4));�(�lin$,6,4));:�25,5,�(�lin$,11,4));�(�lin$,16,4));
�O�25,4,�(�lin$,1,4))+2;�(�lin$,6,4));:�25,5,�(�lin$,11,4))+2;�(�lin$,16,4));
�lin$=�lin$,�(lin$)-20)
��
�&ș"OS_SpriteOp",&13C,bodyarea%,0,0
��
�
���addbodylabbuts(sy%)
�+lin$=systemlabels$(sy%):nolabs%=�(lin$)
�lin$=�lin$,�(lin$)-3)
��k%=1�nolabs%
�$�hideicn(bodyw%,�(�lin$,1,2)),�)
�lin$=�lin$,�(lin$)-3)
��
��
	
	
��removebodylabs
	1lin$=systemlabels$(labelson%):nolabs%=�(lin$)
	lin$=�lin$,�(lin$)-3)
	�k%=1�nolabs%
	$�hideicn(bodyw%,�(�lin$,1,2)),�)
	b�(activeicn%<>�(�lin$,1,2)))�(activeorgicn%<>�(�lin$,1,2))):�selecticn(bodyw%,�(�lin$,1,2)),�)
	lin$=�lin$,�(lin$)-3)
	�
		labelson%=10
	
�
	
	��bodyboxes(words%)
	
+ș"OS_SpriteOp",&13C,bodyarea%,"body",0
	1lin$=systemlabels$(labelson%):nolabs%=�(lin$)
	lin$=�lin$,�(lin$)-3)
	�k%=1�nolabs%
	icno%=�(�lin$,1,2))
	� icno%>24�
	[ �activeorgicn%=icno%:�addbodyboxes(words%,9,7,icno%):�:�addbodyboxes(words%,1,3,icno%)
	!� PROCaddbodyboxes(1,2,icno%)
	�
	X �activeicn%=icno%:�addbodyboxes(words%,9,7,icno%):�:�addbodyboxes(words%,2,7,icno%)
	�
	lin$=�lin$,�(lin$)-3)
	�
	&ș"OS_SpriteOp",&13C,bodyarea%,0,0
	�
	
	/��addbodyboxes(words%,incol%,outcol%,icno%)
	ș"Wimp_SetColour",outcol%
	V�25,4,bodybox%(icno%,1);bodybox%(icno%,2);:�25,97,((bodybox%(icno%,0)*8)+12)*2;44;
	 v�(save%��isselected(sabodyw%,5))�(�save%��isselected(prbodyw%,1)):ș"Wimp_SetColour",incol%:�:ș"Wimp_SetColour",0
	!Y�25,4,bodybox%(icno%,1)+4;bodybox%(icno%,2)+4;:�25,97,((bodybox%(icno%,0)*8)+8)*2;36;
	"ș"Wimp_SetColour",7:�5
	#�icno%<25�
	$5 �25,4,bodybox%(icno%,1)+14;bodybox%(icno%,2)+36;
	%�
	&$ lenf%=24+(16*bodybox%(icno%,0))
	'Y �25,4,bodybox%(icno%,1)+((lenf%-(�(bodyboxlab$(icno%))*16))/2);bodybox%(icno%,2)+36;
	(�
	) �words%:� bodyboxlab$(icno%)
	*�4
	+�
	,
	-��animboxes(words%)
	.+ș"OS_SpriteOp",&13C,animarea%,"anim",0
	/Fst%=words%(simp%,(activew%*2)+2):end%=words%(simp%,(activew%*2)+3)
	0
�st%<>-1�
	1�k%=st%�end%
	2icno%=�(words$(simp%,k%,0))
	36icst$=�words$(simp%,k%,0),�(words$(simp%,k%,0))-3)
	4�IFsimp%=0THEN
	5)� PROCaddanimboxes(1,2,icno%-5,icst$)
	6	�ELSE
	7q �isselected(animw%,icno%):�addanimboxes(words%,9,7,icno%-5,icst$):�:�addanimboxes(words%,2,7,icno%-5,icst$)
	8
�ENDIF
	9�
	:�
	;&ș"OS_SpriteOp",&13C,animarea%,0,0
	<�
	=
	>5��addanimboxes(words%,incol%,outcol%,icno%,icst$)
	?
lenf%=120
	@�(icno%+5)<25:lenf%=216
	A�(icno%+5)>44:lenf%=344
	B�(icno%+5)=42:lenf%=232
	Cș"Wimp_SetColour",outcol%
	D?�25,4,animbox%(icno%,0);animbox%(icno%,1);:�25,97,lenf%;44;
	Ev�(save%��isselected(saanimw%,4))�(�save%��isselected(pranimw%,0)):ș"Wimp_SetColour",incol%:�:ș"Wimp_SetColour",0
	FE�25,4,animbox%(icno%,0)+4;animbox%(icno%,1)+4;:�25,97,lenf%-8;36;
	Gș"Wimp_SetColour",7:�5
	HK�25,4,animbox%(icno%,0)+((lenf%-(�(icst$)*16))/2);animbox%(icno%,1)+36;
	I�words%:� icst$
	J�4
	K�
	L
	M��submenu(m%,i%,h%)
	Nm%+=28+((i%-1)*24)
	Om%!4=h%
	P�
	Q
	R��setanimsprname
	S!sp$=�geticnstring(saanimw%,1)
	T"sp$=�sp$,�(sp$)-�(�leaf(sp$)))
	U� activew%=2 �
	V Ȏ activeicn% �
	W  � 1: sp$+="tooth"
	X  � 4: sp$+="tongue"
	Y  � 6: sp$+="skinnerves"
	Z  � 7: sp$+="circulate"
	[  � 8: sp$+="boneclose"
	\  � 9: sp$+="nephron"
	]  � 13: sp$+="alveoli"
	^  � 14: sp$+="baby"
	_  � 17: sp$+="villi"
	`  � 19: sp$+="ovary"
	a  � 20: sp$+="testis"
	b  � 21: sp$+="innerearxs"
	c �
	d�
	e Ȏ activeicn% �
	f:  � 3: �activew%=0:sp$+="pituitary":�:sp$+="pituitbig"
	g;  � 4: �activew%=0:sp$+="nosetongue":�:sp$+="noseclose"
	h3  � 6: �activew%=0:sp$+="armskin":�:sp$+="skin"
	i1  � 14: �activew%=0:sp$+="sex":�:sp$+="sexxs"
	j7  � 19: �activew%=0:sp$+="female":�:sp$+="femalexs"
	k3  � 20: �activew%=0:sp$+="male":�:sp$+="malexs"
	l4  � 21: �activew%=0:sp$+="ear":�:sp$+="innerear"
	m7  � 24: �activew%=0:sp$+="skin":�:sp$+="sweatgland"
	n<   : sp$+=animfile$(activeicn%,0):�activew%=1:sp$+="xs"
	o �
	p�
	q!�puticnstring(saanimw%,1,sp$)
	r�
	s
	t��setanimtxtname
	u sp$=�geticnstring(edboxw%,2)
	v"sp$=�sp$,�(sp$)-�(�leaf(sp$)))
	wȎ activeicn% �
	x � 3: sp$+="pituit"
	y � 4: sp$+="noseton"
	z � 14: sp$+="baby"
	{ � 17: sp$+="smint"
	| � 18: sp$+="lgint"
	} � 19: sp$+="female"
	~ � 20: sp$+="male"
	$ : sp$+=animfile$(activeicn%,0)
	��
	�&�puticnstring(edboxw%,2,sp$+"txt")
	��
	�
	���setdefntxtname
	� sp$=�geticnstring(edboxw%,2)
	�"sp$=�sp$,�(sp$)-�(�leaf(sp$)))
	�,�puticnstring(edboxw%,2,sp$+"systemtxt")
	��
	�
	���changesaprextent(w%,siz%)
	�-!blk%=0:blk%!4=-siz%:blk%!8=560:blk%!12=0
	�ș"Wimp_SetExtent",w%,blk%
	��
	�
	���defnw_menu(mx%,my%)
	��setdefntxtname
	�0�create_menu(menu%,"BodyWise","7Save text,")
	��submenu(menu%,1,edboxw%)
	�*ș "Wimp_CreateMenu",,menu%,mx%-64,my%
	�currmenu%=-4
	��
	�
	���animw_menu(mx%,my%)
	�/!blk%=saanimw%:ș "Wimp_DeleteWindow",,blk%
	�3ș "Wimp_CreateWindow",,wptrlist%!56 � saanimw%
	�/!blk%=pranimw%:ș "Wimp_DeleteWindow",,blk%
	�3ș "Wimp_CreateWindow",,wptrlist%!60 � pranimw%
	�#�setanimsprname:�setanimtxtname
	��doingmove%�
	�� �isselected(animw%,0):�changesaprextent(pranimw%,176):�changesaprextent(saanimw%,332):�:�changesaprextent(pranimw%,124):�changesaprextent(saanimw%,280)
	��
	�$ �changesaprextent(saanimw%,172)
	��
	���isselected(animw%,0):�create_menu(menu%,"BodyWise","Save,1Print,7Save text,"):�:�create_menu(menu%,"BodyWise","Save,1Print,78Save text,")
	�`�submenu(menu%,1,saanimw%):�submenu(menu%,3,edboxw%):�doingmove%:�submenu(menu%,2,pranimw%)
	�*ș "Wimp_CreateMenu",,menu%,mx%-64,my%
	�currmenu%=-3
	��
	�
	���bodyw_menu(mx%,my%)
	�/!blk%=sabodyw%:ș "Wimp_DeleteWindow",,blk%
	�3ș "Wimp_CreateWindow",,wptrlist%!48 � sabodyw%
	�/!blk%=prbodyw%:ș "Wimp_DeleteWindow",,blk%
	�3ș "Wimp_CreateWindow",,wptrlist%!52 � prbodyw%
	�esp$=�geticnstring(sabodyw%,1):sp$=�sp$,�(sp$)-�(�leaf(sp$))):�puticnstring(sabodyw%,1,sp$+"body")
	��isopen(overw%)�
	�D �changesaprextent(prbodyw%,124):�changesaprextent(sabodyw%,280)
	��
	�� �no_systems_on=1:�changesaprextent(prbodyw%,176):�changesaprextent(sabodyw%,332):�:�changesaprextent(prbodyw%,124):�changesaprextent(sabodyw%,280)
	��
	�1�create_menu(menu%,"BodyWise","Save,7Print,")
	�9�submenu(menu%,1,sabodyw%):�submenu(menu%,2,prbodyw%)
	�*ș "Wimp_CreateMenu",,menu%,mx%-64,my%
	�currmenu%=-2
	��
	�
	�"��master_menu(title$,m$,x%,y%)
	�!�create_menu(menu%,title$,m$)
	��submenu(menu%,1,infow%)
	��PROCsubmenu(menu%,2,msgw%)
	�2ș "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
	�currmenu%=-1
	��
	�
	���create_menu(m%,title$,m$)
	�
� i%,max%
	�$m%=title$
	�4m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!20=40:m%!24=0
	�i%=m%+28:max%=�(title$)-2
	��
	�  a%=�m$,",")
	�  i$=�m$,a%-1):!i%=0
	�  �:morecodes%=�
	�0    �i$,1)="0" !i%=(!i%)�%0001:morecodes%=�
	�0    �i$,1)="1" !i%=(!i%)�%0010:morecodes%=�
	�0    �i$,1)="2" !i%=(!i%)�%0100:morecodes%=�
	�0    �i$,1)="3" !i%=(!i%)�%1000:morecodes%=�
	�4    �i$,1)="7" !i%=(!i%)�%10000000:morecodes%=�
	�C    �i$,1)="8" i%!8=&07400021:i$=�i$,�(i$)-1):�:i%!8=&07000021
	�$    � morecodes% i$=�i$,�(i$)-1)
	�   � � morecodes%:$(i%+12)=i$
	�#  � (�(i$)+1)>max% max%=�(i$)+1
	�
  i%!4=-1
	�  m$ = �m$,a%+1)
	�  i% = i% + 24
	�
� m$ = ""
	�m%!16 = max%*16
	��
	�
	���menuselect
	�#ș "Wimp_GetPointerInfo",,blk2%
	�currmenubut%=blk2%!8
	�Ȏ currmenu% �
	�  � -1:
	�    Ȏ !eb% �
	�      � 0: �checkadjust
	�(      � 1: �open_setupw:�checkadjust
	�      � 2: quit%=�
	�	    �
	�  � -2:
	�    Ȏ !eb% �
	�      � 0: �checkadjust
	�      � 1: �checkadjust
	�	    �
	�  � -3:
	�    Ȏ !eb% �
	�      � 0: �checkadjust
	�#      � 1: �doingmove%:�printit
	�              �checkadjust
	�      � 2: �checkadjust
	�	    �
	�  � -4:
	�    Ȏ !eb% �
	�      � 0: �checkadjust
	�	    �
	��
	��
	�
	�
��printit
	�ș"XPDriver_Info" � ;fl%
	�X�(fl%�%1)=%1:�error("Printer application must be loaded to print from BodyWise",0):�
	�L�IF(currmenu%=-2)ANDFNisopen(systw%)AND(FNno_systems_on=1):PROCbodyboxes
	�'�(currmenu%=-2):�makebodyforsapr(0)
	�<�IF(currmenu%=-3)ANDFNisselected(animw%,0):PROCanimboxes
	��(currmenu%=-3)�
	� �doingmove%�
	�)  �isselected(pranimw%,1):�getbwfile
  �makeanimforsapr(0)

 �
�
�printer
��IF(currmenu%=-3)ANDFNisselected(animw%,0):PROCmakeorgan(activew%,activeicn%):PROCaddlines:PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
�(currmenu%=-3)�
 �doingmove%�
�  �isselected(pranimw%,1)�((activeicn%=4)�(activeicn%=7)�(activeicn%=13)�(activeicn%=14)�(activeicn%=15)�(activeicn%=17)�(activeicn%=23))�
k   �Y%=0 test%=0:�:�floppy_disk("bodywise","$.!Bodywise."+animfile$(activeicn%,0)+"_c","",""):�error%=0
	Y   ș "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>."+animfile$(activeicn%,0)+"_c"

b   ș "XOS_SpriteOp",&119,animarea%,"anim":ș "OS_SpriteOp",&10F,animarea%,"anim",1,384,154,12
;   �addpalet(animarea%,"anim"):�makesprites(activeicn%)
  �

%  �makeorgan(activew%,activeicn%)
R  �isselected(animw%,0):�addlines(0):�plotanim:�addlabels:�addwords(activew%)
 �
�
�(currmenu%=-2)�
3 �isopen(systw%):�plotbodysyst:�:�plotbodyorgs
�
O�IF(currmenu%=-2)ANDFNisopen(systw%)AND(FNno_systems_on=1):PROCplotbodysyst
�


��printer
�26
	ȑ0,0
0SCALE%!0=1:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1

�F%,E%
F%=�("printer:")
� �
?�ONERRORLOCAL:RESTORE ERROR:CLOSE#F%:OSCLI"FX229,0":ENDPROC
M��:� �:�#F%:�"FX229,0":�error(�$+" (Internal error code "+Þ+")"+�0,�):�
  ș"PDriver_SelectJob",F%,0,0
!� �
"r�ONERRORLOCAL:RESTORE ERROR:SYS"PDriver_AbortJob",F%:SYS"PDriver_SelectJob",E%:CLOSE#F%:OSCLI"FX229,0":ENDPROC
#~��:� �:ș"PDriver_AbortJob",F%:ș"PDriver_SelectJob",E%:�#F%:�"FX229,0":�error(�$+" (Internal error code "+Þ+")"+�0,�):�
$"!(pdrect%+0)=0:!(pdrect%+4)=0:
%Z�currmenu%=-2:!(pdrect%+8)=624:!(pdrect%+12)=1460:�:!(pdrect%+8)=768:!(pdrect%+12)=616
&L!(pdtrans%+0)=1<<16:!(pdtrans%+4)=0:!(pdtrans%+8)=0:!(pdtrans%+12)=1<<16
',�!(pdplot%+0)=128<<8:!(pdplot%+4)=512<<8
(!(pdplot%+0)=128<<8
)/ș"PDriver_PageSize" � r0,r1,r2,r3,r4,r5,r6
*-ș"PDriver_SetPageSize",,r1,r2,r3,0,r5,r6
+A�currmenu%=-2:!(pdplot%+4)=r6-600000:�:!(pdplot%+4)=r6-260000
,*�(pdplot%!4)<(512<<8):pdplot%!4=512<<8
-Bș"PDriver_GiveRectangle",0,pdrect%,pdtrans%,pdplot%,&FFFFFF00
.ș "OS_SpriteOp",&13C,0,0,1
/#ș"ColourTrans_InvalidateCache"
05ș"PDriver_DrawPage",1,pdrect2%,0,0 � copiesleft%
1ȕ copiesleft%<>0
2�pd_plot_screen
34ș"PDriver_GetRectangle",,pdrect2% � copiesleft%
4�
5ș"PDriver_EndJob",F%
6� �
7� �
8�#F%
95�SYS"OS_SpriteOp",&10F,AREA%,"blank",0,384,192,12
:*FX229,0
;�
<
=��pd_plot_screen
>�y%,p%,i%,f%,t%
?*FX229,1
@�FORy%=0TO768STEP256
A�FORy%=0TO864STEP96
Bș"PDriver_SelectJob",0,0,0
CJ�SYS"OS_SpriteOp",&110,AREA%,"blank",1,0,y%,1276,y%+256 TO r0%,r1%,r2%
DI�SYS"OS_SpriteOp",&110,AREA%,"blank",1,0,y%,1279,y%+96 TO r0%,r1%,r2%
E�currmenu%=-2�
F7ș"OS_SpriteOp",&118,bodyarea%,"body" � r0%,r1%,r2%
G�
H7ș"OS_SpriteOp",&118,animarea%,"anim" � r0%,r1%,r2%
I�
J0SCALE%!0=1:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1
K ș"PDriver_SelectJob",F%,0,0
L9f%=(r2%+44):t%=paltab%:�i%=0�15:!t%=!f%:t%+=4:f%+=8:�
M8ș"ColourTrans_SelectTable",12,paltab%,-1,-1,ctrans%
N�currmenu%=-2�
O<ș "OS_SpriteOp",&234,bodyarea%,r2%,0,0,0,SCALE%,ctrans%
P�
Q<ș "OS_SpriteOp",&234,animarea%,r2%,0,0,0,SCALE%,ctrans%
R�
S	�NEXT
T�
U
V��checkadjust
W7�currmenubut%=1:ș "Wimp_CreateMenu",,menu%,100,100
X�
Y
Zݤreadvduvar(a%)
[9!blk%=a%:blk%!4=-1:ș "OS_ReadVduVariables",blk%,blk%
\
=!blk%
]
^��startgame
_%�isopen(bodyw%):�closewind(blk%)
`�open_systw
a�
b
c��flip(fliptype%,spn$)
d�expand(spn$)
e4�fliptype%=1:ș "OS_SpriteOp",&121,detarea%,spn$
f4�fliptype%=2:ș "OS_SpriteOp",&12F,detarea%,spn$
gX�fliptype%=3:ș "OS_SpriteOp",&121,detarea%,spn$:ș "OS_SpriteOp",&12F,detarea%,spn$
h�compact(spn$)
i�
j
k4��floppy_disk(diskn$,sprpath$,worpath$,numpath$)
l� g%,h%,m%,no_h%,no_m%
mg%=0:h%=0:m%=0
n�
o��:� �:error%=1:test%=1:�
p�
q  error%=0:no_h%=0:no_m%=0
r  �test%=1 �
sB    �discmess("Please place the "+diskn$+" disc in drive 0",0)
t  �
u  *ADFS
v  *MOUNT 0
w%  ș"OS_GBPB",5,,input_disk_name%
x)  len_d_n%=?input_disk_name%:name$=""
y  �dn%=1�len_d_n%
zH  �?(input_disk_name%+dn%)>31:name$=name$+�(?(input_disk_name%+dn%))
{  �
|  �name$<>diskn$:error%=1
}
  test%=1
~*  �"SET BodyWise$chaindir $.!Bodywise"
%  ș "XOS_Find",&40,sprpath$ � g%
�>  �worpath$<>"":ș "XOS_Find",&40,worpath$ � h%:�:no_h%=-1
�>  �numpath$<>"":ș "XOS_Find",&40,numpath$ � m%:�:no_m%=-1
�-�g%�(h%�no_h%)�(m%�no_m%)�(error%=0):�#g%
��no_h%:�#h%
��no_m%:�#m%
�� �
��
�
�
��animate
�W�IFfirstmove%ANDFNisselected(animw%,0) PROCselecticn(animw%,0,FALSE):PROCremovetext
�\�firstmove%��isselected(animw%,0):�removelabels:�makeorgan(activew%,activeicn%):�addtext
�=�firstmove%:�hideicn(animw%,49,�):�selecticn(animw%,49,�)
�'笤isselected(animw%,49):�moveorgan
��
�
��DEFPROCanimate
�H�firstmove%��isselected(animw%,0) �selecticn(animw%,0,�):�removetext
�-�firstmove%:�stopon:�hideicn(animw%,49,�)
�+�(�isselected(animw%,49))�(� goonon%) �
� �goonon
��
�-�(�isselected(animw%,49))�goonon%:�stopon
��goonon%:�moveorgan
��
�
���moveorgan
�Ȏ activeicn% �
� � 1: �movemouth
� � 2: �moveeye
� � 4: �movenose
� � 5: �moveartv
� � 6: �moveskin
� � 7: �moveheart
� � 10: �moveliver
� � 11: �movejoint
� � 13: �movelungs
� � 14: �movebaby
� � 17: �movesmintest
� � 19: �movefemale
� � 20: �movemale
� � 21: �moveear
� � 22: �movemuscle
� � 23: �movenerves
��
��
�
���animateend
�=�selecticn(animw%,3,�):doingmove%=�:�hideicn(animw%,49,�)
�)�texton%:activetxticn%=activew%:�text
��
�
���ear(wlev%)
�Ȏ wlev% �
�# � 0: �makeear(wlev%):�plotanim
�# � 1: �makeear(wlev%):�plotanim
��
��
�
���makebrain(wlev%)
��cl_anim(15)
�Ȏ wlev% �
�s � 0: �add_sp(detarea%,"brain2",animarea%,"anim",16,24,15):�add_sp(detarea%,"brain1",animarea%,"anim",36,31,15)
�> � 1: �add_sp(detarea%,"brain2",animarea%,"anim",16,24,15)
��
��
�
���makemouth(wlev%)
�Ȏ wlev% �
�I � 0:�cl_anim(12):�add_sp(detarea%,"mouth",animarea%,"anim",38,10,15)
�I � 1:�cl_anim(15):�add_sp(detarea%,"mouthnv",animarea%,"anim",4,4,15)
�H � 2:�cl_anim(15):�add_sp(detarea%,"tooth",animarea%,"anim",46,9,15)
��
��
�
���makeeye(wlev%)
�"�copysp("eye"+�(wlev%),"anim")
��
�
���makepit(wlev%)
�I�cl_anim(15):�add_sp(detarea%,"pit"+�(wlev%),animarea%,"anim",5,7,15)
��
�
���makenose(wlev%)
�Ȏ wlev% �
�J � 0: �cl_anim(15):�add_sp(detarea%,"noston",animarea%,"anim",28,8,15)
�) : �copysp("noston"+�(wlev%),"anim")
��
��
�
���makeartv(wlev%)
�Ȏ wlev% �
ۭ � 0: �cl_anim(15):�add_sp(detarea%,"av",animarea%,"anim",14,16,15):�add_sp(detarea%,"artery",animarea%,"anim",6,6,15):�add_sp(detarea%,"vein",animarea%,"anim",7,132,15)
�S : �copysp("avmove","anim"):�add_sp(detarea%,"avxs",animarea%,"anim",61,16,15)
��
��
�
���makeskin(wlev%)
�Ȏ wlev% �
�J � 0: �cl_anim(15):�add_sp(detarea%,"skarm",animarea%,"anim",19,21,15)
� � 1: �cl_anim(15):�add_sp(detarea%,"skback",animarea%,"anim",28,27,15):�add_sp(detarea%,"skfront",animarea%,"anim",16,34,15)
�" � 2: �copysp("skinxs","anim")
��
��
�
���makeheart(wlev%)
��cl_anim(12)
�Ȏ wlev% �
�; � 0: �add_sp(detarea%,"heart",animarea%,"anim",6,5,13)
�q � 1: �add_sp(detarea%,"heart",animarea%,"anim",6,5,13):�add_sp(detarea%,"heartxs",animarea%,"anim",66,52,13)
�; � 2: �add_sp(detarea%,"diast",animarea%,"anim",0,0,13)
�         �s%=0�9:�add_sp(detarea%,"arro"+�(s%),animarea%,"anim",harr%(s%,0),harr%(s%,1),15):�:�s%=10�22:�add_sp(detarea%,"arr"+�(s%),animarea%,"anim",harr%(s%,0),harr%(s%,1),15):�
��
��
�
���makebone(wlev%)
�K�cl_anim(15):�add_sp(detarea%,"bone"+�(wlev%),animarea%,"anim",25,9,15)
��
�
���makekidney(wlev%)
��cl_anim(15)
�Ȏ wlev% �
�< � 0: �add_sp(detarea%,"kidney",animarea%,"anim",0,0,15)
�q � 1: �add_sp(detarea%,"kidney",animarea%,"anim",0,0,15):�add_sp(detarea%,"kidneyxs",animarea%,"anim",0,0,15)
�= � 2: �add_sp(detarea%,"nephron",animarea%,"anim",0,0,15)
��
��
�
���makeliver(wlev%)
B�cl_anim(15):�add_sp(detarea%,"liver",animarea%,"anim",6,6,15)

Ȏ wlev% �
> � 1:�add_sp(detarea%,"liverxs",animarea%,"anim",30,21,15)
�
�

��makejoint(wlev%)
Ȏ wlev% �
� � 0:�cl_anim(15):�add_sp(detarea%,"scapula",animarea%,"anim",134,31,15):�add_sp(detarea%,"joints",animarea%,"anim",9,37,15)
	" � 1:�copysp("jointxs","anim")

�
�


��makestomach(wlev%)
E�cl_anim(15):�add_sp(detarea%,"stomach",animarea%,"anim",27,7,15)
Ȏ wlev% �
> � 1:�add_sp(detarea%,"stomachxs",animarea%,"anim",27,7,9)
�
�

��makelungs(wlev%)
Ȏ wlev% �
J � 2:�cl_anim(15):�add_sp(detarea%,"alveoli",animarea%,"anim",22,6,15)
� :�copysp("lungsbgrd","anim"):�add_sp(detarea%,"ribs",animarea%,"anim",39,22,15):�flip(2,"ribs"):�add_sp(detarea%,"ribs",animarea%,"anim",93,22,15):�flip(2,"ribs")
�  �add_sp(detarea%,"lungs"+�(wlev%),animarea%,"anim",44,15,15):�flip(2,"lungs"+�(wlev%)):�add_sp(detarea%,"lungs"+�(wlev%),animarea%,"anim",96,15,15):�flip(2,"lungs"+�(wlev%))
D  �add_sp(detarea%,"lungsht"+�(wlev%),animarea%,"anim",46,50,15)
�
�

��makebaby(wlev%)
�cl_anim(15)
Ȏ wlev% �
 ? � 0: �add_sp(detarea%,"couple0",animarea%,"anim",13,51,15)
!| � 1: �add_sp(detarea%,"coupfem",animarea%,"anim",5,5,15):�onlyfem%:�add_sp(detarea%,"coupmal",animarea%,"anim",5,5,15)
"? � 2: �add_sp(detarea%,"fullterm",animarea%,"anim",36,7,15)
#�
$�
%
&��makebladder(wlev%)
'&�copysp("bladder"+�(wlev%),"anim")
(�
)
*��makelymph(wlev%)
+�cl_anim(15)
,Ȏ wlev% �
-= � 0: �add_sp(detarea%,"lymph",animarea%,"anim",28,15,15)
.? � 1: �add_sp(detarea%,"lymphxs",animarea%,"anim",28,15,15)
/�
0��add_sp(detarea%,"lin",animarea%,"anim",65,7,15):�add_sp(detarea%,"lout",animarea%,"anim",94,140,15):�add_sp(detarea%,"larr0",animarea%,"anim",46,8,15)
1��add_sp(detarea%,"larr1",animarea%,"anim",114,2,15):�add_sp(detarea%,"larr1",animarea%,"anim",161,10,15):�add_sp(detarea%,"larr2",animarea%,"anim",81,133,15)
2�
3
4��makesmintest(wlev%)
5�cl_anim(15)
6Ȏ wlev% �
7; � 0: �add_sp(detarea%,"smint",animarea%,"anim",0,0,15)
8= � 1: �add_sp(detarea%,"smintxs",animarea%,"anim",0,0,15)
9; � 2: �add_sp(detarea%,"villi",animarea%,"anim",0,0,15)
:�
;�
<
=��makelgintest(wlev%)
>B�cl_anim(15):�add_sp(detarea%,"lgint",animarea%,"anim",0,0,15)
?Ȏ wlev% �
@= � 1: �add_sp(detarea%,"lgintxs",animarea%,"anim",0,0,15)
A�
B�
C
D��makefemale(wlev%)
E�cl_anim(15)
FȎ wlev% �
G= � 0: �add_sp(detarea%,"female",animarea%,"anim",11,5,15)
H� � 1: �add_sp(detarea%,"female",animarea%,"anim",11,5,15):�add_sp(detarea%,"femalexs",animarea%,"anim",11,5,8):�add_sp(detarea%,"femalexs0",animarea%,"anim",11,5,0)
I= � 2: �add_sp(detarea%,"ovary",animarea%,"anim",15,14,15)
J�
K�
L
M��makemale(wlev%)
N�cl_anim(15)
OȎ wlev% �
P< � 0: �add_sp(detarea%,"male",animarea%,"anim",63,10,15)
Q> � 1: �add_sp(detarea%,"malexs",animarea%,"anim",63,10,15)
R? � 2: �add_sp(detarea%,"semintub",animarea%,"anim",12,6,15)
S�
T�
U
V��makeear(wlev%)
W�cl_anim(15)
XȎ wlev% �
Y= � 0: �add_sp(detarea%,"earhole",animarea%,"anim",6,6,15)
Z� � 1: �add_sp(detarea%,"cochlea",animarea%,"anim",6,6,15):�add_sp(detarea%,"malleus0",animarea%,"anim",43,73,8):�add_sp(detarea%,"earnerv",animarea%,"anim",162,56,15)
[� � 2: �add_sp(detarea%,"cochlea",animarea%,"anim",6,6,15):�add_sp(detarea%,"cochleax",animarea%,"anim",50,17,8):�add_sp(detarea%,"malleus0",animarea%,"anim",43,73,8):�add_sp(detarea%,"earnerv",animarea%,"anim",162,56,15)
\�
]�
^
_��makemuscle(wlev%)
`F�cl_anim(15):�add_sp(detarea%,"musclxs0",animarea%,"anim",8,17,15)
a@�wlev%=0:�add_sp(detarea%,"muscl",animarea%,"anim",42,34,15)
b�
c
d��makenerves(wlev%)
e$�copysp("nerve"+�(wlev%),"anim")
f�
g
h��makesweat(wlev%)
iȎ wlev% �
j� � 0: �cl_anim(15):�add_sp(detarea%,"skback",animarea%,"anim",28,27,15):�add_sp(detarea%,"skfront",animarea%,"anim",16,34,15)
k" � 1: �copysp("skinxs","anim")
l�
m�
n
o��movenose
pC�firstmove%�:can%=0:firstmove%=�:elaps%=0:�s%=0�16:spk%(s%)=0:�
q$�can%>0�:�<lasttime%+1-elaps%:�
relaps%=�
s
�texton%�
t �textnewon%�
u?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))
vj  �can%<13:�puticnstring(animw%,51,animwords$(simp%,1)):�:�puticnstring(animw%,51,animwords$(simp%,2))
w �
x: �can%=13:�puticnstring(animw%,51,animwords$(simp%,2))
y�
z+�can%=0:spk%(5)=1:spk%(11)=1:spk%(12)=1
{S�can%=4:spk%(1)=1:spk%(3)=1:spk%(4)=1:spk%(7)=1:spk%(8)=1:spk%(13)=1:spk%(14)=1
|T�can%=8:spk%(0)=1:spk%(2)=1:spk%(6)=1:spk%(9)=1:spk%(10)=1:spk%(15)=1:spk%(16)=1
}�copysp("noston1","anim")
~�s%=0�16
��(spk%(s%)>0)�(spk%(s%)<=4):�add_sp(detarea%,"smell"+�(smell%(s%)),animarea%,"anim",13+(8*s%)+(5*spk%(s%)),144-(6*spk%(s%)),15)
���(spk%(s%)>=4)�(spk%(s%)<=6):�add_sp(detarea%,"spark"+�(2+((can%+s%)�2)),animarea%,"anim",33+(8*s%),112-(8*(spk%(s%)-4)),15)
�l�(spk%(s%)>4)�(can%<=21):�add_sp(detarea%,"smell"+�(smell%(s%)),animarea%,"anim",13+(8*s%)+20,144-24,15)
�#�spk%(s%)=7:temp$(s%)=olf1$(s%)
�P�(spk%(s%)>6)�(spk%(s%)<17)�(�(temp$(s%))<6):temp$(s%)=olf2$(whicholf2%(s%))
���(spk%(s%)>6)�(�(temp$(s%))>5):�add_sp(detarea%,"spark"+�(2+((can%+s%)�2)),animarea%,"anim",�(�temp$(s%),1,3)),�(�temp$(s%),5,2)),15):temp$(s%)=�temp$(s%),�(temp$(s%))-7)
�8�(spk%(s%)>0)�(spk%(s%)<=3)�((can%�4)=3):spk%(s%)+=1
��spk%(s%)>3:spk%(s%)+=1
��
�:�texton%�:�(can%=11)�(can%=40):�selecticn(animw%,49,�)
�can%+=1
�elaps%=�-elaps%
��plotanimmove:lasttime%=�
�/�can%=42:�makenose(1):�animateend:�plotanim
��
�
���moveartv
�3�firstmove%�:can%=0:firstmove%=�:ti%=1:elaps%=0
�&�can%>0�:�<lasttime%+ti%-elaps%:�
�elaps%=�
�
�texton%�
� �textnewon%�
�?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))
�l  �(can%<56):�puticnstring(animw%,51,animwords$(simp%,1)):�:�puticnstring(animw%,51,animwords$(simp%,2))
� �
�< �(can%=56):�puticnstring(animw%,51,animwords$(simp%,2))
��
��copysp("avmove","anim")
�Y�(can%>9)�(can%<=32):�add_sp(detarea%,"abulg",animarea%,"anim",27+((can%-10)*4),7,16)
�Z�(can%>29)�(can%<=52):�add_sp(detarea%,"abulg",animarea%,"anim",27+((can%-30)*4),7,16)
�i�((can%>72)�(can%<=90))�((can%>104)�(can%<=122)):�add_sp(detarea%,"vvalv0",animarea%,"anim",45,81,16)
�O�(can%>91)�(can%<=103):�add_sp(detarea%,"vvalv1",animarea%,"anim",45,81,16)
�]�(can%>59)�(can%<=85):�add_sp(detarea%,"varr0",animarea%,"anim",122-((can%-60)*4),105,15)
�]�(can%>72)�(can%<=85):�add_sp(detarea%,"varr0",animarea%,"anim",122-((can%-73)*4),105,15)
���(can%>85)�(can%<=89):�add_sp(detarea%,"varr0",animarea%,"anim",22,105,15):�add_sp(detarea%,"varr0",animarea%,"anim",74,105,15)
���(can%>89)�(can%<=93):�add_sp(detarea%,"varr1",animarea%,"anim",22+((can%-90)*4),105,15):�add_sp(detarea%,"varr1",animarea%,"anim",74+((can%-90)*4),105,15)
���(can%>93)�(can%<=97):�add_sp(detarea%,"varr2",animarea%,"anim",49,95,15):�add_sp(detarea%,"varr1",animarea%,"anim",86,105,15)
���(can%>97)�(can%<=101):�add_sp(detarea%,"varr3",animarea%,"anim",47,97,15):�add_sp(detarea%,"varr1",animarea%,"anim",86,105,15)
�_�(can%>101)�(can%<=103):�add_sp(detarea%,"varr0",animarea%,"anim",22-((can%-102)*4),105,15)
�_�(can%>101)�(can%<=118):�add_sp(detarea%,"varr0",animarea%,"anim",86-((can%-102)*4),105,15)
�K�(can%=10)�(can%=30):�add_sp(detarea%,"artery",animarea%,"anim",6,6,15)
�9�add_sp(detarea%,"heartarr",animarea%,"anim",6,76,15)
�;�texton%�:�(can%=50)�(can%=120):�selecticn(animw%,49,�)
�can%+=1
�elaps%=�-elaps%
��plotanimmove:lasttime%=�
�0�can%=122:�makeartv(1):�animateend:�plotanim
��
�
���moveskin
�M�firstmove%�:can%=0:firstmove%=�:elaps%=0:�s%=0�10:spk%(s%)=spkmax%(s%):�
�$�can%>0�:�<lasttime%+6-elaps%:�
�elaps%=�
�
�texton%�
� �textnewon%�
�?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))
�=  �(can%<48):�puticnstring(animw%,51,animwords$(simp%,1))
�I  �(can%>=48)�(can%<101):�puticnstring(animw%,51,animwords$(simp%,2))
�J  �(can%>=101)�(can%<141):�puticnstring(animw%,51,animwords$(simp%,3))
�?  �(can%>=141):�puticnstring(animw%,51,animwords$(simp%,4))
� �
�< �(can%=48):�puticnstring(animw%,51,animwords$(simp%,2))
�= �(can%=101):�puticnstring(animw%,51,animwords$(simp%,3))
�= �(can%=141):�puticnstring(animw%,51,animwords$(simp%,4))
��
���copysp("skinxs","anim"):�add_sp(detarea%,"spine",animarea%,"anim",164,47,15):�add_sp(sparea%,"brain",animarea%,"anim",150,17,0)
�
� pain
�g�can%<12:�s%=0��(can%/4):�add_sp(detarea%,"pin"+�(�(can%/4)-s%),animarea%,"anim",60,7+(13*s%),15):�
Ù�(can%>=12)�(can%<36):�s%=0�3:�add_sp(detarea%,"pin"+�(3-s%),animarea%,"anim",60,7+(13*s%),15):�:�add_sp(detarea%,"pierce",animarea%,"anim",65,52,15)
�z�(can%>=36)�(can%<48):�s%=0�11-�(can%/4):�add_sp(detarea%,"pin"+�(11-�(can%/4)-s%),animarea%,"anim",60,7+(13*s%),15):�
�M�(can%>=35)�(can%<=44):�add_sp(detarea%,"pain",animarea%,"anim",163,5,15)
��can%=13:spk%(1)=0
��can%=19:spk%(2)=0
��can%=28:spk%(0)=0
�� touch
�~�(can%>=48)�(can%<64):�s%=0��(can%/4)-12:�add_sp(detarea%,"pinhead"+�(�(can%/4)-12-s%),animarea%,"anim",42,3+(13*s%),15):�
�{�(can%>=64)�(can%<84):�s%=0�3:�add_sp(detarea%,"pinhead"+�(3-s%),animarea%,"anim",42+(8*(�(can%/2)-32)),3+(13*s%),15):�
�i�(can%>=84)�(can%<88):�s%=0�3:�add_sp(detarea%,"pinhead"+�(3-s%),animarea%,"anim",122,3+(13*s%),15):�
̀�(can%>=88)�(can%<100):�s%=0�24-�(can%/4):�add_sp(detarea%,"pinhead"+�(24-�(can%/4)-s%),animarea%,"anim",122,3+(13*s%),15):�
�N�(can%>=83)�(can%<100):�add_sp(detarea%,"touch",animarea%,"anim",161,5,15)
��can%=62:spk%(6)=0
��can%=76:spk%(0)=0
��can%=74:spk%(7)=0
��can%=85:spk%(9)=0
��can%=84:spk%(8)=0
��can%=92:spk%(10)=0
�� pressure
ր�(can%>=100)�(can%<112):�s%=0��(can%/4)-25:�add_sp(detarea%,"pinhead"+�(�(can%/4)-25-s%),animarea%,"anim",79,7+(13*s%),15):�
נ�(can%>=112)�(can%<136):�add_sp(detarea%,"skpress",animarea%,"anim",70,54,15):�s%=0�3:�add_sp(detarea%,"pinhead"+�(3-s%),animarea%,"anim",79,7+(13*s%),15):�
�j�(can%>=136)�(can%<144):�s%=0�2:�add_sp(detarea%,"pinhead"+�(2-s%),animarea%,"anim",79,7+(13*s%),15):�
�R�(can%>=127)�(can%<140):�add_sp(detarea%,"pressure",animarea%,"anim",155,7,15)
��can%=113:spk%(3)=0
��can%=120:spk%(0)=0
�
� heat
�O�(can%>=144)�(can%<172):�add_sp(detarea%,"pinred",animarea%,"anim",79,7,15)
�N�(can%>=163)�(can%<172):�add_sp(detarea%,"heat",animarea%,"anim",163,5,15)
��can%=148:spk%(4)=0
��can%=150:spk%(5)=0
��can%=156:spk%(0)=0
��can%=158:spk%(9)=0
�� tidyup
��(can%>=172)�(can%<184):�s%=0�45-�(can%/4):�add_sp(detarea%,"pinhead"+�(45-�(can%/4)-s%),animarea%,"anim",79,7+(13*s%),15):�
�� all sparks
��s%=0�10
��spk%(s%)<spkmax%(s%)�
�Ȏ s% �
�` � 0,9,10: �add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",167,111-(11*spk%(s%)),15)
�l � 1:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",skpain%(spk%(s%),0),skpain%(spk%(s%),1),15)
�        �spk%(s%)=0:spk%(s%)+=1:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",skpain%(spk%(s%),0),skpain%(spk%(s%),1),15)
�Z � 2: �add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",69+(11*spk%(s%)),111,15)
�n � 3:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",skpress%(spk%(s%),0),skpress%(spk%(s%),1),15)
�        �(spk%(s%)=1)�(spk%(s%)=3):spk%(s%)+=1:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",skpress%(spk%(s%),0),skpress%(spk%(s%),1),15)
�n � 4:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",skheat1%(spk%(s%),0),skheat1%(spk%(s%),1),15)
�        �spk%(s%)=0:spk%(s%)+=1:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",skheat1%(spk%(s%),0),skheat1%(spk%(s%),1),15)
�n � 5:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",skheat2%(spk%(s%),0),skheat2%(spk%(s%),1),15)
�~ � 6,7,8:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",sktouch%(spk%(s%),0)+(45*(s%-6)),sktouch%(spk%(s%),1),15)
�            �spk%(s%)=0:�r%=0�1:spk%(s%)+=1:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",sktouch%(spk%(s%),0)+(45*(s%-6)),sktouch%(spk%(s%),1),15):�
�            �spk%(s%)=3:spk%(s%)+=1:�add_sp(detarea%,"spark"+�(2+(can%�2)),animarea%,"anim",sktouch%(spk%(s%),0)+(45*(s%-6)),sktouch%(spk%(s%),1),15)
��
�spk%(s%)+=1
��
��
�P�texton%�:�(can%=35)�(can%=84)�(can%=128)�(can%=166):�selecticn(animw%,49,�)
�can%+=1
�elaps%=�-elaps%
��plotanimmove:lasttime%=�
�0�can%=184:�makeskin(2):�animateend:�plotanim
��
�
��moveheart

�firstmove%�
6can%=0:firstmove%=�:spk%=0:lasttime%=�-50:elaps%=0
*CHANNELVOICE 1 lubdub
�
�spk%=0�
 �<lasttime%+50-elaps%:�
�
 �<lasttime%+10-elaps%:�
	�

elaps%=�

�texton%�
 �textnewon%�

?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))
<  �(can%<5):�puticnstring(animw%,51,animwords$(simp%,1))
G  �(can%>=5)�(can%<11):�puticnstring(animw%,51,animwords$(simp%,2))
H  �(can%>=11)�(can%<17):�puticnstring(animw%,51,animwords$(simp%,3))
H  �(can%>=17)�(can%<21):�puticnstring(animw%,51,animwords$(simp%,4))
>  �(can%>=21):�puticnstring(animw%,51,animwords$(simp%,5))
 �
; �(can%=5):�puticnstring(animw%,51,animwords$(simp%,2))
< �(can%=11):�puticnstring(animw%,51,animwords$(simp%,3))
< �(can%=17):�puticnstring(animw%,51,animwords$(simp%,4))
< �(can%=21):�puticnstring(animw%,51,animwords$(simp%,5))
�
�can%=0 �cl_anim(12)

�can%<38�
 lin$=hanim$(can%)
 �
^ �add_sp(detarea%,�lin$,1,5),animarea%,"anim",�(�lin$,7,3)),�(�lin$,11,3)),�(�lin$,15,2)))
 lin$=�lin$,�(lin$)-17)
 � �(lin$)<17
 + �(can%=26)�(can%=29):� 1,&17F,&1C00,10
!�
"b�texton%�:�(can%=4)�(can%=10)�(can%=16)�(can%=20)�((can%=22)�(spk%=0)):�selecticn(animw%,49,�)
#$can%+=1:�can%=38:can%=22:spk%+=1
$elaps%=�-elaps%
%�plotanimmove:lasttime%=�
&/�spk%=5:�makeheart(2):�animateend:�plotanim
'�
(
)��moveliver
*B�firstmove%�:can%=0:spk%=1:firstmove%=�:lasttime%=�:elaps%=0:�
+�<lasttime%+60-elaps%:�
,elaps%=�
-
�texton%�
. �textnewon%�
/l  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0)):�puticnstring(animw%,51,animwords$(simp%,1))
0 �
1�
2x�cl_anim(15):�add_sp(detarea%,"liver",animarea%,"anim",6,6,15):�add_sp(detarea%,"liverxs",animarea%,"anim",30,21,15)
3F�can%<9:�add_sp(detarea%,"bile"+�(can%),animarea%,"anim",43,66,15)
48�texton%�:�(can%=8)�(spk%=1):�selecticn(animw%,49,�)
5can%+=1
6�can%=10�:can%=0:spk%+=1
7elaps%=�-elaps%
8�plotanimmove:lasttime%=�
9/�spk%=3:�makeliver(1):�animateend:�plotanim
:�
;
<
=��movejoint
>J�firstmove%�:can%=0:spk%=1:spk1%=1:firstmove%=�:lasttime%=�:elaps%=0:�
?�<lasttime%+60-elaps%:�
@elaps%=�
A
�texton%�
B �textnewon%�
C?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))
Dv  �(spk1%<=4)�(can%<4):�puticnstring(animw%,51,animwords$(simp%,1)):�:�puticnstring(animw%,51,animwords$(simp%,2))
E �
FE �(spk1%=4)�(can%=1):�puticnstring(animw%,51,animwords$(simp%,2))
G�
HG�cl_anim(15):�add_sp(detarea%,"scapula",animarea%,"anim",134,31,15)
I�(spk1%=4)�(can%=1):can%=4
J�can%<4�
K��add_sp(detarea%,"hum0",animarea%,"anim",104,22,15):�add_sp(detarea%,"humlig",animarea%,"anim",131,37,15):�add_sp(detarea%,"disthum",animarea%,"anim",54,83,15):�add_sp(detarea%,"arc",animarea%,"anim",3,54,15)
L��(can%=1)�(can%=3):�add_sp(detarea%,"ulna1",animarea%,"anim",9,63,15):�:�add_sp(detarea%,"ulna"+�(can%),animarea%,"anim",9,63,15)
M�
N{�can%>=4:�add_sp(detarea%,"hum"+�(can%-4),animarea%,"anim",104,22,15):�add_sp(detarea%,"circ",animarea%,"anim",89,9,15)
O�can%=3�:can%=-1:spk1%+=1
P�can%=7�:can%=3:spk%+=1
QO�texton%�:�((spk1%=4)�(can%=0))�((spk%=4)�(can%=3)):�selecticn(animw%,49,�)
Rcan%+=1
Selaps%=�-elaps%
T�plotanimmove:lasttime%=�
U:�(spk%=4)�(can%=5):�makejoint(1):�animateend:�plotanim
V�
W
X��movelungs
YJ�firstmove%�:can%=0:spk%=1:spk1%=1:firstmove%=�:lasttime%=�:elaps%=0:�
Z%�can%<6�:�<lasttime%+60-elaps%:�
[&�can%>=6�:�<lasttime%+10-elaps%:�
\elaps%=�
]
�texton%�
^ �textnewon%�
_?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))
`j  �can%<=5:�puticnstring(animw%,51,animwords$(simp%,1)):�:�puticnstring(animw%,51,animwords$(simp%,2))
a �
bD �(can%=6)�(spk%=1):�puticnstring(animw%,51,animwords$(simp%,2))
c�
d�copysp("lungsbgrd","anim")
e��can%<6:spna$="lungan"+�(1-(can%�2)):�add_sp(detarea%,"rest",animarea%,"anim",49,141,15):�add_sp(detarea%,"arr"+�(1-(can%�2)),animarea%,"anim",94,2,15)
f
�can%>=6�
g8�(can%�2)=0:spna$="lungan0":�:spna$="lungan"+�(can%)
h8�add_sp(detarea%,"exert",animarea%,"anim",43,141,15)
i|�(can%=6)�(can%=7):�add_sp(detarea%,"arr2",animarea%,"anim",92,2,15):�:�add_sp(detarea%,"arr3",animarea%,"anim",92,2,15)
j�
k��add_sp(detarea%,spna$,animarea%,"anim",31,15,15):�flip(2,spna$):�add_sp(detarea%,spna$,animarea%,"anim",93,15,15):�flip(2,spna$)
l�can%=5�
m can%=-1:spk1%+=1
n �spk1%=3�
o  can%=5
p �
q�
r�can%=9�:can%=5:spk%+=1
sN�texton%�:�((can%=5)�(spk%=1))�((spk%=7)�(can%=8)):�selecticn(animw%,49,�)
tcan%+=1
uelaps%=�-elaps%
v�plotanimmove:lasttime%=�
w/�spk%=8:�makelungs(1):�animateend:�plotanim
x�
y
z��movebaby
{;�firstmove%�:can%=0:firstmove%=�:lasttime%=�:elaps%=0:�
|
Ȏ can% �
}2 � 64,65,87,88,96,97:�<lasttime%+200-elaps%:�
~$ � 102:�<lasttime%+600-elaps%:�
�
�'�can%=52�:�<lasttime%+200-elaps%:�
�5�(can%>=64)�(can%<=70)�:�<lasttime%+200-elaps%:�
�5�(can%>=71)�(can%<=78)�:�<lasttime%+100-elaps%:�
�5�(can%>=79)�(can%<=88)�:�<lasttime%+200-elaps%:�
�5�(can%>=89)�(can%<=95)�:�<lasttime%+100-elaps%:�
�5�(can%>=96)�(can%<=97)�:�<lasttime%+200-elaps%:�
�5�(can%>=98)�(can%<=99)�:�<lasttime%+100-elaps%:�
�7�(can%>=100)�(can%<=101)�:�<lasttime%+200-elaps%:�
�&�can%<64�:�<lasttime%+20-elaps%:�
�elaps%=�
�
�texton%�
� �textnewon%�
�?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))
�=  �(can%<51):�puticnstring(animw%,51,animwords$(simp%,1))
�H  �(can%>=51)�(can%<62):�puticnstring(animw%,51,animwords$(simp%,2))
�H  �(can%>=62)�(can%<80):�puticnstring(animw%,51,animwords$(simp%,3))
�H  �(can%>=80)�(can%<92):�puticnstring(animw%,51,animwords$(simp%,4))
�>  �(can%>=92):�puticnstring(animw%,51,animwords$(simp%,5))
� �
�< �(can%=51):�puticnstring(animw%,51,animwords$(simp%,2))
�< �(can%=62):�puticnstring(animw%,51,animwords$(simp%,3))
�< �(can%=80):�puticnstring(animw%,51,animwords$(simp%,4))
�< �(can%=92):�puticnstring(animw%,51,animwords$(simp%,5))
��
�%�(can%=57)�(can%=87):�cl_anim(15)
�N�(can%>=37)�(can%<=62):�add_sp(detarea%,"coupfem",animarea%,"anim",5,5,15)
�M�(can%>=0)�(can%<=56):�add_sp(detarea%,"coupmal",animarea%,"anim",5,5,15)
�S�(can%>=0)�(can%<=38):�add_sp(detarea%,"semen"+�(can%),animarea%,"anim",5,5,15)
�N�(can%>=39)�(can%<=50):�add_sp(detarea%,"semen39",animarea%,"anim",5,5,15)
�W�(can%>=40)�(can%<=50):�add_sp(detarea%,"semen"+�(can%-12),animarea%,"anim",5,5,15)
�W�(can%>=51)�(can%<=62):�add_sp(detarea%,"semen"+�(can%-11),animarea%,"anim",5,5,15)
�O�(can%>=0)�(can%<=27):�add_sp(detarea%,"glandfull",animarea%,"anim",5,5,15)
���(can%>=28)�(can%<=39):�add_sp(detarea%,"glandhalf",animarea%,"anim",5,5,15):�add_sp(detarea%,"semenstor",animarea%,"anim",5,5,15)
�L�(can%>=27)�(can%<=51):�add_sp(detarea%,"egg",animarea%,"anim",27,94,15)
�L�(can%>=52)�(can%<=62):�add_sp(detarea%,"egg",animarea%,"anim",30,88,15)
��can%=64:�movebabylines(1)
�N�(can%>=63)�(can%<=64):�add_sp(detarea%,"little1",animarea%,"anim",5,5,15)
�M�(can%>=64)�(can%<=80):�add_sp(detarea%,"fert0",animarea%,"anim",69,47,8)
�X�(can%>=65)�(can%<=69):�add_sp(detarea%,"fert"+�(can%-64),animarea%,"anim",69,47,15)
�[�(can%>=70)�(can%<=79):�add_sp(detarea%,"fert"+�(6+(can%�2)),animarea%,"anim",69,47,15)
�V�(can%>=70)�(can%<=75):�add_sp(detarea%,"win"+�(can%�2),animarea%,"anim",71,49,15)
�W�(can%>=76)�(can%<=86):�add_sp(detarea%,"win"+�(can%-74),animarea%,"anim",71,49,15)
�P�(can%>=78)�(can%<=80):�add_sp(detarea%,"eggstop",animarea%,"anim",71,49,15)
�N�(can%>=87)�(can%<=94):�add_sp(detarea%,"coupfem",animarea%,"anim",5,5,15)
�n�(can%>=87)�(can%<=94):�add_sp(detarea%,"egg",animarea%,"anim",babyegg%(can%-86,0),babyegg%(can%-86,1),15)
��can%=96:�movebabylines(2)
�N�(can%>=95)�(can%<=96):�add_sp(detarea%,"little2",animarea%,"anim",5,5,15)
�N�(can%>=96)�(can%<=101):�add_sp(detarea%,"impl0",animarea%,"anim",69,47,8)
�X�(can%>=97)�(can%<=101):�add_sp(detarea%,"impl"+�(can%-96),animarea%,"anim",71,49,8)
�X�texton%�:�(can%=40)�(can%=61)�(can%=78)�(can%=84)�(can%=99):�selecticn(animw%,49,�)
�can%+=1
�elaps%=�-elaps%
��plotanimmove:lasttime%=�
��can%=103�
� �texton%:onlyfem%=-1
�' �makebaby(1):�animateend:�plotanim
��
��
�
���movebabylines(whi%)
�+ș"OS_SpriteOp",&13C,animarea%,"anim",0
��18,0,7
��j%=0�1
�9�whi%=1:�25,4,104+(j%*2);276;:�:�25,4,190+(j%*2);196;
��25,5,276+(j%*2);424;
�9�whi%=1:�25,4,104+(j%*2);244;:�:�25,4,190+(j%*2);164;
��25,5,276+(j%*2);88;
�9�whi%=1:�25,4,142+(j%*2);276;:�:�25,4,228+(j%*2);196;
��25,5,726+(j%*2);424;
�9�whi%=1:�25,4,142+(j%*2);244;:�:�25,4,228+(j%*2);164;
��25,5,726+(j%*2);88;
�&ș"OS_SpriteOp",&13C,animarea%,0,0
��
�
���movefemale
�;�firstmove%�:can%=0:firstmove%=�:lasttime%=�:elaps%=0:�
��<lasttime%+100-elaps%:�
�elaps%=�
�
�texton%�
� �textnewon%�
�?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))
�<  �(can%<5):�puticnstring(animw%,51,animwords$(simp%,1))
�G  �(can%>=5)�(can%<21):�puticnstring(animw%,51,animwords$(simp%,2))
�>  �(can%>=21):�puticnstring(animw%,51,animwords$(simp%,3))
� �
�; �(can%=5):�puticnstring(animw%,51,animwords$(simp%,2))
�< �(can%=21):�puticnstring(animw%,51,animwords$(simp%,3))
��
�8�add_sp(detarea%,"femalexs",animarea%,"anim",11,5,8)
�@�can%>0:�add_sp(detarea%,"perday",animarea%,"anim",23,72,16)
�J�can%>0:�add_sp(detarea%,"perday"+�(can%�10),animarea%,"anim",23,75,2)
�P�(can%>=10)�(can%<=19):�add_sp(detarea%,"perday10",animarea%,"anim",23,75,2)
�C�can%>=20:�add_sp(detarea%,"perday20",animarea%,"anim",23,75,2)
�A�can%=0:�add_sp(detarea%,"femalexs0",animarea%,"anim",11,5,0)
�A�can%=1:�add_sp(detarea%,"femalexs1",animarea%,"anim",11,5,0)
�U�(can%>=2)�(can%<=4):�add_sp(detarea%,"femalexs"+�(can%),animarea%,"anim",11,5,0)
�N�(can%>=6)�(can%<=8):�add_sp(detarea%,"femalexs5",animarea%,"anim",11,5,0)
�O�(can%>=9)�(can%<=11):�add_sp(detarea%,"femalexs6",animarea%,"anim",11,5,0)
�P�(can%>=12)�(can%<=16):�add_sp(detarea%,"femalexs7",animarea%,"anim",11,5,0)
�l�(can%>=14)�(can%<=21):�add_sp(detarea%,"egg0",animarea%,"anim",peregg%(can%-14,0),peregg%(can%-14,1),2)
�V�(can%>=22)�(can%<=25):�add_sp(detarea%,"egg"+�(can%-21),animarea%,"anim",81,32,2)
�?�can%>=14:�add_sp(detarea%,"ovul",animarea%,"anim",27,21,2)
�C�can%>=17:�add_sp(detarea%,"femalexs0",animarea%,"anim",11,5,0)
�C�texton%�:�(can%=3)�(can%=14)�(can%=28):�selecticn(animw%,49,�)
�can%+=1
�elaps%=�-elaps%
�&�can%<30:�plotanimmove:lasttime%=�
�1�can%=30:�makefemale(1):�animateend:�plotanim
��
�
���movemale
�;�firstmove%�:can%=0:firstmove%=�:lasttime%=�:elaps%=0:�
�1�(can%>0)�(can%<4)�:�<lasttime%+200-elaps%:�
�&�can%=4�:�<lasttime%+500-elaps%:�
�elaps%=�
�
�texton%�
� �textnewon%�
�l  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0)):�puticnstring(animw%,51,animwords$(simp%,1))
� �
��
�@�can%=1:�add_sp(detarea%,"malexs1",animarea%,"anim",38,56,8)
�@�can%=2:�add_sp(detarea%,"malexs2",animarea%,"anim",11,56,8)
�?�can%=3:�add_sp(detarea%,"malexs3",animarea%,"anim",8,25,8)
�/�texton%�:�(can%=3):�selecticn(animw%,49,�)
�can%+=1
�elaps%=�-elaps%
��plotanimmove:lasttime%=�
�.�can%=5:�makemale(1):�animateend:�plotanim

�





��moveear

5�firstmove%: can%=-1:spk%=0:firstmove%=�:elaps%=0

%�can%>-1�:�<lasttime%+6-elaps%:�

elaps%=�


�texton%�

 �textnewon%�

?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))

	<  �(can%<9):�puticnstring(animw%,51,animwords$(simp%,1))

G  �(can%>=9)�(can%<26):�puticnstring(animw%,51,animwords$(simp%,2))

>  �(can%>=26):�puticnstring(animw%,51,animwords$(simp%,3))

 �


; �(can%=9):�puticnstring(animw%,51,animwords$(simp%,2))

< �(can%=26):�puticnstring(animw%,51,animwords$(simp%,3))

�

+ș"OS_SpriteOp",&13C,animarea%,"anim",0

�can%=-1 �

*CHANNELVOICE 1 1

4�add_sp(detarea%,"note",animarea%,"anim",4,89,8)

� 1,-15,53,36

�

~�(can%>=0)�(can%<11) �25,4,18;232;:�25,4,canal%(can%,0)-6;692-canal%(can%,1);:�25,166,canal%(can%,2)-6;692-canal%(can%,3);

��(can%>5)�(can%<17) �25,4,18;232;:�25,4,canal%(can%-6,0)-6;692-canal%(can%-6,1);:�25,166,canal%(can%-6,2)-6;692-canal%(can%-6,3);

Z�(can%>7)�(can%<18) �add_sp(detarea%,"malleus"+�((can%+1)�2),animarea%,"anim",43,73,8)

��(can%>9)�(can%<28) �25,4,314;276;:�25,4,cochlea%(can%-10,0)-6;692-cochlea%(can%-10,1);:�25,166,cochlea%(can%-10,2)-6;692-cochlea%(can%-10,3);

��(can%>15)�(can%<34) �25,4,314;276;:�25,4,cochlea%(can%-16,0)-6;692-cochlea%(can%-16,1);:�25,166,cochlea%(can%-16,2)-6;692-cochlea%(can%-16,3);

&ș"OS_SpriteOp",&13C,animarea%,0,0

�(can%>=30)�(can%<36) �

c �((spk%�2)=0) �add_sp(detarea%,"spark0",animarea%,"anim",spark%(spk%/2,0),spark%(spk%/2,1),15)

v �((spk%�2)=1) �add_sp(detarea%,"spar"+�((spk%-1)/2),animarea%,"anim",spark%((spk%-1)/2,0),spark%((spk%-1)/2,1),8)

 spk%+=1

 �

!�can%=35 spk%=0

"�(can%>=35)�(can%<43) �

#; �add_sp(detarea%,"earnerv",animarea%,"anim",162,56,15)

$[ �add_sp(detarea%,"spark"+�(spk%�2),animarea%,"anim",163+(spk%*2),71-�((spk%*12)/7),15)

% spk%+=1

&�

'C�texton%�:�(can%=8)�(can%=25)�(can%=41):�selecticn(animw%,49,�)

(can%+=1

)elaps%=�-elaps%

*�plotanimmove:lasttime%=�

+.�can%=43:�makeear(2):�animateend:�plotanim

,�

-

.��movemouth

/A�firstmove%:can%=0:spk%=1:firstmove%=�:lasttime%=�:elaps%=0:�

0�<lasttime%+80-elaps%:�

1elaps%=�

2
�texton%�

3 �textnewon%�

4?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))

5t  �(spk%=1)�(can%<8):�puticnstring(animw%,51,animwords$(simp%,1)):�:�puticnstring(animw%,51,animwords$(simp%,2))

6 �

7D �(spk%=1)�(can%=8):�puticnstring(animw%,51,animwords$(simp%,2))

8�

9�cl_anim(15)

:7�add_sp(detarea%,"mouthnv",animarea%,"anim",4,4,15)

;5�add_sp(detarea%,"straw",animarea%,"anim",3,10,9)

<?�can%=1:�add_sp(detarea%,"suck0",animarea%,"anim",3,104,15)

=>�can%=2:�add_sp(detarea%,"suck1",animarea%,"anim",3,51,15)

>�(can%>=3)�(can%<11)�

?6�add_sp(detarea%,"suck2",animarea%,"anim",3,30,15)

@Z�add_sp(detarea%,"swal"+�(can%-2),animarea%,"anim",swal%(can%-3,0),swal%(can%-3,1),15)

A�

B?�can%=11:�add_sp(detarea%,"suck2",animarea%,"anim",3,30,15)

C6�add_sp(detarea%,"nose",animarea%,"anim",127,5,15)

D;�add_sp(detarea%,"lungsst",animarea%,"anim",131,123,15)

EO�texton%�:�((spk%=1)�(can%=7))�((spk%=1)�(can%=10)):�selecticn(animw%,49,�)

F#can%+=1:�can%=12:can%=3:spk%+=1

Gelaps%=�-elaps%

H�plotanimmove:lasttime%=�

I/�spk%=3:�makemouth(1):�animateend:�plotanim

J�

K

L
��moveeye

M�firstmove%�

N(cand%=0:spk%=0:firstmove%=�:elaps%=0

O�

P'�cand%=1�:�<lasttime%+100-elaps%:�

Q1�(cand%>0)�(spk%=0)�:�<lasttime%+20-elaps%:�

R�

Selaps%=�

T
�texton%�

U �textnewon%�

V?  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0))

Wm  �(cand%<18):�puticnstring(animw%,51,animwords$(simp%,1)):�:�puticnstring(animw%,51,animwords$(simp%,2))

X �

YF �(cand%=18)�(spk%=0):�puticnstring(animw%,51,animwords$(simp%,2))

Z�

[�cand%<=17�

\_�add_sp(detarea%,"candle"+�(cand%),animarea%,"anim",candpos%(cand%,0),candpos%(cand%,1),15)

]C�cand%=17 �add_sp(detarea%,"spark0",animarea%,"anim",147,71,15)

^cand%+=1

_�

`�spk%+=1:�copysp("eye1","anim"):�k%=0�17:�add_sp(detarea%,"candle"+�(k%),animarea%,"anim",candpos%(k%,0),candpos%(k%,1),15):�

aK�add_sp(detarea%,"spark"+�(spk%�2),animarea%,"anim",151+(4*spk%),71,15)

b�

cE�texton%�:�((cand%=18)�(spk%=0))�(spk%=5):�selecticn(animw%,49,�)

delaps%=�-elaps%

e�plotanimmove:lasttime%=�

f-�spk%=7:�makeeye(1):�animateend:�plotanim

g�

h

i��movesmintest

j:�firstmove%:can%=0:firstmove%=�:lasttime%=�:elaps%=0:�

k
�can%=78�

l�<lasttime%+40-elaps%:�

m�

n�<lasttime%+20-elaps%:�

o�

pelaps%=�

q
�texton%�

r �textnewon%�

sl  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0)):�puticnstring(animw%,51,animwords$(simp%,1))

t �

u�

v�can%<107�

w7�add_sp(detarea%,"smintxs",animarea%,"anim",0,0,15)

x=�add_sp(detarea%,"bolus"+�(can%),animarea%,"anim",0,0,15)

y�

z.�texton%�:�can%=16:�selecticn(animw%,49,�)

{can%+=1

|elaps%=�-elaps%

}�plotanimmove:lasttime%=�

~4�can%=115:�makesmintest(1):�animateend:�plotanim

�

�

���movemuscle

�:�firstmove%:can%=0:firstmove%=�:lasttime%=�:elaps%=0:�

��<lasttime%+80-elaps%:�

�elaps%=�

�
�texton%�

� �textnewon%�

�l  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0)):�puticnstring(animw%,51,animwords$(simp%,1))

� �

��

��cl_anim(15)

�F�add_sp(detarea%,"musclxs"+�((can%+1)�2),animarea%,"anim",8,17,15)

�/�texton%�:�(can%=8):�selecticn(animw%,49,�)

�can%+=1

�elaps%=�-elaps%

��plotanimmove:lasttime%=�

�1�can%=10:�makemuscle(1):�animateend:�plotanim

��

�

���movenerves

�V�firstmove%: can%=-1:spk1%=0:spk2%=0:spk3%=0:spk4%=0:spk5%=0:firstmove%=�:elaps%=0

�%�can%>-1�:�<lasttime%+1-elaps%:�

�elaps%=�

�
�texton%�

� �textnewon%�

�l  textnewon%=0:�puticnstring(animw%,50,animwords$(simp%,0)):�puticnstring(animw%,51,animwords$(simp%,1))

� �

��

��copysp("nerve1","anim")

�
�can%>1 �

�c�add_sp(detarea%,"spark"+�((can%+2)�2),animarea%,"anim",neuron1%(spk1%,0),neuron1%(spk1%,1),15)

���(spk1%=3)�(spk1%=5) spk1%+=1:�add_sp(detarea%,"spark"+�((can%+2)�2),animarea%,"anim",neuron1%(spk1%,0),neuron1%(spk1%,1),15)

�spk1%+=1

�c�add_sp(detarea%,"spark"+�((can%+2)�2),animarea%,"anim",neuron5%(spk5%,0),neuron5%(spk5%,1),15)

���(spk5%=0)�(spk5%=2) spk5%+=1:�add_sp(detarea%,"spark"+�((can%+2)�2),animarea%,"anim",neuron5%(spk5%,0),neuron5%(spk5%,1),15)

�spk5%+=1

��

��can%>=-1 �

�c�add_sp(detarea%,"spark"+�((can%+3)�2),animarea%,"anim",neuron3%(spk3%,0),neuron3%(spk3%,1),15)

���(spk3%=2)�(spk3%=4)�(spk3%=13)�(spk3%=15) spk3%+=1:�add_sp(detarea%,"spark"+�((can%+2)�2),animarea%,"anim",neuron3%(spk3%,0),neuron3%(spk3%,1),15)

�spk3%+=1

�\�add_sp(detarea%,"spark"+�((can%+3)�2),animarea%,"anim",180-(20*spk4%),99-(16*spk4%),15)

�spk4%+=1

��

�
�can%>3 �

�Z�add_sp(detarea%,"spark"+�((can%+3)�2),animarea%,"anim",4+(14*spk2%),52+(11*spk2%),15)

�spk2%+=1

��

�� spk1%=10 spk1%=0

�� spk2%=9 spk2%=0

�� spk3%=18 spk3%=0

�� spk4%=7 spk4%=0

�� spk5%=7 spk5%=0

�0�texton%�:�(can%=40):�selecticn(animw%,49,�)

�can%+=1

�elaps%=�-elaps%

��plotanimmove:lasttime%=�

�1�can%=42:�makenerves(1):�animateend:�plotanim

��

�

�4� ************ pin the body part ***************

�

���changetopin

�%�isopen(bodyw%):�closewind(blk%)

�%�isopen(systw%):�closewind(blk%)

�%�isopen(overw%):�closewind(blk%)

�P�isopen(animw%):�closewind(blk%):�selecticn(bodyw%,activeicn%,�):�initanimw

�<�isopen(defnw%):�closewind(blk%):�selecticn(systw%,3,�)

�)*Set BodyWise$chaindir <BodyWise$Dir>

�g�Y%=0 test%=0:�:�floppy_disk("bodywise","$.!Bodywise.pinorgs_c","$.!Bodywise.pinbuts",""):�error%=0

�<ș "OS_SpriteOp",&10A,bodyarea%,"<BodyWise$Dir>.pinbuts"

�>ș "OS_SpriteOp",&10A,animarea%,"<BodyWise$Dir>.pinorgs_c"

�pinnoof%=0

��pininit

��

�

�
��pininit

�+ș "XOS_SpriteOp",&119,bodyarea%,"body"

�Sș "OS_SpriteOp",&10F,bodyarea%,"body",1,312,234,12:�addpalet(bodyarea%,"body")

�"ș "OS_SpriteOp",&109,detarea%

�Qș "OS_SpriteOp",&10F,detarea%,"body",1,312,234,12:�addpalet(detarea%,"body")

�(�addbod(detarea%):�addbod(bodyarea%)

�+pingotto%=0:pinchoice%=8:wasdoneonce%=�

�!�j%=0�23:pindonepart%(j%)=�:�

�)pinx%=0:piny%=0:�j%=0�3:rect%(j%)=0:�

��

�

���changetofullbody

�(�isopen(pinorgsw%):�closewind(blk%)

�(�isopen(pinoutlw%):�closewind(blk%)

�+pingotto%=0:pinchoice%=8:wasdoneonce%=�

�!�j%=0�23:pindonepart%(j%)=�:�

�)pinx%=0:piny%=0:�j%=0�3:rect%(j%)=0:�

�#ș "OS_SpriteOp",&109,animarea%

�#ș "OS_SpriteOp",&109,bodyarea%

�7ș "OS_SpriteOp",&10F,bodyarea%,"body",1,312,365,12

�,�addpalet(bodyarea%,"body"):�cl_body(15)

��

�

���startpin

��pingotto%=9�

� �pinscore

��

� �open_pinorgsw

��

��

�

���randompin

�� j%

�(�j%=15�30:�selecticn(setupw%,j%,0):�

��j%=0�7:randch%(j%)=-1:�

�randch%(0)=�(16)-1

��j%=1�7

� �

�  randch%(j%)=�(16)-1

� � �notchosenbefore(j%)

��

�3�j%=0�7:�selecticn(setupw%,15+randch%(j%),-1):�

��

�

�ݤnotchosenbefore(j%)

�� k%

��k%=0�j%-1

�" �randch%(j%)=randch%(k%) �:=0

�+ �(randch%(j%)=14)�(randch%(k%)=15)�:=0

�+ �(randch%(j%)=15)�(randch%(k%)=14)�:=0

��

�=-1


��open_pinorgsw
� j%
(�isopen(pinorgsw%):�closewind(blk%)
(�isopen(pinoutlw%):�closewind(blk%)
�pinnoof%>0�
 �j%=0�pinnoof%-1
M  ș "OS_SpriteOp",&11A,bodyarea%,"pinbut"+�(j%),"pinb"+�(pinchlink%(j%))
 �
	�

pinnoof%=0

�j%=15�30
 �isselected(setupw%,j%)�

   pinchlink%(pinnoof%)=j%-15
j  �hideicn(pinorgsw%,4+pinnoof%,0):�hideicn(pinorgsw%,12+pinnoof%,0):�hideicn(pinorgsw%,20+pinnoof%,0)
p  �selecticn(pinorgsw%,4+pinnoof%,0):�selecticn(pinorgsw%,12+pinnoof%,0):�selecticn(pinorgsw%,20+pinnoof%,0)
8  �puticnstring(pinorgsw%,4+pinnoof%,pinbut$(j%-15))
@�  SYS "XOS_SpriteOp",&119,animarea%,"pinbut"+STR$(pinnoof%)
J  ș "OS_SpriteOp",&11A,bodyarea%,"pinb"+�(j%-15),"pinbut"+�(pinnoof%)
  pinnoof%+=1
 �
�
�pinnoof%<8�
k �j%=pinnoof%�7:�hideicn(pinorgsw%,4+j%,-1):�hideicn(pinorgsw%,12+j%,-1):�hideicn(pinorgsw%,20+j%,-1):�
�
n�pinnoof%=0:�discmess("Please choose body part(s) to place (or choose random selection)",0):�open_setupw:�
�changepinextent(0)
�setpinoutlbuts(-1)
�pininstruct
]!blk%=pinorgsw%:blk%!4=0:blk%!8=44:blk%!12=566:blk%!16=983:blk%!20=0:blk%!24=0:blk%!28=-1
�openwind(blk%)
6!blk%=pinoutlw%:blk%!4=612:blk%!12=1279:blk%!28=-1
 �openwind(blk%)
!�
"
#��changepinextent(big%)
$@!blk%=0:blk%!4=-936:blk%!12=0:�big%:blk%!8=1236:�:blk%!8=624
%%ș"Wimp_SetExtent",pinoutlw%,blk%
&�
'
(��setpinoutlbuts(hide%)
)�hide%�
*5�j%=0�(1+pinnoof%):�hideicn(pinoutlw%,j%,hide%):�
+7�j%=10�(11+pinnoof%):�hideicn(pinoutlw%,j%,hide%):�
, �hideicn(pinoutlw%,20,hide%)
-totscore%=0
.�j%=0�pinnoof%-1
/��pinscore%(j%)=10:�puticnstring(pinoutlw%,j%+11,pinpart$(pinchlink%(j%))+�(pinscore%(j%))):�:�puticnstring(pinoutlw%,j%+11,pinpart$(pinchlink%(j%))+" "+�(pinscore%(j%)))
0totscore%+=pinscore%(j%)
1�
24totscore%=�(((totscore%/(10*pinnoof%))*100)+0.5)
3H�puticnstring(pinoutlw%,11+pinnoof%,"Total percent : "+�(totscore%))
4�
5+�j%=0�20:�hideicn(pinoutlw%,j%,hide%):�
6�
7�
8
9��redrawpinoutlw
:(ș "Wimp_RedrawWindow",,blk% � more%
;�pingotto%=9�
<4origx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-936
=ȕ more%
>Pș "OS_SpriteOp",&134,bodyarea%,"body",origx%-112,spy%,0,pinscale%,coltrans%
?Oș "OS_SpriteOp",&134,detarea%,"body",origx%+612,spy%,0,pinscale%,coltrans%
@)ș "Wimp_GetRectangle",,blk% � more%:
A�
B�
C2spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-936
Dȕ more%
EIș "OS_SpriteOp",&134,detarea%,"body",spx%,spy%,0,pinscale%,coltrans%
F)ș "Wimp_GetRectangle",,blk% � more%:
G�
H�
I�
J
K"��pinorgswclick(mx%,my%,b%,i%)
L�(i%>=20)�(i%<=27):i%-=16
M�(i%>=12)�(i%<=19):i%-=8
N�(i%>=4)�(i%<=11)�
O  �isselected(pinorgsw%,i%)�
PC  �selecticn(pinorgsw%,i%,�):pinchoice%=8:�checkwasdone(i%-4,�)
Q �
RT  �pinchoice%<8:�selecticn(pinorgsw%,pinchoice%+4,�):�checkwasdone(pinchoice%,�)
S0  �selecticn(pinorgsw%,i%,�):pinchoice%=i%-4
TW  �pindonepart%(pinlink%(pinchlink%(pinchoice%),0)):wasdoneonce%=�:�:wasdoneonce%=�
U!  �checkwasdone(pinchoice%,�)
V �
W �pinchoice%=8�
X,  �pindoneall:pingotto%=3:�:pingotto%=0
Y �
Z  pingotto%=1
[ �
\ �pininstruct
]�
^!�i%=3:�pincalcscore:�pinscore
_�
`
a��pinscore
bpingotto%=9
c(�isopen(pinorgsw%):�closewind(blk%)
d(�isopen(pinoutlw%):�closewind(blk%)
e�changepinextent(-1)
f�setpinoutlbuts(0)
g�createbasebody(-1)
h^!blk%=pinoutlw%:blk%!4=0:blk%!8=44:blk%!12=1279:blk%!16=983:blk%!20=0:blk%!24=0:blk%!28=-1
i�openwind(blk%)
j�
k
l��pincalcscore
m�j%=0�pinnoof%-1
n5 org%=pinlink%(pinchlink%(j%),0):pinscore%(j%)=10
or rad%=�(((pinchosenpos%(org%,0)-pincorrectpos%(org%,0))^2)+((pinchosenpos%(org%,1)-pincorrectpos%(org%,1))^2))
p �k%=0�9
q4  �rad%>(((16+(8*k%))*1.5)-1):pinscore%(j%)=9-k%
r �
s# �pincopyexpand(pinchlink%(j%))
t\ �spscored0(pinchlink%(j%),pinchosenpos%(org%,0),pinchosenpos%(org%,1)):pinscore%(j%)=0
u  �pindelete2(pinchlink%(j%))
v�
w�
x
y��checkwasdone(i%,fl%)
z� j%
{�wasdoneonce%�
| �j%=0�3
}T  �pinlink%(pinchlink%(i%),j%)<>-1:pindonepart%(pinlink%(pinchlink%(i%),j%))=fl%
~ �
? �createbasebody(0):�pinbasebody:�plotpinbody(0,-936,624,0)
�" �selecticn(pinorgsw%,20+i%,�)
��
�" �selecticn(pinorgsw%,20+i%,�)
��
��
�
�"��pinoutlwclick(mx%,my%,b%,i%)
�� j%
��b%<>4:�
��pingotto%=2�
�" ș"Wimp_SetPointerShape",1,-1
� �j%=0�3
�/  �pinlink%(pinchlink%(pinchoice%),j%)<>-1�
�:   pindonepart%(pinlink%(pinchlink%(pinchoice%),j%))=�
��   pinchosenpos%(pinlink%(pinchlink%(pinchoice%),j%),0)=pinx%-pinorgsize%(pinlink%(pinchlink%(pinchoice%),j%),0):pinchosenpos%(pinlink%(pinchlink%(pinchoice%),j%),1)=piny%-pinorgsize%(pinlink%(pinchlink%(pinchoice%),j%),1)
�  �
� �
�O �selecticn(pinorgsw%,pinchoice%+4,�):�selecticn(pinorgsw%,pinchoice%+20,�)
�4 �pindelete(pinchlink%(pinchoice%)):pinchoice%=8
�O doingpinpart%=�:�createbasebody(0):�pinbasebody:�plotpinbody(0,-936,624,0)
�+ �pindoneall:pingotto%=3:�:pingotto%=0
� �pininstruct
��
��(pingotto%=9)�(i%=1)�
�
 �pininit
�( �isselected(setupw%,11):�randompin
� �startpin
��
��
�
���pininstruct
�e�puticnstring(pinorgsw%,1,pinmess$(pingotto%,0)):�puticnstring(pinorgsw%,2,pinmess$(pingotto%,1))
�B�pingotto%=3:�hideicn(pinorgsw%,3,�):�:�hideicn(pinorgsw%,3,�)
��
�
�ݤpindoneall
��j%=0�pinnoof%-1
�1�pindonepart%(pinlink%(pinchlink%(j%),0)):=0
��
�=-1
�
���leavingpinoutlw
��pingotto%<>2:�
�!ș"Wimp_SetPointerShape",1,-1
�&�pindelete(pinchlink%(pinchoice%))
�Ndoingpinpart%=�:�createbasebody(0):�pinbasebody:�plotpinbody(0,-936,624,0)
�pingotto%=1:�pininstruct
��
�
���enteringpinoutlw
��pingotto%<>1�:�
�pingotto%=2:�pininstruct
�:doingpinpart%=�:�pincopyexpand(pinchlink%(pinchoice%))
�ș"Wimp_SetPointerShape",0
�*firstmove%=�:�movepinpart:firstmove%=�
��
�
���movepinpart
�Boldpinx%=pinx%:oldpiny%=piny%:�j%=0�3:oldrect%(j%)=rect%(j%):�
�"ș"Wimp_GetPointerInfo",,blk2%
�1!blk%=pinoutlw%:ș"Wimp_GetWindowState",,blk%
�Gpinx%=!blk2%-(blk%!4-blk%!20):piny%=blk2%!4-((blk%!16-blk%!24)-936)
�%pinx%-=(pinx%�8):piny%-=(piny%�8)
�?�PROCerror("pinx,y="+STR$(pinx%)+","+STR$(piny%),0):ENDPROC
�(�(pinx%=oldpinx%)�(piny%=oldpiny%):�
��createpinbody
�N�firstmove%:�plotpinbody(oldrect%(0),oldrect%(1),oldrect%(2),oldrect%(3))
�Frect%(0)=pinx%-pinorgsize%(pinlink%(pinchlink%(pinchoice%),0),0)-4
�Jrect%(1)=piny%-pinorgsize%(pinlink%(pinchlink%(pinchoice%),0),1)-4-936
�Frect%(2)=pinx%+pinorgsize%(pinlink%(pinchlink%(pinchoice%),0),0)+4
�Jrect%(3)=piny%+pinorgsize%(pinlink%(pinchlink%(pinchoice%),0),1)+4-936
�5�plotpinbody(rect%(0),rect%(1),rect%(2),rect%(3))
��
�
���createbasebody(perfect%)
��clpinbody
��j%=0�23
��pindonepart%(j%)�
��copyexpand(pinsprs$(j%))
�+ș"OS_SpriteOp",&13C,bodyarea%,"body",0
л�perfect%:ș"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pincorrectpos%(j%,0),pincorrectpos%(j%,1),8:�:ș"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pinchosenpos%(j%,0),pinchosenpos%(j%,1),8
�&ș"OS_SpriteOp",&13C,bodyarea%,0,0
�]ș"OS_SpriteOp",&119,detarea%,pinsprs$(j%):ș"OS_SpriteOp",&119,detarea%,pinsprs$(j%)+"j"
��
��
��
�
���createpinbody
�� j%,k%
��pinbasebody
�*ș"OS_SpriteOp",&13C,detarea%,"body",0
��k%=0�3
ܰ�pinlink%(pinchlink%(pinchoice%),k%)<>-1:j%=pinlink%(pinchlink%(pinchoice%),k%):ș"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pinx%-pinorgsize%(j%,0),piny%-pinorgsize%(j%,1),8
��
�%ș"OS_SpriteOp",&13C,detarea%,0,0
��
�
�*ș"OS_SpriteOp",&13C,detarea%,"body",0
��j%=0�15
�> �(j%=pinlink%(pinchoice%,0))�(j%=pinlink%(pinchoice%,1))�
�m  �showmove%:ș"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pinx%-pinorgsize%(j%,0),piny%-pinorgsize%(j%,1),8
� �
�  �pindonepart%(j%) �
�    �copyexpand(pinsprs$(j%))
�[   ș"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pinchosenpos%(j%,0),pinchosenpos%(j%,1),8
�`   ș"OS_SpriteOp",&119,detarea%,pinsprs$(j%):ș"OS_SpriteOp",&119,detarea%,pinsprs$(j%)+"j"
�  �
� �
��
�%ș"OS_SpriteOp",&13C,detarea%,0,0
�
�,��plotpinbody(xlow%,ylow%,xhigh%,yhigh%)
�1!blk%=pinoutlw%:ș"Wimp_GetWindowState",,blk%
�2spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-936
�K!blk%=pinoutlw%:blk%!4=xlow%:blk%!8=ylow%:blk%!12=xhigh%:blk%!16=yhigh%
�(ș "Wimp_UpdateWindow",,blk% � more%
�ȕ more%
�Iș "OS_SpriteOp",&134,detarea%,"body",spx%,spy%,0,pinscale%,coltrans%
�(ș "Wimp_GetRectangle",,blk% � more%
��
��
�
���clpinbody
��addbod(bodyarea%)
��
�
���pinbasebody
�)ș "OS_SpriteOp",&119,detarea%,"body"
Qș "OS_SpriteOp",&10F,detarea%,"body",1,312,234,12:�addpalet(detarea%,"body")

*ș"OS_SpriteOp",&13C,detarea%,"body",0
/ș"OS_SpriteOp",&122,bodyarea%,"body",0,0,0
%ș"OS_SpriteOp",&13C,detarea%,0,0
�

��copyexpand(sp$)
�copy(sp$):�expand(sp$)
�
	

��copy(sp$)
3ș"OS_SpriteOp",&128,animarea%,sp$ � ,,,wi%,hi%
3ș "OS_SpriteOp",&10F,detarea%,sp$,0,wi%,hi%,12

'ș"OS_SpriteOp",&13C,detarea%,sp$,0
,ș"OS_SpriteOp",&122,animarea%,sp$,0,0,0
%ș"OS_SpriteOp",&13C,detarea%,0,0
�

��pindelete(i%)
� j%
�j%=0�3
��pinlink%(i%,j%)<>-1:ș"OS_SpriteOp",&119,detarea%,pinsprs$(pinlink%(i%,j%)):ș"OS_SpriteOp",&119,detarea%,pinsprs$(pinlink%(i%,j%))+"j"
�
�

��pindelete2(i%)
� j%
�j%=0�3
��pinlink%(i%,j%)<>-1:ș"XOS_SpriteOp",&119,detarea%,pinsprs$(pinlink%(i%,j%)):ș"XOS_SpriteOp",&119,detarea%,pinsprs$(pinlink%(i%,j%))+"j"
�
�

 ��pincopyexpand(i%)
!� j%
"�j%=0�3
#?�pinlink%(i%,j%)<>-1:�copyexpand(pinsprs$(pinlink%(i%,j%)))
$�
%�
&
'��addbod(area%)
(�copy("bod")
).�add_sp(detarea%,"bod",area%,"body",0,0,2)
*'ș"OS_SpriteOp",&119,detarea%,"bod"
+�
,
-ݤspscored0(org%,C%,D%)
.� j%
/7�add_sp(animarea%,"bodsc1",bodyarea%,"body",0,0,16)
0+ș"OS_SpriteOp",&13C,bodyarea%,"body",0
1�k%=0�3
2c �pinlink%(org%,k%)<>-1:j%=pinlink%(org%,k%):ș"OS_SpriteOp",&122,detarea%,pinsprs$(j%),C%,D%,8
3�
4&ș"OS_SpriteOp",&13C,bodyarea%,0,0
56�add_sp(animarea%,"bodsc2",bodyarea%,"body",0,0,0)
6&ș"OS_SpriteOp",&13C,bodyarea%,0,0
7;ș "OS_SpriteOp",&118,bodyarea%,"body" � ,,A%:A%+=A%!32
8!scored0%=1
9
� score0%
:�!scored0%=0�:=-1
;=0
<
=
>X� ************ approx. 5K block to reserve space for disk security *****************
?
@l� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Al� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Bl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Cl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Dl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
El� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Fl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Gl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Hl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Il� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
J
Kl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Ll� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Ml� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Nl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Ol� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Pl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Ql� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Rl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Sl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Tl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
U
Vl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Wl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Xl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Yl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
Zl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
[l� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
\l� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
]l� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
^l� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
_l� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
`
al� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
bl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
cl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
dl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
el� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
fl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
gl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
hl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
il� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
jl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
k
ll� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
ml� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
nl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
ol� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
pl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
ql� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
rl� "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
s
tP� **************************************************************************
u
v
w
x
y
z
�

00000000  0d 00 00 36 f4 ff 53 43  53 49 3a 3a 53 43 53 49  |...6..SCSI::SCSI|
00000010  44 69 73 63 34 2e 24 2e  43 6f 76 65 72 44 69 73  |Disc4.$.CoverDis|
00000020  6b 73 2e 21 42 6f 64 79  77 69 73 65 2e 21 72 75  |ks.!Bodywise.!ru|
00000030  6e 69 6d 61 67 65 0d 00  01 1f f4 20 63 61 63 68  |nimage..... cach|
00000040  65 25 3d 46 41 4c 53 45  3a 4f 4e 45 52 52 4f 52  |e%=FALSE:ONERROR|
00000050  47 4f 54 4f 35 0d 00 02  0f f4 20 2a 43 41 43 48  |GOTO5..... *CACH|
00000060  45 20 4f 4e 0d 00 03 11  f4 20 63 61 63 68 65 25  |E ON..... cache%|
00000070  3d 54 52 55 45 0d 00 04  10 f4 20 4f 4e 45 52 52  |=TRUE..... ONERR|
00000080  4f 52 4f 46 46 0d 00 05  0d 2a 46 58 32 32 30 2c  |OROFF....*FX220,|
00000090  32 37 0d 00 06 04 0d 00  07 0f f2 73 6f 72 74 6d  |27.........sortm|
000000a0  65 6d 6f 72 79 0d 00 08  43 c8 99 20 22 57 69 6d  |emory...C.. "Wim|
000000b0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
000000c0  30 2c 26 34 42 35 33 34  31 35 34 2c 22 42 6f 64  |0,&4B534154,"Bod|
000000d0  79 57 69 73 65 22 20 b8  20 77 69 6d 70 76 65 72  |yWise" . wimpver|
000000e0  25 2c 74 61 73 6b 68 25  0d 00 09 5d ee 85 20 f2  |%,taskh%...].. .|
000000f0  65 72 72 6f 72 28 f6 24  2b 22 20 28 49 6e 74 65  |error(.$+" (Inte|
00000100  72 6e 61 6c 20 65 72 72  6f 72 20 63 6f 64 65 20  |rnal error code |
00000110  22 2b c3 9e 2b 22 29 22  2b bd 30 2c 9f 29 3a c8  |"+..+")"+.0,.):.|
00000120  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000130  6e 22 2c 74 61 73 6b 68  25 2c 26 34 42 35 33 34  |n",taskh%,&4B534|
00000140  31 35 34 3a e0 0d 00 0a  26 ff 22 4c 4f 41 44 20  |154:....&."LOAD |
00000150  3c 42 6f 64 79 57 69 73  65 24 44 69 72 3e 2e 63  |<BodyWise$Dir>.c|
00000160  6f 64 65 20 22 2b c3 7e  6d 63 25 0d 00 0b 0e f2  |ode "+.~mc%.....|
00000170  6d 63 5f 73 74 61 72 74  73 0d 00 0c 10 f2 73 6f  |mc_starts.....so|
00000180  72 74 73 70 72 69 74 65  73 0d 00 0d 10 f2 69 6e  |rtsprites.....in|
00000190  69 74 69 61 6c 6c 69 73  65 0d 00 0e 0f f2 6d 6f  |itiallise.....mo|
000001a0  64 65 63 68 61 6e 67 65  0d 00 0f bb f4 50 52 4f  |dechange.....PRO|
000001b0  43 65 72 72 6f 72 28 53  54 52 24 7e 28 73 63 61  |Cerror(STR$~(sca|
000001c0  6c 65 25 21 30 29 2b 22  20 22 2b 53 54 52 24 7e  |le%!0)+" "+STR$~|
000001d0  28 73 63 61 6c 65 25 21  34 29 2b 22 20 22 2b 53  |(scale%!4)+" "+S|
000001e0  54 52 24 7e 28 73 63 61  6c 65 25 21 38 29 2b 22  |TR$~(scale%!8)+"|
000001f0  20 22 2b 53 54 52 24 7e  28 73 63 61 6c 65 25 21  | "+STR$~(scale%!|
00000200  31 32 29 2b 22 20 22 2b  53 54 52 24 7e 28 63 6f  |12)+" "+STR$~(co|
00000210  6c 74 72 61 6e 73 25 21  30 29 2b 22 20 22 2b 53  |ltrans%!0)+" "+S|
00000220  54 52 24 7e 28 63 6f 6c  74 72 61 6e 73 25 21 34  |TR$~(coltrans%!4|
00000230  29 2b 22 20 22 2b 53 54  52 24 7e 28 63 6f 6c 74  |)+" "+STR$~(colt|
00000240  72 61 6e 73 25 21 38 29  2b 22 20 22 2b 53 54 52  |rans%!8)+" "+STR|
00000250  24 7e 28 63 6f 6c 74 72  61 6e 73 25 21 31 32 29  |$~(coltrans%!12)|
00000260  2c 30 29 0d 00 10 0c f2  62 61 72 69 63 6f 6e 0d  |,0).....baricon.|
00000270  00 11 37 ee 20 85 20 f2  65 72 72 6f 72 28 f6 24  |..7. . .error(.$|
00000280  2b 22 20 28 49 6e 74 65  72 6e 61 6c 20 65 72 72  |+" (Internal err|
00000290  6f 72 20 63 6f 64 65 20  22 2b c3 9e 2b 22 29 22  |or code "+..+")"|
000002a0  2b bd 30 2c 9f 29 0d 00  12 14 f5 20 f2 65 76 65  |+.0,.)..... .eve|
000002b0  6e 74 3a fd 20 71 75 69  74 25 0d 00 13 28 c8 99  |nt:. quit%...(..|
000002c0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
000002d0  22 2c 74 61 73 6b 68 25  2c 26 34 42 35 33 34 31  |",taskh%,&4B5341|
000002e0  35 34 0d 00 14 0f f4 50  52 49 4e 54 20 51 55 49  |54.....PRINT QUI|
000002f0  54 0d 00 15 09 2a 51 55  49 54 0d 00 16 19 f4 53  |T....*QUIT.....S|
00000300  59 53 22 4f 53 5f 45 78  69 74 22 2c 65 72 72 62  |YS"OS_Exit",errb|
00000310  6c 6b 25 0d 00 17 05 e0  0d 00 18 09 f4 53 54 4f  |lk%..........STO|
00000320  50 0d 00 19 04 0d 00 1a  0f dd f2 6d 63 5f 73 74  |P..........mc_st|
00000330  61 72 74 73 0d 00 1b 11  6f 75 74 6c 69 6e 65 25  |arts....outline%|
00000340  3d 21 6d 63 25 0d 00 1c  16 63 6c 65 61 72 62 6f  |=!mc%....clearbo|
00000350  64 79 25 3d 6d 63 25 21  26 30 34 0d 00 1d 13 61  |dy%=mc%!&04....a|
00000360  6e 69 6d 63 6c 25 3d 6d  63 25 21 26 30 38 0d 00  |nimcl%=mc%!&08..|
00000370  1e 14 61 6e 69 6d 62 64  72 25 3d 6d 63 25 21 26  |..animbdr%=mc%!&|
00000380  30 43 0d 00 1f 17 73 70  5f 6f 6e 5f 62 6f 64 79  |0C....sp_on_body|
00000390  25 3d 6d 63 25 21 26 31  30 0d 00 20 15 65 78 70  |%=mc%!&10.. .exp|
000003a0  61 6e 64 73 70 25 3d 6d  63 25 21 26 31 34 0d 00  |andsp%=mc%!&14..|
000003b0  21 15 63 72 75 6e 63 68  73 70 25 3d 6d 63 25 21  |!.crunchsp%=mc%!|
000003c0  26 31 38 0d 00 22 14 63  73 70 6e 61 6d 65 25 3d  |&18..".cspname%=|
000003d0  6d 63 25 21 26 31 43 0d  00 23 14 6e 73 70 6e 61  |mc%!&1C..#.nspna|
000003e0  6d 65 25 3d 6d 63 25 21  26 32 30 0d 00 24 15 61  |me%=mc%!&20..$.a|
000003f0  6e 69 6d 64 75 6c 6c 25  3d 6d 63 25 21 26 32 34  |nimdull%=mc%!&24|
00000400  0d 00 25 13 73 63 6f 72  65 30 25 3d 6d 63 25 21  |..%.score0%=mc%!|
00000410  26 32 38 0d 00 26 14 73  63 6f 72 65 64 30 25 3d  |&28..&.scored0%=|
00000420  6d 63 25 21 26 32 43 0d  00 27 18 62 6c 75 65 74  |mc%!&2C..'.bluet|
00000430  6f 77 68 69 74 65 25 3d  6d 63 25 21 26 33 30 0d  |owhite%=mc%!&30.|
00000440  00 28 05 e1 0d 00 29 04  0d 00 2a 10 dd f2 73 6f  |.(....)...*...so|
00000450  72 74 6d 65 6d 6f 72 79  0d 00 2b 58 f4 20 77 6f  |rtmemory..+X. wo|
00000460  72 6b 25 3d 26 39 30 30  30 3a 4d 41 58 57 49 4e  |rk%=&9000:MAXWIN|
00000470  44 49 4e 44 25 3d 34 30  39 36 3a 4d 41 58 57 49  |DIND%=4096:MAXWI|
00000480  4e 44 53 54 52 25 3d 34  30 39 36 3a 53 50 52 49  |NDSTR%=4096:SPRI|
00000490  54 45 53 45 58 54 25 3d  38 30 30 30 3a 52 45 4d  |TESEXT%=8000:REM|
000004a0  20 70 64 62 73 25 3d 26  34 30 30 30 30 20 3f 3f  | pdbs%=&40000 ??|
000004b0  0d 00 2c 58 f4 20 77 6f  72 6b 25 3d 26 39 30 30  |..,X. work%=&900|
000004c0  30 3a 4d 41 58 57 49 4e  44 49 4e 44 25 3d 34 38  |0:MAXWINDIND%=48|
000004d0  30 38 3a 4d 41 58 57 49  4e 44 53 54 52 25 3d 35  |08:MAXWINDSTR%=5|
000004e0  38 36 34 3a 53 50 52 49  54 45 53 45 58 54 25 3d  |864:SPRITESEXT%=|
000004f0  38 30 30 30 3a 52 45 4d  20 70 64 62 73 25 3d 26  |8000:REM pdbs%=&|
00000500  34 30 30 30 30 20 3f 3f  0d 00 2d 56 77 6f 72 6b  |40000 ??..-Vwork|
00000510  25 3d 26 39 30 30 30 3a  4d 41 58 57 49 4e 44 49  |%=&9000:MAXWINDI|
00000520  4e 44 25 3d 31 31 39 32  30 3a 4d 41 58 57 49 4e  |ND%=11920:MAXWIN|
00000530  44 53 54 52 25 3d 31 33  30 30 38 3a 53 50 52 49  |DSTR%=13008:SPRI|
00000540  54 45 53 45 58 54 25 3d  38 30 30 30 3a f4 20 70  |TESEXT%=8000:. p|
00000550  64 62 73 25 3d 26 34 30  30 30 30 20 3f 3f 0d 00  |dbs%=&40000 ??..|
00000560  2e 30 77 69 6e 64 69 6e  64 25 3d 77 6f 72 6b 25  |.0windind%=work%|
00000570  3a 77 69 6e 64 73 74 72  25 3d 77 69 6e 64 69 6e  |:windstr%=windin|
00000580  64 25 2b 4d 41 58 57 49  4e 44 49 4e 44 25 0d 00  |d%+MAXWINDIND%..|
00000590  2f 4b 77 69 6e 64 70 74  72 6c 69 73 74 25 3d 77  |/Kwindptrlist%=w|
000005a0  69 6e 64 73 74 72 25 2b  4d 41 58 57 49 4e 44 53  |indstr%+MAXWINDS|
000005b0  54 52 25 3a 77 70 74 72  6c 69 73 74 25 3d 77 69  |TR%:wptrlist%=wi|
000005c0  6e 64 70 74 72 6c 69 73  74 25 2b 38 30 3a 42 25  |ndptrlist%+80:B%|
000005d0  3d 77 69 6e 64 73 74 72  25 0d 00 30 4d 6d 63 25  |=windstr%..0Mmc%|
000005e0  3d 26 46 32 30 30 3a 62  6f 64 79 61 72 65 61 25  |=&F200:bodyarea%|
000005f0  3d 26 46 41 30 30 3a 73  70 61 72 65 61 25 3d 26  |=&FA00:sparea%=&|
00000600  31 45 32 30 30 3a 64 65  74 61 72 65 61 25 3d 26  |1E200:detarea%=&|
00000610  35 30 32 30 30 3a 61 6e  69 6d 61 72 65 61 25 3d  |50200:animarea%=|
00000620  26 36 32 32 30 30 0d 00  31 05 e1 0d 00 32 04 0d  |&62200..1....2..|
00000630  00 33 11 dd f2 73 6f 72  74 73 70 72 69 74 65 73  |.3...sortsprites|
00000640  0d 00 34 25 21 62 6f 64  79 61 72 65 61 25 3d 35  |..4%!bodyarea%=5|
00000650  38 2a 31 30 32 34 3a 62  6f 64 79 61 72 65 61 25  |8*1024:bodyarea%|
00000660  21 38 3d 31 36 0d 00 35  23 c8 99 20 22 4f 53 5f  |!8=16..5#.. "OS_|
00000670  53 70 72 69 74 65 4f 70  22 2c 26 31 30 39 2c 62  |SpriteOp",&109,b|
00000680  6f 64 79 61 72 65 61 25  0d 00 36 37 c8 99 20 22  |odyarea%..67.. "|
00000690  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
000006a0  46 2c 62 6f 64 79 61 72  65 61 25 2c 22 62 6f 64  |F,bodyarea%,"bod|
000006b0  79 22 2c 31 2c 33 31 32  2c 33 36 35 2c 31 32 0d  |y",1,312,365,12.|
000006c0  00 37 22 21 73 70 61 72  65 61 25 3d 32 30 30 2a  |.7"!sparea%=200*|
000006d0  31 30 32 34 3a 73 70 61  72 65 61 25 21 38 3d 31  |1024:sparea%!8=1|
000006e0  36 0d 00 38 21 c8 99 20  22 4f 53 5f 53 70 72 69  |6..8!.. "OS_Spri|
000006f0  74 65 4f 70 22 2c 26 31  30 39 2c 73 70 61 72 65  |teOp",&109,spare|
00000700  61 25 0d 00 39 3a c8 99  20 22 4f 53 5f 53 70 72  |a%..9:.. "OS_Spr|
00000710  69 74 65 4f 70 22 2c 26  31 30 41 2c 73 70 61 72  |iteOp",&10A,spar|
00000720  65 61 25 2c 22 3c 42 6f  64 79 57 69 73 65 24 44  |ea%,"<BodyWise$D|
00000730  69 72 3e 2e 73 70 72 69  74 65 73 22 0d 00 3a 3d  |ir>.sprites"..:=|
00000740  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000750  2c 26 31 30 42 2c 73 70  61 72 65 61 25 2c 22 3c  |,&10B,sparea%,"<|
00000760  42 6f 64 79 57 69 73 65  24 44 69 72 3e 2e 62 6f  |BodyWise$Dir>.bo|
00000770  64 79 5f 73 70 31 5f 63  22 0d 00 3b 3d c8 99 20  |dy_sp1_c"..;=.. |
00000780  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000790  30 42 2c 73 70 61 72 65  61 25 2c 22 3c 42 6f 64  |0B,sparea%,"<Bod|
000007a0  79 57 69 73 65 24 44 69  72 3e 2e 62 6f 64 79 5f  |yWise$Dir>.body_|
000007b0  73 70 32 5f 63 22 0d 00  3c 3a c8 99 20 22 4f 53  |sp2_c"..<:.. "OS|
000007c0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 42 2c  |_SpriteOp",&10B,|
000007d0  73 70 61 72 65 61 25 2c  22 3c 42 6f 64 79 57 69  |sparea%,"<BodyWi|
000007e0  73 65 24 44 69 72 3e 2e  65 69 67 68 74 5f 63 22  |se$Dir>.eight_c"|
000007f0  0d 00 3d 23 21 64 65 74  61 72 65 61 25 3d 37 32  |..=#!detarea%=72|
00000800  2a 31 30 32 34 3a 64 65  74 61 72 65 61 25 21 38  |*1024:detarea%!8|
00000810  3d 31 36 0d 00 3e 22 c8  99 20 22 4f 53 5f 53 70  |=16..>".. "OS_Sp|
00000820  72 69 74 65 4f 70 22 2c  26 31 30 39 2c 64 65 74  |riteOp",&109,det|
00000830  61 72 65 61 25 0d 00 3f  25 21 61 6e 69 6d 61 72  |area%..?%!animar|
00000840  65 61 25 3d 33 30 2a 31  30 32 34 3a 61 6e 69 6d  |ea%=30*1024:anim|
00000850  61 72 65 61 25 21 38 3d  31 36 0d 00 40 23 c8 99  |area%!8=16..@#..|
00000860  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00000870  31 30 39 2c 61 6e 69 6d  61 72 65 61 25 0d 00 41  |109,animarea%..A|
00000880  4c f4 20 6d 61 79 20 6e  6f 74 20 6e 65 65 64 20  |L. may not need |
00000890  53 59 53 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |SYS "OS_SpriteOp|
000008a0  22 2c 26 31 30 41 2c 61  6e 69 6d 61 72 65 61 25  |",&10A,animarea%|
000008b0  2c 22 3c 42 6f 64 79 57  69 73 65 24 44 69 72 3e  |,"<BodyWise$Dir>|
000008c0  2e 70 69 6e 62 75 74 73  22 0d 00 42 3b de 20 73  |.pinbuts"..B;. s|
000008d0  63 61 6c 65 25 20 31 36  3a 21 73 63 61 6c 65 25  |cale% 16:!scale%|
000008e0  3d 31 3a 73 63 61 6c 65  25 21 34 3d 31 3a 73 63  |=1:scale%!4=1:sc|
000008f0  61 6c 65 25 21 38 3d 31  3a 73 63 61 6c 65 25 21  |ale%!8=1:scale%!|
00000900  31 32 3d 31 0d 00 43 55  de 20 62 6f 64 73 63 61  |12=1..CU. bodsca|
00000910  6c 65 25 20 31 36 3a 21  62 6f 64 73 63 61 6c 65  |le% 16:!bodscale|
00000920  25 3d 31 3a 62 6f 64 73  63 61 6c 65 25 21 34 3d  |%=1:bodscale%!4=|
00000930  31 3a 62 6f 64 73 63 61  6c 65 25 21 38 3d 31 3a  |1:bodscale%!8=1:|
00000940  62 6f 64 73 63 61 6c 65  25 21 31 32 3d 31 3a 73  |bodscale%!12=1:s|
00000950  70 73 63 61 6c 65 25 3d  31 0d 00 44 2b de 20 63  |pscale%=1..D+. c|
00000960  6f 6c 74 72 61 6e 73 25  20 31 36 2c 73 70 70 61  |oltrans% 16,sppa|
00000970  6c 65 74 25 20 31 32 38  2c 73 79 73 62 75 74 24  |let% 128,sysbut$|
00000980  28 31 35 29 0d 00 45 08  f7 20 2b 30 0d 00 46 97  |(15)..E.. +0..F.|
00000990  dc 20 26 46 46 46 46 46  46 30 30 2c 26 46 46 46  |. &FFFFFF00,&FFF|
000009a0  46 46 46 30 30 2c 26 44  44 44 44 44 44 30 30 2c  |FFF00,&DDDDDD00,|
000009b0  26 44 44 44 44 44 44 30  30 2c 26 42 42 42 42 42  |&DDDDDD00,&BBBBB|
000009c0  42 30 30 2c 26 42 42 42  42 42 42 30 30 2c 26 39  |B00,&BBBBBB00,&9|
000009d0  39 39 39 39 39 30 30 2c  26 39 39 39 39 39 39 30  |9999900,&9999990|
000009e0  30 2c 26 37 37 37 37 37  37 30 30 2c 26 37 37 37  |0,&77777700,&777|
000009f0  37 37 37 30 30 2c 26 35  35 35 35 35 35 30 30 2c  |77700,&55555500,|
00000a00  26 35 35 35 35 35 35 30  30 2c 26 33 33 33 33 33  |&55555500,&33333|
00000a10  33 30 30 2c 26 33 33 33  33 33 33 30 30 2c 26 30  |300,&33333300,&0|
00000a20  2c 26 30 0d 00 47 8d dc  20 26 39 39 34 34 30 30  |,&0..G.. &994400|
00000a30  30 30 2c 26 39 39 34 34  30 30 30 30 2c 26 45 45  |00,&99440000,&EE|
00000a40  45 45 30 30 2c 26 45 45  45 45 30 30 2c 26 43 43  |EE00,&EEEE00,&CC|
00000a50  30 30 30 30 2c 26 43 43  30 30 30 30 2c 26 44 44  |0000,&CC0000,&DD|
00000a60  30 30 2c 26 44 44 30 30  2c 26 42 42 45 45 45 45  |00,&DD00,&BBEEEE|
00000a70  30 30 2c 26 42 42 45 45  45 45 30 30 2c 26 38 38  |00,&BBEEEE00,&88|
00000a80  35 35 30 30 2c 26 38 38  35 35 30 30 2c 26 42 42  |5500,&885500,&BB|
00000a90  46 46 30 30 2c 26 42 42  46 46 30 30 2c 26 46 46  |FF00,&BBFF00,&FF|
00000aa0  42 42 30 30 30 30 2c 26  46 46 42 42 30 30 30 30  |BB0000,&FFBB0000|
00000ab0  0d 00 48 26 e3 6b 25 3d  30 b8 33 31 3a f3 20 61  |..H&.k%=0.31:. a|
00000ac0  25 3a 73 70 70 61 6c 65  74 25 21 28 34 2a 6b 25  |%:sppalet%!(4*k%|
00000ad0  29 3d 61 25 3a ed 0d 00  49 08 f7 20 2b 30 0d 00  |)=a%:...I.. +0..|
00000ae0  4a a5 dc 20 6d 73 6b 65  6c 5f 6f 66 66 2c 6d 73  |J.. mskel_off,ms|
00000af0  6b 65 6c 5f 6f 6e 6e 2c  6e 65 72 76 65 5f 6f 66  |kel_onn,nerve_of|
00000b00  66 2c 6e 65 72 76 65 5f  6f 6e 6e 2c 62 6c 6f 6f  |f,nerve_onn,bloo|
00000b10  64 5f 6f 66 66 2c 62 6c  6f 6f 64 5f 6f 6e 6e 2c  |d_off,blood_onn,|
00000b20  72 65 73 70 69 5f 6f 66  66 2c 72 65 73 70 69 5f  |respi_off,respi_|
00000b30  6f 6e 6e 2c 64 69 67 65  73 5f 6f 66 66 2c 64 69  |onn,diges_off,di|
00000b40  67 65 73 5f 6f 6e 6e 2c  65 78 63 72 65 5f 6f 66  |ges_onn,excre_of|
00000b50  66 2c 65 78 63 72 65 5f  6f 6e 6e 2c 65 6e 64 6f  |f,excre_onn,endo|
00000b60  63 5f 6f 66 66 2c 65 6e  64 6f 63 5f 6f 6e 6e 2c  |c_off,endoc_onn,|
00000b70  72 65 70 72 6f 5f 6f 66  66 2c 72 65 70 72 6f 5f  |repro_off,repro_|
00000b80  6f 6e 6e 0d 00 4b 1b e3  6b 25 3d 30 b8 31 35 3a  |onn..K..k%=0.15:|
00000b90  f3 73 79 73 62 75 74 24  28 6b 25 29 3a ed 0d 00  |.sysbut$(k%):...|
00000ba0  4c 0f f2 65 78 70 61 6e  64 62 75 74 73 0d 00 4d  |L..expandbuts..M|
00000bb0  2c f2 61 64 64 70 61 6c  65 74 28 62 6f 64 79 61  |,.addpalet(bodya|
00000bc0  72 65 61 25 2c 22 62 6f  64 79 22 29 3a f2 63 6c  |rea%,"body"):.cl|
00000bd0  5f 62 6f 64 79 28 31 35  29 0d 00 4e 05 e1 0d 00  |_body(15)..N....|
00000be0  4f 04 0d 00 50 11 dd f2  6f 75 74 6c 69 6e 65 62  |O...P...outlineb|
00000bf0  6f 64 79 0d 00 51 3b c8  99 20 22 4f 53 5f 53 70  |ody..Q;.. "OS_Sp|
00000c00  72 69 74 65 4f 70 22 2c  26 31 31 38 2c 62 6f 64  |riteOp",&118,bod|
00000c10  79 61 72 65 61 25 2c 22  62 6f 64 79 22 20 b8 20  |yarea%,"body" . |
00000c20  2c 2c 41 25 3a 41 25 2b  3d 41 25 21 33 32 0d 00  |,,A%:A%+=A%!32..|
00000c30  52 3e c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |R>.. "OS_SpriteO|
00000c40  70 22 2c 26 31 31 38 2c  73 70 61 72 65 61 25 2c  |p",&118,sparea%,|
00000c50  22 6d 75 73 63 72 69 67  68 74 22 20 b8 20 2c 2c  |"muscright" . ,,|
00000c60  42 25 3a 42 25 2b 3d 42  25 21 33 32 0d 00 53 0e  |B%:B%+=B%!32..S.|
00000c70  d6 20 6f 75 74 6c 69 6e  65 25 0d 00 54 05 e1 0d  |. outline%..T...|
00000c80  00 55 04 0d 00 56 11 dd  f2 63 6c 5f 62 6f 64 79  |.U...V...cl_body|
00000c90  28 43 25 29 0d 00 57 3b  c8 99 20 22 4f 53 5f 53  |(C%)..W;.. "OS_S|
00000ca0  70 72 69 74 65 4f 70 22  2c 26 31 31 38 2c 62 6f  |priteOp",&118,bo|
00000cb0  64 79 61 72 65 61 25 2c  22 62 6f 64 79 22 20 b8  |dyarea%,"body" .|
00000cc0  20 2c 2c 41 25 3a 41 25  2b 3d 41 25 21 33 32 0d  | ,,A%:A%+=A%!32.|
00000cd0  00 58 10 d6 20 63 6c 65  61 72 62 6f 64 79 25 0d  |.X.. clearbody%.|
00000ce0  00 59 05 e1 0d 00 5a 04  0d 00 5b 10 dd f2 77 68  |.Y....Z...[...wh|
00000cf0  69 74 65 5f 62 6f 64 79  0d 00 5c 3b c8 99 20 22  |ite_body..\;.. "|
00000d00  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
00000d10  38 2c 62 6f 64 79 61 72  65 61 25 2c 22 62 6f 64  |8,bodyarea%,"bod|
00000d20  79 22 20 b8 20 2c 2c 41  25 3a 41 25 2b 3d 41 25  |y" . ,,A%:A%+=A%|
00000d30  21 33 32 0d 00 5d 12 d6  20 62 6c 75 65 74 6f 77  |!32..].. bluetow|
00000d40  68 69 74 65 25 0d 00 5e  05 e1 0d 00 5f 04 0d 00  |hite%..^...._...|
00000d50  60 11 dd f2 63 6c 5f 61  6e 69 6d 28 44 25 29 0d  |`...cl_anim(D%).|
00000d60  00 61 3b c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.a;.. "OS_Sprite|
00000d70  4f 70 22 2c 26 31 31 38  2c 61 6e 69 6d 61 72 65  |Op",&118,animare|
00000d80  61 25 2c 22 61 6e 69 6d  22 20 b8 20 2c 2c 41 25  |a%,"anim" . ,,A%|
00000d90  3a 41 25 2b 3d 41 25 21  33 32 0d 00 62 3d c8 99  |:A%+=A%!32..b=..|
00000da0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00000db0  31 32 38 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |128,animarea%,"a|
00000dc0  6e 69 6d 22 20 b8 20 2c  2c 2c 42 25 2c 43 25 3a  |nim" . ,,,B%,C%:|
00000dd0  42 25 3d 42 25 2f 32 0d  00 63 20 e3 73 25 3d 32  |B%=B%/2..c .s%=2|
00000de0  b8 34 3a 44 25 3d 44 25  84 28 44 25 3c 3c 28 32  |.4:D%=D%.(D%<<(2|
00000df0  5e 73 25 29 29 3a ed 0d  00 64 0d d6 20 61 6e 69  |^s%)):...d.. ani|
00000e00  6d 63 6c 25 0d 00 65 05  e1 0d 00 66 04 0d 00 67  |mcl%..e....f...g|
00000e10  22 dd f2 64 75 6c 6c 61  6e 69 6d 28 43 25 2c 6c  |"..dullanim(C%,l|
00000e20  65 25 2c 6c 6f 25 2c 72  69 25 2c 68 69 25 29 0d  |e%,lo%,ri%,hi%).|
00000e30  00 68 3b c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.h;.. "OS_Sprite|
00000e40  4f 70 22 2c 26 31 31 38  2c 61 6e 69 6d 61 72 65  |Op",&118,animare|
00000e50  61 25 2c 22 61 6e 69 6d  22 20 b8 20 2c 2c 41 25  |a%,"anim" . ,,A%|
00000e60  3a 41 25 2b 3d 41 25 21  33 32 0d 00 69 14 44 25  |:A%+=A%!32..i.D%|
00000e70  3d 28 28 6c 65 25 2d 34  29 2f 34 29 2d 31 0d 00  |=((le%-4)/4)-1..|
00000e80  6a 16 45 25 3d 28 36 31  32 2d 28 6c 6f 25 2d 34  |j.E%=(612-(lo%-4|
00000e90  29 29 2f 34 0d 00 6b 14  46 25 3d 28 28 72 69 25  |))/4..k.F%=((ri%|
00000ea0  2b 32 29 2f 34 29 2d 31  0d 00 6c 16 47 25 3d 28  |+2)/4)-1..l.G%=(|
00000eb0  36 31 32 2d 28 68 69 25  2b 32 29 29 2f 34 0d 00  |612-(hi%+2))/4..|
00000ec0  6d 0f d6 20 61 6e 69 6d  64 75 6c 6c 25 0d 00 6e  |m.. animdull%..n|
00000ed0  05 e1 0d 00 6f 04 0d 00  70 14 dd f2 61 6e 69 6d  |....o...p...anim|
00000ee0  5f 62 64 72 28 73 70 6e  24 29 0d 00 71 11 e7 73  |_bdr(spn$)..q..s|
00000ef0  70 6e 24 3d 22 61 6e 69  6d 22 8c 0d 00 72 3b c8  |pn$="anim"...r;.|
00000f00  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000f10  26 31 31 38 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |&118,animarea%,"|
00000f20  61 6e 69 6d 22 20 b8 20  2c 2c 41 25 3a 41 25 2b  |anim" . ,,A%:A%+|
00000f30  3d 41 25 21 33 32 0d 00  73 3d c8 99 20 22 4f 53  |=A%!32..s=.. "OS|
00000f40  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 38 2c  |_SpriteOp",&128,|
00000f50  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
00000f60  20 b8 20 2c 2c 2c 42 25  2c 43 25 3a 42 25 3d 42  | . ,,,B%,C%:B%=B|
00000f70  25 2f 32 0d 00 74 05 cc  0d 00 75 38 c8 99 20 22  |%/2..t....u8.. "|
00000f80  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
00000f90  38 2c 64 65 74 61 72 65  61 25 2c 73 70 6e 24 20  |8,detarea%,spn$ |
00000fa0  b8 20 2c 2c 41 25 3a 41  25 2b 3d 41 25 21 33 32  |. ,,A%:A%+=A%!32|
00000fb0  0d 00 76 3a c8 99 20 22  4f 53 5f 53 70 72 69 74  |..v:.. "OS_Sprit|
00000fc0  65 4f 70 22 2c 26 31 32  38 2c 64 65 74 61 72 65  |eOp",&128,detare|
00000fd0  61 25 2c 73 70 6e 24 20  b8 20 2c 2c 2c 42 25 2c  |a%,spn$ . ,,,B%,|
00000fe0  43 25 3a 42 25 3d 42 25  2f 32 0d 00 77 05 cd 0d  |C%:B%=B%/2..w...|
00000ff0  00 78 0e d6 20 61 6e 69  6d 62 64 72 25 0d 00 79  |.x.. animbdr%..y|
00001000  05 e1 0d 00 7a 04 0d 00  7b 36 dd f2 61 64 64 5f  |....z...{6..add_|
00001010  73 70 28 61 72 65 61 66  72 6f 6d 25 2c 73 70 66  |sp(areafrom%,spf|
00001020  72 6f 6d 24 2c 61 72 65  61 74 6f 25 2c 73 70 74  |rom$,areato%,spt|
00001030  6f 24 2c 43 25 2c 44 25  2c 47 25 29 0d 00 7c 08  |o$,C%,D%,G%)..|.|
00001040  ea 20 48 25 0d 00 7d 38  c8 99 20 22 4f 53 5f 53  |. H%..}8.. "OS_S|
00001050  70 72 69 74 65 4f 70 22  2c 26 31 31 38 2c 61 72  |priteOp",&118,ar|
00001060  65 61 74 6f 25 2c 73 70  74 6f 24 20 b8 20 2c 2c  |eato%,spto$ . ,,|
00001070  41 25 3a 41 25 2b 3d 41  25 21 33 32 0d 00 7e 37  |A%:A%+=A%!32..~7|
00001080  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00001090  2c 26 31 32 38 2c 61 72  65 61 74 6f 25 2c 73 70  |,&128,areato%,sp|
000010a0  74 6f 24 20 b8 20 2c 2c  2c 48 25 3a 48 25 3d 48  |to$ . ,,,H%:H%=H|
000010b0  25 2f 32 0d 00 7f 3c c8  99 20 22 4f 53 5f 53 70  |%/2...<.. "OS_Sp|
000010c0  72 69 74 65 4f 70 22 2c  26 31 31 38 2c 61 72 65  |riteOp",&118,are|
000010d0  61 66 72 6f 6d 25 2c 73  70 66 72 6f 6d 24 20 b8  |afrom%,spfrom$ .|
000010e0  20 2c 2c 42 25 3a 42 25  2b 3d 42 25 21 33 32 0d  | ,,B%:B%+=B%!32.|
000010f0  00 80 11 d6 20 73 70 5f  6f 6e 5f 62 6f 64 79 25  |.... sp_on_body%|
00001100  0d 00 81 05 e1 0d 00 82  04 0d 00 83 10 dd f2 65  |...............e|
00001110  78 70 61 6e 64 62 75 74  73 0d 00 84 0e e3 20 73  |xpandbuts..... s|
00001120  79 25 3d 30 b8 31 35 0d  00 85 3b c8 99 22 4f 53  |y%=0.15...;.."OS|
00001130  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 38 2c  |_SpriteOp",&118,|
00001140  73 70 61 72 65 61 25 2c  73 79 73 62 75 74 24 28  |sparea%,sysbut$(|
00001150  73 79 25 29 20 b8 20 2c  2c 63 73 70 69 6d 61 67  |sy%) . ,,cspimag|
00001160  65 25 0d 00 86 1b 63 73  70 69 6d 61 67 65 25 2b  |e%....cspimage%+|
00001170  3d 63 73 70 69 6d 61 67  65 25 21 33 32 0d 00 87  |=cspimage%!32...|
00001180  4f c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |O.."OS_SpriteOp"|
00001190  2c 26 31 30 46 2c 73 70  61 72 65 61 25 2c 73 79  |,&10F,sparea%,sy|
000011a0  73 62 75 74 24 28 73 79  25 29 2b 22 71 22 2c 30  |sbut$(sy%)+"q",0|
000011b0  2c 21 63 73 70 69 6d 61  67 65 25 2a 32 2c 63 73  |,!cspimage%*2,cs|
000011c0  70 69 6d 61 67 65 25 21  34 2c 31 32 0d 00 88 49  |pimage%!4,12...I|
000011d0  e7 28 28 63 73 70 69 6d  61 67 65 25 3f 38 29 80  |.((cspimage%?8).|
000011e0  26 31 30 29 3c 3e 30 3a  c8 99 22 4f 53 5f 53 70  |&10)<>0:.."OS_Sp|
000011f0  72 69 74 65 4f 70 22 2c  26 31 31 44 2c 73 70 61  |riteOp",&11D,spa|
00001200  72 65 61 25 2c 73 79 73  62 75 74 24 28 73 79 25  |rea%,sysbut$(sy%|
00001210  29 2b 22 71 22 0d 00 89  70 e3 6c 65 74 74 25 3d  |)+"q"...p.lett%=|
00001220  31 b8 39 3a 3f 28 63 73  70 6e 61 6d 65 25 2b 28  |1.9:?(cspname%+(|
00001230  6c 65 74 74 25 2d 31 29  29 3d 97 28 c1 73 79 73  |lett%-1))=.(.sys|
00001240  62 75 74 24 28 73 79 25  29 2c 6c 65 74 74 25 2c  |but$(sy%),lett%,|
00001250  31 29 29 3a 3f 28 6e 73  70 6e 61 6d 65 25 2b 28  |1)):?(nspname%+(|
00001260  6c 65 74 74 25 2d 31 29  29 3d 97 28 c1 73 79 73  |lett%-1))=.(.sys|
00001270  62 75 74 24 28 73 79 25  29 2c 6c 65 74 74 25 2c  |but$(sy%),lett%,|
00001280  31 29 29 3a ed 0d 00 8a  2c e3 6c 65 74 74 25 3d  |1)):....,.lett%=|
00001290  31 30 b8 31 32 3a 3f 28  63 73 70 6e 61 6d 65 25  |10.12:?(cspname%|
000012a0  2b 28 6c 65 74 74 25 2d  31 29 29 3d 26 30 30 3a  |+(lett%-1))=&00:|
000012b0  ed 0d 00 8b 15 3f 28 6e  73 70 6e 61 6d 65 25 2b  |.....?(nspname%+|
000012c0  39 29 3d 26 37 31 0d 00  8c 2c e3 6c 65 74 74 25  |9)=&71...,.lett%|
000012d0  3d 31 31 b8 31 32 3a 3f  28 6e 73 70 6e 61 6d 65  |=11.12:?(nspname|
000012e0  25 2b 28 6c 65 74 74 25  2d 31 29 29 3d 26 30 30  |%+(lett%-1))=&00|
000012f0  3a ed 0d 00 8d 0e 47 25  3d 73 70 61 72 65 61 25  |:.....G%=sparea%|
00001300  0d 00 8e 0f d6 20 65 78  70 61 6e 64 73 70 25 0d  |..... expandsp%.|
00001310  00 8f 2d c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..-.."OS_SpriteO|
00001320  70 22 2c 26 31 31 39 2c  73 70 61 72 65 61 25 2c  |p",&119,sparea%,|
00001330  73 79 73 62 75 74 24 28  73 79 25 29 0d 00 90 3e  |sysbut$(sy%)...>|
00001340  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00001350  26 31 31 41 2c 73 70 61  72 65 61 25 2c 73 79 73  |&11A,sparea%,sys|
00001360  62 75 74 24 28 73 79 25  29 2b 22 71 22 2c 73 79  |but$(sy%)+"q",sy|
00001370  73 62 75 74 24 28 73 79  25 29 0d 00 91 05 ed 0d  |sbut$(sy%)......|
00001380  00 92 05 e1 0d 00 93 04  0d 00 94 12 dd f2 65 78  |..............ex|
00001390  70 61 6e 64 28 73 70 6e  24 29 0d 00 95 5a f4 20  |pand(spn$)...Z. |
000013a0  63 72 65 61 74 65 20 73  70 72 69 74 65 20 22 6a  |create sprite "j|
000013b0  22 20 73 69 7a 65 20 35  20 62 79 74 65 73 20 74  |" size 5 bytes t|
000013c0  6f 20 73 74 6f 72 65 20  74 68 65 20 73 69 7a 65  |o store the size|
000013d0  20 6f 66 20 74 68 65 20  63 6f 6d 70 61 63 74 65  | of the compacte|
000013e0  64 20 73 70 72 69 74 65  20 26 20 6d 61 73 6b 20  |d sprite & mask |
000013f0  62 79 74 65 0d 00 96 34  c8 99 22 4f 53 5f 53 70  |byte...4.."OS_Sp|
00001400  72 69 74 65 4f 70 22 2c  26 31 30 46 2c 64 65 74  |riteOp",&10F,det|
00001410  61 72 65 61 25 2c 73 70  6e 24 2b 22 6a 22 2c 30  |area%,spn$+"j",0|
00001420  2c 31 30 2c 31 2c 31 32  0d 00 97 35 c8 99 22 4f  |,10,1,12...5.."O|
00001430  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 38  |S_SpriteOp",&118|
00001440  2c 64 65 74 61 72 65 61  25 2c 73 70 6e 24 2b 22  |,detarea%,spn$+"|
00001450  6a 22 20 b8 20 2c 2c 69  6d 61 67 65 25 0d 00 98  |j" . ,,image%...|
00001460  15 69 6d 61 67 65 25 2b  3d 69 6d 61 67 65 25 21  |.image%+=image%!|
00001470  33 32 0d 00 99 34 c8 99  22 4f 53 5f 53 70 72 69  |32...4.."OS_Spri|
00001480  74 65 4f 70 22 2c 26 31  31 38 2c 64 65 74 61 72  |teOp",&118,detar|
00001490  65 61 25 2c 73 70 6e 24  20 b8 20 2c 2c 63 73 70  |ea%,spn$ . ,,csp|
000014a0  69 6d 61 67 65 25 0d 00  9a 33 21 69 6d 61 67 65  |image%...3!image|
000014b0  25 3d 28 28 63 73 70 69  6d 61 67 65 25 21 31 36  |%=((cspimage%!16|
000014c0  29 2b 31 29 2a 38 20 3a  20 f4 20 73 69 7a 65 20  |)+1)*8 : . size |
000014d0  69 6e 20 70 69 78 65 6c  73 0d 00 9b 1b 63 73 70  |in pixels....csp|
000014e0  69 6d 61 67 65 25 2b 3d  63 73 70 69 6d 61 67 65  |image%+=cspimage|
000014f0  25 21 33 32 0d 00 9c 2c  69 6d 61 67 65 25 3f 34  |%!32...,image%?4|
00001500  3d 63 73 70 69 6d 61 67  65 25 3f 38 20 3a 20 f4  |=cspimage%?8 : .|
00001510  20 73 74 6f 72 65 20 6d  61 73 6b 20 62 79 74 65  | store mask byte|
00001520  0d 00 9d 34 f4 20 63 72  65 61 74 65 20 73 70 72  |...4. create spr|
00001530  69 74 65 20 22 71 22 20  28 74 65 6d 70 6f 72 61  |ite "q" (tempora|
00001540  72 69 6c 79 29 20 74 6f  20 65 78 70 61 6e 64 20  |rily) to expand |
00001550  69 6e 74 6f 0d 00 9e 48  c8 99 22 4f 53 5f 53 70  |into...H.."OS_Sp|
00001560  72 69 74 65 4f 70 22 2c  26 31 30 46 2c 64 65 74  |riteOp",&10F,det|
00001570  61 72 65 61 25 2c 73 70  6e 24 2b 22 71 22 2c 30  |area%,spn$+"q",0|
00001580  2c 21 63 73 70 69 6d 61  67 65 25 2a 32 2c 63 73  |,!cspimage%*2,cs|
00001590  70 69 6d 61 67 65 25 21  34 2c 31 32 0d 00 9f 42  |pimage%!4,12...B|
000015a0  e7 28 28 63 73 70 69 6d  61 67 65 25 3f 38 29 80  |.((cspimage%?8).|
000015b0  26 31 30 29 3c 3e 30 3a  c8 99 22 4f 53 5f 53 70  |&10)<>0:.."OS_Sp|
000015c0  72 69 74 65 4f 70 22 2c  26 31 31 44 2c 64 65 74  |riteOp",&11D,det|
000015d0  61 72 65 61 25 2c 73 70  6e 24 2b 22 71 22 0d 00  |area%,spn$+"q"..|
000015e0  a0 66 e3 6c 65 74 74 25  3d 31 b8 a9 28 73 70 6e  |.f.lett%=1..(spn|
000015f0  24 29 3a 3f 28 63 73 70  6e 61 6d 65 25 2b 28 6c  |$):?(cspname%+(l|
00001600  65 74 74 25 2d 31 29 29  3d 97 28 c1 73 70 6e 24  |ett%-1))=.(.spn$|
00001610  2c 6c 65 74 74 25 2c 31  29 29 3a 3f 28 6e 73 70  |,lett%,1)):?(nsp|
00001620  6e 61 6d 65 25 2b 28 6c  65 74 74 25 2d 31 29 29  |name%+(lett%-1))|
00001630  3d 97 28 c1 73 70 6e 24  2c 6c 65 74 74 25 2c 31  |=.(.spn$,lett%,1|
00001640  29 29 3a ed 0d 00 a1 3f  e7 a9 28 73 70 6e 24 29  |)):....?..(spn$)|
00001650  3c 31 31 3a e3 6c 65 74  74 25 3d a9 28 73 70 6e  |<11:.lett%=.(spn|
00001660  24 29 2b 31 b8 31 32 3a  3f 28 63 73 70 6e 61 6d  |$)+1.12:?(cspnam|
00001670  65 25 2b 28 6c 65 74 74  25 2d 31 29 29 3d 26 30  |e%+(lett%-1))=&0|
00001680  30 3a ed 0d 00 a2 1b 3f  28 6e 73 70 6e 61 6d 65  |0:.....?(nspname|
00001690  25 2b a9 28 73 70 6e 24  29 29 3d 26 37 31 0d 00  |%+.(spn$))=&71..|
000016a0  a3 3f e7 a9 28 73 70 6e  24 29 3c 31 30 3a e3 6c  |.?..(spn$)<10:.l|
000016b0  65 74 74 25 3d a9 28 73  70 6e 24 29 2b 32 b8 31  |ett%=.(spn$)+2.1|
000016c0  32 3a 3f 28 6e 73 70 6e  61 6d 65 25 2b 28 6c 65  |2:?(nspname%+(le|
000016d0  74 74 25 2d 31 29 29 3d  26 30 30 3a ed 0d 00 a4  |tt%-1))=&00:....|
000016e0  0f 47 25 3d 64 65 74 61  72 65 61 25 0d 00 a5 0f  |.G%=detarea%....|
000016f0  d6 20 65 78 70 61 6e 64  73 70 25 0d 00 a6 44 f4  |. expandsp%...D.|
00001700  20 64 65 6c 65 74 65 20  6f 72 69 67 69 6e 61 6c  | delete original|
00001710  20 28 63 6f 6d 70 61 63  74 65 64 29 20 73 70 72  | (compacted) spr|
00001720  69 74 65 2c 20 72 65 6e  61 6d 65 20 22 71 22 20  |ite, rename "q" |
00001730  73 70 72 69 74 65 20 74  6f 20 6f 72 69 67 2e 0d  |sprite to orig..|
00001740  00 a7 26 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..&.."OS_SpriteO|
00001750  70 22 2c 26 31 31 39 2c  64 65 74 61 72 65 61 25  |p",&119,detarea%|
00001760  2c 73 70 6e 24 0d 00 a8  2f c8 99 22 4f 53 5f 53  |,spn$.../.."OS_S|
00001770  70 72 69 74 65 4f 70 22  2c 26 31 31 41 2c 64 65  |priteOp",&11A,de|
00001780  74 61 72 65 61 25 2c 73  70 6e 24 2b 22 71 22 2c  |tarea%,spn$+"q",|
00001790  73 70 6e 24 0d 00 a9 28  f4 20 6e 65 65 64 20 74  |spn$...(. need t|
000017a0  6f 20 72 65 73 65 74 20  47 25 20 66 6f 72 20 64  |o reset G% for d|
000017b0  72 61 77 69 74 20 75 73  65 20 3f 3f 0d 00 aa 05  |rawit use ??....|
000017c0  e1 0d 00 ab 04 0d 00 ac  13 dd f2 63 6f 6d 70 61  |...........compa|
000017d0  63 74 28 73 70 6e 24 29  0d 00 ad 5c f4 20 63 72  |ct(spn$)...\. cr|
000017e0  65 61 74 65 20 73 70 72  69 74 65 20 22 71 22 20  |eate sprite "q" |
000017f0  28 74 65 6d 70 6f 72 61  72 79 29 20 74 6f 20 62  |(temporary) to b|
00001800  65 20 63 6f 6d 70 61 63  74 65 64 20 69 6e 74 6f  |e compacted into|
00001810  20 28 73 69 7a 65 20 64  65 74 61 69 6c 73 20 73  | (size details s|
00001820  74 6f 72 65 64 20 69 6e  20 73 70 72 69 74 65 20  |tored in sprite |
00001830  22 6a 22 29 0d 00 ae 35  c8 99 22 4f 53 5f 53 70  |"j")...5.."OS_Sp|
00001840  72 69 74 65 4f 70 22 2c  26 31 31 38 2c 64 65 74  |riteOp",&118,det|
00001850  61 72 65 61 25 2c 73 70  6e 24 2b 22 6a 22 20 b8  |area%,spn$+"j" .|
00001860  20 2c 2c 69 6d 61 67 65  25 0d 00 af 24 69 6d 61  | ,,image%...$ima|
00001870  67 65 25 2b 3d 69 6d 61  67 65 25 21 33 32 3a 6d  |ge%+=image%!32:m|
00001880  61 73 6b 25 3d 69 6d 61  67 65 25 3f 34 0d 00 b0  |ask%=image%?4...|
00001890  39 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |9.."OS_SpriteOp"|
000018a0  2c 26 31 30 46 2c 64 65  74 61 72 65 61 25 2c 73  |,&10F,detarea%,s|
000018b0  70 6e 24 2b 22 71 22 2c  30 2c 21 69 6d 61 67 65  |pn$+"q",0,!image|
000018c0  25 2c 31 2c 31 32 0d 00  b1 35 c8 99 22 4f 53 5f  |%,1,12...5.."OS_|
000018d0  53 70 72 69 74 65 4f 70  22 2c 26 31 31 38 2c 64  |SpriteOp",&118,d|
000018e0  65 74 61 72 65 61 25 2c  73 70 6e 24 2b 22 71 22  |etarea%,spn$+"q"|
000018f0  20 b8 20 2c 2c 69 6d 61  67 65 25 0d 00 b2 15 69  | . ,,image%....i|
00001900  6d 61 67 65 25 2b 3d 69  6d 61 67 65 25 21 33 32  |mage%+=image%!32|
00001910  0d 00 b3 3c c8 99 22 4f  53 5f 53 70 72 69 74 65  |...<.."OS_Sprite|
00001920  4f 70 22 2c 26 31 32 38  2c 64 65 74 61 72 65 61  |Op",&128,detarea|
00001930  25 2c 73 70 6e 24 20 b8  20 2c 2c 2c 21 69 6d 61  |%,spn$ . ,,,!ima|
00001940  67 65 25 2c 69 6d 61 67  65 25 21 34 0d 00 b4 24  |ge%,image%!4...$|
00001950  21 69 6d 61 67 65 25 3d  21 69 6d 61 67 65 25 2f  |!image%=!image%/|
00001960  32 3a 69 6d 61 67 65 25  3f 38 3d 6d 61 73 6b 25  |2:image%?8=mask%|
00001970  0d 00 b5 66 e3 6c 65 74  74 25 3d 31 b8 a9 28 73  |...f.lett%=1..(s|
00001980  70 6e 24 29 3a 3f 28 6e  73 70 6e 61 6d 65 25 2b  |pn$):?(nspname%+|
00001990  28 6c 65 74 74 25 2d 31  29 29 3d 97 28 c1 73 70  |(lett%-1))=.(.sp|
000019a0  6e 24 2c 6c 65 74 74 25  2c 31 29 29 3a 3f 28 63  |n$,lett%,1)):?(c|
000019b0  73 70 6e 61 6d 65 25 2b  28 6c 65 74 74 25 2d 31  |spname%+(lett%-1|
000019c0  29 29 3d 97 28 c1 73 70  6e 24 2c 6c 65 74 74 25  |))=.(.spn$,lett%|
000019d0  2c 31 29 29 3a ed 0d 00  b6 3f e7 a9 28 73 70 6e  |,1)):....?..(spn|
000019e0  24 29 3c 31 31 3a e3 6c  65 74 74 25 3d a9 28 73  |$)<11:.lett%=.(s|
000019f0  70 6e 24 29 2b 31 b8 31  32 3a 3f 28 6e 73 70 6e  |pn$)+1.12:?(nspn|
00001a00  61 6d 65 25 2b 28 6c 65  74 74 25 2d 31 29 29 3d  |ame%+(lett%-1))=|
00001a10  26 30 30 3a ed 0d 00 b7  1b 3f 28 63 73 70 6e 61  |&00:.....?(cspna|
00001a20  6d 65 25 2b a9 28 73 70  6e 24 29 29 3d 26 37 31  |me%+.(spn$))=&71|
00001a30  0d 00 b8 3f e7 a9 28 73  70 6e 24 29 3c 31 30 3a  |...?..(spn$)<10:|
00001a40  e3 6c 65 74 74 25 3d a9  28 73 70 6e 24 29 2b 32  |.lett%=.(spn$)+2|
00001a50  b8 31 32 3a 3f 28 63 73  70 6e 61 6d 65 25 2b 28  |.12:?(cspname%+(|
00001a60  6c 65 74 74 25 2d 31 29  29 3d 26 30 30 3a ed 0d  |lett%-1))=&00:..|
00001a70  00 b9 0f 47 25 3d 64 65  74 61 72 65 61 25 0d 00  |...G%=detarea%..|
00001a80  ba 0f d6 20 63 72 75 6e  63 68 73 70 25 0d 00 bb  |... crunchsp%...|
00001a90  50 f4 20 64 65 6c 65 74  65 20 6f 72 69 67 69 6e  |P. delete origin|
00001aa0  61 6c 20 28 6e 6f 72 6d  61 6c 29 20 73 70 72 69  |al (normal) spri|
00001ab0  74 65 20 61 6e 64 20 22  6a 22 20 73 70 72 69 74  |te and "j" sprit|
00001ac0  65 2c 20 72 65 6e 61 6d  65 20 22 71 22 20 73 70  |e, rename "q" sp|
00001ad0  72 69 74 65 20 74 6f 20  6f 72 69 67 2e 0d 00 bc  |rite to orig....|
00001ae0  4d c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |M.."OS_SpriteOp"|
00001af0  2c 26 31 31 39 2c 64 65  74 61 72 65 61 25 2c 73  |,&119,detarea%,s|
00001b00  70 6e 24 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |pn$:.."OS_Sprite|
00001b10  4f 70 22 2c 26 31 31 39  2c 64 65 74 61 72 65 61  |Op",&119,detarea|
00001b20  25 2c 73 70 6e 24 2b 22  6a 22 0d 00 bd 2f c8 99  |%,spn$+"j".../..|
00001b30  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00001b40  31 41 2c 64 65 74 61 72  65 61 25 2c 73 70 6e 24  |1A,detarea%,spn$|
00001b50  2b 22 71 22 2c 73 70 6e  24 0d 00 be 28 f4 20 6e  |+"q",spn$...(. n|
00001b60  65 65 64 20 74 6f 20 72  65 73 65 74 20 47 25 20  |eed to reset G% |
00001b70  66 6f 72 20 64 72 61 77  69 74 20 75 73 65 20 3f  |for drawit use ?|
00001b80  3f 0d 00 bf 05 e1 0d 00  c0 04 0d 00 c1 11 dd f2  |?...............|
00001b90  69 6e 69 74 69 61 6c 6c  69 73 65 0d 00 c2 5c de  |initiallise...\.|
00001ba0  20 62 6c 6b 25 20 32 35  36 2c 69 62 6e 61 6d 65  | blk% 256,ibname|
00001bb0  25 20 32 30 2c 65 72 72  62 6c 6b 25 20 32 30 30  |% 20,errblk% 200|
00001bc0  2c 6d 65 6e 75 25 20 31  30 32 34 2c 62 6c 6b 32  |,menu% 1024,blk2|
00001bd0  25 20 32 35 36 2c 69 6e  70 75 74 5f 64 69 73 6b  |% 256,input_disk|
00001be0  5f 6e 61 6d 65 25 20 31  32 2c 74 78 74 62 75 66  |_name% 12,txtbuf|
00001bf0  66 25 20 31 30 32 34 0d  00 c3 32 de 20 70 64 72  |f% 1024...2. pdr|
00001c00  65 63 74 25 20 31 36 2c  70 64 72 65 63 74 32 25  |ect% 16,pdrect2%|
00001c10  20 31 36 2c 70 64 74 72  61 6e 73 25 20 31 36 2c  | 16,pdtrans% 16,|
00001c20  70 64 70 6c 6f 74 25 20  38 0d 00 c4 26 de 20 63  |pdplot% 8...&. c|
00001c30  74 72 61 6e 73 25 20 32  35 36 2c 70 61 6c 74 61  |trans% 256,palta|
00001c40  62 25 20 36 34 2c 53 43  41 4c 45 25 20 31 36 0d  |b% 64,SCALE% 16.|
00001c50  00 c5 17 de 20 64 65 66  61 75 6c 74 64 61 74 61  |.... defaultdata|
00001c60  25 28 33 2c 32 29 0d 00  c6 0d f7 3a 71 75 69 74  |%(3,2).....:quit|
00001c70  25 3d a3 0d 00 c7 30 77  70 74 72 31 25 3d 77 69  |%=....0wptr1%=wi|
00001c80  6e 64 73 74 72 25 3a 77  70 74 72 32 25 3d 77 69  |ndstr%:wptr2%=wi|
00001c90  6e 64 69 6e 64 25 3a 77  69 6e 64 63 6f 75 6e 74  |ndind%:windcount|
00001ca0  25 3d 31 0d 00 c8 36 c8  99 20 22 57 69 6d 70 5f  |%=1...6.. "Wimp_|
00001cb0  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 22  |OpenTemplate",,"|
00001cc0  3c 42 6f 64 79 57 69 73  65 24 44 69 72 3e 2e 54  |<BodyWise$Dir>.T|
00001cd0  65 6d 70 6c 61 74 65 73  22 0d 00 c9 36 f2 6c 6f  |emplates"...6.lo|
00001ce0  61 64 5f 74 65 6d 70 6c  61 74 65 28 22 70 72 6f  |ad_template("pro|
00001cf0  67 69 6e 66 6f 22 29 3a  f2 6c 6f 61 64 5f 74 65  |ginfo"):.load_te|
00001d00  6d 70 6c 61 74 65 28 22  73 65 74 75 70 22 29 0d  |mplate("setup").|
00001d10  00 ca 39 f2 6c 6f 61 64  5f 74 65 6d 70 6c 61 74  |..9.load_templat|
00001d20  65 28 22 6f 76 65 72 76  69 65 77 22 29 3a f2 6c  |e("overview"):.l|
00001d30  6f 61 64 5f 74 65 6d 70  6c 61 74 65 28 22 73 79  |oad_template("sy|
00001d40  73 74 64 65 66 6e 22 29  0d 00 cb 38 f2 6c 6f 61  |stdefn")...8.loa|
00001d50  64 5f 74 65 6d 70 6c 61  74 65 28 22 62 6f 64 79  |d_template("body|
00001d60  6f 75 74 6c 22 29 3a f2  6c 6f 61 64 5f 74 65 6d  |outl"):.load_tem|
00001d70  70 6c 61 74 65 28 22 6d  65 73 73 61 67 65 22 29  |plate("message")|
00001d80  0d 00 cc 37 f2 6c 6f 61  64 5f 74 65 6d 70 6c 61  |...7.load_templa|
00001d90  74 65 28 22 61 6e 69 6d  61 74 65 22 29 3a f2 6c  |te("animate"):.l|
00001da0  6f 61 64 5f 74 65 6d 70  6c 61 74 65 28 22 73 79  |oad_template("sy|
00001db0  73 74 65 6d 73 22 29 0d  00 cd 23 f4 50 52 4f 43  |stems")...#.PROC|
00001dc0  6c 6f 61 64 5f 74 65 6d  70 6c 61 74 65 28 22 70  |load_template("p|
00001dd0  61 69 6e 74 64 62 6f 78  22 29 0d 00 ce 1e f2 6c  |aintdbox").....l|
00001de0  6f 61 64 5f 74 65 6d 70  6c 61 74 65 28 22 65 64  |oad_template("ed|
00001df0  69 74 64 62 6f 78 22 29  0d 00 cf 37 f2 6c 6f 61  |itdbox")...7.loa|
00001e00  64 5f 74 65 6d 70 6c 61  74 65 28 22 70 69 6e 6f  |d_template("pino|
00001e10  72 67 73 22 29 3a f2 6c  6f 61 64 5f 74 65 6d 70  |rgs"):.load_temp|
00001e20  6c 61 74 65 28 22 70 69  6e 6f 75 74 6c 22 29 0d  |late("pinoutl").|
00001e30  00 d0 1d f2 6c 6f 61 64  5f 74 65 6d 70 6c 61 74  |....load_templat|
00001e40  65 28 22 6f 72 67 64 65  66 6e 22 29 0d 00 d1 1e  |e("orgdefn")....|
00001e50  f2 6c 6f 61 64 5f 74 65  6d 70 6c 61 74 65 28 22  |.load_template("|
00001e60  73 61 76 65 62 6f 64 79  22 29 0d 00 d2 1f f2 6c  |savebody").....l|
00001e70  6f 61 64 5f 74 65 6d 70  6c 61 74 65 28 22 70 72  |oad_template("pr|
00001e80  69 6e 74 62 6f 64 79 22  29 0d 00 d3 1e f2 6c 6f  |intbody").....lo|
00001e90  61 64 5f 74 65 6d 70 6c  61 74 65 28 22 73 61 76  |ad_template("sav|
00001ea0  65 61 6e 69 6d 22 29 0d  00 d4 1f f2 6c 6f 61 64  |eanim").....load|
00001eb0  5f 74 65 6d 70 6c 61 74  65 28 22 70 72 69 6e 74  |_template("print|
00001ec0  61 6e 69 6d 22 29 0d 00  d5 1b c8 99 20 22 57 69  |anim")...... "Wi|
00001ed0  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
00001ee0  22 0d 00 d6 59 f4 50 52  4f 43 65 72 72 6f 72 28  |"...Y.PROCerror(|
00001ef0  53 54 52 24 28 77 69 6e  64 69 6e 64 25 2b 4d 41  |STR$(windind%+MA|
00001f00  58 57 49 4e 44 49 4e 44  25 2d 77 70 74 72 32 25  |XWINDIND%-wptr2%|
00001f10  29 2b 22 20 22 2b 53 54  52 24 28 77 69 6e 64 73  |)+" "+STR$(winds|
00001f20  74 72 25 2b 4d 41 58 57  49 4e 44 53 54 52 25 2d  |tr%+MAXWINDSTR%-|
00001f30  77 70 74 72 31 25 29 2c  30 29 0d 00 d7 5e f4 20  |wptr1%),0)...^. |
00001f40  6d 61 79 20 6e 6f 74 20  6e 65 65 64 53 59 53 20  |may not needSYS |
00001f50  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00001f60  30 39 2c 61 6e 69 6d 61  72 65 61 25 3a 52 45 4d  |09,animarea%:REM|
00001f70  20 6e 65 65 64 65 64 20  74 6f 20 62 6c 61 6e 6b  | needed to blank|
00001f80  20 6f 75 74 20 70 69 6e  62 75 74 73 20 73 70 72  | out pinbuts spr|
00001f90  69 74 65 20 66 69 6c 65  0d 00 d8 72 6d 61 78 73  |ite file...rmaxs|
00001fa0  70 25 3d 35 33 3a de 20  62 6f 64 79 73 70 24 28  |p%=53:. bodysp$(|
00001fb0  6d 61 78 73 70 25 29 2c  62 6f 64 79 73 70 25 28  |maxsp%),bodysp%(|
00001fc0  6d 61 78 73 70 25 2c 33  29 2c 73 79 73 62 25 28  |maxsp%,3),sysb%(|
00001fd0  37 2c 31 29 2c 73 79 73  62 61 72 65 61 25 28 37  |7,1),sysbarea%(7|
00001fe0  2c 33 29 2c 6c 69 6e 6b  24 28 32 33 29 2c 61 6e  |,3),link$(23),an|
00001ff0  69 6d 66 69 6c 65 24 28  32 34 2c 31 29 2c 62 75  |imfile$(24,1),bu|
00002000  74 64 65 66 25 28 32 2c  33 29 0d 00 d9 5e de 20  |tdef%(2,3)...^. |
00002010  6f 76 6c 69 6e 65 73 24  28 39 29 2c 73 79 73 74  |ovlines$(9),syst|
00002020  65 6d 6c 61 62 65 6c 73  24 28 39 29 2c 73 79 73  |emlabels$(9),sys|
00002030  74 65 6d 5f 6f 6e 25 28  37 29 2c 73 79 73 74 6c  |tem_on%(7),systl|
00002040  69 6e 6b 24 28 38 29 2c  73 79 73 74 62 6f 64 79  |ink$(8),systbody|
00002050  73 70 25 28 6d 61 78 73  70 25 29 2c 62 75 74 74  |sp%(maxsp%),butt|
00002060  79 70 65 25 28 32 34 29  0d 00 da ab de 20 73 79  |ype%(24)..... sy|
00002070  73 74 77 6f 72 64 73 24  28 32 31 29 2c 73 79 73  |stwords$(21),sys|
00002080  74 6c 69 6e 6b 77 6f 72  64 73 25 28 37 2c 31 29  |tlinkwords%(7,1)|
00002090  2c 73 79 73 74 74 69 74  24 28 37 29 2c 73 70 6b  |,systtit$(7),spk|
000020a0  25 28 31 36 29 2c 77 6f  72 64 73 24 28 31 2c 31  |%(16),words$(1,1|
000020b0  37 2c 31 29 2c 61 6e 69  6d 77 6f 72 64 73 24 28  |7,1),animwords$(|
000020c0  31 2c 35 29 2c 6f 72 67  6a 75 73 74 77 6f 72 64  |1,5),orgjustword|
000020d0  73 24 28 31 38 2c 31 29  2c 77 6f 72 64 73 25 28  |s$(18,1),words%(|
000020e0  31 2c 37 29 2c 77 6f 72  64 6f 76 6c 61 79 24 28  |1,7),wordovlay$(|
000020f0  32 34 29 2c 6c 69 6e 65  73 24 28 31 2c 32 29 2c  |24),lines$(1,2),|
00002100  63 6c 6f 73 65 72 63 6f  6f 72 64 73 25 28 32 34  |closercoords%(24|
00002110  2c 34 29 0d 00 db 3f de  20 62 6f 64 79 62 6f 78  |,4)...?. bodybox|
00002120  25 28 34 33 2c 32 29 2c  62 6f 64 79 62 6f 78 6c  |%(43,2),bodyboxl|
00002130  61 62 24 28 34 33 29 2c  61 6e 69 6d 62 6f 78 25  |ab$(43),animbox%|
00002140  28 34 33 2c 31 29 2c 62  77 66 69 6c 65 24 28 32  |(43,1),bwfile$(2|
00002150  34 29 0d 00 dc 14 de 20  63 61 6e 64 70 6f 73 25  |4)..... candpos%|
00002160  28 31 37 2c 31 29 0d 00  dd 3c de 20 6f 6c 66 31  |(17,1)...<. olf1|
00002170  24 28 31 36 29 2c 6f 6c  66 32 24 28 33 29 2c 74  |$(16),olf2$(3),t|
00002180  65 6d 70 24 28 31 36 29  2c 73 6d 65 6c 6c 25 28  |emp$(16),smell%(|
00002190  31 36 29 2c 77 68 69 63  68 6f 6c 66 32 25 28 31  |16),whicholf2%(1|
000021a0  36 29 0d 00 de 58 de 20  73 70 6b 6d 61 78 25 28  |6)...X. spkmax%(|
000021b0  31 30 29 2c 73 6b 70 61  69 6e 25 28 36 2c 31 29  |10),skpain%(6,1)|
000021c0  2c 73 6b 70 72 65 73 73  25 28 38 2c 31 29 2c 73  |,skpress%(8,1),s|
000021d0  6b 68 65 61 74 31 25 28  31 30 2c 31 29 2c 73 6b  |kheat1%(10,1),sk|
000021e0  68 65 61 74 32 25 28 35  2c 31 29 2c 73 6b 74 6f  |heat2%(5,1),skto|
000021f0  75 63 68 25 28 31 36 2c  31 29 0d 00 df 1c de 20  |uch%(16,1)..... |
00002200  68 61 72 72 25 28 32 32  2c 31 29 2c 68 61 6e 69  |harr%(22,1),hani|
00002210  6d 24 28 33 37 29 0d 00  e0 2d de 20 63 61 6e 61  |m$(37)...-. cana|
00002220  6c 25 28 31 30 2c 33 29  2c 63 6f 63 68 6c 65 61  |l%(10,3),cochlea|
00002230  25 28 31 37 2c 33 29 2c  73 70 61 72 6b 25 28 32  |%(17,3),spark%(2|
00002240  2c 31 29 0d 00 e1 5f de  20 61 78 6f 6e 31 25 28  |,1)..._. axon1%(|
00002250  37 2c 31 29 2c 63 65 6c  6c 25 28 33 2c 31 29 2c  |7,1),cell%(3,1),|
00002260  61 78 6f 6e 32 25 28 32  30 2c 31 29 2c 74 61 69  |axon2%(20,1),tai|
00002270  6c 25 28 33 2c 31 29 2c  6e 65 75 72 6f 6e 31 25  |l%(3,1),neuron1%|
00002280  28 39 2c 31 29 2c 6e 65  75 72 6f 6e 33 25 28 31  |(9,1),neuron3%(1|
00002290  37 2c 31 29 2c 6e 65 75  72 6f 6e 35 25 28 36 2c  |7,1),neuron5%(6,|
000022a0  31 29 0d 00 e2 20 de 20  62 61 62 79 65 67 67 25  |1)... . babyegg%|
000022b0  28 38 2c 31 29 2c 70 65  72 65 67 67 25 28 37 2c  |(8,1),peregg%(7,|
000022c0  31 29 0d 00 e3 10 f2 66  69 6c 6c 5f 61 72 72 61  |1).....fill_arra|
000022d0  79 73 0d 00 e4 33 61 24  3d a4 63 6f 6e 76 65 72  |ys...3a$=.conver|
000022e0  74 74 6f 6c 6f 77 65 72  28 a4 72 65 61 64 73 79  |ttolower(.readsy|
000022f0  73 76 61 72 28 22 42 6f  64 79 57 69 73 65 24 44  |svar("BodyWise$D|
00002300  69 72 22 29 29 0d 00 e5  28 e7 a7 61 24 2c 22 61  |ir"))...(..a$,"a|
00002310  64 66 73 3a 3a 62 6f 64  79 77 69 73 65 22 29 3c  |dfs::bodywise")<|
00002320  3e 30 20 59 25 3d 30 20  8b 59 25 3d 31 0d 00 e6  |>0 Y%=0 .Y%=1...|
00002330  30 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |0.. "Wimp_Create|
00002340  57 69 6e 64 6f 77 22 2c  2c 77 70 74 72 6c 69 73  |Window",,wptrlis|
00002350  74 25 21 30 20 b8 20 69  6e 66 6f 77 25 0d 00 e7  |t%!0 . infow%...|
00002360  31 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |1.. "Wimp_Create|
00002370  57 69 6e 64 6f 77 22 2c  2c 77 70 74 72 6c 69 73  |Window",,wptrlis|
00002380  74 25 21 34 20 b8 20 73  65 74 75 70 77 25 0d 00  |t%!4 . setupw%..|
00002390  e8 30 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.0.. "Wimp_Creat|
000023a0  65 57 69 6e 64 6f 77 22  2c 2c 77 70 74 72 6c 69  |eWindow",,wptrli|
000023b0  73 74 25 21 38 20 b8 20  6f 76 65 72 77 25 0d 00  |st%!8 . overw%..|
000023c0  e9 31 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.1.. "Wimp_Creat|
000023d0  65 57 69 6e 64 6f 77 22  2c 2c 77 70 74 72 6c 69  |eWindow",,wptrli|
000023e0  73 74 25 21 31 32 20 b8  20 64 65 66 6e 77 25 0d  |st%!12 . defnw%.|
000023f0  00 ea 31 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..1.. "Wimp_Crea|
00002400  74 65 57 69 6e 64 6f 77  22 2c 2c 77 70 74 72 6c  |teWindow",,wptrl|
00002410  69 73 74 25 21 31 36 20  b8 20 62 6f 64 79 77 25  |ist%!16 . bodyw%|
00002420  0d 00 eb 30 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...0.. "Wimp_Cre|
00002430  61 74 65 57 69 6e 64 6f  77 22 2c 2c 77 70 74 72  |ateWindow",,wptr|
00002440  6c 69 73 74 25 21 32 30  20 b8 20 6d 73 67 77 25  |list%!20 . msgw%|
00002450  0d 00 ec 31 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...1.. "Wimp_Cre|
00002460  61 74 65 57 69 6e 64 6f  77 22 2c 2c 77 70 74 72  |ateWindow",,wptr|
00002470  6c 69 73 74 25 21 32 34  20 b8 20 61 6e 69 6d 77  |list%!24 . animw|
00002480  25 0d 00 ed 31 c8 99 20  22 57 69 6d 70 5f 43 72  |%...1.. "Wimp_Cr|
00002490  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 77 70 74  |eateWindow",,wpt|
000024a0  72 6c 69 73 74 25 21 32  38 20 b8 20 73 79 73 74  |rlist%!28 . syst|
000024b0  77 25 0d 00 ee 35 f4 53  59 53 20 22 57 69 6d 70  |w%...5.SYS "Wimp|
000024c0  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000024d0  77 70 74 72 6c 69 73 74  25 21 33 32 20 54 4f 20  |wptrlist%!32 TO |
000024e0  70 64 62 6f 78 77 25 0d  00 ef 32 c8 99 20 22 57  |pdboxw%...2.. "W|
000024f0  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00002500  22 2c 2c 77 70 74 72 6c  69 73 74 25 21 33 32 20  |",,wptrlist%!32 |
00002510  b8 20 65 64 62 6f 78 77  25 0d 00 f0 34 c8 99 20  |. edboxw%...4.. |
00002520  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00002530  6f 77 22 2c 2c 77 70 74  72 6c 69 73 74 25 21 33  |ow",,wptrlist%!3|
00002540  36 20 b8 20 70 69 6e 6f  72 67 73 77 25 0d 00 f1  |6 . pinorgsw%...|
00002550  34 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |4.. "Wimp_Create|
00002560  57 69 6e 64 6f 77 22 2c  2c 77 70 74 72 6c 69 73  |Window",,wptrlis|
00002570  74 25 21 34 30 20 b8 20  70 69 6e 6f 75 74 6c 77  |t%!40 . pinoutlw|
00002580  25 0d 00 f2 34 c8 99 20  22 57 69 6d 70 5f 43 72  |%...4.. "Wimp_Cr|
00002590  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 77 70 74  |eateWindow",,wpt|
000025a0  72 6c 69 73 74 25 21 34  34 20 b8 20 6f 72 67 64  |rlist%!44 . orgd|
000025b0  65 66 6e 77 25 0d 00 f3  33 c8 99 20 22 57 69 6d  |efnw%...3.. "Wim|
000025c0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
000025d0  2c 77 70 74 72 6c 69 73  74 25 21 34 38 20 b8 20  |,wptrlist%!48 . |
000025e0  73 61 62 6f 64 79 77 25  0d 00 f4 33 c8 99 20 22  |sabodyw%...3.. "|
000025f0  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00002600  77 22 2c 2c 77 70 74 72  6c 69 73 74 25 21 35 32  |w",,wptrlist%!52|
00002610  20 b8 20 70 72 62 6f 64  79 77 25 0d 00 f5 33 c8  | . prbodyw%...3.|
00002620  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00002630  6e 64 6f 77 22 2c 2c 77  70 74 72 6c 69 73 74 25  |ndow",,wptrlist%|
00002640  21 35 36 20 b8 20 73 61  61 6e 69 6d 77 25 0d 00  |!56 . saanimw%..|
00002650  f6 33 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.3.. "Wimp_Creat|
00002660  65 57 69 6e 64 6f 77 22  2c 2c 77 70 74 72 6c 69  |eWindow",,wptrli|
00002670  73 74 25 21 36 30 20 b8  20 70 72 61 6e 69 6d 77  |st%!60 . pranimw|
00002680  25 0d 00 f7 2b 64 25 3d  77 70 74 72 6c 69 73 74  |%...+d%=wptrlist|
00002690  25 21 38 3a 66 69 78 65  64 77 69 64 74 68 25 3d  |%!8:fixedwidth%=|
000026a0  28 64 25 21 38 29 2d 28  21 64 25 29 0d 00 f8 31  |(d%!8)-(!d%)...1|
000026b0  f2 73 65 6c 65 63 74 69  63 6e 28 6f 76 65 72 77  |.selecticn(overw|
000026c0  25 2c 30 2c b9 29 3a f2  73 65 6c 65 63 74 69 63  |%,0,.):.selectic|
000026d0  6e 28 73 79 73 74 77 25  2c 30 2c b9 29 0d 00 f9  |n(systw%,0,.)...|
000026e0  35 f2 73 65 6c 65 63 74  69 63 6e 28 73 65 74 75  |5.selecticn(setu|
000026f0  70 77 25 2c 34 37 2c b9  29 3a f2 73 65 6c 65 63  |pw%,47,.):.selec|
00002700  74 69 63 6e 28 73 65 74  75 70 77 25 2c 34 38 2c  |ticn(setupw%,48,|
00002710  a3 29 0d 00 fa 35 f2 73  65 6c 65 63 74 69 63 6e  |.)...5.selecticn|
00002720  28 73 65 74 75 70 77 25  2c 33 33 2c b9 29 3a f2  |(setupw%,33,.):.|
00002730  73 65 6c 65 63 74 69 63  6e 28 73 65 74 75 70 77  |selecticn(setupw|
00002740  25 2c 33 34 2c a3 29 0d  00 fb 33 f2 73 65 6c 65  |%,34,.)...3.sele|
00002750  63 74 69 63 6e 28 73 65  74 75 70 77 25 2c 33 2c  |cticn(setupw%,3,|
00002760  b9 29 3a f2 73 65 6c 65  63 74 69 63 6e 28 73 65  |.):.selecticn(se|
00002770  74 75 70 77 25 2c 32 2c  a3 29 0d 00 fc 35 f2 73  |tupw%,2,.)...5.s|
00002780  65 6c 65 63 74 69 63 6e  28 73 65 74 75 70 77 25  |electicn(setupw%|
00002790  2c 31 31 2c b9 29 3a f2  73 65 6c 65 63 74 69 63  |,11,.):.selectic|
000027a0  6e 28 73 65 74 75 70 77  25 2c 31 32 2c a3 29 0d  |n(setupw%,12,.).|
000027b0  00 fd 28 e3 6a 25 3d 31  35 b8 33 30 3a f2 73 65  |..(.j%=15.30:.se|
000027c0  6c 65 63 74 69 63 6e 28  73 65 74 75 70 77 25 2c  |lecticn(setupw%,|
000027d0  6a 25 2c a3 29 3a ed 0d  00 fe 28 e3 6a 25 3d 33  |j%,.):....(.j%=3|
000027e0  37 b8 34 34 3a f2 73 65  6c 65 63 74 69 63 6e 28  |7.44:.selecticn(|
000027f0  73 65 74 75 70 77 25 2c  6a 25 2c a3 29 3a ed 0d  |setupw%,j%,.):..|
00002800  00 ff 33 61 63 74 69 76  65 73 79 73 74 69 63 6e  |..3activesysticn|
00002810  25 3d 30 3a 73 79 73 74  63 6c 69 63 6b 25 3d 31  |%=0:systclick%=1|
00002820  30 3a 61 63 74 69 76 65  6f 72 67 69 63 6e 25 3d  |0:activeorgicn%=|
00002830  2d 31 0d 01 00 25 66 69  72 73 74 74 69 6d 65 25  |-1...%firsttime%|
00002840  3d b9 3a 63 75 72 72 6d  65 6e 75 25 3d 30 3a 73  |=.:currmenu%=0:s|
00002850  65 78 6f 6e 25 3d 30 0d  01 01 23 f2 69 6e 69 74  |exon%=0...#.init|
00002860  62 6f 64 79 6c 61 62 65  6c 73 3a f2 68 69 64 65  |bodylabels:.hide|
00002870  62 6f 64 79 6c 61 62 65  6c 73 0d 01 02 1e f2 69  |bodylabels.....i|
00002880  6e 69 74 61 6e 69 6d 77  3a f2 61 6e 69 6d 62 75  |nitanimw:.animbu|
00002890  74 73 5f 6f 6e 6f 66 66  0d 01 03 18 f2 68 69 64  |ts_onoff.....hid|
000028a0  65 69 63 6e 28 73 79 73  74 77 25 2c 33 2c b9 29  |eicn(systw%,3,.)|
000028b0  0d 01 04 2f f2 73 68 61  64 65 69 63 6e 28 6f 76  |.../.shadeicn(ov|
000028c0  65 72 77 25 2c 34 2c b9  29 3a f2 73 68 61 64 65  |erw%,4,.):.shade|
000028d0  69 63 6e 28 6f 76 65 72  77 25 2c 35 2c b9 29 0d  |icn(overw%,5,.).|
000028e0  01 05 26 e3 6a 25 3d 31  30 b8 32 37 3a f2 73 68  |..&.j%=10.27:.sh|
000028f0  61 64 65 69 63 6e 28 6f  76 65 72 77 25 2c 6a 25  |adeicn(overw%,j%|
00002900  2c b9 29 3a ed 0d 01 06  28 e3 6a 25 3d 31 35 b8  |,.):....(.j%=15.|
00002910  32 30 3a f2 73 65 6c 65  63 74 69 63 6e 28 73 65  |20:.selecticn(se|
00002920  74 75 70 77 25 2c 6a 25  2c b9 29 3a ed 0d 01 07  |tupw%,j%,.):....|
00002930  35 f2 73 65 6c 65 63 74  69 63 6e 28 73 65 74 75  |5.selecticn(setu|
00002940  70 77 25 2c 32 33 2c b9  29 3a f2 73 65 6c 65 63  |pw%,23,.):.selec|
00002950  74 69 63 6e 28 73 65 74  75 70 77 25 2c 32 36 2c  |ticn(setupw%,26,|
00002960  b9 29 0d 01 08 35 f2 73  65 6c 65 63 74 69 63 6e  |.)...5.selecticn|
00002970  28 73 65 74 75 70 77 25  2c 31 32 2c b9 29 3a f2  |(setupw%,12,.):.|
00002980  73 65 6c 65 63 74 69 63  6e 28 73 65 74 75 70 77  |selecticn(setupw|
00002990  25 2c 31 31 2c a3 29 0d  01 09 34 f4 20 2a 2a 2a  |%,11,.)...4. ***|
000029a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 20 70 69 6e 20 74 68  |********* pin th|
000029b0  65 20 62 6f 64 79 20 70  61 72 74 20 2a 2a 2a 2a  |e body part ****|
000029c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 01 0a 1e 64  |***********....d|
000029d0  6f 69 6e 67 70 69 6e 70  61 72 74 25 3d a3 3a 70  |oingpinpart%=.:p|
000029e0  69 6e 6e 6f 6f 66 25 3d  30 0d 01 0b dc de 20 70  |innoof%=0..... p|
000029f0  69 6e 73 63 6f 72 65 25  28 37 29 2c 70 69 6e 70  |inscore%(7),pinp|
00002a00  61 72 74 24 28 31 35 29  2c 70 69 6e 6d 65 73 73  |art$(15),pinmess|
00002a10  24 28 33 2c 31 29 2c 70  69 6e 64 6f 6e 65 70 61  |$(3,1),pindonepa|
00002a20  72 74 25 28 32 33 29 2c  70 69 6e 63 68 6f 73 65  |rt%(23),pinchose|
00002a30  6e 70 6f 73 25 28 32 33  2c 31 29 2c 70 69 6e 6f  |npos%(23,1),pino|
00002a40  72 67 73 69 7a 65 25 28  32 33 2c 31 29 2c 72 65  |rgsize%(23,1),re|
00002a50  63 74 25 28 33 29 2c 6f  6c 64 72 65 63 74 25 28  |ct%(3),oldrect%(|
00002a60  33 29 2c 70 69 6e 73 70  72 73 24 28 32 33 29 2c  |3),pinsprs$(23),|
00002a70  70 69 6e 6c 69 6e 6b 25  28 31 35 2c 33 29 2c 70  |pinlink%(15,3),p|
00002a80  69 6e 63 68 6c 69 6e 6b  25 28 37 29 2c 70 69 6e  |inchlink%(7),pin|
00002a90  63 6f 72 72 65 63 74 70  6f 73 25 28 32 33 2c 31  |correctpos%(23,1|
00002aa0  29 2c 70 69 6e 62 75 74  24 28 31 35 29 2c 72 61  |),pinbut$(15),ra|
00002ab0  6e 64 63 68 25 28 37 29  2c 70 69 6e 73 63 61 6c  |ndch%(7),pinscal|
00002ac0  65 25 20 31 36 0d 01 0c  16 f4 20 44 49 4d 20 73  |e% 16..... DIM s|
00002ad0  63 72 65 63 74 25 28 33  2c 33 29 0d 01 0d 08 f7  |crect%(3,3).....|
00002ae0  20 2b 30 0d 01 0e 35 dc  20 22 53 65 6c 65 63 74  | +0...5. "Select|
00002af0  20 61 20 62 6f 64 79 20  70 61 72 74 20 74 6f 22  | a body part to"|
00002b00  2c 22 70 6c 61 63 65 20  6f 6e 20 74 68 65 20 6f  |,"place on the o|
00002b10  75 74 6c 69 6e 65 2e 22  0d 01 0f 2d dc 20 22 4d  |utline."...-. "M|
00002b20  6f 76 65 20 74 68 65 20  6d 6f 75 73 65 20 74 6f  |ove the mouse to|
00002b30  20 74 68 65 22 2c 22 62  6f 64 79 20 6f 75 74 6c  | the","body outl|
00002b40  69 6e 65 2e 22 0d 01 10  36 dc 20 22 50 6c 61 63  |ine."...6. "Plac|
00002b50  65 20 74 68 65 20 70 61  72 74 20 61 6e 64 20 63  |e the part and c|
00002b60  6c 69 63 6b 22 2c 22 74  6f 20 66 69 78 20 69 6e  |lick","to fix in|
00002b70  20 70 6f 73 69 74 69 6f  6e 2e 22 0d 01 11 3b dc  | position."...;.|
00002b80  20 22 53 65 6c 65 63 74  20 61 20 62 6f 64 79 20  | "Select a body |
00002b90  70 61 72 74 20 74 6f 20  72 65 64 6f 22 2c 22 6f  |part to redo","o|
00002ba0  72 20 73 65 6c 65 63 74  20 4f 4b 20 74 6f 20 73  |r select OK to s|
00002bb0  63 6f 72 65 2e 22 0d 01  12 29 e3 6a 25 3d 30 b8  |core."...).j%=0.|
00002bc0  33 3a e3 6b 25 3d 30 b8  31 3a f3 20 70 69 6e 6d  |3:.k%=0.1:. pinm|
00002bd0  65 73 73 24 28 6a 25 2c  6b 25 29 3a ed 3a ed 0d  |ess$(j%,k%):.:..|
00002be0  01 13 08 f7 20 2b 30 0d  01 14 77 dc 20 22 52 69  |.... +0...w. "Ri|
00002bf0  62 63 61 67 65 20 20 20  20 20 20 20 3a 20 22 2c  |bcage       : ",|
00002c00  22 50 65 6c 76 69 73 20  20 20 20 20 20 20 20 3a  |"Pelvis        :|
00002c10  20 22 2c 22 42 72 61 69  6e 20 20 20 20 20 20 20  | ","Brain       |
00002c20  20 20 3a 20 22 2c 22 45  79 65 20 20 20 20 20 20  |  : ","Eye      |
00002c30  20 20 20 20 20 3a 20 22  2c 22 53 70 69 6e 61 6c  |     : ","Spinal|
00002c40  20 63 6f 72 64 20 20 20  3a 20 22 2c 22 48 65 61  | cord   : ","Hea|
00002c50  72 74 20 20 20 20 20 20  20 20 20 3a 20 22 0d 01  |rt         : "..|
00002c60  15 c3 dc 20 22 4c 75 6e  67 73 20 20 20 20 20 20  |... "Lungs      |
00002c70  20 20 20 3a 20 22 2c 22  44 69 61 70 68 72 61 67  |   : ","Diaphrag|
00002c80  6d 20 20 20 20 20 3a 20  22 2c 22 53 74 6f 6d 61  |m     : ","Stoma|
00002c90  63 68 20 20 20 20 20 20  20 3a 20 22 2c 22 4c 69  |ch       : ","Li|
00002ca0  76 65 72 20 20 20 20 20  20 20 20 20 3a 20 22 2c  |ver         : ",|
00002cb0  22 50 61 6e 63 72 65 61  73 20 20 20 20 20 20 3a  |"Pancreas      :|
00002cc0  20 22 2c 22 49 6e 74 65  73 74 69 6e 65 73 20 20  | ","Intestines  |
00002cd0  20 20 3a 20 22 2c 22 4b  69 64 6e 65 79 73 20 20  |  : ","Kidneys  |
00002ce0  20 20 20 20 20 3a 20 22  2c 22 42 6c 61 64 64 65  |     : ","Bladde|
00002cf0  72 20 20 20 20 20 20 20  3a 20 22 2c 22 46 65 6d  |r       : ","Fem|
00002d00  61 6c 65 20 6f 72 67 61  6e 73 20 3a 20 22 2c 22  |ale organs : ","|
00002d10  4d 61 6c 65 20 6f 72 67  61 6e 73 20 20 20 3a 20  |Male organs   : |
00002d20  22 0d 01 16 1d e3 6b 25  3d 30 b8 31 35 3a f3 20  |".....k%=0.15:. |
00002d30  70 69 6e 70 61 72 74 24  28 6b 25 29 3a ed 0d 01  |pinpart$(k%):...|
00002d40  17 08 f7 20 2b 30 0d 01  18 d1 dc 20 22 72 69 62  |... +0..... "rib|
00002d50  63 61 67 65 20 20 22 2c  22 70 65 6c 76 69 73 20  |cage  ","pelvis |
00002d60  20 22 2c 22 62 72 61 69  6e 20 20 22 2c 22 65 79  | ","brain  ","ey|
00002d70  65 20 20 22 2c 22 73 70  69 6e 61 6c 20 63 6f 72  |e  ","spinal cor|
00002d80  64 20 20 20 22 2c 22 68  65 61 72 74 20 20 22 2c  |d   ","heart  ",|
00002d90  22 6c 75 6e 67 73 20 20  22 2c 22 64 69 61 70 68  |"lungs  ","diaph|
00002da0  72 61 67 6d 20 20 20 22  2c 22 73 74 6f 6d 61 63  |ragm   ","stomac|
00002db0  68 20 20 22 2c 22 6c 69  76 65 72 20 20 22 2c 22  |h  ","liver  ","|
00002dc0  70 61 6e 63 72 65 61 73  20 20 22 2c 22 69 6e 74  |pancreas  ","int|
00002dd0  65 73 74 69 6e 65 73 20  20 20 22 2c 22 6b 69 64  |estines   ","kid|
00002de0  6e 65 79 73 20 20 22 2c  22 62 6c 61 64 64 65 72  |neys  ","bladder|
00002df0  20 20 22 2c 22 66 65 6d  61 6c 65 20 6f 72 67 61  |  ","female orga|
00002e00  6e 73 20 20 20 22 2c 22  6d 61 6c 65 20 6f 72 67  |ns   ","male org|
00002e10  61 6e 73 20 20 20 22 0d  01 19 1c e3 6b 25 3d 30  |ans   ".....k%=0|
00002e20  b8 31 35 3a f3 20 70 69  6e 62 75 74 24 28 6b 25  |.15:. pinbut$(k%|
00002e30  29 3a ed 0d 01 1a 08 f7  20 2b 30 0d 01 1b a5 dc  |):...... +0.....|
00002e40  20 32 34 2c 32 37 32 2c  31 32 30 2c 31 33 32 2c  | 24,272,120,132,|
00002e50  31 32 38 2c 31 30 30 2c  31 30 34 2c 35 32 2c 38  |128,100,104,52,8|
00002e60  30 2c 36 30 2c 32 34 2c  31 38 2c 38 30 2c 33 36  |0,60,24,18,80,36|
00002e70  2c 31 31 32 2c 31 32 34  2c 35 36 2c 33 34 2c 36  |,112,124,56,34,6|
00002e80  34 2c 36 38 2c 33 32 2c  33 30 2c 36 34 2c 36 38  |4,68,32,30,64,68|
00002e90  2c 35 36 2c 32 36 2c 36  34 2c 36 38 2c 38 38 2c  |,56,26,64,68,88,|
00002ea0  35 30 2c 31 30 34 2c 35  32 2c 34 38 2c 35 36 2c  |50,104,52,48,56,|
00002eb0  31 31 32 2c 39 36 2c 31  31 32 2c 31 32 34 2c 31  |112,96,112,124,1|
00002ec0  32 30 2c 31 33 32 2c 31  32 38 2c 31 30 30 2c 36  |20,132,128,100,6|
00002ed0  34 2c 36 38 2c 35 36 2c  33 34 2c 36 34 2c 36 38  |4,68,56,34,64,68|
00002ee0  0d 01 1c 2d e3 6a 25 3d  30 b8 32 33 3a e3 6b 25  |...-.j%=0.23:.k%|
00002ef0  3d 30 b8 31 3a f3 20 70  69 6e 6f 72 67 73 69 7a  |=0.1:. pinorgsiz|
00002f00  65 25 28 6a 25 2c 6b 25  29 3a ed 3a ed 0d 01 1d  |e%(j%,k%):.:....|
00002f10  08 f7 20 2b 30 0d 01 1e  12 dc 20 63 6f 72 64 2c  |.. +0..... cord,|
00002f20  33 36 30 2c 32 34 30 0d  01 1f 15 dc 20 72 69 62  |360,240..... rib|
00002f30  62 61 63 6b 2c 32 36 30  2c 34 31 36 0d 01 20 15  |back,260,416.. .|
00002f40  dc 20 68 69 70 62 6f 6e  65 2c 32 33 36 2c 31 36  |. hipbone,236,16|
00002f50  38 0d 01 21 15 dc 20 64  69 61 70 68 5f 62 2c 32  |8..!.. diaph_b,2|
00002f60  37 36 2c 34 32 34 0d 01  22 13 dc 20 62 72 61 69  |76,424..".. brai|
00002f70  6e 2c 33 30 34 2c 37 38  30 0d 01 23 11 dc 20 65  |n,304,780..#.. e|
00002f80  79 65 2c 33 31 32 2c 38  31 32 0d 01 24 15 dc 20  |ye,312,812..$.. |
00002f90  6b 69 64 6e 65 79 73 2c  32 38 34 2c 33 36 30 0d  |kidneys,284,360.|
00002fa0  01 25 14 dc 20 72 65 63  74 75 6d 2c 32 35 32 2c  |.%.. rectum,252,|
00002fb0  31 36 30 0d 01 26 14 dc  20 75 74 65 72 75 73 2c  |160..&.. uterus,|
00002fc0  33 30 38 2c 31 36 38 0d  01 27 15 dc 20 73 65 6d  |308,168..'.. sem|
00002fd0  69 6e 61 6c 2c 33 30 30  2c 31 30 34 0d 01 28 15  |inal,300,104..(.|
00002fe0  dc 20 62 6c 61 64 64 65  72 2c 33 33 32 2c 31 37  |. bladder,332,17|
00002ff0  32 0d 01 29 16 dc 20 70  72 6f 73 74 61 74 65 2c  |2..).. prostate,|
00003000  33 30 30 2c 31 30 34 0d  01 2a 16 dc 20 70 61 6e  |300,104..*.. pan|
00003010  63 72 65 61 73 2c 33 33  32 2c 33 36 30 0d 01 2b  |creas,332,360..+|
00003020  15 dc 20 73 74 6f 6d 61  63 68 2c 33 33 32 2c 33  |.. stomach,332,3|
00003030  36 38 0d 01 2c 13 dc 20  6c 69 76 65 72 2c 32 36  |68..,.. liver,26|
00003040  38 2c 33 38 38 0d 01 2d  15 dc 20 64 69 61 70 68  |8,388..-.. diaph|
00003050  5f 66 2c 32 37 36 2c 34  32 34 0d 01 2e 13 dc 20  |_f,276,424..... |
00003060  68 65 61 72 74 2c 33 34  30 2c 35 30 34 0d 01 2f  |heart,340,504../|
00003070  13 dc 20 6c 75 6e 67 73  2c 32 36 38 2c 34 36 34  |.. lungs,268,464|
00003080  0d 01 30 18 dc 20 69 6e  74 65 73 74 69 6e 65 73  |..0.. intestines|
00003090  2c 32 35 32 2c 31 36 30  0d 01 31 16 dc 20 72 69  |,252,160..1.. ri|
000030a0  62 66 72 6f 6e 74 2c 32  36 30 2c 34 31 36 0d 01  |bfront,260,416..|
000030b0  32 13 dc 20 70 75 62 69  73 2c 32 33 36 2c 31 36  |2.. pubis,236,16|
000030c0  38 0d 01 33 15 dc 20 76  61 73 5f 64 65 66 2c 33  |8..3.. vas_def,3|
000030d0  30 30 2c 31 30 34 0d 01  34 14 dc 20 76 61 67 69  |00,104..4.. vagi|
000030e0  6e 61 2c 33 30 38 2c 31  36 38 0d 01 35 13 dc 20  |na,308,168..5.. |
000030f0  70 65 6e 69 73 2c 33 30  30 2c 31 30 34 0d 01 36  |penis,300,104..6|
00003100  4b e3 6a 25 3d 30 b8 32  33 3a f3 20 70 69 6e 73  |K.j%=0.23:. pins|
00003110  70 72 73 24 28 6a 25 29  3a f3 20 70 69 6e 63 6f  |prs$(j%):. pinco|
00003120  72 72 65 63 74 70 6f 73  25 28 6a 25 2c 30 29 3a  |rrectpos%(j%,0):|
00003130  f3 20 70 69 6e 63 6f 72  72 65 63 74 70 6f 73 25  |. pincorrectpos%|
00003140  28 6a 25 2c 31 29 3a ed  0d 01 37 08 f7 20 2b 30  |(j%,1):...7.. +0|
00003150  0d 01 38 6b dc 20 31 2c  31 39 2c 2d 31 2c 2d 31  |..8k. 1,19,-1,-1|
00003160  2c 32 2c 32 30 2c 2d 31  2c 2d 31 2c 34 2c 2d 31  |,2,20,-1,-1,4,-1|
00003170  2c 2d 31 2c 2d 31 2c 35  2c 2d 31 2c 2d 31 2c 2d  |,-1,-1,5,-1,-1,-|
00003180  31 2c 30 2c 2d 31 2c 2d  31 2c 2d 31 2c 31 36 2c  |1,0,-1,-1,-1,16,|
00003190  2d 31 2c 2d 31 2c 2d 31  2c 31 37 2c 2d 31 2c 2d  |-1,-1,-1,17,-1,-|
000031a0  31 2c 2d 31 2c 33 2c 31  35 2c 2d 31 2c 2d 31 2c  |1,-1,3,15,-1,-1,|
000031b0  31 33 2c 2d 31 2c 2d 31  2c 2d 31 0d 01 39 55 dc  |13,-1,-1,-1..9U.|
000031c0  20 31 34 2c 2d 31 2c 2d  31 2c 2d 31 2c 31 32 2c  | 14,-1,-1,-1,12,|
000031d0  2d 31 2c 2d 31 2c 2d 31  2c 31 38 2c 37 2c 2d 31  |-1,-1,-1,18,7,-1|
000031e0  2c 2d 31 2c 36 2c 2d 31  2c 2d 31 2c 2d 31 2c 31  |,-1,6,-1,-1,-1,1|
000031f0  30 2c 2d 31 2c 2d 31 2c  2d 31 2c 38 2c 32 32 2c  |0,-1,-1,-1,8,22,|
00003200  2d 31 2c 2d 31 2c 32 33  2c 39 2c 32 31 2c 31 31  |-1,-1,23,9,21,11|
00003210  0d 01 3a 2a e3 6a 25 3d  30 b8 31 35 3a e3 6b 25  |..:*.j%=0.15:.k%|
00003220  3d 30 b8 33 3a f3 20 70  69 6e 6c 69 6e 6b 25 28  |=0.3:. pinlink%(|
00003230  6a 25 2c 6b 25 29 3a ed  3a ed 0d 01 3b 12 f4 50  |j%,k%):.:...;..P|
00003240  52 4f 43 72 61 6e 64 6f  6d 70 69 6e 0d 01 3c 0f  |ROCrandompin..<.|
00003250  f4 52 45 53 54 4f 52 45  20 2b 30 0d 01 3d 49 f4  |.RESTORE +0..=I.|
00003260  44 41 54 41 20 32 30 38  2c 31 32 38 2c 35 32 30  |DATA 208,128,520|
00003270  2c 33 32 38 2c 32 32 38  2c 33 33 32 2c 34 39 36  |,328,228,332,496|
00003280  2c 34 38 34 2c 31 36 34  2c 34 38 38 2c 35 37 32  |,484,164,488,572|
00003290  2c 36 39 32 2c 32 37 30  2c 36 39 36 2c 34 38 34  |,692,270,696,484|
000032a0  2c 39 32 30 0d 01 3e 38  f4 46 4f 52 6a 25 3d 30  |,920..>8.FORj%=0|
000032b0  54 4f 33 3a 46 4f 52 6b  25 3d 30 54 4f 33 3a 52  |TO3:FORk%=0TO3:R|
000032c0  45 41 44 20 73 63 72 65  63 74 25 28 6a 25 2c 6b  |EAD screct%(j%,k|
000032d0  25 29 3a 4e 45 58 54 3a  4e 45 58 54 0d 01 3f 05  |%):NEXT:NEXT..?.|
000032e0  e1 0d 01 40 04 0d 01 41  14 dd f2 69 6e 69 74 62  |...@...A...initb|
000032f0  6f 64 79 6c 61 62 65 6c  73 0d 01 42 26 e3 6b 25  |odylabels..B&.k%|
00003300  3d 30 b8 34 33 3a f2 73  65 6c 65 63 74 69 63 6e  |=0.43:.selecticn|
00003310  28 62 6f 64 79 77 25 2c  6b 25 2c a3 29 3a ed 0d  |(bodyw%,k%,.):..|
00003320  01 43 05 e1 0d 01 44 04  0d 01 45 14 dd f2 68 69  |.C....D...E...hi|
00003330  64 65 62 6f 64 79 6c 61  62 65 6c 73 0d 01 46 24  |debodylabels..F$|
00003340  e3 6b 25 3d 30 b8 34 33  3a f2 68 69 64 65 69 63  |.k%=0.43:.hideic|
00003350  6e 28 62 6f 64 79 77 25  2c 6b 25 2c b9 29 3a ed  |n(bodyw%,k%,.):.|
00003360  0d 01 47 10 6c 61 62 65  6c 73 6f 6e 25 3d 31 30  |..G.labelson%=10|
00003370  0d 01 48 05 e1 0d 01 49  04 0d 01 4a 0f dd f2 69  |..H....I...J...i|
00003380  6e 69 74 61 6e 69 6d 77  0d 01 4b 86 61 63 74 69  |nitanimw..K.acti|
00003390  76 65 69 63 6e 25 3d 2d  31 3a 64 6f 69 6e 67 6d  |veicn%=-1:doingm|
000033a0  6f 76 65 25 3d a3 3a 66  69 72 73 74 6d 6f 76 65  |ove%=.:firstmove|
000033b0  25 3d a3 3a 61 63 74 69  76 65 74 78 74 69 63 6e  |%=.:activetxticn|
000033c0  25 3d 30 3a 61 63 74 69  76 65 77 25 3d 30 3a 64  |%=0:activew%=0:d|
000033d0  6f 69 6e 67 63 6c 6f 73  65 72 25 3d a3 3a 66 69  |oingcloser%=.:fi|
000033e0  72 73 74 63 6c 6f 73 65  72 25 3d a3 3a 74 65 78  |rstcloser%=.:tex|
000033f0  74 6f 6e 25 3d 30 3a 74  65 78 74 6e 65 77 6f 6e  |ton%=0:textnewon|
00003400  25 3d 30 3a 6f 6e 6c 79  66 65 6d 25 3d 30 0d 01  |%=0:onlyfem%=0..|
00003410  4c 3c e3 6b 25 3d 35 b8  34 39 3a f2 68 69 64 65  |L<.k%=5.49:.hide|
00003420  69 63 6e 28 61 6e 69 6d  77 25 2c 6b 25 2c b9 29  |icn(animw%,k%,.)|
00003430  3a f2 73 65 6c 65 63 74  69 63 6e 28 61 6e 69 6d  |:.selecticn(anim|
00003440  77 25 2c 6b 25 2c a3 29  3a ed 0d 01 4d 05 e1 0d  |w%,k%,.):...M...|
00003450  01 4e 04 0d 01 4f 17 dd  f2 68 69 64 65 69 63 6e  |.N...O...hideicn|
00003460  28 77 25 2c 69 25 2c 66  25 29 0d 01 50 24 21 62  |(w%,i%,f%)..P$!b|
00003470  6c 6b 25 3d 77 25 3a 62  6c 6b 25 21 34 3d 69 25  |lk%=w%:blk%!4=i%|
00003480  3a 62 6c 6b 25 21 31 32  3d 31 3c 3c 32 33 0d 01  |:blk%!12=1<<23..|
00003490  51 1f e7 66 25 20 62 6c  6b 25 21 38 3d 31 3c 3c  |Q..f% blk%!8=1<<|
000034a0  32 33 3a 8b 3a 62 6c 6b  25 21 38 3d 30 0d 01 52  |23:.:blk%!8=0..R|
000034b0  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  | .. "Wimp_SetIco|
000034c0  6e 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 01 53  |nState",,blk%..S|
000034d0  05 e1 0d 01 54 04 0d 01  55 11 dd f2 66 69 6c 6c  |....T...U...fill|
000034e0  5f 61 72 72 61 79 73 0d  01 56 08 f7 20 2b 30 0d  |_arrays..V.. +0.|
000034f0  01 57 14 dc 20 73 6b 75  6c 6c 62 61 63 6b 2c 36  |.W.. skullback,6|
00003500  38 2c 35 0d 01 58 14 dc  20 6e 65 72 76 65 73 5f  |8,5..X.. nerves_|
00003510  62 2c 35 38 2c 33 38 0d  01 59 13 dc 20 73 6b 65  |b,58,38..Y.. ske|
00003520  6c 65 74 6f 6e 2c 30 2c  34 30 0d 01 5a 14 dc 20  |leton,0,40..Z.. |
00003530  68 69 70 62 6f 6e 65 2c  35 32 2c 31 34 32 0d 01  |hipbone,52,142..|
00003540  5b 14 dc 20 64 69 61 70  68 5f 62 2c 38 37 2c 31  |[.. diaph_b,87,1|
00003550  30 37 0d 01 5c 13 dc 20  70 69 74 5f 70 69 6e 2c  |07..\.. pit_pin,|
00003560  38 38 2c 32 34 0d 01 5d  10 dc 20 62 72 61 69 6e  |88,24..].. brain|
00003570  2c 37 36 2c 39 0d 01 5e  12 dc 20 73 65 6e 73 65  |,76,9..^.. sense|
00003580  73 2c 37 33 2c 32 32 0d  01 5f 11 dc 20 6d 6f 75  |s,73,22.._.. mou|
00003590  74 68 2c 37 33 2c 33 34  0d 01 60 16 dc 20 6f 65  |th,73,34..`.. oe|
000035a0  73 6f 70 68 61 67 75 73  2c 38 38 2c 34 30 0d 01  |sophagus,88,40..|
000035b0  61 13 dc 20 74 72 61 63  68 65 61 2c 38 35 2c 33  |a.. trachea,85,3|
000035c0  39 0d 01 62 13 dc 20 74  68 79 72 6f 69 64 2c 38  |9..b.. thyroid,8|
000035d0  38 2c 35 36 0d 01 63 10  dc 20 73 6b 75 6c 6c 2c  |8,56..c.. skull,|
000035e0  36 38 2c 35 0d 01 64 13  dc 20 6c 79 6d 70 68 5f  |68,5..d.. lymph_|
000035f0  62 2c 36 38 2c 36 37 0d  01 65 15 dc 20 61 64 72  |b,68,67..e.. adr|
00003600  65 6e 61 6c 73 2c 37 38  2c 31 32 33 0d 01 66 14  |enals,78,123..f.|
00003610  dc 20 6b 69 64 6e 65 79  73 2c 37 33 2c 31 32 37  |. kidneys,73,127|
00003620  0d 01 67 0f dc 20 62 6c  6f 6f 64 2c 30 2c 30 0d  |..g.. blood,0,0.|
00003630  01 68 13 dc 20 72 65 63  74 75 6d 2c 38 36 2c 31  |.h.. rectum,86,1|
00003640  37 30 0d 01 69 14 dc 20  6f 76 61 72 69 65 73 2c  |70..i.. ovaries,|
00003650  38 31 2c 31 37 39 0d 01  6a 13 dc 20 75 74 65 72  |81,179..j.. uter|
00003660  75 73 2c 37 39 2c 31 37  35 0d 01 6b 13 dc 20 75  |us,79,175..k.. u|
00003670  72 65 74 65 72 2c 37 36  2c 31 33 31 0d 01 6c 14  |reter,76,131..l.|
00003680  dc 20 73 65 6d 69 6e 61  6c 2c 38 35 2c 31 37 38  |. seminal,85,178|
00003690  0d 01 6d 14 dc 20 62 6c  61 64 64 65 72 2c 38 34  |..m.. bladder,84|
000036a0  2c 31 37 37 0d 01 6e 15  dc 20 70 72 6f 73 74 61  |,177..n.. prosta|
000036b0  74 65 2c 38 37 2c 31 38  36 0d 01 6f 14 dc 20 73  |te,87,186..o.. s|
000036c0  70 6c 65 65 6e 2c 31 30  38 2c 31 31 33 0d 01 70  |pleen,108,113..p|
000036d0  15 dc 20 70 61 6e 63 72  65 61 73 2c 38 34 2c 31  |.. pancreas,84,1|
000036e0  33 31 0d 01 71 14 dc 20  73 74 6f 6d 61 63 68 2c  |31..q.. stomach,|
000036f0  38 34 2c 31 30 38 0d 01  72 11 dc 20 67 61 6c 6c  |84,108..r.. gall|
00003700  2c 38 30 2c 31 32 36 0d  01 73 12 dc 20 6c 69 76  |,80,126..s.. liv|
00003710  65 72 2c 36 38 2c 31 31  32 0d 01 74 14 dc 20 64  |er,68,112..t.. d|
00003720  69 61 70 68 5f 66 2c 37  30 2c 31 30 33 0d 01 75  |iaph_f,70,103..u|
00003730  11 dc 20 68 65 61 72 74  2c 38 34 2c 38 31 0d 01  |.. heart,84,81..|
00003740  76 11 dc 20 6c 75 6e 67  73 2c 36 39 2c 37 30 0d  |v.. lungs,69,70.|
00003750  01 77 17 dc 20 69 6e 74  65 73 74 69 6e 65 73 2c  |.w.. intestines,|
00003760  36 34 2c 31 33 32 0d 01  78 12 dc 20 74 68 79 6d  |64,132..x.. thym|
00003770  75 73 2c 39 32 2c 37 36  0d 01 79 14 dc 20 72 69  |us,92,76..y.. ri|
00003780  62 73 73 69 64 65 2c 36  34 2c 36 33 0d 01 7a 15  |bsside,64,63..z.|
00003790  dc 20 72 69 62 73 66 72  6f 6e 74 2c 37 32 2c 36  |. ribsfront,72,6|
000037a0  36 0d 01 7b 12 dc 20 70  75 62 69 73 2c 37 38 2c  |6..{.. pubis,78,|
000037b0  31 37 38 0d 01 7c 14 dc  20 76 61 73 5f 64 65 66  |178..|.. vas_def|
000037c0  2c 37 36 2c 31 37 34 0d  01 7d 12 dc 20 6e 65 72  |,76,174..}.. ner|
000037d0  76 65 73 5f 66 2c 30 2c  39 0d 01 7e 11 dc 20 6c  |ves_f,0,9..~.. l|
000037e0  79 6d 70 68 5f 66 2c 34  2c 39 0d 01 7f 14 dc 20  |ymph_f,4,9..... |
000037f0  6d 75 73 63 6c 65 66 74  2c 38 39 2c 34 31 0d 01  |muscleft,89,41..|
00003800  80 15 dc 20 6d 75 73 63  66 72 6f 6e 74 2c 39 30  |... muscfront,90|
00003810  2c 36 32 0d 01 81 13 dc  20 6d 75 73 63 72 69 67  |,62..... muscrig|
00003820  68 74 2c 30 2c 30 0d 01  82 13 dc 20 76 61 67 69  |ht,0,0..... vagi|
00003830  6e 61 2c 37 39 2c 31 38  37 0d 01 83 13 dc 20 74  |na,79,187..... t|
00003840  65 73 74 65 73 2c 38 36  2c 32 30 30 0d 01 84 12  |estes,86,200....|
00003850  dc 20 70 65 6e 69 73 2c  38 32 2c 31 38 37 0d 01  |. penis,82,187..|
00003860  85 14 dc 20 73 6b 69 6e  61 72 6d 72 2c 30 2c 31  |... skinarmr,0,1|
00003870  33 37 0d 01 86 16 dc 20  73 6b 69 6e 61 72 6d 6c  |37..... skinarml|
00003880  2c 31 32 38 2c 31 34 31  0d 01 87 15 dc 20 73 6b  |,128,141..... sk|
00003890  69 6e 6c 65 67 73 2c 36  35 2c 32 34 38 0d 01 88  |inlegs,65,248...|
000038a0  0f dc 20 73 6b 69 6e 2c  33 39 2c 30 0d 01 89 17  |.. skin,39,0....|
000038b0  f4 44 41 54 41 20 62 72  65 61 73 74 73 77 2c 33  |.DATA breastsw,3|
000038c0  36 2c 30 0d 01 8a 16 f4  44 41 54 41 20 68 69 70  |6,0.....DATA hip|
000038d0  73 77 2c 34 38 2c 31 35  30 0d 01 8b 12 dc 20 62  |sw,48,150..... b|
000038e0  72 65 61 73 74 73 77 2c  30 2c 30 0d 01 8c 0f dc  |reastsw,0,0.....|
000038f0  20 68 69 70 73 77 2c 30  2c 30 0d 01 8d 11 dc 20  | hipsw,0,0..... |
00003900  73 65 6e 73 65 2c 37 38  2c 32 33 0d 01 8e 12 dc  |sense,78,23.....|
00003910  20 65 79 65 6c 69 64 2c  37 38 2c 32 33 0d 01 8f  | eyelid,78,23...|
00003920  3d e3 20 73 25 3d 30 b8  6d 61 78 73 70 25 3a f3  |=. s%=0.maxsp%:.|
00003930  20 62 6f 64 79 73 70 24  28 73 25 29 2c 62 6f 64  | bodysp$(s%),bod|
00003940  79 73 70 25 28 73 25 2c  31 29 2c 62 6f 64 79 73  |ysp%(s%,1),bodys|
00003950  70 25 28 73 25 2c 32 29  3a ed 0d 01 90 46 62 6f  |p%(s%,2):....Fbo|
00003960  64 79 73 70 25 28 33 2c  33 29 3d 31 35 3a 62 6f  |dysp%(3,3)=15:bo|
00003970  64 79 73 70 25 28 31 32  2c 33 29 3d 31 35 3a 62  |dysp%(12,3)=15:b|
00003980  6f 64 79 73 70 25 28 31  37 2c 33 29 3d 31 35 3a  |odysp%(17,3)=15:|
00003990  62 6f 64 79 73 70 25 28  33 32 2c 33 29 3d 31 35  |bodysp%(32,3)=15|
000039a0  0d 01 91 13 62 6f 64 79  73 70 25 28 34 32 2c 33  |....bodysp%(42,3|
000039b0  29 3d 38 0d 01 92 08 f7  20 2b 30 0d 01 93 2a dc  |)=8..... +0...*.|
000039c0  20 22 30 32 2c 30 33 2c  31 32 2c 33 34 2c 33 35  | "02,03,12,34,35|
000039d0  2c 33 36 22 20 20 20 20  3a 52 45 4d 20 73 6b 65  |,36"    :REM ske|
000039e0  6c 65 74 6f 6e 0d 01 94  29 dc 20 22 34 30 2c 34  |leton...). "40,4|
000039f0  31 2c 34 32 22 20 20 20  20 20 20 20 20 20 20 20  |1,42"           |
00003a00  20 20 3a 52 45 4d 20 6d  75 73 63 6c 65 73 0d 01  |  :REM muscles..|
00003a10  95 27 dc 20 22 30 36 22  20 20 20 20 20 20 20 20  |.'. "06"        |
00003a20  20 20 20 20 20 20 20 20  20 20 20 3a 52 45 4d 20  |           :REM |
00003a30  62 72 61 69 6e 0d 01 96  28 dc 20 22 30 31 2c 33  |brain...(. "01,3|
00003a40  38 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8"              |
00003a50  20 20 3a 52 45 4d 20 6e  65 72 76 65 73 0d 01 97  |  :REM nerves...|
00003a60  26 dc 20 22 34 36 2c 34  37 2c 34 38 2c 34 39 2c  |&. "46,47,48,49,|
00003a70  35 30 2c 35 31 2c 35 33  22 20 3a 52 45 4d 20 73  |50,51,53" :REM s|
00003a80  6b 69 6e 0d 01 98 28 dc  20 22 30 37 2c 35 32 22  |kin...(. "07,52"|
00003a90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003aa0  3a 52 45 4d 20 73 65 6e  73 65 73 0d 01 99 27 dc  |:REM senses...'.|
00003ab0  20 22 31 36 22 20 20 20  20 20 20 20 20 20 20 20  | "16"           |
00003ac0  20 20 20 20 20 20 20 20  3a 52 45 4d 20 62 6c 6f  |        :REM blo|
00003ad0  6f 64 0d 01 9a 27 dc 20  22 33 30 22 20 20 20 20  |od...'. "30"    |
00003ae0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00003af0  52 45 4d 20 68 65 61 72  74 0d 01 9b 27 dc 20 22  |REM heart...'. "|
00003b00  31 33 2c 32 34 2c 33 33  2c 33 39 22 20 20 20 20  |13,24,33,39"    |
00003b10  20 20 20 20 20 20 3a 52  45 4d 20 6c 79 6d 70 68  |      :REM lymph|
00003b20  0d 01 9c 29 dc 20 22 31  30 22 20 20 20 20 20 20  |...). "10"      |
00003b30  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 52 45  |             :RE|
00003b40  4d 20 74 72 61 63 68 65  61 0d 01 9d 27 dc 20 22  |M trachea...'. "|
00003b50  33 31 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |31"             |
00003b60  20 20 20 20 20 20 3a 52  45 4d 20 6c 75 6e 67 73  |      :REM lungs|
00003b70  0d 01 9e 2b dc 20 22 30  34 2c 32 39 22 20 20 20  |...+. "04,29"   |
00003b80  20 20 20 20 20 20 20 20  20 20 20 20 20 3a 52 45  |             :RE|
00003b90  4d 20 64 69 61 70 68 72  61 67 6d 0d 01 9f 27 dc  |M diaphragm...'.|
00003ba0  20 22 30 38 22 20 20 20  20 20 20 20 20 20 20 20  | "08"           |
00003bb0  20 20 20 20 20 20 20 20  3a 52 45 4d 20 6d 6f 75  |        :REM mou|
00003bc0  74 68 0d 01 a0 2c dc 20  22 30 39 22 20 20 20 20  |th...,. "09"    |
00003bd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00003be0  52 45 4d 20 6f 65 73 6f  70 68 61 67 75 73 0d 01  |REM oesophagus..|
00003bf0  a1 29 dc 20 22 32 36 22  20 20 20 20 20 20 20 20  |.). "26"        |
00003c00  20 20 20 20 20 20 20 20  20 20 20 3a 52 45 4d 20  |           :REM |
00003c10  73 74 6f 6d 61 63 68 0d  01 a2 27 dc 20 22 32 38  |stomach...'. "28|
00003c20  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00003c30  20 20 20 20 3a 52 45 4d  20 6c 69 76 65 72 0d 01  |    :REM liver..|
00003c40  a3 26 dc 20 22 32 37 22  20 20 20 20 20 20 20 20  |.&. "27"        |
00003c50  20 20 20 20 20 20 20 20  20 20 20 3a 52 45 4d 20  |           :REM |
00003c60  67 61 6c 6c 0d 01 a4 2a  dc 20 22 32 35 22 20 20  |gall...*. "25"  |
00003c70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003c80  20 3a 52 45 4d 20 70 61  6e 63 72 65 61 73 0d 01  | :REM pancreas..|
00003c90  a5 2c dc 20 22 31 37 2c  33 32 22 20 20 20 20 20  |.,. "17,32"     |
00003ca0  20 20 20 20 20 20 20 20  20 20 20 3a 52 45 4d 20  |           :REM |
00003cb0  69 6e 74 65 73 74 69 6e  65 73 0d 01 a6 29 dc 20  |intestines...). |
00003cc0  22 31 35 22 20 20 20 20  20 20 20 20 20 20 20 20  |"15"            |
00003cd0  20 20 20 20 20 20 20 3a  52 45 4d 20 6b 69 64 6e  |       :REM kidn|
00003ce0  65 79 73 0d 01 a7 29 dc  20 22 32 32 22 20 20 20  |eys...). "22"   |
00003cf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003d00  3a 52 45 4d 20 62 6c 61  64 64 65 72 0d 01 a8 26  |:REM bladder...&|
00003d10  dc 20 22 34 36 2c 34 37  2c 34 38 2c 34 39 2c 35  |. "46,47,48,49,5|
00003d20  30 2c 35 31 2c 35 33 22  20 3a 52 45 4d 20 73 6b  |0,51,53" :REM sk|
00003d30  69 6e 0d 01 a9 32 dc 20  22 30 35 2c 31 31 2c 31  |in...2. "05,11,1|
00003d40  34 2c 31 38 2c 32 35 2c  33 33 2c 34 34 22 20 3a  |4,18,25,33,44" :|
00003d50  52 45 4d 20 65 6e 64 6f  63 72 69 6e 65 20 67 6c  |REM endocrine gl|
00003d60  61 6e 64 73 0d 01 aa 32  dc 20 22 31 38 2c 31 39  |ands...2. "18,19|
00003d70  2c 32 31 2c 32 33 2c 33  37 2c 34 33 2c 34 34 2c  |,21,23,37,43,44,|
00003d80  34 35 22 20 3a 52 45 4d  20 72 65 70 72 6f 64 20  |45" :REM reprod |
00003d90  6f 72 67 61 6e 73 0d 01  ab 1b e3 20 73 25 3d 30  |organs..... s%=0|
00003da0  b8 32 33 3a f3 20 6c 69  6e 6b 24 28 73 25 29 3a  |.23:. link$(s%):|
00003db0  ed 0d 01 ac 08 f7 20 2b  30 0d 01 ad 3f dc 20 22  |...... +0...?. "|
00003dc0  30 32 2c 30 33 2c 31 32  2c 33 34 2c 33 35 2c 33  |02,03,12,34,35,3|
00003dd0  36 2c 34 30 2c 34 31 22  20 20 20 20 3a 52 45 4d  |6,40,41"    :REM|
00003de0  20 6d 75 73 63 75 6c 6f  2d 73 6b 65 6c 65 74 61  | musculo-skeleta|
00003df0  6c 20 6f 6e 20 6f 77 6e  0d 01 ae 2f dc 20 22 30  |l on own.../. "0|
00003e00  31 2c 30 36 2c 30 37 2c  33 38 2c 34 36 2c 34 37  |1,06,07,38,46,47|
00003e10  2c 34 38 2c 35 32 22 20  20 20 20 3a 52 45 4d 20  |,48,52"    :REM |
00003e20  6e 65 72 76 6f 75 73 0d  01 af 35 dc 20 22 31 33  |nervous...5. "13|
00003e30  2c 31 36 2c 32 34 2c 33  30 2c 33 33 2c 33 39 22  |,16,24,30,33,39"|
00003e40  20 20 20 20 20 20 20 20  20 20 3a 52 45 4d 20 62  |          :REM b|
00003e50  6c 6f 6f 64 20 26 20 6c  79 6d 70 68 0d 01 b0 33  |lood & lymph...3|
00003e60  dc 20 22 30 34 2c 31 30  2c 32 39 2c 33 31 22 20  |. "04,10,29,31" |
00003e70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00003e80  52 45 4d 20 72 65 73 70  69 72 61 74 6f 72 79 0d  |REM respiratory.|
00003e90  01 b1 31 dc 20 22 30 38  2c 30 39 2c 31 37 2c 32  |..1. "08,09,17,2|
00003ea0  35 2c 32 36 2c 32 37 2c  32 38 2c 33 32 22 20 20  |5,26,27,28,32"  |
00003eb0  20 20 3a 52 45 4d 20 64  69 67 65 73 74 69 76 65  |  :REM digestive|
00003ec0  0d 01 b2 31 dc 20 22 31  35 2c 32 30 2c 32 32 2c  |...1. "15,20,22,|
00003ed0  34 36 2c 34 37 2c 34 38  22 20 20 20 20 20 20 20  |46,47,48"       |
00003ee0  20 20 20 3a 52 45 4d 20  65 78 63 72 65 74 6f 72  |   :REM excretor|
00003ef0  79 0d 01 b3 30 dc 20 22  30 35 2c 31 31 2c 31 34  |y...0. "05,11,14|
00003f00  2c 31 38 2c 32 35 2c 33  33 2c 34 34 22 20 20 20  |,18,25,33,44"   |
00003f10  20 20 20 3a 52 45 4d 20  65 6e 64 6f 63 72 69 6e  |   :REM endocrin|
00003f20  65 0d 01 b4 5e dc 20 22  31 38 22 20 20 20 20 20  |e...^. "18"     |
00003f30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003f40  20 20 20 20 3a 52 45 4d  20 72 65 70 72 6f 64 75  |    :REM reprodu|
00003f50  63 74 69 76 65 20 28 6e  6f 74 20 63 6f 6d 70 6c  |ctive (not compl|
00003f60  65 74 65 20 2d 20 64 6f  6e 65 20 69 6e 20 50 52  |ete - done in PR|
00003f70  4f 43 63 68 65 63 6b 73  79 73 74 73 65 78 29 0d  |OCchecksystsex).|
00003f80  01 b5 4c dc 20 22 30 30  2c 30 32 2c 30 33 2c 33  |..L. "00,02,03,3|
00003f90  34 2c 33 36 2c 34 30 22  20 20 20 20 20 20 20 20  |4,36,40"        |
00003fa0  20 20 3a 52 45 4d 20 6d  75 73 63 75 6c 6f 2d 73  |  :REM musculo-s|
00003fb0  6b 65 6c 65 74 61 6c 20  77 69 74 68 20 61 6e 6f  |keletal with ano|
00003fc0  74 68 65 72 20 73 79 73  74 65 6d 0d 01 b6 1e e3  |ther system.....|
00003fd0  20 73 25 3d 30 b8 38 3a  f3 20 73 79 73 74 6c 69  | s%=0.8:. systli|
00003fe0  6e 6b 24 28 73 25 29 3a  ed 0d 01 b7 08 f7 20 2b  |nk$(s%):...... +|
00003ff0  30 0d 01 b8 3d dc 20 31  32 2c 36 35 36 2c 33 37  |0...=. 12,656,37|
00004000  30 2c 36 35 36 2c 35 30  2c 34 33 36 2c 33 35 32  |0,656,50,436,352|
00004010  2c 34 33 36 2c 34 34 2c  32 32 30 2c 33 31 32 2c  |,436,44,220,312,|
00004020  32 32 30 2c 31 34 2c 34  2c 32 39 30 2c 34 0d 01  |220,14,4,290,4..|
00004030  b9 28 e3 20 73 25 3d 30  b8 37 3a e3 20 72 25 3d  |.(. s%=0.7:. r%=|
00004040  30 b8 31 3a f3 20 73 79  73 62 25 28 73 25 2c 72  |0.1:. sysb%(s%,r|
00004050  25 29 3a ed 3a ed 0d 01  ba 08 f7 20 2b 30 0d 01  |%):.:...... +0..|
00004060  bb 8d dc 20 34 2c 2d 32  38 30 2c 32 37 34 2c 2d  |... 4,-280,274,-|
00004070  31 31 36 2c 32 39 30 2c  2d 32 38 30 2c 35 36 30  |116,290,-280,560|
00004080  2c 2d 31 31 36 2c 34 2c  2d 35 30 30 2c 32 37 34  |,-116,4,-500,274|
00004090  2c 2d 33 33 36 2c 32 39  30 2c 2d 35 30 30 2c 35  |,-336,290,-500,5|
000040a0  36 30 2c 2d 33 33 36 2c  34 2c 2d 37 31 36 2c 32  |60,-336,4,-716,2|
000040b0  37 34 2c 2d 35 35 36 2c  32 39 30 2c 2d 37 31 36  |74,-556,290,-716|
000040c0  2c 35 36 30 2c 2d 35 35  36 2c 34 2c 2d 39 33 32  |,560,-556,4,-932|
000040d0  2c 32 37 34 2c 2d 37 37  32 2c 32 39 30 2c 2d 39  |,274,-772,290,-9|
000040e0  33 32 2c 35 36 30 2c 2d  37 37 32 0d 01 bc 2c e3  |32,560,-772...,.|
000040f0  20 73 25 3d 30 b8 37 3a  e3 20 72 25 3d 30 b8 33  | s%=0.7:. r%=0.3|
00004100  3a f3 20 73 79 73 62 61  72 65 61 25 28 73 25 2c  |:. sysbarea%(s%,|
00004110  72 25 29 3a ed 3a ed 0d  01 bd 2c f4 20 6d 61 78  |r%):.:....,. max|
00004120  2e 20 73 69 7a 65 20 61  6e 69 6d 20 77 69 6e 64  |. size anim wind|
00004130  6f 77 20 74 69 74 6c 65  20 3d 20 31 39 20 63 68  |ow title = 19 ch|
00004140  61 72 73 0d 01 be 08 f7  20 2b 30 0d 01 bf 1c dc  |ars..... +0.....|
00004150  20 22 62 72 61 69 6e 22  2c 22 30 39 2c 74 68 65  | "brain","09,the|
00004160  20 62 72 61 69 6e 22 0d  01 c0 1c dc 20 22 6d 6f  | brain"..... "mo|
00004170  75 74 68 22 2c 22 30 39  2c 74 68 65 20 6d 6f 75  |uth","09,the mou|
00004180  74 68 22 0d 01 c1 18 dc  20 22 65 79 65 22 2c 22  |th"..... "eye","|
00004190  30 37 2c 74 68 65 20 65  79 65 22 0d 01 c2 25 dc  |07,the eye"...%.|
000041a0  20 22 65 6e 64 6f 22 2c  22 31 39 2c 74 68 65 20  | "endo","19,the |
000041b0  70 69 74 75 69 74 61 72  79 20 67 6c 61 6e 64 22  |pituitary gland"|
000041c0  0d 01 c3 27 dc 20 22 6e  6f 73 65 74 6f 6e 67 22  |...'. "nosetong"|
000041d0  2c 22 31 37 2c 74 68 65  20 6e 6f 73 65 20 26 20  |,"17,the nose & |
000041e0  74 6f 6e 67 75 65 22 0d  01 c4 25 dc 20 22 61 72  |tongue"...%. "ar|
000041f0  74 76 65 69 6e 22 2c 22  31 36 2c 61 72 74 65 72  |tvein","16,arter|
00004200  69 65 73 20 26 20 76 65  69 6e 73 22 0d 01 c5 1f  |ies & veins"....|
00004210  dc 20 22 73 6b 69 6e 22  2c 22 31 33 2c 74 6f 75  |. "skin","13,tou|
00004220  63 68 20 73 65 6e 73 6f  72 73 22 0d 01 c6 1c dc  |ch sensors".....|
00004230  20 22 68 65 61 72 74 22  2c 22 30 39 2c 74 68 65  | "heart","09,the|
00004240  20 68 65 61 72 74 22 0d  01 c7 17 dc 20 22 62 6f  | heart"..... "bo|
00004250  6e 65 22 2c 22 30 35 2c  62 6f 6e 65 73 22 0d 01  |ne","05,bones"..|
00004260  c8 1f dc 20 22 6b 69 64  6e 65 79 22 2c 22 31 31  |... "kidney","11|
00004270  2c 74 68 65 20 6b 69 64  6e 65 79 73 22 0d 01 c9  |,the kidneys"...|
00004280  23 dc 20 22 6c 69 76 65  72 22 2c 22 31 36 2c 6c  |#. "liver","16,l|
00004290  69 76 65 72 20 26 20 70  61 6e 63 72 65 61 73 22  |iver & pancreas"|
000042a0  0d 01 ca 19 dc 20 22 6a  6f 69 6e 74 22 2c 22 30  |..... "joint","0|
000042b0  36 2c 6a 6f 69 6e 74 73  22 0d 01 cb 20 dc 20 22  |6,joints"... . "|
000042c0  73 74 6f 6d 61 63 68 22  2c 22 31 31 2c 74 68 65  |stomach","11,the|
000042d0  20 73 74 6f 6d 61 63 68  22 0d 01 cc 25 dc 20 22  | stomach"...%. "|
000042e0  6c 75 6e 67 73 22 2c 22  31 38 2c 72 65 73 70 69  |lungs","18,respi|
000042f0  72 61 74 6f 72 79 20 73  79 73 74 65 6d 22 0d 01  |ratory system"..|
00004300  cd 22 dc 20 22 72 65 70  63 6f 75 70 22 2c 22 31  |.". "repcoup","1|
00004310  34 2c 6d 61 6b 69 6e 67  20 61 20 62 61 62 79 22  |4,making a baby"|
00004320  0d 01 ce 26 dc 20 22 62  6c 61 64 64 65 72 22 2c  |...&. "bladder",|
00004330  22 31 37 2c 62 6c 61 64  64 65 72 20 26 20 75 72  |"17,bladder & ur|
00004340  65 74 68 72 61 22 0d 01  cf 1e dc 20 22 6c 79 6d  |ethra"..... "lym|
00004350  70 68 22 2c 22 31 31 2c  6c 79 6d 70 68 20 6e 6f  |ph","11,lymph no|
00004360  64 65 73 22 0d 01 d0 29  dc 20 22 73 6d 69 6e 74  |des"...). "smint|
00004370  65 73 74 22 2c 22 31 37  2c 74 68 65 20 73 6d 61  |est","17,the sma|
00004380  6c 6c 20 69 6e 74 65 73  74 69 6e 65 22 0d 01 d1  |ll intestine"...|
00004390  29 dc 20 22 6c 67 69 6e  74 65 73 74 22 2c 22 31  |). "lgintest","1|
000043a0  37 2c 74 68 65 20 6c 61  72 67 65 20 69 6e 74 65  |7,the large inte|
000043b0  73 74 69 6e 65 22 0d 01  d2 26 dc 20 22 72 65 70  |stine"...&. "rep|
000043c0  66 65 6d 61 6c 22 2c 22  31 36 2c 6f 76 61 72 69  |femal","16,ovari|
000043d0  65 73 20 26 20 75 74 65  72 75 73 22 0d 01 d3 23  |es & uterus"...#|
000043e0  dc 20 22 72 65 70 6d 61  6c 65 22 2c 22 31 34 2c  |. "repmale","14,|
000043f0  70 65 6e 69 73 20 26 20  74 65 73 74 65 73 22 0d  |penis & testes".|
00004400  01 d4 18 dc 20 22 65 61  72 22 2c 22 30 37 2c 74  |.... "ear","07,t|
00004410  68 65 20 65 61 72 22 0d  01 d5 24 dc 20 22 6d 75  |he ear"...$. "mu|
00004420  73 63 6c 65 22 2c 22 31  36 2c 73 6b 65 6c 65 74  |scle","16,skelet|
00004430  61 6c 20 6d 75 73 63 6c  65 73 22 0d 01 d6 1a dc  |al muscles".....|
00004440  20 22 6e 65 72 76 65 73  22 2c 22 30 36 2c 6e 65  | "nerves","06,ne|
00004450  72 76 65 73 22 0d 01 d7  1e dc 20 22 73 6b 69 6e  |rves"..... "skin|
00004460  22 2c 22 31 32 2c 73 77  65 61 74 20 67 6c 61 6e  |","12,sweat glan|
00004470  64 73 22 0d 01 d8 2d e3  20 73 25 3d 30 b8 32 34  |ds"...-. s%=0.24|
00004480  3a e3 20 72 25 3d 30 b8  31 3a f3 20 61 6e 69 6d  |:. r%=0.1:. anim|
00004490  66 69 6c 65 24 28 73 25  2c 72 25 29 3a ed 3a ed  |file$(s%,r%):.:.|
000044a0  0d 01 d9 08 f7 20 2b 30  0d 01 da 7f dc 20 62 72  |..... +0..... br|
000044b0  61 69 2c 6d 6f 75 74 2c  65 79 65 2c 70 69 74 75  |ai,mout,eye,pitu|
000044c0  2c 6e 6f 73 65 2c 61 72  74 76 2c 73 6b 69 6e 2c  |,nose,artv,skin,|
000044d0  68 65 61 72 2c 62 6f 6e  65 2c 6b 69 64 6e 2c 6c  |hear,bone,kidn,l|
000044e0  69 76 65 2c 6a 6f 69 6e  2c 73 74 6f 6d 2c 6c 75  |ive,join,stom,lu|
000044f0  6e 67 2c 73 65 78 2c 62  6c 61 64 2c 6c 79 6d 70  |ng,sex,blad,lymp|
00004500  2c 73 6d 69 6e 2c 6c 67  69 6e 2c 66 65 6d 61 2c  |,smin,lgin,fema,|
00004510  6d 61 6c 65 2c 65 61 72  2c 6d 75 73 63 2c 6e 65  |male,ear,musc,ne|
00004520  72 76 2c 73 77 65 61 0d  01 db 1d e3 20 73 25 3d  |rv,swea..... s%=|
00004530  30 b8 32 34 3a f3 20 62  77 66 69 6c 65 24 28 73  |0.24:. bwfile$(s|
00004540  25 29 3a ed 0d 01 dc 08  f7 20 2b 30 0d 01 dd 37  |%):...... +0...7|
00004550  dc 20 32 2c 35 2c 32 2c  31 2c 33 2c 32 2c 31 2c  |. 2,5,2,1,3,2,1,|
00004560  34 2c 32 2c 32 2c 32 2c  32 2c 32 2c 32 2c 36 2c  |4,2,2,2,2,2,2,6,|
00004570  32 2c 32 2c 32 2c 32 2c  32 2c 32 2c 31 2c 32 2c  |2,2,2,2,2,2,1,2,|
00004580  32 2c 32 0d 01 de 80 f4  20 31 3d 63 6c 6f 73 65  |2,2..... 1=close|
00004590  72 2c 63 72 6f 73 73 5f  73 65 63 74 69 6f 6e 20  |r,cross_section |
000045a0  20 32 3d 63 72 6f 73 73  2d 73 65 63 74 69 6f 6e  | 2=cross-section|
000045b0  2c 63 6c 6f 73 65 72 20  33 3d 63 6c 6f 73 65 72  |,closer 3=closer|
000045c0  2c 6e 65 77 2d 76 69 65  77 20 34 3d 78 2d 73 65  |,new-view 4=x-se|
000045d0  63 74 69 6f 6e 2c 63 69  72 63 75 6c 61 74 69 6f  |ction,circulatio|
000045e0  6e 20 35 3d 6e 65 77 2d  76 69 65 77 2c 63 6c 6f  |n 5=new-view,clo|
000045f0  73 65 72 20 36 3d 78 73  2c 63 68 69 6c 64 62 69  |ser 6=xs,childbi|
00004600  72 74 68 0d 01 df 1d e3  73 25 3d 30 b8 32 34 3a  |rth.....s%=0.24:|
00004610  f3 20 62 75 74 74 79 70  65 25 28 73 25 29 3a ed  |. buttype%(s%):.|
00004620  0d 01 e0 08 f7 20 2b 30  0d 01 e1 23 f4 20 62 6f  |..... +0...#. bo|
00004630  64 79 20 6f 76 65 72 76  69 65 77 20 6c 61 62 65  |dy overview labe|
00004640  6c 20 6c 69 6e 65 20 64  61 74 61 0d 01 e2 be dc  |l line data.....|
00004650  20 22 30 39 2c 30 31 31  32 2c 31 31 33 32 2c 30  | "09,0112,1132,0|
00004660  32 31 36 2c 31 30 35 36  2c 30 30 36 34 2c 31 30  |216,1056,0064,10|
00004670  32 30 2c 30 32 30 30 2c  30 38 39 30 2c 30 35 32  |20,0200,0890,052|
00004680  32 2c 31 32 36 30 2c 30  35 33 30 2c 31 31 36 30  |2,1260,0530,1160|
00004690  2c 30 35 31 32 2c 31 34  30 36 2c 30 34 30 36 2c  |,0512,1406,0406,|
000046a0  31 33 37 38 2c 30 35 34  32 2c 31 30 34 38 2c 30  |1378,0542,1048,0|
000046b0  33 38 34 2c 31 32 33 36  2c 30 35 34 32 2c 31 30  |384,1236,0542,10|
000046c0  34 38 2c 30 33 37 30 2c  30 39 30 30 2c 30 35 31  |48,0370,0900,051|
000046d0  34 2c 30 37 38 30 2c 30  33 31 36 2c 30 37 33 34  |4,0780,0316,0734|
000046e0  2c 30 35 35 36 2c 30 37  38 30 2c 30 33 30 30 2c  |,0556,0780,0300,|
000046f0  30 38 32 34 2c 30 34 35  36 2c 30 38 34 32 2c 30  |0824,0456,0842,0|
00004700  34 31 36 2c 30 38 31 38  22 0d 01 e3 e6 dc 20 22  |416,0818"..... "|
00004710  31 31 2c 30 35 32 30 2c  31 33 34 32 2c 30 33 38  |11,0520,1342,038|
00004720  38 2c 31 33 33 36 2c 30  31 39 30 2c 31 34 32 38  |8,1336,0190,1428|
00004730  2c 30 33 38 34 2c 31 33  38 36 2c 30 31 33 32 2c  |,0384,1386,0132,|
00004740  31 31 33 32 2c 30 31 35  34 2c 30 38 36 38 2c 30  |1132,0154,0868,0|
00004750  31 33 32 2c 31 33 36 38  2c 30 33 32 38 2c 31 33  |132,1368,0328,13|
00004760  35 34 2c 30 32 30 30 2c  31 32 35 33 2c 30 32 37  |54,0200,1253,027|
00004770  38 2c 31 32 39 32 2c 30  32 37 38 2c 31 32 39 32  |8,1292,0278,1292|
00004780  2c 30 33 32 34 2c 31 32  38 38 2c 30 32 37 38 2c  |,0324,1288,0278,|
00004790  31 32 39 32 2c 30 33 31  30 2c 31 33 33 32 2c 30  |1292,0310,1332,0|
000047a0  35 30 34 2c 31 32 35 34  2c 30 34 32 34 2c 31 32  |504,1254,0424,12|
000047b0  30 30 2c 30 35 30 34 2c  31 32 35 34 2c 30 34 33  |00,0504,1254,043|
000047c0  38 2c 31 31 37 38 2c 30  34 33 30 2c 31 31 31 36  |8,1178,0430,1116|
000047d0  2c 30 33 38 30 2c 31 31  35 36 2c 30 34 33 30 2c  |,0380,1156,0430,|
000047e0  31 31 31 36 2c 30 33 37  38 2c 30 39 32 36 22 0d  |1116,0378,0926".|
000047f0  01 e4 be dc 20 22 30 39  2c 30 32 33 36 2c 31 32  |.... "09,0236,12|
00004800  34 38 2c 30 33 36 38 2c  31 31 38 34 2c 30 33 30  |48,0368,1184,030|
00004810  32 2c 31 32 31 36 2c 30  33 35 36 2c 31 31 36 34  |2,1216,0356,1164|
00004820  2c 30 31 31 30 2c 31 31  33 32 2c 30 33 38 32 2c  |,0110,1132,0382,|
00004830  31 30 38 32 2c 30 31 38  32 2c 30 36 39 37 2c 30  |1082,0182,0697,0|
00004840  32 39 36 2c 30 37 31 36  2c 30 32 34 34 2c 30 37  |296,0716,0244,07|
00004850  30 38 2c 30 32 39 34 2c  30 37 34 38 2c 30 31 38  |08,0294,0748,018|
00004860  32 2c 30 36 39 37 2c 30  32 37 30 2c 30 37 38 38  |2,0697,0270,0788|
00004870  2c 30 32 33 36 2c 30 37  35 36 2c 30 32 37 38 2c  |,0236,0756,0278,|
00004880  30 37 37 36 2c 30 35 32  36 2c 31 31 37 30 2c 30  |0776,0526,1170,0|
00004890  33 38 32 2c 31 31 33 38  2c 30 34 38 38 2c 31 30  |382,1138,0488,10|
000048a0  31 32 2c 30 34 35 34 2c  30 39 37 32 22 0d 01 e5  |12,0454,0972"...|
000048b0  5a dc 20 22 30 34 2c 30  32 32 30 2c 30 38 37 34  |Z. "04,0220,0874|
000048c0  2c 30 33 32 30 2c 31 30  37 30 2c 30 32 34 36 2c  |,0320,1070,0246,|
000048d0  30 39 32 34 2c 30 33 32  32 2c 30 39 38 30 2c 30  |0924,0322,0980,0|
000048e0  31 34 30 2c 31 32 36 30  2c 30 33 38 30 2c 31 32  |140,1260,0380,12|
000048f0  32 30 2c 30 31 36 32 2c  31 33 31 32 2c 30 33 34  |20,0162,1312,034|
00004900  38 2c 31 32 39 38 22 0d  01 e6 c2 f4 44 41 54 41  |8,1298".....DATA|
00004910  20 22 30 39 2c 30 31 37  32 2c 31 33 36 36 2c 30  | "09,0172,1366,0|
00004920  33 32 32 2c 31 33 31 32  2c 30 31 32 30 2c 31 30  |322,1312,0120,10|
00004930  37 36 2c 30 33 33 30 2c  30 39 38 36 2c 30 31 32  |76,0330,0986,012|
00004940  34 2c 30 39 36 38 2c 30  34 31 30 2c 30 39 34 34  |4,0968,0410,0944|
00004950  2c 30 31 37 34 2c 30 37  30 30 2c 30 33 37 30 2c  |,0174,0700,0370,|
00004960  30 38 32 38 2c 30 32 35  32 2c 30 37 34 38 2c 30  |0828,0252,0748,0|
00004970  32 38 30 2c 30 38 33 32  2c 30 32 35 32 2c 30 37  |280,0832,0252,07|
00004980  34 38 2c 30 34 31 34 2c  30 37 36 32 2c 30 34 37  |48,0414,0762,047|
00004990  32 2c 31 31 37 32 2c 30  33 38 36 2c 31 31 37 30  |2,1172,0386,1170|
000049a0  2c 30 31 36 30 2c 30 38  31 32 2c 30 33 33 38 2c  |,0160,0812,0338,|
000049b0  30 39 32 38 2c 30 35 31  32 2c 30 39 35 30 2c 30  |0928,0512,0950,0|
000049c0  33 35 34 2c 30 39 31 30  22 0d 01 e7 fa dc 20 22  |354,0910"..... "|
000049d0  31 32 2c 30 31 37 32 2c  31 33 36 36 2c 30 33 32  |12,0172,1366,032|
000049e0  32 2c 31 33 31 32 2c 30  31 32 30 2c 31 30 37 36  |2,1312,0120,1076|
000049f0  2c 30 34 31 38 2c 30 39  34 32 2c 30 31 30 34 2c  |,0418,0942,0104,|
00004a00  30 39 36 38 2c 30 33 30  36 2c 30 39 35 36 2c 30  |0968,0306,0956,0|
00004a10  31 38 30 2c 30 37 30 38  2c 30 32 35 38 2c 30 37  |180,0708,0258,07|
00004a20  35 38 2c 30 32 35 38 2c  30 37 35 38 2c 30 33 32  |58,0258,0758,032|
00004a30  36 2c 30 38 34 38 2c 30  32 35 38 2c 30 37 35 38  |6,0848,0258,0758|
00004a40  2c 30 33 37 30 2c 30 37  39 36 2c 30 35 33 32 2c  |,0370,0796,0532,|
00004a50  30 36 36 36 2c 30 35 30  30 2c 30 38 35 32 2c 30  |0666,0500,0852,0|
00004a60  35 30 30 2c 30 38 35 32  2c 30 34 34 38 2c 30 38  |500,0852,0448,08|
00004a70  33 34 2c 30 35 30 30 2c  30 38 35 32 2c 30 34 30  |34,0500,0852,040|
00004a80  32 2c 30 39 30 32 2c 30  34 37 32 2c 31 31 37 32  |2,0902,0472,1172|
00004a90  2c 30 33 38 36 2c 31 31  37 30 2c 30 31 36 30 2c  |,0386,1170,0160,|
00004aa0  30 38 31 32 2c 30 33 33  38 2c 30 39 32 38 2c 30  |0812,0338,0928,0|
00004ab0  35 31 32 2c 30 39 35 30  2c 30 33 35 34 2c 30 39  |512,0950,0354,09|
00004ac0  31 30 22 0d 01 e8 5a dc  20 22 30 34 2c 30 35 30  |10"...Z. "04,050|
00004ad0  30 2c 31 30 34 32 2c 30  34 31 32 2c 30 39 31 38  |0,1042,0412,0918|
00004ae0  2c 30 32 37 38 2c 30 37  35 36 2c 30 33 36 32 2c  |,0278,0756,0362,|
00004af0  30 37 32 36 2c 30 32 37  38 2c 30 37 35 36 2c 30  |0726,0278,0756,0|
00004b00  33 36 34 2c 30 36 39 34  2c 30 31 33 32 2c 31 31  |364,0694,0132,11|
00004b10  33 32 2c 30 31 35 34 2c  30 38 36 38 22 0d 01 e9  |32,0154,0868"...|
00004b20  d2 dc 20 22 31 30 2c 30  32 31 38 2c 31 33 31 30  |.. "10,0218,1310|
00004b30  2c 30 33 35 32 2c 31 33  34 32 2c 30 34 34 38 2c  |,0352,1342,0448,|
00004b40  31 32 36 32 2c 30 33 37  34 2c 31 32 30 38 2c 30  |1262,0374,1208,0|
00004b50  34 38 38 2c 31 31 37 30  2c 30 33 38 36 2c 31 31  |488,1170,0386,11|
00004b60  34 30 2c 30 34 36 36 2c  31 30 34 32 2c 30 33 37  |40,0466,1042,037|
00004b70  38 2c 30 39 38 38 2c 30  33 37 38 2c 30 39 38 38  |8,0988,0378,0988|
00004b80  2c 30 33 33 36 2c 30 39  35 36 2c 30 33 37 38 2c  |,0336,0956,0378,|
00004b90  30 39 38 38 2c 30 34 31  32 2c 30 39 36 32 2c 30  |0988,0412,0962,0|
00004ba0  34 38 30 2c 30 37 30 36  2c 30 33 35 30 2c 30 36  |480,0706,0350,06|
00004bb0  35 32 2c 30 34 30 38 2c  30 36 37 36 2c 30 33 37  |52,0408,0676,037|
00004bc0  34 2c 30 36 35 30 2c 30  34 37 36 2c 31 34 31 32  |4,0650,0476,1412|
00004bd0  2c 30 33 39 32 2c 31 33  36 30 2c 30 35 30 38 2c  |,0392,1360,0508,|
00004be0  30 39 34 30 2c 30 33 39  36 2c 30 39 31 38 22 0d  |0940,0396,0918".|
00004bf0  01 ea 46 dc 20 22 30 33  2c 30 32 36 30 2c 30 36  |..F. "03,0260,06|
00004c00  33 32 2c 30 33 36 34 2c  30 36 37 36 2c 30 33 30  |32,0364,0676,030|
00004c10  38 2c 30 36 35 32 2c 30  33 35 30 2c 30 36 35 30  |8,0652,0350,0650|
00004c20  2c 30 34 36 34 2c 30 37  31 34 2c 30 33 36 36 2c  |,0464,0714,0366,|
00004c30  30 37 30 36 22 0d 01 eb  46 dc 20 22 30 33 2c 30  |0706"...F. "03,0|
00004c40  32 33 34 2c 30 36 33 32  2c 30 33 36 34 2c 30 37  |234,0632,0364,07|
00004c50  33 34 2c 30 33 30 34 2c  30 36 39 30 2c 30 33 33  |34,0304,0690,033|
00004c60  32 2c 30 37 32 38 2c 30  34 38 38 2c 30 37 31 39  |2,0728,0488,0719|
00004c70  2c 30 33 36 34 2c 30 37  30 37 22 0d 01 ec d2 dc  |,0364,0707".....|
00004c80  20 22 31 30 2c 30 32 31  38 2c 31 33 31 30 2c 30  | "10,0218,1310,0|
00004c90  33 35 32 2c 31 33 34 32  2c 30 34 34 38 2c 31 32  |352,1342,0448,12|
00004ca0  36 32 2c 30 33 37 34 2c  31 32 30 38 2c 30 34 38  |62,0374,1208,048|
00004cb0  38 2c 31 31 37 30 2c 30  33 38 36 2c 31 31 34 30  |8,1170,0386,1140|
00004cc0  2c 30 34 36 36 2c 31 30  34 32 2c 30 33 37 38 2c  |,0466,1042,0378,|
00004cd0  30 39 38 38 2c 30 33 37  38 2c 30 39 38 38 2c 30  |0988,0378,0988,0|
00004ce0  33 33 36 2c 30 39 35 36  2c 30 33 37 38 2c 30 39  |336,0956,0378,09|
00004cf0  38 38 2c 30 34 31 32 2c  30 39 36 32 2c 30 34 38  |88,0412,0962,048|
00004d00  30 2c 30 37 30 36 2c 30  33 33 34 2c 30 37 32 36  |0,0706,0334,0726|
00004d10  2c 30 34 32 36 2c 30 37  31 34 2c 30 33 39 38 2c  |,0426,0714,0398,|
00004d20  30 37 33 30 2c 30 34 37  36 2c 31 34 31 32 2c 30  |0730,0476,1412,0|
00004d30  33 39 32 2c 31 33 36 30  2c 30 35 30 38 2c 30 39  |392,1360,0508,09|
00004d40  34 30 2c 30 33 39 36 2c  30 39 31 38 22 0d 01 ed  |40,0396,0918"...|
00004d50  1c e3 73 25 3d 30 b8 39  3a f3 20 6f 76 6c 69 6e  |..s%=0.9:. ovlin|
00004d60  65 73 24 28 73 25 29 3a  ed 0d 01 ee 08 f7 20 2b  |es$(s%):...... +|
00004d70  30 0d 01 ef 24 f4 20 62  6f 64 79 20 73 79 73 74  |0...$. body syst|
00004d80  65 6d 20 6c 61 62 65 6c  20 69 63 6f 6e 20 6e 75  |em label icon nu|
00004d90  6d 62 65 72 73 0d 01 f0  1f dc 20 22 30 37 2c 30  |mbers..... "07,0|
00004da0  38 2c 31 31 2c 32 32 2c  32 35 2c 32 36 2c 32 37  |8,11,22,25,26,27|
00004db0  2c 34 32 22 0d 01 f1 1f  dc 20 22 30 37 2c 32 31  |,42"..... "07,21|
00004dc0  2c 30 30 2c 30 36 2c 30  32 2c 30 34 2c 32 33 2c  |,00,06,02,04,23,|
00004dd0  32 38 22 0d 01 f2 19 dc  20 22 30 35 2c 30 35 2c  |28"..... "05,05,|
00004de0  30 37 2c 31 36 2c 32 39  2c 33 30 22 0d 01 f3 13  |07,16,29,30"....|
00004df0  dc 20 22 30 33 2c 31 33  2c 33 31 2c 33 32 22 0d  |. "03,13,31,32".|
00004e00  01 f4 22 dc 20 22 30 38  2c 30 31 2c 31 30 2c 31  |..". "08,01,10,1|
00004e10  32 2c 31 37 2c 31 38 2c  33 33 2c 33 34 2c 34 33  |2,17,18,33,34,43|
00004e20  22 0d 01 f5 13 dc 20 22  30 33 2c 30 39 2c 31 35  |"..... "03,09,15|
00004e30  2c 32 34 22 0d 01 f6 1f  dc 20 22 30 37 2c 30 33  |,24"..... "07,03|
00004e40  2c 33 37 2c 32 39 2c 33  38 2c 34 30 2c 34 31 2c  |,37,29,38,40,41,|
00004e50  34 33 22 0d 01 f7 10 dc  20 22 30 32 2c 32 30 2c  |43"..... "02,20,|
00004e60  33 35 22 0d 01 f8 10 dc  20 22 30 32 2c 31 39 2c  |35"..... "02,19,|
00004e70  33 36 22 0d 01 f9 1f dc  20 22 30 37 2c 30 33 2c  |36"..... "07,03,|
00004e80  33 37 2c 32 39 2c 33 38  2c 33 39 2c 34 31 2c 34  |37,29,38,39,41,4|
00004e90  33 22 0d 01 fa 21 e3 73  25 3d 30 b8 39 3a f3 20  |3"...!.s%=0.9:. |
00004ea0  73 79 73 74 65 6d 6c 61  62 65 6c 73 24 28 73 25  |systemlabels$(s%|
00004eb0  29 3a ed 0d 01 fb 08 f7  20 2b 30 0d 01 fc 26 dc  |):...... +0...&.|
00004ec0  20 22 54 68 65 20 4d 75  73 63 75 6c 6f 2d 73 6b  | "The Musculo-sk|
00004ed0  65 6c 65 74 61 6c 20 73  79 73 74 65 6d 20 3a 2d  |eletal system :-|
00004ee0  22 0d 01 fd 38 dc 20 22  20 2d 20 67 69 76 65 73  |"...8. " - gives|
00004ef0  20 73 75 70 70 6f 72 74  20 61 6e 64 20 6d 6f 76  | support and mov|
00004f00  65 6d 65 6e 74 20 74 6f  20 74 68 65 20 77 68 6f  |ement to the who|
00004f10  6c 65 20 62 6f 64 79 3b  22 0d 01 fe 31 dc 20 22  |le body;"...1. "|
00004f20  20 2d 20 70 72 6f 74 65  63 74 73 20 64 65 6c 69  | - protects deli|
00004f30  63 61 74 65 20 6f 72 67  61 6e 73 20 62 65 68 69  |cate organs behi|
00004f40  6e 64 20 62 6f 6e 65 73  2e 22 0d 01 ff 1d dc 20  |nd bones."..... |
00004f50  22 54 68 65 20 4e 65 72  76 6f 75 73 20 73 79 73  |"The Nervous sys|
00004f60  74 65 6d 20 3a 2d 22 0d  02 00 28 dc 20 22 20 2d  |tem :-"...(. " -|
00004f70  20 63 6f 6e 74 72 6f 6c  73 20 6d 6f 73 74 20 62  | controls most b|
00004f80  6f 64 79 20 70 72 6f 63  65 73 73 65 73 3b 22 0d  |ody processes;".|
00004f90  02 01 35 dc 20 22 20 2d  20 6c 65 74 73 20 75 73  |..5. " - lets us|
00004fa0  20 75 6e 64 65 72 73 74  61 6e 64 20 61 6e 64 20  | understand and |
00004fb0  62 65 20 61 77 61 72 65  20 6f 66 20 74 68 69 6e  |be aware of thin|
00004fc0  67 73 2e 22 0d 02 02 25  dc 20 22 54 68 65 20 42  |gs."...%. "The B|
00004fd0  6c 6f 6f 64 20 61 6e 64  20 4c 79 6d 70 68 20 73  |lood and Lymph s|
00004fe0  79 73 74 65 6d 20 3a 2d  22 0d 02 03 33 dc 20 22  |ystem :-"...3. "|
00004ff0  20 2d 20 70 72 6f 76 69  64 65 73 20 74 72 61 6e  | - provides tran|
00005000  73 70 6f 72 74 20 74 6f  20 6e 65 61 72 6c 79 20  |sport to nearly |
00005010  65 76 65 72 79 20 63 65  6c 6c 3b 22 0d 02 04 37  |every cell;"...7|
00005020  dc 20 22 20 2d 20 63 61  72 72 69 65 73 20 66 6f  |. " - carries fo|
00005030  6f 64 2c 20 77 61 73 74  65 2c 20 6f 78 79 67 65  |od, waste, oxyge|
00005040  6e 2c 20 63 61 72 62 6f  6e 20 64 69 6f 78 69 64  |n, carbon dioxid|
00005050  65 2c 22 0d 02 05 34 dc  20 22 20 20 20 64 69 73  |e,"...4. "   dis|
00005060  65 61 73 65 20 66 69 67  68 74 65 72 73 2c 20 68  |ease fighters, h|
00005070  6f 72 6d 6f 6e 65 73 20  61 6e 64 20 6d 75 63 68  |ormones and much|
00005080  20 6d 6f 72 65 2e 22 0d  02 06 21 dc 20 22 54 68  | more."...!. "Th|
00005090  65 20 52 65 73 70 69 72  61 74 6f 72 79 20 73 79  |e Respiratory sy|
000050a0  73 74 65 6d 20 3a 2d 22  0d 02 07 39 dc 20 22 20  |stem :-"...9. " |
000050b0  2d 20 67 69 76 65 73 20  62 6c 6f 6f 64 20 6f 78  |- gives blood ox|
000050c0  79 67 65 6e 20 61 6e 64  20 72 65 6d 6f 76 65 73  |ygen and removes|
000050d0  20 63 61 72 62 6f 6e 20  64 69 6f 78 69 64 65 2e  | carbon dioxide.|
000050e0  22 0d 02 08 1f dc 20 22  54 68 65 20 44 69 67 65  |"..... "The Dige|
000050f0  73 74 69 76 65 20 73 79  73 74 65 6d 20 3a 2d 22  |stive system :-"|
00005100  0d 02 09 39 dc 20 22 20  2d 20 62 72 65 61 6b 73  |...9. " - breaks|
00005110  20 64 6f 77 6e 20 66 6f  6f 64 20 69 6e 74 6f 20  | down food into |
00005120  63 68 65 6d 69 63 61 6c  73 20 75 73 65 64 20 62  |chemicals used b|
00005130  79 20 63 65 6c 6c 73 2e  22 0d 02 0a 1f dc 20 22  |y cells."..... "|
00005140  54 68 65 20 45 78 63 72  65 74 6f 72 79 20 73 79  |The Excretory sy|
00005150  73 74 65 6d 20 3a 2d 22  0d 02 0b 2d dc 20 22 20  |stem :-"...-. " |
00005160  2d 20 63 6c 65 61 6e 73  20 74 68 65 20 62 6f 64  |- cleans the bod|
00005170  79 20 6f 66 20 77 61 73  74 65 20 6d 61 74 65 72  |y of waste mater|
00005180  69 61 6c 2e 22 0d 02 0c  1f dc 20 22 54 68 65 20  |ial."..... "The |
00005190  45 6e 64 6f 63 72 69 6e  65 20 73 79 73 74 65 6d  |Endocrine system|
000051a0  20 3a 2d 22 0d 02 0d 39  dc 20 22 20 2d 20 73 65  | :-"...9. " - se|
000051b0  63 72 65 74 65 73 20 68  6f 72 6d 6f 6e 65 73 20  |cretes hormones |
000051c0  74 68 61 74 20 63 6f 6e  74 72 6f 6c 20 62 6f 64  |that control bod|
000051d0  79 20 70 72 6f 63 65 73  73 65 73 2e 22 0d 02 0e  |y processes."...|
000051e0  27 dc 20 22 54 68 65 20  4d 61 6c 65 20 52 65 70  |'. "The Male Rep|
000051f0  72 6f 64 75 63 74 69 76  65 20 73 79 73 74 65 6d  |roductive system|
00005200  20 3a 2d 22 0d 02 0f 35  dc 20 22 20 2d 20 70 72  | :-"...5. " - pr|
00005210  6f 64 75 63 65 73 20 73  70 65 72 6d 20 74 6f 20  |oduces sperm to |
00005220  70 6c 61 63 65 20 69 6e  73 69 64 65 20 74 68 65  |place inside the|
00005230  20 66 65 6d 61 6c 65 2e  22 0d 02 10 29 dc 20 22  | female."...). "|
00005240  54 68 65 20 46 65 6d 61  6c 65 20 52 65 70 72 6f  |The Female Repro|
00005250  64 75 63 74 69 76 65 20  73 79 73 74 65 6d 20 3a  |ductive system :|
00005260  2d 22 0d 02 11 2a dc 20  22 20 2d 20 70 72 6f 64  |-"...*. " - prod|
00005270  75 63 65 73 20 65 67 67  73 20 61 6e 64 20 67 72  |uces eggs and gr|
00005280  6f 77 73 20 62 61 62 69  65 73 2e 22 0d 02 12 1f  |ows babies."....|
00005290  e3 73 25 3d 30 b8 32 31  3a f3 20 73 79 73 74 77  |.s%=0.21:. systw|
000052a0  6f 72 64 73 24 28 73 25  29 3a ed 0d 02 13 08 f7  |ords$(s%):......|
000052b0  20 2b 30 0d 02 14 17 f4  20 73 70 69 6e 65 20 32  | +0..... spine 2|
000052c0  35 20 28 73 69 6d 70 6c  65 29 0d 02 15 87 dc 20  |5 (simple)..... |
000052d0  22 54 68 65 20 73 70 69  6e 65 20 6f 72 20 62 61  |"The spine or ba|
000052e0  63 6b 62 6f 6e 65 20 69  73 20 6d 61 64 65 20 6f  |ckbone is made o|
000052f0  66 20 32 36 20 73 6d 61  6c 6c 20 62 6f 6e 65 73  |f 26 small bones|
00005300  20 63 61 6c 6c 65 64 20  76 65 72 74 65 62 72 61  | called vertebra|
00005310  65 2e 20 4a 6f 69 6e 74  73 20 62 65 74 77 65 65  |e. Joints betwee|
00005320  6e 20 74 68 65 20 76 65  72 74 65 62 72 61 65 20  |n the vertebrae |
00005330  61 6c 6c 6f 77 20 74 68  65 20 73 70 69 6e 65 20  |allow the spine |
00005340  74 68 65 20 62 65 6e 64  20 65 61 73 69 6c 79 2e  |the bend easily.|
00005350  22 0d 02 16 0e f4 20 73  70 69 6e 65 20 32 35 0d  |"..... spine 25.|
00005360  02 17 94 dc 20 22 54 68  65 20 73 70 69 6e 65 20  |.... "The spine |
00005370  6f 72 20 76 65 72 74 65  62 72 61 6c 20 63 6f 6c  |or vertebral col|
00005380  75 6d 6e 20 6f 72 20 62  61 63 6b 62 6f 6e 65 20  |umn or backbone |
00005390  69 73 20 6d 61 64 65 20  6f 66 20 32 36 20 73 6d  |is made of 26 sm|
000053a0  61 6c 6c 20 62 6f 6e 65  73 20 63 61 6c 6c 65 64  |all bones called|
000053b0  20 76 65 72 74 65 62 72  61 65 2e 20 4a 6f 69 6e  | vertebrae. Join|
000053c0  74 73 20 62 65 74 77 65  65 6e 20 74 68 65 20 76  |ts between the v|
000053d0  65 72 74 65 62 72 61 65  20 65 6e 61 62 6c 65 20  |ertebrae enable |
000053e0  74 68 65 20 73 70 69 6e  65 20 74 6f 20 62 65 6e  |the spine to ben|
000053f0  64 2e 22 0d 02 18 18 f4  20 70 65 6c 76 69 73 20  |d."..... pelvis |
00005400  32 36 20 28 73 69 6d 70  6c 65 29 0d 02 19 b6 dc  |26 (simple).....|
00005410  20 22 54 68 65 20 70 65  6c 76 69 73 20 69 73 20  | "The pelvis is |
00005420  61 20 62 69 67 20 72 69  6e 67 20 6f 66 20 62 6f  |a big ring of bo|
00005430  6e 65 20 6a 6f 69 6e 65  64 20 74 6f 20 74 68 65  |ne joined to the|
00005440  20 62 6f 74 74 6f 6d 20  6f 66 20 74 68 65 20 73  | bottom of the s|
00005450  70 69 6e 65 20 61 6e 64  20 74 6f 70 20 6f 66 20  |pine and top of |
00005460  74 68 65 20 6c 65 67 20  62 6f 6e 65 73 2e 20 46  |the leg bones. F|
00005470  65 6d 61 6c 65 73 20 68  61 76 65 20 61 20 77 69  |emales have a wi|
00005480  64 65 72 20 70 65 6c 76  69 73 20 73 6f 20 62 61  |der pelvis so ba|
00005490  62 69 65 73 20 63 61 6e  20 73 71 75 65 65 7a 65  |bies can squeeze|
000054a0  20 74 68 72 6f 75 67 68  20 74 68 65 20 68 6f 6c  | through the hol|
000054b0  65 20 69 6e 20 74 68 65  20 6d 69 64 64 6c 65 2e  |e in the middle.|
000054c0  22 0d 02 1a 0f f4 20 70  65 6c 76 69 73 20 32 36  |"..... pelvis 26|
000054d0  0d 02 1b b8 dc 20 22 54  68 65 20 70 65 6c 76 69  |..... "The pelvi|
000054e0  73 20 69 73 20 61 20 6c  61 72 67 65 20 72 69 6e  |s is a large rin|
000054f0  67 20 6f 66 20 62 6f 6e  65 20 6a 6f 69 6e 65 64  |g of bone joined|
00005500  20 74 6f 20 74 68 65 20  62 6f 74 74 6f 6d 20 6f  | to the bottom o|
00005510  66 20 74 68 65 20 73 70  69 6e 65 20 61 6e 64 20  |f the spine and |
00005520  74 6f 70 20 6f 66 20 74  68 65 20 6c 65 67 20 62  |top of the leg b|
00005530  6f 6e 65 73 2e 20 46 65  6d 61 6c 65 73 20 68 61  |ones. Females ha|
00005540  76 65 20 61 20 77 69 64  65 72 20 70 65 6c 76 69  |ve a wider pelvi|
00005550  73 20 73 6f 20 62 61 62  69 65 73 20 63 61 6e 20  |s so babies can |
00005560  73 71 75 65 65 7a 65 20  74 68 72 6f 75 67 68 20  |squeeze through |
00005570  74 68 65 20 68 6f 6c 65  20 69 6e 20 74 68 65 20  |the hole in the |
00005580  6d 69 64 64 6c 65 2e 22  0d 02 1c 1b f4 20 6c 69  |middle."..... li|
00005590  67 61 6d 65 6e 74 73 20  32 37 20 28 73 69 6d 70  |gaments 27 (simp|
000055a0  6c 65 29 0d 02 1d 89 dc  20 22 4c 69 67 61 6d 65  |le)..... "Ligame|
000055b0  6e 74 73 20 61 72 65 20  76 65 72 79 20 73 74 72  |nts are very str|
000055c0  6f 6e 67 20 27 63 6f 72  64 73 27 2e 20 54 68 65  |ong 'cords'. The|
000055d0  79 20 61 72 65 20 6d 61  64 65 20 6f 66 20 73 74  |y are made of st|
000055e0  72 6f 6e 67 20 66 69 62  72 65 73 20 61 6e 64 20  |rong fibres and |
000055f0  6a 6f 69 6e 20 74 6f 67  65 74 68 65 72 20 6d 61  |join together ma|
00005600  6e 79 20 74 68 69 6e 67  73 20 73 75 63 68 20 61  |ny things such a|
00005610  73 20 74 77 6f 20 62 6f  6e 65 73 20 6d 61 6b 69  |s two bones maki|
00005620  6e 67 20 61 20 6a 6f 69  6e 74 2e 22 0d 02 1e 12  |ng a joint."....|
00005630  f4 20 6c 69 67 61 6d 65  6e 74 73 20 32 37 0d 02  |. ligaments 27..|
00005640  1f 89 dc 20 22 4c 69 67  61 6d 65 6e 74 73 20 61  |... "Ligaments a|
00005650  72 65 20 76 65 72 79 20  73 74 72 6f 6e 67 20 27  |re very strong '|
00005660  63 6f 72 64 73 27 2e 20  54 68 65 79 20 61 72 65  |cords'. They are|
00005670  20 6d 61 64 65 20 6f 66  20 73 74 72 6f 6e 67 20  | made of strong |
00005680  66 69 62 72 65 73 20 61  6e 64 20 6a 6f 69 6e 20  |fibres and join |
00005690  74 6f 67 65 74 68 65 72  20 6d 61 6e 79 20 74 68  |together many th|
000056a0  69 6e 67 73 20 73 75 63  68 20 61 73 20 74 77 6f  |ings such as two|
000056b0  20 62 6f 6e 65 73 20 6d  61 6b 69 6e 67 20 61 20  | bones making a |
000056c0  6a 6f 69 6e 74 2e 22 0d  02 20 1d f4 20 73 70 69  |joint.".. .. spi|
000056d0  6e 61 6c 20 63 6f 72 64  20 32 38 20 28 73 69 6d  |nal cord 28 (sim|
000056e0  70 6c 65 29 0d 02 21 b4  dc 20 22 54 68 65 20 73  |ple)..!.. "The s|
000056f0  70 69 6e 61 6c 20 63 6f  72 64 20 6c 69 65 73 20  |pinal cord lies |
00005700  69 6e 20 74 68 65 20 73  70 69 6e 65 2c 20 69 6e  |in the spine, in|
00005710  20 61 20 68 6f 6c 65 20  74 68 61 74 20 67 6f 65  | a hole that goe|
00005720  73 20 74 68 72 6f 75 67  68 20 65 61 63 68 20 62  |s through each b|
00005730  6f 6e 65 20 6f 66 20 74  68 65 20 73 70 69 6e 65  |one of the spine|
00005740  2e 20 54 68 65 20 73 70  69 6e 61 6c 20 63 6f 72  |. The spinal cor|
00005750  64 20 69 73 20 6d 61 64  65 20 6f 66 20 6d 61 6e  |d is made of man|
00005760  79 20 6e 65 72 76 65 73  20 74 68 61 74 20 6a 6f  |y nerves that jo|
00005770  69 6e 20 74 68 65 20 62  72 61 69 6e 20 77 69 74  |in the brain wit|
00005780  68 20 74 68 65 20 72 65  73 74 20 6f 66 20 74 68  |h the rest of th|
00005790  65 20 62 6f 64 79 2e 22  0d 02 22 14 f4 20 73 70  |e body."..".. sp|
000057a0  69 6e 61 6c 20 63 6f 72  64 20 32 38 0d 02 23 b4  |inal cord 28..#.|
000057b0  dc 20 22 54 68 65 20 73  70 69 6e 61 6c 20 63 6f  |. "The spinal co|
000057c0  72 64 20 6c 69 65 73 20  69 6e 20 74 68 65 20 73  |rd lies in the s|
000057d0  70 69 6e 65 2c 20 69 6e  20 61 20 68 6f 6c 65 20  |pine, in a hole |
000057e0  74 68 61 74 20 67 6f 65  73 20 74 68 72 6f 75 67  |that goes throug|
000057f0  68 20 65 61 63 68 20 62  6f 6e 65 20 6f 66 20 74  |h each bone of t|
00005800  68 65 20 73 70 69 6e 65  2e 20 54 68 65 20 73 70  |he spine. The sp|
00005810  69 6e 61 6c 20 63 6f 72  64 20 69 73 20 6d 61 64  |inal cord is mad|
00005820  65 20 6f 66 20 6d 61 6e  79 20 6e 65 72 76 65 73  |e of many nerves|
00005830  20 74 68 61 74 20 6a 6f  69 6e 20 74 68 65 20 62  | that join the b|
00005840  72 61 69 6e 20 77 69 74  68 20 74 68 65 20 72 65  |rain with the re|
00005850  73 74 20 6f 66 20 74 68  65 20 62 6f 64 79 2e 22  |st of the body."|
00005860  0d 02 24 18 f4 20 74 68  79 6d 75 73 20 32 39 20  |..$.. thymus 29 |
00005870  28 73 69 6d 70 6c 65 29  0d 02 25 8c dc 20 22 54  |(simple)..%.. "T|
00005880  68 65 20 74 68 79 6d 75  73 20 69 73 20 61 6e 20  |he thymus is an |
00005890  69 6d 70 6f 72 74 61 6e  74 20 67 6c 61 6e 64 2e  |important gland.|
000058a0  20 49 74 20 68 65 6c 70  73 20 6d 61 6b 65 20 77  | It helps make w|
000058b0  68 69 74 65 20 62 6c 6f  6f 64 20 63 65 6c 6c 73  |hite blood cells|
000058c0  20 74 68 61 74 20 74 72  61 76 65 6c 20 69 6e 20  | that travel in |
000058d0  62 6c 6f 6f 64 20 61 6e  64 20 6c 79 6d 70 68 20  |blood and lymph |
000058e0  74 6f 20 66 69 67 68 74  20 64 69 73 65 61 73 65  |to fight disease|
000058f0  73 20 61 6e 64 20 6b 65  65 70 20 75 73 20 77 65  |s and keep us we|
00005900  6c 6c 2e 22 0d 02 26 0f  f4 20 74 68 79 6d 75 73  |ll."..&.. thymus|
00005910  20 32 39 0d 02 27 96 dc  20 22 54 68 65 20 74 68  | 29..'.. "The th|
00005920  79 6d 75 73 20 69 73 20  61 6e 20 69 6d 70 6f 72  |ymus is an impor|
00005930  74 61 6e 74 20 67 6c 61  6e 64 2e 20 49 74 20 68  |tant gland. It h|
00005940  65 6c 70 73 20 6d 61 6b  65 20 77 68 69 74 65 20  |elps make white |
00005950  62 6c 6f 6f 64 20 63 65  6c 6c 73 20 74 68 61 74  |blood cells that|
00005960  20 74 72 61 76 65 6c 20  69 6e 20 62 6c 6f 6f 64  | travel in blood|
00005970  20 61 6e 64 20 6c 79 6d  70 68 20 6b 69 6c 6c 69  | and lymph killi|
00005980  6e 67 20 62 61 63 74 65  72 69 61 20 61 6e 64 20  |ng bacteria and |
00005990  76 69 72 75 73 65 73 20  74 6f 20 6b 65 65 70 20  |viruses to keep |
000059a0  75 73 20 77 65 6c 6c 2e  22 0d 02 28 18 f4 20 73  |us well."..(.. s|
000059b0  70 6c 65 65 6e 20 33 30  20 28 73 69 6d 70 6c 65  |pleen 30 (simple|
000059c0  29 0d 02 29 44 dc 20 22  54 68 65 20 73 70 6c 65  |)..)D. "The sple|
000059d0  65 6e 20 68 65 6c 70 73  20 6d 61 6b 65 20 77 68  |en helps make wh|
000059e0  69 74 65 20 62 6c 6f 6f  64 20 63 65 6c 6c 73 20  |ite blood cells |
000059f0  74 68 61 74 20 66 69 67  68 74 20 64 69 73 65 61  |that fight disea|
00005a00  73 65 73 2e 22 0d 02 2a  0f f4 20 73 70 6c 65 65  |ses."..*.. splee|
00005a10  6e 20 33 30 0d 02 2b 87  dc 20 22 54 68 65 20 73  |n 30..+.. "The s|
00005a20  70 6c 65 65 6e 20 68 65  6c 70 73 20 6d 61 6b 65  |pleen helps make|
00005a30  20 77 68 69 74 65 20 62  6c 6f 6f 64 20 63 65 6c  | white blood cel|
00005a40  6c 73 20 74 68 61 74 20  66 69 67 68 74 20 64 69  |ls that fight di|
00005a50  73 65 61 73 65 73 2e 20  49 74 20 61 6c 73 6f 20  |seases. It also |
00005a60  64 65 73 74 72 6f 79 73  20 6f 6c 64 20 72 65 64  |destroys old red|
00005a70  20 62 6c 6f 6f 64 20 63  65 6c 6c 73 20 74 68 61  | blood cells tha|
00005a80  74 20 6e 6f 20 6c 6f 6e  67 65 72 20 77 6f 72 6b  |t no longer work|
00005a90  20 70 72 6f 70 65 72 6c  79 2e 22 0d 02 2c 19 f4  | properly."..,..|
00005aa0  20 74 72 61 63 68 65 61  20 33 31 20 28 73 69 6d  | trachea 31 (sim|
00005ab0  70 6c 65 29 0d 02 2d 80  dc 20 22 54 68 65 20 74  |ple)..-.. "The t|
00005ac0  72 61 63 68 65 61 20 6f  72 20 77 69 6e 64 70 69  |rachea or windpi|
00005ad0  70 65 20 69 73 20 74 68  65 20 74 75 62 65 20 66  |pe is the tube f|
00005ae0  72 6f 6d 20 74 68 65 20  62 61 63 6b 20 6f 66 20  |rom the back of |
00005af0  74 68 65 20 74 68 72 6f  61 74 20 74 6f 20 74 68  |the throat to th|
00005b00  65 20 6c 75 6e 67 73 2e  20 57 68 65 6e 20 77 65  |e lungs. When we|
00005b10  20 62 72 65 61 74 68 20  61 69 72 20 67 6f 65 73  | breath air goes|
00005b20  20 74 68 72 6f 75 67 68  20 74 68 69 73 20 74 75  | through this tu|
00005b30  62 65 2e 22 0d 02 2e 10  f4 20 74 72 61 63 68 65  |be."..... trache|
00005b40  61 20 33 31 0d 02 2f 80  dc 20 22 54 68 65 20 74  |a 31../.. "The t|
00005b50  72 61 63 68 65 61 20 6f  72 20 77 69 6e 64 70 69  |rachea or windpi|
00005b60  70 65 20 69 73 20 74 68  65 20 74 75 62 65 20 66  |pe is the tube f|
00005b70  72 6f 6d 20 74 68 65 20  62 61 63 6b 20 6f 66 20  |rom the back of |
00005b80  74 68 65 20 74 68 72 6f  61 74 20 74 6f 20 74 68  |the throat to th|
00005b90  65 20 6c 75 6e 67 73 2e  20 57 68 65 6e 20 77 65  |e lungs. When we|
00005ba0  20 62 72 65 61 74 68 20  61 69 72 20 67 6f 65 73  | breath air goes|
00005bb0  20 74 68 72 6f 75 67 68  20 74 68 69 73 20 74 75  | through this tu|
00005bc0  62 65 2e 22 0d 02 30 1c  f4 20 65 70 69 67 6c 6f  |be."..0.. epiglo|
00005bd0  74 74 69 73 20 33 32 20  28 73 69 6d 70 6c 65 29  |ttis 32 (simple)|
00005be0  0d 02 31 95 dc 20 22 54  68 65 20 65 70 69 67 6c  |..1.. "The epigl|
00005bf0  6f 74 74 69 73 20 69 73  20 61 20 73 6d 61 6c 6c  |ottis is a small|
00005c00  20 66 6c 61 70 20 61 74  20 74 68 65 20 74 6f 70  | flap at the top|
00005c10  20 6f 66 20 74 68 65 20  74 72 61 63 68 65 61 2e  | of the trachea.|
00005c20  20 49 74 20 63 6c 6f 73  65 73 20 74 68 65 20 74  | It closes the t|
00005c30  6f 70 20 6f 66 20 74 68  65 20 74 72 61 63 68 65  |op of the trache|
00005c40  61 20 77 68 65 6e 20 77  65 20 73 77 61 6c 6c 6f  |a when we swallo|
00005c50  77 20 74 6f 20 73 74 6f  70 20 66 6f 6f 64 20 67  |w to stop food g|
00005c60  6f 69 6e 67 20 69 6e 74  6f 20 74 68 65 20 6c 75  |oing into the lu|
00005c70  6e 67 73 2e 22 0d 02 32  13 f4 20 65 70 69 67 6c  |ngs."..2.. epigl|
00005c80  6f 74 74 69 73 20 33 32  0d 02 33 9a dc 20 22 54  |ottis 32..3.. "T|
00005c90  68 65 20 65 70 69 67 6c  6f 74 74 69 73 20 69 73  |he epiglottis is|
00005ca0  20 61 20 73 6d 61 6c 6c  20 66 6c 61 70 20 6f 66  | a small flap of|
00005cb0  20 63 61 72 74 69 6c 61  67 65 20 61 74 20 74 68  | cartilage at th|
00005cc0  65 20 74 6f 70 20 6f 66  20 74 68 65 20 74 72 61  |e top of the tra|
00005cd0  63 68 65 61 2e 20 49 74  20 73 65 61 6c 73 20 6f  |chea. It seals o|
00005ce0  66 66 20 74 68 65 20 74  72 61 63 68 65 61 20 77  |ff the trachea w|
00005cf0  68 65 6e 20 77 65 20 73  77 61 6c 6c 6f 77 20 74  |hen we swallow t|
00005d00  6f 20 73 74 6f 70 20 66  6f 6f 64 20 67 6f 69 6e  |o stop food goin|
00005d10  67 20 69 6e 74 6f 20 74  68 65 20 6c 75 6e 67 73  |g into the lungs|
00005d20  2e 22 0d 02 34 1c f4 20  6f 65 73 6f 70 68 61 67  |."..4.. oesophag|
00005d30  75 73 20 33 33 20 28 73  69 6d 70 6c 65 29 0d 02  |us 33 (simple)..|
00005d40  35 79 dc 20 22 54 68 65  20 6f 65 73 6f 70 68 61  |5y. "The oesopha|
00005d50  67 75 73 20 69 73 20 74  68 65 20 74 75 62 65 20  |gus is the tube |
00005d60  66 72 6f 6d 20 74 68 65  20 62 61 63 6b 20 6f 66  |from the back of|
00005d70  20 74 68 65 20 74 68 72  6f 61 74 20 74 6f 20 74  | the throat to t|
00005d80  68 65 20 73 74 6f 6d 61  63 68 2e 20 46 6f 6f 64  |he stomach. Food|
00005d90  20 70 61 73 73 65 73 20  74 6f 20 74 68 65 20 73  | passes to the s|
00005da0  74 6f 6d 61 63 68 20 64  6f 77 6e 20 74 68 69 73  |tomach down this|
00005db0  20 74 75 62 65 2e 22 0d  02 36 13 f4 20 6f 65 73  | tube."..6.. oes|
00005dc0  6f 70 68 61 67 75 73 20  33 33 0d 02 37 79 dc 20  |ophagus 33..7y. |
00005dd0  22 54 68 65 20 6f 65 73  6f 70 68 61 67 75 73 20  |"The oesophagus |
00005de0  69 73 20 74 68 65 20 74  75 62 65 20 66 72 6f 6d  |is the tube from|
00005df0  20 74 68 65 20 62 61 63  6b 20 6f 66 20 74 68 65  | the back of the|
00005e00  20 74 68 72 6f 61 74 20  74 6f 20 74 68 65 20 73  | throat to the s|
00005e10  74 6f 6d 61 63 68 2e 20  46 6f 6f 64 20 70 61 73  |tomach. Food pas|
00005e20  73 65 73 20 74 6f 20 74  68 65 20 73 74 6f 6d 61  |ses to the stoma|
00005e30  63 68 20 64 6f 77 6e 20  74 68 69 73 20 74 75 62  |ch down this tub|
00005e40  65 2e 22 0d 02 38 1e f4  20 67 61 6c 6c 20 62 6c  |e."..8.. gall bl|
00005e50  61 64 64 65 72 20 33 34  20 28 73 69 6d 70 6c 65  |adder 34 (simple|
00005e60  29 0d 02 39 6c dc 20 22  54 68 65 20 67 61 6c 6c  |)..9l. "The gall|
00005e70  20 62 6c 61 64 64 65 72  20 69 73 20 61 20 73 6d  | bladder is a sm|
00005e80  61 6c 6c 20 68 6f 6c 6c  6f 77 20 6f 72 67 61 6e  |all hollow organ|
00005e90  20 77 68 69 63 68 20 73  74 6f 72 65 73 20 61 20  | which stores a |
00005ea0  73 70 65 63 69 61 6c 20  6a 75 69 63 65 20 6d 61  |special juice ma|
00005eb0  64 65 20 69 6e 20 74 68  65 20 6c 69 76 65 72 20  |de in the liver |
00005ec0  28 73 65 65 20 6c 69 76  65 72 29 2e 22 0d 02 3a  |(see liver)."..:|
00005ed0  15 f4 20 67 61 6c 6c 20  62 6c 61 64 64 65 72 20  |.. gall bladder |
00005ee0  33 34 0d 02 3b 83 dc 20  22 54 68 65 20 67 61 6c  |34..;.. "The gal|
00005ef0  6c 20 62 6c 61 64 64 65  72 20 69 73 20 61 20 73  |l bladder is a s|
00005f00  6d 61 6c 6c 20 68 6f 6c  6c 6f 77 20 6f 72 67 61  |mall hollow orga|
00005f10  6e 20 77 68 69 63 68 20  73 74 6f 72 65 73 20 61  |n which stores a|
00005f20  6e 64 20 63 6f 6e 63 65  6e 74 72 61 74 65 73 20  |nd concentrates |
00005f30  62 69 6c 65 2c 20 61 20  73 70 65 63 69 61 6c 20  |bile, a special |
00005f40  6a 75 69 63 65 20 6d 61  64 65 20 69 6e 20 74 68  |juice made in th|
00005f50  65 20 6c 69 76 65 72 20  28 73 65 65 20 6c 69 76  |e liver (see liv|
00005f60  65 72 29 2e 22 0d 02 3c  1a f4 20 70 72 6f 73 74  |er)."..<.. prost|
00005f70  61 74 65 20 33 35 20 28  73 69 6d 70 6c 65 29 0d  |ate 35 (simple).|
00005f80  02 3d 7e dc 20 22 54 68  65 20 70 72 6f 73 74 61  |.=~. "The prosta|
00005f90  74 65 20 67 6c 61 6e 64  20 6d 61 6b 65 73 20 61  |te gland makes a|
00005fa0  20 6a 75 69 63 65 20 74  68 61 74 20 6d 69 78 65  | juice that mixe|
00005fb0  73 20 77 69 74 68 20 74  68 65 20 6d 61 6c 65 20  |s with the male |
00005fc0  73 65 78 20 63 65 6c 6c  73 20 28 73 70 65 72 6d  |sex cells (sperm|
00005fd0  29 20 74 6f 20 68 65 6c  70 20 74 68 65 6d 20 6c  |) to help them l|
00005fe0  69 76 65 20 69 6e 73 69  64 65 20 74 68 65 20 77  |ive inside the w|
00005ff0  6f 6d 61 6e 27 73 20 62  6f 64 79 2e 22 0d 02 3e  |oman's body."..>|
00006000  11 f4 20 70 72 6f 73 74  61 74 65 20 33 35 0d 02  |.. prostate 35..|
00006010  3f 8c dc 20 22 54 68 65  20 70 72 6f 73 74 61 74  |?.. "The prostat|
00006020  65 20 67 6c 61 6e 64 20  6d 61 6b 65 73 20 61 6e  |e gland makes an|
00006030  20 61 6c 6b 61 6c 69 6e  65 20 6c 69 71 75 69 64  | alkaline liquid|
00006040  20 74 68 61 74 20 6d 69  78 65 73 20 77 69 74 68  | that mixes with|
00006050  20 74 68 65 20 6d 61 6c  65 20 73 65 78 20 63 65  | the male sex ce|
00006060  6c 6c 73 20 28 73 70 65  72 6d 29 20 74 6f 20 68  |lls (sperm) to h|
00006070  65 6c 70 20 74 68 65 6d  20 73 75 72 76 69 76 65  |elp them survive|
00006080  20 69 6e 73 69 64 65 20  74 68 65 20 77 6f 6d 61  | inside the woma|
00006090  6e 27 73 20 62 6f 64 79  2e 22 0d 02 40 18 f4 20  |n's body."..@.. |
000060a0  76 61 67 69 6e 61 20 33  36 20 28 73 69 6d 70 6c  |vagina 36 (simpl|
000060b0  65 29 0d 02 41 8c dc 20  22 54 68 65 20 76 61 67  |e)..A.. "The vag|
000060c0  69 6e 61 20 69 73 20 61  20 74 75 62 65 20 77 68  |ina is a tube wh|
000060d0  69 63 68 20 6a 6f 69 6e  73 20 61 20 68 6f 6c 65  |ich joins a hole|
000060e0  20 62 65 74 77 65 65 6e  20 61 20 77 6f 6d 61 6e  | between a woman|
000060f0  27 73 20 6c 65 67 73 20  74 6f 20 74 68 65 20 75  |'s legs to the u|
00006100  74 65 72 75 73 20 6f 72  20 77 6f 6d 62 2e 20 41  |terus or womb. A|
00006110  20 62 61 62 79 20 62 65  69 6e 67 20 62 6f 72 6e  | baby being born|
00006120  20 63 6f 6d 65 73 20 6f  75 74 20 74 68 72 6f 75  | comes out throu|
00006130  67 68 20 74 68 69 73 20  74 75 62 65 2e 22 0d 02  |gh this tube."..|
00006140  42 0f f4 20 76 61 67 69  6e 61 20 33 36 0d 02 43  |B.. vagina 36..C|
00006150  8c dc 20 22 54 68 65 20  76 61 67 69 6e 61 20 69  |.. "The vagina i|
00006160  73 20 61 20 74 75 62 65  20 77 68 69 63 68 20 6a  |s a tube which j|
00006170  6f 69 6e 73 20 61 20 68  6f 6c 65 20 62 65 74 77  |oins a hole betw|
00006180  65 65 6e 20 61 20 77 6f  6d 61 6e 27 73 20 6c 65  |een a woman's le|
00006190  67 73 20 74 6f 20 74 68  65 20 75 74 65 72 75 73  |gs to the uterus|
000061a0  20 6f 72 20 77 6f 6d 62  2e 20 41 20 62 61 62 79  | or womb. A baby|
000061b0  20 62 65 69 6e 67 20 62  6f 72 6e 20 63 6f 6d 65  | being born come|
000061c0  73 20 6f 75 74 20 74 68  72 6f 75 67 68 20 74 68  |s out through th|
000061d0  69 73 20 74 75 62 65 2e  22 0d 02 44 19 f4 20 74  |is tube."..D.. t|
000061e0  68 79 72 6f 69 64 20 33  37 20 28 73 69 6d 70 6c  |hyroid 37 (simpl|
000061f0  65 29 0d 02 45 51 dc 20  22 54 68 65 20 74 68 79  |e)..EQ. "The thy|
00006200  72 6f 69 64 20 67 6c 61  6e 64 20 6d 61 6b 65 73  |roid gland makes|
00006210  20 68 6f 72 6d 6f 6e 65  73 20 74 68 61 74 20 63  | hormones that c|
00006220  6f 6e 74 72 6f 6c 20 68  6f 77 20 71 75 69 63 6b  |ontrol how quick|
00006230  6c 79 20 63 65 6c 6c 73  20 75 73 65 20 66 6f 6f  |ly cells use foo|
00006240  64 2e 22 0d 02 46 10 f4  20 74 68 79 72 6f 69 64  |d."..F.. thyroid|
00006250  20 33 37 0d 02 47 5c dc  20 22 54 68 65 20 74 68  | 37..G\. "The th|
00006260  79 72 6f 69 64 20 67 6c  61 6e 64 20 6d 61 6b 65  |yroid gland make|
00006270  73 20 68 6f 72 6d 6f 6e  65 73 20 74 68 61 74 20  |s hormones that |
00006280  63 6f 6e 74 72 6f 6c 20  68 6f 77 20 71 75 69 63  |control how quic|
00006290  6b 6c 79 20 63 65 6c 6c  73 20 75 73 65 20 67 6c  |kly cells use gl|
000062a0  75 63 6f 73 65 20 28 73  75 67 61 72 29 2e 22 0d  |ucose (sugar).".|
000062b0  02 48 1a f4 20 61 64 72  65 6e 61 6c 73 20 33 38  |.H.. adrenals 38|
000062c0  20 28 73 69 6d 70 6c 65  29 0d 02 49 66 dc 20 22  | (simple)..If. "|
000062d0  54 68 65 20 74 77 6f 20  61 64 72 65 6e 61 6c 20  |The two adrenal |
000062e0  67 6c 61 6e 64 73 20 73  69 74 20 6f 6e 20 74 68  |glands sit on th|
000062f0  65 20 6b 69 64 6e 65 79  73 2e 20 54 68 65 79 20  |e kidneys. They |
00006300  6d 61 6b 65 20 68 6f 72  6d 6f 6e 65 73 20 74 68  |make hormones th|
00006310  61 74 20 68 65 6c 70 20  74 68 65 20 62 6f 64 79  |at help the body|
00006320  20 69 6e 20 6d 61 6e 79  20 77 61 79 73 2e 22 0d  | in many ways.".|
00006330  02 4a 11 f4 20 61 64 72  65 6e 61 6c 73 20 33 38  |.J.. adrenals 38|
00006340  0d 02 4b 66 dc 20 22 54  68 65 20 74 77 6f 20 61  |..Kf. "The two a|
00006350  64 72 65 6e 61 6c 20 67  6c 61 6e 64 73 20 73 69  |drenal glands si|
00006360  74 20 6f 6e 20 74 68 65  20 6b 69 64 6e 65 79 73  |t on the kidneys|
00006370  2e 20 54 68 65 79 20 6d  61 6b 65 20 68 6f 72 6d  |. They make horm|
00006380  6f 6e 65 73 20 74 68 61  74 20 68 65 6c 70 20 74  |ones that help t|
00006390  68 65 20 62 6f 64 79 20  69 6e 20 6d 61 6e 79 20  |he body in many |
000063a0  77 61 79 73 2e 22 0d 02  4c 19 f4 20 6f 76 61 72  |ways."..L.. ovar|
000063b0  69 65 73 20 33 39 20 28  73 69 6d 70 6c 65 29 0d  |ies 39 (simple).|
000063c0  02 4d 8d dc 20 22 54 68  65 20 74 77 6f 20 6f 76  |.M.. "The two ov|
000063d0  61 72 69 65 73 20 72 69  70 65 6e 20 6f 6e 65 20  |aries ripen one |
000063e0  65 67 67 20 65 76 65 72  79 20 6d 6f 6e 74 68 2e  |egg every month.|
000063f0  20 54 68 65 20 65 67 67  20 6d 61 79 20 62 65 63  | The egg may bec|
00006400  6f 6d 65 20 61 20 62 61  62 79 2e 20 54 68 65 20  |ome a baby. The |
00006410  6f 76 61 72 69 65 73 20  61 6c 73 6f 20 70 72 6f  |ovaries also pro|
00006420  64 75 63 65 20 68 6f 72  6d 6f 6e 65 73 20 74 68  |duce hormones th|
00006430  61 74 20 65 66 66 65 63  74 20 74 68 65 20 77 6f  |at effect the wo|
00006440  6d 61 6e 27 73 20 62 6f  64 79 2e 22 0d 02 4e 10  |man's body."..N.|
00006450  f4 20 6f 76 61 72 69 65  73 20 33 39 0d 02 4f 9a  |. ovaries 39..O.|
00006460  dc 20 22 54 68 65 20 74  77 6f 20 6f 76 61 72 69  |. "The two ovari|
00006470  65 73 20 6d 61 74 75 72  65 20 61 6e 64 20 72 65  |es mature and re|
00006480  6c 65 61 73 65 20 6f 6e  65 20 65 67 67 20 65 76  |lease one egg ev|
00006490  65 72 79 20 6d 6f 6e 74  68 2e 20 54 68 65 20 65  |ery month. The e|
000064a0  67 67 20 6d 61 79 20 62  65 63 6f 6d 65 20 61 20  |gg may become a |
000064b0  62 61 62 79 2e 20 54 68  65 20 6f 76 61 72 69 65  |baby. The ovarie|
000064c0  73 20 61 6c 73 6f 20 70  72 6f 64 75 63 65 20 68  |s also produce h|
000064d0  6f 72 6d 6f 6e 65 73 20  74 68 61 74 20 65 66 66  |ormones that eff|
000064e0  65 63 74 20 74 68 65 20  77 6f 6d 61 6e 27 73 20  |ect the woman's |
000064f0  62 6f 64 79 2e 22 0d 02  50 18 f4 20 74 65 73 74  |body."..P.. test|
00006500  65 73 20 34 30 20 28 73  69 6d 70 6c 65 29 0d 02  |es 40 (simple)..|
00006510  51 a2 dc 20 22 54 68 65  20 74 77 6f 20 74 65 73  |Q.. "The two tes|
00006520  74 65 73 20 70 72 6f 64  75 63 65 20 6d 69 6c 6c  |tes produce mill|
00006530  69 6f 6e 73 20 6f 66 20  73 70 65 72 6d 20 61 20  |ions of sperm a |
00006540  64 61 79 2e 20 41 20 73  70 65 72 6d 20 6d 61 79  |day. A sperm may|
00006550  20 6a 6f 69 6e 20 77 69  74 68 20 61 6e 20 65 67  | join with an eg|
00006560  67 20 74 6f 20 73 74 61  72 74 20 61 20 62 61 62  |g to start a bab|
00006570  79 2e 20 54 68 65 20 74  65 73 74 65 73 20 61 6c  |y. The testes al|
00006580  73 6f 20 70 72 6f 64 75  63 65 20 68 6f 72 6d 6f  |so produce hormo|
00006590  6e 65 73 20 74 68 61 74  20 65 66 66 65 63 74 20  |nes that effect |
000065a0  74 68 65 20 6d 61 6e 27  73 20 62 6f 64 79 2e 22  |the man's body."|
000065b0  0d 02 52 0f f4 20 74 65  73 74 65 73 20 34 30 0d  |..R.. testes 40.|
000065c0  02 53 a2 dc 20 22 54 68  65 20 74 77 6f 20 74 65  |.S.. "The two te|
000065d0  73 74 65 73 20 70 72 6f  64 75 63 65 20 6d 69 6c  |stes produce mil|
000065e0  6c 69 6f 6e 73 20 6f 66  20 73 70 65 72 6d 20 61  |lions of sperm a|
000065f0  20 64 61 79 2e 20 41 20  73 70 65 72 6d 20 6d 61  | day. A sperm ma|
00006600  79 20 6a 6f 69 6e 20 77  69 74 68 20 61 6e 20 65  |y join with an e|
00006610  67 67 20 74 6f 20 73 74  61 72 74 20 61 20 62 61  |gg to start a ba|
00006620  62 79 2e 20 54 68 65 20  74 65 73 74 65 73 20 61  |by. The testes a|
00006630  6c 73 6f 20 70 72 6f 64  75 63 65 20 68 6f 72 6d  |lso produce horm|
00006640  6f 6e 65 73 20 74 68 61  74 20 65 66 66 65 63 74  |ones that effect|
00006650  20 74 68 65 20 6d 61 6e  27 73 20 62 6f 64 79 2e  | the man's body.|
00006660  22 0d 02 54 1e f4 20 70  69 6e 65 61 6c 20 67 6c  |"..T.. pineal gl|
00006670  61 6e 64 20 34 31 20 28  73 69 6d 70 6c 65 29 0d  |and 41 (simple).|
00006680  02 55 59 dc 20 22 54 68  65 20 70 69 6e 65 61 6c  |.UY. "The pineal|
00006690  20 67 6c 61 6e 64 20 6d  61 6b 65 73 20 68 6f 72  | gland makes hor|
000066a0  6d 6f 6e 65 73 2e 20 54  68 65 20 65 66 66 65 63  |mones. The effec|
000066b0  74 73 20 6f 66 20 74 68  65 20 68 6f 72 6d 6f 6e  |ts of the hormon|
000066c0  65 73 20 61 72 65 20 6e  6f 74 20 66 75 6c 6c 79  |es are not fully|
000066d0  20 63 6c 65 61 72 2e 22  0d 02 56 15 f4 20 70 69  | clear."..V.. pi|
000066e0  6e 65 61 6c 20 67 6c 61  6e 64 20 34 31 0d 02 57  |neal gland 41..W|
000066f0  5e dc 20 22 54 68 65 20  70 69 6e 65 61 6c 20 67  |^. "The pineal g|
00006700  6c 61 6e 64 20 6d 61 6b  65 73 20 68 6f 72 6d 6f  |land makes hormo|
00006710  6e 65 73 2e 20 54 68 65  20 65 66 66 65 63 74 73  |nes. The effects|
00006720  20 6f 66 20 74 68 65 20  68 6f 72 6d 6f 6e 65 73  | of the hormones|
00006730  20 61 72 65 20 6e 6f 74  20 66 75 6c 6c 79 20 75  | are not fully u|
00006740  6e 64 65 72 73 74 6f 6f  64 2e 22 0d 02 58 17 f4  |nderstood."..X..|
00006750  20 73 6b 75 6c 6c 20 34  32 20 28 73 69 6d 70 6c  | skull 42 (simpl|
00006760  65 29 0d 02 59 8c dc 20  22 54 68 65 20 32 38 20  |e)..Y.. "The 28 |
00006770  62 6f 6e 65 73 20 6f 66  20 74 68 65 20 68 65 61  |bones of the hea|
00006780  64 20 61 72 65 20 6a 6f  69 6e 65 64 20 74 6f 67  |d are joined tog|
00006790  65 74 68 65 72 20 74 6f  20 6d 61 6b 65 20 74 68  |ether to make th|
000067a0  65 20 73 6b 75 6c 6c 2e  20 54 68 65 20 32 20 6d  |e skull. The 2 m|
000067b0  61 69 6e 20 70 61 72 74  73 20 61 72 65 20 74 68  |ain parts are th|
000067c0  65 20 66 61 63 65 20 61  6e 64 20 74 68 65 20 63  |e face and the c|
000067d0  72 61 6e 69 75 6d 20 77  68 69 63 68 20 68 6f 6c  |ranium which hol|
000067e0  64 73 20 74 68 65 20 62  72 61 69 6e 2e 22 0d 02  |ds the brain."..|
000067f0  5a 0e f4 20 73 6b 75 6c  6c 20 34 32 0d 02 5b 9c  |Z.. skull 42..[.|
00006800  dc 20 22 54 68 65 20 32  38 20 62 6f 6e 65 73 20  |. "The 28 bones |
00006810  6f 66 20 74 68 65 20 68  65 61 64 20 61 72 65 20  |of the head are |
00006820  6a 6f 69 6e 65 64 20 74  6f 67 65 74 68 65 72 20  |joined together |
00006830  74 6f 20 66 6f 72 6d 20  74 68 65 20 73 6b 75 6c  |to form the skul|
00006840  6c 2e 20 54 68 65 20 32  20 6d 61 69 6e 20 70 61  |l. The 2 main pa|
00006850  72 74 73 20 61 72 65 20  74 68 65 20 66 61 63 65  |rts are the face|
00006860  20 61 6e 64 20 74 68 65  20 63 72 61 6e 69 75 6d  | and the cranium|
00006870  20 77 68 69 63 68 20 63  6f 6e 74 61 69 6e 73 20  | which contains |
00006880  61 6e 64 20 70 72 6f 74  65 63 74 73 20 74 68 65  |and protects the|
00006890  20 62 72 61 69 6e 2e 22  0d 02 5c 1a f4 20 70 61  | brain."..\.. pa|
000068a0  6e 63 72 65 61 73 20 34  33 20 28 73 69 6d 70 6c  |ncreas 43 (simpl|
000068b0  65 29 0d 02 5d 68 dc 20  22 54 68 65 20 70 61 6e  |e)..]h. "The pan|
000068c0  63 72 65 61 73 20 6d 61  6b 65 73 20 61 20 73 70  |creas makes a sp|
000068d0  65 63 69 61 6c 20 6a 75  69 63 65 20 74 6f 20 64  |ecial juice to d|
000068e0  69 67 65 73 74 20 66 6f  6f 64 20 28 73 65 65 20  |igest food (see |
000068f0  6c 69 76 65 72 29 2e 20  54 68 65 20 70 61 6e 63  |liver). The panc|
00006900  72 65 61 73 20 61 6c 73  6f 20 6d 61 6b 65 73 20  |reas also makes |
00006910  68 6f 72 6d 6f 6e 65 73  2e 22 0d 02 5e 11 f4 20  |hormones."..^.. |
00006920  70 61 6e 63 72 65 61 73  20 34 33 0d 02 5f af dc  |pancreas 43.._..|
00006930  20 22 54 68 65 20 70 61  6e 63 72 65 61 73 20 6d  | "The pancreas m|
00006940  61 6b 65 73 20 65 6e 7a  79 6d 65 73 20 74 68 61  |akes enzymes tha|
00006950  74 20 64 69 67 65 73 74  20 66 6f 6f 64 20 28 73  |t digest food (s|
00006960  65 65 20 6c 69 76 65 72  29 2e 20 54 68 65 20 70  |ee liver). The p|
00006970  61 6e 63 72 65 61 73 20  61 6c 73 6f 20 6d 61 6b  |ancreas also mak|
00006980  65 73 20 68 6f 72 6d 6f  6e 65 73 20 74 68 61 74  |es hormones that|
00006990  20 63 6f 6e 74 72 6f 6c  20 68 6f 77 20 6d 75 63  | control how muc|
000069a0  68 20 67 6c 75 63 6f 73  65 20 28 73 75 67 61 72  |h glucose (sugar|
000069b0  29 20 69 73 20 69 6e 20  74 68 65 20 62 6c 6f 6f  |) is in the bloo|
000069c0  64 20 66 65 65 64 69 6e  67 20 74 68 65 20 62 6f  |d feeding the bo|
000069d0  64 79 20 63 65 6c 6c 73  2e 22 0d 02 60 2f e3 73  |dy cells."..`/.s|
000069e0  25 3d 30 b8 31 38 3a e3  72 25 3d 30 b8 31 3a f3  |%=0.18:.r%=0.1:.|
000069f0  20 6f 72 67 6a 75 73 74  77 6f 72 64 73 24 28 73  | orgjustwords$(s|
00006a00  25 2c 72 25 29 3a ed 3a  ed 0d 02 61 08 f7 20 2b  |%,r%):.:...a.. +|
00006a10  30 0d 02 62 2f dc 20 30  2c 32 2c 33 2c 35 2c 36  |0..b/. 0,2,3,5,6|
00006a20  2c 39 2c 31 30 2c 31 31  2c 31 32 2c 31 33 2c 31  |,9,10,11,12,13,1|
00006a30  34 2c 31 35 2c 31 36 2c  31 37 2c 31 38 2c 32 31  |4,15,16,17,18,21|
00006a40  0d 02 63 2f e3 73 25 3d  30 b8 37 3a e3 74 25 3d  |..c/.s%=0.7:.t%=|
00006a50  30 b8 31 3a f3 20 73 79  73 74 6c 69 6e 6b 77 6f  |0.1:. systlinkwo|
00006a60  72 64 73 25 28 73 25 2c  74 25 29 3a ed 3a ed 0d  |rds%(s%,t%):.:..|
00006a70  02 64 08 f7 20 2b 30 0d  02 65 22 dc 20 22 32 33  |.d.. +0..e". "23|
00006a80  2c 4d 75 73 63 75 6c 6f  2d 73 6b 65 6c 65 74 61  |,Musculo-skeleta|
00006a90  6c 20 73 79 73 74 65 6d  22 0d 02 66 21 dc 20 22  |l system"..f!. "|
00006aa0  32 32 2c 4e 65 72 76 6f  75 73 2f 73 65 6e 73 6f  |22,Nervous/senso|
00006ab0  72 79 20 73 79 73 74 65  6d 22 0d 02 67 29 dc 20  |ry system"..g). |
00006ac0  22 33 30 2c 43 69 72 63  75 6c 61 74 6f 72 79 20  |"30,Circulatory |
00006ad0  26 20 4c 79 6d 70 68 61  74 69 63 20 73 79 73 74  |& Lymphatic syst|
00006ae0  65 6d 22 0d 02 68 1d dc  20 22 31 38 2c 52 65 73  |em"..h.. "18,Res|
00006af0  70 69 72 61 74 6f 72 79  20 73 79 73 74 65 6d 22  |piratory system"|
00006b00  0d 02 69 1b dc 20 22 31  36 2c 44 69 67 65 73 74  |..i.. "16,Digest|
00006b10  69 76 65 20 73 79 73 74  65 6d 22 0d 02 6a 19 dc  |ive system"..j..|
00006b20  20 22 31 34 2c 55 72 69  6e 61 72 79 20 73 79 73  | "14,Urinary sys|
00006b30  74 65 6d 22 0d 02 6b 1e  dc 20 22 31 39 2c 52 65  |tem"..k.. "19,Re|
00006b40  70 72 6f 64 75 63 74 69  76 65 20 73 79 73 74 65  |productive syste|
00006b50  6d 22 0d 02 6c 1b dc 20  22 31 36 2c 45 6e 64 6f  |m"..l.. "16,Endo|
00006b60  63 72 69 6e 65 20 73 79  73 74 65 6d 22 0d 02 6d  |crine system"..m|
00006b70  1c e3 73 25 3d 30 b8 37  3a f3 20 73 79 73 74 74  |..s%=0.7:. systt|
00006b80  69 74 24 28 73 25 29 3a  ed 0d 02 6e 08 f7 20 2b  |it$(s%):...n.. +|
00006b90  30 0d 02 6f 38 dc 20 35  2c 31 30 32 2c 31 34 30  |0..o8. 5,102,140|
00006ba0  34 2c 35 2c 38 34 2c 31  33 34 38 2c 33 2c 38 36  |4,5,84,1348,3,86|
00006bb0  2c 31 33 34 38 2c 39 2c  34 38 2c 31 32 39 32 2c  |,1348,9,48,1292,|
00006bc0  31 33 2c 38 2c 31 32 33  36 0d 02 70 39 dc 20 31  |13,8,1236..p9. 1|
00006bd0  33 2c 32 32 2c 31 32 33  36 2c 32 30 2c 38 2c 31  |3,22,1236,20,8,1|
00006be0  31 32 30 2c 35 2c 35 32  2c 31 31 31 36 2c 34 2c  |120,5,52,1116,4,|
00006bf0  34 32 2c 31 31 32 30 2c  36 2c 34 36 34 2c 31 30  |42,1120,6,464,10|
00006c00  33 32 0d 02 71 36 dc 20  35 2c 31 36 2c 39 35 32  |32..q6. 5,16,952|
00006c10  2c 35 2c 32 36 2c 31 30  31 32 2c 37 2c 32 36 2c  |,5,26,1012,7,26,|
00006c20  31 30 36 30 2c 31 37 2c  38 2c 38 34 34 2c 31 33  |1060,17,8,844,13|
00006c30  2c 33 37 30 2c 35 36 38  0d 02 72 36 dc 20 31 37  |,370,568..r6. 17|
00006c40  2c 36 2c 37 33 32 2c 31  31 2c 36 2c 36 38 30 2c  |,6,732,11,6,680,|
00006c50  31 35 2c 31 34 2c 36 38  30 2c 31 35 2c 33 34 30  |15,14,680,15,340|
00006c60  2c 36 32 30 2c 31 36 2c  32 32 2c 35 39 32 0d 02  |,620,16,22,592..|
00006c70  73 3b dc 20 31 34 2c 34  30 2c 35 39 32 2c 33 2c  |s;. 14,40,592,3,|
00006c80  35 30 34 2c 31 33 32 30  2c 36 2c 34 36 38 2c 31  |504,1320,6,468,1|
00006c90  32 34 34 2c 36 2c 34 35  36 2c 31 32 34 34 2c 31  |244,6,456,1244,1|
00006ca0  39 2c 31 36 2c 31 31 31  36 0d 02 74 3c dc 20 38  |9,16,1116..t<. 8|
00006cb0  2c 34 35 32 2c 31 30 32  38 2c 38 2c 34 35 34 2c  |,452,1028,8,454,|
00006cc0  37 36 30 2c 31 32 2c 33  39 38 2c 38 32 38 2c 31  |760,12,398,828,1|
00006cd0  32 2c 33 39 38 2c 31 30  38 38 2c 38 2c 34 36 34  |2,398,1088,8,464|
00006ce0  2c 31 31 34 34 0d 02 75  3b dc 20 38 2c 34 36 34  |,1144..u;. 8,464|
00006cf0  2c 31 30 30 38 2c 38 2c  38 36 2c 31 32 33 32 2c  |,1008,8,86,1232,|
00006d00  31 32 2c 34 32 2c 31 32  38 38 2c 31 32 2c 34 30  |12,42,1288,12,40|
00006d10  30 2c 31 31 34 34 2c 31  32 2c 32 34 2c 37 38 34  |0,1144,12,24,784|
00006d20  0d 02 76 3a dc 20 38 2c  34 35 36 2c 37 30 34 2c  |..v:. 8,456,704,|
00006d30  38 2c 34 35 36 2c 37 30  34 2c 38 2c 34 32 32 2c  |8,456,704,8,422,|
00006d40  31 32 34 30 2c 31 34 2c  33 37 30 2c 31 30 32 38  |1240,14,370,1028|
00006d50  2c 38 2c 34 34 38 2c 36  38 34 0d 02 77 30 dc 20  |,8,448,684..w0. |
00006d60  38 2c 34 34 38 2c 36 38  34 2c 31 32 2c 33 39 38  |8,448,684,12,398|
00006d70  2c 31 33 39 32 2c 38 2c  34 36 32 2c 31 33 38 34  |,1392,8,462,1384|
00006d80  2c 38 2c 34 36 34 2c 39  31 36 0d 02 78 2a e3 73  |,8,464,916..x*.s|
00006d90  25 3d 30 b8 34 33 3a e3  72 25 3d 30 b8 32 3a f3  |%=0.43:.r%=0.2:.|
00006da0  20 62 6f 64 79 62 6f 78  25 28 73 25 2c 72 25 29  | bodybox%(s%,r%)|
00006db0  3a ed 3a ed 0d 02 79 08  f7 20 2b 30 0d 02 7a f9  |:.:...y.. +0..z.|
00006dc0  dc 20 62 72 61 69 6e 2c  6d 6f 75 74 68 2c 65 79  |. brain,mouth,ey|
00006dd0  65 2c 70 69 74 75 69 74  61 72 79 2c 22 6e 6f 73  |e,pituitary,"nos|
00006de0  65 20 26 20 74 6f 6e 67  75 65 22 2c 22 61 72 74  |e & tongue","art|
00006df0  65 72 79 20 26 20 76 65  69 6e 22 2c 22 74 6f 75  |ery & vein","tou|
00006e00  63 68 20 73 65 6e 73 6f  72 73 20 28 73 6b 69 6e  |ch sensors (skin|
00006e10  29 22 2c 68 65 61 72 74  2c 62 6f 6e 65 2c 6b 69  |)",heart,bone,ki|
00006e20  64 6e 65 79 2c 6c 69 76  65 72 2c 6a 6f 69 6e 74  |dney,liver,joint|
00006e30  2c 73 74 6f 6d 61 63 68  2c 22 6c 75 6e 67 73 20  |,stomach,"lungs |
00006e40  26 20 64 69 61 70 68 72  61 67 6d 22 2c 22 6d 61  |& diaphragm","ma|
00006e50  6b 69 6e 67 20 61 20 62  61 62 79 22 2c 22 62 6c  |king a baby","bl|
00006e60  61 64 64 65 72 20 26 20  75 72 65 74 68 72 61 22  |adder & urethra"|
00006e70  2c 22 6c 79 6d 70 68 20  6e 6f 64 65 73 22 2c 22  |,"lymph nodes","|
00006e80  73 6d 61 6c 6c 20 69 6e  74 65 73 74 69 6e 65 22  |small intestine"|
00006e90  2c 22 6c 61 72 67 65 20  69 6e 74 65 73 74 69 6e  |,"large intestin|
00006ea0  65 22 2c 22 6f 76 61 72  69 65 73 20 26 20 75 74  |e","ovaries & ut|
00006eb0  65 72 75 73 22 0d 02 7b  f4 dc 20 22 70 65 6e 69  |erus"..{.. "peni|
00006ec0  73 20 26 20 74 65 73 74  65 73 22 2c 65 61 72 2c  |s & testes",ear,|
00006ed0  6d 75 73 63 6c 65 2c 6e  65 72 76 65 73 2c 22 73  |muscle,nerves,"s|
00006ee0  77 65 61 74 20 67 6c 61  6e 64 73 20 28 73 6b 69  |weat glands (ski|
00006ef0  6e 29 22 2c 73 70 69 6e  65 2c 70 65 6c 76 69 73  |n)",spine,pelvis|
00006f00  2c 6c 69 67 61 6d 65 6e  74 73 2c 22 73 70 69 6e  |,ligaments,"spin|
00006f10  61 6c 20 63 6f 72 64 22  2c 74 68 79 6d 75 73 2c  |al cord",thymus,|
00006f20  73 70 6c 65 65 6e 2c 74  72 61 63 68 65 61 2c 65  |spleen,trachea,e|
00006f30  70 69 67 6c 6f 74 74 69  73 2c 6f 65 73 6f 70 68  |piglottis,oesoph|
00006f40  61 67 75 73 2c 22 67 61  6c 6c 20 62 6c 61 64 64  |agus,"gall bladd|
00006f50  65 72 22 2c 70 72 6f 73  74 61 74 65 2c 76 61 67  |er",prostate,vag|
00006f60  69 6e 61 2c 74 68 79 72  6f 69 64 2c 22 61 64 72  |ina,thyroid,"adr|
00006f70  65 6e 61 6c 20 67 6c 61  6e 64 73 22 2c 6f 76 61  |enal glands",ova|
00006f80  72 69 65 73 2c 74 65 73  74 65 73 2c 22 70 69 6e  |ries,testes,"pin|
00006f90  65 61 6c 20 67 6c 61 6e  64 22 2c 73 6b 75 6c 6c  |eal gland",skull|
00006fa0  2c 70 61 6e 63 72 65 61  73 0d 02 7c 20 e3 73 25  |,pancreas..| .s%|
00006fb0  3d 30 b8 34 33 3a f3 20  62 6f 64 79 62 6f 78 6c  |=0.43:. bodyboxl|
00006fc0  61 62 24 28 73 25 29 3a  ed 0d 02 7d 08 f7 20 2b  |ab$(s%):...}.. +|
00006fd0  30 0d 02 7e 9a dc 20 33  30 2c 35 34 30 2c 32 37  |0..~.. 30,540,27|
00006fe0  38 2c 35 34 30 2c 35 32  36 2c 35 34 30 2c 33 30  |8,540,526,540,30|
00006ff0  2c 34 36 38 2c 32 37 38  2c 34 36 38 2c 35 32 36  |,468,278,468,526|
00007000  2c 34 36 38 2c 33 30 2c  33 39 36 2c 35 32 36 2c  |,468,30,396,526,|
00007010  33 39 36 2c 33 30 2c 33  32 34 2c 35 32 36 2c 33  |396,30,324,526,3|
00007020  32 34 2c 33 30 2c 32 35  32 2c 35 32 36 2c 32 35  |24,30,252,526,25|
00007030  32 2c 33 30 2c 31 37 36  2c 35 32 36 2c 31 37 36  |2,30,176,526,176|
00007040  2c 33 30 2c 31 30 30 2c  32 37 38 2c 31 30 30 2c  |,30,100,278,100,|
00007050  35 32 36 2c 31 30 30 2c  33 30 2c 32 34 2c 32 37  |526,100,30,24,27|
00007060  38 2c 32 34 2c 35 32 36  2c 32 34 0d 02 7f b7 dc  |8,24,526,24.....|
00007070  20 37 34 2c 35 34 30 2c  33 32 34 2c 35 34 30 2c  | 74,540,324,540,|
00007080  35 37 34 2c 35 34 30 2c  37 38 2c 34 36 38 2c 33  |574,540,78,468,3|
00007090  32 34 2c 34 36 38 2c 35  38 32 2c 34 36 38 2c 35  |24,468,582,468,5|
000070a0  32 2c 33 39 36 2c 35 39  32 2c 33 39 36 2c 33 36  |2,396,592,396,36|
000070b0  2c 33 32 34 2c 36 32 30  2c 33 32 34 2c 33 36 2c  |,324,620,324,36,|
000070c0  32 35 32 2c 36 32 30 2c  32 35 32 2c 35 32 2c 31  |252,620,252,52,1|
000070d0  37 36 2c 35 39 36 2c 31  37 36 2c 36 36 2c 31 30  |76,596,176,66,10|
000070e0  30 2c 33 32 34 2c 31 30  30 2c 35 39 32 2c 31 30  |0,324,100,592,10|
000070f0  30 2c 32 38 2c 33 32 34  2c 33 32 34 2c 32 34 2c  |0,28,324,324,24,|
00007100  35 36 38 2c 32 34 2c 33  30 2c 35 35 32 2c 33 39  |568,24,30,552,39|
00007110  34 2c 35 35 32 2c 33 30  2c 31 36 2c 33 39 34 2c  |4,552,30,16,394,|
00007120  31 36 0d 02 80 2a e3 73  25 3d 30 b8 34 33 3a e3  |16...*.s%=0.43:.|
00007130  72 25 3d 30 b8 31 3a f3  20 61 6e 69 6d 62 6f 78  |r%=0.1:. animbox|
00007140  25 28 73 25 2c 72 25 29  3a ed 3a ed 0d 02 81 08  |%(s%,r%):.:.....|
00007150  f7 20 2b 30 0d 02 82 27  dc 20 34 39 36 2c 32 33  |. +0...'. 496,23|
00007160  32 2c 35 36 36 2c 32 39  38 2c 31 32 20 3a 52 45  |2,566,298,12 :RE|
00007170  4d 20 6d 6f 75 74 68 20  28 31 29 0d 02 83 2b dc  |M mouth (1)...+.|
00007180  20 32 34 30 2c 31 38 38  2c 33 35 38 2c 32 39 30  | 240,188,358,290|
00007190  2c 31 30 20 3a 52 45 4d  20 70 69 74 75 69 74 61  |,10 :REM pituita|
000071a0  72 79 20 28 33 29 0d 02  84 2c dc 20 32 35 36 2c  |ry (3)...,. 256,|
000071b0  34 32 38 2c 33 36 36 2c  35 32 32 2c 38 20 20 3a  |428,366,522,8  :|
000071c0  52 45 4d 20 6e 6f 73 65  74 6f 6e 67 75 65 20 28  |REM nosetongue (|
000071d0  34 29 0d 02 85 2c dc 20  33 35 32 2c 32 34 34 2c  |4)...,. 352,244,|
000071e0  33 39 38 2c 32 39 30 2c  31 34 20 3a 52 45 4d 20  |398,290,14 :REM |
000071f0  73 6b 69 6e 20 74 6f 75  63 68 20 28 36 29 0d 02  |skin touch (6)..|
00007200  86 26 dc 20 34 32 38 2c  33 31 32 2c 35 30 32 2c  |.&. 428,312,502,|
00007210  33 37 34 2c 31 34 20 3a  52 45 4d 20 62 6f 6e 65  |374,14 :REM bone|
00007220  20 28 38 29 0d 02 87 28  dc 20 33 35 32 2c 34 36  | (8)...(. 352,46|
00007230  34 2c 33 38 32 2c 35 39  30 2c 38 20 20 3a 52 45  |4,382,590,8  :RE|
00007240  4d 20 6b 69 64 6e 65 79  20 28 39 29 0d 02 88 28  |M kidney (9)...(|
00007250  dc 20 34 37 32 2c 33 37  36 2c 35 30 36 2c 34 31  |. 472,376,506,41|
00007260  30 2c 31 34 20 3a 52 45  4d 20 6c 75 6e 67 73 20  |0,14 :REM lungs |
00007270  28 31 33 29 0d 02 89 2b  dc 20 32 38 38 2c 32 30  |(13)...+. 288,20|
00007280  30 2c 34 34 32 2c 33 33  30 2c 38 20 3a 52 45 4d  |0,442,330,8 :REM|
00007290  20 6d 61 6b 65 20 62 61  62 79 20 28 31 34 29 0d  | make baby (14).|
000072a0  02 8a 32 dc 20 33 31 32  2c 31 34 30 2c 33 36 32  |..2. 312,140,362|
000072b0  2c 31 37 38 2c 31 34 20  3a 52 45 4d 20 73 6d 61  |,178,14 :REM sma|
000072c0  6c 6c 20 69 6e 74 65 73  74 69 6e 65 20 28 31 37  |ll intestine (17|
000072d0  29 0d 02 8b 29 dc 20 37  32 2c 34 37 32 2c 32 30  |)...). 72,472,20|
000072e0  32 2c 35 36 32 2c 36 20  20 20 3a 52 45 4d 20 66  |2,562,6   :REM f|
000072f0  65 6d 61 6c 65 20 28 31  39 29 0d 02 8c 28 dc 20  |emale (19)...(. |
00007300  33 38 38 2c 31 31 36 2c  34 31 38 2c 31 34 36 2c  |388,116,418,146,|
00007310  31 30 20 20 3a 52 45 4d  20 6d 61 6c 65 20 28 32  |10  :REM male (2|
00007320  30 29 0d 02 8d 26 dc 20  33 30 34 2c 31 35 32 2c  |0)...&. 304,152,|
00007330  36 39 34 2c 34 37 30 2c  36 20 20 3a 52 45 4d 20  |694,470,6  :REM |
00007340  65 61 72 20 28 32 31 29  0d 02 8e 23 e3 72 25 3d  |ear (21)...#.r%=|
00007350  30 b8 34 3a f3 20 63 6c  6f 73 65 72 63 6f 6f 72  |0.4:. closercoor|
00007360  64 73 25 28 31 2c 72 25  29 3a ed 0d 02 8f 2e e3  |ds%(1,r%):......|
00007370  73 25 3d 33 b8 34 3a e3  72 25 3d 30 b8 34 3a f3  |s%=3.4:.r%=0.4:.|
00007380  20 63 6c 6f 73 65 72 63  6f 6f 72 64 73 25 28 73  | closercoords%(s|
00007390  25 2c 72 25 29 3a ed 3a  ed 0d 02 90 23 e3 72 25  |%,r%):.:....#.r%|
000073a0  3d 30 b8 34 3a f3 20 63  6c 6f 73 65 72 63 6f 6f  |=0.4:. closercoo|
000073b0  72 64 73 25 28 36 2c 72  25 29 3a ed 0d 02 91 2e  |rds%(6,r%):.....|
000073c0  e3 73 25 3d 38 b8 39 3a  e3 72 25 3d 30 b8 34 3a  |.s%=8.9:.r%=0.4:|
000073d0  f3 20 63 6c 6f 73 65 72  63 6f 6f 72 64 73 25 28  |. closercoords%(|
000073e0  73 25 2c 72 25 29 3a ed  3a ed 0d 02 92 30 e3 73  |s%,r%):.:....0.s|
000073f0  25 3d 31 33 b8 31 34 3a  e3 72 25 3d 30 b8 34 3a  |%=13.14:.r%=0.4:|
00007400  f3 20 63 6c 6f 73 65 72  63 6f 6f 72 64 73 25 28  |. closercoords%(|
00007410  73 25 2c 72 25 29 3a ed  3a ed 0d 02 93 24 e3 72  |s%,r%):.:....$.r|
00007420  25 3d 30 b8 34 3a f3 20  63 6c 6f 73 65 72 63 6f  |%=0.4:. closerco|
00007430  6f 72 64 73 25 28 31 37  2c 72 25 29 3a ed 0d 02  |ords%(17,r%):...|
00007440  94 30 e3 73 25 3d 31 39  b8 32 31 3a e3 72 25 3d  |.0.s%=19.21:.r%=|
00007450  30 b8 34 3a f3 20 63 6c  6f 73 65 72 63 6f 6f 72  |0.4:. closercoor|
00007460  64 73 25 28 73 25 2c 72  25 29 3a ed 3a ed 0d 02  |ds%(s%,r%):.:...|
00007470  95 04 0d 02 96 08 f7 20  2b 30 0d 02 97 ae dc 20  |....... +0..... |
00007480  35 32 2c 34 38 38 2c 34  38 2c 34 32 34 2c 36 32  |52,488,48,424,62|
00007490  2c 34 38 38 2c 35 38 2c  34 32 34 2c 37 32 2c 34  |,488,58,424,72,4|
000074a0  38 38 2c 36 38 2c 34 32  34 2c 31 30 32 2c 34 38  |88,68,424,102,48|
000074b0  38 2c 39 38 2c 34 32 34  2c 31 31 32 2c 34 39 32  |8,98,424,112,492|
000074c0  2c 31 30 38 2c 34 32 38  2c 31 32 32 2c 34 39 32  |,108,428,122,492|
000074d0  2c 31 31 38 2c 34 32 38  2c 31 35 32 2c 34 39 36  |,118,428,152,496|
000074e0  2c 31 34 38 2c 34 33 32  2c 31 36 32 2c 35 30 30  |,148,432,162,500|
000074f0  2c 31 36 38 2c 34 33 32  2c 31 37 32 2c 35 30 34  |,168,432,172,504|
00007500  2c 31 37 38 2c 34 33 36  2c 32 30 32 2c 35 31 32  |,178,436,202,512|
00007510  2c 32 30 36 2c 35 30 30  2c 32 30 38 2c 35 32 30  |,206,500,208,520|
00007520  2c 32 31 32 2c 35 31 32  0d 02 98 28 e3 73 25 3d  |,212,512...(.s%=|
00007530  30 b8 31 30 3a e3 72 25  3d 30 b8 33 3a f3 20 63  |0.10:.r%=0.3:. c|
00007540  61 6e 61 6c 25 28 73 25  2c 72 25 29 3a ed 3a ed  |anal%(s%,r%):.:.|
00007550  0d 02 99 08 f7 20 2b 30  0d 02 9a c5 dc 20 33 35  |..... +0..... 35|
00007560  34 2c 34 33 32 2c 33 33  34 2c 33 38 34 2c 33 36  |4,432,334,384,36|
00007570  34 2c 34 33 36 2c 33 32  30 2c 33 36 34 2c 33 37  |4,436,320,364,37|
00007580  30 2c 34 34 30 2c 33 31  38 2c 33 36 30 2c 33 38  |0,440,318,360,38|
00007590  38 2c 34 35 32 2c 33 30  38 2c 33 33 32 2c 33 39  |8,452,308,332,39|
000075a0  34 2c 34 35 36 2c 33 30  38 2c 33 33 32 2c 34 30  |4,456,308,332,40|
000075b0  32 2c 34 36 30 2c 33 30  38 2c 33 32 34 2c 34 31  |2,460,308,324,41|
000075c0  38 2c 34 37 32 2c 34 33  32 2c 34 32 38 2c 34 32  |8,472,432,428,42|
000075d0  36 2c 34 37 36 2c 34 34  30 2c 34 34 30 2c 34 33  |6,476,440,440,43|
000075e0  32 2c 34 38 30 2c 34 34  36 2c 34 34 38 2c 34 34  |2,480,446,448,44|
000075f0  38 2c 34 39 32 2c 34 36  32 2c 34 36 34 2c 34 35  |8,492,462,464,45|
00007600  34 2c 35 30 30 2c 34 37  30 2c 34 36 38 2c 34 36  |4,500,470,468,46|
00007610  30 2c 35 30 34 2c 34 37  38 2c 34 37 36 0d 02 9b  |0,504,478,476...|
00007620  65 dc 20 34 37 38 2c 35  31 36 2c 34 38 38 2c 34  |e. 478,516,488,4|
00007630  39 36 2c 34 38 36 2c 35  32 30 2c 35 30 30 2c 35  |96,486,520,500,5|
00007640  30 38 2c 34 39 34 2c 35  32 38 2c 35 30 32 2c 35  |08,494,528,502,5|
00007650  31 32 2c 35 31 36 2c 35  33 36 2c 35 32 32 2c 35  |12,516,536,522,5|
00007660  32 30 2c 35 33 32 2c 35  34 30 2c 35 33 38 2c 35  |20,532,540,538,5|
00007670  33 32 2c 35 34 38 2c 35  34 34 2c 35 35 30 2c 35  |32,548,544,550,5|
00007680  34 30 0d 02 9c 2a e3 73  25 3d 30 b8 31 37 3a e3  |40...*.s%=0.17:.|
00007690  72 25 3d 30 b8 33 3a f3  20 63 6f 63 68 6c 65 61  |r%=0.3:. cochlea|
000076a0  25 28 73 25 2c 72 25 29  3a ed 3a ed 0d 02 9d 08  |%(s%,r%):.:.....|
000076b0  f7 20 2b 30 0d 02 9e 1b  dc 20 31 35 33 2c 31 30  |. +0..... 153,10|
000076c0  33 2c 31 33 32 2c 38 38  2c 31 34 35 2c 39 31 0d  |3,132,88,145,91.|
000076d0  02 9f 27 e3 73 25 3d 30  b8 32 3a e3 72 25 3d 30  |..'.s%=0.2:.r%=0|
000076e0  b8 31 3a f3 20 73 70 61  72 6b 25 28 73 25 2c 72  |.1:. spark%(s%,r|
000076f0  25 29 3a ed 3a ed 0d 02  a0 08 f7 20 2b 30 0d 02  |%):.:...... +0..|
00007700  a1 75 dc 20 32 2c 35 32  2c 31 30 2c 35 35 2c 31  |.u. 2,52,10,55,1|
00007710  39 2c 35 37 2c 32 37 2c  35 39 2c 33 36 2c 36 32  |9,57,27,59,36,62|
00007720  2c 34 34 2c 36 34 2c 35  32 2c 36 37 2c 35 39 2c  |,44,64,52,67,59,|
00007730  37 30 2c 36 38 2c 37 33  2c 37 35 2c 37 35 2c 38  |70,68,73,75,75,8|
00007740  34 2c 37 35 2c 38 39 2c  37 33 2c 39 35 2c 37 31  |4,75,89,73,95,71|
00007750  2c 31 30 31 2c 36 39 2c  31 30 37 2c 36 37 2c 31  |,101,69,107,67,1|
00007760  31 33 2c 36 35 2c 31 31  39 2c 36 33 2c 31 32 36  |13,65,119,63,126|
00007770  2c 36 32 0d 02 a2 2a e3  73 25 3d 30 b8 31 37 3a  |,62...*.s%=0.17:|
00007780  e3 72 25 3d 30 b8 31 3a  f3 20 63 61 6e 64 70 6f  |.r%=0.1:. candpo|
00007790  73 25 28 73 25 2c 72 25  29 3a ed 3a ed 0d 02 a3  |s%(s%,r%):.:....|
000077a0  08 f7 20 2b 30 0d 02 a4  40 dc 20 2d 37 32 2c 33  |.. +0...@. -72,3|
000077b0  38 34 2c 34 2c 33 32 34  2c 38 30 2c 32 36 34 2c  |84,4,324,80,264,|
000077c0  31 35 36 2c 32 30 34 2c  32 33 32 2c 31 34 34 2c  |156,204,232,144,|
000077d0  33 30 38 2c 38 34 2c 33  38 34 2c 32 34 2c 34 36  |308,84,384,24,46|
000077e0  30 2c 2d 33 36 0d 02 a5  23 dc 20 34 37 36 2c 33  |0,-36...#. 476,3|
000077f0  39 32 2c 37 32 2c 2d 31  36 2c 34 34 2c 33 31 32  |92,72,-16,44,312|
00007800  2c 35 32 38 2c 2d 36 30  0d 02 a6 ac dc 20 36 34  |,528,-60..... 64|
00007810  38 2c 34 30 34 2c 37 32  34 2c 33 34 34 2c 33 39  |8,404,724,344,39|
00007820  32 2c 35 39 36 2c 32 34  34 2c 2d 34 2c 33 32 30  |2,596,244,-4,320|
00007830  2c 2d 36 34 2c 2d 34 30  2c 35 31 36 2c 32 31 36  |,-64,-40,516,216|
00007840  2c 33 32 34 2c 32 39 32  2c 32 36 34 2c 33 36 38  |,324,292,264,368|
00007850  2c 32 30 34 2c 34 34 34  2c 31 34 34 2c 37 30 30  |,204,444,144,700|
00007860  2c 2d 34 38 2c 2d 31 32  2c 31 38 38 2c 2d 38 38  |,-48,-12,188,-88|
00007870  2c 32 34 38 2c 31 39 32  2c 35 34 34 2c 32 36 38  |,248,192,544,268|
00007880  2c 34 38 34 2c 33 34 34  2c 34 32 34 2c 34 32 30  |,484,344,424,420|
00007890  2c 33 36 34 2c 34 39 36  2c 33 30 34 2c 35 37 32  |,364,496,304,572|
000078a0  2c 32 34 34 2c 36 34 38  2c 31 38 34 2c 37 32 34  |,244,648,184,724|
000078b0  2c 31 32 34 0d 02 a7 22  dc 20 34 36 38 2c 35 32  |,124...". 468,52|
000078c0  30 2c 33 36 2c 34 34 30  2c 35 32 30 2c 36 38 2c  |0,36,440,520,68,|
000078d0  36 34 2c 31 31 32 0d 02  a8 29 e3 20 73 25 3d 30  |64,112...). s%=0|
000078e0  b8 37 3a e3 20 72 25 3d  30 b8 31 3a f3 20 61 78  |.7:. r%=0.1:. ax|
000078f0  6f 6e 31 25 28 73 25 2c  72 25 29 3a ed 3a ed 0d  |on1%(s%,r%):.:..|
00007900  02 a9 28 e3 20 73 25 3d  30 b8 33 3a e3 20 72 25  |..(. s%=0.3:. r%|
00007910  3d 30 b8 31 3a f3 20 63  65 6c 6c 25 28 73 25 2c  |=0.1:. cell%(s%,|
00007920  72 25 29 3a ed 3a ed 0d  02 aa 2a e3 20 73 25 3d  |r%):.:....*. s%=|
00007930  30 b8 32 30 3a e3 20 72  25 3d 30 b8 31 3a f3 20  |0.20:. r%=0.1:. |
00007940  61 78 6f 6e 32 25 28 73  25 2c 72 25 29 3a ed 3a  |axon2%(s%,r%):.:|
00007950  ed 0d 02 ab 28 e3 20 73  25 3d 30 b8 33 3a e3 20  |....(. s%=0.3:. |
00007960  72 25 3d 30 b8 31 3a f3  20 74 61 69 6c 25 28 73  |r%=0.1:. tail%(s|
00007970  25 2c 72 25 29 3a ed 3a  ed 0d 02 ac 08 f7 20 2b  |%,r%):.:...... +|
00007980  30 0d 02 ad 47 dc 20 34  2c 38 39 2c 31 30 2c 39  |0...G. 4,89,10,9|
00007990  34 2c 31 36 2c 39 39 2c  32 38 2c 31 30 34 2c 32  |4,16,99,28,104,2|
000079a0  31 2c 31 30 39 2c 33 39  2c 31 30 38 2c 32 37 2c  |1,109,39,108,27,|
000079b0  31 32 30 2c 35 36 2c 31  32 38 2c 36 35 2c 31 33  |120,56,128,65,13|
000079c0  35 2c 37 34 2c 31 34 32  0d 02 ae 7e dc 20 33 2c  |5,74,142...~. 3,|
000079d0  31 32 2c 31 30 2c 31 38  2c 32 30 2c 32 32 2c 31  |12,10,18,20,22,1|
000079e0  36 2c 32 38 2c 33 31 2c  32 36 2c 32 32 2c 33 39  |6,28,31,26,22,39|
000079f0  2c 35 31 2c 34 37 2c 36  34 2c 35 37 2c 37 37 2c  |,51,47,64,57,77,|
00007a00  36 37 2c 39 30 2c 37 37  2c 31 30 33 2c 38 37 2c  |67,90,77,103,87,|
00007a10  31 31 36 2c 39 37 2c 31  32 39 2c 31 30 37 2c 31  |116,97,129,107,1|
00007a20  34 31 2c 31 31 33 2c 31  33 35 2c 31 31 39 2c 31  |41,113,135,119,1|
00007a30  35 32 2c 31 32 30 2c 31  34 31 2c 31 33 31 2c 31  |52,120,141,131,1|
00007a40  37 33 2c 31 34 31 0d 02  af 33 dc 20 31 32 30 2c  |73,141...3. 120,|
00007a50  33 2c 31 32 38 2c 32 2c  31 32 39 2c 31 38 2c 31  |3,128,2,129,18,1|
00007a60  34 30 2c 37 2c 31 35 39  2c 32 37 2c 31 36 39 2c  |40,7,159,27,169,|
00007a70  33 35 2c 31 37 39 2c 34  33 0d 02 b0 2b e3 20 73  |35,179,43...+. s|
00007a80  25 3d 30 b8 39 3a e3 20  72 25 3d 30 b8 31 3a f3  |%=0.9:. r%=0.1:.|
00007a90  20 6e 65 75 72 6f 6e 31  25 28 73 25 2c 72 25 29  | neuron1%(s%,r%)|
00007aa0  3a ed 3a ed 0d 02 b1 2c  e3 20 73 25 3d 30 b8 31  |:.:....,. s%=0.1|
00007ab0  37 3a e3 20 72 25 3d 30  b8 31 3a f3 20 6e 65 75  |7:. r%=0.1:. neu|
00007ac0  72 6f 6e 33 25 28 73 25  2c 72 25 29 3a ed 3a ed  |ron3%(s%,r%):.:.|
00007ad0  0d 02 b2 2b e3 20 73 25  3d 30 b8 36 3a e3 20 72  |...+. s%=0.6:. r|
00007ae0  25 3d 30 b8 31 3a f3 20  6e 65 75 72 6f 6e 35 25  |%=0.1:. neuron5%|
00007af0  28 73 25 2c 72 25 29 3a  ed 3a ed 0d 02 b3 08 f7  |(s%,r%):.:......|
00007b00  20 2b 30 0d 02 b4 46 dc  20 22 30 33 32 2c 39 31  | +0...F. "032,91|
00007b10  2c 30 32 34 2c 38 37 2c  30 31 36 2c 38 34 2c 30  |,024,87,016,84,0|
00007b20  31 34 2c 37 37 2c 30 31  34 2c 36 38 2c 30 31 37  |14,77,014,68,017|
00007b30  2c 36 31 2c 30 32 36 2c  35 39 2c 30 33 36 2c 35  |,61,026,59,036,5|
00007b40  39 2c 30 34 35 2c 35 36  22 0d 02 b5 31 dc 20 22  |9,045,56"...1. "|
00007b50  30 34 32 2c 38 39 2c 30  34 33 2c 38 30 2c 30 34  |042,89,043,80,04|
00007b60  33 2c 37 31 2c 30 34 33  2c 36 33 2c 30 33 36 2c  |3,71,043,63,036,|
00007b70  35 39 2c 30 34 35 2c 35  36 22 0d 02 b6 2a dc 20  |59,045,56"...*. |
00007b80  22 30 34 38 2c 38 39 2c  30 34 36 2c 38 30 2c 30  |"048,89,046,80,0|
00007b90  34 36 2c 37 31 2c 30 34  36 2c 36 32 2c 30 35 32  |46,71,046,62,052|
00007ba0  2c 35 33 22 0d 02 b7 2a  dc 20 22 30 35 38 2c 39  |,53"...*. "058,9|
00007bb0  31 2c 30 36 36 2c 38 36  2c 30 37 35 2c 38 32 2c  |1,066,86,075,82,|
00007bc0  30 37 35 2c 37 31 2c 30  37 34 2c 36 32 22 0d 02  |075,71,074,62"..|
00007bd0  b8 38 dc 20 22 30 36 34  2c 39 31 2c 30 35 36 2c  |.8. "064,91,056,|
00007be0  38 36 2c 30 35 31 2c 38  35 2c 30 34 36 2c 38 30  |86,051,85,046,80|
00007bf0  2c 30 34 36 2c 37 31 2c  30 34 36 2c 36 32 2c 30  |,046,71,046,62,0|
00007c00  35 32 2c 35 33 22 0d 02  b9 23 dc 20 22 30 37 34  |52,53"...#. "074|
00007c10  2c 39 30 2c 30 37 35 2c  38 32 2c 30 37 35 2c 37  |,90,075,82,075,7|
00007c20  31 2c 30 37 34 2c 36 32  22 0d 02 ba 23 dc 20 22  |1,074,62"...#. "|
00007c30  30 38 31 2c 39 30 2c 30  37 38 2c 38 32 2c 30 37  |081,90,078,82,07|
00007c40  38 2c 37 31 2c 30 37 38  2c 35 39 22 0d 02 bb 31  |8,71,078,59"...1|
00007c50  dc 20 22 30 39 31 2c 39  31 2c 30 39 39 2c 38 36  |. "091,91,099,86|
00007c60  2c 31 30 37 2c 38 31 2c  31 30 37 2c 37 31 2c 31  |,107,81,107,71,1|
00007c70  30 36 2c 36 32 2c 30 39  34 2c 35 39 22 0d 02 bc  |06,62,094,59"...|
00007c80  2a dc 20 22 30 39 36 2c  39 30 2c 30 38 36 2c 38  |*. "096,90,086,8|
00007c90  36 2c 30 37 38 2c 38 32  2c 30 37 38 2c 37 31 2c  |6,078,82,078,71,|
00007ca0  30 37 38 2c 35 39 22 0d  02 bd 2a dc 20 22 31 30  |078,59"...*. "10|
00007cb0  36 2c 38 39 2c 31 30 37  2c 38 31 2c 31 30 37 2c  |6,89,107,81,107,|
00007cc0  37 31 2c 31 30 36 2c 36  32 2c 30 39 34 2c 35 39  |71,106,62,094,59|
00007cd0  22 0d 02 be 2a dc 20 22  31 31 32 2c 38 39 2c 31  |"...*. "112,89,1|
00007ce0  31 30 2c 38 31 2c 31 31  30 2c 37 31 2c 31 30 39  |10,81,110,71,109|
00007cf0  2c 36 31 2c 30 39 39 2c  35 35 22 0d 02 bf 38 dc  |,61,099,55"...8.|
00007d00  20 22 31 32 32 2c 39 31  2c 31 33 31 2c 38 36 2c  | "122,91,131,86,|
00007d10  31 33 39 2c 38 31 2c 31  33 39 2c 37 31 2c 31 33  |139,81,139,71,13|
00007d20  38 2c 36 32 2c 31 32 37  2c 35 39 2c 31 31 33 2c  |8,62,127,59,113,|
00007d30  35 34 22 0d 02 c0 31 dc  20 22 31 32 38 2c 39 30  |54"...1. "128,90|
00007d40  2c 31 31 39 2c 38 36 2c  31 31 30 2c 38 31 2c 31  |,119,86,110,81,1|
00007d50  31 30 2c 37 31 2c 31 30  39 2c 36 31 2c 30 39 39  |10,71,109,61,099|
00007d60  2c 35 35 22 0d 02 c1 31  dc 20 22 31 33 38 2c 39  |,55"...1. "138,9|
00007d70  30 2c 31 33 39 2c 38 31  2c 31 33 39 2c 37 31 2c  |0,139,81,139,71,|
00007d80  31 33 38 2c 36 32 2c 31  32 37 2c 35 39 2c 31 31  |138,62,127,59,11|
00007d90  33 2c 35 34 22 0d 02 c2  31 dc 20 22 31 34 34 2c  |3,54"...1. "144,|
00007da0  39 30 2c 31 34 32 2c 38  31 2c 31 34 32 2c 37 31  |90,142,81,142,71|
00007db0  2c 31 34 31 2c 36 31 2c  31 32 39 2c 35 36 2c 31  |,141,61,129,56,1|
00007dc0  32 30 2c 35 31 22 0d 02  c3 46 dc 20 22 31 35 35  |20,51"...F. "155|
00007dd0  2c 39 30 2c 31 36 35 2c  38 36 2c 31 37 31 2c 38  |,90,165,86,171,8|
00007de0  30 2c 31 37 31 2c 37 31  2c 31 36 39 2c 36 31 2c  |0,171,71,169,61,|
00007df0  31 35 38 2c 35 39 2c 31  34 35 2c 35 37 2c 31 32  |158,59,145,57,12|
00007e00  39 2c 35 36 2c 31 32 30  2c 35 31 22 0d 02 c4 38  |9,56,120,51"...8|
00007e10  dc 20 22 31 36 30 2c 39  30 2c 31 35 31 2c 38 36  |. "160,90,151,86|
00007e20  2c 31 34 32 2c 38 31 2c  31 34 32 2c 37 31 2c 31  |,142,81,142,71,1|
00007e30  34 31 2c 36 31 2c 31 32  39 2c 35 36 2c 31 32 30  |41,61,129,56,120|
00007e40  2c 35 31 22 0d 02 c5 1a  e3 73 25 3d 30 b8 31 36  |,51".....s%=0.16|
00007e50  3a f3 20 6f 6c 66 31 24  28 73 25 29 3a ed 0d 02  |:. olf1$(s%):...|
00007e60  c6 08 f7 20 2b 30 0d 02  c7 54 dc 20 22 30 35 31  |... +0...T. "051|
00007e70  2c 34 36 2c 30 35 34 2c  33 35 2c 30 36 32 2c 32  |,46,054,35,062,2|
00007e80  38 2c 30 37 34 2c 32 34  2c 30 38 38 2c 32 33 2c  |8,074,24,088,23,|
00007e90  31 30 34 2c 32 35 2c 31  31 39 2c 32 38 2c 31 33  |104,25,119,28,13|
00007ea0  32 2c 33 31 2c 31 34 35  2c 33 33 2c 31 35 39 2c  |2,31,145,33,159,|
00007eb0  33 34 2c 31 37 30 2c 33  34 22 0d 02 c8 46 dc 20  |34,170,34"...F. |
00007ec0  22 30 37 33 2c 34 38 2c  30 37 33 2c 33 38 2c 30  |"073,48,073,38,0|
00007ed0  37 39 2c 33 30 2c 30 39  33 2c 32 37 2c 31 31 30  |79,30,093,27,110|
00007ee0  2c 32 39 2c 31 32 33 2c  33 32 2c 31 33 38 2c 33  |,29,123,32,138,3|
00007ef0  34 2c 31 35 32 2c 33 35  2c 31 36 35 2c 33 36 22  |4,152,35,165,36"|
00007f00  0d 02 c9 3f dc 20 22 30  39 33 2c 34 38 2c 30 39  |...?. "093,48,09|
00007f10  33 2c 33 39 2c 31 30 32  2c 33 32 2c 31 31 35 2c  |3,39,102,32,115,|
00007f20  33 32 2c 31 32 38 2c 33  34 2c 31 34 33 2c 33 36  |32,128,34,143,36|
00007f30  2c 31 35 38 2c 33 38 2c  31 36 39 2c 33 38 22 0d  |,158,38,169,38".|
00007f40  02 ca 2a dc 20 22 31 31  35 2c 34 35 2c 31 32 31  |..*. "115,45,121|
00007f50  2c 33 36 2c 31 33 35 2c  33 37 2c 31 34 39 2c 33  |,36,135,37,149,3|
00007f60  39 2c 31 36 34 2c 34 30  22 0d 02 cb 19 e3 73 25  |9,164,40".....s%|
00007f70  3d 30 b8 33 3a f3 20 6f  6c 66 32 24 28 73 25 29  |=0.3:. olf2$(s%)|
00007f80  3a ed 0d 02 cc 08 f7 20  2b 30 0d 02 cd 27 dc 20  |:...... +0...'. |
00007f90  32 2c 31 2c 32 2c 30 2c  31 2c 32 2c 32 2c 31 2c  |2,1,2,0,1,2,2,1,|
00007fa0  30 2c 31 2c 32 2c 32 2c  31 2c 32 2c 30 2c 32 2c  |0,1,2,2,1,2,0,2,|
00007fb0  30 0d 02 ce 1b e3 73 25  3d 30 b8 31 36 3a f3 20  |0.....s%=0.16:. |
00007fc0  73 6d 65 6c 6c 25 28 73  25 29 3a ed 0d 02 cf 08  |smell%(s%):.....|
00007fd0  f7 20 2b 30 0d 02 d0 27  dc 20 30 2c 30 2c 30 2c  |. +0...'. 0,0,0,|
00007fe0  31 2c 30 2c 31 2c 31 2c  32 2c 31 2c 32 2c 32 2c  |1,0,1,1,2,1,2,2,|
00007ff0  33 2c 32 2c 33 2c 33 2c  33 2c 33 0d 02 d1 1f e3  |3,2,3,3,3,3.....|
00008000  73 25 3d 30 b8 31 36 3a  f3 20 77 68 69 63 68 6f  |s%=0.16:. whicho|
00008010  6c 66 32 25 28 73 25 29  3a ed 0d 02 d2 08 f7 20  |lf2%(s%):...... |
00008020  2b 30 0d 02 d3 1f dc 20  37 2c 37 2c 39 2c 39 2c  |+0..... 7,7,9,9,|
00008030  31 31 2c 36 2c 31 37 2c  31 34 2c 31 31 2c 37 2c  |11,6,17,14,11,7,|
00008040  37 0d 02 d4 1c e3 73 25  3d 30 b8 31 30 3a f3 20  |7.....s%=0.10:. |
00008050  73 70 6b 6d 61 78 25 28  73 25 29 3a ed 0d 02 d5  |spkmax%(s%):....|
00008060  08 f7 20 2b 30 0d 02 d6  30 dc 20 36 30 2c 35 37  |.. +0...0. 60,57|
00008070  2c 36 38 2c 35 37 2c 36  36 2c 36 35 2c 36 36 2c  |,68,57,66,65,66,|
00008080  37 36 2c 36 35 2c 38 36  2c 36 37 2c 39 36 2c 36  |76,65,86,67,96,6|
00008090  36 2c 31 30 36 0d 02 d7  48 dc 20 38 37 2c 39 37  |6,106...H. 87,97|
000080a0  2c 38 35 2c 31 30 36 2c  31 30 35 2c 39 38 2c 39  |,85,106,105,98,9|
000080b0  30 2c 31 31 34 2c 31 30  33 2c 31 30 37 2c 31 30  |0,114,103,107,10|
000080c0  38 2c 31 31 34 2c 31 32  34 2c 31 31 34 2c 31 34  |8,114,124,114,14|
000080d0  30 2c 31 31 34 2c 31 35  36 2c 31 31 34 0d 02 d8  |0,114,156,114...|
000080e0  54 dc 20 37 35 2c 37 38  2c 38 36 2c 38 34 2c 38  |T. 75,78,86,84,8|
000080f0  30 2c 39 34 2c 37 38 2c  31 30 35 2c 38 32 2c 31  |0,94,78,105,82,1|
00008100  31 34 2c 39 33 2c 31 31  34 2c 31 30 35 2c 31 31  |14,93,114,105,11|
00008110  34 2c 31 31 37 2c 31 31  34 2c 31 32 38 2c 31 31  |4,117,114,128,11|
00008120  34 2c 31 34 30 2c 31 31  34 2c 31 35 32 2c 31 31  |4,140,114,152,11|
00008130  34 0d 02 d9 33 dc 20 31  32 30 2c 37 38 2c 31 32  |4...3. 120,78,12|
00008140  35 2c 39 34 2c 31 32 33  2c 31 30 35 2c 31 33 32  |5,94,123,105,132|
00008150  2c 31 31 34 2c 31 34 32  2c 31 31 34 2c 31 35 32  |,114,142,114,152|
00008160  2c 31 31 34 0d 02 da 7a  dc 20 33 39 2c 37 31 2c  |,114...z. 39,71,|
00008170  35 32 2c 37 30 2c 36 33  2c 37 32 2c 34 38 2c 38  |52,70,63,72,48,8|
00008180  33 2c 35 36 2c 38 32 2c  35 31 2c 39 34 2c 35 30  |3,56,82,51,94,50|
00008190  2c 31 30 35 2c 34 39 2c  31 31 36 2c 34 30 2c 31  |,105,49,116,40,1|
000081a0  32 33 2c 35 34 2c 31 32  33 2c 36 37 2c 31 32 32  |23,54,123,67,122|
000081b0  2c 38 35 2c 31 32 33 2c  39 39 2c 31 32 33 2c 31  |,85,123,99,123,1|
000081c0  31 32 2c 31 32 32 2c 31  33 30 2c 31 32 33 2c 31  |12,122,130,123,1|
000081d0  34 34 2c 31 32 33 2c 31  35 37 2c 31 32 32 0d 02  |44,123,157,122..|
000081e0  db 28 e3 73 25 3d 30 b8  36 3a e3 72 25 3d 30 b8  |.(.s%=0.6:.r%=0.|
000081f0  31 3a f3 20 73 6b 70 61  69 6e 25 28 73 25 2c 72  |1:. skpain%(s%,r|
00008200  25 29 3a ed 3a ed 0d 02  dc 29 e3 73 25 3d 30 b8  |%):.:....).s%=0.|
00008210  38 3a e3 72 25 3d 30 b8  31 3a f3 20 73 6b 70 72  |8:.r%=0.1:. skpr|
00008220  65 73 73 25 28 73 25 2c  72 25 29 3a ed 3a ed 0d  |ess%(s%,r%):.:..|
00008230  02 dd 2a e3 73 25 3d 30  b8 31 30 3a e3 72 25 3d  |..*.s%=0.10:.r%=|
00008240  30 b8 31 3a f3 20 73 6b  68 65 61 74 31 25 28 73  |0.1:. skheat1%(s|
00008250  25 2c 72 25 29 3a ed 3a  ed 0d 02 de 29 e3 73 25  |%,r%):.:....).s%|
00008260  3d 30 b8 35 3a e3 72 25  3d 30 b8 31 3a f3 20 73  |=0.5:.r%=0.1:. s|
00008270  6b 68 65 61 74 32 25 28  73 25 2c 72 25 29 3a ed  |kheat2%(s%,r%):.|
00008280  3a ed 0d 02 df 2a e3 73  25 3d 30 b8 31 36 3a e3  |:....*.s%=0.16:.|
00008290  72 25 3d 30 b8 31 3a f3  20 73 6b 74 6f 75 63 68  |r%=0.1:. sktouch|
000082a0  25 28 73 25 2c 72 25 29  3a ed 3a ed 0d 02 e0 08  |%(s%,r%):.:.....|
000082b0  f7 20 2b 30 0d 02 e1 92  dc 20 37 36 2c 33 32 2c  |. +0..... 76,32,|
000082c0  37 37 2c 31 30 37 2c 36  39 2c 35 33 2c 38 30 2c  |77,107,69,53,80,|
000082d0  38 32 2c 39 35 2c 38 38  2c 39 30 2c 36 35 2c 39  |82,95,88,90,65,9|
000082e0  34 2c 34 35 2c 31 31 35  2c 34 35 2c 35 33 2c 34  |4,45,115,45,53,4|
000082f0  35 2c 31 33 32 2c 36 32  2c 34 37 2c 35 37 2c 31  |5,132,62,47,57,1|
00008300  30 33 2c 35 39 2c 31 31  33 2c 37 35 2c 31 31 31  |03,59,113,75,111|
00008310  2c 38 31 2c 38 34 2c 34  38 2c 38 38 2c 33 31 2c  |,81,84,48,88,31,|
00008320  37 37 2c 38 2c 37 37 2c  31 32 39 2c 33 30 2c 34  |77,8,77,129,30,4|
00008330  35 2c 37 2c 34 35 2c 35  2c 35 37 2c 32 36 2c 35  |5,7,45,5,57,26,5|
00008340  37 2c 38 39 2c 38 0d 02  e2 27 e3 73 25 3d 30 b8  |7,89,8...'.s%=0.|
00008350  32 32 3a e3 72 25 3d 30  b8 31 3a f3 20 68 61 72  |22:.r%=0.1:. har|
00008360  72 25 28 73 25 2c 72 25  29 3a ed 3a ed 0d 02 e3  |r%(s%,r%):.:....|
00008370  08 f7 20 2b 30 0d 02 e4  1a dc 20 22 64 69 61 73  |.. +0..... "dias|
00008380  74 2c 30 30 30 2c 30 30  30 2c 31 33 2e 2e 22 0d  |t,000,000,13..".|
00008390  02 e5 2b dc 20 22 61 72  72 31 36 2c 30 37 37 2c  |..+. "arr16,077,|
000083a0  30 30 38 2c 31 35 2c 61  72 72 31 37 2c 30 37 37  |008,15,arr17,077|
000083b0  2c 31 32 39 2c 31 35 2e  2e 22 0d 02 e6 3c dc 20  |,129,15.."...<. |
000083c0  22 64 69 61 73 74 2c 30  30 30 2c 30 30 30 2c 31  |"diast,000,000,1|
000083d0  33 2c 61 72 72 6f 30 2c  30 37 36 2c 30 33 32 2c  |3,arro0,076,032,|
000083e0  31 35 2c 61 72 72 6f 31  2c 30 37 37 2c 31 30 37  |15,arro1,077,107|
000083f0  2c 31 35 2e 2e 22 0d 02  e7 2b dc 20 22 64 69 61  |,15.."...+. "dia|
00008400  73 74 2c 30 30 30 2c 30  30 30 2c 31 33 2c 61 72  |st,000,000,13,ar|
00008410  72 6f 32 2c 30 36 39 2c  30 35 33 2c 31 35 2e 2e  |ro2,069,053,15..|
00008420  22 0d 02 e8 2b dc 20 22  64 69 61 73 74 2c 30 30  |"...+. "diast,00|
00008430  30 2c 30 30 30 2c 31 33  2c 61 72 72 6f 33 2c 30  |0,000,13,arro3,0|
00008440  38 30 2c 30 38 32 2c 31  35 2e 2e 22 0d 02 e9 2b  |80,082,15.."...+|
00008450  dc 20 22 64 69 61 73 74  2c 30 30 30 2c 30 30 30  |. "diast,000,000|
00008460  2c 31 33 2c 61 72 72 6f  34 2c 30 39 35 2c 30 38  |,13,arro4,095,08|
00008470  38 2c 31 35 2e 2e 22 0d  02 ea 2b dc 20 22 64 69  |8,15.."...+. "di|
00008480  61 73 74 2c 30 30 30 2c  30 30 30 2c 31 33 2c 61  |ast,000,000,13,a|
00008490  72 72 6f 35 2c 30 39 30  2c 30 36 35 2c 31 35 2e  |rro5,090,065,15.|
000084a0  2e 22 0d 02 eb 2b dc 20  22 64 69 61 73 74 2c 30  |."...+. "diast,0|
000084b0  30 30 2c 30 30 30 2c 31  33 2c 61 72 72 6f 36 2c  |00,000,13,arro6,|
000084c0  30 39 34 2c 30 34 35 2c  31 35 2e 2e 22 0d 02 ec  |094,045,15.."...|
000084d0  3c dc 20 22 64 69 61 73  74 2c 30 30 30 2c 30 30  |<. "diast,000,00|
000084e0  30 2c 31 33 2c 61 72 72  6f 37 2c 31 31 35 2c 30  |0,13,arro7,115,0|
000084f0  34 35 2c 31 35 2c 61 72  72 6f 38 2c 30 35 33 2c  |45,15,arro8,053,|
00008500  30 34 35 2c 31 35 2e 2e  22 0d 02 ed 2b dc 20 22  |045,15.."...+. "|
00008510  64 69 61 73 74 2c 30 30  30 2c 30 30 30 2c 31 33  |diast,000,000,13|
00008520  2c 61 72 72 31 38 2c 30  33 30 2c 30 34 35 2c 31  |,arr18,030,045,1|
00008530  35 2e 2e 22 0d 02 ee 2b  dc 20 22 64 69 61 73 74  |5.."...+. "diast|
00008540  2c 30 30 30 2c 30 30 30  2c 31 33 2c 61 72 72 31  |,000,000,13,arr1|
00008550  39 2c 30 30 37 2c 30 34  35 2c 31 35 2e 2e 22 0d  |9,007,045,15..".|
00008560  02 ef 1a dc 20 22 64 69  61 73 74 2c 30 30 30 2c  |.... "diast,000,|
00008570  30 30 30 2c 31 33 2e 2e  22 0d 02 f0 2b dc 20 22  |000,13.."...+. "|
00008580  64 69 61 73 74 2c 30 30  30 2c 30 30 30 2c 31 33  |diast,000,000,13|
00008590  2c 61 72 72 32 30 2c 30  30 35 2c 30 35 37 2c 31  |,arr20,005,057,1|
000085a0  35 2e 2e 22 0d 02 f1 2b  dc 20 22 64 69 61 73 74  |5.."...+. "diast|
000085b0  2c 30 30 30 2c 30 30 30  2c 31 33 2c 61 72 72 32  |,000,000,13,arr2|
000085c0  31 2c 30 32 36 2c 30 35  37 2c 31 35 2e 2e 22 0d  |1,026,057,15..".|
000085d0  02 f2 3c dc 20 22 64 69  61 73 74 2c 30 30 30 2c  |..<. "diast,000,|
000085e0  30 30 30 2c 31 33 2c 61  72 72 6f 39 2c 31 33 32  |000,13,arro9,132|
000085f0  2c 30 36 32 2c 31 35 2c  61 72 72 31 30 2c 30 34  |,062,15,arr10,04|
00008600  37 2c 30 35 37 2c 31 35  2e 2e 22 0d 02 f3 2b dc  |7,057,15.."...+.|
00008610  20 22 64 69 61 73 74 2c  30 30 30 2c 30 30 30 2c  | "diast,000,000,|
00008620  31 33 2c 61 72 72 31 31  2c 31 30 33 2c 30 35 39  |13,arr11,103,059|
00008630  2c 31 35 2e 2e 22 0d 02  f4 2b dc 20 22 64 69 61  |,15.."...+. "dia|
00008640  73 74 2c 30 30 30 2c 30  30 30 2c 31 33 2c 61 72  |st,000,000,13,ar|
00008650  72 31 32 2c 31 31 33 2c  30 37 35 2c 31 35 2e 2e  |r12,113,075,15..|
00008660  22 0d 02 f5 2b dc 20 22  64 69 61 73 74 2c 30 30  |"...+. "diast,00|
00008670  30 2c 30 30 30 2c 31 33  2c 61 72 72 31 33 2c 31  |0,000,13,arr13,1|
00008680  31 31 2c 30 38 31 2c 31  35 2e 2e 22 0d 02 f6 2b  |11,081,15.."...+|
00008690  dc 20 22 64 69 61 73 74  2c 30 30 30 2c 30 30 30  |. "diast,000,000|
000086a0  2c 31 33 2c 61 72 72 31  34 2c 30 38 34 2c 30 34  |,13,arr14,084,04|
000086b0  38 2c 31 35 2e 2e 22 0d  02 f7 2b dc 20 22 64 69  |8,15.."...+. "di|
000086c0  61 73 74 2c 30 30 30 2c  30 30 30 2c 31 33 2c 61  |ast,000,000,13,a|
000086d0  72 72 31 35 2c 30 38 38  2c 30 33 31 2c 31 35 2e  |rr15,088,031,15.|
000086e0  2e 22 0d 02 f8 2b dc 20  22 64 69 61 73 74 2c 30  |."...+. "diast,0|
000086f0  30 30 2c 30 30 30 2c 31  33 2c 61 72 72 32 32 2c  |00,000,13,arr22,|
00008700  30 38 39 2c 30 30 38 2c  31 35 2e 2e 22 0d 02 f9  |089,008,15.."...|
00008710  1a dc 20 22 64 69 61 73  74 2c 30 30 30 2c 30 30  |.. "diast,000,00|
00008720  30 2c 31 33 2e 2e 22 0d  02 fa 3c dc 20 22 64 69  |0,13.."...<. "di|
00008730  61 73 74 2c 30 30 30 2c  30 30 30 2c 31 33 2c 62  |ast,000,000,13,b|
00008740  6c 6f 6f 31 2c 30 36 37  2c 30 35 35 2c 30 30 2c  |loo1,067,055,00,|
00008750  6c 74 6b 65 79 2c 31 35  32 2c 31 31 34 2c 30 30  |ltkey,152,114,00|
00008760  2e 2e 22 0d 02 fb 4d dc  20 22 64 69 61 73 74 2c  |.."...M. "diast,|
00008770  30 30 30 2c 30 30 30 2c  31 33 2c 6c 74 6b 65 79  |000,000,13,ltkey|
00008780  2c 31 35 32 2c 31 31 34  2c 30 30 2c 73 79 73 61  |,152,114,00,sysa|
00008790  74 2c 30 36 34 2c 30 35  30 2c 31 33 2c 62 6c 6f  |t,064,050,13,blo|
000087a0  6f 32 2c 30 36 38 2c 30  35 39 2c 30 30 2e 2e 22  |o2,068,059,00.."|
000087b0  0d 02 fc 4d dc 20 22 64  69 61 73 74 2c 30 30 30  |...M. "diast,000|
000087c0  2c 30 30 30 2c 31 33 2c  6c 74 6b 65 79 2c 31 35  |,000,13,ltkey,15|
000087d0  32 2c 31 31 34 2c 30 30  2c 73 79 73 61 74 2c 30  |2,114,00,sysat,0|
000087e0  36 34 2c 30 35 30 2c 31  33 2c 62 6c 6f 6f 33 2c  |64,050,13,bloo3,|
000087f0  30 36 38 2c 30 36 34 2c  30 30 2e 2e 22 0d 02 fd  |068,064,00.."...|
00008800  5e dc 20 22 64 69 61 73  74 2c 30 30 30 2c 30 30  |^. "diast,000,00|
00008810  30 2c 31 33 2c 6c 74 6b  65 79 2c 31 35 32 2c 31  |0,13,ltkey,152,1|
00008820  31 34 2c 30 30 2c 73 79  73 61 74 2c 30 36 34 2c  |14,00,sysat,064,|
00008830  30 35 30 2c 31 33 2c 73  79 73 76 31 2c 30 36 36  |050,13,sysv1,066|
00008840  2c 30 37 30 2c 31 33 2c  62 6c 6f 6f 34 2c 30 37  |,070,13,bloo4,07|
00008850  31 2c 30 36 33 2c 30 30  2e 2e 22 0d 02 fe 4d dc  |1,063,00.."...M.|
00008860  20 22 64 69 61 73 74 2c  30 30 30 2c 30 30 30 2c  | "diast,000,000,|
00008870  31 33 2c 6c 74 6b 65 79  2c 31 35 32 2c 31 31 34  |13,ltkey,152,114|
00008880  2c 30 30 2c 73 79 73 76  32 2c 30 36 36 2c 30 35  |,00,sysv2,066,05|
00008890  39 2c 31 33 2c 62 6c 6f  6f 35 2c 30 37 32 2c 30  |9,13,bloo5,072,0|
000088a0  34 38 2c 30 30 2e 2e 22  0d 02 ff 4d dc 20 22 64  |48,00.."...M. "d|
000088b0  69 61 73 74 2c 30 30 30  2c 30 30 30 2c 31 33 2c  |iast,000,000,13,|
000088c0  6c 74 6b 65 79 2c 31 35  32 2c 31 31 34 2c 30 30  |ltkey,152,114,00|
000088d0  2c 73 79 73 76 32 2c 30  36 36 2c 30 35 39 2c 31  |,sysv2,066,059,1|
000088e0  33 2c 62 6c 6f 6f 36 2c  30 36 39 2c 30 33 37 2c  |3,bloo6,069,037,|
000088f0  30 30 2e 2e 22 0d 03 00  4d dc 20 22 64 69 61 73  |00.."...M. "dias|
00008900  74 2c 30 30 30 2c 30 30  30 2c 31 33 2c 6c 74 6b  |t,000,000,13,ltk|
00008910  65 79 2c 31 35 32 2c 31  31 34 2c 30 30 2c 73 79  |ey,152,114,00,sy|
00008920  73 76 32 2c 30 36 36 2c  30 35 39 2c 31 33 2c 62  |sv2,066,059,13,b|
00008930  6c 6f 6f 37 2c 30 35 33  2c 30 33 31 2c 30 30 2e  |loo7,053,031,00.|
00008940  2e 22 0d 03 01 3c dc 20  22 64 69 61 73 74 2c 30  |."...<. "diast,0|
00008950  30 30 2c 30 30 30 2c 31  33 2c 6c 74 6b 65 79 2c  |00,000,13,ltkey,|
00008960  31 35 32 2c 31 31 34 2c  30 30 2c 62 6c 6f 6f 38  |152,114,00,bloo8|
00008970  2c 30 30 30 2c 30 30 30  2c 30 30 2e 2e 22 0d 03  |,000,000,00.."..|
00008980  02 3c dc 20 22 64 69 61  73 74 2c 30 30 30 2c 30  |.<. "diast,000,0|
00008990  30 30 2c 31 33 2c 6c 74  6b 65 79 2c 31 35 32 2c  |00,13,ltkey,152,|
000089a0  31 31 34 2c 30 30 2c 62  6c 6f 6f 39 2c 30 30 30  |114,00,bloo9,000|
000089b0  2c 30 30 30 2c 30 30 2e  2e 22 0d 03 03 3c dc 20  |,000,00.."...<. |
000089c0  22 64 69 61 73 74 2c 30  30 30 2c 30 30 30 2c 31  |"diast,000,000,1|
000089d0  33 2c 6c 74 6b 65 79 2c  31 35 32 2c 31 31 34 2c  |3,ltkey,152,114,|
000089e0  30 30 2c 62 6c 6f 31 30  2c 30 30 30 2c 30 30 30  |00,blo10,000,000|
000089f0  2c 30 30 2e 2e 22 0d 03  04 2b dc 20 22 64 69 61  |,00.."...+. "dia|
00008a00  73 74 2c 30 30 30 2c 30  30 30 2c 31 33 2c 6c 74  |st,000,000,13,lt|
00008a10  6b 65 79 2c 31 35 32 2c  31 31 34 2c 30 30 2e 2e  |key,152,114,00..|
00008a20  22 0d 03 05 3c dc 20 22  64 69 61 73 74 2c 30 30  |"...<. "diast,00|
00008a30  30 2c 30 30 30 2c 31 33  2c 6c 74 6b 65 79 2c 31  |0,000,13,ltkey,1|
00008a40  35 32 2c 31 31 34 2c 30  30 2c 62 6c 6f 31 31 2c  |52,114,00,blo11,|
00008a50  30 30 30 2c 30 30 30 2c  30 30 2e 2e 22 0d 03 06  |000,000,00.."...|
00008a60  3c dc 20 22 64 69 61 73  74 2c 30 30 30 2c 30 30  |<. "diast,000,00|
00008a70  30 2c 31 33 2c 6c 74 6b  65 79 2c 31 35 32 2c 31  |0,13,ltkey,152,1|
00008a80  31 34 2c 30 30 2c 62 6c  6f 31 32 2c 30 30 30 2c  |14,00,blo12,000,|
00008a90  30 30 30 2c 30 30 2e 2e  22 0d 03 07 3c dc 20 22  |000,00.."...<. "|
00008aa0  64 69 61 73 74 2c 30 30  30 2c 30 30 30 2c 31 33  |diast,000,000,13|
00008ab0  2c 6c 74 6b 65 79 2c 31  35 32 2c 31 31 34 2c 30  |,ltkey,152,114,0|
00008ac0  30 2c 62 6c 6f 31 33 2c  30 30 30 2c 30 30 30 2c  |0,blo13,000,000,|
00008ad0  30 30 2e 2e 22 0d 03 08  3c dc 20 22 64 69 61 73  |00.."...<. "dias|
00008ae0  74 2c 30 30 30 2c 30 30  30 2c 31 33 2c 6c 74 6b  |t,000,000,13,ltk|
00008af0  65 79 2c 31 35 32 2c 31  31 34 2c 30 30 2c 62 6c  |ey,152,114,00,bl|
00008b00  6f 31 34 2c 30 36 31 2c  30 34 33 2c 30 30 2e 2e  |o14,061,043,00..|
00008b10  22 0d 03 09 3c dc 20 22  64 69 61 73 74 2c 30 30  |"...<. "diast,00|
00008b20  30 2c 30 30 30 2c 31 33  2c 6c 74 6b 65 79 2c 31  |0,000,13,ltkey,1|
00008b30  35 32 2c 31 31 34 2c 30  30 2c 62 6c 6f 6f 31 2c  |52,114,00,bloo1,|
00008b40  30 36 37 2c 30 35 35 2c  30 30 2e 2e 22 0d 03 0a  |067,055,00.."...|
00008b50  1b e3 73 25 3d 30 b8 33  37 3a f3 20 68 61 6e 69  |..s%=0.37:. hani|
00008b60  6d 24 28 73 25 29 3a ed  0d 03 0b 10 de 20 73 77  |m$(s%):...... sw|
00008b70  61 6c 25 28 37 2c 31 29  0d 03 0c 08 f7 20 2b 30  |al%(7,1)..... +0|
00008b80  0d 03 0d 38 dc 20 36 33  2c 32 36 2c 36 33 2c 32  |...8. 63,26,63,2|
00008b90  33 2c 36 33 2c 32 33 2c  36 33 2c 32 33 2c 36 33  |3,63,23,63,23,63|
00008ba0  2c 31 39 2c 31 31 36 2c  31 35 2c 31 31 33 2c 31  |,19,116,15,113,1|
00008bb0  35 2c 31 31 33 2c 31 35  0d 03 0e 26 e3 6a 25 3d  |5,113,15...&.j%=|
00008bc0  30 b8 37 3a e3 6b 25 3d  30 b8 31 3a f3 20 73 77  |0.7:.k%=0.1:. sw|
00008bd0  61 6c 25 28 6a 25 2c 6b  25 29 3a ed 3a ed 0d 03  |al%(j%,k%):.:...|
00008be0  0f 12 de 20 73 6b 69 6e  64 65 6c 24 28 31 31 29  |... skindel$(11)|
00008bf0  0d 03 10 07 f7 2b 30 0d  03 11 57 dc 20 73 6b 6e  |.....+0...W. skn|
00008c00  65 72 76 65 73 2c 73 6b  61 72 6d 2c 70 69 6e 72  |erves,skarm,pinr|
00008c10  65 64 2c 73 6b 70 72 65  73 73 2c 73 70 61 72 6b  |ed,skpress,spark|
00008c20  32 2c 73 70 61 72 6b 33  2c 73 70 69 6e 65 2c 70  |2,spark3,spine,p|
00008c30  72 65 73 73 75 72 65 2c  74 6f 75 63 68 2c 70 61  |ressure,touch,pa|
00008c40  69 6e 2c 68 65 61 74 2c  70 69 65 72 63 65 0d 03  |in,heat,pierce..|
00008c50  12 1d e3 73 25 3d 30 b8  31 30 3a f3 20 73 6b 69  |...s%=0.10:. ski|
00008c60  6e 64 65 6c 24 28 73 25  29 3a ed 0d 03 13 08 f7  |ndel$(s%):......|
00008c70  20 2b 30 0d 03 14 3e dc  20 32 37 2c 39 34 2c 33  | +0...>. 27,94,3|
00008c80  30 2c 38 38 2c 33 33 2c  38 39 2c 33 37 2c 38 39  |0,88,33,89,37,89|
00008c90  2c 34 31 2c 38 39 2c 35  30 2c 39 39 2c 35 30 2c  |,41,89,50,99,50,|
00008ca0  31 30 32 2c 35 31 2c 31  30 35 2c 35 32 2c 31 30  |102,51,105,52,10|
00008cb0  38 0d 03 15 29 e3 6a 25  3d 30 b8 38 3a e3 6b 25  |8...).j%=0.8:.k%|
00008cc0  3d 30 b8 31 3a f3 20 62  61 62 79 65 67 67 25 28  |=0.1:. babyegg%(|
00008cd0  6a 25 2c 6b 25 29 3a ed  3a ed 0d 03 16 08 f7 20  |j%,k%):.:...... |
00008ce0  2b 30 0d 03 17 35 dc 20  32 34 2c 32 30 2c 32 32  |+0...5. 24,20,22|
00008cf0  2c 31 35 2c 33 34 2c 31  33 2c 34 34 2c 31 33 2c  |,15,34,13,44,13,|
00008d00  35 36 2c 31 36 2c 36 36  2c 32 30 2c 37 35 2c 32  |56,16,66,20,75,2|
00008d10  35 2c 38 31 2c 33 32 0d  03 18 28 e3 6a 25 3d 30  |5,81,32...(.j%=0|
00008d20  b8 37 3a e3 6b 25 3d 30  b8 31 3a f3 20 70 65 72  |.7:.k%=0.1:. per|
00008d30  65 67 67 25 28 6a 25 2c  6b 25 29 3a ed 3a ed 0d  |egg%(j%,k%):.:..|
00008d40  03 19 05 e1 0d 03 1a 04  0d 03 1b 0b dd f2 65 76  |..............ev|
00008d50  65 6e 74 0d 03 1c 22 c8  99 20 22 57 69 6d 70 5f  |ent...".. "Wimp_|
00008d60  50 6f 6c 6c 22 2c 30 2c  62 6c 6b 25 20 b8 20 65  |Poll",0,blk% . e|
00008d70  25 2c 65 62 25 0d 03 1d  0b c8 8e 20 65 25 20 ca  |%,eb%...... e% .|
00008d80  0d 03 1e 1f 20 20 c9 20  30 3a 20 e7 64 6f 69 6e  |....  . 0: .doin|
00008d90  67 6d 6f 76 65 25 20 f2  61 6e 69 6d 61 74 65 0d  |gmove% .animate.|
00008da0  03 1f 23 20 20 20 20 20  20 20 20 20 20 e7 64 6f  |..#          .do|
00008db0  69 6e 67 63 6c 6f 73 65  72 25 20 f2 63 6c 6f 73  |ingcloser% .clos|
00008dc0  65 72 0d 03 20 29 20 20  20 20 20 20 20 20 20 20  |er.. )          |
00008dd0  e7 64 6f 69 6e 67 70 69  6e 70 61 72 74 25 20 f2  |.doingpinpart% .|
00008de0  6d 6f 76 65 70 69 6e 70  61 72 74 0d 03 21 18 20  |movepinpart..!. |
00008df0  20 c9 20 31 3a 20 f2 72  65 64 72 61 77 28 21 65  | . 1: .redraw(!e|
00008e00  62 25 29 0d 03 22 1a 20  20 c9 20 32 3a 20 f2 6f  |b%)..".  . 2: .o|
00008e10  70 65 6e 77 69 6e 64 28  62 6c 6b 25 29 0d 03 23  |penwind(blk%)..#|
00008e20  1c 20 20 c9 20 33 3a 20  f2 63 6c 6f 73 65 77 69  |.  . 3: .closewi|
00008e30  6e 64 73 28 62 6c 6b 25  29 0d 03 24 2b 20 20 c9  |nds(blk%)..$+  .|
00008e40  20 34 3a 20 e7 21 65 62  25 3d 70 69 6e 6f 75 74  | 4: .!eb%=pinout|
00008e50  6c 77 25 3a f2 6c 65 61  76 69 6e 67 70 69 6e 6f  |lw%:.leavingpino|
00008e60  75 74 6c 77 0d 03 25 2c  20 20 c9 20 35 3a 20 e7  |utlw..%,  . 5: .|
00008e70  21 65 62 25 3d 70 69 6e  6f 75 74 6c 77 25 3a f2  |!eb%=pinoutlw%:.|
00008e80  65 6e 74 65 72 69 6e 67  70 69 6e 6f 75 74 6c 77  |enteringpinoutlw|
00008e90  0d 03 26 32 20 20 c9 20  36 3a 20 f2 63 6c 69 63  |..&2  . 6: .clic|
00008ea0  6b 28 65 62 25 21 30 2c  65 62 25 21 34 2c 65 62  |k(eb%!0,eb%!4,eb|
00008eb0  25 21 38 2c 65 62 25 21  31 32 2c 65 62 25 21 31  |%!8,eb%!12,eb%!1|
00008ec0  36 29 0d 03 27 3b 20 20  c9 20 37 3a 20 e7 64 72  |6)..';  . 7: .dr|
00008ed0  61 67 67 69 6e 67 25 3d  31 3a f2 73 65 6e 64 73  |agging%=1:.sends|
00008ee0  61 76 65 73 70 72 6d 65  73 73 3a 8b 3a f2 73 65  |avesprmess:.:.se|
00008ef0  6e 64 73 61 76 65 74 78  74 6d 65 73 73 0d 03 28  |ndsavetxtmess..(|
00008f00  14 20 20 c9 20 38 3a 20  f2 6b 65 79 65 76 65 6e  |.  . 8: .keyeven|
00008f10  74 0d 03 29 16 20 20 c9  20 39 3a 20 f2 6d 65 6e  |t..).  . 9: .men|
00008f20  75 73 65 6c 65 63 74 0d  03 2a 17 20 20 c9 20 31  |uselect..*.  . 1|
00008f30  37 2c 31 38 3a 20 f2 72  65 63 65 69 76 65 0d 03  |7,18: .receive..|
00008f40  2b 17 20 20 c9 20 31 39  3a 20 f2 72 65 63 65 69  |+.  . 19: .recei|
00008f50  76 65 61 63 6b 0d 03 2c  05 cb 0d 03 2d 05 e1 0d  |veack..,....-...|
00008f60  03 2e 04 0d 03 2f 10 dd  f2 72 65 64 72 61 77 28  |...../...redraw(|
00008f70  77 25 29 0d 03 30 0b c8  8e 20 77 25 20 ca 0d 03  |w%)..0... w% ...|
00008f80  31 1c 20 20 c9 20 73 79  73 74 77 25 3a 20 f2 72  |1.  . systw%: .r|
00008f90  65 64 72 61 77 73 79 73  74 77 0d 03 32 1c 20 20  |edrawsystw..2.  |
00008fa0  c9 20 62 6f 64 79 77 25  3a 20 f2 72 65 64 72 61  |. bodyw%: .redra|
00008fb0  77 62 6f 64 79 77 0d 03  33 1c 20 20 c9 20 61 6e  |wbodyw..3.  . an|
00008fc0  69 6d 77 25 3a 20 f2 72  65 64 72 61 77 61 6e 69  |imw%: .redrawani|
00008fd0  6d 77 0d 03 34 22 20 20  c9 20 70 69 6e 6f 75 74  |mw..4"  . pinout|
00008fe0  6c 77 25 3a 20 f2 72 65  64 72 61 77 70 69 6e 6f  |lw%: .redrawpino|
00008ff0  75 74 6c 77 0d 03 35 16  20 20 7f 20 3a 20 f2 72  |utlw..5.  . : .r|
00009000  65 64 72 61 77 6f 74 68  65 72 0d 03 36 05 cb 0d  |edrawother..6...|
00009010  03 37 05 e1 0d 03 38 04  0d 03 39 11 dd f2 72 65  |.7....8...9...re|
00009020  64 72 61 77 6f 74 68 65  72 0d 03 3a 28 c8 99 20  |drawother..:(.. |
00009030  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
00009040  6f 77 22 2c 2c 62 6c 6b  25 20 b8 20 6d 6f 72 65  |ow",,blk% . more|
00009050  25 0d 03 3b 0c c8 95 20  6d 6f 72 65 25 0d 03 3c  |%..;... more%..<|
00009060  29 c8 99 20 22 57 69 6d  70 5f 47 65 74 52 65 63  |).. "Wimp_GetRec|
00009070  74 61 6e 67 6c 65 22 2c  2c 62 6c 6b 25 20 b8 20  |tangle",,blk% . |
00009080  6d 6f 72 65 25 3a 0d 03  3d 05 ce 0d 03 3e 05 e1  |more%:..=....>..|
00009090  0d 03 3f 04 0d 03 40 11  dd f2 72 65 64 72 61 77  |..?...@...redraw|
000090a0  73 79 73 74 77 0d 03 41  10 21 62 6c 6b 32 25 3d  |systw..A.!blk2%=|
000090b0  21 62 6c 6b 25 0d 03 42  29 c8 99 20 22 57 69 6d  |!blk%..B).. "Wim|
000090c0  70 5f 52 65 64 72 61 77  57 69 6e 64 6f 77 22 2c  |p_RedrawWindow",|
000090d0  2c 62 6c 6b 32 25 20 b8  20 6d 6f 72 65 25 0d 03  |,blk2% . more%..|
000090e0  43 36 73 70 78 25 3d 62  6c 6b 32 25 21 34 2d 62  |C6spx%=blk2%!4-b|
000090f0  6c 6b 32 25 21 32 30 3a  73 70 79 25 3d 28 62 6c  |lk2%!20:spy%=(bl|
00009100  6b 32 25 21 31 36 2d 62  6c 6b 32 25 21 32 34 29  |k2%!16-blk2%!24)|
00009110  2d 39 33 36 0d 03 44 0c  c8 95 20 6d 6f 72 65 25  |-936..D... more%|
00009120  0d 03 45 1d e7 a4 69 73  73 65 6c 65 63 74 65 64  |..E...isselected|
00009130  28 73 65 74 75 70 77 25  2c 33 33 29 8c 0d 03 46  |(setupw%,33)...F|
00009140  21 20 e3 73 79 25 3d 30  b8 37 3a f2 64 72 61 77  |! .sy%=0.7:.draw|
00009150  73 79 73 74 62 75 74 28  73 79 25 29 3a ed 0d 03  |systbut(sy%):...|
00009160  47 05 cc 0d 03 48 0d 20  e3 73 79 25 3d 30 b8 37  |G....H. .sy%=0.7|
00009170  0d 03 49 34 20 20 e7 a4  69 73 73 65 6c 65 63 74  |..I4  ..isselect|
00009180  65 64 28 73 65 74 75 70  77 25 2c 33 37 2b 73 79  |ed(setupw%,37+sy|
00009190  25 29 3a f2 64 72 61 77  73 79 73 74 62 75 74 28  |%):.drawsystbut(|
000091a0  73 79 25 29 0d 03 4a 06  20 ed 0d 03 4b 05 cd 0d  |sy%)..J. ...K...|
000091b0  03 4c 2a c8 99 20 22 57  69 6d 70 5f 47 65 74 52  |.L*.. "Wimp_GetR|
000091c0  65 63 74 61 6e 67 6c 65  22 2c 2c 62 6c 6b 32 25  |ectangle",,blk2%|
000091d0  20 b8 20 6d 6f 72 65 25  3a 0d 03 4d 05 ce 0d 03  | . more%:..M....|
000091e0  4e 05 e1 0d 03 4f 04 0d  03 50 16 dd f2 64 72 61  |N....O...P...dra|
000091f0  77 73 79 73 74 62 75 74  28 73 79 25 29 0d 03 51  |wsystbut(sy%)..Q|
00009200  79 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |y.. "OS_SpriteOp|
00009210  22 2c 26 31 33 34 2c 73  70 61 72 65 61 25 2c 73  |",&134,sparea%,s|
00009220  79 73 62 75 74 24 28 28  73 79 25 2a 32 29 2d 73  |ysbut$((sy%*2)-s|
00009230  79 73 74 65 6d 5f 6f 6e  25 28 73 79 25 29 29 2c  |ystem_on%(sy%)),|
00009240  73 70 78 25 2b 73 79 73  62 25 28 73 79 25 2c 30  |spx%+sysb%(sy%,0|
00009250  29 2c 73 70 79 25 2b 73  79 73 62 25 28 73 79 25  |),spy%+sysb%(sy%|
00009260  2c 31 29 2c 30 2c 73 63  61 6c 65 25 2c 63 6f 6c  |,1),0,scale%,col|
00009270  74 72 61 6e 73 25 0d 03  52 05 e1 0d 03 53 04 0d  |trans%..R....S..|
00009280  03 54 11 dd f2 72 65 64  72 61 77 62 6f 64 79 77  |.T...redrawbodyw|
00009290  0d 03 55 28 c8 99 20 22  57 69 6d 70 5f 52 65 64  |..U(.. "Wimp_Red|
000092a0  72 61 77 57 69 6e 64 6f  77 22 2c 2c 62 6c 6b 25  |rawWindow",,blk%|
000092b0  20 b8 20 6d 6f 72 65 25  0d 03 56 3e 73 70 78 25  | . more%..V>spx%|
000092c0  3d 62 6c 6b 25 21 34 2d  62 6c 6b 25 21 32 30 3a  |=blk%!4-blk%!20:|
000092d0  73 70 79 25 3d 28 62 6c  6b 25 21 31 36 2d 62 6c  |spy%=(blk%!16-bl|
000092e0  6b 25 21 32 34 29 2d 28  73 70 73 63 61 6c 65 25  |k%!24)-(spscale%|
000092f0  2a 31 34 36 30 29 0d 03  57 0c c8 95 20 6d 6f 72  |*1460)..W... mor|
00009300  65 25 0d 03 58 4a c8 99  20 22 4f 53 5f 53 70 72  |e%..XJ.. "OS_Spr|
00009310  69 74 65 4f 70 22 2c 26  31 33 34 2c 62 6f 64 79  |iteOp",&134,body|
00009320  61 72 65 61 25 2c 22 62  6f 64 79 22 2c 73 70 78  |area%,"body",spx|
00009330  25 2c 73 70 79 25 2c 30  2c 62 6f 64 73 63 61 6c  |%,spy%,0,bodscal|
00009340  65 25 2c 63 6f 6c 74 72  61 6e 73 25 0d 03 59 29  |e%,coltrans%..Y)|
00009350  c8 99 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |.. "Wimp_GetRect|
00009360  61 6e 67 6c 65 22 2c 2c  62 6c 6b 25 20 b8 20 6d  |angle",,blk% . m|
00009370  6f 72 65 25 3a 0d 03 5a  05 ce 0d 03 5b 05 e1 0d  |ore%:..Z....[...|
00009380  03 5c 04 0d 03 5d 11 dd  f2 72 65 64 72 61 77 61  |.\...]...redrawa|
00009390  6e 69 6d 77 0d 03 5e 28  c8 99 20 22 57 69 6d 70  |nimw..^(.. "Wimp|
000093a0  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
000093b0  62 6c 6b 25 20 b8 20 6d  6f 72 65 25 0d 03 5f 37  |blk% . more%.._7|
000093c0  73 70 78 25 3d 62 6c 6b  25 21 34 2d 62 6c 6b 25  |spx%=blk%!4-blk%|
000093d0  21 32 30 2b 36 3a 73 70  79 25 3d 28 62 6c 6b 25  |!20+6:spy%=(blk%|
000093e0  21 31 36 2d 62 6c 6b 25  21 32 34 29 2d 37 36 2d  |!16-blk%!24)-76-|
000093f0  36 31 36 0d 03 60 0c c8  95 20 6d 6f 72 65 25 0d  |616..`... more%.|
00009400  03 61 47 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |.aG.. "OS_Sprite|
00009410  4f 70 22 2c 26 31 33 34  2c 61 6e 69 6d 61 72 65  |Op",&134,animare|
00009420  61 25 2c 22 61 6e 69 6d  22 2c 73 70 78 25 2c 73  |a%,"anim",spx%,s|
00009430  70 79 25 2c 30 2c 73 63  61 6c 65 25 2c 63 6f 6c  |py%,0,scale%,col|
00009440  74 72 61 6e 73 25 0d 03  62 29 c8 99 20 22 57 69  |trans%..b).. "Wi|
00009450  6d 70 5f 47 65 74 52 65  63 74 61 6e 67 6c 65 22  |mp_GetRectangle"|
00009460  2c 2c 62 6c 6b 25 20 b8  20 6d 6f 72 65 25 3a 0d  |,,blk% . more%:.|
00009470  03 63 05 ce 0d 03 64 05  e1 0d 03 65 04 0d 03 66  |.c....d....e...f|
00009480  19 dd f2 75 70 64 61 74  65 5f 62 75 74 74 6f 6e  |...update_button|
00009490  73 28 73 79 25 29 0d 03  67 2e 21 62 6c 6b 25 3d  |s(sy%)..g.!blk%=|
000094a0  73 79 73 74 77 25 3a c8  99 22 57 69 6d 70 5f 47  |systw%:.."Wimp_G|
000094b0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000094c0  62 6c 6b 25 0d 03 68 32  73 70 78 25 3d 62 6c 6b  |blk%..h2spx%=blk|
000094d0  25 21 34 2d 62 6c 6b 25  21 32 30 3a 73 70 79 25  |%!4-blk%!20:spy%|
000094e0  3d 28 62 6c 6b 25 21 31  36 2d 62 6c 6b 25 21 32  |=(blk%!16-blk%!2|
000094f0  34 29 2d 39 33 36 0d 03  69 65 62 6c 6b 25 21 34  |4)-936..ieblk%!4|
00009500  3d 73 79 73 62 61 72 65  61 25 28 73 79 25 2c 30  |=sysbarea%(sy%,0|
00009510  29 3a 62 6c 6b 25 21 38  3d 73 79 73 62 61 72 65  |):blk%!8=sysbare|
00009520  61 25 28 73 79 25 2c 31  29 3a 62 6c 6b 25 21 31  |a%(sy%,1):blk%!1|
00009530  32 3d 73 79 73 62 61 72  65 61 25 28 73 79 25 2c  |2=sysbarea%(sy%,|
00009540  32 29 3a 62 6c 6b 25 21  31 36 3d 73 79 73 62 61  |2):blk%!16=sysba|
00009550  72 65 61 25 28 73 79 25  2c 33 29 0d 03 6a 28 c8  |rea%(sy%,3)..j(.|
00009560  99 20 22 57 69 6d 70 5f  55 70 64 61 74 65 57 69  |. "Wimp_UpdateWi|
00009570  6e 64 6f 77 22 2c 2c 62  6c 6b 25 20 b8 20 6d 6f  |ndow",,blk% . mo|
00009580  72 65 25 0d 03 6b 0c c8  95 20 6d 6f 72 65 25 0d  |re%..k... more%.|
00009590  03 6c 15 f2 64 72 61 77  73 79 73 74 62 75 74 28  |.l..drawsystbut(|
000095a0  73 79 25 29 0d 03 6d 28  c8 99 20 22 57 69 6d 70  |sy%)..m(.. "Wimp|
000095b0  5f 47 65 74 52 65 63 74  61 6e 67 6c 65 22 2c 2c  |_GetRectangle",,|
000095c0  62 6c 6b 25 20 b8 20 6d  6f 72 65 25 0d 03 6e 05  |blk% . more%..n.|
000095d0  ce 0d 03 6f 05 e1 0d 03  70 04 0d 03 71 0e dd f2  |...o....p...q...|
000095e0  6b 65 79 65 76 65 6e 74  0d 03 72 7b e7 28 28 21  |keyevent..r{.((!|
000095f0  62 6c 6b 25 3c 3e 73 61  62 6f 64 79 77 25 29 80  |blk%<>sabodyw%).|
00009600  28 21 62 6c 6b 25 3c 3e  73 61 61 6e 69 6d 77 25  |(!blk%<>saanimw%|
00009610  29 80 28 21 62 6c 6b 25  3c 3e 65 64 62 6f 78 77  |).(!blk%<>edboxw|
00009620  25 29 80 28 21 62 6c 6b  25 3c 3e 73 65 74 75 70  |%).(!blk%<>setup|
00009630  77 25 29 29 84 28 28 62  6c 6b 25 21 32 34 29 3c  |w%)).((blk%!24)<|
00009640  3e 31 33 29 3a c8 99 20  22 57 69 6d 70 5f 50 72  |>13):.. "Wimp_Pr|
00009650  6f 63 65 73 73 4b 65 79  22 2c 62 6c 6b 25 21 32  |ocessKey",blk%!2|
00009660  34 3a e1 0d 03 73 41 e7  28 21 62 6c 6b 25 3d 65  |4:...sA.(!blk%=e|
00009670  64 62 6f 78 77 25 29 80  28 28 62 6c 6b 25 21 34  |dboxw%).((blk%!4|
00009680  29 3c 3e 32 29 3a c8 99  20 22 57 69 6d 70 5f 50  |)<>2):.. "Wimp_P|
00009690  72 6f 63 65 73 73 4b 65  79 22 2c 62 6c 6b 25 21  |rocessKey",blk%!|
000096a0  32 34 3a e1 0d 03 74 55  e7 28 28 21 62 6c 6b 25  |24:...tU.((!blk%|
000096b0  3d 73 61 62 6f 64 79 77  25 29 84 28 21 62 6c 6b  |=sabodyw%).(!blk|
000096c0  25 3d 73 61 61 6e 69 6d  77 25 29 29 80 28 28 62  |%=saanimw%)).((b|
000096d0  6c 6b 25 21 34 29 3c 3e  31 29 3a c8 99 20 22 57  |lk%!4)<>1):.. "W|
000096e0  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
000096f0  62 6c 6b 25 21 32 34 3a  e1 0d 03 75 41 e7 28 21  |blk%!24:...uA.(!|
00009700  62 6c 6b 25 3d 73 65 74  75 70 77 25 29 80 28 28  |blk%=setupw%).((|
00009710  62 6c 6b 25 21 34 29 3c  3e 37 29 3a c8 99 20 22  |blk%!4)<>7):.. "|
00009720  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
00009730  2c 62 6c 6b 25 21 32 34  3a e1 0d 03 76 0e c8 8e  |,blk%!24:...v...|
00009740  20 21 62 6c 6b 25 20 ca  0d 03 77 10 20 c9 20 73  | !blk% ...w. . s|
00009750  61 62 6f 64 79 77 25 3a  0d 03 78 71 20 20 20 e7  |abodyw%:..xq   .|
00009760  20 a7 a4 67 65 74 69 63  6e 73 74 72 69 6e 67 28  | ..geticnstring(|
00009770  73 61 62 6f 64 79 77 25  2c 31 29 2c 22 2e 22 29  |sabodyw%,1),".")|
00009780  3d 30 3a f2 65 72 72 6f  72 28 22 54 6f 20 73 61  |=0:.error("To sa|
00009790  76 65 2c 20 64 72 61 67  20 74 68 65 20 53 70 72  |ve, drag the Spr|
000097a0  69 74 65 46 69 6c 65 20  69 63 6f 6e 20 74 6f 20  |iteFile icon to |
000097b0  61 20 64 69 72 65 63 74  6f 72 79 20 64 69 73 70  |a directory disp|
000097c0  6c 61 79 22 2c 30 29 3a  e1 0d 03 79 4c 20 20 20  |lay",0):...yL   |
000097d0  f2 73 61 76 65 73 70 72  69 74 65 66 69 6c 65 28  |.savespritefile(|
000097e0  a4 67 65 74 69 63 6e 73  74 72 69 6e 67 28 73 61  |.geticnstring(sa|
000097f0  62 6f 64 79 77 25 2c 31  29 2c 30 2c 30 29 3a c8  |bodyw%,1),0,0):.|
00009800  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00009810  75 22 2c 2d 31 0d 03 7a  10 20 c9 20 73 61 61 6e  |u",-1..z. . saan|
00009820  69 6d 77 25 3a 0d 03 7b  71 20 20 20 e7 20 a7 a4  |imw%:..{q   . ..|
00009830  67 65 74 69 63 6e 73 74  72 69 6e 67 28 73 61 61  |geticnstring(saa|
00009840  6e 69 6d 77 25 2c 31 29  2c 22 2e 22 29 3d 30 3a  |nimw%,1),".")=0:|
00009850  f2 65 72 72 6f 72 28 22  54 6f 20 73 61 76 65 2c  |.error("To save,|
00009860  20 64 72 61 67 20 74 68  65 20 53 70 72 69 74 65  | drag the Sprite|
00009870  46 69 6c 65 20 69 63 6f  6e 20 74 6f 20 61 20 64  |File icon to a d|
00009880  69 72 65 63 74 6f 72 79  20 64 69 73 70 6c 61 79  |irectory display|
00009890  22 2c 30 29 3a e1 0d 03  7c 4c 20 20 20 f2 73 61  |",0):...|L   .sa|
000098a0  76 65 73 70 72 69 74 65  66 69 6c 65 28 a4 67 65  |vespritefile(.ge|
000098b0  74 69 63 6e 73 74 72 69  6e 67 28 73 61 61 6e 69  |ticnstring(saani|
000098c0  6d 77 25 2c 31 29 2c 30  2c 30 29 3a c8 99 22 57  |mw%,1),0,0):.."W|
000098d0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000098e0  2d 31 0d 03 7d 0f 20 c9  20 65 64 62 6f 78 77 25  |-1..}. . edboxw%|
000098f0  3a 0d 03 7e 6e 20 20 20  e7 20 a7 a4 67 65 74 69  |:..~n   . ..geti|
00009900  63 6e 73 74 72 69 6e 67  28 65 64 62 6f 78 77 25  |cnstring(edboxw%|
00009910  2c 32 29 2c 22 2e 22 29  3d 30 3a f2 65 72 72 6f  |,2),".")=0:.erro|
00009920  72 28 22 54 6f 20 73 61  76 65 2c 20 64 72 61 67  |r("To save, drag|
00009930  20 74 68 65 20 54 65 78  74 46 69 6c 65 20 69 63  | the TextFile ic|
00009940  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
00009950  79 20 64 69 73 70 6c 61  79 22 2c 30 29 3a e1 0d  |y display",0):..|
00009960  03 7f 49 20 20 20 f2 73  61 76 65 74 65 78 74 66  |..I   .savetextf|
00009970  69 6c 65 28 a4 67 65 74  69 63 6e 73 74 72 69 6e  |ile(.geticnstrin|
00009980  67 28 65 64 62 6f 78 77  25 2c 32 29 2c 30 2c 30  |g(edboxw%,2),0,0|
00009990  29 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |):.."Wimp_Create|
000099a0  4d 65 6e 75 22 2c 2d 31  0d 03 80 0f 20 c9 20 73  |Menu",-1.... . s|
000099b0  65 74 75 70 77 25 3a 0d  03 81 73 20 20 20 70 77  |etupw%:...s   pw|
000099c0  24 3d a4 63 6f 6e 76 65  72 74 74 6f 6c 6f 77 65  |$=.converttolowe|
000099d0  72 28 a4 67 65 74 69 63  6e 73 74 72 69 6e 67 28  |r(.geticnstring(|
000099e0  73 65 74 75 70 77 25 2c  37 29 29 3a e7 70 77 24  |setupw%,7)):.pw$|
000099f0  3d 22 63 6f 69 74 75 73  22 3a 73 65 78 6f 6e 25  |="coitus":sexon%|
00009a00  3d 2d 31 3a f2 72 65 6d  6f 76 65 73 65 78 28 a3  |=-1:.removesex(.|
00009a10  29 3a 8b 3a 73 65 78 6f  6e 25 3d 30 3a f2 72 65  |):.:sexon%=0:.re|
00009a20  6d 6f 76 65 73 65 78 28  b9 29 0d 03 82 05 cb 0d  |movesex(.)......|
00009a30  03 83 05 e1 0d 03 84 04  0d 03 85 14 dd a4 72 65  |..............re|
00009a40  61 64 73 79 73 76 61 72  28 61 24 29 0d 03 86 4f  |adsysvar(a$)...O|
00009a50  c8 99 20 22 4f 53 5f 52  65 61 64 56 61 72 56 61  |.. "OS_ReadVarVa|
00009a60  6c 22 2c 61 24 2c 62 6c  6b 25 2c 32 35 36 2c 30  |l",a$,blk%,256,0|
00009a70  2c 30 20 b8 20 2c 2c 61  25 3a 61 24 3d 22 22 3a  |,0 . ,,a%:a$="":|
00009a80  e3 41 25 3d 30 b8 61 25  2d 31 3a 61 24 2b 3d bd  |.A%=0.a%-1:a$+=.|
00009a90  28 62 6c 6b 25 3f 41 25  29 3a ed 0d 03 87 07 3d  |(blk%?A%):.....=|
00009aa0  61 24 0d 03 88 04 0d 03  89 15 dd a4 77 69 6d 70  |a$..........wimp|
00009ab0  73 63 72 61 70 65 78 69  73 74 73 0d 03 8a 38 c8  |scrapexists...8.|
00009ac0  99 20 22 58 4f 53 5f 52  65 61 64 56 61 72 56 61  |. "XOS_ReadVarVa|
00009ad0  6c 22 2c 22 57 69 6d 70  24 53 63 72 61 70 22 2c  |l","Wimp$Scrap",|
00009ae0  62 6c 6b 25 2c 32 35 36  2c 30 2c 30 20 b8 20 3b  |blk%,256,0,0 . ;|
00009af0  66 6c 25 0d 03 8b 4e e7  28 66 6c 25 80 25 31 29  |fl%...N.(fl%.%1)|
00009b00  3d 25 31 3a f2 65 72 72  6f 72 28 22 57 69 6d 70  |=%1:.error("Wimp|
00009b10  24 53 63 72 61 70 20 6e  6f 74 20 64 65 66 69 6e  |$Scrap not defin|
00009b20  65 64 2e 20 44 61 74 61  20 74 72 61 6e 73 66 65  |ed. Data transfe|
00009b30  72 20 61 62 6f 72 74 65  64 2e 22 2c 30 29 3a 3d  |r aborted.",0):=|
00009b40  30 0d 03 8c 07 3d 2d 31  0d 03 8d 04 0d 03 8e 10  |0....=-1........|
00009b50  dd f2 6f 70 65 6e 5f 73  79 73 74 77 0d 03 8f 15  |..open_systw....|
00009b60  e7 a4 69 73 6f 70 65 6e  28 6f 76 65 72 77 25 29  |..isopen(overw%)|
00009b70  8c 0d 03 90 31 21 62 6c  6b 32 25 3d 6f 76 65 72  |....1!blk2%=over|
00009b80  77 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |w%:.. "Wimp_GetW|
00009b90  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6b  |indowState",,blk|
00009ba0  32 25 0d 03 91 14 f2 63  6c 6f 73 65 77 69 6e 64  |2%.....closewind|
00009bb0  28 62 6c 6b 25 29 0d 03  92 34 e7 28 62 6c 6b 32  |(blk%)...4.(blk2|
00009bc0  25 21 31 36 29 2d 28 62  6c 6b 32 25 21 38 29 3e  |%!16)-(blk2%!8)>|
00009bd0  39 33 36 3a 62 6c 6b 32  25 21 38 3d 28 62 6c 6b  |936:blk2%!8=(blk|
00009be0  32 25 21 31 36 29 2d 39  33 36 0d 03 93 22 21 62  |2%!16)-936..."!b|
00009bf0  6c 6b 32 25 3d 73 79 73  74 77 25 3a f2 6f 70 65  |lk2%=systw%:.ope|
00009c00  6e 77 69 6e 64 28 62 6c  6b 32 25 29 0d 03 94 05  |nwind(blk2%)....|
00009c10  cc 0d 03 95 2f 21 62 6c  6b 25 3d 73 79 73 74 77  |..../!blk%=systw|
00009c20  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
00009c30  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6b 25  |ndowState",,blk%|
00009c40  0d 03 96 4f e7 20 66 69  72 73 74 74 69 6d 65 25  |...O. firsttime%|
00009c50  20 62 6c 6b 25 21 34 3d  30 3a 62 6c 6b 25 21 38  | blk%!4=0:blk%!8|
00009c60  3d 34 34 3a 62 6c 6b 25  21 31 32 3d 35 36 38 3a  |=44:blk%!12=568:|
00009c70  62 6c 6b 25 21 31 36 3d  39 38 33 3a 62 6c 6b 25  |blk%!16=983:blk%|
00009c80  21 32 30 3d 30 3a 62 6c  6b 25 21 32 34 3d 30 0d  |!20=0:blk%!24=0.|
00009c90  03 97 1e 62 6c 6b 25 21  32 38 3d 2d 31 3a f2 6f  |...blk%!28=-1:.o|
00009ca0  70 65 6e 77 69 6e 64 28  62 6c 6b 25 29 0d 03 98  |penwind(blk%)...|
00009cb0  17 e7 ac a4 69 73 6f 70  65 6e 28 62 6f 64 79 77  |....isopen(bodyw|
00009cc0  25 29 20 8c 0d 03 99 60  20 e7 20 66 69 72 73 74  |%) ....` . first|
00009cd0  74 69 6d 65 25 20 66 69  72 73 74 74 69 6d 65 25  |time% firsttime%|
00009ce0  3d a3 3a 62 6c 6b 25 21  34 3d 36 31 34 3a 62 6c  |=.:blk%!4=614:bl|
00009cf0  6b 25 21 38 3d 34 34 3a  62 6c 6b 25 21 31 32 3d  |k%!8=44:blk%!12=|
00009d00  31 32 37 39 3a 62 6c 6b  25 21 31 36 3d 39 38 33  |1279:blk%!16=983|
00009d10  3a 62 6c 6b 25 21 32 30  3d 30 3a 62 6c 6b 25 21  |:blk%!20=0:blk%!|
00009d20  32 34 3d 30 0d 03 9a 2c  20 21 62 6c 6b 25 3d 62  |24=0..., !blk%=b|
00009d30  6f 64 79 77 25 3a 62 6c  6b 25 21 32 38 3d 2d 31  |odyw%:blk%!28=-1|
00009d40  3a f2 6f 70 65 6e 77 69  6e 64 28 62 6c 6b 25 29  |:.openwind(blk%)|
00009d50  0d 03 9b 05 cd 0d 03 9c  05 cd 0d 03 9d 1f f2 63  |...............c|
00009d60  68 65 63 6b 73 79 73 74  73 65 78 3a f2 70 6c 6f  |hecksystsex:.plo|
00009d70  74 62 6f 64 79 73 79 73  74 0d 03 9e 05 e1 0d 03  |tbodysyst.......|
00009d80  9f 04 0d 03 a0 10 dd f2  6f 70 65 6e 5f 6f 76 65  |........open_ove|
00009d90  72 77 0d 03 a1 21 e7 6c  61 62 65 6c 73 6f 6e 25  |rw...!.labelson%|
00009da0  3c 31 30 3a f2 72 65 6d  6f 76 65 62 6f 64 79 6c  |<10:.removebodyl|
00009db0  61 62 73 0d 03 a2 31 21  62 6c 6b 32 25 3d 73 79  |abs...1!blk2%=sy|
00009dc0  73 74 77 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |stw%:.. "Wimp_Ge|
00009dd0  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00009de0  6c 6b 32 25 0d 03 a3 25  e7 a4 69 73 6f 70 65 6e  |lk2%...%..isopen|
00009df0  28 73 79 73 74 77 25 29  3a f2 63 6c 6f 73 65 77  |(systw%):.closew|
00009e00  69 6e 64 28 62 6c 6b 25  29 0d 03 a4 22 21 62 6c  |ind(blk%)..."!bl|
00009e10  6b 32 25 3d 6f 76 65 72  77 25 3a f2 6f 70 65 6e  |k2%=overw%:.open|
00009e20  77 69 6e 64 28 62 6c 6b  32 25 29 0d 03 a5 1b f2  |wind(blk2%).....|
00009e30  63 68 65 63 6b 73 65 78  3a f2 70 6c 6f 74 62 6f  |checksex:.plotbo|
00009e40  64 79 6f 72 67 73 0d 03  a6 05 e1 0d 03 a7 04 0d  |dyorgs..........|
00009e50  03 a8 0f dd f2 6f 70 65  6e 5f 64 65 74 77 0d 03  |.....open_detw..|
00009e60  a9 21 21 62 6c 6b 25 3d  6f 76 65 72 77 25 3a f2  |.!!blk%=overw%:.|
00009e70  63 6c 6f 73 65 77 69 6e  64 28 62 6c 6b 25 29 0d  |closewind(blk%).|
00009e80  03 aa 2e 21 62 6c 6b 25  3d 64 65 74 77 25 3a c8  |...!blk%=detw%:.|
00009e90  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00009ea0  77 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 03 ab  |wState",,blk%...|
00009eb0  5f 62 6c 6b 25 21 34 3d  30 3a 62 6c 6b 25 21 38  |_blk%!4=0:blk%!8|
00009ec0  3d 31 33 36 3a 62 6c 6b  25 21 31 32 3d 35 36 38  |=136:blk%!12=568|
00009ed0  3a 62 6c 6b 25 21 31 36  3d 31 30 32 33 3a 62 6c  |:blk%!16=1023:bl|
00009ee0  6b 25 21 32 30 3d 30 3a  62 6c 6b 25 21 32 34 3d  |k%!20=0:blk%!24=|
00009ef0  30 3a 62 6c 6b 25 21 32  38 3d 2d 31 3a f2 6f 70  |0:blk%!28=-1:.op|
00009f00  65 6e 77 69 6e 64 28 62  6c 6b 25 29 0d 03 ac 05  |enwind(blk%)....|
00009f10  e1 0d 03 ad 04 0d 03 ae  11 dd f2 6f 70 65 6e 5f  |...........open_|
00009f20  73 65 74 75 70 77 0d 03  af 11 ea 20 6a 25 2c 77  |setupw..... j%,w|
00009f30  61 73 6f 70 65 6e 25 0d  03 b0 16 e7 a4 69 73 6f  |asopen%......iso|
00009f40  70 65 6e 28 73 65 74 75  70 77 25 29 8c 0d 03 b1  |pen(setupw%)....|
00009f50  33 20 21 62 6c 6b 32 25  3d 73 65 74 75 70 77 25  |3 !blk2%=setupw%|
00009f60  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
00009f70  64 6f 77 53 74 61 74 65  22 2c 2c 62 6c 6b 32 25  |dowState",,blk2%|
00009f80  0d 03 b2 20 20 f2 63 6c  6f 73 65 77 69 6e 64 28  |...  .closewind(|
00009f90  62 6c 6b 25 29 3a 77 61  73 6f 70 65 6e 25 3d b9  |blk%):wasopen%=.|
00009fa0  0d 03 b3 05 cc 0d 03 b4  2f 20 c8 99 20 22 57 69  |......../ .. "Wi|
00009fb0  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00009fc0  6f 22 2c 2c 62 6c 6b 32  25 3a 77 61 73 6f 70 65  |o",,blk2%:wasope|
00009fd0  6e 25 3d a3 0d 03 b5 05  cd 0d 03 b6 1d e7 a4 69  |n%=............i|
00009fe0  73 73 65 6c 65 63 74 65  64 28 73 65 74 75 70 77  |sselected(setupw|
00009ff0  25 2c 34 37 29 8c 0d 03  b7 26 20 e3 6a 25 3d 39  |%,47)....& .j%=9|
0000a000  b8 33 30 3a f2 68 69 64  65 69 63 6e 28 73 65 74  |.30:.hideicn(set|
0000a010  75 70 77 25 2c 6a 25 2c  b9 29 3a ed 0d 03 b8 25  |upw%,j%,.):....%|
0000a020  20 e3 6a 25 3d 30 b8 38  3a f2 68 69 64 65 69 63  | .j%=0.8:.hideic|
0000a030  6e 28 73 65 74 75 70 77  25 2c 6a 25 2c a3 29 3a  |n(setupw%,j%,.):|
0000a040  ed 0d 03 b9 27 20 e3 6a  25 3d 33 31 b8 34 34 3a  |....' .j%=31.44:|
0000a050  f2 68 69 64 65 69 63 6e  28 73 65 74 75 70 77 25  |.hideicn(setupw%|
0000a060  2c 6a 25 2c a3 29 3a ed  0d 03 ba 1c 20 f2 63 68  |,j%,.):..... .ch|
0000a070  61 6e 67 65 73 65 74 75  70 65 78 74 65 6e 74 28  |angesetupextent(|
0000a080  33 30 30 29 0d 03 bb 5b  20 e7 ac 77 61 73 6f 70  |300)...[ ..wasop|
0000a090  65 6e 25 3a 62 6c 6b 25  21 38 3d 62 6c 6b 32 25  |en%:blk%!8=blk2%|
0000a0a0  21 34 3a 62 6c 6b 25 21  31 36 3d 28 62 6c 6b 25  |!4:blk%!16=(blk%|
0000a0b0  21 38 29 2b 33 30 30 3a  8b 3a 62 6c 6b 25 21 31  |!8)+300:.:blk%!1|
0000a0c0  36 3d 62 6c 6b 32 25 21  31 36 3a 62 6c 6b 25 21  |6=blk2%!16:blk%!|
0000a0d0  38 3d 28 62 6c 6b 25 21  31 36 29 2d 33 30 30 0d  |8=(blk%!16)-300.|
0000a0e0  03 bc 0e 20 62 6c 6b 25  21 32 34 3d 30 0d 03 bd  |... blk%!24=0...|
0000a0f0  05 cc 0d 03 be 26 20 e3  6a 25 3d 39 b8 33 30 3a  |.....& .j%=9.30:|
0000a100  f2 68 69 64 65 69 63 6e  28 73 65 74 75 70 77 25  |.hideicn(setupw%|
0000a110  2c 6a 25 2c a3 29 3a ed  0d 03 bf 25 20 e3 6a 25  |,j%,.):....% .j%|
0000a120  3d 30 b8 38 3a f2 68 69  64 65 69 63 6e 28 73 65  |=0.8:.hideicn(se|
0000a130  74 75 70 77 25 2c 6a 25  2c b9 29 3a ed 0d 03 c0  |tupw%,j%,.):....|
0000a140  27 20 e3 6a 25 3d 33 31  b8 34 34 3a f2 68 69 64  |' .j%=31.44:.hid|
0000a150  65 69 63 6e 28 73 65 74  75 70 77 25 2c 6a 25 2c  |eicn(setupw%,j%,|
0000a160  b9 29 3a ed 0d 03 c1 1c  20 f2 63 68 61 6e 67 65  |.):..... .change|
0000a170  73 65 74 75 70 65 78 74  65 6e 74 28 31 38 30 29  |setupextent(180)|
0000a180  0d 03 c2 5b 20 e7 ac 77  61 73 6f 70 65 6e 25 3a  |...[ ..wasopen%:|
0000a190  62 6c 6b 25 21 38 3d 62  6c 6b 32 25 21 34 3a 62  |blk%!8=blk2%!4:b|
0000a1a0  6c 6b 25 21 31 36 3d 28  62 6c 6b 25 21 38 29 2b  |lk%!16=(blk%!8)+|
0000a1b0  31 38 30 3a 8b 3a 62 6c  6b 25 21 31 36 3d 62 6c  |180:.:blk%!16=bl|
0000a1c0  6b 32 25 21 31 36 3a 62  6c 6b 25 21 38 3d 28 62  |k2%!16:blk%!8=(b|
0000a1d0  6c 6b 25 21 31 36 29 2d  31 38 30 0d 03 c3 0e 20  |lk%!16)-180.... |
0000a1e0  62 6c 6b 25 21 32 34 3d  30 0d 03 c4 05 cd 0d 03  |blk%!24=0.......|
0000a1f0  c5 11 21 62 6c 6b 25 3d  73 65 74 75 70 77 25 0d  |..!blk%=setupw%.|
0000a200  03 c6 33 e7 ac 77 61 73  6f 70 65 6e 25 3a 62 6c  |..3..wasopen%:bl|
0000a210  6b 25 21 34 3d 28 21 62  6c 6b 32 25 29 2d 33 30  |k%!4=(!blk2%)-30|
0000a220  30 3a 8b 3a 62 6c 6b 25  21 34 3d 62 6c 6b 32 25  |0:.:blk%!4=blk2%|
0000a230  21 34 0d 03 c7 18 62 6c  6b 25 21 31 32 3d 28 62  |!4....blk%!12=(b|
0000a240  6c 6b 25 21 34 29 2b 36  30 30 0d 03 c8 0d 62 6c  |lk%!4)+600....bl|
0000a250  6b 25 21 32 30 3d 30 0d  03 c9 0e 62 6c 6b 25 21  |k%!20=0....blk%!|
0000a260  32 38 3d 2d 31 0d 03 ca  13 f2 6f 70 65 6e 77 69  |28=-1.....openwi|
0000a270  6e 64 28 62 6c 6b 25 29  0d 03 cb 05 e1 0d 03 cc  |nd(blk%)........|
0000a280  04 0d 03 cd 12 dd f2 6f  70 65 6e 77 69 6e 64 28  |.......openwind(|
0000a290  62 25 29 0d 03 ce 1c c8  99 20 22 57 69 6d 70 5f  |b%)...... "Wimp_|
0000a2a0  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 25 0d  |OpenWindow",,b%.|
0000a2b0  03 cf 05 e1 0d 03 d0 04  0d 03 d1 1d dd f2 63 68  |..............ch|
0000a2c0  61 6e 67 65 73 65 74 75  70 65 78 74 65 6e 74 28  |angesetupextent(|
0000a2d0  73 69 7a 25 29 0d 03 d2  2d 21 62 6c 6b 25 3d 30  |siz%)...-!blk%=0|
0000a2e0  3a 62 6c 6b 25 21 34 3d  2d 73 69 7a 25 3a 62 6c  |:blk%!4=-siz%:bl|
0000a2f0  6b 25 21 38 3d 36 30 30  3a 62 6c 6b 25 21 31 32  |k%!8=600:blk%!12|
0000a300  3d 30 0d 03 d3 23 c8 99  22 57 69 6d 70 5f 53 65  |=0...#.."Wimp_Se|
0000a310  74 45 78 74 65 6e 74 22  2c 73 65 74 75 70 77 25  |tExtent",setupw%|
0000a320  2c 62 6c 6b 25 0d 03 d4  05 e1 0d 03 d5 04 0d 03  |,blk%...........|
0000a330  d6 14 dd f2 63 6c 6f 73  65 77 69 6e 64 73 28 62  |....closewinds(b|
0000a340  25 29 0d 03 d7 23 c8 99  20 22 57 69 6d 70 5f 47  |%)...#.. "Wimp_G|
0000a350  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
0000a360  62 6c 6b 32 25 0d 03 d8  19 63 75 72 72 63 6c 6f  |blk2%....currclo|
0000a370  73 65 62 75 74 25 3d 62  6c 6b 32 25 21 38 0d 03  |sebut%=blk2%!8..|
0000a380  d9 12 f2 63 6c 6f 73 65  77 69 6e 64 28 62 25 29  |...closewind(b%)|
0000a390  0d 03 da 0c c8 8e 20 21  62 25 20 ca 0d 03 db 2c  |...... !b% ....,|
0000a3a0  20 20 c9 20 73 79 73 74  77 25 3a 21 62 6c 6b 25  |  . systw%:!blk%|
0000a3b0  3d 62 6f 64 79 77 25 3a  f2 63 6c 6f 73 65 77 69  |=bodyw%:.closewi|
0000a3c0  6e 64 28 62 6c 6b 25 29  0d 03 dc 30 20 20 c9 20  |nd(blk%)...0  . |
0000a3d0  62 6f 64 79 77 25 3a e7  a4 69 73 6f 70 65 6e 28  |bodyw%:..isopen(|
0000a3e0  73 79 73 74 77 25 29 3a  f2 63 6c 6f 73 65 77 69  |systw%):.closewi|
0000a3f0  6e 64 28 62 6c 6b 25 29  0d 03 dd 33 20 20 20 20  |nd(blk%)...3    |
0000a400  20 20 20 20 20 20 20 20  20 20 e7 a4 69 73 6f 70  |          ..isop|
0000a410  65 6e 28 6f 76 65 72 77  25 29 3a f2 63 6c 6f 73  |en(overw%):.clos|
0000a420  65 77 69 6e 64 28 62 6c  6b 25 29 0d 03 de 1a 20  |ewind(blk%).... |
0000a430  20 c9 20 6f 76 65 72 77  25 3a f2 6f 70 65 6e 5f  | . overw%:.open_|
0000a440  73 79 73 74 77 0d 03 df  39 20 20 c9 20 61 6e 69  |systw...9  . ani|
0000a450  6d 77 25 3a f2 73 65 6c  65 63 74 69 63 6e 28 62  |mw%:.selecticn(b|
0000a460  6f 64 79 77 25 2c 61 63  74 69 76 65 69 63 6e 25  |odyw%,activeicn%|
0000a470  2c a3 29 3a f2 69 6e 69  74 61 6e 69 6d 77 0d 03  |,.):.initanimw..|
0000a480  e0 44 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.D              |
0000a490  e7 28 63 75 72 72 63 6c  6f 73 65 62 75 74 25 3d  |.(currclosebut%=|
0000a4a0  31 29 80 28 ac 20 a4 69  73 6f 70 65 6e 28 62 6f  |1).(. .isopen(bo|
0000a4b0  64 79 77 25 29 29 3a f2  6f 70 65 6e 5f 73 79 73  |dyw%)):.open_sys|
0000a4c0  74 77 0d 03 e1 25 20 20  c9 20 64 65 66 6e 77 25  |tw...%  . defnw%|
0000a4d0  3a f2 73 65 6c 65 63 74  69 63 6e 28 73 79 73 74  |:.selecticn(syst|
0000a4e0  77 25 2c 33 2c a3 29 0d  03 e2 44 20 20 20 20 20  |w%,3,.)...D     |
0000a4f0  20 20 20 20 20 20 20 20  20 e7 28 63 75 72 72 63  |         .(currc|
0000a500  6c 6f 73 65 62 75 74 25  3d 31 29 80 28 ac 20 a4  |losebut%=1).(. .|
0000a510  69 73 6f 70 65 6e 28 62  6f 64 79 77 25 29 29 3a  |isopen(bodyw%)):|
0000a520  f2 6f 70 65 6e 5f 73 79  73 74 77 0d 03 e3 36 20  |.open_systw...6 |
0000a530  20 c9 20 70 69 6e 6f 72  67 73 77 25 3a e7 a4 69  | . pinorgsw%:..i|
0000a540  73 6f 70 65 6e 28 70 69  6e 6f 75 74 6c 77 25 29  |sopen(pinoutlw%)|
0000a550  3a f2 63 6c 6f 73 65 77  69 6e 64 28 62 6c 6b 25  |:.closewind(blk%|
0000a560  29 0d 03 e4 36 20 20 c9  20 70 69 6e 6f 75 74 6c  |)...6  . pinoutl|
0000a570  77 25 3a e7 a4 69 73 6f  70 65 6e 28 70 69 6e 6f  |w%:..isopen(pino|
0000a580  72 67 73 77 25 29 3a f2  63 6c 6f 73 65 77 69 6e  |rgsw%):.closewin|
0000a590  64 28 62 6c 6b 25 29 0d  03 e5 45 20 20 c9 20 6f  |d(blk%)...E  . o|
0000a5a0  72 67 64 65 66 6e 77 25  3a f2 73 65 6c 65 63 74  |rgdefnw%:.select|
0000a5b0  69 63 6e 28 62 6f 64 79  77 25 2c 61 63 74 69 76  |icn(bodyw%,activ|
0000a5c0  65 6f 72 67 69 63 6e 25  2c a3 29 3a 61 63 74 69  |eorgicn%,.):acti|
0000a5d0  76 65 6f 72 67 69 63 6e  25 3d 2d 31 0d 03 e6 05  |veorgicn%=-1....|
0000a5e0  cb 0d 03 e7 05 e1 0d 03  e8 04 0d 03 e9 13 dd f2  |................|
0000a5f0  63 6c 6f 73 65 77 69 6e  64 28 62 25 29 0d 03 ea  |closewind(b%)...|
0000a600  1d c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |... "Wimp_CloseW|
0000a610  69 6e 64 6f 77 22 2c 2c  62 25 0d 03 eb 05 e1 0d  |indow",,b%......|
0000a620  03 ec 04 0d 03 ed 14 dd  a4 72 65 61 64 73 74 72  |.........readstr|
0000a630  69 6e 67 28 70 25 29 0d  03 ee 38 ea 61 24 3a 61  |ing(p%)...8.a$:a|
0000a640  24 3d 22 22 3a c8 95 20  28 a9 28 61 24 29 3c 32  |$="":.. (.(a$)<2|
0000a650  35 35 29 80 28 3f 70 25  3e 33 31 29 3a 61 24 2b  |55).(?p%>31):a$+|
0000a660  3d bd 28 3f 70 25 29 3a  70 25 2b 3d 31 3a ce 0d  |=.(?p%):p%+=1:..|
0000a670  03 ef 07 3d 61 24 0d 03  f0 04 0d 03 f1 1a dd f2  |...=a$..........|
0000a680  6c 6f 61 64 5f 74 65 6d  70 6c 61 74 65 28 6e 61  |load_template(na|
0000a690  6d 65 24 29 0d 03 f2 4e  77 70 74 72 6c 69 73 74  |me$)...Nwptrlist|
0000a6a0  25 21 28 28 77 69 6e 64  63 6f 75 6e 74 25 2d 31  |%!((windcount%-1|
0000a6b0  29 2a 34 29 3d 77 70 74  72 31 25 3a 77 69 6e 64  |)*4)=wptr1%:wind|
0000a6c0  70 74 72 6c 69 73 74 25  21 28 28 77 69 6e 64 63  |ptrlist%!((windc|
0000a6d0  6f 75 6e 74 25 2d 31 29  2a 34 29 3d 77 70 74 72  |ount%-1)*4)=wptr|
0000a6e0  32 25 0d 03 f3 54 c8 99  20 22 57 69 6d 70 5f 4c  |2%...T.. "Wimp_L|
0000a6f0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 77 70  |oadTemplate",,wp|
0000a700  74 72 31 25 2c 77 70 74  72 32 25 2c 77 69 6e 64  |tr1%,wptr2%,wind|
0000a710  69 6e 64 25 2b 4d 41 58  57 49 4e 44 49 4e 44 25  |ind%+MAXWINDIND%|
0000a720  2c 2d 31 2c 6e 61 6d 65  24 2c 30 20 b8 20 2c 2c  |,-1,name$,0 . ,,|
0000a730  77 70 74 72 32 25 0d 03  f4 43 e7 6e 61 6d 65 24  |wptr2%...C.name$|
0000a740  3d 22 61 6e 69 6d 61 74  65 22 20 61 6e 69 6d 77  |="animate" animw|
0000a750  74 69 74 6c 65 25 3d 77  70 74 72 31 25 21 37 32  |title%=wptr1%!72|
0000a760  3a 61 6e 69 6d 77 74 69  74 6c 65 73 69 7a 25 3d  |:animwtitlesiz%=|
0000a770  77 70 74 72 31 25 2b 38  30 0d 03 f5 44 e7 6e 61  |wptr1%+80...D.na|
0000a780  6d 65 24 3d 22 73 79 73  74 64 65 66 6e 22 20 73  |me$="systdefn" s|
0000a790  79 73 74 77 74 69 74 6c  65 25 3d 77 70 74 72 31  |ystwtitle%=wptr1|
0000a7a0  25 21 37 32 3a 73 79 73  74 77 74 69 74 6c 65 73  |%!72:systwtitles|
0000a7b0  69 7a 25 3d 77 70 74 72  31 25 2b 38 30 0d 03 f6  |iz%=wptr1%+80...|
0000a7c0  3e 6e 25 3d 77 70 74 72  31 25 21 38 34 3a e3 49  |>n%=wptr1%!84:.I|
0000a7d0  25 3d 30 b8 28 6e 25 2d  31 29 2a 33 32 88 33 32  |%=0.(n%-1)*32.32|
0000a7e0  3a 64 25 3d 77 70 74 72  31 25 2b 38 38 2b 49 25  |:d%=wptr1%+88+I%|
0000a7f0  3a 66 25 3d 28 64 25 21  31 36 29 0d 03 f7 13 20  |:f%=(d%!16).... |
0000a800  e7 28 66 25 80 32 35 39  29 3d 32 35 38 8c 0d 03  |.(f%.259)=258...|
0000a810  f8 36 20 20 e7 6e 61 6d  65 24 3d 22 70 69 6e 6f  |.6  .name$="pino|
0000a820  72 67 73 22 3a 64 25 21  32 34 3d 62 6f 64 79 61  |rgs":d%!24=bodya|
0000a830  72 65 61 25 3a 8b 3a 64  25 21 32 34 3d 73 70 61  |rea%:.:d%!24=spa|
0000a840  72 65 61 25 0d 03 f9 06  20 cd 0d 03 fa 2c 20 e7  |rea%.... ...., .|
0000a850  28 66 25 80 32 35 39 29  3d 30 20 66 25 3d 28 66  |(f%.259)=0 f%=(f|
0000a860  25 80 26 46 46 46 46 30  46 46 46 29 84 26 30 30  |%.&FFFF0FFF).&00|
0000a870  30 30 30 30 30 30 0d 03  fb 5a 20 e7 28 66 25 80  |000000...Z .(f%.|
0000a880  32 35 39 29 3d 32 35 37  20 80 20 64 25 21 32 34  |259)=257 . d%!24|
0000a890  3c 3e 2d 31 20 8c 20 e7  a7 a4 72 65 61 64 73 74  |<>-1 . ...readst|
0000a8a0  72 69 6e 67 28 64 25 21  32 34 29 2c 22 62 30 22  |ring(d%!24),"b0"|
0000a8b0  29 3c 3e 30 20 66 25 3d  28 66 25 80 26 46 46 46  |)<>0 f%=(f%.&FFF|
0000a8c0  46 30 46 46 46 29 84 26  30 30 30 30 30 30 30 30  |F0FFF).&00000000|
0000a8d0  0d 03 fc 5a 20 e7 28 66  25 80 32 35 39 29 3d 32  |...Z .(f%.259)=2|
0000a8e0  35 37 20 80 20 64 25 21  32 34 3c 3e 2d 31 20 8c  |57 . d%!24<>-1 .|
0000a8f0  20 e7 a7 a4 72 65 61 64  73 74 72 69 6e 67 28 64  | ...readstring(d|
0000a900  25 21 32 34 29 2c 22 62  31 22 29 3c 3e 30 20 66  |%!24),"b1")<>0 f|
0000a910  25 3d 28 66 25 80 26 46  46 46 46 30 46 46 46 29  |%=(f%.&FFFF0FFF)|
0000a920  84 26 30 30 30 30 30 30  30 30 0d 03 fd 5a 20 e7  |.&00000000...Z .|
0000a930  28 66 25 80 32 35 39 29  3d 32 35 37 20 80 20 64  |(f%.259)=257 . d|
0000a940  25 21 32 34 3c 3e 2d 31  20 8c 20 e7 a7 a4 72 65  |%!24<>-1 . ...re|
0000a950  61 64 73 74 72 69 6e 67  28 64 25 21 32 34 29 2c  |adstring(d%!24),|
0000a960  22 62 32 22 29 3c 3e 30  20 66 25 3d 28 66 25 80  |"b2")<>0 f%=(f%.|
0000a970  26 30 46 46 46 30 46 46  46 29 84 26 43 30 30 30  |&0FFF0FFF).&C000|
0000a980  39 30 30 30 0d 03 fe 85  20 e7 28 66 25 80 32 35  |9000.... .(f%.25|
0000a990  39 29 3d 32 35 39 20 80  28 6e 61 6d 65 24 3d 22  |9)=259 .(name$="|
0000a9a0  6f 76 65 72 76 69 65 77  22 84 6e 61 6d 65 24 3d  |overview".name$=|
0000a9b0  22 73 79 73 74 65 6d 73  22 84 6e 61 6d 65 24 3d  |"systems".name$=|
0000a9c0  22 61 6e 69 6d 61 74 65  22 84 6e 61 6d 65 24 3d  |"animate".name$=|
0000a9d0  22 62 6f 64 79 6f 75 74  6c 22 84 6e 61 6d 65 24  |"bodyoutl".name$|
0000a9e0  3d 22 70 69 6e 6f 72 67  73 22 29 20 8c 20 66 25  |="pinorgs") . f%|
0000a9f0  3d 28 66 25 80 26 46 46  46 46 30 46 46 46 29 84  |=(f%.&FFFF0FFF).|
0000aa00  26 30 30 30 30 33 30 30  30 0d 03 ff 12 20 e7 28  |&00003000.... .(|
0000aa10  66 25 80 32 35 38 29 3d  32 20 8c 0d 04 00 1b 20  |f%.258)=2 ..... |
0000aa20  20 61 24 3d a4 72 65 61  64 73 74 72 69 6e 67 28  | a$=.readstring(|
0000aa30  64 25 2b 32 30 29 0d 04  01 2b 20 20 c8 99 20 22  |d%+20)...+  .. "|
0000aa40  58 57 69 6d 70 5f 53 70  72 69 74 65 4f 70 22 2c  |XWimp_SpriteOp",|
0000aa50  34 30 2c 2c 61 24 20 b8  20 2c 2c 2c 77 25 2c 68  |40,,a$ . ,,,w%,h|
0000aa60  25 0d 04 02 11 20 20 e7  28 77 25 84 68 25 29 3d  |%....  .(w%.h%)=|
0000aa70  30 8c 0d 04 03 2d 20 20  20 66 25 3d 66 25 84 32  |0....-   f%=f%.2|
0000aa80  35 36 3a 24 77 70 74 72  32 25 3d 61 24 3a 3f 28  |56:$wptr2%=a$:?(|
0000aa90  77 70 74 72 32 25 2b 28  a9 61 24 29 29 3d 30 0d  |wptr2%+(.a$))=0.|
0000aaa0  04 04 3b 20 20 20 64 25  21 32 30 3d 77 70 74 72  |..;   d%!20=wptr|
0000aab0  32 25 3a 64 25 21 32 34  3d 73 70 61 72 65 61 25  |2%:d%!24=sparea%|
0000aac0  3a 64 25 21 32 38 3d a9  61 24 3a 77 70 74 72 32  |:d%!28=.a$:wptr2|
0000aad0  25 2b 3d a9 28 61 24 29  2b 31 0d 04 05 07 20 20  |%+=.(a$)+1....  |
0000aae0  cd 0d 04 06 06 20 cd 0d  04 07 0d 20 64 25 21 31  |..... ..... d%!1|
0000aaf0  36 3d 66 25 0d 04 08 05  ed 0d 04 09 2d 77 70 74  |6=f%........-wpt|
0000ab00  72 31 25 2b 3d 38 38 2b  28 28 77 70 74 72 31 25  |r1%+=88+((wptr1%|
0000ab10  21 38 34 29 2a 33 32 29  3a 77 69 6e 64 63 6f 75  |!84)*32):windcou|
0000ab20  6e 74 25 2b 3d 31 0d 04  0a 05 e1 0d 04 0b 04 0d  |nt%+=1..........|
0000ab30  04 0c 0d dd f2 62 61 72  69 63 6f 6e 0d 04 0d 15  |.....baricon....|
0000ab40  24 69 62 6e 61 6d 65 25  3d 22 66 72 61 6d 65 31  |$ibname%="frame1|
0000ab50  22 0d 04 0e 35 f4 21 62  6c 6b 25 3d 2d 31 3a 62  |"...5.!blk%=-1:b|
0000ab60  6c 6b 25 21 34 3d 30 3a  62 6c 6b 25 21 38 3d 30  |lk%!4=0:blk%!8=0|
0000ab70  3a 62 6c 6b 25 21 31 32  3d 36 32 3a 62 6c 6b 25  |:blk%!12=62:blk%|
0000ab80  21 31 36 3d 39 36 0d 04  0f 34 21 62 6c 6b 25 3d  |!16=96...4!blk%=|
0000ab90  2d 31 3a 62 6c 6b 25 21  34 3d 30 3a 62 6c 6b 25  |-1:blk%!4=0:blk%|
0000aba0  21 38 3d 30 3a 62 6c 6b  25 21 31 32 3d 38 34 3a  |!8=0:blk%!12=84:|
0000abb0  62 6c 6b 25 21 31 36 3d  37 32 0d 04 10 47 62 6c  |blk%!16=72...Gbl|
0000abc0  6b 25 21 32 30 3d 26 31  30 30 30 33 31 33 41 3a  |k%!20=&1000313A:|
0000abd0  62 6c 6b 25 21 32 34 3d  69 62 6e 61 6d 65 25 3a  |blk%!24=ibname%:|
0000abe0  62 6c 6b 25 21 32 38 3d  73 70 61 72 65 61 25 3a  |blk%!28=sparea%:|
0000abf0  62 6c 6b 25 21 33 32 3d  a9 24 69 62 6e 61 6d 65  |blk%!32=.$ibname|
0000ac00  25 0d 04 11 25 c8 99 20  22 57 69 6d 70 5f 43 72  |%...%.. "Wimp_Cr|
0000ac10  65 61 74 65 49 63 6f 6e  22 2c 2c 62 6c 6b 25 20  |eateIcon",,blk% |
0000ac20  b8 20 69 62 68 25 0d 04  12 05 e1 0d 04 13 04 0d  |. ibh%..........|
0000ac30  04 14 04 0d 04 15 04 0d  04 16 2c dd f2 73 61 76  |..........,..sav|
0000ac40  65 73 70 72 69 74 65 66  69 6c 65 28 66 24 2c 66  |espritefile(f$,f|
0000ac50  72 6f 6d 64 72 61 67 25  2c 66 69 6c 65 74 65 6d  |romdrag%,filetem|
0000ac60  70 25 29 0d 04 17 07 ea  20 85 0d 04 18 2a ee 85  |p%)..... ....*..|
0000ac70  ea 3a f7 20 85 3a f2 65  72 72 6f 72 28 22 53 61  |.:. .:.error("Sa|
0000ac80  76 65 20 66 61 69 6c 65  64 2e 20 22 2b f6 24 2c  |ve failed. "+.$,|
0000ac90  30 29 3a e1 0d 04 19 16  e7 20 63 75 72 72 6d 65  |0):...... currme|
0000aca0  6e 75 25 20 3d 20 2d 32  20 8c 0d 04 1a 19 20 f2  |nu% = -2 ..... .|
0000acb0  6d 61 6b 65 62 6f 64 79  66 6f 72 73 61 70 72 28  |makebodyforsapr(|
0000acc0  2d 31 29 0d 04 1b 3b f4  49 46 46 4e 69 73 6f 70  |-1)...;.IFFNisop|
0000acd0  65 6e 28 73 79 73 74 77  25 29 41 4e 44 28 46 4e  |en(systw%)AND(FN|
0000ace0  6e 6f 5f 73 79 73 74 65  6d 73 5f 6f 6e 3d 31 29  |no_systems_on=1)|
0000acf0  3a 50 52 4f 43 62 6f 64  79 62 6f 78 65 73 0d 04  |:PROCbodyboxes..|
0000ad00  1c 29 20 73 70 24 3d a4  6c 65 61 66 28 a4 67 65  |.) sp$=.leaf(.ge|
0000ad10  74 69 63 6e 73 74 72 69  6e 67 28 73 61 62 6f 64  |ticnstring(sabod|
0000ad20  79 77 25 2c 31 29 29 0d  04 1d 2f 20 c8 99 22 58  |yw%,1)).../ .."X|
0000ad30  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
0000ad40  41 2c 62 6f 64 79 61 72  65 61 25 2c 22 62 6f 64  |A,bodyarea%,"bod|
0000ad50  79 22 2c 73 70 24 0d 04  1e 26 20 c8 99 22 4f 53  |y",sp$...& .."OS|
0000ad60  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 43 2c  |_SpriteOp",&10C,|
0000ad70  62 6f 64 79 61 72 65 61  25 2c 66 24 0d 04 1f 2f  |bodyarea%,f$.../|
0000ad80  20 c8 99 22 58 4f 53 5f  53 70 72 69 74 65 4f 70  | .."XOS_SpriteOp|
0000ad90  22 2c 26 31 31 41 2c 62  6f 64 79 61 72 65 61 25  |",&11A,bodyarea%|
0000ada0  2c 73 70 24 2c 22 62 6f  64 79 22 0d 04 20 3e f4  |,sp$,"body".. >.|
0000adb0  49 46 46 4e 69 73 6f 70  65 6e 28 73 79 73 74 77  |IFFNisopen(systw|
0000adc0  25 29 41 4e 44 28 46 4e  6e 6f 5f 73 79 73 74 65  |%)AND(FNno_syste|
0000add0  6d 73 5f 6f 6e 3d 31 29  3a 50 52 4f 43 70 6c 6f  |ms_on=1):PROCplo|
0000ade0  74 62 6f 64 79 73 79 73  74 0d 04 21 33 20 e7 a4  |tbodysyst..!3 ..|
0000adf0  69 73 6f 70 65 6e 28 73  79 73 74 77 25 29 3a f2  |isopen(systw%):.|
0000ae00  70 6c 6f 74 62 6f 64 79  73 79 73 74 3a 8b 3a f2  |plotbodysyst:.:.|
0000ae10  70 6c 6f 74 62 6f 64 79  6f 72 67 73 0d 04 22 05  |plotbodyorgs..".|
0000ae20  cc 0d 04 23 12 20 e7 ac  64 6f 69 6e 67 6d 6f 76  |...#. ..doingmov|
0000ae30  65 25 8c 0d 04 24 29 20  20 e7 a4 69 73 73 65 6c  |e%...$)  ..issel|
0000ae40  65 63 74 65 64 28 73 61  61 6e 69 6d 77 25 2c 35  |ected(saanimw%,5|
0000ae50  29 3a f2 67 65 74 62 77  66 69 6c 65 0d 04 25 1a  |):.getbwfile..%.|
0000ae60  20 20 f2 6d 61 6b 65 61  6e 69 6d 66 6f 72 73 61  |  .makeanimforsa|
0000ae70  70 72 28 2d 31 29 0d 04  26 06 20 cd 0d 04 27 3d  |pr(-1)..&. ...'=|
0000ae80  f4 49 46 46 4e 69 73 73  65 6c 65 63 74 65 64 28  |.IFFNisselected(|
0000ae90  61 6e 69 6d 77 25 2c 30  29 41 4e 44 28 4e 4f 54  |animw%,0)AND(NOT|
0000aea0  64 6f 69 6e 67 6d 6f 76  65 25 29 3a 50 52 4f 43  |doingmove%):PROC|
0000aeb0  61 6e 69 6d 62 6f 78 65  73 0d 04 28 29 20 73 70  |animboxes..() sp|
0000aec0  24 3d a4 6c 65 61 66 28  a4 67 65 74 69 63 6e 73  |$=.leaf(.geticns|
0000aed0  74 72 69 6e 67 28 73 61  61 6e 69 6d 77 25 2c 31  |tring(saanimw%,1|
0000aee0  29 29 0d 04 29 2f 20 c8  99 22 58 4f 53 5f 53 70  |))..)/ .."XOS_Sp|
0000aef0  72 69 74 65 4f 70 22 2c  26 31 31 41 2c 61 6e 69  |riteOp",&11A,ani|
0000af00  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 73 70  |marea%,"anim",sp|
0000af10  24 0d 04 2a 26 20 c8 99  22 4f 53 5f 53 70 72 69  |$..*& .."OS_Spri|
0000af20  74 65 4f 70 22 2c 26 31  30 43 2c 61 6e 69 6d 61  |teOp",&10C,anima|
0000af30  72 65 61 25 2c 66 24 0d  04 2b 2f 20 c8 99 22 58  |rea%,f$..+/ .."X|
0000af40  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
0000af50  41 2c 61 6e 69 6d 61 72  65 61 25 2c 73 70 24 2c  |A,animarea%,sp$,|
0000af60  22 61 6e 69 6d 22 0d 04  2c 12 20 e7 ac 64 6f 69  |"anim"..,. ..doi|
0000af70  6e 67 6d 6f 76 65 25 8c  0d 04 2d 8f 20 20 e7 a4  |ngmove%...-.  ..|
0000af80  69 73 73 65 6c 65 63 74  65 64 28 73 61 61 6e 69  |isselected(saani|
0000af90  6d 77 25 2c 35 29 80 28  28 61 63 74 69 76 65 69  |mw%,5).((activei|
0000afa0  63 6e 25 3d 34 29 84 28  61 63 74 69 76 65 69 63  |cn%=4).(activeic|
0000afb0  6e 25 3d 37 29 84 28 61  63 74 69 76 65 69 63 6e  |n%=7).(activeicn|
0000afc0  25 3d 31 33 29 84 28 61  63 74 69 76 65 69 63 6e  |%=13).(activeicn|
0000afd0  25 3d 31 34 29 84 28 61  63 74 69 76 65 69 63 6e  |%=14).(activeicn|
0000afe0  25 3d 31 35 29 84 28 61  63 74 69 76 65 69 63 6e  |%=15).(activeicn|
0000aff0  25 3d 31 37 29 84 28 61  63 74 69 76 65 69 63 6e  |%=17).(activeicn|
0000b000  25 3d 32 33 29 29 8c 0d  04 2e 6b 20 20 20 e7 59  |%=23))....k   .Y|
0000b010  25 3d 30 20 74 65 73 74  25 3d 30 3a f5 3a f2 66  |%=0 test%=0:.:.f|
0000b020  6c 6f 70 70 79 5f 64 69  73 6b 28 22 62 6f 64 79  |loppy_disk("body|
0000b030  77 69 73 65 22 2c 22 24  2e 21 42 6f 64 79 77 69  |wise","$.!Bodywi|
0000b040  73 65 2e 22 2b 61 6e 69  6d 66 69 6c 65 24 28 61  |se."+animfile$(a|
0000b050  63 74 69 76 65 69 63 6e  25 2c 30 29 2b 22 5f 63  |ctiveicn%,0)+"_c|
0000b060  22 2c 22 22 2c 22 22 29  3a fd 65 72 72 6f 72 25  |","",""):.error%|
0000b070  3d 30 0d 04 2f 59 20 20  20 c8 99 20 22 4f 53 5f  |=0../Y   .. "OS_|
0000b080  53 70 72 69 74 65 4f 70  22 2c 26 31 30 41 2c 64  |SpriteOp",&10A,d|
0000b090  65 74 61 72 65 61 25 2c  22 3c 42 6f 64 79 57 69  |etarea%,"<BodyWi|
0000b0a0  73 65 24 63 68 61 69 6e  64 69 72 3e 2e 22 2b 61  |se$chaindir>."+a|
0000b0b0  6e 69 6d 66 69 6c 65 24  28 61 63 74 69 76 65 69  |nimfile$(activei|
0000b0c0  63 6e 25 2c 30 29 2b 22  5f 63 22 0d 04 30 62 20  |cn%,0)+"_c"..0b |
0000b0d0  20 20 c8 99 20 22 58 4f  53 5f 53 70 72 69 74 65  |  .. "XOS_Sprite|
0000b0e0  4f 70 22 2c 26 31 31 39  2c 61 6e 69 6d 61 72 65  |Op",&119,animare|
0000b0f0  61 25 2c 22 61 6e 69 6d  22 3a c8 99 20 22 4f 53  |a%,"anim":.. "OS|
0000b100  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 46 2c  |_SpriteOp",&10F,|
0000b110  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
0000b120  2c 31 2c 33 38 34 2c 31  35 34 2c 31 32 0d 04 31  |,1,384,154,12..1|
0000b130  3b 20 20 20 f2 61 64 64  70 61 6c 65 74 28 61 6e  |;   .addpalet(an|
0000b140  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 29 3a  |imarea%,"anim"):|
0000b150  f2 6d 61 6b 65 73 70 72  69 74 65 73 28 61 63 74  |.makesprites(act|
0000b160  69 76 65 69 63 6e 25 29  0d 04 32 07 20 20 cd 0d  |iveicn%)..2.  ..|
0000b170  04 33 25 20 20 f2 6d 61  6b 65 6f 72 67 61 6e 28  |.3%  .makeorgan(|
0000b180  61 63 74 69 76 65 77 25  2c 61 63 74 69 76 65 69  |activew%,activei|
0000b190  63 6e 25 29 0d 04 34 52  20 20 e7 a4 69 73 73 65  |cn%)..4R  ..isse|
0000b1a0  6c 65 63 74 65 64 28 61  6e 69 6d 77 25 2c 30 29  |lected(animw%,0)|
0000b1b0  3a f2 61 64 64 6c 69 6e  65 73 28 30 29 3a f2 70  |:.addlines(0):.p|
0000b1c0  6c 6f 74 61 6e 69 6d 3a  f2 61 64 64 6c 61 62 65  |lotanim:.addlabe|
0000b1d0  6c 73 3a f2 61 64 64 77  6f 72 64 73 28 61 63 74  |ls:.addwords(act|
0000b1e0  69 76 65 77 25 29 0d 04  35 06 20 cd 0d 04 36 92  |ivew%)..5. ...6.|
0000b1f0  f4 20 49 46 46 4e 69 73  73 65 6c 65 63 74 65 64  |. IFFNisselected|
0000b200  28 61 6e 69 6d 77 25 2c  30 29 41 4e 44 28 4e 4f  |(animw%,0)AND(NO|
0000b210  54 64 6f 69 6e 67 6d 6f  76 65 25 29 3a 50 52 4f  |Tdoingmove%):PRO|
0000b220  43 6d 61 6b 65 6f 72 67  61 6e 28 61 63 74 69 76  |Cmakeorgan(activ|
0000b230  65 77 25 2c 61 63 74 69  76 65 69 63 6e 25 29 3a  |ew%,activeicn%):|
0000b240  50 52 4f 43 61 64 64 6c  69 6e 65 73 3a 50 52 4f  |PROCaddlines:PRO|
0000b250  43 70 6c 6f 74 61 6e 69  6d 3a 50 52 4f 43 61 64  |Cplotanim:PROCad|
0000b260  64 6c 61 62 65 6c 73 3a  50 52 4f 43 61 64 64 77  |dlabels:PROCaddw|
0000b270  6f 72 64 73 28 61 63 74  69 76 65 77 25 29 0d 04  |ords(activew%)..|
0000b280  37 05 cd 0d 04 38 12 f4  52 45 53 54 4f 52 45 20  |7....8..RESTORE |
0000b290  45 52 52 4f 52 0d 04 39  11 e7 ac 66 72 6f 6d 64  |ERROR..9...fromd|
0000b2a0  72 61 67 25 20 8c 0d 04  3a 4e 20 e7 63 75 72 72  |rag% ...:N .curr|
0000b2b0  6d 65 6e 75 25 3d 2d 32  3a f2 70 75 74 69 63 6e  |menu%=-2:.puticn|
0000b2c0  73 74 72 69 6e 67 28 73  61 62 6f 64 79 77 25 2c  |string(sabodyw%,|
0000b2d0  31 2c 66 24 29 3a 8b 3a  f2 70 75 74 69 63 6e 73  |1,f$):.:.puticns|
0000b2e0  74 72 69 6e 67 28 73 61  61 6e 69 6d 77 25 2c 31  |tring(saanimw%,1|
0000b2f0  2c 66 24 29 0d 04 3b 05  cc 0d 04 3c 14 20 e7 66  |,f$)..;....<. .f|
0000b300  69 6c 65 74 65 6d 70 25  3c 3e 2d 31 8c 0d 04 3d  |iletemp%<>-1...=|
0000b310  4f 20 20 e7 63 75 72 72  6d 65 6e 75 25 3d 2d 32  |O  .currmenu%=-2|
0000b320  3a f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 73  |:.puticnstring(s|
0000b330  61 62 6f 64 79 77 25 2c  31 2c 66 24 29 3a 8b 3a  |abodyw%,1,f$):.:|
0000b340  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 73 61  |.puticnstring(sa|
0000b350  61 6e 69 6d 77 25 2c 31  2c 66 24 29 0d 04 3e 06  |animw%,1,f$)..>.|
0000b360  20 cd 0d 04 3f 05 cd 0d  04 40 21 c8 99 20 22 57  | ...?....@!.. "W|
0000b370  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
0000b380  74 69 6f 6e 22 2c 2d 31  0d 04 41 05 e1 0d 04 42  |tion",-1..A....B|
0000b390  04 0d 04 43 0f dd f2 67  65 74 62 77 66 69 6c 65  |...C...getbwfile|
0000b3a0  0d 04 44 48 c8 99 22 58  4f 53 5f 53 70 72 69 74  |..DH.."XOS_Sprit|
0000b3b0  65 4f 70 22 2c 26 31 31  38 2c 64 65 74 61 72 65  |eOp",&118,detare|
0000b3c0  61 25 2c 22 62 77 22 2b  c3 28 61 63 74 69 76 65  |a%,"bw"+.(active|
0000b3d0  69 63 6e 25 29 2b c3 28  61 63 74 69 76 65 77 25  |icn%)+.(activew%|
0000b3e0  29 20 b8 20 3b 66 6c 25  0d 04 45 11 e7 28 66 6c  |) . ;fl%..E..(fl|
0000b3f0  25 80 25 31 29 3d 25 31  8c 0d 04 46 72 20 e7 59  |%.%1)=%1...Fr .Y|
0000b400  25 3d 30 20 74 65 73 74  25 3d 30 3a f5 3a f2 66  |%=0 test%=0:.:.f|
0000b410  6c 6f 70 70 79 5f 64 69  73 6b 28 22 62 6f 64 79  |loppy_disk("body|
0000b420  77 69 73 65 22 2c 22 24  2e 21 42 6f 64 79 77 69  |wise","$.!Bodywi|
0000b430  73 65 2e 62 6f 64 79 5f  62 77 5f 63 2e 22 2b 62  |se.body_bw_c."+b|
0000b440  77 66 69 6c 65 24 28 61  63 74 69 76 65 69 63 6e  |wfile$(activeicn|
0000b450  25 29 2b 22 5f 62 77 5f  63 22 2c 22 22 2c 22 22  |%)+"_bw_c","",""|
0000b460  29 3a fd 65 72 72 6f 72  25 3d 30 0d 04 47 74 20  |):.error%=0..Gt |
0000b470  e7 28 61 63 74 69 76 65  69 63 6e 25 3d 34 29 84  |.(activeicn%=4).|
0000b480  28 61 63 74 69 76 65 69  63 6e 25 3d 37 29 84 28  |(activeicn%=7).(|
0000b490  61 63 74 69 76 65 69 63  6e 25 3d 31 33 29 84 28  |activeicn%=13).(|
0000b4a0  61 63 74 69 76 65 69 63  6e 25 3d 31 34 29 84 28  |activeicn%=14).(|
0000b4b0  61 63 74 69 76 65 69 63  6e 25 3d 31 35 29 84 28  |activeicn%=15).(|
0000b4c0  61 63 74 69 76 65 69 63  6e 25 3d 31 37 29 84 28  |activeicn%=17).(|
0000b4d0  61 63 74 69 76 65 69 63  6e 25 3d 32 33 29 8c 0d  |activeicn%=23)..|
0000b4e0  04 48 61 20 20 c8 99 20  22 4f 53 5f 53 70 72 69  |.Ha  .. "OS_Spri|
0000b4f0  74 65 4f 70 22 2c 26 31  30 41 2c 64 65 74 61 72  |teOp",&10A,detar|
0000b500  65 61 25 2c 22 3c 42 6f  64 79 57 69 73 65 24 63  |ea%,"<BodyWise$c|
0000b510  68 61 69 6e 64 69 72 3e  2e 62 6f 64 79 5f 62 77  |haindir>.body_bw|
0000b520  5f 63 2e 22 2b 62 77 66  69 6c 65 24 28 61 63 74  |_c."+bwfile$(act|
0000b530  69 76 65 69 63 6e 25 29  2b 22 5f 62 77 5f 63 22  |iveicn%)+"_bw_c"|
0000b540  0d 04 49 06 20 cc 0d 04  4a 61 20 20 c8 99 20 22  |..I. ...Ja  .. "|
0000b550  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
0000b560  42 2c 64 65 74 61 72 65  61 25 2c 22 3c 42 6f 64  |B,detarea%,"<Bod|
0000b570  79 57 69 73 65 24 63 68  61 69 6e 64 69 72 3e 2e  |yWise$chaindir>.|
0000b580  62 6f 64 79 5f 62 77 5f  63 2e 22 2b 62 77 66 69  |body_bw_c."+bwfi|
0000b590  6c 65 24 28 61 63 74 69  76 65 69 63 6e 25 29 2b  |le$(activeicn%)+|
0000b5a0  22 5f 62 77 5f 63 22 0d  04 4b 06 20 cd 0d 04 4c  |"_bw_c"..K. ...L|
0000b5b0  05 cd 0d 04 4d 05 e1 0d  04 4e 04 0d 04 4f 1c dd  |....M....N...O..|
0000b5c0  f2 6d 61 6b 65 62 6f 64  79 66 6f 72 73 61 70 72  |.makebodyforsapr|
0000b5d0  28 73 61 76 65 25 29 0d  04 50 08 ea 20 6a 25 0d  |(save%)..P.. j%.|
0000b5e0  04 51 15 e7 a4 69 73 6f  70 65 6e 28 6f 76 65 72  |.Q...isopen(over|
0000b5f0  77 25 29 8c 0d 04 52 0c  20 e7 73 61 76 65 25 8c  |w%)...R. .save%.|
0000b600  0d 04 53 39 20 20 e7 a4  69 73 73 65 6c 65 63 74  |..S9  ..isselect|
0000b610  65 64 28 73 61 62 6f 64  79 77 25 2c 35 29 3a f2  |ed(sabodyw%,5):.|
0000b620  63 6c 5f 62 6f 64 79 28  31 35 29 3a 8b 3a f2 63  |cl_body(15):.:.c|
0000b630  6c 5f 62 6f 64 79 28 30  29 0d 04 54 06 20 cc 0d  |l_body(0)..T. ..|
0000b640  04 55 39 20 20 e7 a4 69  73 73 65 6c 65 63 74 65  |.U9  ..isselecte|
0000b650  64 28 70 72 62 6f 64 79  77 25 2c 31 29 3a f2 63  |d(prbodyw%,1):.c|
0000b660  6c 5f 62 6f 64 79 28 31  35 29 3a 8b 3a f2 63 6c  |l_body(15):.:.cl|
0000b670  5f 62 6f 64 79 28 30 29  0d 04 56 06 20 cd 0d 04  |_body(0)..V. ...|
0000b680  57 33 20 e7 a4 69 73 73  65 6c 65 63 74 65 64 28  |W3 ..isselected(|
0000b690  6f 76 65 72 77 25 2c 38  29 84 a4 69 73 73 65 6c  |overw%,8)..issel|
0000b6a0  65 63 74 65 64 28 6f 76  65 72 77 25 2c 32 35 29  |ected(overw%,25)|
0000b6b0  8c 0d 04 58 1f 20 20 73  74 61 72 74 73 70 25 3d  |...X.  startsp%=|
0000b6c0  34 36 3a 65 6e 64 73 70  25 3d 6d 61 78 73 70 25  |46:endsp%=maxsp%|
0000b6d0  0d 04 59 06 20 cc 0d 04  5a 1d 20 20 e7 a4 69 73  |..Y. ...Z.  ..is|
0000b6e0  73 65 6c 65 63 74 65 64  28 6f 76 65 72 77 25 2c  |selected(overw%,|
0000b6f0  35 29 8c 0d 04 5b 20 20  20 20 73 74 61 72 74 73  |5)...[    starts|
0000b700  70 25 3d 34 30 3a 65 6e  64 73 70 25 3d 6d 61 78  |p%=40:endsp%=max|
0000b710  73 70 25 0d 04 5c 07 20  20 cc 0d 04 5d 0e 20 20  |sp%..\.  ...].  |
0000b720  20 e7 73 61 76 65 25 8c  0d 04 5e 63 20 20 20 20  | .save%...^c    |
0000b730  e7 a4 69 73 73 65 6c 65  63 74 65 64 28 73 61 62  |..isselected(sab|
0000b740  6f 64 79 77 25 2c 35 29  3a f2 6f 75 74 6c 69 6e  |odyw%,5):.outlin|
0000b750  65 62 6f 64 79 3a 8b 3a  f2 61 64 64 5f 73 70 28  |ebody:.:.add_sp(|
0000b760  73 70 61 72 65 61 25 2c  22 62 6f 64 79 6f 75 74  |sparea%,"bodyout|
0000b770  6c 22 2c 62 6f 64 79 61  72 65 61 25 2c 22 62 6f  |l",bodyarea%,"bo|
0000b780  64 79 22 2c 30 2c 30 2c  31 36 29 0d 04 5f 08 20  |dy",0,0,16).._. |
0000b790  20 20 cc 0d 04 60 63 20  20 20 20 e7 a4 69 73 73  |  ...`c    ..iss|
0000b7a0  65 6c 65 63 74 65 64 28  70 72 62 6f 64 79 77 25  |elected(prbodyw%|
0000b7b0  2c 31 29 3a f2 6f 75 74  6c 69 6e 65 62 6f 64 79  |,1):.outlinebody|
0000b7c0  3a 8b 3a f2 61 64 64 5f  73 70 28 73 70 61 72 65  |:.:.add_sp(spare|
0000b7d0  61 25 2c 22 62 6f 64 79  6f 75 74 6c 22 2c 62 6f  |a%,"bodyoutl",bo|
0000b7e0  64 79 61 72 65 61 25 2c  22 62 6f 64 79 22 2c 30  |dyarea%,"body",0|
0000b7f0  2c 30 2c 31 36 29 0d 04  61 08 20 20 20 cd 0d 04  |,0,16)..a.   ...|
0000b800  62 1f 20 20 20 73 74 61  72 74 73 70 25 3d 30 3a  |b.   startsp%=0:|
0000b810  65 6e 64 73 70 25 3d 6d  61 78 73 70 25 0d 04 63  |endsp%=maxsp%..c|
0000b820  07 20 20 cd 0d 04 64 06  20 cd 0d 04 65 18 20 e3  |.  ...d. ...e. .|
0000b830  6a 25 3d 73 74 61 72 74  73 70 25 b8 65 6e 64 73  |j%=startsp%.ends|
0000b840  70 25 0d 04 66 6c 20 20  e7 62 6f 64 79 73 70 25  |p%..fl  .bodysp%|
0000b850  28 6a 25 2c 30 29 3a f2  61 64 64 5f 73 70 28 73  |(j%,0):.add_sp(s|
0000b860  70 61 72 65 61 25 2c 62  6f 64 79 73 70 24 28 6a  |parea%,bodysp$(j|
0000b870  25 29 2c 62 6f 64 79 61  72 65 61 25 2c 22 62 6f  |%),bodyarea%,"bo|
0000b880  64 79 22 2c 62 6f 64 79  73 70 25 28 6a 25 2c 31  |dy",bodysp%(j%,1|
0000b890  29 2c 62 6f 64 79 73 70  25 28 6a 25 2c 32 29 2c  |),bodysp%(j%,2),|
0000b8a0  62 6f 64 79 73 70 25 28  6a 25 2c 33 29 29 0d 04  |bodysp%(j%,3))..|
0000b8b0  67 06 20 ed 0d 04 68 49  20 e7 a4 69 73 73 65 6c  |g. ...hI ..issel|
0000b8c0  65 63 74 65 64 28 6f 76  65 72 77 25 2c 38 29 84  |ected(overw%,8).|
0000b8d0  a4 69 73 73 65 6c 65 63  74 65 64 28 6f 76 65 72  |.isselected(over|
0000b8e0  77 25 2c 32 35 29 84 a4  69 73 73 65 6c 65 63 74  |w%,25)..isselect|
0000b8f0  65 64 28 6f 76 65 72 77  25 2c 35 29 8c 0d 04 69  |ed(overw%,5)...i|
0000b900  0d 20 20 e7 73 61 76 65  25 8c 0d 04 6a 2c 20 20  |.  .save%...j,  |
0000b910  20 e7 ac a4 69 73 73 65  6c 65 63 74 65 64 28 73  | ...isselected(s|
0000b920  61 62 6f 64 79 77 25 2c  35 29 3a f2 77 68 69 74  |abodyw%,5):.whit|
0000b930  65 5f 62 6f 64 79 0d 04  6b 07 20 20 cc 0d 04 6c  |e_body..k.  ...l|
0000b940  2c 20 20 20 e7 ac a4 69  73 73 65 6c 65 63 74 65  |,   ...isselecte|
0000b950  64 28 70 72 62 6f 64 79  77 25 2c 31 29 3a f2 77  |d(prbodyw%,1):.w|
0000b960  68 69 74 65 5f 62 6f 64  79 0d 04 6d 07 20 20 cd  |hite_body..m.  .|
0000b970  0d 04 6e 06 20 cd 0d 04  6f 05 cc 0d 04 70 0c 20  |..n. ...o....p. |
0000b980  e7 73 61 76 65 25 8c 0d  04 71 61 20 20 e7 a4 69  |.save%...qa  ..i|
0000b990  73 73 65 6c 65 63 74 65  64 28 73 61 62 6f 64 79  |sselected(sabody|
0000b9a0  77 25 2c 35 29 3a f2 6f  75 74 6c 69 6e 65 62 6f  |w%,5):.outlinebo|
0000b9b0  64 79 3a 8b 3a f2 61 64  64 5f 73 70 28 73 70 61  |dy:.:.add_sp(spa|
0000b9c0  72 65 61 25 2c 22 62 6f  64 79 6f 75 74 6c 22 2c  |rea%,"bodyoutl",|
0000b9d0  62 6f 64 79 61 72 65 61  25 2c 22 62 6f 64 79 22  |bodyarea%,"body"|
0000b9e0  2c 30 2c 30 2c 31 36 29  0d 04 72 06 20 cc 0d 04  |,0,0,16)..r. ...|
0000b9f0  73 61 20 20 e7 a4 69 73  73 65 6c 65 63 74 65 64  |sa  ..isselected|
0000ba00  28 70 72 62 6f 64 79 77  25 2c 31 29 3a f2 6f 75  |(prbodyw%,1):.ou|
0000ba10  74 6c 69 6e 65 62 6f 64  79 3a 8b 3a f2 61 64 64  |tlinebody:.:.add|
0000ba20  5f 73 70 28 73 70 61 72  65 61 25 2c 22 62 6f 64  |_sp(sparea%,"bod|
0000ba30  79 6f 75 74 6c 22 2c 62  6f 64 79 61 72 65 61 25  |youtl",bodyarea%|
0000ba40  2c 22 62 6f 64 79 22 2c  30 2c 30 2c 31 36 29 0d  |,"body",0,0,16).|
0000ba50  04 74 06 20 cd 0d 04 75  11 20 e3 6a 25 3d 30 b8  |.t. ...u. .j%=0.|
0000ba60  6d 61 78 73 70 25 0d 04  76 6e 20 20 e7 73 79 73  |maxsp%..vn  .sys|
0000ba70  74 62 6f 64 79 73 70 25  28 6a 25 29 3a f2 61 64  |tbodysp%(j%):.ad|
0000ba80  64 5f 73 70 28 73 70 61  72 65 61 25 2c 62 6f 64  |d_sp(sparea%,bod|
0000ba90  79 73 70 24 28 6a 25 29  2c 62 6f 64 79 61 72 65  |ysp$(j%),bodyare|
0000baa0  61 25 2c 22 62 6f 64 79  22 2c 62 6f 64 79 73 70  |a%,"body",bodysp|
0000bab0  25 28 6a 25 2c 31 29 2c  62 6f 64 79 73 70 25 28  |%(j%,1),bodysp%(|
0000bac0  6a 25 2c 32 29 2c 62 6f  64 79 73 70 25 28 6a 25  |j%,2),bodysp%(j%|
0000bad0  2c 33 29 29 0d 04 77 06  20 ed 0d 04 78 17 20 e7  |,3))..w. ...x. .|
0000bae0  a4 6e 6f 5f 73 79 73 74  65 6d 73 5f 6f 6e 3d 31  |.no_systems_on=1|
0000baf0  8c 0d 04 79 4b 20 20 e7  28 73 61 76 65 25 80 ac  |...yK  .(save%..|
0000bb00  a4 69 73 73 65 6c 65 63  74 65 64 28 73 61 62 6f  |.isselected(sabo|
0000bb10  64 79 77 25 2c 31 30 29  29 84 28 ac 73 61 76 65  |dyw%,10)).(.save|
0000bb20  25 80 ac a4 69 73 73 65  6c 65 63 74 65 64 28 70  |%...isselected(p|
0000bb30  72 62 6f 64 79 77 25 2c  36 29 29 8c 0d 04 7a 40  |rbodyw%,6))...z@|
0000bb40  20 20 20 e7 28 a4 73 79  73 74 65 6d 5f 6f 6e 3d  |   .(.system_on=|
0000bb50  37 29 80 28 a4 69 73 73  65 6c 65 63 74 65 64 28  |7).(.isselected(|
0000bb60  73 79 73 74 77 25 2c 31  29 29 3a f2 61 64 64 62  |systw%,1)):.addb|
0000bb70  6f 64 79 6c 61 62 65 6c  73 28 38 29 0d 04 7b 40  |odylabels(8)..{@|
0000bb80  20 20 20 e7 28 a4 73 79  73 74 65 6d 5f 6f 6e 3d  |   .(.system_on=|
0000bb90  36 29 80 28 a4 69 73 73  65 6c 65 63 74 65 64 28  |6).(.isselected(|
0000bba0  73 79 73 74 77 25 2c 31  29 29 3a f2 61 64 64 62  |systw%,1)):.addb|
0000bbb0  6f 64 79 6c 61 62 65 6c  73 28 39 29 0d 04 7c 49  |odylabels(9)..|I|
0000bbc0  20 20 20 e7 28 a4 73 79  73 74 65 6d 5f 6f 6e 3c  |   .(.system_on<|
0000bbd0  36 29 84 28 a4 69 73 73  65 6c 65 63 74 65 64 28  |6).(.isselected(|
0000bbe0  73 79 73 74 77 25 2c 30  29 29 3a f2 61 64 64 62  |systw%,0)):.addb|
0000bbf0  6f 64 79 6c 61 62 65 6c  73 28 a4 73 79 73 74 65  |odylabels(.syste|
0000bc00  6d 5f 6f 6e 29 0d 04 7d  57 20 20 20 e7 73 61 76  |m_on)..}W   .sav|
0000bc10  65 25 3a f2 62 6f 64 79  62 6f 78 65 73 28 a4 69  |e%:.bodyboxes(.i|
0000bc20  73 73 65 6c 65 63 74 65  64 28 73 61 62 6f 64 79  |sselected(sabody|
0000bc30  77 25 2c 38 29 29 3a 8b  3a f2 62 6f 64 79 62 6f  |w%,8)):.:.bodybo|
0000bc40  78 65 73 28 a4 69 73 73  65 6c 65 63 74 65 64 28  |xes(.isselected(|
0000bc50  70 72 62 6f 64 79 77 25  2c 34 29 29 0d 04 7e 07  |prbodyw%,4))..~.|
0000bc60  20 20 cd 0d 04 7f 06 20  cd 0d 04 80 05 cd 0d 04  |  ..... ........|
0000bc70  81 05 e1 0d 04 82 04 0d  04 83 1c dd f2 6d 61 6b  |.............mak|
0000bc80  65 61 6e 69 6d 66 6f 72  73 61 70 72 28 73 61 76  |eanimforsapr(sav|
0000bc90  65 25 29 0d 04 84 48 e7  28 73 61 76 65 25 80 a4  |e%)...H.(save%..|
0000bca0  69 73 73 65 6c 65 63 74  65 64 28 73 61 61 6e 69  |isselected(saani|
0000bcb0  6d 77 25 2c 35 29 29 84  28 28 ac 73 61 76 65 25  |mw%,5)).((.save%|
0000bcc0  29 80 a4 69 73 73 65 6c  65 63 74 65 64 28 70 72  |)..isselected(pr|
0000bcd0  61 6e 69 6d 77 25 2c 31  29 29 8c 0d 04 85 4d 20  |animw%,1))....M |
0000bce0  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
0000bcf0  2c 22 62 77 22 2b c3 28  61 63 74 69 76 65 69 63  |,"bw"+.(activeic|
0000bd00  6e 25 29 2b c3 28 61 63  74 69 76 65 77 25 29 2c  |n%)+.(activew%),|
0000bd10  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
0000bd20  2c 30 2c 30 2c 31 36 29  0d 04 86 1b 20 e7 74 65  |,0,0,16).... .te|
0000bd30  78 74 6f 6e 25 3a f2 61  64 64 6c 69 6e 65 73 28  |xton%:.addlines(|
0000bd40  2d 31 29 0d 04 87 05 cc  0d 04 88 1a 20 e7 74 65  |-1)......... .te|
0000bd50  78 74 6f 6e 25 3a f2 61  64 64 6c 69 6e 65 73 28  |xton%:.addlines(|
0000bd60  30 29 0d 04 89 05 cd 0d  04 8a 0d e7 74 65 78 74  |0)..........text|
0000bd70  6f 6e 25 8c 0d 04 8b 55  20 e7 73 61 76 65 25 3a  |on%....U .save%:|
0000bd80  f2 61 6e 69 6d 62 6f 78  65 73 28 a4 69 73 73 65  |.animboxes(.isse|
0000bd90  6c 65 63 74 65 64 28 73  61 61 6e 69 6d 77 25 2c  |lected(saanimw%,|
0000bda0  37 29 29 3a 8b 3a f2 61  6e 69 6d 62 6f 78 65 73  |7)):.:.animboxes|
0000bdb0  28 a4 69 73 73 65 6c 65  63 74 65 64 28 70 72 61  |(.isselected(pra|
0000bdc0  6e 69 6d 77 25 2c 33 29  29 0d 04 8c 05 cd 0d 04  |nimw%,3)).......|
0000bdd0  8d 05 e1 0d 04 8e 04 0d  04 8f 2a dd f2 73 61 76  |..........*..sav|
0000bde0  65 74 65 78 74 66 69 6c  65 28 66 24 2c 66 72 6f  |etextfile(f$,fro|
0000bdf0  6d 64 72 61 67 25 2c 66  69 6c 65 74 65 6d 70 25  |mdrag%,filetemp%|
0000be00  29 0d 04 90 07 ea 20 85  0d 04 91 53 ee 85 ea 3a  |)..... ....S...:|
0000be10  f7 20 85 3a f2 65 72 72  6f 72 28 22 53 61 76 65  |. .:.error("Save|
0000be20  20 6f 66 20 27 22 2b a4  6c 65 61 66 28 a4 67 65  | of '"+.leaf(.ge|
0000be30  74 69 63 6e 73 74 72 69  6e 67 28 65 64 62 6f 78  |ticnstring(edbox|
0000be40  77 25 2c 32 29 29 2b 22  27 20 66 61 69 6c 65 64  |w%,2))+"' failed|
0000be50  2e 20 22 2b f6 24 2c 30  29 3a e1 0d 04 92 0a 58  |. "+.$,0):.....X|
0000be60  3d ae 20 66 24 0d 04 93  12 c8 8e 20 63 75 72 72  |=. f$...... curr|
0000be70  6d 65 6e 75 25 20 ca 0d  04 94 27 20 c9 20 2d 33  |menu% ....' . -3|
0000be80  3a 20 d5 23 58 2c a4 67  65 74 69 63 6e 73 74 72  |: .#X,.geticnstr|
0000be90  69 6e 67 28 61 6e 69 6d  77 25 2c 35 30 29 0d 04  |ing(animw%,50)..|
0000bea0  95 2a 20 20 20 20 20 20  20 20 20 20 d5 23 58 2c  |.*          .#X,|
0000beb0  a4 67 65 74 69 63 6e 73  74 72 69 6e 67 28 61 6e  |.geticnstring(an|
0000bec0  69 6d 77 25 2c 35 31 29  0d 04 96 40 20 c9 20 2d  |imw%,51)...@ . -|
0000bed0  34 3a 20 e3 6a 25 3d 30  b8 74 6f 74 73 79 73 74  |4: .j%=0.totsyst|
0000bee0  74 78 74 6c 69 6e 65 73  25 3a d5 23 58 2c a4 67  |txtlines%:.#X,.g|
0000bef0  65 74 69 63 6e 73 74 72  69 6e 67 28 64 65 66 6e  |eticnstring(defn|
0000bf00  77 25 2c 6a 25 29 3a ed  0d 04 97 05 cb 0d 04 98  |w%,j%):.........|
0000bf10  07 d9 23 58 0d 04 99 07  f7 20 85 0d 04 9a 11 e7  |..#X..... ......|
0000bf20  ac 66 72 6f 6d 64 72 61  67 25 20 8c 0d 04 9b 35  |.fromdrag% ....5|
0000bf30  ff 22 53 45 54 54 59 50  45 20 22 2b 66 24 2b 22  |."SETTYPE "+f$+"|
0000bf40  20 66 66 66 22 3a f2 70  75 74 69 63 6e 73 74 72  | fff":.puticnstr|
0000bf50  69 6e 67 28 65 64 62 6f  78 77 25 2c 32 2c 66 24  |ing(edboxw%,2,f$|
0000bf60  29 0d 04 9c 05 cc 0d 04  9d 45 20 e7 66 69 6c 65  |)........E .file|
0000bf70  74 65 6d 70 25 3c 3e 2d  31 3a ff 22 53 45 54 54  |temp%<>-1:."SETT|
0000bf80  59 50 45 20 22 2b 66 24  2b 22 20 66 66 66 22 3a  |YPE "+f$+" fff":|
0000bf90  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 65 64  |.puticnstring(ed|
0000bfa0  62 6f 78 77 25 2c 32 2c  66 24 29 0d 04 9e 05 cd  |boxw%,2,f$).....|
0000bfb0  0d 04 9f 21 c8 99 20 22  57 69 6d 70 5f 53 65 74  |...!.. "Wimp_Set|
0000bfc0  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 2d  |CaretPosition",-|
0000bfd0  31 0d 04 a0 05 e1 0d 04  a1 04 0d 04 a2 12 dd a4  |1...............|
0000bfe0  66 69 6c 65 74 79 70 65  28 61 24 29 0d 04 a3 1b  |filetype(a$)....|
0000bff0  c8 99 20 22 58 4f 53 5f  46 69 6c 65 22 2c 35 2c  |.. "XOS_File",5,|
0000c000  61 24 20 b8 20 61 25 0d  04 a4 07 3d 61 25 0d 04  |a$ . a%....=a%..|
0000c010  a5 04 0d 04 a6 0d dd f2  72 65 63 65 69 76 65 0d  |........receive.|
0000c020  04 a7 0f c8 8e 20 65 62  25 21 31 36 20 ca 0d 04  |..... eb%!16 ...|
0000c030  a8 14 20 20 c9 20 30 3a  20 71 75 69 74 25 20 3d  |..  . 0: quit% =|
0000c040  20 b9 0d 04 a9 2f 20 20  c9 20 32 3a 20 e3 6a 25  | ..../  . 2: .j%|
0000c050  3d 30 b8 28 21 62 6c 6b  25 2d 31 29 88 34 3a 62  |=0.(!blk%-1).4:b|
0000c060  6c 6b 32 25 21 6a 25 3d  62 6c 6b 25 21 6a 25 3a  |lk2%!j%=blk%!j%:|
0000c070  ed 0d 04 aa 1d 20 20 20  20 20 20 20 20 20 20 e7  |.....          .|
0000c080  20 62 6c 6b 32 25 21 33  36 3d 2d 31 20 8c 0d 04  | blk2%!36=-1 ...|
0000c090  ab 23 20 20 20 20 20 20  20 20 20 20 20 e7 20 a4  |.#           . .|
0000c0a0  77 69 6d 70 73 63 72 61  70 65 78 69 73 74 73 20  |wimpscrapexists |
0000c0b0  8c 0d 04 ac 1e 20 20 20  20 20 20 20 20 20 20 20  |.....           |
0000c0c0  20 c8 8e 20 64 72 61 67  67 69 6e 67 25 20 ca 0d  | .. dragging% ..|
0000c0d0  04 ad 59 20 20 20 20 20  20 20 20 20 20 20 20 20  |..Y             |
0000c0e0  c9 20 31 3a 20 f2 73 61  76 65 73 70 72 69 74 65  |. 1: .savesprite|
0000c0f0  66 69 6c 65 28 a4 72 65  61 64 73 74 72 69 6e 67  |file(.readstring|
0000c100  28 62 6c 6b 32 25 2b 34  34 29 2c 2d 31 2c 62 6c  |(blk2%+44),-1,bl|
0000c110  6b 32 25 21 33 36 29 3a  f2 73 65 6e 64 6c 6f 61  |k2%!36):.sendloa|
0000c120  64 73 70 72 6d 65 73 73  0d 04 ae 57 20 20 20 20  |dsprmess...W    |
0000c130  20 20 20 20 20 20 20 20  20 c9 20 32 3a 20 f2 73  |         . 2: .s|
0000c140  61 76 65 74 65 78 74 66  69 6c 65 28 a4 72 65 61  |avetextfile(.rea|
0000c150  64 73 74 72 69 6e 67 28  62 6c 6b 32 25 2b 34 34  |dstring(blk2%+44|
0000c160  29 2c 2d 31 2c 62 6c 6b  32 25 21 33 36 29 3a f2  |),-1,blk2%!36):.|
0000c170  73 65 6e 64 6c 6f 61 64  74 78 74 6d 65 73 73 0d  |sendloadtxtmess.|
0000c180  04 af 11 20 20 20 20 20  20 20 20 20 20 20 20 cb  |...            .|
0000c190  0d 04 b0 10 20 20 20 20  20 20 20 20 20 20 20 cd  |....           .|
0000c1a0  0d 04 b1 0f 20 20 20 20  20 20 20 20 20 20 cc 0d  |....          ..|
0000c1b0  04 b2 1d 20 20 20 20 20  20 20 20 20 20 20 c8 8e  |...           ..|
0000c1c0  20 64 72 61 67 67 69 6e  67 25 20 ca 0d 04 b3 58  | dragging% ....X|
0000c1d0  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 31 3a  |            . 1:|
0000c1e0  20 f2 73 61 76 65 73 70  72 69 74 65 66 69 6c 65  | .savespritefile|
0000c1f0  28 a4 72 65 61 64 73 74  72 69 6e 67 28 62 6c 6b  |(.readstring(blk|
0000c200  32 25 2b 34 34 29 2c 2d  31 2c 62 6c 6b 32 25 21  |2%+44),-1,blk2%!|
0000c210  33 36 29 3a f2 73 65 6e  64 6c 6f 61 64 73 70 72  |36):.sendloadspr|
0000c220  6d 65 73 73 0d 04 b4 56  20 20 20 20 20 20 20 20  |mess...V        |
0000c230  20 20 20 20 c9 20 32 3a  20 f2 73 61 76 65 74 65  |    . 2: .savete|
0000c240  78 74 66 69 6c 65 28 a4  72 65 61 64 73 74 72 69  |xtfile(.readstri|
0000c250  6e 67 28 62 6c 6b 32 25  2b 34 34 29 2c 2d 31 2c  |ng(blk2%+44),-1,|
0000c260  62 6c 6b 32 25 21 33 36  29 3a f2 73 65 6e 64 6c  |blk2%!36):.sendl|
0000c270  6f 61 64 74 78 74 6d 65  73 73 0d 04 b5 10 20 20  |oadtxtmess....  |
0000c280  20 20 20 20 20 20 20 20  20 cb 0d 04 b6 0f 20 20  |         .....  |
0000c290  20 20 20 20 20 20 20 20  cd 0d 04 b7 31 20 20 c9  |        ....1  .|
0000c2a0  20 34 3a 20 e7 62 6c 6b  25 21 31 32 3d 6d 79 72  | 4: .blk%!12=myr|
0000c2b0  65 66 25 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |ef%:.."Wimp_Crea|
0000c2c0  74 65 4d 65 6e 75 22 2c  2d 31 0d 04 b8 33 20 20  |teMenu",-1...3  |
0000c2d0  c9 20 36 3a 20 e7 64 72  61 67 67 69 6e 67 25 3d  |. 6: .dragging%=|
0000c2e0  31 3a f2 72 61 6d 66 65  74 63 68 73 70 72 3a 8b  |1:.ramfetchspr:.|
0000c2f0  3a f2 72 61 6d 66 65 74  63 68 74 78 74 0d 04 b9  |:.ramfetchtxt...|
0000c300  1b 20 20 c9 20 26 34 30  30 43 31 3a 20 f2 6d 6f  |.  . &400C1: .mo|
0000c310  64 65 63 68 61 6e 67 65  0d 04 ba 05 cb 0d 04 bb  |dechange........|
0000c320  05 e1 0d 04 bc 04 0d 04  bd 11 dd f2 72 61 6d 66  |............ramf|
0000c330  65 74 63 68 73 70 72 0d  04 be 0b ea 20 61 72 65  |etchspr..... are|
0000c340  61 25 0d 04 bf 14 e7 66  69 72 73 74 72 61 6d 66  |a%.....firstramf|
0000c350  65 74 63 68 25 8c 0d 04  c0 22 20 e3 6a 25 3d 30  |etch%...." .j%=0|
0000c360  b8 32 34 88 34 3a 62 6c  6b 32 25 21 6a 25 3d 62  |.24.4:blk2%!j%=b|
0000c370  6c 6b 25 21 6a 25 3a ed  0d 04 c1 15 20 66 69 72  |lk%!j%:..... fir|
0000c380  73 74 72 61 6d 66 65 74  63 68 25 3d 30 0d 04 c2  |stramfetch%=0...|
0000c390  13 20 e7 63 75 72 72 6d  65 6e 75 25 3d 2d 32 8c  |. .currmenu%=-2.|
0000c3a0  0d 04 c3 1a 20 20 f2 6d  61 6b 65 62 6f 64 79 66  |....  .makebodyf|
0000c3b0  6f 72 73 61 70 72 28 2d  31 29 0d 04 c4 3d f4 20  |orsapr(-1)...=. |
0000c3c0  20 49 46 46 4e 69 73 6f  70 65 6e 28 73 79 73 74  | IFFNisopen(syst|
0000c3d0  77 25 29 41 4e 44 28 46  4e 6e 6f 5f 73 79 73 74  |w%)AND(FNno_syst|
0000c3e0  65 6d 73 5f 6f 6e 3d 31  29 3a 50 52 4f 43 62 6f  |ems_on=1):PROCbo|
0000c3f0  64 79 62 6f 78 65 73 0d  04 c5 2a 20 20 73 70 24  |dyboxes...*  sp$|
0000c400  3d a4 6c 65 61 66 28 a4  67 65 74 69 63 6e 73 74  |=.leaf(.geticnst|
0000c410  72 69 6e 67 28 73 61 62  6f 64 79 77 25 2c 31 29  |ring(sabodyw%,1)|
0000c420  29 0d 04 c6 30 20 20 c8  99 22 58 4f 53 5f 53 70  |)...0  .."XOS_Sp|
0000c430  72 69 74 65 4f 70 22 2c  26 31 31 41 2c 62 6f 64  |riteOp",&11A,bod|
0000c440  79 61 72 65 61 25 2c 22  62 6f 64 79 22 2c 73 70  |yarea%,"body",sp|
0000c450  24 0d 04 c7 06 20 cc 0d  04 c8 13 20 20 e7 ac 64  |$.... .....  ..d|
0000c460  6f 69 6e 67 6d 6f 76 65  25 8c 0d 04 c9 2a 20 20  |oingmove%....*  |
0000c470  20 e7 a4 69 73 73 65 6c  65 63 74 65 64 28 73 61  | ..isselected(sa|
0000c480  61 6e 69 6d 77 25 2c 35  29 3a f2 67 65 74 62 77  |animw%,5):.getbw|
0000c490  66 69 6c 65 0d 04 ca 1b  20 20 20 f2 6d 61 6b 65  |file....   .make|
0000c4a0  61 6e 69 6d 66 6f 72 73  61 70 72 28 2d 31 29 0d  |animforsapr(-1).|
0000c4b0  04 cb 07 20 20 cd 0d 04  cc 2d f4 20 20 49 46 46  |...  ....-.  IFF|
0000c4c0  4e 69 73 73 65 6c 65 63  74 65 64 28 61 6e 69 6d  |Nisselected(anim|
0000c4d0  77 25 2c 30 29 3a 50 52  4f 43 61 6e 69 6d 62 6f  |w%,0):PROCanimbo|
0000c4e0  78 65 73 0d 04 cd 2a 20  20 73 70 24 3d a4 6c 65  |xes...*  sp$=.le|
0000c4f0  61 66 28 a4 67 65 74 69  63 6e 73 74 72 69 6e 67  |af(.geticnstring|
0000c500  28 73 61 61 6e 69 6d 77  25 2c 31 29 29 0d 04 ce  |(saanimw%,1))...|
0000c510  30 20 20 c8 99 22 58 4f  53 5f 53 70 72 69 74 65  |0  .."XOS_Sprite|
0000c520  4f 70 22 2c 26 31 31 41  2c 61 6e 69 6d 61 72 65  |Op",&11A,animare|
0000c530  61 25 2c 22 61 6e 69 6d  22 2c 73 70 24 0d 04 cf  |a%,"anim",sp$...|
0000c540  06 20 cd 0d 04 d0 22 20  e3 6a 25 3d 30 b8 32 34  |. ...." .j%=0.24|
0000c550  88 34 3a 62 6c 6b 25 21  6a 25 3d 62 6c 6b 32 25  |.4:blk%!j%=blk2%|
0000c560  21 6a 25 3a ed 0d 04 d1  05 cd 0d 04 d2 33 e7 63  |!j%:.........3.c|
0000c570  75 72 72 6d 65 6e 75 25  3d 2d 32 3a 61 72 65 61  |urrmenu%=-2:area|
0000c580  25 3d 62 6f 64 79 61 72  65 61 25 3a 8b 3a 61 72  |%=bodyarea%:.:ar|
0000c590  65 61 25 3d 61 6e 69 6d  61 72 65 61 25 0d 04 d3  |ea%=animarea%...|
0000c5a0  13 65 78 74 61 73 6b 68  25 3d 62 6c 6b 25 21 34  |.extaskh%=blk%!4|
0000c5b0  0d 04 d4 28 e7 28 61 72  65 61 25 21 31 32 2d 72  |...(.(area%!12-r|
0000c5c0  61 6d 62 79 74 65 73 64  6f 6e 65 25 29 3c 28 62  |ambytesdone%)<(b|
0000c5d0  6c 6b 25 21 32 34 29 8c  0d 04 d5 5e 20 c8 99 22  |lk%!24)....^ .."|
0000c5e0  57 69 6d 70 5f 54 72 61  6e 73 66 65 72 42 6c 6f  |Wimp_TransferBlo|
0000c5f0  63 6b 22 2c 74 61 73 6b  68 25 2c 61 72 65 61 25  |ck",taskh%,area%|
0000c600  2b 72 61 6d 62 79 74 65  73 64 6f 6e 65 25 2c 65  |+rambytesdone%,e|
0000c610  78 74 61 73 6b 68 25 2c  62 6c 6b 25 21 32 30 2c  |xtaskh%,blk%!20,|
0000c620  61 72 65 61 25 21 31 32  2d 72 61 6d 62 79 74 65  |area%!12-rambyte|
0000c630  73 64 6f 6e 65 25 0d 04  d6 3c 20 62 6c 6b 25 21  |sdone%...< blk%!|
0000c640  31 32 3d 62 6c 6b 25 21  38 3a 62 6c 6b 25 21 31  |12=blk%!8:blk%!1|
0000c650  36 3d 37 3a 62 6c 6b 25  21 32 34 3d 61 72 65 61  |6=7:blk%!24=area|
0000c660  25 21 31 32 2d 72 61 6d  62 79 74 65 73 64 6f 6e  |%!12-rambytesdon|
0000c670  65 25 0d 04 d7 39 20 c8  99 20 22 57 69 6d 70 5f  |e%...9 .. "Wimp_|
0000c680  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
0000c690  62 6c 6b 25 2c 65 78 74  61 73 6b 68 25 3a 6d 79  |blk%,extaskh%:my|
0000c6a0  72 65 66 25 3d 62 6c 6b  25 21 38 0d 04 d8 1d 20  |ref%=blk%!8.... |
0000c6b0  72 61 6d 62 79 74 65 73  64 6f 6e 65 25 3d 61 72  |rambytesdone%=ar|
0000c6c0  65 61 25 21 31 32 2d 34  0d 04 d9 13 20 e7 63 75  |ea%!12-4.... .cu|
0000c6d0  72 72 6d 65 6e 75 25 3d  2d 32 8c 0d 04 da 2a 20  |rrmenu%=-2....* |
0000c6e0  20 73 70 24 3d a4 6c 65  61 66 28 a4 67 65 74 69  | sp$=.leaf(.geti|
0000c6f0  63 6e 73 74 72 69 6e 67  28 73 61 62 6f 64 79 77  |cnstring(sabodyw|
0000c700  25 2c 31 29 29 0d 04 db  30 20 20 c8 99 22 58 4f  |%,1))...0  .."XO|
0000c710  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 41  |S_SpriteOp",&11A|
0000c720  2c 62 6f 64 79 61 72 65  61 25 2c 73 70 24 2c 22  |,bodyarea%,sp$,"|
0000c730  62 6f 64 79 22 0d 04 dc  34 20 20 e7 a4 69 73 6f  |body"...4  ..iso|
0000c740  70 65 6e 28 73 79 73 74  77 25 29 3a f2 70 6c 6f  |pen(systw%):.plo|
0000c750  74 62 6f 64 79 73 79 73  74 3a 8b 3a f2 70 6c 6f  |tbodysyst:.:.plo|
0000c760  74 62 6f 64 79 6f 72 67  73 0d 04 dd 40 f4 20 20  |tbodyorgs...@.  |
0000c770  49 46 46 4e 69 73 6f 70  65 6e 28 73 79 73 74 77  |IFFNisopen(systw|
0000c780  25 29 41 4e 44 28 46 4e  6e 6f 5f 73 79 73 74 65  |%)AND(FNno_syste|
0000c790  6d 73 5f 6f 6e 3d 31 29  3a 50 52 4f 43 70 6c 6f  |ms_on=1):PROCplo|
0000c7a0  74 62 6f 64 79 73 79 73  74 0d 04 de 06 20 cc 0d  |tbodysyst.... ..|
0000c7b0  04 df 2a 20 20 73 70 24  3d a4 6c 65 61 66 28 a4  |..*  sp$=.leaf(.|
0000c7c0  67 65 74 69 63 6e 73 74  72 69 6e 67 28 73 61 61  |geticnstring(saa|
0000c7d0  6e 69 6d 77 25 2c 31 29  29 0d 04 e0 30 20 20 c8  |nimw%,1))...0  .|
0000c7e0  99 22 58 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |."XOS_SpriteOp",|
0000c7f0  26 31 31 41 2c 61 6e 69  6d 61 72 65 61 25 2c 73  |&11A,animarea%,s|
0000c800  70 24 2c 22 61 6e 69 6d  22 0d 04 e1 13 20 20 e7  |p$,"anim"....  .|
0000c810  ac 64 6f 69 6e 67 6d 6f  76 65 25 8c 0d 04 e2 90  |.doingmove%.....|
0000c820  20 20 20 e7 a4 69 73 73  65 6c 65 63 74 65 64 28  |   ..isselected(|
0000c830  73 61 61 6e 69 6d 77 25  2c 35 29 80 28 28 61 63  |saanimw%,5).((ac|
0000c840  74 69 76 65 69 63 6e 25  3d 34 29 84 28 61 63 74  |tiveicn%=4).(act|
0000c850  69 76 65 69 63 6e 25 3d  37 29 84 28 61 63 74 69  |iveicn%=7).(acti|
0000c860  76 65 69 63 6e 25 3d 31  33 29 84 28 61 63 74 69  |veicn%=13).(acti|
0000c870  76 65 69 63 6e 25 3d 31  34 29 84 28 61 63 74 69  |veicn%=14).(acti|
0000c880  76 65 69 63 6e 25 3d 31  35 29 84 28 61 63 74 69  |veicn%=15).(acti|
0000c890  76 65 69 63 6e 25 3d 31  37 29 84 28 61 63 74 69  |veicn%=17).(acti|
0000c8a0  76 65 69 63 6e 25 3d 32  33 29 29 8c 0d 04 e3 6c  |veicn%=23))....l|
0000c8b0  20 20 20 20 e7 59 25 3d  30 20 74 65 73 74 25 3d  |    .Y%=0 test%=|
0000c8c0  30 3a f5 3a f2 66 6c 6f  70 70 79 5f 64 69 73 6b  |0:.:.floppy_disk|
0000c8d0  28 22 62 6f 64 79 77 69  73 65 22 2c 22 24 2e 21  |("bodywise","$.!|
0000c8e0  42 6f 64 79 77 69 73 65  2e 22 2b 61 6e 69 6d 66  |Bodywise."+animf|
0000c8f0  69 6c 65 24 28 61 63 74  69 76 65 69 63 6e 25 2c  |ile$(activeicn%,|
0000c900  30 29 2b 22 5f 63 22 2c  22 22 2c 22 22 29 3a fd  |0)+"_c","",""):.|
0000c910  65 72 72 6f 72 25 3d 30  0d 04 e4 5a 20 20 20 20  |error%=0...Z    |
0000c920  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
0000c930  2c 26 31 30 41 2c 64 65  74 61 72 65 61 25 2c 22  |,&10A,detarea%,"|
0000c940  3c 42 6f 64 79 57 69 73  65 24 63 68 61 69 6e 64  |<BodyWise$chaind|
0000c950  69 72 3e 2e 22 2b 61 6e  69 6d 66 69 6c 65 24 28  |ir>."+animfile$(|
0000c960  61 63 74 69 76 65 69 63  6e 25 2c 30 29 2b 22 5f  |activeicn%,0)+"_|
0000c970  63 22 0d 04 e5 63 20 20  20 20 c8 99 20 22 58 4f  |c"...c    .. "XO|
0000c980  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 39  |S_SpriteOp",&119|
0000c990  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0000c9a0  22 3a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |":.. "OS_SpriteO|
0000c9b0  70 22 2c 26 31 30 46 2c  61 6e 69 6d 61 72 65 61  |p",&10F,animarea|
0000c9c0  25 2c 22 61 6e 69 6d 22  2c 31 2c 33 38 34 2c 31  |%,"anim",1,384,1|
0000c9d0  35 34 2c 31 32 0d 04 e6  3c 20 20 20 20 f2 61 64  |54,12...<    .ad|
0000c9e0  64 70 61 6c 65 74 28 61  6e 69 6d 61 72 65 61 25  |dpalet(animarea%|
0000c9f0  2c 22 61 6e 69 6d 22 29  3a f2 6d 61 6b 65 73 70  |,"anim"):.makesp|
0000ca00  72 69 74 65 73 28 61 63  74 69 76 65 69 63 6e 25  |rites(activeicn%|
0000ca10  29 0d 04 e7 08 20 20 20  cd 0d 04 e8 26 20 20 20  |)....   ....&   |
0000ca20  f2 6d 61 6b 65 6f 72 67  61 6e 28 61 63 74 69 76  |.makeorgan(activ|
0000ca30  65 77 25 2c 61 63 74 69  76 65 69 63 6e 25 29 0d  |ew%,activeicn%).|
0000ca40  04 e9 53 20 20 20 e7 a4  69 73 73 65 6c 65 63 74  |..S   ..isselect|
0000ca50  65 64 28 61 6e 69 6d 77  25 2c 30 29 3a f2 61 64  |ed(animw%,0):.ad|
0000ca60  64 6c 69 6e 65 73 28 30  29 3a f2 70 6c 6f 74 61  |dlines(0):.plota|
0000ca70  6e 69 6d 3a f2 61 64 64  6c 61 62 65 6c 73 3a f2  |nim:.addlabels:.|
0000ca80  61 64 64 77 6f 72 64 73  28 61 63 74 69 76 65 77  |addwords(activew|
0000ca90  25 29 0d 04 ea 07 20 20  cd 0d 04 eb 81 f4 20 20  |%)....  ......  |
0000caa0  49 46 46 4e 69 73 73 65  6c 65 63 74 65 64 28 61  |IFFNisselected(a|
0000cab0  6e 69 6d 77 25 2c 30 29  3a 50 52 4f 43 6d 61 6b  |nimw%,0):PROCmak|
0000cac0  65 6f 72 67 61 6e 28 61  63 74 69 76 65 77 25 2c  |eorgan(activew%,|
0000cad0  61 63 74 69 76 65 69 63  6e 25 29 3a 50 52 4f 43  |activeicn%):PROC|
0000cae0  61 64 64 6c 69 6e 65 73  3a 50 52 4f 43 70 6c 6f  |addlines:PROCplo|
0000caf0  74 61 6e 69 6d 3a 50 52  4f 43 61 64 64 6c 61 62  |tanim:PROCaddlab|
0000cb00  65 6c 73 3a 50 52 4f 43  61 64 64 77 6f 72 64 73  |els:PROCaddwords|
0000cb10  28 61 63 74 69 76 65 77  25 29 0d 04 ec 06 20 cd  |(activew%).... .|
0000cb20  0d 04 ed 1b 20 c8 99 22  57 69 6d 70 5f 43 72 65  |.... .."Wimp_Cre|
0000cb30  61 74 65 4d 65 6e 75 22  2c 2d 31 0d 04 ee 05 cc  |ateMenu",-1.....|
0000cb40  0d 04 ef 4f 20 c8 99 22  57 69 6d 70 5f 54 72 61  |...O .."Wimp_Tra|
0000cb50  6e 73 66 65 72 42 6c 6f  63 6b 22 2c 74 61 73 6b  |nsferBlock",task|
0000cb60  68 25 2c 61 72 65 61 25  2b 72 61 6d 62 79 74 65  |h%,area%+rambyte|
0000cb70  73 64 6f 6e 65 25 2c 65  78 74 61 73 6b 68 25 2c  |sdone%,extaskh%,|
0000cb80  62 6c 6b 25 21 32 30 2c  62 6c 6b 25 21 32 34 0d  |blk%!20,blk%!24.|
0000cb90  04 f0 1d 20 62 6c 6b 25  21 31 32 3d 62 6c 6b 25  |... blk%!12=blk%|
0000cba0  21 38 3a 62 6c 6b 25 21  31 36 3d 37 0d 04 f1 39  |!8:blk%!16=7...9|
0000cbb0  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
0000cbc0  73 73 61 67 65 22 2c 31  38 2c 62 6c 6b 25 2c 65  |ssage",18,blk%,e|
0000cbd0  78 74 61 73 6b 68 25 3a  6d 79 72 65 66 25 3d 62  |xtaskh%:myref%=b|
0000cbe0  6c 6b 25 21 38 0d 04 f2  1d 20 72 61 6d 62 79 74  |lk%!8.... rambyt|
0000cbf0  65 73 64 6f 6e 65 25 2b  3d 28 62 6c 6b 25 21 32  |esdone%+=(blk%!2|
0000cc00  34 29 0d 04 f3 05 cd 0d  04 f4 05 e1 0d 04 f5 04  |4)..............|
0000cc10  0d 04 f6 11 dd f2 72 61  6d 66 65 74 63 68 74 78  |......ramfetchtx|
0000cc20  74 0d 04 f7 0b ea 20 6a  25 2c 61 24 0d 04 f8 21  |t..... j%,a$...!|
0000cc30  e3 6a 25 3d 30 b8 32 34  88 34 3a 62 6c 6b 32 25  |.j%=0.24.4:blk2%|
0000cc40  21 6a 25 3d 62 6c 6b 25  21 6a 25 3a ed 0d 04 f9  |!j%=blk%!j%:....|
0000cc50  52 e7 63 75 72 72 6d 65  6e 75 25 3d 2d 33 3a 62  |R.currmenu%=-3:b|
0000cc60  65 67 74 78 74 25 3d 30  3a e3 6a 25 3d 35 30 b8  |egtxt%=0:.j%=50.|
0000cc70  35 31 3a f2 73 74 72 69  6e 67 74 6f 74 78 74 62  |51:.stringtotxtb|
0000cc80  75 66 66 28 a4 67 65 74  69 63 6e 73 74 72 69 6e  |uff(.geticnstrin|
0000cc90  67 28 61 6e 69 6d 77 25  2c 6a 25 29 29 3a ed 0d  |g(animw%,j%)):..|
0000cca0  04 fa 5f e7 63 75 72 72  6d 65 6e 75 25 3d 2d 34  |.._.currmenu%=-4|
0000ccb0  3a 62 65 67 74 78 74 25  3d 30 3a e3 6a 25 3d 30  |:begtxt%=0:.j%=0|
0000ccc0  b8 74 6f 74 73 79 73 74  74 78 74 6c 69 6e 65 73  |.totsysttxtlines|
0000ccd0  25 3a f2 73 74 72 69 6e  67 74 6f 74 78 74 62 75  |%:.stringtotxtbu|
0000cce0  66 66 28 a4 67 65 74 69  63 6e 73 74 72 69 6e 67  |ff(.geticnstring|
0000ccf0  28 64 65 66 6e 77 25 2c  6a 25 29 29 3a ed 0d 04  |(defnw%,j%)):...|
0000cd00  fb 21 e3 6a 25 3d 30 b8  32 34 88 34 3a 62 6c 6b  |.!.j%=0.24.4:blk|
0000cd10  25 21 6a 25 3d 62 6c 6b  32 25 21 6a 25 3a ed 0d  |%!j%=blk2%!j%:..|
0000cd20  04 fc 13 65 78 74 61 73  6b 68 25 3d 62 6c 6b 25  |...extaskh%=blk%|
0000cd30  21 34 0d 04 fd 27 e7 28  62 65 67 74 78 74 25 2d  |!4...'.(begtxt%-|
0000cd40  72 61 6d 62 79 74 65 73  64 6f 6e 65 25 29 3c 28  |rambytesdone%)<(|
0000cd50  62 6c 6b 25 21 32 34 29  8c 0d 04 fe 52 20 c8 99  |blk%!24)....R ..|
0000cd60  22 57 69 6d 70 5f 54 72  61 6e 73 66 65 72 42 6c  |"Wimp_TransferBl|
0000cd70  6f 63 6b 22 2c 74 61 73  6b 68 25 2c 74 78 74 62  |ock",taskh%,txtb|
0000cd80  75 66 66 25 2c 65 78 74  61 73 6b 68 25 2c 62 6c  |uff%,extaskh%,bl|
0000cd90  6b 25 21 32 30 2c 62 65  67 74 78 74 25 2d 72 61  |k%!20,begtxt%-ra|
0000cda0  6d 62 79 74 65 73 64 6f  6e 65 25 0d 04 ff 3b 20  |mbytesdone%...; |
0000cdb0  62 6c 6b 25 21 31 32 3d  62 6c 6b 25 21 38 3a 62  |blk%!12=blk%!8:b|
0000cdc0  6c 6b 25 21 31 36 3d 37  3a 62 6c 6b 25 21 32 34  |lk%!16=7:blk%!24|
0000cdd0  3d 62 65 67 74 78 74 25  2d 72 61 6d 62 79 74 65  |=begtxt%-rambyte|
0000cde0  73 64 6f 6e 65 25 0d 05  00 39 20 c8 99 20 22 57  |sdone%...9 .. "W|
0000cdf0  69 6d 70 5f 53 65 6e 64  4d 65 73 73 61 67 65 22  |imp_SendMessage"|
0000ce00  2c 31 37 2c 62 6c 6b 25  2c 65 78 74 61 73 6b 68  |,17,blk%,extaskh|
0000ce10  25 3a 6d 79 72 65 66 25  3d 62 6c 6b 25 21 38 0d  |%:myref%=blk%!8.|
0000ce20  05 01 1a 20 72 61 6d 62  79 74 65 73 64 6f 6e 65  |... rambytesdone|
0000ce30  25 3d 62 65 67 74 78 74  25 0d 05 02 1b 20 c8 99  |%=begtxt%.... ..|
0000ce40  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
0000ce50  22 2c 2d 31 0d 05 03 05  cc 0d 05 04 44 20 c8 99  |",-1........D ..|
0000ce60  22 57 69 6d 70 5f 54 72  61 6e 73 66 65 72 42 6c  |"Wimp_TransferBl|
0000ce70  6f 63 6b 22 2c 74 61 73  6b 68 25 2c 74 78 74 62  |ock",taskh%,txtb|
0000ce80  75 66 66 25 2c 65 78 74  61 73 6b 68 25 2c 62 6c  |uff%,extaskh%,bl|
0000ce90  6b 25 21 32 30 2c 62 6c  6b 25 21 32 34 0d 05 05  |k%!20,blk%!24...|
0000cea0  1d 20 62 6c 6b 25 21 31  32 3d 62 6c 6b 25 21 38  |. blk%!12=blk%!8|
0000ceb0  3a 62 6c 6b 25 21 31 36  3d 37 0d 05 06 39 20 c8  |:blk%!16=7...9 .|
0000cec0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
0000ced0  61 67 65 22 2c 31 38 2c  62 6c 6b 25 2c 65 78 74  |age",18,blk%,ext|
0000cee0  61 73 6b 68 25 3a 6d 79  72 65 66 25 3d 62 6c 6b  |askh%:myref%=blk|
0000cef0  25 21 38 0d 05 07 1d 20  72 61 6d 62 79 74 65 73  |%!8.... rambytes|
0000cf00  64 6f 6e 65 25 2b 3d 28  62 6c 6b 25 21 32 34 29  |done%+=(blk%!24)|
0000cf10  0d 05 08 05 cd 0d 05 09  05 e1 0d 05 0a 04 0d 05  |................|
0000cf20  0b 19 dd f2 73 74 72 69  6e 67 74 6f 74 78 74 62  |....stringtotxtb|
0000cf30  75 66 66 28 73 24 29 0d  05 0c 1a 24 28 74 78 74  |uff(s$)....$(txt|
0000cf40  62 75 66 66 25 2b 62 65  67 74 78 74 25 29 3d 73  |buff%+begtxt%)=s|
0000cf50  24 0d 05 0d 31 62 65 67  74 78 74 25 2b 3d a9 28  |$...1begtxt%+=.(|
0000cf60  73 24 29 3a 74 78 74 62  75 66 66 25 3f 62 65 67  |s$):txtbuff%?beg|
0000cf70  74 78 74 25 3d 31 30 3a  62 65 67 74 78 74 25 2b  |txt%=10:begtxt%+|
0000cf80  3d 31 0d 05 0e 05 e1 0d  05 0f 04 0d 05 10 10 dd  |=1..............|
0000cf90  f2 72 65 63 65 69 76 65  61 63 6b 0d 05 11 0f c8  |.receiveack.....|
0000cfa0  8e 20 65 62 25 21 31 36  20 ca 0d 05 12 3d 20 20  |. eb%!16 ....=  |
0000cfb0  c9 20 33 3a 20 e7 6d 79  72 65 66 25 3d 62 6c 6b  |. 3: .myref%=blk|
0000cfc0  25 21 38 3a f2 72 65 63  65 69 76 65 72 64 69 65  |%!8:.receiverdie|
0000cfd0  64 28 a4 72 65 61 64 73  74 72 69 6e 67 28 62 6c  |d(.readstring(bl|
0000cfe0  6b 25 2b 34 34 29 29 0d  05 13 31 20 20 c9 20 34  |k%+44))...1  . 4|
0000cff0  3a 20 e7 62 6c 6b 25 21  31 32 3d 6d 79 72 65 66  |: .blk%!12=myref|
0000d000  25 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |%:.."Wimp_Create|
0000d010  4d 65 6e 75 22 2c 2d 31  0d 05 14 2a 20 20 c9 20  |Menu",-1...*  . |
0000d020  37 3a 20 e7 6d 79 72 65  66 25 3d 62 6c 6b 25 21  |7: .myref%=blk%!|
0000d030  38 3a f2 72 61 6d 72 65  63 65 69 76 65 72 64 69  |8:.ramreceiverdi|
0000d040  65 64 0d 05 15 05 cb 0d  05 16 05 e1 0d 05 17 04  |ed..............|
0000d050  0d 05 18 16 dd f2 72 65  63 65 69 76 65 72 64 69  |......receiverdi|
0000d060  65 64 28 66 24 29 0d 05  19 16 c8 99 20 22 58 4f  |ed(f$)...... "XO|
0000d070  53 5f 46 69 6c 65 22 2c  36 2c 66 24 0d 05 1a 34  |S_File",6,f$...4|
0000d080  f2 65 72 72 6f 72 28 22  44 61 74 61 20 74 72 61  |.error("Data tra|
0000d090  6e 73 66 65 72 20 66 61  69 6c 65 64 3a 20 52 65  |nsfer failed: Re|
0000d0a0  63 65 69 76 65 72 20 64  69 65 64 2e 22 2c 30 29  |ceiver died.",0)|
0000d0b0  0d 05 1b 05 e1 0d 05 1c  04 0d 05 1d 15 dd f2 72  |...............r|
0000d0c0  61 6d 72 65 63 65 69 76  65 72 64 69 65 64 0d 05  |amreceiverdied..|
0000d0d0  1e 38 f2 65 72 72 6f 72  28 22 52 41 4d 20 64 61  |.8.error("RAM da|
0000d0e0  74 61 20 74 72 61 6e 73  66 65 72 20 66 61 69 6c  |ta transfer fail|
0000d0f0  65 64 3a 20 52 65 63 65  69 76 65 72 20 64 69 65  |ed: Receiver die|
0000d100  64 2e 22 2c 30 29 0d 05  1f 05 e1 0d 05 20 04 0d  |d.",0)....... ..|
0000d110  05 21 1a dd f2 61 64 64  70 61 6c 65 74 28 61 72  |.!...addpalet(ar|
0000d120  65 61 25 2c 73 70 6e 24  29 0d 05 22 2b c8 99 22  |ea%,spn$).."+.."|
0000d130  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
0000d140  38 2c 61 72 65 61 25 2c  73 70 6e 24 20 b8 20 2c  |8,area%,spn$ . ,|
0000d150  2c 72 32 25 0d 05 23 3a  66 25 3d 28 72 32 25 2b  |,r2%..#:f%=(r2%+|
0000d160  34 34 29 3a 74 25 3d 73  70 70 61 6c 65 74 25 3a  |44):t%=sppalet%:|
0000d170  e3 73 25 3d 30 b8 33 31  3a 21 66 25 3d 21 74 25  |.s%=0.31:!f%=!t%|
0000d180  3a 74 25 2b 3d 34 3a 66  25 2b 3d 34 3a ed 0d 05  |:t%+=4:f%+=4:...|
0000d190  24 05 e1 0d 05 25 04 0d  05 26 10 dd f2 6d 6f 64  |$....%...&...mod|
0000d1a0  65 63 68 61 6e 67 65 0d  05 27 43 c8 99 22 57 69  |echange..'C.."Wi|
0000d1b0  6d 70 5f 52 65 61 64 50  69 78 54 72 61 6e 73 22  |mp_ReadPixTrans"|
0000d1c0  2c 26 31 30 30 2c 62 6f  64 79 61 72 65 61 25 2c  |,&100,bodyarea%,|
0000d1d0  22 62 6f 64 79 22 2c 2c  2c 2c 73 63 61 6c 65 25  |"body",,,,scale%|
0000d1e0  2c 63 6f 6c 74 72 61 6e  73 25 0d 05 28 43 62 6f  |,coltrans%..(Cbo|
0000d1f0  64 73 63 61 6c 65 25 21  30 3d 28 73 63 61 6c 65  |dscale%!0=(scale|
0000d200  25 21 30 29 2a 73 70 73  63 61 6c 65 25 3a 62 6f  |%!0)*spscale%:bo|
0000d210  64 73 63 61 6c 65 25 21  34 3d 28 73 63 61 6c 65  |dscale%!4=(scale|
0000d220  25 21 34 29 2a 73 70 73  63 61 6c 65 25 0d 05 29  |%!4)*spscale%..)|
0000d230  2f 62 6f 64 73 63 61 6c  65 25 21 38 3d 73 63 61  |/bodscale%!8=sca|
0000d240  6c 65 25 21 38 3a 62 6f  64 73 63 61 6c 65 25 21  |le%!8:bodscale%!|
0000d250  31 32 3d 73 63 61 6c 65  25 21 31 32 0d 05 2a 57  |12=scale%!12..*W|
0000d260  21 70 69 6e 73 63 61 6c  65 25 3d 21 73 63 61 6c  |!pinscale%=!scal|
0000d270  65 25 3a 70 69 6e 73 63  61 6c 65 25 21 34 3d 73  |e%:pinscale%!4=s|
0000d280  63 61 6c 65 25 21 34 3a  70 69 6e 73 63 61 6c 65  |cale%!4:pinscale|
0000d290  25 21 38 3d 73 63 61 6c  65 25 21 38 3a 70 69 6e  |%!8=scale%!8:pin|
0000d2a0  73 63 61 6c 65 25 21 31  32 3d 73 63 61 6c 65 25  |scale%!12=scale%|
0000d2b0  21 31 32 0d 05 2b 05 e1  0d 05 2c 04 0d 05 2d 18  |!12..+....,...-.|
0000d2c0  dd f2 65 72 72 6f 72 28  6d 73 67 24 2c 65 72 72  |..error(msg$,err|
0000d2d0  6e 6f 25 29 0d 05 2e 0c  f4 43 4c 4f 53 45 23 30  |no%).....CLOSE#0|
0000d2e0  0d 05 2f 15 2a 43 48 41  4e 4e 45 4c 56 4f 49 43  |../.*CHANNELVOIC|
0000d2f0  45 20 31 20 39 0d 05 30  21 21 65 72 72 62 6c 6b  |E 1 9..0!!errblk|
0000d300  25 3d 39 39 3a 24 28 65  72 72 62 6c 6b 25 2b 34  |%=99:$(errblk%+4|
0000d310  29 3d 6d 73 67 24 0d 05  31 2e c8 99 20 22 57 69  |)=msg$..1... "Wi|
0000d320  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
0000d330  65 72 72 62 6c 6b 25 2c  30 2c 22 42 6f 64 79 77  |errblk%,0,"Bodyw|
0000d340  69 73 65 22 0d 05 32 05  e1 0d 05 33 04 0d 05 34  |ise"..2....3...4|
0000d350  1b dd f2 64 69 73 63 6d  65 73 73 28 6d 73 67 24  |...discmess(msg$|
0000d360  2c 65 72 72 6e 6f 25 29  0d 05 35 0c f4 43 4c 4f  |,errno%)..5..CLO|
0000d370  53 45 23 30 0d 05 36 15  2a 43 48 41 4e 4e 45 4c  |SE#0..6.*CHANNEL|
0000d380  56 4f 49 43 45 20 31 20  39 0d 05 37 21 21 65 72  |VOICE 1 9..7!!er|
0000d390  72 62 6c 6b 25 3d 39 39  3a 24 28 65 72 72 62 6c  |rblk%=99:$(errbl|
0000d3a0  6b 25 2b 34 29 3d 6d 73  67 24 0d 05 38 33 c8 99  |k%+4)=msg$..83..|
0000d3b0  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
0000d3c0  6f 72 22 2c 65 72 72 62  6c 6b 25 2c 25 31 30 30  |or",errblk%,%100|
0000d3d0  30 30 2c 22 42 6f 64 79  77 69 73 65 22 0d 05 39  |00,"Bodywise"..9|
0000d3e0  05 e1 0d 05 3a 04 0d 05  3b 19 dd f2 73 65 6c 65  |....:...;...sele|
0000d3f0  63 74 69 63 6e 28 77 25  2c 69 25 2c 66 25 29 0d  |cticn(w%,i%,f%).|
0000d400  05 3c 46 21 62 6c 6b 25  3d 77 25 3a 62 6c 6b 25  |.<F!blk%=w%:blk%|
0000d410  21 34 3d 69 25 3a 62 6c  6b 25 21 31 32 3d 28 31  |!4=i%:blk%!12=(1|
0000d420  3c 3c 32 31 29 3a e7 66  25 3d 30 20 62 6c 6b 25  |<<21):.f%=0 blk%|
0000d430  21 38 3d 30 3a 8b 20 62  6c 6b 25 21 38 3d 62 6c  |!8=0:. blk%!8=bl|
0000d440  6b 25 21 31 32 0d 05 3d  20 c8 99 20 22 57 69 6d  |k%!12..= .. "Wim|
0000d450  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
0000d460  2c 62 6c 6b 25 0d 05 3e  05 e1 0d 05 3f 04 0d 05  |,blk%..>....?...|
0000d470  40 19 dd f2 67 65 74 69  63 6f 6e 73 74 61 74 65  |@...geticonstate|
0000d480  28 77 25 2c 69 25 29 0d  05 41 33 21 62 6c 6b 25  |(w%,i%)..A3!blk%|
0000d490  3d 77 25 3a 62 6c 6b 25  21 34 3d 69 25 3a c8 99  |=w%:blk%!4=i%:..|
0000d4a0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
0000d4b0  61 74 65 22 2c 2c 62 6c  6b 25 0d 05 42 05 e1 0d  |ate",,blk%..B...|
0000d4c0  05 43 04 0d 05 44 17 dd  a4 69 73 73 65 6c 65 63  |.C...D...isselec|
0000d4d0  74 65 64 28 77 25 2c 69  25 29 0d 05 45 18 f2 67  |ted(w%,i%)..E..g|
0000d4e0  65 74 69 63 6f 6e 73 74  61 74 65 28 77 25 2c 69  |eticonstate(w%,i|
0000d4f0  25 29 0d 05 46 20 3d 28  28 62 6c 6b 25 21 32 34  |%)..F =((blk%!24|
0000d500  29 80 28 31 3c 3c 32 31  29 29 3d 28 31 3c 3c 32  |).(1<<21))=(1<<2|
0000d510  31 29 0d 05 47 04 0d 05  48 10 dd a4 69 73 6f 70  |1)..G...H...isop|
0000d520  65 6e 28 77 25 29 0d 05  49 2b 21 62 6c 6b 25 3d  |en(w%)..I+!blk%=|
0000d530  77 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |w%:.. "Wimp_GetW|
0000d540  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6b  |indowState",,blk|
0000d550  25 0d 05 4a 20 3d 28 28  62 6c 6b 25 21 33 32 29  |%..J =((blk%!32)|
0000d560  80 28 31 3c 3c 31 36 29  29 3d 28 31 3c 3c 31 36  |.(1<<16))=(1<<16|
0000d570  29 0d 05 4b 04 0d 05 4c  13 dd f2 77 69 6e 74 6f  |)..K...L...winto|
0000d580  73 63 72 6e 28 62 25 29  0d 05 4d 2e 21 62 6c 6b  |scrn(b%)..M.!blk|
0000d590  32 25 3d 21 62 25 3a c8  99 20 22 57 69 6d 70 5f  |2%=!b%:.. "Wimp_|
0000d5a0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
0000d5b0  2c 62 6c 6b 32 25 0d 05  4e 1e 62 25 21 38 2b 3d  |,blk2%..N.b%!8+=|
0000d5c0  28 62 6c 6b 32 25 21 34  29 2d 28 62 6c 6b 32 25  |(blk2%!4)-(blk2%|
0000d5d0  21 32 30 29 0d 05 4f 20  62 25 21 31 32 2b 3d 28  |!20)..O b%!12+=(|
0000d5e0  62 6c 6b 32 25 21 31 36  29 2d 28 62 6c 6b 32 25  |blk2%!16)-(blk2%|
0000d5f0  21 32 34 29 0d 05 50 1f  62 25 21 31 36 2b 3d 28  |!24)..P.b%!16+=(|
0000d600  62 6c 6b 32 25 21 34 29  2d 28 62 6c 6b 32 25 21  |blk2%!4)-(blk2%!|
0000d610  32 30 29 0d 05 51 20 62  25 21 32 30 2b 3d 28 62  |20)..Q b%!20+=(b|
0000d620  6c 6b 32 25 21 31 36 29  2d 28 62 6c 6b 32 25 21  |lk2%!16)-(blk2%!|
0000d630  32 34 29 0d 05 52 05 e1  0d 05 53 04 0d 05 54 32  |24)..R....S...T2|
0000d640  dd a4 6c 65 61 66 28 66  24 29 20 49 25 3d a9 66  |..leaf(f$) I%=.f|
0000d650  24 3a c8 95 49 25 3e 31  80 c1 66 24 2c 49 25 2c  |$:..I%>1..f$,I%,|
0000d660  31 29 3c 3e 22 2e 22 49  25 2d 3d 31 3a ce 0d 05  |1)<>"."I%-=1:...|
0000d670  55 17 e7 c1 66 24 2c 49  25 2c 31 29 3d 22 2e 22  |U...f$,I%,1)="."|
0000d680  49 25 2b 3d 31 0d 05 56  0c 3d c1 66 24 2c 49 25  |I%+=1..V.=.f$,I%|
0000d690  29 0d 05 57 04 0d 05 58  18 dd a4 63 6f 6e 76 65  |)..W...X...conve|
0000d6a0  72 74 74 6f 6c 6f 77 65  72 28 61 24 29 0d 05 59  |rttolower(a$)..Y|
0000d6b0  15 ea 20 6c 25 2c 62 24  2c 63 68 25 3a 62 24 3d  |.. l%,b$,ch%:b$=|
0000d6c0  22 22 0d 05 5a 0d e3 6c  25 3d 31 b8 a9 61 24 0d  |""..Z..l%=1..a$.|
0000d6d0  05 5b 14 63 68 25 3d 97  28 c1 61 24 2c 6c 25 2c  |.[.ch%=.(.a$,l%,|
0000d6e0  31 29 29 0d 05 5c 21 e7  28 63 68 25 3e 26 34 30  |1))..\!.(ch%>&40|
0000d6f0  29 80 28 63 68 25 3c 26  35 42 29 3a 63 68 25 2b  |).(ch%<&5B):ch%+|
0000d700  3d 26 32 30 0d 05 5d 0c  62 24 2b 3d bd 63 68 25  |=&20..].b$+=.ch%|
0000d710  0d 05 5e 05 ed 0d 05 5f  07 3d 62 24 0d 05 60 04  |..^...._.=b$..`.|
0000d720  0d 05 61 19 dd a4 67 65  74 69 63 6e 73 74 72 69  |..a...geticnstri|
0000d730  6e 67 28 77 25 2c 69 25  29 0d 05 62 33 21 62 6c  |ng(w%,i%)..b3!bl|
0000d740  6b 25 3d 77 25 3a 62 6c  6b 25 21 34 3d 69 25 3a  |k%=w%:blk%!4=i%:|
0000d750  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
0000d760  53 74 61 74 65 22 2c 2c  62 6c 6b 25 0d 05 63 19  |State",,blk%..c.|
0000d770  3d a4 72 65 61 64 73 74  72 69 6e 67 28 62 6c 6b  |=.readstring(blk|
0000d780  25 21 32 38 29 0d 05 64  04 0d 05 65 1c dd f2 70  |%!28)..d...e...p|
0000d790  75 74 69 63 6e 73 74 72  69 6e 67 28 77 25 2c 69  |uticnstring(w%,i|
0000d7a0  25 2c 61 24 29 0d 05 66  33 21 62 6c 6b 25 3d 77  |%,a$)..f3!blk%=w|
0000d7b0  25 3a 62 6c 6b 25 21 34  3d 69 25 3a c8 99 20 22  |%:blk%!4=i%:.. "|
0000d7c0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
0000d7d0  65 22 2c 2c 62 6c 6b 25  0d 05 67 24 24 28 62 6c  |e",,blk%..g$$(bl|
0000d7e0  6b 25 21 32 38 29 3d 61  24 3a 3f 28 28 62 6c 6b  |k%!28)=a$:?((blk|
0000d7f0  25 21 32 38 29 2b a9 61  24 29 3d 30 0d 05 68 33  |%!28)+.a$)=0..h3|
0000d800  62 6c 6b 25 21 38 3d 30  3a 62 6c 6b 25 21 31 32  |blk%!8=0:blk%!12|
0000d810  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
0000d820  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6b 25 0d  |conState",,blk%.|
0000d830  05 69 05 e1 0d 05 6a 04  0d 05 6b 15 dd f2 73 65  |.i....j...k...se|
0000d840  6e 64 73 61 76 65 73 70  72 6d 65 73 73 0d 05 6c  |ndsavesprmess..l|
0000d850  4b c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |K.. "Wimp_GetPoi|
0000d860  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6b 25 3a  |nterInfo",,blk%:|
0000d870  78 25 3d 21 62 6c 6b 25  3a 79 25 3d 62 6c 6b 25  |x%=!blk%:y%=blk%|
0000d880  21 34 3a 77 25 3d 62 6c  6b 25 21 31 32 3a 69 25  |!4:w%=blk%!12:i%|
0000d890  3d 62 6c 6b 25 21 31 36  0d 05 6d 20 21 62 6c 6b  |=blk%!16..m !blk|
0000d8a0  25 3d 35 36 3a 62 6c 6b  25 21 31 32 3d 30 3a 62  |%=56:blk%!12=0:b|
0000d8b0  6c 6b 25 21 31 36 3d 31  0d 05 6e 2f 62 6c 6b 25  |lk%!16=1..n/blk%|
0000d8c0  21 32 30 3d 77 25 3a 62  6c 6b 25 21 32 34 3d 69  |!20=w%:blk%!24=i|
0000d8d0  25 3a 62 6c 6b 25 21 32  38 3d 78 25 3a 62 6c 6b  |%:blk%!28=x%:blk|
0000d8e0  25 21 33 32 3d 79 25 0d  05 6f 33 e7 63 75 72 72  |%!32=y%..o3.curr|
0000d8f0  6d 65 6e 75 25 3d 2d 32  3a 62 6c 6b 25 21 33 36  |menu%=-2:blk%!36|
0000d900  3d 35 38 2a 31 30 32 34  3a 8b 3a 62 6c 6b 25 21  |=58*1024:.:blk%!|
0000d910  33 36 3d 33 30 2a 31 30  32 34 0d 05 70 2d 62 6c  |36=30*1024..p-bl|
0000d920  6b 25 21 34 30 3d 26 46  46 39 3a 24 28 62 6c 6b  |k%!40=&FF9:$(blk|
0000d930  25 2b 34 34 29 3d 70 72  6f 70 6f 73 65 64 66 6e  |%+44)=proposedfn|
0000d940  61 6d 65 24 2b bd 30 0d  05 71 51 e7 77 25 3d 2d  |ame$+.0..qQ.w%=-|
0000d950  32 3a c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |2:.. "Wimp_SendM|
0000d960  65 73 73 61 67 65 22 2c  31 37 2c 62 6c 6b 25 2c  |essage",17,blk%,|
0000d970  77 25 2c 69 25 3a 8b 3a  c8 99 20 22 57 69 6d 70  |w%,i%:.:.. "Wimp|
0000d980  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
0000d990  2c 62 6c 6b 25 2c 77 25  0d 05 72 33 6d 79 72 65  |,blk%,w%..r3myre|
0000d9a0  66 25 3d 62 6c 6b 25 21  38 3a 72 61 6d 62 79 74  |f%=blk%!8:rambyt|
0000d9b0  65 73 64 6f 6e 65 25 3d  34 3a 66 69 72 73 74 72  |esdone%=4:firstr|
0000d9c0  61 6d 66 65 74 63 68 25  3d 2d 31 0d 05 73 05 e1  |amfetch%=-1..s..|
0000d9d0  0d 05 74 04 0d 05 75 15  dd f2 73 65 6e 64 73 61  |..t...u...sendsa|
0000d9e0  76 65 74 78 74 6d 65 73  73 0d 05 76 4b c8 99 20  |vetxtmess..vK.. |
0000d9f0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
0000da00  49 6e 66 6f 22 2c 2c 62  6c 6b 25 3a 78 25 3d 21  |Info",,blk%:x%=!|
0000da10  62 6c 6b 25 3a 79 25 3d  62 6c 6b 25 21 34 3a 77  |blk%:y%=blk%!4:w|
0000da20  25 3d 62 6c 6b 25 21 31  32 3a 69 25 3d 62 6c 6b  |%=blk%!12:i%=blk|
0000da30  25 21 31 36 0d 05 77 20  21 62 6c 6b 25 3d 35 36  |%!16..w !blk%=56|
0000da40  3a 62 6c 6b 25 21 31 32  3d 30 3a 62 6c 6b 25 21  |:blk%!12=0:blk%!|
0000da50  31 36 3d 31 0d 05 78 2f  62 6c 6b 25 21 32 30 3d  |16=1..x/blk%!20=|
0000da60  77 25 3a 62 6c 6b 25 21  32 34 3d 69 25 3a 62 6c  |w%:blk%!24=i%:bl|
0000da70  6b 25 21 32 38 3d 78 25  3a 62 6c 6b 25 21 33 32  |k%!28=x%:blk%!32|
0000da80  3d 79 25 0d 05 79 2c e7  63 75 72 72 6d 65 6e 75  |=y%..y,.currmenu|
0000da90  25 3d 2d 33 3a 62 6c 6b  25 21 33 36 3d 33 36 30  |%=-3:blk%!36=360|
0000daa0  3a 8b 3a 62 6c 6b 25 21  33 36 3d 31 30 32 34 0d  |:.:blk%!36=1024.|
0000dab0  05 7a 2d 62 6c 6b 25 21  34 30 3d 26 46 46 46 3a  |.z-blk%!40=&FFF:|
0000dac0  24 28 62 6c 6b 25 2b 34  34 29 3d 70 72 6f 70 6f  |$(blk%+44)=propo|
0000dad0  73 65 64 66 6e 61 6d 65  24 2b bd 30 0d 05 7b 51  |sedfname$+.0..{Q|
0000dae0  e7 77 25 3d 2d 32 3a c8  99 20 22 57 69 6d 70 5f  |.w%=-2:.. "Wimp_|
0000daf0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
0000db00  62 6c 6b 25 2c 77 25 2c  69 25 3a 8b 3a c8 99 20  |blk%,w%,i%:.:.. |
0000db10  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
0000db20  65 22 2c 31 37 2c 62 6c  6b 25 2c 77 25 0d 05 7c  |e",17,blk%,w%..||
0000db30  21 6d 79 72 65 66 25 3d  62 6c 6b 25 21 38 3a 72  |!myref%=blk%!8:r|
0000db40  61 6d 62 79 74 65 73 64  6f 6e 65 25 3d 30 0d 05  |ambytesdone%=0..|
0000db50  7d 05 e1 0d 05 7e 04 0d  05 7f 15 dd f2 73 65 6e  |}....~.......sen|
0000db60  64 6c 6f 61 64 73 70 72  6d 65 73 73 0d 05 80 1f  |dloadsprmess....|
0000db70  62 6c 6b 32 25 21 31 32  3d 62 6c 6b 32 25 21 38  |blk2%!12=blk2%!8|
0000db80  3a 62 6c 6b 32 25 21 31  36 3d 33 0d 05 81 35 e7  |:blk2%!16=3...5.|
0000db90  63 75 72 72 6d 65 6e 75  25 3d 2d 32 3a 62 6c 6b  |currmenu%=-2:blk|
0000dba0  32 25 21 33 36 3d 35 38  2a 31 30 32 34 3a 8b 3a  |2%!36=58*1024:.:|
0000dbb0  62 6c 6b 32 25 21 33 36  3d 33 30 2a 31 30 32 34  |blk2%!36=30*1024|
0000dbc0  0d 05 82 6d e7 28 62 6c  6b 32 25 21 32 30 29 3d  |...m.(blk2%!20)=|
0000dbd0  2d 32 3a c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |-2:.. "Wimp_Send|
0000dbe0  4d 65 73 73 61 67 65 22  2c 31 38 2c 62 6c 6b 32  |Message",18,blk2|
0000dbf0  25 2c 62 6c 6b 32 25 21  32 30 2c 62 6c 6b 32 25  |%,blk2%!20,blk2%|
0000dc00  21 32 34 3a 8b 3a c8 99  20 22 57 69 6d 70 5f 53  |!24:.:.. "Wimp_S|
0000dc10  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 38 2c 62  |endMessage",18,b|
0000dc20  6c 6b 32 25 2c 62 6c 6b  32 25 21 32 30 0d 05 83  |lk2%,blk2%!20...|
0000dc30  12 6d 79 72 65 66 25 3d  62 6c 6b 32 25 21 38 0d  |.myref%=blk2%!8.|
0000dc40  05 84 05 e1 0d 05 85 04  0d 05 86 15 dd f2 73 65  |..............se|
0000dc50  6e 64 6c 6f 61 64 74 78  74 6d 65 73 73 0d 05 87  |ndloadtxtmess...|
0000dc60  1f 62 6c 6b 32 25 21 31  32 3d 62 6c 6b 32 25 21  |.blk2%!12=blk2%!|
0000dc70  38 3a 62 6c 6b 32 25 21  31 36 3d 33 0d 05 88 2e  |8:blk2%!16=3....|
0000dc80  e7 63 75 72 72 6d 65 6e  75 25 3d 2d 33 3a 62 6c  |.currmenu%=-3:bl|
0000dc90  6b 32 25 21 33 36 3d 33  36 30 3a 8b 3a 62 6c 6b  |k2%!36=360:.:blk|
0000dca0  32 25 21 33 36 3d 31 30  32 34 0d 05 89 6d e7 28  |2%!36=1024...m.(|
0000dcb0  62 6c 6b 32 25 21 32 30  29 3d 2d 32 3a c8 99 20  |blk2%!20)=-2:.. |
0000dcc0  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
0000dcd0  65 22 2c 31 38 2c 62 6c  6b 32 25 2c 62 6c 6b 32  |e",18,blk2%,blk2|
0000dce0  25 21 32 30 2c 62 6c 6b  32 25 21 32 34 3a 8b 3a  |%!20,blk2%!24:.:|
0000dcf0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
0000dd00  73 61 67 65 22 2c 31 38  2c 62 6c 6b 32 25 2c 62  |sage",18,blk2%,b|
0000dd10  6c 6b 32 25 21 32 30 0d  05 8a 12 6d 79 72 65 66  |lk2%!20....myref|
0000dd20  25 3d 62 6c 6b 32 25 21  38 0d 05 8b 05 e1 0d 05  |%=blk2%!8.......|
0000dd30  8c 04 0d 05 8d 19 dd f2  73 74 61 72 74 64 72 61  |........startdra|
0000dd40  67 28 77 25 2c 69 25 2c  6e 24 29 0d 05 8e 15 70  |g(w%,i%,n$)....p|
0000dd50  72 6f 70 6f 73 65 64 66  6e 61 6d 65 24 3d 6e 24  |roposedfname$=n$|
0000dd60  0d 05 8f 33 21 62 6c 6b  25 3d 77 25 3a 62 6c 6b  |...3!blk%=w%:blk|
0000dd70  25 21 34 3d 69 25 3a c8  99 20 22 57 69 6d 70 5f  |%!4=i%:.. "Wimp_|
0000dd80  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
0000dd90  6c 6b 25 0d 05 90 3f f2  77 69 6e 74 6f 73 63 72  |lk%...?.wintoscr|
0000dda0  6e 28 62 6c 6b 25 29 3a  62 6c 6b 25 21 38 2d 3d  |n(blk%):blk%!8-=|
0000ddb0  34 3a 62 6c 6b 25 21 31  32 2d 3d 34 3a 62 6c 6b  |4:blk%!12-=4:blk|
0000ddc0  25 21 31 36 2b 3d 34 3a  62 6c 6b 25 21 32 30 2b  |%!16+=4:blk%!20+|
0000ddd0  3d 34 0d 05 91 52 62 6c  6b 25 21 34 3d 35 3a 62  |=4...Rblk%!4=5:b|
0000dde0  6c 6b 25 21 32 34 3d 30  3a 62 6c 6b 25 21 32 38  |lk%!24=0:blk%!28|
0000ddf0  3d 30 3a 62 6c 6b 25 21  33 32 3d 32 30 30 30 3a  |=0:blk%!32=2000:|
0000de00  62 6c 6b 25 21 33 36 3d  32 30 30 30 3a c8 99 20  |blk%!36=2000:.. |
0000de10  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
0000de20  62 6c 6b 25 0d 05 92 05  e1 0d 05 93 04 0d 05 94  |blk%............|
0000de30  18 dd f2 73 65 74 75 70  77 63 6c 69 63 6b 28 62  |...setupwclick(b|
0000de40  25 2c 69 25 29 0d 05 95  0b ea 20 6a 25 2c 6b 25  |%,i%)..... j%,k%|
0000de50  0d 05 96 0b c8 8e 20 69  25 20 ca 0d 05 97 1c 20  |...... i% ..... |
0000de60  20 c9 20 32 2c 33 3a 20  f2 61 6e 69 6d 62 75 74  | . 2,3: .animbut|
0000de70  73 5f 6f 6e 6f 66 66 0d  05 98 24 20 20 20 20 20  |s_onoff...$     |
0000de80  20 20 20 20 20 20 20 e7  a4 69 73 6f 70 65 6e 28  |       ..isopen(|
0000de90  6f 72 67 64 65 66 6e 77  25 29 8c 0d 05 99 64 20  |orgdefnw%)....d |
0000dea0  20 20 20 20 20 20 20 20  20 20 20 20 61 24 3d a4  |            a$=.|
0000deb0  67 65 74 69 63 6e 73 74  72 69 6e 67 28 62 6f 64  |geticnstring(bod|
0000dec0  79 77 25 2c 61 63 74 69  76 65 6f 72 67 69 63 6e  |yw%,activeorgicn|
0000ded0  25 29 3a e7 28 97 28 61  24 29 3e 26 36 30 29 80  |%):.(.(a$)>&60).|
0000dee0  28 97 28 61 24 29 3c 26  37 42 29 3a c0 61 24 2c  |(.(a$)<&7B):.a$,|
0000def0  31 29 3d bd 28 97 28 61  24 29 2d 26 32 30 29 0d  |1)=.(.(a$)-&20).|
0000df00  05 9a 6f 20 20 20 20 20  20 20 20 20 20 20 20 20  |..o             |
0000df10  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 6f 72  |.puticnstring(or|
0000df20  67 64 65 66 6e 77 25 2c  30 2c 61 24 29 3a f2 70  |gdefnw%,0,a$):.p|
0000df30  75 74 69 63 6e 73 74 72  69 6e 67 28 6f 72 67 64  |uticnstring(orgd|
0000df40  65 66 6e 77 25 2c 31 2c  6f 72 67 6a 75 73 74 77  |efnw%,1,orgjustw|
0000df50  6f 72 64 73 24 28 61 63  74 69 76 65 6f 72 67 69  |ords$(activeorgi|
0000df60  63 6e 25 2d 32 35 2c 73  69 6d 70 25 29 29 0d 05  |cn%-25,simp%))..|
0000df70  9b 11 20 20 20 20 20 20  20 20 20 20 20 20 cd 0d  |..            ..|
0000df80  05 9c 77 20 20 c9 20 38  3a 20 70 77 24 3d a4 63  |..w  . 8: pw$=.c|
0000df90  6f 6e 76 65 72 74 74 6f  6c 6f 77 65 72 28 a4 67  |onverttolower(.g|
0000dfa0  65 74 69 63 6e 73 74 72  69 6e 67 28 73 65 74 75  |eticnstring(setu|
0000dfb0  70 77 25 2c 37 29 29 3a  e7 70 77 24 3d 22 63 6f  |pw%,7)):.pw$="co|
0000dfc0  69 74 75 73 22 3a 73 65  78 6f 6e 25 3d 2d 31 3a  |itus":sexon%=-1:|
0000dfd0  f2 72 65 6d 6f 76 65 73  65 78 28 a3 29 3a 8b 3a  |.removesex(.):.:|
0000dfe0  73 65 78 6f 6e 25 3d 30  3a f2 72 65 6d 6f 76 65  |sexon%=0:.remove|
0000dff0  73 65 78 28 b9 29 0d 05  9d 0e 20 20 c9 20 31 31  |sex(.)....  . 11|
0000e000  2c 31 32 3a 0d 05 9e 2f  20 20 20 20 20 20 20 e7  |,12:.../       .|
0000e010  a4 69 73 6f 70 65 6e 28  70 69 6e 6f 72 67 73 77  |.isopen(pinorgsw|
0000e020  25 29 3a f2 63 6c 6f 73  65 77 69 6e 64 28 62 6c  |%):.closewind(bl|
0000e030  6b 25 29 0d 05 9f 2f 20  20 20 20 20 20 20 e7 a4  |k%).../       ..|
0000e040  69 73 6f 70 65 6e 28 70  69 6e 6f 75 74 6c 77 25  |isopen(pinoutlw%|
0000e050  29 3a f2 63 6c 6f 73 65  77 69 6e 64 28 62 6c 6b  |):.closewind(blk|
0000e060  25 29 0d 05 a0 36 20 20  20 20 20 20 20 e7 69 25  |%)...6       .i%|
0000e070  3d 31 32 3a e3 6a 25 3d  31 35 b8 33 30 3a f2 73  |=12:.j%=15.30:.s|
0000e080  65 6c 65 63 74 69 63 6e  28 73 65 74 75 70 77 25  |electicn(setupw%|
0000e090  2c 6a 25 2c 30 29 3a ed  0d 05 a1 1c 20 20 20 20  |,j%,0):.....    |
0000e0a0  20 20 20 e7 69 25 3d 31  31 3a f2 72 61 6e 64 6f  |   .i%=11:.rando|
0000e0b0  6d 70 69 6e 0d 05 a2 17  20 20 20 20 20 20 20 f2  |mpin....       .|
0000e0c0  6f 70 65 6e 5f 73 65 74  75 70 77 0d 05 a3 38 20  |open_setupw...8 |
0000e0d0  20 c9 20 31 35 2c 31 36  2c 31 37 2c 31 38 2c 31  | . 15,16,17,18,1|
0000e0e0  39 2c 32 30 2c 32 31 2c  32 32 2c 32 33 2c 32 34  |9,20,21,22,23,24|
0000e0f0  2c 32 35 2c 32 36 2c 32  37 2c 32 38 2c 32 39 2c  |,25,26,27,28,29,|
0000e100  33 30 3a 0d 05 a4 2f 20  20 20 20 20 20 20 e7 a4  |30:.../       ..|
0000e110  69 73 6f 70 65 6e 28 70  69 6e 6f 72 67 73 77 25  |isopen(pinorgsw%|
0000e120  29 3a f2 63 6c 6f 73 65  77 69 6e 64 28 62 6c 6b  |):.closewind(blk|
0000e130  25 29 0d 05 a5 2f 20 20  20 20 20 20 20 e7 a4 69  |%).../       ..i|
0000e140  73 6f 70 65 6e 28 70 69  6e 6f 75 74 6c 77 25 29  |sopen(pinoutlw%)|
0000e150  3a f2 63 6c 6f 73 65 77  69 6e 64 28 62 6c 6b 25  |:.closewind(blk%|
0000e160  29 0d 05 a6 44 20 20 20  20 20 20 20 e7 69 25 3d  |)...D       .i%=|
0000e170  32 39 8c 3a e7 a4 69 73  73 65 6c 65 63 74 65 64  |29.:..isselected|
0000e180  28 73 65 74 75 70 77 25  2c 32 39 29 3a f2 73 65  |(setupw%,29):.se|
0000e190  6c 65 63 74 69 63 6e 28  73 65 74 75 70 77 25 2c  |lecticn(setupw%,|
0000e1a0  33 30 2c a3 29 0d 05 a7  44 20 20 20 20 20 20 20  |30,.)...D       |
0000e1b0  e7 69 25 3d 33 30 8c 3a  e7 a4 69 73 73 65 6c 65  |.i%=30.:..issele|
0000e1c0  63 74 65 64 28 73 65 74  75 70 77 25 2c 33 30 29  |cted(setupw%,30)|
0000e1d0  3a f2 73 65 6c 65 63 74  69 63 6e 28 73 65 74 75  |:.selecticn(setu|
0000e1e0  70 77 25 2c 32 39 2c a3  29 0d 05 a8 19 20 20 20  |pw%,29,.)....   |
0000e1f0  20 20 20 20 6b 25 3d 30  3a e3 6a 25 3d 31 35 b8  |    k%=0:.j%=15.|
0000e200  33 30 0d 05 a9 25 20 20  20 20 20 20 20 20 e7 a4  |30...%        ..|
0000e210  69 73 73 65 6c 65 63 74  65 64 28 73 65 74 75 70  |isselected(setup|
0000e220  77 25 2c 6a 25 29 8c 0d  05 aa 12 20 20 20 20 20  |w%,j%).....     |
0000e230  20 20 20 20 6b 25 2b 3d  31 0d 05 ab 6b 20 20 20  |    k%+=1...k   |
0000e240  20 20 20 20 20 20 e7 6b  25 3d 39 3a f2 73 65 6c  |      .k%=9:.sel|
0000e250  65 63 74 69 63 6e 28 73  65 74 75 70 77 25 2c 69  |ecticn(setupw%,i|
0000e260  25 2c a3 29 3a f2 64 69  73 63 6d 65 73 73 28 22  |%,.):.discmess("|
0000e270  4f 6e 6c 79 20 38 20 70  61 72 74 73 20 6f 66 20  |Only 8 parts of |
0000e280  74 68 65 20 62 6f 64 79  20 6d 61 79 20 62 65 20  |the body may be |
0000e290  63 68 6f 73 65 6e 20 61  74 20 6f 6e 63 65 22 2c  |chosen at once",|
0000e2a0  30 29 3a e1 0d 05 ac 0d  20 20 20 20 20 20 20 20  |0):.....        |
0000e2b0  cd 0d 05 ad 0c 20 20 20  20 20 20 20 ed 0d 05 ae  |.....       ....|
0000e2c0  1c 20 20 20 20 20 20 20  e7 28 69 25 3d 32 39 29  |.       .(i%=29)|
0000e2d0  84 28 69 25 3d 33 30 29  8c 0d 05 af 4d 20 20 20  |.(i%=30)....M   |
0000e2e0  20 20 20 20 20 c8 99 22  57 69 6d 70 5f 46 6f 72  |     .."Wimp_For|
0000e2f0  63 65 52 65 64 72 61 77  22 2c 73 65 74 75 70 77  |ceRedraw",setupw|
0000e300  25 2c 31 31 34 2c 2d 34  31 32 2d 28 34 38 2a 31  |%,114,-412-(48*1|
0000e310  34 29 2d 39 36 2c 31 35  38 2c 2d 34 31 32 2d 28  |4)-96,158,-412-(|
0000e320  34 38 2a 31 34 29 0d 05  b0 0c 20 20 20 20 20 20  |48*14)....      |
0000e330  20 cc 0d 05 b1 57 20 20  20 20 20 20 20 20 c8 99  | ....W        ..|
0000e340  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
0000e350  77 22 2c 73 65 74 75 70  77 25 2c 31 31 34 2c 2d  |w",setupw%,114,-|
0000e360  34 31 32 2d 28 34 38 2a  28 69 25 2d 31 35 29 29  |412-(48*(i%-15))|
0000e370  2d 34 38 2c 31 35 38 2c  2d 34 31 32 2d 28 34 38  |-48,158,-412-(48|
0000e380  2a 28 69 25 2d 31 35 29  29 0d 05 b2 0c 20 20 20  |*(i%-15))....   |
0000e390  20 20 20 20 cd 0d 05 b3  2e 20 20 c9 20 33 33 3a  |    .....  . 33:|
0000e3a0  20 e7 a4 69 73 6f 70 65  6e 28 73 79 73 74 77 25  | ..isopen(systw%|
0000e3b0  29 3a f2 63 6c 6f 73 65  77 69 6e 64 73 28 62 6c  |):.closewinds(bl|
0000e3c0  6b 25 29 0d 05 b4 3d 20  20 20 20 20 20 20 20 20  |k%)...=         |
0000e3d0  20 20 e3 6a 25 3d 35 b8  31 32 3a f2 68 69 64 65  |  .j%=5.12:.hide|
0000e3e0  69 63 6e 28 73 79 73 74  77 25 2c 6a 25 2c a3 29  |icn(systw%,j%,.)|
0000e3f0  3a ed 3a f2 69 6e 69 74  73 79 73 74 62 6f 64 79  |:.:.initsystbody|
0000e400  0d 05 b5 1b 20 20 20 20  20 20 20 20 20 20 20 f2  |....           .|
0000e410  6f 70 65 6e 5f 73 65 74  75 70 77 0d 05 b6 2e 20  |open_setupw.... |
0000e420  20 c9 20 33 34 3a 20 e7  a4 69 73 6f 70 65 6e 28  | . 34: ..isopen(|
0000e430  73 79 73 74 77 25 29 3a  f2 63 6c 6f 73 65 77 69  |systw%):.closewi|
0000e440  6e 64 73 28 62 6c 6b 25  29 0d 05 b7 17 20 20 20  |nds(blk%)....   |
0000e450  20 20 20 20 20 20 20 20  e3 6a 25 3d 35 b8 31 32  |        .j%=5.12|
0000e460  0d 05 b8 59 20 20 20 20  20 20 20 20 20 20 20 20  |...Y            |
0000e470  e7 a4 69 73 73 65 6c 65  63 74 65 64 28 73 65 74  |..isselected(set|
0000e480  75 70 77 25 2c 33 32 2b  6a 25 29 3a f2 68 69 64  |upw%,32+j%):.hid|
0000e490  65 69 63 6e 28 73 79 73  74 77 25 2c 6a 25 2c a3  |eicn(systw%,j%,.|
0000e4a0  29 3a 8b 3a f2 68 69 64  65 69 63 6e 28 73 79 73  |):.:.hideicn(sys|
0000e4b0  74 77 25 2c 6a 25 2c b9  29 0d 05 b9 10 20 20 20  |tw%,j%,.)....   |
0000e4c0  20 20 20 20 20 20 20 20  ed 0d 05 ba 29 20 20 20  |        ....)   |
0000e4d0  20 20 20 20 20 20 20 20  f2 69 6e 69 74 73 79 73  |        .initsys|
0000e4e0  74 62 6f 64 79 3a f2 6f  70 65 6e 5f 73 65 74 75  |tbody:.open_setu|
0000e4f0  70 77 0d 05 bb 43 20 20  c9 20 33 37 2c 33 38 2c  |pw...C  . 37,38,|
0000e500  33 39 2c 34 30 2c 34 31  2c 34 32 2c 34 33 2c 34  |39,40,41,42,43,4|
0000e510  34 3a 20 e7 a4 69 73 6f  70 65 6e 28 73 79 73 74  |4: ..isopen(syst|
0000e520  77 25 29 3a f2 63 6c 6f  73 65 77 69 6e 64 73 28  |w%):.closewinds(|
0000e530  62 6c 6b 25 29 0d 05 bc  5c 20 20 20 20 20 20 20  |blk%)...\       |
0000e540  20 20 20 20 20 e7 a4 69  73 73 65 6c 65 63 74 65  |     ..isselecte|
0000e550  64 28 73 65 74 75 70 77  25 2c 69 25 29 3a f2 68  |d(setupw%,i%):.h|
0000e560  69 64 65 69 63 6e 28 73  79 73 74 77 25 2c 69 25  |ideicn(systw%,i%|
0000e570  2d 33 32 2c a3 29 3a 8b  3a f2 68 69 64 65 69 63  |-32,.):.:.hideic|
0000e580  6e 28 73 79 73 74 77 25  2c 69 25 2d 33 32 2c b9  |n(systw%,i%-32,.|
0000e590  29 0d 05 bd 1d 20 20 20  20 20 20 20 20 20 20 20  |)....           |
0000e5a0  20 f2 69 6e 69 74 73 79  73 74 62 6f 64 79 0d 05  | .initsystbody..|
0000e5b0  be 5a 20 20 20 20 20 20  20 20 20 20 20 20 c8 99  |.Z            ..|
0000e5c0  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
0000e5d0  77 22 2c 73 65 74 75 70  77 25 2c 37 36 2c 2d 36  |w",setupw%,76,-6|
0000e5e0  35 36 2d 28 34 38 2a 28  69 25 2d 33 37 29 29 2d  |56-(48*(i%-37))-|
0000e5f0  34 38 2c 31 32 30 2c 2d  36 35 36 2d 28 34 38 2a  |48,120,-656-(48*|
0000e600  28 69 25 2d 33 37 29 29  0d 05 bf 2a 20 20 c9 20  |(i%-37))...*  . |
0000e610  34 37 3a 20 f2 6f 70 65  6e 5f 73 65 74 75 70 77  |47: .open_setupw|
0000e620  3a f2 63 68 61 6e 67 65  74 6f 66 75 6c 6c 62 6f  |:.changetofullbo|
0000e630  64 79 0d 05 c0 25 20 20  c9 20 34 38 3a 20 f2 6f  |dy...%  . 48: .o|
0000e640  70 65 6e 5f 73 65 74 75  70 77 3a f2 63 68 61 6e  |pen_setupw:.chan|
0000e650  67 65 74 6f 70 69 6e 0d  05 c1 05 cb 0d 05 c2 05  |getopin.........|
0000e660  e1 0d 05 c3 04 0d 05 c4  12 dd f2 69 6e 69 74 73  |...........inits|
0000e670  79 73 74 62 6f 64 79 0d  05 c5 08 ea 20 6a 25 0d  |ystbody..... j%.|
0000e680  05 c6 24 e3 6a 25 3d 30  b8 6d 61 78 73 70 25 3a  |..$.j%=0.maxsp%:|
0000e690  73 79 73 74 62 6f 64 79  73 70 25 28 6a 25 29 3d  |systbodysp%(j%)=|
0000e6a0  30 3a ed 0d 05 c7 39 e3  6a 25 3d 35 b8 31 32 3a  |0:....9.j%=5.12:|
0000e6b0  f2 73 65 6c 65 63 74 69  63 6e 28 73 79 73 74 77  |.selecticn(systw|
0000e6c0  25 2c 6a 25 2c a3 29 3a  73 79 73 74 65 6d 5f 6f  |%,j%,.):system_o|
0000e6d0  6e 25 28 6a 25 2d 35 29  3d a3 3a ed 0d 05 c8 05  |n%(j%-5)=.:.....|
0000e6e0  e1 0d 05 c9 04 0d 05 ca  19 dd f2 73 61 62 6f 64  |...........sabod|
0000e6f0  79 77 63 6c 69 63 6b 28  62 25 2c 69 25 29 0d 05  |ywclick(b%,i%)..|
0000e700  cb 23 c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |.#.. "Wimp_GetPo|
0000e710  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 62 6c 6b 32  |interInfo",,blk2|
0000e720  25 0d 05 cc 2a 63 75 72  72 6d 65 6e 75 62 75 74  |%...*currmenubut|
0000e730  25 3d 62 6c 6b 32 25 21  38 3a e7 63 75 72 72 6d  |%=blk2%!8:.currm|
0000e740  65 6e 75 62 75 74 25 3d  32 3a e1 0d 05 cd 0b c8  |enubut%=2:......|
0000e750  8e 20 69 25 20 ca 0d 05  ce 56 20 20 c9 20 30 3a  |. i% ....V  . 0:|
0000e760  20 e7 62 25 3d 36 34 20  f2 73 74 61 72 74 64 72  | .b%=64 .startdr|
0000e770  61 67 28 73 61 62 6f 64  79 77 25 2c 69 25 2c a4  |ag(sabodyw%,i%,.|
0000e780  6c 65 61 66 28 a4 67 65  74 69 63 6e 73 74 72 69  |leaf(.geticnstri|
0000e790  6e 67 28 73 61 62 6f 64  79 77 25 2c 31 29 29 29  |ng(sabodyw%,1)))|
0000e7a0  3a 64 72 61 67 67 69 6e  67 25 3d 31 0d 05 cf 0a  |:dragging%=1....|
0000e7b0  20 20 c9 20 32 3a 0d 05  d0 71 20 20 20 e7 20 a7  |  . 2:...q   . .|
0000e7c0  a4 67 65 74 69 63 6e 73  74 72 69 6e 67 28 73 61  |.geticnstring(sa|
0000e7d0  62 6f 64 79 77 25 2c 31  29 2c 22 2e 22 29 3d 30  |bodyw%,1),".")=0|
0000e7e0  3a f2 65 72 72 6f 72 28  22 54 6f 20 73 61 76 65  |:.error("To save|
0000e7f0  2c 20 64 72 61 67 20 74  68 65 20 53 70 72 69 74  |, drag the Sprit|
0000e800  65 46 69 6c 65 20 69 63  6f 6e 20 74 6f 20 61 20  |eFile icon to a |
0000e810  64 69 72 65 63 74 6f 72  79 20 64 69 73 70 6c 61  |directory displa|
0000e820  79 22 2c 30 29 3a e1 0d  05 d1 5e 20 20 20 f2 73  |y",0):....^   .s|
0000e830  61 76 65 73 70 72 69 74  65 66 69 6c 65 28 a4 67  |avespritefile(.g|
0000e840  65 74 69 63 6e 73 74 72  69 6e 67 28 73 61 62 6f  |eticnstring(sabo|
0000e850  64 79 77 25 2c 31 29 2c  30 2c 30 29 3a e7 20 63  |dyw%,1),0,0):. c|
0000e860  75 72 72 6d 65 6e 75 62  75 74 25 3c 3e 31 3a c8  |urrmenubut%<>1:.|
0000e870  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
0000e880  75 22 2c 2d 31 0d 05 d2  05 cb 0d 05 d3 05 e1 0d  |u",-1...........|
0000e890  05 d4 04 0d 05 d5 19 dd  f2 70 72 62 6f 64 79 77  |.........prbodyw|
0000e8a0  63 6c 69 63 6b 28 62 25  2c 69 25 29 0d 05 d6 23  |click(b%,i%)...#|
0000e8b0  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
0000e8c0  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6b 32 25 0d  |terInfo",,blk2%.|
0000e8d0  05 d7 2a 63 75 72 72 6d  65 6e 75 62 75 74 25 3d  |..*currmenubut%=|
0000e8e0  62 6c 6b 32 25 21 38 3a  e7 63 75 72 72 6d 65 6e  |blk2%!8:.currmen|
0000e8f0  75 62 75 74 25 3d 32 3a  e1 0d 05 d8 3b e7 69 25  |ubut%=2:....;.i%|
0000e900  3d 37 3a f2 70 72 69 6e  74 69 74 3a e7 20 63 75  |=7:.printit:. cu|
0000e910  72 72 6d 65 6e 75 62 75  74 25 3c 3e 31 3a c8 99  |rrmenubut%<>1:..|
0000e920  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
0000e930  22 2c 2d 31 0d 05 d9 05  e1 0d 05 da 04 0d 05 db  |",-1............|
0000e940  19 dd f2 73 61 61 6e 69  6d 77 63 6c 69 63 6b 28  |...saanimwclick(|
0000e950  62 25 2c 69 25 29 0d 05  dc 23 c8 99 20 22 57 69  |b%,i%)...#.. "Wi|
0000e960  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
0000e970  6f 22 2c 2c 62 6c 6b 32  25 0d 05 dd 2a 63 75 72  |o",,blk2%...*cur|
0000e980  72 6d 65 6e 75 62 75 74  25 3d 62 6c 6b 32 25 21  |rmenubut%=blk2%!|
0000e990  38 3a e7 63 75 72 72 6d  65 6e 75 62 75 74 25 3d  |8:.currmenubut%=|
0000e9a0  32 3a e1 0d 05 de 0b c8  8e 20 69 25 20 ca 0d 05  |2:....... i% ...|
0000e9b0  df 56 20 20 c9 20 30 3a  20 e7 62 25 3d 36 34 20  |.V  . 0: .b%=64 |
0000e9c0  f2 73 74 61 72 74 64 72  61 67 28 73 61 61 6e 69  |.startdrag(saani|
0000e9d0  6d 77 25 2c 69 25 2c a4  6c 65 61 66 28 a4 67 65  |mw%,i%,.leaf(.ge|
0000e9e0  74 69 63 6e 73 74 72 69  6e 67 28 73 61 61 6e 69  |ticnstring(saani|
0000e9f0  6d 77 25 2c 31 29 29 29  3a 64 72 61 67 67 69 6e  |mw%,1))):draggin|
0000ea00  67 25 3d 31 0d 05 e0 0a  20 20 c9 20 32 3a 0d 05  |g%=1....  . 2:..|
0000ea10  e1 71 20 20 20 e7 20 a7  a4 67 65 74 69 63 6e 73  |.q   . ..geticns|
0000ea20  74 72 69 6e 67 28 73 61  61 6e 69 6d 77 25 2c 31  |tring(saanimw%,1|
0000ea30  29 2c 22 2e 22 29 3d 30  3a f2 65 72 72 6f 72 28  |),".")=0:.error(|
0000ea40  22 54 6f 20 73 61 76 65  2c 20 64 72 61 67 20 74  |"To save, drag t|
0000ea50  68 65 20 53 70 72 69 74  65 46 69 6c 65 20 69 63  |he SpriteFile ic|
0000ea60  6f 6e 20 74 6f 20 61 20  64 69 72 65 63 74 6f 72  |on to a director|
0000ea70  79 20 64 69 73 70 6c 61  79 22 2c 30 29 3a e1 0d  |y display",0):..|
0000ea80  05 e2 5e 20 20 20 f2 73  61 76 65 73 70 72 69 74  |..^   .savesprit|
0000ea90  65 66 69 6c 65 28 a4 67  65 74 69 63 6e 73 74 72  |efile(.geticnstr|
0000eaa0  69 6e 67 28 73 61 61 6e  69 6d 77 25 2c 31 29 2c  |ing(saanimw%,1),|
0000eab0  30 2c 30 29 3a e7 20 63  75 72 72 6d 65 6e 75 62  |0,0):. currmenub|
0000eac0  75 74 25 3c 3e 31 3a c8  99 22 57 69 6d 70 5f 43  |ut%<>1:.."Wimp_C|
0000ead0  72 65 61 74 65 4d 65 6e  75 22 2c 2d 31 0d 05 e3  |reateMenu",-1...|
0000eae0  05 cb 0d 05 e4 05 e1 0d  05 e5 04 0d 05 e6 19 dd  |................|
0000eaf0  f2 70 72 61 6e 69 6d 77  63 6c 69 63 6b 28 62 25  |.pranimwclick(b%|
0000eb00  2c 69 25 29 0d 05 e7 23  c8 99 20 22 57 69 6d 70  |,i%)...#.. "Wimp|
0000eb10  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
0000eb20  2c 2c 62 6c 6b 32 25 0d  05 e8 2a 63 75 72 72 6d  |,,blk2%...*currm|
0000eb30  65 6e 75 62 75 74 25 3d  62 6c 6b 32 25 21 38 3a  |enubut%=blk2%!8:|
0000eb40  e7 63 75 72 72 6d 65 6e  75 62 75 74 25 3d 32 3a  |.currmenubut%=2:|
0000eb50  e1 0d 05 e9 3b e7 69 25  3d 35 3a f2 70 72 69 6e  |....;.i%=5:.prin|
0000eb60  74 69 74 3a e7 20 63 75  72 72 6d 65 6e 75 62 75  |tit:. currmenubu|
0000eb70  74 25 3c 3e 31 3a c8 99  22 57 69 6d 70 5f 43 72  |t%<>1:.."Wimp_Cr|
0000eb80  65 61 74 65 4d 65 6e 75  22 2c 2d 31 0d 05 ea 05  |eateMenu",-1....|
0000eb90  e1 0d 05 eb 04 0d 05 ec  18 dd f2 65 64 62 6f 78  |...........edbox|
0000eba0  77 63 6c 69 63 6b 28 62  25 2c 69 25 29 0d 05 ed  |wclick(b%,i%)...|
0000ebb0  23 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |#.. "Wimp_GetPoi|
0000ebc0  6e 74 65 72 49 6e 66 6f  22 2c 2c 62 6c 6b 32 25  |nterInfo",,blk2%|
0000ebd0  0d 05 ee 2a 63 75 72 72  6d 65 6e 75 62 75 74 25  |...*currmenubut%|
0000ebe0  3d 62 6c 6b 32 25 21 38  3a e7 63 75 72 72 6d 65  |=blk2%!8:.currme|
0000ebf0  6e 75 62 75 74 25 3d 32  3a e1 0d 05 ef 0b c8 8e  |nubut%=2:.......|
0000ec00  20 69 25 20 ca 0d 05 f0  0a 20 20 c9 20 30 3a 0d  | i% .....  . 0:.|
0000ec10  05 f1 6e 20 20 20 e7 20  a7 a4 67 65 74 69 63 6e  |..n   . ..geticn|
0000ec20  73 74 72 69 6e 67 28 65  64 62 6f 78 77 25 2c 32  |string(edboxw%,2|
0000ec30  29 2c 22 2e 22 29 3d 30  3a f2 65 72 72 6f 72 28  |),".")=0:.error(|
0000ec40  22 54 6f 20 73 61 76 65  2c 20 64 72 61 67 20 74  |"To save, drag t|
0000ec50  68 65 20 54 65 78 74 46  69 6c 65 20 69 63 6f 6e  |he TextFile icon|
0000ec60  20 74 6f 20 61 20 64 69  72 65 63 74 6f 72 79 20  | to a directory |
0000ec70  64 69 73 70 6c 61 79 22  2c 30 29 3a e1 0d 05 f2  |display",0):....|
0000ec80  5c 20 20 20 f2 73 61 76  65 74 65 78 74 66 69 6c  |\   .savetextfil|
0000ec90  65 28 a4 67 65 74 69 63  6e 73 74 72 69 6e 67 28  |e(.geticnstring(|
0000eca0  65 64 62 6f 78 77 25 2c  32 29 2c 30 2c 30 29 3a  |edboxw%,2),0,0):|
0000ecb0  3a e7 20 63 75 72 72 6d  65 6e 75 62 75 74 25 3c  |:. currmenubut%<|
0000ecc0  3e 31 3a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |>1:.."Wimp_Creat|
0000ecd0  65 4d 65 6e 75 22 2c 2d  31 0d 05 f3 54 20 20 c9  |eMenu",-1...T  .|
0000ece0  20 33 3a 20 e7 62 25 3d  36 34 20 f2 73 74 61 72  | 3: .b%=64 .star|
0000ecf0  74 64 72 61 67 28 65 64  62 6f 78 77 25 2c 69 25  |tdrag(edboxw%,i%|
0000ed00  2c a4 6c 65 61 66 28 a4  67 65 74 69 63 6e 73 74  |,.leaf(.geticnst|
0000ed10  72 69 6e 67 28 65 64 62  6f 78 77 25 2c 32 29 29  |ring(edboxw%,2))|
0000ed20  29 3a 64 72 61 67 67 69  6e 67 25 3d 32 0d 05 f4  |):dragging%=2...|
0000ed30  05 cb 0d 05 f5 05 e1 0d  05 f6 04 0d 05 f7 17 dd  |................|
0000ed40  f2 6f 76 65 72 77 63 6c  69 63 6b 28 62 25 2c 69  |.overwclick(b%,i|
0000ed50  25 29 0d 05 f8 1c f2 74  6f 67 67 6c 65 69 63 6e  |%).....toggleicn|
0000ed60  73 65 6c 28 6f 76 65 72  77 25 2c 69 25 29 0d 05  |sel(overw%,i%)..|
0000ed70  f9 0b c8 8e 20 69 25 20  ca 0d 05 fa 37 20 20 c9  |.... i% ....7  .|
0000ed80  20 30 3a 20 f2 63 68 61  6e 67 65 73 65 78 28 6f  | 0: .changesex(o|
0000ed90  76 65 72 77 25 2c 30 29  3a f2 63 68 65 63 6b 73  |verw%,0):.checks|
0000eda0  65 78 3a f2 70 6c 6f 74  62 6f 64 79 6f 72 67 73  |ex:.plotbodyorgs|
0000edb0  0d 05 fb 37 20 20 c9 20  31 3a 20 f2 63 68 61 6e  |...7  . 1: .chan|
0000edc0  67 65 73 65 78 28 6f 76  65 72 77 25 2c 31 29 3a  |gesex(overw%,1):|
0000edd0  f2 63 68 65 63 6b 73 65  78 3a f2 70 6c 6f 74 62  |.checksex:.plotb|
0000ede0  6f 64 79 6f 72 67 73 0d  05 fc 2a 20 20 c9 20 32  |odyorgs...*  . 2|
0000edf0  3a 20 f2 62 69 67 73 6d  61 6c 6c 28 6f 76 65 72  |: .bigsmall(over|
0000ee00  77 25 29 3a f2 70 6c 6f  74 62 6f 64 79 6f 72 67  |w%):.plotbodyorg|
0000ee10  73 0d 05 fd 2d 20 20 c9  20 33 3a 20 f2 6f 70 65  |s...-  . 3: .ope|
0000ee20  6e 5f 73 79 73 74 77 3a  f2 73 65 6c 65 63 74 69  |n_systw:.selecti|
0000ee30  63 6e 28 6f 76 65 72 77  25 2c 33 2c a3 29 0d 05  |cn(overw%,3,.)..|
0000ee40  fe 7e f4 20 20 57 48 45  4e 20 34 2c 35 2c 36 2c  |.~.  WHEN 4,5,6,|
0000ee50  37 2c 38 2c 39 2c 31 30  2c 31 31 2c 31 32 2c 31  |7,8,9,10,11,12,1|
0000ee60  33 2c 31 34 2c 31 35 2c  31 36 2c 31 37 2c 31 38  |3,14,15,16,17,18|
0000ee70  2c 31 39 2c 32 30 2c 32  31 2c 32 32 2c 32 33 2c  |,19,20,21,22,23,|
0000ee80  32 34 2c 32 35 2c 32 36  2c 32 37 3a 50 52 4f 43  |24,25,26,27:PROC|
0000ee90  74 6f 67 67 6c 65 70 6c  6f 74 28 69 25 29 3a 50  |toggleplot(i%):P|
0000eea0  52 4f 43 63 68 65 63 6b  73 65 78 3a 50 52 4f 43  |ROCchecksex:PROC|
0000eeb0  70 6c 6f 74 62 6f 64 79  6f 72 67 73 0d 05 ff 37  |plotbodyorgs...7|
0000eec0  20 20 c9 20 36 2c 37 2c  38 2c 39 3a f2 74 6f 67  |  . 6,7,8,9:.tog|
0000eed0  67 6c 65 70 6c 6f 74 28  69 25 29 3a f2 63 68 65  |gleplot(i%):.che|
0000eee0  63 6b 73 65 78 3a f2 70  6c 6f 74 62 6f 64 79 6f  |cksex:.plotbodyo|
0000eef0  72 67 73 0d 06 00 05 cb  0d 06 01 05 e1 0d 06 02  |rgs.............|
0000ef00  04 0d 06 03 1f dd f2 73  79 73 74 77 63 6c 69 63  |.......systwclic|
0000ef10  6b 28 6d 78 25 2c 6d 79  25 2c 62 25 2c 69 25 29  |k(mx%,my%,b%,i%)|
0000ef20  0d 06 04 36 e7 28 69 25  3c 3e 35 29 80 28 28 69  |...6.(i%<>5).((i|
0000ef30  25 3c 37 29 84 28 69 25  3e 31 32 29 29 3a f2 74  |%<7).(i%>12)):.t|
0000ef40  6f 67 67 6c 65 69 63 6e  73 65 6c 28 73 79 73 74  |oggleicnsel(syst|
0000ef50  77 25 2c 69 25 29 0d 06  05 0b c8 8e 20 69 25 20  |w%,i%)...... i% |
0000ef60  ca 0d 06 06 34 20 20 c9  20 2d 31 2c 35 2c 36 2c  |....4  . -1,5,6,|
0000ef70  37 2c 38 2c 39 2c 31 30  2c 31 31 2c 31 32 3a 20  |7,8,9,10,11,12: |
0000ef80  f2 63 68 65 63 6b 73 79  73 74 65 6d 28 6d 78 25  |.checksystem(mx%|
0000ef90  2c 6d 79 25 29 0d 06 07  66 20 20 c9 20 30 3a 20  |,my%)...f  . 0: |
0000efa0  f2 63 68 61 6e 67 65 73  65 78 28 73 79 73 74 77  |.changesex(systw|
0000efb0  25 2c 30 29 3a f2 63 68  65 63 6b 73 79 73 74 73  |%,0):.checksysts|
0000efc0  65 78 3a e7 73 79 73 74  65 6d 5f 6f 6e 25 28 30  |ex:.system_on%(0|
0000efd0  29 84 73 79 73 74 65 6d  5f 6f 6e 25 28 36 29 84  |).system_on%(6).|
0000efe0  73 79 73 74 65 6d 5f 6f  6e 25 28 37 29 3a f2 70  |system_on%(7):.p|
0000eff0  6c 6f 74 62 6f 64 79 73  79 73 74 0d 06 08 66 20  |lotbodysyst...f |
0000f000  20 c9 20 31 3a 20 f2 63  68 61 6e 67 65 73 65 78  | . 1: .changesex|
0000f010  28 73 79 73 74 77 25 2c  31 29 3a f2 63 68 65 63  |(systw%,1):.chec|
0000f020  6b 73 79 73 74 73 65 78  3a e7 73 79 73 74 65 6d  |ksystsex:.system|
0000f030  5f 6f 6e 25 28 30 29 84  73 79 73 74 65 6d 5f 6f  |_on%(0).system_o|
0000f040  6e 25 28 36 29 84 73 79  73 74 65 6d 5f 6f 6e 25  |n%(6).system_on%|
0000f050  28 37 29 3a f2 70 6c 6f  74 62 6f 64 79 73 79 73  |(7):.plotbodysys|
0000f060  74 0d 06 09 2a 20 20 c9  20 32 3a 20 f2 62 69 67  |t...*  . 2: .big|
0000f070  73 6d 61 6c 6c 28 73 79  73 74 77 25 29 3a f2 70  |small(systw%):.p|
0000f080  6c 6f 74 62 6f 64 79 73  79 73 74 0d 06 0a 19 20  |lotbodysyst.... |
0000f090  20 c9 20 33 3a 20 f2 73  79 73 74 65 6d 74 65 78  | . 3: .systemtex|
0000f0a0  74 28 30 29 0d 06 0b 2d  20 20 c9 20 34 3a 20 f2  |t(0)...-  . 4: .|
0000f0b0  6f 70 65 6e 5f 6f 76 65  72 77 3a f2 73 65 6c 65  |open_overw:.sele|
0000f0c0  63 74 69 63 6e 28 73 79  73 74 77 25 2c 34 2c a3  |cticn(systw%,4,.|
0000f0d0  29 0d 06 0c 05 cb 0d 06  0d 05 e1 0d 06 0e 04 0d  |)...............|
0000f0e0  06 0f 1c dd f2 64 65 66  6e 77 63 6c 69 63 6b 28  |.....defnwclick(|
0000f0f0  6d 78 25 2c 6d 79 25 2c  62 25 29 0d 06 10 20 e7  |mx%,my%,b%)... .|
0000f100  62 25 3d 32 3a f2 64 65  66 6e 77 5f 6d 65 6e 75  |b%=2:.defnw_menu|
0000f110  28 6d 78 25 2c 6d 79 25  29 3a e1 0d 06 11 05 e1  |(mx%,my%):......|
0000f120  0d 06 12 04 0d 06 13 1f  dd f2 62 6f 64 79 77 63  |..........bodywc|
0000f130  6c 69 63 6b 28 6d 78 25  2c 6d 79 25 2c 62 25 2c  |lick(mx%,my%,b%,|
0000f140  69 25 29 0d 06 14 3c e7  28 62 25 3d 32 29 80 28  |i%)...<.(b%=2).(|
0000f150  ac 20 a4 69 73 73 65 6c  65 63 74 65 64 28 73 79  |. .isselected(sy|
0000f160  73 74 77 25 2c 32 29 29  3a f2 62 6f 64 79 77 5f  |stw%,2)):.bodyw_|
0000f170  6d 65 6e 75 28 6d 78 25  2c 6d 79 25 29 3a e1 0d  |menu(mx%,my%):..|
0000f180  06 15 1c f2 74 6f 67 67  6c 65 69 63 6e 73 65 6c  |....toggleicnsel|
0000f190  28 62 6f 64 79 77 25 2c  69 25 29 0d 06 16 22 e7  |(bodyw%,i%)...".|
0000f1a0  28 69 25 3e 3d 30 29 80  28 69 25 3c 32 35 29 3a  |(i%>=0).(i%<25):|
0000f1b0  f2 67 6f 63 6c 6f 73 65  72 28 69 25 29 0d 06 17  |.gocloser(i%)...|
0000f1c0  28 e7 28 69 25 3e 3d 32  35 29 80 28 69 25 3c 3d  |(.(i%>=25).(i%<=|
0000f1d0  34 33 29 3a f2 6a 75 73  74 77 6f 72 64 69 6e 66  |43):.justwordinf|
0000f1e0  6f 28 69 25 29 0d 06 18  05 e1 0d 06 19 04 0d 06  |o(i%)...........|
0000f1f0  1a 1f dd f2 61 6e 69 6d  77 63 6c 69 63 6b 28 6d  |....animwclick(m|
0000f200  78 25 2c 6d 79 25 2c 62  25 2c 69 25 29 0d 06 1b  |x%,my%,b%,i%)...|
0000f210  20 e7 62 25 3d 32 3a f2  61 6e 69 6d 77 5f 6d 65  | .b%=2:.animw_me|
0000f220  6e 75 28 6d 78 25 2c 6d  79 25 29 3a e1 0d 06 1c  |nu(mx%,my%):....|
0000f230  1c f2 74 6f 67 67 6c 65  69 63 6e 73 65 6c 28 61  |..toggleicnsel(a|
0000f240  6e 69 6d 77 25 2c 69 25  29 0d 06 1d 0b c8 8e 20  |nimw%,i%)...... |
0000f250  69 25 20 ca 0d 06 1e 1b  20 20 c9 20 30 3a 20 6f  |i% .....  . 0: o|
0000f260  6e 6c 79 66 65 6d 25 3d  30 3a f2 74 65 78 74 0d  |nlyfem%=0:.text.|
0000f270  06 1f 21 20 20 c9 20 31  3a 20 6f 6e 6c 79 66 65  |..!  . 1: onlyfe|
0000f280  6d 25 3d 30 3a f2 77 69  6e 64 6f 77 6c 65 76 31  |m%=0:.windowlev1|
0000f290  0d 06 20 21 20 20 c9 20  32 3a 20 6f 6e 6c 79 66  |.. !  . 2: onlyf|
0000f2a0  65 6d 25 3d 30 3a f2 77  69 6e 64 6f 77 6c 65 76  |em%=0:.windowlev|
0000f2b0  32 0d 06 21 15 20 20 c9  20 33 3a 20 6f 6e 6c 79  |2..!.  . 3: only|
0000f2c0  66 65 6d 25 3d 30 0d 06  22 25 20 20 20 20 20 20  |fem%=0.."%      |
0000f2d0  20 20 20 20 e7 a4 69 73  73 65 6c 65 63 74 65 64  |    ..isselected|
0000f2e0  28 61 6e 69 6d 77 25 2c  33 29 8c 0d 06 23 6c 20  |(animw%,3)...#l |
0000f2f0  20 20 20 20 20 20 20 20  20 20 e7 64 6f 69 6e 67  |          .doing|
0000f300  63 6c 6f 73 65 72 25 3a  64 6f 69 6e 67 63 6c 6f  |closer%:doingclo|
0000f310  73 65 72 25 3d 30 3a 61  63 74 69 76 65 77 25 3d  |ser%=0:activew%=|
0000f320  31 3a f2 73 68 6f 77 61  6e 69 6d 28 61 63 74 69  |1:.showanim(acti|
0000f330  76 65 77 25 2c 61 63 74  69 76 65 69 63 6e 25 29  |vew%,activeicn%)|
0000f340  3a f2 73 65 6c 65 63 74  69 63 6e 28 61 6e 69 6d  |:.selecticn(anim|
0000f350  77 25 2c 32 2c a3 29 0d  06 24 31 20 20 20 20 20  |w%,2,.)..$1     |
0000f360  20 20 20 20 20 20 64 6f  69 6e 67 6d 6f 76 65 25  |      doingmove%|
0000f370  3d b9 3a 66 69 72 73 74  6d 6f 76 65 25 3d b9 3a  |=.:firstmove%=.:|
0000f380  f2 61 6e 69 6d 61 74 65  0d 06 25 0f 20 20 20 20  |.animate..%.    |
0000f390  20 20 20 20 20 20 cc 0d  06 26 67 20 20 20 20 20  |      ...&g     |
0000f3a0  20 20 20 20 20 20 f2 73  68 6f 77 61 6e 69 6d 28  |      .showanim(|
0000f3b0  61 63 74 69 76 65 77 25  2c 61 63 74 69 76 65 69  |activew%,activei|
0000f3c0  63 6e 25 29 3a f2 61 6e  69 6d 61 74 65 65 6e 64  |cn%):.animateend|
0000f3d0  3a c8 99 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |:.."Wimp_ForceRe|
0000f3e0  64 72 61 77 22 2c 61 6e  69 6d 77 25 2c 36 36 30  |draw",animw%,660|
0000f3f0  2c 2d 37 30 30 2c 37 38  30 2c 2d 36 33 36 0d 06  |,-700,780,-636..|
0000f400  27 0f 20 20 20 20 20 20  20 20 20 20 cd 0d 06 28  |'.          ...(|
0000f410  87 20 20 c9 20 35 2c 36  2c 37 2c 38 2c 39 2c 31  |.  . 5,6,7,8,9,1|
0000f420  30 2c 31 31 2c 31 32 2c  31 33 2c 31 34 2c 31 35  |0,11,12,13,14,15|
0000f430  2c 31 36 2c 31 37 2c 31  38 2c 31 39 2c 32 30 2c  |,16,17,18,19,20,|
0000f440  32 31 2c 32 32 2c 32 33  2c 32 34 2c 32 35 2c 32  |21,22,23,24,25,2|
0000f450  36 2c 32 37 2c 32 38 2c  32 39 2c 33 30 2c 33 31  |6,27,28,29,30,31|
0000f460  2c 33 32 2c 33 33 2c 33  34 2c 33 35 2c 33 36 2c  |,32,33,34,35,36,|
0000f470  33 37 2c 33 38 2c 33 39  2c 34 30 2c 34 31 2c 34  |37,38,39,40,41,4|
0000f480  32 2c 34 33 2c 34 34 2c  34 35 2c 34 36 2c 34 37  |2,43,44,45,46,47|
0000f490  2c 34 38 3a 0d 06 29 3f  20 20 20 20 20 20 20 20  |,48:..)?        |
0000f4a0  e7 61 63 74 69 76 65 74  78 74 69 63 6e 25 3e 34  |.activetxticn%>4|
0000f4b0  20 f2 73 65 6c 65 63 74  69 63 6e 28 61 6e 69 6d  | .selecticn(anim|
0000f4c0  77 25 2c 61 63 74 69 76  65 74 78 74 69 63 6e 25  |w%,activetxticn%|
0000f4d0  2c a3 29 0d 06 2a 47 20  20 20 20 20 20 20 20 e7  |,.)..*G        .|
0000f4e0  61 63 74 69 76 65 74 78  74 69 63 6e 25 3d 69 25  |activetxticn%=i%|
0000f4f0  20 61 63 74 69 76 65 74  78 74 69 63 6e 25 3d 61  | activetxticn%=a|
0000f500  63 74 69 76 65 77 25 3a  8b 3a 61 63 74 69 76 65  |ctivew%:.:active|
0000f510  74 78 74 69 63 6e 25 3d  69 25 0d 06 2b 24 20 20  |txticn%=i%..+$  |
0000f520  20 20 20 20 20 20 f2 61  64 64 77 6f 72 64 73 28  |      .addwords(|
0000f530  61 63 74 69 76 65 74 78  74 69 63 6e 25 29 0d 06  |activetxticn%)..|
0000f540  2c 14 20 20 c9 20 34 39  3a 20 f2 61 6e 69 6d 61  |,.  . 49: .anima|
0000f550  74 65 0d 06 2d 05 cb 0d  06 2e 05 e1 0d 06 2f 04  |te..-........./.|
0000f560  0d 06 30 1f dd f2 63 6c  69 63 6b 28 6d 78 25 2c  |..0...click(mx%,|
0000f570  6d 79 25 2c 62 75 74 25  2c 77 25 2c 69 25 29 0d  |my%,but%,w%,i%).|
0000f580  06 31 0b c8 8e 20 77 25  20 ca 0d 06 32 0b 20 20  |.1... w% ...2.  |
0000f590  c9 20 2d 32 3a 0d 06 33  11 20 20 20 20 c8 8e 20  |. -2:..3.    .. |
0000f5a0  62 75 74 25 20 ca 0d 06  34 47 20 20 20 20 20 20  |but% ...4G      |
0000f5b0  c9 20 32 3a 20 f2 6d 61  73 74 65 72 5f 6d 65 6e  |. 2: .master_men|
0000f5c0  75 28 22 42 6f 64 79 57  69 73 65 22 2c 22 49 6e  |u("BodyWise","In|
0000f5d0  66 6f 2c 53 65 74 75 70  2e 2e 2e 2c 37 51 75 69  |fo,Setup...,7Qui|
0000f5e0  74 2c 22 2c 21 65 62 25  2c 32 35 36 29 0d 06 35  |t,",!eb%,256)..5|
0000f5f0  3e 20 20 20 20 20 20 c9  20 34 3a 20 e7 a4 69 73  |>      . 4: ..is|
0000f600  73 65 6c 65 63 74 65 64  28 73 65 74 75 70 77 25  |selected(setupw%|
0000f610  2c 34 38 29 3a f2 73 74  61 72 74 70 69 6e 3a 8b  |,48):.startpin:.|
0000f620  3a f2 73 74 61 72 74 67  61 6d 65 0d 06 36 09 20  |:.startgame..6. |
0000f630  20 20 20 cb 0d 06 37 26  20 20 c9 20 73 65 74 75  |   ...7&  . setu|
0000f640  70 77 25 3a 20 f2 73 65  74 75 70 77 63 6c 69 63  |pw%: .setupwclic|
0000f650  6b 28 62 75 74 25 2c 69  25 29 0d 06 38 24 20 20  |k(but%,i%)..8$  |
0000f660  c9 20 6f 76 65 72 77 25  3a 20 f2 6f 76 65 72 77  |. overw%: .overw|
0000f670  63 6c 69 63 6b 28 62 75  74 25 2c 69 25 29 0d 06  |click(but%,i%)..|
0000f680  39 2c 20 20 c9 20 73 79  73 74 77 25 3a 20 f2 73  |9,  . systw%: .s|
0000f690  79 73 74 77 63 6c 69 63  6b 28 6d 78 25 2c 6d 79  |ystwclick(mx%,my|
0000f6a0  25 2c 62 75 74 25 2c 69  25 29 0d 06 3a 2c 20 20  |%,but%,i%)..:,  |
0000f6b0  c9 20 62 6f 64 79 77 25  3a 20 f2 62 6f 64 79 77  |. bodyw%: .bodyw|
0000f6c0  63 6c 69 63 6b 28 6d 78  25 2c 6d 79 25 2c 62 75  |click(mx%,my%,bu|
0000f6d0  74 25 2c 69 25 29 0d 06  3b 2c 20 20 c9 20 61 6e  |t%,i%)..;,  . an|
0000f6e0  69 6d 77 25 3a 20 f2 61  6e 69 6d 77 63 6c 69 63  |imw%: .animwclic|
0000f6f0  6b 28 6d 78 25 2c 6d 79  25 2c 62 75 74 25 2c 69  |k(mx%,my%,but%,i|
0000f700  25 29 0d 06 3c 2d f4 20  20 57 48 45 4e 20 70 64  |%)..<-.  WHEN pd|
0000f710  62 6f 78 77 25 3a 20 50  52 4f 43 70 64 62 6f 78  |boxw%: PROCpdbox|
0000f720  77 63 6c 69 63 6b 28 62  75 74 25 2c 69 25 29 0d  |wclick(but%,i%).|
0000f730  06 3d 26 20 20 c9 20 65  64 62 6f 78 77 25 3a 20  |.=&  . edboxw%: |
0000f740  f2 65 64 62 6f 78 77 63  6c 69 63 6b 28 62 75 74  |.edboxwclick(but|
0000f750  25 2c 69 25 29 0d 06 3e  29 20 20 c9 20 64 65 66  |%,i%)..>)  . def|
0000f760  6e 77 25 3a 20 f2 64 65  66 6e 77 63 6c 69 63 6b  |nw%: .defnwclick|
0000f770  28 6d 78 25 2c 6d 79 25  2c 62 75 74 25 29 0d 06  |(mx%,my%,but%)..|
0000f780  3f 32 20 20 c9 20 70 69  6e 6f 72 67 73 77 25 3a  |?2  . pinorgsw%:|
0000f790  20 f2 70 69 6e 6f 72 67  73 77 63 6c 69 63 6b 28  | .pinorgswclick(|
0000f7a0  6d 78 25 2c 6d 79 25 2c  62 75 74 25 2c 69 25 29  |mx%,my%,but%,i%)|
0000f7b0  0d 06 40 4f 20 20 c9 20  70 69 6e 6f 75 74 6c 77  |..@O  . pinoutlw|
0000f7c0  25 3a 20 e7 28 70 69 6e  67 6f 74 74 6f 25 3d 32  |%: .(pingotto%=2|
0000f7d0  29 84 28 70 69 6e 67 6f  74 74 6f 25 3d 39 29 3a  |).(pingotto%=9):|
0000f7e0  f2 70 69 6e 6f 75 74 6c  77 63 6c 69 63 6b 28 6d  |.pinoutlwclick(m|
0000f7f0  78 25 2c 6d 79 25 2c 62  75 74 25 2c 69 25 29 0d  |x%,my%,but%,i%).|
0000f800  06 41 28 20 20 c9 20 73  61 62 6f 64 79 77 25 3a  |.A(  . sabodyw%:|
0000f810  20 f2 73 61 62 6f 64 79  77 63 6c 69 63 6b 28 62  | .sabodywclick(b|
0000f820  75 74 25 2c 69 25 29 0d  06 42 28 20 20 c9 20 70  |ut%,i%)..B(  . p|
0000f830  72 62 6f 64 79 77 25 3a  20 f2 70 72 62 6f 64 79  |rbodyw%: .prbody|
0000f840  77 63 6c 69 63 6b 28 62  75 74 25 2c 69 25 29 0d  |wclick(but%,i%).|
0000f850  06 43 28 20 20 c9 20 73  61 61 6e 69 6d 77 25 3a  |.C(  . saanimw%:|
0000f860  20 f2 73 61 61 6e 69 6d  77 63 6c 69 63 6b 28 62  | .saanimwclick(b|
0000f870  75 74 25 2c 69 25 29 0d  06 44 28 20 20 c9 20 70  |ut%,i%)..D(  . p|
0000f880  72 61 6e 69 6d 77 25 3a  20 f2 70 72 61 6e 69 6d  |ranimw%: .pranim|
0000f890  77 63 6c 69 63 6b 28 62  75 74 25 2c 69 25 29 0d  |wclick(but%,i%).|
0000f8a0  06 45 05 cb 0d 06 46 05  e1 0d 06 47 04 0d 06 48  |.E....F....G...H|
0000f8b0  14 dd f2 61 6e 69 6d 62  75 74 73 5f 6f 6e 6f 66  |...animbuts_onof|
0000f8c0  66 0d 06 49 1a 61 63 74  69 76 65 74 78 74 69 63  |f..I.activetxtic|
0000f8d0  6e 25 3d 61 63 74 69 76  65 77 25 0d 06 4a 3a e7  |n%=activew%..J:.|
0000f8e0  a4 69 73 6f 70 65 6e 28  61 6e 69 6d 77 25 29 8c  |.isopen(animw%).|
0000f8f0  3a e7 a4 69 73 73 65 6c  65 63 74 65 64 28 61 6e  |:..isselected(an|
0000f900  69 6d 77 25 2c 30 29 20  f2 72 65 6d 6f 76 65 6c  |imw%,0) .removel|
0000f910  61 62 65 6c 73 0d 06 4b  2e e7 20 a4 69 73 73 65  |abels..K.. .isse|
0000f920  6c 65 63 74 65 64 28 73  65 74 75 70 77 25 2c 33  |lected(setupw%,3|
0000f930  29 3a 73 69 6d 70 25 3d  31 3a 8b 3a 73 69 6d 70  |):simp%=1:.:simp|
0000f940  25 3d 30 0d 06 4c 62 e7  a4 69 73 6f 70 65 6e 28  |%=0..Lb..isopen(|
0000f950  61 6e 69 6d 77 25 29 8c  3a e7 a4 69 73 73 65 6c  |animw%).:..issel|
0000f960  65 63 74 65 64 28 61 6e  69 6d 77 25 2c 30 29 20  |ected(animw%,0) |
0000f970  f2 61 64 64 6c 69 6e 65  73 28 30 29 3a f2 70 6c  |.addlines(0):.pl|
0000f980  6f 74 61 6e 69 6d 3a f2  61 64 64 6c 61 62 65 6c  |otanim:.addlabel|
0000f990  73 3a f2 61 64 64 77 6f  72 64 73 28 61 63 74 69  |s:.addwords(acti|
0000f9a0  76 65 77 25 29 0d 06 4d  05 e1 0d 06 4e 04 0d 06  |vew%)..M....N...|
0000f9b0  4f 18 dd f2 73 68 61 64  65 69 63 6e 28 77 25 2c  |O...shadeicn(w%,|
0000f9c0  69 25 2c 66 25 29 0d 06  50 24 21 62 6c 6b 25 3d  |i%,f%)..P$!blk%=|
0000f9d0  77 25 3a 62 6c 6b 25 21  34 3d 69 25 3a 62 6c 6b  |w%:blk%!4=i%:blk|
0000f9e0  25 21 31 32 3d 31 3c 3c  32 32 0d 06 51 1f e7 66  |%!12=1<<22..Q..f|
0000f9f0  25 20 62 6c 6b 25 21 38  3d 31 3c 3c 32 32 3a 8b  |% blk%!8=1<<22:.|
0000fa00  3a 62 6c 6b 25 21 38 3d  30 0d 06 52 20 c8 99 20  |:blk%!8=0..R .. |
0000fa10  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
0000fa20  74 65 22 2c 2c 62 6c 6b  25 0d 06 53 05 e1 0d 06  |te",,blk%..S....|
0000fa30  54 04 0d 06 55 19 dd f2  74 6f 67 67 6c 65 69 63  |T...U...toggleic|
0000fa40  6e 73 65 6c 28 77 25 2c  69 25 29 0d 06 56 42 e7  |nsel(w%,i%)..VB.|
0000fa50  20 a4 69 73 73 65 6c 65  63 74 65 64 28 77 25 2c  | .isselected(w%,|
0000fa60  69 25 29 20 f2 73 65 6c  65 63 74 69 63 6e 28 77  |i%) .selecticn(w|
0000fa70  25 2c 69 25 2c a3 29 3a  8b 3a f2 73 65 6c 65 63  |%,i%,.):.:.selec|
0000fa80  74 69 63 6e 28 77 25 2c  69 25 2c b9 29 0d 06 57  |ticn(w%,i%,.)..W|
0000fa90  05 e1 0d 06 58 04 0d 06  59 14 dd f2 74 6f 67 67  |....X...Y...togg|
0000faa0  6c 65 70 6c 6f 74 28 69  25 29 0d 06 5a 1d 74 65  |leplot(i%)..Z.te|
0000fab0  6d 70 24 3d 6c 69 6e 6b  24 28 69 25 2d 34 29 3a  |mp$=link$(i%-4):|
0000fac0  6d 6f 72 65 25 3d b9 0d  06 5b 05 f5 0d 06 5c 2e  |more%=...[....\.|
0000fad0  62 6f 64 79 73 70 25 28  bb 28 74 65 6d 70 24 29  |bodysp%(.(temp$)|
0000fae0  2c 30 29 3d a4 69 73 73  65 6c 65 63 74 65 64 28  |,0)=.isselected(|
0000faf0  6f 76 65 72 77 25 2c 69  25 29 0d 06 5d 33 e7 a9  |overw%,i%)..]3..|
0000fb00  28 74 65 6d 70 24 29 3e  32 8c 20 74 65 6d 70 24  |(temp$)>2. temp$|
0000fb10  3d c2 74 65 6d 70 24 2c  a9 28 74 65 6d 70 24 29  |=.temp$,.(temp$)|
0000fb20  2d 33 29 3a 8b 3a 6d 6f  72 65 25 3d a3 0d 06 5e  |-3):.:more%=...^|
0000fb30  0d fd 20 ac 20 6d 6f 72  65 25 0d 06 5f 12 f4 20  |.. . more%.._.. |
0000fb40  63 68 65 63 6b 20 75 72  65 74 65 72 0d 06 60 50  |check ureter..`P|
0000fb50  e7 28 69 25 3d 32 33 29  84 28 69 25 3d 32 34 29  |.(i%=23).(i%=24)|
0000fb60  3a 62 6f 64 79 73 70 25  28 32 30 2c 30 29 3d a4  |:bodysp%(20,0)=.|
0000fb70  69 73 73 65 6c 65 63 74  65 64 28 6f 76 65 72 77  |isselected(overw|
0000fb80  25 2c 32 33 29 80 a4 69  73 73 65 6c 65 63 74 65  |%,23)..isselecte|
0000fb90  64 28 6f 76 65 72 77 25  2c 32 34 29 0d 06 61 14  |d(overw%,24)..a.|
0000fba0  f4 20 63 68 65 63 6b 20  70 61 6e 63 72 65 61 73  |. check pancreas|
0000fbb0  0d 06 62 50 e7 28 69 25  3d 32 31 29 84 28 69 25  |..bP.(i%=21).(i%|
0000fbc0  3d 32 36 29 3a 62 6f 64  79 73 70 25 28 32 35 2c  |=26):bodysp%(25,|
0000fbd0  30 29 3d a4 69 73 73 65  6c 65 63 74 65 64 28 6f  |0)=.isselected(o|
0000fbe0  76 65 72 77 25 2c 32 31  29 84 a4 69 73 73 65 6c  |verw%,21)..issel|
0000fbf0  65 63 74 65 64 28 6f 76  65 72 77 25 2c 32 36 29  |ected(overw%,26)|
0000fc00  0d 06 63 05 e1 0d 06 64  04 0d 06 65 1e dd f2 73  |..c....d...e...s|
0000fc10  79 73 74 65 6d 74 65 78  74 28 66 72 6f 6d 73 79  |ystemtext(fromsy|
0000fc20  73 74 62 75 74 25 29 0d  06 66 3b e7 ac a4 69 73  |stbut%)..f;...is|
0000fc30  73 65 6c 65 63 74 65 64  28 73 79 73 74 77 25 2c  |selected(systw%,|
0000fc40  33 29 3a 21 62 6c 6b 25  3d 64 65 66 6e 77 25 3a  |3):!blk%=defnw%:|
0000fc50  f2 63 6c 6f 73 65 77 69  6e 64 28 62 6c 6b 25 29  |.closewind(blk%)|
0000fc60  3a e1 0d 06 67 42 21 62  6c 6b 32 25 3d 64 65 66  |:...gB!blk2%=def|
0000fc70  6e 77 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |nw%:.."Wimp_GetW|
0000fc80  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6b  |indowState",,blk|
0000fc90  32 25 3a 6f 6c 64 77 70  6f 73 25 3d 62 6c 6b 32  |2%:oldwpos%=blk2|
0000fca0  25 21 32 38 0d 06 68 12  e7 66 72 6f 6d 73 79 73  |%!28..h..fromsys|
0000fcb0  74 62 75 74 25 8c 0d 06  69 68 20 e7 28 28 28 62  |tbut%...ih .(((b|
0000fcc0  6c 6b 32 25 21 31 32 29  2d 28 62 6c 6b 32 25 21  |lk2%!12)-(blk2%!|
0000fcd0  34 29 29 3d 38 30 30 29  80 28 28 28 62 6c 6b 32  |4))=800).(((blk2|
0000fce0  25 21 31 36 29 2d 28 62  6c 6b 32 25 21 38 29 29  |%!16)-(blk2%!8))|
0000fcf0  3e 3d 6c 65 6e 67 74 68  25 29 3a 77 61 73 66 75  |>=length%):wasfu|
0000fd00  6c 6c 77 69 6e 64 6f 77  25 3d b9 3a 8b 3a 77 61  |llwindow%=.:.:wa|
0000fd10  73 66 75 6c 6c 77 69 6e  64 6f 77 25 3d a3 0d 06  |sfullwindow%=...|
0000fd20  6a 05 cd 0d 06 6b 21 21  62 6c 6b 25 3d 64 65 66  |j....k!!blk%=def|
0000fd30  6e 77 25 3a f2 63 6c 6f  73 65 77 69 6e 64 28 62  |nw%:.closewind(b|
0000fd40  6c 6b 25 29 0d 06 6c 13  f2 73 6f 72 74 73 79 73  |lk%)..l..sortsys|
0000fd50  74 65 6d 74 65 78 74 0d  06 6d 12 e7 66 72 6f 6d  |temtext..m..from|
0000fd60  73 79 73 74 62 75 74 25  8c 0d 06 6e 15 20 e7 77  |systbut%...n. .w|
0000fd70  61 73 66 75 6c 6c 77 69  6e 64 6f 77 25 8c 0d 06  |asfullwindow%...|
0000fd80  6f 32 20 20 e7 28 62 6c  6b 32 25 21 31 36 29 3c  |o2  .(blk2%!16)<|
0000fd90  28 6c 65 6e 67 74 68 25  2b 34 38 29 3a 62 6c 6b  |(length%+48):blk|
0000fda0  32 25 21 31 36 3d 6c 65  6e 67 74 68 25 2b 34 38  |2%!16=length%+48|
0000fdb0  0d 06 70 20 20 20 62 6c  6b 32 25 21 38 3d 28 62  |..p   blk2%!8=(b|
0000fdc0  6c 6b 32 25 21 31 36 29  2d 6c 65 6e 67 74 68 25  |lk2%!16)-length%|
0000fdd0  0d 06 71 06 20 cc 0d 06  72 40 20 20 e7 28 28 62  |..q. ...r@  .((b|
0000fde0  6c 6b 32 25 21 31 36 29  2d 28 62 6c 6b 32 25 21  |lk2%!16)-(blk2%!|
0000fdf0  38 29 29 3e 6c 65 6e 67  74 68 25 3a 62 6c 6b 32  |8))>length%:blk2|
0000fe00  25 21 38 3d 28 62 6c 6b  32 25 21 31 36 29 2d 6c  |%!8=(blk2%!16)-l|
0000fe10  65 6e 67 74 68 25 0d 06  73 10 20 20 62 6c 6b 32  |ength%..s.  blk2|
0000fe20  25 21 32 34 3d 30 0d 06  74 06 20 cd 0d 06 75 05  |%!24=0..t. ...u.|
0000fe30  cc 0d 06 76 84 21 62 6c  6b 32 25 3d 64 65 66 6e  |...v.!blk2%=defn|
0000fe40  77 25 3a 62 6c 6b 32 25  21 34 3d 32 34 30 3a 62  |w%:blk2%!4=240:b|
0000fe50  6c 6b 32 25 21 38 3d 28  31 30 32 34 2d 6c 65 6e  |lk2%!8=(1024-len|
0000fe60  67 74 68 25 29 2f 32 3a  62 6c 6b 32 25 21 31 32  |gth%)/2:blk2%!12|
0000fe70  3d 32 34 30 2b 38 30 30  3a 62 6c 6b 32 25 21 31  |=240+800:blk2%!1|
0000fe80  36 3d 28 62 6c 6b 32 25  21 38 29 2b 6c 65 6e 67  |6=(blk2%!8)+leng|
0000fe90  74 68 25 3a 62 6c 6b 32  25 21 32 30 3d 30 3a 62  |th%:blk2%!20=0:b|
0000fea0  6c 6b 32 25 21 32 34 3d  30 3a 62 6c 6b 32 25 21  |lk2%!24=0:blk2%!|
0000feb0  32 38 3d 2d 31 0d 06 77  05 cd 0d 06 78 14 f2 6f  |28=-1..w....x..o|
0000fec0  70 65 6e 77 69 6e 64 28  62 6c 6b 32 25 29 0d 06  |penwind(blk2%)..|
0000fed0  79 05 e1 0d 06 7a 04 0d  06 7b 14 dd f2 73 6f 72  |y....z...{...sor|
0000fee0  74 73 79 73 74 65 6d 74  65 78 74 0d 06 7c 08 6c  |tsystemtext..|.l|
0000fef0  25 3d 30 0d 06 7d 0b e3  6a 25 3d 30 b8 37 0d 06  |%=0..}..j%=0.7..|
0000ff00  7e 1f 20 e7 a4 69 73 73  65 6c 65 63 74 65 64 28  |~. ..isselected(|
0000ff10  73 79 73 74 77 25 2c 6a  25 2b 35 29 8c 0d 06 7f  |systw%,j%+5)....|
0000ff20  33 20 20 e3 6b 25 3d 73  79 73 74 6c 69 6e 6b 77  |3  .k%=systlinkw|
0000ff30  6f 72 64 73 25 28 6a 25  2c 30 29 b8 73 79 73 74  |ords%(j%,0).syst|
0000ff40  6c 69 6e 6b 77 6f 72 64  73 25 28 6a 25 2c 31 29  |linkwords%(j%,1)|
0000ff50  0d 06 80 34 20 20 20 f2  70 75 74 69 63 6e 73 74  |...4   .puticnst|
0000ff60  72 69 6e 67 28 64 65 66  6e 77 25 2c 6c 25 2c 73  |ring(defnw%,l%,s|
0000ff70  79 73 74 77 6f 72 64 73  24 28 6b 25 29 29 3a 6c  |ystwords$(k%)):l|
0000ff80  25 2b 3d 31 0d 06 81 07  20 20 ed 0d 06 82 06 20  |%+=1....  ..... |
0000ff90  cd 0d 06 83 05 ed 0d 06  84 19 74 6f 74 73 79 73  |..........totsys|
0000ffa0  74 74 78 74 6c 69 6e 65  73 25 3d 6c 25 2d 31 0d  |ttxtlines%=l%-1.|
0000ffb0  06 85 0b e7 6c 25 3c 32  32 8c 0d 06 86 2c 20 e3  |....l%<22...., .|
0000ffc0  6a 25 3d 6c 25 b8 32 31  3a f2 70 75 74 69 63 6e  |j%=l%.21:.puticn|
0000ffd0  73 74 72 69 6e 67 28 64  65 66 6e 77 25 2c 6a 25  |string(defnw%,j%|
0000ffe0  2c 22 22 29 3a ed 0d 06  87 05 cd 0d 06 88 17 6c  |,""):..........l|
0000fff0  65 6e 67 74 68 25 3d 28  28 34 30 2a 6c 25 29 2b  |ength%=((40*l%)+|
00010000  38 29 0d 06 89 4f 21 62  6c 6b 25 3d 30 3a 62 6c  |8)...O!blk%=0:bl|
00010010  6b 25 21 34 3d 2d 6c 65  6e 67 74 68 25 3a 62 6c  |k%!4=-length%:bl|
00010020  6b 25 21 38 3d 38 30 30  3a 62 6c 6b 25 21 31 32  |k%!8=800:blk%!12|
00010030  3d 30 3a c8 99 22 57 69  6d 70 5f 53 65 74 45 78  |=0:.."Wimp_SetEx|
00010040  74 65 6e 74 22 2c 64 65  66 6e 77 25 2c 62 6c 6b  |tent",defnw%,blk|
00010050  25 0d 06 8a 05 e1 0d 06  8b 04 0d 06 8c 0e dd f2  |%...............|
00010060  63 68 65 63 6b 73 65 78  0d 06 8d 3c 62 6f 64 79  |checksex...<body|
00010070  73 70 25 28 33 2c 30 29  3d a4 69 73 73 65 6c 65  |sp%(3,0)=.issele|
00010080  63 74 65 64 28 6f 76 65  72 77 25 2c 34 29 80 a4  |cted(overw%,4)..|
00010090  69 73 73 65 6c 65 63 74  65 64 28 6f 76 65 72 77  |isselected(overw|
000100a0  25 2c 31 29 0d 06 8e 57  62 6f 64 79 73 70 25 28  |%,1)...Wbodysp%(|
000100b0  31 38 2c 30 29 3d 28 a4  69 73 73 65 6c 65 63 74  |18,0)=(.isselect|
000100c0  65 64 28 6f 76 65 72 77  25 2c 32 36 29 84 a4 69  |ed(overw%,26)..i|
000100d0  73 73 65 6c 65 63 74 65  64 28 6f 76 65 72 77 25  |sselected(overw%|
000100e0  2c 32 37 29 29 80 a4 69  73 73 65 6c 65 63 74 65  |,27))..isselecte|
000100f0  64 28 6f 76 65 72 77 25  2c 31 29 0d 06 8f 3e 62  |d(overw%,1)...>b|
00010100  6f 64 79 73 70 25 28 31  39 2c 30 29 3d a4 69 73  |odysp%(19,0)=.is|
00010110  73 65 6c 65 63 74 65 64  28 6f 76 65 72 77 25 2c  |selected(overw%,|
00010120  32 37 29 80 a4 69 73 73  65 6c 65 63 74 65 64 28  |27)..isselected(|
00010130  6f 76 65 72 77 25 2c 31  29 0d 06 90 1f 62 6f 64  |overw%,1)....bod|
00010140  79 73 70 25 28 34 33 2c  30 29 3d 62 6f 64 79 73  |ysp%(43,0)=bodys|
00010150  70 25 28 31 39 2c 30 29  0d 06 91 3e 62 6f 64 79  |p%(19,0)...>body|
00010160  73 70 25 28 32 31 2c 30  29 3d a4 69 73 73 65 6c  |sp%(21,0)=.issel|
00010170  65 63 74 65 64 28 6f 76  65 72 77 25 2c 32 37 29  |ected(overw%,27)|
00010180  80 a4 69 73 73 65 6c 65  63 74 65 64 28 6f 76 65  |..isselected(ove|
00010190  72 77 25 2c 30 29 0d 06  92 57 62 6f 64 79 73 70  |rw%,0)...Wbodysp|
000101a0  25 28 32 33 2c 30 29 3d  62 6f 64 79 73 70 25 28  |%(23,0)=bodysp%(|
000101b0  32 31 2c 30 29 3a 62 6f  64 79 73 70 25 28 33 37  |21,0):bodysp%(37|
000101c0  2c 30 29 3d 62 6f 64 79  73 70 25 28 32 31 2c 30  |,0)=bodysp%(21,0|
000101d0  29 3a 62 6f 64 79 73 70  25 28 34 35 2c 30 29 3d  |):bodysp%(45,0)=|
000101e0  62 6f 64 79 73 70 25 28  32 31 2c 30 29 0d 06 93  |bodysp%(21,0)...|
000101f0  57 62 6f 64 79 73 70 25  28 34 34 2c 30 29 3d 28  |Wbodysp%(44,0)=(|
00010200  a4 69 73 73 65 6c 65 63  74 65 64 28 6f 76 65 72  |.isselected(over|
00010210  77 25 2c 32 36 29 84 a4  69 73 73 65 6c 65 63 74  |w%,26)..isselect|
00010220  65 64 28 6f 76 65 72 77  25 2c 32 37 29 29 80 a4  |ed(overw%,27))..|
00010230  69 73 73 65 6c 65 63 74  65 64 28 6f 76 65 72 77  |isselected(overw|
00010240  25 2c 30 29 0d 06 94 56  62 6f 64 79 73 70 25 28  |%,0)...Vbodysp%(|
00010250  35 30 2c 30 29 3d 28 a4  69 73 73 65 6c 65 63 74  |50,0)=(.isselect|
00010260  65 64 28 6f 76 65 72 77  25 2c 38 29 84 a4 69 73  |ed(overw%,8)..is|
00010270  73 65 6c 65 63 74 65 64  28 6f 76 65 72 77 25 2c  |selected(overw%,|
00010280  32 35 29 29 80 a4 69 73  73 65 6c 65 63 74 65 64  |25))..isselected|
00010290  28 6f 76 65 72 77 25 2c  31 29 0d 06 95 1f 62 6f  |(overw%,1)....bo|
000102a0  64 79 73 70 25 28 35 31  2c 30 29 3d 62 6f 64 79  |dysp%(51,0)=body|
000102b0  73 70 25 28 35 30 2c 30  29 0d 06 96 3f 62 6f 64  |sp%(50,0)...?bod|
000102c0  79 73 70 25 28 33 33 2c  30 29 3d a4 69 73 73 65  |ysp%(33,0)=.isse|
000102d0  6c 65 63 74 65 64 28 6f  76 65 72 77 25 2c 31 32  |lected(overw%,12|
000102e0  29 84 a4 69 73 73 65 6c  65 63 74 65 64 28 6f 76  |)..isselected(ov|
000102f0  65 72 77 25 2c 32 36 29  0d 06 97 3e 62 6f 64 79  |erw%,26)...>body|
00010300  73 70 25 28 34 36 2c 30  29 3d a4 69 73 73 65 6c  |sp%(46,0)=.issel|
00010310  65 63 74 65 64 28 6f 76  65 72 77 25 2c 38 29 84  |ected(overw%,8).|
00010320  a4 69 73 73 65 6c 65 63  74 65 64 28 6f 76 65 72  |.isselected(over|
00010330  77 25 2c 32 35 29 0d 06  98 1f 62 6f 64 79 73 70  |w%,25)....bodysp|
00010340  25 28 34 37 2c 30 29 3d  62 6f 64 79 73 70 25 28  |%(47,0)=bodysp%(|
00010350  34 36 2c 30 29 0d 06 99  1f 62 6f 64 79 73 70 25  |46,0)....bodysp%|
00010360  28 34 38 2c 30 29 3d 62  6f 64 79 73 70 25 28 34  |(48,0)=bodysp%(4|
00010370  36 2c 30 29 0d 06 9a 1f  62 6f 64 79 73 70 25 28  |6,0)....bodysp%(|
00010380  34 39 2c 30 29 3d 62 6f  64 79 73 70 25 28 34 36  |49,0)=bodysp%(46|
00010390  2c 30 29 0d 06 9b 1f 62  6f 64 79 73 70 25 28 35  |,0)....bodysp%(5|
000103a0  33 2c 30 29 3d 62 6f 64  79 73 70 25 28 34 36 2c  |3,0)=bodysp%(46,|
000103b0  30 29 0d 06 9c 05 e1 0d  06 9d 04 0d 06 9e 16 dd  |0)..............|
000103c0  f2 63 68 61 6e 67 65 73  65 78 28 77 25 2c 69 25  |.changesex(w%,i%|
000103d0  29 0d 06 9f 2b f2 73 65  6c 65 63 74 69 63 6e 28  |)...+.selecticn(|
000103e0  77 25 2c 31 2d 69 25 2c  ac a4 69 73 73 65 6c 65  |w%,1-i%,..issele|
000103f0  63 74 65 64 28 77 25 2c  69 25 29 29 0d 06 a0 65  |cted(w%,i%))...e|
00010400  e7 20 77 25 3d 6f 76 65  72 77 25 20 f2 73 65 6c  |. w%=overw% .sel|
00010410  65 63 74 69 63 6e 28 73  79 73 74 77 25 2c 30 2c  |ecticn(systw%,0,|
00010420  a4 69 73 73 65 6c 65 63  74 65 64 28 6f 76 65 72  |.isselected(over|
00010430  77 25 2c 30 29 29 3a f2  73 65 6c 65 63 74 69 63  |w%,0)):.selectic|
00010440  6e 28 73 79 73 74 77 25  2c 31 2c a4 69 73 73 65  |n(systw%,1,.isse|
00010450  6c 65 63 74 65 64 28 6f  76 65 72 77 25 2c 31 29  |lected(overw%,1)|
00010460  29 0d 06 a1 65 e7 20 77  25 3d 73 79 73 74 77 25  |)...e. w%=systw%|
00010470  20 f2 73 65 6c 65 63 74  69 63 6e 28 6f 76 65 72  | .selecticn(over|
00010480  77 25 2c 30 2c a4 69 73  73 65 6c 65 63 74 65 64  |w%,0,.isselected|
00010490  28 73 79 73 74 77 25 2c  30 29 29 3a f2 73 65 6c  |(systw%,0)):.sel|
000104a0  65 63 74 69 63 6e 28 6f  76 65 72 77 25 2c 31 2c  |ecticn(overw%,1,|
000104b0  a4 69 73 73 65 6c 65 63  74 65 64 28 73 79 73 74  |.isselected(syst|
000104c0  77 25 2c 31 29 29 0d 06  a2 05 e1 0d 06 a3 04 0d  |w%,1))..........|
000104d0  06 a4 12 dd f2 62 69 67  73 6d 61 6c 6c 28 77 25  |.....bigsmall(w%|
000104e0  29 0d 06 a5 39 e7 77 25  3d 73 79 73 74 77 25 3a  |)...9.w%=systw%:|
000104f0  f2 73 65 6c 65 63 74 69  63 6e 28 6f 76 65 72 77  |.selecticn(overw|
00010500  25 2c 32 2c a4 69 73 73  65 6c 65 63 74 65 64 28  |%,2,.isselected(|
00010510  73 79 73 74 77 25 2c 32  29 29 0d 06 a6 39 e7 77  |systw%,2))...9.w|
00010520  25 3d 6f 76 65 72 77 25  3a f2 73 65 6c 65 63 74  |%=overw%:.select|
00010530  69 63 6e 28 73 79 73 74  77 25 2c 32 2c a4 69 73  |icn(systw%,2,.is|
00010540  73 65 6c 65 63 74 65 64  28 6f 76 65 72 77 25 2c  |selected(overw%,|
00010550  32 29 29 0d 06 a7 21 e7  6c 61 62 65 6c 73 6f 6e  |2))...!.labelson|
00010560  25 3c 31 30 3a f2 72 65  6d 6f 76 65 62 6f 64 79  |%<10:.removebody|
00010570  6c 61 62 73 0d 06 a8 2e  21 62 6c 6b 25 3d 62 6f  |labs....!blk%=bo|
00010580  64 79 77 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |dyw%:.."Wimp_Get|
00010590  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
000105a0  6b 25 0d 06 a9 47 21 62  6f 64 73 63 61 6c 65 25  |k%...G!bodscale%|
000105b0  3d 28 21 62 6f 64 73 63  61 6c 65 25 29 2f 73 70  |=(!bodscale%)/sp|
000105c0  73 63 61 6c 65 25 3a 62  6f 64 73 63 61 6c 65 25  |scale%:bodscale%|
000105d0  21 34 3d 28 62 6f 64 73  63 61 6c 65 25 21 34 29  |!4=(bodscale%!4)|
000105e0  2f 73 70 73 63 61 6c 65  25 0d 06 aa 11 e7 73 70  |/spscale%.....sp|
000105f0  73 63 61 6c 65 25 3d 31  20 8c 0d 06 ab 5e 62 6c  |scale%=1 ....^bl|
00010600  6b 25 21 32 30 3d 32 2a  62 6c 6b 25 21 32 30 2b  |k%!20=2*blk%!20+|
00010610  28 28 62 6c 6b 25 21 31  32 2d 62 6c 6b 25 21 34  |((blk%!12-blk%!4|
00010620  29 2f 32 29 3a 62 6c 6b  25 21 32 34 3d 32 2a 62  |)/2):blk%!24=2*b|
00010630  6c 6b 25 21 32 34 2d 28  28 62 6c 6b 25 21 31 36  |lk%!24-((blk%!16|
00010640  2d 62 6c 6b 25 21 38 29  2f 32 29 3a f4 20 62 6c  |-blk%!8)/2):. bl|
00010650  6b 25 21 32 38 3d 2d 31  0d 06 ac 0e 73 70 73 63  |k%!28=-1....spsc|
00010660  61 6c 65 25 3d 32 0d 06  ad 05 cc 0d 06 ae 5e 62  |ale%=2........^b|
00010670  6c 6b 25 21 32 30 3d 28  62 6c 6b 25 21 32 30 2d  |lk%!20=(blk%!20-|
00010680  28 62 6c 6b 25 21 31 32  2d 62 6c 6b 25 21 34 29  |(blk%!12-blk%!4)|
00010690  2f 32 29 2f 32 3a 62 6c  6b 25 21 32 34 3d 28 62  |/2)/2:blk%!24=(b|
000106a0  6c 6b 25 21 32 34 2b 28  62 6c 6b 25 21 31 36 2d  |lk%!24+(blk%!16-|
000106b0  62 6c 6b 25 21 38 29 2f  32 29 2f 32 3a f4 20 62  |blk%!8)/2)/2:. b|
000106c0  6c 6b 25 21 32 38 3d 2d  31 0d 06 af 1a e7 28 62  |lk%!28=-1.....(b|
000106d0  6c 6b 25 21 32 30 29 3c  30 20 62 6c 6b 25 21 32  |lk%!20)<0 blk%!2|
000106e0  30 3d 30 0d 06 b0 1a e7  28 62 6c 6b 25 21 32 34  |0=0.....(blk%!24|
000106f0  29 3e 30 20 62 6c 6b 25  21 32 34 3d 30 0d 06 b1  |)>0 blk%!24=0...|
00010700  36 e7 28 62 6c 6b 25 21  31 32 2d 62 6c 6b 25 21  |6.(blk%!12-blk%!|
00010710  34 29 3e 36 32 34 20 62  6c 6b 25 21 32 30 3d 30  |4)>624 blk%!20=0|
00010720  3a 62 6c 6b 25 21 31 32  3d 62 6c 6b 25 21 34 2b  |:blk%!12=blk%!4+|
00010730  36 32 34 0d 06 b2 38 e7  28 62 6c 6b 25 21 31 36  |624...8.(blk%!16|
00010740  2d 62 6c 6b 25 21 38 29  3e 31 34 36 30 20 62 6c  |-blk%!8)>1460 bl|
00010750  6b 25 21 32 34 3d 30 3a  62 6c 6b 25 21 38 3d 62  |k%!24=0:blk%!8=b|
00010760  6c 6b 25 21 31 36 2d 31  34 36 30 0d 06 b3 50 e7  |lk%!16-1460...P.|
00010770  28 62 6c 6b 25 21 34 2d  62 6c 6b 25 21 32 30 2b  |(blk%!4-blk%!20+|
00010780  36 32 34 29 3c 62 6c 6b  25 21 31 32 20 62 6c 6b  |624)<blk%!12 blk|
00010790  25 21 32 30 3d 62 6c 6b  25 21 32 30 2d 28 62 6c  |%!20=blk%!20-(bl|
000107a0  6b 25 21 31 32 2d 28 62  6c 6b 25 21 34 2d 62 6c  |k%!12-(blk%!4-bl|
000107b0  6b 25 21 32 30 2b 36 32  34 29 29 0d 06 b4 52 e7  |k%!20+624))...R.|
000107c0  28 62 6c 6b 25 21 31 36  2d 62 6c 6b 25 21 32 34  |(blk%!16-blk%!24|
000107d0  2d 31 34 36 30 29 3e 62  6c 6b 25 21 38 20 62 6c  |-1460)>blk%!8 bl|
000107e0  6b 25 21 32 34 3d 62 6c  6b 25 21 32 34 2b 28 28  |k%!24=blk%!24+((|
000107f0  62 6c 6b 25 21 31 36 2d  62 6c 6b 25 21 32 34 2d  |blk%!16-blk%!24-|
00010800  31 34 36 30 29 2d 62 6c  6b 25 21 38 29 0d 06 b5  |1460)-blk%!8)...|
00010810  0e 73 70 73 63 61 6c 65  25 3d 31 0d 06 b6 05 cd  |.spscale%=1.....|
00010820  0d 06 b7 47 21 62 6f 64  73 63 61 6c 65 25 3d 28  |...G!bodscale%=(|
00010830  21 62 6f 64 73 63 61 6c  65 25 29 2a 73 70 73 63  |!bodscale%)*spsc|
00010840  61 6c 65 25 3a 62 6f 64  73 63 61 6c 65 25 21 34  |ale%:bodscale%!4|
00010850  3d 28 62 6f 64 73 63 61  6c 65 25 21 34 29 2a 73  |=(bodscale%!4)*s|
00010860  70 73 63 61 6c 65 25 0d  06 b8 23 21 62 6c 6b 32  |pscale%...#!blk2|
00010870  25 3d 62 6f 64 79 77 25  3a f2 63 6c 6f 73 65 77  |%=bodyw%:.closew|
00010880  69 6e 64 28 62 6c 6b 32  25 29 0d 06 b9 65 21 62  |ind(blk2%)...e!b|
00010890  6c 6b 32 25 3d 30 3a 62  6c 6b 32 25 21 34 3d 2d  |lk2%=0:blk2%!4=-|
000108a0  28 31 34 36 30 2a 73 70  73 63 61 6c 65 25 29 3a  |(1460*spscale%):|
000108b0  62 6c 6b 32 25 21 38 3d  36 32 34 2a 73 70 73 63  |blk2%!8=624*spsc|
000108c0  61 6c 65 25 3a 62 6c 6b  32 25 21 31 32 3d 30 3a  |ale%:blk2%!12=0:|
000108d0  c8 99 22 57 69 6d 70 5f  53 65 74 45 78 74 65 6e  |.."Wimp_SetExten|
000108e0  74 22 2c 62 6f 64 79 77  25 2c 62 6c 6b 32 25 0d  |t",bodyw%,blk2%.|
000108f0  06 ba 13 f2 6f 70 65 6e  77 69 6e 64 28 62 6c 6b  |....openwind(blk|
00010900  25 29 0d 06 bb 05 e1 0d  06 bc 04 0d 06 bd 1a dd  |%)..............|
00010910  f2 63 68 65 63 6b 73 79  73 74 65 6d 28 6d 78 25  |.checksystem(mx%|
00010920  2c 6d 79 25 29 0d 06 be  2e 21 62 6c 6b 25 3d 73  |,my%)....!blk%=s|
00010930  79 73 74 77 25 3a c8 99  22 57 69 6d 70 5f 47 65  |ystw%:.."Wimp_Ge|
00010940  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00010950  6c 6b 25 0d 06 bf 32 e7  28 62 6c 6b 25 21 31 36  |lk%...2.(blk%!16|
00010960  29 2d 28 62 6c 6b 25 21  32 34 29 2d 6d 79 25 3e  |)-(blk%!24)-my%>|
00010970  3d 36 38 8c 3a 73 79 73  74 63 6c 69 63 6b 25 3d  |=68.:systclick%=|
00010980  30 3a 8b 3a e1 0d 06 c0  2e e7 28 62 6c 6b 25 21  |0:.:......(blk%!|
00010990  31 36 29 2d 28 62 6c 6b  25 21 32 34 29 2d 6d 79  |16)-(blk%!24)-my|
000109a0  25 3e 3d 32 38 38 3a 73  79 73 74 63 6c 69 63 6b  |%>=288:systclick|
000109b0  25 3d 32 0d 06 c1 2e e7  28 62 6c 6b 25 21 31 36  |%=2.....(blk%!16|
000109c0  29 2d 28 62 6c 6b 25 21  32 34 29 2d 6d 79 25 3e  |)-(blk%!24)-my%>|
000109d0  3d 35 30 38 3a 73 79 73  74 63 6c 69 63 6b 25 3d  |=508:systclick%=|
000109e0  34 0d 06 c2 2e e7 28 62  6c 6b 25 21 31 36 29 2d  |4.....(blk%!16)-|
000109f0  28 62 6c 6b 25 21 32 34  29 2d 6d 79 25 3e 3d 37  |(blk%!24)-my%>=7|
00010a00  32 34 3a 73 79 73 74 63  6c 69 63 6b 25 3d 36 0d  |24:systclick%=6.|
00010a10  06 c3 2f e7 6d 78 25 2d  28 28 62 6c 6b 25 21 34  |../.mx%-((blk%!4|
00010a20  29 2d 28 62 6c 6b 25 21  32 30 29 29 3e 32 38 34  |)-(blk%!20))>284|
00010a30  3a 73 79 73 74 63 6c 69  63 6b 25 2b 3d 31 0d 06  |:systclick%+=1..|
00010a40  c4 66 e7 73 79 73 74 63  6c 69 63 6b 25 3c 3e 31  |.f.systclick%<>1|
00010a50  3a f2 64 69 73 63 6d 65  73 73 28 22 4f 6e 6c 79  |:.discmess("Only|
00010a60  20 74 68 65 20 4e 65 72  76 6f 75 73 20 73 79 73  | the Nervous sys|
00010a70  74 65 6d 20 69 73 20 61  76 61 69 6c 61 62 6c 65  |tem is available|
00010a80  20 69 6e 20 74 68 69 73  20 64 65 6d 6f 6e 73 74  | in this demonst|
00010a90  72 61 74 69 6f 6e 20 73  79 73 74 65 6d 2e 22 2c  |ration system.",|
00010aa0  30 29 3a e1 0d 06 c5 44  e7 a4 69 73 73 65 6c 65  |0):....D..issele|
00010ab0  63 74 65 64 28 73 65 74  75 70 77 25 2c 33 34 29  |cted(setupw%,34)|
00010ac0  8c 3a e7 ac a4 69 73 73  65 6c 65 63 74 65 64 28  |.:...isselected(|
00010ad0  73 65 74 75 70 77 25 2c  33 37 2b 73 79 73 74 63  |setupw%,37+systc|
00010ae0  6c 69 63 6b 25 29 3a e1  0d 06 c6 21 e7 6c 61 62  |lick%):....!.lab|
00010af0  65 6c 73 6f 6e 25 3c 31  30 3a f2 72 65 6d 6f 76  |elson%<10:.remov|
00010b00  65 62 6f 64 79 6c 61 62  73 0d 06 c7 1c e7 73 79  |ebodylabs.....sy|
00010b10  73 74 65 6d 5f 6f 6e 25  28 73 79 73 74 63 6c 69  |stem_on%(systcli|
00010b20  63 6b 25 29 8c 0d 06 c8  3f 20 73 79 73 74 65 6d  |ck%)....? system|
00010b30  5f 6f 6e 25 28 73 79 73  74 63 6c 69 63 6b 25 29  |_on%(systclick%)|
00010b40  3d a3 3a f2 73 65 6c 65  63 74 69 63 6e 28 73 79  |=.:.selecticn(sy|
00010b50  73 74 77 25 2c 73 79 73  74 63 6c 69 63 6b 25 2b  |stw%,systclick%+|
00010b60  35 2c a3 29 0d 06 c9 58  20 e7 28 73 79 73 74 63  |5,.)...X .(systc|
00010b70  6c 69 63 6b 25 3d 30 29  80 28 a4 6e 6f 5f 73 79  |lick%=0).(.no_sy|
00010b80  73 74 65 6d 73 5f 6f 6e  3e 30 29 3a f2 74 6f 67  |stems_on>0):.tog|
00010b90  67 6c 65 73 79 73 74 70  6c 6f 74 28 38 29 3a 8b  |glesystplot(8):.|
00010ba0  3a f2 74 6f 67 67 6c 65  73 79 73 74 70 6c 6f 74  |:.togglesystplot|
00010bb0  28 73 79 73 74 63 6c 69  63 6b 25 29 0d 06 ca 6c  |(systclick%)...l|
00010bc0  20 e7 73 79 73 74 65 6d  5f 6f 6e 25 28 30 29 80  | .system_on%(0).|
00010bd0  28 a4 6e 6f 5f 73 79 73  74 65 6d 73 5f 6f 6e 3d  |(.no_systems_on=|
00010be0  31 29 3a 73 79 73 74 65  6d 5f 6f 6e 25 28 30 29  |1):system_on%(0)|
00010bf0  3d a3 3a f2 74 6f 67 67  6c 65 73 79 73 74 70 6c  |=.:.togglesystpl|
00010c00  6f 74 28 38 29 3a 73 79  73 74 65 6d 5f 6f 6e 25  |ot(8):system_on%|
00010c10  28 30 29 3d b9 3a f2 74  6f 67 67 6c 65 73 79 73  |(0)=.:.togglesys|
00010c20  74 70 6c 6f 74 28 30 29  0d 06 cb 05 cc 0d 06 cc  |tplot(0)........|
00010c30  3f 20 73 79 73 74 65 6d  5f 6f 6e 25 28 73 79 73  |? system_on%(sys|
00010c40  74 63 6c 69 63 6b 25 29  3d b9 3a f2 73 65 6c 65  |tclick%)=.:.sele|
00010c50  63 74 69 63 6e 28 73 79  73 74 77 25 2c 73 79 73  |cticn(systw%,sys|
00010c60  74 63 6c 69 63 6b 25 2b  35 2c b9 29 0d 06 cd 13  |tclick%+5,.)....|
00010c70  20 e7 73 79 73 74 63 6c  69 63 6b 25 3d 30 8c 0d  | .systclick%=0..|
00010c80  06 ce 3f 20 20 e7 a4 6e  6f 5f 73 79 73 74 65 6d  |..?  ..no_system|
00010c90  73 5f 6f 6e 3d 31 3a f2  74 6f 67 67 6c 65 73 79  |s_on=1:.togglesy|
00010ca0  73 74 70 6c 6f 74 28 30  29 3a 8b 3a f2 74 6f 67  |stplot(0):.:.tog|
00010cb0  67 6c 65 73 79 73 74 70  6c 6f 74 28 38 29 0d 06  |glesystplot(8)..|
00010cc0  cf 06 20 cc 0d 06 d0 6d  20 20 e7 73 79 73 74 65  |.. ....m  .syste|
00010cd0  6d 5f 6f 6e 25 28 30 29  80 28 a4 6e 6f 5f 73 79  |m_on%(0).(.no_sy|
00010ce0  73 74 65 6d 73 5f 6f 6e  3d 32 29 3a 73 79 73 74  |stems_on=2):syst|
00010cf0  65 6d 5f 6f 6e 25 28 30  29 3d a3 3a f2 74 6f 67  |em_on%(0)=.:.tog|
00010d00  67 6c 65 73 79 73 74 70  6c 6f 74 28 30 29 3a 73  |glesystplot(0):s|
00010d10  79 73 74 65 6d 5f 6f 6e  25 28 30 29 3d b9 3a f2  |ystem_on%(0)=.:.|
00010d20  74 6f 67 67 6c 65 73 79  73 74 70 6c 6f 74 28 38  |togglesystplot(8|
00010d30  29 0d 06 d1 21 20 20 f2  74 6f 67 67 6c 65 73 79  |)...!  .togglesy|
00010d40  73 74 70 6c 6f 74 28 73  79 73 74 63 6c 69 63 6b  |stplot(systclick|
00010d50  25 29 0d 06 d2 06 20 cd  0d 06 d3 05 cd 0d 06 d4  |%).... .........|
00010d60  1f f2 75 70 64 61 74 65  5f 62 75 74 74 6f 6e 73  |..update_buttons|
00010d70  28 73 79 73 74 63 6c 69  63 6b 25 29 0d 06 d5 11  |(systclick%)....|
00010d80  f2 63 68 65 63 6b 73 79  73 74 73 65 78 0d 06 d6  |.checksystsex...|
00010d90  16 e7 a4 6e 6f 5f 73 79  73 74 65 6d 73 5f 6f 6e  |...no_systems_on|
00010da0  3d 30 8c 0d 06 d7 30 20  f2 73 65 6c 65 63 74 69  |=0....0 .selecti|
00010db0  63 6e 28 73 79 73 74 77  25 2c 33 2c a3 29 3a f2  |cn(systw%,3,.):.|
00010dc0  68 69 64 65 69 63 6e 28  73 79 73 74 77 25 2c 33  |hideicn(systw%,3|
00010dd0  2c b9 29 0d 06 d8 33 20  e7 a4 69 73 6f 70 65 6e  |,.)...3 ..isopen|
00010de0  28 64 65 66 6e 77 25 29  3a 21 62 6c 6b 25 3d 64  |(defnw%):!blk%=d|
00010df0  65 66 6e 77 25 3a f2 63  6c 6f 73 65 77 69 6e 64  |efnw%:.closewind|
00010e00  28 62 6c 6b 25 29 0d 06  d9 2f 20 c8 99 22 57 69  |(blk%).../ .."Wi|
00010e10  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
00010e20  73 79 73 74 77 25 2c 33  33 34 2c 2d 35 36 2c 34  |systw%,334,-56,4|
00010e30  33 30 2c 2d 38 0d 06 da  05 cc 0d 06 db 2b 20 e7  |30,-8........+ .|
00010e40  a4 6e 6f 5f 73 79 73 74  65 6d 73 5f 6f 6e 3d 31  |.no_systems_on=1|
00010e50  3a f2 68 69 64 65 69 63  6e 28 73 79 73 74 77 25  |:.hideicn(systw%|
00010e60  2c 33 2c a3 29 0d 06 dc  05 cd 0d 06 dd 2a e7 a4  |,3,.)........*..|
00010e70  69 73 73 65 6c 65 63 74  65 64 28 73 79 73 74 77  |isselected(systw|
00010e80  25 2c 33 29 3a f2 73 79  73 74 65 6d 74 65 78 74  |%,3):.systemtext|
00010e90  28 2d 31 29 0d 06 de 11  f2 70 6c 6f 74 62 6f 64  |(-1).....plotbod|
00010ea0  79 73 79 73 74 0d 06 df  05 e1 0d 06 e0 04 0d 06  |ysyst...........|
00010eb0  e1 1d dd f2 74 6f 67 67  6c 65 73 79 73 74 70 6c  |....togglesystpl|
00010ec0  6f 74 28 73 79 73 74 65  6d 25 29 0d 06 e2 24 74  |ot(system%)...$t|
00010ed0  65 6d 70 24 3d 73 79 73  74 6c 69 6e 6b 24 28 73  |emp$=systlink$(s|
00010ee0  79 73 74 65 6d 25 29 3a  6d 6f 72 65 25 3d b9 0d  |ystem%):more%=..|
00010ef0  06 e3 05 f5 0d 06 e4 5e  e7 73 79 73 74 65 6d 25  |.......^.system%|
00010f00  3c 38 3a 73 79 73 74 62  6f 64 79 73 70 25 28 bb  |<8:systbodysp%(.|
00010f10  28 74 65 6d 70 24 29 29  3d 73 79 73 74 65 6d 5f  |(temp$))=system_|
00010f20  6f 6e 25 28 73 79 73 74  65 6d 25 29 3a 8b 3a 73  |on%(system%):.:s|
00010f30  79 73 74 62 6f 64 79 73  70 25 28 bb 28 74 65 6d  |ystbodysp%(.(tem|
00010f40  70 24 29 29 3d 73 79 73  74 65 6d 5f 6f 6e 25 28  |p$))=system_on%(|
00010f50  30 29 0d 06 e5 33 e7 a9  28 74 65 6d 70 24 29 3e  |0)...3..(temp$)>|
00010f60  32 8c 20 74 65 6d 70 24  3d c2 74 65 6d 70 24 2c  |2. temp$=.temp$,|
00010f70  a9 28 74 65 6d 70 24 29  2d 33 29 3a 8b 3a 6d 6f  |.(temp$)-3):.:mo|
00010f80  72 65 25 3d a3 0d 06 e6  0d fd 20 ac 20 6d 6f 72  |re%=...... . mor|
00010f90  65 25 0d 06 e7 05 e1 0d  06 e8 04 0d 06 e9 13 dd  |e%..............|
00010fa0  a4 6e 6f 5f 73 79 73 74  65 6d 73 5f 6f 6e 0d 06  |.no_systems_on..|
00010fb0  ea 09 6f 6e 25 3d 30 0d  06 eb 0b e3 6d 25 3d 30  |..on%=0.....m%=0|
00010fc0  b8 37 0d 06 ec 1a e7 73  79 73 74 65 6d 5f 6f 6e  |.7.....system_on|
00010fd0  25 28 6d 25 29 3a 6f 6e  25 2b 3d 31 0d 06 ed 05  |%(m%):on%+=1....|
00010fe0  ed 0d 06 ee 08 3d 6f 6e  25 0d 06 ef 04 0d 06 f0  |.....=on%.......|
00010ff0  0f dd a4 73 79 73 74 65  6d 5f 6f 6e 0d 06 f1 0b  |...system_on....|
00011000  e3 6d 25 3d 30 b8 37 0d  06 f2 17 e7 73 79 73 74  |.m%=0.7.....syst|
00011010  65 6d 5f 6f 6e 25 28 6d  25 29 3a 3d 6d 25 0d 06  |em_on%(m%):=m%..|
00011020  f3 05 ed 0d 06 f4 06 3d  39 0d 06 f5 04 0d 06 f6  |.......=9.......|
00011030  12 dd f2 63 68 65 63 6b  73 79 73 74 73 65 78 0d  |...checksystsex.|
00011040  06 f7 36 73 79 73 74 62  6f 64 79 73 70 25 28 33  |..6systbodysp%(3|
00011050  29 3d 73 79 73 74 65 6d  5f 6f 6e 25 28 30 29 80  |)=system_on%(0).|
00011060  a4 69 73 73 65 6c 65 63  74 65 64 28 73 79 73 74  |.isselected(syst|
00011070  77 25 2c 31 29 0d 06 f8  37 73 79 73 74 62 6f 64  |w%,1)...7systbod|
00011080  79 73 70 25 28 32 31 29  3d 73 79 73 74 65 6d 5f  |ysp%(21)=system_|
00011090  6f 6e 25 28 37 29 80 a4  69 73 73 65 6c 65 63 74  |on%(7)..isselect|
000110a0  65 64 28 73 79 73 74 77  25 2c 30 29 0d 06 f9 23  |ed(systw%,0)...#|
000110b0  73 79 73 74 62 6f 64 79  73 70 25 28 32 33 29 3d  |systbodysp%(23)=|
000110c0  73 79 73 74 62 6f 64 79  73 70 25 28 32 31 29 0d  |systbodysp%(21).|
000110d0  06 fa 23 73 79 73 74 62  6f 64 79 73 70 25 28 33  |..#systbodysp%(3|
000110e0  37 29 3d 73 79 73 74 62  6f 64 79 73 70 25 28 32  |7)=systbodysp%(2|
000110f0  31 29 0d 06 fb 23 73 79  73 74 62 6f 64 79 73 70  |1)...#systbodysp|
00011100  25 28 34 35 29 3d 73 79  73 74 62 6f 64 79 73 70  |%(45)=systbodysp|
00011110  25 28 32 31 29 0d 06 fc  47 73 79 73 74 62 6f 64  |%(21)...Gsystbod|
00011120  79 73 70 25 28 34 34 29  3d 28 73 79 73 74 65 6d  |ysp%(44)=(system|
00011130  5f 6f 6e 25 28 36 29 84  73 79 73 74 65 6d 5f 6f  |_on%(6).system_o|
00011140  6e 25 28 37 29 29 80 a4  69 73 73 65 6c 65 63 74  |n%(7))..isselect|
00011150  65 64 28 73 79 73 74 77  25 2c 30 29 0d 06 fd 47  |ed(systw%,0)...G|
00011160  73 79 73 74 62 6f 64 79  73 70 25 28 31 38 29 3d  |systbodysp%(18)=|
00011170  28 73 79 73 74 65 6d 5f  6f 6e 25 28 36 29 84 73  |(system_on%(6).s|
00011180  79 73 74 65 6d 5f 6f 6e  25 28 37 29 29 80 a4 69  |ystem_on%(7))..i|
00011190  73 73 65 6c 65 63 74 65  64 28 73 79 73 74 77 25  |sselected(systw%|
000111a0  2c 31 29 0d 06 fe 37 73  79 73 74 62 6f 64 79 73  |,1)...7systbodys|
000111b0  70 25 28 31 39 29 3d 73  79 73 74 65 6d 5f 6f 6e  |p%(19)=system_on|
000111c0  25 28 37 29 80 a4 69 73  73 65 6c 65 63 74 65 64  |%(7)..isselected|
000111d0  28 73 79 73 74 77 25 2c  31 29 0d 06 ff 23 73 79  |(systw%,1)...#sy|
000111e0  73 74 62 6f 64 79 73 70  25 28 34 33 29 3d 73 79  |stbodysp%(43)=sy|
000111f0  73 74 62 6f 64 79 73 70  25 28 31 39 29 0d 07 00  |stbodysp%(19)...|
00011200  2f 73 79 73 74 62 6f 64  79 73 70 25 28 34 36 29  |/systbodysp%(46)|
00011210  3d 73 79 73 74 65 6d 5f  6f 6e 25 28 31 29 84 73  |=system_on%(1).s|
00011220  79 73 74 65 6d 5f 6f 6e  25 28 35 29 0d 07 01 23  |ystem_on%(5)...#|
00011230  73 79 73 74 62 6f 64 79  73 70 25 28 34 37 29 3d  |systbodysp%(47)=|
00011240  73 79 73 74 62 6f 64 79  73 70 25 28 34 36 29 0d  |systbodysp%(46).|
00011250  07 02 23 73 79 73 74 62  6f 64 79 73 70 25 28 34  |..#systbodysp%(4|
00011260  38 29 3d 73 79 73 74 62  6f 64 79 73 70 25 28 34  |8)=systbodysp%(4|
00011270  36 29 0d 07 03 2f 73 79  73 74 62 6f 64 79 73 70  |6).../systbodysp|
00011280  25 28 33 33 29 3d 73 79  73 74 65 6d 5f 6f 6e 25  |%(33)=system_on%|
00011290  28 32 29 84 73 79 73 74  65 6d 5f 6f 6e 25 28 36  |(2).system_on%(6|
000112a0  29 0d 07 04 2f 73 79 73  74 62 6f 64 79 73 70 25  |).../systbodysp%|
000112b0  28 32 35 29 3d 73 79 73  74 65 6d 5f 6f 6e 25 28  |(25)=system_on%(|
000112c0  34 29 84 73 79 73 74 65  6d 5f 6f 6e 25 28 36 29  |4).system_on%(6)|
000112d0  0d 07 05 32 e7 28 6c 61  62 65 6c 73 6f 6e 25 3c  |...2.(labelson%<|
000112e0  31 30 29 80 28 a4 73 79  73 74 65 6d 5f 6f 6e 3e  |10).(.system_on>|
000112f0  35 29 3a f2 72 65 6d 6f  76 65 62 6f 64 79 6c 61  |5):.removebodyla|
00011300  62 73 0d 07 06 05 e1 0d  07 07 04 0d 07 08 12 dd  |bs..............|
00011310  f2 62 6f 64 79 73 79 73  74 64 65 66 6e 0d 07 09  |.bodysystdefn...|
00011320  15 e7 a4 69 73 6f 70 65  6e 28 73 79 73 74 77 25  |...isopen(systw%|
00011330  29 8c 0d 07 0a 21 21 62  6c 6b 25 3d 73 79 73 74  |)....!!blk%=syst|
00011340  77 25 3a f2 63 6c 6f 73  65 77 69 6e 64 28 62 6c  |w%:.closewind(bl|
00011350  6b 25 29 0d 07 0b 3c 21  62 6c 6b 32 25 3d 73 79  |k%)...<!blk2%=sy|
00011360  73 74 77 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |stw%:.."Wimp_Get|
00011370  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00011380  6b 32 25 3a 62 6c 6b 32  25 21 32 38 3d 2d 31 0d  |k2%:blk2%!28=-1.|
00011390  07 0c 05 cc 0d 07 0d 66  21 62 6c 6b 32 25 3d 73  |.......f!blk2%=s|
000113a0  79 73 74 77 25 3a 62 6c  6b 32 25 21 34 3d 32 35  |ystw%:blk2%!4=25|
000113b0  30 3a 62 6c 6b 32 25 21  38 3d 35 30 30 3a 62 6c  |0:blk2%!8=500:bl|
000113c0  6b 32 25 21 31 32 3d 31  30 33 30 3a 62 6c 6b 32  |k2%!12=1030:blk2|
000113d0  25 21 31 36 3d 37 30 30  3a 62 6c 6b 32 25 21 32  |%!16=700:blk2%!2|
000113e0  30 3d 30 3a 62 6c 6b 32  25 21 32 34 3d 30 3a 62  |0=0:blk2%!24=0:b|
000113f0  6c 6b 32 25 21 32 38 3d  2d 31 0d 07 0e 05 cd 0d  |lk2%!28=-1......|
00011400  07 0f 16 e7 61 63 74 69  76 65 73 79 73 74 69 63  |....activesystic|
00011410  6e 25 3e 30 8c 0d 07 10  87 21 73 79 73 74 77 74  |n%>0.....!systwt|
00011420  69 74 6c 65 73 69 7a 25  3d 35 2b bb 28 73 79 73  |itlesiz%=5+.(sys|
00011430  74 74 69 74 24 28 61 63  74 69 76 65 73 79 73 74  |ttit$(activesyst|
00011440  69 63 6e 25 2d 32 36 29  29 3a 24 73 79 73 74 77  |icn%-26)):$systw|
00011450  74 69 74 6c 65 25 3d 22  54 68 65 20 22 2b c2 73  |title%="The "+.s|
00011460  79 73 74 74 69 74 24 28  61 63 74 69 76 65 73 79  |ysttit$(activesy|
00011470  73 74 69 63 6e 25 2d 32  36 29 2c a9 28 73 79 73  |sticn%-26),.(sys|
00011480  74 74 69 74 24 28 61 63  74 69 76 65 73 79 73 74  |ttit$(activesyst|
00011490  69 63 6e 25 2d 32 36 29  29 2d 33 29 0d 07 11 39  |icn%-26))-3)...9|
000114a0  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 73 79  |.puticnstring(sy|
000114b0  73 74 77 25 2c 30 2c 73  79 73 74 77 6f 72 64 73  |stw%,0,systwords|
000114c0  24 28 61 63 74 69 76 65  73 79 73 74 69 63 6e 25  |$(activesysticn%|
000114d0  2d 32 36 29 29 0d 07 12  14 f2 6f 70 65 6e 77 69  |-26)).....openwi|
000114e0  6e 64 28 62 6c 6b 32 25  29 0d 07 13 05 cd 0d 07  |nd(blk2%).......|
000114f0  14 05 e1 0d 07 15 04 0d  07 16 16 dd f2 6a 75 73  |.............jus|
00011500  74 77 6f 72 64 69 6e 66  6f 28 69 25 29 0d 07 17  |twordinfo(i%)...|
00011510  08 ea 20 61 24 0d 07 18  50 e7 ac a4 69 73 73 65  |.. a$...P...isse|
00011520  6c 65 63 74 65 64 28 62  6f 64 79 77 25 2c 69 25  |lected(bodyw%,i%|
00011530  29 3a 61 63 74 69 76 65  6f 72 67 69 63 6e 25 3d  |):activeorgicn%=|
00011540  2d 31 3a 21 62 6c 6b 25  3d 6f 72 67 64 65 66 6e  |-1:!blk%=orgdefn|
00011550  77 25 3a f2 63 6c 6f 73  65 77 69 6e 64 28 62 6c  |w%:.closewind(bl|
00011560  6b 25 29 3a e1 0d 07 19  3a e7 61 63 74 69 76 65  |k%):....:.active|
00011570  6f 72 67 69 63 6e 25 3c  3e 2d 31 8c 3a f2 73 65  |orgicn%<>-1.:.se|
00011580  6c 65 63 74 69 63 6e 28  62 6f 64 79 77 25 2c 61  |lecticn(bodyw%,a|
00011590  63 74 69 76 65 6f 72 67  69 63 6e 25 2c a3 29 0d  |ctiveorgicn%,.).|
000115a0  07 1a 14 61 63 74 69 76  65 6f 72 67 69 63 6e 25  |...activeorgicn%|
000115b0  3d 69 25 0d 07 1b 4c 61  24 3d a4 67 65 74 69 63  |=i%...La$=.getic|
000115c0  6e 73 74 72 69 6e 67 28  62 6f 64 79 77 25 2c 69  |nstring(bodyw%,i|
000115d0  25 29 3a e7 28 97 28 61  24 29 3e 26 36 30 29 80  |%):.(.(a$)>&60).|
000115e0  28 97 28 61 24 29 3c 26  37 42 29 3a c0 61 24 2c  |(.(a$)<&7B):.a$,|
000115f0  31 29 3d bd 28 97 28 61  24 29 2d 26 32 30 29 0d  |1)=.(.(a$)-&20).|
00011600  07 1c 62 f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |..b.puticnstring|
00011610  28 6f 72 67 64 65 66 6e  77 25 2c 30 2c 61 24 29  |(orgdefnw%,0,a$)|
00011620  3a f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 6f  |:.puticnstring(o|
00011630  72 67 64 65 66 6e 77 25  2c 31 2c 6f 72 67 6a 75  |rgdefnw%,1,orgju|
00011640  73 74 77 6f 72 64 73 24  28 61 63 74 69 76 65 6f  |stwords$(activeo|
00011650  72 67 69 63 6e 25 2d 32  35 2c 73 69 6d 70 25 29  |rgicn%-25,simp%)|
00011660  29 0d 07 1d 19 e7 ac a4  69 73 6f 70 65 6e 28 6f  |).......isopen(o|
00011670  72 67 64 65 66 6e 77 25  29 8c 0d 07 1e 69 20 21  |rgdefnw%)....i !|
00011680  62 6c 6b 25 3d 6f 72 67  64 65 66 6e 77 25 3a 62  |blk%=orgdefnw%:b|
00011690  6c 6b 25 21 34 3d 32 35  30 3a 62 6c 6b 25 21 38  |lk%!4=250:blk%!8|
000116a0  3d 33 36 30 3a 62 6c 6b  25 21 31 32 3d 32 35 30  |=360:blk%!12=250|
000116b0  2b 37 38 30 3a 62 6c 6b  25 21 31 36 3d 33 36 30  |+780:blk%!16=360|
000116c0  2b 32 34 34 3a 62 6c 6b  25 21 32 30 3d 30 3a 62  |+244:blk%!20=0:b|
000116d0  6c 6b 25 21 32 34 3d 30  3a 62 6c 6b 25 21 32 38  |lk%!24=0:blk%!28|
000116e0  3d 2d 31 0d 07 1f 14 20  f2 6f 70 65 6e 77 69 6e  |=-1.... .openwin|
000116f0  64 28 62 6c 6b 25 29 0d  07 20 05 cd 0d 07 21 05  |d(blk%).. ....!.|
00011700  e1 0d 07 22 04 0d 07 23  12 dd f2 67 6f 63 6c 6f  |..."...#...goclo|
00011710  73 65 72 28 69 25 29 0d  07 24 55 e7 ac a4 69 73  |ser(i%)..$U...is|
00011720  73 65 6c 65 63 74 65 64  28 62 6f 64 79 77 25 2c  |selected(bodyw%,|
00011730  69 25 29 3a 61 63 74 69  76 65 69 63 6e 25 3d 2d  |i%):activeicn%=-|
00011740  31 3a 21 62 6c 6b 25 3d  61 6e 69 6d 77 25 3a f2  |1:!blk%=animw%:.|
00011750  63 6c 6f 73 65 77 69 6e  64 28 62 6c 6b 25 29 3a  |closewind(blk%):|
00011760  f2 69 6e 69 74 61 6e 69  6d 77 3a e1 0d 07 25 a5  |.initanimw:...%.|
00011770  e7 61 63 74 69 76 65 69  63 6e 25 3c 3e 2d 31 8c  |.activeicn%<>-1.|
00011780  3a f2 73 65 6c 65 63 74  69 63 6e 28 62 6f 64 79  |:.selecticn(body|
00011790  77 25 2c 61 63 74 69 76  65 69 63 6e 25 2c a3 29  |w%,activeicn%,.)|
000117a0  3a 21 62 6c 6b 25 3d 61  6e 69 6d 77 25 3a c8 99  |:!blk%=animw%:..|
000117b0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000117c0  74 61 74 65 22 2c 2c 62  6c 6b 25 3a 6f 6c 64 68  |tate",,blk%:oldh|
000117d0  61 6e 64 6c 25 3d 62 6c  6b 25 21 32 38 3a f2 63  |andl%=blk%!28:.c|
000117e0  6c 6f 73 65 77 69 6e 64  28 62 6c 6b 25 29 3a f2  |losewind(blk%):.|
000117f0  69 6e 69 74 61 6e 69 6d  77 3a 77 61 73 6f 70 65  |initanimw:wasope|
00011800  6e 25 3d b9 3a 8b 3a 77  61 73 6f 70 65 6e 25 3d  |n%=.:.:wasopen%=|
00011810  a3 0d 07 26 39 f4 20 49  46 46 4e 69 73 6f 70 65  |...&9. IFFNisope|
00011820  6e 28 61 6e 69 6d 77 25  29 3a 21 62 6c 6b 25 3d  |n(animw%):!blk%=|
00011830  61 6e 69 6d 77 25 3a 50  52 4f 43 63 6c 6f 73 65  |animw%:PROCclose|
00011840  77 69 6e 64 28 62 6c 6b  25 29 0d 07 27 74 21 61  |wind(blk%)..'t!a|
00011850  6e 69 6d 77 74 69 74 6c  65 73 69 7a 25 3d 32 31  |nimwtitlesiz%=21|
00011860  2b bb 28 61 6e 69 6d 66  69 6c 65 24 28 69 25 2c  |+.(animfile$(i%,|
00011870  31 29 29 3a 24 61 6e 69  6d 77 74 69 74 6c 65 25  |1)):$animwtitle%|
00011880  3d 22 54 68 65 20 62 6f  64 79 20 69 6e 20 64 65  |="The body in de|
00011890  74 61 69 6c 3a 20 22 2b  c2 61 6e 69 6d 66 69 6c  |tail: "+.animfil|
000118a0  65 24 28 69 25 2c 31 29  2c a9 28 61 6e 69 6d 66  |e$(i%,1),.(animf|
000118b0  69 6c 65 24 28 69 25 2c  31 29 29 2d 33 29 0d 07  |ile$(i%,1))-3)..|
000118c0  28 1c 61 63 74 69 76 65  69 63 6e 25 3d 69 25 3a  |(.activeicn%=i%:|
000118d0  61 63 74 69 76 65 77 25  3d 30 0d 07 29 64 e7 62  |activew%=0..)d.b|
000118e0  75 74 74 79 70 65 25 28  61 63 74 69 76 65 69 63  |uttype%(activeic|
000118f0  6e 25 29 3d 31 3a f2 70  75 74 69 63 6e 73 74 72  |n%)=1:.puticnstr|
00011900  69 6e 67 28 61 6e 69 6d  77 25 2c 31 2c 22 63 6c  |ing(animw%,1,"cl|
00011910  6f 73 65 72 22 29 3a f2  70 75 74 69 63 6e 73 74  |oser"):.puticnst|
00011920  72 69 6e 67 28 61 6e 69  6d 77 25 2c 32 2c 22 63  |ring(animw%,2,"c|
00011930  72 6f 73 73 2d 73 65 63  74 69 6f 6e 22 29 0d 07  |ross-section")..|
00011940  2a 64 e7 62 75 74 74 79  70 65 25 28 61 63 74 69  |*d.buttype%(acti|
00011950  76 65 69 63 6e 25 29 3d  32 3a f2 70 75 74 69 63  |veicn%)=2:.putic|
00011960  6e 73 74 72 69 6e 67 28  61 6e 69 6d 77 25 2c 31  |nstring(animw%,1|
00011970  2c 22 63 72 6f 73 73 2d  73 65 63 74 69 6f 6e 22  |,"cross-section"|
00011980  29 3a f2 70 75 74 69 63  6e 73 74 72 69 6e 67 28  |):.puticnstring(|
00011990  61 6e 69 6d 77 25 2c 32  2c 22 63 6c 6f 73 65 72  |animw%,2,"closer|
000119a0  22 29 0d 07 2b 5f e7 62  75 74 74 79 70 65 25 28  |")..+_.buttype%(|
000119b0  61 63 74 69 76 65 69 63  6e 25 29 3d 33 3a f2 70  |activeicn%)=3:.p|
000119c0  75 74 69 63 6e 73 74 72  69 6e 67 28 61 6e 69 6d  |uticnstring(anim|
000119d0  77 25 2c 31 2c 22 63 6c  6f 73 65 72 22 29 3a f2  |w%,1,"closer"):.|
000119e0  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
000119f0  6d 77 25 2c 32 2c 22 6e  65 77 20 76 69 65 77 22  |mw%,2,"new view"|
00011a00  29 0d 07 2c 69 e7 62 75  74 74 79 70 65 25 28 61  |)..,i.buttype%(a|
00011a10  63 74 69 76 65 69 63 6e  25 29 3d 34 3a f2 70 75  |ctiveicn%)=4:.pu|
00011a20  74 69 63 6e 73 74 72 69  6e 67 28 61 6e 69 6d 77  |ticnstring(animw|
00011a30  25 2c 31 2c 22 63 72 6f  73 73 2d 73 65 63 74 69  |%,1,"cross-secti|
00011a40  6f 6e 22 29 3a f2 70 75  74 69 63 6e 73 74 72 69  |on"):.puticnstri|
00011a50  6e 67 28 61 6e 69 6d 77  25 2c 32 2c 22 63 69 72  |ng(animw%,2,"cir|
00011a60  63 75 6c 61 74 69 6f 6e  22 29 0d 07 2d 5f e7 62  |culation")..-_.b|
00011a70  75 74 74 79 70 65 25 28  61 63 74 69 76 65 69 63  |uttype%(activeic|
00011a80  6e 25 29 3d 35 3a f2 70  75 74 69 63 6e 73 74 72  |n%)=5:.puticnstr|
00011a90  69 6e 67 28 61 6e 69 6d  77 25 2c 31 2c 22 6e 65  |ing(animw%,1,"ne|
00011aa0  77 20 76 69 65 77 22 29  3a f2 70 75 74 69 63 6e  |w view"):.puticn|
00011ab0  73 74 72 69 6e 67 28 61  6e 69 6d 77 25 2c 32 2c  |string(animw%,2,|
00011ac0  22 63 6c 6f 73 65 72 22  29 0d 07 2e 60 e7 62 75  |"closer")...`.bu|
00011ad0  74 74 79 70 65 25 28 61  63 74 69 76 65 69 63 6e  |ttype%(activeicn|
00011ae0  25 29 3d 36 3a f2 70 75  74 69 63 6e 73 74 72 69  |%)=6:.puticnstri|
00011af0  6e 67 28 61 6e 69 6d 77  25 2c 31 2c 22 63 6c 6f  |ng(animw%,1,"clo|
00011b00  73 65 72 22 29 3a f2 70  75 74 69 63 6e 73 74 72  |ser"):.puticnstr|
00011b10  69 6e 67 28 61 6e 69 6d  77 25 2c 32 2c 22 70 72  |ing(animw%,2,"pr|
00011b20  65 67 6e 61 6e 63 79 22  29 0d 07 2f 29 2a 53 65  |egnancy")../)*Se|
00011b30  74 20 42 6f 64 79 57 69  73 65 24 63 68 61 69 6e  |t BodyWise$chain|
00011b40  64 69 72 20 3c 42 6f 64  79 57 69 73 65 24 44 69  |dir <BodyWise$Di|
00011b50  72 3e 0d 07 30 68 e7 69  25 3c 32 34 3a 77 66 69  |r>..0h.i%<24:wfi|
00011b60  6c 65 24 3d 22 24 2e 21  42 6f 64 79 77 69 73 65  |le$="$.!Bodywise|
00011b70  2e 77 6f 72 64 66 69 6c  65 73 2e 22 2b 61 6e 69  |.wordfiles."+ani|
00011b80  6d 66 69 6c 65 24 28 69  25 2c 30 29 2b 22 5f 77  |mfile$(i%,0)+"_w|
00011b90  22 3a 8b 3a 77 66 69 6c  65 24 3d 22 24 2e 21 42  |":.:wfile$="$.!B|
00011ba0  6f 64 79 77 69 73 65 2e  77 6f 72 64 66 69 6c 65  |odywise.wordfile|
00011bb0  73 2e 73 77 65 61 74 5f  77 22 0d 07 31 68 e7 69  |s.sweat_w"..1h.i|
00011bc0  25 3c 32 34 3a 6e 66 69  6c 65 24 3d 22 24 2e 21  |%<24:nfile$="$.!|
00011bd0  42 6f 64 79 77 69 73 65  2e 6e 75 6d 62 66 69 6c  |Bodywise.numbfil|
00011be0  65 73 2e 22 2b 61 6e 69  6d 66 69 6c 65 24 28 69  |es."+animfile$(i|
00011bf0  25 2c 30 29 2b 22 5f 6e  22 3a 8b 3a 6e 66 69 6c  |%,0)+"_n":.:nfil|
00011c00  65 24 3d 22 24 2e 21 42  6f 64 79 77 69 73 65 2e  |e$="$.!Bodywise.|
00011c10  6e 75 6d 62 66 69 6c 65  73 2e 73 77 65 61 74 5f  |numbfiles.sweat_|
00011c20  6e 22 0d 07 32 68 e7 59  25 3d 30 20 74 65 73 74  |n"..2h.Y%=0 test|
00011c30  25 3d 30 3a f5 3a f2 66  6c 6f 70 70 79 5f 64 69  |%=0:.:.floppy_di|
00011c40  73 6b 28 22 62 6f 64 79  77 69 73 65 22 2c 22 24  |sk("bodywise","$|
00011c50  2e 21 42 6f 64 79 77 69  73 65 2e 22 2b 61 6e 69  |.!Bodywise."+ani|
00011c60  6d 66 69 6c 65 24 28 69  25 2c 30 29 2b 22 5f 63  |mfile$(i%,0)+"_c|
00011c70  22 2c 77 66 69 6c 65 24  2c 6e 66 69 6c 65 24 29  |",wfile$,nfile$)|
00011c80  3a fd 65 72 72 6f 72 25  3d 30 0d 07 33 4e c8 99  |:.error%=0..3N..|
00011c90  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00011ca0  31 30 41 2c 64 65 74 61  72 65 61 25 2c 22 3c 42  |10A,detarea%,"<B|
00011cb0  6f 64 79 57 69 73 65 24  63 68 61 69 6e 64 69 72  |odyWise$chaindir|
00011cc0  3e 2e 22 2b 61 6e 69 6d  66 69 6c 65 24 28 69 25  |>."+animfile$(i%|
00011cd0  2c 30 29 2b 22 5f 63 22  0d 07 34 37 c8 99 20 22  |,0)+"_c"..47.. "|
00011ce0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00011cf0  46 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |F,animarea%,"ani|
00011d00  6d 22 2c 31 2c 33 38 34  2c 31 35 34 2c 31 32 0d  |m",1,384,154,12.|
00011d10  07 35 30 f2 61 64 64 70  61 6c 65 74 28 61 6e 69  |.50.addpalet(ani|
00011d20  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 29 3a f2  |marea%,"anim"):.|
00011d30  6d 61 6b 65 73 70 72 69  74 65 73 28 69 25 29 0d  |makesprites(i%).|
00011d40  07 36 25 f2 67 65 74 77  6f 72 64 66 69 6c 65 28  |.6%.getwordfile(|
00011d50  69 25 29 3a f2 67 65 74  6e 75 6d 62 66 69 6c 65  |i%):.getnumbfile|
00011d60  28 69 25 29 0d 07 37 0b  e7 69 25 3d 32 30 8c 0d  |(i%)..7..i%=20..|
00011d70  07 38 2d 20 e7 73 65 78  6f 6e 25 3a 62 75 74 64  |.8- .sexon%:butd|
00011d80  65 66 25 28 31 2c 33 29  3d 2d 31 3a 8b 3a 62 75  |ef%(1,3)=-1:.:bu|
00011d90  74 64 65 66 25 28 31 2c  33 29 3d 30 0d 07 39 05  |tdef%(1,3)=0..9.|
00011da0  cd 0d 07 3a 39 f2 73 68  6f 77 68 69 64 65 62 75  |...:9.showhidebu|
00011db0  74 73 28 30 2c 69 25 29  3a e3 6b 25 3d 30 b8 33  |ts(0,i%):.k%=0.3|
00011dc0  3a f2 73 65 6c 65 63 74  69 63 6e 28 61 6e 69 6d  |:.selecticn(anim|
00011dd0  77 25 2c 6b 25 2c a3 29  3a ed 0d 07 3b 4b 21 62  |w%,k%,.):...;K!b|
00011de0  6c 6b 25 3d 30 3a 62 6c  6b 25 21 34 3d 2d 37 30  |lk%=0:blk%!4=-70|
00011df0  30 3a 62 6c 6b 25 21 38  3d 37 38 30 3a 62 6c 6b  |0:blk%!8=780:blk|
00011e00  25 21 31 32 3d 30 3a c8  99 22 57 69 6d 70 5f 53  |%!12=0:.."Wimp_S|
00011e10  65 74 45 78 74 65 6e 74  22 2c 61 6e 69 6d 77 25  |etExtent",animw%|
00011e20  2c 62 6c 6b 25 0d 07 3c  0e e7 77 61 73 6f 70 65  |,blk%..<..wasope|
00011e30  6e 25 8c 0d 07 3d 40 21  62 6c 6b 25 3d 61 6e 69  |n%...=@!blk%=ani|
00011e40  6d 77 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |mw%:.."Wimp_GetW|
00011e50  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6b  |indowState",,blk|
00011e60  25 3a 62 6c 6b 25 21 32  38 3d 6f 6c 64 68 61 6e  |%:blk%!28=oldhan|
00011e70  64 6c 25 0d 07 3e 05 cc  0d 07 3f 65 21 62 6c 6b  |dl%..>....?e!blk|
00011e80  25 3d 61 6e 69 6d 77 25  3a 62 6c 6b 25 21 34 3d  |%=animw%:blk%!4=|
00011e90  32 35 30 3a 62 6c 6b 25  21 38 3d 31 36 32 3a 62  |250:blk%!8=162:b|
00011ea0  6c 6b 25 21 31 32 3d 32  35 30 2b 37 38 30 3a 62  |lk%!12=250+780:b|
00011eb0  6c 6b 25 21 31 36 3d 31  36 32 2b 37 30 30 3a 62  |lk%!16=162+700:b|
00011ec0  6c 6b 25 21 32 30 3d 30  3a 62 6c 6b 25 21 32 34  |lk%!20=0:blk%!24|
00011ed0  3d 30 3a 62 6c 6b 25 21  32 38 3d 2d 31 0d 07 40  |=0:blk%!28=-1..@|
00011ee0  05 cd 0d 07 41 13 f2 6f  70 65 6e 77 69 6e 64 28  |....A..openwind(|
00011ef0  62 6c 6b 25 29 0d 07 42  13 f2 73 68 6f 77 61 6e  |blk%)..B..showan|
00011f00  69 6d 28 30 2c 69 25 29  0d 07 43 05 e1 0d 07 44  |im(0,i%)..C....D|
00011f10  04 0d 07 45 15 dd f2 67  65 74 77 6f 72 64 66 69  |...E...getwordfi|
00011f20  6c 65 28 69 25 29 0d 07  46 0e ea 20 74 25 2c 73  |le(i%)..F.. t%,s|
00011f30  25 2c 75 25 0d 07 47 78  e7 69 25 3c 32 34 3a 77  |%,u%..Gx.i%<24:w|
00011f40  66 69 6c 65 24 3d 22 3c  42 6f 64 79 57 69 73 65  |file$="<BodyWise|
00011f50  24 63 68 61 69 6e 64 69  72 3e 2e 77 6f 72 64 66  |$chaindir>.wordf|
00011f60  69 6c 65 73 2e 22 2b 61  6e 69 6d 66 69 6c 65 24  |iles."+animfile$|
00011f70  28 69 25 2c 30 29 2b 22  5f 77 22 3a 8b 3a 77 66  |(i%,0)+"_w":.:wf|
00011f80  69 6c 65 24 3d 22 3c 42  6f 64 79 57 69 73 65 24  |ile$="<BodyWise$|
00011f90  63 68 61 69 6e 64 69 72  3e 2e 77 6f 72 64 66 69  |chaindir>.wordfi|
00011fa0  6c 65 73 2e 73 77 65 61  74 5f 77 22 0d 07 48 0e  |les.sweat_w"..H.|
00011fb0  58 3d 8e 20 77 66 69 6c  65 24 0d 07 49 1c e3 73  |X=. wfile$..I..s|
00011fc0  25 3d 30 b8 31 3a e3 74  25 3d 30 b8 31 37 3a e3  |%=0.1:.t%=0.17:.|
00011fd0  75 25 3d 30 b8 31 0d 07  4a 19 e8 23 58 2c 20 77  |u%=0.1..J..#X, w|
00011fe0  6f 72 64 73 24 28 73 25  2c 74 25 2c 75 25 29 0d  |ords$(s%,t%,u%).|
00011ff0  07 4b 09 ed 3a ed 3a ed  0d 07 4c 13 e3 73 25 3d  |.K..:.:...L..s%=|
00012000  30 b8 31 3a e3 74 25 3d  30 b8 35 0d 07 4d 1a e8  |0.1:.t%=0.5..M..|
00012010  23 58 2c 20 61 6e 69 6d  77 6f 72 64 73 24 28 73  |#X, animwords$(s|
00012020  25 2c 74 25 29 0d 07 4e  07 ed 3a ed 0d 07 4f 07  |%,t%)..N..:...O.|
00012030  d9 23 58 0d 07 50 05 e1  0d 07 51 04 0d 07 52 15  |.#X..P....Q...R.|
00012040  dd f2 67 65 74 6e 75 6d  62 66 69 6c 65 28 69 25  |..getnumbfile(i%|
00012050  29 0d 07 53 0b ea 20 74  25 2c 73 25 0d 07 54 78  |)..S.. t%,s%..Tx|
00012060  e7 69 25 3c 32 34 3a 6e  66 69 6c 65 24 3d 22 3c  |.i%<24:nfile$="<|
00012070  42 6f 64 79 57 69 73 65  24 63 68 61 69 6e 64 69  |BodyWise$chaindi|
00012080  72 3e 2e 6e 75 6d 62 66  69 6c 65 73 2e 22 2b 61  |r>.numbfiles."+a|
00012090  6e 69 6d 66 69 6c 65 24  28 69 25 2c 30 29 2b 22  |nimfile$(i%,0)+"|
000120a0  5f 6e 22 3a 8b 3a 6e 66  69 6c 65 24 3d 22 3c 42  |_n":.:nfile$="<B|
000120b0  6f 64 79 57 69 73 65 24  63 68 61 69 6e 64 69 72  |odyWise$chaindir|
000120c0  3e 2e 6e 75 6d 62 66 69  6c 65 73 2e 73 77 65 61  |>.numbfiles.swea|
000120d0  74 5f 6e 22 0d 07 55 0e  58 3d 8e 20 6e 66 69 6c  |t_n"..U.X=. nfil|
000120e0  65 24 0d 07 56 13 e3 74  25 3d 30 b8 31 3a e3 73  |e$..V..t%=0.1:.s|
000120f0  25 3d 30 b8 32 0d 07 57  16 e8 23 58 2c 20 6c 69  |%=0.2..W..#X, li|
00012100  6e 65 73 24 28 74 25 2c  73 25 29 0d 07 58 07 ed  |nes$(t%,s%)..X..|
00012110  3a ed 0d 07 59 13 e3 74  25 3d 30 b8 31 3a e3 73  |:...Y..t%=0.1:.s|
00012120  25 3d 30 b8 37 0d 07 5a  16 e8 23 58 2c 20 77 6f  |%=0.7..Z..#X, wo|
00012130  72 64 73 25 28 74 25 2c  73 25 29 0d 07 5b 07 ed  |rds%(t%,s%)..[..|
00012140  3a ed 0d 07 5c 13 e3 74  25 3d 30 b8 32 3a e3 73  |:...\..t%=0.2:.s|
00012150  25 3d 30 b8 33 0d 07 5d  17 e8 23 58 2c 20 62 75  |%=0.3..]..#X, bu|
00012160  74 64 65 66 25 28 74 25  2c 73 25 29 0d 07 5e 07  |tdef%(t%,s%)..^.|
00012170  ed 3a ed 0d 07 5f 07 d9  23 58 0d 07 60 05 e1 0d  |.:..._..#X..`...|
00012180  07 61 04 0d 07 62 15 dd  f2 6d 61 6b 65 73 70 72  |.a...b...makespr|
00012190  69 74 65 73 28 69 25 29  0d 07 63 0b c8 8e 20 69  |ites(i%)..c... i|
000121a0  25 20 ca 0d 07 64 59 20  c9 20 32 3a 20 f2 63 6c  |% ...dY . 2: .cl|
000121b0  5f 61 6e 69 6d 28 31 35  29 3a f2 61 64 64 5f 73  |_anim(15):.add_s|
000121c0  70 28 64 65 74 61 72 65  61 25 2c 22 65 79 65 61  |p(detarea%,"eyea|
000121d0  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
000121e0  6d 22 2c 35 30 2c 37 36  2c 31 35 29 3a f2 66 6c  |m",50,76,15):.fl|
000121f0  69 70 28 31 2c 22 65 79  65 61 22 29 0d 07 65 3e  |ip(1,"eyea")..e>|
00012200  20 20 20 20 20 20 20 20  20 f2 61 64 64 5f 73 70  |         .add_sp|
00012210  28 64 65 74 61 72 65 61  25 2c 22 65 79 65 61 22  |(detarea%,"eyea"|
00012220  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
00012230  22 2c 35 30 2c 39 2c 31  35 29 0d 07 66 56 20 20  |",50,9,15)..fV  |
00012240  20 20 20 20 20 20 20 c8  99 20 22 4f 53 5f 53 70  |       .. "OS_Sp|
00012250  72 69 74 65 4f 70 22 2c  26 31 30 46 2c 64 65 74  |riteOp",&10F,det|
00012260  61 72 65 61 25 2c 22 65  79 65 30 22 2c 30 2c 33  |area%,"eye0",0,3|
00012270  38 34 2c 31 35 34 2c 31  32 3a f2 63 6f 70 79 73  |84,154,12:.copys|
00012280  70 28 22 61 6e 69 6d 22  2c 22 65 79 65 30 22 29  |p("anim","eye0")|
00012290  0d 07 67 4f 20 20 20 20  20 20 20 20 20 f2 61 64  |..gO         .ad|
000122a0  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 65  |d_sp(detarea%,"e|
000122b0  79 65 62 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |yeb",animarea%,"|
000122c0  61 6e 69 6d 22 2c 35 36  2c 37 36 2c 31 35 29 3a  |anim",56,76,15):|
000122d0  f2 66 6c 69 70 28 31 2c  22 65 79 65 62 22 29 0d  |.flip(1,"eyeb").|
000122e0  07 68 3f 20 20 20 20 20  20 20 20 20 f2 61 64 64  |.h?         .add|
000122f0  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 65 79  |_sp(detarea%,"ey|
00012300  65 62 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |eb",animarea%,"a|
00012310  6e 69 6d 22 2c 35 36 2c  33 34 2c 31 35 29 0d 07  |nim",56,34,15)..|
00012320  69 58 20 20 20 20 20 20  20 20 20 c8 99 20 22 4f  |iX         .. "O|
00012330  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 39  |S_SpriteOp",&119|
00012340  2c 64 65 74 61 72 65 61  25 2c 22 65 79 65 61 22  |,detarea%,"eyea"|
00012350  3a c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |:.. "OS_SpriteOp|
00012360  22 2c 26 31 31 39 2c 64  65 74 61 72 65 61 25 2c  |",&119,detarea%,|
00012370  22 65 79 65 62 22 0d 07  6a 56 20 20 20 20 20 20  |"eyeb"..jV      |
00012380  20 20 20 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |   .. "OS_Sprite|
00012390  4f 70 22 2c 26 31 30 46  2c 64 65 74 61 72 65 61  |Op",&10F,detarea|
000123a0  25 2c 22 65 79 65 31 22  2c 30 2c 33 38 34 2c 31  |%,"eye1",0,384,1|
000123b0  35 34 2c 31 32 3a f2 63  6f 70 79 73 70 28 22 61  |54,12:.copysp("a|
000123c0  6e 69 6d 22 2c 22 65 79  65 31 22 29 0d 07 6b 4d  |nim","eye1")..kM|
000123d0  20 c9 20 34 3a 20 f2 63  6c 5f 61 6e 69 6d 28 31  | . 4: .cl_anim(1|
000123e0  35 29 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |5):.add_sp(detar|
000123f0  65 61 25 2c 22 6e 6f 73  65 62 75 6c 62 22 2c 61  |ea%,"nosebulb",a|
00012400  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
00012410  31 36 2c 31 31 2c 31 35  29 0d 07 6c 56 20 20 20  |16,11,15)..lV   |
00012420  20 20 20 20 20 20 e3 20  73 25 3d 30 b8 34 3a f2  |      . s%=0.4:.|
00012430  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
00012440  22 6f 6c 66 63 65 6c 6c  73 22 2c 61 6e 69 6d 61  |"olfcells",anima|
00012450  72 65 61 25 2c 22 61 6e  69 6d 22 2c 31 36 2b 28  |rea%,"anim",16+(|
00012460  73 25 2a 33 32 29 2c 36  37 2c 31 35 29 3a ed 0d  |s%*32),67,15):..|
00012470  07 6d 5c 20 20 20 20 20  20 20 20 20 c8 99 20 22  |.m\         .. "|
00012480  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00012490  46 2c 64 65 74 61 72 65  61 25 2c 22 6e 6f 73 74  |F,detarea%,"nost|
000124a0  6f 6e 31 22 2c 30 2c 33  38 34 2c 31 35 34 2c 31  |on1",0,384,154,1|
000124b0  32 3a f2 63 6f 70 79 73  70 28 22 61 6e 69 6d 22  |2:.copysp("anim"|
000124c0  2c 22 6e 6f 73 74 6f 6e  31 22 29 0d 07 6e 60 20  |,"noston1")..n` |
000124d0  20 20 20 20 20 20 20 20  f2 63 6c 5f 61 6e 69 6d  |        .cl_anim|
000124e0  28 31 35 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |(15):.add_sp(det|
000124f0  61 72 65 61 25 2c 22 74  6f 6e 67 75 65 22 2c 61  |area%,"tongue",a|
00012500  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
00012510  35 35 2c 31 34 2c 31 35  29 3a f2 66 6c 69 70 28  |55,14,15):.flip(|
00012520  32 2c 22 74 6f 6e 67 75  65 22 29 0d 07 6f 41 20  |2,"tongue")..oA |
00012530  20 20 20 20 20 20 20 20  f2 61 64 64 5f 73 70 28  |        .add_sp(|
00012540  64 65 74 61 72 65 61 25  2c 22 74 6f 6e 67 75 65  |detarea%,"tongue|
00012550  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
00012560  6d 22 2c 39 33 2c 31 34  2c 31 35 29 0d 07 70 88  |m",93,14,15)..p.|
00012570  20 20 20 20 20 20 20 20  20 c8 99 20 22 4f 53 5f  |         .. "OS_|
00012580  53 70 72 69 74 65 4f 70  22 2c 26 31 31 39 2c 64  |SpriteOp",&119,d|
00012590  65 74 61 72 65 61 25 2c  22 74 6f 6e 67 75 65 22  |etarea%,"tongue"|
000125a0  3a c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |:.. "OS_SpriteOp|
000125b0  22 2c 26 31 31 39 2c 64  65 74 61 72 65 61 25 2c  |",&119,detarea%,|
000125c0  22 6e 6f 73 65 62 75 6c  62 22 3a c8 99 20 22 4f  |"nosebulb":.. "O|
000125d0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 39  |S_SpriteOp",&119|
000125e0  2c 64 65 74 61 72 65 61  25 2c 22 6f 6c 66 63 65  |,detarea%,"olfce|
000125f0  6c 6c 73 22 0d 07 71 5c  20 20 20 20 20 20 20 20  |lls"..q\        |
00012600  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
00012610  22 2c 26 31 30 46 2c 64  65 74 61 72 65 61 25 2c  |",&10F,detarea%,|
00012620  22 6e 6f 73 74 6f 6e 32  22 2c 30 2c 33 38 34 2c  |"noston2",0,384,|
00012630  31 35 34 2c 31 32 3a f2  63 6f 70 79 73 70 28 22  |154,12:.copysp("|
00012640  61 6e 69 6d 22 2c 22 6e  6f 73 74 6f 6e 32 22 29  |anim","noston2")|
00012650  0d 07 72 7c 20 c9 20 35  3a 20 f2 63 6c 5f 61 6e  |..r| . 5: .cl_an|
00012660  69 6d 28 31 35 29 3a f2  61 64 64 5f 73 70 28 64  |im(15):.add_sp(d|
00012670  65 74 61 72 65 61 25 2c  22 61 76 22 2c 61 6e 69  |etarea%,"av",ani|
00012680  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 31 34  |marea%,"anim",14|
00012690  2c 31 36 2c 31 35 29 3a  f2 61 64 64 5f 73 70 28  |,16,15):.add_sp(|
000126a0  64 65 74 61 72 65 61 25  2c 22 61 76 6d 6f 76 65  |detarea%,"avmove|
000126b0  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
000126c0  6d 22 2c 31 34 2c 31 36  2c 31 33 29 0d 07 73 a8  |m",14,16,13)..s.|
000126d0  20 20 20 20 20 20 20 20  20 f2 61 64 64 5f 73 70  |         .add_sp|
000126e0  28 64 65 74 61 72 65 61  25 2c 22 68 65 61 72 74  |(detarea%,"heart|
000126f0  61 72 72 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |arr",animarea%,"|
00012700  61 6e 69 6d 22 2c 36 2c  37 36 2c 31 35 29 3a f2  |anim",6,76,15):.|
00012710  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
00012720  22 61 72 74 65 72 79 22  2c 61 6e 69 6d 61 72 65  |"artery",animare|
00012730  61 25 2c 22 61 6e 69 6d  22 2c 36 2c 36 2c 31 35  |a%,"anim",6,6,15|
00012740  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
00012750  61 25 2c 22 76 65 69 6e  22 2c 61 6e 69 6d 61 72  |a%,"vein",animar|
00012760  65 61 25 2c 22 61 6e 69  6d 22 2c 37 2c 31 33 32  |ea%,"anim",7,132|
00012770  2c 31 35 29 0d 07 74 82  20 20 20 20 20 20 20 20  |,15)..t.        |
00012780  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
00012790  22 2c 26 31 31 39 2c 64  65 74 61 72 65 61 25 2c  |",&119,detarea%,|
000127a0  22 61 76 6d 6f 76 65 22  3a c8 99 20 22 4f 53 5f  |"avmove":.. "OS_|
000127b0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 46 2c 64  |SpriteOp",&10F,d|
000127c0  65 74 61 72 65 61 25 2c  22 61 76 6d 6f 76 65 22  |etarea%,"avmove"|
000127d0  2c 30 2c 33 38 34 2c 31  35 34 2c 31 32 3a f2 63  |,0,384,154,12:.c|
000127e0  6f 70 79 73 70 28 22 61  6e 69 6d 22 2c 22 61 76  |opysp("anim","av|
000127f0  6d 6f 76 65 22 29 0d 07  75 4b 20 c9 20 36 3a 20  |move")..uK . 6: |
00012800  f2 63 6c 5f 61 6e 69 6d  28 31 35 29 3a f2 61 64  |.cl_anim(15):.ad|
00012810  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 73  |d_sp(detarea%,"s|
00012820  6b 62 61 63 6b 22 2c 61  6e 69 6d 61 72 65 61 25  |kback",animarea%|
00012830  2c 22 61 6e 69 6d 22 2c  32 38 2c 32 37 2c 31 35  |,"anim",28,27,15|
00012840  29 0d 07 76 94 20 20 20  20 20 20 20 20 20 e3 20  |)..v.         . |
00012850  73 25 3d 30 b8 32 3a f2  61 64 64 5f 73 70 28 64  |s%=0.2:.add_sp(d|
00012860  65 74 61 72 65 61 25 2c  22 73 6b 78 73 65 63 74  |etarea%,"skxsect|
00012870  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
00012880  6d 22 2c 32 39 2b 28 73  25 2a 34 35 29 2c 35 35  |m",29+(s%*45),55|
00012890  2c 31 33 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |,13):.add_sp(det|
000128a0  61 72 65 61 25 2c 22 73  6b 6e 65 72 76 65 73 22  |area%,"sknerves"|
000128b0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
000128c0  22 2c 32 39 2b 28 73 25  2a 34 35 29 2c 35 39 2c  |",29+(s%*45),59,|
000128d0  31 35 29 3a ed 0d 07 77  5a 20 20 20 20 20 20 20  |15):...wZ       |
000128e0  20 20 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |  .. "OS_SpriteO|
000128f0  70 22 2c 26 31 30 46 2c  64 65 74 61 72 65 61 25  |p",&10F,detarea%|
00012900  2c 22 73 6b 69 6e 78 73  22 2c 30 2c 33 38 34 2c  |,"skinxs",0,384,|
00012910  31 35 34 2c 31 32 3a f2  63 6f 70 79 73 70 28 22  |154,12:.copysp("|
00012920  61 6e 69 6d 22 2c 22 73  6b 69 6e 78 73 22 29 0d  |anim","skinxs").|
00012930  07 78 b7 20 c9 20 31 31  3a f2 63 6c 5f 61 6e 69  |.x. . 11:.cl_ani|
00012940  6d 28 31 35 29 3a f2 61  64 64 5f 73 70 28 64 65  |m(15):.add_sp(de|
00012950  74 61 72 65 61 25 2c 22  73 63 61 70 75 6c 61 22  |tarea%,"scapula"|
00012960  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
00012970  22 2c 31 33 34 2c 33 31  2c 31 35 29 3a f2 61 64  |",134,31,15):.ad|
00012980  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 68  |d_sp(detarea%,"h|
00012990  75 6d 30 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |um0",animarea%,"|
000129a0  61 6e 69 6d 22 2c 31 30  34 2c 32 32 2c 31 35 29  |anim",104,22,15)|
000129b0  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
000129c0  25 2c 22 68 75 6d 6c 69  67 22 2c 61 6e 69 6d 61  |%,"humlig",anima|
000129d0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 31 33 31 2c  |rea%,"anim",131,|
000129e0  33 37 2c 31 35 29 0d 07  79 75 20 20 20 20 20 20  |37,15)..yu      |
000129f0  20 20 20 f2 61 64 64 5f  73 70 28 64 65 74 61 72  |   .add_sp(detar|
00012a00  65 61 25 2c 22 64 69 73  74 68 75 6d 22 2c 61 6e  |ea%,"disthum",an|
00012a10  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 35  |imarea%,"anim",5|
00012a20  34 2c 38 33 2c 31 35 29  3a f2 61 64 64 5f 73 70  |4,83,15):.add_sp|
00012a30  28 64 65 74 61 72 65 61  25 2c 22 75 6c 6e 61 30  |(detarea%,"ulna0|
00012a40  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
00012a50  6d 22 2c 39 2c 36 33 2c  31 35 29 0d 07 7a 5c 20  |m",9,63,15)..z\ |
00012a60  20 20 20 20 20 20 20 20  c8 99 20 22 4f 53 5f 53  |        .. "OS_S|
00012a70  70 72 69 74 65 4f 70 22  2c 26 31 30 46 2c 64 65  |priteOp",&10F,de|
00012a80  74 61 72 65 61 25 2c 22  6a 6f 69 6e 74 78 73 22  |tarea%,"jointxs"|
00012a90  2c 30 2c 33 38 34 2c 31  35 34 2c 31 32 3a f2 63  |,0,384,154,12:.c|
00012aa0  6f 70 79 73 70 28 22 61  6e 69 6d 22 2c 22 6a 6f  |opysp("anim","jo|
00012ab0  69 6e 74 78 73 22 29 0d  07 7b 9b 20 c9 20 31 33  |intxs")..{. . 13|
00012ac0  3a f2 63 6c 5f 61 6e 69  6d 28 31 35 29 3a f2 61  |:.cl_anim(15):.a|
00012ad0  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
00012ae0  6c 75 6e 67 73 62 67 72  64 22 2c 61 6e 69 6d 61  |lungsbgrd",anima|
00012af0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 31 31 2c 31  |rea%,"anim",11,1|
00012b00  35 2c 31 35 29 3a f2 66  6c 69 70 28 32 2c 22 6c  |5,15):.flip(2,"l|
00012b10  75 6e 67 73 62 67 72 64  22 29 3a f2 61 64 64 5f  |ungsbgrd"):.add_|
00012b20  73 70 28 64 65 74 61 72  65 61 25 2c 22 6c 75 6e  |sp(detarea%,"lun|
00012b30  67 73 62 67 72 64 22 2c  61 6e 69 6d 61 72 65 61  |gsbgrd",animarea|
00012b40  25 2c 22 61 6e 69 6d 22  2c 39 33 2c 31 35 2c 31  |%,"anim",93,15,1|
00012b50  35 29 0d 07 7c 8b 20 20  20 20 20 20 20 20 20 c8  |5)..|.         .|
00012b60  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00012b70  26 31 31 39 2c 64 65 74  61 72 65 61 25 2c 22 6c  |&119,detarea%,"l|
00012b80  75 6e 67 73 62 67 72 64  22 3a c8 99 20 22 4f 53  |ungsbgrd":.. "OS|
00012b90  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 46 2c  |_SpriteOp",&10F,|
00012ba0  64 65 74 61 72 65 61 25  2c 22 6c 75 6e 67 73 62  |detarea%,"lungsb|
00012bb0  67 72 64 22 2c 30 2c 33  38 34 2c 31 35 34 2c 31  |grd",0,384,154,1|
00012bc0  32 3a f2 63 6f 70 79 73  70 28 22 61 6e 69 6d 22  |2:.copysp("anim"|
00012bd0  2c 22 6c 75 6e 67 73 62  67 72 64 22 29 0d 07 7d  |,"lungsbgrd")..}|
00012be0  5e 20 c9 20 31 35 3a f2  63 6c 5f 61 6e 69 6d 28  |^ . 15:.cl_anim(|
00012bf0  31 35 29 3a f2 61 64 64  5f 73 70 28 64 65 74 61  |15):.add_sp(deta|
00012c00  72 65 61 25 2c 22 62 6c  61 64 64 65 72 22 2c 61  |rea%,"bladder",a|
00012c10  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
00012c20  32 38 2c 35 2c 31 35 29  3a f2 66 6c 69 70 28 32  |28,5,15):.flip(2|
00012c30  2c 22 62 6c 61 64 64 65  72 22 29 0d 07 7e 41 20  |,"bladder")..~A |
00012c40  20 20 20 20 20 20 20 20  f2 61 64 64 5f 73 70 28  |        .add_sp(|
00012c50  64 65 74 61 72 65 61 25  2c 22 62 6c 61 64 64 65  |detarea%,"bladde|
00012c60  72 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |r",animarea%,"an|
00012c70  69 6d 22 2c 39 36 2c 35  2c 31 35 29 0d 07 7f 35  |im",96,5,15)...5|
00012c80  20 20 20 20 20 20 20 20  20 c8 99 20 22 4f 53 5f  |         .. "OS_|
00012c90  53 70 72 69 74 65 4f 70  22 2c 26 31 31 39 2c 64  |SpriteOp",&119,d|
00012ca0  65 74 61 72 65 61 25 2c  22 62 6c 61 64 64 65 72  |etarea%,"bladder|
00012cb0  22 0d 07 80 5e 20 20 20  20 20 20 20 20 20 c8 99  |"...^         ..|
00012cc0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00012cd0  31 30 46 2c 64 65 74 61  72 65 61 25 2c 22 62 6c  |10F,detarea%,"bl|
00012ce0  61 64 64 65 72 30 22 2c  30 2c 33 38 34 2c 31 35  |adder0",0,384,15|
00012cf0  34 2c 31 32 3a f2 63 6f  70 79 73 70 28 22 61 6e  |4,12:.copysp("an|
00012d00  69 6d 22 2c 22 62 6c 61  64 64 65 72 30 22 29 0d  |im","bladder0").|
00012d10  07 81 57 20 20 20 20 20  20 20 20 20 f2 61 64 64  |..W         .add|
00012d20  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 62 6c  |_sp(detarea%,"bl|
00012d30  61 64 64 65 72 78 73 22  2c 61 6e 69 6d 61 72 65  |adderxs",animare|
00012d40  61 25 2c 22 61 6e 69 6d  22 2c 32 38 2c 35 2c 39  |a%,"anim",28,5,9|
00012d50  29 3a f2 66 6c 69 70 28  32 2c 22 62 6c 61 64 64  |):.flip(2,"bladd|
00012d60  65 72 78 73 22 29 0d 07  82 42 20 20 20 20 20 20  |erxs")...B      |
00012d70  20 20 20 f2 61 64 64 5f  73 70 28 64 65 74 61 72  |   .add_sp(detar|
00012d80  65 61 25 2c 22 62 6c 61  64 64 65 72 78 73 22 2c  |ea%,"bladderxs",|
00012d90  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
00012da0  2c 39 36 2c 35 2c 39 29  0d 07 83 37 20 20 20 20  |,96,5,9)...7    |
00012db0  20 20 20 20 20 c8 99 20  22 4f 53 5f 53 70 72 69  |     .. "OS_Spri|
00012dc0  74 65 4f 70 22 2c 26 31  31 39 2c 64 65 74 61 72  |teOp",&119,detar|
00012dd0  65 61 25 2c 22 62 6c 61  64 64 65 72 78 73 22 0d  |ea%,"bladderxs".|
00012de0  07 84 5e 20 20 20 20 20  20 20 20 20 c8 99 20 22  |..^         .. "|
00012df0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00012e00  46 2c 64 65 74 61 72 65  61 25 2c 22 62 6c 61 64  |F,detarea%,"blad|
00012e10  64 65 72 31 22 2c 30 2c  33 38 34 2c 31 35 34 2c  |der1",0,384,154,|
00012e20  31 32 3a f2 63 6f 70 79  73 70 28 22 61 6e 69 6d  |12:.copysp("anim|
00012e30  22 2c 22 62 6c 61 64 64  65 72 31 22 29 0d 07 85  |","bladder1")...|
00012e40  11 20 c9 20 32 33 3a e3  72 25 3d 30 b8 31 0d 07  |. . 23:.r%=0.1..|
00012e50  86 4e 20 20 20 20 20 20  20 20 20 f2 65 78 70 61  |.N         .expa|
00012e60  6e 64 28 22 63 65 6c 6c  22 2b c3 28 72 25 29 29  |nd("cell"+.(r%))|
00012e70  3a f2 65 78 70 61 6e 64  28 22 61 78 6f 6e 22 2b  |:.expand("axon"+|
00012e80  c3 28 72 25 29 29 3a f2  65 78 70 61 6e 64 28 22  |.(r%)):.expand("|
00012e90  74 61 69 6c 22 2b c3 28  72 25 29 29 0d 07 87 45  |tail"+.(r%))...E|
00012ea0  20 20 20 20 20 20 20 20  20 c8 99 22 4f 53 5f 53  |         .."OS_S|
00012eb0  70 72 69 74 65 4f 70 22  2c 26 31 30 46 2c 64 65  |priteOp",&10F,de|
00012ec0  74 61 72 65 61 25 2c 22  6e 65 72 76 65 22 2b c3  |tarea%,"nerve"+.|
00012ed0  28 72 25 29 2c 30 2c 33  38 34 2c 31 35 34 2c 31  |(r%),0,384,154,1|
00012ee0  32 0d 07 88 3a 20 20 20  20 20 20 20 20 20 c8 99  |2...:         ..|
00012ef0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00012f00  33 43 2c 64 65 74 61 72  65 61 25 2c 22 6e 65 72  |3C,detarea%,"ner|
00012f10  76 65 22 2b c3 28 72 25  29 2c 30 0d 07 89 33 20  |ve"+.(r%),0...3 |
00012f20  20 20 20 20 20 20 20 20  ef 31 38 2c 30 2c 31 31  |        .18,0,11|
00012f30  3a ef 20 32 35 2c 34 2c  30 3b 30 3b 3a ef 20 32  |:. 25,4,0;0;:. 2|
00012f40  35 2c 31 30 31 2c 37 36  38 3b 36 31 36 3b 0d 07  |5,101,768;616;..|
00012f50  8a 5e 20 20 20 20 20 20  20 20 20 e3 20 73 25 3d  |.^         . s%=|
00012f60  30 b8 37 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |0.7:.."OS_Sprite|
00012f70  4f 70 22 2c 26 31 32 32  2c 64 65 74 61 72 65 61  |Op",&122,detarea|
00012f80  25 2c 22 61 78 6f 6e 22  2b c3 28 72 25 29 2c 61  |%,"axon"+.(r%),a|
00012f90  78 6f 6e 31 25 28 73 25  2c 30 29 2c 61 78 6f 6e  |xon1%(s%,0),axon|
00012fa0  31 25 28 73 25 2c 31 29  2c 38 3a ed 0d 07 8b 5c  |1%(s%,1),8:....\|
00012fb0  20 20 20 20 20 20 20 20  20 e3 20 73 25 3d 30 b8  |         . s%=0.|
00012fc0  33 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |3:.."OS_SpriteOp|
00012fd0  22 2c 26 31 32 32 2c 64  65 74 61 72 65 61 25 2c  |",&122,detarea%,|
00012fe0  22 63 65 6c 6c 22 2b c3  28 72 25 29 2c 63 65 6c  |"cell"+.(r%),cel|
00012ff0  6c 25 28 73 25 2c 30 29  2c 63 65 6c 6c 25 28 73  |l%(s%,0),cell%(s|
00013000  25 2c 31 29 2c 38 3a ed  0d 07 8c 5f 20 20 20 20  |%,1),8:...._    |
00013010  20 20 20 20 20 e3 20 73  25 3d 30 b8 32 30 3a c8  |     . s%=0.20:.|
00013020  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00013030  31 32 32 2c 64 65 74 61  72 65 61 25 2c 22 61 78  |122,detarea%,"ax|
00013040  6f 6e 22 2b c3 28 72 25  29 2c 61 78 6f 6e 32 25  |on"+.(r%),axon2%|
00013050  28 73 25 2c 30 29 2c 61  78 6f 6e 32 25 28 73 25  |(s%,0),axon2%(s%|
00013060  2c 31 29 2c 38 3a ed 0d  07 8d 5c 20 20 20 20 20  |,1),8:....\     |
00013070  20 20 20 20 e3 20 73 25  3d 30 b8 33 3a c8 99 22  |    . s%=0.3:.."|
00013080  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 32  |OS_SpriteOp",&12|
00013090  32 2c 64 65 74 61 72 65  61 25 2c 22 74 61 69 6c  |2,detarea%,"tail|
000130a0  22 2b c3 28 72 25 29 2c  74 61 69 6c 25 28 73 25  |"+.(r%),tail%(s%|
000130b0  2c 30 29 2c 74 61 69 6c  25 28 73 25 2c 31 29 2c  |,0),tail%(s%,1),|
000130c0  38 3a ed 0d 07 8e 2e 20  20 20 20 20 20 20 20 20  |8:.....         |
000130d0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000130e0  26 31 33 43 2c 64 65 74  61 72 65 61 25 2c 30 2c  |&13C,detarea%,0,|
000130f0  30 0d 07 8f 25 20 20 20  20 20 20 20 20 20 f2 61  |0...%         .a|
00013100  6e 69 6d 5f 62 64 72 28  22 6e 65 72 76 65 22 2b  |nim_bdr("nerve"+|
00013110  c3 28 72 25 29 29 0d 07  90 8d 20 20 20 20 20 20  |.(r%))....      |
00013120  20 20 20 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |   .."OS_SpriteO|
00013130  70 22 2c 26 31 31 39 2c  64 65 74 61 72 65 61 25  |p",&119,detarea%|
00013140  2c 22 63 65 6c 6c 22 2b  c3 28 72 25 29 3a c8 99  |,"cell"+.(r%):..|
00013150  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00013160  31 39 2c 64 65 74 61 72  65 61 25 2c 22 61 78 6f  |19,detarea%,"axo|
00013170  6e 22 2b c3 28 72 25 29  3a c8 99 22 4f 53 5f 53  |n"+.(r%):.."OS_S|
00013180  70 72 69 74 65 4f 70 22  2c 26 31 31 39 2c 64 65  |priteOp",&119,de|
00013190  74 61 72 65 61 25 2c 22  74 61 69 6c 22 2b c3 28  |tarea%,"tail"+.(|
000131a0  72 25 29 0d 07 91 0e 20  20 20 20 20 20 20 20 20  |r%)....         |
000131b0  ed 0d 07 92 40 20 c9 20  32 34 3a e3 72 25 3d 30  |....@ . 24:.r%=0|
000131c0  b8 31 30 3a c8 99 20 22  4f 53 5f 53 70 72 69 74  |.10:.. "OS_Sprit|
000131d0  65 4f 70 22 2c 26 31 31  39 2c 64 65 74 61 72 65  |eOp",&119,detare|
000131e0  61 25 2c 73 6b 69 6e 64  65 6c 24 28 72 25 29 3a  |a%,skindel$(r%):|
000131f0  ed 0d 07 93 45 20 20 20  20 20 20 20 20 20 e3 72  |....E         .r|
00013200  25 3d 30 b8 33 3a c8 99  20 22 4f 53 5f 53 70 72  |%=0.3:.. "OS_Spr|
00013210  69 74 65 4f 70 22 2c 26  31 31 39 2c 64 65 74 61  |iteOp",&119,deta|
00013220  72 65 61 25 2c 22 70 69  6e 68 65 61 64 22 2b c3  |rea%,"pinhead"+.|
00013230  28 72 25 29 3a ed 0d 07  94 41 20 20 20 20 20 20  |(r%):....A      |
00013240  20 20 20 e3 72 25 3d 30  b8 33 3a c8 99 20 22 4f  |   .r%=0.3:.. "O|
00013250  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 39  |S_SpriteOp",&119|
00013260  2c 64 65 74 61 72 65 61  25 2c 22 70 69 6e 22 2b  |,detarea%,"pin"+|
00013270  c3 28 72 25 29 3a ed 0d  07 95 4e 20 20 20 20 20  |.(r%):....N     |
00013280  20 20 20 20 f2 63 6c 5f  61 6e 69 6d 28 31 35 29  |    .cl_anim(15)|
00013290  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
000132a0  25 2c 22 73 6b 62 61 63  6b 22 2c 61 6e 69 6d 61  |%,"skback",anima|
000132b0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 32 38 2c 32  |rea%,"anim",28,2|
000132c0  37 2c 31 35 29 0d 07 96  55 20 20 20 20 20 20 20  |7,15)...U       |
000132d0  20 20 e3 20 73 25 3d 30  b8 32 3a f2 61 64 64 5f  |  . s%=0.2:.add_|
000132e0  73 70 28 64 65 74 61 72  65 61 25 2c 22 73 6b 78  |sp(detarea%,"skx|
000132f0  73 65 63 74 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |sect",animarea%,|
00013300  22 61 6e 69 6d 22 2c 32  39 2b 28 73 25 2a 34 35  |"anim",29+(s%*45|
00013310  29 2c 35 35 2c 31 33 29  3a ed 0d 07 97 53 20 20  |),55,13):....S  |
00013320  20 20 20 20 20 20 20 e3  20 73 25 3d 30 b8 31 3a  |       . s%=0.1:|
00013330  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
00013340  2c 22 73 77 65 61 74 22  2c 61 6e 69 6d 61 72 65  |,"sweat",animare|
00013350  61 25 2c 22 61 6e 69 6d  22 2c 35 33 2b 28 73 25  |a%,"anim",53+(s%|
00013360  2a 36 33 29 2c 35 34 2c  31 35 29 3a ed 0d 07 98  |*63),54,15):....|
00013370  5c 20 20 20 20 20 20 20  20 20 c8 99 20 22 4f 53  |\         .. "OS|
00013380  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 39 2c  |_SpriteOp",&119,|
00013390  64 65 74 61 72 65 61 25  2c 22 73 6b 78 73 65 63  |detarea%,"skxsec|
000133a0  74 22 3a c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |t":.. "OS_Sprite|
000133b0  4f 70 22 2c 26 31 31 39  2c 64 65 74 61 72 65 61  |Op",&119,detarea|
000133c0  25 2c 22 73 77 65 61 74  22 0d 07 99 5a 20 20 20  |%,"sweat"...Z   |
000133d0  20 20 20 20 20 20 c8 99  20 22 4f 53 5f 53 70 72  |      .. "OS_Spr|
000133e0  69 74 65 4f 70 22 2c 26  31 30 46 2c 64 65 74 61  |iteOp",&10F,deta|
000133f0  72 65 61 25 2c 22 73 6b  69 6e 78 73 22 2c 30 2c  |rea%,"skinxs",0,|
00013400  33 38 34 2c 31 35 34 2c  31 32 3a f2 63 6f 70 79  |384,154,12:.copy|
00013410  73 70 28 22 61 6e 69 6d  22 2c 22 73 6b 69 6e 78  |sp("anim","skinx|
00013420  73 22 29 0d 07 9a 05 cb  0d 07 9b 43 f4 50 52 4f  |s")........C.PRO|
00013430  43 65 72 72 6f 72 28 61  6e 69 6d 66 69 6c 65 24  |Cerror(animfile$|
00013440  28 69 25 2c 30 29 2b 22  20 22 2b 53 54 52 24 28  |(i%,0)+" "+STR$(|
00013450  21 64 65 74 61 72 65 61  25 2d 28 64 65 74 61 72  |!detarea%-(detar|
00013460  65 61 25 21 31 32 29 29  2c 30 29 0d 07 9c 05 e1  |ea%!12)),0).....|
00013470  0d 07 9d 04 0d 07 9e 1b  dd f2 63 6f 70 79 73 70  |..........copysp|
00013480  28 66 72 6f 6d 73 70 24  2c 74 6f 73 70 24 29 0d  |(fromsp$,tosp$).|
00013490  07 9f 5f e7 66 72 6f 6d  73 70 24 3d 22 61 6e 69  |.._.fromsp$="ani|
000134a0  6d 22 20 66 72 6f 6d 61  72 65 61 25 3d 61 6e 69  |m" fromarea%=ani|
000134b0  6d 61 72 65 61 25 3a 74  6f 61 72 65 61 25 3d 64  |marea%:toarea%=d|
000134c0  65 74 61 72 65 61 25 3a  8b 3a 66 72 6f 6d 61 72  |etarea%:.:fromar|
000134d0  65 61 25 3d 64 65 74 61  72 65 61 25 3a 74 6f 61  |ea%=detarea%:toa|
000134e0  72 65 61 25 3d 61 6e 69  6d 61 72 65 61 25 0d 07  |rea%=animarea%..|
000134f0  a0 28 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.(.."OS_SpriteOp|
00013500  22 2c 26 31 33 43 2c 74  6f 61 72 65 61 25 2c 74  |",&13C,toarea%,t|
00013510  6f 73 70 24 2c 30 0d 07  a1 30 c8 99 22 4f 53 5f  |osp$,0...0.."OS_|
00013520  53 70 72 69 74 65 4f 70  22 2c 26 31 32 32 2c 66  |SpriteOp",&122,f|
00013530  72 6f 6d 61 72 65 61 25  2c 66 72 6f 6d 73 70 24  |romarea%,fromsp$|
00013540  2c 30 2c 30 2c 30 0d 07  a2 24 c8 99 22 4f 53 5f  |,0,0,0...$.."OS_|
00013550  53 70 72 69 74 65 4f 70  22 2c 26 31 33 43 2c 74  |SpriteOp",&13C,t|
00013560  6f 61 72 65 61 25 2c 30  2c 30 0d 07 a3 05 e1 0d  |oarea%,0,0......|
00013570  07 a4 04 0d 07 a5 18 dd  f2 73 68 6f 77 61 6e 69  |.........showani|
00013580  6d 28 77 6c 65 76 25 2c  69 25 29 0d 07 a6 18 f2  |m(wlev%,i%).....|
00013590  6d 61 6b 65 6f 72 67 61  6e 28 77 6c 65 76 25 2c  |makeorgan(wlev%,|
000135a0  69 25 29 0d 07 a7 0d f2  70 6c 6f 74 61 6e 69 6d  |i%).....plotanim|
000135b0  0d 07 a8 05 e1 0d 07 a9  04 0d 07 aa 19 dd f2 6d  |...............m|
000135c0  61 6b 65 6f 72 67 61 6e  28 77 6c 65 76 25 2c 69  |akeorgan(wlev%,i|
000135d0  25 29 0d 07 ab 0b c8 8e  20 69 25 20 ca 0d 07 ac  |%)...... i% ....|
000135e0  1c 20 20 c9 20 30 3a 20  f2 6d 61 6b 65 62 72 61  |.  . 0: .makebra|
000135f0  69 6e 28 77 6c 65 76 25  29 0d 07 ad 1c 20 20 c9  |in(wlev%)....  .|
00013600  20 31 3a 20 f2 6d 61 6b  65 6d 6f 75 74 68 28 77  | 1: .makemouth(w|
00013610  6c 65 76 25 29 0d 07 ae  1a 20 20 c9 20 32 3a 20  |lev%)....  . 2: |
00013620  f2 6d 61 6b 65 65 79 65  28 77 6c 65 76 25 29 0d  |.makeeye(wlev%).|
00013630  07 af 1a 20 20 c9 20 33  3a 20 f2 6d 61 6b 65 70  |...  . 3: .makep|
00013640  69 74 28 77 6c 65 76 25  29 0d 07 b0 1b 20 20 c9  |it(wlev%)....  .|
00013650  20 34 3a 20 f2 6d 61 6b  65 6e 6f 73 65 28 77 6c  | 4: .makenose(wl|
00013660  65 76 25 29 0d 07 b1 1b  20 20 c9 20 35 3a 20 f2  |ev%)....  . 5: .|
00013670  6d 61 6b 65 61 72 74 76  28 77 6c 65 76 25 29 0d  |makeartv(wlev%).|
00013680  07 b2 1b 20 20 c9 20 36  3a 20 f2 6d 61 6b 65 73  |...  . 6: .makes|
00013690  6b 69 6e 28 77 6c 65 76  25 29 0d 07 b3 1c 20 20  |kin(wlev%)....  |
000136a0  c9 20 37 3a 20 f2 6d 61  6b 65 68 65 61 72 74 28  |. 7: .makeheart(|
000136b0  77 6c 65 76 25 29 0d 07  b4 1b 20 20 c9 20 38 3a  |wlev%)....  . 8:|
000136c0  20 f2 6d 61 6b 65 62 6f  6e 65 28 77 6c 65 76 25  | .makebone(wlev%|
000136d0  29 0d 07 b5 1d 20 20 c9  20 39 3a 20 f2 6d 61 6b  |)....  . 9: .mak|
000136e0  65 6b 69 64 6e 65 79 28  77 6c 65 76 25 29 0d 07  |ekidney(wlev%)..|
000136f0  b6 1d 20 20 c9 20 31 30  3a 20 f2 6d 61 6b 65 6c  |..  . 10: .makel|
00013700  69 76 65 72 28 77 6c 65  76 25 29 0d 07 b7 1d 20  |iver(wlev%).... |
00013710  20 c9 20 31 31 3a 20 f2  6d 61 6b 65 6a 6f 69 6e  | . 11: .makejoin|
00013720  74 28 77 6c 65 76 25 29  0d 07 b8 1f 20 20 c9 20  |t(wlev%)....  . |
00013730  31 32 3a 20 f2 6d 61 6b  65 73 74 6f 6d 61 63 68  |12: .makestomach|
00013740  28 77 6c 65 76 25 29 0d  07 b9 1d 20 20 c9 20 31  |(wlev%)....  . 1|
00013750  33 3a 20 f2 6d 61 6b 65  6c 75 6e 67 73 28 77 6c  |3: .makelungs(wl|
00013760  65 76 25 29 0d 07 ba 1c  20 20 c9 20 31 34 3a 20  |ev%)....  . 14: |
00013770  f2 6d 61 6b 65 62 61 62  79 28 77 6c 65 76 25 29  |.makebaby(wlev%)|
00013780  0d 07 bb 1f 20 20 c9 20  31 35 3a 20 f2 6d 61 6b  |....  . 15: .mak|
00013790  65 62 6c 61 64 64 65 72  28 77 6c 65 76 25 29 0d  |ebladder(wlev%).|
000137a0  07 bc 1d 20 20 c9 20 31  36 3a 20 f2 6d 61 6b 65  |...  . 16: .make|
000137b0  6c 79 6d 70 68 28 77 6c  65 76 25 29 0d 07 bd 20  |lymph(wlev%)... |
000137c0  20 20 c9 20 31 37 3a 20  f2 6d 61 6b 65 73 6d 69  |  . 17: .makesmi|
000137d0  6e 74 65 73 74 28 77 6c  65 76 25 29 0d 07 be 20  |ntest(wlev%)... |
000137e0  20 20 c9 20 31 38 3a 20  f2 6d 61 6b 65 6c 67 69  |  . 18: .makelgi|
000137f0  6e 74 65 73 74 28 77 6c  65 76 25 29 0d 07 bf 1e  |ntest(wlev%)....|
00013800  20 20 c9 20 31 39 3a 20  f2 6d 61 6b 65 66 65 6d  |  . 19: .makefem|
00013810  61 6c 65 28 77 6c 65 76  25 29 0d 07 c0 1c 20 20  |ale(wlev%)....  |
00013820  c9 20 32 30 3a 20 f2 6d  61 6b 65 6d 61 6c 65 28  |. 20: .makemale(|
00013830  77 6c 65 76 25 29 0d 07  c1 1b 20 20 c9 20 32 31  |wlev%)....  . 21|
00013840  3a 20 f2 6d 61 6b 65 65  61 72 28 77 6c 65 76 25  |: .makeear(wlev%|
00013850  29 0d 07 c2 1e 20 20 c9  20 32 32 3a 20 f2 6d 61  |)....  . 22: .ma|
00013860  6b 65 6d 75 73 63 6c 65  28 77 6c 65 76 25 29 0d  |kemuscle(wlev%).|
00013870  07 c3 1e 20 20 c9 20 32  33 3a 20 f2 6d 61 6b 65  |...  . 23: .make|
00013880  6e 65 72 76 65 73 28 77  6c 65 76 25 29 0d 07 c4  |nerves(wlev%)...|
00013890  1d 20 20 c9 20 32 34 3a  20 f2 6d 61 6b 65 73 77  |.  . 24: .makesw|
000138a0  65 61 74 28 77 6c 65 76  25 29 0d 07 c5 05 cb 0d  |eat(wlev%)......|
000138b0  07 c6 05 e1 0d 07 c7 04  0d 07 c8 1c dd f2 73 68  |..............sh|
000138c0  6f 77 68 69 64 65 62 75  74 73 28 77 6c 65 76 25  |owhidebuts(wlev%|
000138d0  2c 69 25 29 0d 07 c9 61  f4 20 73 68 6f 77 73 20  |,i%)...a. shows |
000138e0  6f 72 20 68 69 64 65 73  20 74 6f 70 20 34 20 62  |or hides top 4 b|
000138f0  75 74 74 6f 6e 73 20 6f  66 20 61 6e 69 6d 77 25  |uttons of animw%|
00013900  20 64 65 70 20 6f 6e 20  69 25 20 61 6e 64 20 77  | dep on i% and w|
00013910  69 6e 64 6f 77 6c 65 76  65 6c 28 30 3d 74 6f 70  |indowlevel(0=top|
00013920  2c 31 3d 78 73 65 63 74  69 6f 6e 2c 32 3d 63 6c  |,1=xsection,2=cl|
00013930  6f 73 65 72 29 0d 07 ca  1e 21 62 6c 6b 25 3d 61  |oser)....!blk%=a|
00013940  6e 69 6d 77 25 3a 62 6c  6b 25 21 31 32 3d 31 3c  |nimw%:blk%!12=1<|
00013950  3c 32 33 0d 07 cb 0b e3  6b 25 3d 30 b8 33 0d 07  |<23.....k%=0.3..|
00013960  cc 0d 62 6c 6b 25 21 34  3d 6b 25 0d 07 cd 2e e7  |..blk%!4=k%.....|
00013970  62 75 74 64 65 66 25 28  77 6c 65 76 25 2c 6b 25  |butdef%(wlev%,k%|
00013980  29 3a 62 6c 6b 25 21 38  3d 30 3a 8b 3a 62 6c 6b  |):blk%!8=0:.:blk|
00013990  25 21 38 3d 31 3c 3c 32  33 0d 07 ce 20 c8 99 20  |%!8=1<<23... .. |
000139a0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000139b0  74 65 22 2c 2c 62 6c 6b  25 0d 07 cf 05 ed 0d 07  |te",,blk%.......|
000139c0  d0 2e c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |.... "Wimp_Force|
000139d0  52 65 64 72 61 77 22 2c  61 6e 69 6d 77 25 2c 30  |Redraw",animw%,0|
000139e0  2c 2d 31 31 32 2c 37 38  30 2c 2d 38 0d 07 d1 05  |,-112,780,-8....|
000139f0  e1 0d 07 d2 04 0d 07 d3  14 dd f2 72 65 6d 6f 76  |...........remov|
00013a00  65 73 65 78 28 66 6c 25  29 0d 07 d4 15 2a 43 48  |esex(fl%)....*CH|
00013a10  41 4e 4e 45 4c 56 4f 49  43 45 20 31 20 39 0d 07  |ANNELVOICE 1 9..|
00013a20  d5 34 f4 49 46 66 6c 25  3a 62 75 74 64 65 66 25  |.4.IFfl%:butdef%|
00013a30  28 32 30 2c 31 2c 33 29  3d 30 3a 45 4c 53 45 3a  |(20,1,3)=0:ELSE:|
00013a40  62 75 74 64 65 66 25 28  32 30 2c 31 2c 33 29 3d  |butdef%(20,1,3)=|
00013a50  2d 31 0d 07 d6 80 e7 66  6c 25 3a 73 79 73 74 65  |-1.....fl%:syste|
00013a60  6d 6c 61 62 65 6c 73 24  28 37 29 3d 22 30 32 2c  |mlabels$(7)="02,|
00013a70  32 30 2c 33 35 22 3a 73  79 73 74 65 6d 6c 61 62  |20,35":systemlab|
00013a80  65 6c 73 24 28 38 29 3d  22 30 32 2c 31 39 2c 33  |els$(8)="02,19,3|
00013a90  36 22 3a 8b 3a 73 79 73  74 65 6d 6c 61 62 65 6c  |6":.:systemlabel|
00013aa0  73 24 28 37 29 3d 22 30  33 2c 31 34 2c 32 30 2c  |s$(7)="03,14,20,|
00013ab0  33 35 22 3a 73 79 73 74  65 6d 6c 61 62 65 6c 73  |35":systemlabels|
00013ac0  24 28 38 29 3d 22 30 33  2c 31 34 2c 31 39 2c 33  |$(8)="03,14,19,3|
00013ad0  36 22 0d 07 d7 b6 e7 66  6c 25 3a f2 64 69 73 63  |6".....fl%:.disc|
00013ae0  6d 65 73 73 28 22 49 6e  63 6f 72 72 65 63 74 20  |mess("Incorrect |
00013af0  70 61 73 73 77 6f 72 64  2e 20 50 61 72 74 73 20  |password. Parts |
00013b00  6f 66 20 74 68 65 20 52  65 70 72 6f 64 75 63 74  |of the Reproduct|
00013b10  69 76 65 20 53 79 73 74  65 6d 20 61 72 65 20 6e  |ive System are n|
00013b20  6f 77 20 68 69 64 64 65  6e 2e 22 2c 30 29 3a 8b  |ow hidden.",0):.|
00013b30  3a f2 64 69 73 63 6d 65  73 73 28 22 43 6f 72 72  |:.discmess("Corr|
00013b40  65 63 74 20 70 61 73 73  77 6f 72 64 2e 20 41 6c  |ect password. Al|
00013b50  6c 20 70 61 72 74 73 20  6f 66 20 74 68 65 20 52  |l parts of the R|
00013b60  65 70 72 6f 64 75 63 74  69 76 65 20 53 79 73 74  |eproductive Syst|
00013b70  65 6d 20 61 72 65 20 6e  6f 77 20 76 69 65 77 61  |em are now viewa|
00013b80  62 6c 65 2e 22 2c 30 29  0d 07 d8 56 e7 28 a4 6e  |ble.",0)...V.(.n|
00013b90  6f 5f 73 79 73 74 65 6d  73 5f 6f 6e 3d 31 29 80  |o_systems_on=1).|
00013ba0  28 a4 73 79 73 74 65 6d  5f 6f 6e 3d 37 29 3a f2  |(.system_on=7):.|
00013bb0  68 69 64 65 69 63 6e 28  62 6f 64 79 77 25 2c 31  |hideicn(bodyw%,1|
00013bc0  34 2c 66 6c 25 29 3a f2  73 65 6c 65 63 74 69 63  |4,fl%):.selectic|
00013bd0  6e 28 62 6f 64 79 77 25  2c 31 34 2c a3 29 0d 07  |n(bodyw%,14,.)..|
00013be0  d9 56 e7 28 a4 6e 6f 5f  73 79 73 74 65 6d 73 5f  |.V.(.no_systems_|
00013bf0  6f 6e 3d 31 29 80 28 a4  73 79 73 74 65 6d 5f 6f  |on=1).(.system_o|
00013c00  6e 3d 38 29 3a f2 68 69  64 65 69 63 6e 28 62 6f  |n=8):.hideicn(bo|
00013c10  64 79 77 25 2c 31 34 2c  66 6c 25 29 3a f2 73 65  |dyw%,14,fl%):.se|
00013c20  6c 65 63 74 69 63 6e 28  62 6f 64 79 77 25 2c 31  |lecticn(bodyw%,1|
00013c30  34 2c a3 29 0d 07 da 38  e7 61 63 74 69 76 65 69  |4,.)...8.activei|
00013c40  63 6e 25 3d 32 30 3a f2  73 65 6c 65 63 74 69 63  |cn%=20:.selectic|
00013c50  6e 28 62 6f 64 79 77 25  2c 32 30 2c a3 29 3a f2  |n(bodyw%,20,.):.|
00013c60  67 6f 63 6c 6f 73 65 72  28 32 30 29 0d 07 db 38  |gocloser(20)...8|
00013c70  e7 61 63 74 69 76 65 69  63 6e 25 3d 31 34 3a f2  |.activeicn%=14:.|
00013c80  73 65 6c 65 63 74 69 63  6e 28 62 6f 64 79 77 25  |selecticn(bodyw%|
00013c90  2c 31 34 2c a3 29 3a f2  67 6f 63 6c 6f 73 65 72  |,14,.):.gocloser|
00013ca0  28 31 34 29 0d 07 dc 31  c8 99 22 57 69 6d 70 5f  |(14)...1.."Wimp_|
00013cb0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 62 6f 64  |ForceRedraw",bod|
00013cc0  79 77 25 2c 33 37 30 2c  2d 39 30 30 2c 36 30 38  |yw%,370,-900,608|
00013cd0  2c 2d 38 34 38 0d 07 dd  05 e1 0d 07 de 04 0d 07  |,-848...........|
00013ce0  df 0a dd f2 74 65 78 74  0d 07 e0 20 f4 49 46 64  |....text... .IFd|
00013cf0  6f 69 6e 67 6d 6f 76 65  25 20 50 52 4f 43 61 6e  |oingmove% PROCan|
00013d00  69 6d 61 74 65 65 6e 64  0d 07 e1 54 e7 a4 69 73  |imateend...T..is|
00013d10  73 65 6c 65 63 74 65 64  28 61 6e 69 6d 77 25 2c  |selected(animw%,|
00013d20  30 29 3a 74 65 78 74 6f  6e 25 3d 2d 31 3a 74 65  |0):texton%=-1:te|
00013d30  78 74 6e 65 77 6f 6e 25  3d 2d 31 3a f2 61 64 64  |xtnewon%=-1:.add|
00013d40  74 65 78 74 3a 8b 3a 74  65 78 74 6f 6e 25 3d 30  |text:.:texton%=0|
00013d50  3a f2 72 65 6d 6f 76 65  74 65 78 74 0d 07 e2 31  |:.removetext...1|
00013d60  e7 64 6f 69 6e 67 63 6c  6f 73 65 72 25 3a 64 6f  |.doingcloser%:do|
00013d70  69 6e 67 63 6c 6f 73 65  72 25 3d a3 3a f2 63 68  |ingcloser%=.:.ch|
00013d80  61 6e 67 65 77 69 6e 64  6f 77 6c 65 76 0d 07 e3  |angewindowlev...|
00013d90  05 e1 0d 07 e4 04 0d 07  e5 10 dd f2 72 65 6d 6f  |............remo|
00013da0  76 65 74 65 78 74 0d 07  e6 42 21 62 6c 6b 32 25  |vetext...B!blk2%|
00013db0  3d 61 6e 69 6d 77 25 3a  c8 99 22 57 69 6d 70 5f  |=animw%:.."Wimp_|
00013dc0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00013dd0  2c 62 6c 6b 32 25 3a 77  69 6e 64 70 6f 73 25 3d  |,blk2%:windpos%=|
00013de0  62 6c 6b 32 25 21 32 38  0d 07 e7 1a 61 63 74 69  |blk2%!28....acti|
00013df0  76 65 74 78 74 69 63 6e  25 3d 61 63 74 69 76 65  |vetxticn%=active|
00013e00  77 25 0d 07 e8 23 21 62  6c 6b 32 25 3d 61 6e 69  |w%...#!blk2%=ani|
00013e10  6d 77 25 3a f2 63 6c 6f  73 65 77 69 6e 64 28 62  |mw%:.closewind(b|
00013e20  6c 6b 32 25 29 0d 07 e9  50 21 62 6c 6b 32 25 3d  |lk2%)...P!blk2%=|
00013e30  30 3a 62 6c 6b 32 25 21  34 3d 2d 37 30 30 3a 62  |0:blk2%!4=-700:b|
00013e40  6c 6b 32 25 21 38 3d 37  38 30 3a 62 6c 6b 32 25  |lk2%!8=780:blk2%|
00013e50  21 31 32 3d 30 3a c8 99  22 57 69 6d 70 5f 53 65  |!12=0:.."Wimp_Se|
00013e60  74 45 78 74 65 6e 74 22  2c 61 6e 69 6d 77 25 2c  |tExtent",animw%,|
00013e70  62 6c 6b 32 25 0d 07 ea  11 e7 ac 64 6f 69 6e 67  |blk2%......doing|
00013e80  6d 6f 76 65 25 8c 0d 07  eb 12 20 f2 72 65 6d 6f  |move%..... .remo|
00013e90  76 65 6c 61 62 65 6c 73  0d 07 ec 1f 20 e7 64 6f  |velabels.... .do|
00013ea0  69 6e 67 63 6c 6f 73 65  72 25 3a f2 63 6c 6f 73  |ingcloser%:.clos|
00013eb0  65 72 62 6f 78 65 73 0d  07 ed 0e 20 f2 70 6c 6f  |erboxes.... .plo|
00013ec0  74 61 6e 69 6d 0d 07 ee  05 cd 0d 07 ef 2e 21 62  |tanim.........!b|
00013ed0  6c 6b 25 3d 61 6e 69 6d  77 25 3a c8 99 22 57 69  |lk%=animw%:.."Wi|
00013ee0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00013ef0  65 22 2c 2c 62 6c 6b 25  0d 07 f0 27 62 6c 6b 25  |e",,blk%...'blk%|
00013f00  21 38 3d 62 6c 6b 25 21  31 36 2d 37 30 30 3a 62  |!8=blk%!16-700:b|
00013f10  6c 6b 25 21 32 38 3d 77  69 6e 64 70 6f 73 25 0d  |lk%!28=windpos%.|
00013f20  07 f1 13 f2 6f 70 65 6e  77 69 6e 64 28 62 6c 6b  |....openwind(blk|
00013f30  25 29 0d 07 f2 05 e1 0d  07 f3 04 0d 07 f4 12 dd  |%)..............|
00013f40  f2 72 65 6d 6f 76 65 6c  61 62 65 6c 73 0d 07 f5  |.removelabels...|
00013f50  19 e7 77 6f 72 64 73 25  28 73 69 6d 70 25 2c 31  |..words%(simp%,1|
00013f60  29 3c 3e 2d 31 8c 0d 07  f6 7e 20 e3 6b 25 3d 77  |)<>-1....~ .k%=w|
00013f70  6f 72 64 73 25 28 73 69  6d 70 25 2c 30 29 b8 77  |ords%(simp%,0).w|
00013f80  6f 72 64 73 25 28 73 69  6d 70 25 2c 31 29 3a f2  |ords%(simp%,1):.|
00013f90  68 69 64 65 69 63 6e 28  61 6e 69 6d 77 25 2c bb  |hideicn(animw%,.|
00013fa0  28 77 6f 72 64 73 24 28  73 69 6d 70 25 2c 6b 25  |(words$(simp%,k%|
00013fb0  2c 30 29 29 2c b9 29 3a  f2 73 65 6c 65 63 74 69  |,0)),.):.selecti|
00013fc0  63 6e 28 61 6e 69 6d 77  25 2c bb 28 77 6f 72 64  |cn(animw%,.(word|
00013fd0  73 24 28 73 69 6d 70 25  2c 6b 25 2c 30 29 29 2c  |s$(simp%,k%,0)),|
00013fe0  a3 29 3a ed 0d 07 f7 05  cd 0d 07 f8 30 e7 ac 64  |.):.........0..d|
00013ff0  6f 69 6e 67 6d 6f 76 65  25 3a f2 6d 61 6b 65 6f  |oingmove%:.makeo|
00014000  72 67 61 6e 28 61 63 74  69 76 65 77 25 2c 61 63  |rgan(activew%,ac|
00014010  74 69 76 65 69 63 6e 25  29 0d 07 f9 05 e1 0d 07  |tiveicn%).......|
00014020  fa 04 0d 07 fb 0d dd f2  61 64 64 74 65 78 74 0d  |........addtext.|
00014030  07 fc 42 21 62 6c 6b 32  25 3d 61 6e 69 6d 77 25  |..B!blk2%=animw%|
00014040  3a c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |:.."Wimp_GetWind|
00014050  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6b 32 25 3a  |owState",,blk2%:|
00014060  77 69 6e 64 70 6f 73 25  3d 62 6c 6b 32 25 21 32  |windpos%=blk2%!2|
00014070  38 0d 07 fd 23 21 62 6c  6b 32 25 3d 61 6e 69 6d  |8...#!blk2%=anim|
00014080  77 25 3a f2 63 6c 6f 73  65 77 69 6e 64 28 62 6c  |w%:.closewind(bl|
00014090  6b 32 25 29 0d 07 fe 50  21 62 6c 6b 32 25 3d 30  |k2%)...P!blk2%=0|
000140a0  3a 62 6c 6b 32 25 21 34  3d 2d 39 33 36 3a 62 6c  |:blk2%!4=-936:bl|
000140b0  6b 32 25 21 38 3d 37 38  30 3a 62 6c 6b 32 25 21  |k2%!8=780:blk2%!|
000140c0  31 32 3d 30 3a c8 99 22  57 69 6d 70 5f 53 65 74  |12=0:.."Wimp_Set|
000140d0  45 78 74 65 6e 74 22 2c  61 6e 69 6d 77 25 2c 62  |Extent",animw%,b|
000140e0  6c 6b 32 25 0d 07 ff 11  e7 ac 64 6f 69 6e 67 6d  |lk2%......doingm|
000140f0  6f 76 65 25 8c 0d 08 00  24 20 f2 6d 61 6b 65 6f  |ove%....$ .makeo|
00014100  72 67 61 6e 28 61 63 74  69 76 65 77 25 2c 61 63  |rgan(activew%,ac|
00014110  74 69 76 65 69 63 6e 25  29 0d 08 01 1f 20 e7 64  |tiveicn%).... .d|
00014120  6f 69 6e 67 63 6c 6f 73  65 72 25 3a f2 63 6c 6f  |oingcloser%:.clo|
00014130  73 65 72 62 6f 78 65 73  0d 08 02 3a 20 f2 61 64  |serboxes...: .ad|
00014140  64 6c 69 6e 65 73 28 30  29 3a f2 70 6c 6f 74 61  |dlines(0):.plota|
00014150  6e 69 6d 3a f2 61 64 64  6c 61 62 65 6c 73 3a f2  |nim:.addlabels:.|
00014160  61 64 64 77 6f 72 64 73  28 61 63 74 69 76 65 77  |addwords(activew|
00014170  25 29 0d 08 03 05 cc 0d  08 04 3c 20 f2 70 75 74  |%)........< .put|
00014180  69 63 6e 73 74 72 69 6e  67 28 61 6e 69 6d 77 25  |icnstring(animw%|
00014190  2c 35 30 2c 22 22 29 3a  f2 70 75 74 69 63 6e 73  |,50,""):.puticns|
000141a0  74 72 69 6e 67 28 61 6e  69 6d 77 25 2c 35 31 2c  |tring(animw%,51,|
000141b0  22 22 29 0d 08 05 05 cd  0d 08 06 2e 21 62 6c 6b  |"").........!blk|
000141c0  25 3d 61 6e 69 6d 77 25  3a c8 99 22 57 69 6d 70  |%=animw%:.."Wimp|
000141d0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000141e0  2c 2c 62 6c 6b 25 0d 08  07 3a e7 62 6c 6b 25 21  |,,blk%...:.blk%!|
000141f0  31 36 3c 39 33 36 20 62  6c 6b 25 21 31 36 3d 39  |16<936 blk%!16=9|
00014200  33 36 3a 62 6c 6b 25 21  38 3d 30 3a 8b 3a 62 6c  |36:blk%!8=0:.:bl|
00014210  6b 25 21 38 3d 62 6c 6b  25 21 31 36 2d 39 33 36  |k%!8=blk%!16-936|
00014220  0d 08 08 1e 62 6c 6b 25  21 32 34 3d 30 3a 62 6c  |....blk%!24=0:bl|
00014230  6b 25 21 32 38 3d 77 69  6e 64 70 6f 73 25 0d 08  |k%!28=windpos%..|
00014240  09 13 f2 6f 70 65 6e 77  69 6e 64 28 62 6c 6b 25  |...openwind(blk%|
00014250  29 0d 08 0a 05 e1 0d 08  0b 04 0d 08 0c 1e dd f2  |)...............|
00014260  61 64 64 6c 69 6e 65 73  28 66 72 6f 6d 73 61 76  |addlines(fromsav|
00014270  65 70 72 69 6e 74 25 29  0d 08 0d 2b c8 99 22 4f  |eprint%)...+.."O|
00014280  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
00014290  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
000142a0  22 2c 30 0d 08 0e 18 c8  99 22 57 69 6d 70 5f 53  |",0......"Wimp_S|
000142b0  65 74 43 6f 6c 6f 75 72  22 2c 37 0d 08 0f 15 e7  |etColour",7.....|
000142c0  ac 66 72 6f 6d 73 61 76  65 70 72 69 6e 74 25 8c  |.fromsaveprint%.|
000142d0  0d 08 10 57 20 e7 28 28  61 63 74 69 76 65 69 63  |...W .((activeic|
000142e0  6e 25 3d 34 29 80 28 61  63 74 69 76 65 77 25 3d  |n%=4).(activew%=|
000142f0  31 29 29 84 28 28 61 63  74 69 76 65 69 63 6e 25  |1)).((activeicn%|
00014300  3d 31 37 29 80 28 61 63  74 69 76 65 77 25 3e 30  |=17).(activew%>0|
00014310  29 29 3a c8 99 22 57 69  6d 70 5f 53 65 74 43 6f  |)):.."Wimp_SetCo|
00014320  6c 6f 75 72 22 2c 30 0d  08 11 b5 20 e7 28 28 61  |lour",0.... .((a|
00014330  63 74 69 76 65 69 63 6e  25 3d 36 29 80 28 61 63  |ctiveicn%=6).(ac|
00014340  74 69 76 65 77 25 3d 32  29 29 84 28 28 61 63 74  |tivew%=2)).((act|
00014350  69 76 65 69 63 6e 25 3d  31 37 29 80 28 61 63 74  |iveicn%=17).(act|
00014360  69 76 65 77 25 3d 30 29  29 84 28 28 61 63 74 69  |ivew%=0)).((acti|
00014370  76 65 69 63 6e 25 3d 31  39 29 80 28 61 63 74 69  |veicn%=19).(acti|
00014380  76 65 77 25 3d 30 29 29  84 28 28 61 63 74 69 76  |vew%=0)).((activ|
00014390  65 69 63 6e 25 3d 32 30  29 80 28 61 63 74 69 76  |eicn%=20).(activ|
000143a0  65 77 25 3d 30 29 29 84  28 28 61 63 74 69 76 65  |ew%=0)).((active|
000143b0  69 63 6e 25 3d 32 30 29  80 28 61 63 74 69 76 65  |icn%=20).(active|
000143c0  77 25 3d 32 29 29 3a c8  99 22 57 69 6d 70 5f 53  |w%=2)):.."Wimp_S|
000143d0  65 74 43 6f 6c 6f 75 72  22 2c 31 31 0d 08 12 05  |etColour",11....|
000143e0  cd 0d 08 13 30 6c 69 6e  24 3d 6c 69 6e 65 73 24  |....0lin$=lines$|
000143f0  28 73 69 6d 70 25 2c 61  63 74 69 76 65 77 25 29  |(simp%,activew%)|
00014400  3a 6e 6f 6c 69 6e 65 73  25 3d bb 28 6c 69 6e 24  |:nolines%=.(lin$|
00014410  29 0d 08 14 19 6c 69 6e  24 3d c2 6c 69 6e 24 2c  |)....lin$=.lin$,|
00014420  a9 28 6c 69 6e 24 29 2d  33 29 0d 08 15 12 e3 6b  |.(lin$)-3).....k|
00014430  25 3d 31 b8 6e 6f 6c 69  6e 65 73 25 0d 08 16 4a  |%=1.nolines%...J|
00014440  ef 32 35 2c 34 2c bb 28  c1 6c 69 6e 24 2c 31 2c  |.25,4,.(.lin$,1,|
00014450  33 29 29 3b bb 28 c1 6c  69 6e 24 2c 35 2c 33 29  |3));.(.lin$,5,3)|
00014460  29 3b 3a ef 32 35 2c 35  2c bb 28 c1 6c 69 6e 24  |);:.25,5,.(.lin$|
00014470  2c 39 2c 33 29 29 3b bb  28 c1 6c 69 6e 24 2c 31  |,9,3));.(.lin$,1|
00014480  33 2c 33 29 29 3b 0d 08  17 4e ef 32 35 2c 34 2c  |3,3));...N.25,4,|
00014490  bb 28 c1 6c 69 6e 24 2c  31 2c 33 29 29 2b 32 3b  |.(.lin$,1,3))+2;|
000144a0  bb 28 c1 6c 69 6e 24 2c  35 2c 33 29 29 3b 3a ef  |.(.lin$,5,3));:.|
000144b0  32 35 2c 35 2c bb 28 c1  6c 69 6e 24 2c 39 2c 33  |25,5,.(.lin$,9,3|
000144c0  29 29 2b 32 3b bb 28 c1  6c 69 6e 24 2c 31 33 2c  |))+2;.(.lin$,13,|
000144d0  33 29 29 3b 0d 08 18 1a  6c 69 6e 24 3d c2 6c 69  |3));....lin$=.li|
000144e0  6e 24 2c a9 28 6c 69 6e  24 29 2d 31 36 29 0d 08  |n$,.(lin$)-16)..|
000144f0  19 05 ed 0d 08 1a 26 c8  99 22 4f 53 5f 53 70 72  |......&.."OS_Spr|
00014500  69 74 65 4f 70 22 2c 26  31 33 43 2c 61 6e 69 6d  |iteOp",&13C,anim|
00014510  61 72 65 61 25 2c 30 2c  30 0d 08 1b 05 e1 0d 08  |area%,0,0.......|
00014520  1c 04 0d 08 1d 0f dd f2  61 64 64 6c 61 62 65 6c  |........addlabel|
00014530  73 0d 08 1e 46 73 74 25  3d 77 6f 72 64 73 25 28  |s...Fst%=words%(|
00014540  73 69 6d 70 25 2c 28 61  63 74 69 76 65 77 25 2a  |simp%,(activew%*|
00014550  32 29 2b 32 29 3a 65 6e  64 25 3d 77 6f 72 64 73  |2)+2):end%=words|
00014560  25 28 73 69 6d 70 25 2c  28 61 63 74 69 76 65 77  |%(simp%,(activew|
00014570  25 2a 32 29 2b 33 29 0d  08 1f 0d e7 73 74 25 3c  |%*2)+3).....st%<|
00014580  3e 2d 31 8c 0d 08 20 10  e3 6b 25 3d 73 74 25 b8  |>-1... ..k%=st%.|
00014590  65 6e 64 25 0d 08 21 5c  f2 70 75 74 69 63 6e 73  |end%..!\.puticns|
000145a0  74 72 69 6e 67 28 61 6e  69 6d 77 25 2c bb 28 77  |tring(animw%,.(w|
000145b0  6f 72 64 73 24 28 73 69  6d 70 25 2c 6b 25 2c 30  |ords$(simp%,k%,0|
000145c0  29 29 2c c2 77 6f 72 64  73 24 28 73 69 6d 70 25  |)),.words$(simp%|
000145d0  2c 6b 25 2c 30 29 2c a9  28 77 6f 72 64 73 24 28  |,k%,0),.(words$(|
000145e0  73 69 6d 70 25 2c 6b 25  2c 30 29 29 2d 33 29 29  |simp%,k%,0))-3))|
000145f0  0d 08 22 2c f2 68 69 64  65 69 63 6e 28 61 6e 69  |..",.hideicn(ani|
00014600  6d 77 25 2c bb 28 77 6f  72 64 73 24 28 73 69 6d  |mw%,.(words$(sim|
00014610  70 25 2c 6b 25 2c 30 29  29 2c a3 29 0d 08 23 05  |p%,k%,0)),.)..#.|
00014620  ed 0d 08 24 05 cd 0d 08  25 05 e1 0d 08 26 04 0d  |...$....%....&..|
00014630  08 27 12 dd f2 61 64 64  77 6f 72 64 73 28 69 25  |.'...addwords(i%|
00014640  29 0d 08 28 71 e7 69 25  3c 77 6f 72 64 73 25 28  |)..(q.i%<words%(|
00014650  73 69 6d 70 25 2c 30 29  3a f2 70 75 74 69 63 6e  |simp%,0):.puticn|
00014660  73 74 72 69 6e 67 28 61  6e 69 6d 77 25 2c 35 30  |string(animw%,50|
00014670  2c 77 6f 72 64 73 24 28  73 69 6d 70 25 2c 69 25  |,words$(simp%,i%|
00014680  2c 30 29 29 3a f2 70 75  74 69 63 6e 73 74 72 69  |,0)):.puticnstri|
00014690  6e 67 28 61 6e 69 6d 77  25 2c 35 31 2c 77 6f 72  |ng(animw%,51,wor|
000146a0  64 73 24 28 73 69 6d 70  25 2c 69 25 2c 31 29 29  |ds$(simp%,i%,1))|
000146b0  3a e1 0d 08 29 46 73 74  25 3d 77 6f 72 64 73 25  |:...)Fst%=words%|
000146c0  28 73 69 6d 70 25 2c 28  61 63 74 69 76 65 77 25  |(simp%,(activew%|
000146d0  2a 32 29 2b 32 29 3a 65  6e 64 25 3d 77 6f 72 64  |*2)+2):end%=word|
000146e0  73 25 28 73 69 6d 70 25  2c 28 61 63 74 69 76 65  |s%(simp%,(active|
000146f0  77 25 2a 32 29 2b 33 29  0d 08 2a 0d e7 73 74 25  |w%*2)+3)..*..st%|
00014700  3c 3e 2d 31 8c 0d 08 2b  10 e3 6b 25 3d 73 74 25  |<>-1...+..k%=st%|
00014710  b8 65 6e 64 25 0d 08 2c  de f4 49 46 56 41 4c 28  |.end%..,..IFVAL(|
00014720  77 6f 72 64 73 24 28 61  63 74 69 76 65 69 63 6e  |words$(activeicn|
00014730  25 2c 73 69 6d 70 25 2c  6b 25 2c 30 29 29 3d 69  |%,simp%,k%,0))=i|
00014740  25 3a 50 52 4f 43 70 75  74 69 63 6e 73 74 72 69  |%:PROCputicnstri|
00014750  6e 67 28 61 6e 69 6d 77  25 2c 35 31 2c 77 6f 72  |ng(animw%,51,wor|
00014760  64 73 24 28 61 63 74 69  76 65 69 63 6e 25 2c 73  |ds$(activeicn%,s|
00014770  69 6d 70 25 2c 6b 25 2c  31 29 29 3a 50 52 4f 43  |imp%,k%,1)):PROC|
00014780  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
00014790  6d 77 25 2c 35 30 2c 22  49 6e 66 6f 72 6d 61 74  |mw%,50,"Informat|
000147a0  69 6f 6e 20 2d 20 22 2b  52 49 47 48 54 24 28 77  |ion - "+RIGHT$(w|
000147b0  6f 72 64 73 24 28 61 63  74 69 76 65 69 63 6e 25  |ords$(activeicn%|
000147c0  2c 73 69 6d 70 25 2c 6b  25 2c 30 29 2c 4c 45 4e  |,simp%,k%,0),LEN|
000147d0  28 77 6f 72 64 73 24 28  61 63 74 69 76 65 69 63  |(words$(activeic|
000147e0  6e 25 2c 73 69 6d 70 25  2c 6b 25 2c 30 29 29 2d  |n%,simp%,k%,0))-|
000147f0  33 29 29 0d 08 2d 36 74  69 74 6c 24 3d c2 77 6f  |3))..-6titl$=.wo|
00014800  72 64 73 24 28 73 69 6d  70 25 2c 6b 25 2c 30 29  |rds$(simp%,k%,0)|
00014810  2c a9 28 77 6f 72 64 73  24 28 73 69 6d 70 25 2c  |,.(words$(simp%,|
00014820  6b 25 2c 30 29 29 2d 33  29 0d 08 2e 3c e7 28 97  |k%,0))-3)...<.(.|
00014830  28 74 69 74 6c 24 29 3e  26 36 30 29 80 28 97 28  |(titl$)>&60).(.(|
00014840  74 69 74 6c 24 29 3c 26  37 42 29 3a c0 74 69 74  |titl$)<&7B):.tit|
00014850  6c 24 2c 31 29 3d bd 28  97 28 74 69 74 6c 24 29  |l$,1)=.(.(titl$)|
00014860  2d 26 32 30 29 0d 08 2f  6c e7 28 97 28 74 69 74  |-&20)../l.(.(tit|
00014870  6c 24 29 3e 26 33 30 29  80 28 97 28 74 69 74 6c  |l$)>&30).(.(titl|
00014880  24 29 3c 26 33 41 29 80  28 97 28 c1 74 69 74 6c  |$)<&3A).(.(.titl|
00014890  24 2c 34 2c 31 29 29 3e  26 36 30 29 80 28 97 28  |$,4,1))>&60).(.(|
000148a0  c1 74 69 74 6c 24 2c 34  2c 31 29 29 3c 26 37 42  |.titl$,4,1))<&7B|
000148b0  29 3a c1 74 69 74 6c 24  2c 34 29 3d bd 28 97 28  |):.titl$,4)=.(.(|
000148c0  c1 74 69 74 6c 24 2c 34  2c 31 29 29 2d 26 32 30  |.titl$,4,1))-&20|
000148d0  29 0d 08 30 68 e7 bb 28  77 6f 72 64 73 24 28 73  |)..0h..(words$(s|
000148e0  69 6d 70 25 2c 6b 25 2c  30 29 29 3d 69 25 3a f2  |imp%,k%,0))=i%:.|
000148f0  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
00014900  6d 77 25 2c 35 31 2c 77  6f 72 64 73 24 28 73 69  |mw%,51,words$(si|
00014910  6d 70 25 2c 6b 25 2c 31  29 29 3a f2 70 75 74 69  |mp%,k%,1)):.puti|
00014920  63 6e 73 74 72 69 6e 67  28 61 6e 69 6d 77 25 2c  |cnstring(animw%,|
00014930  35 30 2c 74 69 74 6c 24  29 0d 08 31 05 ed 0d 08  |50,titl$)..1....|
00014940  32 05 cd 0d 08 33 05 e1  0d 08 34 04 0d 08 35 10  |2....3....4...5.|
00014950  dd f2 77 69 6e 64 6f 77  6c 65 76 31 0d 08 36 1b  |..windowlev1..6.|
00014960  e7 64 6f 69 6e 67 6d 6f  76 65 25 20 f2 61 6e 69  |.doingmove% .ani|
00014970  6d 61 74 65 65 6e 64 0d  08 37 1c e7 a4 69 73 73  |mateend..7...iss|
00014980  65 6c 65 63 74 65 64 28  61 6e 69 6d 77 25 2c 31  |elected(animw%,1|
00014990  29 20 8c 0d 08 38 0f 20  61 63 74 69 76 65 77 25  |) ...8. activew%|
000149a0  3d 31 0d 08 39 60 20 e7  20 a4 67 65 74 69 63 6e  |=1..9` . .geticn|
000149b0  73 74 72 69 6e 67 28 61  6e 69 6d 77 25 2c 31 29  |string(animw%,1)|
000149c0  3d 22 63 6c 6f 73 65 72  22 3a 64 6f 69 6e 67 63  |="closer":doingc|
000149d0  6c 6f 73 65 72 25 3d b9  3a 66 69 72 73 74 63 6c  |loser%=.:firstcl|
000149e0  6f 73 65 72 25 3d b9 3a  f2 63 6c 6f 73 65 72 3a  |oser%=.:.closer:|
000149f0  e1 3a 8b 3a 64 6f 69 6e  67 63 6c 6f 73 65 72 25  |.:.:doingcloser%|
00014a00  3d a3 0d 08 3a 05 cc 0d  08 3b 35 20 61 63 74 69  |=...:....;5 acti|
00014a10  76 65 77 25 3d 30 3a f2  73 65 6c 65 63 74 69 63  |vew%=0:.selectic|
00014a20  6e 28 61 6e 69 6d 77 25  2c 32 2c a3 29 3a 64 6f  |n(animw%,2,.):do|
00014a30  69 6e 67 63 6c 6f 73 65  72 25 3d a3 0d 08 3c 05  |ingcloser%=...<.|
00014a40  cd 0d 08 3d 14 f2 63 68  61 6e 67 65 77 69 6e 64  |...=..changewind|
00014a50  6f 77 6c 65 76 0d 08 3e  05 e1 0d 08 3f 04 0d 08  |owlev..>....?...|
00014a60  40 10 dd f2 77 69 6e 64  6f 77 6c 65 76 32 0d 08  |@...windowlev2..|
00014a70  41 1b e7 64 6f 69 6e 67  6d 6f 76 65 25 20 f2 61  |A..doingmove% .a|
00014a80  6e 69 6d 61 74 65 65 6e  64 0d 08 42 1c e7 a4 69  |nimateend..B...i|
00014a90  73 73 65 6c 65 63 74 65  64 28 61 6e 69 6d 77 25  |sselected(animw%|
00014aa0  2c 32 29 20 8c 0d 08 43  0f 20 61 63 74 69 76 65  |,2) ...C. active|
00014ab0  77 25 3d 32 0d 08 44 60  20 e7 20 a4 67 65 74 69  |w%=2..D` . .geti|
00014ac0  63 6e 73 74 72 69 6e 67  28 61 6e 69 6d 77 25 2c  |cnstring(animw%,|
00014ad0  32 29 3d 22 63 6c 6f 73  65 72 22 3a 64 6f 69 6e  |2)="closer":doin|
00014ae0  67 63 6c 6f 73 65 72 25  3d b9 3a 66 69 72 73 74  |gcloser%=.:first|
00014af0  63 6c 6f 73 65 72 25 3d  b9 3a f2 63 6c 6f 73 65  |closer%=.:.close|
00014b00  72 3a e1 3a 8b 3a 64 6f  69 6e 67 63 6c 6f 73 65  |r:.:.:doingclose|
00014b10  72 25 3d a3 0d 08 45 05  cc 0d 08 46 13 20 64 6f  |r%=...E....F. do|
00014b20  69 6e 67 63 6c 6f 73 65  72 25 3d a3 0d 08 47 52  |ingcloser%=...GR|
00014b30  20 e7 28 61 63 74 69 76  65 69 63 6e 25 3d 31 29  | .(activeicn%=1)|
00014b40  84 28 61 63 74 69 76 65  69 63 6e 25 3d 34 29 3a  |.(activeicn%=4):|
00014b50  61 63 74 69 76 65 77 25  3d 30 3a f2 73 65 6c 65  |activew%=0:.sele|
00014b60  63 74 69 63 6e 28 61 6e  69 6d 77 25 2c 31 2c a3  |cticn(animw%,1,.|
00014b70  29 3a 8b 3a 61 63 74 69  76 65 77 25 3d 31 0d 08  |):.:activew%=1..|
00014b80  48 05 cd 0d 08 49 14 f2  63 68 61 6e 67 65 77 69  |H....I..changewi|
00014b90  6e 64 6f 77 6c 65 76 0d  08 4a 05 e1 0d 08 4b 04  |ndowlev..J....K.|
00014ba0  0d 08 4c 15 dd f2 63 68  61 6e 67 65 77 69 6e 64  |..L...changewind|
00014bb0  6f 77 6c 65 76 0d 08 4d  26 f2 73 68 6f 77 68 69  |owlev..M&.showhi|
00014bc0  64 65 62 75 74 73 28 61  63 74 69 76 65 77 25 2c  |debuts(activew%,|
00014bd0  61 63 74 69 76 65 69 63  6e 25 29 0d 08 4e 97 e7  |activeicn%)..N..|
00014be0  ac a4 69 73 73 65 6c 65  63 74 65 64 28 61 6e 69  |..isselected(ani|
00014bf0  6d 77 25 2c 30 29 20 f2  73 68 6f 77 61 6e 69 6d  |mw%,0) .showanim|
00014c00  28 61 63 74 69 76 65 77  25 2c 61 63 74 69 76 65  |(activew%,active|
00014c10  69 63 6e 25 29 3a 8b 3a  f2 72 65 6d 6f 76 65 6c  |icn%):.:.removel|
00014c20  61 62 65 6c 73 3a f2 61  64 64 6c 69 6e 65 73 28  |abels:.addlines(|
00014c30  30 29 3a f2 70 6c 6f 74  61 6e 69 6d 3a f2 61 64  |0):.plotanim:.ad|
00014c40  64 6c 61 62 65 6c 73 3a  f2 61 64 64 77 6f 72 64  |dlabels:.addword|
00014c50  73 28 61 63 74 69 76 65  77 25 29 3a 61 63 74 69  |s(activew%):acti|
00014c60  76 65 74 78 74 69 63 6e  25 3d 61 63 74 69 76 65  |vetxticn%=active|
00014c70  77 25 0d 08 4f 05 e1 0d  08 50 04 0d 08 51 0c dd  |w%..O....P...Q..|
00014c80  f2 63 6c 6f 73 65 72 0d  08 52 41 e7 66 69 72 73  |.closer..RA.firs|
00014c90  74 63 6c 6f 73 65 72 25  3a 63 6c 6f 73 25 3d 30  |tcloser%:clos%=0|
00014ca0  3a 66 69 72 73 74 63 6c  6f 73 65 72 25 3d a3 3a  |:firstcloser%=.:|
00014cb0  6c 61 73 74 74 69 6d 65  25 3d 91 3a f2 63 6c 6f  |lasttime%=.:.clo|
00014cc0  73 65 72 73 65 74 75 70  0d 08 53 0d e7 63 6c 6f  |sersetup..S..clo|
00014cd0  73 25 3d 31 8c 0d 08 54  17 20 e7 91 3c 6c 61 73  |s%=1...T. ..<las|
00014ce0  74 74 69 6d 65 25 2b 31  30 30 3a e1 0d 08 55 05  |ttime%+100:...U.|
00014cf0  cc 0d 08 56 16 20 e7 91  3c 6c 61 73 74 74 69 6d  |...V. ..<lasttim|
00014d00  65 25 2b 31 30 3a e1 0d  08 57 05 cd 0d 08 58 17  |e%+10:...W....X.|
00014d10  e7 63 6c 6f 73 25 3d 30  3a f2 63 6c 6f 73 65 72  |.clos%=0:.closer|
00014d20  62 6f 78 0d 08 59 19 e7  63 6c 6f 73 25 3e 30 3a  |box..Y..clos%>0:|
00014d30  f2 63 6c 6f 73 65 72 62  6f 78 65 73 0d 08 5a 21  |.closerboxes..Z!|
00014d40  e7 63 6c 6f 73 25 3d 30  3a f2 70 6c 6f 74 61 6e  |.clos%=0:.plotan|
00014d50  69 6d 63 6c 6f 73 65 72  66 69 72 73 74 0d 08 5b  |imcloserfirst..[|
00014d60  32 e7 28 63 6c 6f 73 25  3e 30 29 80 28 63 6c 6f  |2.(clos%>0).(clo|
00014d70  73 25 3c 63 6c 6e 75 6d  62 25 29 3a f2 70 6c 6f  |s%<clnumb%):.plo|
00014d80  74 61 6e 69 6d 63 6c 6f  73 65 72 72 65 73 74 0d  |tanimcloserrest.|
00014d90  08 5c 49 e7 63 6c 6f 73  25 3d 63 6c 6e 75 6d 62  |.\I.clos%=clnumb|
00014da0  25 3a 64 6f 69 6e 67 63  6c 6f 73 65 72 25 3d a3  |%:doingcloser%=.|
00014db0  3a f2 63 68 61 6e 67 65  77 69 6e 64 6f 77 6c 65  |:.changewindowle|
00014dc0  76 3a 8b 3a 6c 61 73 74  74 69 6d 65 25 3d 91 3a  |v:.:lasttime%=.:|
00014dd0  63 6c 6f 73 25 2b 3d 31  0d 08 5d 58 f4 49 46 63  |clos%+=1..]X.IFc|
00014de0  6c 6f 73 25 3d 63 6c 6e  75 6d 62 25 3a 64 6f 69  |los%=clnumb%:doi|
00014df0  6e 67 63 6c 6f 73 65 72  25 3d 46 41 4c 53 45 3a  |ngcloser%=FALSE:|
00014e00  50 52 4f 43 63 68 61 6e  67 65 77 69 6e 64 6f 77  |PROCchangewindow|
00014e10  6c 65 76 3a 45 4c 53 45  3a 6c 61 73 74 74 69 6d  |lev:ELSE:lasttim|
00014e20  65 25 3d 54 49 4d 45 3a  63 6c 6f 73 25 2b 3d 31  |e%=TIME:clos%+=1|
00014e30  0d 08 5e 05 e1 0d 08 5f  04 0d 08 60 0f dd f2 63  |..^...._...`...c|
00014e40  6c 6f 73 65 72 62 6f 78  0d 08 61 2b c8 99 22 4f  |loserbox..a+.."O|
00014e50  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
00014e60  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
00014e70  22 2c 30 0d 08 62 3f ef  31 38 2c 30 2c 37 3a ef  |",0..b?.18,0,7:.|
00014e80  20 32 35 2c 34 2c 63 6c  6c 65 66 74 25 3b 63 6c  | 25,4,clleft%;cl|
00014e90  6c 6f 77 25 3b 3a ef 20  32 35 2c 31 30 31 2c 63  |low%;:. 25,101,c|
00014ea0  6c 72 69 67 68 74 25 3b  63 6c 6c 6f 77 25 2b 31  |lright%;cllow%+1|
00014eb0  30 3b 0d 08 63 5a ef 20  32 35 2c 31 30 31 2c 63  |0;..cZ. 25,101,c|
00014ec0  6c 72 69 67 68 74 25 2d  31 30 3b 63 6c 68 69 67  |lright%-10;clhig|
00014ed0  68 25 3b 3a ef 20 32 35  2c 31 30 31 2c 63 6c 6c  |h%;:. 25,101,cll|
00014ee0  65 66 74 25 3b 63 6c 68  69 67 68 25 2d 31 30 3b  |eft%;clhigh%-10;|
00014ef0  3a ef 20 32 35 2c 31 30  31 2c 63 6c 6c 65 66 74  |:. 25,101,clleft|
00014f00  25 2b 31 30 3b 63 6c 6c  6f 77 25 3b 0d 08 64 44  |%+10;cllow%;..dD|
00014f10  ef 31 38 2c 30 2c 39 3a  ef 20 32 35 2c 34 2c 63  |.18,0,9:. 25,4,c|
00014f20  6c 6c 65 66 74 25 2b 34  3b 63 6c 6c 6f 77 25 2b  |lleft%+4;cllow%+|
00014f30  34 3b 3a ef 20 32 35 2c  31 30 31 2c 63 6c 72 69  |4;:. 25,101,clri|
00014f40  67 68 74 25 2d 34 3b 63  6c 6c 6f 77 25 2b 36 3b  |ght%-4;cllow%+6;|
00014f50  0d 08 65 5d ef 20 32 35  2c 31 30 31 2c 63 6c 72  |..e]. 25,101,clr|
00014f60  69 67 68 74 25 2d 36 3b  63 6c 68 69 67 68 25 2d  |ight%-6;clhigh%-|
00014f70  34 3b 3a ef 20 32 35 2c  31 30 31 2c 63 6c 6c 65  |4;:. 25,101,clle|
00014f80  66 74 25 2b 34 3b 63 6c  68 69 67 68 25 2d 36 3b  |ft%+4;clhigh%-6;|
00014f90  3a ef 20 32 35 2c 31 30  31 2c 63 6c 6c 65 66 74  |:. 25,101,clleft|
00014fa0  25 2b 36 3b 63 6c 6c 6f  77 25 2b 34 3b 0d 08 66  |%+6;cllow%+4;..f|
00014fb0  26 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |&.."OS_SpriteOp"|
00014fc0  2c 26 31 33 43 2c 61 6e  69 6d 61 72 65 61 25 2c  |,&13C,animarea%,|
00014fd0  30 2c 30 0d 08 67 7a f4  49 46 61 63 74 69 76 65  |0,0..gz.IFactive|
00014fe0  69 63 6e 25 3d 31 3a 50  52 4f 43 64 75 6c 6c 61  |icn%=1:PROCdulla|
00014ff0  6e 69 6d 28 31 32 2c 63  6c 6c 65 66 74 25 2c 63  |nim(12,clleft%,c|
00015000  6c 6c 6f 77 25 2c 63 6c  72 69 67 68 74 25 2c 63  |llow%,clright%,c|
00015010  6c 68 69 67 68 25 29 3a  45 4c 53 45 3a 50 52 4f  |lhigh%):ELSE:PRO|
00015020  43 64 75 6c 6c 61 6e 69  6d 28 31 35 2c 63 6c 6c  |Cdullanim(15,cll|
00015030  65 66 74 25 2c 63 6c 6c  6f 77 25 2c 63 6c 72 69  |eft%,cllow%,clri|
00015040  67 68 74 25 2c 63 6c 68  69 67 68 25 29 0d 08 68  |ght%,clhigh%)..h|
00015050  05 e1 0d 08 69 04 0d 08  6a 11 dd f2 63 6c 6f 73  |....i...j...clos|
00015060  65 72 62 6f 78 65 73 0d  08 6b 2b c8 99 22 4f 53  |erboxes..k+.."OS|
00015070  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 33 43 2c  |_SpriteOp",&13C,|
00015080  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
00015090  2c 30 0d 08 6c 34 f4 56  44 55 31 38 2c 31 32 38  |,0..l4.VDU18,128|
000150a0  2c 30 3a 56 44 55 32 33  2c 31 32 2c 30 2c 39 2c  |,0:VDU23,12,0,9,|
000150b0  39 2c 30 2c 30 2c 39 2c  39 2c 30 3a 56 44 55 31  |9,0,0,9,9,0:VDU1|
000150c0  38 2c 32 34 2c 30 0d 08  6d 0b ef 31 38 2c 30 2c  |8,24,0..m..18,0,|
000150d0  39 0d 08 6e 6c ef 20 32  35 2c 34 2c 63 6c 6c 65  |9..nl. 25,4,clle|
000150e0  66 74 25 2d 28 63 6c 6f  73 25 2a 63 6c 6c 65 25  |ft%-(clos%*clle%|
000150f0  29 3b 63 6c 6c 6f 77 25  2d 28 63 6c 6f 73 25 2a  |);cllow%-(clos%*|
00015100  63 6c 6c 6f 25 29 3b 3a  ef 20 32 35 2c 31 30 31  |cllo%);:. 25,101|
00015110  2c 63 6c 72 69 67 68 74  25 2b 28 63 6c 6f 73 25  |,clright%+(clos%|
00015120  2a 63 6c 72 69 25 29 3b  63 6c 6c 6f 77 25 2d 28  |*clri%);cllow%-(|
00015130  63 6c 6f 73 25 2a 63 6c  6c 6f 25 29 3b 0d 08 6f  |clos%*cllo%);..o|
00015140  72 ef 20 32 35 2c 31 30  31 2c 63 6c 72 69 67 68  |r. 25,101,clrigh|
00015150  74 25 2b 28 63 6c 6f 73  25 2a 63 6c 72 69 25 29  |t%+(clos%*clri%)|
00015160  2d 32 3b 63 6c 68 69 67  68 25 2b 28 63 6c 6f 73  |-2;clhigh%+(clos|
00015170  25 2a 63 6c 68 69 25 29  3b 3a ef 20 32 35 2c 31  |%*clhi%);:. 25,1|
00015180  30 31 2c 63 6c 6c 65 66  74 25 2d 28 63 6c 6f 73  |01,clleft%-(clos|
00015190  25 2a 63 6c 6c 65 25 29  3b 63 6c 68 69 67 68 25  |%*clle%);clhigh%|
000151a0  2b 28 63 6c 6f 73 25 2a  63 6c 68 69 25 29 3b 0d  |+(clos%*clhi%);.|
000151b0  08 70 3a ef 20 32 35 2c  31 30 31 2c 63 6c 6c 65  |.p:. 25,101,clle|
000151c0  66 74 25 2d 28 63 6c 6f  73 25 2a 63 6c 6c 65 25  |ft%-(clos%*clle%|
000151d0  29 2b 32 3b 63 6c 6c 6f  77 25 2d 28 63 6c 6f 73  |)+2;cllow%-(clos|
000151e0  25 2a 63 6c 6c 6f 25 29  3b 0d 08 71 26 c8 99 22  |%*cllo%);..q&.."|
000151f0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00015200  43 2c 61 6e 69 6d 61 72  65 61 25 2c 30 2c 30 0d  |C,animarea%,0,0.|
00015210  08 72 7a f4 49 46 61 63  74 69 76 65 69 63 6e 25  |.rz.IFactiveicn%|
00015220  3d 31 3a 50 52 4f 43 64  75 6c 6c 61 6e 69 6d 28  |=1:PROCdullanim(|
00015230  31 32 2c 63 6c 6c 65 66  74 25 2c 63 6c 6c 6f 77  |12,clleft%,cllow|
00015240  25 2c 63 6c 72 69 67 68  74 25 2c 63 6c 68 69 67  |%,clright%,clhig|
00015250  68 25 29 3a 45 4c 53 45  3a 50 52 4f 43 64 75 6c  |h%):ELSE:PROCdul|
00015260  6c 61 6e 69 6d 28 31 35  2c 63 6c 6c 65 66 74 25  |lanim(15,clleft%|
00015270  2c 63 6c 6c 6f 77 25 2c  63 6c 72 69 67 68 74 25  |,cllow%,clright%|
00015280  2c 63 6c 68 69 67 68 25  29 0d 08 73 05 e1 0d 08  |,clhigh%)..s....|
00015290  74 04 0d 08 75 11 dd f2  63 6c 6f 73 65 72 73 65  |t...u...closerse|
000152a0  74 75 70 0d 08 76 27 63  6c 6c 65 66 74 25 3d 63  |tup..v'clleft%=c|
000152b0  6c 6f 73 65 72 63 6f 6f  72 64 73 25 28 61 63 74  |losercoords%(act|
000152c0  69 76 65 69 63 6e 25 2c  30 29 0d 08 77 26 63 6c  |iveicn%,0)..w&cl|
000152d0  6c 6f 77 25 3d 63 6c 6f  73 65 72 63 6f 6f 72 64  |low%=closercoord|
000152e0  73 25 28 61 63 74 69 76  65 69 63 6e 25 2c 31 29  |s%(activeicn%,1)|
000152f0  0d 08 78 28 63 6c 72 69  67 68 74 25 3d 63 6c 6f  |..x(clright%=clo|
00015300  73 65 72 63 6f 6f 72 64  73 25 28 61 63 74 69 76  |sercoords%(activ|
00015310  65 69 63 6e 25 2c 32 29  0d 08 79 27 63 6c 68 69  |eicn%,2)..y'clhi|
00015320  67 68 25 3d 63 6c 6f 73  65 72 63 6f 6f 72 64 73  |gh%=closercoords|
00015330  25 28 61 63 74 69 76 65  69 63 6e 25 2c 33 29 0d  |%(activeicn%,3).|
00015340  08 7a 27 63 6c 6e 75 6d  62 25 3d 63 6c 6f 73 65  |.z'clnumb%=close|
00015350  72 63 6f 6f 72 64 73 25  28 61 63 74 69 76 65 69  |rcoords%(activei|
00015360  63 6e 25 2c 34 29 0d 08  7b 1d 63 6c 6c 65 25 3d  |cn%,4)..{.clle%=|
00015370  28 63 6c 6c 65 66 74 25  2d 38 29 2f 63 6c 6e 75  |(clleft%-8)/clnu|
00015380  6d 62 25 0d 08 7c 1c 63  6c 6c 6f 25 3d 28 63 6c  |mb%..|.cllo%=(cl|
00015390  6c 6f 77 25 2d 38 29 2f  63 6c 6e 75 6d 62 25 0d  |low%-8)/clnumb%.|
000153a0  08 7d 20 63 6c 72 69 25  3d 28 37 36 30 2d 63 6c  |.} clri%=(760-cl|
000153b0  72 69 67 68 74 25 29 2f  63 6c 6e 75 6d 62 25 0d  |right%)/clnumb%.|
000153c0  08 7e 1f 63 6c 68 69 25  3d 28 36 30 38 2d 63 6c  |.~.clhi%=(608-cl|
000153d0  68 69 67 68 25 29 2f 63  6c 6e 75 6d 62 25 0d 08  |high%)/clnumb%..|
000153e0  7f 05 e1 0d 08 80 04 0d  08 81 12 dd f2 70 6c 6f  |.............plo|
000153f0  74 62 6f 64 79 6f 72 67  73 0d 08 82 10 f2 63 6c  |tbodyorgs.....cl|
00015400  5f 62 6f 64 79 28 31 35  29 0d 08 83 4b e7 a4 69  |_body(15)...K..i|
00015410  73 73 65 6c 65 63 74 65  64 28 6f 76 65 72 77 25  |sselected(overw%|
00015420  2c 38 29 84 a4 69 73 73  65 6c 65 63 74 65 64 28  |,8)..isselected(|
00015430  6f 76 65 72 77 25 2c 32  35 29 3a 73 74 61 72 74  |overw%,25):start|
00015440  73 70 25 3d 34 36 3a 65  6e 64 73 70 25 3d 6d 61  |sp%=46:endsp%=ma|
00015450  78 73 70 25 0d 08 84 67  e7 28 ac a4 69 73 73 65  |xsp%...g.(..isse|
00015460  6c 65 63 74 65 64 28 6f  76 65 72 77 25 2c 38 29  |lected(overw%,8)|
00015470  29 80 28 ac a4 69 73 73  65 6c 65 63 74 65 64 28  |).(..isselected(|
00015480  6f 76 65 72 77 25 2c 32  35 29 29 80 a4 69 73 73  |overw%,25))..iss|
00015490  65 6c 65 63 74 65 64 28  6f 76 65 72 77 25 2c 35  |elected(overw%,5|
000154a0  29 3a 73 74 61 72 74 73  70 25 3d 34 30 3a 65 6e  |):startsp%=40:en|
000154b0  64 73 70 25 3d 6d 61 78  73 70 25 0d 08 85 70 e7  |dsp%=maxsp%...p.|
000154c0  ac a4 69 73 73 65 6c 65  63 74 65 64 28 6f 76 65  |..isselected(ove|
000154d0  72 77 25 2c 35 29 80 ac  a4 69 73 73 65 6c 65 63  |rw%,5)...isselec|
000154e0  74 65 64 28 6f 76 65 72  77 25 2c 38 29 80 ac a4  |ted(overw%,8)...|
000154f0  69 73 73 65 6c 65 63 74  65 64 28 6f 76 65 72 77  |isselected(overw|
00015500  25 2c 32 35 29 3a f2 6f  75 74 6c 69 6e 65 62 6f  |%,25):.outlinebo|
00015510  64 79 3a 73 74 61 72 74  73 70 25 3d 30 3a 65 6e  |dy:startsp%=0:en|
00015520  64 73 70 25 3d 6d 61 78  73 70 25 0d 08 86 17 e3  |dsp%=maxsp%.....|
00015530  6a 25 3d 73 74 61 72 74  73 70 25 b8 65 6e 64 73  |j%=startsp%.ends|
00015540  70 25 0d 08 87 6b 20 e7  62 6f 64 79 73 70 25 28  |p%...k .bodysp%(|
00015550  6a 25 2c 30 29 3a f2 61  64 64 5f 73 70 28 73 70  |j%,0):.add_sp(sp|
00015560  61 72 65 61 25 2c 62 6f  64 79 73 70 24 28 6a 25  |area%,bodysp$(j%|
00015570  29 2c 62 6f 64 79 61 72  65 61 25 2c 22 62 6f 64  |),bodyarea%,"bod|
00015580  79 22 2c 62 6f 64 79 73  70 25 28 6a 25 2c 31 29  |y",bodysp%(j%,1)|
00015590  2c 62 6f 64 79 73 70 25  28 6a 25 2c 32 29 2c 62  |,bodysp%(j%,2),b|
000155a0  6f 64 79 73 70 25 28 6a  25 2c 33 29 29 0d 08 88  |odysp%(j%,3))...|
000155b0  05 ed 0d 08 89 2e 21 62  6c 6b 25 3d 62 6f 64 79  |......!blk%=body|
000155c0  77 25 3a c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |w%:.."Wimp_GetWi|
000155d0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6b 25  |ndowState",,blk%|
000155e0  0d 08 8a 3e 73 70 78 25  3d 62 6c 6b 25 21 34 2d  |...>spx%=blk%!4-|
000155f0  62 6c 6b 25 21 32 30 3a  73 70 79 25 3d 28 62 6c  |blk%!20:spy%=(bl|
00015600  6b 25 21 31 36 2d 62 6c  6b 25 21 32 34 29 2d 28  |k%!16-blk%!24)-(|
00015610  73 70 73 63 61 6c 65 25  2a 31 34 36 30 29 0d 08  |spscale%*1460)..|
00015620  8b 50 21 62 6c 6b 25 3d  62 6f 64 79 77 25 3a 62  |.P!blk%=bodyw%:b|
00015630  6c 6b 25 21 34 3d 30 3a  62 6c 6b 25 21 38 3d 2d  |lk%!4=0:blk%!8=-|
00015640  28 31 34 36 30 2a 73 70  73 63 61 6c 65 25 29 3a  |(1460*spscale%):|
00015650  62 6c 6b 25 21 31 32 3d  36 32 34 2a 73 70 73 63  |blk%!12=624*spsc|
00015660  61 6c 65 25 3a 62 6c 6b  25 21 31 36 3d 30 0d 08  |ale%:blk%!16=0..|
00015670  8c 28 c8 99 20 22 57 69  6d 70 5f 55 70 64 61 74  |.(.. "Wimp_Updat|
00015680  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6b 25 20 b8  |eWindow",,blk% .|
00015690  20 6d 6f 72 65 25 0d 08  8d 0c c8 95 20 6d 6f 72  | more%...... mor|
000156a0  65 25 0d 08 8e 4a c8 99  20 22 4f 53 5f 53 70 72  |e%...J.. "OS_Spr|
000156b0  69 74 65 4f 70 22 2c 26  31 33 34 2c 62 6f 64 79  |iteOp",&134,body|
000156c0  61 72 65 61 25 2c 22 62  6f 64 79 22 2c 73 70 78  |area%,"body",spx|
000156d0  25 2c 73 70 79 25 2c 30  2c 62 6f 64 73 63 61 6c  |%,spy%,0,bodscal|
000156e0  65 25 2c 63 6f 6c 74 72  61 6e 73 25 0d 08 8f 28  |e%,coltrans%...(|
000156f0  c8 99 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |.. "Wimp_GetRect|
00015700  61 6e 67 6c 65 22 2c 2c  62 6c 6b 25 20 b8 20 6d  |angle",,blk% . m|
00015710  6f 72 65 25 0d 08 90 05  ce 0d 08 91 05 e1 0d 08  |ore%............|
00015720  92 04 0d 08 93 12 dd f2  70 6c 6f 74 62 6f 64 79  |........plotbody|
00015730  73 79 73 74 0d 08 94 1d  f2 63 6c 5f 62 6f 64 79  |syst.....cl_body|
00015740  28 31 35 29 3a f2 6f 75  74 6c 69 6e 65 62 6f 64  |(15):.outlinebod|
00015750  79 0d 08 95 10 e3 6a 25  3d 30 b8 6d 61 78 73 70  |y.....j%=0.maxsp|
00015760  25 0d 08 96 6d 20 e7 73  79 73 74 62 6f 64 79 73  |%...m .systbodys|
00015770  70 25 28 6a 25 29 3a f2  61 64 64 5f 73 70 28 73  |p%(j%):.add_sp(s|
00015780  70 61 72 65 61 25 2c 62  6f 64 79 73 70 24 28 6a  |parea%,bodysp$(j|
00015790  25 29 2c 62 6f 64 79 61  72 65 61 25 2c 22 62 6f  |%),bodyarea%,"bo|
000157a0  64 79 22 2c 62 6f 64 79  73 70 25 28 6a 25 2c 31  |dy",bodysp%(j%,1|
000157b0  29 2c 62 6f 64 79 73 70  25 28 6a 25 2c 32 29 2c  |),bodysp%(j%,2),|
000157c0  62 6f 64 79 73 70 25 28  6a 25 2c 33 29 29 0d 08  |bodysp%(j%,3))..|
000157d0  97 05 ed 0d 08 98 25 e7  28 73 70 73 63 61 6c 65  |......%.(spscale|
000157e0  25 3d 31 29 80 28 a4 6e  6f 5f 73 79 73 74 65 6d  |%=1).(.no_system|
000157f0  73 5f 6f 6e 3d 31 29 8c  0d 08 99 3d e7 28 a4 73  |s_on=1)....=.(.s|
00015800  79 73 74 65 6d 5f 6f 6e  3d 37 29 80 28 a4 69 73  |ystem_on=7).(.is|
00015810  73 65 6c 65 63 74 65 64  28 73 79 73 74 77 25 2c  |selected(systw%,|
00015820  31 29 29 3a f2 61 64 64  62 6f 64 79 6c 61 62 65  |1)):.addbodylabe|
00015830  6c 73 28 38 29 0d 08 9a  3d e7 28 a4 73 79 73 74  |ls(8)...=.(.syst|
00015840  65 6d 5f 6f 6e 3d 36 29  80 28 a4 69 73 73 65 6c  |em_on=6).(.issel|
00015850  65 63 74 65 64 28 73 79  73 74 77 25 2c 31 29 29  |ected(systw%,1))|
00015860  3a f2 61 64 64 62 6f 64  79 6c 61 62 65 6c 73 28  |:.addbodylabels(|
00015870  39 29 0d 08 9b 46 e7 28  a4 73 79 73 74 65 6d 5f  |9)...F.(.system_|
00015880  6f 6e 3c 36 29 84 28 a4  69 73 73 65 6c 65 63 74  |on<6).(.isselect|
00015890  65 64 28 73 79 73 74 77  25 2c 30 29 29 3a f2 61  |ed(systw%,0)):.a|
000158a0  64 64 62 6f 64 79 6c 61  62 65 6c 73 28 a4 73 79  |ddbodylabels(.sy|
000158b0  73 74 65 6d 5f 6f 6e 29  0d 08 9c 05 cd 0d 08 9d  |stem_on)........|
000158c0  2e 21 62 6c 6b 25 3d 62  6f 64 79 77 25 3a c8 99  |.!blk%=bodyw%:..|
000158d0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000158e0  74 61 74 65 22 2c 2c 62  6c 6b 25 0d 08 9e 3e 73  |tate",,blk%...>s|
000158f0  70 78 25 3d 62 6c 6b 25  21 34 2d 62 6c 6b 25 21  |px%=blk%!4-blk%!|
00015900  32 30 3a 73 70 79 25 3d  28 62 6c 6b 25 21 31 36  |20:spy%=(blk%!16|
00015910  2d 62 6c 6b 25 21 32 34  29 2d 28 73 70 73 63 61  |-blk%!24)-(spsca|
00015920  6c 65 25 2a 31 34 36 30  29 0d 08 9f 50 21 62 6c  |le%*1460)...P!bl|
00015930  6b 25 3d 62 6f 64 79 77  25 3a 62 6c 6b 25 21 34  |k%=bodyw%:blk%!4|
00015940  3d 30 3a 62 6c 6b 25 21  38 3d 2d 28 31 34 36 30  |=0:blk%!8=-(1460|
00015950  2a 73 70 73 63 61 6c 65  25 29 3a 62 6c 6b 25 21  |*spscale%):blk%!|
00015960  31 32 3d 36 32 34 2a 73  70 73 63 61 6c 65 25 3a  |12=624*spscale%:|
00015970  62 6c 6b 25 21 31 36 3d  30 0d 08 a0 28 c8 99 20  |blk%!16=0...(.. |
00015980  22 57 69 6d 70 5f 55 70  64 61 74 65 57 69 6e 64  |"Wimp_UpdateWind|
00015990  6f 77 22 2c 2c 62 6c 6b  25 20 b8 20 6d 6f 72 65  |ow",,blk% . more|
000159a0  25 0d 08 a1 0c c8 95 20  6d 6f 72 65 25 0d 08 a2  |%...... more%...|
000159b0  4a c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |J.. "OS_SpriteOp|
000159c0  22 2c 26 31 33 34 2c 62  6f 64 79 61 72 65 61 25  |",&134,bodyarea%|
000159d0  2c 22 62 6f 64 79 22 2c  73 70 78 25 2c 73 70 79  |,"body",spx%,spy|
000159e0  25 2c 30 2c 62 6f 64 73  63 61 6c 65 25 2c 63 6f  |%,0,bodscale%,co|
000159f0  6c 74 72 61 6e 73 25 0d  08 a3 28 c8 99 20 22 57  |ltrans%...(.. "W|
00015a00  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
00015a10  22 2c 2c 62 6c 6b 25 20  b8 20 6d 6f 72 65 25 0d  |",,blk% . more%.|
00015a20  08 a4 05 ce 0d 08 a5 3f  e7 28 73 70 73 63 61 6c  |.......?.(spscal|
00015a30  65 25 3d 31 29 80 28 a4  6e 6f 5f 73 79 73 74 65  |e%=1).(.no_syste|
00015a40  6d 73 5f 6f 6e 3d 31 29  3a f2 61 64 64 62 6f 64  |ms_on=1):.addbod|
00015a50  79 6c 61 62 62 75 74 73  28 6c 61 62 65 6c 73 6f  |ylabbuts(labelso|
00015a60  6e 25 29 0d 08 a6 05 e1  0d 08 a7 04 0d 08 a8 0e  |n%).............|
00015a70  dd f2 70 6c 6f 74 61 6e  69 6d 0d 08 a9 2e 21 62  |..plotanim....!b|
00015a80  6c 6b 25 3d 61 6e 69 6d  77 25 3a c8 99 22 57 69  |lk%=animw%:.."Wi|
00015a90  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00015aa0  65 22 2c 2c 62 6c 6b 25  0d 08 aa 37 73 70 78 25  |e",,blk%...7spx%|
00015ab0  3d 62 6c 6b 25 21 34 2d  62 6c 6b 25 21 32 30 2b  |=blk%!4-blk%!20+|
00015ac0  36 3a 73 70 79 25 3d 28  62 6c 6b 25 21 31 36 2d  |6:spy%=(blk%!16-|
00015ad0  62 6c 6b 25 21 32 34 29  2d 37 36 2d 36 31 36 0d  |blk%!24)-76-616.|
00015ae0  08 ab 3d 21 62 6c 6b 25  3d 61 6e 69 6d 77 25 3a  |..=!blk%=animw%:|
00015af0  62 6c 6b 25 21 34 3d 30  3a 62 6c 6b 25 21 38 3d  |blk%!4=0:blk%!8=|
00015b00  2d 37 30 30 3a 62 6c 6b  25 21 31 32 3d 37 38 30  |-700:blk%!12=780|
00015b10  3a 62 6c 6b 25 21 31 36  3d 2d 37 32 0d 08 ac 28  |:blk%!16=-72...(|
00015b20  c8 99 20 22 57 69 6d 70  5f 55 70 64 61 74 65 57  |.. "Wimp_UpdateW|
00015b30  69 6e 64 6f 77 22 2c 2c  62 6c 6b 25 20 b8 20 6d  |indow",,blk% . m|
00015b40  6f 72 65 25 0d 08 ad 0c  c8 95 20 6d 6f 72 65 25  |ore%...... more%|
00015b50  0d 08 ae 47 c8 99 20 22  4f 53 5f 53 70 72 69 74  |...G.. "OS_Sprit|
00015b60  65 4f 70 22 2c 26 31 33  34 2c 61 6e 69 6d 61 72  |eOp",&134,animar|
00015b70  65 61 25 2c 22 61 6e 69  6d 22 2c 73 70 78 25 2c  |ea%,"anim",spx%,|
00015b80  73 70 79 25 2c 30 2c 73  63 61 6c 65 25 2c 63 6f  |spy%,0,scale%,co|
00015b90  6c 74 72 61 6e 73 25 0d  08 af 28 c8 99 20 22 57  |ltrans%...(.. "W|
00015ba0  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
00015bb0  22 2c 2c 62 6c 6b 25 20  b8 20 6d 6f 72 65 25 0d  |",,blk% . more%.|
00015bc0  08 b0 05 ce 0d 08 b1 05  e1 0d 08 b2 04 0d 08 b3  |................|
00015bd0  12 dd f2 70 6c 6f 74 61  6e 69 6d 6d 6f 76 65 0d  |...plotanimmove.|
00015be0  08 b4 2e 21 62 6c 6b 25  3d 61 6e 69 6d 77 25 3a  |...!blk%=animw%:|
00015bf0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00015c00  77 53 74 61 74 65 22 2c  2c 62 6c 6b 25 0d 08 b5  |wState",,blk%...|
00015c10  37 73 70 78 25 3d 62 6c  6b 25 21 34 2d 62 6c 6b  |7spx%=blk%!4-blk|
00015c20  25 21 32 30 2b 36 3a 73  70 79 25 3d 28 62 6c 6b  |%!20+6:spy%=(blk|
00015c30  25 21 31 36 2d 62 6c 6b  25 21 32 34 29 2d 37 36  |%!16-blk%!24)-76|
00015c40  2d 36 31 36 0d 08 b6 3d  21 62 6c 6b 25 3d 61 6e  |-616...=!blk%=an|
00015c50  69 6d 77 25 3a 62 6c 6b  25 21 34 3d 30 3a 62 6c  |imw%:blk%!4=0:bl|
00015c60  6b 25 21 38 3d 2d 37 30  30 3a 62 6c 6b 25 21 31  |k%!8=-700:blk%!1|
00015c70  32 3d 36 36 30 3a 62 6c  6b 25 21 31 36 3d 2d 37  |2=660:blk%!16=-7|
00015c80  32 0d 08 b7 28 c8 99 20  22 57 69 6d 70 5f 55 70  |2...(.. "Wimp_Up|
00015c90  64 61 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6b  |dateWindow",,blk|
00015ca0  25 20 b8 20 6d 6f 72 65  25 0d 08 b8 0c c8 95 20  |% . more%...... |
00015cb0  6d 6f 72 65 25 0d 08 b9  47 c8 99 20 22 4f 53 5f  |more%...G.. "OS_|
00015cc0  53 70 72 69 74 65 4f 70  22 2c 26 31 33 34 2c 61  |SpriteOp",&134,a|
00015cd0  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
00015ce0  73 70 78 25 2c 73 70 79  25 2c 30 2c 73 63 61 6c  |spx%,spy%,0,scal|
00015cf0  65 25 2c 63 6f 6c 74 72  61 6e 73 25 0d 08 ba 28  |e%,coltrans%...(|
00015d00  c8 99 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |.. "Wimp_GetRect|
00015d10  61 6e 67 6c 65 22 2c 2c  62 6c 6b 25 20 b8 20 6d  |angle",,blk% . m|
00015d20  6f 72 65 25 0d 08 bb 05  ce 0d 08 bc 3f 21 62 6c  |ore%........?!bl|
00015d30  6b 25 3d 61 6e 69 6d 77  25 3a 62 6c 6b 25 21 34  |k%=animw%:blk%!4|
00015d40  3d 36 36 30 3a 62 6c 6b  25 21 38 3d 2d 36 33 36  |=660:blk%!8=-636|
00015d50  3a 62 6c 6b 25 21 31 32  3d 37 38 30 3a 62 6c 6b  |:blk%!12=780:blk|
00015d60  25 21 31 36 3d 2d 37 32  0d 08 bd 28 c8 99 20 22  |%!16=-72...(.. "|
00015d70  57 69 6d 70 5f 55 70 64  61 74 65 57 69 6e 64 6f  |Wimp_UpdateWindo|
00015d80  77 22 2c 2c 62 6c 6b 25  20 b8 20 6d 6f 72 65 25  |w",,blk% . more%|
00015d90  0d 08 be 0c c8 95 20 6d  6f 72 65 25 0d 08 bf 47  |...... more%...G|
00015da0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00015db0  2c 26 31 33 34 2c 61 6e  69 6d 61 72 65 61 25 2c  |,&134,animarea%,|
00015dc0  22 61 6e 69 6d 22 2c 73  70 78 25 2c 73 70 79 25  |"anim",spx%,spy%|
00015dd0  2c 30 2c 73 63 61 6c 65  25 2c 63 6f 6c 74 72 61  |,0,scale%,coltra|
00015de0  6e 73 25 0d 08 c0 28 c8  99 20 22 57 69 6d 70 5f  |ns%...(.. "Wimp_|
00015df0  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 62  |GetRectangle",,b|
00015e00  6c 6b 25 20 b8 20 6d 6f  72 65 25 0d 08 c1 05 ce  |lk% . more%.....|
00015e10  0d 08 c2 05 e1 0d 08 c3  04 0d 08 c4 19 dd f2 70  |...............p|
00015e20  6c 6f 74 61 6e 69 6d 63  6c 6f 73 65 72 66 69 72  |lotanimcloserfir|
00015e30  73 74 0d 08 c5 08 ea 20  6a 25 0d 08 c6 2e 21 62  |st..... j%....!b|
00015e40  6c 6b 25 3d 61 6e 69 6d  77 25 3a c8 99 22 57 69  |lk%=animw%:.."Wi|
00015e50  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00015e60  65 22 2c 2c 62 6c 6b 25  0d 08 c7 37 73 70 78 25  |e",,blk%...7spx%|
00015e70  3d 62 6c 6b 25 21 34 2d  62 6c 6b 25 21 32 30 2b  |=blk%!4-blk%!20+|
00015e80  36 3a 73 70 79 25 3d 28  62 6c 6b 25 21 31 36 2d  |6:spy%=(blk%!16-|
00015e90  62 6c 6b 25 21 32 34 29  2d 37 36 2d 36 31 36 0d  |blk%!24)-76-616.|
00015ea0  08 c8 0b e3 6a 25 3d 31  b8 34 0d 08 c9 10 21 62  |....j%=1.4....!b|
00015eb0  6c 6b 25 3d 61 6e 69 6d  77 25 0d 08 ca 4d e7 6a  |lk%=animw%...M.j|
00015ec0  25 3d 31 3a 62 6c 6b 25  21 34 3d 63 6c 6c 65 66  |%=1:blk%!4=cllef|
00015ed0  74 25 3a 62 6c 6b 25 21  38 3d 63 6c 6c 6f 77 25  |t%:blk%!8=cllow%|
00015ee0  3a 62 6c 6b 25 21 31 32  3d 63 6c 72 69 67 68 74  |:blk%!12=clright|
00015ef0  25 2b 32 3a 62 6c 6b 25  21 31 36 3d 63 6c 6c 6f  |%+2:blk%!16=cllo|
00015f00  77 25 2b 31 30 2b 34 0d  08 cb 4f e7 6a 25 3d 32  |w%+10+4...O.j%=2|
00015f10  3a 62 6c 6b 25 21 34 3d  63 6c 72 69 67 68 74 25  |:blk%!4=clright%|
00015f20  2d 31 30 3a 62 6c 6b 25  21 38 3d 63 6c 6c 6f 77  |-10:blk%!8=cllow|
00015f30  25 3a 62 6c 6b 25 21 31  32 3d 63 6c 72 69 67 68  |%:blk%!12=clrigh|
00015f40  74 25 2b 32 3a 62 6c 6b  25 21 31 36 3d 63 6c 68  |t%+2:blk%!16=clh|
00015f50  69 67 68 25 2b 34 0d 08  cc 4f e7 6a 25 3d 33 3a  |igh%+4...O.j%=3:|
00015f60  62 6c 6b 25 21 34 3d 63  6c 6c 65 66 74 25 3a 62  |blk%!4=clleft%:b|
00015f70  6c 6b 25 21 38 3d 63 6c  68 69 67 68 25 2d 31 30  |lk%!8=clhigh%-10|
00015f80  3a 62 6c 6b 25 21 31 32  3d 63 6c 72 69 67 68 74  |:blk%!12=clright|
00015f90  25 2b 32 3a 62 6c 6b 25  21 31 36 3d 63 6c 68 69  |%+2:blk%!16=clhi|
00015fa0  67 68 25 2b 34 0d 08 cd  4d e7 6a 25 3d 34 3a 62  |gh%+4...M.j%=4:b|
00015fb0  6c 6b 25 21 34 3d 63 6c  6c 65 66 74 25 3a 62 6c  |lk%!4=clleft%:bl|
00015fc0  6b 25 21 38 3d 63 6c 6c  6f 77 25 3a 62 6c 6b 25  |k%!8=cllow%:blk%|
00015fd0  21 31 32 3d 63 6c 6c 65  66 74 25 2b 31 30 2b 32  |!12=clleft%+10+2|
00015fe0  3a 62 6c 6b 25 21 31 36  3d 63 6c 68 69 67 68 25  |:blk%!16=clhigh%|
00015ff0  2b 34 0d 08 ce 3b 62 6c  6b 25 21 34 2b 3d 36 3a  |+4...;blk%!4+=6:|
00016000  62 6c 6b 25 21 38 2d 3d  28 37 36 2b 36 31 36 29  |blk%!8-=(76+616)|
00016010  3a 62 6c 6b 25 21 31 32  2b 3d 36 3a 62 6c 6b 25  |:blk%!12+=6:blk%|
00016020  21 31 36 2d 3d 28 37 36  2b 36 31 36 29 0d 08 cf  |!16-=(76+616)...|
00016030  28 c8 99 20 22 57 69 6d  70 5f 55 70 64 61 74 65  |(.. "Wimp_Update|
00016040  57 69 6e 64 6f 77 22 2c  2c 62 6c 6b 25 20 b8 20  |Window",,blk% . |
00016050  6d 6f 72 65 25 0d 08 d0  0c c8 95 20 6d 6f 72 65  |more%...... more|
00016060  25 0d 08 d1 47 c8 99 20  22 4f 53 5f 53 70 72 69  |%...G.. "OS_Spri|
00016070  74 65 4f 70 22 2c 26 31  33 34 2c 61 6e 69 6d 61  |teOp",&134,anima|
00016080  72 65 61 25 2c 22 61 6e  69 6d 22 2c 73 70 78 25  |rea%,"anim",spx%|
00016090  2c 73 70 79 25 2c 30 2c  73 63 61 6c 65 25 2c 63  |,spy%,0,scale%,c|
000160a0  6f 6c 74 72 61 6e 73 25  0d 08 d2 28 c8 99 20 22  |oltrans%...(.. "|
000160b0  57 69 6d 70 5f 47 65 74  52 65 63 74 61 6e 67 6c  |Wimp_GetRectangl|
000160c0  65 22 2c 2c 62 6c 6b 25  20 b8 20 6d 6f 72 65 25  |e",,blk% . more%|
000160d0  0d 08 d3 05 ce 0d 08 d4  05 ed 0d 08 d5 05 e1 0d  |................|
000160e0  08 d6 04 0d 08 d7 18 dd  f2 70 6c 6f 74 61 6e 69  |.........plotani|
000160f0  6d 63 6c 6f 73 65 72 72  65 73 74 0d 08 d8 08 ea  |mcloserrest.....|
00016100  20 6a 25 0d 08 d9 2e 21  62 6c 6b 25 3d 61 6e 69  | j%....!blk%=ani|
00016110  6d 77 25 3a c8 99 22 57  69 6d 70 5f 47 65 74 57  |mw%:.."Wimp_GetW|
00016120  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6b  |indowState",,blk|
00016130  25 0d 08 da 37 73 70 78  25 3d 62 6c 6b 25 21 34  |%...7spx%=blk%!4|
00016140  2d 62 6c 6b 25 21 32 30  2b 36 3a 73 70 79 25 3d  |-blk%!20+6:spy%=|
00016150  28 62 6c 6b 25 21 31 36  2d 62 6c 6b 25 21 32 34  |(blk%!16-blk%!24|
00016160  29 2d 37 36 2d 36 31 36  0d 08 db 0b e3 6a 25 3d  |)-76-616.....j%=|
00016170  31 b8 34 0d 08 dc 10 21  62 6c 6b 25 3d 61 6e 69  |1.4....!blk%=ani|
00016180  6d 77 25 0d 08 dd 82 e7  6a 25 3d 31 3a 62 6c 6b  |mw%.....j%=1:blk|
00016190  25 21 34 3d 63 6c 6c 65  66 74 25 2d 28 63 6c 6f  |%!4=clleft%-(clo|
000161a0  73 25 2a 63 6c 6c 65 25  29 3a 62 6c 6b 25 21 38  |s%*clle%):blk%!8|
000161b0  3d 63 6c 6c 6f 77 25 2d  28 63 6c 6f 73 25 2a 63  |=cllow%-(clos%*c|
000161c0  6c 6c 6f 25 29 3a 62 6c  6b 25 21 31 32 3d 63 6c  |llo%):blk%!12=cl|
000161d0  72 69 67 68 74 25 2b 28  63 6c 6f 73 25 2a 63 6c  |right%+(clos%*cl|
000161e0  72 69 25 29 2b 32 3a 62  6c 6b 25 21 31 36 3d 63  |ri%)+2:blk%!16=c|
000161f0  6c 6c 6f 77 25 2d 28 63  6c 6f 73 25 2a 63 6c 6c  |llow%-(clos%*cll|
00016200  6f 25 29 2b 34 0d 08 de  86 e7 6a 25 3d 32 3a 62  |o%)+4.....j%=2:b|
00016210  6c 6b 25 21 34 3d 63 6c  72 69 67 68 74 25 2b 28  |lk%!4=clright%+(|
00016220  63 6c 6f 73 25 2a 63 6c  72 69 25 29 2d 32 3a 62  |clos%*clri%)-2:b|
00016230  6c 6b 25 21 38 3d 63 6c  6c 6f 77 25 2d 28 63 6c  |lk%!8=cllow%-(cl|
00016240  6f 73 25 2a 63 6c 6c 6f  25 29 3a 62 6c 6b 25 21  |os%*cllo%):blk%!|
00016250  31 32 3d 63 6c 72 69 67  68 74 25 2b 28 63 6c 6f  |12=clright%+(clo|
00016260  73 25 2a 63 6c 72 69 25  29 2b 32 3a 62 6c 6b 25  |s%*clri%)+2:blk%|
00016270  21 31 36 3d 63 6c 68 69  67 68 25 2b 28 63 6c 6f  |!16=clhigh%+(clo|
00016280  73 25 2a 63 6c 68 69 25  29 2b 34 0d 08 df 84 e7  |s%*clhi%)+4.....|
00016290  6a 25 3d 33 3a 62 6c 6b  25 21 34 3d 63 6c 6c 65  |j%=3:blk%!4=clle|
000162a0  66 74 25 2d 28 63 6c 6f  73 25 2a 63 6c 6c 65 25  |ft%-(clos%*clle%|
000162b0  29 3a 62 6c 6b 25 21 38  3d 63 6c 68 69 67 68 25  |):blk%!8=clhigh%|
000162c0  2b 28 63 6c 6f 73 25 2a  63 6c 68 69 25 29 3a 62  |+(clos%*clhi%):b|
000162d0  6c 6b 25 21 31 32 3d 63  6c 72 69 67 68 74 25 2b  |lk%!12=clright%+|
000162e0  28 63 6c 6f 73 25 2a 63  6c 72 69 25 29 2b 32 3a  |(clos%*clri%)+2:|
000162f0  62 6c 6b 25 21 31 36 3d  63 6c 68 69 67 68 25 2b  |blk%!16=clhigh%+|
00016300  28 63 6c 6f 73 25 2a 63  6c 68 69 25 29 2b 34 0d  |(clos%*clhi%)+4.|
00016310  08 e0 84 e7 6a 25 3d 34  3a 62 6c 6b 25 21 34 3d  |....j%=4:blk%!4=|
00016320  63 6c 6c 65 66 74 25 2d  28 63 6c 6f 73 25 2a 63  |clleft%-(clos%*c|
00016330  6c 6c 65 25 29 3a 62 6c  6b 25 21 38 3d 63 6c 6c  |lle%):blk%!8=cll|
00016340  6f 77 25 2d 28 63 6c 6f  73 25 2a 63 6c 6c 6f 25  |ow%-(clos%*cllo%|
00016350  29 3a 62 6c 6b 25 21 31  32 3d 63 6c 6c 65 66 74  |):blk%!12=clleft|
00016360  25 2d 28 63 6c 6f 73 25  2a 63 6c 6c 65 25 29 2b  |%-(clos%*clle%)+|
00016370  32 2b 32 3a 62 6c 6b 25  21 31 36 3d 63 6c 68 69  |2+2:blk%!16=clhi|
00016380  67 68 25 2b 28 63 6c 6f  73 25 2a 63 6c 68 69 25  |gh%+(clos%*clhi%|
00016390  29 2b 34 0d 08 e1 3b 62  6c 6b 25 21 34 2b 3d 36  |)+4...;blk%!4+=6|
000163a0  3a 62 6c 6b 25 21 38 2d  3d 28 37 36 2b 36 31 36  |:blk%!8-=(76+616|
000163b0  29 3a 62 6c 6b 25 21 31  32 2b 3d 36 3a 62 6c 6b  |):blk%!12+=6:blk|
000163c0  25 21 31 36 2d 3d 28 37  36 2b 36 31 36 29 0d 08  |%!16-=(76+616)..|
000163d0  e2 28 c8 99 20 22 57 69  6d 70 5f 55 70 64 61 74  |.(.. "Wimp_Updat|
000163e0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6b 25 20 b8  |eWindow",,blk% .|
000163f0  20 6d 6f 72 65 25 0d 08  e3 0c c8 95 20 6d 6f 72  | more%...... mor|
00016400  65 25 0d 08 e4 47 c8 99  20 22 4f 53 5f 53 70 72  |e%...G.. "OS_Spr|
00016410  69 74 65 4f 70 22 2c 26  31 33 34 2c 61 6e 69 6d  |iteOp",&134,anim|
00016420  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 73 70 78  |area%,"anim",spx|
00016430  25 2c 73 70 79 25 2c 30  2c 73 63 61 6c 65 25 2c  |%,spy%,0,scale%,|
00016440  63 6f 6c 74 72 61 6e 73  25 0d 08 e5 28 c8 99 20  |coltrans%...(.. |
00016450  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
00016460  6c 65 22 2c 2c 62 6c 6b  25 20 b8 20 6d 6f 72 65  |le",,blk% . more|
00016470  25 0d 08 e6 05 ce 0d 08  e7 05 ed 0d 08 e8 05 e1  |%...............|
00016480  0d 08 e9 04 0d 08 ea 18  dd f2 61 64 64 62 6f 64  |..........addbod|
00016490  79 6c 61 62 65 6c 73 28  73 79 25 29 0d 08 eb 11  |ylabels(sy%)....|
000164a0  6c 61 62 65 6c 73 6f 6e  25 3d 73 79 25 0d 08 ec  |labelson%=sy%...|
000164b0  2b c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |+.."OS_SpriteOp"|
000164c0  2c 26 31 33 43 2c 62 6f  64 79 61 72 65 61 25 2c  |,&13C,bodyarea%,|
000164d0  22 62 6f 64 79 22 2c 30  0d 08 ed 18 c8 99 22 57  |"body",0......"W|
000164e0  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 37  |imp_SetColour",7|
000164f0  0d 08 ee 27 6c 69 6e 24  3d 6f 76 6c 69 6e 65 73  |...'lin$=ovlines|
00016500  24 28 73 79 25 29 3a 6e  6f 6c 69 6e 65 73 25 3d  |$(sy%):nolines%=|
00016510  bb 28 6c 69 6e 24 29 0d  08 ef 19 6c 69 6e 24 3d  |.(lin$)....lin$=|
00016520  c2 6c 69 6e 24 2c a9 28  6c 69 6e 24 29 2d 33 29  |.lin$,.(lin$)-3)|
00016530  0d 08 f0 12 e3 6b 25 3d  31 b8 6e 6f 6c 69 6e 65  |.....k%=1.noline|
00016540  73 25 0d 08 f1 4b ef 32  35 2c 34 2c bb 28 c1 6c  |s%...K.25,4,.(.l|
00016550  69 6e 24 2c 31 2c 34 29  29 3b bb 28 c1 6c 69 6e  |in$,1,4));.(.lin|
00016560  24 2c 36 2c 34 29 29 3b  3a ef 32 35 2c 35 2c bb  |$,6,4));:.25,5,.|
00016570  28 c1 6c 69 6e 24 2c 31  31 2c 34 29 29 3b bb 28  |(.lin$,11,4));.(|
00016580  c1 6c 69 6e 24 2c 31 36  2c 34 29 29 3b 0d 08 f2  |.lin$,16,4));...|
00016590  4f ef 32 35 2c 34 2c bb  28 c1 6c 69 6e 24 2c 31  |O.25,4,.(.lin$,1|
000165a0  2c 34 29 29 2b 32 3b bb  28 c1 6c 69 6e 24 2c 36  |,4))+2;.(.lin$,6|
000165b0  2c 34 29 29 3b 3a ef 32  35 2c 35 2c bb 28 c1 6c  |,4));:.25,5,.(.l|
000165c0  69 6e 24 2c 31 31 2c 34  29 29 2b 32 3b bb 28 c1  |in$,11,4))+2;.(.|
000165d0  6c 69 6e 24 2c 31 36 2c  34 29 29 3b 0d 08 f3 1a  |lin$,16,4));....|
000165e0  6c 69 6e 24 3d c2 6c 69  6e 24 2c a9 28 6c 69 6e  |lin$=.lin$,.(lin|
000165f0  24 29 2d 32 30 29 0d 08  f4 05 ed 0d 08 f5 26 c8  |$)-20)........&.|
00016600  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00016610  31 33 43 2c 62 6f 64 79  61 72 65 61 25 2c 30 2c  |13C,bodyarea%,0,|
00016620  30 0d 08 f6 05 e1 0d 08  f7 04 0d 08 f8 19 dd f2  |0...............|
00016630  61 64 64 62 6f 64 79 6c  61 62 62 75 74 73 28 73  |addbodylabbuts(s|
00016640  79 25 29 0d 08 f9 2b 6c  69 6e 24 3d 73 79 73 74  |y%)...+lin$=syst|
00016650  65 6d 6c 61 62 65 6c 73  24 28 73 79 25 29 3a 6e  |emlabels$(sy%):n|
00016660  6f 6c 61 62 73 25 3d bb  28 6c 69 6e 24 29 0d 08  |olabs%=.(lin$)..|
00016670  fa 19 6c 69 6e 24 3d c2  6c 69 6e 24 2c a9 28 6c  |..lin$=.lin$,.(l|
00016680  69 6e 24 29 2d 33 29 0d  08 fb 11 e3 6b 25 3d 31  |in$)-3).....k%=1|
00016690  b8 6e 6f 6c 61 62 73 25  0d 08 fc 24 f2 68 69 64  |.nolabs%...$.hid|
000166a0  65 69 63 6e 28 62 6f 64  79 77 25 2c bb 28 c1 6c  |eicn(bodyw%,.(.l|
000166b0  69 6e 24 2c 31 2c 32 29  29 2c a3 29 0d 08 fd 19  |in$,1,2)),.)....|
000166c0  6c 69 6e 24 3d c2 6c 69  6e 24 2c a9 28 6c 69 6e  |lin$=.lin$,.(lin|
000166d0  24 29 2d 33 29 0d 08 fe  05 ed 0d 08 ff 05 e1 0d  |$)-3)...........|
000166e0  09 00 04 0d 09 01 14 dd  f2 72 65 6d 6f 76 65 62  |.........removeb|
000166f0  6f 64 79 6c 61 62 73 0d  09 02 31 6c 69 6e 24 3d  |odylabs...1lin$=|
00016700  73 79 73 74 65 6d 6c 61  62 65 6c 73 24 28 6c 61  |systemlabels$(la|
00016710  62 65 6c 73 6f 6e 25 29  3a 6e 6f 6c 61 62 73 25  |belson%):nolabs%|
00016720  3d bb 28 6c 69 6e 24 29  0d 09 03 19 6c 69 6e 24  |=.(lin$)....lin$|
00016730  3d c2 6c 69 6e 24 2c a9  28 6c 69 6e 24 29 2d 33  |=.lin$,.(lin$)-3|
00016740  29 0d 09 04 11 e3 6b 25  3d 31 b8 6e 6f 6c 61 62  |).....k%=1.nolab|
00016750  73 25 0d 09 05 24 f2 68  69 64 65 69 63 6e 28 62  |s%...$.hideicn(b|
00016760  6f 64 79 77 25 2c bb 28  c1 6c 69 6e 24 2c 31 2c  |odyw%,.(.lin$,1,|
00016770  32 29 29 2c b9 29 0d 09  06 62 e7 28 61 63 74 69  |2)),.)...b.(acti|
00016780  76 65 69 63 6e 25 3c 3e  bb 28 c1 6c 69 6e 24 2c  |veicn%<>.(.lin$,|
00016790  31 2c 32 29 29 29 80 28  61 63 74 69 76 65 6f 72  |1,2))).(activeor|
000167a0  67 69 63 6e 25 3c 3e bb  28 c1 6c 69 6e 24 2c 31  |gicn%<>.(.lin$,1|
000167b0  2c 32 29 29 29 3a f2 73  65 6c 65 63 74 69 63 6e  |,2))):.selecticn|
000167c0  28 62 6f 64 79 77 25 2c  bb 28 c1 6c 69 6e 24 2c  |(bodyw%,.(.lin$,|
000167d0  31 2c 32 29 29 2c a3 29  0d 09 07 19 6c 69 6e 24  |1,2)),.)....lin$|
000167e0  3d c2 6c 69 6e 24 2c a9  28 6c 69 6e 24 29 2d 33  |=.lin$,.(lin$)-3|
000167f0  29 0d 09 08 05 ed 0d 09  09 10 6c 61 62 65 6c 73  |).........labels|
00016800  6f 6e 25 3d 31 30 0d 09  0a 05 e1 0d 09 0b 04 0d  |on%=10..........|
00016810  09 0c 17 dd f2 62 6f 64  79 62 6f 78 65 73 28 77  |.....bodyboxes(w|
00016820  6f 72 64 73 25 29 0d 09  0d 2b c8 99 22 4f 53 5f  |ords%)...+.."OS_|
00016830  53 70 72 69 74 65 4f 70  22 2c 26 31 33 43 2c 62  |SpriteOp",&13C,b|
00016840  6f 64 79 61 72 65 61 25  2c 22 62 6f 64 79 22 2c  |odyarea%,"body",|
00016850  30 0d 09 0e 31 6c 69 6e  24 3d 73 79 73 74 65 6d  |0...1lin$=system|
00016860  6c 61 62 65 6c 73 24 28  6c 61 62 65 6c 73 6f 6e  |labels$(labelson|
00016870  25 29 3a 6e 6f 6c 61 62  73 25 3d bb 28 6c 69 6e  |%):nolabs%=.(lin|
00016880  24 29 0d 09 0f 19 6c 69  6e 24 3d c2 6c 69 6e 24  |$)....lin$=.lin$|
00016890  2c a9 28 6c 69 6e 24 29  2d 33 29 0d 09 10 11 e3  |,.(lin$)-3).....|
000168a0  6b 25 3d 31 b8 6e 6f 6c  61 62 73 25 0d 09 11 17  |k%=1.nolabs%....|
000168b0  69 63 6e 6f 25 3d bb 28  c1 6c 69 6e 24 2c 31 2c  |icno%=.(.lin$,1,|
000168c0  32 29 29 0d 09 12 0f e7  20 69 63 6e 6f 25 3e 32  |2))..... icno%>2|
000168d0  34 8c 0d 09 13 5b 20 e7  61 63 74 69 76 65 6f 72  |4....[ .activeor|
000168e0  67 69 63 6e 25 3d 69 63  6e 6f 25 3a f2 61 64 64  |gicn%=icno%:.add|
000168f0  62 6f 64 79 62 6f 78 65  73 28 77 6f 72 64 73 25  |bodyboxes(words%|
00016900  2c 39 2c 37 2c 69 63 6e  6f 25 29 3a 8b 3a f2 61  |,9,7,icno%):.:.a|
00016910  64 64 62 6f 64 79 62 6f  78 65 73 28 77 6f 72 64  |ddbodyboxes(word|
00016920  73 25 2c 31 2c 33 2c 69  63 6e 6f 25 29 0d 09 14  |s%,1,3,icno%)...|
00016930  21 f4 20 50 52 4f 43 61  64 64 62 6f 64 79 62 6f  |!. PROCaddbodybo|
00016940  78 65 73 28 31 2c 32 2c  69 63 6e 6f 25 29 0d 09  |xes(1,2,icno%)..|
00016950  15 05 cc 0d 09 16 58 20  e7 61 63 74 69 76 65 69  |......X .activei|
00016960  63 6e 25 3d 69 63 6e 6f  25 3a f2 61 64 64 62 6f  |cn%=icno%:.addbo|
00016970  64 79 62 6f 78 65 73 28  77 6f 72 64 73 25 2c 39  |dyboxes(words%,9|
00016980  2c 37 2c 69 63 6e 6f 25  29 3a 8b 3a f2 61 64 64  |,7,icno%):.:.add|
00016990  62 6f 64 79 62 6f 78 65  73 28 77 6f 72 64 73 25  |bodyboxes(words%|
000169a0  2c 32 2c 37 2c 69 63 6e  6f 25 29 0d 09 17 05 cd  |,2,7,icno%).....|
000169b0  0d 09 18 19 6c 69 6e 24  3d c2 6c 69 6e 24 2c a9  |....lin$=.lin$,.|
000169c0  28 6c 69 6e 24 29 2d 33  29 0d 09 19 05 ed 0d 09  |(lin$)-3).......|
000169d0  1a 26 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.&.."OS_SpriteOp|
000169e0  22 2c 26 31 33 43 2c 62  6f 64 79 61 72 65 61 25  |",&13C,bodyarea%|
000169f0  2c 30 2c 30 0d 09 1b 05  e1 0d 09 1c 04 0d 09 1d  |,0,0............|
00016a00  2f dd f2 61 64 64 62 6f  64 79 62 6f 78 65 73 28  |/..addbodyboxes(|
00016a10  77 6f 72 64 73 25 2c 69  6e 63 6f 6c 25 2c 6f 75  |words%,incol%,ou|
00016a20  74 63 6f 6c 25 2c 69 63  6e 6f 25 29 0d 09 1e 1e  |tcol%,icno%)....|
00016a30  c8 99 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |.."Wimp_SetColou|
00016a40  72 22 2c 6f 75 74 63 6f  6c 25 0d 09 1f 56 ef 32  |r",outcol%...V.2|
00016a50  35 2c 34 2c 62 6f 64 79  62 6f 78 25 28 69 63 6e  |5,4,bodybox%(icn|
00016a60  6f 25 2c 31 29 3b 62 6f  64 79 62 6f 78 25 28 69  |o%,1);bodybox%(i|
00016a70  63 6e 6f 25 2c 32 29 3b  3a ef 32 35 2c 39 37 2c  |cno%,2);:.25,97,|
00016a80  28 28 62 6f 64 79 62 6f  78 25 28 69 63 6e 6f 25  |((bodybox%(icno%|
00016a90  2c 30 29 2a 38 29 2b 31  32 29 2a 32 3b 34 34 3b  |,0)*8)+12)*2;44;|
00016aa0  0d 09 20 76 e7 28 73 61  76 65 25 80 a4 69 73 73  |.. v.(save%..iss|
00016ab0  65 6c 65 63 74 65 64 28  73 61 62 6f 64 79 77 25  |elected(sabodyw%|
00016ac0  2c 35 29 29 84 28 ac 73  61 76 65 25 80 a4 69 73  |,5)).(.save%..is|
00016ad0  73 65 6c 65 63 74 65 64  28 70 72 62 6f 64 79 77  |selected(prbodyw|
00016ae0  25 2c 31 29 29 3a c8 99  22 57 69 6d 70 5f 53 65  |%,1)):.."Wimp_Se|
00016af0  74 43 6f 6c 6f 75 72 22  2c 69 6e 63 6f 6c 25 3a  |tColour",incol%:|
00016b00  8b 3a c8 99 22 57 69 6d  70 5f 53 65 74 43 6f 6c  |.:.."Wimp_SetCol|
00016b10  6f 75 72 22 2c 30 0d 09  21 59 ef 32 35 2c 34 2c  |our",0..!Y.25,4,|
00016b20  62 6f 64 79 62 6f 78 25  28 69 63 6e 6f 25 2c 31  |bodybox%(icno%,1|
00016b30  29 2b 34 3b 62 6f 64 79  62 6f 78 25 28 69 63 6e  |)+4;bodybox%(icn|
00016b40  6f 25 2c 32 29 2b 34 3b  3a ef 32 35 2c 39 37 2c  |o%,2)+4;:.25,97,|
00016b50  28 28 62 6f 64 79 62 6f  78 25 28 69 63 6e 6f 25  |((bodybox%(icno%|
00016b60  2c 30 29 2a 38 29 2b 38  29 2a 32 3b 33 36 3b 0d  |,0)*8)+8)*2;36;.|
00016b70  09 22 1b c8 99 22 57 69  6d 70 5f 53 65 74 43 6f  |."..."Wimp_SetCo|
00016b80  6c 6f 75 72 22 2c 37 3a  ef 35 0d 09 23 0e e7 69  |lour",7:.5..#..i|
00016b90  63 6e 6f 25 3c 32 35 8c  0d 09 24 35 20 ef 32 35  |cno%<25...$5 .25|
00016ba0  2c 34 2c 62 6f 64 79 62  6f 78 25 28 69 63 6e 6f  |,4,bodybox%(icno|
00016bb0  25 2c 31 29 2b 31 34 3b  62 6f 64 79 62 6f 78 25  |%,1)+14;bodybox%|
00016bc0  28 69 63 6e 6f 25 2c 32  29 2b 33 36 3b 0d 09 25  |(icno%,2)+36;..%|
00016bd0  05 cc 0d 09 26 24 20 6c  65 6e 66 25 3d 32 34 2b  |....&$ lenf%=24+|
00016be0  28 31 36 2a 62 6f 64 79  62 6f 78 25 28 69 63 6e  |(16*bodybox%(icn|
00016bf0  6f 25 2c 30 29 29 0d 09  27 59 20 ef 32 35 2c 34  |o%,0))..'Y .25,4|
00016c00  2c 62 6f 64 79 62 6f 78  25 28 69 63 6e 6f 25 2c  |,bodybox%(icno%,|
00016c10  31 29 2b 28 28 6c 65 6e  66 25 2d 28 a9 28 62 6f  |1)+((lenf%-(.(bo|
00016c20  64 79 62 6f 78 6c 61 62  24 28 69 63 6e 6f 25 29  |dyboxlab$(icno%)|
00016c30  29 2a 31 36 29 29 2f 32  29 3b 62 6f 64 79 62 6f  |)*16))/2);bodybo|
00016c40  78 25 28 69 63 6e 6f 25  2c 32 29 2b 33 36 3b 0d  |x%(icno%,2)+36;.|
00016c50  09 28 05 cd 0d 09 29 20  e7 77 6f 72 64 73 25 3a  |.(....) .words%:|
00016c60  f1 20 62 6f 64 79 62 6f  78 6c 61 62 24 28 69 63  |. bodyboxlab$(ic|
00016c70  6e 6f 25 29 0d 09 2a 06  ef 34 0d 09 2b 05 e1 0d  |no%)..*..4..+...|
00016c80  09 2c 04 0d 09 2d 17 dd  f2 61 6e 69 6d 62 6f 78  |.,...-...animbox|
00016c90  65 73 28 77 6f 72 64 73  25 29 0d 09 2e 2b c8 99  |es(words%)...+..|
00016ca0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00016cb0  33 43 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |3C,animarea%,"an|
00016cc0  69 6d 22 2c 30 0d 09 2f  46 73 74 25 3d 77 6f 72  |im",0../Fst%=wor|
00016cd0  64 73 25 28 73 69 6d 70  25 2c 28 61 63 74 69 76  |ds%(simp%,(activ|
00016ce0  65 77 25 2a 32 29 2b 32  29 3a 65 6e 64 25 3d 77  |ew%*2)+2):end%=w|
00016cf0  6f 72 64 73 25 28 73 69  6d 70 25 2c 28 61 63 74  |ords%(simp%,(act|
00016d00  69 76 65 77 25 2a 32 29  2b 33 29 0d 09 30 0d e7  |ivew%*2)+3)..0..|
00016d10  73 74 25 3c 3e 2d 31 8c  0d 09 31 10 e3 6b 25 3d  |st%<>-1...1..k%=|
00016d20  73 74 25 b8 65 6e 64 25  0d 09 32 1f 69 63 6e 6f  |st%.end%..2.icno|
00016d30  25 3d bb 28 77 6f 72 64  73 24 28 73 69 6d 70 25  |%=.(words$(simp%|
00016d40  2c 6b 25 2c 30 29 29 0d  09 33 36 69 63 73 74 24  |,k%,0))..36icst$|
00016d50  3d c2 77 6f 72 64 73 24  28 73 69 6d 70 25 2c 6b  |=.words$(simp%,k|
00016d60  25 2c 30 29 2c a9 28 77  6f 72 64 73 24 28 73 69  |%,0),.(words$(si|
00016d70  6d 70 25 2c 6b 25 2c 30  29 29 2d 33 29 0d 09 34  |mp%,k%,0))-3)..4|
00016d80  12 f4 49 46 73 69 6d 70  25 3d 30 54 48 45 4e 0d  |..IFsimp%=0THEN.|
00016d90  09 35 29 f4 20 50 52 4f  43 61 64 64 61 6e 69 6d  |.5). PROCaddanim|
00016da0  62 6f 78 65 73 28 31 2c  32 2c 69 63 6e 6f 25 2d  |boxes(1,2,icno%-|
00016db0  35 2c 69 63 73 74 24 29  0d 09 36 09 f4 45 4c 53  |5,icst$)..6..ELS|
00016dc0  45 0d 09 37 71 20 e7 a4  69 73 73 65 6c 65 63 74  |E..7q ..isselect|
00016dd0  65 64 28 61 6e 69 6d 77  25 2c 69 63 6e 6f 25 29  |ed(animw%,icno%)|
00016de0  3a f2 61 64 64 61 6e 69  6d 62 6f 78 65 73 28 77  |:.addanimboxes(w|
00016df0  6f 72 64 73 25 2c 39 2c  37 2c 69 63 6e 6f 25 2d  |ords%,9,7,icno%-|
00016e00  35 2c 69 63 73 74 24 29  3a 8b 3a f2 61 64 64 61  |5,icst$):.:.adda|
00016e10  6e 69 6d 62 6f 78 65 73  28 77 6f 72 64 73 25 2c  |nimboxes(words%,|
00016e20  32 2c 37 2c 69 63 6e 6f  25 2d 35 2c 69 63 73 74  |2,7,icno%-5,icst|
00016e30  24 29 0d 09 38 0a f4 45  4e 44 49 46 0d 09 39 05  |$)..8..ENDIF..9.|
00016e40  ed 0d 09 3a 05 cd 0d 09  3b 26 c8 99 22 4f 53 5f  |...:....;&.."OS_|
00016e50  53 70 72 69 74 65 4f 70  22 2c 26 31 33 43 2c 61  |SpriteOp",&13C,a|
00016e60  6e 69 6d 61 72 65 61 25  2c 30 2c 30 0d 09 3c 05  |nimarea%,0,0..<.|
00016e70  e1 0d 09 3d 04 0d 09 3e  35 dd f2 61 64 64 61 6e  |...=...>5..addan|
00016e80  69 6d 62 6f 78 65 73 28  77 6f 72 64 73 25 2c 69  |imboxes(words%,i|
00016e90  6e 63 6f 6c 25 2c 6f 75  74 63 6f 6c 25 2c 69 63  |ncol%,outcol%,ic|
00016ea0  6e 6f 25 2c 69 63 73 74  24 29 0d 09 3f 0d 6c 65  |no%,icst$)..?.le|
00016eb0  6e 66 25 3d 31 32 30 0d  09 40 1b e7 28 69 63 6e  |nf%=120..@..(icn|
00016ec0  6f 25 2b 35 29 3c 32 35  3a 6c 65 6e 66 25 3d 32  |o%+5)<25:lenf%=2|
00016ed0  31 36 0d 09 41 1b e7 28  69 63 6e 6f 25 2b 35 29  |16..A..(icno%+5)|
00016ee0  3e 34 34 3a 6c 65 6e 66  25 3d 33 34 34 0d 09 42  |>44:lenf%=344..B|
00016ef0  1b e7 28 69 63 6e 6f 25  2b 35 29 3d 34 32 3a 6c  |..(icno%+5)=42:l|
00016f00  65 6e 66 25 3d 32 33 32  0d 09 43 1e c8 99 22 57  |enf%=232..C..."W|
00016f10  69 6d 70 5f 53 65 74 43  6f 6c 6f 75 72 22 2c 6f  |imp_SetColour",o|
00016f20  75 74 63 6f 6c 25 0d 09  44 3f ef 32 35 2c 34 2c  |utcol%..D?.25,4,|
00016f30  61 6e 69 6d 62 6f 78 25  28 69 63 6e 6f 25 2c 30  |animbox%(icno%,0|
00016f40  29 3b 61 6e 69 6d 62 6f  78 25 28 69 63 6e 6f 25  |);animbox%(icno%|
00016f50  2c 31 29 3b 3a ef 32 35  2c 39 37 2c 6c 65 6e 66  |,1);:.25,97,lenf|
00016f60  25 3b 34 34 3b 0d 09 45  76 e7 28 73 61 76 65 25  |%;44;..Ev.(save%|
00016f70  80 a4 69 73 73 65 6c 65  63 74 65 64 28 73 61 61  |..isselected(saa|
00016f80  6e 69 6d 77 25 2c 34 29  29 84 28 ac 73 61 76 65  |nimw%,4)).(.save|
00016f90  25 80 a4 69 73 73 65 6c  65 63 74 65 64 28 70 72  |%..isselected(pr|
00016fa0  61 6e 69 6d 77 25 2c 30  29 29 3a c8 99 22 57 69  |animw%,0)):.."Wi|
00016fb0  6d 70 5f 53 65 74 43 6f  6c 6f 75 72 22 2c 69 6e  |mp_SetColour",in|
00016fc0  63 6f 6c 25 3a 8b 3a c8  99 22 57 69 6d 70 5f 53  |col%:.:.."Wimp_S|
00016fd0  65 74 43 6f 6c 6f 75 72  22 2c 30 0d 09 46 45 ef  |etColour",0..FE.|
00016fe0  32 35 2c 34 2c 61 6e 69  6d 62 6f 78 25 28 69 63  |25,4,animbox%(ic|
00016ff0  6e 6f 25 2c 30 29 2b 34  3b 61 6e 69 6d 62 6f 78  |no%,0)+4;animbox|
00017000  25 28 69 63 6e 6f 25 2c  31 29 2b 34 3b 3a ef 32  |%(icno%,1)+4;:.2|
00017010  35 2c 39 37 2c 6c 65 6e  66 25 2d 38 3b 33 36 3b  |5,97,lenf%-8;36;|
00017020  0d 09 47 1b c8 99 22 57  69 6d 70 5f 53 65 74 43  |..G..."Wimp_SetC|
00017030  6f 6c 6f 75 72 22 2c 37  3a ef 35 0d 09 48 4b ef  |olour",7:.5..HK.|
00017040  32 35 2c 34 2c 61 6e 69  6d 62 6f 78 25 28 69 63  |25,4,animbox%(ic|
00017050  6e 6f 25 2c 30 29 2b 28  28 6c 65 6e 66 25 2d 28  |no%,0)+((lenf%-(|
00017060  a9 28 69 63 73 74 24 29  2a 31 36 29 29 2f 32 29  |.(icst$)*16))/2)|
00017070  3b 61 6e 69 6d 62 6f 78  25 28 69 63 6e 6f 25 2c  |;animbox%(icno%,|
00017080  31 29 2b 33 36 3b 0d 09  49 13 e7 77 6f 72 64 73  |1)+36;..I..words|
00017090  25 3a f1 20 69 63 73 74  24 0d 09 4a 06 ef 34 0d  |%:. icst$..J..4.|
000170a0  09 4b 05 e1 0d 09 4c 04  0d 09 4d 17 dd f2 73 75  |.K....L...M...su|
000170b0  62 6d 65 6e 75 28 6d 25  2c 69 25 2c 68 25 29 0d  |bmenu(m%,i%,h%).|
000170c0  09 4e 16 6d 25 2b 3d 32  38 2b 28 28 69 25 2d 31  |.N.m%+=28+((i%-1|
000170d0  29 2a 32 34 29 0d 09 4f  0b 6d 25 21 34 3d 68 25  |)*24)..O.m%!4=h%|
000170e0  0d 09 50 05 e1 0d 09 51  04 0d 09 52 14 dd f2 73  |..P....Q...R...s|
000170f0  65 74 61 6e 69 6d 73 70  72 6e 61 6d 65 0d 09 53  |etanimsprname..S|
00017100  21 73 70 24 3d a4 67 65  74 69 63 6e 73 74 72 69  |!sp$=.geticnstri|
00017110  6e 67 28 73 61 61 6e 69  6d 77 25 2c 31 29 0d 09  |ng(saanimw%,1)..|
00017120  54 22 73 70 24 3d c0 73  70 24 2c a9 28 73 70 24  |T"sp$=.sp$,.(sp$|
00017130  29 2d a9 28 a4 6c 65 61  66 28 73 70 24 29 29 29  |)-.(.leaf(sp$)))|
00017140  0d 09 55 12 e7 20 61 63  74 69 76 65 77 25 3d 32  |..U.. activew%=2|
00017150  20 8c 0d 09 56 14 20 c8  8e 20 61 63 74 69 76 65  | ...V. .. active|
00017160  69 63 6e 25 20 ca 0d 09  57 17 20 20 c9 20 31 3a  |icn% ...W.  . 1:|
00017170  20 73 70 24 2b 3d 22 74  6f 6f 74 68 22 0d 09 58  | sp$+="tooth"..X|
00017180  18 20 20 c9 20 34 3a 20  73 70 24 2b 3d 22 74 6f  |.  . 4: sp$+="to|
00017190  6e 67 75 65 22 0d 09 59  1c 20 20 c9 20 36 3a 20  |ngue"..Y.  . 6: |
000171a0  73 70 24 2b 3d 22 73 6b  69 6e 6e 65 72 76 65 73  |sp$+="skinnerves|
000171b0  22 0d 09 5a 1b 20 20 c9  20 37 3a 20 73 70 24 2b  |"..Z.  . 7: sp$+|
000171c0  3d 22 63 69 72 63 75 6c  61 74 65 22 0d 09 5b 1b  |="circulate"..[.|
000171d0  20 20 c9 20 38 3a 20 73  70 24 2b 3d 22 62 6f 6e  |  . 8: sp$+="bon|
000171e0  65 63 6c 6f 73 65 22 0d  09 5c 19 20 20 c9 20 39  |eclose"..\.  . 9|
000171f0  3a 20 73 70 24 2b 3d 22  6e 65 70 68 72 6f 6e 22  |: sp$+="nephron"|
00017200  0d 09 5d 1a 20 20 c9 20  31 33 3a 20 73 70 24 2b  |..].  . 13: sp$+|
00017210  3d 22 61 6c 76 65 6f 6c  69 22 0d 09 5e 17 20 20  |="alveoli"..^.  |
00017220  c9 20 31 34 3a 20 73 70  24 2b 3d 22 62 61 62 79  |. 14: sp$+="baby|
00017230  22 0d 09 5f 18 20 20 c9  20 31 37 3a 20 73 70 24  |".._.  . 17: sp$|
00017240  2b 3d 22 76 69 6c 6c 69  22 0d 09 60 18 20 20 c9  |+="villi"..`.  .|
00017250  20 31 39 3a 20 73 70 24  2b 3d 22 6f 76 61 72 79  | 19: sp$+="ovary|
00017260  22 0d 09 61 19 20 20 c9  20 32 30 3a 20 73 70 24  |"..a.  . 20: sp$|
00017270  2b 3d 22 74 65 73 74 69  73 22 0d 09 62 1d 20 20  |+="testis"..b.  |
00017280  c9 20 32 31 3a 20 73 70  24 2b 3d 22 69 6e 6e 65  |. 21: sp$+="inne|
00017290  72 65 61 72 78 73 22 0d  09 63 06 20 cb 0d 09 64  |rearxs"..c. ...d|
000172a0  05 cc 0d 09 65 14 20 c8  8e 20 61 63 74 69 76 65  |....e. .. active|
000172b0  69 63 6e 25 20 ca 0d 09  66 3a 20 20 c9 20 33 3a  |icn% ...f:  . 3:|
000172c0  20 e7 61 63 74 69 76 65  77 25 3d 30 3a 73 70 24  | .activew%=0:sp$|
000172d0  2b 3d 22 70 69 74 75 69  74 61 72 79 22 3a 8b 3a  |+="pituitary":.:|
000172e0  73 70 24 2b 3d 22 70 69  74 75 69 74 62 69 67 22  |sp$+="pituitbig"|
000172f0  0d 09 67 3b 20 20 c9 20  34 3a 20 e7 61 63 74 69  |..g;  . 4: .acti|
00017300  76 65 77 25 3d 30 3a 73  70 24 2b 3d 22 6e 6f 73  |vew%=0:sp$+="nos|
00017310  65 74 6f 6e 67 75 65 22  3a 8b 3a 73 70 24 2b 3d  |etongue":.:sp$+=|
00017320  22 6e 6f 73 65 63 6c 6f  73 65 22 0d 09 68 33 20  |"noseclose"..h3 |
00017330  20 c9 20 36 3a 20 e7 61  63 74 69 76 65 77 25 3d  | . 6: .activew%=|
00017340  30 3a 73 70 24 2b 3d 22  61 72 6d 73 6b 69 6e 22  |0:sp$+="armskin"|
00017350  3a 8b 3a 73 70 24 2b 3d  22 73 6b 69 6e 22 0d 09  |:.:sp$+="skin"..|
00017360  69 31 20 20 c9 20 31 34  3a 20 e7 61 63 74 69 76  |i1  . 14: .activ|
00017370  65 77 25 3d 30 3a 73 70  24 2b 3d 22 73 65 78 22  |ew%=0:sp$+="sex"|
00017380  3a 8b 3a 73 70 24 2b 3d  22 73 65 78 78 73 22 0d  |:.:sp$+="sexxs".|
00017390  09 6a 37 20 20 c9 20 31  39 3a 20 e7 61 63 74 69  |.j7  . 19: .acti|
000173a0  76 65 77 25 3d 30 3a 73  70 24 2b 3d 22 66 65 6d  |vew%=0:sp$+="fem|
000173b0  61 6c 65 22 3a 8b 3a 73  70 24 2b 3d 22 66 65 6d  |ale":.:sp$+="fem|
000173c0  61 6c 65 78 73 22 0d 09  6b 33 20 20 c9 20 32 30  |alexs"..k3  . 20|
000173d0  3a 20 e7 61 63 74 69 76  65 77 25 3d 30 3a 73 70  |: .activew%=0:sp|
000173e0  24 2b 3d 22 6d 61 6c 65  22 3a 8b 3a 73 70 24 2b  |$+="male":.:sp$+|
000173f0  3d 22 6d 61 6c 65 78 73  22 0d 09 6c 34 20 20 c9  |="malexs"..l4  .|
00017400  20 32 31 3a 20 e7 61 63  74 69 76 65 77 25 3d 30  | 21: .activew%=0|
00017410  3a 73 70 24 2b 3d 22 65  61 72 22 3a 8b 3a 73 70  |:sp$+="ear":.:sp|
00017420  24 2b 3d 22 69 6e 6e 65  72 65 61 72 22 0d 09 6d  |$+="innerear"..m|
00017430  37 20 20 c9 20 32 34 3a  20 e7 61 63 74 69 76 65  |7  . 24: .active|
00017440  77 25 3d 30 3a 73 70 24  2b 3d 22 73 6b 69 6e 22  |w%=0:sp$+="skin"|
00017450  3a 8b 3a 73 70 24 2b 3d  22 73 77 65 61 74 67 6c  |:.:sp$+="sweatgl|
00017460  61 6e 64 22 0d 09 6e 3c  20 20 7f 20 3a 20 73 70  |and"..n<  . : sp|
00017470  24 2b 3d 61 6e 69 6d 66  69 6c 65 24 28 61 63 74  |$+=animfile$(act|
00017480  69 76 65 69 63 6e 25 2c  30 29 3a e7 61 63 74 69  |iveicn%,0):.acti|
00017490  76 65 77 25 3d 31 3a 73  70 24 2b 3d 22 78 73 22  |vew%=1:sp$+="xs"|
000174a0  0d 09 6f 06 20 cb 0d 09  70 05 cd 0d 09 71 21 f2  |..o. ...p....q!.|
000174b0  70 75 74 69 63 6e 73 74  72 69 6e 67 28 73 61 61  |puticnstring(saa|
000174c0  6e 69 6d 77 25 2c 31 2c  73 70 24 29 0d 09 72 05  |nimw%,1,sp$)..r.|
000174d0  e1 0d 09 73 04 0d 09 74  14 dd f2 73 65 74 61 6e  |...s...t...setan|
000174e0  69 6d 74 78 74 6e 61 6d  65 0d 09 75 20 73 70 24  |imtxtname..u sp$|
000174f0  3d a4 67 65 74 69 63 6e  73 74 72 69 6e 67 28 65  |=.geticnstring(e|
00017500  64 62 6f 78 77 25 2c 32  29 0d 09 76 22 73 70 24  |dboxw%,2)..v"sp$|
00017510  3d c0 73 70 24 2c a9 28  73 70 24 29 2d a9 28 a4  |=.sp$,.(sp$)-.(.|
00017520  6c 65 61 66 28 73 70 24  29 29 29 0d 09 77 13 c8  |leaf(sp$)))..w..|
00017530  8e 20 61 63 74 69 76 65  69 63 6e 25 20 ca 0d 09  |. activeicn% ...|
00017540  78 17 20 c9 20 33 3a 20  73 70 24 2b 3d 22 70 69  |x. . 3: sp$+="pi|
00017550  74 75 69 74 22 0d 09 79  18 20 c9 20 34 3a 20 73  |tuit"..y. . 4: s|
00017560  70 24 2b 3d 22 6e 6f 73  65 74 6f 6e 22 0d 09 7a  |p$+="noseton"..z|
00017570  16 20 c9 20 31 34 3a 20  73 70 24 2b 3d 22 62 61  |. . 14: sp$+="ba|
00017580  62 79 22 0d 09 7b 17 20  c9 20 31 37 3a 20 73 70  |by"..{. . 17: sp|
00017590  24 2b 3d 22 73 6d 69 6e  74 22 0d 09 7c 17 20 c9  |$+="smint"..|. .|
000175a0  20 31 38 3a 20 73 70 24  2b 3d 22 6c 67 69 6e 74  | 18: sp$+="lgint|
000175b0  22 0d 09 7d 18 20 c9 20  31 39 3a 20 73 70 24 2b  |"..}. . 19: sp$+|
000175c0  3d 22 66 65 6d 61 6c 65  22 0d 09 7e 16 20 c9 20  |="female"..~. . |
000175d0  32 30 3a 20 73 70 24 2b  3d 22 6d 61 6c 65 22 0d  |20: sp$+="male".|
000175e0  09 7f 24 20 7f 3a 20 73  70 24 2b 3d 61 6e 69 6d  |..$ .: sp$+=anim|
000175f0  66 69 6c 65 24 28 61 63  74 69 76 65 69 63 6e 25  |file$(activeicn%|
00017600  2c 30 29 0d 09 80 05 cb  0d 09 81 26 f2 70 75 74  |,0)........&.put|
00017610  69 63 6e 73 74 72 69 6e  67 28 65 64 62 6f 78 77  |icnstring(edboxw|
00017620  25 2c 32 2c 73 70 24 2b  22 74 78 74 22 29 0d 09  |%,2,sp$+"txt")..|
00017630  82 05 e1 0d 09 83 04 0d  09 84 14 dd f2 73 65 74  |.............set|
00017640  64 65 66 6e 74 78 74 6e  61 6d 65 0d 09 85 20 73  |defntxtname... s|
00017650  70 24 3d a4 67 65 74 69  63 6e 73 74 72 69 6e 67  |p$=.geticnstring|
00017660  28 65 64 62 6f 78 77 25  2c 32 29 0d 09 86 22 73  |(edboxw%,2)..."s|
00017670  70 24 3d c0 73 70 24 2c  a9 28 73 70 24 29 2d a9  |p$=.sp$,.(sp$)-.|
00017680  28 a4 6c 65 61 66 28 73  70 24 29 29 29 0d 09 87  |(.leaf(sp$)))...|
00017690  2c f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 65  |,.puticnstring(e|
000176a0  64 62 6f 78 77 25 2c 32  2c 73 70 24 2b 22 73 79  |dboxw%,2,sp$+"sy|
000176b0  73 74 65 6d 74 78 74 22  29 0d 09 88 05 e1 0d 09  |stemtxt").......|
000176c0  89 04 0d 09 8a 1f dd f2  63 68 61 6e 67 65 73 61  |........changesa|
000176d0  70 72 65 78 74 65 6e 74  28 77 25 2c 73 69 7a 25  |prextent(w%,siz%|
000176e0  29 0d 09 8b 2d 21 62 6c  6b 25 3d 30 3a 62 6c 6b  |)...-!blk%=0:blk|
000176f0  25 21 34 3d 2d 73 69 7a  25 3a 62 6c 6b 25 21 38  |%!4=-siz%:blk%!8|
00017700  3d 35 36 30 3a 62 6c 6b  25 21 31 32 3d 30 0d 09  |=560:blk%!12=0..|
00017710  8c 1e c8 99 22 57 69 6d  70 5f 53 65 74 45 78 74  |...."Wimp_SetExt|
00017720  65 6e 74 22 2c 77 25 2c  62 6c 6b 25 0d 09 8d 05  |ent",w%,blk%....|
00017730  e1 0d 09 8e 04 0d 09 8f  19 dd f2 64 65 66 6e 77  |...........defnw|
00017740  5f 6d 65 6e 75 28 6d 78  25 2c 6d 79 25 29 0d 09  |_menu(mx%,my%)..|
00017750  90 13 f2 73 65 74 64 65  66 6e 74 78 74 6e 61 6d  |...setdefntxtnam|
00017760  65 0d 09 91 30 f2 63 72  65 61 74 65 5f 6d 65 6e  |e...0.create_men|
00017770  75 28 6d 65 6e 75 25 2c  22 42 6f 64 79 57 69 73  |u(menu%,"BodyWis|
00017780  65 22 2c 22 37 53 61 76  65 20 74 65 78 74 2c 22  |e","7Save text,"|
00017790  29 0d 09 92 1d f2 73 75  62 6d 65 6e 75 28 6d 65  |).....submenu(me|
000177a0  6e 75 25 2c 31 2c 65 64  62 6f 78 77 25 29 0d 09  |nu%,1,edboxw%)..|
000177b0  93 2a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.*.. "Wimp_Creat|
000177c0  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 6d 78  |eMenu",,menu%,mx|
000177d0  25 2d 36 34 2c 6d 79 25  0d 09 94 10 63 75 72 72  |%-64,my%....curr|
000177e0  6d 65 6e 75 25 3d 2d 34  0d 09 95 05 e1 0d 09 96  |menu%=-4........|
000177f0  04 0d 09 97 19 dd f2 61  6e 69 6d 77 5f 6d 65 6e  |.......animw_men|
00017800  75 28 6d 78 25 2c 6d 79  25 29 0d 09 98 2f 21 62  |u(mx%,my%).../!b|
00017810  6c 6b 25 3d 73 61 61 6e  69 6d 77 25 3a c8 99 20  |lk%=saanimw%:.. |
00017820  22 57 69 6d 70 5f 44 65  6c 65 74 65 57 69 6e 64  |"Wimp_DeleteWind|
00017830  6f 77 22 2c 2c 62 6c 6b  25 0d 09 99 33 c8 99 20  |ow",,blk%...3.. |
00017840  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00017850  6f 77 22 2c 2c 77 70 74  72 6c 69 73 74 25 21 35  |ow",,wptrlist%!5|
00017860  36 20 b8 20 73 61 61 6e  69 6d 77 25 0d 09 9a 2f  |6 . saanimw%.../|
00017870  21 62 6c 6b 25 3d 70 72  61 6e 69 6d 77 25 3a c8  |!blk%=pranimw%:.|
00017880  99 20 22 57 69 6d 70 5f  44 65 6c 65 74 65 57 69  |. "Wimp_DeleteWi|
00017890  6e 64 6f 77 22 2c 2c 62  6c 6b 25 0d 09 9b 33 c8  |ndow",,blk%...3.|
000178a0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000178b0  6e 64 6f 77 22 2c 2c 77  70 74 72 6c 69 73 74 25  |ndow",,wptrlist%|
000178c0  21 36 30 20 b8 20 70 72  61 6e 69 6d 77 25 0d 09  |!60 . pranimw%..|
000178d0  9c 23 f2 73 65 74 61 6e  69 6d 73 70 72 6e 61 6d  |.#.setanimsprnam|
000178e0  65 3a f2 73 65 74 61 6e  69 6d 74 78 74 6e 61 6d  |e:.setanimtxtnam|
000178f0  65 0d 09 9d 11 e7 ac 64  6f 69 6e 67 6d 6f 76 65  |e......doingmove|
00017900  25 8c 0d 09 9e 9d 20 e7  a4 69 73 73 65 6c 65 63  |%..... ..isselec|
00017910  74 65 64 28 61 6e 69 6d  77 25 2c 30 29 3a f2 63  |ted(animw%,0):.c|
00017920  68 61 6e 67 65 73 61 70  72 65 78 74 65 6e 74 28  |hangesaprextent(|
00017930  70 72 61 6e 69 6d 77 25  2c 31 37 36 29 3a f2 63  |pranimw%,176):.c|
00017940  68 61 6e 67 65 73 61 70  72 65 78 74 65 6e 74 28  |hangesaprextent(|
00017950  73 61 61 6e 69 6d 77 25  2c 33 33 32 29 3a 8b 3a  |saanimw%,332):.:|
00017960  f2 63 68 61 6e 67 65 73  61 70 72 65 78 74 65 6e  |.changesaprexten|
00017970  74 28 70 72 61 6e 69 6d  77 25 2c 31 32 34 29 3a  |t(pranimw%,124):|
00017980  f2 63 68 61 6e 67 65 73  61 70 72 65 78 74 65 6e  |.changesaprexten|
00017990  74 28 73 61 61 6e 69 6d  77 25 2c 32 38 30 29 0d  |t(saanimw%,280).|
000179a0  09 9f 05 cc 0d 09 a0 24  20 f2 63 68 61 6e 67 65  |.......$ .change|
000179b0  73 61 70 72 65 78 74 65  6e 74 28 73 61 61 6e 69  |saprextent(saani|
000179c0  6d 77 25 2c 31 37 32 29  0d 09 a1 05 cd 0d 09 a2  |mw%,172)........|
000179d0  8f e7 a4 69 73 73 65 6c  65 63 74 65 64 28 61 6e  |...isselected(an|
000179e0  69 6d 77 25 2c 30 29 3a  f2 63 72 65 61 74 65 5f  |imw%,0):.create_|
000179f0  6d 65 6e 75 28 6d 65 6e  75 25 2c 22 42 6f 64 79  |menu(menu%,"Body|
00017a00  57 69 73 65 22 2c 22 53  61 76 65 2c 31 50 72 69  |Wise","Save,1Pri|
00017a10  6e 74 2c 37 53 61 76 65  20 74 65 78 74 2c 22 29  |nt,7Save text,")|
00017a20  3a 8b 3a f2 63 72 65 61  74 65 5f 6d 65 6e 75 28  |:.:.create_menu(|
00017a30  6d 65 6e 75 25 2c 22 42  6f 64 79 57 69 73 65 22  |menu%,"BodyWise"|
00017a40  2c 22 53 61 76 65 2c 31  50 72 69 6e 74 2c 37 38  |,"Save,1Print,78|
00017a50  53 61 76 65 20 74 65 78  74 2c 22 29 0d 09 a3 60  |Save text,")...`|
00017a60  f2 73 75 62 6d 65 6e 75  28 6d 65 6e 75 25 2c 31  |.submenu(menu%,1|
00017a70  2c 73 61 61 6e 69 6d 77  25 29 3a f2 73 75 62 6d  |,saanimw%):.subm|
00017a80  65 6e 75 28 6d 65 6e 75  25 2c 33 2c 65 64 62 6f  |enu(menu%,3,edbo|
00017a90  78 77 25 29 3a e7 ac 64  6f 69 6e 67 6d 6f 76 65  |xw%):..doingmove|
00017aa0  25 3a f2 73 75 62 6d 65  6e 75 28 6d 65 6e 75 25  |%:.submenu(menu%|
00017ab0  2c 32 2c 70 72 61 6e 69  6d 77 25 29 0d 09 a4 2a  |,2,pranimw%)...*|
00017ac0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00017ad0  65 6e 75 22 2c 2c 6d 65  6e 75 25 2c 6d 78 25 2d  |enu",,menu%,mx%-|
00017ae0  36 34 2c 6d 79 25 0d 09  a5 10 63 75 72 72 6d 65  |64,my%....currme|
00017af0  6e 75 25 3d 2d 33 0d 09  a6 05 e1 0d 09 a7 04 0d  |nu%=-3..........|
00017b00  09 a8 19 dd f2 62 6f 64  79 77 5f 6d 65 6e 75 28  |.....bodyw_menu(|
00017b10  6d 78 25 2c 6d 79 25 29  0d 09 a9 2f 21 62 6c 6b  |mx%,my%).../!blk|
00017b20  25 3d 73 61 62 6f 64 79  77 25 3a c8 99 20 22 57  |%=sabodyw%:.. "W|
00017b30  69 6d 70 5f 44 65 6c 65  74 65 57 69 6e 64 6f 77  |imp_DeleteWindow|
00017b40  22 2c 2c 62 6c 6b 25 0d  09 aa 33 c8 99 20 22 57  |",,blk%...3.. "W|
00017b50  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00017b60  22 2c 2c 77 70 74 72 6c  69 73 74 25 21 34 38 20  |",,wptrlist%!48 |
00017b70  b8 20 73 61 62 6f 64 79  77 25 0d 09 ab 2f 21 62  |. sabodyw%.../!b|
00017b80  6c 6b 25 3d 70 72 62 6f  64 79 77 25 3a c8 99 20  |lk%=prbodyw%:.. |
00017b90  22 57 69 6d 70 5f 44 65  6c 65 74 65 57 69 6e 64  |"Wimp_DeleteWind|
00017ba0  6f 77 22 2c 2c 62 6c 6b  25 0d 09 ac 33 c8 99 20  |ow",,blk%...3.. |
00017bb0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00017bc0  6f 77 22 2c 2c 77 70 74  72 6c 69 73 74 25 21 35  |ow",,wptrlist%!5|
00017bd0  32 20 b8 20 70 72 62 6f  64 79 77 25 0d 09 ad 65  |2 . prbodyw%...e|
00017be0  73 70 24 3d a4 67 65 74  69 63 6e 73 74 72 69 6e  |sp$=.geticnstrin|
00017bf0  67 28 73 61 62 6f 64 79  77 25 2c 31 29 3a 73 70  |g(sabodyw%,1):sp|
00017c00  24 3d c0 73 70 24 2c a9  28 73 70 24 29 2d a9 28  |$=.sp$,.(sp$)-.(|
00017c10  a4 6c 65 61 66 28 73 70  24 29 29 29 3a f2 70 75  |.leaf(sp$))):.pu|
00017c20  74 69 63 6e 73 74 72 69  6e 67 28 73 61 62 6f 64  |ticnstring(sabod|
00017c30  79 77 25 2c 31 2c 73 70  24 2b 22 62 6f 64 79 22  |yw%,1,sp$+"body"|
00017c40  29 0d 09 ae 15 e7 a4 69  73 6f 70 65 6e 28 6f 76  |)......isopen(ov|
00017c50  65 72 77 25 29 8c 0d 09  af 44 20 f2 63 68 61 6e  |erw%)....D .chan|
00017c60  67 65 73 61 70 72 65 78  74 65 6e 74 28 70 72 62  |gesaprextent(prb|
00017c70  6f 64 79 77 25 2c 31 32  34 29 3a f2 63 68 61 6e  |odyw%,124):.chan|
00017c80  67 65 73 61 70 72 65 78  74 65 6e 74 28 73 61 62  |gesaprextent(sab|
00017c90  6f 64 79 77 25 2c 32 38  30 29 0d 09 b0 05 cc 0d  |odyw%,280)......|
00017ca0  09 b1 98 20 e7 a4 6e 6f  5f 73 79 73 74 65 6d 73  |... ..no_systems|
00017cb0  5f 6f 6e 3d 31 3a f2 63  68 61 6e 67 65 73 61 70  |_on=1:.changesap|
00017cc0  72 65 78 74 65 6e 74 28  70 72 62 6f 64 79 77 25  |rextent(prbodyw%|
00017cd0  2c 31 37 36 29 3a f2 63  68 61 6e 67 65 73 61 70  |,176):.changesap|
00017ce0  72 65 78 74 65 6e 74 28  73 61 62 6f 64 79 77 25  |rextent(sabodyw%|
00017cf0  2c 33 33 32 29 3a 8b 3a  f2 63 68 61 6e 67 65 73  |,332):.:.changes|
00017d00  61 70 72 65 78 74 65 6e  74 28 70 72 62 6f 64 79  |aprextent(prbody|
00017d10  77 25 2c 31 32 34 29 3a  f2 63 68 61 6e 67 65 73  |w%,124):.changes|
00017d20  61 70 72 65 78 74 65 6e  74 28 73 61 62 6f 64 79  |aprextent(sabody|
00017d30  77 25 2c 32 38 30 29 0d  09 b2 05 cd 0d 09 b3 31  |w%,280)........1|
00017d40  f2 63 72 65 61 74 65 5f  6d 65 6e 75 28 6d 65 6e  |.create_menu(men|
00017d50  75 25 2c 22 42 6f 64 79  57 69 73 65 22 2c 22 53  |u%,"BodyWise","S|
00017d60  61 76 65 2c 37 50 72 69  6e 74 2c 22 29 0d 09 b4  |ave,7Print,")...|
00017d70  39 f2 73 75 62 6d 65 6e  75 28 6d 65 6e 75 25 2c  |9.submenu(menu%,|
00017d80  31 2c 73 61 62 6f 64 79  77 25 29 3a f2 73 75 62  |1,sabodyw%):.sub|
00017d90  6d 65 6e 75 28 6d 65 6e  75 25 2c 32 2c 70 72 62  |menu(menu%,2,prb|
00017da0  6f 64 79 77 25 29 0d 09  b5 2a c8 99 20 22 57 69  |odyw%)...*.. "Wi|
00017db0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00017dc0  6d 65 6e 75 25 2c 6d 78  25 2d 36 34 2c 6d 79 25  |menu%,mx%-64,my%|
00017dd0  0d 09 b6 10 63 75 72 72  6d 65 6e 75 25 3d 2d 32  |....currmenu%=-2|
00017de0  0d 09 b7 05 e1 0d 09 b8  04 0d 09 b9 22 dd f2 6d  |............"..m|
00017df0  61 73 74 65 72 5f 6d 65  6e 75 28 74 69 74 6c 65  |aster_menu(title|
00017e00  24 2c 6d 24 2c 78 25 2c  79 25 29 0d 09 ba 21 f2  |$,m$,x%,y%)...!.|
00017e10  63 72 65 61 74 65 5f 6d  65 6e 75 28 6d 65 6e 75  |create_menu(menu|
00017e20  25 2c 74 69 74 6c 65 24  2c 6d 24 29 0d 09 bb 1c  |%,title$,m$)....|
00017e30  f2 73 75 62 6d 65 6e 75  28 6d 65 6e 75 25 2c 31  |.submenu(menu%,1|
00017e40  2c 69 6e 66 6f 77 25 29  0d 09 bc 1f f4 50 52 4f  |,infow%).....PRO|
00017e50  43 73 75 62 6d 65 6e 75  28 6d 65 6e 75 25 2c 32  |Csubmenu(menu%,2|
00017e60  2c 6d 73 67 77 25 29 0d  09 bd 32 c8 99 20 22 57  |,msgw%)...2.. "W|
00017e70  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00017e80  2c 6d 65 6e 75 25 2c 78  25 2d 6d 65 6e 75 25 21  |,menu%,x%-menu%!|
00017e90  31 36 20 2f 20 32 2c 79  25 0d 09 be 10 63 75 72  |16 / 2,y%....cur|
00017ea0  72 6d 65 6e 75 25 3d 2d  31 0d 09 bf 05 e1 0d 09  |rmenu%=-1.......|
00017eb0  c0 04 0d 09 c1 1f dd f2  63 72 65 61 74 65 5f 6d  |........create_m|
00017ec0  65 6e 75 28 6d 25 2c 74  69 74 6c 65 24 2c 6d 24  |enu(m%,title$,m$|
00017ed0  29 0d 09 c2 0d ea 20 69  25 2c 6d 61 78 25 0d 09  |)..... i%,max%..|
00017ee0  c3 0e 24 6d 25 3d 74 69  74 6c 65 24 0d 09 c4 34  |..$m%=title$...4|
00017ef0  6d 25 3f 31 32 3d 37 3a  6d 25 3f 31 33 3d 32 3a  |m%?12=7:m%?13=2:|
00017f00  6d 25 3f 31 34 3d 37 3a  6d 25 3f 31 35 3d 30 3a  |m%?14=7:m%?15=0:|
00017f10  6d 25 21 32 30 3d 34 30  3a 6d 25 21 32 34 3d 30  |m%!20=40:m%!24=0|
00017f20  0d 09 c5 1d 69 25 3d 6d  25 2b 32 38 3a 6d 61 78  |....i%=m%+28:max|
00017f30  25 3d a9 28 74 69 74 6c  65 24 29 2d 32 0d 09 c6  |%=.(title$)-2...|
00017f40  05 f5 0d 09 c7 11 20 20  61 25 3d a7 6d 24 2c 22  |......  a%=.m$,"|
00017f50  2c 22 29 0d 09 c8 18 20  20 69 24 3d c0 6d 24 2c  |,")....  i$=.m$,|
00017f60  61 25 2d 31 29 3a 21 69  25 3d 30 0d 09 c9 14 20  |a%-1):!i%=0.... |
00017f70  20 f5 3a 6d 6f 72 65 63  6f 64 65 73 25 3d a3 0d  | .:morecodes%=..|
00017f80  09 ca 30 20 20 20 20 e7  c0 69 24 2c 31 29 3d 22  |..0    ..i$,1)="|
00017f90  30 22 20 21 69 25 3d 28  21 69 25 29 84 25 30 30  |0" !i%=(!i%).%00|
00017fa0  30 31 3a 6d 6f 72 65 63  6f 64 65 73 25 3d b9 0d  |01:morecodes%=..|
00017fb0  09 cb 30 20 20 20 20 e7  c0 69 24 2c 31 29 3d 22  |..0    ..i$,1)="|
00017fc0  31 22 20 21 69 25 3d 28  21 69 25 29 84 25 30 30  |1" !i%=(!i%).%00|
00017fd0  31 30 3a 6d 6f 72 65 63  6f 64 65 73 25 3d b9 0d  |10:morecodes%=..|
00017fe0  09 cc 30 20 20 20 20 e7  c0 69 24 2c 31 29 3d 22  |..0    ..i$,1)="|
00017ff0  32 22 20 21 69 25 3d 28  21 69 25 29 84 25 30 31  |2" !i%=(!i%).%01|
00018000  30 30 3a 6d 6f 72 65 63  6f 64 65 73 25 3d b9 0d  |00:morecodes%=..|
00018010  09 cd 30 20 20 20 20 e7  c0 69 24 2c 31 29 3d 22  |..0    ..i$,1)="|
00018020  33 22 20 21 69 25 3d 28  21 69 25 29 84 25 31 30  |3" !i%=(!i%).%10|
00018030  30 30 3a 6d 6f 72 65 63  6f 64 65 73 25 3d b9 0d  |00:morecodes%=..|
00018040  09 ce 34 20 20 20 20 e7  c0 69 24 2c 31 29 3d 22  |..4    ..i$,1)="|
00018050  37 22 20 21 69 25 3d 28  21 69 25 29 84 25 31 30  |7" !i%=(!i%).%10|
00018060  30 30 30 30 30 30 3a 6d  6f 72 65 63 6f 64 65 73  |000000:morecodes|
00018070  25 3d b9 0d 09 cf 43 20  20 20 20 e7 c0 69 24 2c  |%=....C    ..i$,|
00018080  31 29 3d 22 38 22 20 69  25 21 38 3d 26 30 37 34  |1)="8" i%!8=&074|
00018090  30 30 30 32 31 3a 69 24  3d c2 69 24 2c a9 28 69  |00021:i$=.i$,.(i|
000180a0  24 29 2d 31 29 3a 8b 3a  69 25 21 38 3d 26 30 37  |$)-1):.:i%!8=&07|
000180b0  30 30 30 30 32 31 0d 09  d0 24 20 20 20 20 e7 20  |000021...$    . |
000180c0  6d 6f 72 65 63 6f 64 65  73 25 20 69 24 3d c2 69  |morecodes% i$=.i|
000180d0  24 2c a9 28 69 24 29 2d  31 29 0d 09 d1 20 20 20  |$,.(i$)-1)...   |
000180e0  fd 20 ac 20 6d 6f 72 65  63 6f 64 65 73 25 3a 24  |. . morecodes%:$|
000180f0  28 69 25 2b 31 32 29 3d  69 24 0d 09 d2 23 20 20  |(i%+12)=i$...#  |
00018100  e7 20 28 a9 28 69 24 29  2b 31 29 3e 6d 61 78 25  |. (.(i$)+1)>max%|
00018110  20 6d 61 78 25 3d a9 28  69 24 29 2b 31 0d 09 d3  | max%=.(i$)+1...|
00018120  0d 20 20 69 25 21 34 3d  2d 31 0d 09 d4 14 20 20  |.  i%!4=-1....  |
00018130  6d 24 20 3d 20 c1 6d 24  2c 61 25 2b 31 29 0d 09  |m$ = .m$,a%+1)..|
00018140  d5 12 20 20 69 25 20 3d  20 69 25 20 2b 20 32 34  |..  i% = i% + 24|
00018150  0d 09 d6 0d fd 20 6d 24  20 3d 20 22 22 0d 09 d7  |..... m$ = ""...|
00018160  13 6d 25 21 31 36 20 3d  20 6d 61 78 25 2a 31 36  |.m%!16 = max%*16|
00018170  0d 09 d8 05 e1 0d 09 d9  04 0d 09 da 10 dd f2 6d  |...............m|
00018180  65 6e 75 73 65 6c 65 63  74 0d 09 db 23 c8 99 20  |enuselect...#.. |
00018190  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
000181a0  49 6e 66 6f 22 2c 2c 62  6c 6b 32 25 0d 09 dc 18  |Info",,blk2%....|
000181b0  63 75 72 72 6d 65 6e 75  62 75 74 25 3d 62 6c 6b  |currmenubut%=blk|
000181c0  32 25 21 38 0d 09 dd 12  c8 8e 20 63 75 72 72 6d  |2%!8...... currm|
000181d0  65 6e 75 25 20 ca 0d 09  de 0b 20 20 c9 20 2d 31  |enu% .....  . -1|
000181e0  3a 0d 09 df 11 20 20 20  20 c8 8e 20 21 65 62 25  |:....    .. !eb%|
000181f0  20 ca 0d 09 e0 1b 20 20  20 20 20 20 c9 20 30 3a  | .....      . 0:|
00018200  20 f2 63 68 65 63 6b 61  64 6a 75 73 74 0d 09 e1  | .checkadjust...|
00018210  28 20 20 20 20 20 20 c9  20 31 3a 20 f2 6f 70 65  |(      . 1: .ope|
00018220  6e 5f 73 65 74 75 70 77  3a f2 63 68 65 63 6b 61  |n_setupw:.checka|
00018230  64 6a 75 73 74 0d 09 e2  16 20 20 20 20 20 20 c9  |djust....      .|
00018240  20 32 3a 20 71 75 69 74  25 3d b9 0d 09 e3 09 20  | 2: quit%=..... |
00018250  20 20 20 cb 0d 09 e4 0b  20 20 c9 20 2d 32 3a 0d  |   .....  . -2:.|
00018260  09 e5 11 20 20 20 20 c8  8e 20 21 65 62 25 20 ca  |...    .. !eb% .|
00018270  0d 09 e6 1b 20 20 20 20  20 20 c9 20 30 3a 20 f2  |....      . 0: .|
00018280  63 68 65 63 6b 61 64 6a  75 73 74 0d 09 e7 1b 20  |checkadjust.... |
00018290  20 20 20 20 20 c9 20 31  3a 20 f2 63 68 65 63 6b  |     . 1: .check|
000182a0  61 64 6a 75 73 74 0d 09  e8 09 20 20 20 20 cb 0d  |adjust....    ..|
000182b0  09 e9 0b 20 20 c9 20 2d  33 3a 0d 09 ea 11 20 20  |...  . -3:....  |
000182c0  20 20 c8 8e 20 21 65 62  25 20 ca 0d 09 eb 1b 20  |  .. !eb% ..... |
000182d0  20 20 20 20 20 c9 20 30  3a 20 f2 63 68 65 63 6b  |     . 0: .check|
000182e0  61 64 6a 75 73 74 0d 09  ec 23 20 20 20 20 20 20  |adjust...#      |
000182f0  c9 20 31 3a 20 e7 64 6f  69 6e 67 6d 6f 76 65 25  |. 1: .doingmove%|
00018300  3a f2 70 72 69 6e 74 69  74 0d 09 ed 1e 20 20 20  |:.printit....   |
00018310  20 20 20 20 20 20 20 20  20 20 20 f2 63 68 65 63  |           .chec|
00018320  6b 61 64 6a 75 73 74 0d  09 ee 1b 20 20 20 20 20  |kadjust....     |
00018330  20 c9 20 32 3a 20 f2 63  68 65 63 6b 61 64 6a 75  | . 2: .checkadju|
00018340  73 74 0d 09 ef 09 20 20  20 20 cb 0d 09 f0 0b 20  |st....    ..... |
00018350  20 c9 20 2d 34 3a 0d 09  f1 11 20 20 20 20 c8 8e  | . -4:....    ..|
00018360  20 21 65 62 25 20 ca 0d  09 f2 1b 20 20 20 20 20  | !eb% .....     |
00018370  20 c9 20 30 3a 20 f2 63  68 65 63 6b 61 64 6a 75  | . 0: .checkadju|
00018380  73 74 0d 09 f3 09 20 20  20 20 cb 0d 09 f4 05 cb  |st....    ......|
00018390  0d 09 f5 05 e1 0d 09 f6  04 0d 09 f7 0d dd f2 70  |...............p|
000183a0  72 69 6e 74 69 74 0d 09  f8 1c c8 99 22 58 50 44  |rintit......"XPD|
000183b0  72 69 76 65 72 5f 49 6e  66 6f 22 20 b8 20 3b 66  |river_Info" . ;f|
000183c0  6c 25 0d 09 f9 58 e7 28  66 6c 25 80 25 31 29 3d  |l%...X.(fl%.%1)=|
000183d0  25 31 3a f2 65 72 72 6f  72 28 22 50 72 69 6e 74  |%1:.error("Print|
000183e0  65 72 20 61 70 70 6c 69  63 61 74 69 6f 6e 20 6d  |er application m|
000183f0  75 73 74 20 62 65 20 6c  6f 61 64 65 64 20 74 6f  |ust be loaded to|
00018400  20 70 72 69 6e 74 20 66  72 6f 6d 20 42 6f 64 79  | print from Body|
00018410  57 69 73 65 22 2c 30 29  3a e1 0d 09 fa 4c f4 49  |Wise",0):....L.I|
00018420  46 28 63 75 72 72 6d 65  6e 75 25 3d 2d 32 29 41  |F(currmenu%=-2)A|
00018430  4e 44 46 4e 69 73 6f 70  65 6e 28 73 79 73 74 77  |NDFNisopen(systw|
00018440  25 29 41 4e 44 28 46 4e  6e 6f 5f 73 79 73 74 65  |%)AND(FNno_syste|
00018450  6d 73 5f 6f 6e 3d 31 29  3a 50 52 4f 43 62 6f 64  |ms_on=1):PROCbod|
00018460  79 62 6f 78 65 73 0d 09  fb 27 e7 28 63 75 72 72  |yboxes...'.(curr|
00018470  6d 65 6e 75 25 3d 2d 32  29 3a f2 6d 61 6b 65 62  |menu%=-2):.makeb|
00018480  6f 64 79 66 6f 72 73 61  70 72 28 30 29 0d 09 fc  |odyforsapr(0)...|
00018490  3c f4 49 46 28 63 75 72  72 6d 65 6e 75 25 3d 2d  |<.IF(currmenu%=-|
000184a0  33 29 41 4e 44 46 4e 69  73 73 65 6c 65 63 74 65  |3)ANDFNisselecte|
000184b0  64 28 61 6e 69 6d 77 25  2c 30 29 3a 50 52 4f 43  |d(animw%,0):PROC|
000184c0  61 6e 69 6d 62 6f 78 65  73 0d 09 fd 14 e7 28 63  |animboxes.....(c|
000184d0  75 72 72 6d 65 6e 75 25  3d 2d 33 29 8c 0d 09 fe  |urrmenu%=-3)....|
000184e0  12 20 e7 ac 64 6f 69 6e  67 6d 6f 76 65 25 8c 0d  |. ..doingmove%..|
000184f0  09 ff 29 20 20 e7 a4 69  73 73 65 6c 65 63 74 65  |..)  ..isselecte|
00018500  64 28 70 72 61 6e 69 6d  77 25 2c 31 29 3a f2 67  |d(pranimw%,1):.g|
00018510  65 74 62 77 66 69 6c 65  0d 0a 00 19 20 20 f2 6d  |etbwfile....  .m|
00018520  61 6b 65 61 6e 69 6d 66  6f 72 73 61 70 72 28 30  |akeanimforsapr(0|
00018530  29 0d 0a 01 06 20 cd 0d  0a 02 05 cd 0d 0a 03 0c  |).... ..........|
00018540  f2 70 72 69 6e 74 65 72  0d 0a 04 90 f4 49 46 28  |.printer.....IF(|
00018550  63 75 72 72 6d 65 6e 75  25 3d 2d 33 29 41 4e 44  |currmenu%=-3)AND|
00018560  46 4e 69 73 73 65 6c 65  63 74 65 64 28 61 6e 69  |FNisselected(ani|
00018570  6d 77 25 2c 30 29 3a 50  52 4f 43 6d 61 6b 65 6f  |mw%,0):PROCmakeo|
00018580  72 67 61 6e 28 61 63 74  69 76 65 77 25 2c 61 63  |rgan(activew%,ac|
00018590  74 69 76 65 69 63 6e 25  29 3a 50 52 4f 43 61 64  |tiveicn%):PROCad|
000185a0  64 6c 69 6e 65 73 3a 50  52 4f 43 70 6c 6f 74 61  |dlines:PROCplota|
000185b0  6e 69 6d 3a 50 52 4f 43  61 64 64 6c 61 62 65 6c  |nim:PROCaddlabel|
000185c0  73 3a 50 52 4f 43 61 64  64 77 6f 72 64 73 28 61  |s:PROCaddwords(a|
000185d0  63 74 69 76 65 77 25 29  0d 0a 05 14 e7 28 63 75  |ctivew%).....(cu|
000185e0  72 72 6d 65 6e 75 25 3d  2d 33 29 8c 0d 0a 06 12  |rrmenu%=-3).....|
000185f0  20 e7 ac 64 6f 69 6e 67  6d 6f 76 65 25 8c 0d 0a  | ..doingmove%...|
00018600  07 8f 20 20 e7 a4 69 73  73 65 6c 65 63 74 65 64  |..  ..isselected|
00018610  28 70 72 61 6e 69 6d 77  25 2c 31 29 80 28 28 61  |(pranimw%,1).((a|
00018620  63 74 69 76 65 69 63 6e  25 3d 34 29 84 28 61 63  |ctiveicn%=4).(ac|
00018630  74 69 76 65 69 63 6e 25  3d 37 29 84 28 61 63 74  |tiveicn%=7).(act|
00018640  69 76 65 69 63 6e 25 3d  31 33 29 84 28 61 63 74  |iveicn%=13).(act|
00018650  69 76 65 69 63 6e 25 3d  31 34 29 84 28 61 63 74  |iveicn%=14).(act|
00018660  69 76 65 69 63 6e 25 3d  31 35 29 84 28 61 63 74  |iveicn%=15).(act|
00018670  69 76 65 69 63 6e 25 3d  31 37 29 84 28 61 63 74  |iveicn%=17).(act|
00018680  69 76 65 69 63 6e 25 3d  32 33 29 29 8c 0d 0a 08  |iveicn%=23))....|
00018690  6b 20 20 20 e7 59 25 3d  30 20 74 65 73 74 25 3d  |k   .Y%=0 test%=|
000186a0  30 3a f5 3a f2 66 6c 6f  70 70 79 5f 64 69 73 6b  |0:.:.floppy_disk|
000186b0  28 22 62 6f 64 79 77 69  73 65 22 2c 22 24 2e 21  |("bodywise","$.!|
000186c0  42 6f 64 79 77 69 73 65  2e 22 2b 61 6e 69 6d 66  |Bodywise."+animf|
000186d0  69 6c 65 24 28 61 63 74  69 76 65 69 63 6e 25 2c  |ile$(activeicn%,|
000186e0  30 29 2b 22 5f 63 22 2c  22 22 2c 22 22 29 3a fd  |0)+"_c","",""):.|
000186f0  65 72 72 6f 72 25 3d 30  0d 0a 09 59 20 20 20 c8  |error%=0...Y   .|
00018700  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00018710  26 31 30 41 2c 64 65 74  61 72 65 61 25 2c 22 3c  |&10A,detarea%,"<|
00018720  42 6f 64 79 57 69 73 65  24 63 68 61 69 6e 64 69  |BodyWise$chaindi|
00018730  72 3e 2e 22 2b 61 6e 69  6d 66 69 6c 65 24 28 61  |r>."+animfile$(a|
00018740  63 74 69 76 65 69 63 6e  25 2c 30 29 2b 22 5f 63  |ctiveicn%,0)+"_c|
00018750  22 0d 0a 0a 62 20 20 20  c8 99 20 22 58 4f 53 5f  |"...b   .. "XOS_|
00018760  53 70 72 69 74 65 4f 70  22 2c 26 31 31 39 2c 61  |SpriteOp",&119,a|
00018770  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 3a  |nimarea%,"anim":|
00018780  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00018790  2c 26 31 30 46 2c 61 6e  69 6d 61 72 65 61 25 2c  |,&10F,animarea%,|
000187a0  22 61 6e 69 6d 22 2c 31  2c 33 38 34 2c 31 35 34  |"anim",1,384,154|
000187b0  2c 31 32 0d 0a 0b 3b 20  20 20 f2 61 64 64 70 61  |,12...;   .addpa|
000187c0  6c 65 74 28 61 6e 69 6d  61 72 65 61 25 2c 22 61  |let(animarea%,"a|
000187d0  6e 69 6d 22 29 3a f2 6d  61 6b 65 73 70 72 69 74  |nim"):.makesprit|
000187e0  65 73 28 61 63 74 69 76  65 69 63 6e 25 29 0d 0a  |es(activeicn%)..|
000187f0  0c 07 20 20 cd 0d 0a 0d  25 20 20 f2 6d 61 6b 65  |..  ....%  .make|
00018800  6f 72 67 61 6e 28 61 63  74 69 76 65 77 25 2c 61  |organ(activew%,a|
00018810  63 74 69 76 65 69 63 6e  25 29 0d 0a 0e 52 20 20  |ctiveicn%)...R  |
00018820  e7 a4 69 73 73 65 6c 65  63 74 65 64 28 61 6e 69  |..isselected(ani|
00018830  6d 77 25 2c 30 29 3a f2  61 64 64 6c 69 6e 65 73  |mw%,0):.addlines|
00018840  28 30 29 3a f2 70 6c 6f  74 61 6e 69 6d 3a f2 61  |(0):.plotanim:.a|
00018850  64 64 6c 61 62 65 6c 73  3a f2 61 64 64 77 6f 72  |ddlabels:.addwor|
00018860  64 73 28 61 63 74 69 76  65 77 25 29 0d 0a 0f 06  |ds(activew%)....|
00018870  20 cd 0d 0a 10 05 cd 0d  0a 11 14 e7 28 63 75 72  | ...........(cur|
00018880  72 6d 65 6e 75 25 3d 2d  32 29 8c 0d 0a 12 33 20  |rmenu%=-2)....3 |
00018890  e7 a4 69 73 6f 70 65 6e  28 73 79 73 74 77 25 29  |..isopen(systw%)|
000188a0  3a f2 70 6c 6f 74 62 6f  64 79 73 79 73 74 3a 8b  |:.plotbodysyst:.|
000188b0  3a f2 70 6c 6f 74 62 6f  64 79 6f 72 67 73 0d 0a  |:.plotbodyorgs..|
000188c0  13 05 cd 0d 0a 14 4f f4  49 46 28 63 75 72 72 6d  |......O.IF(currm|
000188d0  65 6e 75 25 3d 2d 32 29  41 4e 44 46 4e 69 73 6f  |enu%=-2)ANDFNiso|
000188e0  70 65 6e 28 73 79 73 74  77 25 29 41 4e 44 28 46  |pen(systw%)AND(F|
000188f0  4e 6e 6f 5f 73 79 73 74  65 6d 73 5f 6f 6e 3d 31  |Nno_systems_on=1|
00018900  29 3a 50 52 4f 43 70 6c  6f 74 62 6f 64 79 73 79  |):PROCplotbodysy|
00018910  73 74 0d 0a 15 05 e1 0d  0a 16 04 0d 0a 17 0d dd  |st..............|
00018920  f2 70 72 69 6e 74 65 72  0d 0a 18 07 ef 32 36 0d  |.printer.....26.|
00018930  0a 19 09 c8 91 30 2c 30  0d 0a 1a 30 53 43 41 4c  |.....0,0...0SCAL|
00018940  45 25 21 30 3d 31 3a 53  43 41 4c 45 25 21 34 3d  |E%!0=1:SCALE%!4=|
00018950  31 3a 53 43 41 4c 45 25  21 38 3d 31 3a 53 43 41  |1:SCALE%!8=1:SCA|
00018960  4c 45 25 21 31 32 3d 31  0d 0a 1b 0a ea 46 25 2c  |LE%!12=1.....F%,|
00018970  45 25 0d 0a 1c 14 46 25  3d ae 28 22 70 72 69 6e  |E%....F%=.("prin|
00018980  74 65 72 3a 22 29 0d 0a  1d 07 ea 20 85 0d 0a 1e  |ter:")..... ....|
00018990  3f f4 4f 4e 45 52 52 4f  52 4c 4f 43 41 4c 3a 52  |?.ONERRORLOCAL:R|
000189a0  45 53 54 4f 52 45 20 45  52 52 4f 52 3a 43 4c 4f  |ESTORE ERROR:CLO|
000189b0  53 45 23 46 25 3a 4f 53  43 4c 49 22 46 58 32 32  |SE#F%:OSCLI"FX22|
000189c0  39 2c 30 22 3a 45 4e 44  50 52 4f 43 0d 0a 1f 4d  |9,0":ENDPROC...M|
000189d0  ee 85 ea 3a f7 20 85 3a  d9 23 46 25 3a ff 22 46  |...:. .:.#F%:."F|
000189e0  58 32 32 39 2c 30 22 3a  f2 65 72 72 6f 72 28 f6  |X229,0":.error(.|
000189f0  24 2b 22 20 28 49 6e 74  65 72 6e 61 6c 20 65 72  |$+" (Internal er|
00018a00  72 6f 72 20 63 6f 64 65  20 22 2b c3 9e 2b 22 29  |ror code "+..+")|
00018a10  22 2b bd 30 2c 9f 29 3a  e1 0d 0a 20 20 c8 99 22  |"+.0,.):...  .."|
00018a20  50 44 72 69 76 65 72 5f  53 65 6c 65 63 74 4a 6f  |PDriver_SelectJo|
00018a30  62 22 2c 46 25 2c 30 2c  30 0d 0a 21 07 ea 20 85  |b",F%,0,0..!.. .|
00018a40  0d 0a 22 72 f4 4f 4e 45  52 52 4f 52 4c 4f 43 41  |.."r.ONERRORLOCA|
00018a50  4c 3a 52 45 53 54 4f 52  45 20 45 52 52 4f 52 3a  |L:RESTORE ERROR:|
00018a60  53 59 53 22 50 44 72 69  76 65 72 5f 41 62 6f 72  |SYS"PDriver_Abor|
00018a70  74 4a 6f 62 22 2c 46 25  3a 53 59 53 22 50 44 72  |tJob",F%:SYS"PDr|
00018a80  69 76 65 72 5f 53 65 6c  65 63 74 4a 6f 62 22 2c  |iver_SelectJob",|
00018a90  45 25 3a 43 4c 4f 53 45  23 46 25 3a 4f 53 43 4c  |E%:CLOSE#F%:OSCL|
00018aa0  49 22 46 58 32 32 39 2c  30 22 3a 45 4e 44 50 52  |I"FX229,0":ENDPR|
00018ab0  4f 43 0d 0a 23 7e ee 85  ea 3a f7 20 85 3a c8 99  |OC..#~...:. .:..|
00018ac0  22 50 44 72 69 76 65 72  5f 41 62 6f 72 74 4a 6f  |"PDriver_AbortJo|
00018ad0  62 22 2c 46 25 3a c8 99  22 50 44 72 69 76 65 72  |b",F%:.."PDriver|
00018ae0  5f 53 65 6c 65 63 74 4a  6f 62 22 2c 45 25 3a d9  |_SelectJob",E%:.|
00018af0  23 46 25 3a ff 22 46 58  32 32 39 2c 30 22 3a f2  |#F%:."FX229,0":.|
00018b00  65 72 72 6f 72 28 f6 24  2b 22 20 28 49 6e 74 65  |error(.$+" (Inte|
00018b10  72 6e 61 6c 20 65 72 72  6f 72 20 63 6f 64 65 20  |rnal error code |
00018b20  22 2b c3 9e 2b 22 29 22  2b bd 30 2c 9f 29 3a e1  |"+..+")"+.0,.):.|
00018b30  0d 0a 24 22 21 28 70 64  72 65 63 74 25 2b 30 29  |..$"!(pdrect%+0)|
00018b40  3d 30 3a 21 28 70 64 72  65 63 74 25 2b 34 29 3d  |=0:!(pdrect%+4)=|
00018b50  30 3a 0d 0a 25 5a e7 63  75 72 72 6d 65 6e 75 25  |0:..%Z.currmenu%|
00018b60  3d 2d 32 3a 21 28 70 64  72 65 63 74 25 2b 38 29  |=-2:!(pdrect%+8)|
00018b70  3d 36 32 34 3a 21 28 70  64 72 65 63 74 25 2b 31  |=624:!(pdrect%+1|
00018b80  32 29 3d 31 34 36 30 3a  8b 3a 21 28 70 64 72 65  |2)=1460:.:!(pdre|
00018b90  63 74 25 2b 38 29 3d 37  36 38 3a 21 28 70 64 72  |ct%+8)=768:!(pdr|
00018ba0  65 63 74 25 2b 31 32 29  3d 36 31 36 0d 0a 26 4c  |ect%+12)=616..&L|
00018bb0  21 28 70 64 74 72 61 6e  73 25 2b 30 29 3d 31 3c  |!(pdtrans%+0)=1<|
00018bc0  3c 31 36 3a 21 28 70 64  74 72 61 6e 73 25 2b 34  |<16:!(pdtrans%+4|
00018bd0  29 3d 30 3a 21 28 70 64  74 72 61 6e 73 25 2b 38  |)=0:!(pdtrans%+8|
00018be0  29 3d 30 3a 21 28 70 64  74 72 61 6e 73 25 2b 31  |)=0:!(pdtrans%+1|
00018bf0  32 29 3d 31 3c 3c 31 36  0d 0a 27 2c f4 21 28 70  |2)=1<<16..',.!(p|
00018c00  64 70 6c 6f 74 25 2b 30  29 3d 31 32 38 3c 3c 38  |dplot%+0)=128<<8|
00018c10  3a 21 28 70 64 70 6c 6f  74 25 2b 34 29 3d 35 31  |:!(pdplot%+4)=51|
00018c20  32 3c 3c 38 0d 0a 28 17  21 28 70 64 70 6c 6f 74  |2<<8..(.!(pdplot|
00018c30  25 2b 30 29 3d 31 32 38  3c 3c 38 0d 0a 29 2f c8  |%+0)=128<<8..)/.|
00018c40  99 22 50 44 72 69 76 65  72 5f 50 61 67 65 53 69  |."PDriver_PageSi|
00018c50  7a 65 22 20 b8 20 72 30  2c 72 31 2c 72 32 2c 72  |ze" . r0,r1,r2,r|
00018c60  33 2c 72 34 2c 72 35 2c  72 36 0d 0a 2a 2d c8 99  |3,r4,r5,r6..*-..|
00018c70  22 50 44 72 69 76 65 72  5f 53 65 74 50 61 67 65  |"PDriver_SetPage|
00018c80  53 69 7a 65 22 2c 2c 72  31 2c 72 32 2c 72 33 2c  |Size",,r1,r2,r3,|
00018c90  30 2c 72 35 2c 72 36 0d  0a 2b 41 e7 63 75 72 72  |0,r5,r6..+A.curr|
00018ca0  6d 65 6e 75 25 3d 2d 32  3a 21 28 70 64 70 6c 6f  |menu%=-2:!(pdplo|
00018cb0  74 25 2b 34 29 3d 72 36  2d 36 30 30 30 30 30 3a  |t%+4)=r6-600000:|
00018cc0  8b 3a 21 28 70 64 70 6c  6f 74 25 2b 34 29 3d 72  |.:!(pdplot%+4)=r|
00018cd0  36 2d 32 36 30 30 30 30  0d 0a 2c 2a e7 28 70 64  |6-260000..,*.(pd|
00018ce0  70 6c 6f 74 25 21 34 29  3c 28 35 31 32 3c 3c 38  |plot%!4)<(512<<8|
00018cf0  29 3a 70 64 70 6c 6f 74  25 21 34 3d 35 31 32 3c  |):pdplot%!4=512<|
00018d00  3c 38 0d 0a 2d 42 c8 99  22 50 44 72 69 76 65 72  |<8..-B.."PDriver|
00018d10  5f 47 69 76 65 52 65 63  74 61 6e 67 6c 65 22 2c  |_GiveRectangle",|
00018d20  30 2c 70 64 72 65 63 74  25 2c 70 64 74 72 61 6e  |0,pdrect%,pdtran|
00018d30  73 25 2c 70 64 70 6c 6f  74 25 2c 26 46 46 46 46  |s%,pdplot%,&FFFF|
00018d40  46 46 30 30 0d 0a 2e 1f  c8 99 20 22 4f 53 5f 53  |FF00...... "OS_S|
00018d50  70 72 69 74 65 4f 70 22  2c 26 31 33 43 2c 30 2c  |priteOp",&13C,0,|
00018d60  30 2c 31 0d 0a 2f 23 c8  99 22 43 6f 6c 6f 75 72  |0,1../#.."Colour|
00018d70  54 72 61 6e 73 5f 49 6e  76 61 6c 69 64 61 74 65  |Trans_Invalidate|
00018d80  43 61 63 68 65 22 0d 0a  30 35 c8 99 22 50 44 72  |Cache"..05.."PDr|
00018d90  69 76 65 72 5f 44 72 61  77 50 61 67 65 22 2c 31  |iver_DrawPage",1|
00018da0  2c 70 64 72 65 63 74 32  25 2c 30 2c 30 20 b8 20  |,pdrect2%,0,0 . |
00018db0  63 6f 70 69 65 73 6c 65  66 74 25 0d 0a 31 15 c8  |copiesleft%..1..|
00018dc0  95 20 63 6f 70 69 65 73  6c 65 66 74 25 3c 3e 30  |. copiesleft%<>0|
00018dd0  0d 0a 32 13 f2 70 64 5f  70 6c 6f 74 5f 73 63 72  |..2..pd_plot_scr|
00018de0  65 65 6e 0d 0a 33 34 c8  99 22 50 44 72 69 76 65  |een..34.."PDrive|
00018df0  72 5f 47 65 74 52 65 63  74 61 6e 67 6c 65 22 2c  |r_GetRectangle",|
00018e00  2c 70 64 72 65 63 74 32  25 20 b8 20 63 6f 70 69  |,pdrect2% . copi|
00018e10  65 73 6c 65 66 74 25 0d  0a 34 05 ce 0d 0a 35 19  |esleft%..4....5.|
00018e20  c8 99 22 50 44 72 69 76  65 72 5f 45 6e 64 4a 6f  |.."PDriver_EndJo|
00018e30  62 22 2c 46 25 0d 0a 36  07 f7 20 85 0d 0a 37 07  |b",F%..6.. ...7.|
00018e40  f7 20 85 0d 0a 38 08 d9  23 46 25 0d 0a 39 35 f4  |. ...8..#F%..95.|
00018e50  53 59 53 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |SYS"OS_SpriteOp"|
00018e60  2c 26 31 30 46 2c 41 52  45 41 25 2c 22 62 6c 61  |,&10F,AREA%,"bla|
00018e70  6e 6b 22 2c 30 2c 33 38  34 2c 31 39 32 2c 31 32  |nk",0,384,192,12|
00018e80  0d 0a 3a 0c 2a 46 58 32  32 39 2c 30 0d 0a 3b 05  |..:.*FX229,0..;.|
00018e90  e1 0d 0a 3c 04 0d 0a 3d  14 dd f2 70 64 5f 70 6c  |...<...=...pd_pl|
00018ea0  6f 74 5f 73 63 72 65 65  6e 0d 0a 3e 13 ea 79 25  |ot_screen..>..y%|
00018eb0  2c 70 25 2c 69 25 2c 66  25 2c 74 25 0d 0a 3f 0c  |,p%,i%,f%,t%..?.|
00018ec0  2a 46 58 32 32 39 2c 31  0d 0a 40 18 f4 46 4f 52  |*FX229,1..@..FOR|
00018ed0  79 25 3d 30 54 4f 37 36  38 53 54 45 50 32 35 36  |y%=0TO768STEP256|
00018ee0  0d 0a 41 17 f4 46 4f 52  79 25 3d 30 54 4f 38 36  |..A..FORy%=0TO86|
00018ef0  34 53 54 45 50 39 36 0d  0a 42 1f c8 99 22 50 44  |4STEP96..B..."PD|
00018f00  72 69 76 65 72 5f 53 65  6c 65 63 74 4a 6f 62 22  |river_SelectJob"|
00018f10  2c 30 2c 30 2c 30 0d 0a  43 4a f4 53 59 53 22 4f  |,0,0,0..CJ.SYS"O|
00018f20  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 31 30  |S_SpriteOp",&110|
00018f30  2c 41 52 45 41 25 2c 22  62 6c 61 6e 6b 22 2c 31  |,AREA%,"blank",1|
00018f40  2c 30 2c 79 25 2c 31 32  37 36 2c 79 25 2b 32 35  |,0,y%,1276,y%+25|
00018f50  36 20 54 4f 20 72 30 25  2c 72 31 25 2c 72 32 25  |6 TO r0%,r1%,r2%|
00018f60  0d 0a 44 49 f4 53 59 53  22 4f 53 5f 53 70 72 69  |..DI.SYS"OS_Spri|
00018f70  74 65 4f 70 22 2c 26 31  31 30 2c 41 52 45 41 25  |teOp",&110,AREA%|
00018f80  2c 22 62 6c 61 6e 6b 22  2c 31 2c 30 2c 79 25 2c  |,"blank",1,0,y%,|
00018f90  31 32 37 39 2c 79 25 2b  39 36 20 54 4f 20 72 30  |1279,y%+96 TO r0|
00018fa0  25 2c 72 31 25 2c 72 32  25 0d 0a 45 12 e7 63 75  |%,r1%,r2%..E..cu|
00018fb0  72 72 6d 65 6e 75 25 3d  2d 32 8c 0d 0a 46 37 c8  |rrmenu%=-2...F7.|
00018fc0  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00018fd0  31 31 38 2c 62 6f 64 79  61 72 65 61 25 2c 22 62  |118,bodyarea%,"b|
00018fe0  6f 64 79 22 20 b8 20 72  30 25 2c 72 31 25 2c 72  |ody" . r0%,r1%,r|
00018ff0  32 25 0d 0a 47 05 cc 0d  0a 48 37 c8 99 22 4f 53  |2%..G....H7.."OS|
00019000  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 38 2c  |_SpriteOp",&118,|
00019010  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
00019020  20 b8 20 72 30 25 2c 72  31 25 2c 72 32 25 0d 0a  | . r0%,r1%,r2%..|
00019030  49 05 cd 0d 0a 4a 30 53  43 41 4c 45 25 21 30 3d  |I....J0SCALE%!0=|
00019040  31 3a 53 43 41 4c 45 25  21 34 3d 31 3a 53 43 41  |1:SCALE%!4=1:SCA|
00019050  4c 45 25 21 38 3d 31 3a  53 43 41 4c 45 25 21 31  |LE%!8=1:SCALE%!1|
00019060  32 3d 31 0d 0a 4b 20 c8  99 22 50 44 72 69 76 65  |2=1..K .."PDrive|
00019070  72 5f 53 65 6c 65 63 74  4a 6f 62 22 2c 46 25 2c  |r_SelectJob",F%,|
00019080  30 2c 30 0d 0a 4c 39 66  25 3d 28 72 32 25 2b 34  |0,0..L9f%=(r2%+4|
00019090  34 29 3a 74 25 3d 70 61  6c 74 61 62 25 3a e3 69  |4):t%=paltab%:.i|
000190a0  25 3d 30 b8 31 35 3a 21  74 25 3d 21 66 25 3a 74  |%=0.15:!t%=!f%:t|
000190b0  25 2b 3d 34 3a 66 25 2b  3d 38 3a ed 0d 0a 4d 38  |%+=4:f%+=8:...M8|
000190c0  c8 99 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |.."ColourTrans_S|
000190d0  65 6c 65 63 74 54 61 62  6c 65 22 2c 31 32 2c 70  |electTable",12,p|
000190e0  61 6c 74 61 62 25 2c 2d  31 2c 2d 31 2c 63 74 72  |altab%,-1,-1,ctr|
000190f0  61 6e 73 25 0d 0a 4e 12  e7 63 75 72 72 6d 65 6e  |ans%..N..currmen|
00019100  75 25 3d 2d 32 8c 0d 0a  4f 3c c8 99 20 22 4f 53  |u%=-2...O<.. "OS|
00019110  5f 53 70 72 69 74 65 4f  70 22 2c 26 32 33 34 2c  |_SpriteOp",&234,|
00019120  62 6f 64 79 61 72 65 61  25 2c 72 32 25 2c 30 2c  |bodyarea%,r2%,0,|
00019130  30 2c 30 2c 53 43 41 4c  45 25 2c 63 74 72 61 6e  |0,0,SCALE%,ctran|
00019140  73 25 0d 0a 50 05 cc 0d  0a 51 3c c8 99 20 22 4f  |s%..P....Q<.. "O|
00019150  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 32 33 34  |S_SpriteOp",&234|
00019160  2c 61 6e 69 6d 61 72 65  61 25 2c 72 32 25 2c 30  |,animarea%,r2%,0|
00019170  2c 30 2c 30 2c 53 43 41  4c 45 25 2c 63 74 72 61  |,0,0,SCALE%,ctra|
00019180  6e 73 25 0d 0a 52 05 cd  0d 0a 53 09 f4 4e 45 58  |ns%..R....S..NEX|
00019190  54 0d 0a 54 05 e1 0d 0a  55 04 0d 0a 56 11 dd f2  |T..T....U...V...|
000191a0  63 68 65 63 6b 61 64 6a  75 73 74 0d 0a 57 37 e7  |checkadjust..W7.|
000191b0  63 75 72 72 6d 65 6e 75  62 75 74 25 3d 31 3a c8  |currmenubut%=1:.|
000191c0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
000191d0  6e 75 22 2c 2c 6d 65 6e  75 25 2c 31 30 30 2c 31  |nu",,menu%,100,1|
000191e0  30 30 0d 0a 58 05 e1 0d  0a 59 04 0d 0a 5a 14 dd  |00..X....Y...Z..|
000191f0  a4 72 65 61 64 76 64 75  76 61 72 28 61 25 29 0d  |.readvduvar(a%).|
00019200  0a 5b 39 21 62 6c 6b 25  3d 61 25 3a 62 6c 6b 25  |.[9!blk%=a%:blk%|
00019210  21 34 3d 2d 31 3a c8 99  20 22 4f 53 5f 52 65 61  |!4=-1:.. "OS_Rea|
00019220  64 56 64 75 56 61 72 69  61 62 6c 65 73 22 2c 62  |dVduVariables",b|
00019230  6c 6b 25 2c 62 6c 6b 25  0d 0a 5c 0a 3d 21 62 6c  |lk%,blk%..\.=!bl|
00019240  6b 25 0d 0a 5d 04 0d 0a  5e 0f dd f2 73 74 61 72  |k%..]...^...star|
00019250  74 67 61 6d 65 0d 0a 5f  25 e7 a4 69 73 6f 70 65  |tgame.._%..isope|
00019260  6e 28 62 6f 64 79 77 25  29 3a f2 63 6c 6f 73 65  |n(bodyw%):.close|
00019270  77 69 6e 64 28 62 6c 6b  25 29 0d 0a 60 0f f2 6f  |wind(blk%)..`..o|
00019280  70 65 6e 5f 73 79 73 74  77 0d 0a 61 05 e1 0d 0a  |pen_systw..a....|
00019290  62 04 0d 0a 63 1a dd f2  66 6c 69 70 28 66 6c 69  |b...c...flip(fli|
000192a0  70 74 79 70 65 25 2c 73  70 6e 24 29 0d 0a 64 11  |ptype%,spn$)..d.|
000192b0  f2 65 78 70 61 6e 64 28  73 70 6e 24 29 0d 0a 65  |.expand(spn$)..e|
000192c0  34 e7 66 6c 69 70 74 79  70 65 25 3d 31 3a c8 99  |4.fliptype%=1:..|
000192d0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
000192e0  31 32 31 2c 64 65 74 61  72 65 61 25 2c 73 70 6e  |121,detarea%,spn|
000192f0  24 0d 0a 66 34 e7 66 6c  69 70 74 79 70 65 25 3d  |$..f4.fliptype%=|
00019300  32 3a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |2:.. "OS_SpriteO|
00019310  70 22 2c 26 31 32 46 2c  64 65 74 61 72 65 61 25  |p",&12F,detarea%|
00019320  2c 73 70 6e 24 0d 0a 67  58 e7 66 6c 69 70 74 79  |,spn$..gX.flipty|
00019330  70 65 25 3d 33 3a c8 99  20 22 4f 53 5f 53 70 72  |pe%=3:.. "OS_Spr|
00019340  69 74 65 4f 70 22 2c 26  31 32 31 2c 64 65 74 61  |iteOp",&121,deta|
00019350  72 65 61 25 2c 73 70 6e  24 3a c8 99 20 22 4f 53  |rea%,spn$:.. "OS|
00019360  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 46 2c  |_SpriteOp",&12F,|
00019370  64 65 74 61 72 65 61 25  2c 73 70 6e 24 0d 0a 68  |detarea%,spn$..h|
00019380  12 f2 63 6f 6d 70 61 63  74 28 73 70 6e 24 29 0d  |..compact(spn$).|
00019390  0a 69 05 e1 0d 0a 6a 04  0d 0a 6b 34 dd f2 66 6c  |.i....j...k4..fl|
000193a0  6f 70 70 79 5f 64 69 73  6b 28 64 69 73 6b 6e 24  |oppy_disk(diskn$|
000193b0  2c 73 70 72 70 61 74 68  24 2c 77 6f 72 70 61 74  |,sprpath$,worpat|
000193c0  68 24 2c 6e 75 6d 70 61  74 68 24 29 0d 0a 6c 1a  |h$,numpath$)..l.|
000193d0  ea 20 67 25 2c 68 25 2c  6d 25 2c 6e 6f 5f 68 25  |. g%,h%,m%,no_h%|
000193e0  2c 6e 6f 5f 6d 25 0d 0a  6d 12 67 25 3d 30 3a 68  |,no_m%..m.g%=0:h|
000193f0  25 3d 30 3a 6d 25 3d 30  0d 0a 6e 06 ea 85 0d 0a  |%=0:m%=0..n.....|
00019400  6f 1e ee 85 ea 3a f7 20  85 3a 65 72 72 6f 72 25  |o....:. .:error%|
00019410  3d 31 3a 74 65 73 74 25  3d 31 3a e1 0d 0a 70 05  |=1:test%=1:...p.|
00019420  f5 0d 0a 71 1e 20 20 65  72 72 6f 72 25 3d 30 3a  |...q.  error%=0:|
00019430  6e 6f 5f 68 25 3d 30 3a  6e 6f 5f 6d 25 3d 30 0d  |no_h%=0:no_m%=0.|
00019440  0a 72 10 20 20 e7 74 65  73 74 25 3d 31 20 8c 0d  |.r.  .test%=1 ..|
00019450  0a 73 42 20 20 20 20 f2  64 69 73 63 6d 65 73 73  |.sB    .discmess|
00019460  28 22 50 6c 65 61 73 65  20 70 6c 61 63 65 20 74  |("Please place t|
00019470  68 65 20 22 2b 64 69 73  6b 6e 24 2b 22 20 64 69  |he "+diskn$+" di|
00019480  73 63 20 69 6e 20 64 72  69 76 65 20 30 22 2c 30  |sc in drive 0",0|
00019490  29 0d 0a 74 07 20 20 cd  0d 0a 75 0b 20 20 2a 41  |)..t.  ...u.  *A|
000194a0  44 46 53 0d 0a 76 0e 20  20 2a 4d 4f 55 4e 54 20  |DFS..v.  *MOUNT |
000194b0  30 0d 0a 77 25 20 20 c8  99 22 4f 53 5f 47 42 50  |0..w%  .."OS_GBP|
000194c0  42 22 2c 35 2c 2c 69 6e  70 75 74 5f 64 69 73 6b  |B",5,,input_disk|
000194d0  5f 6e 61 6d 65 25 0d 0a  78 29 20 20 6c 65 6e 5f  |_name%..x)  len_|
000194e0  64 5f 6e 25 3d 3f 69 6e  70 75 74 5f 64 69 73 6b  |d_n%=?input_disk|
000194f0  5f 6e 61 6d 65 25 3a 6e  61 6d 65 24 3d 22 22 0d  |_name%:name$="".|
00019500  0a 79 15 20 20 e3 64 6e  25 3d 31 b8 6c 65 6e 5f  |.y.  .dn%=1.len_|
00019510  64 5f 6e 25 0d 0a 7a 48  20 20 e7 3f 28 69 6e 70  |d_n%..zH  .?(inp|
00019520  75 74 5f 64 69 73 6b 5f  6e 61 6d 65 25 2b 64 6e  |ut_disk_name%+dn|
00019530  25 29 3e 33 31 3a 6e 61  6d 65 24 3d 6e 61 6d 65  |%)>31:name$=name|
00019540  24 2b bd 28 3f 28 69 6e  70 75 74 5f 64 69 73 6b  |$+.(?(input_disk|
00019550  5f 6e 61 6d 65 25 2b 64  6e 25 29 29 0d 0a 7b 07  |_name%+dn%))..{.|
00019560  20 20 ed 0d 0a 7c 1d 20  20 e7 6e 61 6d 65 24 3c  |  ...|.  .name$<|
00019570  3e 64 69 73 6b 6e 24 3a  65 72 72 6f 72 25 3d 31  |>diskn$:error%=1|
00019580  0d 0a 7d 0d 20 20 74 65  73 74 25 3d 31 0d 0a 7e  |..}.  test%=1..~|
00019590  2a 20 20 ff 22 53 45 54  20 42 6f 64 79 57 69 73  |*  ."SET BodyWis|
000195a0  65 24 63 68 61 69 6e 64  69 72 20 24 2e 21 42 6f  |e$chaindir $.!Bo|
000195b0  64 79 77 69 73 65 22 0d  0a 7f 25 20 20 c8 99 20  |dywise"...%  .. |
000195c0  22 58 4f 53 5f 46 69 6e  64 22 2c 26 34 30 2c 73  |"XOS_Find",&40,s|
000195d0  70 72 70 61 74 68 24 20  b8 20 67 25 0d 0a 80 3e  |prpath$ . g%...>|
000195e0  20 20 e7 77 6f 72 70 61  74 68 24 3c 3e 22 22 3a  |  .worpath$<>"":|
000195f0  c8 99 20 22 58 4f 53 5f  46 69 6e 64 22 2c 26 34  |.. "XOS_Find",&4|
00019600  30 2c 77 6f 72 70 61 74  68 24 20 b8 20 68 25 3a  |0,worpath$ . h%:|
00019610  8b 3a 6e 6f 5f 68 25 3d  2d 31 0d 0a 81 3e 20 20  |.:no_h%=-1...>  |
00019620  e7 6e 75 6d 70 61 74 68  24 3c 3e 22 22 3a c8 99  |.numpath$<>"":..|
00019630  20 22 58 4f 53 5f 46 69  6e 64 22 2c 26 34 30 2c  | "XOS_Find",&40,|
00019640  6e 75 6d 70 61 74 68 24  20 b8 20 6d 25 3a 8b 3a  |numpath$ . m%:.:|
00019650  6e 6f 5f 6d 25 3d 2d 31  0d 0a 82 2d fd 67 25 80  |no_m%=-1...-.g%.|
00019660  28 68 25 84 6e 6f 5f 68  25 29 80 28 6d 25 84 6e  |(h%.no_h%).(m%.n|
00019670  6f 5f 6d 25 29 80 28 65  72 72 6f 72 25 3d 30 29  |o_m%).(error%=0)|
00019680  3a d9 23 67 25 0d 0a 83  10 e7 ac 6e 6f 5f 68 25  |:.#g%......no_h%|
00019690  3a d9 23 68 25 0d 0a 84  10 e7 ac 6e 6f 5f 6d 25  |:.#h%......no_m%|
000196a0  3a d9 23 6d 25 0d 0a 85  07 f7 20 85 0d 0a 86 05  |:.#m%..... .....|
000196b0  e1 0d 0a 87 04 0d 0a 88  0d dd f2 61 6e 69 6d 61  |...........anima|
000196c0  74 65 0d 0a 89 57 f4 49  46 66 69 72 73 74 6d 6f  |te...W.IFfirstmo|
000196d0  76 65 25 41 4e 44 46 4e  69 73 73 65 6c 65 63 74  |ve%ANDFNisselect|
000196e0  65 64 28 61 6e 69 6d 77  25 2c 30 29 20 50 52 4f  |ed(animw%,0) PRO|
000196f0  43 73 65 6c 65 63 74 69  63 6e 28 61 6e 69 6d 77  |Cselecticn(animw|
00019700  25 2c 30 2c 46 41 4c 53  45 29 3a 50 52 4f 43 72  |%,0,FALSE):PROCr|
00019710  65 6d 6f 76 65 74 65 78  74 0d 0a 8a 5c e7 66 69  |emovetext...\.fi|
00019720  72 73 74 6d 6f 76 65 25  80 a4 69 73 73 65 6c 65  |rstmove%..issele|
00019730  63 74 65 64 28 61 6e 69  6d 77 25 2c 30 29 3a f2  |cted(animw%,0):.|
00019740  72 65 6d 6f 76 65 6c 61  62 65 6c 73 3a f2 6d 61  |removelabels:.ma|
00019750  6b 65 6f 72 67 61 6e 28  61 63 74 69 76 65 77 25  |keorgan(activew%|
00019760  2c 61 63 74 69 76 65 69  63 6e 25 29 3a f2 61 64  |,activeicn%):.ad|
00019770  64 74 65 78 74 0d 0a 8b  3d e7 66 69 72 73 74 6d  |dtext...=.firstm|
00019780  6f 76 65 25 3a f2 68 69  64 65 69 63 6e 28 61 6e  |ove%:.hideicn(an|
00019790  69 6d 77 25 2c 34 39 2c  a3 29 3a f2 73 65 6c 65  |imw%,49,.):.sele|
000197a0  63 74 69 63 6e 28 61 6e  69 6d 77 25 2c 34 39 2c  |cticn(animw%,49,|
000197b0  a3 29 0d 0a 8c 27 e7 ac  a4 69 73 73 65 6c 65 63  |.)...'...isselec|
000197c0  74 65 64 28 61 6e 69 6d  77 25 2c 34 39 29 3a f2  |ted(animw%,49):.|
000197d0  6d 6f 76 65 6f 72 67 61  6e 0d 0a 8d 05 e1 0d 0a  |moveorgan.......|
000197e0  8e 04 0d 0a 8f 13 f4 44  45 46 50 52 4f 43 61 6e  |.......DEFPROCan|
000197f0  69 6d 61 74 65 0d 0a 90  48 e7 66 69 72 73 74 6d  |imate...H.firstm|
00019800  6f 76 65 25 80 a4 69 73  73 65 6c 65 63 74 65 64  |ove%..isselected|
00019810  28 61 6e 69 6d 77 25 2c  30 29 20 f2 73 65 6c 65  |(animw%,0) .sele|
00019820  63 74 69 63 6e 28 61 6e  69 6d 77 25 2c 30 2c a3  |cticn(animw%,0,.|
00019830  29 3a f2 72 65 6d 6f 76  65 74 65 78 74 0d 0a 91  |):.removetext...|
00019840  2d e7 66 69 72 73 74 6d  6f 76 65 25 3a f2 73 74  |-.firstmove%:.st|
00019850  6f 70 6f 6e 3a f2 68 69  64 65 69 63 6e 28 61 6e  |opon:.hideicn(an|
00019860  69 6d 77 25 2c 34 39 2c  a3 29 0d 0a 92 2b e7 28  |imw%,49,.)...+.(|
00019870  a4 69 73 73 65 6c 65 63  74 65 64 28 61 6e 69 6d  |.isselected(anim|
00019880  77 25 2c 34 39 29 29 80  28 ac 20 67 6f 6f 6e 6f  |w%,49)).(. goono|
00019890  6e 25 29 20 8c 0d 0a 93  0c 20 f2 67 6f 6f 6e 6f  |n%) ..... .goono|
000198a0  6e 0d 0a 94 05 cd 0d 0a  95 2d e7 28 a4 69 73 73  |n........-.(.iss|
000198b0  65 6c 65 63 74 65 64 28  61 6e 69 6d 77 25 2c 34  |elected(animw%,4|
000198c0  39 29 29 80 67 6f 6f 6e  6f 6e 25 3a f2 73 74 6f  |9)).goonon%:.sto|
000198d0  70 6f 6e 0d 0a 96 18 e7  ac 67 6f 6f 6e 6f 6e 25  |pon......goonon%|
000198e0  3a f2 6d 6f 76 65 6f 72  67 61 6e 0d 0a 97 05 e1  |:.moveorgan.....|
000198f0  0d 0a 98 04 0d 0a 99 0f  dd f2 6d 6f 76 65 6f 72  |..........moveor|
00019900  67 61 6e 0d 0a 9a 13 c8  8e 20 61 63 74 69 76 65  |gan...... active|
00019910  69 63 6e 25 20 ca 0d 0a  9b 14 20 c9 20 31 3a 20  |icn% ..... . 1: |
00019920  f2 6d 6f 76 65 6d 6f 75  74 68 0d 0a 9c 12 20 c9  |.movemouth.... .|
00019930  20 32 3a 20 f2 6d 6f 76  65 65 79 65 0d 0a 9d 13  | 2: .moveeye....|
00019940  20 c9 20 34 3a 20 f2 6d  6f 76 65 6e 6f 73 65 0d  | . 4: .movenose.|
00019950  0a 9e 13 20 c9 20 35 3a  20 f2 6d 6f 76 65 61 72  |... . 5: .movear|
00019960  74 76 0d 0a 9f 13 20 c9  20 36 3a 20 f2 6d 6f 76  |tv.... . 6: .mov|
00019970  65 73 6b 69 6e 0d 0a a0  14 20 c9 20 37 3a 20 f2  |eskin.... . 7: .|
00019980  6d 6f 76 65 68 65 61 72  74 0d 0a a1 15 20 c9 20  |moveheart.... . |
00019990  31 30 3a 20 f2 6d 6f 76  65 6c 69 76 65 72 0d 0a  |10: .moveliver..|
000199a0  a2 15 20 c9 20 31 31 3a  20 f2 6d 6f 76 65 6a 6f  |.. . 11: .movejo|
000199b0  69 6e 74 0d 0a a3 15 20  c9 20 31 33 3a 20 f2 6d  |int.... . 13: .m|
000199c0  6f 76 65 6c 75 6e 67 73  0d 0a a4 14 20 c9 20 31  |ovelungs.... . 1|
000199d0  34 3a 20 f2 6d 6f 76 65  62 61 62 79 0d 0a a5 18  |4: .movebaby....|
000199e0  20 c9 20 31 37 3a 20 f2  6d 6f 76 65 73 6d 69 6e  | . 17: .movesmin|
000199f0  74 65 73 74 0d 0a a6 16  20 c9 20 31 39 3a 20 f2  |test.... . 19: .|
00019a00  6d 6f 76 65 66 65 6d 61  6c 65 0d 0a a7 14 20 c9  |movefemale.... .|
00019a10  20 32 30 3a 20 f2 6d 6f  76 65 6d 61 6c 65 0d 0a  | 20: .movemale..|
00019a20  a8 13 20 c9 20 32 31 3a  20 f2 6d 6f 76 65 65 61  |.. . 21: .moveea|
00019a30  72 0d 0a a9 16 20 c9 20  32 32 3a 20 f2 6d 6f 76  |r.... . 22: .mov|
00019a40  65 6d 75 73 63 6c 65 0d  0a aa 16 20 c9 20 32 33  |emuscle.... . 23|
00019a50  3a 20 f2 6d 6f 76 65 6e  65 72 76 65 73 0d 0a ab  |: .movenerves...|
00019a60  05 cb 0d 0a ac 05 e1 0d  0a ad 04 0d 0a ae 10 dd  |................|
00019a70  f2 61 6e 69 6d 61 74 65  65 6e 64 0d 0a af 3d f2  |.animateend...=.|
00019a80  73 65 6c 65 63 74 69 63  6e 28 61 6e 69 6d 77 25  |selecticn(animw%|
00019a90  2c 33 2c a3 29 3a 64 6f  69 6e 67 6d 6f 76 65 25  |,3,.):doingmove%|
00019aa0  3d a3 3a f2 68 69 64 65  69 63 6e 28 61 6e 69 6d  |=.:.hideicn(anim|
00019ab0  77 25 2c 34 39 2c b9 29  0d 0a b0 29 e7 74 65 78  |w%,49,.)...).tex|
00019ac0  74 6f 6e 25 3a 61 63 74  69 76 65 74 78 74 69 63  |ton%:activetxtic|
00019ad0  6e 25 3d 61 63 74 69 76  65 77 25 3a f2 74 65 78  |n%=activew%:.tex|
00019ae0  74 0d 0a b1 05 e1 0d 0a  b2 04 0d 0a b3 10 dd f2  |t...............|
00019af0  65 61 72 28 77 6c 65 76  25 29 0d 0a b4 0e c8 8e  |ear(wlev%)......|
00019b00  20 77 6c 65 76 25 20 ca  0d 0a b5 23 20 c9 20 30  | wlev% ....# . 0|
00019b10  3a 20 f2 6d 61 6b 65 65  61 72 28 77 6c 65 76 25  |: .makeear(wlev%|
00019b20  29 3a f2 70 6c 6f 74 61  6e 69 6d 0d 0a b6 23 20  |):.plotanim...# |
00019b30  c9 20 31 3a 20 f2 6d 61  6b 65 65 61 72 28 77 6c  |. 1: .makeear(wl|
00019b40  65 76 25 29 3a f2 70 6c  6f 74 61 6e 69 6d 0d 0a  |ev%):.plotanim..|
00019b50  b7 05 cb 0d 0a b8 05 e1  0d 0a b9 04 0d 0a ba 16  |................|
00019b60  dd f2 6d 61 6b 65 62 72  61 69 6e 28 77 6c 65 76  |..makebrain(wlev|
00019b70  25 29 0d 0a bb 10 f2 63  6c 5f 61 6e 69 6d 28 31  |%).....cl_anim(1|
00019b80  35 29 0d 0a bc 0e c8 8e  20 77 6c 65 76 25 20 ca  |5)...... wlev% .|
00019b90  0d 0a bd 73 20 c9 20 30  3a 20 f2 61 64 64 5f 73  |...s . 0: .add_s|
00019ba0  70 28 64 65 74 61 72 65  61 25 2c 22 62 72 61 69  |p(detarea%,"brai|
00019bb0  6e 32 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |n2",animarea%,"a|
00019bc0  6e 69 6d 22 2c 31 36 2c  32 34 2c 31 35 29 3a f2  |nim",16,24,15):.|
00019bd0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
00019be0  22 62 72 61 69 6e 31 22  2c 61 6e 69 6d 61 72 65  |"brain1",animare|
00019bf0  61 25 2c 22 61 6e 69 6d  22 2c 33 36 2c 33 31 2c  |a%,"anim",36,31,|
00019c00  31 35 29 0d 0a be 3e 20  c9 20 31 3a 20 f2 61 64  |15)...> . 1: .ad|
00019c10  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 62  |d_sp(detarea%,"b|
00019c20  72 61 69 6e 32 22 2c 61  6e 69 6d 61 72 65 61 25  |rain2",animarea%|
00019c30  2c 22 61 6e 69 6d 22 2c  31 36 2c 32 34 2c 31 35  |,"anim",16,24,15|
00019c40  29 0d 0a bf 05 cb 0d 0a  c0 05 e1 0d 0a c1 04 0d  |)...............|
00019c50  0a c2 16 dd f2 6d 61 6b  65 6d 6f 75 74 68 28 77  |.....makemouth(w|
00019c60  6c 65 76 25 29 0d 0a c3  0e c8 8e 20 77 6c 65 76  |lev%)...... wlev|
00019c70  25 20 ca 0d 0a c4 49 20  c9 20 30 3a f2 63 6c 5f  |% ....I . 0:.cl_|
00019c80  61 6e 69 6d 28 31 32 29  3a f2 61 64 64 5f 73 70  |anim(12):.add_sp|
00019c90  28 64 65 74 61 72 65 61  25 2c 22 6d 6f 75 74 68  |(detarea%,"mouth|
00019ca0  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
00019cb0  6d 22 2c 33 38 2c 31 30  2c 31 35 29 0d 0a c5 49  |m",38,10,15)...I|
00019cc0  20 c9 20 31 3a f2 63 6c  5f 61 6e 69 6d 28 31 35  | . 1:.cl_anim(15|
00019cd0  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
00019ce0  61 25 2c 22 6d 6f 75 74  68 6e 76 22 2c 61 6e 69  |a%,"mouthnv",ani|
00019cf0  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 34 2c  |marea%,"anim",4,|
00019d00  34 2c 31 35 29 0d 0a c6  48 20 c9 20 32 3a f2 63  |4,15)...H . 2:.c|
00019d10  6c 5f 61 6e 69 6d 28 31  35 29 3a f2 61 64 64 5f  |l_anim(15):.add_|
00019d20  73 70 28 64 65 74 61 72  65 61 25 2c 22 74 6f 6f  |sp(detarea%,"too|
00019d30  74 68 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |th",animarea%,"a|
00019d40  6e 69 6d 22 2c 34 36 2c  39 2c 31 35 29 0d 0a c7  |nim",46,9,15)...|
00019d50  05 cb 0d 0a c8 05 e1 0d  0a c9 04 0d 0a ca 14 dd  |................|
00019d60  f2 6d 61 6b 65 65 79 65  28 77 6c 65 76 25 29 0d  |.makeeye(wlev%).|
00019d70  0a cb 22 f2 63 6f 70 79  73 70 28 22 65 79 65 22  |..".copysp("eye"|
00019d80  2b c3 28 77 6c 65 76 25  29 2c 22 61 6e 69 6d 22  |+.(wlev%),"anim"|
00019d90  29 0d 0a cc 05 e1 0d 0a  cd 04 0d 0a ce 14 dd f2  |)...............|
00019da0  6d 61 6b 65 70 69 74 28  77 6c 65 76 25 29 0d 0a  |makepit(wlev%)..|
00019db0  cf 49 f2 63 6c 5f 61 6e  69 6d 28 31 35 29 3a f2  |.I.cl_anim(15):.|
00019dc0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
00019dd0  22 70 69 74 22 2b c3 28  77 6c 65 76 25 29 2c 61  |"pit"+.(wlev%),a|
00019de0  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
00019df0  35 2c 37 2c 31 35 29 0d  0a d0 05 e1 0d 0a d1 04  |5,7,15).........|
00019e00  0d 0a d2 15 dd f2 6d 61  6b 65 6e 6f 73 65 28 77  |......makenose(w|
00019e10  6c 65 76 25 29 0d 0a d3  0e c8 8e 20 77 6c 65 76  |lev%)...... wlev|
00019e20  25 20 ca 0d 0a d4 4a 20  c9 20 30 3a 20 f2 63 6c  |% ....J . 0: .cl|
00019e30  5f 61 6e 69 6d 28 31 35  29 3a f2 61 64 64 5f 73  |_anim(15):.add_s|
00019e40  70 28 64 65 74 61 72 65  61 25 2c 22 6e 6f 73 74  |p(detarea%,"nost|
00019e50  6f 6e 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |on",animarea%,"a|
00019e60  6e 69 6d 22 2c 32 38 2c  38 2c 31 35 29 0d 0a d5  |nim",28,8,15)...|
00019e70  29 20 7f 3a 20 f2 63 6f  70 79 73 70 28 22 6e 6f  |) .: .copysp("no|
00019e80  73 74 6f 6e 22 2b c3 28  77 6c 65 76 25 29 2c 22  |ston"+.(wlev%),"|
00019e90  61 6e 69 6d 22 29 0d 0a  d6 05 cb 0d 0a d7 05 e1  |anim")..........|
00019ea0  0d 0a d8 04 0d 0a d9 15  dd f2 6d 61 6b 65 61 72  |..........makear|
00019eb0  74 76 28 77 6c 65 76 25  29 0d 0a da 0e c8 8e 20  |tv(wlev%)...... |
00019ec0  77 6c 65 76 25 20 ca 0d  0a db ad 20 c9 20 30 3a  |wlev% ..... . 0:|
00019ed0  20 f2 63 6c 5f 61 6e 69  6d 28 31 35 29 3a f2 61  | .cl_anim(15):.a|
00019ee0  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
00019ef0  61 76 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |av",animarea%,"a|
00019f00  6e 69 6d 22 2c 31 34 2c  31 36 2c 31 35 29 3a f2  |nim",14,16,15):.|
00019f10  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
00019f20  22 61 72 74 65 72 79 22  2c 61 6e 69 6d 61 72 65  |"artery",animare|
00019f30  61 25 2c 22 61 6e 69 6d  22 2c 36 2c 36 2c 31 35  |a%,"anim",6,6,15|
00019f40  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
00019f50  61 25 2c 22 76 65 69 6e  22 2c 61 6e 69 6d 61 72  |a%,"vein",animar|
00019f60  65 61 25 2c 22 61 6e 69  6d 22 2c 37 2c 31 33 32  |ea%,"anim",7,132|
00019f70  2c 31 35 29 0d 0a dc 53  20 7f 3a 20 f2 63 6f 70  |,15)...S .: .cop|
00019f80  79 73 70 28 22 61 76 6d  6f 76 65 22 2c 22 61 6e  |ysp("avmove","an|
00019f90  69 6d 22 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |im"):.add_sp(det|
00019fa0  61 72 65 61 25 2c 22 61  76 78 73 22 2c 61 6e 69  |area%,"avxs",ani|
00019fb0  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 36 31  |marea%,"anim",61|
00019fc0  2c 31 36 2c 31 35 29 0d  0a dd 05 cb 0d 0a de 05  |,16,15).........|
00019fd0  e1 0d 0a df 04 0d 0a e0  15 dd f2 6d 61 6b 65 73  |...........makes|
00019fe0  6b 69 6e 28 77 6c 65 76  25 29 0d 0a e1 0e c8 8e  |kin(wlev%)......|
00019ff0  20 77 6c 65 76 25 20 ca  0d 0a e2 4a 20 c9 20 30  | wlev% ....J . 0|
0001a000  3a 20 f2 63 6c 5f 61 6e  69 6d 28 31 35 29 3a f2  |: .cl_anim(15):.|
0001a010  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001a020  22 73 6b 61 72 6d 22 2c  61 6e 69 6d 61 72 65 61  |"skarm",animarea|
0001a030  25 2c 22 61 6e 69 6d 22  2c 31 39 2c 32 31 2c 31  |%,"anim",19,21,1|
0001a040  35 29 0d 0a e3 81 20 c9  20 31 3a 20 f2 63 6c 5f  |5).... . 1: .cl_|
0001a050  61 6e 69 6d 28 31 35 29  3a f2 61 64 64 5f 73 70  |anim(15):.add_sp|
0001a060  28 64 65 74 61 72 65 61  25 2c 22 73 6b 62 61 63  |(detarea%,"skbac|
0001a070  6b 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |k",animarea%,"an|
0001a080  69 6d 22 2c 32 38 2c 32  37 2c 31 35 29 3a f2 61  |im",28,27,15):.a|
0001a090  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001a0a0  73 6b 66 72 6f 6e 74 22  2c 61 6e 69 6d 61 72 65  |skfront",animare|
0001a0b0  61 25 2c 22 61 6e 69 6d  22 2c 31 36 2c 33 34 2c  |a%,"anim",16,34,|
0001a0c0  31 35 29 0d 0a e4 22 20  c9 20 32 3a 20 f2 63 6f  |15)..." . 2: .co|
0001a0d0  70 79 73 70 28 22 73 6b  69 6e 78 73 22 2c 22 61  |pysp("skinxs","a|
0001a0e0  6e 69 6d 22 29 0d 0a e5  05 cb 0d 0a e6 05 e1 0d  |nim")...........|
0001a0f0  0a e7 04 0d 0a e8 16 dd  f2 6d 61 6b 65 68 65 61  |.........makehea|
0001a100  72 74 28 77 6c 65 76 25  29 0d 0a e9 10 f2 63 6c  |rt(wlev%).....cl|
0001a110  5f 61 6e 69 6d 28 31 32  29 0d 0a ea 0e c8 8e 20  |_anim(12)...... |
0001a120  77 6c 65 76 25 20 ca 0d  0a eb 3b 20 c9 20 30 3a  |wlev% ....; . 0:|
0001a130  20 f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  | .add_sp(detarea|
0001a140  25 2c 22 68 65 61 72 74  22 2c 61 6e 69 6d 61 72  |%,"heart",animar|
0001a150  65 61 25 2c 22 61 6e 69  6d 22 2c 36 2c 35 2c 31  |ea%,"anim",6,5,1|
0001a160  33 29 0d 0a ec 71 20 c9  20 31 3a 20 f2 61 64 64  |3)...q . 1: .add|
0001a170  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 68 65  |_sp(detarea%,"he|
0001a180  61 72 74 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |art",animarea%,"|
0001a190  61 6e 69 6d 22 2c 36 2c  35 2c 31 33 29 3a f2 61  |anim",6,5,13):.a|
0001a1a0  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001a1b0  68 65 61 72 74 78 73 22  2c 61 6e 69 6d 61 72 65  |heartxs",animare|
0001a1c0  61 25 2c 22 61 6e 69 6d  22 2c 36 36 2c 35 32 2c  |a%,"anim",66,52,|
0001a1d0  31 33 29 0d 0a ed 3b 20  c9 20 32 3a 20 f2 61 64  |13)...; . 2: .ad|
0001a1e0  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 64  |d_sp(detarea%,"d|
0001a1f0  69 61 73 74 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |iast",animarea%,|
0001a200  22 61 6e 69 6d 22 2c 30  2c 30 2c 31 33 29 0d 0a  |"anim",0,0,13)..|
0001a210  ee b7 20 20 20 20 20 20  20 20 20 e3 73 25 3d 30  |..         .s%=0|
0001a220  b8 39 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |.9:.add_sp(detar|
0001a230  65 61 25 2c 22 61 72 72  6f 22 2b c3 28 73 25 29  |ea%,"arro"+.(s%)|
0001a240  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001a250  22 2c 68 61 72 72 25 28  73 25 2c 30 29 2c 68 61  |",harr%(s%,0),ha|
0001a260  72 72 25 28 73 25 2c 31  29 2c 31 35 29 3a ed 3a  |rr%(s%,1),15):.:|
0001a270  e3 73 25 3d 31 30 b8 32  32 3a f2 61 64 64 5f 73  |.s%=10.22:.add_s|
0001a280  70 28 64 65 74 61 72 65  61 25 2c 22 61 72 72 22  |p(detarea%,"arr"|
0001a290  2b c3 28 73 25 29 2c 61  6e 69 6d 61 72 65 61 25  |+.(s%),animarea%|
0001a2a0  2c 22 61 6e 69 6d 22 2c  68 61 72 72 25 28 73 25  |,"anim",harr%(s%|
0001a2b0  2c 30 29 2c 68 61 72 72  25 28 73 25 2c 31 29 2c  |,0),harr%(s%,1),|
0001a2c0  31 35 29 3a ed 0d 0a ef  05 cb 0d 0a f0 05 e1 0d  |15):............|
0001a2d0  0a f1 04 0d 0a f2 15 dd  f2 6d 61 6b 65 62 6f 6e  |.........makebon|
0001a2e0  65 28 77 6c 65 76 25 29  0d 0a f3 4b f2 63 6c 5f  |e(wlev%)...K.cl_|
0001a2f0  61 6e 69 6d 28 31 35 29  3a f2 61 64 64 5f 73 70  |anim(15):.add_sp|
0001a300  28 64 65 74 61 72 65 61  25 2c 22 62 6f 6e 65 22  |(detarea%,"bone"|
0001a310  2b c3 28 77 6c 65 76 25  29 2c 61 6e 69 6d 61 72  |+.(wlev%),animar|
0001a320  65 61 25 2c 22 61 6e 69  6d 22 2c 32 35 2c 39 2c  |ea%,"anim",25,9,|
0001a330  31 35 29 0d 0a f4 05 e1  0d 0a f5 04 0d 0a f6 17  |15).............|
0001a340  dd f2 6d 61 6b 65 6b 69  64 6e 65 79 28 77 6c 65  |..makekidney(wle|
0001a350  76 25 29 0d 0a f7 10 f2  63 6c 5f 61 6e 69 6d 28  |v%).....cl_anim(|
0001a360  31 35 29 0d 0a f8 0e c8  8e 20 77 6c 65 76 25 20  |15)...... wlev% |
0001a370  ca 0d 0a f9 3c 20 c9 20  30 3a 20 f2 61 64 64 5f  |....< . 0: .add_|
0001a380  73 70 28 64 65 74 61 72  65 61 25 2c 22 6b 69 64  |sp(detarea%,"kid|
0001a390  6e 65 79 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |ney",animarea%,"|
0001a3a0  61 6e 69 6d 22 2c 30 2c  30 2c 31 35 29 0d 0a fa  |anim",0,0,15)...|
0001a3b0  71 20 c9 20 31 3a 20 f2  61 64 64 5f 73 70 28 64  |q . 1: .add_sp(d|
0001a3c0  65 74 61 72 65 61 25 2c  22 6b 69 64 6e 65 79 22  |etarea%,"kidney"|
0001a3d0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001a3e0  22 2c 30 2c 30 2c 31 35  29 3a f2 61 64 64 5f 73  |",0,0,15):.add_s|
0001a3f0  70 28 64 65 74 61 72 65  61 25 2c 22 6b 69 64 6e  |p(detarea%,"kidn|
0001a400  65 79 78 73 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |eyxs",animarea%,|
0001a410  22 61 6e 69 6d 22 2c 30  2c 30 2c 31 35 29 0d 0a  |"anim",0,0,15)..|
0001a420  fb 3d 20 c9 20 32 3a 20  f2 61 64 64 5f 73 70 28  |.= . 2: .add_sp(|
0001a430  64 65 74 61 72 65 61 25  2c 22 6e 65 70 68 72 6f  |detarea%,"nephro|
0001a440  6e 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |n",animarea%,"an|
0001a450  69 6d 22 2c 30 2c 30 2c  31 35 29 0d 0a fc 05 cb  |im",0,0,15).....|
0001a460  0d 0a fd 05 e1 0d 0a fe  04 0d 0a ff 16 dd f2 6d  |...............m|
0001a470  61 6b 65 6c 69 76 65 72  28 77 6c 65 76 25 29 0d  |akeliver(wlev%).|
0001a480  0b 00 42 f2 63 6c 5f 61  6e 69 6d 28 31 35 29 3a  |..B.cl_anim(15):|
0001a490  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
0001a4a0  2c 22 6c 69 76 65 72 22  2c 61 6e 69 6d 61 72 65  |,"liver",animare|
0001a4b0  61 25 2c 22 61 6e 69 6d  22 2c 36 2c 36 2c 31 35  |a%,"anim",6,6,15|
0001a4c0  29 0d 0b 01 0e c8 8e 20  77 6c 65 76 25 20 ca 0d  |)...... wlev% ..|
0001a4d0  0b 02 3e 20 c9 20 31 3a  f2 61 64 64 5f 73 70 28  |..> . 1:.add_sp(|
0001a4e0  64 65 74 61 72 65 61 25  2c 22 6c 69 76 65 72 78  |detarea%,"liverx|
0001a4f0  73 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |s",animarea%,"an|
0001a500  69 6d 22 2c 33 30 2c 32  31 2c 31 35 29 0d 0b 03  |im",30,21,15)...|
0001a510  05 cb 0d 0b 04 05 e1 0d  0b 05 04 0d 0b 06 16 dd  |................|
0001a520  f2 6d 61 6b 65 6a 6f 69  6e 74 28 77 6c 65 76 25  |.makejoint(wlev%|
0001a530  29 0d 0b 07 0e c8 8e 20  77 6c 65 76 25 20 ca 0d  |)...... wlev% ..|
0001a540  0b 08 80 20 c9 20 30 3a  f2 63 6c 5f 61 6e 69 6d  |... . 0:.cl_anim|
0001a550  28 31 35 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |(15):.add_sp(det|
0001a560  61 72 65 61 25 2c 22 73  63 61 70 75 6c 61 22 2c  |area%,"scapula",|
0001a570  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
0001a580  2c 31 33 34 2c 33 31 2c  31 35 29 3a f2 61 64 64  |,134,31,15):.add|
0001a590  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 6a 6f  |_sp(detarea%,"jo|
0001a5a0  69 6e 74 73 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |ints",animarea%,|
0001a5b0  22 61 6e 69 6d 22 2c 39  2c 33 37 2c 31 35 29 0d  |"anim",9,37,15).|
0001a5c0  0b 09 22 20 c9 20 31 3a  f2 63 6f 70 79 73 70 28  |.." . 1:.copysp(|
0001a5d0  22 6a 6f 69 6e 74 78 73  22 2c 22 61 6e 69 6d 22  |"jointxs","anim"|
0001a5e0  29 0d 0b 0a 05 cb 0d 0b  0b 05 e1 0d 0b 0c 04 0d  |)...............|
0001a5f0  0b 0d 18 dd f2 6d 61 6b  65 73 74 6f 6d 61 63 68  |.....makestomach|
0001a600  28 77 6c 65 76 25 29 0d  0b 0e 45 f2 63 6c 5f 61  |(wlev%)...E.cl_a|
0001a610  6e 69 6d 28 31 35 29 3a  f2 61 64 64 5f 73 70 28  |nim(15):.add_sp(|
0001a620  64 65 74 61 72 65 61 25  2c 22 73 74 6f 6d 61 63  |detarea%,"stomac|
0001a630  68 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |h",animarea%,"an|
0001a640  69 6d 22 2c 32 37 2c 37  2c 31 35 29 0d 0b 0f 0e  |im",27,7,15)....|
0001a650  c8 8e 20 77 6c 65 76 25  20 ca 0d 0b 10 3e 20 c9  |.. wlev% ....> .|
0001a660  20 31 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  | 1:.add_sp(detar|
0001a670  65 61 25 2c 22 73 74 6f  6d 61 63 68 78 73 22 2c  |ea%,"stomachxs",|
0001a680  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
0001a690  2c 32 37 2c 37 2c 39 29  0d 0b 11 05 cb 0d 0b 12  |,27,7,9)........|
0001a6a0  05 e1 0d 0b 13 04 0d 0b  14 16 dd f2 6d 61 6b 65  |............make|
0001a6b0  6c 75 6e 67 73 28 77 6c  65 76 25 29 0d 0b 15 0e  |lungs(wlev%)....|
0001a6c0  c8 8e 20 77 6c 65 76 25  20 ca 0d 0b 16 4a 20 c9  |.. wlev% ....J .|
0001a6d0  20 32 3a f2 63 6c 5f 61  6e 69 6d 28 31 35 29 3a  | 2:.cl_anim(15):|
0001a6e0  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
0001a6f0  2c 22 61 6c 76 65 6f 6c  69 22 2c 61 6e 69 6d 61  |,"alveoli",anima|
0001a700  72 65 61 25 2c 22 61 6e  69 6d 22 2c 32 32 2c 36  |rea%,"anim",22,6|
0001a710  2c 31 35 29 0d 0b 17 a8  20 7f 3a f2 63 6f 70 79  |,15).... .:.copy|
0001a720  73 70 28 22 6c 75 6e 67  73 62 67 72 64 22 2c 22  |sp("lungsbgrd","|
0001a730  61 6e 69 6d 22 29 3a f2  61 64 64 5f 73 70 28 64  |anim"):.add_sp(d|
0001a740  65 74 61 72 65 61 25 2c  22 72 69 62 73 22 2c 61  |etarea%,"ribs",a|
0001a750  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001a760  33 39 2c 32 32 2c 31 35  29 3a f2 66 6c 69 70 28  |39,22,15):.flip(|
0001a770  32 2c 22 72 69 62 73 22  29 3a f2 61 64 64 5f 73  |2,"ribs"):.add_s|
0001a780  70 28 64 65 74 61 72 65  61 25 2c 22 72 69 62 73  |p(detarea%,"ribs|
0001a790  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
0001a7a0  6d 22 2c 39 33 2c 32 32  2c 31 35 29 3a f2 66 6c  |m",93,22,15):.fl|
0001a7b0  69 70 28 32 2c 22 72 69  62 73 22 29 0d 0b 18 b3  |ip(2,"ribs")....|
0001a7c0  20 20 f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |  .add_sp(detare|
0001a7d0  61 25 2c 22 6c 75 6e 67  73 22 2b c3 28 77 6c 65  |a%,"lungs"+.(wle|
0001a7e0  76 25 29 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |v%),animarea%,"a|
0001a7f0  6e 69 6d 22 2c 34 34 2c  31 35 2c 31 35 29 3a f2  |nim",44,15,15):.|
0001a800  66 6c 69 70 28 32 2c 22  6c 75 6e 67 73 22 2b c3  |flip(2,"lungs"+.|
0001a810  28 77 6c 65 76 25 29 29  3a f2 61 64 64 5f 73 70  |(wlev%)):.add_sp|
0001a820  28 64 65 74 61 72 65 61  25 2c 22 6c 75 6e 67 73  |(detarea%,"lungs|
0001a830  22 2b c3 28 77 6c 65 76  25 29 2c 61 6e 69 6d 61  |"+.(wlev%),anima|
0001a840  72 65 61 25 2c 22 61 6e  69 6d 22 2c 39 36 2c 31  |rea%,"anim",96,1|
0001a850  35 2c 31 35 29 3a f2 66  6c 69 70 28 32 2c 22 6c  |5,15):.flip(2,"l|
0001a860  75 6e 67 73 22 2b c3 28  77 6c 65 76 25 29 29 0d  |ungs"+.(wlev%)).|
0001a870  0b 19 44 20 20 f2 61 64  64 5f 73 70 28 64 65 74  |..D  .add_sp(det|
0001a880  61 72 65 61 25 2c 22 6c  75 6e 67 73 68 74 22 2b  |area%,"lungsht"+|
0001a890  c3 28 77 6c 65 76 25 29  2c 61 6e 69 6d 61 72 65  |.(wlev%),animare|
0001a8a0  61 25 2c 22 61 6e 69 6d  22 2c 34 36 2c 35 30 2c  |a%,"anim",46,50,|
0001a8b0  31 35 29 0d 0b 1a 05 cb  0d 0b 1b 05 e1 0d 0b 1c  |15).............|
0001a8c0  04 0d 0b 1d 15 dd f2 6d  61 6b 65 62 61 62 79 28  |.......makebaby(|
0001a8d0  77 6c 65 76 25 29 0d 0b  1e 10 f2 63 6c 5f 61 6e  |wlev%).....cl_an|
0001a8e0  69 6d 28 31 35 29 0d 0b  1f 0e c8 8e 20 77 6c 65  |im(15)...... wle|
0001a8f0  76 25 20 ca 0d 0b 20 3f  20 c9 20 30 3a 20 f2 61  |v% ... ? . 0: .a|
0001a900  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001a910  63 6f 75 70 6c 65 30 22  2c 61 6e 69 6d 61 72 65  |couple0",animare|
0001a920  61 25 2c 22 61 6e 69 6d  22 2c 31 33 2c 35 31 2c  |a%,"anim",13,51,|
0001a930  31 35 29 0d 0b 21 7c 20  c9 20 31 3a 20 f2 61 64  |15)..!| . 1: .ad|
0001a940  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 63  |d_sp(detarea%,"c|
0001a950  6f 75 70 66 65 6d 22 2c  61 6e 69 6d 61 72 65 61  |oupfem",animarea|
0001a960  25 2c 22 61 6e 69 6d 22  2c 35 2c 35 2c 31 35 29  |%,"anim",5,5,15)|
0001a970  3a e7 ac 6f 6e 6c 79 66  65 6d 25 3a f2 61 64 64  |:..onlyfem%:.add|
0001a980  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 63 6f  |_sp(detarea%,"co|
0001a990  75 70 6d 61 6c 22 2c 61  6e 69 6d 61 72 65 61 25  |upmal",animarea%|
0001a9a0  2c 22 61 6e 69 6d 22 2c  35 2c 35 2c 31 35 29 0d  |,"anim",5,5,15).|
0001a9b0  0b 22 3f 20 c9 20 32 3a  20 f2 61 64 64 5f 73 70  |."? . 2: .add_sp|
0001a9c0  28 64 65 74 61 72 65 61  25 2c 22 66 75 6c 6c 74  |(detarea%,"fullt|
0001a9d0  65 72 6d 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |erm",animarea%,"|
0001a9e0  61 6e 69 6d 22 2c 33 36  2c 37 2c 31 35 29 0d 0b  |anim",36,7,15)..|
0001a9f0  23 05 cb 0d 0b 24 05 e1  0d 0b 25 04 0d 0b 26 18  |#....$....%...&.|
0001aa00  dd f2 6d 61 6b 65 62 6c  61 64 64 65 72 28 77 6c  |..makebladder(wl|
0001aa10  65 76 25 29 0d 0b 27 26  f2 63 6f 70 79 73 70 28  |ev%)..'&.copysp(|
0001aa20  22 62 6c 61 64 64 65 72  22 2b c3 28 77 6c 65 76  |"bladder"+.(wlev|
0001aa30  25 29 2c 22 61 6e 69 6d  22 29 0d 0b 28 05 e1 0d  |%),"anim")..(...|
0001aa40  0b 29 04 0d 0b 2a 16 dd  f2 6d 61 6b 65 6c 79 6d  |.)...*...makelym|
0001aa50  70 68 28 77 6c 65 76 25  29 0d 0b 2b 10 f2 63 6c  |ph(wlev%)..+..cl|
0001aa60  5f 61 6e 69 6d 28 31 35  29 0d 0b 2c 0e c8 8e 20  |_anim(15)..,... |
0001aa70  77 6c 65 76 25 20 ca 0d  0b 2d 3d 20 c9 20 30 3a  |wlev% ...-= . 0:|
0001aa80  20 f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  | .add_sp(detarea|
0001aa90  25 2c 22 6c 79 6d 70 68  22 2c 61 6e 69 6d 61 72  |%,"lymph",animar|
0001aaa0  65 61 25 2c 22 61 6e 69  6d 22 2c 32 38 2c 31 35  |ea%,"anim",28,15|
0001aab0  2c 31 35 29 0d 0b 2e 3f  20 c9 20 31 3a 20 f2 61  |,15)...? . 1: .a|
0001aac0  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001aad0  6c 79 6d 70 68 78 73 22  2c 61 6e 69 6d 61 72 65  |lymphxs",animare|
0001aae0  61 25 2c 22 61 6e 69 6d  22 2c 32 38 2c 31 35 2c  |a%,"anim",28,15,|
0001aaf0  31 35 29 0d 0b 2f 05 cb  0d 0b 30 9b f2 61 64 64  |15)../....0..add|
0001ab00  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 6c 69  |_sp(detarea%,"li|
0001ab10  6e 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |n",animarea%,"an|
0001ab20  69 6d 22 2c 36 35 2c 37  2c 31 35 29 3a f2 61 64  |im",65,7,15):.ad|
0001ab30  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 6c  |d_sp(detarea%,"l|
0001ab40  6f 75 74 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |out",animarea%,"|
0001ab50  61 6e 69 6d 22 2c 39 34  2c 31 34 30 2c 31 35 29  |anim",94,140,15)|
0001ab60  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
0001ab70  25 2c 22 6c 61 72 72 30  22 2c 61 6e 69 6d 61 72  |%,"larr0",animar|
0001ab80  65 61 25 2c 22 61 6e 69  6d 22 2c 34 36 2c 38 2c  |ea%,"anim",46,8,|
0001ab90  31 35 29 0d 0b 31 a1 f2  61 64 64 5f 73 70 28 64  |15)..1..add_sp(d|
0001aba0  65 74 61 72 65 61 25 2c  22 6c 61 72 72 31 22 2c  |etarea%,"larr1",|
0001abb0  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
0001abc0  2c 31 31 34 2c 32 2c 31  35 29 3a f2 61 64 64 5f  |,114,2,15):.add_|
0001abd0  73 70 28 64 65 74 61 72  65 61 25 2c 22 6c 61 72  |sp(detarea%,"lar|
0001abe0  72 31 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |r1",animarea%,"a|
0001abf0  6e 69 6d 22 2c 31 36 31  2c 31 30 2c 31 35 29 3a  |nim",161,10,15):|
0001ac00  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
0001ac10  2c 22 6c 61 72 72 32 22  2c 61 6e 69 6d 61 72 65  |,"larr2",animare|
0001ac20  61 25 2c 22 61 6e 69 6d  22 2c 38 31 2c 31 33 33  |a%,"anim",81,133|
0001ac30  2c 31 35 29 0d 0b 32 05  e1 0d 0b 33 04 0d 0b 34  |,15)..2....3...4|
0001ac40  19 dd f2 6d 61 6b 65 73  6d 69 6e 74 65 73 74 28  |...makesmintest(|
0001ac50  77 6c 65 76 25 29 0d 0b  35 10 f2 63 6c 5f 61 6e  |wlev%)..5..cl_an|
0001ac60  69 6d 28 31 35 29 0d 0b  36 0e c8 8e 20 77 6c 65  |im(15)..6... wle|
0001ac70  76 25 20 ca 0d 0b 37 3b  20 c9 20 30 3a 20 f2 61  |v% ...7; . 0: .a|
0001ac80  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001ac90  73 6d 69 6e 74 22 2c 61  6e 69 6d 61 72 65 61 25  |smint",animarea%|
0001aca0  2c 22 61 6e 69 6d 22 2c  30 2c 30 2c 31 35 29 0d  |,"anim",0,0,15).|
0001acb0  0b 38 3d 20 c9 20 31 3a  20 f2 61 64 64 5f 73 70  |.8= . 1: .add_sp|
0001acc0  28 64 65 74 61 72 65 61  25 2c 22 73 6d 69 6e 74  |(detarea%,"smint|
0001acd0  78 73 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |xs",animarea%,"a|
0001ace0  6e 69 6d 22 2c 30 2c 30  2c 31 35 29 0d 0b 39 3b  |nim",0,0,15)..9;|
0001acf0  20 c9 20 32 3a 20 f2 61  64 64 5f 73 70 28 64 65  | . 2: .add_sp(de|
0001ad00  74 61 72 65 61 25 2c 22  76 69 6c 6c 69 22 2c 61  |tarea%,"villi",a|
0001ad10  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001ad20  30 2c 30 2c 31 35 29 0d  0b 3a 05 cb 0d 0b 3b 05  |0,0,15)..:....;.|
0001ad30  e1 0d 0b 3c 04 0d 0b 3d  19 dd f2 6d 61 6b 65 6c  |...<...=...makel|
0001ad40  67 69 6e 74 65 73 74 28  77 6c 65 76 25 29 0d 0b  |gintest(wlev%)..|
0001ad50  3e 42 f2 63 6c 5f 61 6e  69 6d 28 31 35 29 3a f2  |>B.cl_anim(15):.|
0001ad60  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001ad70  22 6c 67 69 6e 74 22 2c  61 6e 69 6d 61 72 65 61  |"lgint",animarea|
0001ad80  25 2c 22 61 6e 69 6d 22  2c 30 2c 30 2c 31 35 29  |%,"anim",0,0,15)|
0001ad90  0d 0b 3f 0e c8 8e 20 77  6c 65 76 25 20 ca 0d 0b  |..?... wlev% ...|
0001ada0  40 3d 20 c9 20 31 3a 20  f2 61 64 64 5f 73 70 28  |@= . 1: .add_sp(|
0001adb0  64 65 74 61 72 65 61 25  2c 22 6c 67 69 6e 74 78  |detarea%,"lgintx|
0001adc0  73 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |s",animarea%,"an|
0001add0  69 6d 22 2c 30 2c 30 2c  31 35 29 0d 0b 41 05 cb  |im",0,0,15)..A..|
0001ade0  0d 0b 42 05 e1 0d 0b 43  04 0d 0b 44 17 dd f2 6d  |..B....C...D...m|
0001adf0  61 6b 65 66 65 6d 61 6c  65 28 77 6c 65 76 25 29  |akefemale(wlev%)|
0001ae00  0d 0b 45 10 f2 63 6c 5f  61 6e 69 6d 28 31 35 29  |..E..cl_anim(15)|
0001ae10  0d 0b 46 0e c8 8e 20 77  6c 65 76 25 20 ca 0d 0b  |..F... wlev% ...|
0001ae20  47 3d 20 c9 20 30 3a 20  f2 61 64 64 5f 73 70 28  |G= . 0: .add_sp(|
0001ae30  64 65 74 61 72 65 61 25  2c 22 66 65 6d 61 6c 65  |detarea%,"female|
0001ae40  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
0001ae50  6d 22 2c 31 31 2c 35 2c  31 35 29 0d 0b 48 a8 20  |m",11,5,15)..H. |
0001ae60  c9 20 31 3a 20 f2 61 64  64 5f 73 70 28 64 65 74  |. 1: .add_sp(det|
0001ae70  61 72 65 61 25 2c 22 66  65 6d 61 6c 65 22 2c 61  |area%,"female",a|
0001ae80  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001ae90  31 31 2c 35 2c 31 35 29  3a f2 61 64 64 5f 73 70  |11,5,15):.add_sp|
0001aea0  28 64 65 74 61 72 65 61  25 2c 22 66 65 6d 61 6c  |(detarea%,"femal|
0001aeb0  65 78 73 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |exs",animarea%,"|
0001aec0  61 6e 69 6d 22 2c 31 31  2c 35 2c 38 29 3a f2 61  |anim",11,5,8):.a|
0001aed0  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001aee0  66 65 6d 61 6c 65 78 73  30 22 2c 61 6e 69 6d 61  |femalexs0",anima|
0001aef0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 31 31 2c 35  |rea%,"anim",11,5|
0001af00  2c 30 29 0d 0b 49 3d 20  c9 20 32 3a 20 f2 61 64  |,0)..I= . 2: .ad|
0001af10  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 6f  |d_sp(detarea%,"o|
0001af20  76 61 72 79 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |vary",animarea%,|
0001af30  22 61 6e 69 6d 22 2c 31  35 2c 31 34 2c 31 35 29  |"anim",15,14,15)|
0001af40  0d 0b 4a 05 cb 0d 0b 4b  05 e1 0d 0b 4c 04 0d 0b  |..J....K....L...|
0001af50  4d 15 dd f2 6d 61 6b 65  6d 61 6c 65 28 77 6c 65  |M...makemale(wle|
0001af60  76 25 29 0d 0b 4e 10 f2  63 6c 5f 61 6e 69 6d 28  |v%)..N..cl_anim(|
0001af70  31 35 29 0d 0b 4f 0e c8  8e 20 77 6c 65 76 25 20  |15)..O... wlev% |
0001af80  ca 0d 0b 50 3c 20 c9 20  30 3a 20 f2 61 64 64 5f  |...P< . 0: .add_|
0001af90  73 70 28 64 65 74 61 72  65 61 25 2c 22 6d 61 6c  |sp(detarea%,"mal|
0001afa0  65 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |e",animarea%,"an|
0001afb0  69 6d 22 2c 36 33 2c 31  30 2c 31 35 29 0d 0b 51  |im",63,10,15)..Q|
0001afc0  3e 20 c9 20 31 3a 20 f2  61 64 64 5f 73 70 28 64  |> . 1: .add_sp(d|
0001afd0  65 74 61 72 65 61 25 2c  22 6d 61 6c 65 78 73 22  |etarea%,"malexs"|
0001afe0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001aff0  22 2c 36 33 2c 31 30 2c  31 35 29 0d 0b 52 3f 20  |",63,10,15)..R? |
0001b000  c9 20 32 3a 20 f2 61 64  64 5f 73 70 28 64 65 74  |. 2: .add_sp(det|
0001b010  61 72 65 61 25 2c 22 73  65 6d 69 6e 74 75 62 22  |area%,"semintub"|
0001b020  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001b030  22 2c 31 32 2c 36 2c 31  35 29 0d 0b 53 05 cb 0d  |",12,6,15)..S...|
0001b040  0b 54 05 e1 0d 0b 55 04  0d 0b 56 14 dd f2 6d 61  |.T....U...V...ma|
0001b050  6b 65 65 61 72 28 77 6c  65 76 25 29 0d 0b 57 10  |keear(wlev%)..W.|
0001b060  f2 63 6c 5f 61 6e 69 6d  28 31 35 29 0d 0b 58 0e  |.cl_anim(15)..X.|
0001b070  c8 8e 20 77 6c 65 76 25  20 ca 0d 0b 59 3d 20 c9  |.. wlev% ...Y= .|
0001b080  20 30 3a 20 f2 61 64 64  5f 73 70 28 64 65 74 61  | 0: .add_sp(deta|
0001b090  72 65 61 25 2c 22 65 61  72 68 6f 6c 65 22 2c 61  |rea%,"earhole",a|
0001b0a0  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001b0b0  36 2c 36 2c 31 35 29 0d  0b 5a aa 20 c9 20 31 3a  |6,6,15)..Z. . 1:|
0001b0c0  20 f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  | .add_sp(detarea|
0001b0d0  25 2c 22 63 6f 63 68 6c  65 61 22 2c 61 6e 69 6d  |%,"cochlea",anim|
0001b0e0  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 36 2c 36  |area%,"anim",6,6|
0001b0f0  2c 31 35 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |,15):.add_sp(det|
0001b100  61 72 65 61 25 2c 22 6d  61 6c 6c 65 75 73 30 22  |area%,"malleus0"|
0001b110  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001b120  22 2c 34 33 2c 37 33 2c  38 29 3a f2 61 64 64 5f  |",43,73,8):.add_|
0001b130  73 70 28 64 65 74 61 72  65 61 25 2c 22 65 61 72  |sp(detarea%,"ear|
0001b140  6e 65 72 76 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |nerv",animarea%,|
0001b150  22 61 6e 69 6d 22 2c 31  36 32 2c 35 36 2c 31 35  |"anim",162,56,15|
0001b160  29 0d 0b 5b e0 20 c9 20  32 3a 20 f2 61 64 64 5f  |)..[. . 2: .add_|
0001b170  73 70 28 64 65 74 61 72  65 61 25 2c 22 63 6f 63  |sp(detarea%,"coc|
0001b180  68 6c 65 61 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |hlea",animarea%,|
0001b190  22 61 6e 69 6d 22 2c 36  2c 36 2c 31 35 29 3a f2  |"anim",6,6,15):.|
0001b1a0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001b1b0  22 63 6f 63 68 6c 65 61  78 22 2c 61 6e 69 6d 61  |"cochleax",anima|
0001b1c0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 35 30 2c 31  |rea%,"anim",50,1|
0001b1d0  37 2c 38 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |7,8):.add_sp(det|
0001b1e0  61 72 65 61 25 2c 22 6d  61 6c 6c 65 75 73 30 22  |area%,"malleus0"|
0001b1f0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001b200  22 2c 34 33 2c 37 33 2c  38 29 3a f2 61 64 64 5f  |",43,73,8):.add_|
0001b210  73 70 28 64 65 74 61 72  65 61 25 2c 22 65 61 72  |sp(detarea%,"ear|
0001b220  6e 65 72 76 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |nerv",animarea%,|
0001b230  22 61 6e 69 6d 22 2c 31  36 32 2c 35 36 2c 31 35  |"anim",162,56,15|
0001b240  29 0d 0b 5c 05 cb 0d 0b  5d 05 e1 0d 0b 5e 04 0d  |)..\....]....^..|
0001b250  0b 5f 17 dd f2 6d 61 6b  65 6d 75 73 63 6c 65 28  |._...makemuscle(|
0001b260  77 6c 65 76 25 29 0d 0b  60 46 f2 63 6c 5f 61 6e  |wlev%)..`F.cl_an|
0001b270  69 6d 28 31 35 29 3a f2  61 64 64 5f 73 70 28 64  |im(15):.add_sp(d|
0001b280  65 74 61 72 65 61 25 2c  22 6d 75 73 63 6c 78 73  |etarea%,"musclxs|
0001b290  30 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |0",animarea%,"an|
0001b2a0  69 6d 22 2c 38 2c 31 37  2c 31 35 29 0d 0b 61 40  |im",8,17,15)..a@|
0001b2b0  e7 77 6c 65 76 25 3d 30  3a f2 61 64 64 5f 73 70  |.wlev%=0:.add_sp|
0001b2c0  28 64 65 74 61 72 65 61  25 2c 22 6d 75 73 63 6c  |(detarea%,"muscl|
0001b2d0  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
0001b2e0  6d 22 2c 34 32 2c 33 34  2c 31 35 29 0d 0b 62 05  |m",42,34,15)..b.|
0001b2f0  e1 0d 0b 63 04 0d 0b 64  17 dd f2 6d 61 6b 65 6e  |...c...d...maken|
0001b300  65 72 76 65 73 28 77 6c  65 76 25 29 0d 0b 65 24  |erves(wlev%)..e$|
0001b310  f2 63 6f 70 79 73 70 28  22 6e 65 72 76 65 22 2b  |.copysp("nerve"+|
0001b320  c3 28 77 6c 65 76 25 29  2c 22 61 6e 69 6d 22 29  |.(wlev%),"anim")|
0001b330  0d 0b 66 05 e1 0d 0b 67  04 0d 0b 68 16 dd f2 6d  |..f....g...h...m|
0001b340  61 6b 65 73 77 65 61 74  28 77 6c 65 76 25 29 0d  |akesweat(wlev%).|
0001b350  0b 69 0e c8 8e 20 77 6c  65 76 25 20 ca 0d 0b 6a  |.i... wlev% ...j|
0001b360  81 20 c9 20 30 3a 20 f2  63 6c 5f 61 6e 69 6d 28  |. . 0: .cl_anim(|
0001b370  31 35 29 3a f2 61 64 64  5f 73 70 28 64 65 74 61  |15):.add_sp(deta|
0001b380  72 65 61 25 2c 22 73 6b  62 61 63 6b 22 2c 61 6e  |rea%,"skback",an|
0001b390  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 32  |imarea%,"anim",2|
0001b3a0  38 2c 32 37 2c 31 35 29  3a f2 61 64 64 5f 73 70  |8,27,15):.add_sp|
0001b3b0  28 64 65 74 61 72 65 61  25 2c 22 73 6b 66 72 6f  |(detarea%,"skfro|
0001b3c0  6e 74 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |nt",animarea%,"a|
0001b3d0  6e 69 6d 22 2c 31 36 2c  33 34 2c 31 35 29 0d 0b  |nim",16,34,15)..|
0001b3e0  6b 22 20 c9 20 31 3a 20  f2 63 6f 70 79 73 70 28  |k" . 1: .copysp(|
0001b3f0  22 73 6b 69 6e 78 73 22  2c 22 61 6e 69 6d 22 29  |"skinxs","anim")|
0001b400  0d 0b 6c 05 cb 0d 0b 6d  05 e1 0d 0b 6e 04 0d 0b  |..l....m....n...|
0001b410  6f 0e dd f2 6d 6f 76 65  6e 6f 73 65 0d 0b 70 43  |o...movenose..pC|
0001b420  e7 66 69 72 73 74 6d 6f  76 65 25 8c 3a 63 61 6e  |.firstmove%.:can|
0001b430  25 3d 30 3a 66 69 72 73  74 6d 6f 76 65 25 3d a3  |%=0:firstmove%=.|
0001b440  3a 65 6c 61 70 73 25 3d  30 3a e3 73 25 3d 30 b8  |:elaps%=0:.s%=0.|
0001b450  31 36 3a 73 70 6b 25 28  73 25 29 3d 30 3a ed 0d  |16:spk%(s%)=0:..|
0001b460  0b 71 24 e7 63 61 6e 25  3e 30 8c 3a e7 91 3c 6c  |.q$.can%>0.:..<l|
0001b470  61 73 74 74 69 6d 65 25  2b 31 2d 65 6c 61 70 73  |asttime%+1-elaps|
0001b480  25 3a e1 0d 0b 72 0c 65  6c 61 70 73 25 3d 91 0d  |%:...r.elaps%=..|
0001b490  0b 73 0d e7 74 65 78 74  6f 6e 25 8c 0d 0b 74 11  |.s..texton%...t.|
0001b4a0  20 e7 74 65 78 74 6e 65  77 6f 6e 25 8c 0d 0b 75  | .textnewon%...u|
0001b4b0  3f 20 20 74 65 78 74 6e  65 77 6f 6e 25 3d 30 3a  |?  textnewon%=0:|
0001b4c0  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 61 6e  |.puticnstring(an|
0001b4d0  69 6d 77 25 2c 35 30 2c  61 6e 69 6d 77 6f 72 64  |imw%,50,animword|
0001b4e0  73 24 28 73 69 6d 70 25  2c 30 29 29 0d 0b 76 6a  |s$(simp%,0))..vj|
0001b4f0  20 20 e7 63 61 6e 25 3c  31 33 3a f2 70 75 74 69  |  .can%<13:.puti|
0001b500  63 6e 73 74 72 69 6e 67  28 61 6e 69 6d 77 25 2c  |cnstring(animw%,|
0001b510  35 31 2c 61 6e 69 6d 77  6f 72 64 73 24 28 73 69  |51,animwords$(si|
0001b520  6d 70 25 2c 31 29 29 3a  8b 3a f2 70 75 74 69 63  |mp%,1)):.:.putic|
0001b530  6e 73 74 72 69 6e 67 28  61 6e 69 6d 77 25 2c 35  |nstring(animw%,5|
0001b540  31 2c 61 6e 69 6d 77 6f  72 64 73 24 28 73 69 6d  |1,animwords$(sim|
0001b550  70 25 2c 32 29 29 0d 0b  77 06 20 cd 0d 0b 78 3a  |p%,2))..w. ...x:|
0001b560  20 e7 63 61 6e 25 3d 31  33 3a f2 70 75 74 69 63  | .can%=13:.putic|
0001b570  6e 73 74 72 69 6e 67 28  61 6e 69 6d 77 25 2c 35  |nstring(animw%,5|
0001b580  31 2c 61 6e 69 6d 77 6f  72 64 73 24 28 73 69 6d  |1,animwords$(sim|
0001b590  70 25 2c 32 29 29 0d 0b  79 05 cd 0d 0b 7a 2b e7  |p%,2))..y....z+.|
0001b5a0  63 61 6e 25 3d 30 3a 73  70 6b 25 28 35 29 3d 31  |can%=0:spk%(5)=1|
0001b5b0  3a 73 70 6b 25 28 31 31  29 3d 31 3a 73 70 6b 25  |:spk%(11)=1:spk%|
0001b5c0  28 31 32 29 3d 31 0d 0b  7b 53 e7 63 61 6e 25 3d  |(12)=1..{S.can%=|
0001b5d0  34 3a 73 70 6b 25 28 31  29 3d 31 3a 73 70 6b 25  |4:spk%(1)=1:spk%|
0001b5e0  28 33 29 3d 31 3a 73 70  6b 25 28 34 29 3d 31 3a  |(3)=1:spk%(4)=1:|
0001b5f0  73 70 6b 25 28 37 29 3d  31 3a 73 70 6b 25 28 38  |spk%(7)=1:spk%(8|
0001b600  29 3d 31 3a 73 70 6b 25  28 31 33 29 3d 31 3a 73  |)=1:spk%(13)=1:s|
0001b610  70 6b 25 28 31 34 29 3d  31 0d 0b 7c 54 e7 63 61  |pk%(14)=1..|T.ca|
0001b620  6e 25 3d 38 3a 73 70 6b  25 28 30 29 3d 31 3a 73  |n%=8:spk%(0)=1:s|
0001b630  70 6b 25 28 32 29 3d 31  3a 73 70 6b 25 28 36 29  |pk%(2)=1:spk%(6)|
0001b640  3d 31 3a 73 70 6b 25 28  39 29 3d 31 3a 73 70 6b  |=1:spk%(9)=1:spk|
0001b650  25 28 31 30 29 3d 31 3a  73 70 6b 25 28 31 35 29  |%(10)=1:spk%(15)|
0001b660  3d 31 3a 73 70 6b 25 28  31 36 29 3d 31 0d 0b 7d  |=1:spk%(16)=1..}|
0001b670  1d f2 63 6f 70 79 73 70  28 22 6e 6f 73 74 6f 6e  |..copysp("noston|
0001b680  31 22 2c 22 61 6e 69 6d  22 29 0d 0b 7e 0c e3 73  |1","anim")..~..s|
0001b690  25 3d 30 b8 31 36 0d 0b  7f 83 e7 28 73 70 6b 25  |%=0.16.....(spk%|
0001b6a0  28 73 25 29 3e 30 29 80  28 73 70 6b 25 28 73 25  |(s%)>0).(spk%(s%|
0001b6b0  29 3c 3d 34 29 3a f2 61  64 64 5f 73 70 28 64 65  |)<=4):.add_sp(de|
0001b6c0  74 61 72 65 61 25 2c 22  73 6d 65 6c 6c 22 2b c3  |tarea%,"smell"+.|
0001b6d0  28 73 6d 65 6c 6c 25 28  73 25 29 29 2c 61 6e 69  |(smell%(s%)),ani|
0001b6e0  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 31 33  |marea%,"anim",13|
0001b6f0  2b 28 38 2a 73 25 29 2b  28 35 2a 73 70 6b 25 28  |+(8*s%)+(5*spk%(|
0001b700  73 25 29 29 2c 31 34 34  2d 28 36 2a 73 70 6b 25  |s%)),144-(6*spk%|
0001b710  28 73 25 29 29 2c 31 35  29 0d 0b 80 80 e7 28 73  |(s%)),15).....(s|
0001b720  70 6b 25 28 73 25 29 3e  3d 34 29 80 28 73 70 6b  |pk%(s%)>=4).(spk|
0001b730  25 28 73 25 29 3c 3d 36  29 3a f2 61 64 64 5f 73  |%(s%)<=6):.add_s|
0001b740  70 28 64 65 74 61 72 65  61 25 2c 22 73 70 61 72  |p(detarea%,"spar|
0001b750  6b 22 2b c3 28 32 2b 28  28 63 61 6e 25 2b 73 25  |k"+.(2+((can%+s%|
0001b760  29 83 32 29 29 2c 61 6e  69 6d 61 72 65 61 25 2c  |).2)),animarea%,|
0001b770  22 61 6e 69 6d 22 2c 33  33 2b 28 38 2a 73 25 29  |"anim",33+(8*s%)|
0001b780  2c 31 31 32 2d 28 38 2a  28 73 70 6b 25 28 73 25  |,112-(8*(spk%(s%|
0001b790  29 2d 34 29 29 2c 31 35  29 0d 0b 81 6c e7 28 73  |)-4)),15)...l.(s|
0001b7a0  70 6b 25 28 73 25 29 3e  34 29 80 28 63 61 6e 25  |pk%(s%)>4).(can%|
0001b7b0  3c 3d 32 31 29 3a f2 61  64 64 5f 73 70 28 64 65  |<=21):.add_sp(de|
0001b7c0  74 61 72 65 61 25 2c 22  73 6d 65 6c 6c 22 2b c3  |tarea%,"smell"+.|
0001b7d0  28 73 6d 65 6c 6c 25 28  73 25 29 29 2c 61 6e 69  |(smell%(s%)),ani|
0001b7e0  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 31 33  |marea%,"anim",13|
0001b7f0  2b 28 38 2a 73 25 29 2b  32 30 2c 31 34 34 2d 32  |+(8*s%)+20,144-2|
0001b800  34 2c 31 35 29 0d 0b 82  23 e7 73 70 6b 25 28 73  |4,15)...#.spk%(s|
0001b810  25 29 3d 37 3a 74 65 6d  70 24 28 73 25 29 3d 6f  |%)=7:temp$(s%)=o|
0001b820  6c 66 31 24 28 73 25 29  0d 0b 83 50 e7 28 73 70  |lf1$(s%)...P.(sp|
0001b830  6b 25 28 73 25 29 3e 36  29 80 28 73 70 6b 25 28  |k%(s%)>6).(spk%(|
0001b840  73 25 29 3c 31 37 29 80  28 a9 28 74 65 6d 70 24  |s%)<17).(.(temp$|
0001b850  28 73 25 29 29 3c 36 29  3a 74 65 6d 70 24 28 73  |(s%))<6):temp$(s|
0001b860  25 29 3d 6f 6c 66 32 24  28 77 68 69 63 68 6f 6c  |%)=olf2$(whichol|
0001b870  66 32 25 28 73 25 29 29  0d 0b 84 ae e7 28 73 70  |f2%(s%)).....(sp|
0001b880  6b 25 28 73 25 29 3e 36  29 80 28 a9 28 74 65 6d  |k%(s%)>6).(.(tem|
0001b890  70 24 28 73 25 29 29 3e  35 29 3a f2 61 64 64 5f  |p$(s%))>5):.add_|
0001b8a0  73 70 28 64 65 74 61 72  65 61 25 2c 22 73 70 61  |sp(detarea%,"spa|
0001b8b0  72 6b 22 2b c3 28 32 2b  28 28 63 61 6e 25 2b 73  |rk"+.(2+((can%+s|
0001b8c0  25 29 83 32 29 29 2c 61  6e 69 6d 61 72 65 61 25  |%).2)),animarea%|
0001b8d0  2c 22 61 6e 69 6d 22 2c  bb 28 c1 74 65 6d 70 24  |,"anim",.(.temp$|
0001b8e0  28 73 25 29 2c 31 2c 33  29 29 2c bb 28 c1 74 65  |(s%),1,3)),.(.te|
0001b8f0  6d 70 24 28 73 25 29 2c  35 2c 32 29 29 2c 31 35  |mp$(s%),5,2)),15|
0001b900  29 3a 74 65 6d 70 24 28  73 25 29 3d c2 74 65 6d  |):temp$(s%)=.tem|
0001b910  70 24 28 73 25 29 2c a9  28 74 65 6d 70 24 28 73  |p$(s%),.(temp$(s|
0001b920  25 29 29 2d 37 29 0d 0b  85 38 e7 28 73 70 6b 25  |%))-7)...8.(spk%|
0001b930  28 73 25 29 3e 30 29 80  28 73 70 6b 25 28 73 25  |(s%)>0).(spk%(s%|
0001b940  29 3c 3d 33 29 80 28 28  63 61 6e 25 83 34 29 3d  |)<=3).((can%.4)=|
0001b950  33 29 3a 73 70 6b 25 28  73 25 29 2b 3d 31 0d 0b  |3):spk%(s%)+=1..|
0001b960  86 1b e7 73 70 6b 25 28  73 25 29 3e 33 3a 73 70  |...spk%(s%)>3:sp|
0001b970  6b 25 28 73 25 29 2b 3d  31 0d 0b 87 05 ed 0d 0b  |k%(s%)+=1.......|
0001b980  88 3a e7 74 65 78 74 6f  6e 25 8c 3a e7 28 63 61  |.:.texton%.:.(ca|
0001b990  6e 25 3d 31 31 29 84 28  63 61 6e 25 3d 34 30 29  |n%=11).(can%=40)|
0001b9a0  3a f2 73 65 6c 65 63 74  69 63 6e 28 61 6e 69 6d  |:.selecticn(anim|
0001b9b0  77 25 2c 34 39 2c b9 29  0d 0b 89 0b 63 61 6e 25  |w%,49,.)....can%|
0001b9c0  2b 3d 31 0d 0b 8a 13 65  6c 61 70 73 25 3d 91 2d  |+=1....elaps%=.-|
0001b9d0  65 6c 61 70 73 25 0d 0b  8b 1d f2 70 6c 6f 74 61  |elaps%.....plota|
0001b9e0  6e 69 6d 6d 6f 76 65 3a  6c 61 73 74 74 69 6d 65  |nimmove:lasttime|
0001b9f0  25 3d 91 0d 0b 8c 2f e7  63 61 6e 25 3d 34 32 3a  |%=..../.can%=42:|
0001ba00  f2 6d 61 6b 65 6e 6f 73  65 28 31 29 3a f2 61 6e  |.makenose(1):.an|
0001ba10  69 6d 61 74 65 65 6e 64  3a f2 70 6c 6f 74 61 6e  |imateend:.plotan|
0001ba20  69 6d 0d 0b 8d 05 e1 0d  0b 8e 04 0d 0b 8f 0e dd  |im..............|
0001ba30  f2 6d 6f 76 65 61 72 74  76 0d 0b 90 33 e7 66 69  |.moveartv...3.fi|
0001ba40  72 73 74 6d 6f 76 65 25  8c 3a 63 61 6e 25 3d 30  |rstmove%.:can%=0|
0001ba50  3a 66 69 72 73 74 6d 6f  76 65 25 3d a3 3a 74 69  |:firstmove%=.:ti|
0001ba60  25 3d 31 3a 65 6c 61 70  73 25 3d 30 0d 0b 91 26  |%=1:elaps%=0...&|
0001ba70  e7 63 61 6e 25 3e 30 8c  3a e7 91 3c 6c 61 73 74  |.can%>0.:..<last|
0001ba80  74 69 6d 65 25 2b 74 69  25 2d 65 6c 61 70 73 25  |time%+ti%-elaps%|
0001ba90  3a e1 0d 0b 92 0c 65 6c  61 70 73 25 3d 91 0d 0b  |:.....elaps%=...|
0001baa0  93 0d e7 74 65 78 74 6f  6e 25 8c 0d 0b 94 11 20  |...texton%..... |
0001bab0  e7 74 65 78 74 6e 65 77  6f 6e 25 8c 0d 0b 95 3f  |.textnewon%....?|
0001bac0  20 20 74 65 78 74 6e 65  77 6f 6e 25 3d 30 3a f2  |  textnewon%=0:.|
0001bad0  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
0001bae0  6d 77 25 2c 35 30 2c 61  6e 69 6d 77 6f 72 64 73  |mw%,50,animwords|
0001baf0  24 28 73 69 6d 70 25 2c  30 29 29 0d 0b 96 6c 20  |$(simp%,0))...l |
0001bb00  20 e7 28 63 61 6e 25 3c  35 36 29 3a f2 70 75 74  | .(can%<56):.put|
0001bb10  69 63 6e 73 74 72 69 6e  67 28 61 6e 69 6d 77 25  |icnstring(animw%|
0001bb20  2c 35 31 2c 61 6e 69 6d  77 6f 72 64 73 24 28 73  |,51,animwords$(s|
0001bb30  69 6d 70 25 2c 31 29 29  3a 8b 3a f2 70 75 74 69  |imp%,1)):.:.puti|
0001bb40  63 6e 73 74 72 69 6e 67  28 61 6e 69 6d 77 25 2c  |cnstring(animw%,|
0001bb50  35 31 2c 61 6e 69 6d 77  6f 72 64 73 24 28 73 69  |51,animwords$(si|
0001bb60  6d 70 25 2c 32 29 29 0d  0b 97 06 20 cd 0d 0b 98  |mp%,2)).... ....|
0001bb70  3c 20 e7 28 63 61 6e 25  3d 35 36 29 3a f2 70 75  |< .(can%=56):.pu|
0001bb80  74 69 63 6e 73 74 72 69  6e 67 28 61 6e 69 6d 77  |ticnstring(animw|
0001bb90  25 2c 35 31 2c 61 6e 69  6d 77 6f 72 64 73 24 28  |%,51,animwords$(|
0001bba0  73 69 6d 70 25 2c 32 29  29 0d 0b 99 05 cd 0d 0b  |simp%,2)).......|
0001bbb0  9a 1c f2 63 6f 70 79 73  70 28 22 61 76 6d 6f 76  |...copysp("avmov|
0001bbc0  65 22 2c 22 61 6e 69 6d  22 29 0d 0b 9b 59 e7 28  |e","anim")...Y.(|
0001bbd0  63 61 6e 25 3e 39 29 80  28 63 61 6e 25 3c 3d 33  |can%>9).(can%<=3|
0001bbe0  32 29 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |2):.add_sp(detar|
0001bbf0  65 61 25 2c 22 61 62 75  6c 67 22 2c 61 6e 69 6d  |ea%,"abulg",anim|
0001bc00  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 32 37 2b  |area%,"anim",27+|
0001bc10  28 28 63 61 6e 25 2d 31  30 29 2a 34 29 2c 37 2c  |((can%-10)*4),7,|
0001bc20  31 36 29 0d 0b 9c 5a e7  28 63 61 6e 25 3e 32 39  |16)...Z.(can%>29|
0001bc30  29 80 28 63 61 6e 25 3c  3d 35 32 29 3a f2 61 64  |).(can%<=52):.ad|
0001bc40  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 61  |d_sp(detarea%,"a|
0001bc50  62 75 6c 67 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |bulg",animarea%,|
0001bc60  22 61 6e 69 6d 22 2c 32  37 2b 28 28 63 61 6e 25  |"anim",27+((can%|
0001bc70  2d 33 30 29 2a 34 29 2c  37 2c 31 36 29 0d 0b 9d  |-30)*4),7,16)...|
0001bc80  69 e7 28 28 63 61 6e 25  3e 37 32 29 80 28 63 61  |i.((can%>72).(ca|
0001bc90  6e 25 3c 3d 39 30 29 29  84 28 28 63 61 6e 25 3e  |n%<=90)).((can%>|
0001bca0  31 30 34 29 80 28 63 61  6e 25 3c 3d 31 32 32 29  |104).(can%<=122)|
0001bcb0  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
0001bcc0  61 25 2c 22 76 76 61 6c  76 30 22 2c 61 6e 69 6d  |a%,"vvalv0",anim|
0001bcd0  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 34 35 2c  |area%,"anim",45,|
0001bce0  38 31 2c 31 36 29 0d 0b  9e 4f e7 28 63 61 6e 25  |81,16)...O.(can%|
0001bcf0  3e 39 31 29 80 28 63 61  6e 25 3c 3d 31 30 33 29  |>91).(can%<=103)|
0001bd00  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
0001bd10  25 2c 22 76 76 61 6c 76  31 22 2c 61 6e 69 6d 61  |%,"vvalv1",anima|
0001bd20  72 65 61 25 2c 22 61 6e  69 6d 22 2c 34 35 2c 38  |rea%,"anim",45,8|
0001bd30  31 2c 31 36 29 0d 0b 9f  5d e7 28 63 61 6e 25 3e  |1,16)...].(can%>|
0001bd40  35 39 29 80 28 63 61 6e  25 3c 3d 38 35 29 3a f2  |59).(can%<=85):.|
0001bd50  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001bd60  22 76 61 72 72 30 22 2c  61 6e 69 6d 61 72 65 61  |"varr0",animarea|
0001bd70  25 2c 22 61 6e 69 6d 22  2c 31 32 32 2d 28 28 63  |%,"anim",122-((c|
0001bd80  61 6e 25 2d 36 30 29 2a  34 29 2c 31 30 35 2c 31  |an%-60)*4),105,1|
0001bd90  35 29 0d 0b a0 5d e7 28  63 61 6e 25 3e 37 32 29  |5)...].(can%>72)|
0001bda0  80 28 63 61 6e 25 3c 3d  38 35 29 3a f2 61 64 64  |.(can%<=85):.add|
0001bdb0  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 76 61  |_sp(detarea%,"va|
0001bdc0  72 72 30 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |rr0",animarea%,"|
0001bdd0  61 6e 69 6d 22 2c 31 32  32 2d 28 28 63 61 6e 25  |anim",122-((can%|
0001bde0  2d 37 33 29 2a 34 29 2c  31 30 35 2c 31 35 29 0d  |-73)*4),105,15).|
0001bdf0  0b a1 83 e7 28 63 61 6e  25 3e 38 35 29 80 28 63  |....(can%>85).(c|
0001be00  61 6e 25 3c 3d 38 39 29  3a f2 61 64 64 5f 73 70  |an%<=89):.add_sp|
0001be10  28 64 65 74 61 72 65 61  25 2c 22 76 61 72 72 30  |(detarea%,"varr0|
0001be20  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
0001be30  6d 22 2c 32 32 2c 31 30  35 2c 31 35 29 3a f2 61  |m",22,105,15):.a|
0001be40  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001be50  76 61 72 72 30 22 2c 61  6e 69 6d 61 72 65 61 25  |varr0",animarea%|
0001be60  2c 22 61 6e 69 6d 22 2c  37 34 2c 31 30 35 2c 31  |,"anim",74,105,1|
0001be70  35 29 0d 0b a2 9f e7 28  63 61 6e 25 3e 38 39 29  |5).....(can%>89)|
0001be80  80 28 63 61 6e 25 3c 3d  39 33 29 3a f2 61 64 64  |.(can%<=93):.add|
0001be90  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 76 61  |_sp(detarea%,"va|
0001bea0  72 72 31 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |rr1",animarea%,"|
0001beb0  61 6e 69 6d 22 2c 32 32  2b 28 28 63 61 6e 25 2d  |anim",22+((can%-|
0001bec0  39 30 29 2a 34 29 2c 31  30 35 2c 31 35 29 3a f2  |90)*4),105,15):.|
0001bed0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001bee0  22 76 61 72 72 31 22 2c  61 6e 69 6d 61 72 65 61  |"varr1",animarea|
0001bef0  25 2c 22 61 6e 69 6d 22  2c 37 34 2b 28 28 63 61  |%,"anim",74+((ca|
0001bf00  6e 25 2d 39 30 29 2a 34  29 2c 31 30 35 2c 31 35  |n%-90)*4),105,15|
0001bf10  29 0d 0b a3 82 e7 28 63  61 6e 25 3e 39 33 29 80  |).....(can%>93).|
0001bf20  28 63 61 6e 25 3c 3d 39  37 29 3a f2 61 64 64 5f  |(can%<=97):.add_|
0001bf30  73 70 28 64 65 74 61 72  65 61 25 2c 22 76 61 72  |sp(detarea%,"var|
0001bf40  72 32 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |r2",animarea%,"a|
0001bf50  6e 69 6d 22 2c 34 39 2c  39 35 2c 31 35 29 3a f2  |nim",49,95,15):.|
0001bf60  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001bf70  22 76 61 72 72 31 22 2c  61 6e 69 6d 61 72 65 61  |"varr1",animarea|
0001bf80  25 2c 22 61 6e 69 6d 22  2c 38 36 2c 31 30 35 2c  |%,"anim",86,105,|
0001bf90  31 35 29 0d 0b a4 83 e7  28 63 61 6e 25 3e 39 37  |15).....(can%>97|
0001bfa0  29 80 28 63 61 6e 25 3c  3d 31 30 31 29 3a f2 61  |).(can%<=101):.a|
0001bfb0  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001bfc0  76 61 72 72 33 22 2c 61  6e 69 6d 61 72 65 61 25  |varr3",animarea%|
0001bfd0  2c 22 61 6e 69 6d 22 2c  34 37 2c 39 37 2c 31 35  |,"anim",47,97,15|
0001bfe0  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
0001bff0  61 25 2c 22 76 61 72 72  31 22 2c 61 6e 69 6d 61  |a%,"varr1",anima|
0001c000  72 65 61 25 2c 22 61 6e  69 6d 22 2c 38 36 2c 31  |rea%,"anim",86,1|
0001c010  30 35 2c 31 35 29 0d 0b  a5 5f e7 28 63 61 6e 25  |05,15)..._.(can%|
0001c020  3e 31 30 31 29 80 28 63  61 6e 25 3c 3d 31 30 33  |>101).(can%<=103|
0001c030  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
0001c040  61 25 2c 22 76 61 72 72  30 22 2c 61 6e 69 6d 61  |a%,"varr0",anima|
0001c050  72 65 61 25 2c 22 61 6e  69 6d 22 2c 32 32 2d 28  |rea%,"anim",22-(|
0001c060  28 63 61 6e 25 2d 31 30  32 29 2a 34 29 2c 31 30  |(can%-102)*4),10|
0001c070  35 2c 31 35 29 0d 0b a6  5f e7 28 63 61 6e 25 3e  |5,15)..._.(can%>|
0001c080  31 30 31 29 80 28 63 61  6e 25 3c 3d 31 31 38 29  |101).(can%<=118)|
0001c090  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
0001c0a0  25 2c 22 76 61 72 72 30  22 2c 61 6e 69 6d 61 72  |%,"varr0",animar|
0001c0b0  65 61 25 2c 22 61 6e 69  6d 22 2c 38 36 2d 28 28  |ea%,"anim",86-((|
0001c0c0  63 61 6e 25 2d 31 30 32  29 2a 34 29 2c 31 30 35  |can%-102)*4),105|
0001c0d0  2c 31 35 29 0d 0b a7 4b  e7 28 63 61 6e 25 3d 31  |,15)...K.(can%=1|
0001c0e0  30 29 84 28 63 61 6e 25  3d 33 30 29 3a f2 61 64  |0).(can%=30):.ad|
0001c0f0  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 61  |d_sp(detarea%,"a|
0001c100  72 74 65 72 79 22 2c 61  6e 69 6d 61 72 65 61 25  |rtery",animarea%|
0001c110  2c 22 61 6e 69 6d 22 2c  36 2c 36 2c 31 35 29 0d  |,"anim",6,6,15).|
0001c120  0b a8 39 f2 61 64 64 5f  73 70 28 64 65 74 61 72  |..9.add_sp(detar|
0001c130  65 61 25 2c 22 68 65 61  72 74 61 72 72 22 2c 61  |ea%,"heartarr",a|
0001c140  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001c150  36 2c 37 36 2c 31 35 29  0d 0b a9 3b e7 74 65 78  |6,76,15)...;.tex|
0001c160  74 6f 6e 25 8c 3a e7 28  63 61 6e 25 3d 35 30 29  |ton%.:.(can%=50)|
0001c170  84 28 63 61 6e 25 3d 31  32 30 29 3a f2 73 65 6c  |.(can%=120):.sel|
0001c180  65 63 74 69 63 6e 28 61  6e 69 6d 77 25 2c 34 39  |ecticn(animw%,49|
0001c190  2c b9 29 0d 0b aa 0b 63  61 6e 25 2b 3d 31 0d 0b  |,.)....can%+=1..|
0001c1a0  ab 13 65 6c 61 70 73 25  3d 91 2d 65 6c 61 70 73  |..elaps%=.-elaps|
0001c1b0  25 0d 0b ac 1d f2 70 6c  6f 74 61 6e 69 6d 6d 6f  |%.....plotanimmo|
0001c1c0  76 65 3a 6c 61 73 74 74  69 6d 65 25 3d 91 0d 0b  |ve:lasttime%=...|
0001c1d0  ad 30 e7 63 61 6e 25 3d  31 32 32 3a f2 6d 61 6b  |.0.can%=122:.mak|
0001c1e0  65 61 72 74 76 28 31 29  3a f2 61 6e 69 6d 61 74  |eartv(1):.animat|
0001c1f0  65 65 6e 64 3a f2 70 6c  6f 74 61 6e 69 6d 0d 0b  |eend:.plotanim..|
0001c200  ae 05 e1 0d 0b af 04 0d  0b b0 0e dd f2 6d 6f 76  |.............mov|
0001c210  65 73 6b 69 6e 0d 0b b1  4d e7 66 69 72 73 74 6d  |eskin...M.firstm|
0001c220  6f 76 65 25 8c 3a 63 61  6e 25 3d 30 3a 66 69 72  |ove%.:can%=0:fir|
0001c230  73 74 6d 6f 76 65 25 3d  a3 3a 65 6c 61 70 73 25  |stmove%=.:elaps%|
0001c240  3d 30 3a e3 73 25 3d 30  b8 31 30 3a 73 70 6b 25  |=0:.s%=0.10:spk%|
0001c250  28 73 25 29 3d 73 70 6b  6d 61 78 25 28 73 25 29  |(s%)=spkmax%(s%)|
0001c260  3a ed 0d 0b b2 24 e7 63  61 6e 25 3e 30 8c 3a e7  |:....$.can%>0.:.|
0001c270  91 3c 6c 61 73 74 74 69  6d 65 25 2b 36 2d 65 6c  |.<lasttime%+6-el|
0001c280  61 70 73 25 3a e1 0d 0b  b3 0c 65 6c 61 70 73 25  |aps%:.....elaps%|
0001c290  3d 91 0d 0b b4 0d e7 74  65 78 74 6f 6e 25 8c 0d  |=......texton%..|
0001c2a0  0b b5 11 20 e7 74 65 78  74 6e 65 77 6f 6e 25 8c  |... .textnewon%.|
0001c2b0  0d 0b b6 3f 20 20 74 65  78 74 6e 65 77 6f 6e 25  |...?  textnewon%|
0001c2c0  3d 30 3a f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |=0:.puticnstring|
0001c2d0  28 61 6e 69 6d 77 25 2c  35 30 2c 61 6e 69 6d 77  |(animw%,50,animw|
0001c2e0  6f 72 64 73 24 28 73 69  6d 70 25 2c 30 29 29 0d  |ords$(simp%,0)).|
0001c2f0  0b b7 3d 20 20 e7 28 63  61 6e 25 3c 34 38 29 3a  |..=  .(can%<48):|
0001c300  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 61 6e  |.puticnstring(an|
0001c310  69 6d 77 25 2c 35 31 2c  61 6e 69 6d 77 6f 72 64  |imw%,51,animword|
0001c320  73 24 28 73 69 6d 70 25  2c 31 29 29 0d 0b b8 49  |s$(simp%,1))...I|
0001c330  20 20 e7 28 63 61 6e 25  3e 3d 34 38 29 80 28 63  |  .(can%>=48).(c|
0001c340  61 6e 25 3c 31 30 31 29  3a f2 70 75 74 69 63 6e  |an%<101):.puticn|
0001c350  73 74 72 69 6e 67 28 61  6e 69 6d 77 25 2c 35 31  |string(animw%,51|
0001c360  2c 61 6e 69 6d 77 6f 72  64 73 24 28 73 69 6d 70  |,animwords$(simp|
0001c370  25 2c 32 29 29 0d 0b b9  4a 20 20 e7 28 63 61 6e  |%,2))...J  .(can|
0001c380  25 3e 3d 31 30 31 29 80  28 63 61 6e 25 3c 31 34  |%>=101).(can%<14|
0001c390  31 29 3a f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |1):.puticnstring|
0001c3a0  28 61 6e 69 6d 77 25 2c  35 31 2c 61 6e 69 6d 77  |(animw%,51,animw|
0001c3b0  6f 72 64 73 24 28 73 69  6d 70 25 2c 33 29 29 0d  |ords$(simp%,3)).|
0001c3c0  0b ba 3f 20 20 e7 28 63  61 6e 25 3e 3d 31 34 31  |..?  .(can%>=141|
0001c3d0  29 3a f2 70 75 74 69 63  6e 73 74 72 69 6e 67 28  |):.puticnstring(|
0001c3e0  61 6e 69 6d 77 25 2c 35  31 2c 61 6e 69 6d 77 6f  |animw%,51,animwo|
0001c3f0  72 64 73 24 28 73 69 6d  70 25 2c 34 29 29 0d 0b  |rds$(simp%,4))..|
0001c400  bb 06 20 cd 0d 0b bc 3c  20 e7 28 63 61 6e 25 3d  |.. ....< .(can%=|
0001c410  34 38 29 3a f2 70 75 74  69 63 6e 73 74 72 69 6e  |48):.puticnstrin|
0001c420  67 28 61 6e 69 6d 77 25  2c 35 31 2c 61 6e 69 6d  |g(animw%,51,anim|
0001c430  77 6f 72 64 73 24 28 73  69 6d 70 25 2c 32 29 29  |words$(simp%,2))|
0001c440  0d 0b bd 3d 20 e7 28 63  61 6e 25 3d 31 30 31 29  |...= .(can%=101)|
0001c450  3a f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 61  |:.puticnstring(a|
0001c460  6e 69 6d 77 25 2c 35 31  2c 61 6e 69 6d 77 6f 72  |nimw%,51,animwor|
0001c470  64 73 24 28 73 69 6d 70  25 2c 33 29 29 0d 0b be  |ds$(simp%,3))...|
0001c480  3d 20 e7 28 63 61 6e 25  3d 31 34 31 29 3a f2 70  |= .(can%=141):.p|
0001c490  75 74 69 63 6e 73 74 72  69 6e 67 28 61 6e 69 6d  |uticnstring(anim|
0001c4a0  77 25 2c 35 31 2c 61 6e  69 6d 77 6f 72 64 73 24  |w%,51,animwords$|
0001c4b0  28 73 69 6d 70 25 2c 34  29 29 0d 0b bf 05 cd 0d  |(simp%,4))......|
0001c4c0  0b c0 84 f2 63 6f 70 79  73 70 28 22 73 6b 69 6e  |....copysp("skin|
0001c4d0  78 73 22 2c 22 61 6e 69  6d 22 29 3a f2 61 64 64  |xs","anim"):.add|
0001c4e0  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 73 70  |_sp(detarea%,"sp|
0001c4f0  69 6e 65 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |ine",animarea%,"|
0001c500  61 6e 69 6d 22 2c 31 36  34 2c 34 37 2c 31 35 29  |anim",164,47,15)|
0001c510  3a f2 61 64 64 5f 73 70  28 73 70 61 72 65 61 25  |:.add_sp(sparea%|
0001c520  2c 22 62 72 61 69 6e 22  2c 61 6e 69 6d 61 72 65  |,"brain",animare|
0001c530  61 25 2c 22 61 6e 69 6d  22 2c 31 35 30 2c 31 37  |a%,"anim",150,17|
0001c540  2c 30 29 0d 0b c1 0a f4  20 70 61 69 6e 0d 0b c2  |,0)..... pain...|
0001c550  67 e7 63 61 6e 25 3c 31  32 3a e3 73 25 3d 30 b8  |g.can%<12:.s%=0.|
0001c560  a8 28 63 61 6e 25 2f 34  29 3a f2 61 64 64 5f 73  |.(can%/4):.add_s|
0001c570  70 28 64 65 74 61 72 65  61 25 2c 22 70 69 6e 22  |p(detarea%,"pin"|
0001c580  2b c3 28 a8 28 63 61 6e  25 2f 34 29 2d 73 25 29  |+.(.(can%/4)-s%)|
0001c590  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001c5a0  22 2c 36 30 2c 37 2b 28  31 33 2a 73 25 29 2c 31  |",60,7+(13*s%),1|
0001c5b0  35 29 3a ed 0d 0b c3 99  e7 28 63 61 6e 25 3e 3d  |5):......(can%>=|
0001c5c0  31 32 29 80 28 63 61 6e  25 3c 33 36 29 3a e3 73  |12).(can%<36):.s|
0001c5d0  25 3d 30 b8 33 3a f2 61  64 64 5f 73 70 28 64 65  |%=0.3:.add_sp(de|
0001c5e0  74 61 72 65 61 25 2c 22  70 69 6e 22 2b c3 28 33  |tarea%,"pin"+.(3|
0001c5f0  2d 73 25 29 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |-s%),animarea%,"|
0001c600  61 6e 69 6d 22 2c 36 30  2c 37 2b 28 31 33 2a 73  |anim",60,7+(13*s|
0001c610  25 29 2c 31 35 29 3a ed  3a f2 61 64 64 5f 73 70  |%),15):.:.add_sp|
0001c620  28 64 65 74 61 72 65 61  25 2c 22 70 69 65 72 63  |(detarea%,"pierc|
0001c630  65 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |e",animarea%,"an|
0001c640  69 6d 22 2c 36 35 2c 35  32 2c 31 35 29 0d 0b c4  |im",65,52,15)...|
0001c650  7a e7 28 63 61 6e 25 3e  3d 33 36 29 80 28 63 61  |z.(can%>=36).(ca|
0001c660  6e 25 3c 34 38 29 3a e3  73 25 3d 30 b8 31 31 2d  |n%<48):.s%=0.11-|
0001c670  a8 28 63 61 6e 25 2f 34  29 3a f2 61 64 64 5f 73  |.(can%/4):.add_s|
0001c680  70 28 64 65 74 61 72 65  61 25 2c 22 70 69 6e 22  |p(detarea%,"pin"|
0001c690  2b c3 28 31 31 2d a8 28  63 61 6e 25 2f 34 29 2d  |+.(11-.(can%/4)-|
0001c6a0  73 25 29 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |s%),animarea%,"a|
0001c6b0  6e 69 6d 22 2c 36 30 2c  37 2b 28 31 33 2a 73 25  |nim",60,7+(13*s%|
0001c6c0  29 2c 31 35 29 3a ed 0d  0b c5 4d e7 28 63 61 6e  |),15):....M.(can|
0001c6d0  25 3e 3d 33 35 29 80 28  63 61 6e 25 3c 3d 34 34  |%>=35).(can%<=44|
0001c6e0  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
0001c6f0  61 25 2c 22 70 61 69 6e  22 2c 61 6e 69 6d 61 72  |a%,"pain",animar|
0001c700  65 61 25 2c 22 61 6e 69  6d 22 2c 31 36 33 2c 35  |ea%,"anim",163,5|
0001c710  2c 31 35 29 0d 0b c6 16  e7 63 61 6e 25 3d 31 33  |,15).....can%=13|
0001c720  3a 73 70 6b 25 28 31 29  3d 30 0d 0b c7 16 e7 63  |:spk%(1)=0.....c|
0001c730  61 6e 25 3d 31 39 3a 73  70 6b 25 28 32 29 3d 30  |an%=19:spk%(2)=0|
0001c740  0d 0b c8 16 e7 63 61 6e  25 3d 32 38 3a 73 70 6b  |.....can%=28:spk|
0001c750  25 28 30 29 3d 30 0d 0b  c9 0b f4 20 74 6f 75 63  |%(0)=0..... touc|
0001c760  68 0d 0b ca 7e e7 28 63  61 6e 25 3e 3d 34 38 29  |h...~.(can%>=48)|
0001c770  80 28 63 61 6e 25 3c 36  34 29 3a e3 73 25 3d 30  |.(can%<64):.s%=0|
0001c780  b8 a8 28 63 61 6e 25 2f  34 29 2d 31 32 3a f2 61  |..(can%/4)-12:.a|
0001c790  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001c7a0  70 69 6e 68 65 61 64 22  2b c3 28 a8 28 63 61 6e  |pinhead"+.(.(can|
0001c7b0  25 2f 34 29 2d 31 32 2d  73 25 29 2c 61 6e 69 6d  |%/4)-12-s%),anim|
0001c7c0  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 34 32 2c  |area%,"anim",42,|
0001c7d0  33 2b 28 31 33 2a 73 25  29 2c 31 35 29 3a ed 0d  |3+(13*s%),15):..|
0001c7e0  0b cb 7b e7 28 63 61 6e  25 3e 3d 36 34 29 80 28  |..{.(can%>=64).(|
0001c7f0  63 61 6e 25 3c 38 34 29  3a e3 73 25 3d 30 b8 33  |can%<84):.s%=0.3|
0001c800  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
0001c810  25 2c 22 70 69 6e 68 65  61 64 22 2b c3 28 33 2d  |%,"pinhead"+.(3-|
0001c820  73 25 29 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |s%),animarea%,"a|
0001c830  6e 69 6d 22 2c 34 32 2b  28 38 2a 28 a8 28 63 61  |nim",42+(8*(.(ca|
0001c840  6e 25 2f 32 29 2d 33 32  29 29 2c 33 2b 28 31 33  |n%/2)-32)),3+(13|
0001c850  2a 73 25 29 2c 31 35 29  3a ed 0d 0b cc 69 e7 28  |*s%),15):....i.(|
0001c860  63 61 6e 25 3e 3d 38 34  29 80 28 63 61 6e 25 3c  |can%>=84).(can%<|
0001c870  38 38 29 3a e3 73 25 3d  30 b8 33 3a f2 61 64 64  |88):.s%=0.3:.add|
0001c880  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 70 69  |_sp(detarea%,"pi|
0001c890  6e 68 65 61 64 22 2b c3  28 33 2d 73 25 29 2c 61  |nhead"+.(3-s%),a|
0001c8a0  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001c8b0  31 32 32 2c 33 2b 28 31  33 2a 73 25 29 2c 31 35  |122,3+(13*s%),15|
0001c8c0  29 3a ed 0d 0b cd 80 e7  28 63 61 6e 25 3e 3d 38  |):......(can%>=8|
0001c8d0  38 29 80 28 63 61 6e 25  3c 31 30 30 29 3a e3 73  |8).(can%<100):.s|
0001c8e0  25 3d 30 b8 32 34 2d a8  28 63 61 6e 25 2f 34 29  |%=0.24-.(can%/4)|
0001c8f0  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
0001c900  25 2c 22 70 69 6e 68 65  61 64 22 2b c3 28 32 34  |%,"pinhead"+.(24|
0001c910  2d a8 28 63 61 6e 25 2f  34 29 2d 73 25 29 2c 61  |-.(can%/4)-s%),a|
0001c920  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001c930  31 32 32 2c 33 2b 28 31  33 2a 73 25 29 2c 31 35  |122,3+(13*s%),15|
0001c940  29 3a ed 0d 0b ce 4e e7  28 63 61 6e 25 3e 3d 38  |):....N.(can%>=8|
0001c950  33 29 80 28 63 61 6e 25  3c 31 30 30 29 3a f2 61  |3).(can%<100):.a|
0001c960  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001c970  74 6f 75 63 68 22 2c 61  6e 69 6d 61 72 65 61 25  |touch",animarea%|
0001c980  2c 22 61 6e 69 6d 22 2c  31 36 31 2c 35 2c 31 35  |,"anim",161,5,15|
0001c990  29 0d 0b cf 16 e7 63 61  6e 25 3d 36 32 3a 73 70  |).....can%=62:sp|
0001c9a0  6b 25 28 36 29 3d 30 0d  0b d0 16 e7 63 61 6e 25  |k%(6)=0.....can%|
0001c9b0  3d 37 36 3a 73 70 6b 25  28 30 29 3d 30 0d 0b d1  |=76:spk%(0)=0...|
0001c9c0  16 e7 63 61 6e 25 3d 37  34 3a 73 70 6b 25 28 37  |..can%=74:spk%(7|
0001c9d0  29 3d 30 0d 0b d2 16 e7  63 61 6e 25 3d 38 35 3a  |)=0.....can%=85:|
0001c9e0  73 70 6b 25 28 39 29 3d  30 0d 0b d3 16 e7 63 61  |spk%(9)=0.....ca|
0001c9f0  6e 25 3d 38 34 3a 73 70  6b 25 28 38 29 3d 30 0d  |n%=84:spk%(8)=0.|
0001ca00  0b d4 17 e7 63 61 6e 25  3d 39 32 3a 73 70 6b 25  |....can%=92:spk%|
0001ca10  28 31 30 29 3d 30 0d 0b  d5 0e f4 20 70 72 65 73  |(10)=0..... pres|
0001ca20  73 75 72 65 0d 0b d6 80  e7 28 63 61 6e 25 3e 3d  |sure.....(can%>=|
0001ca30  31 30 30 29 80 28 63 61  6e 25 3c 31 31 32 29 3a  |100).(can%<112):|
0001ca40  e3 73 25 3d 30 b8 a8 28  63 61 6e 25 2f 34 29 2d  |.s%=0..(can%/4)-|
0001ca50  32 35 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |25:.add_sp(detar|
0001ca60  65 61 25 2c 22 70 69 6e  68 65 61 64 22 2b c3 28  |ea%,"pinhead"+.(|
0001ca70  a8 28 63 61 6e 25 2f 34  29 2d 32 35 2d 73 25 29  |.(can%/4)-25-s%)|
0001ca80  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001ca90  22 2c 37 39 2c 37 2b 28  31 33 2a 73 25 29 2c 31  |",79,7+(13*s%),1|
0001caa0  35 29 3a ed 0d 0b d7 a0  e7 28 63 61 6e 25 3e 3d  |5):......(can%>=|
0001cab0  31 31 32 29 80 28 63 61  6e 25 3c 31 33 36 29 3a  |112).(can%<136):|
0001cac0  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
0001cad0  2c 22 73 6b 70 72 65 73  73 22 2c 61 6e 69 6d 61  |,"skpress",anima|
0001cae0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 37 30 2c 35  |rea%,"anim",70,5|
0001caf0  34 2c 31 35 29 3a e3 73  25 3d 30 b8 33 3a f2 61  |4,15):.s%=0.3:.a|
0001cb00  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001cb10  70 69 6e 68 65 61 64 22  2b c3 28 33 2d 73 25 29  |pinhead"+.(3-s%)|
0001cb20  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001cb30  22 2c 37 39 2c 37 2b 28  31 33 2a 73 25 29 2c 31  |",79,7+(13*s%),1|
0001cb40  35 29 3a ed 0d 0b d8 6a  e7 28 63 61 6e 25 3e 3d  |5):....j.(can%>=|
0001cb50  31 33 36 29 80 28 63 61  6e 25 3c 31 34 34 29 3a  |136).(can%<144):|
0001cb60  e3 73 25 3d 30 b8 32 3a  f2 61 64 64 5f 73 70 28  |.s%=0.2:.add_sp(|
0001cb70  64 65 74 61 72 65 61 25  2c 22 70 69 6e 68 65 61  |detarea%,"pinhea|
0001cb80  64 22 2b c3 28 32 2d 73  25 29 2c 61 6e 69 6d 61  |d"+.(2-s%),anima|
0001cb90  72 65 61 25 2c 22 61 6e  69 6d 22 2c 37 39 2c 37  |rea%,"anim",79,7|
0001cba0  2b 28 31 33 2a 73 25 29  2c 31 35 29 3a ed 0d 0b  |+(13*s%),15):...|
0001cbb0  d9 52 e7 28 63 61 6e 25  3e 3d 31 32 37 29 80 28  |.R.(can%>=127).(|
0001cbc0  63 61 6e 25 3c 31 34 30  29 3a f2 61 64 64 5f 73  |can%<140):.add_s|
0001cbd0  70 28 64 65 74 61 72 65  61 25 2c 22 70 72 65 73  |p(detarea%,"pres|
0001cbe0  73 75 72 65 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |sure",animarea%,|
0001cbf0  22 61 6e 69 6d 22 2c 31  35 35 2c 37 2c 31 35 29  |"anim",155,7,15)|
0001cc00  0d 0b da 17 e7 63 61 6e  25 3d 31 31 33 3a 73 70  |.....can%=113:sp|
0001cc10  6b 25 28 33 29 3d 30 0d  0b db 17 e7 63 61 6e 25  |k%(3)=0.....can%|
0001cc20  3d 31 32 30 3a 73 70 6b  25 28 30 29 3d 30 0d 0b  |=120:spk%(0)=0..|
0001cc30  dc 0a f4 20 68 65 61 74  0d 0b dd 4f e7 28 63 61  |... heat...O.(ca|
0001cc40  6e 25 3e 3d 31 34 34 29  80 28 63 61 6e 25 3c 31  |n%>=144).(can%<1|
0001cc50  37 32 29 3a f2 61 64 64  5f 73 70 28 64 65 74 61  |72):.add_sp(deta|
0001cc60  72 65 61 25 2c 22 70 69  6e 72 65 64 22 2c 61 6e  |rea%,"pinred",an|
0001cc70  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 37  |imarea%,"anim",7|
0001cc80  39 2c 37 2c 31 35 29 0d  0b de 4e e7 28 63 61 6e  |9,7,15)...N.(can|
0001cc90  25 3e 3d 31 36 33 29 80  28 63 61 6e 25 3c 31 37  |%>=163).(can%<17|
0001cca0  32 29 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |2):.add_sp(detar|
0001ccb0  65 61 25 2c 22 68 65 61  74 22 2c 61 6e 69 6d 61  |ea%,"heat",anima|
0001ccc0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 31 36 33 2c  |rea%,"anim",163,|
0001ccd0  35 2c 31 35 29 0d 0b df  17 e7 63 61 6e 25 3d 31  |5,15).....can%=1|
0001cce0  34 38 3a 73 70 6b 25 28  34 29 3d 30 0d 0b e0 17  |48:spk%(4)=0....|
0001ccf0  e7 63 61 6e 25 3d 31 35  30 3a 73 70 6b 25 28 35  |.can%=150:spk%(5|
0001cd00  29 3d 30 0d 0b e1 17 e7  63 61 6e 25 3d 31 35 36  |)=0.....can%=156|
0001cd10  3a 73 70 6b 25 28 30 29  3d 30 0d 0b e2 17 e7 63  |:spk%(0)=0.....c|
0001cd20  61 6e 25 3d 31 35 38 3a  73 70 6b 25 28 39 29 3d  |an%=158:spk%(9)=|
0001cd30  30 0d 0b e3 0c f4 20 74  69 64 79 75 70 0d 0b e4  |0..... tidyup...|
0001cd40  80 e7 28 63 61 6e 25 3e  3d 31 37 32 29 80 28 63  |..(can%>=172).(c|
0001cd50  61 6e 25 3c 31 38 34 29  3a e3 73 25 3d 30 b8 34  |an%<184):.s%=0.4|
0001cd60  35 2d a8 28 63 61 6e 25  2f 34 29 3a f2 61 64 64  |5-.(can%/4):.add|
0001cd70  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 70 69  |_sp(detarea%,"pi|
0001cd80  6e 68 65 61 64 22 2b c3  28 34 35 2d a8 28 63 61  |nhead"+.(45-.(ca|
0001cd90  6e 25 2f 34 29 2d 73 25  29 2c 61 6e 69 6d 61 72  |n%/4)-s%),animar|
0001cda0  65 61 25 2c 22 61 6e 69  6d 22 2c 37 39 2c 37 2b  |ea%,"anim",79,7+|
0001cdb0  28 31 33 2a 73 25 29 2c  31 35 29 3a ed 0d 0b e5  |(13*s%),15):....|
0001cdc0  10 f4 20 61 6c 6c 20 73  70 61 72 6b 73 0d 0b e6  |.. all sparks...|
0001cdd0  0c e3 73 25 3d 30 b8 31  30 0d 0b e7 1a e7 73 70  |..s%=0.10.....sp|
0001cde0  6b 25 28 73 25 29 3c 73  70 6b 6d 61 78 25 28 73  |k%(s%)<spkmax%(s|
0001cdf0  25 29 8c 0d 0b e8 0b c8  8e 20 73 25 20 ca 0d 0b  |%)....... s% ...|
0001ce00  e9 60 20 c9 20 30 2c 39  2c 31 30 3a 20 f2 61 64  |.` . 0,9,10: .ad|
0001ce10  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 73  |d_sp(detarea%,"s|
0001ce20  70 61 72 6b 22 2b c3 28  32 2b 28 63 61 6e 25 83  |park"+.(2+(can%.|
0001ce30  32 29 29 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |2)),animarea%,"a|
0001ce40  6e 69 6d 22 2c 31 36 37  2c 31 31 31 2d 28 31 31  |nim",167,111-(11|
0001ce50  2a 73 70 6b 25 28 73 25  29 29 2c 31 35 29 0d 0b  |*spk%(s%)),15)..|
0001ce60  ea 6c 20 c9 20 31 3a f2  61 64 64 5f 73 70 28 64  |.l . 1:.add_sp(d|
0001ce70  65 74 61 72 65 61 25 2c  22 73 70 61 72 6b 22 2b  |etarea%,"spark"+|
0001ce80  c3 28 32 2b 28 63 61 6e  25 83 32 29 29 2c 61 6e  |.(2+(can%.2)),an|
0001ce90  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 73  |imarea%,"anim",s|
0001cea0  6b 70 61 69 6e 25 28 73  70 6b 25 28 73 25 29 2c  |kpain%(spk%(s%),|
0001ceb0  30 29 2c 73 6b 70 61 69  6e 25 28 73 70 6b 25 28  |0),skpain%(spk%(|
0001cec0  73 25 29 2c 31 29 2c 31  35 29 0d 0b eb 87 20 20  |s%),1),15)....  |
0001ced0  20 20 20 20 20 20 e7 73  70 6b 25 28 73 25 29 3d  |      .spk%(s%)=|
0001cee0  30 3a 73 70 6b 25 28 73  25 29 2b 3d 31 3a f2 61  |0:spk%(s%)+=1:.a|
0001cef0  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
0001cf00  73 70 61 72 6b 22 2b c3  28 32 2b 28 63 61 6e 25  |spark"+.(2+(can%|
0001cf10  83 32 29 29 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |.2)),animarea%,"|
0001cf20  61 6e 69 6d 22 2c 73 6b  70 61 69 6e 25 28 73 70  |anim",skpain%(sp|
0001cf30  6b 25 28 73 25 29 2c 30  29 2c 73 6b 70 61 69 6e  |k%(s%),0),skpain|
0001cf40  25 28 73 70 6b 25 28 73  25 29 2c 31 29 2c 31 35  |%(spk%(s%),1),15|
0001cf50  29 0d 0b ec 5a 20 c9 20  32 3a 20 f2 61 64 64 5f  |)...Z . 2: .add_|
0001cf60  73 70 28 64 65 74 61 72  65 61 25 2c 22 73 70 61  |sp(detarea%,"spa|
0001cf70  72 6b 22 2b c3 28 32 2b  28 63 61 6e 25 83 32 29  |rk"+.(2+(can%.2)|
0001cf80  29 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |),animarea%,"ani|
0001cf90  6d 22 2c 36 39 2b 28 31  31 2a 73 70 6b 25 28 73  |m",69+(11*spk%(s|
0001cfa0  25 29 29 2c 31 31 31 2c  31 35 29 0d 0b ed 6e 20  |%)),111,15)...n |
0001cfb0  c9 20 33 3a f2 61 64 64  5f 73 70 28 64 65 74 61  |. 3:.add_sp(deta|
0001cfc0  72 65 61 25 2c 22 73 70  61 72 6b 22 2b c3 28 32  |rea%,"spark"+.(2|
0001cfd0  2b 28 63 61 6e 25 83 32  29 29 2c 61 6e 69 6d 61  |+(can%.2)),anima|
0001cfe0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 73 6b 70 72  |rea%,"anim",skpr|
0001cff0  65 73 73 25 28 73 70 6b  25 28 73 25 29 2c 30 29  |ess%(spk%(s%),0)|
0001d000  2c 73 6b 70 72 65 73 73  25 28 73 70 6b 25 28 73  |,skpress%(spk%(s|
0001d010  25 29 2c 31 29 2c 31 35  29 0d 0b ee 98 20 20 20  |%),1),15)....   |
0001d020  20 20 20 20 20 e7 28 73  70 6b 25 28 73 25 29 3d  |     .(spk%(s%)=|
0001d030  31 29 84 28 73 70 6b 25  28 73 25 29 3d 33 29 3a  |1).(spk%(s%)=3):|
0001d040  73 70 6b 25 28 73 25 29  2b 3d 31 3a f2 61 64 64  |spk%(s%)+=1:.add|
0001d050  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 73 70  |_sp(detarea%,"sp|
0001d060  61 72 6b 22 2b c3 28 32  2b 28 63 61 6e 25 83 32  |ark"+.(2+(can%.2|
0001d070  29 29 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |)),animarea%,"an|
0001d080  69 6d 22 2c 73 6b 70 72  65 73 73 25 28 73 70 6b  |im",skpress%(spk|
0001d090  25 28 73 25 29 2c 30 29  2c 73 6b 70 72 65 73 73  |%(s%),0),skpress|
0001d0a0  25 28 73 70 6b 25 28 73  25 29 2c 31 29 2c 31 35  |%(spk%(s%),1),15|
0001d0b0  29 0d 0b ef 6e 20 c9 20  34 3a f2 61 64 64 5f 73  |)...n . 4:.add_s|
0001d0c0  70 28 64 65 74 61 72 65  61 25 2c 22 73 70 61 72  |p(detarea%,"spar|
0001d0d0  6b 22 2b c3 28 32 2b 28  63 61 6e 25 83 32 29 29  |k"+.(2+(can%.2))|
0001d0e0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001d0f0  22 2c 73 6b 68 65 61 74  31 25 28 73 70 6b 25 28  |",skheat1%(spk%(|
0001d100  73 25 29 2c 30 29 2c 73  6b 68 65 61 74 31 25 28  |s%),0),skheat1%(|
0001d110  73 70 6b 25 28 73 25 29  2c 31 29 2c 31 35 29 0d  |spk%(s%),1),15).|
0001d120  0b f0 89 20 20 20 20 20  20 20 20 e7 73 70 6b 25  |...        .spk%|
0001d130  28 73 25 29 3d 30 3a 73  70 6b 25 28 73 25 29 2b  |(s%)=0:spk%(s%)+|
0001d140  3d 31 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |=1:.add_sp(detar|
0001d150  65 61 25 2c 22 73 70 61  72 6b 22 2b c3 28 32 2b  |ea%,"spark"+.(2+|
0001d160  28 63 61 6e 25 83 32 29  29 2c 61 6e 69 6d 61 72  |(can%.2)),animar|
0001d170  65 61 25 2c 22 61 6e 69  6d 22 2c 73 6b 68 65 61  |ea%,"anim",skhea|
0001d180  74 31 25 28 73 70 6b 25  28 73 25 29 2c 30 29 2c  |t1%(spk%(s%),0),|
0001d190  73 6b 68 65 61 74 31 25  28 73 70 6b 25 28 73 25  |skheat1%(spk%(s%|
0001d1a0  29 2c 31 29 2c 31 35 29  0d 0b f1 6e 20 c9 20 35  |),1),15)...n . 5|
0001d1b0  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
0001d1c0  25 2c 22 73 70 61 72 6b  22 2b c3 28 32 2b 28 63  |%,"spark"+.(2+(c|
0001d1d0  61 6e 25 83 32 29 29 2c  61 6e 69 6d 61 72 65 61  |an%.2)),animarea|
0001d1e0  25 2c 22 61 6e 69 6d 22  2c 73 6b 68 65 61 74 32  |%,"anim",skheat2|
0001d1f0  25 28 73 70 6b 25 28 73  25 29 2c 30 29 2c 73 6b  |%(spk%(s%),0),sk|
0001d200  68 65 61 74 32 25 28 73  70 6b 25 28 73 25 29 2c  |heat2%(spk%(s%),|
0001d210  31 29 2c 31 35 29 0d 0b  f2 7e 20 c9 20 36 2c 37  |1),15)...~ . 6,7|
0001d220  2c 38 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |,8:.add_sp(detar|
0001d230  65 61 25 2c 22 73 70 61  72 6b 22 2b c3 28 32 2b  |ea%,"spark"+.(2+|
0001d240  28 63 61 6e 25 83 32 29  29 2c 61 6e 69 6d 61 72  |(can%.2)),animar|
0001d250  65 61 25 2c 22 61 6e 69  6d 22 2c 73 6b 74 6f 75  |ea%,"anim",sktou|
0001d260  63 68 25 28 73 70 6b 25  28 73 25 29 2c 30 29 2b  |ch%(spk%(s%),0)+|
0001d270  28 34 35 2a 28 73 25 2d  36 29 29 2c 73 6b 74 6f  |(45*(s%-6)),skto|
0001d280  75 63 68 25 28 73 70 6b  25 28 73 25 29 2c 31 29  |uch%(spk%(s%),1)|
0001d290  2c 31 35 29 0d 0b f3 a3  20 20 20 20 20 20 20 20  |,15)....        |
0001d2a0  20 20 20 20 e7 73 70 6b  25 28 73 25 29 3d 30 3a  |    .spk%(s%)=0:|
0001d2b0  e3 72 25 3d 30 b8 31 3a  73 70 6b 25 28 73 25 29  |.r%=0.1:spk%(s%)|
0001d2c0  2b 3d 31 3a f2 61 64 64  5f 73 70 28 64 65 74 61  |+=1:.add_sp(deta|
0001d2d0  72 65 61 25 2c 22 73 70  61 72 6b 22 2b c3 28 32  |rea%,"spark"+.(2|
0001d2e0  2b 28 63 61 6e 25 83 32  29 29 2c 61 6e 69 6d 61  |+(can%.2)),anima|
0001d2f0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 73 6b 74 6f  |rea%,"anim",skto|
0001d300  75 63 68 25 28 73 70 6b  25 28 73 25 29 2c 30 29  |uch%(spk%(s%),0)|
0001d310  2b 28 34 35 2a 28 73 25  2d 36 29 29 2c 73 6b 74  |+(45*(s%-6)),skt|
0001d320  6f 75 63 68 25 28 73 70  6b 25 28 73 25 29 2c 31  |ouch%(spk%(s%),1|
0001d330  29 2c 31 35 29 3a ed 0d  0b f4 99 20 20 20 20 20  |),15):.....     |
0001d340  20 20 20 20 20 20 20 e7  73 70 6b 25 28 73 25 29  |       .spk%(s%)|
0001d350  3d 33 3a 73 70 6b 25 28  73 25 29 2b 3d 31 3a f2  |=3:spk%(s%)+=1:.|
0001d360  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001d370  22 73 70 61 72 6b 22 2b  c3 28 32 2b 28 63 61 6e  |"spark"+.(2+(can|
0001d380  25 83 32 29 29 2c 61 6e  69 6d 61 72 65 61 25 2c  |%.2)),animarea%,|
0001d390  22 61 6e 69 6d 22 2c 73  6b 74 6f 75 63 68 25 28  |"anim",sktouch%(|
0001d3a0  73 70 6b 25 28 73 25 29  2c 30 29 2b 28 34 35 2a  |spk%(s%),0)+(45*|
0001d3b0  28 73 25 2d 36 29 29 2c  73 6b 74 6f 75 63 68 25  |(s%-6)),sktouch%|
0001d3c0  28 73 70 6b 25 28 73 25  29 2c 31 29 2c 31 35 29  |(spk%(s%),1),15)|
0001d3d0  0d 0b f5 05 cb 0d 0b f6  0f 73 70 6b 25 28 73 25  |.........spk%(s%|
0001d3e0  29 2b 3d 31 0d 0b f7 05  cd 0d 0b f8 05 ed 0d 0b  |)+=1............|
0001d3f0  f9 50 e7 74 65 78 74 6f  6e 25 8c 3a e7 28 63 61  |.P.texton%.:.(ca|
0001d400  6e 25 3d 33 35 29 84 28  63 61 6e 25 3d 38 34 29  |n%=35).(can%=84)|
0001d410  84 28 63 61 6e 25 3d 31  32 38 29 84 28 63 61 6e  |.(can%=128).(can|
0001d420  25 3d 31 36 36 29 3a f2  73 65 6c 65 63 74 69 63  |%=166):.selectic|
0001d430  6e 28 61 6e 69 6d 77 25  2c 34 39 2c b9 29 0d 0b  |n(animw%,49,.)..|
0001d440  fa 0b 63 61 6e 25 2b 3d  31 0d 0b fb 13 65 6c 61  |..can%+=1....ela|
0001d450  70 73 25 3d 91 2d 65 6c  61 70 73 25 0d 0b fc 1d  |ps%=.-elaps%....|
0001d460  f2 70 6c 6f 74 61 6e 69  6d 6d 6f 76 65 3a 6c 61  |.plotanimmove:la|
0001d470  73 74 74 69 6d 65 25 3d  91 0d 0b fd 30 e7 63 61  |sttime%=....0.ca|
0001d480  6e 25 3d 31 38 34 3a f2  6d 61 6b 65 73 6b 69 6e  |n%=184:.makeskin|
0001d490  28 32 29 3a f2 61 6e 69  6d 61 74 65 65 6e 64 3a  |(2):.animateend:|
0001d4a0  f2 70 6c 6f 74 61 6e 69  6d 0d 0b fe 05 e1 0d 0b  |.plotanim.......|
0001d4b0  ff 04 0d 0c 00 0f dd f2  6d 6f 76 65 68 65 61 72  |........movehear|
0001d4c0  74 0d 0c 01 10 e7 66 69  72 73 74 6d 6f 76 65 25  |t.....firstmove%|
0001d4d0  8c 0d 0c 02 36 63 61 6e  25 3d 30 3a 66 69 72 73  |....6can%=0:firs|
0001d4e0  74 6d 6f 76 65 25 3d a3  3a 73 70 6b 25 3d 30 3a  |tmove%=.:spk%=0:|
0001d4f0  6c 61 73 74 74 69 6d 65  25 3d 91 2d 35 30 3a 65  |lasttime%=.-50:e|
0001d500  6c 61 70 73 25 3d 30 0d  0c 03 1a 2a 43 48 41 4e  |laps%=0....*CHAN|
0001d510  4e 45 4c 56 4f 49 43 45  20 31 20 6c 75 62 64 75  |NELVOICE 1 lubdu|
0001d520  62 0d 0c 04 05 cd 0d 0c  05 0c e7 73 70 6b 25 3d  |b..........spk%=|
0001d530  30 8c 0d 0c 06 1d 20 e7  91 3c 6c 61 73 74 74 69  |0..... ..<lastti|
0001d540  6d 65 25 2b 35 30 2d 65  6c 61 70 73 25 3a e1 0d  |me%+50-elaps%:..|
0001d550  0c 07 05 cc 0d 0c 08 1d  20 e7 91 3c 6c 61 73 74  |........ ..<last|
0001d560  74 69 6d 65 25 2b 31 30  2d 65 6c 61 70 73 25 3a  |time%+10-elaps%:|
0001d570  e1 0d 0c 09 05 cd 0d 0c  0a 0c 65 6c 61 70 73 25  |..........elaps%|
0001d580  3d 91 0d 0c 0b 0d e7 74  65 78 74 6f 6e 25 8c 0d  |=......texton%..|
0001d590  0c 0c 11 20 e7 74 65 78  74 6e 65 77 6f 6e 25 8c  |... .textnewon%.|
0001d5a0  0d 0c 0d 3f 20 20 74 65  78 74 6e 65 77 6f 6e 25  |...?  textnewon%|
0001d5b0  3d 30 3a f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |=0:.puticnstring|
0001d5c0  28 61 6e 69 6d 77 25 2c  35 30 2c 61 6e 69 6d 77  |(animw%,50,animw|
0001d5d0  6f 72 64 73 24 28 73 69  6d 70 25 2c 30 29 29 0d  |ords$(simp%,0)).|
0001d5e0  0c 0e 3c 20 20 e7 28 63  61 6e 25 3c 35 29 3a f2  |..<  .(can%<5):.|
0001d5f0  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
0001d600  6d 77 25 2c 35 31 2c 61  6e 69 6d 77 6f 72 64 73  |mw%,51,animwords|
0001d610  24 28 73 69 6d 70 25 2c  31 29 29 0d 0c 0f 47 20  |$(simp%,1))...G |
0001d620  20 e7 28 63 61 6e 25 3e  3d 35 29 80 28 63 61 6e  | .(can%>=5).(can|
0001d630  25 3c 31 31 29 3a f2 70  75 74 69 63 6e 73 74 72  |%<11):.puticnstr|
0001d640  69 6e 67 28 61 6e 69 6d  77 25 2c 35 31 2c 61 6e  |ing(animw%,51,an|
0001d650  69 6d 77 6f 72 64 73 24  28 73 69 6d 70 25 2c 32  |imwords$(simp%,2|
0001d660  29 29 0d 0c 10 48 20 20  e7 28 63 61 6e 25 3e 3d  |))...H  .(can%>=|
0001d670  31 31 29 80 28 63 61 6e  25 3c 31 37 29 3a f2 70  |11).(can%<17):.p|
0001d680  75 74 69 63 6e 73 74 72  69 6e 67 28 61 6e 69 6d  |uticnstring(anim|
0001d690  77 25 2c 35 31 2c 61 6e  69 6d 77 6f 72 64 73 24  |w%,51,animwords$|
0001d6a0  28 73 69 6d 70 25 2c 33  29 29 0d 0c 11 48 20 20  |(simp%,3))...H  |
0001d6b0  e7 28 63 61 6e 25 3e 3d  31 37 29 80 28 63 61 6e  |.(can%>=17).(can|
0001d6c0  25 3c 32 31 29 3a f2 70  75 74 69 63 6e 73 74 72  |%<21):.puticnstr|
0001d6d0  69 6e 67 28 61 6e 69 6d  77 25 2c 35 31 2c 61 6e  |ing(animw%,51,an|
0001d6e0  69 6d 77 6f 72 64 73 24  28 73 69 6d 70 25 2c 34  |imwords$(simp%,4|
0001d6f0  29 29 0d 0c 12 3e 20 20  e7 28 63 61 6e 25 3e 3d  |))...>  .(can%>=|
0001d700  32 31 29 3a f2 70 75 74  69 63 6e 73 74 72 69 6e  |21):.puticnstrin|
0001d710  67 28 61 6e 69 6d 77 25  2c 35 31 2c 61 6e 69 6d  |g(animw%,51,anim|
0001d720  77 6f 72 64 73 24 28 73  69 6d 70 25 2c 35 29 29  |words$(simp%,5))|
0001d730  0d 0c 13 06 20 cd 0d 0c  14 3b 20 e7 28 63 61 6e  |.... ....; .(can|
0001d740  25 3d 35 29 3a f2 70 75  74 69 63 6e 73 74 72 69  |%=5):.puticnstri|
0001d750  6e 67 28 61 6e 69 6d 77  25 2c 35 31 2c 61 6e 69  |ng(animw%,51,ani|
0001d760  6d 77 6f 72 64 73 24 28  73 69 6d 70 25 2c 32 29  |mwords$(simp%,2)|
0001d770  29 0d 0c 15 3c 20 e7 28  63 61 6e 25 3d 31 31 29  |)...< .(can%=11)|
0001d780  3a f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 61  |:.puticnstring(a|
0001d790  6e 69 6d 77 25 2c 35 31  2c 61 6e 69 6d 77 6f 72  |nimw%,51,animwor|
0001d7a0  64 73 24 28 73 69 6d 70  25 2c 33 29 29 0d 0c 16  |ds$(simp%,3))...|
0001d7b0  3c 20 e7 28 63 61 6e 25  3d 31 37 29 3a f2 70 75  |< .(can%=17):.pu|
0001d7c0  74 69 63 6e 73 74 72 69  6e 67 28 61 6e 69 6d 77  |ticnstring(animw|
0001d7d0  25 2c 35 31 2c 61 6e 69  6d 77 6f 72 64 73 24 28  |%,51,animwords$(|
0001d7e0  73 69 6d 70 25 2c 34 29  29 0d 0c 17 3c 20 e7 28  |simp%,4))...< .(|
0001d7f0  63 61 6e 25 3d 32 31 29  3a f2 70 75 74 69 63 6e  |can%=21):.puticn|
0001d800  73 74 72 69 6e 67 28 61  6e 69 6d 77 25 2c 35 31  |string(animw%,51|
0001d810  2c 61 6e 69 6d 77 6f 72  64 73 24 28 73 69 6d 70  |,animwords$(simp|
0001d820  25 2c 35 29 29 0d 0c 18  05 cd 0d 0c 19 18 e7 63  |%,5))..........c|
0001d830  61 6e 25 3d 30 20 f2 63  6c 5f 61 6e 69 6d 28 31  |an%=0 .cl_anim(1|
0001d840  32 29 0d 0c 1a 0d e7 63  61 6e 25 3c 33 38 8c 0d  |2).....can%<38..|
0001d850  0c 1b 16 20 6c 69 6e 24  3d 68 61 6e 69 6d 24 28  |... lin$=hanim$(|
0001d860  63 61 6e 25 29 0d 0c 1c  06 20 f5 0d 0c 1d 5e 20  |can%).... ....^ |
0001d870  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
0001d880  2c c1 6c 69 6e 24 2c 31  2c 35 29 2c 61 6e 69 6d  |,.lin$,1,5),anim|
0001d890  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c bb 28 c1  |area%,"anim",.(.|
0001d8a0  6c 69 6e 24 2c 37 2c 33  29 29 2c bb 28 c1 6c 69  |lin$,7,3)),.(.li|
0001d8b0  6e 24 2c 31 31 2c 33 29  29 2c bb 28 c1 6c 69 6e  |n$,11,3)),.(.lin|
0001d8c0  24 2c 31 35 2c 32 29 29  29 0d 0c 1e 1b 20 6c 69  |$,15,2))).... li|
0001d8d0  6e 24 3d c2 6c 69 6e 24  2c a9 28 6c 69 6e 24 29  |n$=.lin$,.(lin$)|
0001d8e0  2d 31 37 29 0d 0c 1f 11  20 fd 20 a9 28 6c 69 6e  |-17).... . .(lin|
0001d8f0  24 29 3c 31 37 0d 0c 20  2b 20 e7 28 63 61 6e 25  |$)<17.. + .(can%|
0001d900  3d 32 36 29 84 28 63 61  6e 25 3d 32 39 29 3a d4  |=26).(can%=29):.|
0001d910  20 31 2c 26 31 37 46 2c  26 31 43 30 30 2c 31 30  | 1,&17F,&1C00,10|
0001d920  0d 0c 21 05 cd 0d 0c 22  62 e7 74 65 78 74 6f 6e  |..!...."b.texton|
0001d930  25 8c 3a e7 28 63 61 6e  25 3d 34 29 84 28 63 61  |%.:.(can%=4).(ca|
0001d940  6e 25 3d 31 30 29 84 28  63 61 6e 25 3d 31 36 29  |n%=10).(can%=16)|
0001d950  84 28 63 61 6e 25 3d 32  30 29 84 28 28 63 61 6e  |.(can%=20).((can|
0001d960  25 3d 32 32 29 80 28 73  70 6b 25 3d 30 29 29 3a  |%=22).(spk%=0)):|
0001d970  f2 73 65 6c 65 63 74 69  63 6e 28 61 6e 69 6d 77  |.selecticn(animw|
0001d980  25 2c 34 39 2c b9 29 0d  0c 23 24 63 61 6e 25 2b  |%,49,.)..#$can%+|
0001d990  3d 31 3a e7 63 61 6e 25  3d 33 38 3a 63 61 6e 25  |=1:.can%=38:can%|
0001d9a0  3d 32 32 3a 73 70 6b 25  2b 3d 31 0d 0c 24 13 65  |=22:spk%+=1..$.e|
0001d9b0  6c 61 70 73 25 3d 91 2d  65 6c 61 70 73 25 0d 0c  |laps%=.-elaps%..|
0001d9c0  25 1d f2 70 6c 6f 74 61  6e 69 6d 6d 6f 76 65 3a  |%..plotanimmove:|
0001d9d0  6c 61 73 74 74 69 6d 65  25 3d 91 0d 0c 26 2f e7  |lasttime%=...&/.|
0001d9e0  73 70 6b 25 3d 35 3a f2  6d 61 6b 65 68 65 61 72  |spk%=5:.makehear|
0001d9f0  74 28 32 29 3a f2 61 6e  69 6d 61 74 65 65 6e 64  |t(2):.animateend|
0001da00  3a f2 70 6c 6f 74 61 6e  69 6d 0d 0c 27 05 e1 0d  |:.plotanim..'...|
0001da10  0c 28 04 0d 0c 29 0f dd  f2 6d 6f 76 65 6c 69 76  |.(...)...moveliv|
0001da20  65 72 0d 0c 2a 42 e7 66  69 72 73 74 6d 6f 76 65  |er..*B.firstmove|
0001da30  25 8c 3a 63 61 6e 25 3d  30 3a 73 70 6b 25 3d 31  |%.:can%=0:spk%=1|
0001da40  3a 66 69 72 73 74 6d 6f  76 65 25 3d a3 3a 6c 61  |:firstmove%=.:la|
0001da50  73 74 74 69 6d 65 25 3d  91 3a 65 6c 61 70 73 25  |sttime%=.:elaps%|
0001da60  3d 30 3a e1 0d 0c 2b 1c  e7 91 3c 6c 61 73 74 74  |=0:...+...<lastt|
0001da70  69 6d 65 25 2b 36 30 2d  65 6c 61 70 73 25 3a e1  |ime%+60-elaps%:.|
0001da80  0d 0c 2c 0c 65 6c 61 70  73 25 3d 91 0d 0c 2d 0d  |..,.elaps%=...-.|
0001da90  e7 74 65 78 74 6f 6e 25  8c 0d 0c 2e 11 20 e7 74  |.texton%..... .t|
0001daa0  65 78 74 6e 65 77 6f 6e  25 8c 0d 0c 2f 6c 20 20  |extnewon%.../l  |
0001dab0  74 65 78 74 6e 65 77 6f  6e 25 3d 30 3a f2 70 75  |textnewon%=0:.pu|
0001dac0  74 69 63 6e 73 74 72 69  6e 67 28 61 6e 69 6d 77  |ticnstring(animw|
0001dad0  25 2c 35 30 2c 61 6e 69  6d 77 6f 72 64 73 24 28  |%,50,animwords$(|
0001dae0  73 69 6d 70 25 2c 30 29  29 3a f2 70 75 74 69 63  |simp%,0)):.putic|
0001daf0  6e 73 74 72 69 6e 67 28  61 6e 69 6d 77 25 2c 35  |nstring(animw%,5|
0001db00  31 2c 61 6e 69 6d 77 6f  72 64 73 24 28 73 69 6d  |1,animwords$(sim|
0001db10  70 25 2c 31 29 29 0d 0c  30 06 20 cd 0d 0c 31 05  |p%,1))..0. ...1.|
0001db20  cd 0d 0c 32 78 f2 63 6c  5f 61 6e 69 6d 28 31 35  |...2x.cl_anim(15|
0001db30  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
0001db40  61 25 2c 22 6c 69 76 65  72 22 2c 61 6e 69 6d 61  |a%,"liver",anima|
0001db50  72 65 61 25 2c 22 61 6e  69 6d 22 2c 36 2c 36 2c  |rea%,"anim",6,6,|
0001db60  31 35 29 3a f2 61 64 64  5f 73 70 28 64 65 74 61  |15):.add_sp(deta|
0001db70  72 65 61 25 2c 22 6c 69  76 65 72 78 73 22 2c 61  |rea%,"liverxs",a|
0001db80  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001db90  33 30 2c 32 31 2c 31 35  29 0d 0c 33 46 e7 63 61  |30,21,15)..3F.ca|
0001dba0  6e 25 3c 39 3a f2 61 64  64 5f 73 70 28 64 65 74  |n%<9:.add_sp(det|
0001dbb0  61 72 65 61 25 2c 22 62  69 6c 65 22 2b c3 28 63  |area%,"bile"+.(c|
0001dbc0  61 6e 25 29 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |an%),animarea%,"|
0001dbd0  61 6e 69 6d 22 2c 34 33  2c 36 36 2c 31 35 29 0d  |anim",43,66,15).|
0001dbe0  0c 34 38 e7 74 65 78 74  6f 6e 25 8c 3a e7 28 63  |.48.texton%.:.(c|
0001dbf0  61 6e 25 3d 38 29 80 28  73 70 6b 25 3d 31 29 3a  |an%=8).(spk%=1):|
0001dc00  f2 73 65 6c 65 63 74 69  63 6e 28 61 6e 69 6d 77  |.selecticn(animw|
0001dc10  25 2c 34 39 2c b9 29 0d  0c 35 0b 63 61 6e 25 2b  |%,49,.)..5.can%+|
0001dc20  3d 31 0d 0c 36 1c e7 63  61 6e 25 3d 31 30 8c 3a  |=1..6..can%=10.:|
0001dc30  63 61 6e 25 3d 30 3a 73  70 6b 25 2b 3d 31 0d 0c  |can%=0:spk%+=1..|
0001dc40  37 13 65 6c 61 70 73 25  3d 91 2d 65 6c 61 70 73  |7.elaps%=.-elaps|
0001dc50  25 0d 0c 38 1d f2 70 6c  6f 74 61 6e 69 6d 6d 6f  |%..8..plotanimmo|
0001dc60  76 65 3a 6c 61 73 74 74  69 6d 65 25 3d 91 0d 0c  |ve:lasttime%=...|
0001dc70  39 2f e7 73 70 6b 25 3d  33 3a f2 6d 61 6b 65 6c  |9/.spk%=3:.makel|
0001dc80  69 76 65 72 28 31 29 3a  f2 61 6e 69 6d 61 74 65  |iver(1):.animate|
0001dc90  65 6e 64 3a f2 70 6c 6f  74 61 6e 69 6d 0d 0c 3a  |end:.plotanim..:|
0001dca0  05 e1 0d 0c 3b 04 0d 0c  3c 04 0d 0c 3d 0f dd f2  |....;...<...=...|
0001dcb0  6d 6f 76 65 6a 6f 69 6e  74 0d 0c 3e 4a e7 66 69  |movejoint..>J.fi|
0001dcc0  72 73 74 6d 6f 76 65 25  8c 3a 63 61 6e 25 3d 30  |rstmove%.:can%=0|
0001dcd0  3a 73 70 6b 25 3d 31 3a  73 70 6b 31 25 3d 31 3a  |:spk%=1:spk1%=1:|
0001dce0  66 69 72 73 74 6d 6f 76  65 25 3d a3 3a 6c 61 73  |firstmove%=.:las|
0001dcf0  74 74 69 6d 65 25 3d 91  3a 65 6c 61 70 73 25 3d  |ttime%=.:elaps%=|
0001dd00  30 3a e1 0d 0c 3f 1c e7  91 3c 6c 61 73 74 74 69  |0:...?...<lastti|
0001dd10  6d 65 25 2b 36 30 2d 65  6c 61 70 73 25 3a e1 0d  |me%+60-elaps%:..|
0001dd20  0c 40 0c 65 6c 61 70 73  25 3d 91 0d 0c 41 0d e7  |.@.elaps%=...A..|
0001dd30  74 65 78 74 6f 6e 25 8c  0d 0c 42 11 20 e7 74 65  |texton%...B. .te|
0001dd40  78 74 6e 65 77 6f 6e 25  8c 0d 0c 43 3f 20 20 74  |xtnewon%...C?  t|
0001dd50  65 78 74 6e 65 77 6f 6e  25 3d 30 3a f2 70 75 74  |extnewon%=0:.put|
0001dd60  69 63 6e 73 74 72 69 6e  67 28 61 6e 69 6d 77 25  |icnstring(animw%|
0001dd70  2c 35 30 2c 61 6e 69 6d  77 6f 72 64 73 24 28 73  |,50,animwords$(s|
0001dd80  69 6d 70 25 2c 30 29 29  0d 0c 44 76 20 20 e7 28  |imp%,0))..Dv  .(|
0001dd90  73 70 6b 31 25 3c 3d 34  29 80 28 63 61 6e 25 3c  |spk1%<=4).(can%<|
0001dda0  34 29 3a f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |4):.puticnstring|
0001ddb0  28 61 6e 69 6d 77 25 2c  35 31 2c 61 6e 69 6d 77  |(animw%,51,animw|
0001ddc0  6f 72 64 73 24 28 73 69  6d 70 25 2c 31 29 29 3a  |ords$(simp%,1)):|
0001ddd0  8b 3a f2 70 75 74 69 63  6e 73 74 72 69 6e 67 28  |.:.puticnstring(|
0001dde0  61 6e 69 6d 77 25 2c 35  31 2c 61 6e 69 6d 77 6f  |animw%,51,animwo|
0001ddf0  72 64 73 24 28 73 69 6d  70 25 2c 32 29 29 0d 0c  |rds$(simp%,2))..|
0001de00  45 06 20 cd 0d 0c 46 45  20 e7 28 73 70 6b 31 25  |E. ...FE .(spk1%|
0001de10  3d 34 29 80 28 63 61 6e  25 3d 31 29 3a f2 70 75  |=4).(can%=1):.pu|
0001de20  74 69 63 6e 73 74 72 69  6e 67 28 61 6e 69 6d 77  |ticnstring(animw|
0001de30  25 2c 35 31 2c 61 6e 69  6d 77 6f 72 64 73 24 28  |%,51,animwords$(|
0001de40  73 69 6d 70 25 2c 32 29  29 0d 0c 47 05 cd 0d 0c  |simp%,2))..G....|
0001de50  48 47 f2 63 6c 5f 61 6e  69 6d 28 31 35 29 3a f2  |HG.cl_anim(15):.|
0001de60  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001de70  22 73 63 61 70 75 6c 61  22 2c 61 6e 69 6d 61 72  |"scapula",animar|
0001de80  65 61 25 2c 22 61 6e 69  6d 22 2c 31 33 34 2c 33  |ea%,"anim",134,3|
0001de90  31 2c 31 35 29 0d 0c 49  1e e7 28 73 70 6b 31 25  |1,15)..I..(spk1%|
0001dea0  3d 34 29 80 28 63 61 6e  25 3d 31 29 3a 63 61 6e  |=4).(can%=1):can|
0001deb0  25 3d 34 0d 0c 4a 0c e7  63 61 6e 25 3c 34 8c 0d  |%=4..J..can%<4..|
0001dec0  0c 4b d4 f2 61 64 64 5f  73 70 28 64 65 74 61 72  |.K..add_sp(detar|
0001ded0  65 61 25 2c 22 68 75 6d  30 22 2c 61 6e 69 6d 61  |ea%,"hum0",anima|
0001dee0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 31 30 34 2c  |rea%,"anim",104,|
0001def0  32 32 2c 31 35 29 3a f2  61 64 64 5f 73 70 28 64  |22,15):.add_sp(d|
0001df00  65 74 61 72 65 61 25 2c  22 68 75 6d 6c 69 67 22  |etarea%,"humlig"|
0001df10  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001df20  22 2c 31 33 31 2c 33 37  2c 31 35 29 3a f2 61 64  |",131,37,15):.ad|
0001df30  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 64  |d_sp(detarea%,"d|
0001df40  69 73 74 68 75 6d 22 2c  61 6e 69 6d 61 72 65 61  |isthum",animarea|
0001df50  25 2c 22 61 6e 69 6d 22  2c 35 34 2c 38 33 2c 31  |%,"anim",54,83,1|
0001df60  35 29 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |5):.add_sp(detar|
0001df70  65 61 25 2c 22 61 72 63  22 2c 61 6e 69 6d 61 72  |ea%,"arc",animar|
0001df80  65 61 25 2c 22 61 6e 69  6d 22 2c 33 2c 35 34 2c  |ea%,"anim",3,54,|
0001df90  31 35 29 0d 0c 4c 85 e7  28 63 61 6e 25 3d 31 29  |15)..L..(can%=1)|
0001dfa0  84 28 63 61 6e 25 3d 33  29 3a f2 61 64 64 5f 73  |.(can%=3):.add_s|
0001dfb0  70 28 64 65 74 61 72 65  61 25 2c 22 75 6c 6e 61  |p(detarea%,"ulna|
0001dfc0  31 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |1",animarea%,"an|
0001dfd0  69 6d 22 2c 39 2c 36 33  2c 31 35 29 3a 8b 3a f2  |im",9,63,15):.:.|
0001dfe0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001dff0  22 75 6c 6e 61 22 2b c3  28 63 61 6e 25 29 2c 61  |"ulna"+.(can%),a|
0001e000  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001e010  39 2c 36 33 2c 31 35 29  0d 0c 4d 05 cd 0d 0c 4e  |9,63,15)..M....N|
0001e020  7b e7 63 61 6e 25 3e 3d  34 3a f2 61 64 64 5f 73  |{.can%>=4:.add_s|
0001e030  70 28 64 65 74 61 72 65  61 25 2c 22 68 75 6d 22  |p(detarea%,"hum"|
0001e040  2b c3 28 63 61 6e 25 2d  34 29 2c 61 6e 69 6d 61  |+.(can%-4),anima|
0001e050  72 65 61 25 2c 22 61 6e  69 6d 22 2c 31 30 34 2c  |rea%,"anim",104,|
0001e060  32 32 2c 31 35 29 3a f2  61 64 64 5f 73 70 28 64  |22,15):.add_sp(d|
0001e070  65 74 61 72 65 61 25 2c  22 63 69 72 63 22 2c 61  |etarea%,"circ",a|
0001e080  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001e090  38 39 2c 39 2c 31 35 29  0d 0c 4f 1d e7 63 61 6e  |89,9,15)..O..can|
0001e0a0  25 3d 33 8c 3a 63 61 6e  25 3d 2d 31 3a 73 70 6b  |%=3.:can%=-1:spk|
0001e0b0  31 25 2b 3d 31 0d 0c 50  1b e7 63 61 6e 25 3d 37  |1%+=1..P..can%=7|
0001e0c0  8c 3a 63 61 6e 25 3d 33  3a 73 70 6b 25 2b 3d 31  |.:can%=3:spk%+=1|
0001e0d0  0d 0c 51 4f e7 74 65 78  74 6f 6e 25 8c 3a e7 28  |..QO.texton%.:.(|
0001e0e0  28 73 70 6b 31 25 3d 34  29 80 28 63 61 6e 25 3d  |(spk1%=4).(can%=|
0001e0f0  30 29 29 84 28 28 73 70  6b 25 3d 34 29 80 28 63  |0)).((spk%=4).(c|
0001e100  61 6e 25 3d 33 29 29 3a  f2 73 65 6c 65 63 74 69  |an%=3)):.selecti|
0001e110  63 6e 28 61 6e 69 6d 77  25 2c 34 39 2c b9 29 0d  |cn(animw%,49,.).|
0001e120  0c 52 0b 63 61 6e 25 2b  3d 31 0d 0c 53 13 65 6c  |.R.can%+=1..S.el|
0001e130  61 70 73 25 3d 91 2d 65  6c 61 70 73 25 0d 0c 54  |aps%=.-elaps%..T|
0001e140  1d f2 70 6c 6f 74 61 6e  69 6d 6d 6f 76 65 3a 6c  |..plotanimmove:l|
0001e150  61 73 74 74 69 6d 65 25  3d 91 0d 0c 55 3a e7 28  |asttime%=...U:.(|
0001e160  73 70 6b 25 3d 34 29 80  28 63 61 6e 25 3d 35 29  |spk%=4).(can%=5)|
0001e170  3a f2 6d 61 6b 65 6a 6f  69 6e 74 28 31 29 3a f2  |:.makejoint(1):.|
0001e180  61 6e 69 6d 61 74 65 65  6e 64 3a f2 70 6c 6f 74  |animateend:.plot|
0001e190  61 6e 69 6d 0d 0c 56 05  e1 0d 0c 57 04 0d 0c 58  |anim..V....W...X|
0001e1a0  0f dd f2 6d 6f 76 65 6c  75 6e 67 73 0d 0c 59 4a  |...movelungs..YJ|
0001e1b0  e7 66 69 72 73 74 6d 6f  76 65 25 8c 3a 63 61 6e  |.firstmove%.:can|
0001e1c0  25 3d 30 3a 73 70 6b 25  3d 31 3a 73 70 6b 31 25  |%=0:spk%=1:spk1%|
0001e1d0  3d 31 3a 66 69 72 73 74  6d 6f 76 65 25 3d a3 3a  |=1:firstmove%=.:|
0001e1e0  6c 61 73 74 74 69 6d 65  25 3d 91 3a 65 6c 61 70  |lasttime%=.:elap|
0001e1f0  73 25 3d 30 3a e1 0d 0c  5a 25 e7 63 61 6e 25 3c  |s%=0:...Z%.can%<|
0001e200  36 8c 3a e7 91 3c 6c 61  73 74 74 69 6d 65 25 2b  |6.:..<lasttime%+|
0001e210  36 30 2d 65 6c 61 70 73  25 3a e1 0d 0c 5b 26 e7  |60-elaps%:...[&.|
0001e220  63 61 6e 25 3e 3d 36 8c  3a e7 91 3c 6c 61 73 74  |can%>=6.:..<last|
0001e230  74 69 6d 65 25 2b 31 30  2d 65 6c 61 70 73 25 3a  |time%+10-elaps%:|
0001e240  e1 0d 0c 5c 0c 65 6c 61  70 73 25 3d 91 0d 0c 5d  |...\.elaps%=...]|
0001e250  0d e7 74 65 78 74 6f 6e  25 8c 0d 0c 5e 11 20 e7  |..texton%...^. .|
0001e260  74 65 78 74 6e 65 77 6f  6e 25 8c 0d 0c 5f 3f 20  |textnewon%..._? |
0001e270  20 74 65 78 74 6e 65 77  6f 6e 25 3d 30 3a f2 70  | textnewon%=0:.p|
0001e280  75 74 69 63 6e 73 74 72  69 6e 67 28 61 6e 69 6d  |uticnstring(anim|
0001e290  77 25 2c 35 30 2c 61 6e  69 6d 77 6f 72 64 73 24  |w%,50,animwords$|
0001e2a0  28 73 69 6d 70 25 2c 30  29 29 0d 0c 60 6a 20 20  |(simp%,0))..`j  |
0001e2b0  e7 63 61 6e 25 3c 3d 35  3a f2 70 75 74 69 63 6e  |.can%<=5:.puticn|
0001e2c0  73 74 72 69 6e 67 28 61  6e 69 6d 77 25 2c 35 31  |string(animw%,51|
0001e2d0  2c 61 6e 69 6d 77 6f 72  64 73 24 28 73 69 6d 70  |,animwords$(simp|
0001e2e0  25 2c 31 29 29 3a 8b 3a  f2 70 75 74 69 63 6e 73  |%,1)):.:.puticns|
0001e2f0  74 72 69 6e 67 28 61 6e  69 6d 77 25 2c 35 31 2c  |tring(animw%,51,|
0001e300  61 6e 69 6d 77 6f 72 64  73 24 28 73 69 6d 70 25  |animwords$(simp%|
0001e310  2c 32 29 29 0d 0c 61 06  20 cd 0d 0c 62 44 20 e7  |,2))..a. ...bD .|
0001e320  28 63 61 6e 25 3d 36 29  80 28 73 70 6b 25 3d 31  |(can%=6).(spk%=1|
0001e330  29 3a f2 70 75 74 69 63  6e 73 74 72 69 6e 67 28  |):.puticnstring(|
0001e340  61 6e 69 6d 77 25 2c 35  31 2c 61 6e 69 6d 77 6f  |animw%,51,animwo|
0001e350  72 64 73 24 28 73 69 6d  70 25 2c 32 29 29 0d 0c  |rds$(simp%,2))..|
0001e360  63 05 cd 0d 0c 64 1f f2  63 6f 70 79 73 70 28 22  |c....d..copysp("|
0001e370  6c 75 6e 67 73 62 67 72  64 22 2c 22 61 6e 69 6d  |lungsbgrd","anim|
0001e380  22 29 0d 0c 65 9b e7 63  61 6e 25 3c 36 3a 73 70  |")..e..can%<6:sp|
0001e390  6e 61 24 3d 22 6c 75 6e  67 61 6e 22 2b c3 28 31  |na$="lungan"+.(1|
0001e3a0  2d 28 63 61 6e 25 83 32  29 29 3a f2 61 64 64 5f  |-(can%.2)):.add_|
0001e3b0  73 70 28 64 65 74 61 72  65 61 25 2c 22 72 65 73  |sp(detarea%,"res|
0001e3c0  74 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |t",animarea%,"an|
0001e3d0  69 6d 22 2c 34 39 2c 31  34 31 2c 31 35 29 3a f2  |im",49,141,15):.|
0001e3e0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001e3f0  22 61 72 72 22 2b c3 28  31 2d 28 63 61 6e 25 83  |"arr"+.(1-(can%.|
0001e400  32 29 29 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |2)),animarea%,"a|
0001e410  6e 69 6d 22 2c 39 34 2c  32 2c 31 35 29 0d 0c 66  |nim",94,2,15)..f|
0001e420  0d e7 63 61 6e 25 3e 3d  36 8c 0d 0c 67 38 e7 28  |..can%>=6...g8.(|
0001e430  63 61 6e 25 83 32 29 3d  30 3a 73 70 6e 61 24 3d  |can%.2)=0:spna$=|
0001e440  22 6c 75 6e 67 61 6e 30  22 3a 8b 3a 73 70 6e 61  |"lungan0":.:spna|
0001e450  24 3d 22 6c 75 6e 67 61  6e 22 2b c3 28 63 61 6e  |$="lungan"+.(can|
0001e460  25 29 0d 0c 68 38 f2 61  64 64 5f 73 70 28 64 65  |%)..h8.add_sp(de|
0001e470  74 61 72 65 61 25 2c 22  65 78 65 72 74 22 2c 61  |tarea%,"exert",a|
0001e480  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001e490  34 33 2c 31 34 31 2c 31  35 29 0d 0c 69 7c e7 28  |43,141,15)..i|.(|
0001e4a0  63 61 6e 25 3d 36 29 84  28 63 61 6e 25 3d 37 29  |can%=6).(can%=7)|
0001e4b0  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
0001e4c0  25 2c 22 61 72 72 32 22  2c 61 6e 69 6d 61 72 65  |%,"arr2",animare|
0001e4d0  61 25 2c 22 61 6e 69 6d  22 2c 39 32 2c 32 2c 31  |a%,"anim",92,2,1|
0001e4e0  35 29 3a 8b 3a f2 61 64  64 5f 73 70 28 64 65 74  |5):.:.add_sp(det|
0001e4f0  61 72 65 61 25 2c 22 61  72 72 33 22 2c 61 6e 69  |area%,"arr3",ani|
0001e500  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 39 32  |marea%,"anim",92|
0001e510  2c 32 2c 31 35 29 0d 0c  6a 05 cd 0d 0c 6b 85 f2  |,2,15)..j....k..|
0001e520  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001e530  73 70 6e 61 24 2c 61 6e  69 6d 61 72 65 61 25 2c  |spna$,animarea%,|
0001e540  22 61 6e 69 6d 22 2c 33  31 2c 31 35 2c 31 35 29  |"anim",31,15,15)|
0001e550  3a f2 66 6c 69 70 28 32  2c 73 70 6e 61 24 29 3a  |:.flip(2,spna$):|
0001e560  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
0001e570  2c 73 70 6e 61 24 2c 61  6e 69 6d 61 72 65 61 25  |,spna$,animarea%|
0001e580  2c 22 61 6e 69 6d 22 2c  39 33 2c 31 35 2c 31 35  |,"anim",93,15,15|
0001e590  29 3a f2 66 6c 69 70 28  32 2c 73 70 6e 61 24 29  |):.flip(2,spna$)|
0001e5a0  0d 0c 6c 0c e7 63 61 6e  25 3d 35 8c 0d 0c 6d 15  |..l..can%=5...m.|
0001e5b0  20 63 61 6e 25 3d 2d 31  3a 73 70 6b 31 25 2b 3d  | can%=-1:spk1%+=|
0001e5c0  31 0d 0c 6e 0e 20 e7 73  70 6b 31 25 3d 33 8c 0d  |1..n. .spk1%=3..|
0001e5d0  0c 6f 0c 20 20 63 61 6e  25 3d 35 0d 0c 70 06 20  |.o.  can%=5..p. |
0001e5e0  cd 0d 0c 71 05 cd 0d 0c  72 1b e7 63 61 6e 25 3d  |...q....r..can%=|
0001e5f0  39 8c 3a 63 61 6e 25 3d  35 3a 73 70 6b 25 2b 3d  |9.:can%=5:spk%+=|
0001e600  31 0d 0c 73 4e e7 74 65  78 74 6f 6e 25 8c 3a e7  |1..sN.texton%.:.|
0001e610  28 28 63 61 6e 25 3d 35  29 80 28 73 70 6b 25 3d  |((can%=5).(spk%=|
0001e620  31 29 29 84 28 28 73 70  6b 25 3d 37 29 80 28 63  |1)).((spk%=7).(c|
0001e630  61 6e 25 3d 38 29 29 3a  f2 73 65 6c 65 63 74 69  |an%=8)):.selecti|
0001e640  63 6e 28 61 6e 69 6d 77  25 2c 34 39 2c b9 29 0d  |cn(animw%,49,.).|
0001e650  0c 74 0b 63 61 6e 25 2b  3d 31 0d 0c 75 13 65 6c  |.t.can%+=1..u.el|
0001e660  61 70 73 25 3d 91 2d 65  6c 61 70 73 25 0d 0c 76  |aps%=.-elaps%..v|
0001e670  1d f2 70 6c 6f 74 61 6e  69 6d 6d 6f 76 65 3a 6c  |..plotanimmove:l|
0001e680  61 73 74 74 69 6d 65 25  3d 91 0d 0c 77 2f e7 73  |asttime%=...w/.s|
0001e690  70 6b 25 3d 38 3a f2 6d  61 6b 65 6c 75 6e 67 73  |pk%=8:.makelungs|
0001e6a0  28 31 29 3a f2 61 6e 69  6d 61 74 65 65 6e 64 3a  |(1):.animateend:|
0001e6b0  f2 70 6c 6f 74 61 6e 69  6d 0d 0c 78 05 e1 0d 0c  |.plotanim..x....|
0001e6c0  79 04 0d 0c 7a 0e dd f2  6d 6f 76 65 62 61 62 79  |y...z...movebaby|
0001e6d0  0d 0c 7b 3b e7 66 69 72  73 74 6d 6f 76 65 25 8c  |..{;.firstmove%.|
0001e6e0  3a 63 61 6e 25 3d 30 3a  66 69 72 73 74 6d 6f 76  |:can%=0:firstmov|
0001e6f0  65 25 3d a3 3a 6c 61 73  74 74 69 6d 65 25 3d 91  |e%=.:lasttime%=.|
0001e700  3a 65 6c 61 70 73 25 3d  30 3a e1 0d 0c 7c 0d c8  |:elaps%=0:...|..|
0001e710  8e 20 63 61 6e 25 20 ca  0d 0c 7d 32 20 c9 20 36  |. can% ...}2 . 6|
0001e720  34 2c 36 35 2c 38 37 2c  38 38 2c 39 36 2c 39 37  |4,65,87,88,96,97|
0001e730  3a e7 91 3c 6c 61 73 74  74 69 6d 65 25 2b 32 30  |:..<lasttime%+20|
0001e740  30 2d 65 6c 61 70 73 25  3a e1 0d 0c 7e 24 20 c9  |0-elaps%:...~$ .|
0001e750  20 31 30 32 3a e7 91 3c  6c 61 73 74 74 69 6d 65  | 102:..<lasttime|
0001e760  25 2b 36 30 30 2d 65 6c  61 70 73 25 3a e1 0d 0c  |%+600-elaps%:...|
0001e770  7f 05 cb 0d 0c 80 27 e7  63 61 6e 25 3d 35 32 8c  |......'.can%=52.|
0001e780  3a e7 91 3c 6c 61 73 74  74 69 6d 65 25 2b 32 30  |:..<lasttime%+20|
0001e790  30 2d 65 6c 61 70 73 25  3a e1 0d 0c 81 35 e7 28  |0-elaps%:....5.(|
0001e7a0  63 61 6e 25 3e 3d 36 34  29 80 28 63 61 6e 25 3c  |can%>=64).(can%<|
0001e7b0  3d 37 30 29 8c 3a e7 91  3c 6c 61 73 74 74 69 6d  |=70).:..<lasttim|
0001e7c0  65 25 2b 32 30 30 2d 65  6c 61 70 73 25 3a e1 0d  |e%+200-elaps%:..|
0001e7d0  0c 82 35 e7 28 63 61 6e  25 3e 3d 37 31 29 80 28  |..5.(can%>=71).(|
0001e7e0  63 61 6e 25 3c 3d 37 38  29 8c 3a e7 91 3c 6c 61  |can%<=78).:..<la|
0001e7f0  73 74 74 69 6d 65 25 2b  31 30 30 2d 65 6c 61 70  |sttime%+100-elap|
0001e800  73 25 3a e1 0d 0c 83 35  e7 28 63 61 6e 25 3e 3d  |s%:....5.(can%>=|
0001e810  37 39 29 80 28 63 61 6e  25 3c 3d 38 38 29 8c 3a  |79).(can%<=88).:|
0001e820  e7 91 3c 6c 61 73 74 74  69 6d 65 25 2b 32 30 30  |..<lasttime%+200|
0001e830  2d 65 6c 61 70 73 25 3a  e1 0d 0c 84 35 e7 28 63  |-elaps%:....5.(c|
0001e840  61 6e 25 3e 3d 38 39 29  80 28 63 61 6e 25 3c 3d  |an%>=89).(can%<=|
0001e850  39 35 29 8c 3a e7 91 3c  6c 61 73 74 74 69 6d 65  |95).:..<lasttime|
0001e860  25 2b 31 30 30 2d 65 6c  61 70 73 25 3a e1 0d 0c  |%+100-elaps%:...|
0001e870  85 35 e7 28 63 61 6e 25  3e 3d 39 36 29 80 28 63  |.5.(can%>=96).(c|
0001e880  61 6e 25 3c 3d 39 37 29  8c 3a e7 91 3c 6c 61 73  |an%<=97).:..<las|
0001e890  74 74 69 6d 65 25 2b 32  30 30 2d 65 6c 61 70 73  |ttime%+200-elaps|
0001e8a0  25 3a e1 0d 0c 86 35 e7  28 63 61 6e 25 3e 3d 39  |%:....5.(can%>=9|
0001e8b0  38 29 80 28 63 61 6e 25  3c 3d 39 39 29 8c 3a e7  |8).(can%<=99).:.|
0001e8c0  91 3c 6c 61 73 74 74 69  6d 65 25 2b 31 30 30 2d  |.<lasttime%+100-|
0001e8d0  65 6c 61 70 73 25 3a e1  0d 0c 87 37 e7 28 63 61  |elaps%:....7.(ca|
0001e8e0  6e 25 3e 3d 31 30 30 29  80 28 63 61 6e 25 3c 3d  |n%>=100).(can%<=|
0001e8f0  31 30 31 29 8c 3a e7 91  3c 6c 61 73 74 74 69 6d  |101).:..<lasttim|
0001e900  65 25 2b 32 30 30 2d 65  6c 61 70 73 25 3a e1 0d  |e%+200-elaps%:..|
0001e910  0c 88 26 e7 63 61 6e 25  3c 36 34 8c 3a e7 91 3c  |..&.can%<64.:..<|
0001e920  6c 61 73 74 74 69 6d 65  25 2b 32 30 2d 65 6c 61  |lasttime%+20-ela|
0001e930  70 73 25 3a e1 0d 0c 89  0c 65 6c 61 70 73 25 3d  |ps%:.....elaps%=|
0001e940  91 0d 0c 8a 0d e7 74 65  78 74 6f 6e 25 8c 0d 0c  |......texton%...|
0001e950  8b 11 20 e7 74 65 78 74  6e 65 77 6f 6e 25 8c 0d  |.. .textnewon%..|
0001e960  0c 8c 3f 20 20 74 65 78  74 6e 65 77 6f 6e 25 3d  |..?  textnewon%=|
0001e970  30 3a f2 70 75 74 69 63  6e 73 74 72 69 6e 67 28  |0:.puticnstring(|
0001e980  61 6e 69 6d 77 25 2c 35  30 2c 61 6e 69 6d 77 6f  |animw%,50,animwo|
0001e990  72 64 73 24 28 73 69 6d  70 25 2c 30 29 29 0d 0c  |rds$(simp%,0))..|
0001e9a0  8d 3d 20 20 e7 28 63 61  6e 25 3c 35 31 29 3a f2  |.=  .(can%<51):.|
0001e9b0  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
0001e9c0  6d 77 25 2c 35 31 2c 61  6e 69 6d 77 6f 72 64 73  |mw%,51,animwords|
0001e9d0  24 28 73 69 6d 70 25 2c  31 29 29 0d 0c 8e 48 20  |$(simp%,1))...H |
0001e9e0  20 e7 28 63 61 6e 25 3e  3d 35 31 29 80 28 63 61  | .(can%>=51).(ca|
0001e9f0  6e 25 3c 36 32 29 3a f2  70 75 74 69 63 6e 73 74  |n%<62):.puticnst|
0001ea00  72 69 6e 67 28 61 6e 69  6d 77 25 2c 35 31 2c 61  |ring(animw%,51,a|
0001ea10  6e 69 6d 77 6f 72 64 73  24 28 73 69 6d 70 25 2c  |nimwords$(simp%,|
0001ea20  32 29 29 0d 0c 8f 48 20  20 e7 28 63 61 6e 25 3e  |2))...H  .(can%>|
0001ea30  3d 36 32 29 80 28 63 61  6e 25 3c 38 30 29 3a f2  |=62).(can%<80):.|
0001ea40  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
0001ea50  6d 77 25 2c 35 31 2c 61  6e 69 6d 77 6f 72 64 73  |mw%,51,animwords|
0001ea60  24 28 73 69 6d 70 25 2c  33 29 29 0d 0c 90 48 20  |$(simp%,3))...H |
0001ea70  20 e7 28 63 61 6e 25 3e  3d 38 30 29 80 28 63 61  | .(can%>=80).(ca|
0001ea80  6e 25 3c 39 32 29 3a f2  70 75 74 69 63 6e 73 74  |n%<92):.puticnst|
0001ea90  72 69 6e 67 28 61 6e 69  6d 77 25 2c 35 31 2c 61  |ring(animw%,51,a|
0001eaa0  6e 69 6d 77 6f 72 64 73  24 28 73 69 6d 70 25 2c  |nimwords$(simp%,|
0001eab0  34 29 29 0d 0c 91 3e 20  20 e7 28 63 61 6e 25 3e  |4))...>  .(can%>|
0001eac0  3d 39 32 29 3a f2 70 75  74 69 63 6e 73 74 72 69  |=92):.puticnstri|
0001ead0  6e 67 28 61 6e 69 6d 77  25 2c 35 31 2c 61 6e 69  |ng(animw%,51,ani|
0001eae0  6d 77 6f 72 64 73 24 28  73 69 6d 70 25 2c 35 29  |mwords$(simp%,5)|
0001eaf0  29 0d 0c 92 06 20 cd 0d  0c 93 3c 20 e7 28 63 61  |).... ....< .(ca|
0001eb00  6e 25 3d 35 31 29 3a f2  70 75 74 69 63 6e 73 74  |n%=51):.puticnst|
0001eb10  72 69 6e 67 28 61 6e 69  6d 77 25 2c 35 31 2c 61  |ring(animw%,51,a|
0001eb20  6e 69 6d 77 6f 72 64 73  24 28 73 69 6d 70 25 2c  |nimwords$(simp%,|
0001eb30  32 29 29 0d 0c 94 3c 20  e7 28 63 61 6e 25 3d 36  |2))...< .(can%=6|
0001eb40  32 29 3a f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |2):.puticnstring|
0001eb50  28 61 6e 69 6d 77 25 2c  35 31 2c 61 6e 69 6d 77  |(animw%,51,animw|
0001eb60  6f 72 64 73 24 28 73 69  6d 70 25 2c 33 29 29 0d  |ords$(simp%,3)).|
0001eb70  0c 95 3c 20 e7 28 63 61  6e 25 3d 38 30 29 3a f2  |..< .(can%=80):.|
0001eb80  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
0001eb90  6d 77 25 2c 35 31 2c 61  6e 69 6d 77 6f 72 64 73  |mw%,51,animwords|
0001eba0  24 28 73 69 6d 70 25 2c  34 29 29 0d 0c 96 3c 20  |$(simp%,4))...< |
0001ebb0  e7 28 63 61 6e 25 3d 39  32 29 3a f2 70 75 74 69  |.(can%=92):.puti|
0001ebc0  63 6e 73 74 72 69 6e 67  28 61 6e 69 6d 77 25 2c  |cnstring(animw%,|
0001ebd0  35 31 2c 61 6e 69 6d 77  6f 72 64 73 24 28 73 69  |51,animwords$(si|
0001ebe0  6d 70 25 2c 35 29 29 0d  0c 97 05 cd 0d 0c 98 25  |mp%,5))........%|
0001ebf0  e7 28 63 61 6e 25 3d 35  37 29 84 28 63 61 6e 25  |.(can%=57).(can%|
0001ec00  3d 38 37 29 3a f2 63 6c  5f 61 6e 69 6d 28 31 35  |=87):.cl_anim(15|
0001ec10  29 0d 0c 99 4e e7 28 63  61 6e 25 3e 3d 33 37 29  |)...N.(can%>=37)|
0001ec20  80 28 63 61 6e 25 3c 3d  36 32 29 3a f2 61 64 64  |.(can%<=62):.add|
0001ec30  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 63 6f  |_sp(detarea%,"co|
0001ec40  75 70 66 65 6d 22 2c 61  6e 69 6d 61 72 65 61 25  |upfem",animarea%|
0001ec50  2c 22 61 6e 69 6d 22 2c  35 2c 35 2c 31 35 29 0d  |,"anim",5,5,15).|
0001ec60  0c 9a 4d e7 28 63 61 6e  25 3e 3d 30 29 80 28 63  |..M.(can%>=0).(c|
0001ec70  61 6e 25 3c 3d 35 36 29  3a f2 61 64 64 5f 73 70  |an%<=56):.add_sp|
0001ec80  28 64 65 74 61 72 65 61  25 2c 22 63 6f 75 70 6d  |(detarea%,"coupm|
0001ec90  61 6c 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |al",animarea%,"a|
0001eca0  6e 69 6d 22 2c 35 2c 35  2c 31 35 29 0d 0c 9b 53  |nim",5,5,15)...S|
0001ecb0  e7 28 63 61 6e 25 3e 3d  30 29 80 28 63 61 6e 25  |.(can%>=0).(can%|
0001ecc0  3c 3d 33 38 29 3a f2 61  64 64 5f 73 70 28 64 65  |<=38):.add_sp(de|
0001ecd0  74 61 72 65 61 25 2c 22  73 65 6d 65 6e 22 2b c3  |tarea%,"semen"+.|
0001ece0  28 63 61 6e 25 29 2c 61  6e 69 6d 61 72 65 61 25  |(can%),animarea%|
0001ecf0  2c 22 61 6e 69 6d 22 2c  35 2c 35 2c 31 35 29 0d  |,"anim",5,5,15).|
0001ed00  0c 9c 4e e7 28 63 61 6e  25 3e 3d 33 39 29 80 28  |..N.(can%>=39).(|
0001ed10  63 61 6e 25 3c 3d 35 30  29 3a f2 61 64 64 5f 73  |can%<=50):.add_s|
0001ed20  70 28 64 65 74 61 72 65  61 25 2c 22 73 65 6d 65  |p(detarea%,"seme|
0001ed30  6e 33 39 22 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |n39",animarea%,"|
0001ed40  61 6e 69 6d 22 2c 35 2c  35 2c 31 35 29 0d 0c 9d  |anim",5,5,15)...|
0001ed50  57 e7 28 63 61 6e 25 3e  3d 34 30 29 80 28 63 61  |W.(can%>=40).(ca|
0001ed60  6e 25 3c 3d 35 30 29 3a  f2 61 64 64 5f 73 70 28  |n%<=50):.add_sp(|
0001ed70  64 65 74 61 72 65 61 25  2c 22 73 65 6d 65 6e 22  |detarea%,"semen"|
0001ed80  2b c3 28 63 61 6e 25 2d  31 32 29 2c 61 6e 69 6d  |+.(can%-12),anim|
0001ed90  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 35 2c 35  |area%,"anim",5,5|
0001eda0  2c 31 35 29 0d 0c 9e 57  e7 28 63 61 6e 25 3e 3d  |,15)...W.(can%>=|
0001edb0  35 31 29 80 28 63 61 6e  25 3c 3d 36 32 29 3a f2  |51).(can%<=62):.|
0001edc0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001edd0  22 73 65 6d 65 6e 22 2b  c3 28 63 61 6e 25 2d 31  |"semen"+.(can%-1|
0001ede0  31 29 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |1),animarea%,"an|
0001edf0  69 6d 22 2c 35 2c 35 2c  31 35 29 0d 0c 9f 4f e7  |im",5,5,15)...O.|
0001ee00  28 63 61 6e 25 3e 3d 30  29 80 28 63 61 6e 25 3c  |(can%>=0).(can%<|
0001ee10  3d 32 37 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |=27):.add_sp(det|
0001ee20  61 72 65 61 25 2c 22 67  6c 61 6e 64 66 75 6c 6c  |area%,"glandfull|
0001ee30  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
0001ee40  6d 22 2c 35 2c 35 2c 31  35 29 0d 0c a0 86 e7 28  |m",5,5,15).....(|
0001ee50  63 61 6e 25 3e 3d 32 38  29 80 28 63 61 6e 25 3c  |can%>=28).(can%<|
0001ee60  3d 33 39 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |=39):.add_sp(det|
0001ee70  61 72 65 61 25 2c 22 67  6c 61 6e 64 68 61 6c 66  |area%,"glandhalf|
0001ee80  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
0001ee90  6d 22 2c 35 2c 35 2c 31  35 29 3a f2 61 64 64 5f  |m",5,5,15):.add_|
0001eea0  73 70 28 64 65 74 61 72  65 61 25 2c 22 73 65 6d  |sp(detarea%,"sem|
0001eeb0  65 6e 73 74 6f 72 22 2c  61 6e 69 6d 61 72 65 61  |enstor",animarea|
0001eec0  25 2c 22 61 6e 69 6d 22  2c 35 2c 35 2c 31 35 29  |%,"anim",5,5,15)|
0001eed0  0d 0c a1 4c e7 28 63 61  6e 25 3e 3d 32 37 29 80  |...L.(can%>=27).|
0001eee0  28 63 61 6e 25 3c 3d 35  31 29 3a f2 61 64 64 5f  |(can%<=51):.add_|
0001eef0  73 70 28 64 65 74 61 72  65 61 25 2c 22 65 67 67  |sp(detarea%,"egg|
0001ef00  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
0001ef10  6d 22 2c 32 37 2c 39 34  2c 31 35 29 0d 0c a2 4c  |m",27,94,15)...L|
0001ef20  e7 28 63 61 6e 25 3e 3d  35 32 29 80 28 63 61 6e  |.(can%>=52).(can|
0001ef30  25 3c 3d 36 32 29 3a f2  61 64 64 5f 73 70 28 64  |%<=62):.add_sp(d|
0001ef40  65 74 61 72 65 61 25 2c  22 65 67 67 22 2c 61 6e  |etarea%,"egg",an|
0001ef50  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 33  |imarea%,"anim",3|
0001ef60  30 2c 38 38 2c 31 35 29  0d 0c a3 1e e7 63 61 6e  |0,88,15).....can|
0001ef70  25 3d 36 34 3a f2 6d 6f  76 65 62 61 62 79 6c 69  |%=64:.movebabyli|
0001ef80  6e 65 73 28 31 29 0d 0c  a4 4e e7 28 63 61 6e 25  |nes(1)...N.(can%|
0001ef90  3e 3d 36 33 29 80 28 63  61 6e 25 3c 3d 36 34 29  |>=63).(can%<=64)|
0001efa0  3a f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |:.add_sp(detarea|
0001efb0  25 2c 22 6c 69 74 74 6c  65 31 22 2c 61 6e 69 6d  |%,"little1",anim|
0001efc0  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 35 2c 35  |area%,"anim",5,5|
0001efd0  2c 31 35 29 0d 0c a5 4d  e7 28 63 61 6e 25 3e 3d  |,15)...M.(can%>=|
0001efe0  36 34 29 80 28 63 61 6e  25 3c 3d 38 30 29 3a f2  |64).(can%<=80):.|
0001eff0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001f000  22 66 65 72 74 30 22 2c  61 6e 69 6d 61 72 65 61  |"fert0",animarea|
0001f010  25 2c 22 61 6e 69 6d 22  2c 36 39 2c 34 37 2c 38  |%,"anim",69,47,8|
0001f020  29 0d 0c a6 58 e7 28 63  61 6e 25 3e 3d 36 35 29  |)...X.(can%>=65)|
0001f030  80 28 63 61 6e 25 3c 3d  36 39 29 3a f2 61 64 64  |.(can%<=69):.add|
0001f040  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 66 65  |_sp(detarea%,"fe|
0001f050  72 74 22 2b c3 28 63 61  6e 25 2d 36 34 29 2c 61  |rt"+.(can%-64),a|
0001f060  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
0001f070  36 39 2c 34 37 2c 31 35  29 0d 0c a7 5b e7 28 63  |69,47,15)...[.(c|
0001f080  61 6e 25 3e 3d 37 30 29  80 28 63 61 6e 25 3c 3d  |an%>=70).(can%<=|
0001f090  37 39 29 3a f2 61 64 64  5f 73 70 28 64 65 74 61  |79):.add_sp(deta|
0001f0a0  72 65 61 25 2c 22 66 65  72 74 22 2b c3 28 36 2b  |rea%,"fert"+.(6+|
0001f0b0  28 63 61 6e 25 83 32 29  29 2c 61 6e 69 6d 61 72  |(can%.2)),animar|
0001f0c0  65 61 25 2c 22 61 6e 69  6d 22 2c 36 39 2c 34 37  |ea%,"anim",69,47|
0001f0d0  2c 31 35 29 0d 0c a8 56  e7 28 63 61 6e 25 3e 3d  |,15)...V.(can%>=|
0001f0e0  37 30 29 80 28 63 61 6e  25 3c 3d 37 35 29 3a f2  |70).(can%<=75):.|
0001f0f0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001f100  22 77 69 6e 22 2b c3 28  63 61 6e 25 83 32 29 2c  |"win"+.(can%.2),|
0001f110  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
0001f120  2c 37 31 2c 34 39 2c 31  35 29 0d 0c a9 57 e7 28  |,71,49,15)...W.(|
0001f130  63 61 6e 25 3e 3d 37 36  29 80 28 63 61 6e 25 3c  |can%>=76).(can%<|
0001f140  3d 38 36 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |=86):.add_sp(det|
0001f150  61 72 65 61 25 2c 22 77  69 6e 22 2b c3 28 63 61  |area%,"win"+.(ca|
0001f160  6e 25 2d 37 34 29 2c 61  6e 69 6d 61 72 65 61 25  |n%-74),animarea%|
0001f170  2c 22 61 6e 69 6d 22 2c  37 31 2c 34 39 2c 31 35  |,"anim",71,49,15|
0001f180  29 0d 0c aa 50 e7 28 63  61 6e 25 3e 3d 37 38 29  |)...P.(can%>=78)|
0001f190  80 28 63 61 6e 25 3c 3d  38 30 29 3a f2 61 64 64  |.(can%<=80):.add|
0001f1a0  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 65 67  |_sp(detarea%,"eg|
0001f1b0  67 73 74 6f 70 22 2c 61  6e 69 6d 61 72 65 61 25  |gstop",animarea%|
0001f1c0  2c 22 61 6e 69 6d 22 2c  37 31 2c 34 39 2c 31 35  |,"anim",71,49,15|
0001f1d0  29 0d 0c ab 4e e7 28 63  61 6e 25 3e 3d 38 37 29  |)...N.(can%>=87)|
0001f1e0  80 28 63 61 6e 25 3c 3d  39 34 29 3a f2 61 64 64  |.(can%<=94):.add|
0001f1f0  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 63 6f  |_sp(detarea%,"co|
0001f200  75 70 66 65 6d 22 2c 61  6e 69 6d 61 72 65 61 25  |upfem",animarea%|
0001f210  2c 22 61 6e 69 6d 22 2c  35 2c 35 2c 31 35 29 0d  |,"anim",5,5,15).|
0001f220  0c ac 6e e7 28 63 61 6e  25 3e 3d 38 37 29 80 28  |..n.(can%>=87).(|
0001f230  63 61 6e 25 3c 3d 39 34  29 3a f2 61 64 64 5f 73  |can%<=94):.add_s|
0001f240  70 28 64 65 74 61 72 65  61 25 2c 22 65 67 67 22  |p(detarea%,"egg"|
0001f250  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001f260  22 2c 62 61 62 79 65 67  67 25 28 63 61 6e 25 2d  |",babyegg%(can%-|
0001f270  38 36 2c 30 29 2c 62 61  62 79 65 67 67 25 28 63  |86,0),babyegg%(c|
0001f280  61 6e 25 2d 38 36 2c 31  29 2c 31 35 29 0d 0c ad  |an%-86,1),15)...|
0001f290  1e e7 63 61 6e 25 3d 39  36 3a f2 6d 6f 76 65 62  |..can%=96:.moveb|
0001f2a0  61 62 79 6c 69 6e 65 73  28 32 29 0d 0c ae 4e e7  |abylines(2)...N.|
0001f2b0  28 63 61 6e 25 3e 3d 39  35 29 80 28 63 61 6e 25  |(can%>=95).(can%|
0001f2c0  3c 3d 39 36 29 3a f2 61  64 64 5f 73 70 28 64 65  |<=96):.add_sp(de|
0001f2d0  74 61 72 65 61 25 2c 22  6c 69 74 74 6c 65 32 22  |tarea%,"little2"|
0001f2e0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001f2f0  22 2c 35 2c 35 2c 31 35  29 0d 0c af 4e e7 28 63  |",5,5,15)...N.(c|
0001f300  61 6e 25 3e 3d 39 36 29  80 28 63 61 6e 25 3c 3d  |an%>=96).(can%<=|
0001f310  31 30 31 29 3a f2 61 64  64 5f 73 70 28 64 65 74  |101):.add_sp(det|
0001f320  61 72 65 61 25 2c 22 69  6d 70 6c 30 22 2c 61 6e  |area%,"impl0",an|
0001f330  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 36  |imarea%,"anim",6|
0001f340  39 2c 34 37 2c 38 29 0d  0c b0 58 e7 28 63 61 6e  |9,47,8)...X.(can|
0001f350  25 3e 3d 39 37 29 80 28  63 61 6e 25 3c 3d 31 30  |%>=97).(can%<=10|
0001f360  31 29 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |1):.add_sp(detar|
0001f370  65 61 25 2c 22 69 6d 70  6c 22 2b c3 28 63 61 6e  |ea%,"impl"+.(can|
0001f380  25 2d 39 36 29 2c 61 6e  69 6d 61 72 65 61 25 2c  |%-96),animarea%,|
0001f390  22 61 6e 69 6d 22 2c 37  31 2c 34 39 2c 38 29 0d  |"anim",71,49,8).|
0001f3a0  0c b1 58 e7 74 65 78 74  6f 6e 25 8c 3a e7 28 63  |..X.texton%.:.(c|
0001f3b0  61 6e 25 3d 34 30 29 84  28 63 61 6e 25 3d 36 31  |an%=40).(can%=61|
0001f3c0  29 84 28 63 61 6e 25 3d  37 38 29 84 28 63 61 6e  |).(can%=78).(can|
0001f3d0  25 3d 38 34 29 84 28 63  61 6e 25 3d 39 39 29 3a  |%=84).(can%=99):|
0001f3e0  f2 73 65 6c 65 63 74 69  63 6e 28 61 6e 69 6d 77  |.selecticn(animw|
0001f3f0  25 2c 34 39 2c b9 29 0d  0c b2 0b 63 61 6e 25 2b  |%,49,.)....can%+|
0001f400  3d 31 0d 0c b3 13 65 6c  61 70 73 25 3d 91 2d 65  |=1....elaps%=.-e|
0001f410  6c 61 70 73 25 0d 0c b4  1d f2 70 6c 6f 74 61 6e  |laps%.....plotan|
0001f420  69 6d 6d 6f 76 65 3a 6c  61 73 74 74 69 6d 65 25  |immove:lasttime%|
0001f430  3d 91 0d 0c b5 0e e7 63  61 6e 25 3d 31 30 33 8c  |=......can%=103.|
0001f440  0d 0c b6 1a 20 e7 ac 74  65 78 74 6f 6e 25 3a 6f  |.... ..texton%:o|
0001f450  6e 6c 79 66 65 6d 25 3d  2d 31 0d 0c b7 27 20 f2  |nlyfem%=-1...' .|
0001f460  6d 61 6b 65 62 61 62 79  28 31 29 3a f2 61 6e 69  |makebaby(1):.ani|
0001f470  6d 61 74 65 65 6e 64 3a  f2 70 6c 6f 74 61 6e 69  |mateend:.plotani|
0001f480  6d 0d 0c b8 05 cd 0d 0c  b9 05 e1 0d 0c ba 04 0d  |m...............|
0001f490  0c bb 19 dd f2 6d 6f 76  65 62 61 62 79 6c 69 6e  |.....movebabylin|
0001f4a0  65 73 28 77 68 69 25 29  0d 0c bc 2b c8 99 22 4f  |es(whi%)...+.."O|
0001f4b0  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
0001f4c0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001f4d0  22 2c 30 0d 0c bd 0b ef  31 38 2c 30 2c 37 0d 0c  |",0.....18,0,7..|
0001f4e0  be 0b e3 6a 25 3d 30 b8  31 0d 0c bf 39 e7 77 68  |...j%=0.1...9.wh|
0001f4f0  69 25 3d 31 3a ef 32 35  2c 34 2c 31 30 34 2b 28  |i%=1:.25,4,104+(|
0001f500  6a 25 2a 32 29 3b 32 37  36 3b 3a 8b 3a ef 32 35  |j%*2);276;:.:.25|
0001f510  2c 34 2c 31 39 30 2b 28  6a 25 2a 32 29 3b 31 39  |,4,190+(j%*2);19|
0001f520  36 3b 0d 0c c0 19 ef 32  35 2c 35 2c 32 37 36 2b  |6;.....25,5,276+|
0001f530  28 6a 25 2a 32 29 3b 34  32 34 3b 0d 0c c1 39 e7  |(j%*2);424;...9.|
0001f540  77 68 69 25 3d 31 3a ef  32 35 2c 34 2c 31 30 34  |whi%=1:.25,4,104|
0001f550  2b 28 6a 25 2a 32 29 3b  32 34 34 3b 3a 8b 3a ef  |+(j%*2);244;:.:.|
0001f560  32 35 2c 34 2c 31 39 30  2b 28 6a 25 2a 32 29 3b  |25,4,190+(j%*2);|
0001f570  31 36 34 3b 0d 0c c2 18  ef 32 35 2c 35 2c 32 37  |164;.....25,5,27|
0001f580  36 2b 28 6a 25 2a 32 29  3b 38 38 3b 0d 0c c3 39  |6+(j%*2);88;...9|
0001f590  e7 77 68 69 25 3d 31 3a  ef 32 35 2c 34 2c 31 34  |.whi%=1:.25,4,14|
0001f5a0  32 2b 28 6a 25 2a 32 29  3b 32 37 36 3b 3a 8b 3a  |2+(j%*2);276;:.:|
0001f5b0  ef 32 35 2c 34 2c 32 32  38 2b 28 6a 25 2a 32 29  |.25,4,228+(j%*2)|
0001f5c0  3b 31 39 36 3b 0d 0c c4  19 ef 32 35 2c 35 2c 37  |;196;.....25,5,7|
0001f5d0  32 36 2b 28 6a 25 2a 32  29 3b 34 32 34 3b 0d 0c  |26+(j%*2);424;..|
0001f5e0  c5 39 e7 77 68 69 25 3d  31 3a ef 32 35 2c 34 2c  |.9.whi%=1:.25,4,|
0001f5f0  31 34 32 2b 28 6a 25 2a  32 29 3b 32 34 34 3b 3a  |142+(j%*2);244;:|
0001f600  8b 3a ef 32 35 2c 34 2c  32 32 38 2b 28 6a 25 2a  |.:.25,4,228+(j%*|
0001f610  32 29 3b 31 36 34 3b 0d  0c c6 18 ef 32 35 2c 35  |2);164;.....25,5|
0001f620  2c 37 32 36 2b 28 6a 25  2a 32 29 3b 38 38 3b 0d  |,726+(j%*2);88;.|
0001f630  0c c7 26 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..&.."OS_SpriteO|
0001f640  70 22 2c 26 31 33 43 2c  61 6e 69 6d 61 72 65 61  |p",&13C,animarea|
0001f650  25 2c 30 2c 30 0d 0c c8  05 e1 0d 0c c9 04 0d 0c  |%,0,0...........|
0001f660  ca 10 dd f2 6d 6f 76 65  66 65 6d 61 6c 65 0d 0c  |....movefemale..|
0001f670  cb 3b e7 66 69 72 73 74  6d 6f 76 65 25 8c 3a 63  |.;.firstmove%.:c|
0001f680  61 6e 25 3d 30 3a 66 69  72 73 74 6d 6f 76 65 25  |an%=0:firstmove%|
0001f690  3d a3 3a 6c 61 73 74 74  69 6d 65 25 3d 91 3a 65  |=.:lasttime%=.:e|
0001f6a0  6c 61 70 73 25 3d 30 3a  e1 0d 0c cc 1d e7 91 3c  |laps%=0:.......<|
0001f6b0  6c 61 73 74 74 69 6d 65  25 2b 31 30 30 2d 65 6c  |lasttime%+100-el|
0001f6c0  61 70 73 25 3a e1 0d 0c  cd 0c 65 6c 61 70 73 25  |aps%:.....elaps%|
0001f6d0  3d 91 0d 0c ce 0d e7 74  65 78 74 6f 6e 25 8c 0d  |=......texton%..|
0001f6e0  0c cf 11 20 e7 74 65 78  74 6e 65 77 6f 6e 25 8c  |... .textnewon%.|
0001f6f0  0d 0c d0 3f 20 20 74 65  78 74 6e 65 77 6f 6e 25  |...?  textnewon%|
0001f700  3d 30 3a f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |=0:.puticnstring|
0001f710  28 61 6e 69 6d 77 25 2c  35 30 2c 61 6e 69 6d 77  |(animw%,50,animw|
0001f720  6f 72 64 73 24 28 73 69  6d 70 25 2c 30 29 29 0d  |ords$(simp%,0)).|
0001f730  0c d1 3c 20 20 e7 28 63  61 6e 25 3c 35 29 3a f2  |..<  .(can%<5):.|
0001f740  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
0001f750  6d 77 25 2c 35 31 2c 61  6e 69 6d 77 6f 72 64 73  |mw%,51,animwords|
0001f760  24 28 73 69 6d 70 25 2c  31 29 29 0d 0c d2 47 20  |$(simp%,1))...G |
0001f770  20 e7 28 63 61 6e 25 3e  3d 35 29 80 28 63 61 6e  | .(can%>=5).(can|
0001f780  25 3c 32 31 29 3a f2 70  75 74 69 63 6e 73 74 72  |%<21):.puticnstr|
0001f790  69 6e 67 28 61 6e 69 6d  77 25 2c 35 31 2c 61 6e  |ing(animw%,51,an|
0001f7a0  69 6d 77 6f 72 64 73 24  28 73 69 6d 70 25 2c 32  |imwords$(simp%,2|
0001f7b0  29 29 0d 0c d3 3e 20 20  e7 28 63 61 6e 25 3e 3d  |))...>  .(can%>=|
0001f7c0  32 31 29 3a f2 70 75 74  69 63 6e 73 74 72 69 6e  |21):.puticnstrin|
0001f7d0  67 28 61 6e 69 6d 77 25  2c 35 31 2c 61 6e 69 6d  |g(animw%,51,anim|
0001f7e0  77 6f 72 64 73 24 28 73  69 6d 70 25 2c 33 29 29  |words$(simp%,3))|
0001f7f0  0d 0c d4 06 20 cd 0d 0c  d5 3b 20 e7 28 63 61 6e  |.... ....; .(can|
0001f800  25 3d 35 29 3a f2 70 75  74 69 63 6e 73 74 72 69  |%=5):.puticnstri|
0001f810  6e 67 28 61 6e 69 6d 77  25 2c 35 31 2c 61 6e 69  |ng(animw%,51,ani|
0001f820  6d 77 6f 72 64 73 24 28  73 69 6d 70 25 2c 32 29  |mwords$(simp%,2)|
0001f830  29 0d 0c d6 3c 20 e7 28  63 61 6e 25 3d 32 31 29  |)...< .(can%=21)|
0001f840  3a f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 61  |:.puticnstring(a|
0001f850  6e 69 6d 77 25 2c 35 31  2c 61 6e 69 6d 77 6f 72  |nimw%,51,animwor|
0001f860  64 73 24 28 73 69 6d 70  25 2c 33 29 29 0d 0c d7  |ds$(simp%,3))...|
0001f870  05 cd 0d 0c d8 38 f2 61  64 64 5f 73 70 28 64 65  |.....8.add_sp(de|
0001f880  74 61 72 65 61 25 2c 22  66 65 6d 61 6c 65 78 73  |tarea%,"femalexs|
0001f890  22 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |",animarea%,"ani|
0001f8a0  6d 22 2c 31 31 2c 35 2c  38 29 0d 0c d9 40 e7 63  |m",11,5,8)...@.c|
0001f8b0  61 6e 25 3e 30 3a f2 61  64 64 5f 73 70 28 64 65  |an%>0:.add_sp(de|
0001f8c0  74 61 72 65 61 25 2c 22  70 65 72 64 61 79 22 2c  |tarea%,"perday",|
0001f8d0  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
0001f8e0  2c 32 33 2c 37 32 2c 31  36 29 0d 0c da 4a e7 63  |,23,72,16)...J.c|
0001f8f0  61 6e 25 3e 30 3a f2 61  64 64 5f 73 70 28 64 65  |an%>0:.add_sp(de|
0001f900  74 61 72 65 61 25 2c 22  70 65 72 64 61 79 22 2b  |tarea%,"perday"+|
0001f910  c3 28 63 61 6e 25 83 31  30 29 2c 61 6e 69 6d 61  |.(can%.10),anima|
0001f920  72 65 61 25 2c 22 61 6e  69 6d 22 2c 32 33 2c 37  |rea%,"anim",23,7|
0001f930  35 2c 32 29 0d 0c db 50  e7 28 63 61 6e 25 3e 3d  |5,2)...P.(can%>=|
0001f940  31 30 29 80 28 63 61 6e  25 3c 3d 31 39 29 3a f2  |10).(can%<=19):.|
0001f950  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
0001f960  22 70 65 72 64 61 79 31  30 22 2c 61 6e 69 6d 61  |"perday10",anima|
0001f970  72 65 61 25 2c 22 61 6e  69 6d 22 2c 32 33 2c 37  |rea%,"anim",23,7|
0001f980  35 2c 32 29 0d 0c dc 43  e7 63 61 6e 25 3e 3d 32  |5,2)...C.can%>=2|
0001f990  30 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |0:.add_sp(detare|
0001f9a0  61 25 2c 22 70 65 72 64  61 79 32 30 22 2c 61 6e  |a%,"perday20",an|
0001f9b0  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 32  |imarea%,"anim",2|
0001f9c0  33 2c 37 35 2c 32 29 0d  0c dd 41 e7 63 61 6e 25  |3,75,2)...A.can%|
0001f9d0  3d 30 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |=0:.add_sp(detar|
0001f9e0  65 61 25 2c 22 66 65 6d  61 6c 65 78 73 30 22 2c  |ea%,"femalexs0",|
0001f9f0  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
0001fa00  2c 31 31 2c 35 2c 30 29  0d 0c de 41 e7 63 61 6e  |,11,5,0)...A.can|
0001fa10  25 3d 31 3a f2 61 64 64  5f 73 70 28 64 65 74 61  |%=1:.add_sp(deta|
0001fa20  72 65 61 25 2c 22 66 65  6d 61 6c 65 78 73 31 22  |rea%,"femalexs1"|
0001fa30  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
0001fa40  22 2c 31 31 2c 35 2c 30  29 0d 0c df 55 e7 28 63  |",11,5,0)...U.(c|
0001fa50  61 6e 25 3e 3d 32 29 80  28 63 61 6e 25 3c 3d 34  |an%>=2).(can%<=4|
0001fa60  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
0001fa70  61 25 2c 22 66 65 6d 61  6c 65 78 73 22 2b c3 28  |a%,"femalexs"+.(|
0001fa80  63 61 6e 25 29 2c 61 6e  69 6d 61 72 65 61 25 2c  |can%),animarea%,|
0001fa90  22 61 6e 69 6d 22 2c 31  31 2c 35 2c 30 29 0d 0c  |"anim",11,5,0)..|
0001faa0  e0 4e e7 28 63 61 6e 25  3e 3d 36 29 80 28 63 61  |.N.(can%>=6).(ca|
0001fab0  6e 25 3c 3d 38 29 3a f2  61 64 64 5f 73 70 28 64  |n%<=8):.add_sp(d|
0001fac0  65 74 61 72 65 61 25 2c  22 66 65 6d 61 6c 65 78  |etarea%,"femalex|
0001fad0  73 35 22 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |s5",animarea%,"a|
0001fae0  6e 69 6d 22 2c 31 31 2c  35 2c 30 29 0d 0c e1 4f  |nim",11,5,0)...O|
0001faf0  e7 28 63 61 6e 25 3e 3d  39 29 80 28 63 61 6e 25  |.(can%>=9).(can%|
0001fb00  3c 3d 31 31 29 3a f2 61  64 64 5f 73 70 28 64 65  |<=11):.add_sp(de|
0001fb10  74 61 72 65 61 25 2c 22  66 65 6d 61 6c 65 78 73  |tarea%,"femalexs|
0001fb20  36 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |6",animarea%,"an|
0001fb30  69 6d 22 2c 31 31 2c 35  2c 30 29 0d 0c e2 50 e7  |im",11,5,0)...P.|
0001fb40  28 63 61 6e 25 3e 3d 31  32 29 80 28 63 61 6e 25  |(can%>=12).(can%|
0001fb50  3c 3d 31 36 29 3a f2 61  64 64 5f 73 70 28 64 65  |<=16):.add_sp(de|
0001fb60  74 61 72 65 61 25 2c 22  66 65 6d 61 6c 65 78 73  |tarea%,"femalexs|
0001fb70  37 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |7",animarea%,"an|
0001fb80  69 6d 22 2c 31 31 2c 35  2c 30 29 0d 0c e3 6c e7  |im",11,5,0)...l.|
0001fb90  28 63 61 6e 25 3e 3d 31  34 29 80 28 63 61 6e 25  |(can%>=14).(can%|
0001fba0  3c 3d 32 31 29 3a f2 61  64 64 5f 73 70 28 64 65  |<=21):.add_sp(de|
0001fbb0  74 61 72 65 61 25 2c 22  65 67 67 30 22 2c 61 6e  |tarea%,"egg0",an|
0001fbc0  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 70  |imarea%,"anim",p|
0001fbd0  65 72 65 67 67 25 28 63  61 6e 25 2d 31 34 2c 30  |eregg%(can%-14,0|
0001fbe0  29 2c 70 65 72 65 67 67  25 28 63 61 6e 25 2d 31  |),peregg%(can%-1|
0001fbf0  34 2c 31 29 2c 32 29 0d  0c e4 56 e7 28 63 61 6e  |4,1),2)...V.(can|
0001fc00  25 3e 3d 32 32 29 80 28  63 61 6e 25 3c 3d 32 35  |%>=22).(can%<=25|
0001fc10  29 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |):.add_sp(detare|
0001fc20  61 25 2c 22 65 67 67 22  2b c3 28 63 61 6e 25 2d  |a%,"egg"+.(can%-|
0001fc30  32 31 29 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |21),animarea%,"a|
0001fc40  6e 69 6d 22 2c 38 31 2c  33 32 2c 32 29 0d 0c e5  |nim",81,32,2)...|
0001fc50  3f e7 63 61 6e 25 3e 3d  31 34 3a f2 61 64 64 5f  |?.can%>=14:.add_|
0001fc60  73 70 28 64 65 74 61 72  65 61 25 2c 22 6f 76 75  |sp(detarea%,"ovu|
0001fc70  6c 22 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |l",animarea%,"an|
0001fc80  69 6d 22 2c 32 37 2c 32  31 2c 32 29 0d 0c e6 43  |im",27,21,2)...C|
0001fc90  e7 63 61 6e 25 3e 3d 31  37 3a f2 61 64 64 5f 73  |.can%>=17:.add_s|
0001fca0  70 28 64 65 74 61 72 65  61 25 2c 22 66 65 6d 61  |p(detarea%,"fema|
0001fcb0  6c 65 78 73 30 22 2c 61  6e 69 6d 61 72 65 61 25  |lexs0",animarea%|
0001fcc0  2c 22 61 6e 69 6d 22 2c  31 31 2c 35 2c 30 29 0d  |,"anim",11,5,0).|
0001fcd0  0c e7 43 e7 74 65 78 74  6f 6e 25 8c 3a e7 28 63  |..C.texton%.:.(c|
0001fce0  61 6e 25 3d 33 29 84 28  63 61 6e 25 3d 31 34 29  |an%=3).(can%=14)|
0001fcf0  84 28 63 61 6e 25 3d 32  38 29 3a f2 73 65 6c 65  |.(can%=28):.sele|
0001fd00  63 74 69 63 6e 28 61 6e  69 6d 77 25 2c 34 39 2c  |cticn(animw%,49,|
0001fd10  b9 29 0d 0c e8 0b 63 61  6e 25 2b 3d 31 0d 0c e9  |.)....can%+=1...|
0001fd20  13 65 6c 61 70 73 25 3d  91 2d 65 6c 61 70 73 25  |.elaps%=.-elaps%|
0001fd30  0d 0c ea 26 e7 63 61 6e  25 3c 33 30 3a f2 70 6c  |...&.can%<30:.pl|
0001fd40  6f 74 61 6e 69 6d 6d 6f  76 65 3a 6c 61 73 74 74  |otanimmove:lastt|
0001fd50  69 6d 65 25 3d 91 0d 0c  eb 31 e7 63 61 6e 25 3d  |ime%=....1.can%=|
0001fd60  33 30 3a f2 6d 61 6b 65  66 65 6d 61 6c 65 28 31  |30:.makefemale(1|
0001fd70  29 3a f2 61 6e 69 6d 61  74 65 65 6e 64 3a f2 70  |):.animateend:.p|
0001fd80  6c 6f 74 61 6e 69 6d 0d  0c ec 05 e1 0d 0c ed 04  |lotanim.........|
0001fd90  0d 0c ee 0e dd f2 6d 6f  76 65 6d 61 6c 65 0d 0c  |......movemale..|
0001fda0  ef 3b e7 66 69 72 73 74  6d 6f 76 65 25 8c 3a 63  |.;.firstmove%.:c|
0001fdb0  61 6e 25 3d 30 3a 66 69  72 73 74 6d 6f 76 65 25  |an%=0:firstmove%|
0001fdc0  3d a3 3a 6c 61 73 74 74  69 6d 65 25 3d 91 3a 65  |=.:lasttime%=.:e|
0001fdd0  6c 61 70 73 25 3d 30 3a  e1 0d 0c f0 31 e7 28 63  |laps%=0:....1.(c|
0001fde0  61 6e 25 3e 30 29 80 28  63 61 6e 25 3c 34 29 8c  |an%>0).(can%<4).|
0001fdf0  3a e7 91 3c 6c 61 73 74  74 69 6d 65 25 2b 32 30  |:..<lasttime%+20|
0001fe00  30 2d 65 6c 61 70 73 25  3a e1 0d 0c f1 26 e7 63  |0-elaps%:....&.c|
0001fe10  61 6e 25 3d 34 8c 3a e7  91 3c 6c 61 73 74 74 69  |an%=4.:..<lastti|
0001fe20  6d 65 25 2b 35 30 30 2d  65 6c 61 70 73 25 3a e1  |me%+500-elaps%:.|
0001fe30  0d 0c f2 0c 65 6c 61 70  73 25 3d 91 0d 0c f3 0d  |....elaps%=.....|
0001fe40  e7 74 65 78 74 6f 6e 25  8c 0d 0c f4 11 20 e7 74  |.texton%..... .t|
0001fe50  65 78 74 6e 65 77 6f 6e  25 8c 0d 0c f5 6c 20 20  |extnewon%....l  |
0001fe60  74 65 78 74 6e 65 77 6f  6e 25 3d 30 3a f2 70 75  |textnewon%=0:.pu|
0001fe70  74 69 63 6e 73 74 72 69  6e 67 28 61 6e 69 6d 77  |ticnstring(animw|
0001fe80  25 2c 35 30 2c 61 6e 69  6d 77 6f 72 64 73 24 28  |%,50,animwords$(|
0001fe90  73 69 6d 70 25 2c 30 29  29 3a f2 70 75 74 69 63  |simp%,0)):.putic|
0001fea0  6e 73 74 72 69 6e 67 28  61 6e 69 6d 77 25 2c 35  |nstring(animw%,5|
0001feb0  31 2c 61 6e 69 6d 77 6f  72 64 73 24 28 73 69 6d  |1,animwords$(sim|
0001fec0  70 25 2c 31 29 29 0d 0c  f6 06 20 cd 0d 0c f7 05  |p%,1)).... .....|
0001fed0  cd 0d 0c f8 40 e7 63 61  6e 25 3d 31 3a f2 61 64  |....@.can%=1:.ad|
0001fee0  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 6d  |d_sp(detarea%,"m|
0001fef0  61 6c 65 78 73 31 22 2c  61 6e 69 6d 61 72 65 61  |alexs1",animarea|
0001ff00  25 2c 22 61 6e 69 6d 22  2c 33 38 2c 35 36 2c 38  |%,"anim",38,56,8|
0001ff10  29 0d 0c f9 40 e7 63 61  6e 25 3d 32 3a f2 61 64  |)...@.can%=2:.ad|
0001ff20  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 6d  |d_sp(detarea%,"m|
0001ff30  61 6c 65 78 73 32 22 2c  61 6e 69 6d 61 72 65 61  |alexs2",animarea|
0001ff40  25 2c 22 61 6e 69 6d 22  2c 31 31 2c 35 36 2c 38  |%,"anim",11,56,8|
0001ff50  29 0d 0c fa 3f e7 63 61  6e 25 3d 33 3a f2 61 64  |)...?.can%=3:.ad|
0001ff60  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 6d  |d_sp(detarea%,"m|
0001ff70  61 6c 65 78 73 33 22 2c  61 6e 69 6d 61 72 65 61  |alexs3",animarea|
0001ff80  25 2c 22 61 6e 69 6d 22  2c 38 2c 32 35 2c 38 29  |%,"anim",8,25,8)|
0001ff90  0d 0c fb 2f e7 74 65 78  74 6f 6e 25 8c 3a e7 28  |.../.texton%.:.(|
0001ffa0  63 61 6e 25 3d 33 29 3a  f2 73 65 6c 65 63 74 69  |can%=3):.selecti|
0001ffb0  63 6e 28 61 6e 69 6d 77  25 2c 34 39 2c b9 29 0d  |cn(animw%,49,.).|
0001ffc0  0c fc 0b 63 61 6e 25 2b  3d 31 0d 0c fd 13 65 6c  |...can%+=1....el|
0001ffd0  61 70 73 25 3d 91 2d 65  6c 61 70 73 25 0d 0c fe  |aps%=.-elaps%...|
0001ffe0  1d f2 70 6c 6f 74 61 6e  69 6d 6d 6f 76 65 3a 6c  |..plotanimmove:l|
0001fff0  61 73 74 74 69 6d 65 25  3d 91 0d 0c ff 2e e7 63  |asttime%=......c|
00020000  61 6e 25 3d 35 3a f2 6d  61 6b 65 6d 61 6c 65 28  |an%=5:.makemale(|
00020010  31 29 3a f2 61 6e 69 6d  61 74 65 65 6e 64 3a f2  |1):.animateend:.|
00020020  70 6c 6f 74 61 6e 69 6d  0d 0d 00 05 e1 0d 0d 01  |plotanim........|
00020030  04 0d 0d 02 0d dd f2 6d  6f 76 65 65 61 72 0d 0d  |.......moveear..|
00020040  03 35 e7 66 69 72 73 74  6d 6f 76 65 25 3a 20 63  |.5.firstmove%: c|
00020050  61 6e 25 3d 2d 31 3a 73  70 6b 25 3d 30 3a 66 69  |an%=-1:spk%=0:fi|
00020060  72 73 74 6d 6f 76 65 25  3d a3 3a 65 6c 61 70 73  |rstmove%=.:elaps|
00020070  25 3d 30 0d 0d 04 25 e7  63 61 6e 25 3e 2d 31 8c  |%=0...%.can%>-1.|
00020080  3a e7 91 3c 6c 61 73 74  74 69 6d 65 25 2b 36 2d  |:..<lasttime%+6-|
00020090  65 6c 61 70 73 25 3a e1  0d 0d 05 0c 65 6c 61 70  |elaps%:.....elap|
000200a0  73 25 3d 91 0d 0d 06 0d  e7 74 65 78 74 6f 6e 25  |s%=......texton%|
000200b0  8c 0d 0d 07 11 20 e7 74  65 78 74 6e 65 77 6f 6e  |..... .textnewon|
000200c0  25 8c 0d 0d 08 3f 20 20  74 65 78 74 6e 65 77 6f  |%....?  textnewo|
000200d0  6e 25 3d 30 3a f2 70 75  74 69 63 6e 73 74 72 69  |n%=0:.puticnstri|
000200e0  6e 67 28 61 6e 69 6d 77  25 2c 35 30 2c 61 6e 69  |ng(animw%,50,ani|
000200f0  6d 77 6f 72 64 73 24 28  73 69 6d 70 25 2c 30 29  |mwords$(simp%,0)|
00020100  29 0d 0d 09 3c 20 20 e7  28 63 61 6e 25 3c 39 29  |)...<  .(can%<9)|
00020110  3a f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 61  |:.puticnstring(a|
00020120  6e 69 6d 77 25 2c 35 31  2c 61 6e 69 6d 77 6f 72  |nimw%,51,animwor|
00020130  64 73 24 28 73 69 6d 70  25 2c 31 29 29 0d 0d 0a  |ds$(simp%,1))...|
00020140  47 20 20 e7 28 63 61 6e  25 3e 3d 39 29 80 28 63  |G  .(can%>=9).(c|
00020150  61 6e 25 3c 32 36 29 3a  f2 70 75 74 69 63 6e 73  |an%<26):.puticns|
00020160  74 72 69 6e 67 28 61 6e  69 6d 77 25 2c 35 31 2c  |tring(animw%,51,|
00020170  61 6e 69 6d 77 6f 72 64  73 24 28 73 69 6d 70 25  |animwords$(simp%|
00020180  2c 32 29 29 0d 0d 0b 3e  20 20 e7 28 63 61 6e 25  |,2))...>  .(can%|
00020190  3e 3d 32 36 29 3a f2 70  75 74 69 63 6e 73 74 72  |>=26):.puticnstr|
000201a0  69 6e 67 28 61 6e 69 6d  77 25 2c 35 31 2c 61 6e  |ing(animw%,51,an|
000201b0  69 6d 77 6f 72 64 73 24  28 73 69 6d 70 25 2c 33  |imwords$(simp%,3|
000201c0  29 29 0d 0d 0c 06 20 cd  0d 0d 0d 3b 20 e7 28 63  |)).... ....; .(c|
000201d0  61 6e 25 3d 39 29 3a f2  70 75 74 69 63 6e 73 74  |an%=9):.puticnst|
000201e0  72 69 6e 67 28 61 6e 69  6d 77 25 2c 35 31 2c 61  |ring(animw%,51,a|
000201f0  6e 69 6d 77 6f 72 64 73  24 28 73 69 6d 70 25 2c  |nimwords$(simp%,|
00020200  32 29 29 0d 0d 0e 3c 20  e7 28 63 61 6e 25 3d 32  |2))...< .(can%=2|
00020210  36 29 3a f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |6):.puticnstring|
00020220  28 61 6e 69 6d 77 25 2c  35 31 2c 61 6e 69 6d 77  |(animw%,51,animw|
00020230  6f 72 64 73 24 28 73 69  6d 70 25 2c 33 29 29 0d  |ords$(simp%,3)).|
00020240  0d 0f 05 cd 0d 0d 10 2b  c8 99 22 4f 53 5f 53 70  |.......+.."OS_Sp|
00020250  72 69 74 65 4f 70 22 2c  26 31 33 43 2c 61 6e 69  |riteOp",&13C,ani|
00020260  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 30 0d  |marea%,"anim",0.|
00020270  0d 11 0e e7 63 61 6e 25  3d 2d 31 20 8c 0d 0d 12  |....can%=-1 ....|
00020280  15 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 31  |.*CHANNELVOICE 1|
00020290  20 31 0d 0d 13 34 f2 61  64 64 5f 73 70 28 64 65  | 1...4.add_sp(de|
000202a0  74 61 72 65 61 25 2c 22  6e 6f 74 65 22 2c 61 6e  |tarea%,"note",an|
000202b0  69 6d 61 72 65 61 25 2c  22 61 6e 69 6d 22 2c 34  |imarea%,"anim",4|
000202c0  2c 38 39 2c 38 29 0d 0d  14 11 d4 20 31 2c 2d 31  |,89,8)..... 1,-1|
000202d0  35 2c 35 33 2c 33 36 0d  0d 15 05 cd 0d 0d 16 7e  |5,53,36........~|
000202e0  e7 28 63 61 6e 25 3e 3d  30 29 80 28 63 61 6e 25  |.(can%>=0).(can%|
000202f0  3c 31 31 29 20 ef 32 35  2c 34 2c 31 38 3b 32 33  |<11) .25,4,18;23|
00020300  32 3b 3a ef 32 35 2c 34  2c 63 61 6e 61 6c 25 28  |2;:.25,4,canal%(|
00020310  63 61 6e 25 2c 30 29 2d  36 3b 36 39 32 2d 63 61  |can%,0)-6;692-ca|
00020320  6e 61 6c 25 28 63 61 6e  25 2c 31 29 3b 3a ef 32  |nal%(can%,1);:.2|
00020330  35 2c 31 36 36 2c 63 61  6e 61 6c 25 28 63 61 6e  |5,166,canal%(can|
00020340  25 2c 32 29 2d 36 3b 36  39 32 2d 63 61 6e 61 6c  |%,2)-6;692-canal|
00020350  25 28 63 61 6e 25 2c 33  29 3b 0d 0d 17 85 e7 28  |%(can%,3);.....(|
00020360  63 61 6e 25 3e 35 29 80  28 63 61 6e 25 3c 31 37  |can%>5).(can%<17|
00020370  29 20 ef 32 35 2c 34 2c  31 38 3b 32 33 32 3b 3a  |) .25,4,18;232;:|
00020380  ef 32 35 2c 34 2c 63 61  6e 61 6c 25 28 63 61 6e  |.25,4,canal%(can|
00020390  25 2d 36 2c 30 29 2d 36  3b 36 39 32 2d 63 61 6e  |%-6,0)-6;692-can|
000203a0  61 6c 25 28 63 61 6e 25  2d 36 2c 31 29 3b 3a ef  |al%(can%-6,1);:.|
000203b0  32 35 2c 31 36 36 2c 63  61 6e 61 6c 25 28 63 61  |25,166,canal%(ca|
000203c0  6e 25 2d 36 2c 32 29 2d  36 3b 36 39 32 2d 63 61  |n%-6,2)-6;692-ca|
000203d0  6e 61 6c 25 28 63 61 6e  25 2d 36 2c 33 29 3b 0d  |nal%(can%-6,3);.|
000203e0  0d 18 5a e7 28 63 61 6e  25 3e 37 29 80 28 63 61  |..Z.(can%>7).(ca|
000203f0  6e 25 3c 31 38 29 20 f2  61 64 64 5f 73 70 28 64  |n%<18) .add_sp(d|
00020400  65 74 61 72 65 61 25 2c  22 6d 61 6c 6c 65 75 73  |etarea%,"malleus|
00020410  22 2b c3 28 28 63 61 6e  25 2b 31 29 83 32 29 2c  |"+.((can%+1).2),|
00020420  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
00020430  2c 34 33 2c 37 33 2c 38  29 0d 0d 19 92 e7 28 63  |,43,73,8).....(c|
00020440  61 6e 25 3e 39 29 80 28  63 61 6e 25 3c 32 38 29  |an%>9).(can%<28)|
00020450  20 ef 32 35 2c 34 2c 33  31 34 3b 32 37 36 3b 3a  | .25,4,314;276;:|
00020460  ef 32 35 2c 34 2c 63 6f  63 68 6c 65 61 25 28 63  |.25,4,cochlea%(c|
00020470  61 6e 25 2d 31 30 2c 30  29 2d 36 3b 36 39 32 2d  |an%-10,0)-6;692-|
00020480  63 6f 63 68 6c 65 61 25  28 63 61 6e 25 2d 31 30  |cochlea%(can%-10|
00020490  2c 31 29 3b 3a ef 32 35  2c 31 36 36 2c 63 6f 63  |,1);:.25,166,coc|
000204a0  68 6c 65 61 25 28 63 61  6e 25 2d 31 30 2c 32 29  |hlea%(can%-10,2)|
000204b0  2d 36 3b 36 39 32 2d 63  6f 63 68 6c 65 61 25 28  |-6;692-cochlea%(|
000204c0  63 61 6e 25 2d 31 30 2c  33 29 3b 0d 0d 1a 93 e7  |can%-10,3);.....|
000204d0  28 63 61 6e 25 3e 31 35  29 80 28 63 61 6e 25 3c  |(can%>15).(can%<|
000204e0  33 34 29 20 ef 32 35 2c  34 2c 33 31 34 3b 32 37  |34) .25,4,314;27|
000204f0  36 3b 3a ef 32 35 2c 34  2c 63 6f 63 68 6c 65 61  |6;:.25,4,cochlea|
00020500  25 28 63 61 6e 25 2d 31  36 2c 30 29 2d 36 3b 36  |%(can%-16,0)-6;6|
00020510  39 32 2d 63 6f 63 68 6c  65 61 25 28 63 61 6e 25  |92-cochlea%(can%|
00020520  2d 31 36 2c 31 29 3b 3a  ef 32 35 2c 31 36 36 2c  |-16,1);:.25,166,|
00020530  63 6f 63 68 6c 65 61 25  28 63 61 6e 25 2d 31 36  |cochlea%(can%-16|
00020540  2c 32 29 2d 36 3b 36 39  32 2d 63 6f 63 68 6c 65  |,2)-6;692-cochle|
00020550  61 25 28 63 61 6e 25 2d  31 36 2c 33 29 3b 0d 0d  |a%(can%-16,3);..|
00020560  1b 26 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.&.."OS_SpriteOp|
00020570  22 2c 26 31 33 43 2c 61  6e 69 6d 61 72 65 61 25  |",&13C,animarea%|
00020580  2c 30 2c 30 0d 0d 1c 1b  e7 28 63 61 6e 25 3e 3d  |,0,0.....(can%>=|
00020590  33 30 29 80 28 63 61 6e  25 3c 33 36 29 20 8c 0d  |30).(can%<36) ..|
000205a0  0d 1d 63 20 e7 28 28 73  70 6b 25 83 32 29 3d 30  |..c .((spk%.2)=0|
000205b0  29 20 f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |) .add_sp(detare|
000205c0  61 25 2c 22 73 70 61 72  6b 30 22 2c 61 6e 69 6d  |a%,"spark0",anim|
000205d0  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 73 70 61  |area%,"anim",spa|
000205e0  72 6b 25 28 73 70 6b 25  2f 32 2c 30 29 2c 73 70  |rk%(spk%/2,0),sp|
000205f0  61 72 6b 25 28 73 70 6b  25 2f 32 2c 31 29 2c 31  |ark%(spk%/2,1),1|
00020600  35 29 0d 0d 1e 76 20 e7  28 28 73 70 6b 25 83 32  |5)...v .((spk%.2|
00020610  29 3d 31 29 20 f2 61 64  64 5f 73 70 28 64 65 74  |)=1) .add_sp(det|
00020620  61 72 65 61 25 2c 22 73  70 61 72 22 2b c3 28 28  |area%,"spar"+.((|
00020630  73 70 6b 25 2d 31 29 2f  32 29 2c 61 6e 69 6d 61  |spk%-1)/2),anima|
00020640  72 65 61 25 2c 22 61 6e  69 6d 22 2c 73 70 61 72  |rea%,"anim",spar|
00020650  6b 25 28 28 73 70 6b 25  2d 31 29 2f 32 2c 30 29  |k%((spk%-1)/2,0)|
00020660  2c 73 70 61 72 6b 25 28  28 73 70 6b 25 2d 31 29  |,spark%((spk%-1)|
00020670  2f 32 2c 31 29 2c 38 29  0d 0d 1f 0c 20 73 70 6b  |/2,1),8).... spk|
00020680  25 2b 3d 31 0d 0d 20 05  cd 0d 0d 21 13 e7 63 61  |%+=1.. ....!..ca|
00020690  6e 25 3d 33 35 20 73 70  6b 25 3d 30 0d 0d 22 1b  |n%=35 spk%=0..".|
000206a0  e7 28 63 61 6e 25 3e 3d  33 35 29 80 28 63 61 6e  |.(can%>=35).(can|
000206b0  25 3c 34 33 29 20 8c 0d  0d 23 3b 20 f2 61 64 64  |%<43) ...#; .add|
000206c0  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 65 61  |_sp(detarea%,"ea|
000206d0  72 6e 65 72 76 22 2c 61  6e 69 6d 61 72 65 61 25  |rnerv",animarea%|
000206e0  2c 22 61 6e 69 6d 22 2c  31 36 32 2c 35 36 2c 31  |,"anim",162,56,1|
000206f0  35 29 0d 0d 24 5b 20 f2  61 64 64 5f 73 70 28 64  |5)..$[ .add_sp(d|
00020700  65 74 61 72 65 61 25 2c  22 73 70 61 72 6b 22 2b  |etarea%,"spark"+|
00020710  c3 28 73 70 6b 25 83 32  29 2c 61 6e 69 6d 61 72  |.(spk%.2),animar|
00020720  65 61 25 2c 22 61 6e 69  6d 22 2c 31 36 33 2b 28  |ea%,"anim",163+(|
00020730  73 70 6b 25 2a 32 29 2c  37 31 2d a8 28 28 73 70  |spk%*2),71-.((sp|
00020740  6b 25 2a 31 32 29 2f 37  29 2c 31 35 29 0d 0d 25  |k%*12)/7),15)..%|
00020750  0c 20 73 70 6b 25 2b 3d  31 0d 0d 26 05 cd 0d 0d  |. spk%+=1..&....|
00020760  27 43 e7 74 65 78 74 6f  6e 25 8c 3a e7 28 63 61  |'C.texton%.:.(ca|
00020770  6e 25 3d 38 29 84 28 63  61 6e 25 3d 32 35 29 84  |n%=8).(can%=25).|
00020780  28 63 61 6e 25 3d 34 31  29 3a f2 73 65 6c 65 63  |(can%=41):.selec|
00020790  74 69 63 6e 28 61 6e 69  6d 77 25 2c 34 39 2c b9  |ticn(animw%,49,.|
000207a0  29 0d 0d 28 0b 63 61 6e  25 2b 3d 31 0d 0d 29 13  |)..(.can%+=1..).|
000207b0  65 6c 61 70 73 25 3d 91  2d 65 6c 61 70 73 25 0d  |elaps%=.-elaps%.|
000207c0  0d 2a 1d f2 70 6c 6f 74  61 6e 69 6d 6d 6f 76 65  |.*..plotanimmove|
000207d0  3a 6c 61 73 74 74 69 6d  65 25 3d 91 0d 0d 2b 2e  |:lasttime%=...+.|
000207e0  e7 63 61 6e 25 3d 34 33  3a f2 6d 61 6b 65 65 61  |.can%=43:.makeea|
000207f0  72 28 32 29 3a f2 61 6e  69 6d 61 74 65 65 6e 64  |r(2):.animateend|
00020800  3a f2 70 6c 6f 74 61 6e  69 6d 0d 0d 2c 05 e1 0d  |:.plotanim..,...|
00020810  0d 2d 04 0d 0d 2e 0f dd  f2 6d 6f 76 65 6d 6f 75  |.-.......movemou|
00020820  74 68 0d 0d 2f 41 e7 66  69 72 73 74 6d 6f 76 65  |th../A.firstmove|
00020830  25 3a 63 61 6e 25 3d 30  3a 73 70 6b 25 3d 31 3a  |%:can%=0:spk%=1:|
00020840  66 69 72 73 74 6d 6f 76  65 25 3d a3 3a 6c 61 73  |firstmove%=.:las|
00020850  74 74 69 6d 65 25 3d 91  3a 65 6c 61 70 73 25 3d  |ttime%=.:elaps%=|
00020860  30 3a e1 0d 0d 30 1c e7  91 3c 6c 61 73 74 74 69  |0:...0...<lastti|
00020870  6d 65 25 2b 38 30 2d 65  6c 61 70 73 25 3a e1 0d  |me%+80-elaps%:..|
00020880  0d 31 0c 65 6c 61 70 73  25 3d 91 0d 0d 32 0d e7  |.1.elaps%=...2..|
00020890  74 65 78 74 6f 6e 25 8c  0d 0d 33 11 20 e7 74 65  |texton%...3. .te|
000208a0  78 74 6e 65 77 6f 6e 25  8c 0d 0d 34 3f 20 20 74  |xtnewon%...4?  t|
000208b0  65 78 74 6e 65 77 6f 6e  25 3d 30 3a f2 70 75 74  |extnewon%=0:.put|
000208c0  69 63 6e 73 74 72 69 6e  67 28 61 6e 69 6d 77 25  |icnstring(animw%|
000208d0  2c 35 30 2c 61 6e 69 6d  77 6f 72 64 73 24 28 73  |,50,animwords$(s|
000208e0  69 6d 70 25 2c 30 29 29  0d 0d 35 74 20 20 e7 28  |imp%,0))..5t  .(|
000208f0  73 70 6b 25 3d 31 29 80  28 63 61 6e 25 3c 38 29  |spk%=1).(can%<8)|
00020900  3a f2 70 75 74 69 63 6e  73 74 72 69 6e 67 28 61  |:.puticnstring(a|
00020910  6e 69 6d 77 25 2c 35 31  2c 61 6e 69 6d 77 6f 72  |nimw%,51,animwor|
00020920  64 73 24 28 73 69 6d 70  25 2c 31 29 29 3a 8b 3a  |ds$(simp%,1)):.:|
00020930  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 61 6e  |.puticnstring(an|
00020940  69 6d 77 25 2c 35 31 2c  61 6e 69 6d 77 6f 72 64  |imw%,51,animword|
00020950  73 24 28 73 69 6d 70 25  2c 32 29 29 0d 0d 36 06  |s$(simp%,2))..6.|
00020960  20 cd 0d 0d 37 44 20 e7  28 73 70 6b 25 3d 31 29  | ...7D .(spk%=1)|
00020970  80 28 63 61 6e 25 3d 38  29 3a f2 70 75 74 69 63  |.(can%=8):.putic|
00020980  6e 73 74 72 69 6e 67 28  61 6e 69 6d 77 25 2c 35  |nstring(animw%,5|
00020990  31 2c 61 6e 69 6d 77 6f  72 64 73 24 28 73 69 6d  |1,animwords$(sim|
000209a0  70 25 2c 32 29 29 0d 0d  38 05 cd 0d 0d 39 10 f2  |p%,2))..8....9..|
000209b0  63 6c 5f 61 6e 69 6d 28  31 35 29 0d 0d 3a 37 f2  |cl_anim(15)..:7.|
000209c0  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
000209d0  22 6d 6f 75 74 68 6e 76  22 2c 61 6e 69 6d 61 72  |"mouthnv",animar|
000209e0  65 61 25 2c 22 61 6e 69  6d 22 2c 34 2c 34 2c 31  |ea%,"anim",4,4,1|
000209f0  35 29 0d 0d 3b 35 f2 61  64 64 5f 73 70 28 64 65  |5)..;5.add_sp(de|
00020a00  74 61 72 65 61 25 2c 22  73 74 72 61 77 22 2c 61  |tarea%,"straw",a|
00020a10  6e 69 6d 61 72 65 61 25  2c 22 61 6e 69 6d 22 2c  |nimarea%,"anim",|
00020a20  33 2c 31 30 2c 39 29 0d  0d 3c 3f e7 63 61 6e 25  |3,10,9)..<?.can%|
00020a30  3d 31 3a f2 61 64 64 5f  73 70 28 64 65 74 61 72  |=1:.add_sp(detar|
00020a40  65 61 25 2c 22 73 75 63  6b 30 22 2c 61 6e 69 6d  |ea%,"suck0",anim|
00020a50  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 33 2c 31  |area%,"anim",3,1|
00020a60  30 34 2c 31 35 29 0d 0d  3d 3e e7 63 61 6e 25 3d  |04,15)..=>.can%=|
00020a70  32 3a f2 61 64 64 5f 73  70 28 64 65 74 61 72 65  |2:.add_sp(detare|
00020a80  61 25 2c 22 73 75 63 6b  31 22 2c 61 6e 69 6d 61  |a%,"suck1",anima|
00020a90  72 65 61 25 2c 22 61 6e  69 6d 22 2c 33 2c 35 31  |rea%,"anim",3,51|
00020aa0  2c 31 35 29 0d 0d 3e 19  e7 28 63 61 6e 25 3e 3d  |,15)..>..(can%>=|
00020ab0  33 29 80 28 63 61 6e 25  3c 31 31 29 8c 0d 0d 3f  |3).(can%<11)...?|
00020ac0  36 f2 61 64 64 5f 73 70  28 64 65 74 61 72 65 61  |6.add_sp(detarea|
00020ad0  25 2c 22 73 75 63 6b 32  22 2c 61 6e 69 6d 61 72  |%,"suck2",animar|
00020ae0  65 61 25 2c 22 61 6e 69  6d 22 2c 33 2c 33 30 2c  |ea%,"anim",3,30,|
00020af0  31 35 29 0d 0d 40 5a f2  61 64 64 5f 73 70 28 64  |15)..@Z.add_sp(d|
00020b00  65 74 61 72 65 61 25 2c  22 73 77 61 6c 22 2b c3  |etarea%,"swal"+.|
00020b10  28 63 61 6e 25 2d 32 29  2c 61 6e 69 6d 61 72 65  |(can%-2),animare|
00020b20  61 25 2c 22 61 6e 69 6d  22 2c 73 77 61 6c 25 28  |a%,"anim",swal%(|
00020b30  63 61 6e 25 2d 33 2c 30  29 2c 73 77 61 6c 25 28  |can%-3,0),swal%(|
00020b40  63 61 6e 25 2d 33 2c 31  29 2c 31 35 29 0d 0d 41  |can%-3,1),15)..A|
00020b50  05 cd 0d 0d 42 3f e7 63  61 6e 25 3d 31 31 3a f2  |....B?.can%=11:.|
00020b60  61 64 64 5f 73 70 28 64  65 74 61 72 65 61 25 2c  |add_sp(detarea%,|
00020b70  22 73 75 63 6b 32 22 2c  61 6e 69 6d 61 72 65 61  |"suck2",animarea|
00020b80  25 2c 22 61 6e 69 6d 22  2c 33 2c 33 30 2c 31 35  |%,"anim",3,30,15|
00020b90  29 0d 0d 43 36 f2 61 64  64 5f 73 70 28 64 65 74  |)..C6.add_sp(det|
00020ba0  61 72 65 61 25 2c 22 6e  6f 73 65 22 2c 61 6e 69  |area%,"nose",ani|
00020bb0  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 31 32  |marea%,"anim",12|
00020bc0  37 2c 35 2c 31 35 29 0d  0d 44 3b f2 61 64 64 5f  |7,5,15)..D;.add_|
00020bd0  73 70 28 64 65 74 61 72  65 61 25 2c 22 6c 75 6e  |sp(detarea%,"lun|
00020be0  67 73 73 74 22 2c 61 6e  69 6d 61 72 65 61 25 2c  |gsst",animarea%,|
00020bf0  22 61 6e 69 6d 22 2c 31  33 31 2c 31 32 33 2c 31  |"anim",131,123,1|
00020c00  35 29 0d 0d 45 4f e7 74  65 78 74 6f 6e 25 8c 3a  |5)..EO.texton%.:|
00020c10  e7 28 28 73 70 6b 25 3d  31 29 80 28 63 61 6e 25  |.((spk%=1).(can%|
00020c20  3d 37 29 29 84 28 28 73  70 6b 25 3d 31 29 80 28  |=7)).((spk%=1).(|
00020c30  63 61 6e 25 3d 31 30 29  29 3a f2 73 65 6c 65 63  |can%=10)):.selec|
00020c40  74 69 63 6e 28 61 6e 69  6d 77 25 2c 34 39 2c b9  |ticn(animw%,49,.|
00020c50  29 0d 0d 46 23 63 61 6e  25 2b 3d 31 3a e7 63 61  |)..F#can%+=1:.ca|
00020c60  6e 25 3d 31 32 3a 63 61  6e 25 3d 33 3a 73 70 6b  |n%=12:can%=3:spk|
00020c70  25 2b 3d 31 0d 0d 47 13  65 6c 61 70 73 25 3d 91  |%+=1..G.elaps%=.|
00020c80  2d 65 6c 61 70 73 25 0d  0d 48 1d f2 70 6c 6f 74  |-elaps%..H..plot|
00020c90  61 6e 69 6d 6d 6f 76 65  3a 6c 61 73 74 74 69 6d  |animmove:lasttim|
00020ca0  65 25 3d 91 0d 0d 49 2f  e7 73 70 6b 25 3d 33 3a  |e%=...I/.spk%=3:|
00020cb0  f2 6d 61 6b 65 6d 6f 75  74 68 28 31 29 3a f2 61  |.makemouth(1):.a|
00020cc0  6e 69 6d 61 74 65 65 6e  64 3a f2 70 6c 6f 74 61  |nimateend:.plota|
00020cd0  6e 69 6d 0d 0d 4a 05 e1  0d 0d 4b 04 0d 0d 4c 0d  |nim..J....K...L.|
00020ce0  dd f2 6d 6f 76 65 65 79  65 0d 0d 4d 10 e7 66 69  |..moveeye..M..fi|
00020cf0  72 73 74 6d 6f 76 65 25  8c 0d 0d 4e 28 63 61 6e  |rstmove%...N(can|
00020d00  64 25 3d 30 3a 73 70 6b  25 3d 30 3a 66 69 72 73  |d%=0:spk%=0:firs|
00020d10  74 6d 6f 76 65 25 3d a3  3a 65 6c 61 70 73 25 3d  |tmove%=.:elaps%=|
00020d20  30 0d 0d 4f 05 cc 0d 0d  50 27 e7 63 61 6e 64 25  |0..O....P'.cand%|
00020d30  3d 31 8c 3a e7 91 3c 6c  61 73 74 74 69 6d 65 25  |=1.:..<lasttime%|
00020d40  2b 31 30 30 2d 65 6c 61  70 73 25 3a e1 0d 0d 51  |+100-elaps%:...Q|
00020d50  31 e7 28 63 61 6e 64 25  3e 30 29 80 28 73 70 6b  |1.(cand%>0).(spk|
00020d60  25 3d 30 29 8c 3a e7 91  3c 6c 61 73 74 74 69 6d  |%=0).:..<lasttim|
00020d70  65 25 2b 32 30 2d 65 6c  61 70 73 25 3a e1 0d 0d  |e%+20-elaps%:...|
00020d80  52 05 cd 0d 0d 53 0c 65  6c 61 70 73 25 3d 91 0d  |R....S.elaps%=..|
00020d90  0d 54 0d e7 74 65 78 74  6f 6e 25 8c 0d 0d 55 11  |.T..texton%...U.|
00020da0  20 e7 74 65 78 74 6e 65  77 6f 6e 25 8c 0d 0d 56  | .textnewon%...V|
00020db0  3f 20 20 74 65 78 74 6e  65 77 6f 6e 25 3d 30 3a  |?  textnewon%=0:|
00020dc0  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 61 6e  |.puticnstring(an|
00020dd0  69 6d 77 25 2c 35 30 2c  61 6e 69 6d 77 6f 72 64  |imw%,50,animword|
00020de0  73 24 28 73 69 6d 70 25  2c 30 29 29 0d 0d 57 6d  |s$(simp%,0))..Wm|
00020df0  20 20 e7 28 63 61 6e 64  25 3c 31 38 29 3a f2 70  |  .(cand%<18):.p|
00020e00  75 74 69 63 6e 73 74 72  69 6e 67 28 61 6e 69 6d  |uticnstring(anim|
00020e10  77 25 2c 35 31 2c 61 6e  69 6d 77 6f 72 64 73 24  |w%,51,animwords$|
00020e20  28 73 69 6d 70 25 2c 31  29 29 3a 8b 3a f2 70 75  |(simp%,1)):.:.pu|
00020e30  74 69 63 6e 73 74 72 69  6e 67 28 61 6e 69 6d 77  |ticnstring(animw|
00020e40  25 2c 35 31 2c 61 6e 69  6d 77 6f 72 64 73 24 28  |%,51,animwords$(|
00020e50  73 69 6d 70 25 2c 32 29  29 0d 0d 58 06 20 cd 0d  |simp%,2))..X. ..|
00020e60  0d 59 46 20 e7 28 63 61  6e 64 25 3d 31 38 29 80  |.YF .(cand%=18).|
00020e70  28 73 70 6b 25 3d 30 29  3a f2 70 75 74 69 63 6e  |(spk%=0):.puticn|
00020e80  73 74 72 69 6e 67 28 61  6e 69 6d 77 25 2c 35 31  |string(animw%,51|
00020e90  2c 61 6e 69 6d 77 6f 72  64 73 24 28 73 69 6d 70  |,animwords$(simp|
00020ea0  25 2c 32 29 29 0d 0d 5a  05 cd 0d 0d 5b 0f e7 63  |%,2))..Z....[..c|
00020eb0  61 6e 64 25 3c 3d 31 37  8c 0d 0d 5c 5f f2 61 64  |and%<=17...\_.ad|
00020ec0  64 5f 73 70 28 64 65 74  61 72 65 61 25 2c 22 63  |d_sp(detarea%,"c|
00020ed0  61 6e 64 6c 65 22 2b c3  28 63 61 6e 64 25 29 2c  |andle"+.(cand%),|
00020ee0  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
00020ef0  2c 63 61 6e 64 70 6f 73  25 28 63 61 6e 64 25 2c  |,candpos%(cand%,|
00020f00  30 29 2c 63 61 6e 64 70  6f 73 25 28 63 61 6e 64  |0),candpos%(cand|
00020f10  25 2c 31 29 2c 31 35 29  0d 0d 5d 43 e7 63 61 6e  |%,1),15)..]C.can|
00020f20  64 25 3d 31 37 20 f2 61  64 64 5f 73 70 28 64 65  |d%=17 .add_sp(de|
00020f30  74 61 72 65 61 25 2c 22  73 70 61 72 6b 30 22 2c  |tarea%,"spark0",|
00020f40  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
00020f50  2c 31 34 37 2c 37 31 2c  31 35 29 0d 0d 5e 0c 63  |,147,71,15)..^.c|
00020f60  61 6e 64 25 2b 3d 31 0d  0d 5f 05 cc 0d 0d 60 80  |and%+=1.._....`.|
00020f70  73 70 6b 25 2b 3d 31 3a  f2 63 6f 70 79 73 70 28  |spk%+=1:.copysp(|
00020f80  22 65 79 65 31 22 2c 22  61 6e 69 6d 22 29 3a e3  |"eye1","anim"):.|
00020f90  6b 25 3d 30 b8 31 37 3a  f2 61 64 64 5f 73 70 28  |k%=0.17:.add_sp(|
00020fa0  64 65 74 61 72 65 61 25  2c 22 63 61 6e 64 6c 65  |detarea%,"candle|
00020fb0  22 2b c3 28 6b 25 29 2c  61 6e 69 6d 61 72 65 61  |"+.(k%),animarea|
00020fc0  25 2c 22 61 6e 69 6d 22  2c 63 61 6e 64 70 6f 73  |%,"anim",candpos|
00020fd0  25 28 6b 25 2c 30 29 2c  63 61 6e 64 70 6f 73 25  |%(k%,0),candpos%|
00020fe0  28 6b 25 2c 31 29 2c 31  35 29 3a ed 0d 0d 61 4b  |(k%,1),15):...aK|
00020ff0  f2 61 64 64 5f 73 70 28  64 65 74 61 72 65 61 25  |.add_sp(detarea%|
00021000  2c 22 73 70 61 72 6b 22  2b c3 28 73 70 6b 25 83  |,"spark"+.(spk%.|
00021010  32 29 2c 61 6e 69 6d 61  72 65 61 25 2c 22 61 6e  |2),animarea%,"an|
00021020  69 6d 22 2c 31 35 31 2b  28 34 2a 73 70 6b 25 29  |im",151+(4*spk%)|
00021030  2c 37 31 2c 31 35 29 0d  0d 62 05 cd 0d 0d 63 45  |,71,15)..b....cE|
00021040  e7 74 65 78 74 6f 6e 25  8c 3a e7 28 28 63 61 6e  |.texton%.:.((can|
00021050  64 25 3d 31 38 29 80 28  73 70 6b 25 3d 30 29 29  |d%=18).(spk%=0))|
00021060  84 28 73 70 6b 25 3d 35  29 3a f2 73 65 6c 65 63  |.(spk%=5):.selec|
00021070  74 69 63 6e 28 61 6e 69  6d 77 25 2c 34 39 2c b9  |ticn(animw%,49,.|
00021080  29 0d 0d 64 13 65 6c 61  70 73 25 3d 91 2d 65 6c  |)..d.elaps%=.-el|
00021090  61 70 73 25 0d 0d 65 1d  f2 70 6c 6f 74 61 6e 69  |aps%..e..plotani|
000210a0  6d 6d 6f 76 65 3a 6c 61  73 74 74 69 6d 65 25 3d  |mmove:lasttime%=|
000210b0  91 0d 0d 66 2d e7 73 70  6b 25 3d 37 3a f2 6d 61  |...f-.spk%=7:.ma|
000210c0  6b 65 65 79 65 28 31 29  3a f2 61 6e 69 6d 61 74  |keeye(1):.animat|
000210d0  65 65 6e 64 3a f2 70 6c  6f 74 61 6e 69 6d 0d 0d  |eend:.plotanim..|
000210e0  67 05 e1 0d 0d 68 04 0d  0d 69 12 dd f2 6d 6f 76  |g....h...i...mov|
000210f0  65 73 6d 69 6e 74 65 73  74 0d 0d 6a 3a e7 66 69  |esmintest..j:.fi|
00021100  72 73 74 6d 6f 76 65 25  3a 63 61 6e 25 3d 30 3a  |rstmove%:can%=0:|
00021110  66 69 72 73 74 6d 6f 76  65 25 3d a3 3a 6c 61 73  |firstmove%=.:las|
00021120  74 74 69 6d 65 25 3d 91  3a 65 6c 61 70 73 25 3d  |ttime%=.:elaps%=|
00021130  30 3a e1 0d 0d 6b 0d e7  63 61 6e 25 3d 37 38 8c  |0:...k..can%=78.|
00021140  0d 0d 6c 1c e7 91 3c 6c  61 73 74 74 69 6d 65 25  |..l...<lasttime%|
00021150  2b 34 30 2d 65 6c 61 70  73 25 3a e1 0d 0d 6d 05  |+40-elaps%:...m.|
00021160  cc 0d 0d 6e 1c e7 91 3c  6c 61 73 74 74 69 6d 65  |...n...<lasttime|
00021170  25 2b 32 30 2d 65 6c 61  70 73 25 3a e1 0d 0d 6f  |%+20-elaps%:...o|
00021180  05 cd 0d 0d 70 0c 65 6c  61 70 73 25 3d 91 0d 0d  |....p.elaps%=...|
00021190  71 0d e7 74 65 78 74 6f  6e 25 8c 0d 0d 72 11 20  |q..texton%...r. |
000211a0  e7 74 65 78 74 6e 65 77  6f 6e 25 8c 0d 0d 73 6c  |.textnewon%...sl|
000211b0  20 20 74 65 78 74 6e 65  77 6f 6e 25 3d 30 3a f2  |  textnewon%=0:.|
000211c0  70 75 74 69 63 6e 73 74  72 69 6e 67 28 61 6e 69  |puticnstring(ani|
000211d0  6d 77 25 2c 35 30 2c 61  6e 69 6d 77 6f 72 64 73  |mw%,50,animwords|
000211e0  24 28 73 69 6d 70 25 2c  30 29 29 3a f2 70 75 74  |$(simp%,0)):.put|
000211f0  69 63 6e 73 74 72 69 6e  67 28 61 6e 69 6d 77 25  |icnstring(animw%|
00021200  2c 35 31 2c 61 6e 69 6d  77 6f 72 64 73 24 28 73  |,51,animwords$(s|
00021210  69 6d 70 25 2c 31 29 29  0d 0d 74 06 20 cd 0d 0d  |imp%,1))..t. ...|
00021220  75 05 cd 0d 0d 76 0e e7  63 61 6e 25 3c 31 30 37  |u....v..can%<107|
00021230  8c 0d 0d 77 37 f2 61 64  64 5f 73 70 28 64 65 74  |...w7.add_sp(det|
00021240  61 72 65 61 25 2c 22 73  6d 69 6e 74 78 73 22 2c  |area%,"smintxs",|
00021250  61 6e 69 6d 61 72 65 61  25 2c 22 61 6e 69 6d 22  |animarea%,"anim"|
00021260  2c 30 2c 30 2c 31 35 29  0d 0d 78 3d f2 61 64 64  |,0,0,15)..x=.add|
00021270  5f 73 70 28 64 65 74 61  72 65 61 25 2c 22 62 6f  |_sp(detarea%,"bo|
00021280  6c 75 73 22 2b c3 28 63  61 6e 25 29 2c 61 6e 69  |lus"+.(can%),ani|
00021290  6d 61 72 65 61 25 2c 22  61 6e 69 6d 22 2c 30 2c  |marea%,"anim",0,|
000212a0  30 2c 31 35 29 0d 0d 79  05 cd 0d 0d 7a 2e e7 74  |0,15)..y....z..t|
000212b0  65 78 74 6f 6e 25 8c 3a  e7 63 61 6e 25 3d 31 36  |exton%.:.can%=16|
000212c0  3a f2 73 65 6c 65 63 74  69 63 6e 28 61 6e 69 6d  |:.selecticn(anim|
000212d0  77 25 2c 34 39 2c b9 29  0d 0d 7b 0b 63 61 6e 25  |w%,49,.)..{.can%|
000212e0  2b 3d 31 0d 0d 7c 13 65  6c 61 70 73 25 3d 91 2d  |+=1..|.elaps%=.-|
000212f0  65 6c 61 70 73 25 0d 0d  7d 1d f2 70 6c 6f 74 61  |elaps%..}..plota|
00021300  6e 69 6d 6d 6f 76 65 3a  6c 61 73 74 74 69 6d 65  |nimmove:lasttime|
00021310  25 3d 91 0d 0d 7e 34 e7  63 61 6e 25 3d 31 31 35  |%=...~4.can%=115|
00021320  3a f2 6d 61 6b 65 73 6d  69 6e 74 65 73 74 28 31  |:.makesmintest(1|
00021330  29 3a f2 61 6e 69 6d 61  74 65 65 6e 64 3a f2 70  |):.animateend:.p|
00021340  6c 6f 74 61 6e 69 6d 0d  0d 7f 05 e1 0d 0d 80 04  |lotanim.........|
00021350  0d 0d 81 10 dd f2 6d 6f  76 65 6d 75 73 63 6c 65  |......movemuscle|
00021360  0d 0d 82 3a e7 66 69 72  73 74 6d 6f 76 65 25 3a  |...:.firstmove%:|
00021370  63 61 6e 25 3d 30 3a 66  69 72 73 74 6d 6f 76 65  |can%=0:firstmove|
00021380  25 3d a3 3a 6c 61 73 74  74 69 6d 65 25 3d 91 3a  |%=.:lasttime%=.:|
00021390  65 6c 61 70 73 25 3d 30  3a e1 0d 0d 83 1c e7 91  |elaps%=0:.......|
000213a0  3c 6c 61 73 74 74 69 6d  65 25 2b 38 30 2d 65 6c  |<lasttime%+80-el|
000213b0  61 70 73 25 3a e1 0d 0d  84 0c 65 6c 61 70 73 25  |aps%:.....elaps%|
000213c0  3d 91 0d 0d 85 0d e7 74  65 78 74 6f 6e 25 8c 0d  |=......texton%..|
000213d0  0d 86 11 20 e7 74 65 78  74 6e 65 77 6f 6e 25 8c  |... .textnewon%.|
000213e0  0d 0d 87 6c 20 20 74 65  78 74 6e 65 77 6f 6e 25  |...l  textnewon%|
000213f0  3d 30 3a f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |=0:.puticnstring|
00021400  28 61 6e 69 6d 77 25 2c  35 30 2c 61 6e 69 6d 77  |(animw%,50,animw|
00021410  6f 72 64 73 24 28 73 69  6d 70 25 2c 30 29 29 3a  |ords$(simp%,0)):|
00021420  f2 70 75 74 69 63 6e 73  74 72 69 6e 67 28 61 6e  |.puticnstring(an|
00021430  69 6d 77 25 2c 35 31 2c  61 6e 69 6d 77 6f 72 64  |imw%,51,animword|
00021440  73 24 28 73 69 6d 70 25  2c 31 29 29 0d 0d 88 06  |s$(simp%,1))....|
00021450  20 cd 0d 0d 89 05 cd 0d  0d 8a 10 f2 63 6c 5f 61  | ...........cl_a|
00021460  6e 69 6d 28 31 35 29 0d  0d 8b 46 f2 61 64 64 5f  |nim(15)...F.add_|
00021470  73 70 28 64 65 74 61 72  65 61 25 2c 22 6d 75 73  |sp(detarea%,"mus|
00021480  63 6c 78 73 22 2b c3 28  28 63 61 6e 25 2b 31 29  |clxs"+.((can%+1)|
00021490  83 32 29 2c 61 6e 69 6d  61 72 65 61 25 2c 22 61  |.2),animarea%,"a|
000214a0  6e 69 6d 22 2c 38 2c 31  37 2c 31 35 29 0d 0d 8c  |nim",8,17,15)...|
000214b0  2f e7 74 65 78 74 6f 6e  25 8c 3a e7 28 63 61 6e  |/.texton%.:.(can|
000214c0  25 3d 38 29 3a f2 73 65  6c 65 63 74 69 63 6e 28  |%=8):.selecticn(|
000214d0  61 6e 69 6d 77 25 2c 34  39 2c b9 29 0d 0d 8d 0b  |animw%,49,.)....|
000214e0  63 61 6e 25 2b 3d 31 0d  0d 8e 13 65 6c 61 70 73  |can%+=1....elaps|
000214f0  25 3d 91 2d 65 6c 61 70  73 25 0d 0d 8f 1d f2 70  |%=.-elaps%.....p|
00021500  6c 6f 74 61 6e 69 6d 6d  6f 76 65 3a 6c 61 73 74  |lotanimmove:last|
00021510  74 69 6d 65 25 3d 91 0d  0d 90 31 e7 63 61 6e 25  |time%=....1.can%|
00021520  3d 31 30 3a f2 6d 61 6b  65 6d 75 73 63 6c 65 28  |=10:.makemuscle(|
00021530  31 29 3a f2 61 6e 69 6d  61 74 65 65 6e 64 3a f2  |1):.animateend:.|
00021540  70 6c 6f 74 61 6e 69 6d  0d 0d 91 05 e1 0d 0d 92  |plotanim........|
00021550  04 0d 0d 93 10 dd f2 6d  6f 76 65 6e 65 72 76 65  |.......movenerve|
00021560  73 0d 0d 94 56 e7 66 69  72 73 74 6d 6f 76 65 25  |s...V.firstmove%|
00021570  3a 20 63 61 6e 25 3d 2d  31 3a 73 70 6b 31 25 3d  |: can%=-1:spk1%=|
00021580  30 3a 73 70 6b 32 25 3d  30 3a 73 70 6b 33 25 3d  |0:spk2%=0:spk3%=|
00021590  30 3a 73 70 6b 34 25 3d  30 3a 73 70 6b 35 25 3d  |0:spk4%=0:spk5%=|
000215a0  30 3a 66 69 72 73 74 6d  6f 76 65 25 3d a3 3a 65  |0:firstmove%=.:e|
000215b0  6c 61 70 73 25 3d 30 0d  0d 95 25 e7 63 61 6e 25  |laps%=0...%.can%|
000215c0  3e 2d 31 8c 3a e7 91 3c  6c 61 73 74 74 69 6d 65  |>-1.:..<lasttime|
000215d0  25 2b 31 2d 65 6c 61 70  73 25 3a e1 0d 0d 96 0c  |%+1-elaps%:.....|
000215e0  65 6c 61 70 73 25 3d 91  0d 0d 97 0d e7 74 65 78  |elaps%=......tex|
000215f0  74 6f 6e 25 8c 0d 0d 98  11 20 e7 74 65 78 74 6e  |ton%..... .textn|
00021600  65 77 6f 6e 25 8c 0d 0d  99 6c 20 20 74 65 78 74  |ewon%....l  text|
00021610  6e 65 77 6f 6e 25 3d 30  3a f2 70 75 74 69 63 6e  |newon%=0:.puticn|
00021620  73 74 72 69 6e 67 28 61  6e 69 6d 77 25 2c 35 30  |string(animw%,50|
00021630  2c 61 6e 69 6d 77 6f 72  64 73 24 28 73 69 6d 70  |,animwords$(simp|
00021640  25 2c 30 29 29 3a f2 70  75 74 69 63 6e 73 74 72  |%,0)):.puticnstr|
00021650  69 6e 67 28 61 6e 69 6d  77 25 2c 35 31 2c 61 6e  |ing(animw%,51,an|
00021660  69 6d 77 6f 72 64 73 24  28 73 69 6d 70 25 2c 31  |imwords$(simp%,1|
00021670  29 29 0d 0d 9a 06 20 cd  0d 0d 9b 05 cd 0d 0d 9c  |)).... .........|
00021680  1c f2 63 6f 70 79 73 70  28 22 6e 65 72 76 65 31  |..copysp("nerve1|
00021690  22 2c 22 61 6e 69 6d 22  29 0d 0d 9d 0d e7 63 61  |","anim").....ca|
000216a0  6e 25 3e 31 20 8c 0d 0d  9e 63 f2 61 64 64 5f 73  |n%>1 ....c.add_s|
000216b0  70 28 64 65 74 61 72 65  61 25 2c 22 73 70 61 72  |p(detarea%,"spar|
000216c0  6b 22 2b c3 28 28 63 61  6e 25 2b 32 29 83 32 29  |k"+.((can%+2).2)|
000216d0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
000216e0  22 2c 6e 65 75 72 6f 6e  31 25 28 73 70 6b 31 25  |",neuron1%(spk1%|
000216f0  2c 30 29 2c 6e 65 75 72  6f 6e 31 25 28 73 70 6b  |,0),neuron1%(spk|
00021700  31 25 2c 31 29 2c 31 35  29 0d 0d 9f 81 e7 28 73  |1%,1),15).....(s|
00021710  70 6b 31 25 3d 33 29 84  28 73 70 6b 31 25 3d 35  |pk1%=3).(spk1%=5|
00021720  29 20 73 70 6b 31 25 2b  3d 31 3a f2 61 64 64 5f  |) spk1%+=1:.add_|
00021730  73 70 28 64 65 74 61 72  65 61 25 2c 22 73 70 61  |sp(detarea%,"spa|
00021740  72 6b 22 2b c3 28 28 63  61 6e 25 2b 32 29 83 32  |rk"+.((can%+2).2|
00021750  29 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |),animarea%,"ani|
00021760  6d 22 2c 6e 65 75 72 6f  6e 31 25 28 73 70 6b 31  |m",neuron1%(spk1|
00021770  25 2c 30 29 2c 6e 65 75  72 6f 6e 31 25 28 73 70  |%,0),neuron1%(sp|
00021780  6b 31 25 2c 31 29 2c 31  35 29 0d 0d a0 0c 73 70  |k1%,1),15)....sp|
00021790  6b 31 25 2b 3d 31 0d 0d  a1 63 f2 61 64 64 5f 73  |k1%+=1...c.add_s|
000217a0  70 28 64 65 74 61 72 65  61 25 2c 22 73 70 61 72  |p(detarea%,"spar|
000217b0  6b 22 2b c3 28 28 63 61  6e 25 2b 32 29 83 32 29  |k"+.((can%+2).2)|
000217c0  2c 61 6e 69 6d 61 72 65  61 25 2c 22 61 6e 69 6d  |,animarea%,"anim|
000217d0  22 2c 6e 65 75 72 6f 6e  35 25 28 73 70 6b 35 25  |",neuron5%(spk5%|
000217e0  2c 30 29 2c 6e 65 75 72  6f 6e 35 25 28 73 70 6b  |,0),neuron5%(spk|
000217f0  35 25 2c 31 29 2c 31 35  29 0d 0d a2 81 e7 28 73  |5%,1),15).....(s|
00021800  70 6b 35 25 3d 30 29 84  28 73 70 6b 35 25 3d 32  |pk5%=0).(spk5%=2|
00021810  29 20 73 70 6b 35 25 2b  3d 31 3a f2 61 64 64 5f  |) spk5%+=1:.add_|
00021820  73 70 28 64 65 74 61 72  65 61 25 2c 22 73 70 61  |sp(detarea%,"spa|
00021830  72 6b 22 2b c3 28 28 63  61 6e 25 2b 32 29 83 32  |rk"+.((can%+2).2|
00021840  29 2c 61 6e 69 6d 61 72  65 61 25 2c 22 61 6e 69  |),animarea%,"ani|
00021850  6d 22 2c 6e 65 75 72 6f  6e 35 25 28 73 70 6b 35  |m",neuron5%(spk5|
00021860  25 2c 30 29 2c 6e 65 75  72 6f 6e 35 25 28 73 70  |%,0),neuron5%(sp|
00021870  6b 35 25 2c 31 29 2c 31  35 29 0d 0d a3 0c 73 70  |k5%,1),15)....sp|
00021880  6b 35 25 2b 3d 31 0d 0d  a4 05 cd 0d 0d a5 0f e7  |k5%+=1..........|
00021890  63 61 6e 25 3e 3d 2d 31  20 8c 0d 0d a6 63 f2 61  |can%>=-1 ....c.a|
000218a0  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
000218b0  73 70 61 72 6b 22 2b c3  28 28 63 61 6e 25 2b 33  |spark"+.((can%+3|
000218c0  29 83 32 29 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |).2),animarea%,"|
000218d0  61 6e 69 6d 22 2c 6e 65  75 72 6f 6e 33 25 28 73  |anim",neuron3%(s|
000218e0  70 6b 33 25 2c 30 29 2c  6e 65 75 72 6f 6e 33 25  |pk3%,0),neuron3%|
000218f0  28 73 70 6b 33 25 2c 31  29 2c 31 35 29 0d 0d a7  |(spk3%,1),15)...|
00021900  97 e7 28 73 70 6b 33 25  3d 32 29 84 28 73 70 6b  |..(spk3%=2).(spk|
00021910  33 25 3d 34 29 84 28 73  70 6b 33 25 3d 31 33 29  |3%=4).(spk3%=13)|
00021920  84 28 73 70 6b 33 25 3d  31 35 29 20 73 70 6b 33  |.(spk3%=15) spk3|
00021930  25 2b 3d 31 3a f2 61 64  64 5f 73 70 28 64 65 74  |%+=1:.add_sp(det|
00021940  61 72 65 61 25 2c 22 73  70 61 72 6b 22 2b c3 28  |area%,"spark"+.(|
00021950  28 63 61 6e 25 2b 32 29  83 32 29 2c 61 6e 69 6d  |(can%+2).2),anim|
00021960  61 72 65 61 25 2c 22 61  6e 69 6d 22 2c 6e 65 75  |area%,"anim",neu|
00021970  72 6f 6e 33 25 28 73 70  6b 33 25 2c 30 29 2c 6e  |ron3%(spk3%,0),n|
00021980  65 75 72 6f 6e 33 25 28  73 70 6b 33 25 2c 31 29  |euron3%(spk3%,1)|
00021990  2c 31 35 29 0d 0d a8 0c  73 70 6b 33 25 2b 3d 31  |,15)....spk3%+=1|
000219a0  0d 0d a9 5c f2 61 64 64  5f 73 70 28 64 65 74 61  |...\.add_sp(deta|
000219b0  72 65 61 25 2c 22 73 70  61 72 6b 22 2b c3 28 28  |rea%,"spark"+.((|
000219c0  63 61 6e 25 2b 33 29 83  32 29 2c 61 6e 69 6d 61  |can%+3).2),anima|
000219d0  72 65 61 25 2c 22 61 6e  69 6d 22 2c 31 38 30 2d  |rea%,"anim",180-|
000219e0  28 32 30 2a 73 70 6b 34  25 29 2c 39 39 2d 28 31  |(20*spk4%),99-(1|
000219f0  36 2a 73 70 6b 34 25 29  2c 31 35 29 0d 0d aa 0c  |6*spk4%),15)....|
00021a00  73 70 6b 34 25 2b 3d 31  0d 0d ab 05 cd 0d 0d ac  |spk4%+=1........|
00021a10  0d e7 63 61 6e 25 3e 33  20 8c 0d 0d ad 5a f2 61  |..can%>3 ....Z.a|
00021a20  64 64 5f 73 70 28 64 65  74 61 72 65 61 25 2c 22  |dd_sp(detarea%,"|
00021a30  73 70 61 72 6b 22 2b c3  28 28 63 61 6e 25 2b 33  |spark"+.((can%+3|
00021a40  29 83 32 29 2c 61 6e 69  6d 61 72 65 61 25 2c 22  |).2),animarea%,"|
00021a50  61 6e 69 6d 22 2c 34 2b  28 31 34 2a 73 70 6b 32  |anim",4+(14*spk2|
00021a60  25 29 2c 35 32 2b 28 31  31 2a 73 70 6b 32 25 29  |%),52+(11*spk2%)|
00021a70  2c 31 35 29 0d 0d ae 0c  73 70 6b 32 25 2b 3d 31  |,15)....spk2%+=1|
00021a80  0d 0d af 05 cd 0d 0d b0  16 e7 20 73 70 6b 31 25  |.......... spk1%|
00021a90  3d 31 30 20 73 70 6b 31  25 3d 30 0d 0d b1 15 e7  |=10 spk1%=0.....|
00021aa0  20 73 70 6b 32 25 3d 39  20 73 70 6b 32 25 3d 30  | spk2%=9 spk2%=0|
00021ab0  0d 0d b2 16 e7 20 73 70  6b 33 25 3d 31 38 20 73  |..... spk3%=18 s|
00021ac0  70 6b 33 25 3d 30 0d 0d  b3 15 e7 20 73 70 6b 34  |pk3%=0..... spk4|
00021ad0  25 3d 37 20 73 70 6b 34  25 3d 30 0d 0d b4 15 e7  |%=7 spk4%=0.....|
00021ae0  20 73 70 6b 35 25 3d 37  20 73 70 6b 35 25 3d 30  | spk5%=7 spk5%=0|
00021af0  0d 0d b5 30 e7 74 65 78  74 6f 6e 25 8c 3a e7 28  |...0.texton%.:.(|
00021b00  63 61 6e 25 3d 34 30 29  3a f2 73 65 6c 65 63 74  |can%=40):.select|
00021b10  69 63 6e 28 61 6e 69 6d  77 25 2c 34 39 2c b9 29  |icn(animw%,49,.)|
00021b20  0d 0d b6 0b 63 61 6e 25  2b 3d 31 0d 0d b7 13 65  |....can%+=1....e|
00021b30  6c 61 70 73 25 3d 91 2d  65 6c 61 70 73 25 0d 0d  |laps%=.-elaps%..|
00021b40  b8 1d f2 70 6c 6f 74 61  6e 69 6d 6d 6f 76 65 3a  |...plotanimmove:|
00021b50  6c 61 73 74 74 69 6d 65  25 3d 91 0d 0d b9 31 e7  |lasttime%=....1.|
00021b60  63 61 6e 25 3d 34 32 3a  f2 6d 61 6b 65 6e 65 72  |can%=42:.makener|
00021b70  76 65 73 28 31 29 3a f2  61 6e 69 6d 61 74 65 65  |ves(1):.animatee|
00021b80  6e 64 3a f2 70 6c 6f 74  61 6e 69 6d 0d 0d ba 05  |nd:.plotanim....|
00021b90  e1 0d 0d bb 04 0d 0d bc  34 f4 20 2a 2a 2a 2a 2a  |........4. *****|
00021ba0  2a 2a 2a 2a 2a 2a 2a 20  70 69 6e 20 74 68 65 20  |******* pin the |
00021bb0  62 6f 64 79 20 70 61 72  74 20 2a 2a 2a 2a 2a 2a  |body part ******|
00021bc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 0d bd 04 0d 0d be  |*********.......|
00021bd0  11 dd f2 63 68 61 6e 67  65 74 6f 70 69 6e 0d 0d  |...changetopin..|
00021be0  bf 25 e7 a4 69 73 6f 70  65 6e 28 62 6f 64 79 77  |.%..isopen(bodyw|
00021bf0  25 29 3a f2 63 6c 6f 73  65 77 69 6e 64 28 62 6c  |%):.closewind(bl|
00021c00  6b 25 29 0d 0d c0 25 e7  a4 69 73 6f 70 65 6e 28  |k%)...%..isopen(|
00021c10  73 79 73 74 77 25 29 3a  f2 63 6c 6f 73 65 77 69  |systw%):.closewi|
00021c20  6e 64 28 62 6c 6b 25 29  0d 0d c1 25 e7 a4 69 73  |nd(blk%)...%..is|
00021c30  6f 70 65 6e 28 6f 76 65  72 77 25 29 3a f2 63 6c  |open(overw%):.cl|
00021c40  6f 73 65 77 69 6e 64 28  62 6c 6b 25 29 0d 0d c2  |osewind(blk%)...|
00021c50  50 e7 a4 69 73 6f 70 65  6e 28 61 6e 69 6d 77 25  |P..isopen(animw%|
00021c60  29 3a f2 63 6c 6f 73 65  77 69 6e 64 28 62 6c 6b  |):.closewind(blk|
00021c70  25 29 3a f2 73 65 6c 65  63 74 69 63 6e 28 62 6f  |%):.selecticn(bo|
00021c80  64 79 77 25 2c 61 63 74  69 76 65 69 63 6e 25 2c  |dyw%,activeicn%,|
00021c90  a3 29 3a f2 69 6e 69 74  61 6e 69 6d 77 0d 0d c3  |.):.initanimw...|
00021ca0  3c e7 a4 69 73 6f 70 65  6e 28 64 65 66 6e 77 25  |<..isopen(defnw%|
00021cb0  29 3a f2 63 6c 6f 73 65  77 69 6e 64 28 62 6c 6b  |):.closewind(blk|
00021cc0  25 29 3a f2 73 65 6c 65  63 74 69 63 6e 28 73 79  |%):.selecticn(sy|
00021cd0  73 74 77 25 2c 33 2c a3  29 0d 0d c4 29 2a 53 65  |stw%,3,.)...)*Se|
00021ce0  74 20 42 6f 64 79 57 69  73 65 24 63 68 61 69 6e  |t BodyWise$chain|
00021cf0  64 69 72 20 3c 42 6f 64  79 57 69 73 65 24 44 69  |dir <BodyWise$Di|
00021d00  72 3e 0d 0d c5 67 e7 59  25 3d 30 20 74 65 73 74  |r>...g.Y%=0 test|
00021d10  25 3d 30 3a f5 3a f2 66  6c 6f 70 70 79 5f 64 69  |%=0:.:.floppy_di|
00021d20  73 6b 28 22 62 6f 64 79  77 69 73 65 22 2c 22 24  |sk("bodywise","$|
00021d30  2e 21 42 6f 64 79 77 69  73 65 2e 70 69 6e 6f 72  |.!Bodywise.pinor|
00021d40  67 73 5f 63 22 2c 22 24  2e 21 42 6f 64 79 77 69  |gs_c","$.!Bodywi|
00021d50  73 65 2e 70 69 6e 62 75  74 73 22 2c 22 22 29 3a  |se.pinbuts",""):|
00021d60  fd 65 72 72 6f 72 25 3d  30 0d 0d c6 3c c8 99 20  |.error%=0...<.. |
00021d70  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00021d80  30 41 2c 62 6f 64 79 61  72 65 61 25 2c 22 3c 42  |0A,bodyarea%,"<B|
00021d90  6f 64 79 57 69 73 65 24  44 69 72 3e 2e 70 69 6e  |odyWise$Dir>.pin|
00021da0  62 75 74 73 22 0d 0d c7  3e c8 99 20 22 4f 53 5f  |buts"...>.. "OS_|
00021db0  53 70 72 69 74 65 4f 70  22 2c 26 31 30 41 2c 61  |SpriteOp",&10A,a|
00021dc0  6e 69 6d 61 72 65 61 25  2c 22 3c 42 6f 64 79 57  |nimarea%,"<BodyW|
00021dd0  69 73 65 24 44 69 72 3e  2e 70 69 6e 6f 72 67 73  |ise$Dir>.pinorgs|
00021de0  5f 63 22 0d 0d c8 0e 70  69 6e 6e 6f 6f 66 25 3d  |_c"....pinnoof%=|
00021df0  30 0d 0d c9 0c f2 70 69  6e 69 6e 69 74 0d 0d ca  |0.....pininit...|
00021e00  05 e1 0d 0d cb 04 0d 0d  cc 0d dd f2 70 69 6e 69  |............pini|
00021e10  6e 69 74 0d 0d cd 2b c8  99 20 22 58 4f 53 5f 53  |nit...+.. "XOS_S|
00021e20  70 72 69 74 65 4f 70 22  2c 26 31 31 39 2c 62 6f  |priteOp",&119,bo|
00021e30  64 79 61 72 65 61 25 2c  22 62 6f 64 79 22 0d 0d  |dyarea%,"body"..|
00021e40  ce 53 c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  |.S.. "OS_SpriteO|
00021e50  70 22 2c 26 31 30 46 2c  62 6f 64 79 61 72 65 61  |p",&10F,bodyarea|
00021e60  25 2c 22 62 6f 64 79 22  2c 31 2c 33 31 32 2c 32  |%,"body",1,312,2|
00021e70  33 34 2c 31 32 3a f2 61  64 64 70 61 6c 65 74 28  |34,12:.addpalet(|
00021e80  62 6f 64 79 61 72 65 61  25 2c 22 62 6f 64 79 22  |bodyarea%,"body"|
00021e90  29 0d 0d cf 22 c8 99 20  22 4f 53 5f 53 70 72 69  |)...".. "OS_Spri|
00021ea0  74 65 4f 70 22 2c 26 31  30 39 2c 64 65 74 61 72  |teOp",&109,detar|
00021eb0  65 61 25 0d 0d d0 51 c8  99 20 22 4f 53 5f 53 70  |ea%...Q.. "OS_Sp|
00021ec0  72 69 74 65 4f 70 22 2c  26 31 30 46 2c 64 65 74  |riteOp",&10F,det|
00021ed0  61 72 65 61 25 2c 22 62  6f 64 79 22 2c 31 2c 33  |area%,"body",1,3|
00021ee0  31 32 2c 32 33 34 2c 31  32 3a f2 61 64 64 70 61  |12,234,12:.addpa|
00021ef0  6c 65 74 28 64 65 74 61  72 65 61 25 2c 22 62 6f  |let(detarea%,"bo|
00021f00  64 79 22 29 0d 0d d1 28  f2 61 64 64 62 6f 64 28  |dy")...(.addbod(|
00021f10  64 65 74 61 72 65 61 25  29 3a f2 61 64 64 62 6f  |detarea%):.addbo|
00021f20  64 28 62 6f 64 79 61 72  65 61 25 29 0d 0d d2 2b  |d(bodyarea%)...+|
00021f30  70 69 6e 67 6f 74 74 6f  25 3d 30 3a 70 69 6e 63  |pingotto%=0:pinc|
00021f40  68 6f 69 63 65 25 3d 38  3a 77 61 73 64 6f 6e 65  |hoice%=8:wasdone|
00021f50  6f 6e 63 65 25 3d a3 0d  0d d3 21 e3 6a 25 3d 30  |once%=....!.j%=0|
00021f60  b8 32 33 3a 70 69 6e 64  6f 6e 65 70 61 72 74 25  |.23:pindonepart%|
00021f70  28 6a 25 29 3d a3 3a ed  0d 0d d4 29 70 69 6e 78  |(j%)=.:....)pinx|
00021f80  25 3d 30 3a 70 69 6e 79  25 3d 30 3a e3 6a 25 3d  |%=0:piny%=0:.j%=|
00021f90  30 b8 33 3a 72 65 63 74  25 28 6a 25 29 3d 30 3a  |0.3:rect%(j%)=0:|
00021fa0  ed 0d 0d d5 05 e1 0d 0d  d6 04 0d 0d d7 16 dd f2  |................|
00021fb0  63 68 61 6e 67 65 74 6f  66 75 6c 6c 62 6f 64 79  |changetofullbody|
00021fc0  0d 0d d8 28 e7 a4 69 73  6f 70 65 6e 28 70 69 6e  |...(..isopen(pin|
00021fd0  6f 72 67 73 77 25 29 3a  f2 63 6c 6f 73 65 77 69  |orgsw%):.closewi|
00021fe0  6e 64 28 62 6c 6b 25 29  0d 0d d9 28 e7 a4 69 73  |nd(blk%)...(..is|
00021ff0  6f 70 65 6e 28 70 69 6e  6f 75 74 6c 77 25 29 3a  |open(pinoutlw%):|
00022000  f2 63 6c 6f 73 65 77 69  6e 64 28 62 6c 6b 25 29  |.closewind(blk%)|
00022010  0d 0d da 2b 70 69 6e 67  6f 74 74 6f 25 3d 30 3a  |...+pingotto%=0:|
00022020  70 69 6e 63 68 6f 69 63  65 25 3d 38 3a 77 61 73  |pinchoice%=8:was|
00022030  64 6f 6e 65 6f 6e 63 65  25 3d a3 0d 0d db 21 e3  |doneonce%=....!.|
00022040  6a 25 3d 30 b8 32 33 3a  70 69 6e 64 6f 6e 65 70  |j%=0.23:pindonep|
00022050  61 72 74 25 28 6a 25 29  3d a3 3a ed 0d 0d dc 29  |art%(j%)=.:....)|
00022060  70 69 6e 78 25 3d 30 3a  70 69 6e 79 25 3d 30 3a  |pinx%=0:piny%=0:|
00022070  e3 6a 25 3d 30 b8 33 3a  72 65 63 74 25 28 6a 25  |.j%=0.3:rect%(j%|
00022080  29 3d 30 3a ed 0d 0d dd  23 c8 99 20 22 4f 53 5f  |)=0:....#.. "OS_|
00022090  53 70 72 69 74 65 4f 70  22 2c 26 31 30 39 2c 61  |SpriteOp",&109,a|
000220a0  6e 69 6d 61 72 65 61 25  0d 0d de 23 c8 99 20 22  |nimarea%...#.. "|
000220b0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
000220c0  39 2c 62 6f 64 79 61 72  65 61 25 0d 0d df 37 c8  |9,bodyarea%...7.|
000220d0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
000220e0  26 31 30 46 2c 62 6f 64  79 61 72 65 61 25 2c 22  |&10F,bodyarea%,"|
000220f0  62 6f 64 79 22 2c 31 2c  33 31 32 2c 33 36 35 2c  |body",1,312,365,|
00022100  31 32 0d 0d e0 2c f2 61  64 64 70 61 6c 65 74 28  |12...,.addpalet(|
00022110  62 6f 64 79 61 72 65 61  25 2c 22 62 6f 64 79 22  |bodyarea%,"body"|
00022120  29 3a f2 63 6c 5f 62 6f  64 79 28 31 35 29 0d 0d  |):.cl_body(15)..|
00022130  e1 05 e1 0d 0d e2 04 0d  0d e3 0e dd f2 73 74 61  |.............sta|
00022140  72 74 70 69 6e 0d 0d e4  11 e7 70 69 6e 67 6f 74  |rtpin.....pingot|
00022150  74 6f 25 3d 39 8c 0d 0d  e5 0e 20 f2 70 69 6e 73  |to%=9..... .pins|
00022160  63 6f 72 65 0d 0d e6 05  cc 0d 0d e7 13 20 f2 6f  |core......... .o|
00022170  70 65 6e 5f 70 69 6e 6f  72 67 73 77 0d 0d e8 05  |pen_pinorgsw....|
00022180  cd 0d 0d e9 05 e1 0d 0d  ea 04 0d 0d eb 0f dd f2  |................|
00022190  72 61 6e 64 6f 6d 70 69  6e 0d 0d ec 08 ea 20 6a  |randompin..... j|
000221a0  25 0d 0d ed 28 e3 6a 25  3d 31 35 b8 33 30 3a f2  |%...(.j%=15.30:.|
000221b0  73 65 6c 65 63 74 69 63  6e 28 73 65 74 75 70 77  |selecticn(setupw|
000221c0  25 2c 6a 25 2c 30 29 3a  ed 0d 0d ee 1c e3 6a 25  |%,j%,0):......j%|
000221d0  3d 30 b8 37 3a 72 61 6e  64 63 68 25 28 6a 25 29  |=0.7:randch%(j%)|
000221e0  3d 2d 31 3a ed 0d 0d ef  16 72 61 6e 64 63 68 25  |=-1:.....randch%|
000221f0  28 30 29 3d b3 28 31 36  29 2d 31 0d 0d f0 0b e3  |(0)=.(16)-1.....|
00022200  6a 25 3d 31 b8 37 0d 0d  f1 06 20 f5 0d 0d f2 19  |j%=1.7.... .....|
00022210  20 20 72 61 6e 64 63 68  25 28 6a 25 29 3d b3 28  |  randch%(j%)=.(|
00022220  31 36 29 2d 31 0d 0d f3  1b 20 fd 20 a4 6e 6f 74  |16)-1.... . .not|
00022230  63 68 6f 73 65 6e 62 65  66 6f 72 65 28 6a 25 29  |chosenbefore(j%)|
00022240  0d 0d f4 05 ed 0d 0d f5  33 e3 6a 25 3d 30 b8 37  |........3.j%=0.7|
00022250  3a f2 73 65 6c 65 63 74  69 63 6e 28 73 65 74 75  |:.selecticn(setu|
00022260  70 77 25 2c 31 35 2b 72  61 6e 64 63 68 25 28 6a  |pw%,15+randch%(j|
00022270  25 29 2c 2d 31 29 3a ed  0d 0d f6 05 e1 0d 0d f7  |%),-1):.........|
00022280  04 0d 0d f8 19 dd a4 6e  6f 74 63 68 6f 73 65 6e  |.......notchosen|
00022290  62 65 66 6f 72 65 28 6a  25 29 0d 0d f9 08 ea 20  |before(j%)..... |
000222a0  6b 25 0d 0d fa 0e e3 6b  25 3d 30 b8 6a 25 2d 31  |k%.....k%=0.j%-1|
000222b0  0d 0d fb 22 20 e7 72 61  6e 64 63 68 25 28 6a 25  |..." .randch%(j%|
000222c0  29 3d 72 61 6e 64 63 68  25 28 6b 25 29 20 8c 3a  |)=randch%(k%) .:|
000222d0  3d 30 0d 0d fc 2b 20 e7  28 72 61 6e 64 63 68 25  |=0...+ .(randch%|
000222e0  28 6a 25 29 3d 31 34 29  80 28 72 61 6e 64 63 68  |(j%)=14).(randch|
000222f0  25 28 6b 25 29 3d 31 35  29 8c 3a 3d 30 0d 0d fd  |%(k%)=15).:=0...|
00022300  2b 20 e7 28 72 61 6e 64  63 68 25 28 6a 25 29 3d  |+ .(randch%(j%)=|
00022310  31 35 29 80 28 72 61 6e  64 63 68 25 28 6b 25 29  |15).(randch%(k%)|
00022320  3d 31 34 29 8c 3a 3d 30  0d 0d fe 05 ed 0d 0d ff  |=14).:=0........|
00022330  07 3d 2d 31 0d 0e 00 04  0d 0e 01 13 dd f2 6f 70  |.=-1..........op|
00022340  65 6e 5f 70 69 6e 6f 72  67 73 77 0d 0e 02 08 ea  |en_pinorgsw.....|
00022350  20 6a 25 0d 0e 03 28 e7  a4 69 73 6f 70 65 6e 28  | j%...(..isopen(|
00022360  70 69 6e 6f 72 67 73 77  25 29 3a f2 63 6c 6f 73  |pinorgsw%):.clos|
00022370  65 77 69 6e 64 28 62 6c  6b 25 29 0d 0e 04 28 e7  |ewind(blk%)...(.|
00022380  a4 69 73 6f 70 65 6e 28  70 69 6e 6f 75 74 6c 77  |.isopen(pinoutlw|
00022390  25 29 3a f2 63 6c 6f 73  65 77 69 6e 64 28 62 6c  |%):.closewind(bl|
000223a0  6b 25 29 0d 0e 05 10 e7  70 69 6e 6e 6f 6f 66 25  |k%).....pinnoof%|
000223b0  3e 30 8c 0d 0e 06 15 20  e3 6a 25 3d 30 b8 70 69  |>0..... .j%=0.pi|
000223c0  6e 6e 6f 6f 66 25 2d 31  0d 0e 07 4d 20 20 c8 99  |nnoof%-1...M  ..|
000223d0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
000223e0  31 31 41 2c 62 6f 64 79  61 72 65 61 25 2c 22 70  |11A,bodyarea%,"p|
000223f0  69 6e 62 75 74 22 2b c3  28 6a 25 29 2c 22 70 69  |inbut"+.(j%),"pi|
00022400  6e 62 22 2b c3 28 70 69  6e 63 68 6c 69 6e 6b 25  |nb"+.(pinchlink%|
00022410  28 6a 25 29 29 0d 0e 08  06 20 ed 0d 0e 09 05 cd  |(j%)).... ......|
00022420  0d 0e 0a 0e 70 69 6e 6e  6f 6f 66 25 3d 30 0d 0e  |....pinnoof%=0..|
00022430  0b 0d e3 6a 25 3d 31 35  b8 33 30 0d 0e 0c 1e 20  |...j%=15.30.... |
00022440  e7 a4 69 73 73 65 6c 65  63 74 65 64 28 73 65 74  |..isselected(set|
00022450  75 70 77 25 2c 6a 25 29  8c 0d 0e 0d 20 20 20 70  |upw%,j%)....   p|
00022460  69 6e 63 68 6c 69 6e 6b  25 28 70 69 6e 6e 6f 6f  |inchlink%(pinnoo|
00022470  66 25 29 3d 6a 25 2d 31  35 0d 0e 0e 6a 20 20 f2  |f%)=j%-15...j  .|
00022480  68 69 64 65 69 63 6e 28  70 69 6e 6f 72 67 73 77  |hideicn(pinorgsw|
00022490  25 2c 34 2b 70 69 6e 6e  6f 6f 66 25 2c 30 29 3a  |%,4+pinnoof%,0):|
000224a0  f2 68 69 64 65 69 63 6e  28 70 69 6e 6f 72 67 73  |.hideicn(pinorgs|
000224b0  77 25 2c 31 32 2b 70 69  6e 6e 6f 6f 66 25 2c 30  |w%,12+pinnoof%,0|
000224c0  29 3a f2 68 69 64 65 69  63 6e 28 70 69 6e 6f 72  |):.hideicn(pinor|
000224d0  67 73 77 25 2c 32 30 2b  70 69 6e 6e 6f 6f 66 25  |gsw%,20+pinnoof%|
000224e0  2c 30 29 0d 0e 0f 70 20  20 f2 73 65 6c 65 63 74  |,0)...p  .select|
000224f0  69 63 6e 28 70 69 6e 6f  72 67 73 77 25 2c 34 2b  |icn(pinorgsw%,4+|
00022500  70 69 6e 6e 6f 6f 66 25  2c 30 29 3a f2 73 65 6c  |pinnoof%,0):.sel|
00022510  65 63 74 69 63 6e 28 70  69 6e 6f 72 67 73 77 25  |ecticn(pinorgsw%|
00022520  2c 31 32 2b 70 69 6e 6e  6f 6f 66 25 2c 30 29 3a  |,12+pinnoof%,0):|
00022530  f2 73 65 6c 65 63 74 69  63 6e 28 70 69 6e 6f 72  |.selecticn(pinor|
00022540  67 73 77 25 2c 32 30 2b  70 69 6e 6e 6f 6f 66 25  |gsw%,20+pinnoof%|
00022550  2c 30 29 0d 0e 10 38 20  20 f2 70 75 74 69 63 6e  |,0)...8  .puticn|
00022560  73 74 72 69 6e 67 28 70  69 6e 6f 72 67 73 77 25  |string(pinorgsw%|
00022570  2c 34 2b 70 69 6e 6e 6f  6f 66 25 2c 70 69 6e 62  |,4+pinnoof%,pinb|
00022580  75 74 24 28 6a 25 2d 31  35 29 29 0d 0e 11 40 f4  |ut$(j%-15))...@.|
00022590  20 20 53 59 53 20 22 58  4f 53 5f 53 70 72 69 74  |  SYS "XOS_Sprit|
000225a0  65 4f 70 22 2c 26 31 31  39 2c 61 6e 69 6d 61 72  |eOp",&119,animar|
000225b0  65 61 25 2c 22 70 69 6e  62 75 74 22 2b 53 54 52  |ea%,"pinbut"+STR|
000225c0  24 28 70 69 6e 6e 6f 6f  66 25 29 0d 0e 12 4a 20  |$(pinnoof%)...J |
000225d0  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
000225e0  22 2c 26 31 31 41 2c 62  6f 64 79 61 72 65 61 25  |",&11A,bodyarea%|
000225f0  2c 22 70 69 6e 62 22 2b  c3 28 6a 25 2d 31 35 29  |,"pinb"+.(j%-15)|
00022600  2c 22 70 69 6e 62 75 74  22 2b c3 28 70 69 6e 6e  |,"pinbut"+.(pinn|
00022610  6f 6f 66 25 29 0d 0e 13  11 20 20 70 69 6e 6e 6f  |oof%)....  pinno|
00022620  6f 66 25 2b 3d 31 0d 0e  14 06 20 cd 0d 0e 15 05  |of%+=1.... .....|
00022630  ed 0d 0e 16 10 e7 70 69  6e 6e 6f 6f 66 25 3c 38  |......pinnoof%<8|
00022640  8c 0d 0e 17 6b 20 e3 6a  25 3d 70 69 6e 6e 6f 6f  |....k .j%=pinnoo|
00022650  66 25 b8 37 3a f2 68 69  64 65 69 63 6e 28 70 69  |f%.7:.hideicn(pi|
00022660  6e 6f 72 67 73 77 25 2c  34 2b 6a 25 2c 2d 31 29  |norgsw%,4+j%,-1)|
00022670  3a f2 68 69 64 65 69 63  6e 28 70 69 6e 6f 72 67  |:.hideicn(pinorg|
00022680  73 77 25 2c 31 32 2b 6a  25 2c 2d 31 29 3a f2 68  |sw%,12+j%,-1):.h|
00022690  69 64 65 69 63 6e 28 70  69 6e 6f 72 67 73 77 25  |ideicn(pinorgsw%|
000226a0  2c 32 30 2b 6a 25 2c 2d  31 29 3a ed 0d 0e 18 05  |,20+j%,-1):.....|
000226b0  cd 0d 0e 19 6e e7 70 69  6e 6e 6f 6f 66 25 3d 30  |....n.pinnoof%=0|
000226c0  3a f2 64 69 73 63 6d 65  73 73 28 22 50 6c 65 61  |:.discmess("Plea|
000226d0  73 65 20 63 68 6f 6f 73  65 20 62 6f 64 79 20 70  |se choose body p|
000226e0  61 72 74 28 73 29 20 74  6f 20 70 6c 61 63 65 20  |art(s) to place |
000226f0  28 6f 72 20 63 68 6f 6f  73 65 20 72 61 6e 64 6f  |(or choose rando|
00022700  6d 20 73 65 6c 65 63 74  69 6f 6e 29 22 2c 30 29  |m selection)",0)|
00022710  3a f2 6f 70 65 6e 5f 73  65 74 75 70 77 3a e1 0d  |:.open_setupw:..|
00022720  0e 1a 17 f2 63 68 61 6e  67 65 70 69 6e 65 78 74  |....changepinext|
00022730  65 6e 74 28 30 29 0d 0e  1b 17 f2 73 65 74 70 69  |ent(0).....setpi|
00022740  6e 6f 75 74 6c 62 75 74  73 28 2d 31 29 0d 0e 1c  |noutlbuts(-1)...|
00022750  10 f2 70 69 6e 69 6e 73  74 72 75 63 74 0d 0e 1d  |..pininstruct...|
00022760  5d 21 62 6c 6b 25 3d 70  69 6e 6f 72 67 73 77 25  |]!blk%=pinorgsw%|
00022770  3a 62 6c 6b 25 21 34 3d  30 3a 62 6c 6b 25 21 38  |:blk%!4=0:blk%!8|
00022780  3d 34 34 3a 62 6c 6b 25  21 31 32 3d 35 36 36 3a  |=44:blk%!12=566:|
00022790  62 6c 6b 25 21 31 36 3d  39 38 33 3a 62 6c 6b 25  |blk%!16=983:blk%|
000227a0  21 32 30 3d 30 3a 62 6c  6b 25 21 32 34 3d 30 3a  |!20=0:blk%!24=0:|
000227b0  62 6c 6b 25 21 32 38 3d  2d 31 0d 0e 1e 13 f2 6f  |blk%!28=-1.....o|
000227c0  70 65 6e 77 69 6e 64 28  62 6c 6b 25 29 0d 0e 1f  |penwind(blk%)...|
000227d0  36 21 62 6c 6b 25 3d 70  69 6e 6f 75 74 6c 77 25  |6!blk%=pinoutlw%|
000227e0  3a 62 6c 6b 25 21 34 3d  36 31 32 3a 62 6c 6b 25  |:blk%!4=612:blk%|
000227f0  21 31 32 3d 31 32 37 39  3a 62 6c 6b 25 21 32 38  |!12=1279:blk%!28|
00022800  3d 2d 31 0d 0e 20 13 f2  6f 70 65 6e 77 69 6e 64  |=-1.. ..openwind|
00022810  28 62 6c 6b 25 29 0d 0e  21 05 e1 0d 0e 22 04 0d  |(blk%)..!...."..|
00022820  0e 23 1b dd f2 63 68 61  6e 67 65 70 69 6e 65 78  |.#...changepinex|
00022830  74 65 6e 74 28 62 69 67  25 29 0d 0e 24 40 21 62  |tent(big%)..$@!b|
00022840  6c 6b 25 3d 30 3a 62 6c  6b 25 21 34 3d 2d 39 33  |lk%=0:blk%!4=-93|
00022850  36 3a 62 6c 6b 25 21 31  32 3d 30 3a e7 62 69 67  |6:blk%!12=0:.big|
00022860  25 3a 62 6c 6b 25 21 38  3d 31 32 33 36 3a 8b 3a  |%:blk%!8=1236:.:|
00022870  62 6c 6b 25 21 38 3d 36  32 34 0d 0e 25 25 c8 99  |blk%!8=624..%%..|
00022880  22 57 69 6d 70 5f 53 65  74 45 78 74 65 6e 74 22  |"Wimp_SetExtent"|
00022890  2c 70 69 6e 6f 75 74 6c  77 25 2c 62 6c 6b 25 0d  |,pinoutlw%,blk%.|
000228a0  0e 26 05 e1 0d 0e 27 04  0d 0e 28 1b dd f2 73 65  |.&....'...(...se|
000228b0  74 70 69 6e 6f 75 74 6c  62 75 74 73 28 68 69 64  |tpinoutlbuts(hid|
000228c0  65 25 29 0d 0e 29 0c e7  ac 68 69 64 65 25 8c 0d  |e%)..)...hide%..|
000228d0  0e 2a 35 e3 6a 25 3d 30  b8 28 31 2b 70 69 6e 6e  |.*5.j%=0.(1+pinn|
000228e0  6f 6f 66 25 29 3a f2 68  69 64 65 69 63 6e 28 70  |oof%):.hideicn(p|
000228f0  69 6e 6f 75 74 6c 77 25  2c 6a 25 2c 68 69 64 65  |inoutlw%,j%,hide|
00022900  25 29 3a ed 0d 0e 2b 37  e3 6a 25 3d 31 30 b8 28  |%):...+7.j%=10.(|
00022910  31 31 2b 70 69 6e 6e 6f  6f 66 25 29 3a f2 68 69  |11+pinnoof%):.hi|
00022920  64 65 69 63 6e 28 70 69  6e 6f 75 74 6c 77 25 2c  |deicn(pinoutlw%,|
00022930  6a 25 2c 68 69 64 65 25  29 3a ed 0d 0e 2c 20 f2  |j%,hide%):..., .|
00022940  68 69 64 65 69 63 6e 28  70 69 6e 6f 75 74 6c 77  |hideicn(pinoutlw|
00022950  25 2c 32 30 2c 68 69 64  65 25 29 0d 0e 2d 0f 74  |%,20,hide%)..-.t|
00022960  6f 74 73 63 6f 72 65 25  3d 30 0d 0e 2e 14 e3 6a  |otscore%=0.....j|
00022970  25 3d 30 b8 70 69 6e 6e  6f 6f 66 25 2d 31 0d 0e  |%=0.pinnoof%-1..|
00022980  2f ad e7 70 69 6e 73 63  6f 72 65 25 28 6a 25 29  |/..pinscore%(j%)|
00022990  3d 31 30 3a f2 70 75 74  69 63 6e 73 74 72 69 6e  |=10:.puticnstrin|
000229a0  67 28 70 69 6e 6f 75 74  6c 77 25 2c 6a 25 2b 31  |g(pinoutlw%,j%+1|
000229b0  31 2c 70 69 6e 70 61 72  74 24 28 70 69 6e 63 68  |1,pinpart$(pinch|
000229c0  6c 69 6e 6b 25 28 6a 25  29 29 2b c3 28 70 69 6e  |link%(j%))+.(pin|
000229d0  73 63 6f 72 65 25 28 6a  25 29 29 29 3a 8b 3a f2  |score%(j%))):.:.|
000229e0  70 75 74 69 63 6e 73 74  72 69 6e 67 28 70 69 6e  |puticnstring(pin|
000229f0  6f 75 74 6c 77 25 2c 6a  25 2b 31 31 2c 70 69 6e  |outlw%,j%+11,pin|
00022a00  70 61 72 74 24 28 70 69  6e 63 68 6c 69 6e 6b 25  |part$(pinchlink%|
00022a10  28 6a 25 29 29 2b 22 20  22 2b c3 28 70 69 6e 73  |(j%))+" "+.(pins|
00022a20  63 6f 72 65 25 28 6a 25  29 29 29 0d 0e 30 1c 74  |core%(j%)))..0.t|
00022a30  6f 74 73 63 6f 72 65 25  2b 3d 70 69 6e 73 63 6f  |otscore%+=pinsco|
00022a40  72 65 25 28 6a 25 29 0d  0e 31 05 ed 0d 0e 32 34  |re%(j%)..1....24|
00022a50  74 6f 74 73 63 6f 72 65  25 3d a8 28 28 28 74 6f  |totscore%=.(((to|
00022a60  74 73 63 6f 72 65 25 2f  28 31 30 2a 70 69 6e 6e  |tscore%/(10*pinn|
00022a70  6f 6f 66 25 29 29 2a 31  30 30 29 2b 30 2e 35 29  |oof%))*100)+0.5)|
00022a80  0d 0e 33 48 f2 70 75 74  69 63 6e 73 74 72 69 6e  |..3H.puticnstrin|
00022a90  67 28 70 69 6e 6f 75 74  6c 77 25 2c 31 31 2b 70  |g(pinoutlw%,11+p|
00022aa0  69 6e 6e 6f 6f 66 25 2c  22 54 6f 74 61 6c 20 70  |innoof%,"Total p|
00022ab0  65 72 63 65 6e 74 20 3a  20 22 2b c3 28 74 6f 74  |ercent : "+.(tot|
00022ac0  73 63 6f 72 65 25 29 29  0d 0e 34 05 cc 0d 0e 35  |score%))..4....5|
00022ad0  2b e3 6a 25 3d 30 b8 32  30 3a f2 68 69 64 65 69  |+.j%=0.20:.hidei|
00022ae0  63 6e 28 70 69 6e 6f 75  74 6c 77 25 2c 6a 25 2c  |cn(pinoutlw%,j%,|
00022af0  68 69 64 65 25 29 3a ed  0d 0e 36 05 cd 0d 0e 37  |hide%):...6....7|
00022b00  05 e1 0d 0e 38 04 0d 0e  39 14 dd f2 72 65 64 72  |....8...9...redr|
00022b10  61 77 70 69 6e 6f 75 74  6c 77 0d 0e 3a 28 c8 99  |awpinoutlw..:(..|
00022b20  20 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  | "Wimp_RedrawWin|
00022b30  64 6f 77 22 2c 2c 62 6c  6b 25 20 b8 20 6d 6f 72  |dow",,blk% . mor|
00022b40  65 25 0d 0e 3b 11 e7 70  69 6e 67 6f 74 74 6f 25  |e%..;..pingotto%|
00022b50  3d 39 8c 0d 0e 3c 34 6f  72 69 67 78 25 3d 62 6c  |=9...<4origx%=bl|
00022b60  6b 25 21 34 2d 62 6c 6b  25 21 32 30 3a 73 70 79  |k%!4-blk%!20:spy|
00022b70  25 3d 28 62 6c 6b 25 21  31 36 2d 62 6c 6b 25 21  |%=(blk%!16-blk%!|
00022b80  32 34 29 2d 39 33 36 0d  0e 3d 0c c8 95 20 6d 6f  |24)-936..=... mo|
00022b90  72 65 25 0d 0e 3e 50 c8  99 20 22 4f 53 5f 53 70  |re%..>P.. "OS_Sp|
00022ba0  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 62 6f 64  |riteOp",&134,bod|
00022bb0  79 61 72 65 61 25 2c 22  62 6f 64 79 22 2c 6f 72  |yarea%,"body",or|
00022bc0  69 67 78 25 2d 31 31 32  2c 73 70 79 25 2c 30 2c  |igx%-112,spy%,0,|
00022bd0  70 69 6e 73 63 61 6c 65  25 2c 63 6f 6c 74 72 61  |pinscale%,coltra|
00022be0  6e 73 25 0d 0e 3f 4f c8  99 20 22 4f 53 5f 53 70  |ns%..?O.. "OS_Sp|
00022bf0  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 64 65 74  |riteOp",&134,det|
00022c00  61 72 65 61 25 2c 22 62  6f 64 79 22 2c 6f 72 69  |area%,"body",ori|
00022c10  67 78 25 2b 36 31 32 2c  73 70 79 25 2c 30 2c 70  |gx%+612,spy%,0,p|
00022c20  69 6e 73 63 61 6c 65 25  2c 63 6f 6c 74 72 61 6e  |inscale%,coltran|
00022c30  73 25 0d 0e 40 29 c8 99  20 22 57 69 6d 70 5f 47  |s%..@).. "Wimp_G|
00022c40  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 62 6c  |etRectangle",,bl|
00022c50  6b 25 20 b8 20 6d 6f 72  65 25 3a 0d 0e 41 05 ce  |k% . more%:..A..|
00022c60  0d 0e 42 05 cc 0d 0e 43  32 73 70 78 25 3d 62 6c  |..B....C2spx%=bl|
00022c70  6b 25 21 34 2d 62 6c 6b  25 21 32 30 3a 73 70 79  |k%!4-blk%!20:spy|
00022c80  25 3d 28 62 6c 6b 25 21  31 36 2d 62 6c 6b 25 21  |%=(blk%!16-blk%!|
00022c90  32 34 29 2d 39 33 36 0d  0e 44 0c c8 95 20 6d 6f  |24)-936..D... mo|
00022ca0  72 65 25 0d 0e 45 49 c8  99 20 22 4f 53 5f 53 70  |re%..EI.. "OS_Sp|
00022cb0  72 69 74 65 4f 70 22 2c  26 31 33 34 2c 64 65 74  |riteOp",&134,det|
00022cc0  61 72 65 61 25 2c 22 62  6f 64 79 22 2c 73 70 78  |area%,"body",spx|
00022cd0  25 2c 73 70 79 25 2c 30  2c 70 69 6e 73 63 61 6c  |%,spy%,0,pinscal|
00022ce0  65 25 2c 63 6f 6c 74 72  61 6e 73 25 0d 0e 46 29  |e%,coltrans%..F)|
00022cf0  c8 99 20 22 57 69 6d 70  5f 47 65 74 52 65 63 74  |.. "Wimp_GetRect|
00022d00  61 6e 67 6c 65 22 2c 2c  62 6c 6b 25 20 b8 20 6d  |angle",,blk% . m|
00022d10  6f 72 65 25 3a 0d 0e 47  05 ce 0d 0e 48 05 cd 0d  |ore%:..G....H...|
00022d20  0e 49 05 e1 0d 0e 4a 04  0d 0e 4b 22 dd f2 70 69  |.I....J...K"..pi|
00022d30  6e 6f 72 67 73 77 63 6c  69 63 6b 28 6d 78 25 2c  |norgswclick(mx%,|
00022d40  6d 79 25 2c 62 25 2c 69  25 29 0d 0e 4c 1d e7 28  |my%,b%,i%)..L..(|
00022d50  69 25 3e 3d 32 30 29 80  28 69 25 3c 3d 32 37 29  |i%>=20).(i%<=27)|
00022d60  3a 69 25 2d 3d 31 36 0d  0e 4d 1c e7 28 69 25 3e  |:i%-=16..M..(i%>|
00022d70  3d 31 32 29 80 28 69 25  3c 3d 31 39 29 3a 69 25  |=12).(i%<=19):i%|
00022d80  2d 3d 38 0d 0e 4e 16 e7  28 69 25 3e 3d 34 29 80  |-=8..N..(i%>=4).|
00022d90  28 69 25 3c 3d 31 31 29  8c 0d 0e 4f 20 20 e7 a4  |(i%<=11)...O  ..|
00022da0  69 73 73 65 6c 65 63 74  65 64 28 70 69 6e 6f 72  |isselected(pinor|
00022db0  67 73 77 25 2c 69 25 29  8c 0d 0e 50 43 20 20 f2  |gsw%,i%)...PC  .|
00022dc0  73 65 6c 65 63 74 69 63  6e 28 70 69 6e 6f 72 67  |selecticn(pinorg|
00022dd0  73 77 25 2c 69 25 2c a3  29 3a 70 69 6e 63 68 6f  |sw%,i%,.):pincho|
00022de0  69 63 65 25 3d 38 3a f2  63 68 65 63 6b 77 61 73  |ice%=8:.checkwas|
00022df0  64 6f 6e 65 28 69 25 2d  34 2c b9 29 0d 0e 51 06  |done(i%-4,.)..Q.|
00022e00  20 cc 0d 0e 52 54 20 20  e7 70 69 6e 63 68 6f 69  | ...RT  .pinchoi|
00022e10  63 65 25 3c 38 3a f2 73  65 6c 65 63 74 69 63 6e  |ce%<8:.selecticn|
00022e20  28 70 69 6e 6f 72 67 73  77 25 2c 70 69 6e 63 68  |(pinorgsw%,pinch|
00022e30  6f 69 63 65 25 2b 34 2c  a3 29 3a f2 63 68 65 63  |oice%+4,.):.chec|
00022e40  6b 77 61 73 64 6f 6e 65  28 70 69 6e 63 68 6f 69  |kwasdone(pinchoi|
00022e50  63 65 25 2c b9 29 0d 0e  53 30 20 20 f2 73 65 6c  |ce%,.)..S0  .sel|
00022e60  65 63 74 69 63 6e 28 70  69 6e 6f 72 67 73 77 25  |ecticn(pinorgsw%|
00022e70  2c 69 25 2c b9 29 3a 70  69 6e 63 68 6f 69 63 65  |,i%,.):pinchoice|
00022e80  25 3d 69 25 2d 34 0d 0e  54 57 20 20 e7 70 69 6e  |%=i%-4..TW  .pin|
00022e90  64 6f 6e 65 70 61 72 74  25 28 70 69 6e 6c 69 6e  |donepart%(pinlin|
00022ea0  6b 25 28 70 69 6e 63 68  6c 69 6e 6b 25 28 70 69  |k%(pinchlink%(pi|
00022eb0  6e 63 68 6f 69 63 65 25  29 2c 30 29 29 3a 77 61  |nchoice%),0)):wa|
00022ec0  73 64 6f 6e 65 6f 6e 63  65 25 3d b9 3a 8b 3a 77  |sdoneonce%=.:.:w|
00022ed0  61 73 64 6f 6e 65 6f 6e  63 65 25 3d a3 0d 0e 55  |asdoneonce%=...U|
00022ee0  21 20 20 f2 63 68 65 63  6b 77 61 73 64 6f 6e 65  |!  .checkwasdone|
00022ef0  28 70 69 6e 63 68 6f 69  63 65 25 2c a3 29 0d 0e  |(pinchoice%,.)..|
00022f00  56 06 20 cd 0d 0e 57 13  20 e7 70 69 6e 63 68 6f  |V. ...W. .pincho|
00022f10  69 63 65 25 3d 38 8c 0d  0e 58 2c 20 20 e7 a4 70  |ice%=8...X,  ..p|
00022f20  69 6e 64 6f 6e 65 61 6c  6c 3a 70 69 6e 67 6f 74  |indoneall:pingot|
00022f30  74 6f 25 3d 33 3a 8b 3a  70 69 6e 67 6f 74 74 6f  |to%=3:.:pingotto|
00022f40  25 3d 30 0d 0e 59 06 20  cc 0d 0e 5a 11 20 20 70  |%=0..Y. ...Z.  p|
00022f50  69 6e 67 6f 74 74 6f 25  3d 31 0d 0e 5b 06 20 cd  |ingotto%=1..[. .|
00022f60  0d 0e 5c 11 20 f2 70 69  6e 69 6e 73 74 72 75 63  |..\. .pininstruc|
00022f70  74 0d 0e 5d 05 cd 0d 0e  5e 21 e7 69 25 3d 33 3a  |t..]....^!.i%=3:|
00022f80  f2 70 69 6e 63 61 6c 63  73 63 6f 72 65 3a f2 70  |.pincalcscore:.p|
00022f90  69 6e 73 63 6f 72 65 0d  0e 5f 05 e1 0d 0e 60 04  |inscore.._....`.|
00022fa0  0d 0e 61 0e dd f2 70 69  6e 73 63 6f 72 65 0d 0e  |..a...pinscore..|
00022fb0  62 0f 70 69 6e 67 6f 74  74 6f 25 3d 39 0d 0e 63  |b.pingotto%=9..c|
00022fc0  28 e7 a4 69 73 6f 70 65  6e 28 70 69 6e 6f 72 67  |(..isopen(pinorg|
00022fd0  73 77 25 29 3a f2 63 6c  6f 73 65 77 69 6e 64 28  |sw%):.closewind(|
00022fe0  62 6c 6b 25 29 0d 0e 64  28 e7 a4 69 73 6f 70 65  |blk%)..d(..isope|
00022ff0  6e 28 70 69 6e 6f 75 74  6c 77 25 29 3a f2 63 6c  |n(pinoutlw%):.cl|
00023000  6f 73 65 77 69 6e 64 28  62 6c 6b 25 29 0d 0e 65  |osewind(blk%)..e|
00023010  18 f2 63 68 61 6e 67 65  70 69 6e 65 78 74 65 6e  |..changepinexten|
00023020  74 28 2d 31 29 0d 0e 66  16 f2 73 65 74 70 69 6e  |t(-1)..f..setpin|
00023030  6f 75 74 6c 62 75 74 73  28 30 29 0d 0e 67 17 f2  |outlbuts(0)..g..|
00023040  63 72 65 61 74 65 62 61  73 65 62 6f 64 79 28 2d  |createbasebody(-|
00023050  31 29 0d 0e 68 5e 21 62  6c 6b 25 3d 70 69 6e 6f  |1)..h^!blk%=pino|
00023060  75 74 6c 77 25 3a 62 6c  6b 25 21 34 3d 30 3a 62  |utlw%:blk%!4=0:b|
00023070  6c 6b 25 21 38 3d 34 34  3a 62 6c 6b 25 21 31 32  |lk%!8=44:blk%!12|
00023080  3d 31 32 37 39 3a 62 6c  6b 25 21 31 36 3d 39 38  |=1279:blk%!16=98|
00023090  33 3a 62 6c 6b 25 21 32  30 3d 30 3a 62 6c 6b 25  |3:blk%!20=0:blk%|
000230a0  21 32 34 3d 30 3a 62 6c  6b 25 21 32 38 3d 2d 31  |!24=0:blk%!28=-1|
000230b0  0d 0e 69 13 f2 6f 70 65  6e 77 69 6e 64 28 62 6c  |..i..openwind(bl|
000230c0  6b 25 29 0d 0e 6a 05 e1  0d 0e 6b 04 0d 0e 6c 12  |k%)..j....k...l.|
000230d0  dd f2 70 69 6e 63 61 6c  63 73 63 6f 72 65 0d 0e  |..pincalcscore..|
000230e0  6d 14 e3 6a 25 3d 30 b8  70 69 6e 6e 6f 6f 66 25  |m..j%=0.pinnoof%|
000230f0  2d 31 0d 0e 6e 35 20 6f  72 67 25 3d 70 69 6e 6c  |-1..n5 org%=pinl|
00023100  69 6e 6b 25 28 70 69 6e  63 68 6c 69 6e 6b 25 28  |ink%(pinchlink%(|
00023110  6a 25 29 2c 30 29 3a 70  69 6e 73 63 6f 72 65 25  |j%),0):pinscore%|
00023120  28 6a 25 29 3d 31 30 0d  0e 6f 72 20 72 61 64 25  |(j%)=10..or rad%|
00023130  3d b6 28 28 28 70 69 6e  63 68 6f 73 65 6e 70 6f  |=.(((pinchosenpo|
00023140  73 25 28 6f 72 67 25 2c  30 29 2d 70 69 6e 63 6f  |s%(org%,0)-pinco|
00023150  72 72 65 63 74 70 6f 73  25 28 6f 72 67 25 2c 30  |rrectpos%(org%,0|
00023160  29 29 5e 32 29 2b 28 28  70 69 6e 63 68 6f 73 65  |))^2)+((pinchose|
00023170  6e 70 6f 73 25 28 6f 72  67 25 2c 31 29 2d 70 69  |npos%(org%,1)-pi|
00023180  6e 63 6f 72 72 65 63 74  70 6f 73 25 28 6f 72 67  |ncorrectpos%(org|
00023190  25 2c 31 29 29 5e 32 29  29 0d 0e 70 0c 20 e3 6b  |%,1))^2))..p. .k|
000231a0  25 3d 30 b8 39 0d 0e 71  34 20 20 e7 72 61 64 25  |%=0.9..q4  .rad%|
000231b0  3e 28 28 28 31 36 2b 28  38 2a 6b 25 29 29 2a 31  |>(((16+(8*k%))*1|
000231c0  2e 35 29 2d 31 29 3a 70  69 6e 73 63 6f 72 65 25  |.5)-1):pinscore%|
000231d0  28 6a 25 29 3d 39 2d 6b  25 0d 0e 72 06 20 ed 0d  |(j%)=9-k%..r. ..|
000231e0  0e 73 23 20 f2 70 69 6e  63 6f 70 79 65 78 70 61  |.s# .pincopyexpa|
000231f0  6e 64 28 70 69 6e 63 68  6c 69 6e 6b 25 28 6a 25  |nd(pinchlink%(j%|
00023200  29 29 0d 0e 74 5c 20 e7  a4 73 70 73 63 6f 72 65  |))..t\ ..spscore|
00023210  64 30 28 70 69 6e 63 68  6c 69 6e 6b 25 28 6a 25  |d0(pinchlink%(j%|
00023220  29 2c 70 69 6e 63 68 6f  73 65 6e 70 6f 73 25 28  |),pinchosenpos%(|
00023230  6f 72 67 25 2c 30 29 2c  70 69 6e 63 68 6f 73 65  |org%,0),pinchose|
00023240  6e 70 6f 73 25 28 6f 72  67 25 2c 31 29 29 3a 70  |npos%(org%,1)):p|
00023250  69 6e 73 63 6f 72 65 25  28 6a 25 29 3d 30 0d 0e  |inscore%(j%)=0..|
00023260  75 20 20 f2 70 69 6e 64  65 6c 65 74 65 32 28 70  |u  .pindelete2(p|
00023270  69 6e 63 68 6c 69 6e 6b  25 28 6a 25 29 29 0d 0e  |inchlink%(j%))..|
00023280  76 05 ed 0d 0e 77 05 e1  0d 0e 78 04 0d 0e 79 1a  |v....w....x...y.|
00023290  dd f2 63 68 65 63 6b 77  61 73 64 6f 6e 65 28 69  |..checkwasdone(i|
000232a0  25 2c 66 6c 25 29 0d 0e  7a 08 ea 20 6a 25 0d 0e  |%,fl%)..z.. j%..|
000232b0  7b 12 e7 77 61 73 64 6f  6e 65 6f 6e 63 65 25 8c  |{..wasdoneonce%.|
000232c0  0d 0e 7c 0c 20 e3 6a 25  3d 30 b8 33 0d 0e 7d 54  |..|. .j%=0.3..}T|
000232d0  20 20 e7 70 69 6e 6c 69  6e 6b 25 28 70 69 6e 63  |  .pinlink%(pinc|
000232e0  68 6c 69 6e 6b 25 28 69  25 29 2c 6a 25 29 3c 3e  |hlink%(i%),j%)<>|
000232f0  2d 31 3a 70 69 6e 64 6f  6e 65 70 61 72 74 25 28  |-1:pindonepart%(|
00023300  70 69 6e 6c 69 6e 6b 25  28 70 69 6e 63 68 6c 69  |pinlink%(pinchli|
00023310  6e 6b 25 28 69 25 29 2c  6a 25 29 29 3d 66 6c 25  |nk%(i%),j%))=fl%|
00023320  0d 0e 7e 06 20 ed 0d 0e  7f 3f 20 f2 63 72 65 61  |..~. ....? .crea|
00023330  74 65 62 61 73 65 62 6f  64 79 28 30 29 3a f2 70  |tebasebody(0):.p|
00023340  69 6e 62 61 73 65 62 6f  64 79 3a f2 70 6c 6f 74  |inbasebody:.plot|
00023350  70 69 6e 62 6f 64 79 28  30 2c 2d 39 33 36 2c 36  |pinbody(0,-936,6|
00023360  32 34 2c 30 29 0d 0e 80  22 20 f2 73 65 6c 65 63  |24,0)..." .selec|
00023370  74 69 63 6e 28 70 69 6e  6f 72 67 73 77 25 2c 32  |ticn(pinorgsw%,2|
00023380  30 2b 69 25 2c b9 29 0d  0e 81 05 cc 0d 0e 82 22  |0+i%,.)........"|
00023390  20 f2 73 65 6c 65 63 74  69 63 6e 28 70 69 6e 6f  | .selecticn(pino|
000233a0  72 67 73 77 25 2c 32 30  2b 69 25 2c a3 29 0d 0e  |rgsw%,20+i%,.)..|
000233b0  83 05 cd 0d 0e 84 05 e1  0d 0e 85 04 0d 0e 86 22  |..............."|
000233c0  dd f2 70 69 6e 6f 75 74  6c 77 63 6c 69 63 6b 28  |..pinoutlwclick(|
000233d0  6d 78 25 2c 6d 79 25 2c  62 25 2c 69 25 29 0d 0e  |mx%,my%,b%,i%)..|
000233e0  87 08 ea 20 6a 25 0d 0e  88 0c e7 62 25 3c 3e 34  |... j%.....b%<>4|
000233f0  3a e1 0d 0e 89 11 e7 70  69 6e 67 6f 74 74 6f 25  |:......pingotto%|
00023400  3d 32 8c 0d 0e 8a 22 20  c8 99 22 57 69 6d 70 5f  |=2...." .."Wimp_|
00023410  53 65 74 50 6f 69 6e 74  65 72 53 68 61 70 65 22  |SetPointerShape"|
00023420  2c 31 2c 2d 31 0d 0e 8b  0c 20 e3 6a 25 3d 30 b8  |,1,-1.... .j%=0.|
00023430  33 0d 0e 8c 2f 20 20 e7  70 69 6e 6c 69 6e 6b 25  |3.../  .pinlink%|
00023440  28 70 69 6e 63 68 6c 69  6e 6b 25 28 70 69 6e 63  |(pinchlink%(pinc|
00023450  68 6f 69 63 65 25 29 2c  6a 25 29 3c 3e 2d 31 8c  |hoice%),j%)<>-1.|
00023460  0d 0e 8d 3a 20 20 20 70  69 6e 64 6f 6e 65 70 61  |...:   pindonepa|
00023470  72 74 25 28 70 69 6e 6c  69 6e 6b 25 28 70 69 6e  |rt%(pinlink%(pin|
00023480  63 68 6c 69 6e 6b 25 28  70 69 6e 63 68 6f 69 63  |chlink%(pinchoic|
00023490  65 25 29 2c 6a 25 29 29  3d b9 0d 0e 8e e2 20 20  |e%),j%))=.....  |
000234a0  20 70 69 6e 63 68 6f 73  65 6e 70 6f 73 25 28 70  | pinchosenpos%(p|
000234b0  69 6e 6c 69 6e 6b 25 28  70 69 6e 63 68 6c 69 6e  |inlink%(pinchlin|
000234c0  6b 25 28 70 69 6e 63 68  6f 69 63 65 25 29 2c 6a  |k%(pinchoice%),j|
000234d0  25 29 2c 30 29 3d 70 69  6e 78 25 2d 70 69 6e 6f  |%),0)=pinx%-pino|
000234e0  72 67 73 69 7a 65 25 28  70 69 6e 6c 69 6e 6b 25  |rgsize%(pinlink%|
000234f0  28 70 69 6e 63 68 6c 69  6e 6b 25 28 70 69 6e 63  |(pinchlink%(pinc|
00023500  68 6f 69 63 65 25 29 2c  6a 25 29 2c 30 29 3a 70  |hoice%),j%),0):p|
00023510  69 6e 63 68 6f 73 65 6e  70 6f 73 25 28 70 69 6e  |inchosenpos%(pin|
00023520  6c 69 6e 6b 25 28 70 69  6e 63 68 6c 69 6e 6b 25  |link%(pinchlink%|
00023530  28 70 69 6e 63 68 6f 69  63 65 25 29 2c 6a 25 29  |(pinchoice%),j%)|
00023540  2c 31 29 3d 70 69 6e 79  25 2d 70 69 6e 6f 72 67  |,1)=piny%-pinorg|
00023550  73 69 7a 65 25 28 70 69  6e 6c 69 6e 6b 25 28 70  |size%(pinlink%(p|
00023560  69 6e 63 68 6c 69 6e 6b  25 28 70 69 6e 63 68 6f  |inchlink%(pincho|
00023570  69 63 65 25 29 2c 6a 25  29 2c 31 29 0d 0e 8f 07  |ice%),j%),1)....|
00023580  20 20 cd 0d 0e 90 06 20  ed 0d 0e 91 4f 20 f2 73  |  ..... ....O .s|
00023590  65 6c 65 63 74 69 63 6e  28 70 69 6e 6f 72 67 73  |electicn(pinorgs|
000235a0  77 25 2c 70 69 6e 63 68  6f 69 63 65 25 2b 34 2c  |w%,pinchoice%+4,|
000235b0  a3 29 3a f2 73 65 6c 65  63 74 69 63 6e 28 70 69  |.):.selecticn(pi|
000235c0  6e 6f 72 67 73 77 25 2c  70 69 6e 63 68 6f 69 63  |norgsw%,pinchoic|
000235d0  65 25 2b 32 30 2c b9 29  0d 0e 92 34 20 f2 70 69  |e%+20,.)...4 .pi|
000235e0  6e 64 65 6c 65 74 65 28  70 69 6e 63 68 6c 69 6e  |ndelete(pinchlin|
000235f0  6b 25 28 70 69 6e 63 68  6f 69 63 65 25 29 29 3a  |k%(pinchoice%)):|
00023600  70 69 6e 63 68 6f 69 63  65 25 3d 38 0d 0e 93 4f  |pinchoice%=8...O|
00023610  20 64 6f 69 6e 67 70 69  6e 70 61 72 74 25 3d a3  | doingpinpart%=.|
00023620  3a f2 63 72 65 61 74 65  62 61 73 65 62 6f 64 79  |:.createbasebody|
00023630  28 30 29 3a f2 70 69 6e  62 61 73 65 62 6f 64 79  |(0):.pinbasebody|
00023640  3a f2 70 6c 6f 74 70 69  6e 62 6f 64 79 28 30 2c  |:.plotpinbody(0,|
00023650  2d 39 33 36 2c 36 32 34  2c 30 29 0d 0e 94 2b 20  |-936,624,0)...+ |
00023660  e7 a4 70 69 6e 64 6f 6e  65 61 6c 6c 3a 70 69 6e  |..pindoneall:pin|
00023670  67 6f 74 74 6f 25 3d 33  3a 8b 3a 70 69 6e 67 6f  |gotto%=3:.:pingo|
00023680  74 74 6f 25 3d 30 0d 0e  95 11 20 f2 70 69 6e 69  |tto%=0.... .pini|
00023690  6e 73 74 72 75 63 74 0d  0e 96 05 cd 0d 0e 97 1a  |nstruct.........|
000236a0  e7 28 70 69 6e 67 6f 74  74 6f 25 3d 39 29 80 28  |.(pingotto%=9).(|
000236b0  69 25 3d 31 29 8c 0d 0e  98 0d 20 f2 70 69 6e 69  |i%=1)..... .pini|
000236c0  6e 69 74 0d 0e 99 28 20  e7 a4 69 73 73 65 6c 65  |nit...( ..issele|
000236d0  63 74 65 64 28 73 65 74  75 70 77 25 2c 31 31 29  |cted(setupw%,11)|
000236e0  3a f2 72 61 6e 64 6f 6d  70 69 6e 0d 0e 9a 0e 20  |:.randompin.... |
000236f0  f2 73 74 61 72 74 70 69  6e 0d 0e 9b 05 cd 0d 0e  |.startpin.......|
00023700  9c 05 e1 0d 0e 9d 04 0d  0e 9e 11 dd f2 70 69 6e  |.............pin|
00023710  69 6e 73 74 72 75 63 74  0d 0e 9f 65 f2 70 75 74  |instruct...e.put|
00023720  69 63 6e 73 74 72 69 6e  67 28 70 69 6e 6f 72 67  |icnstring(pinorg|
00023730  73 77 25 2c 31 2c 70 69  6e 6d 65 73 73 24 28 70  |sw%,1,pinmess$(p|
00023740  69 6e 67 6f 74 74 6f 25  2c 30 29 29 3a f2 70 75  |ingotto%,0)):.pu|
00023750  74 69 63 6e 73 74 72 69  6e 67 28 70 69 6e 6f 72  |ticnstring(pinor|
00023760  67 73 77 25 2c 32 2c 70  69 6e 6d 65 73 73 24 28  |gsw%,2,pinmess$(|
00023770  70 69 6e 67 6f 74 74 6f  25 2c 31 29 29 0d 0e a0  |pingotto%,1))...|
00023780  42 e7 70 69 6e 67 6f 74  74 6f 25 3d 33 3a f2 68  |B.pingotto%=3:.h|
00023790  69 64 65 69 63 6e 28 70  69 6e 6f 72 67 73 77 25  |ideicn(pinorgsw%|
000237a0  2c 33 2c a3 29 3a 8b 3a  f2 68 69 64 65 69 63 6e  |,3,.):.:.hideicn|
000237b0  28 70 69 6e 6f 72 67 73  77 25 2c 33 2c b9 29 0d  |(pinorgsw%,3,.).|
000237c0  0e a1 05 e1 0d 0e a2 04  0d 0e a3 10 dd a4 70 69  |..............pi|
000237d0  6e 64 6f 6e 65 61 6c 6c  0d 0e a4 14 e3 6a 25 3d  |ndoneall.....j%=|
000237e0  30 b8 70 69 6e 6e 6f 6f  66 25 2d 31 0d 0e a5 31  |0.pinnoof%-1...1|
000237f0  e7 ac 70 69 6e 64 6f 6e  65 70 61 72 74 25 28 70  |..pindonepart%(p|
00023800  69 6e 6c 69 6e 6b 25 28  70 69 6e 63 68 6c 69 6e  |inlink%(pinchlin|
00023810  6b 25 28 6a 25 29 2c 30  29 29 3a 3d 30 0d 0e a6  |k%(j%),0)):=0...|
00023820  05 ed 0d 0e a7 07 3d 2d  31 0d 0e a8 04 0d 0e a9  |......=-1.......|
00023830  15 dd f2 6c 65 61 76 69  6e 67 70 69 6e 6f 75 74  |...leavingpinout|
00023840  6c 77 0d 0e aa 13 e7 70  69 6e 67 6f 74 74 6f 25  |lw.....pingotto%|
00023850  3c 3e 32 3a e1 0d 0e ab  21 c8 99 22 57 69 6d 70  |<>2:....!.."Wimp|
00023860  5f 53 65 74 50 6f 69 6e  74 65 72 53 68 61 70 65  |_SetPointerShape|
00023870  22 2c 31 2c 2d 31 0d 0e  ac 26 f2 70 69 6e 64 65  |",1,-1...&.pinde|
00023880  6c 65 74 65 28 70 69 6e  63 68 6c 69 6e 6b 25 28  |lete(pinchlink%(|
00023890  70 69 6e 63 68 6f 69 63  65 25 29 29 0d 0e ad 4e  |pinchoice%))...N|
000238a0  64 6f 69 6e 67 70 69 6e  70 61 72 74 25 3d a3 3a  |doingpinpart%=.:|
000238b0  f2 63 72 65 61 74 65 62  61 73 65 62 6f 64 79 28  |.createbasebody(|
000238c0  30 29 3a f2 70 69 6e 62  61 73 65 62 6f 64 79 3a  |0):.pinbasebody:|
000238d0  f2 70 6c 6f 74 70 69 6e  62 6f 64 79 28 30 2c 2d  |.plotpinbody(0,-|
000238e0  39 33 36 2c 36 32 34 2c  30 29 0d 0e ae 1c 70 69  |936,624,0)....pi|
000238f0  6e 67 6f 74 74 6f 25 3d  31 3a f2 70 69 6e 69 6e  |ngotto%=1:.pinin|
00023900  73 74 72 75 63 74 0d 0e  af 05 e1 0d 0e b0 04 0d  |struct..........|
00023910  0e b1 16 dd f2 65 6e 74  65 72 69 6e 67 70 69 6e  |.....enteringpin|
00023920  6f 75 74 6c 77 0d 0e b2  14 e7 70 69 6e 67 6f 74  |outlw.....pingot|
00023930  74 6f 25 3c 3e 31 8c 3a  e1 0d 0e b3 1c 70 69 6e  |to%<>1.:.....pin|
00023940  67 6f 74 74 6f 25 3d 32  3a f2 70 69 6e 69 6e 73  |gotto%=2:.pinins|
00023950  74 72 75 63 74 0d 0e b4  3a 64 6f 69 6e 67 70 69  |truct...:doingpi|
00023960  6e 70 61 72 74 25 3d b9  3a f2 70 69 6e 63 6f 70  |npart%=.:.pincop|
00023970  79 65 78 70 61 6e 64 28  70 69 6e 63 68 6c 69 6e  |yexpand(pinchlin|
00023980  6b 25 28 70 69 6e 63 68  6f 69 63 65 25 29 29 0d  |k%(pinchoice%)).|
00023990  0e b5 1e c8 99 22 57 69  6d 70 5f 53 65 74 50 6f  |....."Wimp_SetPo|
000239a0  69 6e 74 65 72 53 68 61  70 65 22 2c 30 0d 0e b6  |interShape",0...|
000239b0  2a 66 69 72 73 74 6d 6f  76 65 25 3d b9 3a f2 6d  |*firstmove%=.:.m|
000239c0  6f 76 65 70 69 6e 70 61  72 74 3a 66 69 72 73 74  |ovepinpart:first|
000239d0  6d 6f 76 65 25 3d a3 0d  0e b7 05 e1 0d 0e b8 04  |move%=..........|
000239e0  0d 0e b9 11 dd f2 6d 6f  76 65 70 69 6e 70 61 72  |......movepinpar|
000239f0  74 0d 0e ba 42 6f 6c 64  70 69 6e 78 25 3d 70 69  |t...Boldpinx%=pi|
00023a00  6e 78 25 3a 6f 6c 64 70  69 6e 79 25 3d 70 69 6e  |nx%:oldpiny%=pin|
00023a10  79 25 3a e3 6a 25 3d 30  b8 33 3a 6f 6c 64 72 65  |y%:.j%=0.3:oldre|
00023a20  63 74 25 28 6a 25 29 3d  72 65 63 74 25 28 6a 25  |ct%(j%)=rect%(j%|
00023a30  29 3a ed 0d 0e bb 22 c8  99 22 57 69 6d 70 5f 47  |):....".."Wimp_G|
00023a40  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00023a50  62 6c 6b 32 25 0d 0e bc  31 21 62 6c 6b 25 3d 70  |blk2%...1!blk%=p|
00023a60  69 6e 6f 75 74 6c 77 25  3a c8 99 22 57 69 6d 70  |inoutlw%:.."Wimp|
00023a70  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00023a80  2c 2c 62 6c 6b 25 0d 0e  bd 47 70 69 6e 78 25 3d  |,,blk%...Gpinx%=|
00023a90  21 62 6c 6b 32 25 2d 28  62 6c 6b 25 21 34 2d 62  |!blk2%-(blk%!4-b|
00023aa0  6c 6b 25 21 32 30 29 3a  70 69 6e 79 25 3d 62 6c  |lk%!20):piny%=bl|
00023ab0  6b 32 25 21 34 2d 28 28  62 6c 6b 25 21 31 36 2d  |k2%!4-((blk%!16-|
00023ac0  62 6c 6b 25 21 32 34 29  2d 39 33 36 29 0d 0e be  |blk%!24)-936)...|
00023ad0  25 70 69 6e 78 25 2d 3d  28 70 69 6e 78 25 83 38  |%pinx%-=(pinx%.8|
00023ae0  29 3a 70 69 6e 79 25 2d  3d 28 70 69 6e 79 25 83  |):piny%-=(piny%.|
00023af0  38 29 0d 0e bf 3f f4 50  52 4f 43 65 72 72 6f 72  |8)...?.PROCerror|
00023b00  28 22 70 69 6e 78 2c 79  3d 22 2b 53 54 52 24 28  |("pinx,y="+STR$(|
00023b10  70 69 6e 78 25 29 2b 22  2c 22 2b 53 54 52 24 28  |pinx%)+","+STR$(|
00023b20  70 69 6e 79 25 29 2c 30  29 3a 45 4e 44 50 52 4f  |piny%),0):ENDPRO|
00023b30  43 0d 0e c0 28 e7 28 70  69 6e 78 25 3d 6f 6c 64  |C...(.(pinx%=old|
00023b40  70 69 6e 78 25 29 80 28  70 69 6e 79 25 3d 6f 6c  |pinx%).(piny%=ol|
00023b50  64 70 69 6e 79 25 29 3a  e1 0d 0e c1 12 f2 63 72  |dpiny%):......cr|
00023b60  65 61 74 65 70 69 6e 62  6f 64 79 0d 0e c2 4e e7  |eatepinbody...N.|
00023b70  ac 66 69 72 73 74 6d 6f  76 65 25 3a f2 70 6c 6f  |.firstmove%:.plo|
00023b80  74 70 69 6e 62 6f 64 79  28 6f 6c 64 72 65 63 74  |tpinbody(oldrect|
00023b90  25 28 30 29 2c 6f 6c 64  72 65 63 74 25 28 31 29  |%(0),oldrect%(1)|
00023ba0  2c 6f 6c 64 72 65 63 74  25 28 32 29 2c 6f 6c 64  |,oldrect%(2),old|
00023bb0  72 65 63 74 25 28 33 29  29 0d 0e c3 46 72 65 63  |rect%(3))...Frec|
00023bc0  74 25 28 30 29 3d 70 69  6e 78 25 2d 70 69 6e 6f  |t%(0)=pinx%-pino|
00023bd0  72 67 73 69 7a 65 25 28  70 69 6e 6c 69 6e 6b 25  |rgsize%(pinlink%|
00023be0  28 70 69 6e 63 68 6c 69  6e 6b 25 28 70 69 6e 63  |(pinchlink%(pinc|
00023bf0  68 6f 69 63 65 25 29 2c  30 29 2c 30 29 2d 34 0d  |hoice%),0),0)-4.|
00023c00  0e c4 4a 72 65 63 74 25  28 31 29 3d 70 69 6e 79  |..Jrect%(1)=piny|
00023c10  25 2d 70 69 6e 6f 72 67  73 69 7a 65 25 28 70 69  |%-pinorgsize%(pi|
00023c20  6e 6c 69 6e 6b 25 28 70  69 6e 63 68 6c 69 6e 6b  |nlink%(pinchlink|
00023c30  25 28 70 69 6e 63 68 6f  69 63 65 25 29 2c 30 29  |%(pinchoice%),0)|
00023c40  2c 31 29 2d 34 2d 39 33  36 0d 0e c5 46 72 65 63  |,1)-4-936...Frec|
00023c50  74 25 28 32 29 3d 70 69  6e 78 25 2b 70 69 6e 6f  |t%(2)=pinx%+pino|
00023c60  72 67 73 69 7a 65 25 28  70 69 6e 6c 69 6e 6b 25  |rgsize%(pinlink%|
00023c70  28 70 69 6e 63 68 6c 69  6e 6b 25 28 70 69 6e 63  |(pinchlink%(pinc|
00023c80  68 6f 69 63 65 25 29 2c  30 29 2c 30 29 2b 34 0d  |hoice%),0),0)+4.|
00023c90  0e c6 4a 72 65 63 74 25  28 33 29 3d 70 69 6e 79  |..Jrect%(3)=piny|
00023ca0  25 2b 70 69 6e 6f 72 67  73 69 7a 65 25 28 70 69  |%+pinorgsize%(pi|
00023cb0  6e 6c 69 6e 6b 25 28 70  69 6e 63 68 6c 69 6e 6b  |nlink%(pinchlink|
00023cc0  25 28 70 69 6e 63 68 6f  69 63 65 25 29 2c 30 29  |%(pinchoice%),0)|
00023cd0  2c 31 29 2b 34 2d 39 33  36 0d 0e c7 35 f2 70 6c  |,1)+4-936...5.pl|
00023ce0  6f 74 70 69 6e 62 6f 64  79 28 72 65 63 74 25 28  |otpinbody(rect%(|
00023cf0  30 29 2c 72 65 63 74 25  28 31 29 2c 72 65 63 74  |0),rect%(1),rect|
00023d00  25 28 32 29 2c 72 65 63  74 25 28 33 29 29 0d 0e  |%(2),rect%(3))..|
00023d10  c8 05 e1 0d 0e c9 04 0d  0e ca 1e dd f2 63 72 65  |.............cre|
00023d20  61 74 65 62 61 73 65 62  6f 64 79 28 70 65 72 66  |atebasebody(perf|
00023d30  65 63 74 25 29 0d 0e cb  0e f2 63 6c 70 69 6e 62  |ect%).....clpinb|
00023d40  6f 64 79 0d 0e cc 0c e3  6a 25 3d 30 b8 32 33 0d  |ody.....j%=0.23.|
00023d50  0e cd 16 e7 70 69 6e 64  6f 6e 65 70 61 72 74 25  |....pindonepart%|
00023d60  28 6a 25 29 8c 0d 0e ce  1d f2 63 6f 70 79 65 78  |(j%)......copyex|
00023d70  70 61 6e 64 28 70 69 6e  73 70 72 73 24 28 6a 25  |pand(pinsprs$(j%|
00023d80  29 29 0d 0e cf 2b c8 99  22 4f 53 5f 53 70 72 69  |))...+.."OS_Spri|
00023d90  74 65 4f 70 22 2c 26 31  33 43 2c 62 6f 64 79 61  |teOp",&13C,bodya|
00023da0  72 65 61 25 2c 22 62 6f  64 79 22 2c 30 0d 0e d0  |rea%,"body",0...|
00023db0  bb e7 70 65 72 66 65 63  74 25 3a c8 99 22 4f 53  |..perfect%:.."OS|
00023dc0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 32 2c  |_SpriteOp",&122,|
00023dd0  64 65 74 61 72 65 61 25  2c 70 69 6e 73 70 72 73  |detarea%,pinsprs|
00023de0  24 28 6a 25 29 2c 70 69  6e 63 6f 72 72 65 63 74  |$(j%),pincorrect|
00023df0  70 6f 73 25 28 6a 25 2c  30 29 2c 70 69 6e 63 6f  |pos%(j%,0),pinco|
00023e00  72 72 65 63 74 70 6f 73  25 28 6a 25 2c 31 29 2c  |rrectpos%(j%,1),|
00023e10  38 3a 8b 3a c8 99 22 4f  53 5f 53 70 72 69 74 65  |8:.:.."OS_Sprite|
00023e20  4f 70 22 2c 26 31 32 32  2c 64 65 74 61 72 65 61  |Op",&122,detarea|
00023e30  25 2c 70 69 6e 73 70 72  73 24 28 6a 25 29 2c 70  |%,pinsprs$(j%),p|
00023e40  69 6e 63 68 6f 73 65 6e  70 6f 73 25 28 6a 25 2c  |inchosenpos%(j%,|
00023e50  30 29 2c 70 69 6e 63 68  6f 73 65 6e 70 6f 73 25  |0),pinchosenpos%|
00023e60  28 6a 25 2c 31 29 2c 38  0d 0e d1 26 c8 99 22 4f  |(j%,1),8...&.."O|
00023e70  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
00023e80  2c 62 6f 64 79 61 72 65  61 25 2c 30 2c 30 0d 0e  |,bodyarea%,0,0..|
00023e90  d2 5d c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.].."OS_SpriteOp|
00023ea0  22 2c 26 31 31 39 2c 64  65 74 61 72 65 61 25 2c  |",&119,detarea%,|
00023eb0  70 69 6e 73 70 72 73 24  28 6a 25 29 3a c8 99 22  |pinsprs$(j%):.."|
00023ec0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
00023ed0  39 2c 64 65 74 61 72 65  61 25 2c 70 69 6e 73 70  |9,detarea%,pinsp|
00023ee0  72 73 24 28 6a 25 29 2b  22 6a 22 0d 0e d3 05 cd  |rs$(j%)+"j".....|
00023ef0  0d 0e d4 05 ed 0d 0e d5  05 e1 0d 0e d6 04 0d 0e  |................|
00023f00  d7 13 dd f2 63 72 65 61  74 65 70 69 6e 62 6f 64  |....createpinbod|
00023f10  79 0d 0e d8 0b ea 20 6a  25 2c 6b 25 0d 0e d9 10  |y..... j%,k%....|
00023f20  f2 70 69 6e 62 61 73 65  62 6f 64 79 0d 0e da 2a  |.pinbasebody...*|
00023f30  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00023f40  26 31 33 43 2c 64 65 74  61 72 65 61 25 2c 22 62  |&13C,detarea%,"b|
00023f50  6f 64 79 22 2c 30 0d 0e  db 0b e3 6b 25 3d 30 b8  |ody",0.....k%=0.|
00023f60  33 0d 0e dc b0 e7 70 69  6e 6c 69 6e 6b 25 28 70  |3.....pinlink%(p|
00023f70  69 6e 63 68 6c 69 6e 6b  25 28 70 69 6e 63 68 6f  |inchlink%(pincho|
00023f80  69 63 65 25 29 2c 6b 25  29 3c 3e 2d 31 3a 6a 25  |ice%),k%)<>-1:j%|
00023f90  3d 70 69 6e 6c 69 6e 6b  25 28 70 69 6e 63 68 6c  |=pinlink%(pinchl|
00023fa0  69 6e 6b 25 28 70 69 6e  63 68 6f 69 63 65 25 29  |ink%(pinchoice%)|
00023fb0  2c 6b 25 29 3a c8 99 22  4f 53 5f 53 70 72 69 74  |,k%):.."OS_Sprit|
00023fc0  65 4f 70 22 2c 26 31 32  32 2c 64 65 74 61 72 65  |eOp",&122,detare|
00023fd0  61 25 2c 70 69 6e 73 70  72 73 24 28 6a 25 29 2c  |a%,pinsprs$(j%),|
00023fe0  70 69 6e 78 25 2d 70 69  6e 6f 72 67 73 69 7a 65  |pinx%-pinorgsize|
00023ff0  25 28 6a 25 2c 30 29 2c  70 69 6e 79 25 2d 70 69  |%(j%,0),piny%-pi|
00024000  6e 6f 72 67 73 69 7a 65  25 28 6a 25 2c 31 29 2c  |norgsize%(j%,1),|
00024010  38 0d 0e dd 05 ed 0d 0e  de 25 c8 99 22 4f 53 5f  |8........%.."OS_|
00024020  53 70 72 69 74 65 4f 70  22 2c 26 31 33 43 2c 64  |SpriteOp",&13C,d|
00024030  65 74 61 72 65 61 25 2c  30 2c 30 0d 0e df 05 e1  |etarea%,0,0.....|
00024040  0d 0e e0 04 0d 0e e1 2a  c8 99 22 4f 53 5f 53 70  |.......*.."OS_Sp|
00024050  72 69 74 65 4f 70 22 2c  26 31 33 43 2c 64 65 74  |riteOp",&13C,det|
00024060  61 72 65 61 25 2c 22 62  6f 64 79 22 2c 30 0d 0e  |area%,"body",0..|
00024070  e2 0c e3 6a 25 3d 30 b8  31 35 0d 0e e3 3e 20 e7  |...j%=0.15...> .|
00024080  28 6a 25 3d 70 69 6e 6c  69 6e 6b 25 28 70 69 6e  |(j%=pinlink%(pin|
00024090  63 68 6f 69 63 65 25 2c  30 29 29 84 28 6a 25 3d  |choice%,0)).(j%=|
000240a0  70 69 6e 6c 69 6e 6b 25  28 70 69 6e 63 68 6f 69  |pinlink%(pinchoi|
000240b0  63 65 25 2c 31 29 29 8c  0d 0e e4 6d 20 20 e7 73  |ce%,1))....m  .s|
000240c0  68 6f 77 6d 6f 76 65 25  3a c8 99 22 4f 53 5f 53  |howmove%:.."OS_S|
000240d0  70 72 69 74 65 4f 70 22  2c 26 31 32 32 2c 64 65  |priteOp",&122,de|
000240e0  74 61 72 65 61 25 2c 70  69 6e 73 70 72 73 24 28  |tarea%,pinsprs$(|
000240f0  6a 25 29 2c 70 69 6e 78  25 2d 70 69 6e 6f 72 67  |j%),pinx%-pinorg|
00024100  73 69 7a 65 25 28 6a 25  2c 30 29 2c 70 69 6e 79  |size%(j%,0),piny|
00024110  25 2d 70 69 6e 6f 72 67  73 69 7a 65 25 28 6a 25  |%-pinorgsize%(j%|
00024120  2c 31 29 2c 38 0d 0e e5  06 20 cc 0d 0e e6 19 20  |,1),8.... ..... |
00024130  20 e7 70 69 6e 64 6f 6e  65 70 61 72 74 25 28 6a  | .pindonepart%(j|
00024140  25 29 20 8c 0d 0e e7 20  20 20 20 f2 63 6f 70 79  |%) ....    .copy|
00024150  65 78 70 61 6e 64 28 70  69 6e 73 70 72 73 24 28  |expand(pinsprs$(|
00024160  6a 25 29 29 0d 0e e8 5b  20 20 20 c8 99 22 4f 53  |j%))...[   .."OS|
00024170  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 32 2c  |_SpriteOp",&122,|
00024180  64 65 74 61 72 65 61 25  2c 70 69 6e 73 70 72 73  |detarea%,pinsprs|
00024190  24 28 6a 25 29 2c 70 69  6e 63 68 6f 73 65 6e 70  |$(j%),pinchosenp|
000241a0  6f 73 25 28 6a 25 2c 30  29 2c 70 69 6e 63 68 6f  |os%(j%,0),pincho|
000241b0  73 65 6e 70 6f 73 25 28  6a 25 2c 31 29 2c 38 0d  |senpos%(j%,1),8.|
000241c0  0e e9 60 20 20 20 c8 99  22 4f 53 5f 53 70 72 69  |..`   .."OS_Spri|
000241d0  74 65 4f 70 22 2c 26 31  31 39 2c 64 65 74 61 72  |teOp",&119,detar|
000241e0  65 61 25 2c 70 69 6e 73  70 72 73 24 28 6a 25 29  |ea%,pinsprs$(j%)|
000241f0  3a c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |:.."OS_SpriteOp"|
00024200  2c 26 31 31 39 2c 64 65  74 61 72 65 61 25 2c 70  |,&119,detarea%,p|
00024210  69 6e 73 70 72 73 24 28  6a 25 29 2b 22 6a 22 0d  |insprs$(j%)+"j".|
00024220  0e ea 07 20 20 cd 0d 0e  eb 06 20 cd 0d 0e ec 05  |...  ..... .....|
00024230  ed 0d 0e ed 25 c8 99 22  4f 53 5f 53 70 72 69 74  |....%.."OS_Sprit|
00024240  65 4f 70 22 2c 26 31 33  43 2c 64 65 74 61 72 65  |eOp",&13C,detare|
00024250  61 25 2c 30 2c 30 0d 0e  ee 04 0d 0e ef 2c dd f2  |a%,0,0.......,..|
00024260  70 6c 6f 74 70 69 6e 62  6f 64 79 28 78 6c 6f 77  |plotpinbody(xlow|
00024270  25 2c 79 6c 6f 77 25 2c  78 68 69 67 68 25 2c 79  |%,ylow%,xhigh%,y|
00024280  68 69 67 68 25 29 0d 0e  f0 31 21 62 6c 6b 25 3d  |high%)...1!blk%=|
00024290  70 69 6e 6f 75 74 6c 77  25 3a c8 99 22 57 69 6d  |pinoutlw%:.."Wim|
000242a0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
000242b0  22 2c 2c 62 6c 6b 25 0d  0e f1 32 73 70 78 25 3d  |",,blk%...2spx%=|
000242c0  62 6c 6b 25 21 34 2d 62  6c 6b 25 21 32 30 3a 73  |blk%!4-blk%!20:s|
000242d0  70 79 25 3d 28 62 6c 6b  25 21 31 36 2d 62 6c 6b  |py%=(blk%!16-blk|
000242e0  25 21 32 34 29 2d 39 33  36 0d 0e f2 4b 21 62 6c  |%!24)-936...K!bl|
000242f0  6b 25 3d 70 69 6e 6f 75  74 6c 77 25 3a 62 6c 6b  |k%=pinoutlw%:blk|
00024300  25 21 34 3d 78 6c 6f 77  25 3a 62 6c 6b 25 21 38  |%!4=xlow%:blk%!8|
00024310  3d 79 6c 6f 77 25 3a 62  6c 6b 25 21 31 32 3d 78  |=ylow%:blk%!12=x|
00024320  68 69 67 68 25 3a 62 6c  6b 25 21 31 36 3d 79 68  |high%:blk%!16=yh|
00024330  69 67 68 25 0d 0e f3 28  c8 99 20 22 57 69 6d 70  |igh%...(.. "Wimp|
00024340  5f 55 70 64 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_UpdateWindow",,|
00024350  62 6c 6b 25 20 b8 20 6d  6f 72 65 25 0d 0e f4 0c  |blk% . more%....|
00024360  c8 95 20 6d 6f 72 65 25  0d 0e f5 49 c8 99 20 22  |.. more%...I.. "|
00024370  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00024380  34 2c 64 65 74 61 72 65  61 25 2c 22 62 6f 64 79  |4,detarea%,"body|
00024390  22 2c 73 70 78 25 2c 73  70 79 25 2c 30 2c 70 69  |",spx%,spy%,0,pi|
000243a0  6e 73 63 61 6c 65 25 2c  63 6f 6c 74 72 61 6e 73  |nscale%,coltrans|
000243b0  25 0d 0e f6 28 c8 99 20  22 57 69 6d 70 5f 47 65  |%...(.. "Wimp_Ge|
000243c0  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 62 6c 6b  |tRectangle",,blk|
000243d0  25 20 b8 20 6d 6f 72 65  25 0d 0e f7 05 ce 0d 0e  |% . more%.......|
000243e0  f8 05 e1 0d 0e f9 04 0d  0e fa 0f dd f2 63 6c 70  |.............clp|
000243f0  69 6e 62 6f 64 79 0d 0e  fb 16 f2 61 64 64 62 6f  |inbody.....addbo|
00024400  64 28 62 6f 64 79 61 72  65 61 25 29 0d 0e fc 05  |d(bodyarea%)....|
00024410  e1 0d 0e fd 04 0d 0e fe  11 dd f2 70 69 6e 62 61  |...........pinba|
00024420  73 65 62 6f 64 79 0d 0e  ff 29 c8 99 20 22 4f 53  |sebody...).. "OS|
00024430  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 39 2c  |_SpriteOp",&119,|
00024440  64 65 74 61 72 65 61 25  2c 22 62 6f 64 79 22 0d  |detarea%,"body".|
00024450  0f 00 51 c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..Q.. "OS_Sprite|
00024460  4f 70 22 2c 26 31 30 46  2c 64 65 74 61 72 65 61  |Op",&10F,detarea|
00024470  25 2c 22 62 6f 64 79 22  2c 31 2c 33 31 32 2c 32  |%,"body",1,312,2|
00024480  33 34 2c 31 32 3a f2 61  64 64 70 61 6c 65 74 28  |34,12:.addpalet(|
00024490  64 65 74 61 72 65 61 25  2c 22 62 6f 64 79 22 29  |detarea%,"body")|
000244a0  0d 0f 01 2a c8 99 22 4f  53 5f 53 70 72 69 74 65  |...*.."OS_Sprite|
000244b0  4f 70 22 2c 26 31 33 43  2c 64 65 74 61 72 65 61  |Op",&13C,detarea|
000244c0  25 2c 22 62 6f 64 79 22  2c 30 0d 0f 02 2f c8 99  |%,"body",0.../..|
000244d0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
000244e0  32 32 2c 62 6f 64 79 61  72 65 61 25 2c 22 62 6f  |22,bodyarea%,"bo|
000244f0  64 79 22 2c 30 2c 30 2c  30 0d 0f 03 25 c8 99 22  |dy",0,0,0...%.."|
00024500  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
00024510  43 2c 64 65 74 61 72 65  61 25 2c 30 2c 30 0d 0f  |C,detarea%,0,0..|
00024520  04 05 e1 0d 0f 05 04 0d  0f 06 15 dd f2 63 6f 70  |.............cop|
00024530  79 65 78 70 61 6e 64 28  73 70 24 29 0d 0f 07 1b  |yexpand(sp$)....|
00024540  f2 63 6f 70 79 28 73 70  24 29 3a f2 65 78 70 61  |.copy(sp$):.expa|
00024550  6e 64 28 73 70 24 29 0d  0f 08 05 e1 0d 0f 09 04  |nd(sp$).........|
00024560  0d 0f 0a 0f dd f2 63 6f  70 79 28 73 70 24 29 0d  |......copy(sp$).|
00024570  0f 0b 33 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..3.."OS_SpriteO|
00024580  70 22 2c 26 31 32 38 2c  61 6e 69 6d 61 72 65 61  |p",&128,animarea|
00024590  25 2c 73 70 24 20 b8 20  2c 2c 2c 77 69 25 2c 68  |%,sp$ . ,,,wi%,h|
000245a0  69 25 0d 0f 0c 33 c8 99  20 22 4f 53 5f 53 70 72  |i%...3.. "OS_Spr|
000245b0  69 74 65 4f 70 22 2c 26  31 30 46 2c 64 65 74 61  |iteOp",&10F,deta|
000245c0  72 65 61 25 2c 73 70 24  2c 30 2c 77 69 25 2c 68  |rea%,sp$,0,wi%,h|
000245d0  69 25 2c 31 32 0d 0f 0d  27 c8 99 22 4f 53 5f 53  |i%,12...'.."OS_S|
000245e0  70 72 69 74 65 4f 70 22  2c 26 31 33 43 2c 64 65  |priteOp",&13C,de|
000245f0  74 61 72 65 61 25 2c 73  70 24 2c 30 0d 0f 0e 2c  |tarea%,sp$,0...,|
00024600  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00024610  26 31 32 32 2c 61 6e 69  6d 61 72 65 61 25 2c 73  |&122,animarea%,s|
00024620  70 24 2c 30 2c 30 2c 30  0d 0f 0f 25 c8 99 22 4f  |p$,0,0,0...%.."O|
00024630  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 43  |S_SpriteOp",&13C|
00024640  2c 64 65 74 61 72 65 61  25 2c 30 2c 30 0d 0f 10  |,detarea%,0,0...|
00024650  05 e1 0d 0f 11 04 0d 0f  12 13 dd f2 70 69 6e 64  |............pind|
00024660  65 6c 65 74 65 28 69 25  29 0d 0f 13 08 ea 20 6a  |elete(i%)..... j|
00024670  25 0d 0f 14 0b e3 6a 25  3d 30 b8 33 0d 0f 15 8c  |%.....j%=0.3....|
00024680  e7 70 69 6e 6c 69 6e 6b  25 28 69 25 2c 6a 25 29  |.pinlink%(i%,j%)|
00024690  3c 3e 2d 31 3a c8 99 22  4f 53 5f 53 70 72 69 74  |<>-1:.."OS_Sprit|
000246a0  65 4f 70 22 2c 26 31 31  39 2c 64 65 74 61 72 65  |eOp",&119,detare|
000246b0  61 25 2c 70 69 6e 73 70  72 73 24 28 70 69 6e 6c  |a%,pinsprs$(pinl|
000246c0  69 6e 6b 25 28 69 25 2c  6a 25 29 29 3a c8 99 22  |ink%(i%,j%)):.."|
000246d0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 31  |OS_SpriteOp",&11|
000246e0  39 2c 64 65 74 61 72 65  61 25 2c 70 69 6e 73 70  |9,detarea%,pinsp|
000246f0  72 73 24 28 70 69 6e 6c  69 6e 6b 25 28 69 25 2c  |rs$(pinlink%(i%,|
00024700  6a 25 29 29 2b 22 6a 22  0d 0f 16 05 ed 0d 0f 17  |j%))+"j"........|
00024710  05 e1 0d 0f 18 04 0d 0f  19 14 dd f2 70 69 6e 64  |............pind|
00024720  65 6c 65 74 65 32 28 69  25 29 0d 0f 1a 08 ea 20  |elete2(i%)..... |
00024730  6a 25 0d 0f 1b 0b e3 6a  25 3d 30 b8 33 0d 0f 1c  |j%.....j%=0.3...|
00024740  8e e7 70 69 6e 6c 69 6e  6b 25 28 69 25 2c 6a 25  |..pinlink%(i%,j%|
00024750  29 3c 3e 2d 31 3a c8 99  22 58 4f 53 5f 53 70 72  |)<>-1:.."XOS_Spr|
00024760  69 74 65 4f 70 22 2c 26  31 31 39 2c 64 65 74 61  |iteOp",&119,deta|
00024770  72 65 61 25 2c 70 69 6e  73 70 72 73 24 28 70 69  |rea%,pinsprs$(pi|
00024780  6e 6c 69 6e 6b 25 28 69  25 2c 6a 25 29 29 3a c8  |nlink%(i%,j%)):.|
00024790  99 22 58 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |."XOS_SpriteOp",|
000247a0  26 31 31 39 2c 64 65 74  61 72 65 61 25 2c 70 69  |&119,detarea%,pi|
000247b0  6e 73 70 72 73 24 28 70  69 6e 6c 69 6e 6b 25 28  |nsprs$(pinlink%(|
000247c0  69 25 2c 6a 25 29 29 2b  22 6a 22 0d 0f 1d 05 ed  |i%,j%))+"j".....|
000247d0  0d 0f 1e 05 e1 0d 0f 1f  04 0d 0f 20 17 dd f2 70  |........... ...p|
000247e0  69 6e 63 6f 70 79 65 78  70 61 6e 64 28 69 25 29  |incopyexpand(i%)|
000247f0  0d 0f 21 08 ea 20 6a 25  0d 0f 22 0b e3 6a 25 3d  |..!.. j%.."..j%=|
00024800  30 b8 33 0d 0f 23 3f e7  70 69 6e 6c 69 6e 6b 25  |0.3..#?.pinlink%|
00024810  28 69 25 2c 6a 25 29 3c  3e 2d 31 3a f2 63 6f 70  |(i%,j%)<>-1:.cop|
00024820  79 65 78 70 61 6e 64 28  70 69 6e 73 70 72 73 24  |yexpand(pinsprs$|
00024830  28 70 69 6e 6c 69 6e 6b  25 28 69 25 2c 6a 25 29  |(pinlink%(i%,j%)|
00024840  29 29 0d 0f 24 05 ed 0d  0f 25 05 e1 0d 0f 26 04  |))..$....%....&.|
00024850  0d 0f 27 13 dd f2 61 64  64 62 6f 64 28 61 72 65  |..'...addbod(are|
00024860  61 25 29 0d 0f 28 10 f2  63 6f 70 79 28 22 62 6f  |a%)..(..copy("bo|
00024870  64 22 29 0d 0f 29 2e f2  61 64 64 5f 73 70 28 64  |d")..)..add_sp(d|
00024880  65 74 61 72 65 61 25 2c  22 62 6f 64 22 2c 61 72  |etarea%,"bod",ar|
00024890  65 61 25 2c 22 62 6f 64  79 22 2c 30 2c 30 2c 32  |ea%,"body",0,0,2|
000248a0  29 0d 0f 2a 27 c8 99 22  4f 53 5f 53 70 72 69 74  |)..*'.."OS_Sprit|
000248b0  65 4f 70 22 2c 26 31 31  39 2c 64 65 74 61 72 65  |eOp",&119,detare|
000248c0  61 25 2c 22 62 6f 64 22  0d 0f 2b 05 e1 0d 0f 2c  |a%,"bod"..+....,|
000248d0  04 0d 0f 2d 1b dd a4 73  70 73 63 6f 72 65 64 30  |...-...spscored0|
000248e0  28 6f 72 67 25 2c 43 25  2c 44 25 29 0d 0f 2e 08  |(org%,C%,D%)....|
000248f0  ea 20 6a 25 0d 0f 2f 37  f2 61 64 64 5f 73 70 28  |. j%../7.add_sp(|
00024900  61 6e 69 6d 61 72 65 61  25 2c 22 62 6f 64 73 63  |animarea%,"bodsc|
00024910  31 22 2c 62 6f 64 79 61  72 65 61 25 2c 22 62 6f  |1",bodyarea%,"bo|
00024920  64 79 22 2c 30 2c 30 2c  31 36 29 0d 0f 30 2b c8  |dy",0,0,16)..0+.|
00024930  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  |."OS_SpriteOp",&|
00024940  31 33 43 2c 62 6f 64 79  61 72 65 61 25 2c 22 62  |13C,bodyarea%,"b|
00024950  6f 64 79 22 2c 30 0d 0f  31 0b e3 6b 25 3d 30 b8  |ody",0..1..k%=0.|
00024960  33 0d 0f 32 63 20 e7 70  69 6e 6c 69 6e 6b 25 28  |3..2c .pinlink%(|
00024970  6f 72 67 25 2c 6b 25 29  3c 3e 2d 31 3a 6a 25 3d  |org%,k%)<>-1:j%=|
00024980  70 69 6e 6c 69 6e 6b 25  28 6f 72 67 25 2c 6b 25  |pinlink%(org%,k%|
00024990  29 3a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |):.."OS_SpriteOp|
000249a0  22 2c 26 31 32 32 2c 64  65 74 61 72 65 61 25 2c  |",&122,detarea%,|
000249b0  70 69 6e 73 70 72 73 24  28 6a 25 29 2c 43 25 2c  |pinsprs$(j%),C%,|
000249c0  44 25 2c 38 0d 0f 33 05  ed 0d 0f 34 26 c8 99 22  |D%,8..3....4&.."|
000249d0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 33  |OS_SpriteOp",&13|
000249e0  43 2c 62 6f 64 79 61 72  65 61 25 2c 30 2c 30 0d  |C,bodyarea%,0,0.|
000249f0  0f 35 36 f2 61 64 64 5f  73 70 28 61 6e 69 6d 61  |.56.add_sp(anima|
00024a00  72 65 61 25 2c 22 62 6f  64 73 63 32 22 2c 62 6f  |rea%,"bodsc2",bo|
00024a10  64 79 61 72 65 61 25 2c  22 62 6f 64 79 22 2c 30  |dyarea%,"body",0|
00024a20  2c 30 2c 30 29 0d 0f 36  26 c8 99 22 4f 53 5f 53  |,0,0)..6&.."OS_S|
00024a30  70 72 69 74 65 4f 70 22  2c 26 31 33 43 2c 62 6f  |priteOp",&13C,bo|
00024a40  64 79 61 72 65 61 25 2c  30 2c 30 0d 0f 37 3b c8  |dyarea%,0,0..7;.|
00024a50  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00024a60  26 31 31 38 2c 62 6f 64  79 61 72 65 61 25 2c 22  |&118,bodyarea%,"|
00024a70  62 6f 64 79 22 20 b8 20  2c 2c 41 25 3a 41 25 2b  |body" . ,,A%:A%+|
00024a80  3d 41 25 21 33 32 0d 0f  38 0f 21 73 63 6f 72 65  |=A%!32..8.!score|
00024a90  64 30 25 3d 31 0d 0f 39  0d d6 20 73 63 6f 72 65  |d0%=1..9.. score|
00024aa0  30 25 0d 0f 3a 15 e7 21  73 63 6f 72 65 64 30 25  |0%..:..!scored0%|
00024ab0  3d 30 8c 3a 3d 2d 31 0d  0f 3b 06 3d 30 0d 0f 3c  |=0.:=-1..;.=0..<|
00024ac0  04 0d 0f 3d 04 0d 0f 3e  58 f4 20 2a 2a 2a 2a 2a  |...=...>X. *****|
00024ad0  2a 2a 2a 2a 2a 2a 2a 20  61 70 70 72 6f 78 2e 20  |******* approx. |
00024ae0  35 4b 20 62 6c 6f 63 6b  20 74 6f 20 72 65 73 65  |5K block to rese|
00024af0  72 76 65 20 73 70 61 63  65 20 66 6f 72 20 64 69  |rve space for di|
00024b00  73 6b 20 73 65 63 75 72  69 74 79 20 2a 2a 2a 2a  |sk security ****|
00024b10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 0f 3f  |*************..?|
00024b20  04 0d 0f 40 6c dc 20 22  31 32 33 34 35 36 37 38  |...@l. "12345678|
00024b30  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024b40  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024b50  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024b60  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024b70  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024b80  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 41  |901234567890"..A|
00024b90  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
00024ba0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024bb0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024bc0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024bd0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024be0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024bf0  33 34 35 36 37 38 39 30  22 0d 0f 42 6c dc 20 22  |34567890"..Bl. "|
00024c00  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024c10  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024c20  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024c30  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024c40  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024c50  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024c60  37 38 39 30 22 0d 0f 43  6c dc 20 22 31 32 33 34  |7890"..Cl. "1234|
00024c70  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024c80  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024c90  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024ca0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024cb0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024cc0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024cd0  22 0d 0f 44 6c dc 20 22  31 32 33 34 35 36 37 38  |"..Dl. "12345678|
00024ce0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024cf0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024d00  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024d10  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024d20  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024d30  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 45  |901234567890"..E|
00024d40  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
00024d50  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024d60  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024d70  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024d80  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024d90  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024da0  33 34 35 36 37 38 39 30  22 0d 0f 46 6c dc 20 22  |34567890"..Fl. "|
00024db0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024dc0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024dd0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024de0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024df0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024e00  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024e10  37 38 39 30 22 0d 0f 47  6c dc 20 22 31 32 33 34  |7890"..Gl. "1234|
00024e20  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024e30  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024e40  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024e50  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024e60  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024e70  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024e80  22 0d 0f 48 6c dc 20 22  31 32 33 34 35 36 37 38  |"..Hl. "12345678|
00024e90  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024ea0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024eb0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024ec0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024ed0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024ee0  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 49  |901234567890"..I|
00024ef0  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
00024f00  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024f10  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024f20  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024f30  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024f40  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024f50  33 34 35 36 37 38 39 30  22 0d 0f 4a 04 0d 0f 4b  |34567890"..J...K|
00024f60  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
00024f70  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00024f80  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00024f90  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00024fa0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024fb0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024fc0  33 34 35 36 37 38 39 30  22 0d 0f 4c 6c dc 20 22  |34567890"..Ll. "|
00024fd0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00024fe0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00024ff0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025000  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025010  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025020  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025030  37 38 39 30 22 0d 0f 4d  6c dc 20 22 31 32 33 34  |7890"..Ml. "1234|
00025040  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025050  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025060  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025070  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025080  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025090  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000250a0  22 0d 0f 4e 6c dc 20 22  31 32 33 34 35 36 37 38  |"..Nl. "12345678|
000250b0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
000250c0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000250d0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000250e0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000250f0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025100  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 4f  |901234567890"..O|
00025110  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
00025120  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025130  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025140  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025150  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025160  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025170  33 34 35 36 37 38 39 30  22 0d 0f 50 6c dc 20 22  |34567890"..Pl. "|
00025180  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025190  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000251a0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000251b0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
000251c0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000251d0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000251e0  37 38 39 30 22 0d 0f 51  6c dc 20 22 31 32 33 34  |7890"..Ql. "1234|
000251f0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025200  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025210  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025220  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025230  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025240  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025250  22 0d 0f 52 6c dc 20 22  31 32 33 34 35 36 37 38  |"..Rl. "12345678|
00025260  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025270  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025280  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025290  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000252a0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000252b0  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 53  |901234567890"..S|
000252c0  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
000252d0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000252e0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
000252f0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025300  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025310  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025320  33 34 35 36 37 38 39 30  22 0d 0f 54 6c dc 20 22  |34567890"..Tl. "|
00025330  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025340  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025350  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025360  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025370  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025380  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025390  37 38 39 30 22 0d 0f 55  04 0d 0f 56 6c dc 20 22  |7890"..U...Vl. "|
000253a0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000253b0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000253c0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000253d0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
000253e0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000253f0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025400  37 38 39 30 22 0d 0f 57  6c dc 20 22 31 32 33 34  |7890"..Wl. "1234|
00025410  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025420  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025430  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025440  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025450  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025460  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025470  22 0d 0f 58 6c dc 20 22  31 32 33 34 35 36 37 38  |"..Xl. "12345678|
00025480  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025490  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000254a0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000254b0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000254c0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000254d0  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 59  |901234567890"..Y|
000254e0  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
000254f0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025500  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025510  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025520  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025530  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025540  33 34 35 36 37 38 39 30  22 0d 0f 5a 6c dc 20 22  |34567890"..Zl. "|
00025550  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025560  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025570  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025580  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025590  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000255a0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000255b0  37 38 39 30 22 0d 0f 5b  6c dc 20 22 31 32 33 34  |7890"..[l. "1234|
000255c0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000255d0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000255e0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000255f0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025600  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025610  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025620  22 0d 0f 5c 6c dc 20 22  31 32 33 34 35 36 37 38  |"..\l. "12345678|
00025630  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025640  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025650  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025660  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025670  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025680  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 5d  |901234567890"..]|
00025690  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
000256a0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000256b0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
000256c0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000256d0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000256e0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000256f0  33 34 35 36 37 38 39 30  22 0d 0f 5e 6c dc 20 22  |34567890"..^l. "|
00025700  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025710  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025720  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025730  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025740  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025750  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025760  37 38 39 30 22 0d 0f 5f  6c dc 20 22 31 32 33 34  |7890".._l. "1234|
00025770  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025780  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025790  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000257a0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000257b0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
000257c0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000257d0  22 0d 0f 60 04 0d 0f 61  6c dc 20 22 31 32 33 34  |"..`...al. "1234|
000257e0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000257f0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025800  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025810  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025820  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025830  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025840  22 0d 0f 62 6c dc 20 22  31 32 33 34 35 36 37 38  |"..bl. "12345678|
00025850  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025860  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025870  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025880  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025890  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000258a0  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 63  |901234567890"..c|
000258b0  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
000258c0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000258d0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
000258e0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000258f0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025900  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025910  33 34 35 36 37 38 39 30  22 0d 0f 64 6c dc 20 22  |34567890"..dl. "|
00025920  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025930  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025940  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025950  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025960  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025970  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025980  37 38 39 30 22 0d 0f 65  6c dc 20 22 31 32 33 34  |7890"..el. "1234|
00025990  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000259a0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
000259b0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
000259c0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
000259d0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
000259e0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
000259f0  22 0d 0f 66 6c dc 20 22  31 32 33 34 35 36 37 38  |"..fl. "12345678|
00025a00  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025a10  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025a20  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025a30  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025a40  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025a50  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 67  |901234567890"..g|
00025a60  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
00025a70  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025a80  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025a90  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025aa0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025ab0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025ac0  33 34 35 36 37 38 39 30  22 0d 0f 68 6c dc 20 22  |34567890"..hl. "|
00025ad0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025ae0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025af0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025b00  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025b10  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025b20  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025b30  37 38 39 30 22 0d 0f 69  6c dc 20 22 31 32 33 34  |7890"..il. "1234|
00025b40  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025b50  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025b60  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025b70  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025b80  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025b90  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025ba0  22 0d 0f 6a 6c dc 20 22  31 32 33 34 35 36 37 38  |"..jl. "12345678|
00025bb0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025bc0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025bd0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025be0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025bf0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025c00  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 6b  |901234567890"..k|
00025c10  04 0d 0f 6c 6c dc 20 22  31 32 33 34 35 36 37 38  |...ll. "12345678|
00025c20  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025c30  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025c40  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025c50  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025c60  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025c70  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 6d  |901234567890"..m|
00025c80  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
00025c90  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025ca0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025cb0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025cc0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025cd0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025ce0  33 34 35 36 37 38 39 30  22 0d 0f 6e 6c dc 20 22  |34567890"..nl. "|
00025cf0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025d00  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025d10  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025d20  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025d30  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025d40  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025d50  37 38 39 30 22 0d 0f 6f  6c dc 20 22 31 32 33 34  |7890"..ol. "1234|
00025d60  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025d70  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025d80  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025d90  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025da0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025db0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025dc0  22 0d 0f 70 6c dc 20 22  31 32 33 34 35 36 37 38  |"..pl. "12345678|
00025dd0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025de0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025df0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025e00  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025e10  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025e20  39 30 31 32 33 34 35 36  37 38 39 30 22 0d 0f 71  |901234567890"..q|
00025e30  6c dc 20 22 31 32 33 34  35 36 37 38 39 30 31 32  |l. "123456789012|
00025e40  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025e50  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025e60  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025e70  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025e80  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025e90  33 34 35 36 37 38 39 30  22 0d 0f 72 6c dc 20 22  |34567890"..rl. "|
00025ea0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025eb0  37 38 39 30 31 32 33 34  35 36 37 38 39 30 31 32  |7890123456789012|
00025ec0  33 34 35 36 37 38 39 30  31 32 33 34 35 36 37 38  |3456789012345678|
00025ed0  39 30 31 32 33 34 35 36  37 38 39 30 31 32 33 34  |9012345678901234|
00025ee0  35 36 37 38 39 30 31 32  33 34 35 36 37 38 39 30  |5678901234567890|
00025ef0  31 32 33 34 35 36 37 38  39 30 31 32 33 34 35 36  |1234567890123456|
00025f00  37 38 39 30 22 0d 0f 73  04 0d 0f 74 50 f4 20 2a  |7890"..s...tP. *|
00025f10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00025f50  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 0f 75 04 0d 0f 76  |*********..u...v|
00025f60  04 0d 0f 77 04 0d 0f 78  04 0d 0f 79 04 0d 0f 7a  |...w...x...y...z|
00025f70  04 0d ff                                          |...|
00025f73