Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199402.adf » 9402 » BodyWise/!Bodywise/!runimage

BodyWise/!Bodywise/!runimage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornComputing_199402.adf » 9402
Filename: BodyWise/!Bodywise/!runimage
Read OK:
File size: 25F73 bytes
Load address: 0000
Exec address: 0000
File contents
    0REMOSCLISCSI::SCSIDisc4.$.CoverDisks.!Bodywise.!runimage
    1REM cache%=FALSE:ONERRORGOTO5
    2REM *CACHE ON
    3REM cache%=TRUE
    4REM ONERROROFF
    5*FX220,27
    6
    7PROCsortmemory
    8SYS "Wimp_Initialise",200,&4B534154,"BodyWise" TO wimpver%,taskh%
    9ONERROR PROCerror(REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0,ERR):SYS "Wimp_CloseDown",taskh%,&4B534154:END
   10OSCLI"LOAD <BodyWise$Dir>.code "+STR$~mc%
   11PROCmc_starts
   12PROCsortsprites
   13PROCinitiallise
   14PROCmodechange
   15REMPROCerror(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)
   16PROCbaricon
   17ON ERROR PROCerror(REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0,ERR)
   18REPEAT PROCevent:UNTIL quit%
   19SYS "Wimp_CloseDown",taskh%,&4B534154
   20REMPRINT QUIT
   21*QUIT
   22REMSYS"OS_Exit",errblk%
   23END
   24REMSTOP
   25
   26DEFPROCmc_starts
   27outline%=!mc%
   28clearbody%=mc%!&04
   29animcl%=mc%!&08
   30animbdr%=mc%!&0C
   31sp_on_body%=mc%!&10
   32expandsp%=mc%!&14
   33crunchsp%=mc%!&18
   34cspname%=mc%!&1C
   35nspname%=mc%!&20
   36animdull%=mc%!&24
   37score0%=mc%!&28
   38scored0%=mc%!&2C
   39bluetowhite%=mc%!&30
   40ENDPROC
   41
   42DEFPROCsortmemory
   43REM work%=&9000:MAXWINDIND%=4096:MAXWINDSTR%=4096:SPRITESEXT%=8000:REM pdbs%=&40000 ??
   44REM work%=&9000:MAXWINDIND%=4808:MAXWINDSTR%=5864:SPRITESEXT%=8000:REM pdbs%=&40000 ??
   45work%=&9000:MAXWINDIND%=11920:MAXWINDSTR%=13008:SPRITESEXT%=8000:REM pdbs%=&40000 ??
   46windind%=work%:windstr%=windind%+MAXWINDIND%
   47windptrlist%=windstr%+MAXWINDSTR%:wptrlist%=windptrlist%+80:B%=windstr%
   48mc%=&F200:bodyarea%=&FA00:sparea%=&1E200:detarea%=&50200:animarea%=&62200
   49ENDPROC
   50
   51DEFPROCsortsprites
   52!bodyarea%=58*1024:bodyarea%!8=16
   53SYS "OS_SpriteOp",&109,bodyarea%
   54SYS "OS_SpriteOp",&10F,bodyarea%,"body",1,312,365,12
   55!sparea%=200*1024:sparea%!8=16
   56SYS "OS_SpriteOp",&109,sparea%
   57SYS "OS_SpriteOp",&10A,sparea%,"<BodyWise$Dir>.sprites"
   58SYS "OS_SpriteOp",&10B,sparea%,"<BodyWise$Dir>.body_sp1_c"
   59SYS "OS_SpriteOp",&10B,sparea%,"<BodyWise$Dir>.body_sp2_c"
   60SYS "OS_SpriteOp",&10B,sparea%,"<BodyWise$Dir>.eight_c"
   61!detarea%=72*1024:detarea%!8=16
   62SYS "OS_SpriteOp",&109,detarea%
   63!animarea%=30*1024:animarea%!8=16
   64SYS "OS_SpriteOp",&109,animarea%
   65REM may not need SYS "OS_SpriteOp",&10A,animarea%,"<BodyWise$Dir>.pinbuts"
   66DIM scale% 16:!scale%=1:scale%!4=1:scale%!8=1:scale%!12=1
   67DIM bodscale% 16:!bodscale%=1:bodscale%!4=1:bodscale%!8=1:bodscale%!12=1:spscale%=1
   68DIM coltrans% 16,sppalet% 128,sysbut$(15)
   69RESTORE +0
   70DATA &FFFFFF00,&FFFFFF00,&DDDDDD00,&DDDDDD00,&BBBBBB00,&BBBBBB00,&99999900,&99999900,&77777700,&77777700,&55555500,&55555500,&33333300,&33333300,&0,&0
   71DATA &99440000,&99440000,&EEEE00,&EEEE00,&CC0000,&CC0000,&DD00,&DD00,&BBEEEE00,&BBEEEE00,&885500,&885500,&BBFF00,&BBFF00,&FFBB0000,&FFBB0000
   72FORk%=0TO31:READ a%:sppalet%!(4*k%)=a%:NEXT
   73RESTORE +0
   74DATA 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
   75FORk%=0TO15:READsysbut$(k%):NEXT
   76PROCexpandbuts
   77PROCaddpalet(bodyarea%,"body"):PROCcl_body(15)
   78ENDPROC
   79
   80DEFPROCoutlinebody
   81SYS "OS_SpriteOp",&118,bodyarea%,"body" TO ,,A%:A%+=A%!32
   82SYS "OS_SpriteOp",&118,sparea%,"muscright" TO ,,B%:B%+=B%!32
   83CALL outline%
   84ENDPROC
   85
   86DEFPROCcl_body(C%)
   87SYS "OS_SpriteOp",&118,bodyarea%,"body" TO ,,A%:A%+=A%!32
   88CALL clearbody%
   89ENDPROC
   90
   91DEFPROCwhite_body
   92SYS "OS_SpriteOp",&118,bodyarea%,"body" TO ,,A%:A%+=A%!32
   93CALL bluetowhite%
   94ENDPROC
   95
   96DEFPROCcl_anim(D%)
   97SYS "OS_SpriteOp",&118,animarea%,"anim" TO ,,A%:A%+=A%!32
   98SYS "OS_SpriteOp",&128,animarea%,"anim" TO ,,,B%,C%:B%=B%/2
   99FORs%=2TO4:D%=D%OR(D%<<(2^s%)):NEXT
  100CALL animcl%
  101ENDPROC
  102
  103DEFPROCdullanim(C%,le%,lo%,ri%,hi%)
  104SYS "OS_SpriteOp",&118,animarea%,"anim" TO ,,A%:A%+=A%!32
  105D%=((le%-4)/4)-1
  106E%=(612-(lo%-4))/4
  107F%=((ri%+2)/4)-1
  108G%=(612-(hi%+2))/4
  109CALL animdull%
  110ENDPROC
  111
  112DEFPROCanim_bdr(spn$)
  113IFspn$="anim"THEN
  114SYS "OS_SpriteOp",&118,animarea%,"anim" TO ,,A%:A%+=A%!32
  115SYS "OS_SpriteOp",&128,animarea%,"anim" TO ,,,B%,C%:B%=B%/2
  116ELSE
  117SYS "OS_SpriteOp",&118,detarea%,spn$ TO ,,A%:A%+=A%!32
  118SYS "OS_SpriteOp",&128,detarea%,spn$ TO ,,,B%,C%:B%=B%/2
  119ENDIF
  120CALL animbdr%
  121ENDPROC
  122
  123DEFPROCadd_sp(areafrom%,spfrom$,areato%,spto$,C%,D%,G%)
  124LOCAL H%
  125SYS "OS_SpriteOp",&118,areato%,spto$ TO ,,A%:A%+=A%!32
  126SYS "OS_SpriteOp",&128,areato%,spto$ TO ,,,H%:H%=H%/2
  127SYS "OS_SpriteOp",&118,areafrom%,spfrom$ TO ,,B%:B%+=B%!32
  128CALL sp_on_body%
  129ENDPROC
  130
  131DEFPROCexpandbuts
  132FOR sy%=0TO15
  133SYS"OS_SpriteOp",&118,sparea%,sysbut$(sy%) TO ,,cspimage%
  134cspimage%+=cspimage%!32
  135SYS"OS_SpriteOp",&10F,sparea%,sysbut$(sy%)+"q",0,!cspimage%*2,cspimage%!4,12
  136IF((cspimage%?8)AND&10)<>0:SYS"OS_SpriteOp",&11D,sparea%,sysbut$(sy%)+"q"
  137FORlett%=1TO9:?(cspname%+(lett%-1))=ASC(MID$(sysbut$(sy%),lett%,1)):?(nspname%+(lett%-1))=ASC(MID$(sysbut$(sy%),lett%,1)):NEXT
  138FORlett%=10TO12:?(cspname%+(lett%-1))=&00:NEXT
  139?(nspname%+9)=&71
  140FORlett%=11TO12:?(nspname%+(lett%-1))=&00:NEXT
  141G%=sparea%
  142CALL expandsp%
  143SYS"OS_SpriteOp",&119,sparea%,sysbut$(sy%)
  144SYS"OS_SpriteOp",&11A,sparea%,sysbut$(sy%)+"q",sysbut$(sy%)
  145NEXT
  146ENDPROC
  147
  148DEFPROCexpand(spn$)
  149REM create sprite "j" size 5 bytes to store the size of the compacted sprite & mask byte
  150SYS"OS_SpriteOp",&10F,detarea%,spn$+"j",0,10,1,12
  151SYS"OS_SpriteOp",&118,detarea%,spn$+"j" TO ,,image%
  152image%+=image%!32
  153SYS"OS_SpriteOp",&118,detarea%,spn$ TO ,,cspimage%
  154!image%=((cspimage%!16)+1)*8 : REM size in pixels
  155cspimage%+=cspimage%!32
  156image%?4=cspimage%?8 : REM store mask byte
  157REM create sprite "q" (temporarily) to expand into
  158SYS"OS_SpriteOp",&10F,detarea%,spn$+"q",0,!cspimage%*2,cspimage%!4,12
  159IF((cspimage%?8)AND&10)<>0:SYS"OS_SpriteOp",&11D,detarea%,spn$+"q"
  160FORlett%=1TOLEN(spn$):?(cspname%+(lett%-1))=ASC(MID$(spn$,lett%,1)):?(nspname%+(lett%-1))=ASC(MID$(spn$,lett%,1)):NEXT
  161IFLEN(spn$)<11:FORlett%=LEN(spn$)+1TO12:?(cspname%+(lett%-1))=&00:NEXT
  162?(nspname%+LEN(spn$))=&71
  163IFLEN(spn$)<10:FORlett%=LEN(spn$)+2TO12:?(nspname%+(lett%-1))=&00:NEXT
  164G%=detarea%
  165CALL expandsp%
  166REM delete original (compacted) sprite, rename "q" sprite to orig.
  167SYS"OS_SpriteOp",&119,detarea%,spn$
  168SYS"OS_SpriteOp",&11A,detarea%,spn$+"q",spn$
  169REM need to reset G% for drawit use ??
  170ENDPROC
  171
  172DEFPROCcompact(spn$)
  173REM create sprite "q" (temporary) to be compacted into (size details stored in sprite "j")
  174SYS"OS_SpriteOp",&118,detarea%,spn$+"j" TO ,,image%
  175image%+=image%!32:mask%=image%?4
  176SYS"OS_SpriteOp",&10F,detarea%,spn$+"q",0,!image%,1,12
  177SYS"OS_SpriteOp",&118,detarea%,spn$+"q" TO ,,image%
  178image%+=image%!32
  179SYS"OS_SpriteOp",&128,detarea%,spn$ TO ,,,!image%,image%!4
  180!image%=!image%/2:image%?8=mask%
  181FORlett%=1TOLEN(spn$):?(nspname%+(lett%-1))=ASC(MID$(spn$,lett%,1)):?(cspname%+(lett%-1))=ASC(MID$(spn$,lett%,1)):NEXT
  182IFLEN(spn$)<11:FORlett%=LEN(spn$)+1TO12:?(nspname%+(lett%-1))=&00:NEXT
  183?(cspname%+LEN(spn$))=&71
  184IFLEN(spn$)<10:FORlett%=LEN(spn$)+2TO12:?(cspname%+(lett%-1))=&00:NEXT
  185G%=detarea%
  186CALL crunchsp%
  187REM delete original (normal) sprite and "j" sprite, rename "q" sprite to orig.
  188SYS"OS_SpriteOp",&119,detarea%,spn$:SYS"OS_SpriteOp",&119,detarea%,spn$+"j"
  189SYS"OS_SpriteOp",&11A,detarea%,spn$+"q",spn$
  190REM need to reset G% for drawit use ??
  191ENDPROC
  192
  193DEFPROCinitiallise
  194DIM blk% 256,ibname% 20,errblk% 200,menu% 1024,blk2% 256,input_disk_name% 12,txtbuff% 1024
  195DIM pdrect% 16,pdrect2% 16,pdtrans% 16,pdplot% 8
  196DIM ctrans% 256,paltab% 64,SCALE% 16
  197DIM defaultdata%(3,2)
  198RESTORE:quit%=FALSE
  199wptr1%=windstr%:wptr2%=windind%:windcount%=1
  200SYS "Wimp_OpenTemplate",,"<BodyWise$Dir>.Templates"
  201PROCload_template("proginfo"):PROCload_template("setup")
  202PROCload_template("overview"):PROCload_template("systdefn")
  203PROCload_template("bodyoutl"):PROCload_template("message")
  204PROCload_template("animate"):PROCload_template("systems")
  205REMPROCload_template("paintdbox")
  206PROCload_template("editdbox")
  207PROCload_template("pinorgs"):PROCload_template("pinoutl")
  208PROCload_template("orgdefn")
  209PROCload_template("savebody")
  210PROCload_template("printbody")
  211PROCload_template("saveanim")
  212PROCload_template("printanim")
  213SYS "Wimp_CloseTemplate"
  214REMPROCerror(STR$(windind%+MAXWINDIND%-wptr2%)+" "+STR$(windstr%+MAXWINDSTR%-wptr1%),0)
  215REM may not needSYS "OS_SpriteOp",&109,animarea%:REM needed to blank out pinbuts sprite file
  216maxsp%=53:DIM bodysp$(maxsp%),bodysp%(maxsp%,3),sysb%(7,1),sysbarea%(7,3),link$(23),animfile$(24,1),butdef%(2,3)
  217DIM ovlines$(9),systemlabels$(9),system_on%(7),systlink$(8),systbodysp%(maxsp%),buttype%(24)
  218DIM 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)
  219DIM bodybox%(43,2),bodyboxlab$(43),animbox%(43,1),bwfile$(24)
  220DIM candpos%(17,1)
  221DIM olf1$(16),olf2$(3),temp$(16),smell%(16),whicholf2%(16)
  222DIM spkmax%(10),skpain%(6,1),skpress%(8,1),skheat1%(10,1),skheat2%(5,1),sktouch%(16,1)
  223DIM harr%(22,1),hanim$(37)
  224DIM canal%(10,3),cochlea%(17,3),spark%(2,1)
  225DIM axon1%(7,1),cell%(3,1),axon2%(20,1),tail%(3,1),neuron1%(9,1),neuron3%(17,1),neuron5%(6,1)
  226DIM babyegg%(8,1),peregg%(7,1)
  227PROCfill_arrays
  228a$=FNconverttolower(FNreadsysvar("BodyWise$Dir"))
  229IFINSTR(a$,"adfs::bodywise")<>0 Y%=0 ELSEY%=1
  230SYS "Wimp_CreateWindow",,wptrlist%!0 TO infow%
  231SYS "Wimp_CreateWindow",,wptrlist%!4 TO setupw%
  232SYS "Wimp_CreateWindow",,wptrlist%!8 TO overw%
  233SYS "Wimp_CreateWindow",,wptrlist%!12 TO defnw%
  234SYS "Wimp_CreateWindow",,wptrlist%!16 TO bodyw%
  235SYS "Wimp_CreateWindow",,wptrlist%!20 TO msgw%
  236SYS "Wimp_CreateWindow",,wptrlist%!24 TO animw%
  237SYS "Wimp_CreateWindow",,wptrlist%!28 TO systw%
  238REMSYS "Wimp_CreateWindow",,wptrlist%!32 TO pdboxw%
  239SYS "Wimp_CreateWindow",,wptrlist%!32 TO edboxw%
  240SYS "Wimp_CreateWindow",,wptrlist%!36 TO pinorgsw%
  241SYS "Wimp_CreateWindow",,wptrlist%!40 TO pinoutlw%
  242SYS "Wimp_CreateWindow",,wptrlist%!44 TO orgdefnw%
  243SYS "Wimp_CreateWindow",,wptrlist%!48 TO sabodyw%
  244SYS "Wimp_CreateWindow",,wptrlist%!52 TO prbodyw%
  245SYS "Wimp_CreateWindow",,wptrlist%!56 TO saanimw%
  246SYS "Wimp_CreateWindow",,wptrlist%!60 TO pranimw%
  247d%=wptrlist%!8:fixedwidth%=(d%!8)-(!d%)
  248PROCselecticn(overw%,0,TRUE):PROCselecticn(systw%,0,TRUE)
  249PROCselecticn(setupw%,47,TRUE):PROCselecticn(setupw%,48,FALSE)
  250PROCselecticn(setupw%,33,TRUE):PROCselecticn(setupw%,34,FALSE)
  251PROCselecticn(setupw%,3,TRUE):PROCselecticn(setupw%,2,FALSE)
  252PROCselecticn(setupw%,11,TRUE):PROCselecticn(setupw%,12,FALSE)
  253FORj%=15TO30:PROCselecticn(setupw%,j%,FALSE):NEXT
  254FORj%=37TO44:PROCselecticn(setupw%,j%,FALSE):NEXT
  255activesysticn%=0:systclick%=10:activeorgicn%=-1
  256firsttime%=TRUE:currmenu%=0:sexon%=0
  257PROCinitbodylabels:PROChidebodylabels
  258PROCinitanimw:PROCanimbuts_onoff
  259PROChideicn(systw%,3,TRUE)
  260PROCshadeicn(overw%,4,TRUE):PROCshadeicn(overw%,5,TRUE)
  261FORj%=10TO27:PROCshadeicn(overw%,j%,TRUE):NEXT
  262FORj%=15TO20:PROCselecticn(setupw%,j%,TRUE):NEXT
  263PROCselecticn(setupw%,23,TRUE):PROCselecticn(setupw%,26,TRUE)
  264PROCselecticn(setupw%,12,TRUE):PROCselecticn(setupw%,11,FALSE)
  265REM ************ pin the body part ***************
  266doingpinpart%=FALSE:pinnoof%=0
  267DIM 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
  268REM DIM screct%(3,3)
  269RESTORE +0
  270DATA "Select a body part to","place on the outline."
  271DATA "Move the mouse to the","body outline."
  272DATA "Place the part and click","to fix in position."
  273DATA "Select a body part to redo","or select OK to score."
  274FORj%=0TO3:FORk%=0TO1:READ pinmess$(j%,k%):NEXT:NEXT
  275RESTORE +0
  276DATA "Ribcage       : ","Pelvis        : ","Brain         : ","Eye           : ","Spinal cord   : ","Heart         : "
  277DATA "Lungs         : ","Diaphragm     : ","Stomach       : ","Liver         : ","Pancreas      : ","Intestines    : ","Kidneys       : ","Bladder       : ","Female organs : ","Male organs   : "
  278FORk%=0TO15:READ pinpart$(k%):NEXT
  279RESTORE +0
  280DATA "ribcage  ","pelvis  ","brain  ","eye  ","spinal cord   ","heart  ","lungs  ","diaphragm   ","stomach  ","liver  ","pancreas  ","intestines   ","kidneys  ","bladder  ","female organs   ","male organs   "
  281FORk%=0TO15:READ pinbut$(k%):NEXT
  282RESTORE +0
  283DATA 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
  284FORj%=0TO23:FORk%=0TO1:READ pinorgsize%(j%,k%):NEXT:NEXT
  285RESTORE +0
  286DATA cord,360,240
  287DATA ribback,260,416
  288DATA hipbone,236,168
  289DATA diaph_b,276,424
  290DATA brain,304,780
  291DATA eye,312,812
  292DATA kidneys,284,360
  293DATA rectum,252,160
  294DATA uterus,308,168
  295DATA seminal,300,104
  296DATA bladder,332,172
  297DATA prostate,300,104
  298DATA pancreas,332,360
  299DATA stomach,332,368
  300DATA liver,268,388
  301DATA diaph_f,276,424
  302DATA heart,340,504
  303DATA lungs,268,464
  304DATA intestines,252,160
  305DATA ribfront,260,416
  306DATA pubis,236,168
  307DATA vas_def,300,104
  308DATA vagina,308,168
  309DATA penis,300,104
  310FORj%=0TO23:READ pinsprs$(j%):READ pincorrectpos%(j%,0):READ pincorrectpos%(j%,1):NEXT
  311RESTORE +0
  312DATA 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
  313DATA 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
  314FORj%=0TO15:FORk%=0TO3:READ pinlink%(j%,k%):NEXT:NEXT
  315REMPROCrandompin
  316REMRESTORE +0
  317REMDATA 208,128,520,328,228,332,496,484,164,488,572,692,270,696,484,920
  318REMFORj%=0TO3:FORk%=0TO3:READ screct%(j%,k%):NEXT:NEXT
  319ENDPROC
  320
  321DEFPROCinitbodylabels
  322FORk%=0TO43:PROCselecticn(bodyw%,k%,FALSE):NEXT
  323ENDPROC
  324
  325DEFPROChidebodylabels
  326FORk%=0TO43:PROChideicn(bodyw%,k%,TRUE):NEXT
  327labelson%=10
  328ENDPROC
  329
  330DEFPROCinitanimw
  331activeicn%=-1:doingmove%=FALSE:firstmove%=FALSE:activetxticn%=0:activew%=0:doingcloser%=FALSE:firstcloser%=FALSE:texton%=0:textnewon%=0:onlyfem%=0
  332FORk%=5TO49:PROChideicn(animw%,k%,TRUE):PROCselecticn(animw%,k%,FALSE):NEXT
  333ENDPROC
  334
  335DEFPROChideicn(w%,i%,f%)
  336!blk%=w%:blk%!4=i%:blk%!12=1<<23
  337IFf% blk%!8=1<<23:ELSE:blk%!8=0
  338SYS "Wimp_SetIconState",,blk%
  339ENDPROC
  340
  341DEFPROCfill_arrays
  342RESTORE +0
  343DATA skullback,68,5
  344DATA nerves_b,58,38
  345DATA skeleton,0,40
  346DATA hipbone,52,142
  347DATA diaph_b,87,107
  348DATA pit_pin,88,24
  349DATA brain,76,9
  350DATA senses,73,22
  351DATA mouth,73,34
  352DATA oesophagus,88,40
  353DATA trachea,85,39
  354DATA thyroid,88,56
  355DATA skull,68,5
  356DATA lymph_b,68,67
  357DATA adrenals,78,123
  358DATA kidneys,73,127
  359DATA blood,0,0
  360DATA rectum,86,170
  361DATA ovaries,81,179
  362DATA uterus,79,175
  363DATA ureter,76,131
  364DATA seminal,85,178
  365DATA bladder,84,177
  366DATA prostate,87,186
  367DATA spleen,108,113
  368DATA pancreas,84,131
  369DATA stomach,84,108
  370DATA gall,80,126
  371DATA liver,68,112
  372DATA diaph_f,70,103
  373DATA heart,84,81
  374DATA lungs,69,70
  375DATA intestines,64,132
  376DATA thymus,92,76
  377DATA ribsside,64,63
  378DATA ribsfront,72,66
  379DATA pubis,78,178
  380DATA vas_def,76,174
  381DATA nerves_f,0,9
  382DATA lymph_f,4,9
  383DATA muscleft,89,41
  384DATA muscfront,90,62
  385DATA muscright,0,0
  386DATA vagina,79,187
  387DATA testes,86,200
  388DATA penis,82,187
  389DATA skinarmr,0,137
  390DATA skinarml,128,141
  391DATA skinlegs,65,248
  392DATA skin,39,0
  393REMDATA breastsw,36,0
  394REMDATA hipsw,48,150
  395DATA breastsw,0,0
  396DATA hipsw,0,0
  397DATA sense,78,23
  398DATA eyelid,78,23
  399FOR s%=0TOmaxsp%:READ bodysp$(s%),bodysp%(s%,1),bodysp%(s%,2):NEXT
  400bodysp%(3,3)=15:bodysp%(12,3)=15:bodysp%(17,3)=15:bodysp%(32,3)=15
  401bodysp%(42,3)=8
  402RESTORE +0
  403DATA "02,03,12,34,35,36"    :REM skeleton
  404DATA "40,41,42"             :REM muscles
  405DATA "06"                   :REM brain
  406DATA "01,38"                :REM nerves
  407DATA "46,47,48,49,50,51,53" :REM skin
  408DATA "07,52"                :REM senses
  409DATA "16"                   :REM blood
  410DATA "30"                   :REM heart
  411DATA "13,24,33,39"          :REM lymph
  412DATA "10"                   :REM trachea
  413DATA "31"                   :REM lungs
  414DATA "04,29"                :REM diaphragm
  415DATA "08"                   :REM mouth
  416DATA "09"                   :REM oesophagus
  417DATA "26"                   :REM stomach
  418DATA "28"                   :REM liver
  419DATA "27"                   :REM gall
  420DATA "25"                   :REM pancreas
  421DATA "17,32"                :REM intestines
  422DATA "15"                   :REM kidneys
  423DATA "22"                   :REM bladder
  424DATA "46,47,48,49,50,51,53" :REM skin
  425DATA "05,11,14,18,25,33,44" :REM endocrine glands
  426DATA "18,19,21,23,37,43,44,45" :REM reprod organs
  427FOR s%=0TO23:READ link$(s%):NEXT
  428RESTORE +0
  429DATA "02,03,12,34,35,36,40,41"    :REM musculo-skeletal on own
  430DATA "01,06,07,38,46,47,48,52"    :REM nervous
  431DATA "13,16,24,30,33,39"          :REM blood & lymph
  432DATA "04,10,29,31"                :REM respiratory
  433DATA "08,09,17,25,26,27,28,32"    :REM digestive
  434DATA "15,20,22,46,47,48"          :REM excretory
  435DATA "05,11,14,18,25,33,44"      :REM endocrine
  436DATA "18"                         :REM reproductive (not complete - done in PROCchecksystsex)
  437DATA "00,02,03,34,36,40"          :REM musculo-skeletal with another system
  438FOR s%=0TO8:READ systlink$(s%):NEXT
  439RESTORE +0
  440DATA 12,656,370,656,50,436,352,436,44,220,312,220,14,4,290,4
  441FOR s%=0TO7:FOR r%=0TO1:READ sysb%(s%,r%):NEXT:NEXT
  442RESTORE +0
  443DATA 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
  444FOR s%=0TO7:FOR r%=0TO3:READ sysbarea%(s%,r%):NEXT:NEXT
  445REM max. size anim window title = 19 chars
  446RESTORE +0
  447DATA "brain","09,the brain"
  448DATA "mouth","09,the mouth"
  449DATA "eye","07,the eye"
  450DATA "endo","19,the pituitary gland"
  451DATA "nosetong","17,the nose & tongue"
  452DATA "artvein","16,arteries & veins"
  453DATA "skin","13,touch sensors"
  454DATA "heart","09,the heart"
  455DATA "bone","05,bones"
  456DATA "kidney","11,the kidneys"
  457DATA "liver","16,liver & pancreas"
  458DATA "joint","06,joints"
  459DATA "stomach","11,the stomach"
  460DATA "lungs","18,respiratory system"
  461DATA "repcoup","14,making a baby"
  462DATA "bladder","17,bladder & urethra"
  463DATA "lymph","11,lymph nodes"
  464DATA "smintest","17,the small intestine"
  465DATA "lgintest","17,the large intestine"
  466DATA "repfemal","16,ovaries & uterus"
  467DATA "repmale","14,penis & testes"
  468DATA "ear","07,the ear"
  469DATA "muscle","16,skeletal muscles"
  470DATA "nerves","06,nerves"
  471DATA "skin","12,sweat glands"
  472FOR s%=0TO24:FOR r%=0TO1:READ animfile$(s%,r%):NEXT:NEXT
  473RESTORE +0
  474DATA 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
  475FOR s%=0TO24:READ bwfile$(s%):NEXT
  476RESTORE +0
  477DATA 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
  478REM 1=closer,cross_section  2=cross-section,closer 3=closer,new-view 4=x-section,circulation 5=new-view,closer 6=xs,childbirth
  479FORs%=0TO24:READ buttype%(s%):NEXT
  480RESTORE +0
  481REM body overview label line data
  482DATA "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"
  483DATA "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"
  484DATA "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"
  485DATA "04,0220,0874,0320,1070,0246,0924,0322,0980,0140,1260,0380,1220,0162,1312,0348,1298"
  486REMDATA "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"
  487DATA "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"
  488DATA "04,0500,1042,0412,0918,0278,0756,0362,0726,0278,0756,0364,0694,0132,1132,0154,0868"
  489DATA "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"
  490DATA "03,0260,0632,0364,0676,0308,0652,0350,0650,0464,0714,0366,0706"
  491DATA "03,0234,0632,0364,0734,0304,0690,0332,0728,0488,0719,0364,0707"
  492DATA "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"
  493FORs%=0TO9:READ ovlines$(s%):NEXT
  494RESTORE +0
  495REM body system label icon numbers
  496DATA "07,08,11,22,25,26,27,42"
  497DATA "07,21,00,06,02,04,23,28"
  498DATA "05,05,07,16,29,30"
  499DATA "03,13,31,32"
  500DATA "08,01,10,12,17,18,33,34,43"
  501DATA "03,09,15,24"
  502DATA "07,03,37,29,38,40,41,43"
  503DATA "02,20,35"
  504DATA "02,19,36"
  505DATA "07,03,37,29,38,39,41,43"
  506FORs%=0TO9:READ systemlabels$(s%):NEXT
  507RESTORE +0
  508DATA "The Musculo-skeletal system :-"
  509DATA " - gives support and movement to the whole body;"
  510DATA " - protects delicate organs behind bones."
  511DATA "The Nervous system :-"
  512DATA " - controls most body processes;"
  513DATA " - lets us understand and be aware of things."
  514DATA "The Blood and Lymph system :-"
  515DATA " - provides transport to nearly every cell;"
  516DATA " - carries food, waste, oxygen, carbon dioxide,"
  517DATA "   disease fighters, hormones and much more."
  518DATA "The Respiratory system :-"
  519DATA " - gives blood oxygen and removes carbon dioxide."
  520DATA "The Digestive system :-"
  521DATA " - breaks down food into chemicals used by cells."
  522DATA "The Excretory system :-"
  523DATA " - cleans the body of waste material."
  524DATA "The Endocrine system :-"
  525DATA " - secretes hormones that control body processes."
  526DATA "The Male Reproductive system :-"
  527DATA " - produces sperm to place inside the female."
  528DATA "The Female Reproductive system :-"
  529DATA " - produces eggs and grows babies."
  530FORs%=0TO21:READ systwords$(s%):NEXT
  531RESTORE +0
  532REM spine 25 (simple)
  533DATA "The spine or backbone is made of 26 small bones called vertebrae. Joints between the vertebrae allow the spine the bend easily."
  534REM spine 25
  535DATA "The spine or vertebral column or backbone is made of 26 small bones called vertebrae. Joints between the vertebrae enable the spine to bend."
  536REM pelvis 26 (simple)
  537DATA "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."
  538REM pelvis 26
  539DATA "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."
  540REM ligaments 27 (simple)
  541DATA "Ligaments are very strong 'cords'. They are made of strong fibres and join together many things such as two bones making a joint."
  542REM ligaments 27
  543DATA "Ligaments are very strong 'cords'. They are made of strong fibres and join together many things such as two bones making a joint."
  544REM spinal cord 28 (simple)
  545DATA "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."
  546REM spinal cord 28
  547DATA "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."
  548REM thymus 29 (simple)
  549DATA "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."
  550REM thymus 29
  551DATA "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."
  552REM spleen 30 (simple)
  553DATA "The spleen helps make white blood cells that fight diseases."
  554REM spleen 30
  555DATA "The spleen helps make white blood cells that fight diseases. It also destroys old red blood cells that no longer work properly."
  556REM trachea 31 (simple)
  557DATA "The trachea or windpipe is the tube from the back of the throat to the lungs. When we breath air goes through this tube."
  558REM trachea 31
  559DATA "The trachea or windpipe is the tube from the back of the throat to the lungs. When we breath air goes through this tube."
  560REM epiglottis 32 (simple)
  561DATA "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."
  562REM epiglottis 32
  563DATA "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."
  564REM oesophagus 33 (simple)
  565DATA "The oesophagus is the tube from the back of the throat to the stomach. Food passes to the stomach down this tube."
  566REM oesophagus 33
  567DATA "The oesophagus is the tube from the back of the throat to the stomach. Food passes to the stomach down this tube."
  568REM gall bladder 34 (simple)
  569DATA "The gall bladder is a small hollow organ which stores a special juice made in the liver (see liver)."
  570REM gall bladder 34
  571DATA "The gall bladder is a small hollow organ which stores and concentrates bile, a special juice made in the liver (see liver)."
  572REM prostate 35 (simple)
  573DATA "The prostate gland makes a juice that mixes with the male sex cells (sperm) to help them live inside the woman's body."
  574REM prostate 35
  575DATA "The prostate gland makes an alkaline liquid that mixes with the male sex cells (sperm) to help them survive inside the woman's body."
  576REM vagina 36 (simple)
  577DATA "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."
  578REM vagina 36
  579DATA "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."
  580REM thyroid 37 (simple)
  581DATA "The thyroid gland makes hormones that control how quickly cells use food."
  582REM thyroid 37
  583DATA "The thyroid gland makes hormones that control how quickly cells use glucose (sugar)."
  584REM adrenals 38 (simple)
  585DATA "The two adrenal glands sit on the kidneys. They make hormones that help the body in many ways."
  586REM adrenals 38
  587DATA "The two adrenal glands sit on the kidneys. They make hormones that help the body in many ways."
  588REM ovaries 39 (simple)
  589DATA "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."
  590REM ovaries 39
  591DATA "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."
  592REM testes 40 (simple)
  593DATA "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."
  594REM testes 40
  595DATA "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."
  596REM pineal gland 41 (simple)
  597DATA "The pineal gland makes hormones. The effects of the hormones are not fully clear."
  598REM pineal gland 41
  599DATA "The pineal gland makes hormones. The effects of the hormones are not fully understood."
  600REM skull 42 (simple)
  601DATA "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."
  602REM skull 42
  603DATA "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."
  604REM pancreas 43 (simple)
  605DATA "The pancreas makes a special juice to digest food (see liver). The pancreas also makes hormones."
  606REM pancreas 43
  607DATA "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."
  608FORs%=0TO18:FORr%=0TO1:READ orgjustwords$(s%,r%):NEXT:NEXT
  609RESTORE +0
  610DATA 0,2,3,5,6,9,10,11,12,13,14,15,16,17,18,21
  611FORs%=0TO7:FORt%=0TO1:READ systlinkwords%(s%,t%):NEXT:NEXT
  612RESTORE +0
  613DATA "23,Musculo-skeletal system"
  614DATA "22,Nervous/sensory system"
  615DATA "30,Circulatory & Lymphatic system"
  616DATA "18,Respiratory system"
  617DATA "16,Digestive system"
  618DATA "14,Urinary system"
  619DATA "19,Reproductive system"
  620DATA "16,Endocrine system"
  621FORs%=0TO7:READ systtit$(s%):NEXT
  622RESTORE +0
  623DATA 5,102,1404,5,84,1348,3,86,1348,9,48,1292,13,8,1236
  624DATA 13,22,1236,20,8,1120,5,52,1116,4,42,1120,6,464,1032
  625DATA 5,16,952,5,26,1012,7,26,1060,17,8,844,13,370,568
  626DATA 17,6,732,11,6,680,15,14,680,15,340,620,16,22,592
  627DATA 14,40,592,3,504,1320,6,468,1244,6,456,1244,19,16,1116
  628DATA 8,452,1028,8,454,760,12,398,828,12,398,1088,8,464,1144
  629DATA 8,464,1008,8,86,1232,12,42,1288,12,400,1144,12,24,784
  630DATA 8,456,704,8,456,704,8,422,1240,14,370,1028,8,448,684
  631DATA 8,448,684,12,398,1392,8,462,1384,8,464,916
  632FORs%=0TO43:FORr%=0TO2:READ bodybox%(s%,r%):NEXT:NEXT
  633RESTORE +0
  634DATA 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"
  635DATA "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
  636FORs%=0TO43:READ bodyboxlab$(s%):NEXT
  637RESTORE +0
  638DATA 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
  639DATA 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
  640FORs%=0TO43:FORr%=0TO1:READ animbox%(s%,r%):NEXT:NEXT
  641RESTORE +0
  642DATA 496,232,566,298,12 :REM mouth (1)
  643DATA 240,188,358,290,10 :REM pituitary (3)
  644DATA 256,428,366,522,8  :REM nosetongue (4)
  645DATA 352,244,398,290,14 :REM skin touch (6)
  646DATA 428,312,502,374,14 :REM bone (8)
  647DATA 352,464,382,590,8  :REM kidney (9)
  648DATA 472,376,506,410,14 :REM lungs (13)
  649DATA 288,200,442,330,8 :REM make baby (14)
  650DATA 312,140,362,178,14 :REM small intestine (17)
  651DATA 72,472,202,562,6   :REM female (19)
  652DATA 388,116,418,146,10  :REM male (20)
  653DATA 304,152,694,470,6  :REM ear (21)
  654FORr%=0TO4:READ closercoords%(1,r%):NEXT
  655FORs%=3TO4:FORr%=0TO4:READ closercoords%(s%,r%):NEXT:NEXT
  656FORr%=0TO4:READ closercoords%(6,r%):NEXT
  657FORs%=8TO9:FORr%=0TO4:READ closercoords%(s%,r%):NEXT:NEXT
  658FORs%=13TO14:FORr%=0TO4:READ closercoords%(s%,r%):NEXT:NEXT
  659FORr%=0TO4:READ closercoords%(17,r%):NEXT
  660FORs%=19TO21:FORr%=0TO4:READ closercoords%(s%,r%):NEXT:NEXT
  661
  662RESTORE +0
  663DATA 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
  664FORs%=0TO10:FORr%=0TO3:READ canal%(s%,r%):NEXT:NEXT
  665RESTORE +0
  666DATA 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
  667DATA 478,516,488,496,486,520,500,508,494,528,502,512,516,536,522,520,532,540,538,532,548,544,550,540
  668FORs%=0TO17:FORr%=0TO3:READ cochlea%(s%,r%):NEXT:NEXT
  669RESTORE +0
  670DATA 153,103,132,88,145,91
  671FORs%=0TO2:FORr%=0TO1:READ spark%(s%,r%):NEXT:NEXT
  672RESTORE +0
  673DATA 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
  674FORs%=0TO17:FORr%=0TO1:READ candpos%(s%,r%):NEXT:NEXT
  675RESTORE +0
  676DATA -72,384,4,324,80,264,156,204,232,144,308,84,384,24,460,-36
  677DATA 476,392,72,-16,44,312,528,-60
  678DATA 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
  679DATA 468,520,36,440,520,68,64,112
  680FOR s%=0TO7:FOR r%=0TO1:READ axon1%(s%,r%):NEXT:NEXT
  681FOR s%=0TO3:FOR r%=0TO1:READ cell%(s%,r%):NEXT:NEXT
  682FOR s%=0TO20:FOR r%=0TO1:READ axon2%(s%,r%):NEXT:NEXT
  683FOR s%=0TO3:FOR r%=0TO1:READ tail%(s%,r%):NEXT:NEXT
  684RESTORE +0
  685DATA 4,89,10,94,16,99,28,104,21,109,39,108,27,120,56,128,65,135,74,142
  686DATA 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
  687DATA 120,3,128,2,129,18,140,7,159,27,169,35,179,43
  688FOR s%=0TO9:FOR r%=0TO1:READ neuron1%(s%,r%):NEXT:NEXT
  689FOR s%=0TO17:FOR r%=0TO1:READ neuron3%(s%,r%):NEXT:NEXT
  690FOR s%=0TO6:FOR r%=0TO1:READ neuron5%(s%,r%):NEXT:NEXT
  691RESTORE +0
  692DATA "032,91,024,87,016,84,014,77,014,68,017,61,026,59,036,59,045,56"
  693DATA "042,89,043,80,043,71,043,63,036,59,045,56"
  694DATA "048,89,046,80,046,71,046,62,052,53"
  695DATA "058,91,066,86,075,82,075,71,074,62"
  696DATA "064,91,056,86,051,85,046,80,046,71,046,62,052,53"
  697DATA "074,90,075,82,075,71,074,62"
  698DATA "081,90,078,82,078,71,078,59"
  699DATA "091,91,099,86,107,81,107,71,106,62,094,59"
  700DATA "096,90,086,86,078,82,078,71,078,59"
  701DATA "106,89,107,81,107,71,106,62,094,59"
  702DATA "112,89,110,81,110,71,109,61,099,55"
  703DATA "122,91,131,86,139,81,139,71,138,62,127,59,113,54"
  704DATA "128,90,119,86,110,81,110,71,109,61,099,55"
  705DATA "138,90,139,81,139,71,138,62,127,59,113,54"
  706DATA "144,90,142,81,142,71,141,61,129,56,120,51"
  707DATA "155,90,165,86,171,80,171,71,169,61,158,59,145,57,129,56,120,51"
  708DATA "160,90,151,86,142,81,142,71,141,61,129,56,120,51"
  709FORs%=0TO16:READ olf1$(s%):NEXT
  710RESTORE +0
  711DATA "051,46,054,35,062,28,074,24,088,23,104,25,119,28,132,31,145,33,159,34,170,34"
  712DATA "073,48,073,38,079,30,093,27,110,29,123,32,138,34,152,35,165,36"
  713DATA "093,48,093,39,102,32,115,32,128,34,143,36,158,38,169,38"
  714DATA "115,45,121,36,135,37,149,39,164,40"
  715FORs%=0TO3:READ olf2$(s%):NEXT
  716RESTORE +0
  717DATA 2,1,2,0,1,2,2,1,0,1,2,2,1,2,0,2,0
  718FORs%=0TO16:READ smell%(s%):NEXT
  719RESTORE +0
  720DATA 0,0,0,1,0,1,1,2,1,2,2,3,2,3,3,3,3
  721FORs%=0TO16:READ whicholf2%(s%):NEXT
  722RESTORE +0
  723DATA 7,7,9,9,11,6,17,14,11,7,7
  724FORs%=0TO10:READ spkmax%(s%):NEXT
  725RESTORE +0
  726DATA 60,57,68,57,66,65,66,76,65,86,67,96,66,106
  727DATA 87,97,85,106,105,98,90,114,103,107,108,114,124,114,140,114,156,114
  728DATA 75,78,86,84,80,94,78,105,82,114,93,114,105,114,117,114,128,114,140,114,152,114
  729DATA 120,78,125,94,123,105,132,114,142,114,152,114
  730DATA 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
  731FORs%=0TO6:FORr%=0TO1:READ skpain%(s%,r%):NEXT:NEXT
  732FORs%=0TO8:FORr%=0TO1:READ skpress%(s%,r%):NEXT:NEXT
  733FORs%=0TO10:FORr%=0TO1:READ skheat1%(s%,r%):NEXT:NEXT
  734FORs%=0TO5:FORr%=0TO1:READ skheat2%(s%,r%):NEXT:NEXT
  735FORs%=0TO16:FORr%=0TO1:READ sktouch%(s%,r%):NEXT:NEXT
  736RESTORE +0
  737DATA 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
  738FORs%=0TO22:FORr%=0TO1:READ harr%(s%,r%):NEXT:NEXT
  739RESTORE +0
  740DATA "diast,000,000,13.."
  741DATA "arr16,077,008,15,arr17,077,129,15.."
  742DATA "diast,000,000,13,arro0,076,032,15,arro1,077,107,15.."
  743DATA "diast,000,000,13,arro2,069,053,15.."
  744DATA "diast,000,000,13,arro3,080,082,15.."
  745DATA "diast,000,000,13,arro4,095,088,15.."
  746DATA "diast,000,000,13,arro5,090,065,15.."
  747DATA "diast,000,000,13,arro6,094,045,15.."
  748DATA "diast,000,000,13,arro7,115,045,15,arro8,053,045,15.."
  749DATA "diast,000,000,13,arr18,030,045,15.."
  750DATA "diast,000,000,13,arr19,007,045,15.."
  751DATA "diast,000,000,13.."
  752DATA "diast,000,000,13,arr20,005,057,15.."
  753DATA "diast,000,000,13,arr21,026,057,15.."
  754DATA "diast,000,000,13,arro9,132,062,15,arr10,047,057,15.."
  755DATA "diast,000,000,13,arr11,103,059,15.."
  756DATA "diast,000,000,13,arr12,113,075,15.."
  757DATA "diast,000,000,13,arr13,111,081,15.."
  758DATA "diast,000,000,13,arr14,084,048,15.."
  759DATA "diast,000,000,13,arr15,088,031,15.."
  760DATA "diast,000,000,13,arr22,089,008,15.."
  761DATA "diast,000,000,13.."
  762DATA "diast,000,000,13,bloo1,067,055,00,ltkey,152,114,00.."
  763DATA "diast,000,000,13,ltkey,152,114,00,sysat,064,050,13,bloo2,068,059,00.."
  764DATA "diast,000,000,13,ltkey,152,114,00,sysat,064,050,13,bloo3,068,064,00.."
  765DATA "diast,000,000,13,ltkey,152,114,00,sysat,064,050,13,sysv1,066,070,13,bloo4,071,063,00.."
  766DATA "diast,000,000,13,ltkey,152,114,00,sysv2,066,059,13,bloo5,072,048,00.."
  767DATA "diast,000,000,13,ltkey,152,114,00,sysv2,066,059,13,bloo6,069,037,00.."
  768DATA "diast,000,000,13,ltkey,152,114,00,sysv2,066,059,13,bloo7,053,031,00.."
  769DATA "diast,000,000,13,ltkey,152,114,00,bloo8,000,000,00.."
  770DATA "diast,000,000,13,ltkey,152,114,00,bloo9,000,000,00.."
  771DATA "diast,000,000,13,ltkey,152,114,00,blo10,000,000,00.."
  772DATA "diast,000,000,13,ltkey,152,114,00.."
  773DATA "diast,000,000,13,ltkey,152,114,00,blo11,000,000,00.."
  774DATA "diast,000,000,13,ltkey,152,114,00,blo12,000,000,00.."
  775DATA "diast,000,000,13,ltkey,152,114,00,blo13,000,000,00.."
  776DATA "diast,000,000,13,ltkey,152,114,00,blo14,061,043,00.."
  777DATA "diast,000,000,13,ltkey,152,114,00,bloo1,067,055,00.."
  778FORs%=0TO37:READ hanim$(s%):NEXT
  779DIM swal%(7,1)
  780RESTORE +0
  781DATA 63,26,63,23,63,23,63,23,63,19,116,15,113,15,113,15
  782FORj%=0TO7:FORk%=0TO1:READ swal%(j%,k%):NEXT:NEXT
  783DIM skindel$(11)
  784RESTORE+0
  785DATA sknerves,skarm,pinred,skpress,spark2,spark3,spine,pressure,touch,pain,heat,pierce
  786FORs%=0TO10:READ skindel$(s%):NEXT
  787RESTORE +0
  788DATA 27,94,30,88,33,89,37,89,41,89,50,99,50,102,51,105,52,108
  789FORj%=0TO8:FORk%=0TO1:READ babyegg%(j%,k%):NEXT:NEXT
  790RESTORE +0
  791DATA 24,20,22,15,34,13,44,13,56,16,66,20,75,25,81,32
  792FORj%=0TO7:FORk%=0TO1:READ peregg%(j%,k%):NEXT:NEXT
  793ENDPROC
  794
  795DEFPROCevent
  796SYS "Wimp_Poll",0,blk% TO e%,eb%
  797CASE e% OF
  798  WHEN 0: IFdoingmove% PROCanimate
  799          IFdoingcloser% PROCcloser
  800          IFdoingpinpart% PROCmovepinpart
  801  WHEN 1: PROCredraw(!eb%)
  802  WHEN 2: PROCopenwind(blk%)
  803  WHEN 3: PROCclosewinds(blk%)
  804  WHEN 4: IF!eb%=pinoutlw%:PROCleavingpinoutlw
  805  WHEN 5: IF!eb%=pinoutlw%:PROCenteringpinoutlw
  806  WHEN 6: PROCclick(eb%!0,eb%!4,eb%!8,eb%!12,eb%!16)
  807  WHEN 7: IFdragging%=1:PROCsendsavesprmess:ELSE:PROCsendsavetxtmess
  808  WHEN 8: PROCkeyevent
  809  WHEN 9: PROCmenuselect
  810  WHEN 17,18: PROCreceive
  811  WHEN 19: PROCreceiveack
  812ENDCASE
  813ENDPROC
  814
  815DEFPROCredraw(w%)
  816CASE w% OF
  817  WHEN systw%: PROCredrawsystw
  818  WHEN bodyw%: PROCredrawbodyw
  819  WHEN animw%: PROCredrawanimw
  820  WHEN pinoutlw%: PROCredrawpinoutlw
  821  OTHERWISE : PROCredrawother
  822ENDCASE
  823ENDPROC
  824
  825DEFPROCredrawother
  826SYS "Wimp_RedrawWindow",,blk% TO more%
  827WHILE more%
  828SYS "Wimp_GetRectangle",,blk% TO more%:
  829ENDWHILE
  830ENDPROC
  831
  832DEFPROCredrawsystw
  833!blk2%=!blk%
  834SYS "Wimp_RedrawWindow",,blk2% TO more%
  835spx%=blk2%!4-blk2%!20:spy%=(blk2%!16-blk2%!24)-936
  836WHILE more%
  837IFFNisselected(setupw%,33)THEN
  838 FORsy%=0TO7:PROCdrawsystbut(sy%):NEXT
  839ELSE
  840 FORsy%=0TO7
  841  IFFNisselected(setupw%,37+sy%):PROCdrawsystbut(sy%)
  842 NEXT
  843ENDIF
  844SYS "Wimp_GetRectangle",,blk2% TO more%:
  845ENDWHILE
  846ENDPROC
  847
  848DEFPROCdrawsystbut(sy%)
  849SYS "OS_SpriteOp",&134,sparea%,sysbut$((sy%*2)-system_on%(sy%)),spx%+sysb%(sy%,0),spy%+sysb%(sy%,1),0,scale%,coltrans%
  850ENDPROC
  851
  852DEFPROCredrawbodyw
  853SYS "Wimp_RedrawWindow",,blk% TO more%
  854spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-(spscale%*1460)
  855WHILE more%
  856SYS "OS_SpriteOp",&134,bodyarea%,"body",spx%,spy%,0,bodscale%,coltrans%
  857SYS "Wimp_GetRectangle",,blk% TO more%:
  858ENDWHILE
  859ENDPROC
  860
  861DEFPROCredrawanimw
  862SYS "Wimp_RedrawWindow",,blk% TO more%
  863spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
  864WHILE more%
  865SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
  866SYS "Wimp_GetRectangle",,blk% TO more%:
  867ENDWHILE
  868ENDPROC
  869
  870DEFPROCupdate_buttons(sy%)
  871!blk%=systw%:SYS"Wimp_GetWindowState",,blk%
  872spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-936
  873blk%!4=sysbarea%(sy%,0):blk%!8=sysbarea%(sy%,1):blk%!12=sysbarea%(sy%,2):blk%!16=sysbarea%(sy%,3)
  874SYS "Wimp_UpdateWindow",,blk% TO more%
  875WHILE more%
  876PROCdrawsystbut(sy%)
  877SYS "Wimp_GetRectangle",,blk% TO more%
  878ENDWHILE
  879ENDPROC
  880
  881DEFPROCkeyevent
  882IF((!blk%<>sabodyw%)AND(!blk%<>saanimw%)AND(!blk%<>edboxw%)AND(!blk%<>setupw%))OR((blk%!24)<>13):SYS "Wimp_ProcessKey",blk%!24:ENDPROC
  883IF(!blk%=edboxw%)AND((blk%!4)<>2):SYS "Wimp_ProcessKey",blk%!24:ENDPROC
  884IF((!blk%=sabodyw%)OR(!blk%=saanimw%))AND((blk%!4)<>1):SYS "Wimp_ProcessKey",blk%!24:ENDPROC
  885IF(!blk%=setupw%)AND((blk%!4)<>7):SYS "Wimp_ProcessKey",blk%!24:ENDPROC
  886CASE !blk% OF
  887 WHEN sabodyw%:
  888   IF INSTR(FNgeticnstring(sabodyw%,1),".")=0:PROCerror("To save, drag the SpriteFile icon to a directory display",0):ENDPROC
  889   PROCsavespritefile(FNgeticnstring(sabodyw%,1),0,0):SYS"Wimp_CreateMenu",-1
  890 WHEN saanimw%:
  891   IF INSTR(FNgeticnstring(saanimw%,1),".")=0:PROCerror("To save, drag the SpriteFile icon to a directory display",0):ENDPROC
  892   PROCsavespritefile(FNgeticnstring(saanimw%,1),0,0):SYS"Wimp_CreateMenu",-1
  893 WHEN edboxw%:
  894   IF INSTR(FNgeticnstring(edboxw%,2),".")=0:PROCerror("To save, drag the TextFile icon to a directory display",0):ENDPROC
  895   PROCsavetextfile(FNgeticnstring(edboxw%,2),0,0):SYS"Wimp_CreateMenu",-1
  896 WHEN setupw%:
  897   pw$=FNconverttolower(FNgeticnstring(setupw%,7)):IFpw$="coitus":sexon%=-1:PROCremovesex(FALSE):ELSE:sexon%=0:PROCremovesex(TRUE)
  898ENDCASE
  899ENDPROC
  900
  901DEFFNreadsysvar(a$)
  902SYS "OS_ReadVarVal",a$,blk%,256,0,0 TO ,,a%:a$="":FORA%=0TOa%-1:a$+=CHR$(blk%?A%):NEXT
  903=a$
  904
  905DEFFNwimpscrapexists
  906SYS "XOS_ReadVarVal","Wimp$Scrap",blk%,256,0,0 TO ;fl%
  907IF(fl%AND%1)=%1:PROCerror("Wimp$Scrap not defined. Data transfer aborted.",0):=0
  908=-1
  909
  910DEFPROCopen_systw
  911IFFNisopen(overw%)THEN
  912!blk2%=overw%:SYS "Wimp_GetWindowState",,blk2%
  913PROCclosewind(blk%)
  914IF(blk2%!16)-(blk2%!8)>936:blk2%!8=(blk2%!16)-936
  915!blk2%=systw%:PROCopenwind(blk2%)
  916ELSE
  917!blk%=systw%:SYS "Wimp_GetWindowState",,blk%
  918IF firsttime% blk%!4=0:blk%!8=44:blk%!12=568:blk%!16=983:blk%!20=0:blk%!24=0
  919blk%!28=-1:PROCopenwind(blk%)
  920IFNOTFNisopen(bodyw%) THEN
  921 IF firsttime% firsttime%=FALSE:blk%!4=614:blk%!8=44:blk%!12=1279:blk%!16=983:blk%!20=0:blk%!24=0
  922 !blk%=bodyw%:blk%!28=-1:PROCopenwind(blk%)
  923ENDIF
  924ENDIF
  925PROCchecksystsex:PROCplotbodysyst
  926ENDPROC
  927
  928DEFPROCopen_overw
  929IFlabelson%<10:PROCremovebodylabs
  930!blk2%=systw%:SYS "Wimp_GetWindowState",,blk2%
  931IFFNisopen(systw%):PROCclosewind(blk%)
  932!blk2%=overw%:PROCopenwind(blk2%)
  933PROCchecksex:PROCplotbodyorgs
  934ENDPROC
  935
  936DEFPROCopen_detw
  937!blk%=overw%:PROCclosewind(blk%)
  938!blk%=detw%:SYS "Wimp_GetWindowState",,blk%
  939blk%!4=0:blk%!8=136:blk%!12=568:blk%!16=1023:blk%!20=0:blk%!24=0:blk%!28=-1:PROCopenwind(blk%)
  940ENDPROC
  941
  942DEFPROCopen_setupw
  943LOCAL j%,wasopen%
  944IFFNisopen(setupw%)THEN
  945 !blk2%=setupw%:SYS "Wimp_GetWindowState",,blk2%
  946 PROCclosewind(blk%):wasopen%=TRUE
  947ELSE
  948 SYS "Wimp_GetPointerInfo",,blk2%:wasopen%=FALSE
  949ENDIF
  950IFFNisselected(setupw%,47)THEN
  951 FORj%=9TO30:PROChideicn(setupw%,j%,TRUE):NEXT
  952 FORj%=0TO8:PROChideicn(setupw%,j%,FALSE):NEXT
  953 FORj%=31TO44:PROChideicn(setupw%,j%,FALSE):NEXT
  954 PROCchangesetupextent(300)
  955 IFNOTwasopen%:blk%!8=blk2%!4:blk%!16=(blk%!8)+300:ELSE:blk%!16=blk2%!16:blk%!8=(blk%!16)-300
  956 blk%!24=0
  957ELSE
  958 FORj%=9TO30:PROChideicn(setupw%,j%,FALSE):NEXT
  959 FORj%=0TO8:PROChideicn(setupw%,j%,TRUE):NEXT
  960 FORj%=31TO44:PROChideicn(setupw%,j%,TRUE):NEXT
  961 PROCchangesetupextent(180)
  962 IFNOTwasopen%:blk%!8=blk2%!4:blk%!16=(blk%!8)+180:ELSE:blk%!16=blk2%!16:blk%!8=(blk%!16)-180
  963 blk%!24=0
  964ENDIF
  965!blk%=setupw%
  966IFNOTwasopen%:blk%!4=(!blk2%)-300:ELSE:blk%!4=blk2%!4
  967blk%!12=(blk%!4)+600
  968blk%!20=0
  969blk%!28=-1
  970PROCopenwind(blk%)
  971ENDPROC
  972
  973DEFPROCopenwind(b%)
  974SYS "Wimp_OpenWindow",,b%
  975ENDPROC
  976
  977DEFPROCchangesetupextent(siz%)
  978!blk%=0:blk%!4=-siz%:blk%!8=600:blk%!12=0
  979SYS"Wimp_SetExtent",setupw%,blk%
  980ENDPROC
  981
  982DEFPROCclosewinds(b%)
  983SYS "Wimp_GetPointerInfo",,blk2%
  984currclosebut%=blk2%!8
  985PROCclosewind(b%)
  986CASE !b% OF
  987  WHEN systw%:!blk%=bodyw%:PROCclosewind(blk%)
  988  WHEN bodyw%:IFFNisopen(systw%):PROCclosewind(blk%)
  989              IFFNisopen(overw%):PROCclosewind(blk%)
  990  WHEN overw%:PROCopen_systw
  991  WHEN animw%:PROCselecticn(bodyw%,activeicn%,FALSE):PROCinitanimw
  992              IF(currclosebut%=1)AND(NOT FNisopen(bodyw%)):PROCopen_systw
  993  WHEN defnw%:PROCselecticn(systw%,3,FALSE)
  994              IF(currclosebut%=1)AND(NOT FNisopen(bodyw%)):PROCopen_systw
  995  WHEN pinorgsw%:IFFNisopen(pinoutlw%):PROCclosewind(blk%)
  996  WHEN pinoutlw%:IFFNisopen(pinorgsw%):PROCclosewind(blk%)
  997  WHEN orgdefnw%:PROCselecticn(bodyw%,activeorgicn%,FALSE):activeorgicn%=-1
  998ENDCASE
  999ENDPROC
 1000
 1001DEFPROCclosewind(b%)
 1002SYS "Wimp_CloseWindow",,b%
 1003ENDPROC
 1004
 1005DEFFNreadstring(p%)
 1006LOCALa$:a$="":WHILE (LEN(a$)<255)AND(?p%>31):a$+=CHR$(?p%):p%+=1:ENDWHILE
 1007=a$
 1008
 1009DEFPROCload_template(name$)
 1010wptrlist%!((windcount%-1)*4)=wptr1%:windptrlist%!((windcount%-1)*4)=wptr2%
 1011SYS "Wimp_LoadTemplate",,wptr1%,wptr2%,windind%+MAXWINDIND%,-1,name$,0 TO ,,wptr2%
 1012IFname$="animate" animwtitle%=wptr1%!72:animwtitlesiz%=wptr1%+80
 1013IFname$="systdefn" systwtitle%=wptr1%!72:systwtitlesiz%=wptr1%+80
 1014n%=wptr1%!84:FORI%=0TO(n%-1)*32STEP32:d%=wptr1%+88+I%:f%=(d%!16)
 1015 IF(f%AND259)=258THEN
 1016  IFname$="pinorgs":d%!24=bodyarea%:ELSE:d%!24=sparea%
 1017 ENDIF
 1018 IF(f%AND259)=0 f%=(f%AND&FFFF0FFF)OR&00000000
 1019 IF(f%AND259)=257 AND d%!24<>-1 THEN IFINSTR(FNreadstring(d%!24),"b0")<>0 f%=(f%AND&FFFF0FFF)OR&00000000
 1020 IF(f%AND259)=257 AND d%!24<>-1 THEN IFINSTR(FNreadstring(d%!24),"b1")<>0 f%=(f%AND&FFFF0FFF)OR&00000000
 1021 IF(f%AND259)=257 AND d%!24<>-1 THEN IFINSTR(FNreadstring(d%!24),"b2")<>0 f%=(f%AND&0FFF0FFF)OR&C0009000
 1022 IF(f%AND259)=259 AND(name$="overview"ORname$="systems"ORname$="animate"ORname$="bodyoutl"ORname$="pinorgs") THEN f%=(f%AND&FFFF0FFF)OR&00003000
 1023 IF(f%AND258)=2 THEN
 1024  a$=FNreadstring(d%+20)
 1025  SYS "XWimp_SpriteOp",40,,a$ TO ,,,w%,h%
 1026  IF(w%ORh%)=0THEN
 1027   f%=f%OR256:$wptr2%=a$:?(wptr2%+(LENa$))=0
 1028   d%!20=wptr2%:d%!24=sparea%:d%!28=LENa$:wptr2%+=LEN(a$)+1
 1029  ENDIF
 1030 ENDIF
 1031 d%!16=f%
 1032NEXT
 1033wptr1%+=88+((wptr1%!84)*32):windcount%+=1
 1034ENDPROC
 1035
 1036DEFPROCbaricon
 1037$ibname%="frame1"
 1038REM!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=62:blk%!16=96
 1039!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=84:blk%!16=72
 1040blk%!20=&1000313A:blk%!24=ibname%:blk%!28=sparea%:blk%!32=LEN$ibname%
 1041SYS "Wimp_CreateIcon",,blk% TO ibh%
 1042ENDPROC
 1043
 1044
 1045
 1046DEFPROCsavespritefile(f$,fromdrag%,filetemp%)
 1047LOCAL ERROR
 1048ONERRORLOCAL:RESTORE ERROR:PROCerror("Save failed. "+REPORT$,0):ENDPROC
 1049IF currmenu% = -2 THEN
 1050 PROCmakebodyforsapr(-1)
 1051REMIFFNisopen(systw%)AND(FNno_systems_on=1):PROCbodyboxes
 1052 sp$=FNleaf(FNgeticnstring(sabodyw%,1))
 1053 SYS"XOS_SpriteOp",&11A,bodyarea%,"body",sp$
 1054 SYS"OS_SpriteOp",&10C,bodyarea%,f$
 1055 SYS"XOS_SpriteOp",&11A,bodyarea%,sp$,"body"
 1056REMIFFNisopen(systw%)AND(FNno_systems_on=1):PROCplotbodysyst
 1057 IFFNisopen(systw%):PROCplotbodysyst:ELSE:PROCplotbodyorgs
 1058ELSE
 1059 IFNOTdoingmove%THEN
 1060  IFFNisselected(saanimw%,5):PROCgetbwfile
 1061  PROCmakeanimforsapr(-1)
 1062 ENDIF
 1063REMIFFNisselected(animw%,0)AND(NOTdoingmove%):PROCanimboxes
 1064 sp$=FNleaf(FNgeticnstring(saanimw%,1))
 1065 SYS"XOS_SpriteOp",&11A,animarea%,"anim",sp$
 1066 SYS"OS_SpriteOp",&10C,animarea%,f$
 1067 SYS"XOS_SpriteOp",&11A,animarea%,sp$,"anim"
 1068 IFNOTdoingmove%THEN
 1069  IFFNisselected(saanimw%,5)AND((activeicn%=4)OR(activeicn%=7)OR(activeicn%=13)OR(activeicn%=14)OR(activeicn%=15)OR(activeicn%=17)OR(activeicn%=23))THEN
 1070   IFY%=0 test%=0:REPEAT:PROCfloppy_disk("bodywise","$.!Bodywise."+animfile$(activeicn%,0)+"_c","",""):UNTILerror%=0
 1071   SYS "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>."+animfile$(activeicn%,0)+"_c"
 1072   SYS "XOS_SpriteOp",&119,animarea%,"anim":SYS "OS_SpriteOp",&10F,animarea%,"anim",1,384,154,12
 1073   PROCaddpalet(animarea%,"anim"):PROCmakesprites(activeicn%)
 1074  ENDIF
 1075  PROCmakeorgan(activew%,activeicn%)
 1076  IFFNisselected(animw%,0):PROCaddlines(0):PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
 1077 ENDIF
 1078REM IFFNisselected(animw%,0)AND(NOTdoingmove%):PROCmakeorgan(activew%,activeicn%):PROCaddlines:PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
 1079ENDIF
 1080REMRESTORE ERROR
 1081IFNOTfromdrag% THEN
 1082 IFcurrmenu%=-2:PROCputicnstring(sabodyw%,1,f$):ELSE:PROCputicnstring(saanimw%,1,f$)
 1083ELSE
 1084 IFfiletemp%<>-1THEN
 1085  IFcurrmenu%=-2:PROCputicnstring(sabodyw%,1,f$):ELSE:PROCputicnstring(saanimw%,1,f$)
 1086 ENDIF
 1087ENDIF
 1088SYS "Wimp_SetCaretPosition",-1
 1089ENDPROC
 1090
 1091DEFPROCgetbwfile
 1092SYS"XOS_SpriteOp",&118,detarea%,"bw"+STR$(activeicn%)+STR$(activew%) TO ;fl%
 1093IF(fl%AND%1)=%1THEN
 1094 IFY%=0 test%=0:REPEAT:PROCfloppy_disk("bodywise","$.!Bodywise.body_bw_c."+bwfile$(activeicn%)+"_bw_c","",""):UNTILerror%=0
 1095 IF(activeicn%=4)OR(activeicn%=7)OR(activeicn%=13)OR(activeicn%=14)OR(activeicn%=15)OR(activeicn%=17)OR(activeicn%=23)THEN
 1096  SYS "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>.body_bw_c."+bwfile$(activeicn%)+"_bw_c"
 1097 ELSE
 1098  SYS "OS_SpriteOp",&10B,detarea%,"<BodyWise$chaindir>.body_bw_c."+bwfile$(activeicn%)+"_bw_c"
 1099 ENDIF
 1100ENDIF
 1101ENDPROC
 1102
 1103DEFPROCmakebodyforsapr(save%)
 1104LOCAL j%
 1105IFFNisopen(overw%)THEN
 1106 IFsave%THEN
 1107  IFFNisselected(sabodyw%,5):PROCcl_body(15):ELSE:PROCcl_body(0)
 1108 ELSE
 1109  IFFNisselected(prbodyw%,1):PROCcl_body(15):ELSE:PROCcl_body(0)
 1110 ENDIF
 1111 IFFNisselected(overw%,8)ORFNisselected(overw%,25)THEN
 1112  startsp%=46:endsp%=maxsp%
 1113 ELSE
 1114  IFFNisselected(overw%,5)THEN
 1115   startsp%=40:endsp%=maxsp%
 1116  ELSE
 1117   IFsave%THEN
 1118    IFFNisselected(sabodyw%,5):PROCoutlinebody:ELSE:PROCadd_sp(sparea%,"bodyoutl",bodyarea%,"body",0,0,16)
 1119   ELSE
 1120    IFFNisselected(prbodyw%,1):PROCoutlinebody:ELSE:PROCadd_sp(sparea%,"bodyoutl",bodyarea%,"body",0,0,16)
 1121   ENDIF
 1122   startsp%=0:endsp%=maxsp%
 1123  ENDIF
 1124 ENDIF
 1125 FORj%=startsp%TOendsp%
 1126  IFbodysp%(j%,0):PROCadd_sp(sparea%,bodysp$(j%),bodyarea%,"body",bodysp%(j%,1),bodysp%(j%,2),bodysp%(j%,3))
 1127 NEXT
 1128 IFFNisselected(overw%,8)ORFNisselected(overw%,25)ORFNisselected(overw%,5)THEN
 1129  IFsave%THEN
 1130   IFNOTFNisselected(sabodyw%,5):PROCwhite_body
 1131  ELSE
 1132   IFNOTFNisselected(prbodyw%,1):PROCwhite_body
 1133  ENDIF
 1134 ENDIF
 1135ELSE
 1136 IFsave%THEN
 1137  IFFNisselected(sabodyw%,5):PROCoutlinebody:ELSE:PROCadd_sp(sparea%,"bodyoutl",bodyarea%,"body",0,0,16)
 1138 ELSE
 1139  IFFNisselected(prbodyw%,1):PROCoutlinebody:ELSE:PROCadd_sp(sparea%,"bodyoutl",bodyarea%,"body",0,0,16)
 1140 ENDIF
 1141 FORj%=0TOmaxsp%
 1142  IFsystbodysp%(j%):PROCadd_sp(sparea%,bodysp$(j%),bodyarea%,"body",bodysp%(j%,1),bodysp%(j%,2),bodysp%(j%,3))
 1143 NEXT
 1144 IFFNno_systems_on=1THEN
 1145  IF(save%ANDNOTFNisselected(sabodyw%,10))OR(NOTsave%ANDNOTFNisselected(prbodyw%,6))THEN
 1146   IF(FNsystem_on=7)AND(FNisselected(systw%,1)):PROCaddbodylabels(8)
 1147   IF(FNsystem_on=6)AND(FNisselected(systw%,1)):PROCaddbodylabels(9)
 1148   IF(FNsystem_on<6)OR(FNisselected(systw%,0)):PROCaddbodylabels(FNsystem_on)
 1149   IFsave%:PROCbodyboxes(FNisselected(sabodyw%,8)):ELSE:PROCbodyboxes(FNisselected(prbodyw%,4))
 1150  ENDIF
 1151 ENDIF
 1152ENDIF
 1153ENDPROC
 1154
 1155DEFPROCmakeanimforsapr(save%)
 1156IF(save%ANDFNisselected(saanimw%,5))OR((NOTsave%)ANDFNisselected(pranimw%,1))THEN
 1157 PROCadd_sp(detarea%,"bw"+STR$(activeicn%)+STR$(activew%),animarea%,"anim",0,0,16)
 1158 IFtexton%:PROCaddlines(-1)
 1159ELSE
 1160 IFtexton%:PROCaddlines(0)
 1161ENDIF
 1162IFtexton%THEN
 1163 IFsave%:PROCanimboxes(FNisselected(saanimw%,7)):ELSE:PROCanimboxes(FNisselected(pranimw%,3))
 1164ENDIF
 1165ENDPROC
 1166
 1167DEFPROCsavetextfile(f$,fromdrag%,filetemp%)
 1168LOCAL ERROR
 1169ONERRORLOCAL:RESTORE ERROR:PROCerror("Save of '"+FNleaf(FNgeticnstring(edboxw%,2))+"' failed. "+REPORT$,0):ENDPROC
 1170X=OPENOUT f$
 1171CASE currmenu% OF
 1172 WHEN -3: BPUT#X,FNgeticnstring(animw%,50)
 1173          BPUT#X,FNgeticnstring(animw%,51)
 1174 WHEN -4: FORj%=0TOtotsysttxtlines%:BPUT#X,FNgeticnstring(defnw%,j%):NEXT
 1175ENDCASE
 1176CLOSE#X
 1177RESTORE ERROR
 1178IFNOTfromdrag% THEN
 1179OSCLI"SETTYPE "+f$+" fff":PROCputicnstring(edboxw%,2,f$)
 1180ELSE
 1181 IFfiletemp%<>-1:OSCLI"SETTYPE "+f$+" fff":PROCputicnstring(edboxw%,2,f$)
 1182ENDIF
 1183SYS "Wimp_SetCaretPosition",-1
 1184ENDPROC
 1185
 1186DEFFNfiletype(a$)
 1187SYS "XOS_File",5,a$ TO a%
 1188=a%
 1189
 1190DEFPROCreceive
 1191CASE eb%!16 OF
 1192  WHEN 0: quit% = TRUE
 1193  WHEN 2: FORj%=0TO(!blk%-1)STEP4:blk2%!j%=blk%!j%:NEXT
 1194          IF blk2%!36=-1 THEN
 1195           IF FNwimpscrapexists THEN
 1196            CASE dragging% OF
 1197             WHEN 1: PROCsavespritefile(FNreadstring(blk2%+44),-1,blk2%!36):PROCsendloadsprmess
 1198             WHEN 2: PROCsavetextfile(FNreadstring(blk2%+44),-1,blk2%!36):PROCsendloadtxtmess
 1199            ENDCASE
 1200           ENDIF
 1201          ELSE
 1202           CASE dragging% OF
 1203            WHEN 1: PROCsavespritefile(FNreadstring(blk2%+44),-1,blk2%!36):PROCsendloadsprmess
 1204            WHEN 2: PROCsavetextfile(FNreadstring(blk2%+44),-1,blk2%!36):PROCsendloadtxtmess
 1205           ENDCASE
 1206          ENDIF
 1207  WHEN 4: IFblk%!12=myref%:SYS"Wimp_CreateMenu",-1
 1208  WHEN 6: IFdragging%=1:PROCramfetchspr:ELSE:PROCramfetchtxt
 1209  WHEN &400C1: PROCmodechange
 1210ENDCASE
 1211ENDPROC
 1212
 1213DEFPROCramfetchspr
 1214LOCAL area%
 1215IFfirstramfetch%THEN
 1216 FORj%=0TO24STEP4:blk2%!j%=blk%!j%:NEXT
 1217 firstramfetch%=0
 1218 IFcurrmenu%=-2THEN
 1219  PROCmakebodyforsapr(-1)
 1220REM  IFFNisopen(systw%)AND(FNno_systems_on=1):PROCbodyboxes
 1221  sp$=FNleaf(FNgeticnstring(sabodyw%,1))
 1222  SYS"XOS_SpriteOp",&11A,bodyarea%,"body",sp$
 1223 ELSE
 1224  IFNOTdoingmove%THEN
 1225   IFFNisselected(saanimw%,5):PROCgetbwfile
 1226   PROCmakeanimforsapr(-1)
 1227  ENDIF
 1228REM  IFFNisselected(animw%,0):PROCanimboxes
 1229  sp$=FNleaf(FNgeticnstring(saanimw%,1))
 1230  SYS"XOS_SpriteOp",&11A,animarea%,"anim",sp$
 1231 ENDIF
 1232 FORj%=0TO24STEP4:blk%!j%=blk2%!j%:NEXT
 1233ENDIF
 1234IFcurrmenu%=-2:area%=bodyarea%:ELSE:area%=animarea%
 1235extaskh%=blk%!4
 1236IF(area%!12-rambytesdone%)<(blk%!24)THEN
 1237 SYS"Wimp_TransferBlock",taskh%,area%+rambytesdone%,extaskh%,blk%!20,area%!12-rambytesdone%
 1238 blk%!12=blk%!8:blk%!16=7:blk%!24=area%!12-rambytesdone%
 1239 SYS "Wimp_SendMessage",17,blk%,extaskh%:myref%=blk%!8
 1240 rambytesdone%=area%!12-4
 1241 IFcurrmenu%=-2THEN
 1242  sp$=FNleaf(FNgeticnstring(sabodyw%,1))
 1243  SYS"XOS_SpriteOp",&11A,bodyarea%,sp$,"body"
 1244  IFFNisopen(systw%):PROCplotbodysyst:ELSE:PROCplotbodyorgs
 1245REM  IFFNisopen(systw%)AND(FNno_systems_on=1):PROCplotbodysyst
 1246 ELSE
 1247  sp$=FNleaf(FNgeticnstring(saanimw%,1))
 1248  SYS"XOS_SpriteOp",&11A,animarea%,sp$,"anim"
 1249  IFNOTdoingmove%THEN
 1250   IFFNisselected(saanimw%,5)AND((activeicn%=4)OR(activeicn%=7)OR(activeicn%=13)OR(activeicn%=14)OR(activeicn%=15)OR(activeicn%=17)OR(activeicn%=23))THEN
 1251    IFY%=0 test%=0:REPEAT:PROCfloppy_disk("bodywise","$.!Bodywise."+animfile$(activeicn%,0)+"_c","",""):UNTILerror%=0
 1252    SYS "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>."+animfile$(activeicn%,0)+"_c"
 1253    SYS "XOS_SpriteOp",&119,animarea%,"anim":SYS "OS_SpriteOp",&10F,animarea%,"anim",1,384,154,12
 1254    PROCaddpalet(animarea%,"anim"):PROCmakesprites(activeicn%)
 1255   ENDIF
 1256   PROCmakeorgan(activew%,activeicn%)
 1257   IFFNisselected(animw%,0):PROCaddlines(0):PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
 1258  ENDIF
 1259REM  IFFNisselected(animw%,0):PROCmakeorgan(activew%,activeicn%):PROCaddlines:PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
 1260 ENDIF
 1261 SYS"Wimp_CreateMenu",-1
 1262ELSE
 1263 SYS"Wimp_TransferBlock",taskh%,area%+rambytesdone%,extaskh%,blk%!20,blk%!24
 1264 blk%!12=blk%!8:blk%!16=7
 1265 SYS "Wimp_SendMessage",18,blk%,extaskh%:myref%=blk%!8
 1266 rambytesdone%+=(blk%!24)
 1267ENDIF
 1268ENDPROC
 1269
 1270DEFPROCramfetchtxt
 1271LOCAL j%,a$
 1272FORj%=0TO24STEP4:blk2%!j%=blk%!j%:NEXT
 1273IFcurrmenu%=-3:begtxt%=0:FORj%=50TO51:PROCstringtotxtbuff(FNgeticnstring(animw%,j%)):NEXT
 1274IFcurrmenu%=-4:begtxt%=0:FORj%=0TOtotsysttxtlines%:PROCstringtotxtbuff(FNgeticnstring(defnw%,j%)):NEXT
 1275FORj%=0TO24STEP4:blk%!j%=blk2%!j%:NEXT
 1276extaskh%=blk%!4
 1277IF(begtxt%-rambytesdone%)<(blk%!24)THEN
 1278 SYS"Wimp_TransferBlock",taskh%,txtbuff%,extaskh%,blk%!20,begtxt%-rambytesdone%
 1279 blk%!12=blk%!8:blk%!16=7:blk%!24=begtxt%-rambytesdone%
 1280 SYS "Wimp_SendMessage",17,blk%,extaskh%:myref%=blk%!8
 1281 rambytesdone%=begtxt%
 1282 SYS"Wimp_CreateMenu",-1
 1283ELSE
 1284 SYS"Wimp_TransferBlock",taskh%,txtbuff%,extaskh%,blk%!20,blk%!24
 1285 blk%!12=blk%!8:blk%!16=7
 1286 SYS "Wimp_SendMessage",18,blk%,extaskh%:myref%=blk%!8
 1287 rambytesdone%+=(blk%!24)
 1288ENDIF
 1289ENDPROC
 1290
 1291DEFPROCstringtotxtbuff(s$)
 1292$(txtbuff%+begtxt%)=s$
 1293begtxt%+=LEN(s$):txtbuff%?begtxt%=10:begtxt%+=1
 1294ENDPROC
 1295
 1296DEFPROCreceiveack
 1297CASE eb%!16 OF
 1298  WHEN 3: IFmyref%=blk%!8:PROCreceiverdied(FNreadstring(blk%+44))
 1299  WHEN 4: IFblk%!12=myref%:SYS"Wimp_CreateMenu",-1
 1300  WHEN 7: IFmyref%=blk%!8:PROCramreceiverdied
 1301ENDCASE
 1302ENDPROC
 1303
 1304DEFPROCreceiverdied(f$)
 1305SYS "XOS_File",6,f$
 1306PROCerror("Data transfer failed: Receiver died.",0)
 1307ENDPROC
 1308
 1309DEFPROCramreceiverdied
 1310PROCerror("RAM data transfer failed: Receiver died.",0)
 1311ENDPROC
 1312
 1313DEFPROCaddpalet(area%,spn$)
 1314SYS"OS_SpriteOp",&118,area%,spn$ TO ,,r2%
 1315f%=(r2%+44):t%=sppalet%:FORs%=0TO31:!f%=!t%:t%+=4:f%+=4:NEXT
 1316ENDPROC
 1317
 1318DEFPROCmodechange
 1319SYS"Wimp_ReadPixTrans",&100,bodyarea%,"body",,,,scale%,coltrans%
 1320bodscale%!0=(scale%!0)*spscale%:bodscale%!4=(scale%!4)*spscale%
 1321bodscale%!8=scale%!8:bodscale%!12=scale%!12
 1322!pinscale%=!scale%:pinscale%!4=scale%!4:pinscale%!8=scale%!8:pinscale%!12=scale%!12
 1323ENDPROC
 1324
 1325DEFPROCerror(msg$,errno%)
 1326REMCLOSE#0
 1327*CHANNELVOICE 1 9
 1328!errblk%=99:$(errblk%+4)=msg$
 1329SYS "Wimp_ReportError",errblk%,0,"Bodywise"
 1330ENDPROC
 1331
 1332DEFPROCdiscmess(msg$,errno%)
 1333REMCLOSE#0
 1334*CHANNELVOICE 1 9
 1335!errblk%=99:$(errblk%+4)=msg$
 1336SYS "Wimp_ReportError",errblk%,%10000,"Bodywise"
 1337ENDPROC
 1338
 1339DEFPROCselecticn(w%,i%,f%)
 1340!blk%=w%:blk%!4=i%:blk%!12=(1<<21):IFf%=0 blk%!8=0:ELSE blk%!8=blk%!12
 1341SYS "Wimp_SetIconState",,blk%
 1342ENDPROC
 1343
 1344DEFPROCgeticonstate(w%,i%)
 1345!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
 1346ENDPROC
 1347
 1348DEFFNisselected(w%,i%)
 1349PROCgeticonstate(w%,i%)
 1350=((blk%!24)AND(1<<21))=(1<<21)
 1351
 1352DEFFNisopen(w%)
 1353!blk%=w%:SYS "Wimp_GetWindowState",,blk%
 1354=((blk%!32)AND(1<<16))=(1<<16)
 1355
 1356DEFPROCwintoscrn(b%)
 1357!blk2%=!b%:SYS "Wimp_GetWindowState",,blk2%
 1358b%!8+=(blk2%!4)-(blk2%!20)
 1359b%!12+=(blk2%!16)-(blk2%!24)
 1360b%!16+=(blk2%!4)-(blk2%!20)
 1361b%!20+=(blk2%!16)-(blk2%!24)
 1362ENDPROC
 1363
 1364DEFFNleaf(f$) I%=LENf$:WHILEI%>1ANDMID$(f$,I%,1)<>"."I%-=1:ENDWHILE
 1365IFMID$(f$,I%,1)="."I%+=1
 1366=MID$(f$,I%)
 1367
 1368DEFFNconverttolower(a$)
 1369LOCAL l%,b$,ch%:b$=""
 1370FORl%=1TOLENa$
 1371ch%=ASC(MID$(a$,l%,1))
 1372IF(ch%>&40)AND(ch%<&5B):ch%+=&20
 1373b$+=CHR$ch%
 1374NEXT
 1375=b$
 1376
 1377DEFFNgeticnstring(w%,i%)
 1378!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
 1379=FNreadstring(blk%!28)
 1380
 1381DEFPROCputicnstring(w%,i%,a$)
 1382!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
 1383$(blk%!28)=a$:?((blk%!28)+LENa$)=0
 1384blk%!8=0:blk%!12=0:SYS "Wimp_SetIconState",,blk%
 1385ENDPROC
 1386
 1387DEFPROCsendsavesprmess
 1388SYS "Wimp_GetPointerInfo",,blk%:x%=!blk%:y%=blk%!4:w%=blk%!12:i%=blk%!16
 1389!blk%=56:blk%!12=0:blk%!16=1
 1390blk%!20=w%:blk%!24=i%:blk%!28=x%:blk%!32=y%
 1391IFcurrmenu%=-2:blk%!36=58*1024:ELSE:blk%!36=30*1024
 1392blk%!40=&FF9:$(blk%+44)=proposedfname$+CHR$0
 1393IFw%=-2:SYS "Wimp_SendMessage",17,blk%,w%,i%:ELSE:SYS "Wimp_SendMessage",17,blk%,w%
 1394myref%=blk%!8:rambytesdone%=4:firstramfetch%=-1
 1395ENDPROC
 1396
 1397DEFPROCsendsavetxtmess
 1398SYS "Wimp_GetPointerInfo",,blk%:x%=!blk%:y%=blk%!4:w%=blk%!12:i%=blk%!16
 1399!blk%=56:blk%!12=0:blk%!16=1
 1400blk%!20=w%:blk%!24=i%:blk%!28=x%:blk%!32=y%
 1401IFcurrmenu%=-3:blk%!36=360:ELSE:blk%!36=1024
 1402blk%!40=&FFF:$(blk%+44)=proposedfname$+CHR$0
 1403IFw%=-2:SYS "Wimp_SendMessage",17,blk%,w%,i%:ELSE:SYS "Wimp_SendMessage",17,blk%,w%
 1404myref%=blk%!8:rambytesdone%=0
 1405ENDPROC
 1406
 1407DEFPROCsendloadsprmess
 1408blk2%!12=blk2%!8:blk2%!16=3
 1409IFcurrmenu%=-2:blk2%!36=58*1024:ELSE:blk2%!36=30*1024
 1410IF(blk2%!20)=-2:SYS "Wimp_SendMessage",18,blk2%,blk2%!20,blk2%!24:ELSE:SYS "Wimp_SendMessage",18,blk2%,blk2%!20
 1411myref%=blk2%!8
 1412ENDPROC
 1413
 1414DEFPROCsendloadtxtmess
 1415blk2%!12=blk2%!8:blk2%!16=3
 1416IFcurrmenu%=-3:blk2%!36=360:ELSE:blk2%!36=1024
 1417IF(blk2%!20)=-2:SYS "Wimp_SendMessage",18,blk2%,blk2%!20,blk2%!24:ELSE:SYS "Wimp_SendMessage",18,blk2%,blk2%!20
 1418myref%=blk2%!8
 1419ENDPROC
 1420
 1421DEFPROCstartdrag(w%,i%,n$)
 1422proposedfname$=n$
 1423!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
 1424PROCwintoscrn(blk%):blk%!8-=4:blk%!12-=4:blk%!16+=4:blk%!20+=4
 1425blk%!4=5:blk%!24=0:blk%!28=0:blk%!32=2000:blk%!36=2000:SYS "Wimp_DragBox",,blk%
 1426ENDPROC
 1427
 1428DEFPROCsetupwclick(b%,i%)
 1429LOCAL j%,k%
 1430CASE i% OF
 1431  WHEN 2,3: PROCanimbuts_onoff
 1432            IFFNisopen(orgdefnw%)THEN
 1433             a$=FNgeticnstring(bodyw%,activeorgicn%):IF(ASC(a$)>&60)AND(ASC(a$)<&7B):LEFT$(a$,1)=CHR$(ASC(a$)-&20)
 1434             PROCputicnstring(orgdefnw%,0,a$):PROCputicnstring(orgdefnw%,1,orgjustwords$(activeorgicn%-25,simp%))
 1435            ENDIF
 1436  WHEN 8: pw$=FNconverttolower(FNgeticnstring(setupw%,7)):IFpw$="coitus":sexon%=-1:PROCremovesex(FALSE):ELSE:sexon%=0:PROCremovesex(TRUE)
 1437  WHEN 11,12:
 1438       IFFNisopen(pinorgsw%):PROCclosewind(blk%)
 1439       IFFNisopen(pinoutlw%):PROCclosewind(blk%)
 1440       IFi%=12:FORj%=15TO30:PROCselecticn(setupw%,j%,0):NEXT
 1441       IFi%=11:PROCrandompin
 1442       PROCopen_setupw
 1443  WHEN 15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30:
 1444       IFFNisopen(pinorgsw%):PROCclosewind(blk%)
 1445       IFFNisopen(pinoutlw%):PROCclosewind(blk%)
 1446       IFi%=29THEN:IFFNisselected(setupw%,29):PROCselecticn(setupw%,30,FALSE)
 1447       IFi%=30THEN:IFFNisselected(setupw%,30):PROCselecticn(setupw%,29,FALSE)
 1448       k%=0:FORj%=15TO30
 1449        IFFNisselected(setupw%,j%)THEN
 1450         k%+=1
 1451         IFk%=9:PROCselecticn(setupw%,i%,FALSE):PROCdiscmess("Only 8 parts of the body may be chosen at once",0):ENDPROC
 1452        ENDIF
 1453       NEXT
 1454       IF(i%=29)OR(i%=30)THEN
 1455        SYS"Wimp_ForceRedraw",setupw%,114,-412-(48*14)-96,158,-412-(48*14)
 1456       ELSE
 1457        SYS"Wimp_ForceRedraw",setupw%,114,-412-(48*(i%-15))-48,158,-412-(48*(i%-15))
 1458       ENDIF
 1459  WHEN 33: IFFNisopen(systw%):PROCclosewinds(blk%)
 1460           FORj%=5TO12:PROChideicn(systw%,j%,FALSE):NEXT:PROCinitsystbody
 1461           PROCopen_setupw
 1462  WHEN 34: IFFNisopen(systw%):PROCclosewinds(blk%)
 1463           FORj%=5TO12
 1464            IFFNisselected(setupw%,32+j%):PROChideicn(systw%,j%,FALSE):ELSE:PROChideicn(systw%,j%,TRUE)
 1465           NEXT
 1466           PROCinitsystbody:PROCopen_setupw
 1467  WHEN 37,38,39,40,41,42,43,44: IFFNisopen(systw%):PROCclosewinds(blk%)
 1468            IFFNisselected(setupw%,i%):PROChideicn(systw%,i%-32,FALSE):ELSE:PROChideicn(systw%,i%-32,TRUE)
 1469            PROCinitsystbody
 1470            SYS"Wimp_ForceRedraw",setupw%,76,-656-(48*(i%-37))-48,120,-656-(48*(i%-37))
 1471  WHEN 47: PROCopen_setupw:PROCchangetofullbody
 1472  WHEN 48: PROCopen_setupw:PROCchangetopin
 1473ENDCASE
 1474ENDPROC
 1475
 1476DEFPROCinitsystbody
 1477LOCAL j%
 1478FORj%=0TOmaxsp%:systbodysp%(j%)=0:NEXT
 1479FORj%=5TO12:PROCselecticn(systw%,j%,FALSE):system_on%(j%-5)=FALSE:NEXT
 1480ENDPROC
 1481
 1482DEFPROCsabodywclick(b%,i%)
 1483SYS "Wimp_GetPointerInfo",,blk2%
 1484currmenubut%=blk2%!8:IFcurrmenubut%=2:ENDPROC
 1485CASE i% OF
 1486  WHEN 0: IFb%=64 PROCstartdrag(sabodyw%,i%,FNleaf(FNgeticnstring(sabodyw%,1))):dragging%=1
 1487  WHEN 2:
 1488   IF INSTR(FNgeticnstring(sabodyw%,1),".")=0:PROCerror("To save, drag the SpriteFile icon to a directory display",0):ENDPROC
 1489   PROCsavespritefile(FNgeticnstring(sabodyw%,1),0,0):IF currmenubut%<>1:SYS"Wimp_CreateMenu",-1
 1490ENDCASE
 1491ENDPROC
 1492
 1493DEFPROCprbodywclick(b%,i%)
 1494SYS "Wimp_GetPointerInfo",,blk2%
 1495currmenubut%=blk2%!8:IFcurrmenubut%=2:ENDPROC
 1496IFi%=7:PROCprintit:IF currmenubut%<>1:SYS"Wimp_CreateMenu",-1
 1497ENDPROC
 1498
 1499DEFPROCsaanimwclick(b%,i%)
 1500SYS "Wimp_GetPointerInfo",,blk2%
 1501currmenubut%=blk2%!8:IFcurrmenubut%=2:ENDPROC
 1502CASE i% OF
 1503  WHEN 0: IFb%=64 PROCstartdrag(saanimw%,i%,FNleaf(FNgeticnstring(saanimw%,1))):dragging%=1
 1504  WHEN 2:
 1505   IF INSTR(FNgeticnstring(saanimw%,1),".")=0:PROCerror("To save, drag the SpriteFile icon to a directory display",0):ENDPROC
 1506   PROCsavespritefile(FNgeticnstring(saanimw%,1),0,0):IF currmenubut%<>1:SYS"Wimp_CreateMenu",-1
 1507ENDCASE
 1508ENDPROC
 1509
 1510DEFPROCpranimwclick(b%,i%)
 1511SYS "Wimp_GetPointerInfo",,blk2%
 1512currmenubut%=blk2%!8:IFcurrmenubut%=2:ENDPROC
 1513IFi%=5:PROCprintit:IF currmenubut%<>1:SYS"Wimp_CreateMenu",-1
 1514ENDPROC
 1515
 1516DEFPROCedboxwclick(b%,i%)
 1517SYS "Wimp_GetPointerInfo",,blk2%
 1518currmenubut%=blk2%!8:IFcurrmenubut%=2:ENDPROC
 1519CASE i% OF
 1520  WHEN 0:
 1521   IF INSTR(FNgeticnstring(edboxw%,2),".")=0:PROCerror("To save, drag the TextFile icon to a directory display",0):ENDPROC
 1522   PROCsavetextfile(FNgeticnstring(edboxw%,2),0,0)::IF currmenubut%<>1:SYS"Wimp_CreateMenu",-1
 1523  WHEN 3: IFb%=64 PROCstartdrag(edboxw%,i%,FNleaf(FNgeticnstring(edboxw%,2))):dragging%=2
 1524ENDCASE
 1525ENDPROC
 1526
 1527DEFPROCoverwclick(b%,i%)
 1528PROCtoggleicnsel(overw%,i%)
 1529CASE i% OF
 1530  WHEN 0: PROCchangesex(overw%,0):PROCchecksex:PROCplotbodyorgs
 1531  WHEN 1: PROCchangesex(overw%,1):PROCchecksex:PROCplotbodyorgs
 1532  WHEN 2: PROCbigsmall(overw%):PROCplotbodyorgs
 1533  WHEN 3: PROCopen_systw:PROCselecticn(overw%,3,FALSE)
 1534REM  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
 1535  WHEN 6,7,8,9:PROCtoggleplot(i%):PROCchecksex:PROCplotbodyorgs
 1536ENDCASE
 1537ENDPROC
 1538
 1539DEFPROCsystwclick(mx%,my%,b%,i%)
 1540IF(i%<>5)AND((i%<7)OR(i%>12)):PROCtoggleicnsel(systw%,i%)
 1541CASE i% OF
 1542  WHEN -1,5,6,7,8,9,10,11,12: PROCchecksystem(mx%,my%)
 1543  WHEN 0: PROCchangesex(systw%,0):PROCchecksystsex:IFsystem_on%(0)ORsystem_on%(6)ORsystem_on%(7):PROCplotbodysyst
 1544  WHEN 1: PROCchangesex(systw%,1):PROCchecksystsex:IFsystem_on%(0)ORsystem_on%(6)ORsystem_on%(7):PROCplotbodysyst
 1545  WHEN 2: PROCbigsmall(systw%):PROCplotbodysyst
 1546  WHEN 3: PROCsystemtext(0)
 1547  WHEN 4: PROCopen_overw:PROCselecticn(systw%,4,FALSE)
 1548ENDCASE
 1549ENDPROC
 1550
 1551DEFPROCdefnwclick(mx%,my%,b%)
 1552IFb%=2:PROCdefnw_menu(mx%,my%):ENDPROC
 1553ENDPROC
 1554
 1555DEFPROCbodywclick(mx%,my%,b%,i%)
 1556IF(b%=2)AND(NOT FNisselected(systw%,2)):PROCbodyw_menu(mx%,my%):ENDPROC
 1557PROCtoggleicnsel(bodyw%,i%)
 1558IF(i%>=0)AND(i%<25):PROCgocloser(i%)
 1559IF(i%>=25)AND(i%<=43):PROCjustwordinfo(i%)
 1560ENDPROC
 1561
 1562DEFPROCanimwclick(mx%,my%,b%,i%)
 1563IFb%=2:PROCanimw_menu(mx%,my%):ENDPROC
 1564PROCtoggleicnsel(animw%,i%)
 1565CASE i% OF
 1566  WHEN 0: onlyfem%=0:PROCtext
 1567  WHEN 1: onlyfem%=0:PROCwindowlev1
 1568  WHEN 2: onlyfem%=0:PROCwindowlev2
 1569  WHEN 3: onlyfem%=0
 1570          IFFNisselected(animw%,3)THEN
 1571           IFdoingcloser%:doingcloser%=0:activew%=1:PROCshowanim(activew%,activeicn%):PROCselecticn(animw%,2,FALSE)
 1572           doingmove%=TRUE:firstmove%=TRUE:PROCanimate
 1573          ELSE
 1574           PROCshowanim(activew%,activeicn%):PROCanimateend:SYS"Wimp_ForceRedraw",animw%,660,-700,780,-636
 1575          ENDIF
 1576  WHEN 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:
 1577        IFactivetxticn%>4 PROCselecticn(animw%,activetxticn%,FALSE)
 1578        IFactivetxticn%=i% activetxticn%=activew%:ELSE:activetxticn%=i%
 1579        PROCaddwords(activetxticn%)
 1580  WHEN 49: PROCanimate
 1581ENDCASE
 1582ENDPROC
 1583
 1584DEFPROCclick(mx%,my%,but%,w%,i%)
 1585CASE w% OF
 1586  WHEN -2:
 1587    CASE but% OF
 1588      WHEN 2: PROCmaster_menu("BodyWise","Info,Setup...,7Quit,",!eb%,256)
 1589      WHEN 4: IFFNisselected(setupw%,48):PROCstartpin:ELSE:PROCstartgame
 1590    ENDCASE
 1591  WHEN setupw%: PROCsetupwclick(but%,i%)
 1592  WHEN overw%: PROCoverwclick(but%,i%)
 1593  WHEN systw%: PROCsystwclick(mx%,my%,but%,i%)
 1594  WHEN bodyw%: PROCbodywclick(mx%,my%,but%,i%)
 1595  WHEN animw%: PROCanimwclick(mx%,my%,but%,i%)
 1596REM  WHEN pdboxw%: PROCpdboxwclick(but%,i%)
 1597  WHEN edboxw%: PROCedboxwclick(but%,i%)
 1598  WHEN defnw%: PROCdefnwclick(mx%,my%,but%)
 1599  WHEN pinorgsw%: PROCpinorgswclick(mx%,my%,but%,i%)
 1600  WHEN pinoutlw%: IF(pingotto%=2)OR(pingotto%=9):PROCpinoutlwclick(mx%,my%,but%,i%)
 1601  WHEN sabodyw%: PROCsabodywclick(but%,i%)
 1602  WHEN prbodyw%: PROCprbodywclick(but%,i%)
 1603  WHEN saanimw%: PROCsaanimwclick(but%,i%)
 1604  WHEN pranimw%: PROCpranimwclick(but%,i%)
 1605ENDCASE
 1606ENDPROC
 1607
 1608DEFPROCanimbuts_onoff
 1609activetxticn%=activew%
 1610IFFNisopen(animw%)THEN:IFFNisselected(animw%,0) PROCremovelabels
 1611IF FNisselected(setupw%,3):simp%=1:ELSE:simp%=0
 1612IFFNisopen(animw%)THEN:IFFNisselected(animw%,0) PROCaddlines(0):PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
 1613ENDPROC
 1614
 1615DEFPROCshadeicn(w%,i%,f%)
 1616!blk%=w%:blk%!4=i%:blk%!12=1<<22
 1617IFf% blk%!8=1<<22:ELSE:blk%!8=0
 1618SYS "Wimp_SetIconState",,blk%
 1619ENDPROC
 1620
 1621DEFPROCtoggleicnsel(w%,i%)
 1622IF FNisselected(w%,i%) PROCselecticn(w%,i%,FALSE):ELSE:PROCselecticn(w%,i%,TRUE)
 1623ENDPROC
 1624
 1625DEFPROCtoggleplot(i%)
 1626temp$=link$(i%-4):more%=TRUE
 1627REPEAT
 1628bodysp%(VAL(temp$),0)=FNisselected(overw%,i%)
 1629IFLEN(temp$)>2THEN temp$=RIGHT$(temp$,LEN(temp$)-3):ELSE:more%=FALSE
 1630UNTIL NOT more%
 1631REM check ureter
 1632IF(i%=23)OR(i%=24):bodysp%(20,0)=FNisselected(overw%,23)ANDFNisselected(overw%,24)
 1633REM check pancreas
 1634IF(i%=21)OR(i%=26):bodysp%(25,0)=FNisselected(overw%,21)ORFNisselected(overw%,26)
 1635ENDPROC
 1636
 1637DEFPROCsystemtext(fromsystbut%)
 1638IFNOTFNisselected(systw%,3):!blk%=defnw%:PROCclosewind(blk%):ENDPROC
 1639!blk2%=defnw%:SYS"Wimp_GetWindowState",,blk2%:oldwpos%=blk2%!28
 1640IFfromsystbut%THEN
 1641 IF(((blk2%!12)-(blk2%!4))=800)AND(((blk2%!16)-(blk2%!8))>=length%):wasfullwindow%=TRUE:ELSE:wasfullwindow%=FALSE
 1642ENDIF
 1643!blk%=defnw%:PROCclosewind(blk%)
 1644PROCsortsystemtext
 1645IFfromsystbut%THEN
 1646 IFwasfullwindow%THEN
 1647  IF(blk2%!16)<(length%+48):blk2%!16=length%+48
 1648  blk2%!8=(blk2%!16)-length%
 1649 ELSE
 1650  IF((blk2%!16)-(blk2%!8))>length%:blk2%!8=(blk2%!16)-length%
 1651  blk2%!24=0
 1652 ENDIF
 1653ELSE
 1654!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
 1655ENDIF
 1656PROCopenwind(blk2%)
 1657ENDPROC
 1658
 1659DEFPROCsortsystemtext
 1660l%=0
 1661FORj%=0TO7
 1662 IFFNisselected(systw%,j%+5)THEN
 1663  FORk%=systlinkwords%(j%,0)TOsystlinkwords%(j%,1)
 1664   PROCputicnstring(defnw%,l%,systwords$(k%)):l%+=1
 1665  NEXT
 1666 ENDIF
 1667NEXT
 1668totsysttxtlines%=l%-1
 1669IFl%<22THEN
 1670 FORj%=l%TO21:PROCputicnstring(defnw%,j%,""):NEXT
 1671ENDIF
 1672length%=((40*l%)+8)
 1673!blk%=0:blk%!4=-length%:blk%!8=800:blk%!12=0:SYS"Wimp_SetExtent",defnw%,blk%
 1674ENDPROC
 1675
 1676DEFPROCchecksex
 1677bodysp%(3,0)=FNisselected(overw%,4)ANDFNisselected(overw%,1)
 1678bodysp%(18,0)=(FNisselected(overw%,26)ORFNisselected(overw%,27))ANDFNisselected(overw%,1)
 1679bodysp%(19,0)=FNisselected(overw%,27)ANDFNisselected(overw%,1)
 1680bodysp%(43,0)=bodysp%(19,0)
 1681bodysp%(21,0)=FNisselected(overw%,27)ANDFNisselected(overw%,0)
 1682bodysp%(23,0)=bodysp%(21,0):bodysp%(37,0)=bodysp%(21,0):bodysp%(45,0)=bodysp%(21,0)
 1683bodysp%(44,0)=(FNisselected(overw%,26)ORFNisselected(overw%,27))ANDFNisselected(overw%,0)
 1684bodysp%(50,0)=(FNisselected(overw%,8)ORFNisselected(overw%,25))ANDFNisselected(overw%,1)
 1685bodysp%(51,0)=bodysp%(50,0)
 1686bodysp%(33,0)=FNisselected(overw%,12)ORFNisselected(overw%,26)
 1687bodysp%(46,0)=FNisselected(overw%,8)ORFNisselected(overw%,25)
 1688bodysp%(47,0)=bodysp%(46,0)
 1689bodysp%(48,0)=bodysp%(46,0)
 1690bodysp%(49,0)=bodysp%(46,0)
 1691bodysp%(53,0)=bodysp%(46,0)
 1692ENDPROC
 1693
 1694DEFPROCchangesex(w%,i%)
 1695PROCselecticn(w%,1-i%,NOTFNisselected(w%,i%))
 1696IF w%=overw% PROCselecticn(systw%,0,FNisselected(overw%,0)):PROCselecticn(systw%,1,FNisselected(overw%,1))
 1697IF w%=systw% PROCselecticn(overw%,0,FNisselected(systw%,0)):PROCselecticn(overw%,1,FNisselected(systw%,1))
 1698ENDPROC
 1699
 1700DEFPROCbigsmall(w%)
 1701IFw%=systw%:PROCselecticn(overw%,2,FNisselected(systw%,2))
 1702IFw%=overw%:PROCselecticn(systw%,2,FNisselected(overw%,2))
 1703IFlabelson%<10:PROCremovebodylabs
 1704!blk%=bodyw%:SYS"Wimp_GetWindowState",,blk%
 1705!bodscale%=(!bodscale%)/spscale%:bodscale%!4=(bodscale%!4)/spscale%
 1706IFspscale%=1 THEN
 1707blk%!20=2*blk%!20+((blk%!12-blk%!4)/2):blk%!24=2*blk%!24-((blk%!16-blk%!8)/2):REM blk%!28=-1
 1708spscale%=2
 1709ELSE
 1710blk%!20=(blk%!20-(blk%!12-blk%!4)/2)/2:blk%!24=(blk%!24+(blk%!16-blk%!8)/2)/2:REM blk%!28=-1
 1711IF(blk%!20)<0 blk%!20=0
 1712IF(blk%!24)>0 blk%!24=0
 1713IF(blk%!12-blk%!4)>624 blk%!20=0:blk%!12=blk%!4+624
 1714IF(blk%!16-blk%!8)>1460 blk%!24=0:blk%!8=blk%!16-1460
 1715IF(blk%!4-blk%!20+624)<blk%!12 blk%!20=blk%!20-(blk%!12-(blk%!4-blk%!20+624))
 1716IF(blk%!16-blk%!24-1460)>blk%!8 blk%!24=blk%!24+((blk%!16-blk%!24-1460)-blk%!8)
 1717spscale%=1
 1718ENDIF
 1719!bodscale%=(!bodscale%)*spscale%:bodscale%!4=(bodscale%!4)*spscale%
 1720!blk2%=bodyw%:PROCclosewind(blk2%)
 1721!blk2%=0:blk2%!4=-(1460*spscale%):blk2%!8=624*spscale%:blk2%!12=0:SYS"Wimp_SetExtent",bodyw%,blk2%
 1722PROCopenwind(blk%)
 1723ENDPROC
 1724
 1725DEFPROCchecksystem(mx%,my%)
 1726!blk%=systw%:SYS"Wimp_GetWindowState",,blk%
 1727IF(blk%!16)-(blk%!24)-my%>=68THEN:systclick%=0:ELSE:ENDPROC
 1728IF(blk%!16)-(blk%!24)-my%>=288:systclick%=2
 1729IF(blk%!16)-(blk%!24)-my%>=508:systclick%=4
 1730IF(blk%!16)-(blk%!24)-my%>=724:systclick%=6
 1731IFmx%-((blk%!4)-(blk%!20))>284:systclick%+=1
 1732IFsystclick%<>1:PROCdiscmess("Only the Nervous system is available in this demonstration system.",0):ENDPROC
 1733IFFNisselected(setupw%,34)THEN:IFNOTFNisselected(setupw%,37+systclick%):ENDPROC
 1734IFlabelson%<10:PROCremovebodylabs
 1735IFsystem_on%(systclick%)THEN
 1736 system_on%(systclick%)=FALSE:PROCselecticn(systw%,systclick%+5,FALSE)
 1737 IF(systclick%=0)AND(FNno_systems_on>0):PROCtogglesystplot(8):ELSE:PROCtogglesystplot(systclick%)
 1738 IFsystem_on%(0)AND(FNno_systems_on=1):system_on%(0)=FALSE:PROCtogglesystplot(8):system_on%(0)=TRUE:PROCtogglesystplot(0)
 1739ELSE
 1740 system_on%(systclick%)=TRUE:PROCselecticn(systw%,systclick%+5,TRUE)
 1741 IFsystclick%=0THEN
 1742  IFFNno_systems_on=1:PROCtogglesystplot(0):ELSE:PROCtogglesystplot(8)
 1743 ELSE
 1744  IFsystem_on%(0)AND(FNno_systems_on=2):system_on%(0)=FALSE:PROCtogglesystplot(0):system_on%(0)=TRUE:PROCtogglesystplot(8)
 1745  PROCtogglesystplot(systclick%)
 1746 ENDIF
 1747ENDIF
 1748PROCupdate_buttons(systclick%)
 1749PROCchecksystsex
 1750IFFNno_systems_on=0THEN
 1751 PROCselecticn(systw%,3,FALSE):PROChideicn(systw%,3,TRUE)
 1752 IFFNisopen(defnw%):!blk%=defnw%:PROCclosewind(blk%)
 1753 SYS"Wimp_ForceRedraw",systw%,334,-56,430,-8
 1754ELSE
 1755 IFFNno_systems_on=1:PROChideicn(systw%,3,FALSE)
 1756ENDIF
 1757IFFNisselected(systw%,3):PROCsystemtext(-1)
 1758PROCplotbodysyst
 1759ENDPROC
 1760
 1761DEFPROCtogglesystplot(system%)
 1762temp$=systlink$(system%):more%=TRUE
 1763REPEAT
 1764IFsystem%<8:systbodysp%(VAL(temp$))=system_on%(system%):ELSE:systbodysp%(VAL(temp$))=system_on%(0)
 1765IFLEN(temp$)>2THEN temp$=RIGHT$(temp$,LEN(temp$)-3):ELSE:more%=FALSE
 1766UNTIL NOT more%
 1767ENDPROC
 1768
 1769DEFFNno_systems_on
 1770on%=0
 1771FORm%=0TO7
 1772IFsystem_on%(m%):on%+=1
 1773NEXT
 1774=on%
 1775
 1776DEFFNsystem_on
 1777FORm%=0TO7
 1778IFsystem_on%(m%):=m%
 1779NEXT
 1780=9
 1781
 1782DEFPROCchecksystsex
 1783systbodysp%(3)=system_on%(0)ANDFNisselected(systw%,1)
 1784systbodysp%(21)=system_on%(7)ANDFNisselected(systw%,0)
 1785systbodysp%(23)=systbodysp%(21)
 1786systbodysp%(37)=systbodysp%(21)
 1787systbodysp%(45)=systbodysp%(21)
 1788systbodysp%(44)=(system_on%(6)ORsystem_on%(7))ANDFNisselected(systw%,0)
 1789systbodysp%(18)=(system_on%(6)ORsystem_on%(7))ANDFNisselected(systw%,1)
 1790systbodysp%(19)=system_on%(7)ANDFNisselected(systw%,1)
 1791systbodysp%(43)=systbodysp%(19)
 1792systbodysp%(46)=system_on%(1)ORsystem_on%(5)
 1793systbodysp%(47)=systbodysp%(46)
 1794systbodysp%(48)=systbodysp%(46)
 1795systbodysp%(33)=system_on%(2)ORsystem_on%(6)
 1796systbodysp%(25)=system_on%(4)ORsystem_on%(6)
 1797IF(labelson%<10)AND(FNsystem_on>5):PROCremovebodylabs
 1798ENDPROC
 1799
 1800DEFPROCbodysystdefn
 1801IFFNisopen(systw%)THEN
 1802!blk%=systw%:PROCclosewind(blk%)
 1803!blk2%=systw%:SYS"Wimp_GetWindowState",,blk2%:blk2%!28=-1
 1804ELSE
 1805!blk2%=systw%:blk2%!4=250:blk2%!8=500:blk2%!12=1030:blk2%!16=700:blk2%!20=0:blk2%!24=0:blk2%!28=-1
 1806ENDIF
 1807IFactivesysticn%>0THEN
 1808!systwtitlesiz%=5+VAL(systtit$(activesysticn%-26)):$systwtitle%="The "+RIGHT$(systtit$(activesysticn%-26),LEN(systtit$(activesysticn%-26))-3)
 1809PROCputicnstring(systw%,0,systwords$(activesysticn%-26))
 1810PROCopenwind(blk2%)
 1811ENDIF
 1812ENDPROC
 1813
 1814DEFPROCjustwordinfo(i%)
 1815LOCAL a$
 1816IFNOTFNisselected(bodyw%,i%):activeorgicn%=-1:!blk%=orgdefnw%:PROCclosewind(blk%):ENDPROC
 1817IFactiveorgicn%<>-1THEN:PROCselecticn(bodyw%,activeorgicn%,FALSE)
 1818activeorgicn%=i%
 1819a$=FNgeticnstring(bodyw%,i%):IF(ASC(a$)>&60)AND(ASC(a$)<&7B):LEFT$(a$,1)=CHR$(ASC(a$)-&20)
 1820PROCputicnstring(orgdefnw%,0,a$):PROCputicnstring(orgdefnw%,1,orgjustwords$(activeorgicn%-25,simp%))
 1821IFNOTFNisopen(orgdefnw%)THEN
 1822 !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
 1823 PROCopenwind(blk%)
 1824ENDIF
 1825ENDPROC
 1826
 1827DEFPROCgocloser(i%)
 1828IFNOTFNisselected(bodyw%,i%):activeicn%=-1:!blk%=animw%:PROCclosewind(blk%):PROCinitanimw:ENDPROC
 1829IFactiveicn%<>-1THEN:PROCselecticn(bodyw%,activeicn%,FALSE):!blk%=animw%:SYS"Wimp_GetWindowState",,blk%:oldhandl%=blk%!28:PROCclosewind(blk%):PROCinitanimw:wasopen%=TRUE:ELSE:wasopen%=FALSE
 1830REM IFFNisopen(animw%):!blk%=animw%:PROCclosewind(blk%)
 1831!animwtitlesiz%=21+VAL(animfile$(i%,1)):$animwtitle%="The body in detail: "+RIGHT$(animfile$(i%,1),LEN(animfile$(i%,1))-3)
 1832activeicn%=i%:activew%=0
 1833IFbuttype%(activeicn%)=1:PROCputicnstring(animw%,1,"closer"):PROCputicnstring(animw%,2,"cross-section")
 1834IFbuttype%(activeicn%)=2:PROCputicnstring(animw%,1,"cross-section"):PROCputicnstring(animw%,2,"closer")
 1835IFbuttype%(activeicn%)=3:PROCputicnstring(animw%,1,"closer"):PROCputicnstring(animw%,2,"new view")
 1836IFbuttype%(activeicn%)=4:PROCputicnstring(animw%,1,"cross-section"):PROCputicnstring(animw%,2,"circulation")
 1837IFbuttype%(activeicn%)=5:PROCputicnstring(animw%,1,"new view"):PROCputicnstring(animw%,2,"closer")
 1838IFbuttype%(activeicn%)=6:PROCputicnstring(animw%,1,"closer"):PROCputicnstring(animw%,2,"pregnancy")
 1839*Set BodyWise$chaindir <BodyWise$Dir>
 1840IFi%<24:wfile$="$.!Bodywise.wordfiles."+animfile$(i%,0)+"_w":ELSE:wfile$="$.!Bodywise.wordfiles.sweat_w"
 1841IFi%<24:nfile$="$.!Bodywise.numbfiles."+animfile$(i%,0)+"_n":ELSE:nfile$="$.!Bodywise.numbfiles.sweat_n"
 1842IFY%=0 test%=0:REPEAT:PROCfloppy_disk("bodywise","$.!Bodywise."+animfile$(i%,0)+"_c",wfile$,nfile$):UNTILerror%=0
 1843SYS "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>."+animfile$(i%,0)+"_c"
 1844SYS "OS_SpriteOp",&10F,animarea%,"anim",1,384,154,12
 1845PROCaddpalet(animarea%,"anim"):PROCmakesprites(i%)
 1846PROCgetwordfile(i%):PROCgetnumbfile(i%)
 1847IFi%=20THEN
 1848 IFsexon%:butdef%(1,3)=-1:ELSE:butdef%(1,3)=0
 1849ENDIF
 1850PROCshowhidebuts(0,i%):FORk%=0TO3:PROCselecticn(animw%,k%,FALSE):NEXT
 1851!blk%=0:blk%!4=-700:blk%!8=780:blk%!12=0:SYS"Wimp_SetExtent",animw%,blk%
 1852IFwasopen%THEN
 1853!blk%=animw%:SYS"Wimp_GetWindowState",,blk%:blk%!28=oldhandl%
 1854ELSE
 1855!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
 1856ENDIF
 1857PROCopenwind(blk%)
 1858PROCshowanim(0,i%)
 1859ENDPROC
 1860
 1861DEFPROCgetwordfile(i%)
 1862LOCAL t%,s%,u%
 1863IFi%<24:wfile$="<BodyWise$chaindir>.wordfiles."+animfile$(i%,0)+"_w":ELSE:wfile$="<BodyWise$chaindir>.wordfiles.sweat_w"
 1864X=OPENIN wfile$
 1865FORs%=0TO1:FORt%=0TO17:FORu%=0TO1
 1866INPUT#X, words$(s%,t%,u%)
 1867NEXT:NEXT:NEXT
 1868FORs%=0TO1:FORt%=0TO5
 1869INPUT#X, animwords$(s%,t%)
 1870NEXT:NEXT
 1871CLOSE#X
 1872ENDPROC
 1873
 1874DEFPROCgetnumbfile(i%)
 1875LOCAL t%,s%
 1876IFi%<24:nfile$="<BodyWise$chaindir>.numbfiles."+animfile$(i%,0)+"_n":ELSE:nfile$="<BodyWise$chaindir>.numbfiles.sweat_n"
 1877X=OPENIN nfile$
 1878FORt%=0TO1:FORs%=0TO2
 1879INPUT#X, lines$(t%,s%)
 1880NEXT:NEXT
 1881FORt%=0TO1:FORs%=0TO7
 1882INPUT#X, words%(t%,s%)
 1883NEXT:NEXT
 1884FORt%=0TO2:FORs%=0TO3
 1885INPUT#X, butdef%(t%,s%)
 1886NEXT:NEXT
 1887CLOSE#X
 1888ENDPROC
 1889
 1890DEFPROCmakesprites(i%)
 1891CASE i% OF
 1892 WHEN 2: PROCcl_anim(15):PROCadd_sp(detarea%,"eyea",animarea%,"anim",50,76,15):PROCflip(1,"eyea")
 1893         PROCadd_sp(detarea%,"eyea",animarea%,"anim",50,9,15)
 1894         SYS "OS_SpriteOp",&10F,detarea%,"eye0",0,384,154,12:PROCcopysp("anim","eye0")
 1895         PROCadd_sp(detarea%,"eyeb",animarea%,"anim",56,76,15):PROCflip(1,"eyeb")
 1896         PROCadd_sp(detarea%,"eyeb",animarea%,"anim",56,34,15)
 1897         SYS "OS_SpriteOp",&119,detarea%,"eyea":SYS "OS_SpriteOp",&119,detarea%,"eyeb"
 1898         SYS "OS_SpriteOp",&10F,detarea%,"eye1",0,384,154,12:PROCcopysp("anim","eye1")
 1899 WHEN 4: PROCcl_anim(15):PROCadd_sp(detarea%,"nosebulb",animarea%,"anim",16,11,15)
 1900         FOR s%=0TO4:PROCadd_sp(detarea%,"olfcells",animarea%,"anim",16+(s%*32),67,15):NEXT
 1901         SYS "OS_SpriteOp",&10F,detarea%,"noston1",0,384,154,12:PROCcopysp("anim","noston1")
 1902         PROCcl_anim(15):PROCadd_sp(detarea%,"tongue",animarea%,"anim",55,14,15):PROCflip(2,"tongue")
 1903         PROCadd_sp(detarea%,"tongue",animarea%,"anim",93,14,15)
 1904         SYS "OS_SpriteOp",&119,detarea%,"tongue":SYS "OS_SpriteOp",&119,detarea%,"nosebulb":SYS "OS_SpriteOp",&119,detarea%,"olfcells"
 1905         SYS "OS_SpriteOp",&10F,detarea%,"noston2",0,384,154,12:PROCcopysp("anim","noston2")
 1906 WHEN 5: PROCcl_anim(15):PROCadd_sp(detarea%,"av",animarea%,"anim",14,16,15):PROCadd_sp(detarea%,"avmove",animarea%,"anim",14,16,13)
 1907         PROCadd_sp(detarea%,"heartarr",animarea%,"anim",6,76,15):PROCadd_sp(detarea%,"artery",animarea%,"anim",6,6,15):PROCadd_sp(detarea%,"vein",animarea%,"anim",7,132,15)
 1908         SYS "OS_SpriteOp",&119,detarea%,"avmove":SYS "OS_SpriteOp",&10F,detarea%,"avmove",0,384,154,12:PROCcopysp("anim","avmove")
 1909 WHEN 6: PROCcl_anim(15):PROCadd_sp(detarea%,"skback",animarea%,"anim",28,27,15)
 1910         FOR s%=0TO2:PROCadd_sp(detarea%,"skxsect",animarea%,"anim",29+(s%*45),55,13):PROCadd_sp(detarea%,"sknerves",animarea%,"anim",29+(s%*45),59,15):NEXT
 1911         SYS "OS_SpriteOp",&10F,detarea%,"skinxs",0,384,154,12:PROCcopysp("anim","skinxs")
 1912 WHEN 11:PROCcl_anim(15):PROCadd_sp(detarea%,"scapula",animarea%,"anim",134,31,15):PROCadd_sp(detarea%,"hum0",animarea%,"anim",104,22,15):PROCadd_sp(detarea%,"humlig",animarea%,"anim",131,37,15)
 1913         PROCadd_sp(detarea%,"disthum",animarea%,"anim",54,83,15):PROCadd_sp(detarea%,"ulna0",animarea%,"anim",9,63,15)
 1914         SYS "OS_SpriteOp",&10F,detarea%,"jointxs",0,384,154,12:PROCcopysp("anim","jointxs")
 1915 WHEN 13:PROCcl_anim(15):PROCadd_sp(detarea%,"lungsbgrd",animarea%,"anim",11,15,15):PROCflip(2,"lungsbgrd"):PROCadd_sp(detarea%,"lungsbgrd",animarea%,"anim",93,15,15)
 1916         SYS "OS_SpriteOp",&119,detarea%,"lungsbgrd":SYS "OS_SpriteOp",&10F,detarea%,"lungsbgrd",0,384,154,12:PROCcopysp("anim","lungsbgrd")
 1917 WHEN 15:PROCcl_anim(15):PROCadd_sp(detarea%,"bladder",animarea%,"anim",28,5,15):PROCflip(2,"bladder")
 1918         PROCadd_sp(detarea%,"bladder",animarea%,"anim",96,5,15)
 1919         SYS "OS_SpriteOp",&119,detarea%,"bladder"
 1920         SYS "OS_SpriteOp",&10F,detarea%,"bladder0",0,384,154,12:PROCcopysp("anim","bladder0")
 1921         PROCadd_sp(detarea%,"bladderxs",animarea%,"anim",28,5,9):PROCflip(2,"bladderxs")
 1922         PROCadd_sp(detarea%,"bladderxs",animarea%,"anim",96,5,9)
 1923         SYS "OS_SpriteOp",&119,detarea%,"bladderxs"
 1924         SYS "OS_SpriteOp",&10F,detarea%,"bladder1",0,384,154,12:PROCcopysp("anim","bladder1")
 1925 WHEN 23:FORr%=0TO1
 1926         PROCexpand("cell"+STR$(r%)):PROCexpand("axon"+STR$(r%)):PROCexpand("tail"+STR$(r%))
 1927         SYS"OS_SpriteOp",&10F,detarea%,"nerve"+STR$(r%),0,384,154,12
 1928         SYS"OS_SpriteOp",&13C,detarea%,"nerve"+STR$(r%),0
 1929         VDU18,0,11:VDU 25,4,0;0;:VDU 25,101,768;616;
 1930         FOR s%=0TO7:SYS"OS_SpriteOp",&122,detarea%,"axon"+STR$(r%),axon1%(s%,0),axon1%(s%,1),8:NEXT
 1931         FOR s%=0TO3:SYS"OS_SpriteOp",&122,detarea%,"cell"+STR$(r%),cell%(s%,0),cell%(s%,1),8:NEXT
 1932         FOR s%=0TO20:SYS"OS_SpriteOp",&122,detarea%,"axon"+STR$(r%),axon2%(s%,0),axon2%(s%,1),8:NEXT
 1933         FOR s%=0TO3:SYS"OS_SpriteOp",&122,detarea%,"tail"+STR$(r%),tail%(s%,0),tail%(s%,1),8:NEXT
 1934         SYS"OS_SpriteOp",&13C,detarea%,0,0
 1935         PROCanim_bdr("nerve"+STR$(r%))
 1936         SYS"OS_SpriteOp",&119,detarea%,"cell"+STR$(r%):SYS"OS_SpriteOp",&119,detarea%,"axon"+STR$(r%):SYS"OS_SpriteOp",&119,detarea%,"tail"+STR$(r%)
 1937         NEXT
 1938 WHEN 24:FORr%=0TO10:SYS "OS_SpriteOp",&119,detarea%,skindel$(r%):NEXT
 1939         FORr%=0TO3:SYS "OS_SpriteOp",&119,detarea%,"pinhead"+STR$(r%):NEXT
 1940         FORr%=0TO3:SYS "OS_SpriteOp",&119,detarea%,"pin"+STR$(r%):NEXT
 1941         PROCcl_anim(15):PROCadd_sp(detarea%,"skback",animarea%,"anim",28,27,15)
 1942         FOR s%=0TO2:PROCadd_sp(detarea%,"skxsect",animarea%,"anim",29+(s%*45),55,13):NEXT
 1943         FOR s%=0TO1:PROCadd_sp(detarea%,"sweat",animarea%,"anim",53+(s%*63),54,15):NEXT
 1944         SYS "OS_SpriteOp",&119,detarea%,"skxsect":SYS "OS_SpriteOp",&119,detarea%,"sweat"
 1945         SYS "OS_SpriteOp",&10F,detarea%,"skinxs",0,384,154,12:PROCcopysp("anim","skinxs")
 1946ENDCASE
 1947REMPROCerror(animfile$(i%,0)+" "+STR$(!detarea%-(detarea%!12)),0)
 1948ENDPROC
 1949
 1950DEFPROCcopysp(fromsp$,tosp$)
 1951IFfromsp$="anim" fromarea%=animarea%:toarea%=detarea%:ELSE:fromarea%=detarea%:toarea%=animarea%
 1952SYS"OS_SpriteOp",&13C,toarea%,tosp$,0
 1953SYS"OS_SpriteOp",&122,fromarea%,fromsp$,0,0,0
 1954SYS"OS_SpriteOp",&13C,toarea%,0,0
 1955ENDPROC
 1956
 1957DEFPROCshowanim(wlev%,i%)
 1958PROCmakeorgan(wlev%,i%)
 1959PROCplotanim
 1960ENDPROC
 1961
 1962DEFPROCmakeorgan(wlev%,i%)
 1963CASE i% OF
 1964  WHEN 0: PROCmakebrain(wlev%)
 1965  WHEN 1: PROCmakemouth(wlev%)
 1966  WHEN 2: PROCmakeeye(wlev%)
 1967  WHEN 3: PROCmakepit(wlev%)
 1968  WHEN 4: PROCmakenose(wlev%)
 1969  WHEN 5: PROCmakeartv(wlev%)
 1970  WHEN 6: PROCmakeskin(wlev%)
 1971  WHEN 7: PROCmakeheart(wlev%)
 1972  WHEN 8: PROCmakebone(wlev%)
 1973  WHEN 9: PROCmakekidney(wlev%)
 1974  WHEN 10: PROCmakeliver(wlev%)
 1975  WHEN 11: PROCmakejoint(wlev%)
 1976  WHEN 12: PROCmakestomach(wlev%)
 1977  WHEN 13: PROCmakelungs(wlev%)
 1978  WHEN 14: PROCmakebaby(wlev%)
 1979  WHEN 15: PROCmakebladder(wlev%)
 1980  WHEN 16: PROCmakelymph(wlev%)
 1981  WHEN 17: PROCmakesmintest(wlev%)
 1982  WHEN 18: PROCmakelgintest(wlev%)
 1983  WHEN 19: PROCmakefemale(wlev%)
 1984  WHEN 20: PROCmakemale(wlev%)
 1985  WHEN 21: PROCmakeear(wlev%)
 1986  WHEN 22: PROCmakemuscle(wlev%)
 1987  WHEN 23: PROCmakenerves(wlev%)
 1988  WHEN 24: PROCmakesweat(wlev%)
 1989ENDCASE
 1990ENDPROC
 1991
 1992DEFPROCshowhidebuts(wlev%,i%)
 1993REM shows or hides top 4 buttons of animw% dep on i% and windowlevel(0=top,1=xsection,2=closer)
 1994!blk%=animw%:blk%!12=1<<23
 1995FORk%=0TO3
 1996blk%!4=k%
 1997IFbutdef%(wlev%,k%):blk%!8=0:ELSE:blk%!8=1<<23
 1998SYS "Wimp_SetIconState",,blk%
 1999NEXT
 2000SYS "Wimp_ForceRedraw",animw%,0,-112,780,-8
 2001ENDPROC
 2002
 2003DEFPROCremovesex(fl%)
 2004*CHANNELVOICE 1 9
 2005REMIFfl%:butdef%(20,1,3)=0:ELSE:butdef%(20,1,3)=-1
 2006IFfl%:systemlabels$(7)="02,20,35":systemlabels$(8)="02,19,36":ELSE:systemlabels$(7)="03,14,20,35":systemlabels$(8)="03,14,19,36"
 2007IFfl%:PROCdiscmess("Incorrect password. Parts of the Reproductive System are now hidden.",0):ELSE:PROCdiscmess("Correct password. All parts of the Reproductive System are now viewable.",0)
 2008IF(FNno_systems_on=1)AND(FNsystem_on=7):PROChideicn(bodyw%,14,fl%):PROCselecticn(bodyw%,14,FALSE)
 2009IF(FNno_systems_on=1)AND(FNsystem_on=8):PROChideicn(bodyw%,14,fl%):PROCselecticn(bodyw%,14,FALSE)
 2010IFactiveicn%=20:PROCselecticn(bodyw%,20,FALSE):PROCgocloser(20)
 2011IFactiveicn%=14:PROCselecticn(bodyw%,14,FALSE):PROCgocloser(14)
 2012SYS"Wimp_ForceRedraw",bodyw%,370,-900,608,-848
 2013ENDPROC
 2014
 2015DEFPROCtext
 2016REMIFdoingmove% PROCanimateend
 2017IFFNisselected(animw%,0):texton%=-1:textnewon%=-1:PROCaddtext:ELSE:texton%=0:PROCremovetext
 2018IFdoingcloser%:doingcloser%=FALSE:PROCchangewindowlev
 2019ENDPROC
 2020
 2021DEFPROCremovetext
 2022!blk2%=animw%:SYS"Wimp_GetWindowState",,blk2%:windpos%=blk2%!28
 2023activetxticn%=activew%
 2024!blk2%=animw%:PROCclosewind(blk2%)
 2025!blk2%=0:blk2%!4=-700:blk2%!8=780:blk2%!12=0:SYS"Wimp_SetExtent",animw%,blk2%
 2026IFNOTdoingmove%THEN
 2027 PROCremovelabels
 2028 IFdoingcloser%:PROCcloserboxes
 2029 PROCplotanim
 2030ENDIF
 2031!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
 2032blk%!8=blk%!16-700:blk%!28=windpos%
 2033PROCopenwind(blk%)
 2034ENDPROC
 2035
 2036DEFPROCremovelabels
 2037IFwords%(simp%,1)<>-1THEN
 2038 FORk%=words%(simp%,0)TOwords%(simp%,1):PROChideicn(animw%,VAL(words$(simp%,k%,0)),TRUE):PROCselecticn(animw%,VAL(words$(simp%,k%,0)),FALSE):NEXT
 2039ENDIF
 2040IFNOTdoingmove%:PROCmakeorgan(activew%,activeicn%)
 2041ENDPROC
 2042
 2043DEFPROCaddtext
 2044!blk2%=animw%:SYS"Wimp_GetWindowState",,blk2%:windpos%=blk2%!28
 2045!blk2%=animw%:PROCclosewind(blk2%)
 2046!blk2%=0:blk2%!4=-936:blk2%!8=780:blk2%!12=0:SYS"Wimp_SetExtent",animw%,blk2%
 2047IFNOTdoingmove%THEN
 2048 PROCmakeorgan(activew%,activeicn%)
 2049 IFdoingcloser%:PROCcloserboxes
 2050 PROCaddlines(0):PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
 2051ELSE
 2052 PROCputicnstring(animw%,50,""):PROCputicnstring(animw%,51,"")
 2053ENDIF
 2054!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
 2055IFblk%!16<936 blk%!16=936:blk%!8=0:ELSE:blk%!8=blk%!16-936
 2056blk%!24=0:blk%!28=windpos%
 2057PROCopenwind(blk%)
 2058ENDPROC
 2059
 2060DEFPROCaddlines(fromsaveprint%)
 2061SYS"OS_SpriteOp",&13C,animarea%,"anim",0
 2062SYS"Wimp_SetColour",7
 2063IFNOTfromsaveprint%THEN
 2064 IF((activeicn%=4)AND(activew%=1))OR((activeicn%=17)AND(activew%>0)):SYS"Wimp_SetColour",0
 2065 IF((activeicn%=6)AND(activew%=2))OR((activeicn%=17)AND(activew%=0))OR((activeicn%=19)AND(activew%=0))OR((activeicn%=20)AND(activew%=0))OR((activeicn%=20)AND(activew%=2)):SYS"Wimp_SetColour",11
 2066ENDIF
 2067lin$=lines$(simp%,activew%):nolines%=VAL(lin$)
 2068lin$=RIGHT$(lin$,LEN(lin$)-3)
 2069FORk%=1TOnolines%
 2070VDU25,4,VAL(MID$(lin$,1,3));VAL(MID$(lin$,5,3));:VDU25,5,VAL(MID$(lin$,9,3));VAL(MID$(lin$,13,3));
 2071VDU25,4,VAL(MID$(lin$,1,3))+2;VAL(MID$(lin$,5,3));:VDU25,5,VAL(MID$(lin$,9,3))+2;VAL(MID$(lin$,13,3));
 2072lin$=RIGHT$(lin$,LEN(lin$)-16)
 2073NEXT
 2074SYS"OS_SpriteOp",&13C,animarea%,0,0
 2075ENDPROC
 2076
 2077DEFPROCaddlabels
 2078st%=words%(simp%,(activew%*2)+2):end%=words%(simp%,(activew%*2)+3)
 2079IFst%<>-1THEN
 2080FORk%=st%TOend%
 2081PROCputicnstring(animw%,VAL(words$(simp%,k%,0)),RIGHT$(words$(simp%,k%,0),LEN(words$(simp%,k%,0))-3))
 2082PROChideicn(animw%,VAL(words$(simp%,k%,0)),FALSE)
 2083NEXT
 2084ENDIF
 2085ENDPROC
 2086
 2087DEFPROCaddwords(i%)
 2088IFi%<words%(simp%,0):PROCputicnstring(animw%,50,words$(simp%,i%,0)):PROCputicnstring(animw%,51,words$(simp%,i%,1)):ENDPROC
 2089st%=words%(simp%,(activew%*2)+2):end%=words%(simp%,(activew%*2)+3)
 2090IFst%<>-1THEN
 2091FORk%=st%TOend%
 2092REMIFVAL(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))
 2093titl$=RIGHT$(words$(simp%,k%,0),LEN(words$(simp%,k%,0))-3)
 2094IF(ASC(titl$)>&60)AND(ASC(titl$)<&7B):LEFT$(titl$,1)=CHR$(ASC(titl$)-&20)
 2095IF(ASC(titl$)>&30)AND(ASC(titl$)<&3A)AND(ASC(MID$(titl$,4,1))>&60)AND(ASC(MID$(titl$,4,1))<&7B):MID$(titl$,4)=CHR$(ASC(MID$(titl$,4,1))-&20)
 2096IFVAL(words$(simp%,k%,0))=i%:PROCputicnstring(animw%,51,words$(simp%,k%,1)):PROCputicnstring(animw%,50,titl$)
 2097NEXT
 2098ENDIF
 2099ENDPROC
 2100
 2101DEFPROCwindowlev1
 2102IFdoingmove% PROCanimateend
 2103IFFNisselected(animw%,1) THEN
 2104 activew%=1
 2105 IF FNgeticnstring(animw%,1)="closer":doingcloser%=TRUE:firstcloser%=TRUE:PROCcloser:ENDPROC:ELSE:doingcloser%=FALSE
 2106ELSE
 2107 activew%=0:PROCselecticn(animw%,2,FALSE):doingcloser%=FALSE
 2108ENDIF
 2109PROCchangewindowlev
 2110ENDPROC
 2111
 2112DEFPROCwindowlev2
 2113IFdoingmove% PROCanimateend
 2114IFFNisselected(animw%,2) THEN
 2115 activew%=2
 2116 IF FNgeticnstring(animw%,2)="closer":doingcloser%=TRUE:firstcloser%=TRUE:PROCcloser:ENDPROC:ELSE:doingcloser%=FALSE
 2117ELSE
 2118 doingcloser%=FALSE
 2119 IF(activeicn%=1)OR(activeicn%=4):activew%=0:PROCselecticn(animw%,1,FALSE):ELSE:activew%=1
 2120ENDIF
 2121PROCchangewindowlev
 2122ENDPROC
 2123
 2124DEFPROCchangewindowlev
 2125PROCshowhidebuts(activew%,activeicn%)
 2126IFNOTFNisselected(animw%,0) PROCshowanim(activew%,activeicn%):ELSE:PROCremovelabels:PROCaddlines(0):PROCplotanim:PROCaddlabels:PROCaddwords(activew%):activetxticn%=activew%
 2127ENDPROC
 2128
 2129DEFPROCcloser
 2130IFfirstcloser%:clos%=0:firstcloser%=FALSE:lasttime%=TIME:PROCclosersetup
 2131IFclos%=1THEN
 2132 IFTIME<lasttime%+100:ENDPROC
 2133ELSE
 2134 IFTIME<lasttime%+10:ENDPROC
 2135ENDIF
 2136IFclos%=0:PROCcloserbox
 2137IFclos%>0:PROCcloserboxes
 2138IFclos%=0:PROCplotanimcloserfirst
 2139IF(clos%>0)AND(clos%<clnumb%):PROCplotanimcloserrest
 2140IFclos%=clnumb%:doingcloser%=FALSE:PROCchangewindowlev:ELSE:lasttime%=TIME:clos%+=1
 2141REMIFclos%=clnumb%:doingcloser%=FALSE:PROCchangewindowlev:ELSE:lasttime%=TIME:clos%+=1
 2142ENDPROC
 2143
 2144DEFPROCcloserbox
 2145SYS"OS_SpriteOp",&13C,animarea%,"anim",0
 2146VDU18,0,7:VDU 25,4,clleft%;cllow%;:VDU 25,101,clright%;cllow%+10;
 2147VDU 25,101,clright%-10;clhigh%;:VDU 25,101,clleft%;clhigh%-10;:VDU 25,101,clleft%+10;cllow%;
 2148VDU18,0,9:VDU 25,4,clleft%+4;cllow%+4;:VDU 25,101,clright%-4;cllow%+6;
 2149VDU 25,101,clright%-6;clhigh%-4;:VDU 25,101,clleft%+4;clhigh%-6;:VDU 25,101,clleft%+6;cllow%+4;
 2150SYS"OS_SpriteOp",&13C,animarea%,0,0
 2151REMIFactiveicn%=1:PROCdullanim(12,clleft%,cllow%,clright%,clhigh%):ELSE:PROCdullanim(15,clleft%,cllow%,clright%,clhigh%)
 2152ENDPROC
 2153
 2154DEFPROCcloserboxes
 2155SYS"OS_SpriteOp",&13C,animarea%,"anim",0
 2156REMVDU18,128,0:VDU23,12,0,9,9,0,0,9,9,0:VDU18,24,0
 2157VDU18,0,9
 2158VDU 25,4,clleft%-(clos%*clle%);cllow%-(clos%*cllo%);:VDU 25,101,clright%+(clos%*clri%);cllow%-(clos%*cllo%);
 2159VDU 25,101,clright%+(clos%*clri%)-2;clhigh%+(clos%*clhi%);:VDU 25,101,clleft%-(clos%*clle%);clhigh%+(clos%*clhi%);
 2160VDU 25,101,clleft%-(clos%*clle%)+2;cllow%-(clos%*cllo%);
 2161SYS"OS_SpriteOp",&13C,animarea%,0,0
 2162REMIFactiveicn%=1:PROCdullanim(12,clleft%,cllow%,clright%,clhigh%):ELSE:PROCdullanim(15,clleft%,cllow%,clright%,clhigh%)
 2163ENDPROC
 2164
 2165DEFPROCclosersetup
 2166clleft%=closercoords%(activeicn%,0)
 2167cllow%=closercoords%(activeicn%,1)
 2168clright%=closercoords%(activeicn%,2)
 2169clhigh%=closercoords%(activeicn%,3)
 2170clnumb%=closercoords%(activeicn%,4)
 2171clle%=(clleft%-8)/clnumb%
 2172cllo%=(cllow%-8)/clnumb%
 2173clri%=(760-clright%)/clnumb%
 2174clhi%=(608-clhigh%)/clnumb%
 2175ENDPROC
 2176
 2177DEFPROCplotbodyorgs
 2178PROCcl_body(15)
 2179IFFNisselected(overw%,8)ORFNisselected(overw%,25):startsp%=46:endsp%=maxsp%
 2180IF(NOTFNisselected(overw%,8))AND(NOTFNisselected(overw%,25))ANDFNisselected(overw%,5):startsp%=40:endsp%=maxsp%
 2181IFNOTFNisselected(overw%,5)ANDNOTFNisselected(overw%,8)ANDNOTFNisselected(overw%,25):PROCoutlinebody:startsp%=0:endsp%=maxsp%
 2182FORj%=startsp%TOendsp%
 2183 IFbodysp%(j%,0):PROCadd_sp(sparea%,bodysp$(j%),bodyarea%,"body",bodysp%(j%,1),bodysp%(j%,2),bodysp%(j%,3))
 2184NEXT
 2185!blk%=bodyw%:SYS"Wimp_GetWindowState",,blk%
 2186spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-(spscale%*1460)
 2187!blk%=bodyw%:blk%!4=0:blk%!8=-(1460*spscale%):blk%!12=624*spscale%:blk%!16=0
 2188SYS "Wimp_UpdateWindow",,blk% TO more%
 2189WHILE more%
 2190SYS "OS_SpriteOp",&134,bodyarea%,"body",spx%,spy%,0,bodscale%,coltrans%
 2191SYS "Wimp_GetRectangle",,blk% TO more%
 2192ENDWHILE
 2193ENDPROC
 2194
 2195DEFPROCplotbodysyst
 2196PROCcl_body(15):PROCoutlinebody
 2197FORj%=0TOmaxsp%
 2198 IFsystbodysp%(j%):PROCadd_sp(sparea%,bodysp$(j%),bodyarea%,"body",bodysp%(j%,1),bodysp%(j%,2),bodysp%(j%,3))
 2199NEXT
 2200IF(spscale%=1)AND(FNno_systems_on=1)THEN
 2201IF(FNsystem_on=7)AND(FNisselected(systw%,1)):PROCaddbodylabels(8)
 2202IF(FNsystem_on=6)AND(FNisselected(systw%,1)):PROCaddbodylabels(9)
 2203IF(FNsystem_on<6)OR(FNisselected(systw%,0)):PROCaddbodylabels(FNsystem_on)
 2204ENDIF
 2205!blk%=bodyw%:SYS"Wimp_GetWindowState",,blk%
 2206spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-(spscale%*1460)
 2207!blk%=bodyw%:blk%!4=0:blk%!8=-(1460*spscale%):blk%!12=624*spscale%:blk%!16=0
 2208SYS "Wimp_UpdateWindow",,blk% TO more%
 2209WHILE more%
 2210SYS "OS_SpriteOp",&134,bodyarea%,"body",spx%,spy%,0,bodscale%,coltrans%
 2211SYS "Wimp_GetRectangle",,blk% TO more%
 2212ENDWHILE
 2213IF(spscale%=1)AND(FNno_systems_on=1):PROCaddbodylabbuts(labelson%)
 2214ENDPROC
 2215
 2216DEFPROCplotanim
 2217!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
 2218spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
 2219!blk%=animw%:blk%!4=0:blk%!8=-700:blk%!12=780:blk%!16=-72
 2220SYS "Wimp_UpdateWindow",,blk% TO more%
 2221WHILE more%
 2222SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
 2223SYS "Wimp_GetRectangle",,blk% TO more%
 2224ENDWHILE
 2225ENDPROC
 2226
 2227DEFPROCplotanimmove
 2228!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
 2229spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
 2230!blk%=animw%:blk%!4=0:blk%!8=-700:blk%!12=660:blk%!16=-72
 2231SYS "Wimp_UpdateWindow",,blk% TO more%
 2232WHILE more%
 2233SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
 2234SYS "Wimp_GetRectangle",,blk% TO more%
 2235ENDWHILE
 2236!blk%=animw%:blk%!4=660:blk%!8=-636:blk%!12=780:blk%!16=-72
 2237SYS "Wimp_UpdateWindow",,blk% TO more%
 2238WHILE more%
 2239SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
 2240SYS "Wimp_GetRectangle",,blk% TO more%
 2241ENDWHILE
 2242ENDPROC
 2243
 2244DEFPROCplotanimcloserfirst
 2245LOCAL j%
 2246!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
 2247spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
 2248FORj%=1TO4
 2249!blk%=animw%
 2250IFj%=1:blk%!4=clleft%:blk%!8=cllow%:blk%!12=clright%+2:blk%!16=cllow%+10+4
 2251IFj%=2:blk%!4=clright%-10:blk%!8=cllow%:blk%!12=clright%+2:blk%!16=clhigh%+4
 2252IFj%=3:blk%!4=clleft%:blk%!8=clhigh%-10:blk%!12=clright%+2:blk%!16=clhigh%+4
 2253IFj%=4:blk%!4=clleft%:blk%!8=cllow%:blk%!12=clleft%+10+2:blk%!16=clhigh%+4
 2254blk%!4+=6:blk%!8-=(76+616):blk%!12+=6:blk%!16-=(76+616)
 2255SYS "Wimp_UpdateWindow",,blk% TO more%
 2256WHILE more%
 2257SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
 2258SYS "Wimp_GetRectangle",,blk% TO more%
 2259ENDWHILE
 2260NEXT
 2261ENDPROC
 2262
 2263DEFPROCplotanimcloserrest
 2264LOCAL j%
 2265!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
 2266spx%=blk%!4-blk%!20+6:spy%=(blk%!16-blk%!24)-76-616
 2267FORj%=1TO4
 2268!blk%=animw%
 2269IFj%=1:blk%!4=clleft%-(clos%*clle%):blk%!8=cllow%-(clos%*cllo%):blk%!12=clright%+(clos%*clri%)+2:blk%!16=cllow%-(clos%*cllo%)+4
 2270IFj%=2:blk%!4=clright%+(clos%*clri%)-2:blk%!8=cllow%-(clos%*cllo%):blk%!12=clright%+(clos%*clri%)+2:blk%!16=clhigh%+(clos%*clhi%)+4
 2271IFj%=3:blk%!4=clleft%-(clos%*clle%):blk%!8=clhigh%+(clos%*clhi%):blk%!12=clright%+(clos%*clri%)+2:blk%!16=clhigh%+(clos%*clhi%)+4
 2272IFj%=4:blk%!4=clleft%-(clos%*clle%):blk%!8=cllow%-(clos%*cllo%):blk%!12=clleft%-(clos%*clle%)+2+2:blk%!16=clhigh%+(clos%*clhi%)+4
 2273blk%!4+=6:blk%!8-=(76+616):blk%!12+=6:blk%!16-=(76+616)
 2274SYS "Wimp_UpdateWindow",,blk% TO more%
 2275WHILE more%
 2276SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
 2277SYS "Wimp_GetRectangle",,blk% TO more%
 2278ENDWHILE
 2279NEXT
 2280ENDPROC
 2281
 2282DEFPROCaddbodylabels(sy%)
 2283labelson%=sy%
 2284SYS"OS_SpriteOp",&13C,bodyarea%,"body",0
 2285SYS"Wimp_SetColour",7
 2286lin$=ovlines$(sy%):nolines%=VAL(lin$)
 2287lin$=RIGHT$(lin$,LEN(lin$)-3)
 2288FORk%=1TOnolines%
 2289VDU25,4,VAL(MID$(lin$,1,4));VAL(MID$(lin$,6,4));:VDU25,5,VAL(MID$(lin$,11,4));VAL(MID$(lin$,16,4));
 2290VDU25,4,VAL(MID$(lin$,1,4))+2;VAL(MID$(lin$,6,4));:VDU25,5,VAL(MID$(lin$,11,4))+2;VAL(MID$(lin$,16,4));
 2291lin$=RIGHT$(lin$,LEN(lin$)-20)
 2292NEXT
 2293SYS"OS_SpriteOp",&13C,bodyarea%,0,0
 2294ENDPROC
 2295
 2296DEFPROCaddbodylabbuts(sy%)
 2297lin$=systemlabels$(sy%):nolabs%=VAL(lin$)
 2298lin$=RIGHT$(lin$,LEN(lin$)-3)
 2299FORk%=1TOnolabs%
 2300PROChideicn(bodyw%,VAL(MID$(lin$,1,2)),FALSE)
 2301lin$=RIGHT$(lin$,LEN(lin$)-3)
 2302NEXT
 2303ENDPROC
 2304
 2305DEFPROCremovebodylabs
 2306lin$=systemlabels$(labelson%):nolabs%=VAL(lin$)
 2307lin$=RIGHT$(lin$,LEN(lin$)-3)
 2308FORk%=1TOnolabs%
 2309PROChideicn(bodyw%,VAL(MID$(lin$,1,2)),TRUE)
 2310IF(activeicn%<>VAL(MID$(lin$,1,2)))AND(activeorgicn%<>VAL(MID$(lin$,1,2))):PROCselecticn(bodyw%,VAL(MID$(lin$,1,2)),FALSE)
 2311lin$=RIGHT$(lin$,LEN(lin$)-3)
 2312NEXT
 2313labelson%=10
 2314ENDPROC
 2315
 2316DEFPROCbodyboxes(words%)
 2317SYS"OS_SpriteOp",&13C,bodyarea%,"body",0
 2318lin$=systemlabels$(labelson%):nolabs%=VAL(lin$)
 2319lin$=RIGHT$(lin$,LEN(lin$)-3)
 2320FORk%=1TOnolabs%
 2321icno%=VAL(MID$(lin$,1,2))
 2322IF icno%>24THEN
 2323 IFactiveorgicn%=icno%:PROCaddbodyboxes(words%,9,7,icno%):ELSE:PROCaddbodyboxes(words%,1,3,icno%)
 2324REM PROCaddbodyboxes(1,2,icno%)
 2325ELSE
 2326 IFactiveicn%=icno%:PROCaddbodyboxes(words%,9,7,icno%):ELSE:PROCaddbodyboxes(words%,2,7,icno%)
 2327ENDIF
 2328lin$=RIGHT$(lin$,LEN(lin$)-3)
 2329NEXT
 2330SYS"OS_SpriteOp",&13C,bodyarea%,0,0
 2331ENDPROC
 2332
 2333DEFPROCaddbodyboxes(words%,incol%,outcol%,icno%)
 2334SYS"Wimp_SetColour",outcol%
 2335VDU25,4,bodybox%(icno%,1);bodybox%(icno%,2);:VDU25,97,((bodybox%(icno%,0)*8)+12)*2;44;
 2336IF(save%ANDFNisselected(sabodyw%,5))OR(NOTsave%ANDFNisselected(prbodyw%,1)):SYS"Wimp_SetColour",incol%:ELSE:SYS"Wimp_SetColour",0
 2337VDU25,4,bodybox%(icno%,1)+4;bodybox%(icno%,2)+4;:VDU25,97,((bodybox%(icno%,0)*8)+8)*2;36;
 2338SYS"Wimp_SetColour",7:VDU5
 2339IFicno%<25THEN
 2340 VDU25,4,bodybox%(icno%,1)+14;bodybox%(icno%,2)+36;
 2341ELSE
 2342 lenf%=24+(16*bodybox%(icno%,0))
 2343 VDU25,4,bodybox%(icno%,1)+((lenf%-(LEN(bodyboxlab$(icno%))*16))/2);bodybox%(icno%,2)+36;
 2344ENDIF
 2345IFwords%:PRINT bodyboxlab$(icno%)
 2346VDU4
 2347ENDPROC
 2348
 2349DEFPROCanimboxes(words%)
 2350SYS"OS_SpriteOp",&13C,animarea%,"anim",0
 2351st%=words%(simp%,(activew%*2)+2):end%=words%(simp%,(activew%*2)+3)
 2352IFst%<>-1THEN
 2353FORk%=st%TOend%
 2354icno%=VAL(words$(simp%,k%,0))
 2355icst$=RIGHT$(words$(simp%,k%,0),LEN(words$(simp%,k%,0))-3)
 2356REMIFsimp%=0THEN
 2357REM PROCaddanimboxes(1,2,icno%-5,icst$)
 2358REMELSE
 2359 IFFNisselected(animw%,icno%):PROCaddanimboxes(words%,9,7,icno%-5,icst$):ELSE:PROCaddanimboxes(words%,2,7,icno%-5,icst$)
 2360REMENDIF
 2361NEXT
 2362ENDIF
 2363SYS"OS_SpriteOp",&13C,animarea%,0,0
 2364ENDPROC
 2365
 2366DEFPROCaddanimboxes(words%,incol%,outcol%,icno%,icst$)
 2367lenf%=120
 2368IF(icno%+5)<25:lenf%=216
 2369IF(icno%+5)>44:lenf%=344
 2370IF(icno%+5)=42:lenf%=232
 2371SYS"Wimp_SetColour",outcol%
 2372VDU25,4,animbox%(icno%,0);animbox%(icno%,1);:VDU25,97,lenf%;44;
 2373IF(save%ANDFNisselected(saanimw%,4))OR(NOTsave%ANDFNisselected(pranimw%,0)):SYS"Wimp_SetColour",incol%:ELSE:SYS"Wimp_SetColour",0
 2374VDU25,4,animbox%(icno%,0)+4;animbox%(icno%,1)+4;:VDU25,97,lenf%-8;36;
 2375SYS"Wimp_SetColour",7:VDU5
 2376VDU25,4,animbox%(icno%,0)+((lenf%-(LEN(icst$)*16))/2);animbox%(icno%,1)+36;
 2377IFwords%:PRINT icst$
 2378VDU4
 2379ENDPROC
 2380
 2381DEFPROCsubmenu(m%,i%,h%)
 2382m%+=28+((i%-1)*24)
 2383m%!4=h%
 2384ENDPROC
 2385
 2386DEFPROCsetanimsprname
 2387sp$=FNgeticnstring(saanimw%,1)
 2388sp$=LEFT$(sp$,LEN(sp$)-LEN(FNleaf(sp$)))
 2389IF activew%=2 THEN
 2390 CASE activeicn% OF
 2391  WHEN 1: sp$+="tooth"
 2392  WHEN 4: sp$+="tongue"
 2393  WHEN 6: sp$+="skinnerves"
 2394  WHEN 7: sp$+="circulate"
 2395  WHEN 8: sp$+="boneclose"
 2396  WHEN 9: sp$+="nephron"
 2397  WHEN 13: sp$+="alveoli"
 2398  WHEN 14: sp$+="baby"
 2399  WHEN 17: sp$+="villi"
 2400  WHEN 19: sp$+="ovary"
 2401  WHEN 20: sp$+="testis"
 2402  WHEN 21: sp$+="innerearxs"
 2403 ENDCASE
 2404ELSE
 2405 CASE activeicn% OF
 2406  WHEN 3: IFactivew%=0:sp$+="pituitary":ELSE:sp$+="pituitbig"
 2407  WHEN 4: IFactivew%=0:sp$+="nosetongue":ELSE:sp$+="noseclose"
 2408  WHEN 6: IFactivew%=0:sp$+="armskin":ELSE:sp$+="skin"
 2409  WHEN 14: IFactivew%=0:sp$+="sex":ELSE:sp$+="sexxs"
 2410  WHEN 19: IFactivew%=0:sp$+="female":ELSE:sp$+="femalexs"
 2411  WHEN 20: IFactivew%=0:sp$+="male":ELSE:sp$+="malexs"
 2412  WHEN 21: IFactivew%=0:sp$+="ear":ELSE:sp$+="innerear"
 2413  WHEN 24: IFactivew%=0:sp$+="skin":ELSE:sp$+="sweatgland"
 2414  OTHERWISE : sp$+=animfile$(activeicn%,0):IFactivew%=1:sp$+="xs"
 2415 ENDCASE
 2416ENDIF
 2417PROCputicnstring(saanimw%,1,sp$)
 2418ENDPROC
 2419
 2420DEFPROCsetanimtxtname
 2421sp$=FNgeticnstring(edboxw%,2)
 2422sp$=LEFT$(sp$,LEN(sp$)-LEN(FNleaf(sp$)))
 2423CASE activeicn% OF
 2424 WHEN 3: sp$+="pituit"
 2425 WHEN 4: sp$+="noseton"
 2426 WHEN 14: sp$+="baby"
 2427 WHEN 17: sp$+="smint"
 2428 WHEN 18: sp$+="lgint"
 2429 WHEN 19: sp$+="female"
 2430 WHEN 20: sp$+="male"
 2431 OTHERWISE: sp$+=animfile$(activeicn%,0)
 2432ENDCASE
 2433PROCputicnstring(edboxw%,2,sp$+"txt")
 2434ENDPROC
 2435
 2436DEFPROCsetdefntxtname
 2437sp$=FNgeticnstring(edboxw%,2)
 2438sp$=LEFT$(sp$,LEN(sp$)-LEN(FNleaf(sp$)))
 2439PROCputicnstring(edboxw%,2,sp$+"systemtxt")
 2440ENDPROC
 2441
 2442DEFPROCchangesaprextent(w%,siz%)
 2443!blk%=0:blk%!4=-siz%:blk%!8=560:blk%!12=0
 2444SYS"Wimp_SetExtent",w%,blk%
 2445ENDPROC
 2446
 2447DEFPROCdefnw_menu(mx%,my%)
 2448PROCsetdefntxtname
 2449PROCcreate_menu(menu%,"BodyWise","7Save text,")
 2450PROCsubmenu(menu%,1,edboxw%)
 2451SYS "Wimp_CreateMenu",,menu%,mx%-64,my%
 2452currmenu%=-4
 2453ENDPROC
 2454
 2455DEFPROCanimw_menu(mx%,my%)
 2456!blk%=saanimw%:SYS "Wimp_DeleteWindow",,blk%
 2457SYS "Wimp_CreateWindow",,wptrlist%!56 TO saanimw%
 2458!blk%=pranimw%:SYS "Wimp_DeleteWindow",,blk%
 2459SYS "Wimp_CreateWindow",,wptrlist%!60 TO pranimw%
 2460PROCsetanimsprname:PROCsetanimtxtname
 2461IFNOTdoingmove%THEN
 2462 IFFNisselected(animw%,0):PROCchangesaprextent(pranimw%,176):PROCchangesaprextent(saanimw%,332):ELSE:PROCchangesaprextent(pranimw%,124):PROCchangesaprextent(saanimw%,280)
 2463ELSE
 2464 PROCchangesaprextent(saanimw%,172)
 2465ENDIF
 2466IFFNisselected(animw%,0):PROCcreate_menu(menu%,"BodyWise","Save,1Print,7Save text,"):ELSE:PROCcreate_menu(menu%,"BodyWise","Save,1Print,78Save text,")
 2467PROCsubmenu(menu%,1,saanimw%):PROCsubmenu(menu%,3,edboxw%):IFNOTdoingmove%:PROCsubmenu(menu%,2,pranimw%)
 2468SYS "Wimp_CreateMenu",,menu%,mx%-64,my%
 2469currmenu%=-3
 2470ENDPROC
 2471
 2472DEFPROCbodyw_menu(mx%,my%)
 2473!blk%=sabodyw%:SYS "Wimp_DeleteWindow",,blk%
 2474SYS "Wimp_CreateWindow",,wptrlist%!48 TO sabodyw%
 2475!blk%=prbodyw%:SYS "Wimp_DeleteWindow",,blk%
 2476SYS "Wimp_CreateWindow",,wptrlist%!52 TO prbodyw%
 2477sp$=FNgeticnstring(sabodyw%,1):sp$=LEFT$(sp$,LEN(sp$)-LEN(FNleaf(sp$))):PROCputicnstring(sabodyw%,1,sp$+"body")
 2478IFFNisopen(overw%)THEN
 2479 PROCchangesaprextent(prbodyw%,124):PROCchangesaprextent(sabodyw%,280)
 2480ELSE
 2481 IFFNno_systems_on=1:PROCchangesaprextent(prbodyw%,176):PROCchangesaprextent(sabodyw%,332):ELSE:PROCchangesaprextent(prbodyw%,124):PROCchangesaprextent(sabodyw%,280)
 2482ENDIF
 2483PROCcreate_menu(menu%,"BodyWise","Save,7Print,")
 2484PROCsubmenu(menu%,1,sabodyw%):PROCsubmenu(menu%,2,prbodyw%)
 2485SYS "Wimp_CreateMenu",,menu%,mx%-64,my%
 2486currmenu%=-2
 2487ENDPROC
 2488
 2489DEFPROCmaster_menu(title$,m$,x%,y%)
 2490PROCcreate_menu(menu%,title$,m$)
 2491PROCsubmenu(menu%,1,infow%)
 2492REMPROCsubmenu(menu%,2,msgw%)
 2493SYS "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
 2494currmenu%=-1
 2495ENDPROC
 2496
 2497DEFPROCcreate_menu(m%,title$,m$)
 2498LOCAL i%,max%
 2499$m%=title$
 2500m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!20=40:m%!24=0
 2501i%=m%+28:max%=LEN(title$)-2
 2502REPEAT
 2503  a%=INSTR(m$,",")
 2504  i$=LEFT$(m$,a%-1):!i%=0
 2505  REPEAT:morecodes%=FALSE
 2506    IFLEFT$(i$,1)="0" !i%=(!i%)OR%0001:morecodes%=TRUE
 2507    IFLEFT$(i$,1)="1" !i%=(!i%)OR%0010:morecodes%=TRUE
 2508    IFLEFT$(i$,1)="2" !i%=(!i%)OR%0100:morecodes%=TRUE
 2509    IFLEFT$(i$,1)="3" !i%=(!i%)OR%1000:morecodes%=TRUE
 2510    IFLEFT$(i$,1)="7" !i%=(!i%)OR%10000000:morecodes%=TRUE
 2511    IFLEFT$(i$,1)="8" i%!8=&07400021:i$=RIGHT$(i$,LEN(i$)-1):ELSE:i%!8=&07000021
 2512    IF morecodes% i$=RIGHT$(i$,LEN(i$)-1)
 2513  UNTIL NOT morecodes%:$(i%+12)=i$
 2514  IF (LEN(i$)+1)>max% max%=LEN(i$)+1
 2515  i%!4=-1
 2516  m$ = MID$(m$,a%+1)
 2517  i% = i% + 24
 2518UNTIL m$ = ""
 2519m%!16 = max%*16
 2520ENDPROC
 2521
 2522DEFPROCmenuselect
 2523SYS "Wimp_GetPointerInfo",,blk2%
 2524currmenubut%=blk2%!8
 2525CASE currmenu% OF
 2526  WHEN -1:
 2527    CASE !eb% OF
 2528      WHEN 0: PROCcheckadjust
 2529      WHEN 1: PROCopen_setupw:PROCcheckadjust
 2530      WHEN 2: quit%=TRUE
 2531    ENDCASE
 2532  WHEN -2:
 2533    CASE !eb% OF
 2534      WHEN 0: PROCcheckadjust
 2535      WHEN 1: PROCcheckadjust
 2536    ENDCASE
 2537  WHEN -3:
 2538    CASE !eb% OF
 2539      WHEN 0: PROCcheckadjust
 2540      WHEN 1: IFdoingmove%:PROCprintit
 2541              PROCcheckadjust
 2542      WHEN 2: PROCcheckadjust
 2543    ENDCASE
 2544  WHEN -4:
 2545    CASE !eb% OF
 2546      WHEN 0: PROCcheckadjust
 2547    ENDCASE
 2548ENDCASE
 2549ENDPROC
 2550
 2551DEFPROCprintit
 2552SYS"XPDriver_Info" TO ;fl%
 2553IF(fl%AND%1)=%1:PROCerror("Printer application must be loaded to print from BodyWise",0):ENDPROC
 2554REMIF(currmenu%=-2)ANDFNisopen(systw%)AND(FNno_systems_on=1):PROCbodyboxes
 2555IF(currmenu%=-2):PROCmakebodyforsapr(0)
 2556REMIF(currmenu%=-3)ANDFNisselected(animw%,0):PROCanimboxes
 2557IF(currmenu%=-3)THEN
 2558 IFNOTdoingmove%THEN
 2559  IFFNisselected(pranimw%,1):PROCgetbwfile
 2560  PROCmakeanimforsapr(0)
 2561 ENDIF
 2562ENDIF
 2563PROCprinter
 2564REMIF(currmenu%=-3)ANDFNisselected(animw%,0):PROCmakeorgan(activew%,activeicn%):PROCaddlines:PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
 2565IF(currmenu%=-3)THEN
 2566 IFNOTdoingmove%THEN
 2567  IFFNisselected(pranimw%,1)AND((activeicn%=4)OR(activeicn%=7)OR(activeicn%=13)OR(activeicn%=14)OR(activeicn%=15)OR(activeicn%=17)OR(activeicn%=23))THEN
 2568   IFY%=0 test%=0:REPEAT:PROCfloppy_disk("bodywise","$.!Bodywise."+animfile$(activeicn%,0)+"_c","",""):UNTILerror%=0
 2569   SYS "OS_SpriteOp",&10A,detarea%,"<BodyWise$chaindir>."+animfile$(activeicn%,0)+"_c"
 2570   SYS "XOS_SpriteOp",&119,animarea%,"anim":SYS "OS_SpriteOp",&10F,animarea%,"anim",1,384,154,12
 2571   PROCaddpalet(animarea%,"anim"):PROCmakesprites(activeicn%)
 2572  ENDIF
 2573  PROCmakeorgan(activew%,activeicn%)
 2574  IFFNisselected(animw%,0):PROCaddlines(0):PROCplotanim:PROCaddlabels:PROCaddwords(activew%)
 2575 ENDIF
 2576ENDIF
 2577IF(currmenu%=-2)THEN
 2578 IFFNisopen(systw%):PROCplotbodysyst:ELSE:PROCplotbodyorgs
 2579ENDIF
 2580REMIF(currmenu%=-2)ANDFNisopen(systw%)AND(FNno_systems_on=1):PROCplotbodysyst
 2581ENDPROC
 2582
 2583DEFPROCprinter
 2584VDU26
 2585ORIGIN0,0
 2586SCALE%!0=1:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1
 2587LOCALF%,E%
 2588F%=OPENOUT("printer:")
 2589LOCAL ERROR
 2590REMONERRORLOCAL:RESTORE ERROR:CLOSE#F%:OSCLI"FX229,0":ENDPROC
 2591ONERRORLOCAL:RESTORE ERROR:CLOSE#F%:OSCLI"FX229,0":PROCerror(REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0,ERR):ENDPROC
 2592SYS"PDriver_SelectJob",F%,0,0
 2593LOCAL ERROR
 2594REMONERRORLOCAL:RESTORE ERROR:SYS"PDriver_AbortJob",F%:SYS"PDriver_SelectJob",E%:CLOSE#F%:OSCLI"FX229,0":ENDPROC
 2595ONERRORLOCAL:RESTORE ERROR:SYS"PDriver_AbortJob",F%:SYS"PDriver_SelectJob",E%:CLOSE#F%:OSCLI"FX229,0":PROCerror(REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0,ERR):ENDPROC
 2596!(pdrect%+0)=0:!(pdrect%+4)=0:
 2597IFcurrmenu%=-2:!(pdrect%+8)=624:!(pdrect%+12)=1460:ELSE:!(pdrect%+8)=768:!(pdrect%+12)=616
 2598!(pdtrans%+0)=1<<16:!(pdtrans%+4)=0:!(pdtrans%+8)=0:!(pdtrans%+12)=1<<16
 2599REM!(pdplot%+0)=128<<8:!(pdplot%+4)=512<<8
 2600!(pdplot%+0)=128<<8
 2601SYS"PDriver_PageSize" TO r0,r1,r2,r3,r4,r5,r6
 2602SYS"PDriver_SetPageSize",,r1,r2,r3,0,r5,r6
 2603IFcurrmenu%=-2:!(pdplot%+4)=r6-600000:ELSE:!(pdplot%+4)=r6-260000
 2604IF(pdplot%!4)<(512<<8):pdplot%!4=512<<8
 2605SYS"PDriver_GiveRectangle",0,pdrect%,pdtrans%,pdplot%,&FFFFFF00
 2606SYS "OS_SpriteOp",&13C,0,0,1
 2607SYS"ColourTrans_InvalidateCache"
 2608SYS"PDriver_DrawPage",1,pdrect2%,0,0 TO copiesleft%
 2609WHILE copiesleft%<>0
 2610PROCpd_plot_screen
 2611SYS"PDriver_GetRectangle",,pdrect2% TO copiesleft%
 2612ENDWHILE
 2613SYS"PDriver_EndJob",F%
 2614RESTORE ERROR
 2615RESTORE ERROR
 2616CLOSE#F%
 2617REMSYS"OS_SpriteOp",&10F,AREA%,"blank",0,384,192,12
 2618*FX229,0
 2619ENDPROC
 2620
 2621DEFPROCpd_plot_screen
 2622LOCALy%,p%,i%,f%,t%
 2623*FX229,1
 2624REMFORy%=0TO768STEP256
 2625REMFORy%=0TO864STEP96
 2626SYS"PDriver_SelectJob",0,0,0
 2627REMSYS"OS_SpriteOp",&110,AREA%,"blank",1,0,y%,1276,y%+256 TO r0%,r1%,r2%
 2628REMSYS"OS_SpriteOp",&110,AREA%,"blank",1,0,y%,1279,y%+96 TO r0%,r1%,r2%
 2629IFcurrmenu%=-2THEN
 2630SYS"OS_SpriteOp",&118,bodyarea%,"body" TO r0%,r1%,r2%
 2631ELSE
 2632SYS"OS_SpriteOp",&118,animarea%,"anim" TO r0%,r1%,r2%
 2633ENDIF
 2634SCALE%!0=1:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1
 2635SYS"PDriver_SelectJob",F%,0,0
 2636f%=(r2%+44):t%=paltab%:FORi%=0TO15:!t%=!f%:t%+=4:f%+=8:NEXT
 2637SYS"ColourTrans_SelectTable",12,paltab%,-1,-1,ctrans%
 2638IFcurrmenu%=-2THEN
 2639SYS "OS_SpriteOp",&234,bodyarea%,r2%,0,0,0,SCALE%,ctrans%
 2640ELSE
 2641SYS "OS_SpriteOp",&234,animarea%,r2%,0,0,0,SCALE%,ctrans%
 2642ENDIF
 2643REMNEXT
 2644ENDPROC
 2645
 2646DEFPROCcheckadjust
 2647IFcurrmenubut%=1:SYS "Wimp_CreateMenu",,menu%,100,100
 2648ENDPROC
 2649
 2650DEFFNreadvduvar(a%)
 2651!blk%=a%:blk%!4=-1:SYS "OS_ReadVduVariables",blk%,blk%
 2652=!blk%
 2653
 2654DEFPROCstartgame
 2655IFFNisopen(bodyw%):PROCclosewind(blk%)
 2656PROCopen_systw
 2657ENDPROC
 2658
 2659DEFPROCflip(fliptype%,spn$)
 2660PROCexpand(spn$)
 2661IFfliptype%=1:SYS "OS_SpriteOp",&121,detarea%,spn$
 2662IFfliptype%=2:SYS "OS_SpriteOp",&12F,detarea%,spn$
 2663IFfliptype%=3:SYS "OS_SpriteOp",&121,detarea%,spn$:SYS "OS_SpriteOp",&12F,detarea%,spn$
 2664PROCcompact(spn$)
 2665ENDPROC
 2666
 2667DEFPROCfloppy_disk(diskn$,sprpath$,worpath$,numpath$)
 2668LOCAL g%,h%,m%,no_h%,no_m%
 2669g%=0:h%=0:m%=0
 2670LOCALERROR
 2671ONERRORLOCAL:RESTORE ERROR:error%=1:test%=1:ENDPROC
 2672REPEAT
 2673  error%=0:no_h%=0:no_m%=0
 2674  IFtest%=1 THEN
 2675    PROCdiscmess("Please place the "+diskn$+" disc in drive 0",0)
 2676  ENDIF
 2677  *ADFS
 2678  *MOUNT 0
 2679  SYS"OS_GBPB",5,,input_disk_name%
 2680  len_d_n%=?input_disk_name%:name$=""
 2681  FORdn%=1TOlen_d_n%
 2682  IF?(input_disk_name%+dn%)>31:name$=name$+CHR$(?(input_disk_name%+dn%))
 2683  NEXT
 2684  IFname$<>diskn$:error%=1
 2685  test%=1
 2686  OSCLI"SET BodyWise$chaindir $.!Bodywise"
 2687  SYS "XOS_Find",&40,sprpath$ TO g%
 2688  IFworpath$<>"":SYS "XOS_Find",&40,worpath$ TO h%:ELSE:no_h%=-1
 2689  IFnumpath$<>"":SYS "XOS_Find",&40,numpath$ TO m%:ELSE:no_m%=-1
 2690UNTILg%AND(h%ORno_h%)AND(m%ORno_m%)AND(error%=0):CLOSE#g%
 2691IFNOTno_h%:CLOSE#h%
 2692IFNOTno_m%:CLOSE#m%
 2693RESTORE ERROR
 2694ENDPROC
 2695
 2696DEFPROCanimate
 2697REMIFfirstmove%ANDFNisselected(animw%,0) PROCselecticn(animw%,0,FALSE):PROCremovetext
 2698IFfirstmove%ANDFNisselected(animw%,0):PROCremovelabels:PROCmakeorgan(activew%,activeicn%):PROCaddtext
 2699IFfirstmove%:PROChideicn(animw%,49,FALSE):PROCselecticn(animw%,49,FALSE)
 2700IFNOTFNisselected(animw%,49):PROCmoveorgan
 2701ENDPROC
 2702
 2703REMDEFPROCanimate
 2704IFfirstmove%ANDFNisselected(animw%,0) PROCselecticn(animw%,0,FALSE):PROCremovetext
 2705IFfirstmove%:PROCstopon:PROChideicn(animw%,49,FALSE)
 2706IF(FNisselected(animw%,49))AND(NOT goonon%) THEN
 2707 PROCgoonon
 2708ENDIF
 2709IF(FNisselected(animw%,49))ANDgoonon%:PROCstopon
 2710IFNOTgoonon%:PROCmoveorgan
 2711ENDPROC
 2712
 2713DEFPROCmoveorgan
 2714CASE activeicn% OF
 2715 WHEN 1: PROCmovemouth
 2716 WHEN 2: PROCmoveeye
 2717 WHEN 4: PROCmovenose
 2718 WHEN 5: PROCmoveartv
 2719 WHEN 6: PROCmoveskin
 2720 WHEN 7: PROCmoveheart
 2721 WHEN 10: PROCmoveliver
 2722 WHEN 11: PROCmovejoint
 2723 WHEN 13: PROCmovelungs
 2724 WHEN 14: PROCmovebaby
 2725 WHEN 17: PROCmovesmintest
 2726 WHEN 19: PROCmovefemale
 2727 WHEN 20: PROCmovemale
 2728 WHEN 21: PROCmoveear
 2729 WHEN 22: PROCmovemuscle
 2730 WHEN 23: PROCmovenerves
 2731ENDCASE
 2732ENDPROC
 2733
 2734DEFPROCanimateend
 2735PROCselecticn(animw%,3,FALSE):doingmove%=FALSE:PROChideicn(animw%,49,TRUE)
 2736IFtexton%:activetxticn%=activew%:PROCtext
 2737ENDPROC
 2738
 2739DEFPROCear(wlev%)
 2740CASE wlev% OF
 2741 WHEN 0: PROCmakeear(wlev%):PROCplotanim
 2742 WHEN 1: PROCmakeear(wlev%):PROCplotanim
 2743ENDCASE
 2744ENDPROC
 2745
 2746DEFPROCmakebrain(wlev%)
 2747PROCcl_anim(15)
 2748CASE wlev% OF
 2749 WHEN 0: PROCadd_sp(detarea%,"brain2",animarea%,"anim",16,24,15):PROCadd_sp(detarea%,"brain1",animarea%,"anim",36,31,15)
 2750 WHEN 1: PROCadd_sp(detarea%,"brain2",animarea%,"anim",16,24,15)
 2751ENDCASE
 2752ENDPROC
 2753
 2754DEFPROCmakemouth(wlev%)
 2755CASE wlev% OF
 2756 WHEN 0:PROCcl_anim(12):PROCadd_sp(detarea%,"mouth",animarea%,"anim",38,10,15)
 2757 WHEN 1:PROCcl_anim(15):PROCadd_sp(detarea%,"mouthnv",animarea%,"anim",4,4,15)
 2758 WHEN 2:PROCcl_anim(15):PROCadd_sp(detarea%,"tooth",animarea%,"anim",46,9,15)
 2759ENDCASE
 2760ENDPROC
 2761
 2762DEFPROCmakeeye(wlev%)
 2763PROCcopysp("eye"+STR$(wlev%),"anim")
 2764ENDPROC
 2765
 2766DEFPROCmakepit(wlev%)
 2767PROCcl_anim(15):PROCadd_sp(detarea%,"pit"+STR$(wlev%),animarea%,"anim",5,7,15)
 2768ENDPROC
 2769
 2770DEFPROCmakenose(wlev%)
 2771CASE wlev% OF
 2772 WHEN 0: PROCcl_anim(15):PROCadd_sp(detarea%,"noston",animarea%,"anim",28,8,15)
 2773 OTHERWISE: PROCcopysp("noston"+STR$(wlev%),"anim")
 2774ENDCASE
 2775ENDPROC
 2776
 2777DEFPROCmakeartv(wlev%)
 2778CASE wlev% OF
 2779 WHEN 0: PROCcl_anim(15):PROCadd_sp(detarea%,"av",animarea%,"anim",14,16,15):PROCadd_sp(detarea%,"artery",animarea%,"anim",6,6,15):PROCadd_sp(detarea%,"vein",animarea%,"anim",7,132,15)
 2780 OTHERWISE: PROCcopysp("avmove","anim"):PROCadd_sp(detarea%,"avxs",animarea%,"anim",61,16,15)
 2781ENDCASE
 2782ENDPROC
 2783
 2784DEFPROCmakeskin(wlev%)
 2785CASE wlev% OF
 2786 WHEN 0: PROCcl_anim(15):PROCadd_sp(detarea%,"skarm",animarea%,"anim",19,21,15)
 2787 WHEN 1: PROCcl_anim(15):PROCadd_sp(detarea%,"skback",animarea%,"anim",28,27,15):PROCadd_sp(detarea%,"skfront",animarea%,"anim",16,34,15)
 2788 WHEN 2: PROCcopysp("skinxs","anim")
 2789ENDCASE
 2790ENDPROC
 2791
 2792DEFPROCmakeheart(wlev%)
 2793PROCcl_anim(12)
 2794CASE wlev% OF
 2795 WHEN 0: PROCadd_sp(detarea%,"heart",animarea%,"anim",6,5,13)
 2796 WHEN 1: PROCadd_sp(detarea%,"heart",animarea%,"anim",6,5,13):PROCadd_sp(detarea%,"heartxs",animarea%,"anim",66,52,13)
 2797 WHEN 2: PROCadd_sp(detarea%,"diast",animarea%,"anim",0,0,13)
 2798         FORs%=0TO9:PROCadd_sp(detarea%,"arro"+STR$(s%),animarea%,"anim",harr%(s%,0),harr%(s%,1),15):NEXT:FORs%=10TO22:PROCadd_sp(detarea%,"arr"+STR$(s%),animarea%,"anim",harr%(s%,0),harr%(s%,1),15):NEXT
 2799ENDCASE
 2800ENDPROC
 2801
 2802DEFPROCmakebone(wlev%)
 2803PROCcl_anim(15):PROCadd_sp(detarea%,"bone"+STR$(wlev%),animarea%,"anim",25,9,15)
 2804ENDPROC
 2805
 2806DEFPROCmakekidney(wlev%)
 2807PROCcl_anim(15)
 2808CASE wlev% OF
 2809 WHEN 0: PROCadd_sp(detarea%,"kidney",animarea%,"anim",0,0,15)
 2810 WHEN 1: PROCadd_sp(detarea%,"kidney",animarea%,"anim",0,0,15):PROCadd_sp(detarea%,"kidneyxs",animarea%,"anim",0,0,15)
 2811 WHEN 2: PROCadd_sp(detarea%,"nephron",animarea%,"anim",0,0,15)
 2812ENDCASE
 2813ENDPROC
 2814
 2815DEFPROCmakeliver(wlev%)
 2816PROCcl_anim(15):PROCadd_sp(detarea%,"liver",animarea%,"anim",6,6,15)
 2817CASE wlev% OF
 2818 WHEN 1:PROCadd_sp(detarea%,"liverxs",animarea%,"anim",30,21,15)
 2819ENDCASE
 2820ENDPROC
 2821
 2822DEFPROCmakejoint(wlev%)
 2823CASE wlev% OF
 2824 WHEN 0:PROCcl_anim(15):PROCadd_sp(detarea%,"scapula",animarea%,"anim",134,31,15):PROCadd_sp(detarea%,"joints",animarea%,"anim",9,37,15)
 2825 WHEN 1:PROCcopysp("jointxs","anim")
 2826ENDCASE
 2827ENDPROC
 2828
 2829DEFPROCmakestomach(wlev%)
 2830PROCcl_anim(15):PROCadd_sp(detarea%,"stomach",animarea%,"anim",27,7,15)
 2831CASE wlev% OF
 2832 WHEN 1:PROCadd_sp(detarea%,"stomachxs",animarea%,"anim",27,7,9)
 2833ENDCASE
 2834ENDPROC
 2835
 2836DEFPROCmakelungs(wlev%)
 2837CASE wlev% OF
 2838 WHEN 2:PROCcl_anim(15):PROCadd_sp(detarea%,"alveoli",animarea%,"anim",22,6,15)
 2839 OTHERWISE:PROCcopysp("lungsbgrd","anim"):PROCadd_sp(detarea%,"ribs",animarea%,"anim",39,22,15):PROCflip(2,"ribs"):PROCadd_sp(detarea%,"ribs",animarea%,"anim",93,22,15):PROCflip(2,"ribs")
 2840  PROCadd_sp(detarea%,"lungs"+STR$(wlev%),animarea%,"anim",44,15,15):PROCflip(2,"lungs"+STR$(wlev%)):PROCadd_sp(detarea%,"lungs"+STR$(wlev%),animarea%,"anim",96,15,15):PROCflip(2,"lungs"+STR$(wlev%))
 2841  PROCadd_sp(detarea%,"lungsht"+STR$(wlev%),animarea%,"anim",46,50,15)
 2842ENDCASE
 2843ENDPROC
 2844
 2845DEFPROCmakebaby(wlev%)
 2846PROCcl_anim(15)
 2847CASE wlev% OF
 2848 WHEN 0: PROCadd_sp(detarea%,"couple0",animarea%,"anim",13,51,15)
 2849 WHEN 1: PROCadd_sp(detarea%,"coupfem",animarea%,"anim",5,5,15):IFNOTonlyfem%:PROCadd_sp(detarea%,"coupmal",animarea%,"anim",5,5,15)
 2850 WHEN 2: PROCadd_sp(detarea%,"fullterm",animarea%,"anim",36,7,15)
 2851ENDCASE
 2852ENDPROC
 2853
 2854DEFPROCmakebladder(wlev%)
 2855PROCcopysp("bladder"+STR$(wlev%),"anim")
 2856ENDPROC
 2857
 2858DEFPROCmakelymph(wlev%)
 2859PROCcl_anim(15)
 2860CASE wlev% OF
 2861 WHEN 0: PROCadd_sp(detarea%,"lymph",animarea%,"anim",28,15,15)
 2862 WHEN 1: PROCadd_sp(detarea%,"lymphxs",animarea%,"anim",28,15,15)
 2863ENDCASE
 2864PROCadd_sp(detarea%,"lin",animarea%,"anim",65,7,15):PROCadd_sp(detarea%,"lout",animarea%,"anim",94,140,15):PROCadd_sp(detarea%,"larr0",animarea%,"anim",46,8,15)
 2865PROCadd_sp(detarea%,"larr1",animarea%,"anim",114,2,15):PROCadd_sp(detarea%,"larr1",animarea%,"anim",161,10,15):PROCadd_sp(detarea%,"larr2",animarea%,"anim",81,133,15)
 2866ENDPROC
 2867
 2868DEFPROCmakesmintest(wlev%)
 2869PROCcl_anim(15)
 2870CASE wlev% OF
 2871 WHEN 0: PROCadd_sp(detarea%,"smint",animarea%,"anim",0,0,15)
 2872 WHEN 1: PROCadd_sp(detarea%,"smintxs",animarea%,"anim",0,0,15)
 2873 WHEN 2: PROCadd_sp(detarea%,"villi",animarea%,"anim",0,0,15)
 2874ENDCASE
 2875ENDPROC
 2876
 2877DEFPROCmakelgintest(wlev%)
 2878PROCcl_anim(15):PROCadd_sp(detarea%,"lgint",animarea%,"anim",0,0,15)
 2879CASE wlev% OF
 2880 WHEN 1: PROCadd_sp(detarea%,"lgintxs",animarea%,"anim",0,0,15)
 2881ENDCASE
 2882ENDPROC
 2883
 2884DEFPROCmakefemale(wlev%)
 2885PROCcl_anim(15)
 2886CASE wlev% OF
 2887 WHEN 0: PROCadd_sp(detarea%,"female",animarea%,"anim",11,5,15)
 2888 WHEN 1: PROCadd_sp(detarea%,"female",animarea%,"anim",11,5,15):PROCadd_sp(detarea%,"femalexs",animarea%,"anim",11,5,8):PROCadd_sp(detarea%,"femalexs0",animarea%,"anim",11,5,0)
 2889 WHEN 2: PROCadd_sp(detarea%,"ovary",animarea%,"anim",15,14,15)
 2890ENDCASE
 2891ENDPROC
 2892
 2893DEFPROCmakemale(wlev%)
 2894PROCcl_anim(15)
 2895CASE wlev% OF
 2896 WHEN 0: PROCadd_sp(detarea%,"male",animarea%,"anim",63,10,15)
 2897 WHEN 1: PROCadd_sp(detarea%,"malexs",animarea%,"anim",63,10,15)
 2898 WHEN 2: PROCadd_sp(detarea%,"semintub",animarea%,"anim",12,6,15)
 2899ENDCASE
 2900ENDPROC
 2901
 2902DEFPROCmakeear(wlev%)
 2903PROCcl_anim(15)
 2904CASE wlev% OF
 2905 WHEN 0: PROCadd_sp(detarea%,"earhole",animarea%,"anim",6,6,15)
 2906 WHEN 1: PROCadd_sp(detarea%,"cochlea",animarea%,"anim",6,6,15):PROCadd_sp(detarea%,"malleus0",animarea%,"anim",43,73,8):PROCadd_sp(detarea%,"earnerv",animarea%,"anim",162,56,15)
 2907 WHEN 2: PROCadd_sp(detarea%,"cochlea",animarea%,"anim",6,6,15):PROCadd_sp(detarea%,"cochleax",animarea%,"anim",50,17,8):PROCadd_sp(detarea%,"malleus0",animarea%,"anim",43,73,8):PROCadd_sp(detarea%,"earnerv",animarea%,"anim",162,56,15)
 2908ENDCASE
 2909ENDPROC
 2910
 2911DEFPROCmakemuscle(wlev%)
 2912PROCcl_anim(15):PROCadd_sp(detarea%,"musclxs0",animarea%,"anim",8,17,15)
 2913IFwlev%=0:PROCadd_sp(detarea%,"muscl",animarea%,"anim",42,34,15)
 2914ENDPROC
 2915
 2916DEFPROCmakenerves(wlev%)
 2917PROCcopysp("nerve"+STR$(wlev%),"anim")
 2918ENDPROC
 2919
 2920DEFPROCmakesweat(wlev%)
 2921CASE wlev% OF
 2922 WHEN 0: PROCcl_anim(15):PROCadd_sp(detarea%,"skback",animarea%,"anim",28,27,15):PROCadd_sp(detarea%,"skfront",animarea%,"anim",16,34,15)
 2923 WHEN 1: PROCcopysp("skinxs","anim")
 2924ENDCASE
 2925ENDPROC
 2926
 2927DEFPROCmovenose
 2928IFfirstmove%THEN:can%=0:firstmove%=FALSE:elaps%=0:FORs%=0TO16:spk%(s%)=0:NEXT
 2929IFcan%>0THEN:IFTIME<lasttime%+1-elaps%:ENDPROC
 2930elaps%=TIME
 2931IFtexton%THEN
 2932 IFtextnewon%THEN
 2933  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 2934  IFcan%<13:PROCputicnstring(animw%,51,animwords$(simp%,1)):ELSE:PROCputicnstring(animw%,51,animwords$(simp%,2))
 2935 ENDIF
 2936 IFcan%=13:PROCputicnstring(animw%,51,animwords$(simp%,2))
 2937ENDIF
 2938IFcan%=0:spk%(5)=1:spk%(11)=1:spk%(12)=1
 2939IFcan%=4:spk%(1)=1:spk%(3)=1:spk%(4)=1:spk%(7)=1:spk%(8)=1:spk%(13)=1:spk%(14)=1
 2940IFcan%=8:spk%(0)=1:spk%(2)=1:spk%(6)=1:spk%(9)=1:spk%(10)=1:spk%(15)=1:spk%(16)=1
 2941PROCcopysp("noston1","anim")
 2942FORs%=0TO16
 2943IF(spk%(s%)>0)AND(spk%(s%)<=4):PROCadd_sp(detarea%,"smell"+STR$(smell%(s%)),animarea%,"anim",13+(8*s%)+(5*spk%(s%)),144-(6*spk%(s%)),15)
 2944IF(spk%(s%)>=4)AND(spk%(s%)<=6):PROCadd_sp(detarea%,"spark"+STR$(2+((can%+s%)MOD2)),animarea%,"anim",33+(8*s%),112-(8*(spk%(s%)-4)),15)
 2945IF(spk%(s%)>4)AND(can%<=21):PROCadd_sp(detarea%,"smell"+STR$(smell%(s%)),animarea%,"anim",13+(8*s%)+20,144-24,15)
 2946IFspk%(s%)=7:temp$(s%)=olf1$(s%)
 2947IF(spk%(s%)>6)AND(spk%(s%)<17)AND(LEN(temp$(s%))<6):temp$(s%)=olf2$(whicholf2%(s%))
 2948IF(spk%(s%)>6)AND(LEN(temp$(s%))>5):PROCadd_sp(detarea%,"spark"+STR$(2+((can%+s%)MOD2)),animarea%,"anim",VAL(MID$(temp$(s%),1,3)),VAL(MID$(temp$(s%),5,2)),15):temp$(s%)=RIGHT$(temp$(s%),LEN(temp$(s%))-7)
 2949IF(spk%(s%)>0)AND(spk%(s%)<=3)AND((can%MOD4)=3):spk%(s%)+=1
 2950IFspk%(s%)>3:spk%(s%)+=1
 2951NEXT
 2952IFtexton%THEN:IF(can%=11)OR(can%=40):PROCselecticn(animw%,49,TRUE)
 2953can%+=1
 2954elaps%=TIME-elaps%
 2955PROCplotanimmove:lasttime%=TIME
 2956IFcan%=42:PROCmakenose(1):PROCanimateend:PROCplotanim
 2957ENDPROC
 2958
 2959DEFPROCmoveartv
 2960IFfirstmove%THEN:can%=0:firstmove%=FALSE:ti%=1:elaps%=0
 2961IFcan%>0THEN:IFTIME<lasttime%+ti%-elaps%:ENDPROC
 2962elaps%=TIME
 2963IFtexton%THEN
 2964 IFtextnewon%THEN
 2965  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 2966  IF(can%<56):PROCputicnstring(animw%,51,animwords$(simp%,1)):ELSE:PROCputicnstring(animw%,51,animwords$(simp%,2))
 2967 ENDIF
 2968 IF(can%=56):PROCputicnstring(animw%,51,animwords$(simp%,2))
 2969ENDIF
 2970PROCcopysp("avmove","anim")
 2971IF(can%>9)AND(can%<=32):PROCadd_sp(detarea%,"abulg",animarea%,"anim",27+((can%-10)*4),7,16)
 2972IF(can%>29)AND(can%<=52):PROCadd_sp(detarea%,"abulg",animarea%,"anim",27+((can%-30)*4),7,16)
 2973IF((can%>72)AND(can%<=90))OR((can%>104)AND(can%<=122)):PROCadd_sp(detarea%,"vvalv0",animarea%,"anim",45,81,16)
 2974IF(can%>91)AND(can%<=103):PROCadd_sp(detarea%,"vvalv1",animarea%,"anim",45,81,16)
 2975IF(can%>59)AND(can%<=85):PROCadd_sp(detarea%,"varr0",animarea%,"anim",122-((can%-60)*4),105,15)
 2976IF(can%>72)AND(can%<=85):PROCadd_sp(detarea%,"varr0",animarea%,"anim",122-((can%-73)*4),105,15)
 2977IF(can%>85)AND(can%<=89):PROCadd_sp(detarea%,"varr0",animarea%,"anim",22,105,15):PROCadd_sp(detarea%,"varr0",animarea%,"anim",74,105,15)
 2978IF(can%>89)AND(can%<=93):PROCadd_sp(detarea%,"varr1",animarea%,"anim",22+((can%-90)*4),105,15):PROCadd_sp(detarea%,"varr1",animarea%,"anim",74+((can%-90)*4),105,15)
 2979IF(can%>93)AND(can%<=97):PROCadd_sp(detarea%,"varr2",animarea%,"anim",49,95,15):PROCadd_sp(detarea%,"varr1",animarea%,"anim",86,105,15)
 2980IF(can%>97)AND(can%<=101):PROCadd_sp(detarea%,"varr3",animarea%,"anim",47,97,15):PROCadd_sp(detarea%,"varr1",animarea%,"anim",86,105,15)
 2981IF(can%>101)AND(can%<=103):PROCadd_sp(detarea%,"varr0",animarea%,"anim",22-((can%-102)*4),105,15)
 2982IF(can%>101)AND(can%<=118):PROCadd_sp(detarea%,"varr0",animarea%,"anim",86-((can%-102)*4),105,15)
 2983IF(can%=10)OR(can%=30):PROCadd_sp(detarea%,"artery",animarea%,"anim",6,6,15)
 2984PROCadd_sp(detarea%,"heartarr",animarea%,"anim",6,76,15)
 2985IFtexton%THEN:IF(can%=50)OR(can%=120):PROCselecticn(animw%,49,TRUE)
 2986can%+=1
 2987elaps%=TIME-elaps%
 2988PROCplotanimmove:lasttime%=TIME
 2989IFcan%=122:PROCmakeartv(1):PROCanimateend:PROCplotanim
 2990ENDPROC
 2991
 2992DEFPROCmoveskin
 2993IFfirstmove%THEN:can%=0:firstmove%=FALSE:elaps%=0:FORs%=0TO10:spk%(s%)=spkmax%(s%):NEXT
 2994IFcan%>0THEN:IFTIME<lasttime%+6-elaps%:ENDPROC
 2995elaps%=TIME
 2996IFtexton%THEN
 2997 IFtextnewon%THEN
 2998  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 2999  IF(can%<48):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3000  IF(can%>=48)AND(can%<101):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3001  IF(can%>=101)AND(can%<141):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3002  IF(can%>=141):PROCputicnstring(animw%,51,animwords$(simp%,4))
 3003 ENDIF
 3004 IF(can%=48):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3005 IF(can%=101):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3006 IF(can%=141):PROCputicnstring(animw%,51,animwords$(simp%,4))
 3007ENDIF
 3008PROCcopysp("skinxs","anim"):PROCadd_sp(detarea%,"spine",animarea%,"anim",164,47,15):PROCadd_sp(sparea%,"brain",animarea%,"anim",150,17,0)
 3009REM pain
 3010IFcan%<12:FORs%=0TOINT(can%/4):PROCadd_sp(detarea%,"pin"+STR$(INT(can%/4)-s%),animarea%,"anim",60,7+(13*s%),15):NEXT
 3011IF(can%>=12)AND(can%<36):FORs%=0TO3:PROCadd_sp(detarea%,"pin"+STR$(3-s%),animarea%,"anim",60,7+(13*s%),15):NEXT:PROCadd_sp(detarea%,"pierce",animarea%,"anim",65,52,15)
 3012IF(can%>=36)AND(can%<48):FORs%=0TO11-INT(can%/4):PROCadd_sp(detarea%,"pin"+STR$(11-INT(can%/4)-s%),animarea%,"anim",60,7+(13*s%),15):NEXT
 3013IF(can%>=35)AND(can%<=44):PROCadd_sp(detarea%,"pain",animarea%,"anim",163,5,15)
 3014IFcan%=13:spk%(1)=0
 3015IFcan%=19:spk%(2)=0
 3016IFcan%=28:spk%(0)=0
 3017REM touch
 3018IF(can%>=48)AND(can%<64):FORs%=0TOINT(can%/4)-12:PROCadd_sp(detarea%,"pinhead"+STR$(INT(can%/4)-12-s%),animarea%,"anim",42,3+(13*s%),15):NEXT
 3019IF(can%>=64)AND(can%<84):FORs%=0TO3:PROCadd_sp(detarea%,"pinhead"+STR$(3-s%),animarea%,"anim",42+(8*(INT(can%/2)-32)),3+(13*s%),15):NEXT
 3020IF(can%>=84)AND(can%<88):FORs%=0TO3:PROCadd_sp(detarea%,"pinhead"+STR$(3-s%),animarea%,"anim",122,3+(13*s%),15):NEXT
 3021IF(can%>=88)AND(can%<100):FORs%=0TO24-INT(can%/4):PROCadd_sp(detarea%,"pinhead"+STR$(24-INT(can%/4)-s%),animarea%,"anim",122,3+(13*s%),15):NEXT
 3022IF(can%>=83)AND(can%<100):PROCadd_sp(detarea%,"touch",animarea%,"anim",161,5,15)
 3023IFcan%=62:spk%(6)=0
 3024IFcan%=76:spk%(0)=0
 3025IFcan%=74:spk%(7)=0
 3026IFcan%=85:spk%(9)=0
 3027IFcan%=84:spk%(8)=0
 3028IFcan%=92:spk%(10)=0
 3029REM pressure
 3030IF(can%>=100)AND(can%<112):FORs%=0TOINT(can%/4)-25:PROCadd_sp(detarea%,"pinhead"+STR$(INT(can%/4)-25-s%),animarea%,"anim",79,7+(13*s%),15):NEXT
 3031IF(can%>=112)AND(can%<136):PROCadd_sp(detarea%,"skpress",animarea%,"anim",70,54,15):FORs%=0TO3:PROCadd_sp(detarea%,"pinhead"+STR$(3-s%),animarea%,"anim",79,7+(13*s%),15):NEXT
 3032IF(can%>=136)AND(can%<144):FORs%=0TO2:PROCadd_sp(detarea%,"pinhead"+STR$(2-s%),animarea%,"anim",79,7+(13*s%),15):NEXT
 3033IF(can%>=127)AND(can%<140):PROCadd_sp(detarea%,"pressure",animarea%,"anim",155,7,15)
 3034IFcan%=113:spk%(3)=0
 3035IFcan%=120:spk%(0)=0
 3036REM heat
 3037IF(can%>=144)AND(can%<172):PROCadd_sp(detarea%,"pinred",animarea%,"anim",79,7,15)
 3038IF(can%>=163)AND(can%<172):PROCadd_sp(detarea%,"heat",animarea%,"anim",163,5,15)
 3039IFcan%=148:spk%(4)=0
 3040IFcan%=150:spk%(5)=0
 3041IFcan%=156:spk%(0)=0
 3042IFcan%=158:spk%(9)=0
 3043REM tidyup
 3044IF(can%>=172)AND(can%<184):FORs%=0TO45-INT(can%/4):PROCadd_sp(detarea%,"pinhead"+STR$(45-INT(can%/4)-s%),animarea%,"anim",79,7+(13*s%),15):NEXT
 3045REM all sparks
 3046FORs%=0TO10
 3047IFspk%(s%)<spkmax%(s%)THEN
 3048CASE s% OF
 3049 WHEN 0,9,10: PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",167,111-(11*spk%(s%)),15)
 3050 WHEN 1:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",skpain%(spk%(s%),0),skpain%(spk%(s%),1),15)
 3051        IFspk%(s%)=0:spk%(s%)+=1:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",skpain%(spk%(s%),0),skpain%(spk%(s%),1),15)
 3052 WHEN 2: PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",69+(11*spk%(s%)),111,15)
 3053 WHEN 3:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",skpress%(spk%(s%),0),skpress%(spk%(s%),1),15)
 3054        IF(spk%(s%)=1)OR(spk%(s%)=3):spk%(s%)+=1:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",skpress%(spk%(s%),0),skpress%(spk%(s%),1),15)
 3055 WHEN 4:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",skheat1%(spk%(s%),0),skheat1%(spk%(s%),1),15)
 3056        IFspk%(s%)=0:spk%(s%)+=1:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",skheat1%(spk%(s%),0),skheat1%(spk%(s%),1),15)
 3057 WHEN 5:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",skheat2%(spk%(s%),0),skheat2%(spk%(s%),1),15)
 3058 WHEN 6,7,8:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",sktouch%(spk%(s%),0)+(45*(s%-6)),sktouch%(spk%(s%),1),15)
 3059            IFspk%(s%)=0:FORr%=0TO1:spk%(s%)+=1:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",sktouch%(spk%(s%),0)+(45*(s%-6)),sktouch%(spk%(s%),1),15):NEXT
 3060            IFspk%(s%)=3:spk%(s%)+=1:PROCadd_sp(detarea%,"spark"+STR$(2+(can%MOD2)),animarea%,"anim",sktouch%(spk%(s%),0)+(45*(s%-6)),sktouch%(spk%(s%),1),15)
 3061ENDCASE
 3062spk%(s%)+=1
 3063ENDIF
 3064NEXT
 3065IFtexton%THEN:IF(can%=35)OR(can%=84)OR(can%=128)OR(can%=166):PROCselecticn(animw%,49,TRUE)
 3066can%+=1
 3067elaps%=TIME-elaps%
 3068PROCplotanimmove:lasttime%=TIME
 3069IFcan%=184:PROCmakeskin(2):PROCanimateend:PROCplotanim
 3070ENDPROC
 3071
 3072DEFPROCmoveheart
 3073IFfirstmove%THEN
 3074can%=0:firstmove%=FALSE:spk%=0:lasttime%=TIME-50:elaps%=0
 3075*CHANNELVOICE 1 lubdub
 3076ENDIF
 3077IFspk%=0THEN
 3078 IFTIME<lasttime%+50-elaps%:ENDPROC
 3079ELSE
 3080 IFTIME<lasttime%+10-elaps%:ENDPROC
 3081ENDIF
 3082elaps%=TIME
 3083IFtexton%THEN
 3084 IFtextnewon%THEN
 3085  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 3086  IF(can%<5):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3087  IF(can%>=5)AND(can%<11):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3088  IF(can%>=11)AND(can%<17):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3089  IF(can%>=17)AND(can%<21):PROCputicnstring(animw%,51,animwords$(simp%,4))
 3090  IF(can%>=21):PROCputicnstring(animw%,51,animwords$(simp%,5))
 3091 ENDIF
 3092 IF(can%=5):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3093 IF(can%=11):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3094 IF(can%=17):PROCputicnstring(animw%,51,animwords$(simp%,4))
 3095 IF(can%=21):PROCputicnstring(animw%,51,animwords$(simp%,5))
 3096ENDIF
 3097IFcan%=0 PROCcl_anim(12)
 3098IFcan%<38THEN
 3099 lin$=hanim$(can%)
 3100 REPEAT
 3101 PROCadd_sp(detarea%,MID$(lin$,1,5),animarea%,"anim",VAL(MID$(lin$,7,3)),VAL(MID$(lin$,11,3)),VAL(MID$(lin$,15,2)))
 3102 lin$=RIGHT$(lin$,LEN(lin$)-17)
 3103 UNTIL LEN(lin$)<17
 3104 IF(can%=26)OR(can%=29):SOUND 1,&17F,&1C00,10
 3105ENDIF
 3106IFtexton%THEN:IF(can%=4)OR(can%=10)OR(can%=16)OR(can%=20)OR((can%=22)AND(spk%=0)):PROCselecticn(animw%,49,TRUE)
 3107can%+=1:IFcan%=38:can%=22:spk%+=1
 3108elaps%=TIME-elaps%
 3109PROCplotanimmove:lasttime%=TIME
 3110IFspk%=5:PROCmakeheart(2):PROCanimateend:PROCplotanim
 3111ENDPROC
 3112
 3113DEFPROCmoveliver
 3114IFfirstmove%THEN:can%=0:spk%=1:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3115IFTIME<lasttime%+60-elaps%:ENDPROC
 3116elaps%=TIME
 3117IFtexton%THEN
 3118 IFtextnewon%THEN
 3119  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0)):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3120 ENDIF
 3121ENDIF
 3122PROCcl_anim(15):PROCadd_sp(detarea%,"liver",animarea%,"anim",6,6,15):PROCadd_sp(detarea%,"liverxs",animarea%,"anim",30,21,15)
 3123IFcan%<9:PROCadd_sp(detarea%,"bile"+STR$(can%),animarea%,"anim",43,66,15)
 3124IFtexton%THEN:IF(can%=8)AND(spk%=1):PROCselecticn(animw%,49,TRUE)
 3125can%+=1
 3126IFcan%=10THEN:can%=0:spk%+=1
 3127elaps%=TIME-elaps%
 3128PROCplotanimmove:lasttime%=TIME
 3129IFspk%=3:PROCmakeliver(1):PROCanimateend:PROCplotanim
 3130ENDPROC
 3131
 3132
 3133DEFPROCmovejoint
 3134IFfirstmove%THEN:can%=0:spk%=1:spk1%=1:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3135IFTIME<lasttime%+60-elaps%:ENDPROC
 3136elaps%=TIME
 3137IFtexton%THEN
 3138 IFtextnewon%THEN
 3139  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 3140  IF(spk1%<=4)AND(can%<4):PROCputicnstring(animw%,51,animwords$(simp%,1)):ELSE:PROCputicnstring(animw%,51,animwords$(simp%,2))
 3141 ENDIF
 3142 IF(spk1%=4)AND(can%=1):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3143ENDIF
 3144PROCcl_anim(15):PROCadd_sp(detarea%,"scapula",animarea%,"anim",134,31,15)
 3145IF(spk1%=4)AND(can%=1):can%=4
 3146IFcan%<4THEN
 3147PROCadd_sp(detarea%,"hum0",animarea%,"anim",104,22,15):PROCadd_sp(detarea%,"humlig",animarea%,"anim",131,37,15):PROCadd_sp(detarea%,"disthum",animarea%,"anim",54,83,15):PROCadd_sp(detarea%,"arc",animarea%,"anim",3,54,15)
 3148IF(can%=1)OR(can%=3):PROCadd_sp(detarea%,"ulna1",animarea%,"anim",9,63,15):ELSE:PROCadd_sp(detarea%,"ulna"+STR$(can%),animarea%,"anim",9,63,15)
 3149ENDIF
 3150IFcan%>=4:PROCadd_sp(detarea%,"hum"+STR$(can%-4),animarea%,"anim",104,22,15):PROCadd_sp(detarea%,"circ",animarea%,"anim",89,9,15)
 3151IFcan%=3THEN:can%=-1:spk1%+=1
 3152IFcan%=7THEN:can%=3:spk%+=1
 3153IFtexton%THEN:IF((spk1%=4)AND(can%=0))OR((spk%=4)AND(can%=3)):PROCselecticn(animw%,49,TRUE)
 3154can%+=1
 3155elaps%=TIME-elaps%
 3156PROCplotanimmove:lasttime%=TIME
 3157IF(spk%=4)AND(can%=5):PROCmakejoint(1):PROCanimateend:PROCplotanim
 3158ENDPROC
 3159
 3160DEFPROCmovelungs
 3161IFfirstmove%THEN:can%=0:spk%=1:spk1%=1:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3162IFcan%<6THEN:IFTIME<lasttime%+60-elaps%:ENDPROC
 3163IFcan%>=6THEN:IFTIME<lasttime%+10-elaps%:ENDPROC
 3164elaps%=TIME
 3165IFtexton%THEN
 3166 IFtextnewon%THEN
 3167  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 3168  IFcan%<=5:PROCputicnstring(animw%,51,animwords$(simp%,1)):ELSE:PROCputicnstring(animw%,51,animwords$(simp%,2))
 3169 ENDIF
 3170 IF(can%=6)AND(spk%=1):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3171ENDIF
 3172PROCcopysp("lungsbgrd","anim")
 3173IFcan%<6:spna$="lungan"+STR$(1-(can%MOD2)):PROCadd_sp(detarea%,"rest",animarea%,"anim",49,141,15):PROCadd_sp(detarea%,"arr"+STR$(1-(can%MOD2)),animarea%,"anim",94,2,15)
 3174IFcan%>=6THEN
 3175IF(can%MOD2)=0:spna$="lungan0":ELSE:spna$="lungan"+STR$(can%)
 3176PROCadd_sp(detarea%,"exert",animarea%,"anim",43,141,15)
 3177IF(can%=6)OR(can%=7):PROCadd_sp(detarea%,"arr2",animarea%,"anim",92,2,15):ELSE:PROCadd_sp(detarea%,"arr3",animarea%,"anim",92,2,15)
 3178ENDIF
 3179PROCadd_sp(detarea%,spna$,animarea%,"anim",31,15,15):PROCflip(2,spna$):PROCadd_sp(detarea%,spna$,animarea%,"anim",93,15,15):PROCflip(2,spna$)
 3180IFcan%=5THEN
 3181 can%=-1:spk1%+=1
 3182 IFspk1%=3THEN
 3183  can%=5
 3184 ENDIF
 3185ENDIF
 3186IFcan%=9THEN:can%=5:spk%+=1
 3187IFtexton%THEN:IF((can%=5)AND(spk%=1))OR((spk%=7)AND(can%=8)):PROCselecticn(animw%,49,TRUE)
 3188can%+=1
 3189elaps%=TIME-elaps%
 3190PROCplotanimmove:lasttime%=TIME
 3191IFspk%=8:PROCmakelungs(1):PROCanimateend:PROCplotanim
 3192ENDPROC
 3193
 3194DEFPROCmovebaby
 3195IFfirstmove%THEN:can%=0:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3196CASE can% OF
 3197 WHEN 64,65,87,88,96,97:IFTIME<lasttime%+200-elaps%:ENDPROC
 3198 WHEN 102:IFTIME<lasttime%+600-elaps%:ENDPROC
 3199ENDCASE
 3200IFcan%=52THEN:IFTIME<lasttime%+200-elaps%:ENDPROC
 3201IF(can%>=64)AND(can%<=70)THEN:IFTIME<lasttime%+200-elaps%:ENDPROC
 3202IF(can%>=71)AND(can%<=78)THEN:IFTIME<lasttime%+100-elaps%:ENDPROC
 3203IF(can%>=79)AND(can%<=88)THEN:IFTIME<lasttime%+200-elaps%:ENDPROC
 3204IF(can%>=89)AND(can%<=95)THEN:IFTIME<lasttime%+100-elaps%:ENDPROC
 3205IF(can%>=96)AND(can%<=97)THEN:IFTIME<lasttime%+200-elaps%:ENDPROC
 3206IF(can%>=98)AND(can%<=99)THEN:IFTIME<lasttime%+100-elaps%:ENDPROC
 3207IF(can%>=100)AND(can%<=101)THEN:IFTIME<lasttime%+200-elaps%:ENDPROC
 3208IFcan%<64THEN:IFTIME<lasttime%+20-elaps%:ENDPROC
 3209elaps%=TIME
 3210IFtexton%THEN
 3211 IFtextnewon%THEN
 3212  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 3213  IF(can%<51):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3214  IF(can%>=51)AND(can%<62):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3215  IF(can%>=62)AND(can%<80):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3216  IF(can%>=80)AND(can%<92):PROCputicnstring(animw%,51,animwords$(simp%,4))
 3217  IF(can%>=92):PROCputicnstring(animw%,51,animwords$(simp%,5))
 3218 ENDIF
 3219 IF(can%=51):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3220 IF(can%=62):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3221 IF(can%=80):PROCputicnstring(animw%,51,animwords$(simp%,4))
 3222 IF(can%=92):PROCputicnstring(animw%,51,animwords$(simp%,5))
 3223ENDIF
 3224IF(can%=57)OR(can%=87):PROCcl_anim(15)
 3225IF(can%>=37)AND(can%<=62):PROCadd_sp(detarea%,"coupfem",animarea%,"anim",5,5,15)
 3226IF(can%>=0)AND(can%<=56):PROCadd_sp(detarea%,"coupmal",animarea%,"anim",5,5,15)
 3227IF(can%>=0)AND(can%<=38):PROCadd_sp(detarea%,"semen"+STR$(can%),animarea%,"anim",5,5,15)
 3228IF(can%>=39)AND(can%<=50):PROCadd_sp(detarea%,"semen39",animarea%,"anim",5,5,15)
 3229IF(can%>=40)AND(can%<=50):PROCadd_sp(detarea%,"semen"+STR$(can%-12),animarea%,"anim",5,5,15)
 3230IF(can%>=51)AND(can%<=62):PROCadd_sp(detarea%,"semen"+STR$(can%-11),animarea%,"anim",5,5,15)
 3231IF(can%>=0)AND(can%<=27):PROCadd_sp(detarea%,"glandfull",animarea%,"anim",5,5,15)
 3232IF(can%>=28)AND(can%<=39):PROCadd_sp(detarea%,"glandhalf",animarea%,"anim",5,5,15):PROCadd_sp(detarea%,"semenstor",animarea%,"anim",5,5,15)
 3233IF(can%>=27)AND(can%<=51):PROCadd_sp(detarea%,"egg",animarea%,"anim",27,94,15)
 3234IF(can%>=52)AND(can%<=62):PROCadd_sp(detarea%,"egg",animarea%,"anim",30,88,15)
 3235IFcan%=64:PROCmovebabylines(1)
 3236IF(can%>=63)AND(can%<=64):PROCadd_sp(detarea%,"little1",animarea%,"anim",5,5,15)
 3237IF(can%>=64)AND(can%<=80):PROCadd_sp(detarea%,"fert0",animarea%,"anim",69,47,8)
 3238IF(can%>=65)AND(can%<=69):PROCadd_sp(detarea%,"fert"+STR$(can%-64),animarea%,"anim",69,47,15)
 3239IF(can%>=70)AND(can%<=79):PROCadd_sp(detarea%,"fert"+STR$(6+(can%MOD2)),animarea%,"anim",69,47,15)
 3240IF(can%>=70)AND(can%<=75):PROCadd_sp(detarea%,"win"+STR$(can%MOD2),animarea%,"anim",71,49,15)
 3241IF(can%>=76)AND(can%<=86):PROCadd_sp(detarea%,"win"+STR$(can%-74),animarea%,"anim",71,49,15)
 3242IF(can%>=78)AND(can%<=80):PROCadd_sp(detarea%,"eggstop",animarea%,"anim",71,49,15)
 3243IF(can%>=87)AND(can%<=94):PROCadd_sp(detarea%,"coupfem",animarea%,"anim",5,5,15)
 3244IF(can%>=87)AND(can%<=94):PROCadd_sp(detarea%,"egg",animarea%,"anim",babyegg%(can%-86,0),babyegg%(can%-86,1),15)
 3245IFcan%=96:PROCmovebabylines(2)
 3246IF(can%>=95)AND(can%<=96):PROCadd_sp(detarea%,"little2",animarea%,"anim",5,5,15)
 3247IF(can%>=96)AND(can%<=101):PROCadd_sp(detarea%,"impl0",animarea%,"anim",69,47,8)
 3248IF(can%>=97)AND(can%<=101):PROCadd_sp(detarea%,"impl"+STR$(can%-96),animarea%,"anim",71,49,8)
 3249IFtexton%THEN:IF(can%=40)OR(can%=61)OR(can%=78)OR(can%=84)OR(can%=99):PROCselecticn(animw%,49,TRUE)
 3250can%+=1
 3251elaps%=TIME-elaps%
 3252PROCplotanimmove:lasttime%=TIME
 3253IFcan%=103THEN
 3254 IFNOTtexton%:onlyfem%=-1
 3255 PROCmakebaby(1):PROCanimateend:PROCplotanim
 3256ENDIF
 3257ENDPROC
 3258
 3259DEFPROCmovebabylines(whi%)
 3260SYS"OS_SpriteOp",&13C,animarea%,"anim",0
 3261VDU18,0,7
 3262FORj%=0TO1
 3263IFwhi%=1:VDU25,4,104+(j%*2);276;:ELSE:VDU25,4,190+(j%*2);196;
 3264VDU25,5,276+(j%*2);424;
 3265IFwhi%=1:VDU25,4,104+(j%*2);244;:ELSE:VDU25,4,190+(j%*2);164;
 3266VDU25,5,276+(j%*2);88;
 3267IFwhi%=1:VDU25,4,142+(j%*2);276;:ELSE:VDU25,4,228+(j%*2);196;
 3268VDU25,5,726+(j%*2);424;
 3269IFwhi%=1:VDU25,4,142+(j%*2);244;:ELSE:VDU25,4,228+(j%*2);164;
 3270VDU25,5,726+(j%*2);88;
 3271SYS"OS_SpriteOp",&13C,animarea%,0,0
 3272ENDPROC
 3273
 3274DEFPROCmovefemale
 3275IFfirstmove%THEN:can%=0:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3276IFTIME<lasttime%+100-elaps%:ENDPROC
 3277elaps%=TIME
 3278IFtexton%THEN
 3279 IFtextnewon%THEN
 3280  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 3281  IF(can%<5):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3282  IF(can%>=5)AND(can%<21):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3283  IF(can%>=21):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3284 ENDIF
 3285 IF(can%=5):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3286 IF(can%=21):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3287ENDIF
 3288PROCadd_sp(detarea%,"femalexs",animarea%,"anim",11,5,8)
 3289IFcan%>0:PROCadd_sp(detarea%,"perday",animarea%,"anim",23,72,16)
 3290IFcan%>0:PROCadd_sp(detarea%,"perday"+STR$(can%MOD10),animarea%,"anim",23,75,2)
 3291IF(can%>=10)AND(can%<=19):PROCadd_sp(detarea%,"perday10",animarea%,"anim",23,75,2)
 3292IFcan%>=20:PROCadd_sp(detarea%,"perday20",animarea%,"anim",23,75,2)
 3293IFcan%=0:PROCadd_sp(detarea%,"femalexs0",animarea%,"anim",11,5,0)
 3294IFcan%=1:PROCadd_sp(detarea%,"femalexs1",animarea%,"anim",11,5,0)
 3295IF(can%>=2)AND(can%<=4):PROCadd_sp(detarea%,"femalexs"+STR$(can%),animarea%,"anim",11,5,0)
 3296IF(can%>=6)AND(can%<=8):PROCadd_sp(detarea%,"femalexs5",animarea%,"anim",11,5,0)
 3297IF(can%>=9)AND(can%<=11):PROCadd_sp(detarea%,"femalexs6",animarea%,"anim",11,5,0)
 3298IF(can%>=12)AND(can%<=16):PROCadd_sp(detarea%,"femalexs7",animarea%,"anim",11,5,0)
 3299IF(can%>=14)AND(can%<=21):PROCadd_sp(detarea%,"egg0",animarea%,"anim",peregg%(can%-14,0),peregg%(can%-14,1),2)
 3300IF(can%>=22)AND(can%<=25):PROCadd_sp(detarea%,"egg"+STR$(can%-21),animarea%,"anim",81,32,2)
 3301IFcan%>=14:PROCadd_sp(detarea%,"ovul",animarea%,"anim",27,21,2)
 3302IFcan%>=17:PROCadd_sp(detarea%,"femalexs0",animarea%,"anim",11,5,0)
 3303IFtexton%THEN:IF(can%=3)OR(can%=14)OR(can%=28):PROCselecticn(animw%,49,TRUE)
 3304can%+=1
 3305elaps%=TIME-elaps%
 3306IFcan%<30:PROCplotanimmove:lasttime%=TIME
 3307IFcan%=30:PROCmakefemale(1):PROCanimateend:PROCplotanim
 3308ENDPROC
 3309
 3310DEFPROCmovemale
 3311IFfirstmove%THEN:can%=0:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3312IF(can%>0)AND(can%<4)THEN:IFTIME<lasttime%+200-elaps%:ENDPROC
 3313IFcan%=4THEN:IFTIME<lasttime%+500-elaps%:ENDPROC
 3314elaps%=TIME
 3315IFtexton%THEN
 3316 IFtextnewon%THEN
 3317  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0)):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3318 ENDIF
 3319ENDIF
 3320IFcan%=1:PROCadd_sp(detarea%,"malexs1",animarea%,"anim",38,56,8)
 3321IFcan%=2:PROCadd_sp(detarea%,"malexs2",animarea%,"anim",11,56,8)
 3322IFcan%=3:PROCadd_sp(detarea%,"malexs3",animarea%,"anim",8,25,8)
 3323IFtexton%THEN:IF(can%=3):PROCselecticn(animw%,49,TRUE)
 3324can%+=1
 3325elaps%=TIME-elaps%
 3326PROCplotanimmove:lasttime%=TIME
 3327IFcan%=5:PROCmakemale(1):PROCanimateend:PROCplotanim
 3328ENDPROC
 3329
 3330DEFPROCmoveear
 3331IFfirstmove%: can%=-1:spk%=0:firstmove%=FALSE:elaps%=0
 3332IFcan%>-1THEN:IFTIME<lasttime%+6-elaps%:ENDPROC
 3333elaps%=TIME
 3334IFtexton%THEN
 3335 IFtextnewon%THEN
 3336  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 3337  IF(can%<9):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3338  IF(can%>=9)AND(can%<26):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3339  IF(can%>=26):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3340 ENDIF
 3341 IF(can%=9):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3342 IF(can%=26):PROCputicnstring(animw%,51,animwords$(simp%,3))
 3343ENDIF
 3344SYS"OS_SpriteOp",&13C,animarea%,"anim",0
 3345IFcan%=-1 THEN
 3346*CHANNELVOICE 1 1
 3347PROCadd_sp(detarea%,"note",animarea%,"anim",4,89,8)
 3348SOUND 1,-15,53,36
 3349ENDIF
 3350IF(can%>=0)AND(can%<11) VDU25,4,18;232;:VDU25,4,canal%(can%,0)-6;692-canal%(can%,1);:VDU25,166,canal%(can%,2)-6;692-canal%(can%,3);
 3351IF(can%>5)AND(can%<17) VDU25,4,18;232;:VDU25,4,canal%(can%-6,0)-6;692-canal%(can%-6,1);:VDU25,166,canal%(can%-6,2)-6;692-canal%(can%-6,3);
 3352IF(can%>7)AND(can%<18) PROCadd_sp(detarea%,"malleus"+STR$((can%+1)MOD2),animarea%,"anim",43,73,8)
 3353IF(can%>9)AND(can%<28) VDU25,4,314;276;:VDU25,4,cochlea%(can%-10,0)-6;692-cochlea%(can%-10,1);:VDU25,166,cochlea%(can%-10,2)-6;692-cochlea%(can%-10,3);
 3354IF(can%>15)AND(can%<34) VDU25,4,314;276;:VDU25,4,cochlea%(can%-16,0)-6;692-cochlea%(can%-16,1);:VDU25,166,cochlea%(can%-16,2)-6;692-cochlea%(can%-16,3);
 3355SYS"OS_SpriteOp",&13C,animarea%,0,0
 3356IF(can%>=30)AND(can%<36) THEN
 3357 IF((spk%MOD2)=0) PROCadd_sp(detarea%,"spark0",animarea%,"anim",spark%(spk%/2,0),spark%(spk%/2,1),15)
 3358 IF((spk%MOD2)=1) PROCadd_sp(detarea%,"spar"+STR$((spk%-1)/2),animarea%,"anim",spark%((spk%-1)/2,0),spark%((spk%-1)/2,1),8)
 3359 spk%+=1
 3360ENDIF
 3361IFcan%=35 spk%=0
 3362IF(can%>=35)AND(can%<43) THEN
 3363 PROCadd_sp(detarea%,"earnerv",animarea%,"anim",162,56,15)
 3364 PROCadd_sp(detarea%,"spark"+STR$(spk%MOD2),animarea%,"anim",163+(spk%*2),71-INT((spk%*12)/7),15)
 3365 spk%+=1
 3366ENDIF
 3367IFtexton%THEN:IF(can%=8)OR(can%=25)OR(can%=41):PROCselecticn(animw%,49,TRUE)
 3368can%+=1
 3369elaps%=TIME-elaps%
 3370PROCplotanimmove:lasttime%=TIME
 3371IFcan%=43:PROCmakeear(2):PROCanimateend:PROCplotanim
 3372ENDPROC
 3373
 3374DEFPROCmovemouth
 3375IFfirstmove%:can%=0:spk%=1:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3376IFTIME<lasttime%+80-elaps%:ENDPROC
 3377elaps%=TIME
 3378IFtexton%THEN
 3379 IFtextnewon%THEN
 3380  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 3381  IF(spk%=1)AND(can%<8):PROCputicnstring(animw%,51,animwords$(simp%,1)):ELSE:PROCputicnstring(animw%,51,animwords$(simp%,2))
 3382 ENDIF
 3383 IF(spk%=1)AND(can%=8):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3384ENDIF
 3385PROCcl_anim(15)
 3386PROCadd_sp(detarea%,"mouthnv",animarea%,"anim",4,4,15)
 3387PROCadd_sp(detarea%,"straw",animarea%,"anim",3,10,9)
 3388IFcan%=1:PROCadd_sp(detarea%,"suck0",animarea%,"anim",3,104,15)
 3389IFcan%=2:PROCadd_sp(detarea%,"suck1",animarea%,"anim",3,51,15)
 3390IF(can%>=3)AND(can%<11)THEN
 3391PROCadd_sp(detarea%,"suck2",animarea%,"anim",3,30,15)
 3392PROCadd_sp(detarea%,"swal"+STR$(can%-2),animarea%,"anim",swal%(can%-3,0),swal%(can%-3,1),15)
 3393ENDIF
 3394IFcan%=11:PROCadd_sp(detarea%,"suck2",animarea%,"anim",3,30,15)
 3395PROCadd_sp(detarea%,"nose",animarea%,"anim",127,5,15)
 3396PROCadd_sp(detarea%,"lungsst",animarea%,"anim",131,123,15)
 3397IFtexton%THEN:IF((spk%=1)AND(can%=7))OR((spk%=1)AND(can%=10)):PROCselecticn(animw%,49,TRUE)
 3398can%+=1:IFcan%=12:can%=3:spk%+=1
 3399elaps%=TIME-elaps%
 3400PROCplotanimmove:lasttime%=TIME
 3401IFspk%=3:PROCmakemouth(1):PROCanimateend:PROCplotanim
 3402ENDPROC
 3403
 3404DEFPROCmoveeye
 3405IFfirstmove%THEN
 3406cand%=0:spk%=0:firstmove%=FALSE:elaps%=0
 3407ELSE
 3408IFcand%=1THEN:IFTIME<lasttime%+100-elaps%:ENDPROC
 3409IF(cand%>0)AND(spk%=0)THEN:IFTIME<lasttime%+20-elaps%:ENDPROC
 3410ENDIF
 3411elaps%=TIME
 3412IFtexton%THEN
 3413 IFtextnewon%THEN
 3414  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0))
 3415  IF(cand%<18):PROCputicnstring(animw%,51,animwords$(simp%,1)):ELSE:PROCputicnstring(animw%,51,animwords$(simp%,2))
 3416 ENDIF
 3417 IF(cand%=18)AND(spk%=0):PROCputicnstring(animw%,51,animwords$(simp%,2))
 3418ENDIF
 3419IFcand%<=17THEN
 3420PROCadd_sp(detarea%,"candle"+STR$(cand%),animarea%,"anim",candpos%(cand%,0),candpos%(cand%,1),15)
 3421IFcand%=17 PROCadd_sp(detarea%,"spark0",animarea%,"anim",147,71,15)
 3422cand%+=1
 3423ELSE
 3424spk%+=1:PROCcopysp("eye1","anim"):FORk%=0TO17:PROCadd_sp(detarea%,"candle"+STR$(k%),animarea%,"anim",candpos%(k%,0),candpos%(k%,1),15):NEXT
 3425PROCadd_sp(detarea%,"spark"+STR$(spk%MOD2),animarea%,"anim",151+(4*spk%),71,15)
 3426ENDIF
 3427IFtexton%THEN:IF((cand%=18)AND(spk%=0))OR(spk%=5):PROCselecticn(animw%,49,TRUE)
 3428elaps%=TIME-elaps%
 3429PROCplotanimmove:lasttime%=TIME
 3430IFspk%=7:PROCmakeeye(1):PROCanimateend:PROCplotanim
 3431ENDPROC
 3432
 3433DEFPROCmovesmintest
 3434IFfirstmove%:can%=0:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3435IFcan%=78THEN
 3436IFTIME<lasttime%+40-elaps%:ENDPROC
 3437ELSE
 3438IFTIME<lasttime%+20-elaps%:ENDPROC
 3439ENDIF
 3440elaps%=TIME
 3441IFtexton%THEN
 3442 IFtextnewon%THEN
 3443  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0)):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3444 ENDIF
 3445ENDIF
 3446IFcan%<107THEN
 3447PROCadd_sp(detarea%,"smintxs",animarea%,"anim",0,0,15)
 3448PROCadd_sp(detarea%,"bolus"+STR$(can%),animarea%,"anim",0,0,15)
 3449ENDIF
 3450IFtexton%THEN:IFcan%=16:PROCselecticn(animw%,49,TRUE)
 3451can%+=1
 3452elaps%=TIME-elaps%
 3453PROCplotanimmove:lasttime%=TIME
 3454IFcan%=115:PROCmakesmintest(1):PROCanimateend:PROCplotanim
 3455ENDPROC
 3456
 3457DEFPROCmovemuscle
 3458IFfirstmove%:can%=0:firstmove%=FALSE:lasttime%=TIME:elaps%=0:ENDPROC
 3459IFTIME<lasttime%+80-elaps%:ENDPROC
 3460elaps%=TIME
 3461IFtexton%THEN
 3462 IFtextnewon%THEN
 3463  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0)):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3464 ENDIF
 3465ENDIF
 3466PROCcl_anim(15)
 3467PROCadd_sp(detarea%,"musclxs"+STR$((can%+1)MOD2),animarea%,"anim",8,17,15)
 3468IFtexton%THEN:IF(can%=8):PROCselecticn(animw%,49,TRUE)
 3469can%+=1
 3470elaps%=TIME-elaps%
 3471PROCplotanimmove:lasttime%=TIME
 3472IFcan%=10:PROCmakemuscle(1):PROCanimateend:PROCplotanim
 3473ENDPROC
 3474
 3475DEFPROCmovenerves
 3476IFfirstmove%: can%=-1:spk1%=0:spk2%=0:spk3%=0:spk4%=0:spk5%=0:firstmove%=FALSE:elaps%=0
 3477IFcan%>-1THEN:IFTIME<lasttime%+1-elaps%:ENDPROC
 3478elaps%=TIME
 3479IFtexton%THEN
 3480 IFtextnewon%THEN
 3481  textnewon%=0:PROCputicnstring(animw%,50,animwords$(simp%,0)):PROCputicnstring(animw%,51,animwords$(simp%,1))
 3482 ENDIF
 3483ENDIF
 3484PROCcopysp("nerve1","anim")
 3485IFcan%>1 THEN
 3486PROCadd_sp(detarea%,"spark"+STR$((can%+2)MOD2),animarea%,"anim",neuron1%(spk1%,0),neuron1%(spk1%,1),15)
 3487IF(spk1%=3)OR(spk1%=5) spk1%+=1:PROCadd_sp(detarea%,"spark"+STR$((can%+2)MOD2),animarea%,"anim",neuron1%(spk1%,0),neuron1%(spk1%,1),15)
 3488spk1%+=1
 3489PROCadd_sp(detarea%,"spark"+STR$((can%+2)MOD2),animarea%,"anim",neuron5%(spk5%,0),neuron5%(spk5%,1),15)
 3490IF(spk5%=0)OR(spk5%=2) spk5%+=1:PROCadd_sp(detarea%,"spark"+STR$((can%+2)MOD2),animarea%,"anim",neuron5%(spk5%,0),neuron5%(spk5%,1),15)
 3491spk5%+=1
 3492ENDIF
 3493IFcan%>=-1 THEN
 3494PROCadd_sp(detarea%,"spark"+STR$((can%+3)MOD2),animarea%,"anim",neuron3%(spk3%,0),neuron3%(spk3%,1),15)
 3495IF(spk3%=2)OR(spk3%=4)OR(spk3%=13)OR(spk3%=15) spk3%+=1:PROCadd_sp(detarea%,"spark"+STR$((can%+2)MOD2),animarea%,"anim",neuron3%(spk3%,0),neuron3%(spk3%,1),15)
 3496spk3%+=1
 3497PROCadd_sp(detarea%,"spark"+STR$((can%+3)MOD2),animarea%,"anim",180-(20*spk4%),99-(16*spk4%),15)
 3498spk4%+=1
 3499ENDIF
 3500IFcan%>3 THEN
 3501PROCadd_sp(detarea%,"spark"+STR$((can%+3)MOD2),animarea%,"anim",4+(14*spk2%),52+(11*spk2%),15)
 3502spk2%+=1
 3503ENDIF
 3504IF spk1%=10 spk1%=0
 3505IF spk2%=9 spk2%=0
 3506IF spk3%=18 spk3%=0
 3507IF spk4%=7 spk4%=0
 3508IF spk5%=7 spk5%=0
 3509IFtexton%THEN:IF(can%=40):PROCselecticn(animw%,49,TRUE)
 3510can%+=1
 3511elaps%=TIME-elaps%
 3512PROCplotanimmove:lasttime%=TIME
 3513IFcan%=42:PROCmakenerves(1):PROCanimateend:PROCplotanim
 3514ENDPROC
 3515
 3516REM ************ pin the body part ***************
 3517
 3518DEFPROCchangetopin
 3519IFFNisopen(bodyw%):PROCclosewind(blk%)
 3520IFFNisopen(systw%):PROCclosewind(blk%)
 3521IFFNisopen(overw%):PROCclosewind(blk%)
 3522IFFNisopen(animw%):PROCclosewind(blk%):PROCselecticn(bodyw%,activeicn%,FALSE):PROCinitanimw
 3523IFFNisopen(defnw%):PROCclosewind(blk%):PROCselecticn(systw%,3,FALSE)
 3524*Set BodyWise$chaindir <BodyWise$Dir>
 3525IFY%=0 test%=0:REPEAT:PROCfloppy_disk("bodywise","$.!Bodywise.pinorgs_c","$.!Bodywise.pinbuts",""):UNTILerror%=0
 3526SYS "OS_SpriteOp",&10A,bodyarea%,"<BodyWise$Dir>.pinbuts"
 3527SYS "OS_SpriteOp",&10A,animarea%,"<BodyWise$Dir>.pinorgs_c"
 3528pinnoof%=0
 3529PROCpininit
 3530ENDPROC
 3531
 3532DEFPROCpininit
 3533SYS "XOS_SpriteOp",&119,bodyarea%,"body"
 3534SYS "OS_SpriteOp",&10F,bodyarea%,"body",1,312,234,12:PROCaddpalet(bodyarea%,"body")
 3535SYS "OS_SpriteOp",&109,detarea%
 3536SYS "OS_SpriteOp",&10F,detarea%,"body",1,312,234,12:PROCaddpalet(detarea%,"body")
 3537PROCaddbod(detarea%):PROCaddbod(bodyarea%)
 3538pingotto%=0:pinchoice%=8:wasdoneonce%=FALSE
 3539FORj%=0TO23:pindonepart%(j%)=FALSE:NEXT
 3540pinx%=0:piny%=0:FORj%=0TO3:rect%(j%)=0:NEXT
 3541ENDPROC
 3542
 3543DEFPROCchangetofullbody
 3544IFFNisopen(pinorgsw%):PROCclosewind(blk%)
 3545IFFNisopen(pinoutlw%):PROCclosewind(blk%)
 3546pingotto%=0:pinchoice%=8:wasdoneonce%=FALSE
 3547FORj%=0TO23:pindonepart%(j%)=FALSE:NEXT
 3548pinx%=0:piny%=0:FORj%=0TO3:rect%(j%)=0:NEXT
 3549SYS "OS_SpriteOp",&109,animarea%
 3550SYS "OS_SpriteOp",&109,bodyarea%
 3551SYS "OS_SpriteOp",&10F,bodyarea%,"body",1,312,365,12
 3552PROCaddpalet(bodyarea%,"body"):PROCcl_body(15)
 3553ENDPROC
 3554
 3555DEFPROCstartpin
 3556IFpingotto%=9THEN
 3557 PROCpinscore
 3558ELSE
 3559 PROCopen_pinorgsw
 3560ENDIF
 3561ENDPROC
 3562
 3563DEFPROCrandompin
 3564LOCAL j%
 3565FORj%=15TO30:PROCselecticn(setupw%,j%,0):NEXT
 3566FORj%=0TO7:randch%(j%)=-1:NEXT
 3567randch%(0)=RND(16)-1
 3568FORj%=1TO7
 3569 REPEAT
 3570  randch%(j%)=RND(16)-1
 3571 UNTIL FNnotchosenbefore(j%)
 3572NEXT
 3573FORj%=0TO7:PROCselecticn(setupw%,15+randch%(j%),-1):NEXT
 3574ENDPROC
 3575
 3576DEFFNnotchosenbefore(j%)
 3577LOCAL k%
 3578FORk%=0TOj%-1
 3579 IFrandch%(j%)=randch%(k%) THEN:=0
 3580 IF(randch%(j%)=14)AND(randch%(k%)=15)THEN:=0
 3581 IF(randch%(j%)=15)AND(randch%(k%)=14)THEN:=0
 3582NEXT
 3583=-1
 3584
 3585DEFPROCopen_pinorgsw
 3586LOCAL j%
 3587IFFNisopen(pinorgsw%):PROCclosewind(blk%)
 3588IFFNisopen(pinoutlw%):PROCclosewind(blk%)
 3589IFpinnoof%>0THEN
 3590 FORj%=0TOpinnoof%-1
 3591  SYS "OS_SpriteOp",&11A,bodyarea%,"pinbut"+STR$(j%),"pinb"+STR$(pinchlink%(j%))
 3592 NEXT
 3593ENDIF
 3594pinnoof%=0
 3595FORj%=15TO30
 3596 IFFNisselected(setupw%,j%)THEN
 3597  pinchlink%(pinnoof%)=j%-15
 3598  PROChideicn(pinorgsw%,4+pinnoof%,0):PROChideicn(pinorgsw%,12+pinnoof%,0):PROChideicn(pinorgsw%,20+pinnoof%,0)
 3599  PROCselecticn(pinorgsw%,4+pinnoof%,0):PROCselecticn(pinorgsw%,12+pinnoof%,0):PROCselecticn(pinorgsw%,20+pinnoof%,0)
 3600  PROCputicnstring(pinorgsw%,4+pinnoof%,pinbut$(j%-15))
 3601REM  SYS "XOS_SpriteOp",&119,animarea%,"pinbut"+STR$(pinnoof%)
 3602  SYS "OS_SpriteOp",&11A,bodyarea%,"pinb"+STR$(j%-15),"pinbut"+STR$(pinnoof%)
 3603  pinnoof%+=1
 3604 ENDIF
 3605NEXT
 3606IFpinnoof%<8THEN
 3607 FORj%=pinnoof%TO7:PROChideicn(pinorgsw%,4+j%,-1):PROChideicn(pinorgsw%,12+j%,-1):PROChideicn(pinorgsw%,20+j%,-1):NEXT
 3608ENDIF
 3609IFpinnoof%=0:PROCdiscmess("Please choose body part(s) to place (or choose random selection)",0):PROCopen_setupw:ENDPROC
 3610PROCchangepinextent(0)
 3611PROCsetpinoutlbuts(-1)
 3612PROCpininstruct
 3613!blk%=pinorgsw%:blk%!4=0:blk%!8=44:blk%!12=566:blk%!16=983:blk%!20=0:blk%!24=0:blk%!28=-1
 3614PROCopenwind(blk%)
 3615!blk%=pinoutlw%:blk%!4=612:blk%!12=1279:blk%!28=-1
 3616PROCopenwind(blk%)
 3617ENDPROC
 3618
 3619DEFPROCchangepinextent(big%)
 3620!blk%=0:blk%!4=-936:blk%!12=0:IFbig%:blk%!8=1236:ELSE:blk%!8=624
 3621SYS"Wimp_SetExtent",pinoutlw%,blk%
 3622ENDPROC
 3623
 3624DEFPROCsetpinoutlbuts(hide%)
 3625IFNOThide%THEN
 3626FORj%=0TO(1+pinnoof%):PROChideicn(pinoutlw%,j%,hide%):NEXT
 3627FORj%=10TO(11+pinnoof%):PROChideicn(pinoutlw%,j%,hide%):NEXT
 3628PROChideicn(pinoutlw%,20,hide%)
 3629totscore%=0
 3630FORj%=0TOpinnoof%-1
 3631IFpinscore%(j%)=10:PROCputicnstring(pinoutlw%,j%+11,pinpart$(pinchlink%(j%))+STR$(pinscore%(j%))):ELSE:PROCputicnstring(pinoutlw%,j%+11,pinpart$(pinchlink%(j%))+" "+STR$(pinscore%(j%)))
 3632totscore%+=pinscore%(j%)
 3633NEXT
 3634totscore%=INT(((totscore%/(10*pinnoof%))*100)+0.5)
 3635PROCputicnstring(pinoutlw%,11+pinnoof%,"Total percent : "+STR$(totscore%))
 3636ELSE
 3637FORj%=0TO20:PROChideicn(pinoutlw%,j%,hide%):NEXT
 3638ENDIF
 3639ENDPROC
 3640
 3641DEFPROCredrawpinoutlw
 3642SYS "Wimp_RedrawWindow",,blk% TO more%
 3643IFpingotto%=9THEN
 3644origx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-936
 3645WHILE more%
 3646SYS "OS_SpriteOp",&134,bodyarea%,"body",origx%-112,spy%,0,pinscale%,coltrans%
 3647SYS "OS_SpriteOp",&134,detarea%,"body",origx%+612,spy%,0,pinscale%,coltrans%
 3648SYS "Wimp_GetRectangle",,blk% TO more%:
 3649ENDWHILE
 3650ELSE
 3651spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-936
 3652WHILE more%
 3653SYS "OS_SpriteOp",&134,detarea%,"body",spx%,spy%,0,pinscale%,coltrans%
 3654SYS "Wimp_GetRectangle",,blk% TO more%:
 3655ENDWHILE
 3656ENDIF
 3657ENDPROC
 3658
 3659DEFPROCpinorgswclick(mx%,my%,b%,i%)
 3660IF(i%>=20)AND(i%<=27):i%-=16
 3661IF(i%>=12)AND(i%<=19):i%-=8
 3662IF(i%>=4)AND(i%<=11)THEN
 3663 IFFNisselected(pinorgsw%,i%)THEN
 3664  PROCselecticn(pinorgsw%,i%,FALSE):pinchoice%=8:PROCcheckwasdone(i%-4,TRUE)
 3665 ELSE
 3666  IFpinchoice%<8:PROCselecticn(pinorgsw%,pinchoice%+4,FALSE):PROCcheckwasdone(pinchoice%,TRUE)
 3667  PROCselecticn(pinorgsw%,i%,TRUE):pinchoice%=i%-4
 3668  IFpindonepart%(pinlink%(pinchlink%(pinchoice%),0)):wasdoneonce%=TRUE:ELSE:wasdoneonce%=FALSE
 3669  PROCcheckwasdone(pinchoice%,FALSE)
 3670 ENDIF
 3671 IFpinchoice%=8THEN
 3672  IFFNpindoneall:pingotto%=3:ELSE:pingotto%=0
 3673 ELSE
 3674  pingotto%=1
 3675 ENDIF
 3676 PROCpininstruct
 3677ENDIF
 3678IFi%=3:PROCpincalcscore:PROCpinscore
 3679ENDPROC
 3680
 3681DEFPROCpinscore
 3682pingotto%=9
 3683IFFNisopen(pinorgsw%):PROCclosewind(blk%)
 3684IFFNisopen(pinoutlw%):PROCclosewind(blk%)
 3685PROCchangepinextent(-1)
 3686PROCsetpinoutlbuts(0)
 3687PROCcreatebasebody(-1)
 3688!blk%=pinoutlw%:blk%!4=0:blk%!8=44:blk%!12=1279:blk%!16=983:blk%!20=0:blk%!24=0:blk%!28=-1
 3689PROCopenwind(blk%)
 3690ENDPROC
 3691
 3692DEFPROCpincalcscore
 3693FORj%=0TOpinnoof%-1
 3694 org%=pinlink%(pinchlink%(j%),0):pinscore%(j%)=10
 3695 rad%=SQR(((pinchosenpos%(org%,0)-pincorrectpos%(org%,0))^2)+((pinchosenpos%(org%,1)-pincorrectpos%(org%,1))^2))
 3696 FORk%=0TO9
 3697  IFrad%>(((16+(8*k%))*1.5)-1):pinscore%(j%)=9-k%
 3698 NEXT
 3699 PROCpincopyexpand(pinchlink%(j%))
 3700 IFFNspscored0(pinchlink%(j%),pinchosenpos%(org%,0),pinchosenpos%(org%,1)):pinscore%(j%)=0
 3701 PROCpindelete2(pinchlink%(j%))
 3702NEXT
 3703ENDPROC
 3704
 3705DEFPROCcheckwasdone(i%,fl%)
 3706LOCAL j%
 3707IFwasdoneonce%THEN
 3708 FORj%=0TO3
 3709  IFpinlink%(pinchlink%(i%),j%)<>-1:pindonepart%(pinlink%(pinchlink%(i%),j%))=fl%
 3710 NEXT
 3711 PROCcreatebasebody(0):PROCpinbasebody:PROCplotpinbody(0,-936,624,0)
 3712 PROCselecticn(pinorgsw%,20+i%,TRUE)
 3713ELSE
 3714 PROCselecticn(pinorgsw%,20+i%,FALSE)
 3715ENDIF
 3716ENDPROC
 3717
 3718DEFPROCpinoutlwclick(mx%,my%,b%,i%)
 3719LOCAL j%
 3720IFb%<>4:ENDPROC
 3721IFpingotto%=2THEN
 3722 SYS"Wimp_SetPointerShape",1,-1
 3723 FORj%=0TO3
 3724  IFpinlink%(pinchlink%(pinchoice%),j%)<>-1THEN
 3725   pindonepart%(pinlink%(pinchlink%(pinchoice%),j%))=TRUE
 3726   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)
 3727  ENDIF
 3728 NEXT
 3729 PROCselecticn(pinorgsw%,pinchoice%+4,FALSE):PROCselecticn(pinorgsw%,pinchoice%+20,TRUE)
 3730 PROCpindelete(pinchlink%(pinchoice%)):pinchoice%=8
 3731 doingpinpart%=FALSE:PROCcreatebasebody(0):PROCpinbasebody:PROCplotpinbody(0,-936,624,0)
 3732 IFFNpindoneall:pingotto%=3:ELSE:pingotto%=0
 3733 PROCpininstruct
 3734ENDIF
 3735IF(pingotto%=9)AND(i%=1)THEN
 3736 PROCpininit
 3737 IFFNisselected(setupw%,11):PROCrandompin
 3738 PROCstartpin
 3739ENDIF
 3740ENDPROC
 3741
 3742DEFPROCpininstruct
 3743PROCputicnstring(pinorgsw%,1,pinmess$(pingotto%,0)):PROCputicnstring(pinorgsw%,2,pinmess$(pingotto%,1))
 3744IFpingotto%=3:PROChideicn(pinorgsw%,3,FALSE):ELSE:PROChideicn(pinorgsw%,3,TRUE)
 3745ENDPROC
 3746
 3747DEFFNpindoneall
 3748FORj%=0TOpinnoof%-1
 3749IFNOTpindonepart%(pinlink%(pinchlink%(j%),0)):=0
 3750NEXT
 3751=-1
 3752
 3753DEFPROCleavingpinoutlw
 3754IFpingotto%<>2:ENDPROC
 3755SYS"Wimp_SetPointerShape",1,-1
 3756PROCpindelete(pinchlink%(pinchoice%))
 3757doingpinpart%=FALSE:PROCcreatebasebody(0):PROCpinbasebody:PROCplotpinbody(0,-936,624,0)
 3758pingotto%=1:PROCpininstruct
 3759ENDPROC
 3760
 3761DEFPROCenteringpinoutlw
 3762IFpingotto%<>1THEN:ENDPROC
 3763pingotto%=2:PROCpininstruct
 3764doingpinpart%=TRUE:PROCpincopyexpand(pinchlink%(pinchoice%))
 3765SYS"Wimp_SetPointerShape",0
 3766firstmove%=TRUE:PROCmovepinpart:firstmove%=FALSE
 3767ENDPROC
 3768
 3769DEFPROCmovepinpart
 3770oldpinx%=pinx%:oldpiny%=piny%:FORj%=0TO3:oldrect%(j%)=rect%(j%):NEXT
 3771SYS"Wimp_GetPointerInfo",,blk2%
 3772!blk%=pinoutlw%:SYS"Wimp_GetWindowState",,blk%
 3773pinx%=!blk2%-(blk%!4-blk%!20):piny%=blk2%!4-((blk%!16-blk%!24)-936)
 3774pinx%-=(pinx%MOD8):piny%-=(piny%MOD8)
 3775REMPROCerror("pinx,y="+STR$(pinx%)+","+STR$(piny%),0):ENDPROC
 3776IF(pinx%=oldpinx%)AND(piny%=oldpiny%):ENDPROC
 3777PROCcreatepinbody
 3778IFNOTfirstmove%:PROCplotpinbody(oldrect%(0),oldrect%(1),oldrect%(2),oldrect%(3))
 3779rect%(0)=pinx%-pinorgsize%(pinlink%(pinchlink%(pinchoice%),0),0)-4
 3780rect%(1)=piny%-pinorgsize%(pinlink%(pinchlink%(pinchoice%),0),1)-4-936
 3781rect%(2)=pinx%+pinorgsize%(pinlink%(pinchlink%(pinchoice%),0),0)+4
 3782rect%(3)=piny%+pinorgsize%(pinlink%(pinchlink%(pinchoice%),0),1)+4-936
 3783PROCplotpinbody(rect%(0),rect%(1),rect%(2),rect%(3))
 3784ENDPROC
 3785
 3786DEFPROCcreatebasebody(perfect%)
 3787PROCclpinbody
 3788FORj%=0TO23
 3789IFpindonepart%(j%)THEN
 3790PROCcopyexpand(pinsprs$(j%))
 3791SYS"OS_SpriteOp",&13C,bodyarea%,"body",0
 3792IFperfect%:SYS"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pincorrectpos%(j%,0),pincorrectpos%(j%,1),8:ELSE:SYS"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pinchosenpos%(j%,0),pinchosenpos%(j%,1),8
 3793SYS"OS_SpriteOp",&13C,bodyarea%,0,0
 3794SYS"OS_SpriteOp",&119,detarea%,pinsprs$(j%):SYS"OS_SpriteOp",&119,detarea%,pinsprs$(j%)+"j"
 3795ENDIF
 3796NEXT
 3797ENDPROC
 3798
 3799DEFPROCcreatepinbody
 3800LOCAL j%,k%
 3801PROCpinbasebody
 3802SYS"OS_SpriteOp",&13C,detarea%,"body",0
 3803FORk%=0TO3
 3804IFpinlink%(pinchlink%(pinchoice%),k%)<>-1:j%=pinlink%(pinchlink%(pinchoice%),k%):SYS"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pinx%-pinorgsize%(j%,0),piny%-pinorgsize%(j%,1),8
 3805NEXT
 3806SYS"OS_SpriteOp",&13C,detarea%,0,0
 3807ENDPROC
 3808
 3809SYS"OS_SpriteOp",&13C,detarea%,"body",0
 3810FORj%=0TO15
 3811 IF(j%=pinlink%(pinchoice%,0))OR(j%=pinlink%(pinchoice%,1))THEN
 3812  IFshowmove%:SYS"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pinx%-pinorgsize%(j%,0),piny%-pinorgsize%(j%,1),8
 3813 ELSE
 3814  IFpindonepart%(j%) THEN
 3815   PROCcopyexpand(pinsprs$(j%))
 3816   SYS"OS_SpriteOp",&122,detarea%,pinsprs$(j%),pinchosenpos%(j%,0),pinchosenpos%(j%,1),8
 3817   SYS"OS_SpriteOp",&119,detarea%,pinsprs$(j%):SYS"OS_SpriteOp",&119,detarea%,pinsprs$(j%)+"j"
 3818  ENDIF
 3819 ENDIF
 3820NEXT
 3821SYS"OS_SpriteOp",&13C,detarea%,0,0
 3822
 3823DEFPROCplotpinbody(xlow%,ylow%,xhigh%,yhigh%)
 3824!blk%=pinoutlw%:SYS"Wimp_GetWindowState",,blk%
 3825spx%=blk%!4-blk%!20:spy%=(blk%!16-blk%!24)-936
 3826!blk%=pinoutlw%:blk%!4=xlow%:blk%!8=ylow%:blk%!12=xhigh%:blk%!16=yhigh%
 3827SYS "Wimp_UpdateWindow",,blk% TO more%
 3828WHILE more%
 3829SYS "OS_SpriteOp",&134,detarea%,"body",spx%,spy%,0,pinscale%,coltrans%
 3830SYS "Wimp_GetRectangle",,blk% TO more%
 3831ENDWHILE
 3832ENDPROC
 3833
 3834DEFPROCclpinbody
 3835PROCaddbod(bodyarea%)
 3836ENDPROC
 3837
 3838DEFPROCpinbasebody
 3839SYS "OS_SpriteOp",&119,detarea%,"body"
 3840SYS "OS_SpriteOp",&10F,detarea%,"body",1,312,234,12:PROCaddpalet(detarea%,"body")
 3841SYS"OS_SpriteOp",&13C,detarea%,"body",0
 3842SYS"OS_SpriteOp",&122,bodyarea%,"body",0,0,0
 3843SYS"OS_SpriteOp",&13C,detarea%,0,0
 3844ENDPROC
 3845
 3846DEFPROCcopyexpand(sp$)
 3847PROCcopy(sp$):PROCexpand(sp$)
 3848ENDPROC
 3849
 3850DEFPROCcopy(sp$)
 3851SYS"OS_SpriteOp",&128,animarea%,sp$ TO ,,,wi%,hi%
 3852SYS "OS_SpriteOp",&10F,detarea%,sp$,0,wi%,hi%,12
 3853SYS"OS_SpriteOp",&13C,detarea%,sp$,0
 3854SYS"OS_SpriteOp",&122,animarea%,sp$,0,0,0
 3855SYS"OS_SpriteOp",&13C,detarea%,0,0
 3856ENDPROC
 3857
 3858DEFPROCpindelete(i%)
 3859LOCAL j%
 3860FORj%=0TO3
 3861IFpinlink%(i%,j%)<>-1:SYS"OS_SpriteOp",&119,detarea%,pinsprs$(pinlink%(i%,j%)):SYS"OS_SpriteOp",&119,detarea%,pinsprs$(pinlink%(i%,j%))+"j"
 3862NEXT
 3863ENDPROC
 3864
 3865DEFPROCpindelete2(i%)
 3866LOCAL j%
 3867FORj%=0TO3
 3868IFpinlink%(i%,j%)<>-1:SYS"XOS_SpriteOp",&119,detarea%,pinsprs$(pinlink%(i%,j%)):SYS"XOS_SpriteOp",&119,detarea%,pinsprs$(pinlink%(i%,j%))+"j"
 3869NEXT
 3870ENDPROC
 3871
 3872DEFPROCpincopyexpand(i%)
 3873LOCAL j%
 3874FORj%=0TO3
 3875IFpinlink%(i%,j%)<>-1:PROCcopyexpand(pinsprs$(pinlink%(i%,j%)))
 3876NEXT
 3877ENDPROC
 3878
 3879DEFPROCaddbod(area%)
 3880PROCcopy("bod")
 3881PROCadd_sp(detarea%,"bod",area%,"body",0,0,2)
 3882SYS"OS_SpriteOp",&119,detarea%,"bod"
 3883ENDPROC
 3884
 3885DEFFNspscored0(org%,C%,D%)
 3886LOCAL j%
 3887PROCadd_sp(animarea%,"bodsc1",bodyarea%,"body",0,0,16)
 3888SYS"OS_SpriteOp",&13C,bodyarea%,"body",0
 3889FORk%=0TO3
 3890 IFpinlink%(org%,k%)<>-1:j%=pinlink%(org%,k%):SYS"OS_SpriteOp",&122,detarea%,pinsprs$(j%),C%,D%,8
 3891NEXT
 3892SYS"OS_SpriteOp",&13C,bodyarea%,0,0
 3893PROCadd_sp(animarea%,"bodsc2",bodyarea%,"body",0,0,0)
 3894SYS"OS_SpriteOp",&13C,bodyarea%,0,0
 3895SYS "OS_SpriteOp",&118,bodyarea%,"body" TO ,,A%:A%+=A%!32
 3896!scored0%=1
 3897CALL score0%
 3898IF!scored0%=0THEN:=-1
 3899=0
 3900
 3901
 3902REM ************ approx. 5K block to reserve space for disk security *****************
 3903
 3904DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3905DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3906DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3907DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3908DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3909DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3910DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3911DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3912DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3913DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3914
 3915DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3916DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3917DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3918DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3919DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3920DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3921DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3922DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3923DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3924DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3925
 3926DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3927DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3928DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3929DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3930DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3931DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3932DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3933DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3934DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3935DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3936
 3937DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3938DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3939DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3940DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3941DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3942DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3943DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3944DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3945DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3946DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3947
 3948DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3949DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3950DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3951DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3952DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3953DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3954DATA "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890"
 3955
 3956REM **************************************************************************
 3957
 3958
 3959
 3960
 3961
 3962
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