Home » Archimedes archive » Acorn User » AU 1995-09.adf » !Plantwise » PlantWise/!Plantwise/!runimage
PlantWise/!Plantwise/!runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1995-09.adf » !Plantwise |
| Filename: | PlantWise/!Plantwise/!runimage |
| Read OK: | ✔ |
| File size: | 1000A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10*FX220,27
20*FX229,1
30
40REMminsizz1%=100000:minsizz2%=100000:minsizz3%=100000
50
60PROCsortmemory
70SYS "Wimp_Initialise",200,&4B534154,"Plantwise" TO wimpver%,taskh%
80IF NOT FNalreadyrunning THEN
90 OSCLI"Set PlantWise$isrunning 1"
100ELSE
110 PROCerror("Plantwise is already running",0):SYS "Wimp_CloseDown",,&4B534154:END
120ENDIF
130ONERROR PROCerror(REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0,ERR):SYS "Wimp_CloseDown",taskh%,&4B534154:END
140OSCLI"LOAD <PlantWise$Dir>.code "+STR$~mc%
150PROCmc_starts
160PROCsortsprites
170*Set PlantWise$chaindir <PlantWise$Dir>
180PROCloadunsquash(menuarea%,33*1024,"spfiles.menu")
190PROCinitiallise
200PROCmodechange
210PROCbaricon
220ON ERROR PROCerror(REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0,ERR)
230REPEAT PROCevent:UNTIL quit%
240SYS "Wimp_CloseDown",taskh%,&4B534154
250OSCLI"Set PlantWise$isrunning 0"
260
270*FX229,0
280REMPRINT QUIT
290*QUIT
300REMSYS"OS_Exit",errblk%
310END
320REMSTOP
330
340DEFPROCsortmemory
350indbase%=&9000:iptr%=indbase%
360totindsize%=11920:totwinsize%=13520
370winbase%=indbase%+totindsize%:wptr%=winbase%
380indstarts%=winbase%+totwinsize%:winstarts%=indstarts%+80
390mc%=&F400:animarea%=&FC00:menuarea%=&19000:sqbuffer%=&21400
400detfile%=&25800:detarea%=&2D000:bgarea%=&4B000:sparea%=&53400
410DIM blk% 256,errblk% 256
420ENDPROC
430
440DEFPROCloadunsquash(area%,areasiz%,file$)
450LOCAL len%
460OSCLI"LOAD <PlantWise$chaindir>."+file$+" "+STR$~detfile%
470SYS "OS_File",5,"<PlantWise$Dir>."+file$ TO ,,,,len%
480PROCunsquash(detfile%+20,len%-20,sqbuffer%,17*1024,area%+4,areasiz%-4)
490ENDPROC
500
510DEFPROCsortsprites
520!sparea%=6*1024:sparea%!8=16
530SYS "OS_SpriteOp",&109,sparea%
540SYS "OS_SpriteOp",&10A,sparea%,"<PlantWise$Dir>.sprites"
550!detarea%=120*1024:detarea%!8=16
560SYS "OS_SpriteOp",&109,detarea%
570!animarea%=37*1024:animarea%!8=16
580SYS "OS_SpriteOp",&109,animarea%
590SYS "OS_SpriteOp",&10F,animarea%,"anim",1,405,161,12
600!menuarea%=33*1024:menuarea%!8=16
610SYS "OS_SpriteOp",&109,menuarea%
620!bgarea%=33*1024:bgarea%!8=16
630SYS "OS_SpriteOp",&109,bgarea%
640DIM scale% 16:!scale%=1:scale%!4=1:scale%!8=1:scale%!12=1
650DIM coltrans% 16,sppalet% 128,sysbut$(15)
660RESTORE +0
670DATA &FFFFFF00,&FFFFFF00,&DDDDDD00,&DDDDDD00,&BBBBBB00,&BBBBBB00,&99999900,&99999900,&77777700,&77777700,&55555500,&55555500,&33333300,&33333300,&0,&0
680DATA &99440000,&99440000,&EEEE00,&EEEE00,&CC0000,&CC0000,&DD00,&DD00,&BBEEEE00,&BBEEEE00,&885500,&885500,&BBFF00,&BBFF00,&FFBB0000,&FFBB0000
690FORk%=0TO31:READ a%:sppalet%!(4*k%)=a%:NEXT
700PROCaddpalet(animarea%,"anim")
710ENDPROC
720
730DEFPROCaddpalet(area%,spn$)
740SYS"OS_SpriteOp",&118,area%,spn$ TO ,,r2%
750f%=(r2%+44):t%=sppalet%:FORs%=0TO31:!f%=!t%:t%+=4:f%+=4:NEXT
760ENDPROC
770
780DEFPROCinitiallise
790DIM ibname% 20,menu% 1024,blk2% 256,input_disk_name% 12,txtbuff% 1024
800DIM pdrect% 16,pdrect2% 16,pdtrans% 16,pdplot% 8
810DIM ctrans% 256,paltab% 64,SCALE% 16,inb% 20,outb% 20
820DIM wdefn%(48,6),anmewlines$(5),anmewtitle$(5),findaa%(28),bg%(48),animwtitle$(48)
830maxlabs%=11:maxstops%=13:maxsp%=28
840DIM lines$(1),nolabs%(48,1),words$(1,maxlabs%,3),animsp$(maxsp%-1),animsp%(maxsp%-1,1),nostops%(48),animwords$(1,maxstops%-1)
850totgloss%=26
860DIM gloss$(totgloss%-1,1)
870REM arrays specific to actanim%
880DIM photo$(51),carr%(3,1),root%(5,1),st1%(5,1),st2%(5,1),wood%(10,1),fert%(13,1),fru%(3,5,1),gra$(3),disp1%(9,1),disp2%(7,1),disp3%(2,1),se%(7),sland%(7),cbex%(2),lupex%(1),bean%(12,4,1),syc%(13,1),dand%(6),dse%(7,1),do%(15,2),mlxy%(2,1),coc%(4)
890DIM pea%(8),sunf%(8),whe%(8),ger$(8),corm%(6,1),bulb%(5,1),run%(4,1),rhi%(5,1)
900REMDIM menuwtitle%(3,1),menutype%(14),menuwords$(13,5),menuroute%(13,4)
910!inb%=4:inb%!4=5:inb%!8=11:inb%!12=12:inb%!16=-1
920RESTORE:quit%=FALSE:winctr%=1
930SYS "Wimp_OpenTemplate",,"<PlantWise$Dir>.Templates"
940PROCload_template("menu")
950PROCload_template("animate")
960PROCload_template("animmenu")
970PROCload_template("fastfind")
980PROCload_template("worddefn")
990PROCload_template("whatword")
1000PROCload_template("setup")
1010PROCload_template("proginfo")
1020PROCload_template("demosyst")
1030PROCload_template("demo1")
1040SYS "Wimp_CloseTemplate"
1050a$=FNconverttolower(FNreadsysvar("PlantWise$Dir"))
1060IFINSTR(a$,"adfs::plantwise")<>0 Y%=0 ELSEY%=1
1070SYS "Wimp_CreateWindow",,winstarts%!0 TO menuw%
1080SYS "Wimp_CreateWindow",,winstarts%!4 TO animw%
1090SYS "Wimp_CreateWindow",,winstarts%!8 TO anmew%
1100SYS "Wimp_CreateWindow",,winstarts%!12 TO findw%
1110SYS "Wimp_CreateWindow",,winstarts%!16 TO defnw%
1120SYS "Wimp_CreateWindow",,winstarts%!20 TO wordw%
1130SYS "Wimp_CreateWindow",,winstarts%!24 TO setupw%
1140SYS "Wimp_CreateWindow",,winstarts%!28 TO infow%
1150SYS "Wimp_CreateWindow",,winstarts%!32 TO demow%
1160SYS "Wimp_CreateWindow",,winstarts%!36 TO demo1w%
1170SYS"Sound_Configure",0,0,0,0,0 TO r0%,r1%,r2%,r3%,r4%
1180IFr0%=1:SYS"Sound_Configure",2,r1%,r2%,r3%,r4%
1190PROCloadunsquash(detarea%,100*1024,"spfiles.animmenu0")
1200PROCfill_arrays
1210actmenu%=0:actanim%=-1:wlev%=0:firsttime%=-1:shrunkanme%=0
1220doingmove%=0:firstmove%=0:acttxticn%=0:texton%=0:textnewoff%=0
1230PROChideicn(findw%,41,TRUE):PROChideicn(findw%,59,TRUE):PROChideicn(findw%,77,TRUE):PROChideicn(findw%,22,TRUE):PROChideicn(findw%,89,TRUE)
1240PROCinitwordw
1250simp%=0:PROCselecticn(setupw%,2,TRUE):PROCselecticn(setupw%,3,FALSE)
1260PROCmakeanim(0,-1,0):PROCsetextent(animw%,732)
1270ENDPROC
1280
1290DEFPROCinitwordw
1300glossicn%=-1:wide%=260+252
1310IF(totgloss%MOD2)=0:high%=(totgloss%/2)*56:ELSE:high%=56*(INT(totgloss%/2)+1)
1320!blk%=0:blk%!4=-high%:blk%!8=wide%:blk%!12=0:SYS"Wimp_SetExtent",wordw%,blk%
1330FORj%=0TOtotgloss%-1:PROCputicnstring(wordw%,j%,gloss$(j%,0)):PROCselecticn(wordw%,j%,FALSE):NEXT
1340ENDPROC
1350glossicn%=-1
1360!blk%=0:blk%!4=-(56*totgloss%):blk%!8=252:blk%!12=0:SYS"Wimp_SetExtent",wordw%,blk%
1370FORj%=0TOtotgloss%-1:PROCputicnstring(wordw%,j%,gloss$(j%,0)):PROCselecticn(wordw%,j%,FALSE):NEXT
1380
1390DEFPROCfill_arrays
1400LOCAL j%,k%,l%
1410RESTORE +0
1420DATA "Plant cells","","Types of flowers","The parts of a flower","Plant leaves"
1430DATA "Photosynthesis - making food","The leaf in close-up","Plant stems","Non-woody stems","Woody stems"
1440DATA "Plant roots","A root in close-up","Pollination","Pollination by insects","Pollination by the wind"
1450DATA "Pollination by animals","Pollination by water","Fertilization","Fruits",""
1460DATA "Seed dispersal","'Exploding' fruits","Seed dispersal by the wind","Seed dispersal by animals","Seed dispersal by water"
1470DATA "Seed germination","Seed structure","Seed dormancy","Corms and bulbs","Runners and rhizomes"
1480DATA "","","","",""
1490DATA "","","","",""
1500DATA "","","","",""
1510DATA "","","",""
1520FORj%=0TO48:READ animwtitle$(j%):NEXT
1530RESTORE +0
1540DATA 5,5,0,0,4,4,9,11,6,6,4,4,9,9,5,5,4,5,7,7
1550DATA 2,2,6,7,2,2,6,6,6,6,4,4,1,1,10,10,4,4,0,0
1560DATA 1,1,4,4,3,3,5,5,1,1,8,8,6,7,5,5,5,5,3,3
1570DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1580DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1590FORj%=0TO48:FORk%=0TO1:READ nolabs%(j%,k%):NEXT:NEXT
1600RESTORE +0
1610DATA 0,0,0,0,0,6,1,0,2,5
1620DATA 1,4,3,9,2,1,1,4,9,0
1630DATA 1,2,2,5,1,13,0,8,8,5
1640DATA 0,0,0,0,0,0,0,0,0,0
1650DATA 0,0,0,0,0,0,0,0,0
1660FORj%=0TO48:READ nostops%(j%):NEXT
1670RESTORE +0
1680DATA 0,0,4,0,8,0,0,7,0,0
1690DATA 4,0,8,3,7,0,4,0,0,0
1700DATA 8,6,1,7,0,3,0,0,0,3
1710DATA 0,0,0,0,0,0,0,0,0,0
1720DATA 0,0,0,0,0,0,0,0,0
1730FORj%=0TO48:READ bg%(j%):NEXT
1740RESTORE +0
1750DATA 0,2,4,7,10,12,17,20,25,28,29,30,31,32,33,34,35,36,38,39,40,41,42,43,44,45,46,47,48
1760FORj%=0TO28:READ findaa%(j%):NEXT
1770RESTORE +0
1780DATA "bracts","A modified leaf below or surrounding a flower."
1790DATA "bur","A spikey ball containing seeds."
1800DATA "cellulose","A tough fibrous substance that makes plant cell walls."
1810DATA "chlorophyll","The green pigment in plants which can trap the energy from sunlight for photosynthesis."
1820DATA "chloroplast","A tiny structure in plant cells which contains chlorophyll."
1830DATA "cotyledon","A modified leaf in a seed, often swollen with stored food for the seed to grow."
1840DATA "dehiscent","Fruits that throw out their seeds (explode)."
1850DATA "dicotyledon","Flowering plants with two cotyledons (also called dicot). A typical dicot has broad leaves with branching veins and petals and sepals in multiples of 4 or 5."
1860DATA "epidermis","An outer layer of cells (eg. of leaf or stem)."
1870DATA "fruit","The ovary or ovaries of a flowering plant after fertilization."
1880DATA "glucose","A simple sugar made by photosynthesis."
1890DATA "leaf veins","Tiny tubes in leaves."
1900DATA "mesophyll","Loosely packed cells in a leaf."
1910DATA "midrib","The strong central vein of a leaf."
1920DATA "mineral salts","Simple chemicals that plants take from the soil to help them live."
1930DATA "monocotyledon","Flowering plants with one cotyledon (also called monocot). A typical monocot has a fibrous root system, narrow leaves with parallel veins and petals and sepals in multiples of 3."
1940DATA "palisade cells","The layer of leaf cells which carries out most photosynthesis."
1950DATA "phloem","A network of tubes throughout the plant which carries food and water."
1960DATA "photosynthesis","The process by which green plants make food."
1970DATA "samara","A fruit with wings (eg. Sycamore)."
1980DATA "seed","The fertilized ovule of a flowering plant."
1990DATA "starch","Plants store sugars in long chains which makes starch."
2000DATA "stoma","A tiny hole in the leaf surface."
2010DATA "stomata","More than one stoma."
2020DATA "sucrose","A simple sugar."
2030DATA "xylem","A network of tubes throughout the plant which carries water and salts."
2040FORj%=0TOtotgloss%-1:FORk%=0TO1:READ gloss$(j%,k%):NEXT:NEXT
2050RESTORE +0
2060DATA "Plantwise"
2070DATA "The structure of flowering plants"
2080DATA "The reproduction of flowering plants"
2090DATA "What plants need to live and grow"
2100DATA "How plants survive"
2110DATA "The classification of plants"
2120FORj%=0TO5:READ anmewtitle$(j%):NEXT
2130RESTORE +0
2140DATA "04,07,440,640,368,604,07,548,448,494,340,07,424,232,360,248,07,460,092,394,092"
2150DATA "06,07,262,624,342,532,07,564,640,516,604,07,148,444,124,400,07,138,000,122,108,07,426,128,486,104,07,690,000,654,064"
2160DATA "00,"
2170DATA "02,07,138,000,148,044,07,576,000,526,088"
2180DATA "06,07,426,624,462,448,07,462,448,608,392,07,462,448,386,344,07,462,448,484,344,07,080,596,104,492,00,082,376,184,332"
2190DATA "07,07,160,000,136,116,07,160,000,094,096,07,440,000,376,040,07,532,100,586,112,07,514,080,544,048,07,752,152,680,092,07,752,152,788,100"
2200FORj%=0TO5:READ anmewlines$(j%):NEXT
2210RESTORE +0
2220REM STRUCTURE
2230REM plant cells
2240DATA 0,0,0,0,0,0,0
2250DATA 0,0,0,0,0,0,0
2260REM flower
2270DATA 0,1,0,0,0,0,0
2280DATA 0,2,0,0,0,0,0
2290REM leaf
2300DATA 0,1,1,0,0,0,0
2310DATA 1,2,1,0,0,0,0
2320DATA 1,1,2,0,0,0,0
2330REM stem
2340DATA 0,1,1,0,0,0,0
2350DATA 1,2,1,0,0,0,0
2360DATA 1,1,2,0,0,0,0
2370REM root
2380DATA 1,1,0,0,0,0,0
2390DATA 1,2,0,0,0,0,0
2400
2410REM REPRODUCTION
2420REM pollination
2430DATA 1,0,0,1,1,1,1
2440DATA 1,0,0,2,1,1,1
2450DATA 1,0,0,1,2,1,1
2460DATA 1,0,0,1,1,2,1
2470DATA 1,0,0,1,1,1,2
2480REM fertilization
2490DATA 1,1,0,0,0,0,0
2500DATA 1,2,0,0,0,0,0
2510DATA 0,0,0,0,0,0,0
2520REM seed dispersal
2530DATA 1,0,0,1,1,1,1
2540DATA 1,0,0,2,1,1,1
2550DATA 1,0,0,1,2,1,1
2560DATA 1,0,0,1,1,2,1
2570DATA 1,0,0,1,1,1,2
2580REM seed germination
2590DATA 1,1,1,0,0,0,0
2600DATA 0,2,1,0,0,0,0
2610DATA 1,1,2,0,0,0,0
2620REM corms & bulbs
2630DATA 1,0,0,0,0,0,0
2640REM runners and rhizomes
2650DATA 1,0,0,0,0,0,0
2660
2670REM NEEDS
2680REM need water
2690DATA 0,0,0,0,0,0,0
2700REM need light
2710DATA 0,0,0,0,0,0,0
2720REM need air
2730DATA 0,0,0,0,0,0,0
2740REM need warmth
2750DATA 0,0,0,0,0,0,0
2760REM need soil minerals
2770DATA 0,0,0,0,0,0,0
2780
2790REM SURVIVAL
2800REM daily cycles
2810DATA 0,0,0,0,0,0,0
2820REM seasonal cycles
2830DATA 0,0,0,0,0,0,0
2840DATA 0,0,0,0,0,0,0
2850REM protection
2860DATA 0,0,0,0,0,0,0
2870REM competition
2880DATA 0,0,0,0,0,0,0
2890
2900REM CLASSIFICATION
2910REM evolution
2920DATA 0,0,0,0,0,0,0
2930REM flowering plants
2940DATA 0,0,0,0,0,0,0
2950REM conifers
2960DATA 0,0,0,0,0,0,0
2970REM ferns
2980DATA 0,0,0,0,0,0,0
2990REM clubmosses & horsetails
3000DATA 0,0,0,0,0,0,0
3010REM mosses & liverworts
3020DATA 0,0,0,0,0,0,0
3030REM fungi
3040DATA 0,0,0,0,0,0,0
3050REM algae
3060DATA 0,0,0,0,0,0,0
3070REM lichens
3080DATA 0,0,0,0,0,0,0
3090FORj%=0TO48:FORk%=0TO6:READ wdefn%(j%,k%):NEXT:NEXT
3100REM data specific to actanim% (usually animation data)
3110RESTORE +0
3120DATA "02,00,01"
3130DATA "01,04"
3140DATA "01,01"
3150DATA "01,04"
3160DATA "01,01"
3170DATA "01,04"
3180DATA "01,01"
3190REM stop 6
3200REM expand box for 10 so next line is 17
3210DATA "","","","","","","","","",""
3220DATA "02,05,06"
3230DATA "01,07"
3240DATA "01,08"
3250DATA "01,09"
3260DATA "01,10"
3270DATA "01,11"
3280DATA "01,12"
3290DATA "01,11"
3300DATA "01,12"
3310DATA "01,11"
3320DATA "01,12"
3330DATA "01,11"
3340DATA "01,12"
3350REM stop 29
3360DATA "03,05,10,13"
3370DATA "01,14"
3380DATA "01,13"
3390DATA "01,14"
3400DATA "01,13"
3410DATA "02,14,15"
3420DATA "02,13,16"
3430DATA "02,14,17"
3440DATA "02,13,17"
3450DATA "02,14,17"
3460DATA "02,13,17"
3470REM stop 40
3480DATA "02,00,03"
3490DATA "01,18"
3500DATA "01,19"
3510DATA "01,20"
3520REM stop 44
3530DATA "01,21"
3540DATA "01,22"
3550REM stop 46
3560DATA "01,23"
3570DATA "01,24"
3580DATA "01,25"
3590DATA "01,26"
3600DATA "01,27"
3610FORk%=0TO51:READ photo$(k%):NEXT
3620RESTORE +0
3630DATA 138,64,122,40,124,20,128,4
3640FORj%=0TO3:FORk%=0TO1:READ carr%(j%,k%):NEXT:NEXT
3650RESTORE +0
3660DATA 214,164,92,56,194,152,214,124,96,12,196,108
3670FORj%=0TO5:FORk%=0TO1:READ root%(j%,k%):NEXT:NEXT
3680RESTORE +0
3690DATA 118,116,220,116,568,116,674,116,598,128,646,128
3700FORj%=0TO5:FORk%=0TO1:READ st1%(j%,k%):NEXT:NEXT
3710RESTORE +0
3720DATA 106,112,234,112,558,112,686,112,590,124,654,124
3730FORj%=0TO5:FORk%=0TO1:READ st2%(j%,k%):NEXT:NEXT
3740RESTORE +0
3750DATA 232,148,280,192,280,192,280,192,272,180,258,168,244,160,206,150,176,92,148,64,120,36
3760FORj%=0TO10:FORk%=0TO1:READ wood%(j%,k%):NEXT:NEXT
3770RESTORE +0
3780DATA 470,464,456,412,444,364,432,308,426,248,416,196,374,160,314,144,284,144,284,144,284,144,284,144,284,144,284,144
3790FORj%=0TO13:FORk%=0TO1:READ fert%(j%,k%):NEXT:NEXT
3800RESTORE +0
3810DATA 54,432,50,500,50,432,36,384,24,352,24,352,582,512,588,512,506,444,418,384,394,348,0,0,134,156,130,168,136,84,134,48,132,28,130,28,680,160,692,180,642,144,570,108,504,80,0,0
3820FORj%=0TO3:FORk%=0TO5:FORl%=0TO1:READ fru%(j%,k%,l%):NEXT:NEXT:NEXT
3830RESTORE +0
3840DATA "4,350,3,700,1,590,4,600,3,520,0,480"
3850DATA "3,430,0,768,2,594,3,680,0,588,1,504"
3860DATA "0,498,1,792,2,594,0,748,1,612,2,508"
3870DATA "3,430,0,768,2,594,3,680,0,588,1,504"
3880FORj%=0TO3:READ gra$(j%):NEXT
3890RESTORE +0
3900DATA 216,528,274,632,164,572,44,532,40,552,116,632,268,616,98,616,26,536,206,512
3910FORj%=0TO9:FORk%=0TO1:READ disp1%(j%,k%):NEXT:NEXT
3920RESTORE +0
3930DATA 574,556,582,520,752,528,516,628,534,620,748,544,690,608,596,508
3940FORj%=0TO7:FORk%=0TO1:READ disp2%(j%,k%):NEXT:NEXT
3950RESTORE +0
3960DATA 436,628,456,616,442,612
3970FORj%=0TO2:FORk%=0TO1:READ disp3%(j%,k%):NEXT:NEXT
3980RESTORE +0
3990DATA 72,76,36,32,72,96,68,88
4000FORj%=0TO7:READ sland%(j%):NEXT
4010RESTORE +0
4020DATA 264,232,240
4030FORj%=0TO2:READ cbex%(j%):NEXT
4040RESTORE +0
4050DATA 460,376
4060FORj%=0TO1:READ lupex%(j%):NEXT
4070RESTORE +0
4080DATA 258,348,198,364,140,324,100,216,82,60
4090DATA 310,340,372,332,434,248,480,140,536,60
4100DATA 288,328,378,352,532,332,708,284,820,0
4110DATA 240,324,158,336,30,316,-100,0,-100,0
4120DATA 268,304,214,332,162,312,140,244,138,112
4130DATA 366,356,272,392,158,388,74,340,-100,0
4140DATA 358,320,264,340,146,304,74,216,32,88
4150DATA 434,312,406,356,346,340,288,248,254,96
4160DATA 474,284,466,336,442,352,416,276,404,140
4170DATA 574,288,662,336,784,348,820,0,820,0
4180DATA 518,268,562,248,596,196,632,92,820,0
4190DATA 614,252,734,292,820,0,820,0,820,0
4200DATA 594,220,648,228,710,192,764,112,820,0
4210FORj%=0TO12:FORk%=0TO4:FORl%=0TO1:READ bean%(j%,k%,l%):NEXT:NEXT:NEXT
4220RESTORE +0
4230DATA 84,444,126,436,218,396,356,376,490,356,628,324,530,288,418,256,308,232,202,212,80,184,150,156,224,120,318,72
4240FORj%=0TO13:FORk%=0TO1:READ syc%(j%,k%):NEXT:NEXT
4250RESTORE +0
4260DATA 538,490,446,338,258,148,80
4270FORj%=0TO6:READ dand%(j%):NEXT
4280RESTORE +0
4290DATA 508,332,462,312,408,284,352,256,300,232,218,184,142,136,62,80
4300FORj%=0TO7:FORk%=0TO1:READ dse%(j%,k%):NEXT:NEXT
4310RESTORE +0
4320DATA 0,164,596,1,162,560,1,172,524,1,182,484,1,196,436,2,210,420,3,226,432,3,242,480,3,254,536,3,268,596,3,0,650,4,222,560,4,222,456,4,222,336,4,222,188,5,172,4
4330FORj%=0TO15:FORk%=0TO2:READ do%(j%,k%):NEXT:NEXT
4340RESTORE +0
4350DATA 212,4,198,52,170,32
4360FORj%=0TO2:FORk%=0TO1:READ mlxy%(j%,k%):NEXT:NEXT
4370RESTORE +0
4380DATA 392,352,300,224,136
4390FORj%=0TO4:READ coc%(j%):NEXT
4400RESTORE +0
4410DATA 172,172,136,80,68,60,48,40,32
4420FORj%=0TO8:READ pea%(j%):NEXT
4430RESTORE +0
4440DATA 196,196,152,92,72,56,44,36,28
4450FORj%=0TO8:READ sunf%(j%):NEXT
4460RESTORE +0
4470DATA 192,188,156,140,112,88,76,72,64
4480FORj%=0TO8:READ whe%(j%):NEXT
4490RESTORE +0
4500DATA "110,pea","332,sun","634,whe"
4510DATA "070,hyp","348,epi","570,mon"
4520DATA "060,peb","284,sub","586,whb"
4530FORj%=0TO8:READ ger$(j%):NEXT
4540RESTORE +0
4550DATA 26,180,26,180,46,180,46,180,30,72,148,344,130,344
4560FORj%=0TO6:FORk%=0TO1:READ corm%(j%,k%):NEXT:NEXT
4570RESTORE +0
4580DATA 498,160,498,160,498,160,482,160,438,44,428,44
4590FORj%=0TO5:FORk%=0TO1:READ bulb%(j%,k%):NEXT:NEXT
4600RESTORE +0
4610DATA 148,244,234,288,392,212,392,160,372,136
4620FORj%=0TO4:FORk%=0TO1:READ run%(j%,k%):NEXT:NEXT
4630RESTORE +0
4640DATA 362,112,274,112,88,96,0,84,186,184,150,176
4650FORj%=0TO5:FORk%=0TO1:READ rhi%(j%,k%):NEXT:NEXT
4660ENDPROC
4670
4680DEFPROCmodechange
4690SYS"OS_ReadVduVariables",inb%,outb%
4700xmaxec%=(((outb%!8)+1)<<(outb%!0))-1:ymaxec%=(((outb%!12)+1)<<(outb%!4))-1
4710SYS"Wimp_ReadPixTrans",&100,animarea%,"anim",,,,scale%,coltrans%
4720ENDPROC
4730
4740DEFPROCerror(msg$,errno%)
4750!errblk%=99:$(errblk%+4)=msg$
4760SYS "Wimp_ReportError",errblk%,0,"Plantwise"
4770ENDPROC
4780
4790DEFPROCdiscmess(msg$,errno%)
4800!errblk%=99:$(errblk%+4)=msg$
4810SYS "Wimp_ReportError",errblk%,%10000,"Plantwise"
4820ENDPROC
4830
4840DEFPROCselecticn(w%,i%,f%)
4850!blk%=w%:blk%!4=i%:blk%!12=(1<<21):IFf%=0 blk%!8=0:ELSE blk%!8=blk%!12
4860SYS "Wimp_SetIconState",,blk%
4870ENDPROC
4880
4890DEFPROCgeticonstate(w%,i%)
4900!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
4910ENDPROC
4920
4930DEFFNisselected(w%,i%)
4940PROCgeticonstate(w%,i%)
4950=((blk%!24)AND(1<<21))=(1<<21)
4960
4970DEFFNisopen(w%)
4980!blk%=w%:SYS "Wimp_GetWindowState",,blk%
4990=((blk%!32)AND(1<<16))=(1<<16)
5000
5010DEFPROCwintoscrn(b%)
5020!blk2%=!b%:SYS "Wimp_GetWindowState",,blk2%
5030b%!8+=(blk2%!4)-(blk2%!20)
5040b%!12+=(blk2%!16)-(blk2%!24)
5050b%!16+=(blk2%!4)-(blk2%!20)
5060b%!20+=(blk2%!16)-(blk2%!24)
5070ENDPROC
5080
5090DEFFNleaf(f$) I%=LENf$:WHILEI%>1ANDMID$(f$,I%,1)<>"."I%-=1:ENDWHILE
5100IFMID$(f$,I%,1)="."I%+=1
5110=MID$(f$,I%)
5120
5130DEFFNconverttolower(a$)
5140LOCAL l%,b$,ch%:b$=""
5150IFLEN(a$)>0THEN
5160FORl%=1TOLENa$
5170ch%=ASC(MID$(a$,l%,1))
5180IF(ch%>&40)AND(ch%<&5B):ch%+=&20
5190b$+=CHR$ch%
5200NEXT
5210ENDIF
5220=b$
5230
5240DEFFNgeticnstring(w%,i%)
5250!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
5260=FNreadstring(blk%!28)
5270
5280DEFPROCputicnstring(w%,i%,a$)
5290!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
5300$(blk%!28)=a$:?((blk%!28)+LENa$)=0
5310blk%!8=0:blk%!12=0:SYS "Wimp_SetIconState",,blk%
5320ENDPROC
5330
5340DEFFNreadstring(p%)
5350LOCALa$:a$="":WHILE (LEN(a$)<255)AND(?p%>31):a$+=CHR$(?p%):p%+=1:ENDWHILE
5360=a$
5370
5380DEFPROCload_template(winname$)
5390LOCAL j%
5400winstarts%!((winctr%-1)*4)=wptr%:indstarts%!((winctr%-1)*4)=iptr%
5410SYS "Wimp_LoadTemplate",,wptr%,iptr%,indbase%+totindsize%,-1,winname$,0 TO ,,iptr%
5420IFwinname$="animate" animwtitle%=wptr%!72:animwtitlesiz%=wptr%+80
5430IFwinname$="animmenu" anmewtitle%=wptr%!72:anmewtitlesiz%=wptr%+80
5440noicns%=wptr%!84
5450FORj%=0TO(noicns%-1)*32STEP32
5460 PROCcheckicons
5470NEXT
5480IFwinname$="whatword":PROCcreatewordw
5490wptr%+=88+((wptr%!84)*32):winctr%+=1
5500ENDPROC
5510
5520DEFPROCcreatewordw
5530LOCAL ic%,wo%,ico%,row%,col%
5540ic%=0
5550FORcol%=0TO1
5560 FORrow%=0TO12
5570 IF(ic%<totgloss%)AND((col%<>0)OR(row%<>0)) THEN
5580 FORwo%=0TO7:wptr%!(88+(32*ic%)+(4*wo%))=wptr%!(88+(4*wo%)):NEXT
5590 ico%=wptr%+(88+(32*ic%))
5600 !ico%=(wptr%!88)+(260*col%):ico%!8=(wptr%!(88+8))+(260*col%)
5610 IFrow%>0:ico%!4=!(ico%-32+4)-56:ico%!12=!(ico%-32+12)-56
5620 ico%!20=iptr%:$iptr%="123455678901234":iptr%+=15
5630 ico%!28=15
5640 ENDIF
5650 ic%+=1
5660 NEXT
5670NEXT
5680FORj%=32TO((totgloss%-1)*32)STEP32
5690 PROCcheckicons
5700NEXT
5710wptr%!84=totgloss%
5720ENDPROC
5730
5740DEFPROCcheckicons
5750 icnblk%=wptr%+88+j%:icnf%=(icnblk%!16)
5760 IF FNindirected(icnf%)ANDNOTFNsprite(icnf%)ANDFNtext(icnf%)AND(icnblk%!24<>-1) THEN:IFINSTR(FNreadstring(icnblk%!24),"b0")<>0 icnf%=icnf%AND&FFFF0FFF
5770 IF NOTFNindirected(icnf%)ANDNOTFNsprite(icnf%)ANDFNtext(icnf%) THEN:icnf%=icnf%AND&FFFF3FFF
5780 IF FNindirected(icnf%)ANDFNsprite(icnf%)ANDNOTFNtext(icnf%) THEN
5790 IFwinname$="menu"THEN
5800 icnblk%!24=menuarea%:icnf%=(icnf%AND&FFFF0FFF)OR&00003000
5810 ELSE
5820 IF(winname$="proginfo")OR(winname$="fastfind")THEN
5830 icnblk%!24=sparea%:icnf%=(icnf%AND&FFFF0FFF)OR&00003000
5840 ELSE
5850 icnblk%!24=detarea%:icnf%=(icnf%AND&FFFF0FFF)OR&00003000
5860 ENDIF
5870 ENDIF
5880 ENDIF
5890 IF FNindirected(icnf%)ANDFNsprite(icnf%)ANDFNtext(icnf%) THEN
5900 IF(winname$="animmenu")OR(winname$="animate"):icnf%=(icnf%AND&FFFF0FFF)OR&00003000
5910 IF(winname$="fastfind")OR(winname$="whatword"):icnf%=(icnf%AND&FFFF0FFF)OR&00003000
5920 ENDIF
5930REM IF NOTFNindirected(icnf%)ANDFNsprite(icnf%) THEN
5940REM sprn$=FNreadstring(icnblk%+20)
5950REM SYS "XWimp_SpriteOp",40,,sprn$ TO ,,,w%,h%
5960REM IF(w%ORh%)=0:icnf%=icnf%OR256:$iptr%=sprn$:?(iptr%+(LENsprn$))=0:icnblk%!20=iptr%:icnblk%!24=sparea%:icnblk%!28=LENsprn$:iptr%+=LEN(sprn$)+1
5970REM ENDIF
5980 icnblk%!16=icnf%
5990ENDPROC
6000
6010DEFFNindirected(f%)
6020=((f%AND256)=256)
6030
6040DEFFNsprite(f%)
6050=((f%AND2)=2)
6060
6070DEFFNtext(f%)
6080=((f%AND1)=1)
6090
6100DEFPROCbaricon
6110$ibname%="frame1"
6120!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=84:blk%!16=72
6130blk%!20=&1000313A:blk%!24=ibname%:blk%!28=sparea%:blk%!32=LEN$ibname%
6140SYS "Wimp_CreateIcon",,blk% TO ibh%
6150ENDPROC
6160
6170DEFPROCmakemenusprites(m%)
6180SYS "OS_SpriteOp",&109,menuarea%
6190PROCunsquash(menufile%(m%,0),menufile%(m%,1),sqbuffer%,17*1024,menuarea%+4,(27*1024)-4)
6200ENDPROC
6210
6220DEFPROCunsquash(inptr%,insiz%,bufptr%,bufsiz%,outptr%,outsiz%)
6230REM first call with input size to see how big workspace should be
6240REMSYS "Squash_Decompress",%1000,insiz%,0,0,0,0 TO r0%
6250REMIFr0%<=bufsiz%:fast%=%100:ELSE:fast%=0
6260REMsomeleft%=insiz%
6270REM done%=0
6280REMr2%=inptr%:r4%=outptr%:r5%=outsiz%
6290REMWHILE someleft%
6300SYS "Squash_Decompress",%100,bufptr%,inptr%,insiz%,outptr%,outsiz% TO r0%,r1%,r2%,r3%,r4%,r5%
6310IFr0%=1:PROCerror("Squash_Decompress ran out of input data",0):SYS "Wimp_CloseDown",,&4B534154:END
6320IFr0%=2:PROCerror("Squash_Decompress ran out of output space",0):SYS "Wimp_CloseDown",,&4B534154:END
6330REMPROCerror(STR$~(r0%)+" "+STR$~(r1%)+" "+STR$~(r2%)+" "+STR$~(r3%)+" "+STR$~(r4%)+" "+STR$~(r5%),0)
6340REMENDWHILE
6350ENDPROC
6360
6370DEFPROCopen_menuw(am%,aa%)
6380LOCAL j%
6390IFFNisopen(menuw%):PROCclosewind(blk%)
6400IFam%>0THEN
6410 FORj%=6TO18STEP3
6420 IFam%=((j%/3)-1):PROCselecticn(menuw%,j%,TRUE):ELSE:PROCselecticn(menuw%,j%,FALSE)
6430 NEXT
6440ENDIF
6450!blk%=menuw%:SYS "Wimp_GetWindowState",,blk%
6460IFfirsttime%THEN
6470 IFxmaxec%>1280:blk%!4=INT((xmaxec%-1280)/2):ELSE:blk%!4=0
6480 IFymaxec%>1024:blk%!8=INT((ymaxec%-1024)/2):ELSE:blk%!8=0
6490 blk%!12=(blk%!4)+352:blk%!16=(blk%!8)+1024:blk%!20=0:blk%!24=0
6500ENDIF
6510!blk%=menuw%:blk%!28=-1
6520PROCopenwind(blk%)
6530PROCopen_animw(am%,aa%)
6540ENDPROC
6550
6560DEFPROCopen_findw
6570LOCAL j%
6580FORj%=35TO88:PROCselecticn(findw%,j%,FALSE):NEXT
6590findicn%=0
6600IF(actmenu%>0)AND(actanim%=-1):PROCselecticn(findw%,34+actmenu%,TRUE):findicn%=34+actmenu%
6610IFactanim%>=0:PROCselecticn(findw%,40+actanim%,TRUE):findicn%=40+actanim%
6620!blk%=findw%:SYS "Wimp_GetWindowState",,blk%
6630IFxmaxec%>1280:blk%!4=INT((xmaxec%-1280)/2):ELSE:blk%!4=0
6640IFymaxec%>960:blk%!8=INT((ymaxec%-960)/2):ELSE:blk%!8=0
6650blk%!12=(blk%!4)+1280:blk%!16=(blk%!8)+960:blk%!20=0:blk%!24=0
6660blk%!28=-1:PROCopenwind(blk%)
6670ENDPROC
6680
6690DEFPROCopen_mess(m$)
6700PROCputicnstring(demow%,0,m$)
6710!blk2%=anmew%:SYS "Wimp_GetWindowState",,blk2%
6720blk%!4=blk2%!4:blk%!12=(blk%!4)+882
6730IF(blk2%!8)<132:blk%!16=132:ELSE:blk%!16=blk2%!8-44
6740blk%!8=(blk%!16)-132
6750!blk%=demow%:blk%!20=0:blk%!24=0:blk%!28=-1
6760PROCopenwind(blk%)
6770ENDPROC
6780
6790DEFPROCopen_messff
6800PROCputicnstring(demow%,0,"Only topics with an orange background are available in this demonstration system.")
6810!blk2%=findw%:SYS "Wimp_GetWindowState",,blk2%
6820blk%!4=(blk2%!4)+200:blk%!12=(blk%!4)+882
6830IF(blk2%!8)<132:blk%!16=132:ELSE:blk%!16=(blk2%!8)-44
6840blk%!8=(blk%!16)-132
6850!blk%=demow%:blk%!20=0:blk%!24=0:blk%!28=-1
6860PROCopenwind(blk%)
6870ENDPROC
6880
6890DEFPROCopen_messww
6900PROCputicnstring(demow%,0,"This is only a part of the What Word facility.")
6910!blk2%=wordw%:SYS "Wimp_GetWindowState",,blk2%
6920REMblk%!4=(blk2%!4)+200:blk%!12=(blk%!4)+882
6930IFxmaxec%>882:blk%!4=INT((xmaxec%-882)/2):ELSE:blk%!4=0
6940blk%!12=(blk%!4)+882
6950IF(blk2%!8)<132:blk%!16=132:ELSE:blk%!16=(blk2%!8)-44
6960blk%!8=(blk%!16)-132
6970!blk%=demow%:blk%!20=0:blk%!24=0:blk%!28=-1
6980PROCopenwind(blk%)
6990ENDPROC
7000
7010DEFPROCopen_mess1
7020!blk%=demo1w%:SYS "Wimp_GetWindowState",,blk%
7030IFxmaxec%>1040:blk%!4=INT((xmaxec%-1040)/2):ELSE:blk%!4=0
7040IFymaxec%>740:blk%!8=INT((ymaxec%-740)/2):ELSE:blk%!8=0
7050blk%!12=(blk%!4)+1040:blk%!16=(blk%!8)+740:blk%!20=0:blk%!24=0
7060blk%!28=-1:PROCopenwind(blk%)
7070ENDPROC
7080
7090DEFPROCopen_wordw
7100LOCAL j%
7110FORj%=0TOtotgloss%-1:PROCselecticn(wordw%,j%,FALSE):NEXT
7120!blk%=wordw%:SYS "Wimp_GetWindowState",,blk%
7130IFxmaxec%>wide%:blk%!4=INT((xmaxec%-wide%)/2):ELSE:blk%!4=0
7140IFymaxec%>high%:blk%!8=INT((ymaxec%-high%)/2):ELSE:blk%!8=0
7150blk%!12=(blk%!4)+wide%:blk%!16=(blk%!8)+high%:blk%!20=0:blk%!24=0
7160blk%!28=-1:PROCopenwind(blk%)
7170ENDPROC
7180
7190DEFPROCopen_defnw(i%)
7200LOCAL j%
7210PROCputicnstring(defnw%,0,gloss$(i%,0)):PROCputicnstring(defnw%,1,gloss$(i%,1))
7220IFNOTFNisopen(defnw%)THEN
7230 !blk%=defnw%:SYS "Wimp_GetWindowState",,blk%
7240 IFxmaxec%>842:blk%!4=INT((xmaxec%-842)/2):ELSE:blk%!4=0
7250 IFymaxec%>244:blk%!8=INT((ymaxec%-244)/2):ELSE:blk%!8=0
7260 blk%!12=(blk%!4)+842:blk%!16=(blk%!8)+244:blk%!20=0:blk%!24=0
7270 blk%!28=-1:PROCopenwind(blk%)
7280ENDIF
7290ENDPROC
7300
7310DEFPROCopen_animw(am%,aa%)
7320LOCAL j%,detsiz%,k%
7330IFfirsttime%THEN
7340 firsttime%=0
7350 !blk%=anmew%:SYS "Wimp_DeleteWindow",,blk%
7360 !((winstarts%!8)+52)=-56
7370 SYS "Wimp_CreateWindow",,winstarts%!8 TO anmew%
7380 PROCinitanmewlabs(0)
7390 !anmewtitlesiz%=LEN(anmewtitle$(0))+1:$anmewtitle%=anmewtitle$(0)
7400 !blk%=anmew%:SYS "Wimp_GetWindowState",,blk%
7410 IFxmaxec%>1280:blk%!4=INT((xmaxec%-1280)/2)+396:ELSE:blk%!4=396
7420 IFymaxec%>1024:blk%!8=INT((ymaxec%-1024)/2):ELSE:blk%!8=0
7430 blk%!12=(blk%!4)+842:blk%!16=(blk%!8)+1024:blk%!20=0:blk%!24=0
7440 blk%!28=-1:PROCopenwind(blk%)
7450 actmenu%=am%:actanim%=aa%
7460 ENDPROC
7470ENDIF
7480IFFNisopen(animw%):PROCclosewind(blk%)
7490IFFNisopen(anmew%):PROCclosewind(blk%)
7500IFam%<>0 THEN
7510 IFNOTshrunkanme%THEN
7520 IFam%>0:PROCresizeanmew:PROCsetextent(anmew%,800):shrunkanme%=-1
7530 ENDIF
7540ENDIF
7550IFaa%=-1THEN
7560 PROCinitanmewlabs(am%)
7570 !anmewtitlesiz%=LEN(anmewtitle$(am%))+1:$anmewtitle%=anmewtitle$(am%)
7580 *Set PlantWise$chaindir <PlantWise$Dir>
7590 IFY%=0:test%=0:REPEAT:PROCfloppy_disk("Plantwise","$.!Plantwise.spfiles.anim20"):UNTILerror%=0
7600 IF(actmenu%<>am%)OR(actanim%<>aa%):PROCloadunsquash(detarea%,100*1024,"spfiles.animmenu"+STR$(am%))
7610 PROCmakeanim(am%,aa%,0):IFam%>0:PROCaddanmewlines(am%)
7620ELSE
7630 PROCinitanimw(aa%)
7640 !animwtitlesiz%=LEN(animwtitle$(aa%))+1:$animwtitle%=animwtitle$(aa%)
7650 IFactanim%<>aa%THEN
7660 *Set PlantWise$chaindir <PlantWise$Dir>
7670 IFY%=0:test%=0:REPEAT:PROCfloppy_disk("Plantwise","$.!Plantwise.spfiles.anim20"):UNTILerror%=0
7680 IFbg%(aa%)THEN
7690 !detarea%=120*1024:detarea%!8=16:SYS "OS_SpriteOp",&109,detarea%
7700 !bgarea%=33*1024:bgarea%!8=16:SYS "OS_SpriteOp",&109,bgarea%
7710 PROCgetbg(aa%):PROCloadunsquash(detarea%,120*1024,"spfiles.anim"+STR$(aa%))
7720 PROCspecialbg(aa%)
7730 ELSE
7740 !detarea%=153*1024:detarea%!8=16:SYS "OS_SpriteOp",&109,detarea%
7750 PROCloadunsquash(detarea%,153*1024,"spfiles.anim"+STR$(aa%))
7760 ENDIF
7770 PROCgetwordfile(aa%):PROCgetnumbfile(aa%)
7780 ENDIF
7790 PROCmakeanim(am%,aa%,bg%(aa%))
7800 IFtexton%:PROCremovetext(aa%):acttxticn%=0:PROCselecticn(animw%,1,TRUE):PROCaddtext(aa%)
7810ENDIF
7820IFactanim%=-1:!blk%=anmew%:ELSE:!blk%=animw%
7830IF(actmenu%=0)AND(am%<>0) THEN
7840 FORj%=4TO20STEP4:blk%!j%=blk2%!j%:NEXT
7850 blk%!24=(blk2%!24)+56
7860 IF((blk2%!32)AND&40000)=&40000:blk%!12=(blk%!4)+842:blk%!8=(blk%!16)-1024
7870ELSE
7880 SYS "Wimp_GetWindowState",,blk%
7890 IF((blk%!32)AND&40000)=&40000:blk%!12=(blk%!4)+842:blk%!8=(blk%!16)-1024
7900ENDIF
7910IFaa%=-1:!blk%=anmew%:ELSE:!blk%=animw%
7920blk%!28=-1:PROCopenwind(blk%)
7930actmenu%=am%:actanim%=aa%
7940ENDPROC
7950
7960DEFPROCspecialbg(aa%)
7970CASE aa% OF
7980 WHEN 14: SYS"OS_SpriteOp",&13C,bgarea%,"bg7",0:SCALE%!0=12:SCALE%!4=12:SCALE%!8=16:SCALE%!12=16
7990 FORj%=0TO7:SYS"OS_SpriteOp",&134,detarea%,"gr"+STR$(j%MOD3),420+(j%*50),0,&08,SCALE%,0:PROCflip(2,"gr"+STR$(j%MOD3)):NEXT
8000 PROCflip(2,"gr0"):PROCflip(2,"gr1"):SCALE%!0=1:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1:SYS"OS_SpriteOp",&13C,bgarea%,0,1
8010 WHEN 16:SYS"OS_SpriteOp",&13C,bgarea%,"bg4",0
8020 FOR j%=0TO3:SYS"OS_SpriteOp",&122,detarea%,"bg",0+(408*(j%MOD2)),0+(336*INT(j%/2)),8:NEXT
8030 SYS"OS_SpriteOp",&13C,bgarea%,0,1
8040ENDCASE
8050ENDPROC
8060
8070DEFPROCopen_setupw
8080LOCAL j%
8090!blk%=setupw%
8100IFxmaxec%>1104:blk%!4=INT((xmaxec%-1104)/2):ELSE:blk%!4=0
8110IFymaxec%>156:blk%!8=INT((ymaxec%-156)/2):ELSE:blk%!8=0
8120blk%!12=(blk%!4)+1104:blk%!16=(blk%!8)+156
8130blk%!20=0:blk%!24=0:blk%!28=-1
8140PROCopenwind(blk%)
8150ENDPROC
8160
8170DEFPROCgetbg(aa%)
8180CASE aa% OF
8190 WHEN 10:PROCmakebg(aa%,4,-1,332,-1,364,11,13)
8200 WHEN 12:PROCmakebg(aa%,8,-1,124,0,122,1,13)
8210 WHEN 14,23:PROCmakebg(aa%,7,-1,0,0,0,0,0)
8220 WHEN 20:PROCmakebg(aa%,8,0,80,0,78,1,13)
8230 WHEN 22:PROCloadunsquash(detarea%,120*1024,"spfiles.bgs.bg"+STR$(bg%(aa%)))
8240 SYS "OS_SpriteOp",&109,bgarea%:SYS "OS_SpriteOp",&10F,bgarea%,"bg1",1,405,161,12:PROCaddpalet(bgarea%,"bg1")
8250 SYS"OS_SpriteOp",&13C,bgarea%,"bg1",0
8260 VDU18,0,15:VDU25,4,0;0;:VDU25,101,810;644;
8270 SYS "OS_SpriteOp",&122,detarea%,"horiz",0,360,8
8280 VDU18,0,10:VDU25,4,0;200;:VDU25,101,810;360;
8290 VDU23,12,11,10,10,11,11,10,10,11:VDU18,16,0:VDU25,4,0;80;:VDU25,101,810;200;
8300 VDU23,12,11,13,13,11,11,13,13,11:VDU18,16,0:VDU25,4,0;0;:VDU25,101,810;80;
8310 VDU18,0,7:VDU25,4,0;80;:VDU25,101,810;80;
8320 SYS "OS_SpriteOp",&122,detarea%,"cow",186,220,8:SYS "OS_SpriteOp",&122,detarea%,"fence",0,220,8
8330 SYS "OS_SpriteOp",&122,detarea%,"verge",0,184,8:SYS "OS_SpriteOp",&122,detarea%,"verge",404,184,8
8340 SYS"OS_SpriteOp",&13C,bgarea%,0,1
8350 SYS "OS_SpriteOp",&119,detarea%,"horiz":SYS "OS_SpriteOp",&119,detarea%,"cow":SYS "OS_SpriteOp",&119,detarea%,"fence":SYS "OS_SpriteOp",&119,detarea%,"verge"
8360 WHEN 25:PROCmakebg(aa%,3,0,240,0,298,11,13)
8370 WHEN 29:PROCmakebg(aa%,3,-1,188,-1,208,11,13)
8380 OTHERWISE:PROCmakebg(aa%,0,0,0,0,0,0,0)
8390ENDCASE
8400ENDPROC
8410
8420DEFPROCmakebg(aa%,bgno%,flip%,up%,line%,ecfup%,ecf1%,ecf2%)
8430PROCloadunsquash(bgarea%,33*1024,"spfiles.bgs.bg"+STR$(bg%(aa%)))
8440IFbgno%>0 THEN
8450 IFflip%:SYS "OS_SpriteOp",&12F,bgarea%,"bg"+STR$(bgno%)
8460 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
8470 SYS"OS_SpriteOp",&122,bgarea%,"bg"+STR$(bgno%),0,0,0
8480 SYS"OS_SpriteOp",&13C,animarea%,0,1
8490 SYS"OS_SpriteOp",&13C,bgarea%,"bg"+STR$(bgno%),0
8500 SYS"OS_SpriteOp",&122,animarea%,"anim",0,up%,0
8510 IFecfup%>0:VDU23,12,ecf1%,ecf2%,ecf2%,ecf1%,ecf1%,ecf2%,ecf2%,ecf1%:VDU18,16,0:VDU25,4,0;0;:VDU25,101,810;ecfup%;
8520 IFline%:SYS"Wimp_SetColour",7:VDU25,4,0;ecfup%;:VDU25,101,810;ecfup%+2;
8530 SYS"OS_SpriteOp",&13C,bgarea%,0,1
8540ENDIF
8550ENDPROC
8560
8570DEFPROCmakeanim(am%,aa%,bg%)
8580IFaa%=-1THEN
8590 PROCcopysp("men"+STR$(am%),"anim")
8600ELSE
8610 IFbg%ANDNOTtexton% THEN
8620 PROCcopysp("bg"+STR$(bg%),"anim")
8630 ELSE
8640 PROCcl_anim(15)
8650 CASE aa% OF
8660 WHEN 10,16:PROCcopysp("bg4","anim")
8670 WHEN 18:IFNOTtexton% THEN:SYS"OS_SpriteOp",&13C,animarea%,"anim",0:PROCfruitbg:SYS"OS_SpriteOp",&13C,animarea%,0,1
8680 ENDCASE
8690 ENDIF
8700 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
8710 CASE aa% OF
8720 WHEN 4: PROCmakeleaf
8730 WHEN 5: PROCmakephoto
8740 WHEN 6: PROCmakeleafcl
8750 WHEN 20: se%()=0:PROCmakedisp(0,se%())
8760 WHEN 21: PROCmakedispexp(0,0)
8770 WHEN 22: PROCmakedispwind(0,0,0,-1,0)
8780 WHEN 23: PROCmakedispani(0,-1,0,0,0)
8790 WHEN 24: PROCmakedispwat
8800 ENDCASE
8810 SYS"OS_SpriteOp",&13C,animarea%,0,1
8820ENDIF
8830ENDPROC
8840
8850DEFPROCmakeleaf
8860SYS"OS_SpriteOp",&122,detarea%,"hww",16,0,8:SYS"OS_SpriteOp",&122,detarea%,"ss",276,0,8:SYS"OS_SpriteOp",&122,detarea%,"sw",590,0,8
8870ENDPROC
8880
8890DEFPROCmakephoto
8900SYS"OS_SpriteOp",&122,detarea%,"phbg",0,0,8
8910SYS"OS_SpriteOp",&122,detarea%,"ar30",0,88,8:SYS"OS_SpriteOp",&122,detarea%,"ar20",180,316,8
8920IFsimp%=1:SYS"OS_SpriteOp",&122,detarea%,"equn",0,492,8
8930ENDPROC
8940
8950DEFPROCmakeleafcl
8960SYS"OS_SpriteOp",&122,detarea%,"lecl",58,52,8
8970ENDPROC
8980
8990
9000DEFPROCmakedisp(s%,se%())
9010LOCAL j%,k%
9020SYS"OS_SpriteOp",&122,detarea%,"tree",336-(8*s%),536,8:SYS"OS_SpriteOp",&122,detarea%,"tree",470+(16*s%),448,8:PROCflip(2,"tree"):SYS"OS_SpriteOp",&122,detarea%,"tree",-16*s%,448,8:PROCflip(2,"tree")
9030IFtexton%:VDU23,12,1,13,13,1,1,13,13,1:VDU18,16,0:VDU25,4,0;0;:VDU25,101,810;160;
9040FORj%=0TO9
9050 IFj%>=6THEN
9060 IFse%(j%-6)=0:SYS"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-(16*s%),disp1%(j%,1),8
9070 IFse%(j%-6)=1:SYS"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-16,disp1%(j%,1)-52,8
9080 IFse%(j%-6)=2:SYS"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-16,disp1%(j%,1)-156,8
9090 IFse%(j%-6)=3:SYS"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-16,disp1%(j%,1)-312,8
9100 IFse%(j%-6)>=4:SYS"OS_SpriteOp",&122,detarea%,"seed2"+STR$(j%-5),disp1%(j%,0)-16-20,sland%(j%-6),8
9110 ELSE
9120 SYS"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-(16*s%),disp1%(j%,1),8
9130 ENDIF
9140NEXT
9150FORj%=1TO4:PROCflip(2,"seed2"+STR$(j%)):NEXT
9160FORj%=0TO7
9170 IFj%>=5THEN
9180 IFse%(j%-1)=0:SYS"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+(16*s%),disp2%(j%,1),8
9190 IFse%(j%-1)=1:SYS"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+16,disp2%(j%,1)-52,8
9200 IFse%(j%-1)=2:SYS"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+16,disp2%(j%,1)-156,8
9210 IFse%(j%-1)=3:SYS"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+16,disp2%(j%,1)-312,8
9220 IFse%(j%-1)>=4:SYS"OS_SpriteOp",&122,detarea%,"seed2"+STR$(j%-4),disp2%(j%,0)+16-20,sland%(j%-1),8
9230 ELSE
9240 SYS"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+(16*s%),disp2%(j%,1),8
9250 ENDIF
9260NEXT
9270FORj%=0TO2
9280 IFj%=2THEN
9290 IFse%(7)=0:SYS"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-(8*s%),disp3%(j%,1),8
9300 IFse%(7)=1:SYS"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-8,disp3%(j%,1)-52,8
9310 IFse%(7)=2:SYS"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-8,disp3%(j%,1)-156,8
9320 IFse%(7)=3:SYS"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-8,disp3%(j%,1)-312,8
9330 IFse%(7)>=4:SYS"OS_SpriteOp",&122,detarea%,"seed24",disp3%(j%,0)-8-20,sland%(7),8
9340 ELSE
9350 SYS"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-(8*s%),disp3%(j%,1),8
9360 ENDIF
9370NEXT
9380FORj%=1TO4:PROCflip(2,"seed2"+STR$(j%)):NEXT
9390SYS"OS_SpriteOp",&122,detarea%,"seed21",520,24,8:SYS"OS_SpriteOp",&122,detarea%,"seed22",352,44,8
9400ENDPROC
9410
9420DEFPROCmakedispexp(cb%,lup%)
9430SYS"OS_SpriteOp",&122,detarea%,"cb",4,0,8:SYS"OS_SpriteOp",&122,detarea%,"lup",446,0,8
9440SYS"OS_SpriteOp",&122,detarea%,"cbex"+STR$(cb%),cbex%(cb%),140,8:SYS"OS_SpriteOp",&122,detarea%,"lupex"+STR$(lup%),lupex%(lup%),168,8
9450ENDPROC
9460
9470DEFPROCmakedispwind(fru%,dan%,dax%,ds%,ds2%)
9480IFtexton% THEN
9490 VDU23,12,11,10,10,11,11,10,10,11:VDU18,16,0:VDU25,4,0;80;:VDU25,101,810;200;
9500 VDU23,12,11,13,13,11,11,13,13,11:VDU18,16,0:VDU25,4,0;0;:VDU25,101,810;80;
9510 VDU18,0,7:VDU25,4,0;80;:VDU25,101,810;80;
9520ENDIF
9530SYS"OS_SpriteOp",&122,detarea%,"leaf",0,344,8:SYS"OS_SpriteOp",&122,detarea%,"fru",0,468,8:SYS"OS_SpriteOp",&122,detarea%,"dan",464,80,8
9540IFdan%>=0THEN
9550 IFdan%<=6:SYS"OS_SpriteOp",&122,detarea%,"dan"+STR$(dan%),dand%(dan%),292,8:ELSE:SYS"OS_SpriteOp",&122,detarea%,"dan6",dax%,292,8
9560ENDIF
9570IFfru%>=0THEN
9580 IFfru%<=4:SYS"OS_SpriteOp",&122,detarea%,"fru"+STR$(fru%),syc%(fru%,0),syc%(fru%,1),8:ELSE:SYS"OS_SpriteOp",&122,detarea%,"fru"+STR$(((fru%-5)MOD4)+1),syc%(fru%,0),syc%(fru%,1),8
9590ENDIF
9600IFds%>=0THEN
9610 SCALE%!0=ds%+1:SCALE%!4=ds%+1:SCALE%!8=8:SCALE%!12=8
9620 SYS"OS_SpriteOp",&134,detarea%,"ds",dse%(ds%,0),dse%(ds%,1),&08,SCALE%,0
9630 SCALE%!0=1:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1
9640ENDIF
9650IFds2%:SYS"OS_SpriteOp",&122,detarea%,"ds2",32,80,8
9660ENDPROC
9670
9680DEFPROCmakedispani(dov%,mou%,mox%,ml%,bur%)
9690SYS"OS_SpriteOp",&122,detarea%,"bsw",0,0,8:SYS"OS_SpriteOp",&122,detarea%,"burd",452,0,8:SYS"OS_SpriteOp",&122,detarea%,"berry",0,544,8
9700IFmou%>=0 THEN
9710 SYS"OS_SpriteOp",&122,detarea%,"mrun"+STR$(mou%),mox%,12,8
9720 IFbur%=1:SYS"OS_SpriteOp",&122,detarea%,"bur",mox%+156+(14*(mou%MOD2)),88,8
9730 IFbur%=2:SYS"OS_SpriteOp",&122,detarea%,"bur",214,4,8
9740 IFmou%=2:SYS"OS_SpriteOp",&122,detarea%,"ml"+STR$(ml%),mox%+mlxy%(ml%,0),12+mlxy%(ml%,1),8
9750ENDIF
9760SYS"OS_SpriteOp",&122,detarea%,"bswl",328,12,8:SYS"OS_SpriteOp",&122,detarea%,"burdl",664,0,8
9770SYS"OS_SpriteOp",&122,detarea%,"dov"+STR$(do%(dov%,0)),do%(dov%,1),do%(dov%,2),8
9780ENDPROC
9790
9800DEFPROCmakedispwat
9810VDU23,12,15,0,0,15,15,0,0,15:VDU18,16,0:VDU25,4,0;0;:VDU25,101,810;644;
9820SYS"OS_SpriteOp",&122,detarea%,"land",0,0,8:SYS"OS_SpriteOp",&122,detarea%,"palm",40,68,8:SYS"OS_SpriteOp",&122,detarea%,"coc0",266,392,8
9830ENDPROC
9840
9850
9860DEFPROCcheckanimtext(noof%,lin$)
9870LOCAL j%,k%,stops%():DIM stops%(maxstops%)
9880stops%(0)=-1:FORj%=1TOnoof%:stops%(j%)=VAL(lin$):lin$=RIGHT$(lin$,LEN(lin$)-4):NEXT
9890IFtextnewon%THEN
9900 PROCputicnstring(animw%,9,"")
9910 FORj%=1TOnoof%
9920 IF(sub%>=stops%(j%-1)+1)AND(sub%<=stops%(j%)):PROCputicnstring(animw%,10,animwords$(simp%,j%-1))
9930 NEXT
9940ENDIF
9950textnewon%=0
9960FORj%=1TOnoof%
9970 IFsub%=stops%(j%-1)+1:PROCputicnstring(animw%,10,animwords$(simp%,j%-1)):PROCputicnstring(animw%,9,""):ENDPROC
9980NEXT
9990ENDPROC
10000
10010DEFPROCmovephoto
10020LOCAL lin$,noa%,k%
10030IFfirstmove%THEN
10040sub%=0:firstmove%=FALSE:elaps%=0
10050ELSE
10060IF(sub%<=7)OR((sub%>=23)AND(sub%<=35))OR((sub%>=39)AND(sub%<=41))THEN:IFTIME<lasttime%+60-elaps%:ENDPROC
10070IF(sub%>=8)AND(sub%<=17)THEN:IFTIME<lasttime%+20-elaps%:ENDPROC
10080IF((sub%>=18)AND(sub%<=22))OR((sub%>=36)AND(sub%<=38))OR((sub%>=42)AND(sub%<=52))THEN:IFTIME<lasttime%+120-elaps%:ENDPROC
10090ENDIF
10100elaps%=TIME
10110IFtexton%:PROCcheckanimtext(6,"006,029,040,044,046,051")
10120IFsub%<52THEN
10130 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
10140 IF(sub%>=7)AND(sub%<=17)THEN
10150 SYS"OS_SpriteOp",&122,detarea%,"phbg",0,0,8:SYS"OS_SpriteOp",&122,detarea%,"ar30",0,88,8
10160 PROCboxexp(sub%-7,10,188,292,-20,-16,40,32,40,32)
10170 ENDIF
10180 IF(sub%<=6)OR(sub%>=17)THEN
10190 lin$=photo$(sub%):noa%=VAL(lin$)
10200 lin$=RIGHT$(lin$,LEN(lin$)-3)
10210 FORk%=1TOnoa%
10220 SYS"OS_SpriteOp",&122,detarea%,animsp$(VAL(lin$)),animsp%(VAL(lin$),0),animsp%(VAL(lin$),1),8
10230 lin$=RIGHT$(lin$,LEN(lin$)-3)
10240 NEXT
10250 ENDIF
10260 PROCmoveendloop(6,"006,029,040,044,046,051",0,32,604,484)
10270ENDIF
10280sub%+=1
10290IFsub%=53:PROCmakeanim(actmenu%,actanim%,bg%(actanim%)):PROCanimateend:PROCplotanim(actanim%)
10300ENDPROC
10310
10320DEFPROCmoveleafcl
10330LOCAL lin$,noa%,k%
10340IFfirstmove%THEN
10350sub%=0:firstmove%=FALSE:elaps%=0
10360ELSE
10370IFsub%=1 THEN:IFTIME<lasttime%+120-elaps%:ENDPROC
10380IF(sub%>=2)AND(sub%<=9)THEN:IFTIME<lasttime%+20-elaps%:ENDPROC
10390IFsub%>=10 THEN:IFTIME<lasttime%+80-elaps%:ENDPROC
10400ENDIF
10410elaps%=TIME
10420IFtexton%:PROCcheckanimtext(1,"015")
10430IFsub%<16THEN
10440 IFsub%<=9:PROCcl_anim(15)
10450 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
10460 IFsub%<=9:SYS"OS_SpriteOp",&122,detarea%,"lecl",58,52,8
10470 PROCboxexp(sub%,9,550,128,-20,-4,80,64,40,32)
10480 CASE sub% OF
10490 WHEN 9,15:SYS"OS_SpriteOp",&122,detarea%,"st00",402,108,8
10500 WHEN 10,14:SYS"OS_SpriteOp",&122,detarea%,"st01",442,144,8
10510 WHEN 11,13:SYS"OS_SpriteOp",&122,detarea%,"st02",442,144,8
10520 WHEN 12:SYS"OS_SpriteOp",&122,detarea%,"st03",442,144,8
10530 ENDCASE
10540 PROCmoveendloop(1,"015",390,96,792,420)
10550ENDIF
10560sub%+=1
10570IFsub%=17:PROCmakeanim(actmenu%,actanim%,bg%(actanim%)):PROCanimateend:PROCplotanim(actanim%)
10580ENDPROC
10590
10600DEFPROCmovedisp
10610IFfirstmove%THEN
10620 sub%=0:firstmove%=FALSE:elaps%=0:se%()=0
10630ELSE
10640 IFTIME<lasttime%+30-elaps%:ENDPROC
10650ENDIF
10660elaps%=TIME
10670IFtexton%:PROCcheckanimtext(1,"023")
10680IFsub%<24THEN
10690 IFtexton% THEN:PROCcl_anim(15):ELSE:PROCcopysp("bg8","anim")
10700 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
10710 IFsub%>=5:se%(0)+=1
10720 IFsub%>=6:se%(1)+=1
10730 IFsub%>=8:se%(2)+=1
10740 IFsub%>=9:se%(3)+=1
10750 IFsub%>=10:se%(4)+=1
10760 IFsub%>=13:se%(5)+=1
10770 IFsub%>=15:se%(6)+=1
10780 IFsub%>=18:se%(7)+=1
10790 IF((sub%+1)MOD4)=3:PROCmakedisp(1,se%()):ELSE:PROCmakedisp((sub%+1)MOD4,se%())
10800 PROCmoveendloop(1,"023",0,0,810,644)
10810ENDIF
10820sub%+=1
10830IFsub%=25:PROCmakeanim(actmenu%,actanim%,bg%(actanim%)):PROCanimateend:PROCplotanim(actanim%)
10840ENDPROC
10850
10860DEFPROCmovedispexp
10870LOCAL j%,cb%,lup%
10880IFfirstmove%THEN
10890 sub%=0:firstmove%=FALSE:elaps%=0
10900ELSE
10910 IF(sub%=8)OR(sub%=15) THEN
10920 IFTIME<lasttime%+100-elaps%:ENDPROC
10930 ELSE
10940 IFTIME<lasttime%+30-elaps%:ENDPROC
10950 ENDIF
10960ENDIF
10970elaps%=TIME
10980IFtexton%:PROCcheckanimtext(2,"007,014")
10990IFsub%<15THEN
11000 IFtexton% THEN:PROCcl_anim(15):ELSE:PROCcopysp("bg6","anim")
11010 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
11020 IFsub%=0:cb%=0
11030 IFsub%=1:cb%=1
11040 IFsub%>=2:cb%=2
11050 IFsub%<=8:lup%=0:ELSE:lup%=1
11060 PROCmakedispexp(cb%,lup%)
11070 IF(sub%>=2)AND(sub%<=6) THEN:FORj%=0TO4:SYS"OS_SpriteOp",&122,detarea%,"bean"+STR$(RND(3)-1),bean%(j%,sub%-2,0),bean%(j%,sub%-2,1),8:NEXT
11080 IF(sub%>=9)AND(sub%<=13) THEN:FORj%=5TO12:SYS"OS_SpriteOp",&122,detarea%,"bean"+STR$(RND(3)-1),bean%(j%,sub%-9,0),bean%(j%,sub%-9,1),8:NEXT
11090 PROCmoveendloop(2,"004,011",0,60,810,440)
11100ENDIF
11110sub%+=1
11120IFsub%=16:PROCmakeanim(actmenu%,actanim%,bg%(actanim%)):PROCanimateend:PROCplotanim(actanim%)
11130ENDPROC
11140
11150DEFPROCmovedispwind
11160LOCAL fru%,dan%,dax%,ds%,ds2%
11170IFfirstmove%THEN
11180 sub%=0:firstmove%=FALSE:elaps%=0
11190ELSE
11200 IF(sub%=13)OR(sub%=31) THEN
11210 IFTIME<lasttime%+180-elaps%:ENDPROC
11220 ELSE
11230 IFTIME<lasttime%+30-elaps%:ENDPROC
11240 ENDIF
11250ENDIF
11260elaps%=TIME
11270IFtexton%:PROCcheckanimtext(2,"012,030")
11280IFsub%<31THEN
11290 IFtexton% THEN:PROCcl_anim(15):ELSE:PROCcopysp("bg1","anim")
11300 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
11310 IFsub%<=12:fru%=sub%+1:ELSE:fru%=-1
11320 IFsub%>=14:dan%=sub%-14:ELSE:dan%=0
11330 IFsub%>=21:dax%=20-((sub%-21)*60):ELSE:dax%=0
11340 IF(sub%>=17)AND(sub%<=24):ds%=sub%-17:ELSE:ds%=-1
11350 IFsub%>=25:ds2%=-1:ELSE:ds2%=0
11360 PROCmakedispwind(fru%,dan%,dax%,ds%,ds2%)
11370 IFsub%<=12:PROCmoveendloop(2,"012,030",54,60,794,564):ELSE:PROCmoveendloop(2,"012,030",0,60,668,508)
11380ENDIF
11390sub%+=1
11400IFsub%=32:PROCmakeanim(actmenu%,actanim%,bg%(actanim%)):PROCanimateend:PROCplotanim(actanim%)
11410ENDPROC
11420
11430DEFPROCmovedispani
11440LOCAL dov%,mou%,mox%,ml%,bur%
11450IFfirstmove%THEN
11460 sub%=0:firstmove%=FALSE:elaps%=0
11470ELSE
11480 IF(sub%=13)OR(sub%=22)OR(sub%=34)OR(sub%=44)OR(sub%=49) THEN
11490 IFTIME<lasttime%+130-elaps%:ENDPROC
11500 ELSE
11510 IFTIME<lasttime%+30-elaps%:ENDPROC
11520 ENDIF
11530ENDIF
11540elaps%=TIME
11550IFtexton%:PROCcheckanimtext(5,"012,021,032,033,048")
11560IFsub%<49THEN
11570 IFtexton% THEN:PROCcl_anim(15):ELSE:PROCcopysp("bg7","anim")
11580 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
11590 IFsub%<=11:mox%=776-(sub%*64):mou%=sub%MOD2:bur%=1
11600 IFsub%=12:mox%=72:mou%=2:ml%=0:bur%=1
11610 IF(sub%>=13)AND(sub%<=19):mox%=72:mou%=2:ml%=2-(sub%MOD2):bur%=1
11620 IFsub%=20:mox%=72:mou%=2:ml%=2:bur%=2
11630 IFsub%=21:mox%=72:mou%=2:ml%=0:bur%=2
11640 IF(sub%>=22)AND(sub%<=32):mox%=72-((sub%-21)*64):mou%=sub%MOD2:bur%=2
11650 IFsub%>=33:mou%=-1:dov%=sub%-33
11660 PROCmakedispani(dov%,mou%,mox%,ml%,bur%)
11670 IFsub%<=33:PROCmoveendloop(5,"012,021,032,033,048",0,0,810,176):ELSE:PROCmoveendloop(5,"012,021,032,033,048",140,4,330,644)
11680ENDIF
11690sub%+=1
11700IFsub%=50:PROCmakeanim(actmenu%,actanim%,bg%(actanim%)):PROCanimateend:PROCplotanim(actanim%)
11710ENDPROC
11720
11730DEFPROCmovedispwat
11740IFfirstmove%THEN
11750 sub%=0:firstmove%=FALSE:elaps%=0
11760ELSE
11770 IFsub%=65 THEN
11780 IFTIME<lasttime%+200-elaps%:ENDPROC
11790 ELSE
11800 IFTIME<lasttime%+40-elaps%:ENDPROC
11810 ENDIF
11820ENDIF
11830elaps%=TIME
11840IFtexton%:PROCcheckanimtext(1,"064")
11850IFsub%<65THEN
11860 SYS"OS_SpriteOp",&13C,animarea%,"anim",0
11870 VDU23,12,15,0,0,15,15,0,0,15:VDU18,16,0:VDU25,4,0;0;:VDU25,101,810;644;
11880 VDU18,0,15:VDU25,4,0;0;:VDU25,101,810;274;
11890 IFsub%>=33:PROCflip(2,"land")
11900 IF(sub%<=15)OR(sub%>=50):SYS"OS_SpriteOp",&122,detarea%,"land",0,0,8
11910 IF(sub%>=16)AND(sub%<=32):SYS"OS_SpriteOp",&122,detarea%,"land",-50*(sub%-15),0,8
11920 IF(sub%>=33)AND(sub%<=49):SYS"OS_SpriteOp",&122,detarea%,"land",800-(50*(sub%-33)),0,8
11930 IFsub%>=33:PROCflip(2,"land")
11940 IFsub%<=15:SYS"OS_SpriteOp",&122,detarea%,"palm",40,68,8
11950 IF(sub%>=16)AND(sub%<=25):SYS"OS_SpriteOp",&122,detarea%,"palm",40-(50*(sub%-15)),68,8
11960 IFsub%<=4:SYS"OS_SpriteOp",&122,detarea%,"coc0",266,coc%(sub%),8
11970 IF(sub%>=5)AND(sub%<=8):SYS"OS_SpriteOp",&122,detarea%,"coc"+STR$(sub%-4),224,80,8
11980 IF(sub%>=9)AND(sub%<=15):SYS"OS_SpriteOp",&122,detarea%,"coc"+STR$(5+(sub%MOD2)),266+(20*(sub%-9)),88,8
11990 IF(sub%>=16)AND(sub%<=49):SYS"OS_SpriteOp",&122,detarea%,"coc"+STR$(5+(sub%MOD2)),386,88,8
12000 IF(sub%>=50)AND(sub%<=60):SYS"OS_SpriteOp",&122,detarea%,"coc"+STR$(5+(sub%MOD2)),386+(20*(sub%-49)),88,8
12010 IF(sub%>=61)AND(sub%<=64):SYS"OS_SpriteOp",&122,detarea%,"coc7",626+(20*(sub%-61)),88,8
12020 IFsub%<=15:PROCmoveendloop(1,"064",224,80,440,480)
12030 IF(sub%>=16)AND(sub%<=49):PROCmoveendloop(1,"064",0,0,810,644)
12040 IFsub%>=50:PROCmoveendloop(1,"064",380,88,740,140)
12050ENDIF
12060sub%+=1
12070IFsub%=66:PROCmakeanim(actmenu%,actanim%,bg%(actanim%)):PROCanimateend:PROCplotanim(actanim%)
12080ENDPROC
12090
12100
12110DEFPROCboxexp(s%,noof%,x%,y%,dx%,dy%,sizx%,sizy%,dsizx%,dsizy%)
12120REM s% goes from 0 to noof%:x,y orig leftbot corner:dx,dy how leftbot corner moves
12130REM sizx,sizy ec size of orig box:dsizx,dsizy incr in box size
12140IFs%>noof%:ENDPROC
12150IFs%=noof%THEN
12160 s%-=1
12170 SYS"Wimp_SetColour",7
12180 VDU25,4,x%+(dx%*s%);y%+(dy%*s%);:VDU25,101,x%+(dx%*s%)+sizx%+(dsizx%*s%)-2;y%+(dy%*s%)+sizy%+(dsizy%*s%)-2;
12190 SYS"Wimp_SetColour",9
12200 VDU25,4,x%+(dx%*s%)+4;y%+(dy%*s%)+4;:VDU25,101,x%+(dx%*s%)+sizx%+(dsizx%*s%)-6;y%+(dy%*s%)+sizy%+(dsizy%*s%)-6;
12210 SYS"Wimp_SetColour",7
12220 VDU25,4,x%+(dx%*s%)+8;y%+(dy%*s%)+8;:VDU25,101,x%+(dx%*s%)+sizx%+(dsizx%*s%)-10;y%+(dy%*s%)+sizy%+(dsizy%*s%)-10;
12230 s%+=1
12240ENDIF
12250IFs%<noof%THEN
12260 SYS"Wimp_SetColour",9
12270 PROCbox(x%+(dx%*s%),y%+(dy%*s%),sizx%+(dsizx%*s%),sizy%+(dsizy%*s%))
12280ENDIF
12290ENDPROC
12300
12310DEFPROCbox(x%,y%,sx%,sy%)
12320VDU25,4,x%;y%;:VDU25,101,x%+2;y%+sy%-2;
12330VDU25,4,x%;y%+sy%-4;:VDU25,101,x%+sx%-2;y%+sy%-2;
12340VDU25,4,x%+sx%-4;y%+sy%-2;:VDU25,101,x%+sx%-2;y%;
12350VDU25,4,x%+sx%-2;y%+2;:VDU25,101,x%;y%;
12360ENDPROC
12370
12380DEFPROCplotanim(aa%)
12390IFaa%=-1:!blk%=anmew%:ELSE:!blk%=animw%
12400SYS"Wimp_GetWindowState",,blk%
12410spx%=blk%!4-blk%!20+16:spy%=(blk%!16-blk%!24)-76-644
12420blk%!4=0:blk%!8=-720:blk%!12=830:blk%!16=-72
12430SYS "Wimp_UpdateWindow",,blk% TO more%
12440WHILE more%
12450SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
12460SYS "Wimp_GetRectangle",,blk% TO more%
12470ENDWHILE
12480ENDPROC
12490
12500DEFPROCplotanimmove(le%,lo%,ri%,hi%)
12510!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
12520spx%=blk%!4-blk%!20+16:spy%=(blk%!16-blk%!24)-76-644
12530!blk%=animw%:blk%!4=16+le%:blk%!8=lo%-720:blk%!12=16+ri%:blk%!16=hi%-720
12540SYS "Wimp_UpdateWindow",,blk% TO more%
12550WHILE more%
12560SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
12570SYS "Wimp_GetRectangle",,blk% TO more%
12580ENDWHILE
12590ENDPROC
12600
12610DEFPROCcopysp(fromsp$,tosp$)
12620IFfromsp$="anim" THEN
12630 fromarea%=animarea%:toarea%=detarea%
12640ELSE
12650 IFLEFT$(fromsp$,2)="bg":fromarea%=bgarea%:toarea%=animarea%:ELSE:fromarea%=detarea%:toarea%=animarea%
12660ENDIF
12670SYS"OS_SpriteOp",&13C,toarea%,tosp$,0
12680SYS"OS_SpriteOp",&122,fromarea%,fromsp$,0,0,0
12690SYS"OS_SpriteOp",&13C,toarea%,0,1
12700ENDPROC
12710
12720DEFPROCinitanmewlabs(m%)
12730LOCAL j%
12740IFm%>0:PROChideicn(anmew%,0,TRUE):ELSE:PROChideicn(anmew%,0,FALSE)
12750CASE m% OF
12760 WHEN 0: FORj%=5TO33:PROChideicn(anmew%,j%,TRUE):NEXT
12770 WHEN 1: FORj%=5TO9:PROChideicn(anmew%,j%,FALSE):PROCselecticn(anmew%,j%,FALSE):NEXT
12780 FORj%=10TO33:PROChideicn(anmew%,j%,TRUE):NEXT
12790 WHEN 2: FORj%=5TO9:PROChideicn(anmew%,j%,TRUE):NEXT
12800 FORj%=10TO15:PROChideicn(anmew%,j%,FALSE):PROCselecticn(anmew%,j%,FALSE):NEXT
12810 FORj%=16TO33:PROChideicn(anmew%,j%,TRUE):NEXT
12820 WHEN 3: FORj%=5TO15:PROChideicn(anmew%,j%,TRUE):NEXT
12830 FORj%=16TO20:PROChideicn(anmew%,j%,FALSE):PROCselecticn(anmew%,j%,FALSE):NEXT
12840 FORj%=21TO33:PROChideicn(anmew%,j%,TRUE):NEXT
12850 WHEN 4: FORj%=5TO20:PROChideicn(anmew%,j%,TRUE):NEXT
12860 FORj%=21TO24:PROChideicn(anmew%,j%,FALSE):PROCselecticn(anmew%,j%,FALSE):NEXT
12870 FORj%=25TO33:PROChideicn(anmew%,j%,TRUE):NEXT
12880 WHEN 5: FORj%=5TO24:PROChideicn(anmew%,j%,TRUE):NEXT
12890 FORj%=25TO33:PROChideicn(anmew%,j%,FALSE):PROCselecticn(anmew%,j%,FALSE):NEXT
12900ENDCASE
12910ENDPROC
12920
12930DEFPROCsetextent(w%,siz%)
12940!blk%=0:blk%!4=-siz%:blk%!8=842:blk%!12=0
12950SYS"Wimp_SetExtent",w%,blk%
12960ENDPROC
12970
12980DEFPROCresizeanmew
12990!blk2%=anmew%:SYS "Wimp_GetWindowState",,blk2%
13000!blk%=anmew%:SYS "Wimp_DeleteWindow",,blk%
13010!((winstarts%!8)+52)=0
13020SYS "Wimp_CreateWindow",,winstarts%!8 TO anmew%
13030ENDPROC
13040
13050DEFPROCclosewind(b%)
13060SYS "Wimp_CloseWindow",,b%
13070ENDPROC
13080
13090DEFPROCopenwind(b%)
13100SYS "Wimp_OpenWindow",,b%
13110ENDPROC
13120
13130DEFPROCclick(mx%,my%,but%,w%,i%)
13140CASE w% OF
13150 WHEN -2:
13160 CASE but% OF
13170 WHEN 2: PROCmaster_menu("Plantwise","Info,Setup...,7Quit,",!eb%,216)
13180 WHEN 4: PROCstartgame:PROCopen_mess1
13190 ENDCASE
13200 WHEN menuw%: PROCmenuwclick(but%,w%,i%)
13210 WHEN anmew%: PROCanmewclick(but%,w%,i%)
13220 WHEN animw%: PROCanimwclick(mx%,my%,but%,i%)
13230 WHEN findw%: PROCfindwclick(mx%,my%,but%,i%)
13240 WHEN defnw%: PROCdefnwclick(mx%,my%,but%,i%)
13250 WHEN wordw%: PROCwordwclick(mx%,my%,but%,i%)
13260 WHEN setupw%: PROCsetupwclick(but%,i%)
13270ENDCASE
13280ENDPROC
13290
13300DEFPROCmenuwclick(b%,w%,i%)
13310LOCAL j%,k%
13320IFb%=2:ENDPROC
13330IFi%=-1:ENDPROC
13340!blk%=demow%:PROCclosewind(blk%)
13350IFi%<6:PROCcheckindex(i%):ENDPROC
13360j%=INT(i%/3)-1
13370FORk%=6TO18STEP3
13380 IFk%=3+(3*j%):PROCselecticn(w%,k%,TRUE):ELSE:PROCselecticn(w%,k%,FALSE)
13390NEXT
13400PROCopen_animw(j%,-1)
13410IFj%=1:PROCopen_mess("Only 'leaf' is available in the Structure section.")
13420IFj%=2:PROCopen_mess("Only 'seed dispersal' is available in the Reproduction section.")
13430IFj%=3:PROCopen_mess("None of the What Plants Need section is available in this demonstration.")
13440IFj%=4:PROCopen_mess("None of the Survival section is available in this demonstration.")
13450IFj%=5:PROCopen_mess("None of the Classification section is available in this demonstration.")
13460ENDPROC
13470
13480DEFPROCcheckindex(i%)
13490IFi%<3THEN
13500 PROCtoggleicnsel(menuw%,0)
13510 IFFNisselected(menuw%,0)THEN
13520 PROCopen_findw:PROCopen_messff
13530 ELSE
13540 !blk%=findw%:PROCclosewinds(blk%)
13550 ENDIF
13560ELSE
13570 PROCtoggleicnsel(menuw%,3)
13580 IFFNisselected(menuw%,3)THEN
13590 PROCopen_wordw:PROCopen_messww
13600 ELSE
13610 !blk%=defnw%:PROCclosewind(blk%):!blk%=wordw%:PROCclosewind(blk%)
13620 ENDIF
13630ENDIF
13640ENDPROC
13650
13660DEFPROCanmewclick(b%,w%,i%)
13670LOCAL j%,k%
13680REMIFb%=2:PROCanmew_menu(mx%,my%):ENDPROC
13690!blk%=demow%:PROCclosewind(blk%)
13700IF(i%=7)OR(i%=12) THEN
13710 PROCkilltext
13720 PROCtoggleicnsel(anmew%,i%)
13730 wlev%=0:PROCopen_animw(actmenu%,wlev%+findaa%(i%-5))
13740ELSE
13750 IF(i%>=5)AND(i%<=9):PROCopen_mess("Only 'leaf' is available in the Structure section.")
13760 IF(i%>=10)AND(i%<=15):PROCopen_mess("Only 'seed dispersal' is available in the Reproduction section.")
13770 IF(i%>=16)AND(i%<=20):PROCopen_mess("None of the What Plants Need section is available in this demonstration.")
13780 IF(i%>=21)AND(i%<=24):PROCopen_mess("None of the Survival section is available in this demonstration.")
13790 IF(i%>=25)AND(i%<=33):PROCopen_mess("None of the Classification section is available in this demonstration.")
13800ENDIF
13810ENDPROC
13820
13830DEFPROCanimwclick(mx%,my%,b%,i%)
13840LOCAL j%,k%
13850REMIFb%=2:PROCanimw_menu(mx%,my%):ENDPROC
13860!blk%=demow%:PROCclosewind(blk%)
13870PROCtoggleicnsel(animw%,i%)
13880CASE i% OF
13890 WHEN 0: PROCkilltext
13900 IFwlev%=0:PROCopen_animw(actmenu%,-1):ELSE:j%=wlev%:wlev%=0:PROCopen_animw(actmenu%,actanim%-j%)
13910 WHEN 1: IFFNisselected(animw%,1)THEN
13920 texton%=-1:textnewon%=-1
13930 IFNOTdoingmove%:PROCmakeanim(actmenu%,actanim%,bg%(actanim%))
13940 PROCaddtext(actanim%)
13950 ELSE
13960 texton%=0:textnewoff%=-1:acttxticn%=0:PROCremovetext(actanim%)
13970 ENDIF
13980 WHEN 2: IFFNisselected(animw%,2)THEN
13990 doingmove%=-1:firstmove%=-1:PROCanimate
14000 ELSE
14010 PROCanimateend:PROCmakeanim(actmenu%,actanim%,bg%(actanim%))
14020 IFtexton%:PROCaddtext(actanim%):ELSE:PROCplotanim(actanim%)
14030 ENDIF
14040 WHEN 3,4: j%=wlev%:PROCkilltext
14050 IFFNisselected(animw%,i%):wlev%=i%-2:PROCselecticn(animw%,7-i%,FALSE):ELSE:wlev%=0
14060 PROCopen_animw(actmenu%,actanim%-j%+wlev%)
14070 WHEN 5,6,7,8: j%=wlev%:PROCkilltext
14080 IFFNisselected(animw%,i%) THEN
14090 wlev%=i%-4:FORk%=5TO8
14100 IFk%<>i%:PROCselecticn(animw%,k%,FALSE)
14110 NEXT
14120 ELSE
14130 wlev%=0
14140 ENDIF
14150 PROCopen_animw(actmenu%,actanim%-j%+wlev%)
14160 WHEN 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,49,50,51,52,53,54,55,56:
14170 IFacttxticn%>11 PROCselecticn(animw%,acttxticn%,FALSE)
14180 IFacttxticn%=i% acttxticn%=0:ELSE:acttxticn%=i%
14190 PROCaddwords(actanim%)
14200ENDCASE
14210ENDPROC
14220
14230DEFPROCkilltext
14240PROCselecticn(animw%,1,FALSE):texton%=0:textnewon%=0
14250!blk2%=0:blk2%!4=-732:blk2%!8=842:blk2%!12=0:SYS"Wimp_SetExtent",animw%,blk2%
14260ENDPROC
14270
14280DEFPROCfindwclick(mx%,my%,b%,i%)
14290LOCAL j%,am%,aa%
14300IFb%=2:ENDPROC
14310IF(i%<=34)OR((i%>=40)AND(i%<=43))OR((i%>=47)AND(i%<=59))OR(i%>=65):PROCopen_messff:ENDPROC
14320!blk%=demow%:PROCclosewind(blk%)
14330IF(i%>=35)AND(i%<=39):am%=i%-34:aa%=-1:wlev%=0
14340IF(i%>=44)AND(i%<=46):am%=1:aa%=i%-40:wlev%=i%-44
14350IF(i%>=60)AND(i%<=64):am%=2:aa%=i%-40:wlev%=i%-60
14360IF(actmenu%<>am%)OR(actanim%<>aa%):PROCselecticn(findw%,findicn%,FALSE)
14370findicn%=0
14380IF(am%>0)AND(aa%=-1):PROCselecticn(findw%,34+am%,TRUE):findicn%=34+am%
14390IFaa%>=0:PROCselecticn(findw%,40+aa%,TRUE):findicn%=40+aa%
14400!blk%=findw%:PROCclosewind(blk%):PROCselecticn(menuw%,0,FALSE)
14410PROCkilltext:PROCopen_menuw(am%,aa%)
14420ENDPROC
14430
14440DEFPROCwordwclick(mx%,my%,b%,i%)
14450LOCAL j%
14460IFb%=2:ENDPROC
14470!blk%=demow%:PROCclosewind(blk%)
14480IFglossicn%<>i%:PROCtoggleicnsel(wordw%,i%):PROCselecticn(wordw%,glossicn%,FALSE):glossicn%=i%
14490PROCopen_defnw(i%)
14500ENDPROC
14510
14520DEFPROCsetupwclick(b%,i%)
14530LOCAL j%,k%
14540CASE i% OF
14550 WHEN 2,3:IFFNisselected(setupw%,2):simp%=0:ELSE:simp%=1
14560 PROCstartgame
14570ENDCASE
14580ENDPROC
14590
14600DEFPROCinitanimw(aa%)
14610LOCAL j%,k%
14620PROCselecticn(animw%,0,FALSE)
14630FORk%=2TO56:PROChideicn(animw%,k%,TRUE):PROCselecticn(animw%,k%,FALSE):NEXT
14640FORj%=0TO6
14650 IFwdefn%(aa%,j%)>0:PROChideicn(animw%,j%+2,FALSE):ELSE:PROChideicn(animw%,j%+2,TRUE)
14660 IFwdefn%(aa%,j%)=2:PROCselecticn(animw%,j%+2,TRUE):ELSE:PROCselecticn(animw%,j%+2,FALSE)
14670NEXT
14680CASE aa% OF
14690 WHEN 0,1 : PROCputicnstring(animw%,3,"animal cells")
14700 WHEN 2,3 : PROCputicnstring(animw%,3,"flower parts")
14710 WHEN 10,11 : PROCputicnstring(animw%,3,"root close-up")
14720 WHEN 4,5,6 : PROCputicnstring(animw%,3,"photosynthesis"):PROCputicnstring(animw%,4,"leaf close-up")
14730 WHEN 7,8,9 : PROCputicnstring(animw%,3,"non-woody stem"):PROCputicnstring(animw%,4,"woody stem")
14740 WHEN 12,13,14,15,16 : PROCputicnstring(animw%,5,"insects")
14750 WHEN 17,18,19 : PROCputicnstring(animw%,3,"fruits & seeds"):PROCputicnstring(animw%,4,"fruit examples")
14760 WHEN 20,21,22,23,24 : PROCputicnstring(animw%,5,"explode")
14770 WHEN 25,26,27 : PROCputicnstring(animw%,3,"seed structure"):PROCputicnstring(animw%,4,"dormancy")
14780 WHEN 36,37 : PROCputicnstring(animw%,3,"extremes")
14790ENDCASE
14800doingmove%=0:firstmove%=0:acttxticn%=0:doingmove%=0:firstmove%=-1:textnewon%=0
14810ENDPROC
14820
14830DEFPROCevent
14840SYS "Wimp_Poll",0,blk% TO e%,eb%
14850CASE e% OF
14860 WHEN 0: IFdoingmove%:PROCanimate
14870REM IFdoingcloser% PROCcloser
14880REM IFdoingpinpart% PROCmovepinpart
14890REM sizz1%=(!detarea%)-(detarea%!12):IFsizz1%<minsizz1%:minsizz1%=sizz1%
14900REM sizz2%=HIMEM-END:IFsizz2%<minsizz2%:minsizz2%=sizz2%
14910REM sizz3%=END-LOMEM:IFsizz3%<minsizz3%:minsizz3%=sizz3%
14920 WHEN 1: PROCredraw(!eb%)
14930 WHEN 2: PROCopenwind(blk%)
14940 WHEN 3: PROCclosewinds(blk%)
14950 WHEN 6: PROCclick(eb%!0,eb%!4,eb%!8,eb%!12,eb%!16)
14960 WHEN 9: PROCmenuselect
14970 WHEN 17,18: PROCreceive
14980ENDCASE
14990ENDPROC
15000
15010DEFPROCreceive
15020CASE eb%!16 OF
15030 WHEN 0: quit% = TRUE
15040 WHEN 9: PROCmodechange:SYS"Wimp_ForceRedraw",-1,0,0,xmaxec%,ymaxec%
15050 WHEN &400C1: PROCmodechange
15060ENDCASE
15070ENDPROC
15080
15090DEFPROCredraw(w%)
15100CASE w% OF
15110REM WHEN systw%: PROCredrawsystw
15120REM WHEN bodyw%: PROCredrawbodyw
15130 WHEN animw%,anmew%: PROCredrawanimw
15140REM WHEN pinoutlw%: PROCredrawpinoutlw
15150 OTHERWISE : PROCredrawother
15160ENDCASE
15170ENDPROC
15180
15190DEFPROCredrawother
15200SYS "Wimp_RedrawWindow",,blk% TO more%
15210WHILE more%
15220SYS "Wimp_GetRectangle",,blk% TO more%:
15230ENDWHILE
15240ENDPROC
15250
15260DEFPROCredrawanimw
15270SYS "Wimp_RedrawWindow",,blk% TO more%
15280spx%=blk%!4-blk%!20+16:spy%=(blk%!16-blk%!24)-76-644
15290WHILE more%
15300SYS "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
15310SYS "Wimp_GetRectangle",,blk% TO more%:
15320ENDWHILE
15330ENDPROC
15340
15350DEFPROCaddanmewlines(am%)
15360LOCAL k%
15370SYS"OS_SpriteOp",&13C,animarea%,"anim",0
15380lin$=anmewlines$(am%-1):nolines%=VAL(lin$)
15390lin$=RIGHT$(lin$,LEN(lin$)-3)
15400IFnolines%>0THEN
15410 FORk%=1TOnolines%
15420 SYS"Wimp_SetColour",VAL(lin$)
15430 VDU25,4,VAL(MID$(lin$,4,3));VAL(MID$(lin$,8,3));:VDU25,5,VAL(MID$(lin$,12,3));VAL(MID$(lin$,16,3));
15440 VDU25,4,VAL(MID$(lin$,4,3))+2;VAL(MID$(lin$,8,3));:VDU25,5,VAL(MID$(lin$,12,3))+2;VAL(MID$(lin$,16,3));
15450 lin$=RIGHT$(lin$,LEN(lin$)-19)
15460 NEXT
15470 IFam%=5 THEN
15480 lin$=anmewlines$(5):nolines%=VAL(lin$)
15490 lin$=RIGHT$(lin$,LEN(lin$)-3)
15500 FORk%=1TOnolines%
15510 SYS"Wimp_SetColour",VAL(lin$)
15520 VDU25,4,VAL(MID$(lin$,4,3));VAL(MID$(lin$,8,3));:VDU25,5,VAL(MID$(lin$,12,3));VAL(MID$(lin$,16,3));
15530 VDU25,4,VAL(MID$(lin$,4,3))+2;VAL(MID$(lin$,8,3));:VDU25,5,VAL(MID$(lin$,12,3))+2;VAL(MID$(lin$,16,3));
15540 lin$=RIGHT$(lin$,LEN(lin$)-19)
15550 NEXT
15560 ENDIF
15570ENDIF
15580SYS"OS_SpriteOp",&13C,animarea%,0,1
15590ENDPROC
15600
15610DEFPROCcl_anim(D%)
15620SYS "OS_SpriteOp",&118,animarea%,"anim" TO ,,A%:A%+=A%!32
15630REMSYS "OS_SpriteOp",&128,animarea%,"anim" TO ,,,B%,C%:B%=B%/2
15640FORs%=2TO4:D%=D%OR(D%<<(2^s%)):NEXT
15650CALL animcl%
15660ENDPROC
15670
15680DEFPROCdullanim(D%)
15690SYS "OS_SpriteOp",&118,animarea%,"anim" TO ,,A%:A%+=A%!32
15700CALL animdull%
15710ENDPROC
15720
15730DEFPROCaddtext(aa%)
15740!blk2%=animw%:SYS"Wimp_GetWindowState",,blk2%:windpos%=blk2%!28
15750!blk2%=animw%:PROCclosewind(blk2%)
15760!blk2%=0:blk2%!4=-976:blk2%!8=842:blk2%!12=0:SYS"Wimp_SetExtent",animw%,blk2%
15770PROChideicn(animw%,9,FALSE):PROChideicn(animw%,10,FALSE)
15780IFNOTdoingmove%THEN
15790 CASE aa% OF
15800 WHEN 14:SYS"OS_SpriteOp",&13C,animarea%,"anim",0:SYS"OS_SpriteOp",&122,detarea%,"grfl",94,56,8:SYS"Wimp_SetColour",7:PROCbox(416,188,16,16):SYS"OS_SpriteOp",&13C,animarea%,0,1
15810 WHEN 22:SYS"OS_SpriteOp",&13C,animarea%,"anim",0:SYS"OS_SpriteOp",&122,detarea%,"dsbox",100,116,8:SYS"OS_SpriteOp",&122,detarea%,"ds2",144,168,8:SYS"Wimp_SetColour",7:PROCbox(668,276,16,16):SYS"OS_SpriteOp",&13C,animarea%,0,1
15820 WHEN 23:SYS"OS_SpriteOp",&13C,animarea%,"anim",0:
15830 SYS"OS_SpriteOp",&122,detarea%,"cherry",116,388,8:SYS"OS_SpriteOp",&122,detarea%,"hooks",500,204,8:SYS"Wimp_SetColour",7:PROCbox(216,576,16,16):PROCbox(626,444,16,16)
15840 SYS"OS_SpriteOp",&13C,animarea%,0,1
15850 ENDCASE
15860 PROCaddlines(aa%,0):PROCplotanim(aa%):PROCaddlabels(aa%):PROCaddwords(aa%)
15870ELSE
15880 PROCputicnstring(animw%,9,""):PROCputicnstring(animw%,10,"")
15890ENDIF
15900!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
15910IFblk%!16<976 blk%!16=976:blk%!8=0:ELSE:blk%!8=blk%!16-976
15920blk%!24=0:blk%!28=windpos%
15930PROCopenwind(blk%)
15940ENDPROC
15950
15960DEFPROCaddlines(aa%,fromsaveprint%)
15970SYS"OS_SpriteOp",&13C,animarea%,"anim",0
15980CASE aa% OF
15990 WHEN 10:SYS"Wimp_SetColour",0
16000 OTHERWISE:SYS"Wimp_SetColour",7
16010ENDCASE
16020REMIFNOTfromsaveprint%THEN
16030REM IF((activeicn%=4)AND(activew%=1))OR((activeicn%=17)AND(activew%>0)):SYS"Wimp_SetColour",0
16040REM 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
16050REMENDIF
16060lin$=lines$(simp%):nolines%=VAL(lin$)
16070lin$=RIGHT$(lin$,LEN(lin$)-3)
16080IFnolines%>0THEN
16090 FORk%=1TOnolines%
16100 VDU25,4,VAL(MID$(lin$,1,3));VAL(MID$(lin$,5,3));:VDU25,5,VAL(MID$(lin$,9,3));VAL(MID$(lin$,13,3));
16110 VDU25,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));
16120 lin$=RIGHT$(lin$,LEN(lin$)-16)
16130 NEXT
16140ENDIF
16150CASE aa% OF
16160 WHEN 3: PROCbox(4,272,158,280)
16170 VDU25,4,550;272;:VDU25,101,552;346;
16180 VDU25,4,658;452;:VDU25,101,802;454;
16190 VDU25,4,800;454;:VDU25,101,802;272;
16200 VDU25,4,802;274;:VDU25,101,550;272;
16210 VDU25,4,550;344;:VDU25,5,658;452;
16220 VDU25,4,552;344;:VDU25,5,660;452;
16230 WHEN 26: PROCbox(550,268,256,288)
16240ENDCASE
16250SYS"OS_SpriteOp",&13C,animarea%,0,1
16260ENDPROC
16270
16280DEFPROCaddlabels(aa%)
16290LOCAL k%
16300IFnolabs%(aa%,simp%)>0THEN
16310 FORk%=1TOnolabs%(aa%,simp%)
16320 PROCputicnstring(animw%,VAL(words$(simp%,k%,0)),words$(simp%,k%,1)):PROChideicn(animw%,VAL(words$(simp%,k%,0)),FALSE)
16330 NEXT
16340ENDIF
16350ENDPROC
16360
16370DEFPROCaddwords(aa%)
16380IFacttxticn%=0THEN
16390 titl$=words$(simp%,0,1):IFwords$(simp%,0,2)<>"":titl$+=" ":titl$+=words$(simp%,0,2)
16400 PROCputicnstring(animw%,9,titl$):PROCputicnstring(animw%,10,words$(simp%,0,3))
16410 ENDPROC
16420ENDIF
16430IFnolabs%(aa%,simp%)>0THEN
16440 FORk%=1TOnolabs%(aa%,simp%)
16450 IFVAL(words$(simp%,k%,0))=acttxticn% THEN
16460 titl$=words$(simp%,k%,1)
16470 IF(ASC(titl$)>&60)AND(ASC(titl$)<&7B):LEFT$(titl$,1)=CHR$(ASC(titl$)-&20)
16480 IF(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)
16490 IF(acttxticn%<>18)OR(aa%<>25):titl$+=" "
16500 titl$+=words$(simp%,k%,2)
16510 PROCputicnstring(animw%,9,titl$):PROCputicnstring(animw%,10,words$(simp%,k%,3))
16520 ENDIF
16530 NEXT
16540ENDIF
16550ENDPROC
16560
16570DEFPROCremovetext(aa%)
16580!blk2%=animw%:SYS"Wimp_GetWindowState",,blk2%:windpos%=blk2%!28
16590!blk2%=animw%:PROCclosewind(blk2%)
16600IFdoingmove%:blk2%!4=-784:ELSE:blk2%!4=-732
16610!blk2%=0:blk2%!8=842:blk2%!12=0:SYS"Wimp_SetExtent",animw%,blk2%
16620IFNOTdoingmove%THEN
16630 PROCremovelabels(aa%)
16640 PROCplotanim(aa%)
16650ENDIF
16660!blk%=animw%:SYS"Wimp_GetWindowState",,blk%
16670IFdoingmove%:blk%!8=blk%!16-784:ELSE:blk%!8=blk%!16-732
16680blk%!28=windpos%
16690PROCopenwind(blk%)
16700ENDPROC
16710
16720DEFPROCremovelabels(aa%)
16730IFnolabs%(aa%,simp%)>0THEN
16740 FORk%=1TOnolabs%(aa%,simp%):PROChideicn(animw%,VAL(words$(simp%,k%,0)),TRUE):PROCselecticn(animw%,VAL(words$(simp%,k%,0)),FALSE):NEXT
16750ENDIF
16760IFNOTdoingmove%:PROCmakeanim(actmenu%,aa%,bg%(aa%))
16770ENDPROC
16780
16790DEFPROCgetwordfile(aa%)
16800LOCAL t%,s%,u%,a$,b$
16810wfile$="<PlantWise$chaindir>.wordfiles.words"+STR$(aa%)
16820X=OPENIN wfile$
16830FORs%=0TO1:FORt%=0TOnolabs%(aa%,s%):FORu%=0TO3
16840INPUT#X, words$(s%,t%,u%)
16850NEXT:NEXT:NEXT
16860IFnostops%(aa%)>0THEN
16870 FORs%=0TO1:FORt%=0TOnostops%(aa%)-1
16880 INPUT#X, animwords$(s%,t%)
16890 NEXT:NEXT
16900ENDIF
16910CASE aa% OF
16920 WHEN 5:FORs%=0TO27
16930 INPUT#X, animsp$(s%)
16940 INPUT#X, a$
16950 INPUT#X, b$
16960 animsp%(s%,0)=VAL(a$):animsp%(s%,1)=VAL(b$)
16970 NEXT
16980ENDCASE
16990CLOSE#X
17000ENDPROC
17010
17020DEFPROCgetnumbfile(aa%)
17030LOCAL t%,s%
17040nfile$="<PlantWise$chaindir>.numbfiles.numbs"+STR$(aa%)
17050X=OPENIN nfile$
17060FORt%=0TO1
17070INPUT#X, lines$(t%)
17080NEXT
17090CLOSE#X
17100ENDPROC
17110
17120DEFPROCfloppy_disk(diskn$,sprpath$)
17130LOCAL g%
17140g%=0
17150REMh%=0:m%=0
17160LOCALERROR
17170ONERRORLOCAL:RESTORE ERROR:error%=1:test%=1:ENDPROC
17180REPEAT
17190 error%=0
17200REMno_h%=0:no_m%=0
17210 IFtest%=1 THEN
17220 PROCdiscmess("Please place the "+diskn$+" disc in drive 0",0)
17230 ENDIF
17240 *ADFS
17250 *MOUNT 0
17260 SYS"OS_GBPB",5,,input_disk_name%
17270 len_d_n%=?input_disk_name%:name$=""
17280 FORdn%=1TOlen_d_n%
17290 IF?(input_disk_name%+dn%)>31:name$=name$+CHR$(?(input_disk_name%+dn%))
17300 NEXT
17310 IFname$<>diskn$:error%=1
17320 test%=1
17330 OSCLI"SET PlantWise$chaindir $.!Plantwise"
17340 SYS "XOS_Find",&40,sprpath$ TO g%
17350REM IFworpath$<>"":SYS "XOS_Find",&40,worpath$ TO h%:ELSE:no_h%=-1
17360REM IFnumpath$<>"":SYS "XOS_Find",&40,numpath$ TO m%:ELSE:no_m%=-1
17370UNTILg%AND(error%=0):CLOSE#g%
17380REMUNTILg%AND(h%ORno_h%)AND(m%ORno_m%)AND(error%=0):CLOSE#g%
17390REMIFNOTno_h%:CLOSE#h%
17400REMIFNOTno_m%:CLOSE#m%
17410RESTORE ERROR
17420ENDPROC
17430
17440DEFPROCanimate
17450IFfirstmove% THEN
17460 IFtexton% THEN
17470 PROCremovelabels(actanim%):PROCmakeanim(actmenu%,actanim%,0):PROCaddtext(actanim%)
17480 ELSE
17490 !blk2%=animw%:PROCclosewind(blk2%)
17500 !blk2%=0:blk2%!4=-784:blk2%!8=842:blk2%!12=0:SYS"Wimp_SetExtent",animw%,blk2%
17510 PROCputicnstring(animw%,9,"")
17520 !blk%=animw%:SYS"Wimp_GetWindowState",,blk%
17530 IFblk%!16<784 blk%!16=784:blk%!8=0:ELSE:blk%!8=blk%!16-784
17540 PROCopenwind(blk%)
17550 ENDIF
17560 PROChideicn(animw%,11,FALSE):PROCselecticn(animw%,11,FALSE)
17570ENDIF
17580IFNOTFNisselected(animw%,11):PROCmoveanim
17590ENDPROC
17600
17610DEFPROCmoveanim
17620newtext%=0
17630IFtextnewon%:newtext%=-1
17640CASE actanim% OF
17650 WHEN 5: PROCmovephoto
17660 WHEN 6: PROCmoveleafcl
17670 WHEN 8: PROCmovestemcl1
17680 WHEN 9: PROCmovestemcl2
17690 WHEN 10: PROCmoveroot
17700 WHEN 11: PROCmoverootcl
17710 WHEN 12: PROCmovepollin
17720 WHEN 13: PROCmovepollins
17730 WHEN 14: PROCmovepollwind
17740 WHEN 15: PROCmovepollanimal
17750 WHEN 16: PROCmovepollwater
17760 WHEN 17: PROCmovefertil
17770 WHEN 18: PROCmovefruit
17780 WHEN 20: PROCmovedisp
17790 WHEN 21: PROCmovedispexp
17800 WHEN 22: PROCmovedispwind
17810 WHEN 23: PROCmovedispani
17820 WHEN 24: PROCmovedispwat
17830 WHEN 25: PROCmovegerm
17840 WHEN 27: PROCmovedorm
17850 WHEN 28: PROCmovecorm
17860 WHEN 29: PROCmoverunner
17870ENDCASE
17880ENDPROC
17890
17900DEFPROCmoveendloop(nost%,st$,le%,lo%,ri%,hi%)
17910SYS"OS_SpriteOp",&13C,animarea%,0,1
17920elaps%=TIME-elaps%
17930IFtexton%THEN
17940 FORj%=1TOnost%
17950 IFsub%=VAL(st$):PROCselecticn(animw%,11,TRUE)
17960 st$=RIGHT$(st$,LEN(st$)-4)
17970 NEXT
17980ENDIF
17990IFnewtext%ORtextnewoff%:PROCplotanim(actanim%):textnewoff%=0:ELSE:PROCplotanimmove(le%,lo%,ri%,hi%)
18000lasttime%=TIME
18010ENDPROC
18020
18030DEFPROCanimateend
18040PROCselecticn(animw%,2,FALSE):doingmove%=FALSE:PROChideicn(animw%,11,TRUE)
18050IFtexton% THEN
18060 acttxticn%=0:PROCaddtext(actanim%)
18070ELSE
18080 !blk2%=animw%:PROCclosewind(blk2%)
18090 !blk2%=0:blk2%!4=-732:blk2%!8=842:blk2%!12=0:SYS"Wimp_SetExtent",animw%,blk2%
18100 !blk%=animw%:SYS"Wimp_GetWindowState",,blk%
18110 PROCopenwind(blk%)
18120ENDIF
18130ENDPROC
18140
18150DEFPROCclosewinds(b%)
18160SYS "Wimp_GetPointerInfo",,blk2%
18170currclosebut%=blk2%!8
18180PROCclosewind(b%)
18190CASE !b% OF
18200 WHEN menuw%:IFFNisopen(anmew%):PROCclosewind(blk%)
18210 IFFNisopen(animw%):PROCclosewind(blk%)
18220 WHEN anmew%,animw%:!blk%=menuw%:PROCclosewind(blk%)
18230 WHEN findw%:PROCselecticn(menuw%,0,FALSE)
18240 WHEN defnw%:PROCselecticn(wordw%,glossicn%,FALSE):glossicn%=-1:IFNOTFNisopen(wordw%):PROCselecticn(menuw%,3,FALSE)
18250 WHEN wordw%:IFNOTFNisopen(defnw%):PROCselecticn(menuw%,3,FALSE)
18260ENDCASE
18270!blk%=demow%:PROCclosewind(blk%)
18280ENDPROC
18290
18300DEFPROCmc_starts
18310animcl%=!mc%
18320animdull%=mc%!&04
18330ENDPROC
18340
18350DEFFNalreadyrunning
18360LOCAL ERROR
18370ONERRORLOCAL:RESTORE ERROR:=0
18380SYS "OS_ReadVarVal","PlantWise$isrunning",blk%,256,0,0 TO ,,a%
18390a$="":FORA%=0TOa%-1:a$+=CHR$(blk%?A%):NEXT
18400RESTORE ERROR
18410IFa$="1":=-1
18420=0
18430
18440
18450DEFPROChideicn(w%,i%,f%)
18460!blk%=w%:blk%!4=i%:blk%!12=1<<23
18470IFf% blk%!8=1<<23:ELSE:blk%!8=0
18480SYS "Wimp_SetIconState",,blk%
18490ENDPROC
18500
18510DEFPROCshadeicn(w%,i%,f%)
18520!blk%=w%:blk%!4=i%:blk%!12=1<<22
18530IFf% blk%!8=1<<22:ELSE:blk%!8=0
18540SYS "Wimp_SetIconState",,blk%
18550ENDPROC
18560
18570DEFPROCkeyevent
18580REM temp to stop anim bug loops hanging machine
18590REMIF(blk%!24)=13:quit%=-1
18600ENDPROC
18610
18620DEFFNreadsysvar(a$)
18630SYS "OS_ReadVarVal",a$,blk%,256,0,0 TO ,,a%:a$="":FORA%=0TOa%-1:a$+=CHR$(blk%?A%):NEXT
18640=a$
18650
18660DEFFNfiletype(a$)
18670SYS "XOS_File",5,a$ TO a%
18680=a%
18690
18700DEFPROCstringtotxtbuff(s$)
18710$(txtbuff%+begtxt%)=s$
18720begtxt%+=LEN(s$):txtbuff%?begtxt%=10:begtxt%+=1
18730ENDPROC
18740
18750
18760DEFPROCstartdrag(w%,i%,n$)
18770proposedfname$=n$
18780!blk%=w%:blk%!4=i%:SYS "Wimp_GetIconState",,blk%
18790PROCwintoscrn(blk%):blk%!8-=4:blk%!12-=4:blk%!16+=4:blk%!20+=4
18800blk%!4=5:blk%!24=0:blk%!28=0:blk%!32=xmaxec%:blk%!36=ymaxec%:SYS "Wimp_DragBox",,blk%
18810ENDPROC
18820
18830
18840DEFPROCdefnwclick(mx%,my%,b%)
18850IFb%=2:PROCdefnw_menu(mx%,my%):ENDPROC
18860ENDPROC
18870
18880
18890DEFPROCtoggleicnsel(w%,i%)
18900IF FNisselected(w%,i%) PROCselecticn(w%,i%,FALSE):ELSE:PROCselecticn(w%,i%,TRUE)
18910ENDPROC
18920
18930
18940DEFPROCsubmenu(m%,i%,h%)
18950m%+=28+((i%-1)*24)
18960m%!4=h%
18970ENDPROC
18980
18990
19000DEFPROCanimw_menu(mx%,my%)
19010!blk%=saanimw%:SYS "Wimp_DeleteWindow",,blk%
19020SYS "Wimp_CreateWindow",,wptrlist%!52 TO saanimw%
19030!blk%=pranimw%:SYS "Wimp_DeleteWindow",,blk%
19040SYS "Wimp_CreateWindow",,wptrlist%!56 TO pranimw%
19050PROCgetprtitle(pranimwtitle%,pranimwtitlesiz%)
19060PROCsetanimsprname:PROCsetanimtxtname
19070IFNOTdoingmove%THEN
19080 IFFNisselected(animw%,0):PROCchangesaprextent(pranimw%,176):PROCchangesaprextent(saanimw%,292):ELSE:PROCchangesaprextent(pranimw%,124):PROCchangesaprextent(saanimw%,240)
19090ELSE
19100 PROCchangesaprextent(saanimw%,176):PROCchangesaprextent(pranimw%,72)
19110ENDIF
19120IFFNisselected(animw%,0):PROCcreate_menu(menu%,"Plantwise","Save,1Print,7Save text,"):ELSE:PROCcreate_menu(menu%,"Plantwise","Save,1Print,78Save text,")
19130PROCsubmenu(menu%,1,saanimw%):PROCsubmenu(menu%,3,edboxw%):PROCsubmenu(menu%,2,pranimw%)
19140SYS "Wimp_CreateMenu",,menu%,mx%-64,my%
19150currmenu%=-3
19160ENDPROC
19170
19180DEFPROCmaster_menu(title$,m$,x%,y%)
19190PROCcreate_menu(menu%,title$,m$)
19200PROCsubmenu(menu%,1,infow%)
19210SYS "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
19220currmenu%=-1
19230ENDPROC
19240
19250DEFPROCcreate_menu(m%,title$,m$)
19260LOCAL i%,max%
19270$m%=title$
19280m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!20=40:m%!24=0
19290i%=m%+28:max%=LEN(title$)-2
19300REPEAT
19310 a%=INSTR(m$,",")
19320 i$=LEFT$(m$,a%-1):!i%=0
19330 REPEAT:morecodes%=FALSE
19340 IFLEFT$(i$,1)="0" !i%=(!i%)OR%0001:morecodes%=TRUE
19350 IFLEFT$(i$,1)="1" !i%=(!i%)OR%0010:morecodes%=TRUE
19360 IFLEFT$(i$,1)="2" !i%=(!i%)OR%0100:morecodes%=TRUE
19370 IFLEFT$(i$,1)="3" !i%=(!i%)OR%1000:morecodes%=TRUE
19380 IFLEFT$(i$,1)="7" !i%=(!i%)OR%10000000:morecodes%=TRUE
19390 IFLEFT$(i$,1)="8" i%!8=&07400021:i$=RIGHT$(i$,LEN(i$)-1):ELSE:i%!8=&07000021
19400 IF morecodes% i$=RIGHT$(i$,LEN(i$)-1)
19410 UNTIL NOT morecodes%:$(i%+12)=i$
19420 IF (LEN(i$)+1)>max% max%=LEN(i$)+1
19430 i%!4=-1
19440 m$ = MID$(m$,a%+1)
19450 i% = i% + 24
19460UNTIL m$ = ""
19470m%!16 = max%*16
19480ENDPROC
19490
19500DEFPROCmenuselect
19510SYS "Wimp_GetPointerInfo",,blk2%
19520currmenubut%=blk2%!8
19530CASE currmenu% OF
19540 WHEN -1:
19550 CASE !eb% OF
19560 WHEN 0: PROCcheckadjust
19570 WHEN 1: PROCopen_setupw:PROCcheckadjust
19580 WHEN 2: quit%=TRUE
19590 ENDCASE
19600 WHEN -2:
19610 CASE !eb% OF
19620 WHEN 0: PROCcheckadjust
19630 WHEN 1: PROCcheckadjust
19640 ENDCASE
19650 WHEN -3:
19660 CASE !eb% OF
19670 WHEN 0: PROCcheckadjust
19680 WHEN 1: PROCcheckadjust
19690 WHEN 2: PROCcheckadjust
19700 ENDCASE
19710 WHEN -4,-5:
19720 CASE !eb% OF
19730 WHEN 0: PROCcheckadjust
19740 ENDCASE
19750ENDCASE
19760ENDPROC
19770
19780DEFPROCcheckadjust
19790IFcurrmenubut%=1:SYS "Wimp_CreateMenu",,menu%,100,100
19800ENDPROC
19810
19820DEFFNreadvduvar(a%)
19830!blk%=a%:blk%!4=-1:SYS "OS_ReadVduVariables",blk%,blk%
19840=!blk%
19850
19860DEFPROCstartgame
19870PROCopen_menuw(actmenu%,actanim%)
19880ENDPROC
19890
19900DEFPROCflip(fliptype%,spn$)
19910IFfliptype%=1:SYS "OS_SpriteOp",&121,detarea%,spn$
19920IFfliptype%=2:SYS "OS_SpriteOp",&12F,detarea%,spn$
19930IFfliptype%=3:SYS "OS_SpriteOp",&121,detarea%,spn$:SYS "OS_SpriteOp",&12F,detarea%,spn$
19940ENDPROC
*FX220,27
*FX229,1
(7�minsizz1%=100000:minsizz2%=100000:minsizz3%=100000
2
<�sortmemory
FDș "Wimp_Initialise",200,&4B534154,"Plantwise" � wimpver%,taskh%
P� � �alreadyrunning �
Z! �"Set PlantWise$isrunning 1"
d�
nN �error("Plantwise is already running",0):ș "Wimp_CloseDown",,&4B534154:�
x�
�]� �error(�$+" (Internal error code "+Þ+")"+�0,�):È™ "Wimp_CloseDown",taskh%,&4B534154:�
�'�"LOAD <PlantWise$Dir>.code "+�~mc%
��mc_starts
��sortsprites
�+*Set PlantWise$chaindir <PlantWise$Dir>
�3�loadunsquash(menuarea%,33*1024,"spfiles.menu")
��initiallise
��modechange
� �baricon
�7� � �error(�$+" (Internal error code "+Þ+")"+�0,�)
�� �event:� quit%
�(ș "Wimp_CloseDown",taskh%,&4B534154
� �"Set PlantWise$isrunning 0"
*FX229,0
�PRINT QUIT
" *QUIT
,�SYS"OS_Exit",errblk%
6�
@ �STOP
J
T��sortmemory
^!indbase%=&9000:iptr%=indbase%
h'totindsize%=11920:totwinsize%=13520
r0winbase%=indbase%+totindsize%:wptr%=winbase%
|<indstarts%=winbase%+totwinsize%:winstarts%=indstarts%+80
�?mc%=&F400:animarea%=&FC00:menuarea%=&19000:sqbuffer%=&21400
�Adetfile%=&25800:detarea%=&2D000:bgarea%=&4B000:sparea%=&53400
�� blk% 256,errblk% 256
��
�
�(��loadunsquash(area%,areasiz%,file$)
�
� len%
�6�"LOAD <PlantWise$chaindir>."+file$+" "+�~detfile%
�6ș "OS_File",5,"<PlantWise$Dir>."+file$ � ,,,,len%
�G�unsquash(detfile%+20,len%-20,sqbuffer%,17*1024,area%+4,areasiz%-4)
��
�
���sortsprites
!sparea%=6*1024:sparea%!8=16
!È™ "OS_SpriteOp",&109,sparea%
;È™ "OS_SpriteOp",&10A,sparea%,"<PlantWise$Dir>.sprites"
&$!detarea%=120*1024:detarea%!8=16
0"È™ "OS_SpriteOp",&109,detarea%
:%!animarea%=37*1024:animarea%!8=16
D#È™ "OS_SpriteOp",&109,animarea%
N7È™ "OS_SpriteOp",&10F,animarea%,"anim",1,405,161,12
X%!menuarea%=33*1024:menuarea%!8=16
b#È™ "OS_SpriteOp",&109,menuarea%
l!!bgarea%=33*1024:bgarea%!8=16
v!È™ "OS_SpriteOp",&109,bgarea%
�;� scale% 16:!scale%=1:scale%!4=1:scale%!8=1:scale%!12=1
�+� coltrans% 16,sppalet% 128,sysbut$(15)
�� +0
��� &FFFFFF00,&FFFFFF00,&DDDDDD00,&DDDDDD00,&BBBBBB00,&BBBBBB00,&99999900,&99999900,&77777700,&77777700,&55555500,&55555500,&33333300,&33333300,&0,&0
��� &99440000,&99440000,&EEEE00,&EEEE00,&CC0000,&CC0000,&DD00,&DD00,&BBEEEE00,&BBEEEE00,&885500,&885500,&BBFF00,&BBFF00,&FFBB0000,&FFBB0000
�&�k%=0�31:� a%:sppalet%!(4*k%)=a%:�
� �addpalet(animarea%,"anim")
��
�
���addpalet(area%,spn$)
�+ș"OS_SpriteOp",&118,area%,spn$ � ,,r2%
�:f%=(r2%+44):t%=sppalet%:�s%=0�31:!f%=!t%:t%+=4:f%+=4:�
��
��initiallise
G� ibname% 20,menu% 1024,blk2% 256,input_disk_name% 12,txtbuff% 1024
2� pdrect% 16,pdrect2% 16,pdtrans% 16,pdplot% 8
*7� ctrans% 256,paltab% 64,SCALE% 16,inb% 20,outb% 20
4T� wdefn%(48,6),anmewlines$(5),anmewtitle$(5),findaa%(28),bg%(48),animwtitle$(48)
>&maxlabs%=11:maxstops%=13:maxsp%=28
H� lines$(1),nolabs%(48,1),words$(1,maxlabs%,3),animsp$(maxsp%-1),animsp%(maxsp%-1,1),nostops%(48),animwords$(1,maxstops%-1)
Rtotgloss%=26
\� gloss$(totgloss%-1,1)
f!� arrays specific to actanim%
p�� photo$(51),carr%(3,1),root%(5,1),st1%(5,1),st2%(5,1),wood%(10,1),fert%(13,1),fru%(3,5,1),gra$(3),disp1%(9,1),disp2%(7,1),disp3%(2,1),se%(7),sland%(7),cbex%(2),lupex%(1),bean%(12,4,1),syc%(13,1),dand%(6),dse%(7,1),do%(15,2),mlxy%(2,1),coc%(4)
zP� pea%(8),sunf%(8),whe%(8),ger$(8),corm%(6,1),bulb%(5,1),run%(4,1),rhi%(5,1)
�I�DIM menuwtitle%(3,1),menutype%(14),menuwords$(13,5),menuroute%(13,4)
�4!inb%=4:inb%!4=5:inb%!8=11:inb%!12=12:inb%!16=-1
��:quit%=�:winctr%=1
�7ș "Wimp_OpenTemplate",,"<PlantWise$Dir>.Templates"
��load_template("menu")
� �load_template("animate")
� �load_template("animmenu")
� �load_template("fastfind")
� �load_template("worddefn")
� �load_template("whatword")
��load_template("setup")
� �load_template("proginfo")
� �load_template("demosyst")
�load_template("demo1")
È™ "Wimp_CloseTemplate"
4a$=�converttolower(�readsysvar("PlantWise$Dir"))
$)�a$,"adfs::plantwise")<>0 Y%=0 �Y%=1
.1ș "Wimp_CreateWindow",,winstarts%!0 � menuw%
81ș "Wimp_CreateWindow",,winstarts%!4 � animw%
B1ș "Wimp_CreateWindow",,winstarts%!8 � anmew%
L2ș "Wimp_CreateWindow",,winstarts%!12 � findw%
V2ș "Wimp_CreateWindow",,winstarts%!16 � defnw%
`2ș "Wimp_CreateWindow",,winstarts%!20 � wordw%
j3ș "Wimp_CreateWindow",,winstarts%!24 � setupw%
t2ș "Wimp_CreateWindow",,winstarts%!28 � infow%
~2ș "Wimp_CreateWindow",,winstarts%!32 � demow%
�3ș "Wimp_CreateWindow",,winstarts%!36 � demo1w%
�7ș"Sound_Configure",0,0,0,0,0 � r0%,r1%,r2%,r3%,r4%
�0�r0%=1:ș"Sound_Configure",2,r1%,r2%,r3%,r4%
�8�loadunsquash(detarea%,100*1024,"spfiles.animmenu0")
��fill_arrays
�>actmenu%=0:actanim%=-1:wlev%=0:firsttime%=-1:shrunkanme%=0
�Bdoingmove%=0:firstmove%=0:acttxticn%=0:texton%=0:textnewoff%=0
�q�hideicn(findw%,41,�):�hideicn(findw%,59,�):�hideicn(findw%,77,�):�hideicn(findw%,22,�):�hideicn(findw%,89,�)
��initwordw
�;simp%=0:�selecticn(setupw%,2,�):�selecticn(setupw%,3,�)
�,�makeanim(0,-1,0):�setextent(animw%,732)
��
��initwordw
glossicn%=-1:wide%=260+252
I�(totgloss%�2)=0:high%=(totgloss%/2)*56:�:high%=56*(�(totgloss%/2)+1)
(O!blk%=0:blk%!4=-high%:blk%!8=wide%:blk%!12=0:È™"Wimp_SetExtent",wordw%,blk%
2U�j%=0�totgloss%-1:�puticnstring(wordw%,j%,gloss$(j%,0)):�selecticn(wordw%,j%,�):�
<�
Fglossicn%=-1
PV!blk%=0:blk%!4=-(56*totgloss%):blk%!8=252:blk%!12=0:È™"Wimp_SetExtent",wordw%,blk%
ZU�j%=0�totgloss%-1:�puticnstring(wordw%,j%,gloss$(j%,0)):�selecticn(wordw%,j%,�):�
d
n��fill_arrays
x� j%,k%,l%
�� +0
�P� "Plant cells","","Types of flowers","The parts of a flower","Plant leaves"
�i� "Photosynthesis - making food","The leaf in close-up","Plant stems","Non-woody stems","Woody stems"
�i� "Plant roots","A root in close-up","Pollination","Pollination by insects","Pollination by the wind"
�Q� "Pollination by animals","Pollination by water","Fertilization","Fruits",""
�~� "Seed dispersal","'Exploding' fruits","Seed dispersal by the wind","Seed dispersal by animals","Seed dispersal by water"
�b� "Seed germination","Seed structure","Seed dormancy","Corms and bulbs","Runners and rhizomes"
�� "","","","",""
�� "","","","",""
�� "","","","",""
�� "","","",""
� �j%=0�48:� animwtitle$(j%):�
�� +0
.� 5,5,0,0,4,4,9,11,6,6,4,4,9,9,5,5,4,5,7,7
/� 2,2,6,7,2,2,6,6,6,6,4,4,1,1,10,10,4,4,0,0
-� 1,1,4,4,3,3,5,5,1,1,8,8,6,7,5,5,5,5,3,3
"-� 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,)� 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6)�j%=0�48:�k%=0�1:� nolabs%(j%,k%):�:�
@� +0
J� 0,0,0,0,0,6,1,0,2,5
T� 1,4,3,9,2,1,1,4,9,0
^� 1,2,2,5,1,13,0,8,8,5
h� 0,0,0,0,0,0,0,0,0,0
r� 0,0,0,0,0,0,0,0,0
| �j%=0�48:� nostops%(j%):�
�� +0
�� 0,0,4,0,8,0,0,7,0,0
�� 4,0,8,3,7,0,4,0,0,0
�� 8,6,1,7,0,3,0,0,0,3
�� 0,0,0,0,0,0,0,0,0,0
�� 0,0,0,0,0,0,0,0,0
��j%=0�48:� bg%(j%):�
�� +0
�X� 0,2,4,7,10,12,17,20,25,28,29,30,31,32,33,34,35,36,38,39,40,41,42,43,44,45,46,47,48
� �j%=0�28:� findaa%(j%):�
�� +0
�?� "bracts","A modified leaf below or surrounding a flower."
�-� "bur","A spikey ball containing seeds."
J� "cellulose","A tough fibrous substance that makes plant cell walls."
m� "chlorophyll","The green pigment in plants which can trap the energy from sunlight for photosynthesis."
Q� "chloroplast","A tiny structure in plant cells which contains chlorophyll."
&c� "cotyledon","A modified leaf in a seed, often swollen with stored food for the seed to grow."
0@� "dehiscent","Fruits that throw out their seeds (explode)."
:�� "dicotyledon","Flowering plants with two cotyledons (also called dicot). A typical dicot has broad leaves with branching veins and petals and sepals in multiples of 4 or 5."
DB� "epidermis","An outer layer of cells (eg. of leaf or stem)."
NN� "fruit","The ovary or ovaries of a flowering plant after fertilization."
X8� "glucose","A simple sugar made by photosynthesis."
b*� "leaf veins","Tiny tubes in leaves."
l3� "mesophyll","Loosely packed cells in a leaf."
v3� "midrib","The strong central vein of a leaf."
�Z� "mineral salts","Simple chemicals that plants take from the soil to help them live."
��� "monocotyledon","Flowering plants with one cotyledon (also called monocot). A typical monocot has a fibrous root system, narrow leaves with parallel veins and petals and sepals in multiples of 3."
�W� "palisade cells","The layer of leaf cells which carries out most photosynthesis."
�V� "phloem","A network of tubes throughout the plant which carries food and water."
�E� "photosynthesis","The process by which green plants make food."
�3� "samara","A fruit with wings (eg. Sycamore)."
�9� "seed","The fertilized ovule of a flowering plant."
�G� "starch","Plants store sugars in long chains which makes starch."
�0� "stoma","A tiny hole in the leaf surface."
�&� "stomata","More than one stoma."
�!� "sucrose","A simple sugar."
�V� "xylem","A network of tubes throughout the plant which carries water and salts."
�1�j%=0�totgloss%-1:�k%=0�1:� gloss$(j%,k%):�:�
� +0
� "Plantwise"
)� "The structure of flowering plants"
,� "The reproduction of flowering plants"
*)� "What plants need to live and grow"
4� "How plants survive"
>$� "The classification of plants"
H �j%=0�5:� anmewtitle$(j%):�
R� +0
\V� "04,07,440,640,368,604,07,548,448,494,340,07,424,232,360,248,07,460,092,394,092"
f|� "06,07,262,624,342,532,07,564,640,516,604,07,148,444,124,400,07,138,000,122,108,07,426,128,486,104,07,690,000,654,064"
p � "00,"
z0� "02,07,138,000,148,044,07,576,000,526,088"
�|� "06,07,426,624,462,448,07,462,448,608,392,07,462,448,386,344,07,462,448,484,344,07,080,596,104,492,00,082,376,184,332"
��� "07,07,160,000,136,116,07,160,000,094,096,07,440,000,376,040,07,532,100,586,112,07,514,080,544,048,07,752,152,680,092,07,752,152,788,100"
� �j%=0�5:� anmewlines$(j%):�
�� +0
�� STRUCTURE
�� plant cells
�� 0,0,0,0,0,0,0
�� 0,0,0,0,0,0,0
� � flower
�� 0,1,0,0,0,0,0
�� 0,2,0,0,0,0,0
�
� leaf
�� 0,1,1,0,0,0,0
� 1,2,1,0,0,0,0
� 1,1,2,0,0,0,0
� stem
$� 0,1,1,0,0,0,0
.� 1,2,1,0,0,0,0
8� 1,1,2,0,0,0,0
B
� root
L� 1,1,0,0,0,0,0
V� 1,2,0,0,0,0,0
`
j� REPRODUCTION
t� pollination
~� 1,0,0,1,1,1,1
�� 1,0,0,2,1,1,1
�� 1,0,0,1,2,1,1
�� 1,0,0,1,1,2,1
�� 1,0,0,1,1,1,2
�� fertilization
�� 1,1,0,0,0,0,0
�� 1,2,0,0,0,0,0
�� 0,0,0,0,0,0,0
�� seed dispersal
�� 1,0,0,1,1,1,1
�� 1,0,0,2,1,1,1
�� 1,0,0,1,2,1,1
� 1,0,0,1,1,2,1
� 1,0,0,1,1,1,2
� seed germination
� 1,1,1,0,0,0,0
(� 0,2,1,0,0,0,0
2� 1,1,2,0,0,0,0
<� corms & bulbs
F� 1,0,0,0,0,0,0
P� runners and rhizomes
Z� 1,0,0,0,0,0,0
d
n � NEEDS
x� need water
�� 0,0,0,0,0,0,0
�� need light
�� 0,0,0,0,0,0,0
�� need air
�� 0,0,0,0,0,0,0
�� need warmth
�� 0,0,0,0,0,0,0
�� need soil minerals
�� 0,0,0,0,0,0,0
�
�� SURVIVAL
�� daily cycles
�� 0,0,0,0,0,0,0
� seasonal cycles
� 0,0,0,0,0,0,0
� 0,0,0,0,0,0,0
"� protection
,� 0,0,0,0,0,0,0
6� competition
@� 0,0,0,0,0,0,0
J
T� CLASSIFICATION
^� evolution
h� 0,0,0,0,0,0,0
r� flowering plants
|� 0,0,0,0,0,0,0
�� conifers
�� 0,0,0,0,0,0,0
� � ferns
�� 0,0,0,0,0,0,0
� � clubmosses & horsetails
�� 0,0,0,0,0,0,0
�� mosses & liverworts
�� 0,0,0,0,0,0,0
� � fungi
�� 0,0,0,0,0,0,0
� � algae
�� 0,0,0,0,0,0,0
�
� lichens
� 0,0,0,0,0,0,0
(�j%=0�48:�k%=0�6:� wdefn%(j%,k%):�:�
8� data specific to actanim% (usually animation data)
&� +0
0� "02,00,01"
:
� "01,04"
D
� "01,01"
N
� "01,04"
X
� "01,01"
b
� "01,04"
l
� "01,01"
v � stop 6
�*� expand box for 10 so next line is 17
�#� "","","","","","","","","",""
�� "02,05,06"
�
� "01,07"
�
� "01,08"
�
� "01,09"
�
� "01,10"
�
� "01,11"
�
� "01,12"
�
� "01,11"
�
� "01,12"
�
� "01,11"
�
� "01,12"
� "01,11"
� "01,12"
� stop 29
� "03,05,10,13"
*
� "01,14"
4
� "01,13"
>
� "01,14"
H
� "01,13"
R� "02,14,15"
\� "02,13,16"
f� "02,14,17"
p� "02,13,17"
z� "02,14,17"
�� "02,13,17"
�
� stop 40
�� "02,00,03"
�
� "01,18"
�
� "01,19"
�
� "01,20"
�
� stop 44
�
� "01,21"
�
� "01,22"
�
� stop 46
�
� "01,23"
�
� "01,24"
�
� "01,25"
� "01,26"
� "01,27"
�k%=0�51:� photo$(k%):�
$� +0
. � 138,64,122,40,124,20,128,4
8&�j%=0�3:�k%=0�1:� carr%(j%,k%):�:�
B� +0
L1� 214,164,92,56,194,152,214,124,96,12,196,108
V&�j%=0�5:�k%=0�1:� root%(j%,k%):�:�
`� +0
j5� 118,116,220,116,568,116,674,116,598,128,646,128
t%�j%=0�5:�k%=0�1:� st1%(j%,k%):�:�
~� +0
�5� 106,112,234,112,558,112,686,112,590,124,654,124
�%�j%=0�5:�k%=0�1:� st2%(j%,k%):�:�
�� +0
�Z� 232,148,280,192,280,192,280,192,272,180,258,168,244,160,206,150,176,92,148,64,120,36
�'�j%=0�10:�k%=0�1:� wood%(j%,k%):�:�
�� +0
�u� 470,464,456,412,444,364,432,308,426,248,416,196,374,160,314,144,284,144,284,144,284,144,284,144,284,144,284,144
�'�j%=0�13:�k%=0�1:� fert%(j%,k%):�:�
�� +0
�� 54,432,50,500,50,432,36,384,24,352,24,352,582,512,588,512,506,444,418,384,394,348,0,0,134,156,130,168,136,84,134,48,132,28,130,28,680,160,692,180,642,144,570,108,504,80,0,0
�2�j%=0�3:�k%=0�5:�l%=0�1:� fru%(j%,k%,l%):�:�:�
�� +0
+� "4,350,3,700,1,590,4,600,3,520,0,480"
+� "3,430,0,768,2,594,3,680,0,588,1,504"
+� "0,498,1,792,2,594,0,748,1,612,2,508"
+� "3,430,0,768,2,594,3,680,0,588,1,504"
(�j%=0�3:� gra$(j%):�
2� +0
<Q� 216,528,274,632,164,572,44,532,40,552,116,632,268,616,98,616,26,536,206,512
F'�j%=0�9:�k%=0�1:� disp1%(j%,k%):�:�
P� +0
ZE� 574,556,582,520,752,528,516,628,534,620,748,544,690,608,596,508
d'�j%=0�7:�k%=0�1:� disp2%(j%,k%):�:�
n� +0
x � 436,628,456,616,442,612
�'�j%=0�2:�k%=0�1:� disp3%(j%,k%):�:�
�� +0
� � 72,76,36,32,72,96,68,88
��j%=0�7:� sland%(j%):�
�� +0
�� 264,232,240
��j%=0�2:� cbex%(j%):�
�� +0
�
� 460,376
��j%=0�1:� lupex%(j%):�
�� +0
�+� 258,348,198,364,140,324,100,216,82,60
�,� 310,340,372,332,434,248,480,140,536,60
+� 288,328,378,352,532,332,708,284,820,0
*� 240,324,158,336,30,316,-100,0,-100,0
-� 268,304,214,332,162,312,140,244,138,112
"+� 366,356,272,392,158,388,74,340,-100,0
,*� 358,320,264,340,146,304,74,216,32,88
6,� 434,312,406,356,346,340,288,248,254,96
@-� 474,284,466,336,442,352,416,276,404,140
J)� 574,288,662,336,784,348,820,0,820,0
T*� 518,268,562,248,596,196,632,92,820,0
^'� 614,252,734,292,820,0,820,0,820,0
h+� 594,220,648,228,710,192,764,112,820,0
r4�j%=0�12:�k%=0�4:�l%=0�1:� bean%(j%,k%,l%):�:�:�
|� +0
�r� 84,444,126,436,218,396,356,376,490,356,628,324,530,288,418,256,308,232,202,212,80,184,150,156,224,120,318,72
�&�j%=0�13:�k%=0�1:� syc%(j%,k%):�:�
�� +0
� � 538,490,446,338,258,148,80
��j%=0�6:� dand%(j%):�
�� +0
�C� 508,332,462,312,408,284,352,256,300,232,218,184,142,136,62,80
�%�j%=0�7:�k%=0�1:� dse%(j%,k%):�:�
�� +0
�� 0,164,596,1,162,560,1,172,524,1,182,484,1,196,436,2,210,420,3,226,432,3,242,480,3,254,536,3,268,596,3,0,650,4,222,560,4,222,456,4,222,336,4,222,188,5,172,4
�%�j%=0�15:�k%=0�2:� do%(j%,k%):�:�
�� +0
�� 212,4,198,52,170,32
&�j%=0�2:�k%=0�1:� mlxy%(j%,k%):�:�
� +0
� 392,352,300,224,136
&�j%=0�4:� coc%(j%):�
0� +0
:#� 172,172,136,80,68,60,48,40,32
D�j%=0�8:� pea%(j%):�
N� +0
X#� 196,196,152,92,72,56,44,36,28
b�j%=0�8:� sunf%(j%):�
l� +0
v%� 192,188,156,140,112,88,76,72,64
��j%=0�8:� whe%(j%):�
�� +0
�#� "110,pea","332,sun","634,whe"
�#� "070,hyp","348,epi","570,mon"
�#� "060,peb","284,sub","586,whb"
��j%=0�8:� ger$(j%):�
�� +0
�7� 26,180,26,180,46,180,46,180,30,72,148,344,130,344
�&�j%=0�6:�k%=0�1:� corm%(j%,k%):�:�
�� +0
�3� 498,160,498,160,498,160,482,160,438,44,428,44
�&�j%=0�5:�k%=0�1:� bulb%(j%,k%):�:�
�� +0
-� 148,244,234,288,392,212,392,160,372,136
%�j%=0�4:�k%=0�1:� run%(j%,k%):�:�
� +0
0� 362,112,274,112,88,96,0,84,186,184,150,176
*%�j%=0�5:�k%=0�1:� rhi%(j%,k%):�:�
4�
>
H��modechange
R&È™"OS_ReadVduVariables",inb%,outb%
\Nxmaxec%=(((outb%!8)+1)<<(outb%!0))-1:ymaxec%=(((outb%!12)+1)<<(outb%!4))-1
fCÈ™"Wimp_ReadPixTrans",&100,animarea%,"anim",,,,scale%,coltrans%
p�
z
���error(msg$,errno%)
�!!errblk%=99:$(errblk%+4)=msg$
�/ș "Wimp_ReportError",errblk%,0,"Plantwise"
��
�
���discmess(msg$,errno%)
�!!errblk%=99:$(errblk%+4)=msg$
�4ș "Wimp_ReportError",errblk%,%10000,"Plantwise"
��
�
���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%)
$3!blk%=w%:blk%!4=i%:È™ "Wimp_GetIconState",,blk%
.�
8
Bݤisselected(w%,i%)
L�geticonstate(w%,i%)
V =((blk%!24)�(1<<21))=(1<<21)
`
jݤisopen(w%)
t+!blk%=w%:È™ "Wimp_GetWindowState",,blk%
~ =((blk%!32)�(1<<16))=(1<<16)
�
���wintoscrn(b%)
�.!blk2%=!b%:ș "Wimp_GetWindowState",,blk2%
� b%!8+=(blk2%!4)-(blk2%!20)
� b%!12+=(blk2%!16)-(blk2%!24)
� b%!16+=(blk2%!4)-(blk2%!20)
� b%!20+=(blk2%!16)-(blk2%!24)
��
�
�2ݤleaf(f$) I%=�f$:ȕI%>1��f$,I%,1)<>"."I%-=1:�
��f$,I%,1)="."I%+=1
� =�f$,I%)
ݤconverttolower(a$)
� l%,b$,ch%:b$=""
�(a$)>0�
(
�l%=1��a$
2ch%=�(�a$,l%,1))
<!�(ch%>&40)�(ch%<&5B):ch%+=&20
F b$+=�ch%
P�
Z�
d=b$
n
xݤgeticnstring(w%,i%)
�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
�=�readstring(blk%!28)
�
� ��puticnstring(w%,i%,a$)
�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
�$$(blk%!28)=a$:?((blk%!28)+�a$)=0
�3blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%
��
�
�ݤreadstring(p%)
�8�a$:a$="":ȕ (�(a$)<255)�(?p%>31):a$+=�(?p%):p%+=1:�
�=a$
�
��load_template(winname$)
� j%
Ewinstarts%!((winctr%-1)*4)=wptr%:indstarts%!((winctr%-1)*4)=iptr%
"Tș "Wimp_LoadTemplate",,wptr%,iptr%,indbase%+totindsize%,-1,winname$,0 � ,,iptr%
,D�winname$="animate" animwtitle%=wptr%!72:animwtitlesiz%=wptr%+80
6E�winname$="animmenu" anmewtitle%=wptr%!72:anmewtitlesiz%=wptr%+80
@noicns%=wptr%!84
J�j%=0�(noicns%-1)*32�32
T �checkicons
^�
h%�winname$="whatword":�createwordw
r(wptr%+=88+((wptr%!84)*32):winctr%+=1
|�
�
���createwordw
� � ic%,wo%,ico%,row%,col%
� ic%=0
�
�col%=0�1
� �row%=0�12
�. �(ic%<totgloss%)�((col%<>0)�(row%<>0)) �
�@ �wo%=0�7:wptr%!(88+(32*ic%)+(4*wo%))=wptr%!(88+(4*wo%)):�
� ico%=wptr%+(88+(32*ic%))
�C !ico%=(wptr%!88)+(260*col%):ico%!8=(wptr%!(88+8))+(260*col%)
�> �row%>0:ico%!4=!(ico%-32+4)-56:ico%!12=!(ico%-32+12)-56
�7 ico%!20=iptr%:$iptr%="123455678901234":iptr%+=15
� ico%!28=15
�
ic%+=1
�
&�
0 �j%=32�((totgloss%-1)*32)�32
: �checkicons
D�
Nwptr%!84=totgloss%
X�
b
l��checkicons
v+ icnblk%=wptr%+88+j%:icnf%=(icnblk%!16)
�� � �indirected(icnf%)���sprite(icnf%)��text(icnf%)�(icnblk%!24<>-1) �:秤readstring(icnblk%!24),"b0")<>0 icnf%=icnf%�&FFFF0FFF
�O � ��indirected(icnf%)���sprite(icnf%)��text(icnf%) �:icnf%=icnf%�&FFFF3FFF
�8 � �indirected(icnf%)��sprite(icnf%)���text(icnf%) �
� �winname$="menu"�
�= icnblk%!24=menuarea%:icnf%=(icnf%�&FFFF0FFF)�&00003000
� �
�4 �(winname$="proginfo")�(winname$="fastfind")�
�< icnblk%!24=sparea%:icnf%=(icnf%�&FFFF0FFF)�&00003000
� �
�= icnblk%!24=detarea%:icnf%=(icnf%�&FFFF0FFF)�&00003000
� �
� �
� �
7 � �indirected(icnf%)��sprite(icnf%)��text(icnf%) �
S �(winname$="animmenu")�(winname$="animate"):icnf%=(icnf%�&FFFF0FFF)�&00003000
T �(winname$="fastfind")�(winname$="whatword"):icnf%=(icnf%�&FFFF0FFF)�&00003000
�
*6� IF NOTFNindirected(icnf%)ANDFNsprite(icnf%) THEN
4%� sprn$=FNreadstring(icnblk%+20)
>1� SYS "XWimp_SpriteOp",40,,sprn$ TO ,,,w%,h%
H�� IF(w%ORh%)=0:icnf%=icnf%OR256:$iptr%=sprn$:?(iptr%+(LENsprn$))=0:icnblk%!20=iptr%:icnblk%!24=sparea%:icnblk%!28=LENsprn$:iptr%+=LEN(sprn$)+1
R � ENDIF
\ icnblk%!16=icnf%
f�
p
zݤindirected(f%)
�=((f%�256)=256)
�
�ݤsprite(f%)
�=((f%�2)=2)
�
�ݤtext(f%)
�=((f%�1)=1)
�
�
��baricon
�$ibname%="frame1"
�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%
�
��makemenusprites(m%)
$#È™ "OS_SpriteOp",&109,menuarea%
.X�unsquash(menufile%(m%,0),menufile%(m%,1),sqbuffer%,17*1024,menuarea%+4,(27*1024)-4)
8�
B
L=��unsquash(inptr%,insiz%,bufptr%,bufsiz%,outptr%,outsiz%)
VC� first call with input size to see how big workspace should be
`8�SYS "Squash_Decompress",%1000,insiz%,0,0,0,0 TO r0%
j+�IFr0%<=bufsiz%:fast%=%100:ELSE:fast%=0
t�someleft%=insiz%
~
� done%=0
�'�r2%=inptr%:r4%=outptr%:r5%=outsiz%
��WHILE someleft%
�_ș "Squash_Decompress",%100,bufptr%,inptr%,insiz%,outptr%,outsiz% � r0%,r1%,r2%,r3%,r4%,r5%
�_�r0%=1:�error("Squash_Decompress ran out of input data",0):ș "Wimp_CloseDown",,&4B534154:�
�a�r0%=2:�error("Squash_Decompress ran out of output space",0):ș "Wimp_CloseDown",,&4B534154:�
�g�PROCerror(STR$~(r0%)+" "+STR$~(r1%)+" "+STR$~(r2%)+" "+STR$~(r3%)+" "+STR$~(r4%)+" "+STR$~(r5%),0)
�
�ENDWHILE
��
�
���open_menuw(am%,aa%)
�� j%
�%�isopen(menuw%):�closewind(blk%)
�am%>0�
�j%=6�18�3
G �am%=((j%/3)-1):�selecticn(menuw%,j%,�):�:�selecticn(menuw%,j%,�)
�
(�
2/!blk%=menuw%:È™ "Wimp_GetWindowState",,blk%
<�firsttime%�
F8 �xmaxec%>1280:blk%!4=�((xmaxec%-1280)/2):�:blk%!4=0
P8 �ymaxec%>1024:blk%!8=�((ymaxec%-1024)/2):�:blk%!8=0
ZC blk%!12=(blk%!4)+352:blk%!16=(blk%!8)+1024:blk%!20=0:blk%!24=0
d�
n!blk%=menuw%:blk%!28=-1
x�openwind(blk%)
��open_animw(am%,aa%)
��
�
���open_findw
�� j%
�'�j%=35�88:�selecticn(findw%,j%,�):�
�findicn%=0
�U�(actmenu%>0)�(actanim%=-1):�selecticn(findw%,34+actmenu%,�):findicn%=34+actmenu%
�F�actanim%>=0:�selecticn(findw%,40+actanim%,�):findicn%=40+actanim%
�/!blk%=findw%:ș "Wimp_GetWindowState",,blk%
�7�xmaxec%>1280:blk%!4=�((xmaxec%-1280)/2):�:blk%!4=0
�5�ymaxec%>960:blk%!8=�((ymaxec%-960)/2):�:blk%!8=0
�Bblk%!12=(blk%!4)+1280:blk%!16=(blk%!8)+960:blk%!20=0:blk%!24=0
blk%!28=-1:�openwind(blk%)
�
"��open_mess(m$)
, �puticnstring(demow%,0,m$)
61!blk2%=anmew%:È™ "Wimp_GetWindowState",,blk2%
@'blk%!4=blk2%!4:blk%!12=(blk%!4)+882
J3�(blk2%!8)<132:blk%!16=132:�:blk%!16=blk2%!8-44
Tblk%!8=(blk%!16)-132
^/!blk%=demow%:blk%!20=0:blk%!24=0:blk%!28=-1
h�openwind(blk%)
r�
|
���open_messff
�o�puticnstring(demow%,0,"Only topics with an orange background are available in this demonstration system.")
�1!blk2%=findw%:ș "Wimp_GetWindowState",,blk2%
�-blk%!4=(blk2%!4)+200:blk%!12=(blk%!4)+882
�5�(blk2%!8)<132:blk%!16=132:�:blk%!16=(blk2%!8)-44
�blk%!8=(blk%!16)-132
�/!blk%=demow%:blk%!20=0:blk%!24=0:blk%!28=-1
��openwind(blk%)
��
�
���open_messww
�L�puticnstring(demow%,0,"This is only a part of the What Word facility.")
�1!blk2%=wordw%:ș "Wimp_GetWindowState",,blk2%
.�blk%!4=(blk2%!4)+200:blk%!12=(blk%!4)+882
5�xmaxec%>882:blk%!4=�((xmaxec%-882)/2):�:blk%!4=0
blk%!12=(blk%!4)+882
&5�(blk2%!8)<132:blk%!16=132:�:blk%!16=(blk2%!8)-44
0blk%!8=(blk%!16)-132
:/!blk%=demow%:blk%!20=0:blk%!24=0:blk%!28=-1
D�openwind(blk%)
N�
X
b��open_mess1
l0!blk%=demo1w%:È™ "Wimp_GetWindowState",,blk%
v7�xmaxec%>1040:blk%!4=�((xmaxec%-1040)/2):�:blk%!4=0
�5�ymaxec%>740:blk%!8=�((ymaxec%-740)/2):�:blk%!8=0
�Bblk%!12=(blk%!4)+1040:blk%!16=(blk%!8)+740:blk%!20=0:blk%!24=0
� blk%!28=-1:�openwind(blk%)
��
�
���open_wordw
�� j%
�/�j%=0�totgloss%-1:�selecticn(wordw%,j%,�):�
�/!blk%=wordw%:ș "Wimp_GetWindowState",,blk%
�9�xmaxec%>wide%:blk%!4=�((xmaxec%-wide%)/2):�:blk%!4=0
�9�ymaxec%>high%:blk%!8=�((ymaxec%-high%)/2):�:blk%!8=0
�Eblk%!12=(blk%!4)+wide%:blk%!16=(blk%!8)+high%:blk%!20=0:blk%!24=0
� blk%!28=-1:�openwind(blk%)
�
��open_defnw(i%)
� j%
*M�puticnstring(defnw%,0,gloss$(i%,0)):�puticnstring(defnw%,1,gloss$(i%,1))
4笤isopen(defnw%)�
>0 !blk%=defnw%:È™ "Wimp_GetWindowState",,blk%
H6 �xmaxec%>842:blk%!4=�((xmaxec%-842)/2):�:blk%!4=0
R6 �ymaxec%>244:blk%!8=�((ymaxec%-244)/2):�:blk%!8=0
\B blk%!12=(blk%!4)+842:blk%!16=(blk%!8)+244:blk%!20=0:blk%!24=0
f blk%!28=-1:�openwind(blk%)
p�
z�
�
���open_animw(am%,aa%)
�� j%,detsiz%,k%
��firsttime%�
� firsttime%=0
�. !blk%=anmew%:ș "Wimp_DeleteWindow",,blk%
� !((winstarts%!8)+52)=-56
�2 ș "Wimp_CreateWindow",,winstarts%!8 � anmew%
� �initanmewlabs(0)
�D !anmewtitlesiz%=�(anmewtitle$(0))+1:$anmewtitle%=anmewtitle$(0)
�0 !blk%=anmew%:ș "Wimp_GetWindowState",,blk%
�> �xmaxec%>1280:blk%!4=�((xmaxec%-1280)/2)+396:�:blk%!4=396
�8 �ymaxec%>1024:blk%!8=�((ymaxec%-1024)/2):�:blk%!8=0
C blk%!12=(blk%!4)+842:blk%!16=(blk%!8)+1024:blk%!20=0:blk%!24=0
blk%!28=-1:�openwind(blk%)
actmenu%=am%:actanim%=aa%
$ �
.�
8%�isopen(animw%):�closewind(blk%)
B%�isopen(anmew%):�closewind(blk%)
L
�am%<>0 �
V �shrunkanme%�
`? �am%>0:�resizeanmew:�setextent(anmew%,800):shrunkanme%=-1
j �
t�
~ �aa%=-1�
� �initanmewlabs(am%)
�H !anmewtitlesiz%=�(anmewtitle$(am%))+1:$anmewtitle%=anmewtitle$(am%)
�, *Set PlantWise$chaindir <PlantWise$Dir>
�V �Y%=0:test%=0:�:�floppy_disk("Plantwise","$.!Plantwise.spfiles.anim20"):�error%=0
�` �(actmenu%<>am%)�(actanim%<>aa%):�loadunsquash(detarea%,100*1024,"spfiles.animmenu"+�(am%))
�4 �makeanim(am%,aa%,0):�am%>0:�addanmewlines(am%)
��
� �initanimw(aa%)
�H !animwtitlesiz%=�(animwtitle$(aa%))+1:$animwtitle%=animwtitle$(aa%)
� �actanim%<>aa%�
�- *Set PlantWise$chaindir <PlantWise$Dir>
�W �Y%=0:test%=0:�:�floppy_disk("Plantwise","$.!Plantwise.spfiles.anim20"):�error%=0
�bg%(aa%)�
F !detarea%=120*1024:detarea%!8=16:È™ "OS_SpriteOp",&109,detarea%
B !bgarea%=33*1024:bgarea%!8=16:È™ "OS_SpriteOp",&109,bgarea%
I �getbg(aa%):�loadunsquash(detarea%,120*1024,"spfiles.anim"+�(aa%))
( �specialbg(aa%)
2 �
<F !detarea%=153*1024:detarea%!8=16:È™ "OS_SpriteOp",&109,detarea%
F= �loadunsquash(detarea%,153*1024,"spfiles.anim"+�(aa%))
P �
Z) �getwordfile(aa%):�getnumbfile(aa%)
d �
n �makeanim(am%,aa%,bg%(aa%))
xP �texton%:�removetext(aa%):acttxticn%=0:�selecticn(animw%,1,�):�addtext(aa%)
��
�,�actanim%=-1:!blk%=anmew%:�:!blk%=animw%
� �(actmenu%=0)�(am%<>0) �
�" �j%=4�20�4:blk%!j%=blk2%!j%:�
� blk%!24=(blk2%!24)+56
�K �((blk2%!32)�&40000)=&40000:blk%!12=(blk%!4)+842:blk%!8=(blk%!16)-1024
��
�# ș "Wimp_GetWindowState",,blk%
�J �((blk%!32)�&40000)=&40000:blk%!12=(blk%!4)+842:blk%!8=(blk%!16)-1024
��
�'�aa%=-1:!blk%=anmew%:�:!blk%=animw%
� blk%!28=-1:�openwind(blk%)
� actmenu%=am%:actanim%=aa%
�
��specialbg(aa%)
" Ȏ aa% �
,` � 14: ș"OS_SpriteOp",&13C,bgarea%,"bg7",0:SCALE%!0=12:SCALE%!4=12:SCALE%!8=16:SCALE%!12=16
6o �j%=0�7:ș"OS_SpriteOp",&134,detarea%,"gr"+�(j%�3),420+(j%*50),0,&08,SCALE%,0:�flip(2,"gr"+�(j%�3)):�
@u �flip(2,"gr0"):�flip(2,"gr1"):SCALE%!0=1:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1:ș"OS_SpriteOp",&13C,bgarea%,0,1
J. � 16:ș"OS_SpriteOp",&13C,bgarea%,"bg4",0
TX � j%=0�3:ș"OS_SpriteOp",&122,detarea%,"bg",0+(408*(j%�2)),0+(336*�(j%/2)),8:�
^* È™"OS_SpriteOp",&13C,bgarea%,0,1
h�
r�
|
���open_setupw
�� j%
�!blk%=setupw%
�7�xmaxec%>1104:blk%!4=�((xmaxec%-1104)/2):�:blk%!4=0
�5�ymaxec%>156:blk%!8=�((ymaxec%-156)/2):�:blk%!8=0
�.blk%!12=(blk%!4)+1104:blk%!16=(blk%!8)+156
�"blk%!20=0:blk%!24=0:blk%!28=-1
��openwind(blk%)
��
�
���getbg(aa%)
� Ȏ aa% �
�, � 10:�makebg(aa%,4,-1,332,-1,364,11,13)
* � 12:�makebg(aa%,8,-1,124,0,122,1,13)
( � 14,23:�makebg(aa%,7,-1,0,0,0,0,0)
' � 20:�makebg(aa%,8,0,80,0,78,1,13)
&G � 22:�loadunsquash(detarea%,120*1024,"spfiles.bgs.bg"+�(bg%(aa%)))
0t ș "OS_SpriteOp",&109,bgarea%:ș "OS_SpriteOp",&10F,bgarea%,"bg1",1,405,161,12:�addpalet(bgarea%,"bg1")
:1 È™"OS_SpriteOp",&13C,bgarea%,"bg1",0
D1 �18,0,15:�25,4,0;0;:�25,101,810;644;
N; È™ "OS_SpriteOp",&122,detarea%,"horiz",0,360,8
X3 �18,0,10:�25,4,0;200;:�25,101,810;360;
bQ �23,12,11,10,10,11,11,10,10,11:�18,16,0:�25,4,0;80;:�25,101,810;200;
lO �23,12,11,13,13,11,11,13,13,11:�18,16,0:�25,4,0;0;:�25,101,810;80;
v0 �18,0,7:�25,4,0;80;:�25,101,810;80;
�j ș "OS_SpriteOp",&122,detarea%,"cow",186,220,8:ș "OS_SpriteOp",&122,detarea%,"fence",0,220,8
�l ș "OS_SpriteOp",&122,detarea%,"verge",0,184,8:ș "OS_SpriteOp",&122,detarea%,"verge",404,184,8
�- ș"OS_SpriteOp",&13C,bgarea%,0,1
�� ș "OS_SpriteOp",&119,detarea%,"horiz":ș "OS_SpriteOp",&119,detarea%,"cow":ș "OS_SpriteOp",&119,detarea%,"fence":ș "OS_SpriteOp",&119,detarea%,"verge"
�* � 25:�makebg(aa%,3,0,240,0,298,11,13)
�, � 29:�makebg(aa%,3,-1,188,-1,208,11,13)
�! :�makebg(aa%,0,0,0,0,0,0,0)
��
��
�
�:��makebg(aa%,bgno%,flip%,up%,line%,ecfup%,ecf1%,ecf2%)
�?�loadunsquash(bgarea%,33*1024,"spfiles.bgs.bg"+�(bg%(aa%)))
��bgno%>0 �
!7 �flip%:ș "OS_SpriteOp",&12F,bgarea%,"bg"+�(bgno%)
! , È™"OS_SpriteOp",&13C,animarea%,"anim",0
!5 ș"OS_SpriteOp",&122,bgarea%,"bg"+�(bgno%),0,0,0
! ' È™"OS_SpriteOp",&13C,animarea%,0,1
!*1 ș"OS_SpriteOp",&13C,bgarea%,"bg"+�(bgno%),0
!42 È™"OS_SpriteOp",&122,animarea%,"anim",0,up%,0
!>m �ecfup%>0:�23,12,ecf1%,ecf2%,ecf2%,ecf1%,ecf1%,ecf2%,ecf2%,ecf1%:�18,16,0:�25,4,0;0;:�25,101,810;ecfup%;
!HF �line%:ș"Wimp_SetColour",7:�25,4,0;ecfup%;:�25,101,810;ecfup%+2;
!R% È™"OS_SpriteOp",&13C,bgarea%,0,1
!\�
!f�
!p
!z��makeanim(am%,aa%,bg%)
!� �aa%=-1�
!�! �copysp("men"+�(am%),"anim")
!��
!� �bg%��texton% �
!�! �copysp("bg"+�(bg%),"anim")
!� �
!� �cl_anim(15)
!� Ȏ aa% �
!�$ � 10,16:�copysp("bg4","anim")
!�k � 18:�texton% �:ș"OS_SpriteOp",&13C,animarea%,"anim",0:�fruitbg:ș"OS_SpriteOp",&13C,animarea%,0,1
!� �
!� �
!�, ș"OS_SpriteOp",&13C,animarea%,"anim",0
"
Ȏ aa% �
" � 4: �makeleaf
" � 5: �makephoto
"$ � 6: �makeleafcl
".& � 20: se%()=0:�makedisp(0,se%())
"8 � 21: �makedispexp(0,0)
"B% � 22: �makedispwind(0,0,0,-1,0)
"L$ � 23: �makedispani(0,-1,0,0,0)
"V � 24: �makedispwat
"` �
"j' È™"OS_SpriteOp",&13C,animarea%,0,1
"t�
"~�
"�
"���makeleaf
"��ș"OS_SpriteOp",&122,detarea%,"hww",16,0,8:ș"OS_SpriteOp",&122,detarea%,"ss",276,0,8:ș"OS_SpriteOp",&122,detarea%,"sw",590,0,8
"��
"�
"���makephoto
"�.ș"OS_SpriteOp",&122,detarea%,"phbg",0,0,8
"�^ș"OS_SpriteOp",&122,detarea%,"ar30",0,88,8:ș"OS_SpriteOp",&122,detarea%,"ar20",180,316,8
"�9�simp%=1:ș"OS_SpriteOp",&122,detarea%,"equn",0,492,8
"��
"�
"���makeleafcl
# 0È™"OS_SpriteOp",&122,detarea%,"lecl",58,52,8
#
�
#
#
#(��makedisp(s%,se%())
#2 � j%,k%
#<�ș"OS_SpriteOp",&122,detarea%,"tree",336-(8*s%),536,8:ș"OS_SpriteOp",&122,detarea%,"tree",470+(16*s%),448,8:�flip(2,"tree"):ș"OS_SpriteOp",&122,detarea%,"tree",-16*s%,448,8:�flip(2,"tree")
#FL�texton%:�23,12,1,13,13,1,1,13,13,1:�18,16,0:�25,4,0;0;:�25,101,810;160;
#P �j%=0�9
#Z �j%>=6�
#d[ �se%(j%-6)=0:ș"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-(16*s%),disp1%(j%,1),8
#nY �se%(j%-6)=1:ș"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-16,disp1%(j%,1)-52,8
#xZ �se%(j%-6)=2:ș"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-16,disp1%(j%,1)-156,8
#�Z �se%(j%-6)=3:ș"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-16,disp1%(j%,1)-312,8
#�c �se%(j%-6)>=4:ș"OS_SpriteOp",&122,detarea%,"seed2"+�(j%-5),disp1%(j%,0)-16-20,sland%(j%-6),8
#� �
#�N ș"OS_SpriteOp",&122,detarea%,"seed",disp1%(j%,0)-(16*s%),disp1%(j%,1),8
#� �
#��
#�$�j%=1�4:�flip(2,"seed2"+�(j%)):�
#� �j%=0�7
#� �j%>=5�
#�[ �se%(j%-1)=0:ș"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+(16*s%),disp2%(j%,1),8
#�Y �se%(j%-1)=1:ș"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+16,disp2%(j%,1)-52,8
#�Z �se%(j%-1)=2:ș"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+16,disp2%(j%,1)-156,8
#�Z �se%(j%-1)=3:ș"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+16,disp2%(j%,1)-312,8
$c �se%(j%-1)>=4:ș"OS_SpriteOp",&122,detarea%,"seed2"+�(j%-4),disp2%(j%,0)+16-20,sland%(j%-1),8
$ �
$N È™"OS_SpriteOp",&122,detarea%,"seed",disp2%(j%,0)+(16*s%),disp2%(j%,1),8
$" �
$,�
$6 �j%=0�2
$@ �j%=2�
$JW �se%(7)=0:ș"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-(8*s%),disp3%(j%,1),8
$TU �se%(7)=1:ș"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-8,disp3%(j%,1)-52,8
$^V �se%(7)=2:ș"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-8,disp3%(j%,1)-156,8
$hV �se%(7)=3:ș"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-8,disp3%(j%,1)-312,8
$rU �se%(7)>=4:ș"OS_SpriteOp",&122,detarea%,"seed24",disp3%(j%,0)-8-20,sland%(7),8
$| �
$�M ș"OS_SpriteOp",&122,detarea%,"seed",disp3%(j%,0)-(8*s%),disp3%(j%,1),8
$� �
$��
$�$�j%=1�4:�flip(2,"seed2"+�(j%)):�
$�cș"OS_SpriteOp",&122,detarea%,"seed21",520,24,8:ș"OS_SpriteOp",&122,detarea%,"seed22",352,44,8
$��
$�
$���makedispexp(cb%,lup%)
$�Xș"OS_SpriteOp",&122,detarea%,"cb",4,0,8:ș"OS_SpriteOp",&122,detarea%,"lup",446,0,8
$�ș"OS_SpriteOp",&122,detarea%,"cbex"+�(cb%),cbex%(cb%),140,8:ș"OS_SpriteOp",&122,detarea%,"lupex"+�(lup%),lupex%(lup%),168,8
$��
$�
$�+��makedispwind(fru%,dan%,dax%,ds%,ds2%)
%�texton% �
%I �23,12,11,10,10,11,11,10,10,11:�18,16,0:�25,4,0;80;:�25,101,810;200;
% G �23,12,11,13,13,11,11,13,13,11:�18,16,0:�25,4,0;0;:�25,101,810;80;
%&( �18,0,7:�25,4,0;80;:�25,101,810;80;
%0�
%:�ș"OS_SpriteOp",&122,detarea%,"leaf",0,344,8:ș"OS_SpriteOp",&122,detarea%,"fru",0,468,8:ș"OS_SpriteOp",&122,detarea%,"dan",464,80,8
%D
�dan%>=0�
%N} �dan%<=6:ș"OS_SpriteOp",&122,detarea%,"dan"+�(dan%),dand%(dan%),292,8:�:ș"OS_SpriteOp",&122,detarea%,"dan6",dax%,292,8
%X�
%b
�fru%>=0�
%l� �fru%<=4:ș"OS_SpriteOp",&122,detarea%,"fru"+�(fru%),syc%(fru%,0),syc%(fru%,1),8:�:ș"OS_SpriteOp",&122,detarea%,"fru"+�(((fru%-5)�4)+1),syc%(fru%,0),syc%(fru%,1),8
%v�
%� �ds%>=0�
%�9 SCALE%!0=ds%+1:SCALE%!4=ds%+1:SCALE%!8=8:SCALE%!12=8
%�L ș"OS_SpriteOp",&134,detarea%,"ds",dse%(ds%,0),dse%(ds%,1),&08,SCALE%,0
%�1 SCALE%!0=1:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1
%��
%�5�ds2%:ș"OS_SpriteOp",&122,detarea%,"ds2",32,80,8
%��
%�
%�*��makedispani(dov%,mou%,mox%,ml%,bur%)
%ڈș"OS_SpriteOp",&122,detarea%,"bsw",0,0,8:ș"OS_SpriteOp",&122,detarea%,"burd",452,0,8:ș"OS_SpriteOp",&122,detarea%,"berry",0,544,8
%��mou%>=0 �
%�; ș"OS_SpriteOp",&122,detarea%,"mrun"+�(mou%),mox%,12,8
%�L �bur%=1:ș"OS_SpriteOp",&122,detarea%,"bur",mox%+156+(14*(mou%�2)),88,8
&8 �bur%=2:ș"OS_SpriteOp",&122,detarea%,"bur",214,4,8
& Z �mou%=2:ș"OS_SpriteOp",&122,detarea%,"ml"+�(ml%),mox%+mlxy%(ml%,0),12+mlxy%(ml%,1),8
&�
& _È™"OS_SpriteOp",&122,detarea%,"bswl",328,12,8:È™"OS_SpriteOp",&122,detarea%,"burdl",664,0,8
&*Pș"OS_SpriteOp",&122,detarea%,"dov"+�(do%(dov%,0)),do%(dov%,1),do%(dov%,2),8
&4�
&>
&H��makedispwat
&RC�23,12,15,0,0,15,15,0,0,15:�18,16,0:�25,4,0;0;:�25,101,810;644;
&\�ș"OS_SpriteOp",&122,detarea%,"land",0,0,8:ș"OS_SpriteOp",&122,detarea%,"palm",40,68,8:ș"OS_SpriteOp",&122,detarea%,"coc0",266,392,8
&f�
&p
&z
&� ��checkanimtext(noof%,lin$)
&�(� j%,k%,stops%():� stops%(maxstops%)
&�Gstops%(0)=-1:�j%=1�noof%:stops%(j%)=�(lin$):lin$=�lin$,�(lin$)-4):�
&��textnewon%�
&� �puticnstring(animw%,9,"")
&� �j%=1�noof%
&�` �(sub%>=stops%(j%-1)+1)�(sub%<=stops%(j%)):�puticnstring(animw%,10,animwords$(simp%,j%-1))
&� �
&��
&�textnewon%=0
&��j%=1�noof%
&�f �sub%=stops%(j%-1)+1:�puticnstring(animw%,10,animwords$(simp%,j%-1)):�puticnstring(animw%,9,""):�
&��
'�
'
'��movephoto
'$� lin$,noa%,k%
'.�firstmove%�
'8 sub%=0:firstmove%=�:elaps%=0
'B�
'LX�(sub%<=7)�((sub%>=23)�(sub%<=35))�((sub%>=39)�(sub%<=41))�:�<lasttime%+60-elaps%:�
'V3�(sub%>=8)�(sub%<=17)�:�<lasttime%+20-elaps%:�
'`g�((sub%>=18)�(sub%<=22))�((sub%>=36)�(sub%<=38))�((sub%>=42)�(sub%<=52))�:�<lasttime%+120-elaps%:�
'j�
't elaps%=�
'~8�texton%:�checkanimtext(6,"006,029,040,044,046,051")
'�
�sub%<52�
'�, ș"OS_SpriteOp",&13C,animarea%,"anim",0
'� �(sub%>=7)�(sub%<=17)�
'�\ ș"OS_SpriteOp",&122,detarea%,"phbg",0,0,8:ș"OS_SpriteOp",&122,detarea%,"ar30",0,88,8
'�4 �boxexp(sub%-7,10,188,292,-20,-16,40,32,40,32)
'� �
'� �(sub%<=6)�(sub%>=17)�
'�$ lin$=photo$(sub%):noa%=�(lin$)
'� lin$=�lin$,�(lin$)-3)
'� �k%=1�noa%
'�] ș"OS_SpriteOp",&122,detarea%,animsp$(�(lin$)),animsp%(�(lin$),0),animsp%(�(lin$),1),8
'� lin$=�lin$,�(lin$)-3)
( �
(
�
(; �moveendloop(6,"006,029,040,044,046,051",0,32,604,484)
( �
(( sub%+=1
(2W�sub%=53:�makeanim(actmenu%,actanim%,bg%(actanim%)):�animateend:�plotanim(actanim%)
(<�
(F
(P��moveleafcl
(Z� lin$,noa%,k%
(d�firstmove%�
(n sub%=0:firstmove%=�:elaps%=0
(x�
(�'�sub%=1 �:�<lasttime%+120-elaps%:�
(�2�(sub%>=2)�(sub%<=9)�:�<lasttime%+20-elaps%:�
(�(�sub%>=10 �:�<lasttime%+80-elaps%:�
(��
(� elaps%=�
(�$�texton%:�checkanimtext(1,"015")
(�
�sub%<16�
(� �sub%<=9:�cl_anim(15)
(�, ș"OS_SpriteOp",&13C,animarea%,"anim",0
(�: �sub%<=9:ș"OS_SpriteOp",&122,detarea%,"lecl",58,52,8
(�/ �boxexp(sub%,9,550,128,-20,-4,80,64,40,32)
(� Ȏ sub% �
(�; � 9,15:ș"OS_SpriteOp",&122,detarea%,"st00",402,108,8
)< � 10,14:ș"OS_SpriteOp",&122,detarea%,"st01",442,144,8
)< � 11,13:ș"OS_SpriteOp",&122,detarea%,"st02",442,144,8
)9 � 12:ș"OS_SpriteOp",&122,detarea%,"st03",442,144,8
)" �
),) �moveendloop(1,"015",390,96,792,420)
)6�
)@ sub%+=1
)JW�sub%=17:�makeanim(actmenu%,actanim%,bg%(actanim%)):�animateend:�plotanim(actanim%)
)T�
)^
)h��movedisp
)r�firstmove%�
)|) sub%=0:firstmove%=�:elaps%=0:se%()=0
)��
)� �<lasttime%+30-elaps%:�
)��
)� elaps%=�
)�$�texton%:�checkanimtext(1,"023")
)�
�sub%<24�
)�4 �texton% �:�cl_anim(15):�:�copysp("bg8","anim")
)�, ș"OS_SpriteOp",&13C,animarea%,"anim",0
)� �sub%>=5:se%(0)+=1
)� �sub%>=6:se%(1)+=1
)� �sub%>=8:se%(2)+=1
)� �sub%>=9:se%(3)+=1
)� �sub%>=10:se%(4)+=1
* �sub%>=13:se%(5)+=1
* �sub%>=15:se%(6)+=1
* �sub%>=18:se%(7)+=1
*&E �((sub%+1)�4)=3:�makedisp(1,se%()):�:�makedisp((sub%+1)�4,se%())
*0& �moveendloop(1,"023",0,0,810,644)
*:�
*D sub%+=1
*NW�sub%=25:�makeanim(actmenu%,actanim%,bg%(actanim%)):�animateend:�plotanim(actanim%)
*X�
*b
*l��movedispexp
*v� j%,cb%,lup%
*��firstmove%�
*�! sub%=0:firstmove%=�:elaps%=0
*��
*� �(sub%=8)�(sub%=15) �
*� �<lasttime%+100-elaps%:�
*� �
*� �<lasttime%+30-elaps%:�
*� �
*��
*� elaps%=�
*�(�texton%:�checkanimtext(2,"007,014")
*�
�sub%<15�
*�4 �texton% �:�cl_anim(15):�:�copysp("bg6","anim")
+, È™"OS_SpriteOp",&13C,animarea%,"anim",0
+ �sub%=0:cb%=0
+ �sub%=1:cb%=1
+ �sub%>=2:cb%=2
+* �sub%<=8:lup%=0:�:lup%=1
+4 �makedispexp(cb%,lup%)
+>| �(sub%>=2)�(sub%<=6) �:�j%=0�4:ș"OS_SpriteOp",&122,detarea%,"bean"+�(�(3)-1),bean%(j%,sub%-2,0),bean%(j%,sub%-2,1),8:�
+H~ �(sub%>=9)�(sub%<=13) �:�j%=5�12:ș"OS_SpriteOp",&122,detarea%,"bean"+�(�(3)-1),bean%(j%,sub%-9,0),bean%(j%,sub%-9,1),8:�
+R+ �moveendloop(2,"004,011",0,60,810,440)
+\�
+f sub%+=1
+pW�sub%=16:�makeanim(actmenu%,actanim%,bg%(actanim%)):�animateend:�plotanim(actanim%)
+z�
+�
+���movedispwind
+� � fru%,dan%,dax%,ds%,ds2%
+��firstmove%�
+�! sub%=0:firstmove%=�:elaps%=0
+��
+� �(sub%=13)�(sub%=31) �
+� �<lasttime%+180-elaps%:�
+� �
+� �<lasttime%+30-elaps%:�
+� �
+��
+� elaps%=�
,(�texton%:�checkanimtext(2,"012,030")
,
�sub%<31�
,4 �texton% �:�cl_anim(15):�:�copysp("bg1","anim")
,$, È™"OS_SpriteOp",&13C,animarea%,"anim",0
,.$ �sub%<=12:fru%=sub%+1:�:fru%=-1
,8$ �sub%>=14:dan%=sub%-14:�:dan%=0
,B. �sub%>=21:dax%=20-((sub%-21)*60):�:dax%=0
,L0 �(sub%>=17)�(sub%<=24):ds%=sub%-17:�:ds%=-1
,V �sub%>=25:ds2%=-1:�:ds2%=0
,`+ �makedispwind(fru%,dan%,dax%,ds%,ds2%)
,j_ �sub%<=12:�moveendloop(2,"012,030",54,60,794,564):�:�moveendloop(2,"012,030",0,60,668,508)
,t�
,~ sub%+=1
,�W�sub%=32:�makeanim(actmenu%,actanim%,bg%(actanim%)):�animateend:�plotanim(actanim%)
,��
,�
,���movedispani
,� � dov%,mou%,mox%,ml%,bur%
,��firstmove%�
,�! sub%=0:firstmove%=�:elaps%=0
,��
,�9 �(sub%=13)�(sub%=22)�(sub%=34)�(sub%=44)�(sub%=49) �
,� �<lasttime%+130-elaps%:�
,� �
,� �<lasttime%+30-elaps%:�
- �
-
�
- elaps%=�
- 4�texton%:�checkanimtext(5,"012,021,032,033,048")
-(
�sub%<49�
-24 �texton% �:�cl_anim(15):�:�copysp("bg7","anim")
-<, È™"OS_SpriteOp",&13C,animarea%,"anim",0
-F4 �sub%<=11:mox%=776-(sub%*64):mou%=sub%�2:bur%=1
-P) �sub%=12:mox%=72:mou%=2:ml%=0:bur%=1
-Z@ �(sub%>=13)�(sub%<=19):mox%=72:mou%=2:ml%=2-(sub%�2):bur%=1
-d) �sub%=20:mox%=72:mou%=2:ml%=2:bur%=2
-n) �sub%=21:mox%=72:mou%=2:ml%=0:bur%=2
-xE �(sub%>=22)�(sub%<=32):mox%=72-((sub%-21)*64):mou%=sub%�2:bur%=2
-�# �sub%>=33:mou%=-1:dov%=sub%-33
-�* �makedispani(dov%,mou%,mox%,ml%,bur%)
-�v �sub%<=33:�moveendloop(5,"012,021,032,033,048",0,0,810,176):�:�moveendloop(5,"012,021,032,033,048",140,4,330,644)
-��
-� sub%+=1
-�W�sub%=50:�makeanim(actmenu%,actanim%,bg%(actanim%)):�animateend:�plotanim(actanim%)
-��
-�
-���movedispwat
-��firstmove%�
-�! sub%=0:firstmove%=�:elaps%=0
-��
-� �sub%=65 �
. �<lasttime%+200-elaps%:�
. �
. �<lasttime%+40-elaps%:�
." �
.,�
.6 elaps%=�
.@$�texton%:�checkanimtext(1,"064")
.J
�sub%<65�
.T, È™"OS_SpriteOp",&13C,animarea%,"anim",0
.^D �23,12,15,0,0,15,15,0,0,15:�18,16,0:�25,4,0;0;:�25,101,810;644;
.h) �18,0,15:�25,4,0;0;:�25,101,810;274;
.r �sub%>=33:�flip(2,"land")
.|F �(sub%<=15)�(sub%>=50):ș"OS_SpriteOp",&122,detarea%,"land",0,0,8
.�R �(sub%>=16)�(sub%<=32):ș"OS_SpriteOp",&122,detarea%,"land",-50*(sub%-15),0,8
.�W �(sub%>=33)�(sub%<=49):ș"OS_SpriteOp",&122,detarea%,"land",800-(50*(sub%-33)),0,8
.� �sub%>=33:�flip(2,"land")
.�; �sub%<=15:ș"OS_SpriteOp",&122,detarea%,"palm",40,68,8
.�W �(sub%>=16)�(sub%<=25):ș"OS_SpriteOp",&122,detarea%,"palm",40-(50*(sub%-15)),68,8
.�C �sub%<=4:ș"OS_SpriteOp",&122,detarea%,"coc0",266,coc%(sub%),8
.�P �(sub%>=5)�(sub%<=8):ș"OS_SpriteOp",&122,detarea%,"coc"+�(sub%-4),224,80,8
.�c �(sub%>=9)�(sub%<=15):ș"OS_SpriteOp",&122,detarea%,"coc"+�(5+(sub%�2)),266+(20*(sub%-9)),88,8
.�V �(sub%>=16)�(sub%<=49):ș"OS_SpriteOp",&122,detarea%,"coc"+�(5+(sub%�2)),386,88,8
.�e �(sub%>=50)�(sub%<=60):ș"OS_SpriteOp",&122,detarea%,"coc"+�(5+(sub%�2)),386+(20*(sub%-49)),88,8
.�X �(sub%>=61)�(sub%<=64):ș"OS_SpriteOp",&122,detarea%,"coc7",626+(20*(sub%-61)),88,8
.�3 �sub%<=15:�moveendloop(1,"064",224,80,440,480)
.�= �(sub%>=16)�(sub%<=49):�moveendloop(1,"064",0,0,810,644)
/3 �sub%>=50:�moveendloop(1,"064",380,88,740,140)
/�
/ sub%+=1
/&W�sub%=66:�makeanim(actmenu%,actanim%,bg%(actanim%)):�animateend:�plotanim(actanim%)
/0�
/:
/D
/N>��boxexp(s%,noof%,x%,y%,dx%,dy%,sizx%,sizy%,dsizx%,dsizy%)
/XT� s% goes from 0 to noof%:x,y orig leftbot corner:dx,dy how leftbot corner moves
/b@� sizx,sizy ec size of orig box:dsizx,dsizy incr in box size
/l�s%>noof%:�
/v�s%=noof%�
/�
s%-=1
/� ș"Wimp_SetColour",7
/�l �25,4,x%+(dx%*s%);y%+(dy%*s%);:�25,101,x%+(dx%*s%)+sizx%+(dsizx%*s%)-2;y%+(dy%*s%)+sizy%+(dsizy%*s%)-2;
/� ș"Wimp_SetColour",9
/�p �25,4,x%+(dx%*s%)+4;y%+(dy%*s%)+4;:�25,101,x%+(dx%*s%)+sizx%+(dsizx%*s%)-6;y%+(dy%*s%)+sizy%+(dsizy%*s%)-6;
/� ș"Wimp_SetColour",7
/�r �25,4,x%+(dx%*s%)+8;y%+(dy%*s%)+8;:�25,101,x%+(dx%*s%)+sizx%+(dsizx%*s%)-10;y%+(dy%*s%)+sizy%+(dsizy%*s%)-10;
/�
s%+=1
/��
/��s%<noof%�
/� ș"Wimp_SetColour",9
/�F �box(x%+(dx%*s%),y%+(dy%*s%),sizx%+(dsizx%*s%),sizy%+(dsizy%*s%))
/��
0�
0
0��box(x%,y%,sx%,sy%)
0 '�25,4,x%;y%;:�25,101,x%+2;y%+sy%-2;
0*1�25,4,x%;y%+sy%-4;:�25,101,x%+sx%-2;y%+sy%-2;
041�25,4,x%+sx%-4;y%+sy%-2;:�25,101,x%+sx%-2;y%;
0>'�25,4,x%+sx%-2;y%+2;:�25,101,x%;y%;
0H�
0R
0\��plotanim(aa%)
0f'�aa%=-1:!blk%=anmew%:�:!blk%=animw%
0p!È™"Wimp_GetWindowState",,blk%
0z8spx%=blk%!4-blk%!20+16:spy%=(blk%!16-blk%!24)-76-644
0�0blk%!4=0:blk%!8=-720:blk%!12=830:blk%!16=-72
0�(ș "Wimp_UpdateWindow",,blk% � more%
0� ȕ more%
0�Gș "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
0�(ș "Wimp_GetRectangle",,blk% � more%
0��
0��
0�
0�#��plotanimmove(le%,lo%,ri%,hi%)
0�.!blk%=animw%:ș"Wimp_GetWindowState",,blk%
0�8spx%=blk%!4-blk%!20+16:spy%=(blk%!16-blk%!24)-76-644
0�L!blk%=animw%:blk%!4=16+le%:blk%!8=lo%-720:blk%!12=16+ri%:blk%!16=hi%-720
0�(ș "Wimp_UpdateWindow",,blk% � more%
1 È• more%
1GÈ™ "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
1(ș "Wimp_GetRectangle",,blk% � more%
1$�
1.�
18
1B��copysp(fromsp$,tosp$)
1L�fromsp$="anim" �
1V) fromarea%=animarea%:toarea%=detarea%
1`�
1ja �fromsp$,2)="bg":fromarea%=bgarea%:toarea%=animarea%:�:fromarea%=detarea%:toarea%=animarea%
1t�
1~(È™"OS_SpriteOp",&13C,toarea%,tosp$,0
1�0ș"OS_SpriteOp",&122,fromarea%,fromsp$,0,0,0
1�$ș"OS_SpriteOp",&13C,toarea%,0,1
1��
1�
1���initanmewlabs(m%)
1�� j%
1�5�m%>0:�hideicn(anmew%,0,�):�:�hideicn(anmew%,0,�)
1� Ȏ m% �
1�* � 0: �j%=5�33:�hideicn(anmew%,j%,�):�
1�A � 1: �j%=5�9:�hideicn(anmew%,j%,�):�selecticn(anmew%,j%,�):�
1�. �j%=10�33:�hideicn(anmew%,j%,�):�
1�) � 2: �j%=5�9:�hideicn(anmew%,j%,�):�
2 F �j%=10�15:�hideicn(anmew%,j%,�):�selecticn(anmew%,j%,�):�
2
. �j%=16�33:�hideicn(anmew%,j%,�):�
2* � 3: �j%=5�15:�hideicn(anmew%,j%,�):�
2 F �j%=16�20:�hideicn(anmew%,j%,�):�selecticn(anmew%,j%,�):�
2(. �j%=21�33:�hideicn(anmew%,j%,�):�
22* � 4: �j%=5�20:�hideicn(anmew%,j%,�):�
2<F �j%=21�24:�hideicn(anmew%,j%,�):�selecticn(anmew%,j%,�):�
2F. �j%=25�33:�hideicn(anmew%,j%,�):�
2P* � 5: �j%=5�24:�hideicn(anmew%,j%,�):�
2ZF �j%=25�33:�hideicn(anmew%,j%,�):�selecticn(anmew%,j%,�):�
2d�
2n�
2x
2���setextent(w%,siz%)
2�-!blk%=0:blk%!4=-siz%:blk%!8=842:blk%!12=0
2� ș"Wimp_SetExtent",w%,blk%
2��
2�
2���resizeanmew
2�1!blk2%=anmew%:ș "Wimp_GetWindowState",,blk2%
2�-!blk%=anmew%:ș "Wimp_DeleteWindow",,blk%
2�!((winstarts%!8)+52)=0
2�1ș "Wimp_CreateWindow",,winstarts%!8 � anmew%
2��
2�
2���closewind(b%)
3 È™ "Wimp_CloseWindow",,b%
3�
3
3"��openwind(b%)
3, È™ "Wimp_OpenWindow",,b%
36�
3@
3J ��click(mx%,my%,but%,w%,i%)
3T Ȏ w% �
3^ � -2:
3h Ȏ but% �
3rH � 2: �master_menu("Plantwise","Info,Setup...,7Quit,",!eb%,216)
3|% � 4: �startgame:�open_mess1
3� �
3�' � menuw%: �menuwclick(but%,w%,i%)
3�' � anmew%: �anmewclick(but%,w%,i%)
3�, � animw%: �animwclick(mx%,my%,but%,i%)
3�, � findw%: �findwclick(mx%,my%,but%,i%)
3�, � defnw%: �defnwclick(mx%,my%,but%,i%)
3�, � wordw%: �wordwclick(mx%,my%,but%,i%)
3�& � setupw%: �setupwclick(but%,i%)
3��
3��
3�
3���menuwclick(b%,w%,i%)
3� � j%,k%
4 �b%=2:�
4 �i%=-1:�
4 !!blk%=demow%:�closewind(blk%)
4&�i%<6:�checkindex(i%):�
40j%=�(i%/3)-1
4:�k%=6�18�3
4D; �k%=3+(3*j%):�selecticn(w%,k%,�):�:�selecticn(w%,k%,�)
4N�
4X�open_animw(j%,-1)
4bJ�j%=1:�open_mess("Only 'leaf' is available in the Structure section.")
4lW�j%=2:�open_mess("Only 'seed dispersal' is available in the Reproduction section.")
4v`�j%=3:�open_mess("None of the What Plants Need section is available in this demonstration.")
4�X�j%=4:�open_mess("None of the Survival section is available in this demonstration.")
4�^�j%=5:�open_mess("None of the Classification section is available in this demonstration.")
4��
4�
4���checkindex(i%)
4�
�i%<3�
4� �toggleicnsel(menuw%,0)
4� �isselected(menuw%,0)�
4� �open_findw:�open_messff
4� �
4�$ !blk%=findw%:�closewinds(blk%)
4� �
4��
5 �toggleicnsel(menuw%,3)
5 �isselected(menuw%,3)�
5 �open_wordw:�open_messww
5 �
5*A !blk%=defnw%:�closewind(blk%):!blk%=wordw%:�closewind(blk%)
54 �
5>�
5H�
5R
5\��anmewclick(b%,w%,i%)
5f � j%,k%
5p+�IFb%=2:PROCanmew_menu(mx%,my%):ENDPROC
5z!!blk%=demow%:�closewind(blk%)
5��(i%=7)�(i%=12) �
5� �killtext
5� �toggleicnsel(anmew%,i%)
5�6 wlev%=0:�open_animw(actmenu%,wlev%+findaa%(i%-5))
5��
5�V �(i%>=5)�(i%<=9):�open_mess("Only 'leaf' is available in the Structure section.")
5�e �(i%>=10)�(i%<=15):�open_mess("Only 'seed dispersal' is available in the Reproduction section.")
5�n �(i%>=16)�(i%<=20):�open_mess("None of the What Plants Need section is available in this demonstration.")
5�f �(i%>=21)�(i%<=24):�open_mess("None of the Survival section is available in this demonstration.")
5�l �(i%>=25)�(i%<=33):�open_mess("None of the Classification section is available in this demonstration.")
5��
5��
5�
6 ��animwclick(mx%,my%,b%,i%)
6 � j%,k%
6+�IFb%=2:PROCanimw_menu(mx%,my%):ENDPROC
6$!!blk%=demow%:�closewind(blk%)
6. �toggleicnsel(animw%,i%)
68 Ȏ i% �
6B � 0: �killtext
6Ld �wlev%=0:�open_animw(actmenu%,-1):�:j%=wlev%:wlev%=0:�open_animw(actmenu%,actanim%-j%)
6V" � 1: �isselected(animw%,1)�
6`' texton%=-1:textnewon%=-1
6jF �doingmove%:�makeanim(actmenu%,actanim%,bg%(actanim%))
6t! �addtext(actanim%)
6~ �
6�J texton%=0:textnewoff%=-1:acttxticn%=0:�removetext(actanim%)
6� �
6�" � 2: �isselected(animw%,2)�
6�3 doingmove%=-1:firstmove%=-1:�animate
6� �
6�E �animateend:�makeanim(actmenu%,actanim%,bg%(actanim%))
6�@ �texton%:�addtext(actanim%):�:�plotanim(actanim%)
6� �
6� � 3,4: j%=wlev%:�killtext
6�V �isselected(animw%,i%):wlev%=i%-2:�selecticn(animw%,7-i%,�):�:wlev%=0
6�7 �open_animw(actmenu%,actanim%-j%+wlev%)
6�# � 5,6,7,8: j%=wlev%:�killtext
7 - �isselected(animw%,i%) �
7
' wlev%=i%-4:�k%=5�8
75 �k%<>i%:�selecticn(animw%,k%,�)
7 �
7( �
72 wlev%=0
7< �
7F; �open_animw(actmenu%,actanim%-j%+wlev%)
7P� � 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,49,50,51,52,53,54,55,56:
7Z: �acttxticn%>11 �selecticn(animw%,acttxticn%,�)
7d7 �acttxticn%=i% acttxticn%=0:�:acttxticn%=i%
7n �addwords(actanim%)
7x�
7��
7�
7���killtext
7�1�selecticn(animw%,1,�):texton%=0:textnewon%=0
7�P!blk2%=0:blk2%!4=-732:blk2%!8=842:blk2%!12=0:ș"Wimp_SetExtent",animw%,blk2%
7��
7�
7� ��findwclick(mx%,my%,b%,i%)
7�� j%,am%,aa%
7� �b%=2:�
7�M�(i%<=34)�((i%>=40)�(i%<=43))�((i%>=47)�(i%<=59))�(i%>=65):�open_messff:�
7�!!blk%=demow%:�closewind(blk%)
7�/�(i%>=35)�(i%<=39):am%=i%-34:aa%=-1:wlev%=0
82�(i%>=44)�(i%<=46):am%=1:aa%=i%-40:wlev%=i%-44
82�(i%>=60)�(i%<=64):am%=2:aa%=i%-40:wlev%=i%-60
8B�(actmenu%<>am%)�(actanim%<>aa%):�selecticn(findw%,findicn%,�)
8"findicn%=0
8,A�(am%>0)�(aa%=-1):�selecticn(findw%,34+am%,�):findicn%=34+am%
867�aa%>=0:�selecticn(findw%,40+aa%,�):findicn%=40+aa%
8@8!blk%=findw%:�closewind(blk%):�selecticn(menuw%,0,�)
8J"�killtext:�open_menuw(am%,aa%)
8T�
8^
8h ��wordwclick(mx%,my%,b%,i%)
8r� j%
8| �b%=2:�
8�!!blk%=demow%:�closewind(blk%)
8�W�glossicn%<>i%:�toggleicnsel(wordw%,i%):�selecticn(wordw%,glossicn%,�):glossicn%=i%
8��open_defnw(i%)
8��
8�
8���setupwclick(b%,i%)
8� � j%,k%
8� Ȏ i% �
8�5 � 2,3:�isselected(setupw%,2):simp%=0:�:simp%=1
8� �startgame
8��
8��
8�
9��initanimw(aa%)
9 � j%,k%
9 �selecticn(animw%,0,�)
9&<�k%=2�56:�hideicn(animw%,k%,�):�selecticn(animw%,k%,�):�
90 �j%=0�6
9:H �wdefn%(aa%,j%)>0:�hideicn(animw%,j%+2,�):�:�hideicn(animw%,j%+2,�)
9DL �wdefn%(aa%,j%)=2:�selecticn(animw%,j%+2,�):�:�selecticn(animw%,j%+2,�)
9N�
9X Ȏ aa% �
9b3 � 0,1 : �puticnstring(animw%,3,"animal cells")
9l3 � 2,3 : �puticnstring(animw%,3,"flower parts")
9v6 � 10,11 : �puticnstring(animw%,3,"root close-up")
9�_ � 4,5,6 : �puticnstring(animw%,3,"photosynthesis"):�puticnstring(animw%,4,"leaf close-up")
9�\ � 7,8,9 : �puticnstring(animw%,3,"non-woody stem"):�puticnstring(animw%,4,"woody stem")
9�9 � 12,13,14,15,16 : �puticnstring(animw%,5,"insects")
9�c � 17,18,19 : �puticnstring(animw%,3,"fruits & seeds"):�puticnstring(animw%,4,"fruit examples")
9�9 � 20,21,22,23,24 : �puticnstring(animw%,5,"explode")
9�] � 25,26,27 : �puticnstring(animw%,3,"seed structure"):�puticnstring(animw%,4,"dormancy")
9�1 � 36,37 : �puticnstring(animw%,3,"extremes")
9��
9�Rdoingmove%=0:firstmove%=0:acttxticn%=0:doingmove%=0:firstmove%=-1:textnewon%=0
9��
9�
9� ��event
9�"ș "Wimp_Poll",0,blk% � e%,eb%
: Ȏ e% �
: � 0: �doingmove%:�animate
:(� IFdoingcloser% PROCcloser
: .� IFdoingpinpart% PROCmovepinpart
:*S� sizz1%=(!detarea%)-(detarea%!12):IFsizz1%<minsizz1%:minsizz1%=sizz1%
:4C� sizz2%=HIMEM-END:IFsizz2%<minsizz2%:minsizz2%=sizz2%
:>C� sizz3%=END-LOMEM:IFsizz3%<minsizz3%:minsizz3%=sizz3%
:H � 1: �redraw(!eb%)
:R � 2: �openwind(blk%)
:\ � 3: �closewinds(blk%)
:f2 � 6: �click(eb%!0,eb%!4,eb%!8,eb%!12,eb%!16)
:p � 9: �menuselect
:z � 17,18: �receive
:��
:��
:�
:�
��receive
:�Ȏ eb%!16 �
:� � 0: quit% = �
:�B � 9: �modechange:ș"Wimp_ForceRedraw",-1,0,0,xmaxec%,ymaxec%
:� � &400C1: �modechange
:��
:��
:�
:���redraw(w%)
:� Ȏ w% �
;#� WHEN systw%: PROCredrawsystw
;#� WHEN bodyw%: PROCredrawbodyw
;# � animw%,anmew%: �redrawanimw
;$)� WHEN pinoutlw%: PROCredrawpinoutlw
;. : �redrawother
;8�
;B�
;L
;V��redrawother
;`(ș "Wimp_RedrawWindow",,blk% � more%
;j È• more%
;t)ș "Wimp_GetRectangle",,blk% � more%:
;~�
;��
;�
;���redrawanimw
;�(ș "Wimp_RedrawWindow",,blk% � more%
;�8spx%=blk%!4-blk%!20+16:spy%=(blk%!16-blk%!24)-76-644
;� ȕ more%
;�Gș "OS_SpriteOp",&134,animarea%,"anim",spx%,spy%,0,scale%,coltrans%
;�)ș "Wimp_GetRectangle",,blk% � more%:
;��
;��
;�
;���addanmewlines(am%)
< � k%
<
+È™"OS_SpriteOp",&13C,animarea%,"anim",0
<,lin$=anmewlines$(am%-1):nolines%=�(lin$)
< lin$=�lin$,�(lin$)-3)
<(�nolines%>0�
<2 �k%=1�nolines%
<< ș"Wimp_SetColour",�(lin$)
<FM �25,4,�(�lin$,4,3));�(�lin$,8,3));:�25,5,�(�lin$,12,3));�(�lin$,16,3));
<PQ �25,4,�(�lin$,4,3))+2;�(�lin$,8,3));:�25,5,�(�lin$,12,3))+2;�(�lin$,16,3));
<Z lin$=�lin$,�(lin$)-19)
<d �
<n
�am%=5 �
<x* lin$=anmewlines$(5):nolines%=�(lin$)
<� lin$=�lin$,�(lin$)-3)
<� �k%=1�nolines%
<�! ș"Wimp_SetColour",�(lin$)
<�N �25,4,�(�lin$,4,3));�(�lin$,8,3));:�25,5,�(�lin$,12,3));�(�lin$,16,3));
<�R �25,4,�(�lin$,4,3))+2;�(�lin$,8,3));:�25,5,�(�lin$,12,3))+2;�(�lin$,16,3));
<� lin$=�lin$,�(lin$)-19)
<� �
<� �
<��
<�&ș"OS_SpriteOp",&13C,animarea%,0,1
<��
<�
<���cl_anim(D%)
=;ș "OS_SpriteOp",&118,animarea%,"anim" � ,,A%:A%+=A%!32
=@�SYS "OS_SpriteOp",&128,animarea%,"anim" TO ,,,B%,C%:B%=B%/2
= �s%=2�4:D%=D%�(D%<<(2^s%)):�
="
� animcl%
=,�
=6
=@��dullanim(D%)
=J;ș "OS_SpriteOp",&118,animarea%,"anim" � ,,A%:A%+=A%!32
=T� animdull%
=^�
=h
=r��addtext(aa%)
=|B!blk2%=animw%:È™"Wimp_GetWindowState",,blk2%:windpos%=blk2%!28
=�#!blk2%=animw%:�closewind(blk2%)
=�P!blk2%=0:blk2%!4=-976:blk2%!8=842:blk2%!12=0:ș"Wimp_SetExtent",animw%,blk2%
=�.�hideicn(animw%,9,�):�hideicn(animw%,10,�)
=��doingmove%�
=�
Ȏ aa% �
=�� � 14:ș"OS_SpriteOp",&13C,animarea%,"anim",0:ș"OS_SpriteOp",&122,detarea%,"grfl",94,56,8:ș"Wimp_SetColour",7:�box(416,188,16,16):ș"OS_SpriteOp",&13C,animarea%,0,1
=�� � 22:ș"OS_SpriteOp",&13C,animarea%,"anim",0:ș"OS_SpriteOp",&122,detarea%,"dsbox",100,116,8:ș"OS_SpriteOp",&122,detarea%,"ds2",144,168,8:ș"Wimp_SetColour",7:�box(668,276,16,16):ș"OS_SpriteOp",&13C,animarea%,0,1
=�3 � 23:ș"OS_SpriteOp",&13C,animarea%,"anim",0:
=֫ ș"OS_SpriteOp",&122,detarea%,"cherry",116,388,8:ș"OS_SpriteOp",&122,detarea%,"hooks",500,204,8:ș"Wimp_SetColour",7:�box(216,576,16,16):�box(626,444,16,16)
=�0 ș"OS_SpriteOp",&13C,animarea%,0,1
=� �
=�C �addlines(aa%,0):�plotanim(aa%):�addlabels(aa%):�addwords(aa%)
=��
>; �puticnstring(animw%,9,""):�puticnstring(animw%,10,"")
>�
> .!blk%=animw%:È™"Wimp_GetWindowState",,blk%
>&:�blk%!16<976 blk%!16=976:blk%!8=0:�:blk%!8=blk%!16-976
>0 blk%!24=0:blk%!28=windpos%
>:�openwind(blk%)
>D�
>N
>X"��addlines(aa%,fromsaveprint%)
>b+È™"OS_SpriteOp",&13C,animarea%,"anim",0
>l Ȏ aa% �
>v � 10:ș"Wimp_SetColour",0
>� :ș"Wimp_SetColour",7
>��
>� �IFNOTfromsaveprint%THEN
>�_� IF((activeicn%=4)AND(activew%=1))OR((activeicn%=17)AND(activew%>0)):SYS"Wimp_SetColour",0
>��� 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
>�
�ENDIF
>�'lin$=lines$(simp%):nolines%=�(lin$)
>�lin$=�lin$,�(lin$)-3)
>��nolines%>0�
>� �k%=1�nolines%
>�K �25,4,�(�lin$,1,3));�(�lin$,5,3));:�25,5,�(�lin$,9,3));�(�lin$,13,3));
>�O �25,4,�(�lin$,1,3))+2;�(�lin$,5,3));:�25,5,�(�lin$,9,3))+2;�(�lin$,13,3));
>� lin$=�lin$,�(lin$)-16)
? �
? �
? Ȏ aa% �
? � 3: �box(4,272,158,280)
?*, �25,4,550;272;:�25,101,552;346;
?4, �25,4,658;452;:�25,101,802;454;
?>, �25,4,800;454;:�25,101,802;272;
?H, �25,4,802;274;:�25,101,550;272;
?R* �25,4,550;344;:�25,5,658;452;
?\* �25,4,552;344;:�25,5,660;452;
?f � 26: �box(550,268,256,288)
?p�
?z&È™"OS_SpriteOp",&13C,animarea%,0,1
?��
?�
?���addlabels(aa%)
?�� k%
?��nolabs%(aa%,simp%)>0�
?� �k%=1�nolabs%(aa%,simp%)
?�m �puticnstring(animw%,�(words$(simp%,k%,0)),words$(simp%,k%,1)):�hideicn(animw%,�(words$(simp%,k%,0)),�)
?� �
?��
?��
?�
?���addwords(aa%)
?��acttxticn%=0�
@W titl$=words$(simp%,0,1):�words$(simp%,0,2)<>"":titl$+=" ":titl$+=words$(simp%,0,2)
@M �puticnstring(animw%,9,titl$):�puticnstring(animw%,10,words$(simp%,0,3))
@ �
@$�
@.�nolabs%(aa%,simp%)>0�
@8 �k%=1�nolabs%(aa%,simp%)
@B) �(words$(simp%,k%,0))=acttxticn% �
@L titl$=words$(simp%,k%,1)
@V? �(�(titl$)>&60)�(�(titl$)<&7B):�titl$,1)=�(�(titl$)-&20)
@`o �(�(titl$)>&30)�(�(titl$)<&3A)�(�(�titl$,4,1))>&60)�(�(�titl$,4,1))<&7B):�titl$,4)=�(�(�titl$,4,1))-&20)
@j- �(acttxticn%<>18)�(aa%<>25):titl$+=" "
@t titl$+=words$(simp%,k%,2)
@~P �puticnstring(animw%,9,titl$):�puticnstring(animw%,10,words$(simp%,k%,3))
@� �
@� �
@��
@��
@�
@���removetext(aa%)
@�B!blk2%=animw%:ș"Wimp_GetWindowState",,blk2%:windpos%=blk2%!28
@�#!blk2%=animw%:�closewind(blk2%)
@�+�doingmove%:blk2%!4=-784:�:blk2%!4=-732
@�C!blk2%=0:blk2%!8=842:blk2%!12=0:ș"Wimp_SetExtent",animw%,blk2%
@��doingmove%�
@� �removelabels(aa%)
A �plotanim(aa%)
A
�
A.!blk%=animw%:È™"Wimp_GetWindowState",,blk%
A 7�doingmove%:blk%!8=blk%!16-784:�:blk%!8=blk%!16-732
A(blk%!28=windpos%
A2�openwind(blk%)
A<�
AF
AP��removelabels(aa%)
AZ�nolabs%(aa%,simp%)>0�
Ads �k%=1�nolabs%(aa%,simp%):�hideicn(animw%,�(words$(simp%,k%,0)),�):�selecticn(animw%,�(words$(simp%,k%,0)),�):�
An�
Ax1�doingmove%:�makeanim(actmenu%,aa%,bg%(aa%))
A��
A�
A���getwordfile(aa%)
A�� t%,s%,u%,a$,b$
A�8wfile$="<PlantWise$chaindir>.wordfiles.words"+�(aa%)
A�X=� wfile$
A�)�s%=0�1:�t%=0�nolabs%(aa%,s%):�u%=0�3
A��#X, words$(s%,t%,u%)
A� �:�:�
A��nostops%(aa%)>0�
A�" �s%=0�1:�t%=0�nostops%(aa%)-1
A� �#X, animwords$(s%,t%)
A� �:�
B�
B Ȏ aa% �
B � 5:�s%=0�27
B" �#X, animsp$(s%)
B, �#X, a$
B6 �#X, b$
B@4 animsp%(s%,0)=�(a$):animsp%(s%,1)=�(b$)
BJ
�
BT�
B^�#X
Bh�
Br
B|��getnumbfile(aa%)
B� � t%,s%
B�8nfile$="<PlantWise$chaindir>.numbfiles.numbs"+�(aa%)
B�X=� nfile$
B� �t%=0�1
B��#X, lines$(t%)
B��
B��#X
B��
B�
B�"��floppy_disk(diskn$,sprpath$)
B�� g%
B�g%=0
B��h%=0:m%=0
C�
C ��:� �:error%=1:test%=1:�
C �
C& error%=0
C0�no_h%=0:no_m%=0
C: �test%=1 �
CDB �discmess("Please place the "+diskn$+" disc in drive 0",0)
CN �
CX *ADFS
Cb *MOUNT 0
Cl% È™"OS_GBPB",5,,input_disk_name%
Cv) len_d_n%=?input_disk_name%:name$=""
C� �dn%=1�len_d_n%
C�H �?(input_disk_name%+dn%)>31:name$=name$+�(?(input_disk_name%+dn%))
C� �
C� �name$<>diskn$:error%=1
C�
test%=1
C�, �"SET PlantWise$chaindir $.!Plantwise"
C�% ș "XOS_Find",&40,sprpath$ � g%
C�E� IFworpath$<>"":SYS "XOS_Find",&40,worpath$ TO h%:ELSE:no_h%=-1
C�E� IFnumpath$<>"":SYS "XOS_Find",&40,numpath$ TO m%:ELSE:no_m%=-1
C��g%�(error%=0):�#g%
C�>�UNTILg%AND(h%ORno_h%)AND(m%ORno_m%)AND(error%=0):CLOSE#g%
C��IFNOTno_h%:CLOSE#h%
C��IFNOTno_m%:CLOSE#m%
D� �
D �
D
D
��animate
D*�firstmove% �
D4 �texton% �
D>O �removelabels(actanim%):�makeanim(actmenu%,actanim%,0):�addtext(actanim%)
DH �
DR% !blk2%=animw%:�closewind(blk2%)
D\R !blk2%=0:blk2%!4=-784:blk2%!8=842:blk2%!12=0:È™"Wimp_SetExtent",animw%,blk2%
Df �puticnstring(animw%,9,"")
Dp0 !blk%=animw%:È™"Wimp_GetWindowState",,blk%
Dz< �blk%!16<784 blk%!16=784:blk%!8=0:�:blk%!8=blk%!16-784
D� �openwind(blk%)
D� �
D�2 �hideicn(animw%,11,�):�selecticn(animw%,11,�)
D��
D�&笤isselected(animw%,11):�moveanim
D��
D�
D���moveanim
D�newtext%=0
D��textnewon%:newtext%=-1
D�Ȏ actanim% �
D� � 5: �movephoto
D� � 6: �moveleafcl
E � 8: �movestemcl1
E � 9: �movestemcl2
E � 10: �moveroot
E$ � 11: �moverootcl
E. � 12: �movepollin
E8 � 13: �movepollins
EB � 14: �movepollwind
EL � 15: �movepollanimal
EV � 16: �movepollwater
E` � 17: �movefertil
Ej � 18: �movefruit
Et � 20: �movedisp
E~ � 21: �movedispexp
E� � 22: �movedispwind
E� � 23: �movedispani
E� � 24: �movedispwat
E� � 25: �movegerm
E� � 27: �movedorm
E� � 28: �movecorm
E� � 29: �moverunner
E��
E��
E�
E�,��moveendloop(nost%,st$,le%,lo%,ri%,hi%)
E�&ș"OS_SpriteOp",&13C,animarea%,0,1
F elaps%=�-elaps%
F
�texton%�
F �j%=1�nost%
F * �sub%=�(st$):�selecticn(animw%,11,�)
F( st$=�st$,�(st$)-4)
F2 �
F<�
FF\�newtext%�textnewoff%:�plotanim(actanim%):textnewoff%=0:�:�plotanimmove(le%,lo%,ri%,hi%)
FPlasttime%=�
FZ�
Fd
Fn��animateend
Fx=�selecticn(animw%,2,�):doingmove%=�:�hideicn(animw%,11,�)
F��texton% �
F�$ acttxticn%=0:�addtext(actanim%)
F��
F�$ !blk2%=animw%:�closewind(blk2%)
F�Q !blk2%=0:blk2%!4=-732:blk2%!8=842:blk2%!12=0:ș"Wimp_SetExtent",animw%,blk2%
F�/ !blk%=animw%:ș"Wimp_GetWindowState",,blk%
F� �openwind(blk%)
F��
F��
F�
F���closewinds(b%)
F�#ș "Wimp_GetPointerInfo",,blk2%
F�currclosebut%=blk2%!8
G�closewind(b%)
G Ȏ !b% �
G0 � menuw%:�isopen(anmew%):�closewind(blk%)
G"3 �isopen(animw%):�closewind(blk%)
G,3 � anmew%,animw%:!blk%=menuw%:�closewind(blk%)
G6% � findw%:�selecticn(menuw%,0,�)
G@c � defnw%:�selecticn(wordw%,glossicn%,�):glossicn%=-1:笤isopen(wordw%):�selecticn(menuw%,3,�)
GJ7 � wordw%:笤isopen(defnw%):�selecticn(menuw%,3,�)
GT�
G^!!blk%=demow%:�closewind(blk%)
Gh�
Gr
G|��mc_starts
G�animcl%=!mc%
G�animdull%=mc%!&04
G��
G�
G�ݤalreadyrunning
G�� �
G���:� �:=0
G�@ș "OS_ReadVarVal","PlantWise$isrunning",blk%,256,0,0 � ,,a%
G�%a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
G�� �
G��a$="1":=-1
G�=0
G�
H
H��hideicn(w%,i%,f%)
H $!blk%=w%:blk%!4=i%:blk%!12=1<<23
H& �f% blk%!8=1<<23:�:blk%!8=0
H0 È™ "Wimp_SetIconState",,blk%
H:�
HD
HN��shadeicn(w%,i%,f%)
HX$!blk%=w%:blk%!4=i%:blk%!12=1<<22
Hb �f% blk%!8=1<<22:�:blk%!8=0
Hl È™ "Wimp_SetIconState",,blk%
Hv�
H�
H���keyevent
H�1� temp to stop anim bug loops hanging machine
H� �IF(blk%!24)=13:quit%=-1
H��
H�
H�ݤreadsysvar(a$)
H�Oș "OS_ReadVarVal",a$,blk%,256,0,0 � ,,a%:a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
H�=a$
H�
H�ݤfiletype(a$)
H�ș "XOS_File",5,a$ � a%
H�=a%
I
I ��stringtotxtbuff(s$)
I$(txtbuff%+begtxt%)=s$
I 1begtxt%+=�(s$):txtbuff%?begtxt%=10:begtxt%+=1
I*�
I4
I>
IH��startdrag(w%,i%,n$)
IRproposedfname$=n$
I\3!blk%=w%:blk%!4=i%:È™ "Wimp_GetIconState",,blk%
If?�wintoscrn(blk%):blk%!8-=4:blk%!12-=4:blk%!16+=4:blk%!20+=4
IpXblk%!4=5:blk%!24=0:blk%!28=0:blk%!32=xmaxec%:blk%!36=ymaxec%:È™ "Wimp_DragBox",,blk%
Iz�
I�
I�
I� ��defnwclick(mx%,my%,b%)
I� �b%=2:�defnw_menu(mx%,my%):�
I��
I�
I�
I���toggleicnsel(w%,i%)
I�B� �isselected(w%,i%) �selecticn(w%,i%,�):�:�selecticn(w%,i%,�)
I��
I�
I�
I���submenu(m%,i%,h%)
Jm%+=28+((i%-1)*24)
J m%!4=h%
J�
J$
J.
J8��animw_menu(mx%,my%)
JB/!blk%=saanimw%:È™ "Wimp_DeleteWindow",,blk%
JL3ș "Wimp_CreateWindow",,wptrlist%!52 � saanimw%
JV/!blk%=pranimw%:È™ "Wimp_DeleteWindow",,blk%
J`3ș "Wimp_CreateWindow",,wptrlist%!56 � pranimw%
Jj/�getprtitle(pranimwtitle%,pranimwtitlesiz%)
Jt#�setanimsprname:�setanimtxtname
J~�doingmove%�
J�� �isselected(animw%,0):�changesaprextent(pranimw%,176):�changesaprextent(saanimw%,292):�:�changesaprextent(pranimw%,124):�changesaprextent(saanimw%,240)
J��
J�C �changesaprextent(saanimw%,176):�changesaprextent(pranimw%,72)
J��
J���isselected(animw%,0):�create_menu(menu%,"Plantwise","Save,1Print,7Save text,"):�:�create_menu(menu%,"Plantwise","Save,1Print,78Save text,")
J�S�submenu(menu%,1,saanimw%):�submenu(menu%,3,edboxw%):�submenu(menu%,2,pranimw%)
J�*ș "Wimp_CreateMenu",,menu%,mx%-64,my%
J�currmenu%=-3
J��
J�
J�"��master_menu(title$,m$,x%,y%)
J�!�create_menu(menu%,title$,m$)
K �submenu(menu%,1,infow%)
K
2È™ "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%
Kcurrmenu%=-1
K �
K(
K2 ��create_menu(m%,title$,m$)
K<
� i%,max%
KF$m%=title$
KP4m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!20=40:m%!24=0
KZ i%=m%+28:max%=�(title$)-2
Kd�
Kn a%=�m$,",")
Kx i$=�m$,a%-1):!i%=0
K� �:morecodes%=�
K�0 �i$,1)="0" !i%=(!i%)�%0001:morecodes%=�
K�0 �i$,1)="1" !i%=(!i%)�%0010:morecodes%=�
K�0 �i$,1)="2" !i%=(!i%)�%0100:morecodes%=�
K�0 �i$,1)="3" !i%=(!i%)�%1000:morecodes%=�
K�4 �i$,1)="7" !i%=(!i%)�%10000000:morecodes%=�
K�C �i$,1)="8" i%!8=&07400021:i$=�i$,�(i$)-1):�:i%!8=&07000021
K�$ � morecodes% i$=�i$,�(i$)-1)
K� � � morecodes%:$(i%+12)=i$
K�# � (�(i$)+1)>max% max%=�(i$)+1
K�
i%!4=-1
K� m$ = �m$,a%+1)
K� i% = i% + 24
L
� m$ = ""
Lm%!16 = max%*16
L�
L"
L,��menuselect
L6#È™ "Wimp_GetPointerInfo",,blk2%
L@currmenubut%=blk2%!8
LJȎ currmenu% �
LT � -1:
L^ Ȏ !eb% �
Lh � 0: �checkadjust
Lr( � 1: �open_setupw:�checkadjust
L| � 2: quit%=�
L� �
L� � -2:
L� Ȏ !eb% �
L� � 0: �checkadjust
L� � 1: �checkadjust
L� �
L� � -3:
L� Ȏ !eb% �
L� � 0: �checkadjust
L� � 1: �checkadjust
L� � 2: �checkadjust
L� �
L� � -4,-5:
M Ȏ !eb% �
M � 0: �checkadjust
M �
M&�
M0�
M:
MD��checkadjust
MN7�currmenubut%=1:ș "Wimp_CreateMenu",,menu%,100,100
MX�
Mb
Mlݤreadvduvar(a%)
Mv9!blk%=a%:blk%!4=-1:È™ "OS_ReadVduVariables",blk%,blk%
M�
=!blk%
M�
M���startgame
M�"�open_menuw(actmenu%,actanim%)
M��
M�
M���flip(fliptype%,spn$)
M�4�fliptype%=1:ș "OS_SpriteOp",&121,detarea%,spn$
M�4�fliptype%=2:ș "OS_SpriteOp",&12F,detarea%,spn$
M�X�fliptype%=3:ș "OS_SpriteOp",&121,detarea%,spn$:ș "OS_SpriteOp",&12F,detarea%,spn$
M��
� 00000000 0d 00 0a 0d 2a 46 58 32 32 30 2c 32 37 0d 00 14 |....*FX220,27...|
00000010 0c 2a 46 58 32 32 39 2c 31 0d 00 1e 04 0d 00 28 |.*FX229,1......(|
00000020 37 f4 6d 69 6e 73 69 7a 7a 31 25 3d 31 30 30 30 |7.minsizz1%=1000|
00000030 30 30 3a 6d 69 6e 73 69 7a 7a 32 25 3d 31 30 30 |00:minsizz2%=100|
00000040 30 30 30 3a 6d 69 6e 73 69 7a 7a 33 25 3d 31 30 |000:minsizz3%=10|
00000050 30 30 30 30 0d 00 32 04 0d 00 3c 0f f2 73 6f 72 |0000..2...<..sor|
00000060 74 6d 65 6d 6f 72 79 0d 00 46 44 c8 99 20 22 57 |tmemory..FD.. "W|
00000070 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c |imp_Initialise",|
00000080 32 30 30 2c 26 34 42 35 33 34 31 35 34 2c 22 50 |200,&4B534154,"P|
00000090 6c 61 6e 74 77 69 73 65 22 20 b8 20 77 69 6d 70 |lantwise" . wimp|
000000a0 76 65 72 25 2c 74 61 73 6b 68 25 0d 00 50 19 e7 |ver%,taskh%..P..|
000000b0 20 ac 20 a4 61 6c 72 65 61 64 79 72 75 6e 6e 69 | . .alreadyrunni|
000000c0 6e 67 20 8c 0d 00 5a 21 20 ff 22 53 65 74 20 50 |ng ...Z! ."Set P|
000000d0 6c 61 6e 74 57 69 73 65 24 69 73 72 75 6e 6e 69 |lantWise$isrunni|
000000e0 6e 67 20 31 22 0d 00 64 05 cc 0d 00 6e 4e 20 f2 |ng 1"..d....nN .|
000000f0 65 72 72 6f 72 28 22 50 6c 61 6e 74 77 69 73 65 |error("Plantwise|
00000100 20 69 73 20 61 6c 72 65 61 64 79 20 72 75 6e 6e | is already runn|
00000110 69 6e 67 22 2c 30 29 3a c8 99 20 22 57 69 6d 70 |ing",0):.. "Wimp|
00000120 5f 43 6c 6f 73 65 44 6f 77 6e 22 2c 2c 26 34 42 |_CloseDown",,&4B|
00000130 35 33 34 31 35 34 3a e0 0d 00 78 05 cd 0d 00 82 |534154:...x.....|
00000140 5d ee 85 20 f2 65 72 72 6f 72 28 f6 24 2b 22 20 |].. .error(.$+" |
00000150 28 49 6e 74 65 72 6e 61 6c 20 65 72 72 6f 72 20 |(Internal error |
00000160 63 6f 64 65 20 22 2b c3 9e 2b 22 29 22 2b bd 30 |code "+..+")"+.0|
00000170 2c 9f 29 3a c8 99 20 22 57 69 6d 70 5f 43 6c 6f |,.):.. "Wimp_Clo|
00000180 73 65 44 6f 77 6e 22 2c 74 61 73 6b 68 25 2c 26 |seDown",taskh%,&|
00000190 34 42 35 33 34 31 35 34 3a e0 0d 00 8c 27 ff 22 |4B534154:....'."|
000001a0 4c 4f 41 44 20 3c 50 6c 61 6e 74 57 69 73 65 24 |LOAD <PlantWise$|
000001b0 44 69 72 3e 2e 63 6f 64 65 20 22 2b c3 7e 6d 63 |Dir>.code "+.~mc|
000001c0 25 0d 00 96 0e f2 6d 63 5f 73 74 61 72 74 73 0d |%.....mc_starts.|
000001d0 00 a0 10 f2 73 6f 72 74 73 70 72 69 74 65 73 0d |....sortsprites.|
000001e0 00 aa 2b 2a 53 65 74 20 50 6c 61 6e 74 57 69 73 |..+*Set PlantWis|
000001f0 65 24 63 68 61 69 6e 64 69 72 20 3c 50 6c 61 6e |e$chaindir <Plan|
00000200 74 57 69 73 65 24 44 69 72 3e 0d 00 b4 33 f2 6c |tWise$Dir>...3.l|
00000210 6f 61 64 75 6e 73 71 75 61 73 68 28 6d 65 6e 75 |oadunsquash(menu|
00000220 61 72 65 61 25 2c 33 33 2a 31 30 32 34 2c 22 73 |area%,33*1024,"s|
00000230 70 66 69 6c 65 73 2e 6d 65 6e 75 22 29 0d 00 be |pfiles.menu")...|
00000240 10 f2 69 6e 69 74 69 61 6c 6c 69 73 65 0d 00 c8 |..initiallise...|
00000250 0f f2 6d 6f 64 65 63 68 61 6e 67 65 0d 00 d2 0c |..modechange....|
00000260 f2 62 61 72 69 63 6f 6e 0d 00 dc 37 ee 20 85 20 |.baricon...7. . |
00000270 f2 65 72 72 6f 72 28 f6 24 2b 22 20 28 49 6e 74 |.error(.$+" (Int|
00000280 65 72 6e 61 6c 20 65 72 72 6f 72 20 63 6f 64 65 |ernal error code|
00000290 20 22 2b c3 9e 2b 22 29 22 2b bd 30 2c 9f 29 0d | "+..+")"+.0,.).|
000002a0 00 e6 14 f5 20 f2 65 76 65 6e 74 3a fd 20 71 75 |.... .event:. qu|
000002b0 69 74 25 0d 00 f0 28 c8 99 20 22 57 69 6d 70 5f |it%...(.. "Wimp_|
000002c0 43 6c 6f 73 65 44 6f 77 6e 22 2c 74 61 73 6b 68 |CloseDown",taskh|
000002d0 25 2c 26 34 42 35 33 34 31 35 34 0d 00 fa 20 ff |%,&4B534154... .|
000002e0 22 53 65 74 20 50 6c 61 6e 74 57 69 73 65 24 69 |"Set PlantWise$i|
000002f0 73 72 75 6e 6e 69 6e 67 20 30 22 0d 01 04 04 0d |srunning 0".....|
00000300 01 0e 0c 2a 46 58 32 32 39 2c 30 0d 01 18 0f f4 |...*FX229,0.....|
00000310 50 52 49 4e 54 20 51 55 49 54 0d 01 22 09 2a 51 |PRINT QUIT..".*Q|
00000320 55 49 54 0d 01 2c 19 f4 53 59 53 22 4f 53 5f 45 |UIT..,..SYS"OS_E|
00000330 78 69 74 22 2c 65 72 72 62 6c 6b 25 0d 01 36 05 |xit",errblk%..6.|
00000340 e0 0d 01 40 09 f4 53 54 4f 50 0d 01 4a 04 0d 01 |...@..STOP..J...|
00000350 54 10 dd f2 73 6f 72 74 6d 65 6d 6f 72 79 0d 01 |T...sortmemory..|
00000360 5e 21 69 6e 64 62 61 73 65 25 3d 26 39 30 30 30 |^!indbase%=&9000|
00000370 3a 69 70 74 72 25 3d 69 6e 64 62 61 73 65 25 0d |:iptr%=indbase%.|
00000380 01 68 27 74 6f 74 69 6e 64 73 69 7a 65 25 3d 31 |.h'totindsize%=1|
00000390 31 39 32 30 3a 74 6f 74 77 69 6e 73 69 7a 65 25 |1920:totwinsize%|
000003a0 3d 31 33 35 32 30 0d 01 72 30 77 69 6e 62 61 73 |=13520..r0winbas|
000003b0 65 25 3d 69 6e 64 62 61 73 65 25 2b 74 6f 74 69 |e%=indbase%+toti|
000003c0 6e 64 73 69 7a 65 25 3a 77 70 74 72 25 3d 77 69 |ndsize%:wptr%=wi|
000003d0 6e 62 61 73 65 25 0d 01 7c 3c 69 6e 64 73 74 61 |nbase%..|<indsta|
000003e0 72 74 73 25 3d 77 69 6e 62 61 73 65 25 2b 74 6f |rts%=winbase%+to|
000003f0 74 77 69 6e 73 69 7a 65 25 3a 77 69 6e 73 74 61 |twinsize%:winsta|
00000400 72 74 73 25 3d 69 6e 64 73 74 61 72 74 73 25 2b |rts%=indstarts%+|
00000410 38 30 0d 01 86 3f 6d 63 25 3d 26 46 34 30 30 3a |80...?mc%=&F400:|
00000420 61 6e 69 6d 61 72 65 61 25 3d 26 46 43 30 30 3a |animarea%=&FC00:|
00000430 6d 65 6e 75 61 72 65 61 25 3d 26 31 39 30 30 30 |menuarea%=&19000|
00000440 3a 73 71 62 75 66 66 65 72 25 3d 26 32 31 34 30 |:sqbuffer%=&2140|
00000450 30 0d 01 90 41 64 65 74 66 69 6c 65 25 3d 26 32 |0...Adetfile%=&2|
00000460 35 38 30 30 3a 64 65 74 61 72 65 61 25 3d 26 32 |5800:detarea%=&2|
00000470 44 30 30 30 3a 62 67 61 72 65 61 25 3d 26 34 42 |D000:bgarea%=&4B|
00000480 30 30 30 3a 73 70 61 72 65 61 25 3d 26 35 33 34 |000:sparea%=&534|
00000490 30 30 0d 01 9a 1a de 20 62 6c 6b 25 20 32 35 36 |00..... blk% 256|
000004a0 2c 65 72 72 62 6c 6b 25 20 32 35 36 0d 01 a4 05 |,errblk% 256....|
000004b0 e1 0d 01 ae 04 0d 01 b8 28 dd f2 6c 6f 61 64 75 |........(..loadu|
000004c0 6e 73 71 75 61 73 68 28 61 72 65 61 25 2c 61 72 |nsquash(area%,ar|
000004d0 65 61 73 69 7a 25 2c 66 69 6c 65 24 29 0d 01 c2 |easiz%,file$)...|
000004e0 0a ea 20 6c 65 6e 25 0d 01 cc 36 ff 22 4c 4f 41 |.. len%...6."LOA|
000004f0 44 20 3c 50 6c 61 6e 74 57 69 73 65 24 63 68 61 |D <PlantWise$cha|
00000500 69 6e 64 69 72 3e 2e 22 2b 66 69 6c 65 24 2b 22 |indir>."+file$+"|
00000510 20 22 2b c3 7e 64 65 74 66 69 6c 65 25 0d 01 d6 | "+.~detfile%...|
00000520 36 c8 99 20 22 4f 53 5f 46 69 6c 65 22 2c 35 2c |6.. "OS_File",5,|
00000530 22 3c 50 6c 61 6e 74 57 69 73 65 24 44 69 72 3e |"<PlantWise$Dir>|
00000540 2e 22 2b 66 69 6c 65 24 20 b8 20 2c 2c 2c 2c 6c |."+file$ . ,,,,l|
00000550 65 6e 25 0d 01 e0 47 f2 75 6e 73 71 75 61 73 68 |en%...G.unsquash|
00000560 28 64 65 74 66 69 6c 65 25 2b 32 30 2c 6c 65 6e |(detfile%+20,len|
00000570 25 2d 32 30 2c 73 71 62 75 66 66 65 72 25 2c 31 |%-20,sqbuffer%,1|
00000580 37 2a 31 30 32 34 2c 61 72 65 61 25 2b 34 2c 61 |7*1024,area%+4,a|
00000590 72 65 61 73 69 7a 25 2d 34 29 0d 01 ea 05 e1 0d |reasiz%-4)......|
000005a0 01 f4 04 0d 01 fe 11 dd f2 73 6f 72 74 73 70 72 |.........sortspr|
000005b0 69 74 65 73 0d 02 08 20 21 73 70 61 72 65 61 25 |ites... !sparea%|
000005c0 3d 36 2a 31 30 32 34 3a 73 70 61 72 65 61 25 21 |=6*1024:sparea%!|
000005d0 38 3d 31 36 0d 02 12 21 c8 99 20 22 4f 53 5f 53 |8=16...!.. "OS_S|
000005e0 70 72 69 74 65 4f 70 22 2c 26 31 30 39 2c 73 70 |priteOp",&109,sp|
000005f0 61 72 65 61 25 0d 02 1c 3b c8 99 20 22 4f 53 5f |area%...;.. "OS_|
00000600 53 70 72 69 74 65 4f 70 22 2c 26 31 30 41 2c 73 |SpriteOp",&10A,s|
00000610 70 61 72 65 61 25 2c 22 3c 50 6c 61 6e 74 57 69 |parea%,"<PlantWi|
00000620 73 65 24 44 69 72 3e 2e 73 70 72 69 74 65 73 22 |se$Dir>.sprites"|
00000630 0d 02 26 24 21 64 65 74 61 72 65 61 25 3d 31 32 |..&$!detarea%=12|
00000640 30 2a 31 30 32 34 3a 64 65 74 61 72 65 61 25 21 |0*1024:detarea%!|
00000650 38 3d 31 36 0d 02 30 22 c8 99 20 22 4f 53 5f 53 |8=16..0".. "OS_S|
00000660 70 72 69 74 65 4f 70 22 2c 26 31 30 39 2c 64 65 |priteOp",&109,de|
00000670 74 61 72 65 61 25 0d 02 3a 25 21 61 6e 69 6d 61 |tarea%..:%!anima|
00000680 72 65 61 25 3d 33 37 2a 31 30 32 34 3a 61 6e 69 |rea%=37*1024:ani|
00000690 6d 61 72 65 61 25 21 38 3d 31 36 0d 02 44 23 c8 |marea%!8=16..D#.|
000006a0 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
000006b0 26 31 30 39 2c 61 6e 69 6d 61 72 65 61 25 0d 02 |&109,animarea%..|
000006c0 4e 37 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |N7.. "OS_SpriteO|
000006d0 70 22 2c 26 31 30 46 2c 61 6e 69 6d 61 72 65 61 |p",&10F,animarea|
000006e0 25 2c 22 61 6e 69 6d 22 2c 31 2c 34 30 35 2c 31 |%,"anim",1,405,1|
000006f0 36 31 2c 31 32 0d 02 58 25 21 6d 65 6e 75 61 72 |61,12..X%!menuar|
00000700 65 61 25 3d 33 33 2a 31 30 32 34 3a 6d 65 6e 75 |ea%=33*1024:menu|
00000710 61 72 65 61 25 21 38 3d 31 36 0d 02 62 23 c8 99 |area%!8=16..b#..|
00000720 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 | "OS_SpriteOp",&|
00000730 31 30 39 2c 6d 65 6e 75 61 72 65 61 25 0d 02 6c |109,menuarea%..l|
00000740 21 21 62 67 61 72 65 61 25 3d 33 33 2a 31 30 32 |!!bgarea%=33*102|
00000750 34 3a 62 67 61 72 65 61 25 21 38 3d 31 36 0d 02 |4:bgarea%!8=16..|
00000760 76 21 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |v!.. "OS_SpriteO|
00000770 70 22 2c 26 31 30 39 2c 62 67 61 72 65 61 25 0d |p",&109,bgarea%.|
00000780 02 80 3b de 20 73 63 61 6c 65 25 20 31 36 3a 21 |..;. scale% 16:!|
00000790 73 63 61 6c 65 25 3d 31 3a 73 63 61 6c 65 25 21 |scale%=1:scale%!|
000007a0 34 3d 31 3a 73 63 61 6c 65 25 21 38 3d 31 3a 73 |4=1:scale%!8=1:s|
000007b0 63 61 6c 65 25 21 31 32 3d 31 0d 02 8a 2b de 20 |cale%!12=1...+. |
000007c0 63 6f 6c 74 72 61 6e 73 25 20 31 36 2c 73 70 70 |coltrans% 16,spp|
000007d0 61 6c 65 74 25 20 31 32 38 2c 73 79 73 62 75 74 |alet% 128,sysbut|
000007e0 24 28 31 35 29 0d 02 94 08 f7 20 2b 30 0d 02 9e |$(15)..... +0...|
000007f0 97 dc 20 26 46 46 46 46 46 46 30 30 2c 26 46 46 |.. &FFFFFF00,&FF|
00000800 46 46 46 46 30 30 2c 26 44 44 44 44 44 44 30 30 |FFFF00,&DDDDDD00|
00000810 2c 26 44 44 44 44 44 44 30 30 2c 26 42 42 42 42 |,&DDDDDD00,&BBBB|
00000820 42 42 30 30 2c 26 42 42 42 42 42 42 30 30 2c 26 |BB00,&BBBBBB00,&|
00000830 39 39 39 39 39 39 30 30 2c 26 39 39 39 39 39 39 |99999900,&999999|
00000840 30 30 2c 26 37 37 37 37 37 37 30 30 2c 26 37 37 |00,&77777700,&77|
00000850 37 37 37 37 30 30 2c 26 35 35 35 35 35 35 30 30 |777700,&55555500|
00000860 2c 26 35 35 35 35 35 35 30 30 2c 26 33 33 33 33 |,&55555500,&3333|
00000870 33 33 30 30 2c 26 33 33 33 33 33 33 30 30 2c 26 |3300,&33333300,&|
00000880 30 2c 26 30 0d 02 a8 8d dc 20 26 39 39 34 34 30 |0,&0..... &99440|
00000890 30 30 30 2c 26 39 39 34 34 30 30 30 30 2c 26 45 |000,&99440000,&E|
000008a0 45 45 45 30 30 2c 26 45 45 45 45 30 30 2c 26 43 |EEE00,&EEEE00,&C|
000008b0 43 30 30 30 30 2c 26 43 43 30 30 30 30 2c 26 44 |C0000,&CC0000,&D|
000008c0 44 30 30 2c 26 44 44 30 30 2c 26 42 42 45 45 45 |D00,&DD00,&BBEEE|
000008d0 45 30 30 2c 26 42 42 45 45 45 45 30 30 2c 26 38 |E00,&BBEEEE00,&8|
000008e0 38 35 35 30 30 2c 26 38 38 35 35 30 30 2c 26 42 |85500,&885500,&B|
000008f0 42 46 46 30 30 2c 26 42 42 46 46 30 30 2c 26 46 |BFF00,&BBFF00,&F|
00000900 46 42 42 30 30 30 30 2c 26 46 46 42 42 30 30 30 |FBB0000,&FFBB000|
00000910 30 0d 02 b2 26 e3 6b 25 3d 30 b8 33 31 3a f3 20 |0...&.k%=0.31:. |
00000920 61 25 3a 73 70 70 61 6c 65 74 25 21 28 34 2a 6b |a%:sppalet%!(4*k|
00000930 25 29 3d 61 25 3a ed 0d 02 bc 1f f2 61 64 64 70 |%)=a%:......addp|
00000940 61 6c 65 74 28 61 6e 69 6d 61 72 65 61 25 2c 22 |alet(animarea%,"|
00000950 61 6e 69 6d 22 29 0d 02 c6 05 e1 0d 02 d0 04 0d |anim")..........|
00000960 02 da 1a dd f2 61 64 64 70 61 6c 65 74 28 61 72 |.....addpalet(ar|
00000970 65 61 25 2c 73 70 6e 24 29 0d 02 e4 2b c8 99 22 |ea%,spn$)...+.."|
00000980 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 31 |OS_SpriteOp",&11|
00000990 38 2c 61 72 65 61 25 2c 73 70 6e 24 20 b8 20 2c |8,area%,spn$ . ,|
000009a0 2c 72 32 25 0d 02 ee 3a 66 25 3d 28 72 32 25 2b |,r2%...:f%=(r2%+|
000009b0 34 34 29 3a 74 25 3d 73 70 70 61 6c 65 74 25 3a |44):t%=sppalet%:|
000009c0 e3 73 25 3d 30 b8 33 31 3a 21 66 25 3d 21 74 25 |.s%=0.31:!f%=!t%|
000009d0 3a 74 25 2b 3d 34 3a 66 25 2b 3d 34 3a ed 0d 02 |:t%+=4:f%+=4:...|
000009e0 f8 05 e1 0d 03 02 04 0d 03 0c 11 dd f2 69 6e 69 |.............ini|
000009f0 74 69 61 6c 6c 69 73 65 0d 03 16 47 de 20 69 62 |tiallise...G. ib|
00000a00 6e 61 6d 65 25 20 32 30 2c 6d 65 6e 75 25 20 31 |name% 20,menu% 1|
00000a10 30 32 34 2c 62 6c 6b 32 25 20 32 35 36 2c 69 6e |024,blk2% 256,in|
00000a20 70 75 74 5f 64 69 73 6b 5f 6e 61 6d 65 25 20 31 |put_disk_name% 1|
00000a30 32 2c 74 78 74 62 75 66 66 25 20 31 30 32 34 0d |2,txtbuff% 1024.|
00000a40 03 20 32 de 20 70 64 72 65 63 74 25 20 31 36 2c |. 2. pdrect% 16,|
00000a50 70 64 72 65 63 74 32 25 20 31 36 2c 70 64 74 72 |pdrect2% 16,pdtr|
00000a60 61 6e 73 25 20 31 36 2c 70 64 70 6c 6f 74 25 20 |ans% 16,pdplot% |
00000a70 38 0d 03 2a 37 de 20 63 74 72 61 6e 73 25 20 32 |8..*7. ctrans% 2|
00000a80 35 36 2c 70 61 6c 74 61 62 25 20 36 34 2c 53 43 |56,paltab% 64,SC|
00000a90 41 4c 45 25 20 31 36 2c 69 6e 62 25 20 32 30 2c |ALE% 16,inb% 20,|
00000aa0 6f 75 74 62 25 20 32 30 0d 03 34 54 de 20 77 64 |outb% 20..4T. wd|
00000ab0 65 66 6e 25 28 34 38 2c 36 29 2c 61 6e 6d 65 77 |efn%(48,6),anmew|
00000ac0 6c 69 6e 65 73 24 28 35 29 2c 61 6e 6d 65 77 74 |lines$(5),anmewt|
00000ad0 69 74 6c 65 24 28 35 29 2c 66 69 6e 64 61 61 25 |itle$(5),findaa%|
00000ae0 28 32 38 29 2c 62 67 25 28 34 38 29 2c 61 6e 69 |(28),bg%(48),ani|
00000af0 6d 77 74 69 74 6c 65 24 28 34 38 29 0d 03 3e 26 |mwtitle$(48)..>&|
00000b00 6d 61 78 6c 61 62 73 25 3d 31 31 3a 6d 61 78 73 |maxlabs%=11:maxs|
00000b10 74 6f 70 73 25 3d 31 33 3a 6d 61 78 73 70 25 3d |tops%=13:maxsp%=|
00000b20 32 38 0d 03 48 7f de 20 6c 69 6e 65 73 24 28 31 |28..H.. lines$(1|
00000b30 29 2c 6e 6f 6c 61 62 73 25 28 34 38 2c 31 29 2c |),nolabs%(48,1),|
00000b40 77 6f 72 64 73 24 28 31 2c 6d 61 78 6c 61 62 73 |words$(1,maxlabs|
00000b50 25 2c 33 29 2c 61 6e 69 6d 73 70 24 28 6d 61 78 |%,3),animsp$(max|
00000b60 73 70 25 2d 31 29 2c 61 6e 69 6d 73 70 25 28 6d |sp%-1),animsp%(m|
00000b70 61 78 73 70 25 2d 31 2c 31 29 2c 6e 6f 73 74 6f |axsp%-1,1),nosto|
00000b80 70 73 25 28 34 38 29 2c 61 6e 69 6d 77 6f 72 64 |ps%(48),animword|
00000b90 73 24 28 31 2c 6d 61 78 73 74 6f 70 73 25 2d 31 |s$(1,maxstops%-1|
00000ba0 29 0d 03 52 10 74 6f 74 67 6c 6f 73 73 25 3d 32 |)..R.totgloss%=2|
00000bb0 36 0d 03 5c 1b de 20 67 6c 6f 73 73 24 28 74 6f |6..\.. gloss$(to|
00000bc0 74 67 6c 6f 73 73 25 2d 31 2c 31 29 0d 03 66 21 |tgloss%-1,1)..f!|
00000bd0 f4 20 61 72 72 61 79 73 20 73 70 65 63 69 66 69 |. arrays specifi|
00000be0 63 20 74 6f 20 61 63 74 61 6e 69 6d 25 0d 03 70 |c to actanim%..p|
00000bf0 f7 de 20 70 68 6f 74 6f 24 28 35 31 29 2c 63 61 |.. photo$(51),ca|
00000c00 72 72 25 28 33 2c 31 29 2c 72 6f 6f 74 25 28 35 |rr%(3,1),root%(5|
00000c10 2c 31 29 2c 73 74 31 25 28 35 2c 31 29 2c 73 74 |,1),st1%(5,1),st|
00000c20 32 25 28 35 2c 31 29 2c 77 6f 6f 64 25 28 31 30 |2%(5,1),wood%(10|
00000c30 2c 31 29 2c 66 65 72 74 25 28 31 33 2c 31 29 2c |,1),fert%(13,1),|
00000c40 66 72 75 25 28 33 2c 35 2c 31 29 2c 67 72 61 24 |fru%(3,5,1),gra$|
00000c50 28 33 29 2c 64 69 73 70 31 25 28 39 2c 31 29 2c |(3),disp1%(9,1),|
00000c60 64 69 73 70 32 25 28 37 2c 31 29 2c 64 69 73 70 |disp2%(7,1),disp|
00000c70 33 25 28 32 2c 31 29 2c 73 65 25 28 37 29 2c 73 |3%(2,1),se%(7),s|
00000c80 6c 61 6e 64 25 28 37 29 2c 63 62 65 78 25 28 32 |land%(7),cbex%(2|
00000c90 29 2c 6c 75 70 65 78 25 28 31 29 2c 62 65 61 6e |),lupex%(1),bean|
00000ca0 25 28 31 32 2c 34 2c 31 29 2c 73 79 63 25 28 31 |%(12,4,1),syc%(1|
00000cb0 33 2c 31 29 2c 64 61 6e 64 25 28 36 29 2c 64 73 |3,1),dand%(6),ds|
00000cc0 65 25 28 37 2c 31 29 2c 64 6f 25 28 31 35 2c 32 |e%(7,1),do%(15,2|
00000cd0 29 2c 6d 6c 78 79 25 28 32 2c 31 29 2c 63 6f 63 |),mlxy%(2,1),coc|
00000ce0 25 28 34 29 0d 03 7a 50 de 20 70 65 61 25 28 38 |%(4)..zP. pea%(8|
00000cf0 29 2c 73 75 6e 66 25 28 38 29 2c 77 68 65 25 28 |),sunf%(8),whe%(|
00000d00 38 29 2c 67 65 72 24 28 38 29 2c 63 6f 72 6d 25 |8),ger$(8),corm%|
00000d10 28 36 2c 31 29 2c 62 75 6c 62 25 28 35 2c 31 29 |(6,1),bulb%(5,1)|
00000d20 2c 72 75 6e 25 28 34 2c 31 29 2c 72 68 69 25 28 |,run%(4,1),rhi%(|
00000d30 35 2c 31 29 0d 03 84 49 f4 44 49 4d 20 6d 65 6e |5,1)...I.DIM men|
00000d40 75 77 74 69 74 6c 65 25 28 33 2c 31 29 2c 6d 65 |uwtitle%(3,1),me|
00000d50 6e 75 74 79 70 65 25 28 31 34 29 2c 6d 65 6e 75 |nutype%(14),menu|
00000d60 77 6f 72 64 73 24 28 31 33 2c 35 29 2c 6d 65 6e |words$(13,5),men|
00000d70 75 72 6f 75 74 65 25 28 31 33 2c 34 29 0d 03 8e |uroute%(13,4)...|
00000d80 34 21 69 6e 62 25 3d 34 3a 69 6e 62 25 21 34 3d |4!inb%=4:inb%!4=|
00000d90 35 3a 69 6e 62 25 21 38 3d 31 31 3a 69 6e 62 25 |5:inb%!8=11:inb%|
00000da0 21 31 32 3d 31 32 3a 69 6e 62 25 21 31 36 3d 2d |!12=12:inb%!16=-|
00000db0 31 0d 03 98 17 f7 3a 71 75 69 74 25 3d a3 3a 77 |1.....:quit%=.:w|
00000dc0 69 6e 63 74 72 25 3d 31 0d 03 a2 37 c8 99 20 22 |inctr%=1...7.. "|
00000dd0 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 |Wimp_OpenTemplat|
00000de0 65 22 2c 2c 22 3c 50 6c 61 6e 74 57 69 73 65 24 |e",,"<PlantWise$|
00000df0 44 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 0d |Dir>.Templates".|
00000e00 03 ac 1a f2 6c 6f 61 64 5f 74 65 6d 70 6c 61 74 |....load_templat|
00000e10 65 28 22 6d 65 6e 75 22 29 0d 03 b6 1d f2 6c 6f |e("menu").....lo|
00000e20 61 64 5f 74 65 6d 70 6c 61 74 65 28 22 61 6e 69 |ad_template("ani|
00000e30 6d 61 74 65 22 29 0d 03 c0 1e f2 6c 6f 61 64 5f |mate").....load_|
00000e40 74 65 6d 70 6c 61 74 65 28 22 61 6e 69 6d 6d 65 |template("animme|
00000e50 6e 75 22 29 0d 03 ca 1e f2 6c 6f 61 64 5f 74 65 |nu").....load_te|
00000e60 6d 70 6c 61 74 65 28 22 66 61 73 74 66 69 6e 64 |mplate("fastfind|
00000e70 22 29 0d 03 d4 1e f2 6c 6f 61 64 5f 74 65 6d 70 |").....load_temp|
00000e80 6c 61 74 65 28 22 77 6f 72 64 64 65 66 6e 22 29 |late("worddefn")|
00000e90 0d 03 de 1e f2 6c 6f 61 64 5f 74 65 6d 70 6c 61 |.....load_templa|
00000ea0 74 65 28 22 77 68 61 74 77 6f 72 64 22 29 0d 03 |te("whatword")..|
00000eb0 e8 1b f2 6c 6f 61 64 5f 74 65 6d 70 6c 61 74 65 |...load_template|
00000ec0 28 22 73 65 74 75 70 22 29 0d 03 f2 1e f2 6c 6f |("setup").....lo|
00000ed0 61 64 5f 74 65 6d 70 6c 61 74 65 28 22 70 72 6f |ad_template("pro|
00000ee0 67 69 6e 66 6f 22 29 0d 03 fc 1e f2 6c 6f 61 64 |ginfo").....load|
00000ef0 5f 74 65 6d 70 6c 61 74 65 28 22 64 65 6d 6f 73 |_template("demos|
00000f00 79 73 74 22 29 0d 04 06 1b f2 6c 6f 61 64 5f 74 |yst").....load_t|
00000f10 65 6d 70 6c 61 74 65 28 22 64 65 6d 6f 31 22 29 |emplate("demo1")|
00000f20 0d 04 10 1b c8 99 20 22 57 69 6d 70 5f 43 6c 6f |...... "Wimp_Clo|
00000f30 73 65 54 65 6d 70 6c 61 74 65 22 0d 04 1a 34 61 |seTemplate"...4a|
00000f40 24 3d a4 63 6f 6e 76 65 72 74 74 6f 6c 6f 77 65 |$=.converttolowe|
00000f50 72 28 a4 72 65 61 64 73 79 73 76 61 72 28 22 50 |r(.readsysvar("P|
00000f60 6c 61 6e 74 57 69 73 65 24 44 69 72 22 29 29 0d |lantWise$Dir")).|
00000f70 04 24 29 e7 a7 61 24 2c 22 61 64 66 73 3a 3a 70 |.$)..a$,"adfs::p|
00000f80 6c 61 6e 74 77 69 73 65 22 29 3c 3e 30 20 59 25 |lantwise")<>0 Y%|
00000f90 3d 30 20 8b 59 25 3d 31 0d 04 2e 31 c8 99 20 22 |=0 .Y%=1...1.. "|
00000fa0 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f |Wimp_CreateWindo|
00000fb0 77 22 2c 2c 77 69 6e 73 74 61 72 74 73 25 21 30 |w",,winstarts%!0|
00000fc0 20 b8 20 6d 65 6e 75 77 25 0d 04 38 31 c8 99 20 | . menuw%..81.. |
00000fd0 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 |"Wimp_CreateWind|
00000fe0 6f 77 22 2c 2c 77 69 6e 73 74 61 72 74 73 25 21 |ow",,winstarts%!|
00000ff0 34 20 b8 20 61 6e 69 6d 77 25 0d 04 42 31 c8 99 |4 . animw%..B1..|
00001000 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e | "Wimp_CreateWin|
00001010 64 6f 77 22 2c 2c 77 69 6e 73 74 61 72 74 73 25 |dow",,winstarts%|
00001020 21 38 20 b8 20 61 6e 6d 65 77 25 0d 04 4c 32 c8 |!8 . anmew%..L2.|
00001030 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 |. "Wimp_CreateWi|
00001040 6e 64 6f 77 22 2c 2c 77 69 6e 73 74 61 72 74 73 |ndow",,winstarts|
00001050 25 21 31 32 20 b8 20 66 69 6e 64 77 25 0d 04 56 |%!12 . findw%..V|
00001060 32 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 |2.. "Wimp_Create|
00001070 57 69 6e 64 6f 77 22 2c 2c 77 69 6e 73 74 61 72 |Window",,winstar|
00001080 74 73 25 21 31 36 20 b8 20 64 65 66 6e 77 25 0d |ts%!16 . defnw%.|
00001090 04 60 32 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 |.`2.. "Wimp_Crea|
000010a0 74 65 57 69 6e 64 6f 77 22 2c 2c 77 69 6e 73 74 |teWindow",,winst|
000010b0 61 72 74 73 25 21 32 30 20 b8 20 77 6f 72 64 77 |arts%!20 . wordw|
000010c0 25 0d 04 6a 33 c8 99 20 22 57 69 6d 70 5f 43 72 |%..j3.. "Wimp_Cr|
000010d0 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 77 69 6e |eateWindow",,win|
000010e0 73 74 61 72 74 73 25 21 32 34 20 b8 20 73 65 74 |starts%!24 . set|
000010f0 75 70 77 25 0d 04 74 32 c8 99 20 22 57 69 6d 70 |upw%..t2.. "Wimp|
00001100 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,|
00001110 77 69 6e 73 74 61 72 74 73 25 21 32 38 20 b8 20 |winstarts%!28 . |
00001120 69 6e 66 6f 77 25 0d 04 7e 32 c8 99 20 22 57 69 |infow%..~2.. "Wi|
00001130 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
00001140 2c 2c 77 69 6e 73 74 61 72 74 73 25 21 33 32 20 |,,winstarts%!32 |
00001150 b8 20 64 65 6d 6f 77 25 0d 04 88 33 c8 99 20 22 |. demow%...3.. "|
00001160 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f |Wimp_CreateWindo|
00001170 77 22 2c 2c 77 69 6e 73 74 61 72 74 73 25 21 33 |w",,winstarts%!3|
00001180 36 20 b8 20 64 65 6d 6f 31 77 25 0d 04 92 37 c8 |6 . demo1w%...7.|
00001190 99 22 53 6f 75 6e 64 5f 43 6f 6e 66 69 67 75 72 |."Sound_Configur|
000011a0 65 22 2c 30 2c 30 2c 30 2c 30 2c 30 20 b8 20 72 |e",0,0,0,0,0 . r|
000011b0 30 25 2c 72 31 25 2c 72 32 25 2c 72 33 25 2c 72 |0%,r1%,r2%,r3%,r|
000011c0 34 25 0d 04 9c 30 e7 72 30 25 3d 31 3a c8 99 22 |4%...0.r0%=1:.."|
000011d0 53 6f 75 6e 64 5f 43 6f 6e 66 69 67 75 72 65 22 |Sound_Configure"|
000011e0 2c 32 2c 72 31 25 2c 72 32 25 2c 72 33 25 2c 72 |,2,r1%,r2%,r3%,r|
000011f0 34 25 0d 04 a6 38 f2 6c 6f 61 64 75 6e 73 71 75 |4%...8.loadunsqu|
00001200 61 73 68 28 64 65 74 61 72 65 61 25 2c 31 30 30 |ash(detarea%,100|
00001210 2a 31 30 32 34 2c 22 73 70 66 69 6c 65 73 2e 61 |*1024,"spfiles.a|
00001220 6e 69 6d 6d 65 6e 75 30 22 29 0d 04 b0 10 f2 66 |nimmenu0").....f|
00001230 69 6c 6c 5f 61 72 72 61 79 73 0d 04 ba 3e 61 63 |ill_arrays...>ac|
00001240 74 6d 65 6e 75 25 3d 30 3a 61 63 74 61 6e 69 6d |tmenu%=0:actanim|
00001250 25 3d 2d 31 3a 77 6c 65 76 25 3d 30 3a 66 69 72 |%=-1:wlev%=0:fir|
00001260 73 74 74 69 6d 65 25 3d 2d 31 3a 73 68 72 75 6e |sttime%=-1:shrun|
00001270 6b 61 6e 6d 65 25 3d 30 0d 04 c4 42 64 6f 69 6e |kanme%=0...Bdoin|
00001280 67 6d 6f 76 65 25 3d 30 3a 66 69 72 73 74 6d 6f |gmove%=0:firstmo|
00001290 76 65 25 3d 30 3a 61 63 74 74 78 74 69 63 6e 25 |ve%=0:acttxticn%|
000012a0 3d 30 3a 74 65 78 74 6f 6e 25 3d 30 3a 74 65 78 |=0:texton%=0:tex|
000012b0 74 6e 65 77 6f 66 66 25 3d 30 0d 04 ce 71 f2 68 |tnewoff%=0...q.h|
000012c0 69 64 65 69 63 6e 28 66 69 6e 64 77 25 2c 34 31 |ideicn(findw%,41|
000012d0 2c b9 29 3a f2 68 69 64 65 69 63 6e 28 66 69 6e |,.):.hideicn(fin|
000012e0 64 77 25 2c 35 39 2c b9 29 3a f2 68 69 64 65 69 |dw%,59,.):.hidei|
000012f0 63 6e 28 66 69 6e 64 77 25 2c 37 37 2c b9 29 3a |cn(findw%,77,.):|
00001300 f2 68 69 64 65 69 63 6e 28 66 69 6e 64 77 25 2c |.hideicn(findw%,|
00001310 32 32 2c b9 29 3a f2 68 69 64 65 69 63 6e 28 66 |22,.):.hideicn(f|
00001320 69 6e 64 77 25 2c 38 39 2c b9 29 0d 04 d8 0e f2 |indw%,89,.).....|
00001330 69 6e 69 74 77 6f 72 64 77 0d 04 e2 3b 73 69 6d |initwordw...;sim|
00001340 70 25 3d 30 3a f2 73 65 6c 65 63 74 69 63 6e 28 |p%=0:.selecticn(|
00001350 73 65 74 75 70 77 25 2c 32 2c b9 29 3a f2 73 65 |setupw%,2,.):.se|
00001360 6c 65 63 74 69 63 6e 28 73 65 74 75 70 77 25 2c |lecticn(setupw%,|
00001370 33 2c a3 29 0d 04 ec 2c f2 6d 61 6b 65 61 6e 69 |3,.)...,.makeani|
00001380 6d 28 30 2c 2d 31 2c 30 29 3a f2 73 65 74 65 78 |m(0,-1,0):.setex|
00001390 74 65 6e 74 28 61 6e 69 6d 77 25 2c 37 33 32 29 |tent(animw%,732)|
000013a0 0d 04 f6 05 e1 0d 05 00 04 0d 05 0a 0f dd f2 69 |...............i|
000013b0 6e 69 74 77 6f 72 64 77 0d 05 14 1e 67 6c 6f 73 |nitwordw....glos|
000013c0 73 69 63 6e 25 3d 2d 31 3a 77 69 64 65 25 3d 32 |sicn%=-1:wide%=2|
000013d0 36 30 2b 32 35 32 0d 05 1e 49 e7 28 74 6f 74 67 |60+252...I.(totg|
000013e0 6c 6f 73 73 25 83 32 29 3d 30 3a 68 69 67 68 25 |loss%.2)=0:high%|
000013f0 3d 28 74 6f 74 67 6c 6f 73 73 25 2f 32 29 2a 35 |=(totgloss%/2)*5|
00001400 36 3a 8b 3a 68 69 67 68 25 3d 35 36 2a 28 a8 28 |6:.:high%=56*(.(|
00001410 74 6f 74 67 6c 6f 73 73 25 2f 32 29 2b 31 29 0d |totgloss%/2)+1).|
00001420 05 28 4f 21 62 6c 6b 25 3d 30 3a 62 6c 6b 25 21 |.(O!blk%=0:blk%!|
00001430 34 3d 2d 68 69 67 68 25 3a 62 6c 6b 25 21 38 3d |4=-high%:blk%!8=|
00001440 77 69 64 65 25 3a 62 6c 6b 25 21 31 32 3d 30 3a |wide%:blk%!12=0:|
00001450 c8 99 22 57 69 6d 70 5f 53 65 74 45 78 74 65 6e |.."Wimp_SetExten|
00001460 74 22 2c 77 6f 72 64 77 25 2c 62 6c 6b 25 0d 05 |t",wordw%,blk%..|
00001470 32 55 e3 6a 25 3d 30 b8 74 6f 74 67 6c 6f 73 73 |2U.j%=0.totgloss|
00001480 25 2d 31 3a f2 70 75 74 69 63 6e 73 74 72 69 6e |%-1:.puticnstrin|
00001490 67 28 77 6f 72 64 77 25 2c 6a 25 2c 67 6c 6f 73 |g(wordw%,j%,glos|
000014a0 73 24 28 6a 25 2c 30 29 29 3a f2 73 65 6c 65 63 |s$(j%,0)):.selec|
000014b0 74 69 63 6e 28 77 6f 72 64 77 25 2c 6a 25 2c a3 |ticn(wordw%,j%,.|
000014c0 29 3a ed 0d 05 3c 05 e1 0d 05 46 10 67 6c 6f 73 |):...<....F.glos|
000014d0 73 69 63 6e 25 3d 2d 31 0d 05 50 56 21 62 6c 6b |sicn%=-1..PV!blk|
000014e0 25 3d 30 3a 62 6c 6b 25 21 34 3d 2d 28 35 36 2a |%=0:blk%!4=-(56*|
000014f0 74 6f 74 67 6c 6f 73 73 25 29 3a 62 6c 6b 25 21 |totgloss%):blk%!|
00001500 38 3d 32 35 32 3a 62 6c 6b 25 21 31 32 3d 30 3a |8=252:blk%!12=0:|
00001510 c8 99 22 57 69 6d 70 5f 53 65 74 45 78 74 65 6e |.."Wimp_SetExten|
00001520 74 22 2c 77 6f 72 64 77 25 2c 62 6c 6b 25 0d 05 |t",wordw%,blk%..|
00001530 5a 55 e3 6a 25 3d 30 b8 74 6f 74 67 6c 6f 73 73 |ZU.j%=0.totgloss|
00001540 25 2d 31 3a f2 70 75 74 69 63 6e 73 74 72 69 6e |%-1:.puticnstrin|
00001550 67 28 77 6f 72 64 77 25 2c 6a 25 2c 67 6c 6f 73 |g(wordw%,j%,glos|
00001560 73 24 28 6a 25 2c 30 29 29 3a f2 73 65 6c 65 63 |s$(j%,0)):.selec|
00001570 74 69 63 6e 28 77 6f 72 64 77 25 2c 6a 25 2c a3 |ticn(wordw%,j%,.|
00001580 29 3a ed 0d 05 64 04 0d 05 6e 11 dd f2 66 69 6c |):...d...n...fil|
00001590 6c 5f 61 72 72 61 79 73 0d 05 78 0e ea 20 6a 25 |l_arrays..x.. j%|
000015a0 2c 6b 25 2c 6c 25 0d 05 82 08 f7 20 2b 30 0d 05 |,k%,l%..... +0..|
000015b0 8c 50 dc 20 22 50 6c 61 6e 74 20 63 65 6c 6c 73 |.P. "Plant cells|
000015c0 22 2c 22 22 2c 22 54 79 70 65 73 20 6f 66 20 66 |","","Types of f|
000015d0 6c 6f 77 65 72 73 22 2c 22 54 68 65 20 70 61 72 |lowers","The par|
000015e0 74 73 20 6f 66 20 61 20 66 6c 6f 77 65 72 22 2c |ts of a flower",|
000015f0 22 50 6c 61 6e 74 20 6c 65 61 76 65 73 22 0d 05 |"Plant leaves"..|
00001600 96 69 dc 20 22 50 68 6f 74 6f 73 79 6e 74 68 65 |.i. "Photosynthe|
00001610 73 69 73 20 2d 20 6d 61 6b 69 6e 67 20 66 6f 6f |sis - making foo|
00001620 64 22 2c 22 54 68 65 20 6c 65 61 66 20 69 6e 20 |d","The leaf in |
00001630 63 6c 6f 73 65 2d 75 70 22 2c 22 50 6c 61 6e 74 |close-up","Plant|
00001640 20 73 74 65 6d 73 22 2c 22 4e 6f 6e 2d 77 6f 6f | stems","Non-woo|
00001650 64 79 20 73 74 65 6d 73 22 2c 22 57 6f 6f 64 79 |dy stems","Woody|
00001660 20 73 74 65 6d 73 22 0d 05 a0 69 dc 20 22 50 6c | stems"...i. "Pl|
00001670 61 6e 74 20 72 6f 6f 74 73 22 2c 22 41 20 72 6f |ant roots","A ro|
00001680 6f 74 20 69 6e 20 63 6c 6f 73 65 2d 75 70 22 2c |ot in close-up",|
00001690 22 50 6f 6c 6c 69 6e 61 74 69 6f 6e 22 2c 22 50 |"Pollination","P|
000016a0 6f 6c 6c 69 6e 61 74 69 6f 6e 20 62 79 20 69 6e |ollination by in|
000016b0 73 65 63 74 73 22 2c 22 50 6f 6c 6c 69 6e 61 74 |sects","Pollinat|
000016c0 69 6f 6e 20 62 79 20 74 68 65 20 77 69 6e 64 22 |ion by the wind"|
000016d0 0d 05 aa 51 dc 20 22 50 6f 6c 6c 69 6e 61 74 69 |...Q. "Pollinati|
000016e0 6f 6e 20 62 79 20 61 6e 69 6d 61 6c 73 22 2c 22 |on by animals","|
000016f0 50 6f 6c 6c 69 6e 61 74 69 6f 6e 20 62 79 20 77 |Pollination by w|
00001700 61 74 65 72 22 2c 22 46 65 72 74 69 6c 69 7a 61 |ater","Fertiliza|
00001710 74 69 6f 6e 22 2c 22 46 72 75 69 74 73 22 2c 22 |tion","Fruits","|
00001720 22 0d 05 b4 7e dc 20 22 53 65 65 64 20 64 69 73 |"...~. "Seed dis|
00001730 70 65 72 73 61 6c 22 2c 22 27 45 78 70 6c 6f 64 |persal","'Explod|
00001740 69 6e 67 27 20 66 72 75 69 74 73 22 2c 22 53 65 |ing' fruits","Se|
00001750 65 64 20 64 69 73 70 65 72 73 61 6c 20 62 79 20 |ed dispersal by |
00001760 74 68 65 20 77 69 6e 64 22 2c 22 53 65 65 64 20 |the wind","Seed |
00001770 64 69 73 70 65 72 73 61 6c 20 62 79 20 61 6e 69 |dispersal by ani|
00001780 6d 61 6c 73 22 2c 22 53 65 65 64 20 64 69 73 70 |mals","Seed disp|
00001790 65 72 73 61 6c 20 62 79 20 77 61 74 65 72 22 0d |ersal by water".|
000017a0 05 be 62 dc 20 22 53 65 65 64 20 67 65 72 6d 69 |..b. "Seed germi|
000017b0 6e 61 74 69 6f 6e 22 2c 22 53 65 65 64 20 73 74 |nation","Seed st|
000017c0 72 75 63 74 75 72 65 22 2c 22 53 65 65 64 20 64 |ructure","Seed d|
000017d0 6f 72 6d 61 6e 63 79 22 2c 22 43 6f 72 6d 73 20 |ormancy","Corms |
000017e0 61 6e 64 20 62 75 6c 62 73 22 2c 22 52 75 6e 6e |and bulbs","Runn|
000017f0 65 72 73 20 61 6e 64 20 72 68 69 7a 6f 6d 65 73 |ers and rhizomes|
00001800 22 0d 05 c8 14 dc 20 22 22 2c 22 22 2c 22 22 2c |"..... "","","",|
00001810 22 22 2c 22 22 0d 05 d2 14 dc 20 22 22 2c 22 22 |"",""..... "",""|
00001820 2c 22 22 2c 22 22 2c 22 22 0d 05 dc 14 dc 20 22 |,"","",""..... "|
00001830 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 0d 05 e6 |","","","",""...|
00001840 11 dc 20 22 22 2c 22 22 2c 22 22 2c 22 22 0d 05 |.. "","","",""..|
00001850 f0 20 e3 6a 25 3d 30 b8 34 38 3a f3 20 61 6e 69 |. .j%=0.48:. ani|
00001860 6d 77 74 69 74 6c 65 24 28 6a 25 29 3a ed 0d 05 |mwtitle$(j%):...|
00001870 fa 08 f7 20 2b 30 0d 06 04 2e dc 20 35 2c 35 2c |... +0..... 5,5,|
00001880 30 2c 30 2c 34 2c 34 2c 39 2c 31 31 2c 36 2c 36 |0,0,4,4,9,11,6,6|
00001890 2c 34 2c 34 2c 39 2c 39 2c 35 2c 35 2c 34 2c 35 |,4,4,9,9,5,5,4,5|
000018a0 2c 37 2c 37 0d 06 0e 2f dc 20 32 2c 32 2c 36 2c |,7,7.../. 2,2,6,|
000018b0 37 2c 32 2c 32 2c 36 2c 36 2c 36 2c 36 2c 34 2c |7,2,2,6,6,6,6,4,|
000018c0 34 2c 31 2c 31 2c 31 30 2c 31 30 2c 34 2c 34 2c |4,1,1,10,10,4,4,|
000018d0 30 2c 30 0d 06 18 2d dc 20 31 2c 31 2c 34 2c 34 |0,0...-. 1,1,4,4|
000018e0 2c 33 2c 33 2c 35 2c 35 2c 31 2c 31 2c 38 2c 38 |,3,3,5,5,1,1,8,8|
000018f0 2c 36 2c 37 2c 35 2c 35 2c 35 2c 35 2c 33 2c 33 |,6,7,5,5,5,5,3,3|
00001900 0d 06 22 2d dc 20 30 2c 30 2c 30 2c 30 2c 30 2c |.."-. 0,0,0,0,0,|
00001910 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c |0,0,0,0,0,0,0,0,|
00001920 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 06 2c |0,0,0,0,0,0,0..,|
00001930 29 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |). 0,0,0,0,0,0,0|
00001940 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0,0,0,0,0|
00001950 2c 30 2c 30 2c 30 0d 06 36 29 e3 6a 25 3d 30 b8 |,0,0,0..6).j%=0.|
00001960 34 38 3a e3 6b 25 3d 30 b8 31 3a f3 20 6e 6f 6c |48:.k%=0.1:. nol|
00001970 61 62 73 25 28 6a 25 2c 6b 25 29 3a ed 3a ed 0d |abs%(j%,k%):.:..|
00001980 06 40 08 f7 20 2b 30 0d 06 4a 19 dc 20 30 2c 30 |.@.. +0..J.. 0,0|
00001990 2c 30 2c 30 2c 30 2c 36 2c 31 2c 30 2c 32 2c 35 |,0,0,0,6,1,0,2,5|
000019a0 0d 06 54 19 dc 20 31 2c 34 2c 33 2c 39 2c 32 2c |..T.. 1,4,3,9,2,|
000019b0 31 2c 31 2c 34 2c 39 2c 30 0d 06 5e 1a dc 20 31 |1,1,4,9,0..^.. 1|
000019c0 2c 32 2c 32 2c 35 2c 31 2c 31 33 2c 30 2c 38 2c |,2,2,5,1,13,0,8,|
000019d0 38 2c 35 0d 06 68 19 dc 20 30 2c 30 2c 30 2c 30 |8,5..h.. 0,0,0,0|
000019e0 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 06 72 17 |,0,0,0,0,0,0..r.|
000019f0 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c |. 0,0,0,0,0,0,0,|
00001a00 30 2c 30 0d 06 7c 1d e3 6a 25 3d 30 b8 34 38 3a |0,0..|..j%=0.48:|
00001a10 f3 20 6e 6f 73 74 6f 70 73 25 28 6a 25 29 3a ed |. nostops%(j%):.|
00001a20 0d 06 86 08 f7 20 2b 30 0d 06 90 19 dc 20 30 2c |..... +0..... 0,|
00001a30 30 2c 34 2c 30 2c 38 2c 30 2c 30 2c 37 2c 30 2c |0,4,0,8,0,0,7,0,|
00001a40 30 0d 06 9a 19 dc 20 34 2c 30 2c 38 2c 33 2c 37 |0..... 4,0,8,3,7|
00001a50 2c 30 2c 34 2c 30 2c 30 2c 30 0d 06 a4 19 dc 20 |,0,4,0,0,0..... |
00001a60 38 2c 36 2c 31 2c 37 2c 30 2c 33 2c 30 2c 30 2c |8,6,1,7,0,3,0,0,|
00001a70 30 2c 33 0d 06 ae 19 dc 20 30 2c 30 2c 30 2c 30 |0,3..... 0,0,0,0|
00001a80 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 06 b8 17 |,0,0,0,0,0,0....|
00001a90 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c |. 0,0,0,0,0,0,0,|
00001aa0 30 2c 30 0d 06 c2 18 e3 6a 25 3d 30 b8 34 38 3a |0,0.....j%=0.48:|
00001ab0 f3 20 62 67 25 28 6a 25 29 3a ed 0d 06 cc 08 f7 |. bg%(j%):......|
00001ac0 20 2b 30 0d 06 d6 58 dc 20 30 2c 32 2c 34 2c 37 | +0...X. 0,2,4,7|
00001ad0 2c 31 30 2c 31 32 2c 31 37 2c 32 30 2c 32 35 2c |,10,12,17,20,25,|
00001ae0 32 38 2c 32 39 2c 33 30 2c 33 31 2c 33 32 2c 33 |28,29,30,31,32,3|
00001af0 33 2c 33 34 2c 33 35 2c 33 36 2c 33 38 2c 33 39 |3,34,35,36,38,39|
00001b00 2c 34 30 2c 34 31 2c 34 32 2c 34 33 2c 34 34 2c |,40,41,42,43,44,|
00001b10 34 35 2c 34 36 2c 34 37 2c 34 38 0d 06 e0 1c e3 |45,46,47,48.....|
00001b20 6a 25 3d 30 b8 32 38 3a f3 20 66 69 6e 64 61 61 |j%=0.28:. findaa|
00001b30 25 28 6a 25 29 3a ed 0d 06 ea 08 f7 20 2b 30 0d |%(j%):...... +0.|
00001b40 06 f4 3f dc 20 22 62 72 61 63 74 73 22 2c 22 41 |..?. "bracts","A|
00001b50 20 6d 6f 64 69 66 69 65 64 20 6c 65 61 66 20 62 | modified leaf b|
00001b60 65 6c 6f 77 20 6f 72 20 73 75 72 72 6f 75 6e 64 |elow or surround|
00001b70 69 6e 67 20 61 20 66 6c 6f 77 65 72 2e 22 0d 06 |ing a flower."..|
00001b80 fe 2d dc 20 22 62 75 72 22 2c 22 41 20 73 70 69 |.-. "bur","A spi|
00001b90 6b 65 79 20 62 61 6c 6c 20 63 6f 6e 74 61 69 6e |key ball contain|
00001ba0 69 6e 67 20 73 65 65 64 73 2e 22 0d 07 08 4a dc |ing seeds."...J.|
00001bb0 20 22 63 65 6c 6c 75 6c 6f 73 65 22 2c 22 41 20 | "cellulose","A |
00001bc0 74 6f 75 67 68 20 66 69 62 72 6f 75 73 20 73 75 |tough fibrous su|
00001bd0 62 73 74 61 6e 63 65 20 74 68 61 74 20 6d 61 6b |bstance that mak|
00001be0 65 73 20 70 6c 61 6e 74 20 63 65 6c 6c 20 77 61 |es plant cell wa|
00001bf0 6c 6c 73 2e 22 0d 07 12 6d dc 20 22 63 68 6c 6f |lls."...m. "chlo|
00001c00 72 6f 70 68 79 6c 6c 22 2c 22 54 68 65 20 67 72 |rophyll","The gr|
00001c10 65 65 6e 20 70 69 67 6d 65 6e 74 20 69 6e 20 70 |een pigment in p|
00001c20 6c 61 6e 74 73 20 77 68 69 63 68 20 63 61 6e 20 |lants which can |
00001c30 74 72 61 70 20 74 68 65 20 65 6e 65 72 67 79 20 |trap the energy |
00001c40 66 72 6f 6d 20 73 75 6e 6c 69 67 68 74 20 66 6f |from sunlight fo|
00001c50 72 20 70 68 6f 74 6f 73 79 6e 74 68 65 73 69 73 |r photosynthesis|
00001c60 2e 22 0d 07 1c 51 dc 20 22 63 68 6c 6f 72 6f 70 |."...Q. "chlorop|
00001c70 6c 61 73 74 22 2c 22 41 20 74 69 6e 79 20 73 74 |last","A tiny st|
00001c80 72 75 63 74 75 72 65 20 69 6e 20 70 6c 61 6e 74 |ructure in plant|
00001c90 20 63 65 6c 6c 73 20 77 68 69 63 68 20 63 6f 6e | cells which con|
00001ca0 74 61 69 6e 73 20 63 68 6c 6f 72 6f 70 68 79 6c |tains chlorophyl|
00001cb0 6c 2e 22 0d 07 26 63 dc 20 22 63 6f 74 79 6c 65 |l."..&c. "cotyle|
00001cc0 64 6f 6e 22 2c 22 41 20 6d 6f 64 69 66 69 65 64 |don","A modified|
00001cd0 20 6c 65 61 66 20 69 6e 20 61 20 73 65 65 64 2c | leaf in a seed,|
00001ce0 20 6f 66 74 65 6e 20 73 77 6f 6c 6c 65 6e 20 77 | often swollen w|
00001cf0 69 74 68 20 73 74 6f 72 65 64 20 66 6f 6f 64 20 |ith stored food |
00001d00 66 6f 72 20 74 68 65 20 73 65 65 64 20 74 6f 20 |for the seed to |
00001d10 67 72 6f 77 2e 22 0d 07 30 40 dc 20 22 64 65 68 |grow."..0@. "deh|
00001d20 69 73 63 65 6e 74 22 2c 22 46 72 75 69 74 73 20 |iscent","Fruits |
00001d30 74 68 61 74 20 74 68 72 6f 77 20 6f 75 74 20 74 |that throw out t|
00001d40 68 65 69 72 20 73 65 65 64 73 20 28 65 78 70 6c |heir seeds (expl|
00001d50 6f 64 65 29 2e 22 0d 07 3a b3 dc 20 22 64 69 63 |ode)."..:.. "dic|
00001d60 6f 74 79 6c 65 64 6f 6e 22 2c 22 46 6c 6f 77 65 |otyledon","Flowe|
00001d70 72 69 6e 67 20 70 6c 61 6e 74 73 20 77 69 74 68 |ring plants with|
00001d80 20 74 77 6f 20 63 6f 74 79 6c 65 64 6f 6e 73 20 | two cotyledons |
00001d90 28 61 6c 73 6f 20 63 61 6c 6c 65 64 20 64 69 63 |(also called dic|
00001da0 6f 74 29 2e 20 41 20 74 79 70 69 63 61 6c 20 64 |ot). A typical d|
00001db0 69 63 6f 74 20 68 61 73 20 62 72 6f 61 64 20 6c |icot has broad l|
00001dc0 65 61 76 65 73 20 77 69 74 68 20 62 72 61 6e 63 |eaves with branc|
00001dd0 68 69 6e 67 20 76 65 69 6e 73 20 61 6e 64 20 70 |hing veins and p|
00001de0 65 74 61 6c 73 20 61 6e 64 20 73 65 70 61 6c 73 |etals and sepals|
00001df0 20 69 6e 20 6d 75 6c 74 69 70 6c 65 73 20 6f 66 | in multiples of|
00001e00 20 34 20 6f 72 20 35 2e 22 0d 07 44 42 dc 20 22 | 4 or 5."..DB. "|
00001e10 65 70 69 64 65 72 6d 69 73 22 2c 22 41 6e 20 6f |epidermis","An o|
00001e20 75 74 65 72 20 6c 61 79 65 72 20 6f 66 20 63 65 |uter layer of ce|
00001e30 6c 6c 73 20 28 65 67 2e 20 6f 66 20 6c 65 61 66 |lls (eg. of leaf|
00001e40 20 6f 72 20 73 74 65 6d 29 2e 22 0d 07 4e 4e dc | or stem)."..NN.|
00001e50 20 22 66 72 75 69 74 22 2c 22 54 68 65 20 6f 76 | "fruit","The ov|
00001e60 61 72 79 20 6f 72 20 6f 76 61 72 69 65 73 20 6f |ary or ovaries o|
00001e70 66 20 61 20 66 6c 6f 77 65 72 69 6e 67 20 70 6c |f a flowering pl|
00001e80 61 6e 74 20 61 66 74 65 72 20 66 65 72 74 69 6c |ant after fertil|
00001e90 69 7a 61 74 69 6f 6e 2e 22 0d 07 58 38 dc 20 22 |ization."..X8. "|
00001ea0 67 6c 75 63 6f 73 65 22 2c 22 41 20 73 69 6d 70 |glucose","A simp|
00001eb0 6c 65 20 73 75 67 61 72 20 6d 61 64 65 20 62 79 |le sugar made by|
00001ec0 20 70 68 6f 74 6f 73 79 6e 74 68 65 73 69 73 2e | photosynthesis.|
00001ed0 22 0d 07 62 2a dc 20 22 6c 65 61 66 20 76 65 69 |"..b*. "leaf vei|
00001ee0 6e 73 22 2c 22 54 69 6e 79 20 74 75 62 65 73 20 |ns","Tiny tubes |
00001ef0 69 6e 20 6c 65 61 76 65 73 2e 22 0d 07 6c 33 dc |in leaves."..l3.|
00001f00 20 22 6d 65 73 6f 70 68 79 6c 6c 22 2c 22 4c 6f | "mesophyll","Lo|
00001f10 6f 73 65 6c 79 20 70 61 63 6b 65 64 20 63 65 6c |osely packed cel|
00001f20 6c 73 20 69 6e 20 61 20 6c 65 61 66 2e 22 0d 07 |ls in a leaf."..|
00001f30 76 33 dc 20 22 6d 69 64 72 69 62 22 2c 22 54 68 |v3. "midrib","Th|
00001f40 65 20 73 74 72 6f 6e 67 20 63 65 6e 74 72 61 6c |e strong central|
00001f50 20 76 65 69 6e 20 6f 66 20 61 20 6c 65 61 66 2e | vein of a leaf.|
00001f60 22 0d 07 80 5a dc 20 22 6d 69 6e 65 72 61 6c 20 |"...Z. "mineral |
00001f70 73 61 6c 74 73 22 2c 22 53 69 6d 70 6c 65 20 63 |salts","Simple c|
00001f80 68 65 6d 69 63 61 6c 73 20 74 68 61 74 20 70 6c |hemicals that pl|
00001f90 61 6e 74 73 20 74 61 6b 65 20 66 72 6f 6d 20 74 |ants take from t|
00001fa0 68 65 20 73 6f 69 6c 20 74 6f 20 68 65 6c 70 20 |he soil to help |
00001fb0 74 68 65 6d 20 6c 69 76 65 2e 22 0d 07 8a ca dc |them live.".....|
00001fc0 20 22 6d 6f 6e 6f 63 6f 74 79 6c 65 64 6f 6e 22 | "monocotyledon"|
00001fd0 2c 22 46 6c 6f 77 65 72 69 6e 67 20 70 6c 61 6e |,"Flowering plan|
00001fe0 74 73 20 77 69 74 68 20 6f 6e 65 20 63 6f 74 79 |ts with one coty|
00001ff0 6c 65 64 6f 6e 20 28 61 6c 73 6f 20 63 61 6c 6c |ledon (also call|
00002000 65 64 20 6d 6f 6e 6f 63 6f 74 29 2e 20 41 20 74 |ed monocot). A t|
00002010 79 70 69 63 61 6c 20 6d 6f 6e 6f 63 6f 74 20 68 |ypical monocot h|
00002020 61 73 20 61 20 66 69 62 72 6f 75 73 20 72 6f 6f |as a fibrous roo|
00002030 74 20 73 79 73 74 65 6d 2c 20 6e 61 72 72 6f 77 |t system, narrow|
00002040 20 6c 65 61 76 65 73 20 77 69 74 68 20 70 61 72 | leaves with par|
00002050 61 6c 6c 65 6c 20 76 65 69 6e 73 20 61 6e 64 20 |allel veins and |
00002060 70 65 74 61 6c 73 20 61 6e 64 20 73 65 70 61 6c |petals and sepal|
00002070 73 20 69 6e 20 6d 75 6c 74 69 70 6c 65 73 20 6f |s in multiples o|
00002080 66 20 33 2e 22 0d 07 94 57 dc 20 22 70 61 6c 69 |f 3."...W. "pali|
00002090 73 61 64 65 20 63 65 6c 6c 73 22 2c 22 54 68 65 |sade cells","The|
000020a0 20 6c 61 79 65 72 20 6f 66 20 6c 65 61 66 20 63 | layer of leaf c|
000020b0 65 6c 6c 73 20 77 68 69 63 68 20 63 61 72 72 69 |ells which carri|
000020c0 65 73 20 6f 75 74 20 6d 6f 73 74 20 70 68 6f 74 |es out most phot|
000020d0 6f 73 79 6e 74 68 65 73 69 73 2e 22 0d 07 9e 56 |osynthesis."...V|
000020e0 dc 20 22 70 68 6c 6f 65 6d 22 2c 22 41 20 6e 65 |. "phloem","A ne|
000020f0 74 77 6f 72 6b 20 6f 66 20 74 75 62 65 73 20 74 |twork of tubes t|
00002100 68 72 6f 75 67 68 6f 75 74 20 74 68 65 20 70 6c |hroughout the pl|
00002110 61 6e 74 20 77 68 69 63 68 20 63 61 72 72 69 65 |ant which carrie|
00002120 73 20 66 6f 6f 64 20 61 6e 64 20 77 61 74 65 72 |s food and water|
00002130 2e 22 0d 07 a8 45 dc 20 22 70 68 6f 74 6f 73 79 |."...E. "photosy|
00002140 6e 74 68 65 73 69 73 22 2c 22 54 68 65 20 70 72 |nthesis","The pr|
00002150 6f 63 65 73 73 20 62 79 20 77 68 69 63 68 20 67 |ocess by which g|
00002160 72 65 65 6e 20 70 6c 61 6e 74 73 20 6d 61 6b 65 |reen plants make|
00002170 20 66 6f 6f 64 2e 22 0d 07 b2 33 dc 20 22 73 61 | food."...3. "sa|
00002180 6d 61 72 61 22 2c 22 41 20 66 72 75 69 74 20 77 |mara","A fruit w|
00002190 69 74 68 20 77 69 6e 67 73 20 28 65 67 2e 20 53 |ith wings (eg. S|
000021a0 79 63 61 6d 6f 72 65 29 2e 22 0d 07 bc 39 dc 20 |ycamore)."...9. |
000021b0 22 73 65 65 64 22 2c 22 54 68 65 20 66 65 72 74 |"seed","The fert|
000021c0 69 6c 69 7a 65 64 20 6f 76 75 6c 65 20 6f 66 20 |ilized ovule of |
000021d0 61 20 66 6c 6f 77 65 72 69 6e 67 20 70 6c 61 6e |a flowering plan|
000021e0 74 2e 22 0d 07 c6 47 dc 20 22 73 74 61 72 63 68 |t."...G. "starch|
000021f0 22 2c 22 50 6c 61 6e 74 73 20 73 74 6f 72 65 20 |","Plants store |
00002200 73 75 67 61 72 73 20 69 6e 20 6c 6f 6e 67 20 63 |sugars in long c|
00002210 68 61 69 6e 73 20 77 68 69 63 68 20 6d 61 6b 65 |hains which make|
00002220 73 20 73 74 61 72 63 68 2e 22 0d 07 d0 30 dc 20 |s starch."...0. |
00002230 22 73 74 6f 6d 61 22 2c 22 41 20 74 69 6e 79 20 |"stoma","A tiny |
00002240 68 6f 6c 65 20 69 6e 20 74 68 65 20 6c 65 61 66 |hole in the leaf|
00002250 20 73 75 72 66 61 63 65 2e 22 0d 07 da 26 dc 20 | surface."...&. |
00002260 22 73 74 6f 6d 61 74 61 22 2c 22 4d 6f 72 65 20 |"stomata","More |
00002270 74 68 61 6e 20 6f 6e 65 20 73 74 6f 6d 61 2e 22 |than one stoma."|
00002280 0d 07 e4 21 dc 20 22 73 75 63 72 6f 73 65 22 2c |...!. "sucrose",|
00002290 22 41 20 73 69 6d 70 6c 65 20 73 75 67 61 72 2e |"A simple sugar.|
000022a0 22 0d 07 ee 56 dc 20 22 78 79 6c 65 6d 22 2c 22 |"...V. "xylem","|
000022b0 41 20 6e 65 74 77 6f 72 6b 20 6f 66 20 74 75 62 |A network of tub|
000022c0 65 73 20 74 68 72 6f 75 67 68 6f 75 74 20 74 68 |es throughout th|
000022d0 65 20 70 6c 61 6e 74 20 77 68 69 63 68 20 63 61 |e plant which ca|
000022e0 72 72 69 65 73 20 77 61 74 65 72 20 61 6e 64 20 |rries water and |
000022f0 73 61 6c 74 73 2e 22 0d 07 f8 31 e3 6a 25 3d 30 |salts."...1.j%=0|
00002300 b8 74 6f 74 67 6c 6f 73 73 25 2d 31 3a e3 6b 25 |.totgloss%-1:.k%|
00002310 3d 30 b8 31 3a f3 20 67 6c 6f 73 73 24 28 6a 25 |=0.1:. gloss$(j%|
00002320 2c 6b 25 29 3a ed 3a ed 0d 08 02 08 f7 20 2b 30 |,k%):.:...... +0|
00002330 0d 08 0c 11 dc 20 22 50 6c 61 6e 74 77 69 73 65 |..... "Plantwise|
00002340 22 0d 08 16 29 dc 20 22 54 68 65 20 73 74 72 75 |"...). "The stru|
00002350 63 74 75 72 65 20 6f 66 20 66 6c 6f 77 65 72 69 |cture of floweri|
00002360 6e 67 20 70 6c 61 6e 74 73 22 0d 08 20 2c dc 20 |ng plants".. ,. |
00002370 22 54 68 65 20 72 65 70 72 6f 64 75 63 74 69 6f |"The reproductio|
00002380 6e 20 6f 66 20 66 6c 6f 77 65 72 69 6e 67 20 70 |n of flowering p|
00002390 6c 61 6e 74 73 22 0d 08 2a 29 dc 20 22 57 68 61 |lants"..*). "Wha|
000023a0 74 20 70 6c 61 6e 74 73 20 6e 65 65 64 20 74 6f |t plants need to|
000023b0 20 6c 69 76 65 20 61 6e 64 20 67 72 6f 77 22 0d | live and grow".|
000023c0 08 34 1a dc 20 22 48 6f 77 20 70 6c 61 6e 74 73 |.4.. "How plants|
000023d0 20 73 75 72 76 69 76 65 22 0d 08 3e 24 dc 20 22 | survive"..>$. "|
000023e0 54 68 65 20 63 6c 61 73 73 69 66 69 63 61 74 69 |The classificati|
000023f0 6f 6e 20 6f 66 20 70 6c 61 6e 74 73 22 0d 08 48 |on of plants"..H|
00002400 1f e3 6a 25 3d 30 b8 35 3a f3 20 61 6e 6d 65 77 |..j%=0.5:. anmew|
00002410 74 69 74 6c 65 24 28 6a 25 29 3a ed 0d 08 52 08 |title$(j%):...R.|
00002420 f7 20 2b 30 0d 08 5c 56 dc 20 22 30 34 2c 30 37 |. +0..\V. "04,07|
00002430 2c 34 34 30 2c 36 34 30 2c 33 36 38 2c 36 30 34 |,440,640,368,604|
00002440 2c 30 37 2c 35 34 38 2c 34 34 38 2c 34 39 34 2c |,07,548,448,494,|
00002450 33 34 30 2c 30 37 2c 34 32 34 2c 32 33 32 2c 33 |340,07,424,232,3|
00002460 36 30 2c 32 34 38 2c 30 37 2c 34 36 30 2c 30 39 |60,248,07,460,09|
00002470 32 2c 33 39 34 2c 30 39 32 22 0d 08 66 7c dc 20 |2,394,092"..f|. |
00002480 22 30 36 2c 30 37 2c 32 36 32 2c 36 32 34 2c 33 |"06,07,262,624,3|
00002490 34 32 2c 35 33 32 2c 30 37 2c 35 36 34 2c 36 34 |42,532,07,564,64|
000024a0 30 2c 35 31 36 2c 36 30 34 2c 30 37 2c 31 34 38 |0,516,604,07,148|
000024b0 2c 34 34 34 2c 31 32 34 2c 34 30 30 2c 30 37 2c |,444,124,400,07,|
000024c0 31 33 38 2c 30 30 30 2c 31 32 32 2c 31 30 38 2c |138,000,122,108,|
000024d0 30 37 2c 34 32 36 2c 31 32 38 2c 34 38 36 2c 31 |07,426,128,486,1|
000024e0 30 34 2c 30 37 2c 36 39 30 2c 30 30 30 2c 36 35 |04,07,690,000,65|
000024f0 34 2c 30 36 34 22 0d 08 70 0b dc 20 22 30 30 2c |4,064"..p.. "00,|
00002500 22 0d 08 7a 30 dc 20 22 30 32 2c 30 37 2c 31 33 |"..z0. "02,07,13|
00002510 38 2c 30 30 30 2c 31 34 38 2c 30 34 34 2c 30 37 |8,000,148,044,07|
00002520 2c 35 37 36 2c 30 30 30 2c 35 32 36 2c 30 38 38 |,576,000,526,088|
00002530 22 0d 08 84 7c dc 20 22 30 36 2c 30 37 2c 34 32 |"...|. "06,07,42|
00002540 36 2c 36 32 34 2c 34 36 32 2c 34 34 38 2c 30 37 |6,624,462,448,07|
00002550 2c 34 36 32 2c 34 34 38 2c 36 30 38 2c 33 39 32 |,462,448,608,392|
00002560 2c 30 37 2c 34 36 32 2c 34 34 38 2c 33 38 36 2c |,07,462,448,386,|
00002570 33 34 34 2c 30 37 2c 34 36 32 2c 34 34 38 2c 34 |344,07,462,448,4|
00002580 38 34 2c 33 34 34 2c 30 37 2c 30 38 30 2c 35 39 |84,344,07,080,59|
00002590 36 2c 31 30 34 2c 34 39 32 2c 30 30 2c 30 38 32 |6,104,492,00,082|
000025a0 2c 33 37 36 2c 31 38 34 2c 33 33 32 22 0d 08 8e |,376,184,332"...|
000025b0 8f dc 20 22 30 37 2c 30 37 2c 31 36 30 2c 30 30 |.. "07,07,160,00|
000025c0 30 2c 31 33 36 2c 31 31 36 2c 30 37 2c 31 36 30 |0,136,116,07,160|
000025d0 2c 30 30 30 2c 30 39 34 2c 30 39 36 2c 30 37 2c |,000,094,096,07,|
000025e0 34 34 30 2c 30 30 30 2c 33 37 36 2c 30 34 30 2c |440,000,376,040,|
000025f0 30 37 2c 35 33 32 2c 31 30 30 2c 35 38 36 2c 31 |07,532,100,586,1|
00002600 31 32 2c 30 37 2c 35 31 34 2c 30 38 30 2c 35 34 |12,07,514,080,54|
00002610 34 2c 30 34 38 2c 30 37 2c 37 35 32 2c 31 35 32 |4,048,07,752,152|
00002620 2c 36 38 30 2c 30 39 32 2c 30 37 2c 37 35 32 2c |,680,092,07,752,|
00002630 31 35 32 2c 37 38 38 2c 31 30 30 22 0d 08 98 1f |152,788,100"....|
00002640 e3 6a 25 3d 30 b8 35 3a f3 20 61 6e 6d 65 77 6c |.j%=0.5:. anmewl|
00002650 69 6e 65 73 24 28 6a 25 29 3a ed 0d 08 a2 08 f7 |ines$(j%):......|
00002660 20 2b 30 0d 08 ac 0f f4 20 53 54 52 55 43 54 55 | +0..... STRUCTU|
00002670 52 45 0d 08 b6 11 f4 20 70 6c 61 6e 74 20 63 65 |RE..... plant ce|
00002680 6c 6c 73 0d 08 c0 13 dc 20 30 2c 30 2c 30 2c 30 |lls..... 0,0,0,0|
00002690 2c 30 2c 30 2c 30 0d 08 ca 13 dc 20 30 2c 30 2c |,0,0,0..... 0,0,|
000026a0 30 2c 30 2c 30 2c 30 2c 30 0d 08 d4 0c f4 20 66 |0,0,0,0,0..... f|
000026b0 6c 6f 77 65 72 0d 08 de 13 dc 20 30 2c 31 2c 30 |lower..... 0,1,0|
000026c0 2c 30 2c 30 2c 30 2c 30 0d 08 e8 13 dc 20 30 2c |,0,0,0,0..... 0,|
000026d0 32 2c 30 2c 30 2c 30 2c 30 2c 30 0d 08 f2 0a f4 |2,0,0,0,0,0.....|
000026e0 20 6c 65 61 66 0d 08 fc 13 dc 20 30 2c 31 2c 31 | leaf..... 0,1,1|
000026f0 2c 30 2c 30 2c 30 2c 30 0d 09 06 13 dc 20 31 2c |,0,0,0,0..... 1,|
00002700 32 2c 31 2c 30 2c 30 2c 30 2c 30 0d 09 10 13 dc |2,1,0,0,0,0.....|
00002710 20 31 2c 31 2c 32 2c 30 2c 30 2c 30 2c 30 0d 09 | 1,1,2,0,0,0,0..|
00002720 1a 0a f4 20 73 74 65 6d 0d 09 24 13 dc 20 30 2c |... stem..$.. 0,|
00002730 31 2c 31 2c 30 2c 30 2c 30 2c 30 0d 09 2e 13 dc |1,1,0,0,0,0.....|
00002740 20 31 2c 32 2c 31 2c 30 2c 30 2c 30 2c 30 0d 09 | 1,2,1,0,0,0,0..|
00002750 38 13 dc 20 31 2c 31 2c 32 2c 30 2c 30 2c 30 2c |8.. 1,1,2,0,0,0,|
00002760 30 0d 09 42 0a f4 20 72 6f 6f 74 0d 09 4c 13 dc |0..B.. root..L..|
00002770 20 31 2c 31 2c 30 2c 30 2c 30 2c 30 2c 30 0d 09 | 1,1,0,0,0,0,0..|
00002780 56 13 dc 20 31 2c 32 2c 30 2c 30 2c 30 2c 30 2c |V.. 1,2,0,0,0,0,|
00002790 30 0d 09 60 04 0d 09 6a 12 f4 20 52 45 50 52 4f |0..`...j.. REPRO|
000027a0 44 55 43 54 49 4f 4e 0d 09 74 11 f4 20 70 6f 6c |DUCTION..t.. pol|
000027b0 6c 69 6e 61 74 69 6f 6e 0d 09 7e 13 dc 20 31 2c |lination..~.. 1,|
000027c0 30 2c 30 2c 31 2c 31 2c 31 2c 31 0d 09 88 13 dc |0,0,1,1,1,1.....|
000027d0 20 31 2c 30 2c 30 2c 32 2c 31 2c 31 2c 31 0d 09 | 1,0,0,2,1,1,1..|
000027e0 92 13 dc 20 31 2c 30 2c 30 2c 31 2c 32 2c 31 2c |... 1,0,0,1,2,1,|
000027f0 31 0d 09 9c 13 dc 20 31 2c 30 2c 30 2c 31 2c 31 |1..... 1,0,0,1,1|
00002800 2c 32 2c 31 0d 09 a6 13 dc 20 31 2c 30 2c 30 2c |,2,1..... 1,0,0,|
00002810 31 2c 31 2c 31 2c 32 0d 09 b0 13 f4 20 66 65 72 |1,1,1,2..... fer|
00002820 74 69 6c 69 7a 61 74 69 6f 6e 0d 09 ba 13 dc 20 |tilization..... |
00002830 31 2c 31 2c 30 2c 30 2c 30 2c 30 2c 30 0d 09 c4 |1,1,0,0,0,0,0...|
00002840 13 dc 20 31 2c 32 2c 30 2c 30 2c 30 2c 30 2c 30 |.. 1,2,0,0,0,0,0|
00002850 0d 09 ce 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c |..... 0,0,0,0,0,|
00002860 30 2c 30 0d 09 d8 14 f4 20 73 65 65 64 20 64 69 |0,0..... seed di|
00002870 73 70 65 72 73 61 6c 0d 09 e2 13 dc 20 31 2c 30 |spersal..... 1,0|
00002880 2c 30 2c 31 2c 31 2c 31 2c 31 0d 09 ec 13 dc 20 |,0,1,1,1,1..... |
00002890 31 2c 30 2c 30 2c 32 2c 31 2c 31 2c 31 0d 09 f6 |1,0,0,2,1,1,1...|
000028a0 13 dc 20 31 2c 30 2c 30 2c 31 2c 32 2c 31 2c 31 |.. 1,0,0,1,2,1,1|
000028b0 0d 0a 00 13 dc 20 31 2c 30 2c 30 2c 31 2c 31 2c |..... 1,0,0,1,1,|
000028c0 32 2c 31 0d 0a 0a 13 dc 20 31 2c 30 2c 30 2c 31 |2,1..... 1,0,0,1|
000028d0 2c 31 2c 31 2c 32 0d 0a 14 16 f4 20 73 65 65 64 |,1,1,2..... seed|
000028e0 20 67 65 72 6d 69 6e 61 74 69 6f 6e 0d 0a 1e 13 | germination....|
000028f0 dc 20 31 2c 31 2c 31 2c 30 2c 30 2c 30 2c 30 0d |. 1,1,1,0,0,0,0.|
00002900 0a 28 13 dc 20 30 2c 32 2c 31 2c 30 2c 30 2c 30 |.(.. 0,2,1,0,0,0|
00002910 2c 30 0d 0a 32 13 dc 20 31 2c 31 2c 32 2c 30 2c |,0..2.. 1,1,2,0,|
00002920 30 2c 30 2c 30 0d 0a 3c 13 f4 20 63 6f 72 6d 73 |0,0,0..<.. corms|
00002930 20 26 20 62 75 6c 62 73 0d 0a 46 13 dc 20 31 2c | & bulbs..F.. 1,|
00002940 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a 50 1a f4 |0,0,0,0,0,0..P..|
00002950 20 72 75 6e 6e 65 72 73 20 61 6e 64 20 72 68 69 | runners and rhi|
00002960 7a 6f 6d 65 73 0d 0a 5a 13 dc 20 31 2c 30 2c 30 |zomes..Z.. 1,0,0|
00002970 2c 30 2c 30 2c 30 2c 30 0d 0a 64 04 0d 0a 6e 0b |,0,0,0,0..d...n.|
00002980 f4 20 4e 45 45 44 53 0d 0a 78 10 f4 20 6e 65 65 |. NEEDS..x.. nee|
00002990 64 20 77 61 74 65 72 0d 0a 82 13 dc 20 30 2c 30 |d water..... 0,0|
000029a0 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a 8c 10 f4 20 |,0,0,0,0,0..... |
000029b0 6e 65 65 64 20 6c 69 67 68 74 0d 0a 96 13 dc 20 |need light..... |
000029c0 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a a0 |0,0,0,0,0,0,0...|
000029d0 0e f4 20 6e 65 65 64 20 61 69 72 0d 0a aa 13 dc |.. need air.....|
000029e0 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a | 0,0,0,0,0,0,0..|
000029f0 b4 11 f4 20 6e 65 65 64 20 77 61 72 6d 74 68 0d |... need warmth.|
00002a00 0a be 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 |.... 0,0,0,0,0,0|
00002a10 2c 30 0d 0a c8 18 f4 20 6e 65 65 64 20 73 6f 69 |,0..... need soi|
00002a20 6c 20 6d 69 6e 65 72 61 6c 73 0d 0a d2 13 dc 20 |l minerals..... |
00002a30 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a dc |0,0,0,0,0,0,0...|
00002a40 04 0d 0a e6 0e f4 20 53 55 52 56 49 56 41 4c 0d |...... SURVIVAL.|
00002a50 0a f0 12 f4 20 64 61 69 6c 79 20 63 79 63 6c 65 |.... daily cycle|
00002a60 73 0d 0a fa 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 |s..... 0,0,0,0,0|
00002a70 2c 30 2c 30 0d 0b 04 15 f4 20 73 65 61 73 6f 6e |,0,0..... season|
00002a80 61 6c 20 63 79 63 6c 65 73 0d 0b 0e 13 dc 20 30 |al cycles..... 0|
00002a90 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0b 18 13 |,0,0,0,0,0,0....|
00002aa0 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d |. 0,0,0,0,0,0,0.|
00002ab0 0b 22 10 f4 20 70 72 6f 74 65 63 74 69 6f 6e 0d |.".. protection.|
00002ac0 0b 2c 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 |.,.. 0,0,0,0,0,0|
00002ad0 2c 30 0d 0b 36 11 f4 20 63 6f 6d 70 65 74 69 74 |,0..6.. competit|
00002ae0 69 6f 6e 0d 0b 40 13 dc 20 30 2c 30 2c 30 2c 30 |ion..@.. 0,0,0,0|
00002af0 2c 30 2c 30 2c 30 0d 0b 4a 04 0d 0b 54 14 f4 20 |,0,0,0..J...T.. |
00002b00 43 4c 41 53 53 49 46 49 43 41 54 49 4f 4e 0d 0b |CLASSIFICATION..|
00002b10 5e 0f f4 20 65 76 6f 6c 75 74 69 6f 6e 0d 0b 68 |^.. evolution..h|
00002b20 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |.. 0,0,0,0,0,0,0|
00002b30 0d 0b 72 16 f4 20 66 6c 6f 77 65 72 69 6e 67 20 |..r.. flowering |
00002b40 70 6c 61 6e 74 73 0d 0b 7c 13 dc 20 30 2c 30 2c |plants..|.. 0,0,|
00002b50 30 2c 30 2c 30 2c 30 2c 30 0d 0b 86 0e f4 20 63 |0,0,0,0,0..... c|
00002b60 6f 6e 69 66 65 72 73 0d 0b 90 13 dc 20 30 2c 30 |onifers..... 0,0|
00002b70 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0b 9a 0b f4 20 |,0,0,0,0,0..... |
00002b80 66 65 72 6e 73 0d 0b a4 13 dc 20 30 2c 30 2c 30 |ferns..... 0,0,0|
00002b90 2c 30 2c 30 2c 30 2c 30 0d 0b ae 1d f4 20 63 6c |,0,0,0,0..... cl|
00002ba0 75 62 6d 6f 73 73 65 73 20 26 20 68 6f 72 73 65 |ubmosses & horse|
00002bb0 74 61 69 6c 73 0d 0b b8 13 dc 20 30 2c 30 2c 30 |tails..... 0,0,0|
00002bc0 2c 30 2c 30 2c 30 2c 30 0d 0b c2 19 f4 20 6d 6f |,0,0,0,0..... mo|
00002bd0 73 73 65 73 20 26 20 6c 69 76 65 72 77 6f 72 74 |sses & liverwort|
00002be0 73 0d 0b cc 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 |s..... 0,0,0,0,0|
00002bf0 2c 30 2c 30 0d 0b d6 0b f4 20 66 75 6e 67 69 0d |,0,0..... fungi.|
00002c00 0b e0 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 |.... 0,0,0,0,0,0|
00002c10 2c 30 0d 0b ea 0b f4 20 61 6c 67 61 65 0d 0b f4 |,0..... algae...|
00002c20 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |.. 0,0,0,0,0,0,0|
00002c30 0d 0b fe 0d f4 20 6c 69 63 68 65 6e 73 0d 0c 08 |..... lichens...|
00002c40 13 dc 20 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |.. 0,0,0,0,0,0,0|
00002c50 0d 0c 12 28 e3 6a 25 3d 30 b8 34 38 3a e3 6b 25 |...(.j%=0.48:.k%|
00002c60 3d 30 b8 36 3a f3 20 77 64 65 66 6e 25 28 6a 25 |=0.6:. wdefn%(j%|
00002c70 2c 6b 25 29 3a ed 3a ed 0d 0c 1c 38 f4 20 64 61 |,k%):.:....8. da|
00002c80 74 61 20 73 70 65 63 69 66 69 63 20 74 6f 20 61 |ta specific to a|
00002c90 63 74 61 6e 69 6d 25 20 28 75 73 75 61 6c 6c 79 |ctanim% (usually|
00002ca0 20 61 6e 69 6d 61 74 69 6f 6e 20 64 61 74 61 29 | animation data)|
00002cb0 0d 0c 26 08 f7 20 2b 30 0d 0c 30 10 dc 20 22 30 |..&.. +0..0.. "0|
00002cc0 32 2c 30 30 2c 30 31 22 0d 0c 3a 0d dc 20 22 30 |2,00,01"..:.. "0|
00002cd0 31 2c 30 34 22 0d 0c 44 0d dc 20 22 30 31 2c 30 |1,04"..D.. "01,0|
00002ce0 31 22 0d 0c 4e 0d dc 20 22 30 31 2c 30 34 22 0d |1"..N.. "01,04".|
00002cf0 0c 58 0d dc 20 22 30 31 2c 30 31 22 0d 0c 62 0d |.X.. "01,01"..b.|
00002d00 dc 20 22 30 31 2c 30 34 22 0d 0c 6c 0d dc 20 22 |. "01,04"..l.. "|
00002d10 30 31 2c 30 31 22 0d 0c 76 0c f4 20 73 74 6f 70 |01,01"..v.. stop|
00002d20 20 36 0d 0c 80 2a f4 20 65 78 70 61 6e 64 20 62 | 6...*. expand b|
00002d30 6f 78 20 66 6f 72 20 31 30 20 73 6f 20 6e 65 78 |ox for 10 so nex|
00002d40 74 20 6c 69 6e 65 20 69 73 20 31 37 0d 0c 8a 23 |t line is 17...#|
00002d50 dc 20 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 |. "","","","",""|
00002d60 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 0d |,"","","","","".|
00002d70 0c 94 10 dc 20 22 30 32 2c 30 35 2c 30 36 22 0d |.... "02,05,06".|
00002d80 0c 9e 0d dc 20 22 30 31 2c 30 37 22 0d 0c a8 0d |.... "01,07"....|
00002d90 dc 20 22 30 31 2c 30 38 22 0d 0c b2 0d dc 20 22 |. "01,08"..... "|
00002da0 30 31 2c 30 39 22 0d 0c bc 0d dc 20 22 30 31 2c |01,09"..... "01,|
00002db0 31 30 22 0d 0c c6 0d dc 20 22 30 31 2c 31 31 22 |10"..... "01,11"|
00002dc0 0d 0c d0 0d dc 20 22 30 31 2c 31 32 22 0d 0c da |..... "01,12"...|
00002dd0 0d dc 20 22 30 31 2c 31 31 22 0d 0c e4 0d dc 20 |.. "01,11"..... |
00002de0 22 30 31 2c 31 32 22 0d 0c ee 0d dc 20 22 30 31 |"01,12"..... "01|
00002df0 2c 31 31 22 0d 0c f8 0d dc 20 22 30 31 2c 31 32 |,11"..... "01,12|
00002e00 22 0d 0d 02 0d dc 20 22 30 31 2c 31 31 22 0d 0d |"..... "01,11"..|
00002e10 0c 0d dc 20 22 30 31 2c 31 32 22 0d 0d 16 0d f4 |... "01,12".....|
00002e20 20 73 74 6f 70 20 32 39 0d 0d 20 13 dc 20 22 30 | stop 29.. .. "0|
00002e30 33 2c 30 35 2c 31 30 2c 31 33 22 0d 0d 2a 0d dc |3,05,10,13"..*..|
00002e40 20 22 30 31 2c 31 34 22 0d 0d 34 0d dc 20 22 30 | "01,14"..4.. "0|
00002e50 31 2c 31 33 22 0d 0d 3e 0d dc 20 22 30 31 2c 31 |1,13"..>.. "01,1|
00002e60 34 22 0d 0d 48 0d dc 20 22 30 31 2c 31 33 22 0d |4"..H.. "01,13".|
00002e70 0d 52 10 dc 20 22 30 32 2c 31 34 2c 31 35 22 0d |.R.. "02,14,15".|
00002e80 0d 5c 10 dc 20 22 30 32 2c 31 33 2c 31 36 22 0d |.\.. "02,13,16".|
00002e90 0d 66 10 dc 20 22 30 32 2c 31 34 2c 31 37 22 0d |.f.. "02,14,17".|
00002ea0 0d 70 10 dc 20 22 30 32 2c 31 33 2c 31 37 22 0d |.p.. "02,13,17".|
00002eb0 0d 7a 10 dc 20 22 30 32 2c 31 34 2c 31 37 22 0d |.z.. "02,14,17".|
00002ec0 0d 84 10 dc 20 22 30 32 2c 31 33 2c 31 37 22 0d |.... "02,13,17".|
00002ed0 0d 8e 0d f4 20 73 74 6f 70 20 34 30 0d 0d 98 10 |.... stop 40....|
00002ee0 dc 20 22 30 32 2c 30 30 2c 30 33 22 0d 0d a2 0d |. "02,00,03"....|
00002ef0 dc 20 22 30 31 2c 31 38 22 0d 0d ac 0d dc 20 22 |. "01,18"..... "|
00002f00 30 31 2c 31 39 22 0d 0d b6 0d dc 20 22 30 31 2c |01,19"..... "01,|
00002f10 32 30 22 0d 0d c0 0d f4 20 73 74 6f 70 20 34 34 |20"..... stop 44|
00002f20 0d 0d ca 0d dc 20 22 30 31 2c 32 31 22 0d 0d d4 |..... "01,21"...|
00002f30 0d dc 20 22 30 31 2c 32 32 22 0d 0d de 0d f4 20 |.. "01,22"..... |
00002f40 73 74 6f 70 20 34 36 0d 0d e8 0d dc 20 22 30 31 |stop 46..... "01|
00002f50 2c 32 33 22 0d 0d f2 0d dc 20 22 30 31 2c 32 34 |,23"..... "01,24|
00002f60 22 0d 0d fc 0d dc 20 22 30 31 2c 32 35 22 0d 0e |"..... "01,25"..|
00002f70 06 0d dc 20 22 30 31 2c 32 36 22 0d 0e 10 0d dc |... "01,26".....|
00002f80 20 22 30 31 2c 32 37 22 0d 0e 1a 1b e3 6b 25 3d | "01,27".....k%=|
00002f90 30 b8 35 31 3a f3 20 70 68 6f 74 6f 24 28 6b 25 |0.51:. photo$(k%|
00002fa0 29 3a ed 0d 0e 24 08 f7 20 2b 30 0d 0e 2e 20 dc |):...$.. +0... .|
00002fb0 20 31 33 38 2c 36 34 2c 31 32 32 2c 34 30 2c 31 | 138,64,122,40,1|
00002fc0 32 34 2c 32 30 2c 31 32 38 2c 34 0d 0e 38 26 e3 |24,20,128,4..8&.|
00002fd0 6a 25 3d 30 b8 33 3a e3 6b 25 3d 30 b8 31 3a f3 |j%=0.3:.k%=0.1:.|
00002fe0 20 63 61 72 72 25 28 6a 25 2c 6b 25 29 3a ed 3a | carr%(j%,k%):.:|
00002ff0 ed 0d 0e 42 08 f7 20 2b 30 0d 0e 4c 31 dc 20 32 |...B.. +0..L1. 2|
00003000 31 34 2c 31 36 34 2c 39 32 2c 35 36 2c 31 39 34 |14,164,92,56,194|
00003010 2c 31 35 32 2c 32 31 34 2c 31 32 34 2c 39 36 2c |,152,214,124,96,|
00003020 31 32 2c 31 39 36 2c 31 30 38 0d 0e 56 26 e3 6a |12,196,108..V&.j|
00003030 25 3d 30 b8 35 3a e3 6b 25 3d 30 b8 31 3a f3 20 |%=0.5:.k%=0.1:. |
00003040 72 6f 6f 74 25 28 6a 25 2c 6b 25 29 3a ed 3a ed |root%(j%,k%):.:.|
00003050 0d 0e 60 08 f7 20 2b 30 0d 0e 6a 35 dc 20 31 31 |..`.. +0..j5. 11|
00003060 38 2c 31 31 36 2c 32 32 30 2c 31 31 36 2c 35 36 |8,116,220,116,56|
00003070 38 2c 31 31 36 2c 36 37 34 2c 31 31 36 2c 35 39 |8,116,674,116,59|
00003080 38 2c 31 32 38 2c 36 34 36 2c 31 32 38 0d 0e 74 |8,128,646,128..t|
00003090 25 e3 6a 25 3d 30 b8 35 3a e3 6b 25 3d 30 b8 31 |%.j%=0.5:.k%=0.1|
000030a0 3a f3 20 73 74 31 25 28 6a 25 2c 6b 25 29 3a ed |:. st1%(j%,k%):.|
000030b0 3a ed 0d 0e 7e 08 f7 20 2b 30 0d 0e 88 35 dc 20 |:...~.. +0...5. |
000030c0 31 30 36 2c 31 31 32 2c 32 33 34 2c 31 31 32 2c |106,112,234,112,|
000030d0 35 35 38 2c 31 31 32 2c 36 38 36 2c 31 31 32 2c |558,112,686,112,|
000030e0 35 39 30 2c 31 32 34 2c 36 35 34 2c 31 32 34 0d |590,124,654,124.|
000030f0 0e 92 25 e3 6a 25 3d 30 b8 35 3a e3 6b 25 3d 30 |..%.j%=0.5:.k%=0|
00003100 b8 31 3a f3 20 73 74 32 25 28 6a 25 2c 6b 25 29 |.1:. st2%(j%,k%)|
00003110 3a ed 3a ed 0d 0e 9c 08 f7 20 2b 30 0d 0e a6 5a |:.:...... +0...Z|
00003120 dc 20 32 33 32 2c 31 34 38 2c 32 38 30 2c 31 39 |. 232,148,280,19|
00003130 32 2c 32 38 30 2c 31 39 32 2c 32 38 30 2c 31 39 |2,280,192,280,19|
00003140 32 2c 32 37 32 2c 31 38 30 2c 32 35 38 2c 31 36 |2,272,180,258,16|
00003150 38 2c 32 34 34 2c 31 36 30 2c 32 30 36 2c 31 35 |8,244,160,206,15|
00003160 30 2c 31 37 36 2c 39 32 2c 31 34 38 2c 36 34 2c |0,176,92,148,64,|
00003170 31 32 30 2c 33 36 0d 0e b0 27 e3 6a 25 3d 30 b8 |120,36...'.j%=0.|
00003180 31 30 3a e3 6b 25 3d 30 b8 31 3a f3 20 77 6f 6f |10:.k%=0.1:. woo|
00003190 64 25 28 6a 25 2c 6b 25 29 3a ed 3a ed 0d 0e ba |d%(j%,k%):.:....|
000031a0 08 f7 20 2b 30 0d 0e c4 75 dc 20 34 37 30 2c 34 |.. +0...u. 470,4|
000031b0 36 34 2c 34 35 36 2c 34 31 32 2c 34 34 34 2c 33 |64,456,412,444,3|
000031c0 36 34 2c 34 33 32 2c 33 30 38 2c 34 32 36 2c 32 |64,432,308,426,2|
000031d0 34 38 2c 34 31 36 2c 31 39 36 2c 33 37 34 2c 31 |48,416,196,374,1|
000031e0 36 30 2c 33 31 34 2c 31 34 34 2c 32 38 34 2c 31 |60,314,144,284,1|
000031f0 34 34 2c 32 38 34 2c 31 34 34 2c 32 38 34 2c 31 |44,284,144,284,1|
*
00003210 34 34 2c 32 38 34 2c 31 34 34 0d 0e ce 27 e3 6a |44,284,144...'.j|
00003220 25 3d 30 b8 31 33 3a e3 6b 25 3d 30 b8 31 3a f3 |%=0.13:.k%=0.1:.|
00003230 20 66 65 72 74 25 28 6a 25 2c 6b 25 29 3a ed 3a | fert%(j%,k%):.:|
00003240 ed 0d 0e d8 08 f7 20 2b 30 0d 0e e2 b2 dc 20 35 |...... +0..... 5|
00003250 34 2c 34 33 32 2c 35 30 2c 35 30 30 2c 35 30 2c |4,432,50,500,50,|
00003260 34 33 32 2c 33 36 2c 33 38 34 2c 32 34 2c 33 35 |432,36,384,24,35|
00003270 32 2c 32 34 2c 33 35 32 2c 35 38 32 2c 35 31 32 |2,24,352,582,512|
00003280 2c 35 38 38 2c 35 31 32 2c 35 30 36 2c 34 34 34 |,588,512,506,444|
00003290 2c 34 31 38 2c 33 38 34 2c 33 39 34 2c 33 34 38 |,418,384,394,348|
000032a0 2c 30 2c 30 2c 31 33 34 2c 31 35 36 2c 31 33 30 |,0,0,134,156,130|
000032b0 2c 31 36 38 2c 31 33 36 2c 38 34 2c 31 33 34 2c |,168,136,84,134,|
000032c0 34 38 2c 31 33 32 2c 32 38 2c 31 33 30 2c 32 38 |48,132,28,130,28|
000032d0 2c 36 38 30 2c 31 36 30 2c 36 39 32 2c 31 38 30 |,680,160,692,180|
000032e0 2c 36 34 32 2c 31 34 34 2c 35 37 30 2c 31 30 38 |,642,144,570,108|
000032f0 2c 35 30 34 2c 38 30 2c 30 2c 30 0d 0e ec 32 e3 |,504,80,0,0...2.|
00003300 6a 25 3d 30 b8 33 3a e3 6b 25 3d 30 b8 35 3a e3 |j%=0.3:.k%=0.5:.|
00003310 6c 25 3d 30 b8 31 3a f3 20 66 72 75 25 28 6a 25 |l%=0.1:. fru%(j%|
00003320 2c 6b 25 2c 6c 25 29 3a ed 3a ed 3a ed 0d 0e f6 |,k%,l%):.:.:....|
00003330 08 f7 20 2b 30 0d 0f 00 2b dc 20 22 34 2c 33 35 |.. +0...+. "4,35|
00003340 30 2c 33 2c 37 30 30 2c 31 2c 35 39 30 2c 34 2c |0,3,700,1,590,4,|
00003350 36 30 30 2c 33 2c 35 32 30 2c 30 2c 34 38 30 22 |600,3,520,0,480"|
00003360 0d 0f 0a 2b dc 20 22 33 2c 34 33 30 2c 30 2c 37 |...+. "3,430,0,7|
00003370 36 38 2c 32 2c 35 39 34 2c 33 2c 36 38 30 2c 30 |68,2,594,3,680,0|
00003380 2c 35 38 38 2c 31 2c 35 30 34 22 0d 0f 14 2b dc |,588,1,504"...+.|
00003390 20 22 30 2c 34 39 38 2c 31 2c 37 39 32 2c 32 2c | "0,498,1,792,2,|
000033a0 35 39 34 2c 30 2c 37 34 38 2c 31 2c 36 31 32 2c |594,0,748,1,612,|
000033b0 32 2c 35 30 38 22 0d 0f 1e 2b dc 20 22 33 2c 34 |2,508"...+. "3,4|
000033c0 33 30 2c 30 2c 37 36 38 2c 32 2c 35 39 34 2c 33 |30,0,768,2,594,3|
000033d0 2c 36 38 30 2c 30 2c 35 38 38 2c 31 2c 35 30 34 |,680,0,588,1,504|
000033e0 22 0d 0f 28 18 e3 6a 25 3d 30 b8 33 3a f3 20 67 |"..(..j%=0.3:. g|
000033f0 72 61 24 28 6a 25 29 3a ed 0d 0f 32 08 f7 20 2b |ra$(j%):...2.. +|
00003400 30 0d 0f 3c 51 dc 20 32 31 36 2c 35 32 38 2c 32 |0..<Q. 216,528,2|
00003410 37 34 2c 36 33 32 2c 31 36 34 2c 35 37 32 2c 34 |74,632,164,572,4|
00003420 34 2c 35 33 32 2c 34 30 2c 35 35 32 2c 31 31 36 |4,532,40,552,116|
00003430 2c 36 33 32 2c 32 36 38 2c 36 31 36 2c 39 38 2c |,632,268,616,98,|
00003440 36 31 36 2c 32 36 2c 35 33 36 2c 32 30 36 2c 35 |616,26,536,206,5|
00003450 31 32 0d 0f 46 27 e3 6a 25 3d 30 b8 39 3a e3 6b |12..F'.j%=0.9:.k|
00003460 25 3d 30 b8 31 3a f3 20 64 69 73 70 31 25 28 6a |%=0.1:. disp1%(j|
00003470 25 2c 6b 25 29 3a ed 3a ed 0d 0f 50 08 f7 20 2b |%,k%):.:...P.. +|
00003480 30 0d 0f 5a 45 dc 20 35 37 34 2c 35 35 36 2c 35 |0..ZE. 574,556,5|
00003490 38 32 2c 35 32 30 2c 37 35 32 2c 35 32 38 2c 35 |82,520,752,528,5|
000034a0 31 36 2c 36 32 38 2c 35 33 34 2c 36 32 30 2c 37 |16,628,534,620,7|
000034b0 34 38 2c 35 34 34 2c 36 39 30 2c 36 30 38 2c 35 |48,544,690,608,5|
000034c0 39 36 2c 35 30 38 0d 0f 64 27 e3 6a 25 3d 30 b8 |96,508..d'.j%=0.|
000034d0 37 3a e3 6b 25 3d 30 b8 31 3a f3 20 64 69 73 70 |7:.k%=0.1:. disp|
000034e0 32 25 28 6a 25 2c 6b 25 29 3a ed 3a ed 0d 0f 6e |2%(j%,k%):.:...n|
000034f0 08 f7 20 2b 30 0d 0f 78 1d dc 20 34 33 36 2c 36 |.. +0..x.. 436,6|
00003500 32 38 2c 34 35 36 2c 36 31 36 2c 34 34 32 2c 36 |28,456,616,442,6|
00003510 31 32 0d 0f 82 27 e3 6a 25 3d 30 b8 32 3a e3 6b |12...'.j%=0.2:.k|
00003520 25 3d 30 b8 31 3a f3 20 64 69 73 70 33 25 28 6a |%=0.1:. disp3%(j|
00003530 25 2c 6b 25 29 3a ed 3a ed 0d 0f 8c 08 f7 20 2b |%,k%):.:...... +|
00003540 30 0d 0f 96 1d dc 20 37 32 2c 37 36 2c 33 36 2c |0..... 72,76,36,|
00003550 33 32 2c 37 32 2c 39 36 2c 36 38 2c 38 38 0d 0f |32,72,96,68,88..|
00003560 a0 1a e3 6a 25 3d 30 b8 37 3a f3 20 73 6c 61 6e |...j%=0.7:. slan|
00003570 64 25 28 6a 25 29 3a ed 0d 0f aa 08 f7 20 2b 30 |d%(j%):...... +0|
00003580 0d 0f b4 11 dc 20 32 36 34 2c 32 33 32 2c 32 34 |..... 264,232,24|
00003590 30 0d 0f be 19 e3 6a 25 3d 30 b8 32 3a f3 20 63 |0.....j%=0.2:. c|
000035a0 62 65 78 25 28 6a 25 29 3a ed 0d 0f c8 08 f7 20 |bex%(j%):...... |
000035b0 2b 30 0d 0f d2 0d dc 20 34 36 30 2c 33 37 36 0d |+0..... 460,376.|
000035c0 0f dc 1a e3 6a 25 3d 30 b8 31 3a f3 20 6c 75 70 |....j%=0.1:. lup|
000035d0 65 78 25 28 6a 25 29 3a ed 0d 0f e6 08 f7 20 2b |ex%(j%):...... +|
000035e0 30 0d 0f f0 2b dc 20 32 35 38 2c 33 34 38 2c 31 |0...+. 258,348,1|
000035f0 39 38 2c 33 36 34 2c 31 34 30 2c 33 32 34 2c 31 |98,364,140,324,1|
00003600 30 30 2c 32 31 36 2c 38 32 2c 36 30 0d 0f fa 2c |00,216,82,60...,|
00003610 dc 20 33 31 30 2c 33 34 30 2c 33 37 32 2c 33 33 |. 310,340,372,33|
00003620 32 2c 34 33 34 2c 32 34 38 2c 34 38 30 2c 31 34 |2,434,248,480,14|
00003630 30 2c 35 33 36 2c 36 30 0d 10 04 2b dc 20 32 38 |0,536,60...+. 28|
00003640 38 2c 33 32 38 2c 33 37 38 2c 33 35 32 2c 35 33 |8,328,378,352,53|
00003650 32 2c 33 33 32 2c 37 30 38 2c 32 38 34 2c 38 32 |2,332,708,284,82|
00003660 30 2c 30 0d 10 0e 2a dc 20 32 34 30 2c 33 32 34 |0,0...*. 240,324|
00003670 2c 31 35 38 2c 33 33 36 2c 33 30 2c 33 31 36 2c |,158,336,30,316,|
00003680 2d 31 30 30 2c 30 2c 2d 31 30 30 2c 30 0d 10 18 |-100,0,-100,0...|
00003690 2d dc 20 32 36 38 2c 33 30 34 2c 32 31 34 2c 33 |-. 268,304,214,3|
000036a0 33 32 2c 31 36 32 2c 33 31 32 2c 31 34 30 2c 32 |32,162,312,140,2|
000036b0 34 34 2c 31 33 38 2c 31 31 32 0d 10 22 2b dc 20 |44,138,112.."+. |
000036c0 33 36 36 2c 33 35 36 2c 32 37 32 2c 33 39 32 2c |366,356,272,392,|
000036d0 31 35 38 2c 33 38 38 2c 37 34 2c 33 34 30 2c 2d |158,388,74,340,-|
000036e0 31 30 30 2c 30 0d 10 2c 2a dc 20 33 35 38 2c 33 |100,0..,*. 358,3|
000036f0 32 30 2c 32 36 34 2c 33 34 30 2c 31 34 36 2c 33 |20,264,340,146,3|
00003700 30 34 2c 37 34 2c 32 31 36 2c 33 32 2c 38 38 0d |04,74,216,32,88.|
00003710 10 36 2c dc 20 34 33 34 2c 33 31 32 2c 34 30 36 |.6,. 434,312,406|
00003720 2c 33 35 36 2c 33 34 36 2c 33 34 30 2c 32 38 38 |,356,346,340,288|
00003730 2c 32 34 38 2c 32 35 34 2c 39 36 0d 10 40 2d dc |,248,254,96..@-.|
00003740 20 34 37 34 2c 32 38 34 2c 34 36 36 2c 33 33 36 | 474,284,466,336|
00003750 2c 34 34 32 2c 33 35 32 2c 34 31 36 2c 32 37 36 |,442,352,416,276|
00003760 2c 34 30 34 2c 31 34 30 0d 10 4a 29 dc 20 35 37 |,404,140..J). 57|
00003770 34 2c 32 38 38 2c 36 36 32 2c 33 33 36 2c 37 38 |4,288,662,336,78|
00003780 34 2c 33 34 38 2c 38 32 30 2c 30 2c 38 32 30 2c |4,348,820,0,820,|
00003790 30 0d 10 54 2a dc 20 35 31 38 2c 32 36 38 2c 35 |0..T*. 518,268,5|
000037a0 36 32 2c 32 34 38 2c 35 39 36 2c 31 39 36 2c 36 |62,248,596,196,6|
000037b0 33 32 2c 39 32 2c 38 32 30 2c 30 0d 10 5e 27 dc |32,92,820,0..^'.|
000037c0 20 36 31 34 2c 32 35 32 2c 37 33 34 2c 32 39 32 | 614,252,734,292|
000037d0 2c 38 32 30 2c 30 2c 38 32 30 2c 30 2c 38 32 30 |,820,0,820,0,820|
000037e0 2c 30 0d 10 68 2b dc 20 35 39 34 2c 32 32 30 2c |,0..h+. 594,220,|
000037f0 36 34 38 2c 32 32 38 2c 37 31 30 2c 31 39 32 2c |648,228,710,192,|
00003800 37 36 34 2c 31 31 32 2c 38 32 30 2c 30 0d 10 72 |764,112,820,0..r|
00003810 34 e3 6a 25 3d 30 b8 31 32 3a e3 6b 25 3d 30 b8 |4.j%=0.12:.k%=0.|
00003820 34 3a e3 6c 25 3d 30 b8 31 3a f3 20 62 65 61 6e |4:.l%=0.1:. bean|
00003830 25 28 6a 25 2c 6b 25 2c 6c 25 29 3a ed 3a ed 3a |%(j%,k%,l%):.:.:|
00003840 ed 0d 10 7c 08 f7 20 2b 30 0d 10 86 72 dc 20 38 |...|.. +0...r. 8|
00003850 34 2c 34 34 34 2c 31 32 36 2c 34 33 36 2c 32 31 |4,444,126,436,21|
00003860 38 2c 33 39 36 2c 33 35 36 2c 33 37 36 2c 34 39 |8,396,356,376,49|
00003870 30 2c 33 35 36 2c 36 32 38 2c 33 32 34 2c 35 33 |0,356,628,324,53|
00003880 30 2c 32 38 38 2c 34 31 38 2c 32 35 36 2c 33 30 |0,288,418,256,30|
00003890 38 2c 32 33 32 2c 32 30 32 2c 32 31 32 2c 38 30 |8,232,202,212,80|
000038a0 2c 31 38 34 2c 31 35 30 2c 31 35 36 2c 32 32 34 |,184,150,156,224|
000038b0 2c 31 32 30 2c 33 31 38 2c 37 32 0d 10 90 26 e3 |,120,318,72...&.|
000038c0 6a 25 3d 30 b8 31 33 3a e3 6b 25 3d 30 b8 31 3a |j%=0.13:.k%=0.1:|
000038d0 f3 20 73 79 63 25 28 6a 25 2c 6b 25 29 3a ed 3a |. syc%(j%,k%):.:|
000038e0 ed 0d 10 9a 08 f7 20 2b 30 0d 10 a4 20 dc 20 35 |...... +0... . 5|
000038f0 33 38 2c 34 39 30 2c 34 34 36 2c 33 33 38 2c 32 |38,490,446,338,2|
00003900 35 38 2c 31 34 38 2c 38 30 0d 10 ae 19 e3 6a 25 |58,148,80.....j%|
00003910 3d 30 b8 36 3a f3 20 64 61 6e 64 25 28 6a 25 29 |=0.6:. dand%(j%)|
00003920 3a ed 0d 10 b8 08 f7 20 2b 30 0d 10 c2 43 dc 20 |:...... +0...C. |
00003930 35 30 38 2c 33 33 32 2c 34 36 32 2c 33 31 32 2c |508,332,462,312,|
00003940 34 30 38 2c 32 38 34 2c 33 35 32 2c 32 35 36 2c |408,284,352,256,|
00003950 33 30 30 2c 32 33 32 2c 32 31 38 2c 31 38 34 2c |300,232,218,184,|
00003960 31 34 32 2c 31 33 36 2c 36 32 2c 38 30 0d 10 cc |142,136,62,80...|
00003970 25 e3 6a 25 3d 30 b8 37 3a e3 6b 25 3d 30 b8 31 |%.j%=0.7:.k%=0.1|
00003980 3a f3 20 64 73 65 25 28 6a 25 2c 6b 25 29 3a ed |:. dse%(j%,k%):.|
00003990 3a ed 0d 10 d6 08 f7 20 2b 30 0d 10 e0 a1 dc 20 |:...... +0..... |
000039a0 30 2c 31 36 34 2c 35 39 36 2c 31 2c 31 36 32 2c |0,164,596,1,162,|
000039b0 35 36 30 2c 31 2c 31 37 32 2c 35 32 34 2c 31 2c |560,1,172,524,1,|
000039c0 31 38 32 2c 34 38 34 2c 31 2c 31 39 36 2c 34 33 |182,484,1,196,43|
000039d0 36 2c 32 2c 32 31 30 2c 34 32 30 2c 33 2c 32 32 |6,2,210,420,3,22|
000039e0 36 2c 34 33 32 2c 33 2c 32 34 32 2c 34 38 30 2c |6,432,3,242,480,|
000039f0 33 2c 32 35 34 2c 35 33 36 2c 33 2c 32 36 38 2c |3,254,536,3,268,|
00003a00 35 39 36 2c 33 2c 30 2c 36 35 30 2c 34 2c 32 32 |596,3,0,650,4,22|
00003a10 32 2c 35 36 30 2c 34 2c 32 32 32 2c 34 35 36 2c |2,560,4,222,456,|
00003a20 34 2c 32 32 32 2c 33 33 36 2c 34 2c 32 32 32 2c |4,222,336,4,222,|
00003a30 31 38 38 2c 35 2c 31 37 32 2c 34 0d 10 ea 25 e3 |188,5,172,4...%.|
00003a40 6a 25 3d 30 b8 31 35 3a e3 6b 25 3d 30 b8 32 3a |j%=0.15:.k%=0.2:|
00003a50 f3 20 64 6f 25 28 6a 25 2c 6b 25 29 3a ed 3a ed |. do%(j%,k%):.:.|
00003a60 0d 10 f4 08 f7 20 2b 30 0d 10 fe 19 dc 20 32 31 |..... +0..... 21|
00003a70 32 2c 34 2c 31 39 38 2c 35 32 2c 31 37 30 2c 33 |2,4,198,52,170,3|
00003a80 32 0d 11 08 26 e3 6a 25 3d 30 b8 32 3a e3 6b 25 |2...&.j%=0.2:.k%|
00003a90 3d 30 b8 31 3a f3 20 6d 6c 78 79 25 28 6a 25 2c |=0.1:. mlxy%(j%,|
00003aa0 6b 25 29 3a ed 3a ed 0d 11 12 08 f7 20 2b 30 0d |k%):.:...... +0.|
00003ab0 11 1c 19 dc 20 33 39 32 2c 33 35 32 2c 33 30 30 |.... 392,352,300|
00003ac0 2c 32 32 34 2c 31 33 36 0d 11 26 18 e3 6a 25 3d |,224,136..&..j%=|
00003ad0 30 b8 34 3a f3 20 63 6f 63 25 28 6a 25 29 3a ed |0.4:. coc%(j%):.|
00003ae0 0d 11 30 08 f7 20 2b 30 0d 11 3a 23 dc 20 31 37 |..0.. +0..:#. 17|
00003af0 32 2c 31 37 32 2c 31 33 36 2c 38 30 2c 36 38 2c |2,172,136,80,68,|
00003b00 36 30 2c 34 38 2c 34 30 2c 33 32 0d 11 44 18 e3 |60,48,40,32..D..|
00003b10 6a 25 3d 30 b8 38 3a f3 20 70 65 61 25 28 6a 25 |j%=0.8:. pea%(j%|
00003b20 29 3a ed 0d 11 4e 08 f7 20 2b 30 0d 11 58 23 dc |):...N.. +0..X#.|
00003b30 20 31 39 36 2c 31 39 36 2c 31 35 32 2c 39 32 2c | 196,196,152,92,|
00003b40 37 32 2c 35 36 2c 34 34 2c 33 36 2c 32 38 0d 11 |72,56,44,36,28..|
00003b50 62 19 e3 6a 25 3d 30 b8 38 3a f3 20 73 75 6e 66 |b..j%=0.8:. sunf|
00003b60 25 28 6a 25 29 3a ed 0d 11 6c 08 f7 20 2b 30 0d |%(j%):...l.. +0.|
00003b70 11 76 25 dc 20 31 39 32 2c 31 38 38 2c 31 35 36 |.v%. 192,188,156|
00003b80 2c 31 34 30 2c 31 31 32 2c 38 38 2c 37 36 2c 37 |,140,112,88,76,7|
00003b90 32 2c 36 34 0d 11 80 18 e3 6a 25 3d 30 b8 38 3a |2,64.....j%=0.8:|
00003ba0 f3 20 77 68 65 25 28 6a 25 29 3a ed 0d 11 8a 08 |. whe%(j%):.....|
00003bb0 f7 20 2b 30 0d 11 94 23 dc 20 22 31 31 30 2c 70 |. +0...#. "110,p|
00003bc0 65 61 22 2c 22 33 33 32 2c 73 75 6e 22 2c 22 36 |ea","332,sun","6|
00003bd0 33 34 2c 77 68 65 22 0d 11 9e 23 dc 20 22 30 37 |34,whe"...#. "07|
00003be0 30 2c 68 79 70 22 2c 22 33 34 38 2c 65 70 69 22 |0,hyp","348,epi"|
00003bf0 2c 22 35 37 30 2c 6d 6f 6e 22 0d 11 a8 23 dc 20 |,"570,mon"...#. |
00003c00 22 30 36 30 2c 70 65 62 22 2c 22 32 38 34 2c 73 |"060,peb","284,s|
00003c10 75 62 22 2c 22 35 38 36 2c 77 68 62 22 0d 11 b2 |ub","586,whb"...|
00003c20 18 e3 6a 25 3d 30 b8 38 3a f3 20 67 65 72 24 28 |..j%=0.8:. ger$(|
00003c30 6a 25 29 3a ed 0d 11 bc 08 f7 20 2b 30 0d 11 c6 |j%):...... +0...|
00003c40 37 dc 20 32 36 2c 31 38 30 2c 32 36 2c 31 38 30 |7. 26,180,26,180|
00003c50 2c 34 36 2c 31 38 30 2c 34 36 2c 31 38 30 2c 33 |,46,180,46,180,3|
00003c60 30 2c 37 32 2c 31 34 38 2c 33 34 34 2c 31 33 30 |0,72,148,344,130|
00003c70 2c 33 34 34 0d 11 d0 26 e3 6a 25 3d 30 b8 36 3a |,344...&.j%=0.6:|
00003c80 e3 6b 25 3d 30 b8 31 3a f3 20 63 6f 72 6d 25 28 |.k%=0.1:. corm%(|
00003c90 6a 25 2c 6b 25 29 3a ed 3a ed 0d 11 da 08 f7 20 |j%,k%):.:...... |
00003ca0 2b 30 0d 11 e4 33 dc 20 34 39 38 2c 31 36 30 2c |+0...3. 498,160,|
00003cb0 34 39 38 2c 31 36 30 2c 34 39 38 2c 31 36 30 2c |498,160,498,160,|
00003cc0 34 38 32 2c 31 36 30 2c 34 33 38 2c 34 34 2c 34 |482,160,438,44,4|
00003cd0 32 38 2c 34 34 0d 11 ee 26 e3 6a 25 3d 30 b8 35 |28,44...&.j%=0.5|
00003ce0 3a e3 6b 25 3d 30 b8 31 3a f3 20 62 75 6c 62 25 |:.k%=0.1:. bulb%|
00003cf0 28 6a 25 2c 6b 25 29 3a ed 3a ed 0d 11 f8 08 f7 |(j%,k%):.:......|
00003d00 20 2b 30 0d 12 02 2d dc 20 31 34 38 2c 32 34 34 | +0...-. 148,244|
00003d10 2c 32 33 34 2c 32 38 38 2c 33 39 32 2c 32 31 32 |,234,288,392,212|
00003d20 2c 33 39 32 2c 31 36 30 2c 33 37 32 2c 31 33 36 |,392,160,372,136|
00003d30 0d 12 0c 25 e3 6a 25 3d 30 b8 34 3a e3 6b 25 3d |...%.j%=0.4:.k%=|
00003d40 30 b8 31 3a f3 20 72 75 6e 25 28 6a 25 2c 6b 25 |0.1:. run%(j%,k%|
00003d50 29 3a ed 3a ed 0d 12 16 08 f7 20 2b 30 0d 12 20 |):.:...... +0.. |
00003d60 30 dc 20 33 36 32 2c 31 31 32 2c 32 37 34 2c 31 |0. 362,112,274,1|
00003d70 31 32 2c 38 38 2c 39 36 2c 30 2c 38 34 2c 31 38 |12,88,96,0,84,18|
00003d80 36 2c 31 38 34 2c 31 35 30 2c 31 37 36 0d 12 2a |6,184,150,176..*|
00003d90 25 e3 6a 25 3d 30 b8 35 3a e3 6b 25 3d 30 b8 31 |%.j%=0.5:.k%=0.1|
00003da0 3a f3 20 72 68 69 25 28 6a 25 2c 6b 25 29 3a ed |:. rhi%(j%,k%):.|
00003db0 3a ed 0d 12 34 05 e1 0d 12 3e 04 0d 12 48 10 dd |:...4....>...H..|
00003dc0 f2 6d 6f 64 65 63 68 61 6e 67 65 0d 12 52 26 c8 |.modechange..R&.|
00003dd0 99 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 69 |."OS_ReadVduVari|
00003de0 61 62 6c 65 73 22 2c 69 6e 62 25 2c 6f 75 74 62 |ables",inb%,outb|
00003df0 25 0d 12 5c 4e 78 6d 61 78 65 63 25 3d 28 28 28 |%..\Nxmaxec%=(((|
00003e00 6f 75 74 62 25 21 38 29 2b 31 29 3c 3c 28 6f 75 |outb%!8)+1)<<(ou|
00003e10 74 62 25 21 30 29 29 2d 31 3a 79 6d 61 78 65 63 |tb%!0))-1:ymaxec|
00003e20 25 3d 28 28 28 6f 75 74 62 25 21 31 32 29 2b 31 |%=(((outb%!12)+1|
00003e30 29 3c 3c 28 6f 75 74 62 25 21 34 29 29 2d 31 0d |)<<(outb%!4))-1.|
00003e40 12 66 43 c8 99 22 57 69 6d 70 5f 52 65 61 64 50 |.fC.."Wimp_ReadP|
00003e50 69 78 54 72 61 6e 73 22 2c 26 31 30 30 2c 61 6e |ixTrans",&100,an|
00003e60 69 6d 61 72 65 61 25 2c 22 61 6e 69 6d 22 2c 2c |imarea%,"anim",,|
00003e70 2c 2c 73 63 61 6c 65 25 2c 63 6f 6c 74 72 61 6e |,,scale%,coltran|
00003e80 73 25 0d 12 70 05 e1 0d 12 7a 04 0d 12 84 18 dd |s%..p....z......|
00003e90 f2 65 72 72 6f 72 28 6d 73 67 24 2c 65 72 72 6e |.error(msg$,errn|
00003ea0 6f 25 29 0d 12 8e 21 21 65 72 72 62 6c 6b 25 3d |o%)...!!errblk%=|
00003eb0 39 39 3a 24 28 65 72 72 62 6c 6b 25 2b 34 29 3d |99:$(errblk%+4)=|
00003ec0 6d 73 67 24 0d 12 98 2f c8 99 20 22 57 69 6d 70 |msg$.../.. "Wimp|
00003ed0 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 2c 65 72 |_ReportError",er|
00003ee0 72 62 6c 6b 25 2c 30 2c 22 50 6c 61 6e 74 77 69 |rblk%,0,"Plantwi|
00003ef0 73 65 22 0d 12 a2 05 e1 0d 12 ac 04 0d 12 b6 1b |se".............|
00003f00 dd f2 64 69 73 63 6d 65 73 73 28 6d 73 67 24 2c |..discmess(msg$,|
00003f10 65 72 72 6e 6f 25 29 0d 12 c0 21 21 65 72 72 62 |errno%)...!!errb|
00003f20 6c 6b 25 3d 39 39 3a 24 28 65 72 72 62 6c 6b 25 |lk%=99:$(errblk%|
00003f30 2b 34 29 3d 6d 73 67 24 0d 12 ca 34 c8 99 20 22 |+4)=msg$...4.. "|
00003f40 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 |Wimp_ReportError|
00003f50 22 2c 65 72 72 62 6c 6b 25 2c 25 31 30 30 30 30 |",errblk%,%10000|
00003f60 2c 22 50 6c 61 6e 74 77 69 73 65 22 0d 12 d4 05 |,"Plantwise"....|
00003f70 e1 0d 12 de 04 0d 12 e8 19 dd f2 73 65 6c 65 63 |...........selec|
00003f80 74 69 63 6e 28 77 25 2c 69 25 2c 66 25 29 0d 12 |ticn(w%,i%,f%)..|
00003f90 f2 46 21 62 6c 6b 25 3d 77 25 3a 62 6c 6b 25 21 |.F!blk%=w%:blk%!|
00003fa0 34 3d 69 25 3a 62 6c 6b 25 21 31 32 3d 28 31 3c |4=i%:blk%!12=(1<|
00003fb0 3c 32 31 29 3a e7 66 25 3d 30 20 62 6c 6b 25 21 |<21):.f%=0 blk%!|
00003fc0 38 3d 30 3a 8b 20 62 6c 6b 25 21 38 3d 62 6c 6b |8=0:. blk%!8=blk|
00003fd0 25 21 31 32 0d 12 fc 20 c8 99 20 22 57 69 6d 70 |%!12... .. "Wimp|
00003fe0 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c |_SetIconState",,|
00003ff0 62 6c 6b 25 0d 13 06 05 e1 0d 13 10 04 0d 13 1a |blk%............|
00004000 19 dd f2 67 65 74 69 63 6f 6e 73 74 61 74 65 28 |...geticonstate(|
00004010 77 25 2c 69 25 29 0d 13 24 33 21 62 6c 6b 25 3d |w%,i%)..$3!blk%=|
00004020 77 25 3a 62 6c 6b 25 21 34 3d 69 25 3a c8 99 20 |w%:blk%!4=i%:.. |
00004030 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00004040 74 65 22 2c 2c 62 6c 6b 25 0d 13 2e 05 e1 0d 13 |te",,blk%.......|
00004050 38 04 0d 13 42 17 dd a4 69 73 73 65 6c 65 63 74 |8...B...isselect|
00004060 65 64 28 77 25 2c 69 25 29 0d 13 4c 18 f2 67 65 |ed(w%,i%)..L..ge|
00004070 74 69 63 6f 6e 73 74 61 74 65 28 77 25 2c 69 25 |ticonstate(w%,i%|
00004080 29 0d 13 56 20 3d 28 28 62 6c 6b 25 21 32 34 29 |)..V =((blk%!24)|
00004090 80 28 31 3c 3c 32 31 29 29 3d 28 31 3c 3c 32 31 |.(1<<21))=(1<<21|
000040a0 29 0d 13 60 04 0d 13 6a 10 dd a4 69 73 6f 70 65 |)..`...j...isope|
000040b0 6e 28 77 25 29 0d 13 74 2b 21 62 6c 6b 25 3d 77 |n(w%)..t+!blk%=w|
000040c0 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 57 69 |%:.. "Wimp_GetWi|
000040d0 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6b 25 |ndowState",,blk%|
000040e0 0d 13 7e 20 3d 28 28 62 6c 6b 25 21 33 32 29 80 |..~ =((blk%!32).|
000040f0 28 31 3c 3c 31 36 29 29 3d 28 31 3c 3c 31 36 29 |(1<<16))=(1<<16)|
00004100 0d 13 88 04 0d 13 92 13 dd f2 77 69 6e 74 6f 73 |..........wintos|
00004110 63 72 6e 28 62 25 29 0d 13 9c 2e 21 62 6c 6b 32 |crn(b%)....!blk2|
00004120 25 3d 21 62 25 3a c8 99 20 22 57 69 6d 70 5f 47 |%=!b%:.. "Wimp_G|
00004130 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,|
00004140 62 6c 6b 32 25 0d 13 a6 1e 62 25 21 38 2b 3d 28 |blk2%....b%!8+=(|
00004150 62 6c 6b 32 25 21 34 29 2d 28 62 6c 6b 32 25 21 |blk2%!4)-(blk2%!|
00004160 32 30 29 0d 13 b0 20 62 25 21 31 32 2b 3d 28 62 |20)... b%!12+=(b|
00004170 6c 6b 32 25 21 31 36 29 2d 28 62 6c 6b 32 25 21 |lk2%!16)-(blk2%!|
00004180 32 34 29 0d 13 ba 1f 62 25 21 31 36 2b 3d 28 62 |24)....b%!16+=(b|
00004190 6c 6b 32 25 21 34 29 2d 28 62 6c 6b 32 25 21 32 |lk2%!4)-(blk2%!2|
000041a0 30 29 0d 13 c4 20 62 25 21 32 30 2b 3d 28 62 6c |0)... b%!20+=(bl|
000041b0 6b 32 25 21 31 36 29 2d 28 62 6c 6b 32 25 21 32 |k2%!16)-(blk2%!2|
000041c0 34 29 0d 13 ce 05 e1 0d 13 d8 04 0d 13 e2 32 dd |4)............2.|
000041d0 a4 6c 65 61 66 28 66 24 29 20 49 25 3d a9 66 24 |.leaf(f$) I%=.f$|
000041e0 3a c8 95 49 25 3e 31 80 c1 66 24 2c 49 25 2c 31 |:..I%>1..f$,I%,1|
000041f0 29 3c 3e 22 2e 22 49 25 2d 3d 31 3a ce 0d 13 ec |)<>"."I%-=1:....|
00004200 17 e7 c1 66 24 2c 49 25 2c 31 29 3d 22 2e 22 49 |...f$,I%,1)="."I|
00004210 25 2b 3d 31 0d 13 f6 0c 3d c1 66 24 2c 49 25 29 |%+=1....=.f$,I%)|
00004220 0d 14 00 04 0d 14 0a 18 dd a4 63 6f 6e 76 65 72 |..........conver|
00004230 74 74 6f 6c 6f 77 65 72 28 61 24 29 0d 14 14 15 |ttolower(a$)....|
00004240 ea 20 6c 25 2c 62 24 2c 63 68 25 3a 62 24 3d 22 |. l%,b$,ch%:b$="|
00004250 22 0d 14 1e 0d e7 a9 28 61 24 29 3e 30 8c 0d 14 |"......(a$)>0...|
00004260 28 0d e3 6c 25 3d 31 b8 a9 61 24 0d 14 32 14 63 |(..l%=1..a$..2.c|
00004270 68 25 3d 97 28 c1 61 24 2c 6c 25 2c 31 29 29 0d |h%=.(.a$,l%,1)).|
00004280 14 3c 21 e7 28 63 68 25 3e 26 34 30 29 80 28 63 |.<!.(ch%>&40).(c|
00004290 68 25 3c 26 35 42 29 3a 63 68 25 2b 3d 26 32 30 |h%<&5B):ch%+=&20|
000042a0 0d 14 46 0c 62 24 2b 3d bd 63 68 25 0d 14 50 05 |..F.b$+=.ch%..P.|
000042b0 ed 0d 14 5a 05 cd 0d 14 64 07 3d 62 24 0d 14 6e |...Z....d.=b$..n|
000042c0 04 0d 14 78 19 dd a4 67 65 74 69 63 6e 73 74 72 |...x...geticnstr|
000042d0 69 6e 67 28 77 25 2c 69 25 29 0d 14 82 33 21 62 |ing(w%,i%)...3!b|
000042e0 6c 6b 25 3d 77 25 3a 62 6c 6b 25 21 34 3d 69 25 |lk%=w%:blk%!4=i%|
000042f0 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 49 63 6f |:.. "Wimp_GetIco|
00004300 6e 53 74 61 74 65 22 2c 2c 62 6c 6b 25 0d 14 8c |nState",,blk%...|
00004310 19 3d a4 72 65 61 64 73 74 72 69 6e 67 28 62 6c |.=.readstring(bl|
00004320 6b 25 21 32 38 29 0d 14 96 04 0d 14 a0 1c dd f2 |k%!28)..........|
00004330 70 75 74 69 63 6e 73 74 72 69 6e 67 28 77 25 2c |puticnstring(w%,|
00004340 69 25 2c 61 24 29 0d 14 aa 33 21 62 6c 6b 25 3d |i%,a$)...3!blk%=|
00004350 77 25 3a 62 6c 6b 25 21 34 3d 69 25 3a c8 99 20 |w%:blk%!4=i%:.. |
00004360 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00004370 74 65 22 2c 2c 62 6c 6b 25 0d 14 b4 24 24 28 62 |te",,blk%...$$(b|
00004380 6c 6b 25 21 32 38 29 3d 61 24 3a 3f 28 28 62 6c |lk%!28)=a$:?((bl|
00004390 6b 25 21 32 38 29 2b a9 61 24 29 3d 30 0d 14 be |k%!28)+.a$)=0...|
000043a0 33 62 6c 6b 25 21 38 3d 30 3a 62 6c 6b 25 21 31 |3blk%!8=0:blk%!1|
000043b0 32 3d 30 3a c8 99 20 22 57 69 6d 70 5f 53 65 74 |2=0:.. "Wimp_Set|
000043c0 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6b 25 |IconState",,blk%|
000043d0 0d 14 c8 05 e1 0d 14 d2 04 0d 14 dc 14 dd a4 72 |...............r|
000043e0 65 61 64 73 74 72 69 6e 67 28 70 25 29 0d 14 e6 |eadstring(p%)...|
000043f0 38 ea 61 24 3a 61 24 3d 22 22 3a c8 95 20 28 a9 |8.a$:a$="":.. (.|
00004400 28 61 24 29 3c 32 35 35 29 80 28 3f 70 25 3e 33 |(a$)<255).(?p%>3|
00004410 31 29 3a 61 24 2b 3d bd 28 3f 70 25 29 3a 70 25 |1):a$+=.(?p%):p%|
00004420 2b 3d 31 3a ce 0d 14 f0 07 3d 61 24 0d 14 fa 04 |+=1:.....=a$....|
00004430 0d 15 04 1d dd f2 6c 6f 61 64 5f 74 65 6d 70 6c |......load_templ|
00004440 61 74 65 28 77 69 6e 6e 61 6d 65 24 29 0d 15 0e |ate(winname$)...|
00004450 08 ea 20 6a 25 0d 15 18 45 77 69 6e 73 74 61 72 |.. j%...Ewinstar|
00004460 74 73 25 21 28 28 77 69 6e 63 74 72 25 2d 31 29 |ts%!((winctr%-1)|
00004470 2a 34 29 3d 77 70 74 72 25 3a 69 6e 64 73 74 61 |*4)=wptr%:indsta|
00004480 72 74 73 25 21 28 28 77 69 6e 63 74 72 25 2d 31 |rts%!((winctr%-1|
00004490 29 2a 34 29 3d 69 70 74 72 25 0d 15 22 54 c8 99 |)*4)=iptr%.."T..|
000044a0 20 22 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c | "Wimp_LoadTempl|
000044b0 61 74 65 22 2c 2c 77 70 74 72 25 2c 69 70 74 72 |ate",,wptr%,iptr|
000044c0 25 2c 69 6e 64 62 61 73 65 25 2b 74 6f 74 69 6e |%,indbase%+totin|
000044d0 64 73 69 7a 65 25 2c 2d 31 2c 77 69 6e 6e 61 6d |dsize%,-1,winnam|
000044e0 65 24 2c 30 20 b8 20 2c 2c 69 70 74 72 25 0d 15 |e$,0 . ,,iptr%..|
000044f0 2c 44 e7 77 69 6e 6e 61 6d 65 24 3d 22 61 6e 69 |,D.winname$="ani|
00004500 6d 61 74 65 22 20 61 6e 69 6d 77 74 69 74 6c 65 |mate" animwtitle|
00004510 25 3d 77 70 74 72 25 21 37 32 3a 61 6e 69 6d 77 |%=wptr%!72:animw|
00004520 74 69 74 6c 65 73 69 7a 25 3d 77 70 74 72 25 2b |titlesiz%=wptr%+|
00004530 38 30 0d 15 36 45 e7 77 69 6e 6e 61 6d 65 24 3d |80..6E.winname$=|
00004540 22 61 6e 69 6d 6d 65 6e 75 22 20 61 6e 6d 65 77 |"animmenu" anmew|
00004550 74 69 74 6c 65 25 3d 77 70 74 72 25 21 37 32 3a |title%=wptr%!72:|
00004560 61 6e 6d 65 77 74 69 74 6c 65 73 69 7a 25 3d 77 |anmewtitlesiz%=w|
00004570 70 74 72 25 2b 38 30 0d 15 40 14 6e 6f 69 63 6e |ptr%+80..@.noicn|
00004580 73 25 3d 77 70 74 72 25 21 38 34 0d 15 4a 1b e3 |s%=wptr%!84..J..|
00004590 6a 25 3d 30 b8 28 6e 6f 69 63 6e 73 25 2d 31 29 |j%=0.(noicns%-1)|
000045a0 2a 33 32 88 33 32 0d 15 54 10 20 f2 63 68 65 63 |*32.32..T. .chec|
000045b0 6b 69 63 6f 6e 73 0d 15 5e 05 ed 0d 15 68 25 e7 |kicons..^....h%.|
000045c0 77 69 6e 6e 61 6d 65 24 3d 22 77 68 61 74 77 6f |winname$="whatwo|
000045d0 72 64 22 3a f2 63 72 65 61 74 65 77 6f 72 64 77 |rd":.createwordw|
000045e0 0d 15 72 28 77 70 74 72 25 2b 3d 38 38 2b 28 28 |..r(wptr%+=88+((|
000045f0 77 70 74 72 25 21 38 34 29 2a 33 32 29 3a 77 69 |wptr%!84)*32):wi|
00004600 6e 63 74 72 25 2b 3d 31 0d 15 7c 05 e1 0d 15 86 |nctr%+=1..|.....|
00004610 04 0d 15 90 11 dd f2 63 72 65 61 74 65 77 6f 72 |.......createwor|
00004620 64 77 0d 15 9a 1c ea 20 69 63 25 2c 77 6f 25 2c |dw..... ic%,wo%,|
00004630 69 63 6f 25 2c 72 6f 77 25 2c 63 6f 6c 25 0d 15 |ico%,row%,col%..|
00004640 a4 09 69 63 25 3d 30 0d 15 ae 0d e3 63 6f 6c 25 |..ic%=0.....col%|
00004650 3d 30 b8 31 0d 15 b8 0f 20 e3 72 6f 77 25 3d 30 |=0.1.... .row%=0|
00004660 b8 31 32 0d 15 c2 2e 20 20 e7 28 69 63 25 3c 74 |.12.... .(ic%<t|
00004670 6f 74 67 6c 6f 73 73 25 29 80 28 28 63 6f 6c 25 |otgloss%).((col%|
00004680 3c 3e 30 29 84 28 72 6f 77 25 3c 3e 30 29 29 20 |<>0).(row%<>0)) |
00004690 8c 0d 15 cc 40 20 20 20 e3 77 6f 25 3d 30 b8 37 |....@ .wo%=0.7|
000046a0 3a 77 70 74 72 25 21 28 38 38 2b 28 33 32 2a 69 |:wptr%!(88+(32*i|
000046b0 63 25 29 2b 28 34 2a 77 6f 25 29 29 3d 77 70 74 |c%)+(4*wo%))=wpt|
000046c0 72 25 21 28 38 38 2b 28 34 2a 77 6f 25 29 29 3a |r%!(88+(4*wo%)):|
000046d0 ed 0d 15 d6 1f 20 20 20 69 63 6f 25 3d 77 70 74 |..... ico%=wpt|
000046e0 72 25 2b 28 38 38 2b 28 33 32 2a 69 63 25 29 29 |r%+(88+(32*ic%))|
000046f0 0d 15 e0 43 20 20 20 21 69 63 6f 25 3d 28 77 70 |...C !ico%=(wp|
00004700 74 72 25 21 38 38 29 2b 28 32 36 30 2a 63 6f 6c |tr%!88)+(260*col|
00004710 25 29 3a 69 63 6f 25 21 38 3d 28 77 70 74 72 25 |%):ico%!8=(wptr%|
00004720 21 28 38 38 2b 38 29 29 2b 28 32 36 30 2a 63 6f |!(88+8))+(260*co|
00004730 6c 25 29 0d 15 ea 3e 20 20 20 e7 72 6f 77 25 3e |l%)...> .row%>|
00004740 30 3a 69 63 6f 25 21 34 3d 21 28 69 63 6f 25 2d |0:ico%!4=!(ico%-|
00004750 33 32 2b 34 29 2d 35 36 3a 69 63 6f 25 21 31 32 |32+4)-56:ico%!12|
00004760 3d 21 28 69 63 6f 25 2d 33 32 2b 31 32 29 2d 35 |=!(ico%-32+12)-5|
00004770 36 0d 15 f4 37 20 20 20 69 63 6f 25 21 32 30 3d |6...7 ico%!20=|
00004780 69 70 74 72 25 3a 24 69 70 74 72 25 3d 22 31 32 |iptr%:$iptr%="12|
00004790 33 34 35 35 36 37 38 39 30 31 32 33 34 22 3a 69 |3455678901234":i|
000047a0 70 74 72 25 2b 3d 31 35 0d 15 fe 11 20 20 20 69 |ptr%+=15.... i|
000047b0 63 6f 25 21 32 38 3d 31 35 0d 16 08 07 20 20 cd |co%!28=15.... .|
000047c0 0d 16 12 0c 20 20 69 63 25 2b 3d 31 0d 16 1c 06 |.... ic%+=1....|
000047d0 20 ed 0d 16 26 05 ed 0d 16 30 20 e3 6a 25 3d 33 | ...&....0 .j%=3|
000047e0 32 b8 28 28 74 6f 74 67 6c 6f 73 73 25 2d 31 29 |2.((totgloss%-1)|
000047f0 2a 33 32 29 88 33 32 0d 16 3a 10 20 f2 63 68 65 |*32).32..:. .che|
00004800 63 6b 69 63 6f 6e 73 0d 16 44 05 ed 0d 16 4e 16 |ckicons..D....N.|
00004810 77 70 74 72 25 21 38 34 3d 74 6f 74 67 6c 6f 73 |wptr%!84=totglos|
00004820 73 25 0d 16 58 05 e1 0d 16 62 04 0d 16 6c 10 dd |s%..X....b...l..|
00004830 f2 63 68 65 63 6b 69 63 6f 6e 73 0d 16 76 2b 20 |.checkicons..v+ |
00004840 69 63 6e 62 6c 6b 25 3d 77 70 74 72 25 2b 38 38 |icnblk%=wptr%+88|
00004850 2b 6a 25 3a 69 63 6e 66 25 3d 28 69 63 6e 62 6c |+j%:icnf%=(icnbl|
00004860 6b 25 21 31 36 29 0d 16 80 82 20 e7 20 a4 69 6e |k%!16).... . .in|
00004870 64 69 72 65 63 74 65 64 28 69 63 6e 66 25 29 80 |directed(icnf%).|
00004880 ac a4 73 70 72 69 74 65 28 69 63 6e 66 25 29 80 |..sprite(icnf%).|
00004890 a4 74 65 78 74 28 69 63 6e 66 25 29 80 28 69 63 |.text(icnf%).(ic|
000048a0 6e 62 6c 6b 25 21 32 34 3c 3e 2d 31 29 20 8c 3a |nblk%!24<>-1) .:|
000048b0 e7 a7 a4 72 65 61 64 73 74 72 69 6e 67 28 69 63 |...readstring(ic|
000048c0 6e 62 6c 6b 25 21 32 34 29 2c 22 62 30 22 29 3c |nblk%!24),"b0")<|
000048d0 3e 30 20 69 63 6e 66 25 3d 69 63 6e 66 25 80 26 |>0 icnf%=icnf%.&|
000048e0 46 46 46 46 30 46 46 46 0d 16 8a 4f 20 e7 20 ac |FFFF0FFF...O . .|
000048f0 a4 69 6e 64 69 72 65 63 74 65 64 28 69 63 6e 66 |.indirected(icnf|
00004900 25 29 80 ac a4 73 70 72 69 74 65 28 69 63 6e 66 |%)...sprite(icnf|
00004910 25 29 80 a4 74 65 78 74 28 69 63 6e 66 25 29 20 |%)..text(icnf%) |
00004920 8c 3a 69 63 6e 66 25 3d 69 63 6e 66 25 80 26 46 |.:icnf%=icnf%.&F|
00004930 46 46 46 33 46 46 46 0d 16 94 38 20 e7 20 a4 69 |FFF3FFF...8 . .i|
00004940 6e 64 69 72 65 63 74 65 64 28 69 63 6e 66 25 29 |ndirected(icnf%)|
00004950 80 a4 73 70 72 69 74 65 28 69 63 6e 66 25 29 80 |..sprite(icnf%).|
00004960 ac a4 74 65 78 74 28 69 63 6e 66 25 29 20 8c 0d |..text(icnf%) ..|
00004970 16 9e 17 20 20 e7 77 69 6e 6e 61 6d 65 24 3d 22 |... .winname$="|
00004980 6d 65 6e 75 22 8c 0d 16 a8 3d 20 20 20 69 63 6e |menu"....= icn|
00004990 62 6c 6b 25 21 32 34 3d 6d 65 6e 75 61 72 65 61 |blk%!24=menuarea|
000049a0 25 3a 69 63 6e 66 25 3d 28 69 63 6e 66 25 80 26 |%:icnf%=(icnf%.&|
000049b0 46 46 46 46 30 46 46 46 29 84 26 30 30 30 30 33 |FFFF0FFF).&00003|
000049c0 30 30 30 0d 16 b2 07 20 20 cc 0d 16 bc 34 20 20 |000.... ....4 |
000049d0 20 e7 28 77 69 6e 6e 61 6d 65 24 3d 22 70 72 6f | .(winname$="pro|
000049e0 67 69 6e 66 6f 22 29 84 28 77 69 6e 6e 61 6d 65 |ginfo").(winname|
000049f0 24 3d 22 66 61 73 74 66 69 6e 64 22 29 8c 0d 16 |$="fastfind")...|
00004a00 c6 3c 20 20 20 20 69 63 6e 62 6c 6b 25 21 32 34 |.< icnblk%!24|
00004a10 3d 73 70 61 72 65 61 25 3a 69 63 6e 66 25 3d 28 |=sparea%:icnf%=(|
00004a20 69 63 6e 66 25 80 26 46 46 46 46 30 46 46 46 29 |icnf%.&FFFF0FFF)|
00004a30 84 26 30 30 30 30 33 30 30 30 0d 16 d0 08 20 20 |.&00003000.... |
00004a40 20 cc 0d 16 da 3d 20 20 20 20 69 63 6e 62 6c 6b | ....= icnblk|
00004a50 25 21 32 34 3d 64 65 74 61 72 65 61 25 3a 69 63 |%!24=detarea%:ic|
00004a60 6e 66 25 3d 28 69 63 6e 66 25 80 26 46 46 46 46 |nf%=(icnf%.&FFFF|
00004a70 30 46 46 46 29 84 26 30 30 30 30 33 30 30 30 0d |0FFF).&00003000.|
00004a80 16 e4 08 20 20 20 cd 0d 16 ee 07 20 20 cd 0d 16 |... ..... ...|
00004a90 f8 06 20 cd 0d 17 02 37 20 e7 20 a4 69 6e 64 69 |.. ....7 . .indi|
00004aa0 72 65 63 74 65 64 28 69 63 6e 66 25 29 80 a4 73 |rected(icnf%)..s|
00004ab0 70 72 69 74 65 28 69 63 6e 66 25 29 80 a4 74 65 |prite(icnf%)..te|
00004ac0 78 74 28 69 63 6e 66 25 29 20 8c 0d 17 0c 53 20 |xt(icnf%) ....S |
00004ad0 20 e7 28 77 69 6e 6e 61 6d 65 24 3d 22 61 6e 69 | .(winname$="ani|
00004ae0 6d 6d 65 6e 75 22 29 84 28 77 69 6e 6e 61 6d 65 |mmenu").(winname|
00004af0 24 3d 22 61 6e 69 6d 61 74 65 22 29 3a 69 63 6e |$="animate"):icn|
00004b00 66 25 3d 28 69 63 6e 66 25 80 26 46 46 46 46 30 |f%=(icnf%.&FFFF0|
00004b10 46 46 46 29 84 26 30 30 30 30 33 30 30 30 0d 17 |FFF).&00003000..|
00004b20 16 54 20 20 e7 28 77 69 6e 6e 61 6d 65 24 3d 22 |.T .(winname$="|
00004b30 66 61 73 74 66 69 6e 64 22 29 84 28 77 69 6e 6e |fastfind").(winn|
00004b40 61 6d 65 24 3d 22 77 68 61 74 77 6f 72 64 22 29 |ame$="whatword")|
00004b50 3a 69 63 6e 66 25 3d 28 69 63 6e 66 25 80 26 46 |:icnf%=(icnf%.&F|
00004b60 46 46 46 30 46 46 46 29 84 26 30 30 30 30 33 30 |FFF0FFF).&000030|
00004b70 30 30 0d 17 20 06 20 cd 0d 17 2a 36 f4 20 49 46 |00.. . ...*6. IF|
00004b80 20 4e 4f 54 46 4e 69 6e 64 69 72 65 63 74 65 64 | NOTFNindirected|
00004b90 28 69 63 6e 66 25 29 41 4e 44 46 4e 73 70 72 69 |(icnf%)ANDFNspri|
00004ba0 74 65 28 69 63 6e 66 25 29 20 54 48 45 4e 0d 17 |te(icnf%) THEN..|
00004bb0 34 25 f4 20 20 73 70 72 6e 24 3d 46 4e 72 65 61 |4%. sprn$=FNrea|
00004bc0 64 73 74 72 69 6e 67 28 69 63 6e 62 6c 6b 25 2b |dstring(icnblk%+|
00004bd0 32 30 29 0d 17 3e 31 f4 20 20 53 59 53 20 22 58 |20)..>1. SYS "X|
00004be0 57 69 6d 70 5f 53 70 72 69 74 65 4f 70 22 2c 34 |Wimp_SpriteOp",4|
00004bf0 30 2c 2c 73 70 72 6e 24 20 54 4f 20 2c 2c 2c 77 |0,,sprn$ TO ,,,w|
00004c00 25 2c 68 25 0d 17 48 93 f4 20 20 49 46 28 77 25 |%,h%..H.. IF(w%|
00004c10 4f 52 68 25 29 3d 30 3a 69 63 6e 66 25 3d 69 63 |ORh%)=0:icnf%=ic|
00004c20 6e 66 25 4f 52 32 35 36 3a 24 69 70 74 72 25 3d |nf%OR256:$iptr%=|
00004c30 73 70 72 6e 24 3a 3f 28 69 70 74 72 25 2b 28 4c |sprn$:?(iptr%+(L|
00004c40 45 4e 73 70 72 6e 24 29 29 3d 30 3a 69 63 6e 62 |ENsprn$))=0:icnb|
00004c50 6c 6b 25 21 32 30 3d 69 70 74 72 25 3a 69 63 6e |lk%!20=iptr%:icn|
00004c60 62 6c 6b 25 21 32 34 3d 73 70 61 72 65 61 25 3a |blk%!24=sparea%:|
00004c70 69 63 6e 62 6c 6b 25 21 32 38 3d 4c 45 4e 73 70 |icnblk%!28=LENsp|
00004c80 72 6e 24 3a 69 70 74 72 25 2b 3d 4c 45 4e 28 73 |rn$:iptr%+=LEN(s|
00004c90 70 72 6e 24 29 2b 31 0d 17 52 0b f4 20 45 4e 44 |prn$)+1..R.. END|
00004ca0 49 46 0d 17 5c 15 20 69 63 6e 62 6c 6b 25 21 31 |IF..\. icnblk%!1|
00004cb0 36 3d 69 63 6e 66 25 0d 17 66 05 e1 0d 17 70 04 |6=icnf%..f....p.|
00004cc0 0d 17 7a 14 dd a4 69 6e 64 69 72 65 63 74 65 64 |..z...indirected|
00004cd0 28 66 25 29 0d 17 84 13 3d 28 28 66 25 80 32 35 |(f%)....=((f%.25|
00004ce0 36 29 3d 32 35 36 29 0d 17 8e 04 0d 17 98 10 dd |6)=256).........|
00004cf0 a4 73 70 72 69 74 65 28 66 25 29 0d 17 a2 0f 3d |.sprite(f%)....=|
00004d00 28 28 66 25 80 32 29 3d 32 29 0d 17 ac 04 0d 17 |((f%.2)=2)......|
00004d10 b6 0e dd a4 74 65 78 74 28 66 25 29 0d 17 c0 0f |....text(f%)....|
00004d20 3d 28 28 66 25 80 31 29 3d 31 29 0d 17 ca 04 0d |=((f%.1)=1).....|
00004d30 17 d4 0d dd f2 62 61 72 69 63 6f 6e 0d 17 de 15 |.....baricon....|
00004d40 24 69 62 6e 61 6d 65 25 3d 22 66 72 61 6d 65 31 |$ibname%="frame1|
00004d50 22 0d 17 e8 34 21 62 6c 6b 25 3d 2d 31 3a 62 6c |"...4!blk%=-1:bl|
00004d60 6b 25 21 34 3d 30 3a 62 6c 6b 25 21 38 3d 30 3a |k%!4=0:blk%!8=0:|
00004d70 62 6c 6b 25 21 31 32 3d 38 34 3a 62 6c 6b 25 21 |blk%!12=84:blk%!|
00004d80 31 36 3d 37 32 0d 17 f2 47 62 6c 6b 25 21 32 30 |16=72...Gblk%!20|
00004d90 3d 26 31 30 30 30 33 31 33 41 3a 62 6c 6b 25 21 |=&1000313A:blk%!|
00004da0 32 34 3d 69 62 6e 61 6d 65 25 3a 62 6c 6b 25 21 |24=ibname%:blk%!|
00004db0 32 38 3d 73 70 61 72 65 61 25 3a 62 6c 6b 25 21 |28=sparea%:blk%!|
00004dc0 33 32 3d a9 24 69 62 6e 61 6d 65 25 0d 17 fc 25 |32=.$ibname%...%|
00004dd0 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 49 |.. "Wimp_CreateI|
00004de0 63 6f 6e 22 2c 2c 62 6c 6b 25 20 b8 20 69 62 68 |con",,blk% . ibh|
00004df0 25 0d 18 06 05 e1 0d 18 10 04 0d 18 1a 19 dd f2 |%...............|
00004e00 6d 61 6b 65 6d 65 6e 75 73 70 72 69 74 65 73 28 |makemenusprites(|
00004e10 6d 25 29 0d 18 24 23 c8 99 20 22 4f 53 5f 53 70 |m%)..$#.. "OS_Sp|
00004e20 72 69 74 65 4f 70 22 2c 26 31 30 39 2c 6d 65 6e |riteOp",&109,men|
00004e30 75 61 72 65 61 25 0d 18 2e 58 f2 75 6e 73 71 75 |uarea%...X.unsqu|
00004e40 61 73 68 28 6d 65 6e 75 66 69 6c 65 25 28 6d 25 |ash(menufile%(m%|
00004e50 2c 30 29 2c 6d 65 6e 75 66 69 6c 65 25 28 6d 25 |,0),menufile%(m%|
00004e60 2c 31 29 2c 73 71 62 75 66 66 65 72 25 2c 31 37 |,1),sqbuffer%,17|
00004e70 2a 31 30 32 34 2c 6d 65 6e 75 61 72 65 61 25 2b |*1024,menuarea%+|
00004e80 34 2c 28 32 37 2a 31 30 32 34 29 2d 34 29 0d 18 |4,(27*1024)-4)..|
00004e90 38 05 e1 0d 18 42 04 0d 18 4c 3d dd f2 75 6e 73 |8....B...L=..uns|
00004ea0 71 75 61 73 68 28 69 6e 70 74 72 25 2c 69 6e 73 |quash(inptr%,ins|
00004eb0 69 7a 25 2c 62 75 66 70 74 72 25 2c 62 75 66 73 |iz%,bufptr%,bufs|
00004ec0 69 7a 25 2c 6f 75 74 70 74 72 25 2c 6f 75 74 73 |iz%,outptr%,outs|
00004ed0 69 7a 25 29 0d 18 56 43 f4 20 66 69 72 73 74 20 |iz%)..VC. first |
00004ee0 63 61 6c 6c 20 77 69 74 68 20 69 6e 70 75 74 20 |call with input |
00004ef0 73 69 7a 65 20 74 6f 20 73 65 65 20 68 6f 77 20 |size to see how |
00004f00 62 69 67 20 77 6f 72 6b 73 70 61 63 65 20 73 68 |big workspace sh|
00004f10 6f 75 6c 64 20 62 65 0d 18 60 38 f4 53 59 53 20 |ould be..`8.SYS |
00004f20 22 53 71 75 61 73 68 5f 44 65 63 6f 6d 70 72 65 |"Squash_Decompre|
00004f30 73 73 22 2c 25 31 30 30 30 2c 69 6e 73 69 7a 25 |ss",%1000,insiz%|
00004f40 2c 30 2c 30 2c 30 2c 30 20 54 4f 20 72 30 25 0d |,0,0,0,0 TO r0%.|
00004f50 18 6a 2b f4 49 46 72 30 25 3c 3d 62 75 66 73 69 |.j+.IFr0%<=bufsi|
00004f60 7a 25 3a 66 61 73 74 25 3d 25 31 30 30 3a 45 4c |z%:fast%=%100:EL|
00004f70 53 45 3a 66 61 73 74 25 3d 30 0d 18 74 15 f4 73 |SE:fast%=0..t..s|
00004f80 6f 6d 65 6c 65 66 74 25 3d 69 6e 73 69 7a 25 0d |omeleft%=insiz%.|
00004f90 18 7e 0d f4 20 64 6f 6e 65 25 3d 30 0d 18 88 27 |.~.. done%=0...'|
00004fa0 f4 72 32 25 3d 69 6e 70 74 72 25 3a 72 34 25 3d |.r2%=inptr%:r4%=|
00004fb0 6f 75 74 70 74 72 25 3a 72 35 25 3d 6f 75 74 73 |outptr%:r5%=outs|
00004fc0 69 7a 25 0d 18 92 14 f4 57 48 49 4c 45 20 73 6f |iz%.....WHILE so|
00004fd0 6d 65 6c 65 66 74 25 0d 18 9c 5f c8 99 20 22 53 |meleft%..._.. "S|
00004fe0 71 75 61 73 68 5f 44 65 63 6f 6d 70 72 65 73 73 |quash_Decompress|
00004ff0 22 2c 25 31 30 30 2c 62 75 66 70 74 72 25 2c 69 |",%100,bufptr%,i|
00005000 6e 70 74 72 25 2c 69 6e 73 69 7a 25 2c 6f 75 74 |nptr%,insiz%,out|
00005010 70 74 72 25 2c 6f 75 74 73 69 7a 25 20 b8 20 72 |ptr%,outsiz% . r|
00005020 30 25 2c 72 31 25 2c 72 32 25 2c 72 33 25 2c 72 |0%,r1%,r2%,r3%,r|
00005030 34 25 2c 72 35 25 0d 18 a6 5f e7 72 30 25 3d 31 |4%,r5%..._.r0%=1|
00005040 3a f2 65 72 72 6f 72 28 22 53 71 75 61 73 68 5f |:.error("Squash_|
00005050 44 65 63 6f 6d 70 72 65 73 73 20 72 61 6e 20 6f |Decompress ran o|
00005060 75 74 20 6f 66 20 69 6e 70 75 74 20 64 61 74 61 |ut of input data|
00005070 22 2c 30 29 3a c8 99 20 22 57 69 6d 70 5f 43 6c |",0):.. "Wimp_Cl|
00005080 6f 73 65 44 6f 77 6e 22 2c 2c 26 34 42 35 33 34 |oseDown",,&4B534|
00005090 31 35 34 3a e0 0d 18 b0 61 e7 72 30 25 3d 32 3a |154:....a.r0%=2:|
000050a0 f2 65 72 72 6f 72 28 22 53 71 75 61 73 68 5f 44 |.error("Squash_D|
000050b0 65 63 6f 6d 70 72 65 73 73 20 72 61 6e 20 6f 75 |ecompress ran ou|
000050c0 74 20 6f 66 20 6f 75 74 70 75 74 20 73 70 61 63 |t of output spac|
000050d0 65 22 2c 30 29 3a c8 99 20 22 57 69 6d 70 5f 43 |e",0):.. "Wimp_C|
000050e0 6c 6f 73 65 44 6f 77 6e 22 2c 2c 26 34 42 35 33 |loseDown",,&4B53|
000050f0 34 31 35 34 3a e0 0d 18 ba 67 f4 50 52 4f 43 65 |4154:....g.PROCe|
00005100 72 72 6f 72 28 53 54 52 24 7e 28 72 30 25 29 2b |rror(STR$~(r0%)+|
00005110 22 20 22 2b 53 54 52 24 7e 28 72 31 25 29 2b 22 |" "+STR$~(r1%)+"|
00005120 20 22 2b 53 54 52 24 7e 28 72 32 25 29 2b 22 20 | "+STR$~(r2%)+" |
00005130 22 2b 53 54 52 24 7e 28 72 33 25 29 2b 22 20 22 |"+STR$~(r3%)+" "|
00005140 2b 53 54 52 24 7e 28 72 34 25 29 2b 22 20 22 2b |+STR$~(r4%)+" "+|
00005150 53 54 52 24 7e 28 72 35 25 29 2c 30 29 0d 18 c4 |STR$~(r5%),0)...|
00005160 0d f4 45 4e 44 57 48 49 4c 45 0d 18 ce 05 e1 0d |..ENDWHILE......|
00005170 18 d8 04 0d 18 e2 19 dd f2 6f 70 65 6e 5f 6d 65 |.........open_me|
00005180 6e 75 77 28 61 6d 25 2c 61 61 25 29 0d 18 ec 08 |nuw(am%,aa%)....|
00005190 ea 20 6a 25 0d 18 f6 25 e7 a4 69 73 6f 70 65 6e |. j%...%..isopen|
000051a0 28 6d 65 6e 75 77 25 29 3a f2 63 6c 6f 73 65 77 |(menuw%):.closew|
000051b0 69 6e 64 28 62 6c 6b 25 29 0d 19 00 0b e7 61 6d |ind(blk%).....am|
000051c0 25 3e 30 8c 0d 19 0a 0f 20 e3 6a 25 3d 36 b8 31 |%>0..... .j%=6.1|
000051d0 38 88 33 0d 19 14 47 20 20 e7 61 6d 25 3d 28 28 |8.3...G .am%=((|
000051e0 6a 25 2f 33 29 2d 31 29 3a f2 73 65 6c 65 63 74 |j%/3)-1):.select|
000051f0 69 63 6e 28 6d 65 6e 75 77 25 2c 6a 25 2c b9 29 |icn(menuw%,j%,.)|
00005200 3a 8b 3a f2 73 65 6c 65 63 74 69 63 6e 28 6d 65 |:.:.selecticn(me|
00005210 6e 75 77 25 2c 6a 25 2c a3 29 0d 19 1e 06 20 ed |nuw%,j%,.).... .|
00005220 0d 19 28 05 cd 0d 19 32 2f 21 62 6c 6b 25 3d 6d |..(....2/!blk%=m|
00005230 65 6e 75 77 25 3a c8 99 20 22 57 69 6d 70 5f 47 |enuw%:.. "Wimp_G|
00005240 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,|
00005250 62 6c 6b 25 0d 19 3c 10 e7 66 69 72 73 74 74 69 |blk%..<..firstti|
00005260 6d 65 25 8c 0d 19 46 38 20 e7 78 6d 61 78 65 63 |me%...F8 .xmaxec|
00005270 25 3e 31 32 38 30 3a 62 6c 6b 25 21 34 3d a8 28 |%>1280:blk%!4=.(|
00005280 28 78 6d 61 78 65 63 25 2d 31 32 38 30 29 2f 32 |(xmaxec%-1280)/2|
00005290 29 3a 8b 3a 62 6c 6b 25 21 34 3d 30 0d 19 50 38 |):.:blk%!4=0..P8|
000052a0 20 e7 79 6d 61 78 65 63 25 3e 31 30 32 34 3a 62 | .ymaxec%>1024:b|
000052b0 6c 6b 25 21 38 3d a8 28 28 79 6d 61 78 65 63 25 |lk%!8=.((ymaxec%|
000052c0 2d 31 30 32 34 29 2f 32 29 3a 8b 3a 62 6c 6b 25 |-1024)/2):.:blk%|
000052d0 21 38 3d 30 0d 19 5a 43 20 62 6c 6b 25 21 31 32 |!8=0..ZC blk%!12|
000052e0 3d 28 62 6c 6b 25 21 34 29 2b 33 35 32 3a 62 6c |=(blk%!4)+352:bl|
000052f0 6b 25 21 31 36 3d 28 62 6c 6b 25 21 38 29 2b 31 |k%!16=(blk%!8)+1|
00005300 30 32 34 3a 62 6c 6b 25 21 32 30 3d 30 3a 62 6c |024:blk%!20=0:bl|
00005310 6b 25 21 32 34 3d 30 0d 19 64 05 cd 0d 19 6e 1b |k%!24=0..d....n.|
00005320 21 62 6c 6b 25 3d 6d 65 6e 75 77 25 3a 62 6c 6b |!blk%=menuw%:blk|
00005330 25 21 32 38 3d 2d 31 0d 19 78 13 f2 6f 70 65 6e |%!28=-1..x..open|
00005340 77 69 6e 64 28 62 6c 6b 25 29 0d 19 82 18 f2 6f |wind(blk%).....o|
00005350 70 65 6e 5f 61 6e 69 6d 77 28 61 6d 25 2c 61 61 |pen_animw(am%,aa|
00005360 25 29 0d 19 8c 05 e1 0d 19 96 04 0d 19 a0 10 dd |%)..............|
00005370 f2 6f 70 65 6e 5f 66 69 6e 64 77 0d 19 aa 08 ea |.open_findw.....|
00005380 20 6a 25 0d 19 b4 27 e3 6a 25 3d 33 35 b8 38 38 | j%...'.j%=35.88|
00005390 3a f2 73 65 6c 65 63 74 69 63 6e 28 66 69 6e 64 |:.selecticn(find|
000053a0 77 25 2c 6a 25 2c a3 29 3a ed 0d 19 be 0e 66 69 |w%,j%,.):.....fi|
000053b0 6e 64 69 63 6e 25 3d 30 0d 19 c8 55 e7 28 61 63 |ndicn%=0...U.(ac|
000053c0 74 6d 65 6e 75 25 3e 30 29 80 28 61 63 74 61 6e |tmenu%>0).(actan|
000053d0 69 6d 25 3d 2d 31 29 3a f2 73 65 6c 65 63 74 69 |im%=-1):.selecti|
000053e0 63 6e 28 66 69 6e 64 77 25 2c 33 34 2b 61 63 74 |cn(findw%,34+act|
000053f0 6d 65 6e 75 25 2c b9 29 3a 66 69 6e 64 69 63 6e |menu%,.):findicn|
00005400 25 3d 33 34 2b 61 63 74 6d 65 6e 75 25 0d 19 d2 |%=34+actmenu%...|
00005410 46 e7 61 63 74 61 6e 69 6d 25 3e 3d 30 3a f2 73 |F.actanim%>=0:.s|
00005420 65 6c 65 63 74 69 63 6e 28 66 69 6e 64 77 25 2c |electicn(findw%,|
00005430 34 30 2b 61 63 74 61 6e 69 6d 25 2c b9 29 3a 66 |40+actanim%,.):f|
00005440 69 6e 64 69 63 6e 25 3d 34 30 2b 61 63 74 61 6e |indicn%=40+actan|
00005450 69 6d 25 0d 19 dc 2f 21 62 6c 6b 25 3d 66 69 6e |im%.../!blk%=fin|
00005460 64 77 25 3a c8 99 20 22 57 69 6d 70 5f 47 65 74 |dw%:.. "Wimp_Get|
00005470 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c |WindowState",,bl|
00005480 6b 25 0d 19 e6 37 e7 78 6d 61 78 65 63 25 3e 31 |k%...7.xmaxec%>1|
00005490 32 38 30 3a 62 6c 6b 25 21 34 3d a8 28 28 78 6d |280:blk%!4=.((xm|
000054a0 61 78 65 63 25 2d 31 32 38 30 29 2f 32 29 3a 8b |axec%-1280)/2):.|
000054b0 3a 62 6c 6b 25 21 34 3d 30 0d 19 f0 35 e7 79 6d |:blk%!4=0...5.ym|
000054c0 61 78 65 63 25 3e 39 36 30 3a 62 6c 6b 25 21 38 |axec%>960:blk%!8|
000054d0 3d a8 28 28 79 6d 61 78 65 63 25 2d 39 36 30 29 |=.((ymaxec%-960)|
000054e0 2f 32 29 3a 8b 3a 62 6c 6b 25 21 38 3d 30 0d 19 |/2):.:blk%!8=0..|
000054f0 fa 42 62 6c 6b 25 21 31 32 3d 28 62 6c 6b 25 21 |.Bblk%!12=(blk%!|
00005500 34 29 2b 31 32 38 30 3a 62 6c 6b 25 21 31 36 3d |4)+1280:blk%!16=|
00005510 28 62 6c 6b 25 21 38 29 2b 39 36 30 3a 62 6c 6b |(blk%!8)+960:blk|
00005520 25 21 32 30 3d 30 3a 62 6c 6b 25 21 32 34 3d 30 |%!20=0:blk%!24=0|
00005530 0d 1a 04 1e 62 6c 6b 25 21 32 38 3d 2d 31 3a f2 |....blk%!28=-1:.|
00005540 6f 70 65 6e 77 69 6e 64 28 62 6c 6b 25 29 0d 1a |openwind(blk%)..|
00005550 0e 05 e1 0d 1a 18 04 0d 1a 22 13 dd f2 6f 70 65 |........."...ope|
00005560 6e 5f 6d 65 73 73 28 6d 24 29 0d 1a 2c 1e f2 70 |n_mess(m$)..,..p|
00005570 75 74 69 63 6e 73 74 72 69 6e 67 28 64 65 6d 6f |uticnstring(demo|
00005580 77 25 2c 30 2c 6d 24 29 0d 1a 36 31 21 62 6c 6b |w%,0,m$)..61!blk|
00005590 32 25 3d 61 6e 6d 65 77 25 3a c8 99 20 22 57 69 |2%=anmew%:.. "Wi|
000055a0 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
000055b0 65 22 2c 2c 62 6c 6b 32 25 0d 1a 40 27 62 6c 6b |e",,blk2%..@'blk|
000055c0 25 21 34 3d 62 6c 6b 32 25 21 34 3a 62 6c 6b 25 |%!4=blk2%!4:blk%|
000055d0 21 31 32 3d 28 62 6c 6b 25 21 34 29 2b 38 38 32 |!12=(blk%!4)+882|
000055e0 0d 1a 4a 33 e7 28 62 6c 6b 32 25 21 38 29 3c 31 |..J3.(blk2%!8)<1|
000055f0 33 32 3a 62 6c 6b 25 21 31 36 3d 31 33 32 3a 8b |32:blk%!16=132:.|
00005600 3a 62 6c 6b 25 21 31 36 3d 62 6c 6b 32 25 21 38 |:blk%!16=blk2%!8|
00005610 2d 34 34 0d 1a 54 18 62 6c 6b 25 21 38 3d 28 62 |-44..T.blk%!8=(b|
00005620 6c 6b 25 21 31 36 29 2d 31 33 32 0d 1a 5e 2f 21 |lk%!16)-132..^/!|
00005630 62 6c 6b 25 3d 64 65 6d 6f 77 25 3a 62 6c 6b 25 |blk%=demow%:blk%|
00005640 21 32 30 3d 30 3a 62 6c 6b 25 21 32 34 3d 30 3a |!20=0:blk%!24=0:|
00005650 62 6c 6b 25 21 32 38 3d 2d 31 0d 1a 68 13 f2 6f |blk%!28=-1..h..o|
00005660 70 65 6e 77 69 6e 64 28 62 6c 6b 25 29 0d 1a 72 |penwind(blk%)..r|
00005670 05 e1 0d 1a 7c 04 0d 1a 86 11 dd f2 6f 70 65 6e |....|.......open|
00005680 5f 6d 65 73 73 66 66 0d 1a 90 6f f2 70 75 74 69 |_messff...o.puti|
00005690 63 6e 73 74 72 69 6e 67 28 64 65 6d 6f 77 25 2c |cnstring(demow%,|
000056a0 30 2c 22 4f 6e 6c 79 20 74 6f 70 69 63 73 20 77 |0,"Only topics w|
000056b0 69 74 68 20 61 6e 20 6f 72 61 6e 67 65 20 62 61 |ith an orange ba|
000056c0 63 6b 67 72 6f 75 6e 64 20 61 72 65 20 61 76 61 |ckground are ava|
000056d0 69 6c 61 62 6c 65 20 69 6e 20 74 68 69 73 20 64 |ilable in this d|
000056e0 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 20 73 79 73 |emonstration sys|
000056f0 74 65 6d 2e 22 29 0d 1a 9a 31 21 62 6c 6b 32 25 |tem.")...1!blk2%|
00005700 3d 66 69 6e 64 77 25 3a c8 99 20 22 57 69 6d 70 |=findw%:.. "Wimp|
00005710 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"|
00005720 2c 2c 62 6c 6b 32 25 0d 1a a4 2d 62 6c 6b 25 21 |,,blk2%...-blk%!|
00005730 34 3d 28 62 6c 6b 32 25 21 34 29 2b 32 30 30 3a |4=(blk2%!4)+200:|
00005740 62 6c 6b 25 21 31 32 3d 28 62 6c 6b 25 21 34 29 |blk%!12=(blk%!4)|
00005750 2b 38 38 32 0d 1a ae 35 e7 28 62 6c 6b 32 25 21 |+882...5.(blk2%!|
00005760 38 29 3c 31 33 32 3a 62 6c 6b 25 21 31 36 3d 31 |8)<132:blk%!16=1|
00005770 33 32 3a 8b 3a 62 6c 6b 25 21 31 36 3d 28 62 6c |32:.:blk%!16=(bl|
00005780 6b 32 25 21 38 29 2d 34 34 0d 1a b8 18 62 6c 6b |k2%!8)-44....blk|
00005790 25 21 38 3d 28 62 6c 6b 25 21 31 36 29 2d 31 33 |%!8=(blk%!16)-13|
000057a0 32 0d 1a c2 2f 21 62 6c 6b 25 3d 64 65 6d 6f 77 |2.../!blk%=demow|
000057b0 25 3a 62 6c 6b 25 21 32 30 3d 30 3a 62 6c 6b 25 |%:blk%!20=0:blk%|
000057c0 21 32 34 3d 30 3a 62 6c 6b 25 21 32 38 3d 2d 31 |!24=0:blk%!28=-1|
000057d0 0d 1a cc 13 f2 6f 70 65 6e 77 69 6e 64 28 62 6c |.....openwind(bl|
000057e0 6b 25 29 0d 1a d6 05 e1 0d 1a e0 04 0d 1a ea 11 |k%).............|
000057f0 dd f2 6f 70 65 6e 5f 6d 65 73 73 77 77 0d 1a f4 |..open_messww...|
00005800 4c f2 70 75 74 69 63 6e 73 74 72 69 6e 67 28 64 |L.puticnstring(d|
00005810 65 6d 6f 77 25 2c 30 2c 22 54 68 69 73 20 69 73 |emow%,0,"This is|
00005820 20 6f 6e 6c 79 20 61 20 70 61 72 74 20 6f 66 20 | only a part of |
00005830 74 68 65 20 57 68 61 74 20 57 6f 72 64 20 66 61 |the What Word fa|
00005840 63 69 6c 69 74 79 2e 22 29 0d 1a fe 31 21 62 6c |cility.")...1!bl|
00005850 6b 32 25 3d 77 6f 72 64 77 25 3a c8 99 20 22 57 |k2%=wordw%:.. "W|
00005860 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 |imp_GetWindowSta|
00005870 74 65 22 2c 2c 62 6c 6b 32 25 0d 1b 08 2e f4 62 |te",,blk2%.....b|
00005880 6c 6b 25 21 34 3d 28 62 6c 6b 32 25 21 34 29 2b |lk%!4=(blk2%!4)+|
00005890 32 30 30 3a 62 6c 6b 25 21 31 32 3d 28 62 6c 6b |200:blk%!12=(blk|
000058a0 25 21 34 29 2b 38 38 32 0d 1b 12 35 e7 78 6d 61 |%!4)+882...5.xma|
000058b0 78 65 63 25 3e 38 38 32 3a 62 6c 6b 25 21 34 3d |xec%>882:blk%!4=|
000058c0 a8 28 28 78 6d 61 78 65 63 25 2d 38 38 32 29 2f |.((xmaxec%-882)/|
000058d0 32 29 3a 8b 3a 62 6c 6b 25 21 34 3d 30 0d 1b 1c |2):.:blk%!4=0...|
000058e0 18 62 6c 6b 25 21 31 32 3d 28 62 6c 6b 25 21 34 |.blk%!12=(blk%!4|
000058f0 29 2b 38 38 32 0d 1b 26 35 e7 28 62 6c 6b 32 25 |)+882..&5.(blk2%|
00005900 21 38 29 3c 31 33 32 3a 62 6c 6b 25 21 31 36 3d |!8)<132:blk%!16=|
00005910 31 33 32 3a 8b 3a 62 6c 6b 25 21 31 36 3d 28 62 |132:.:blk%!16=(b|
00005920 6c 6b 32 25 21 38 29 2d 34 34 0d 1b 30 18 62 6c |lk2%!8)-44..0.bl|
00005930 6b 25 21 38 3d 28 62 6c 6b 25 21 31 36 29 2d 31 |k%!8=(blk%!16)-1|
00005940 33 32 0d 1b 3a 2f 21 62 6c 6b 25 3d 64 65 6d 6f |32..:/!blk%=demo|
00005950 77 25 3a 62 6c 6b 25 21 32 30 3d 30 3a 62 6c 6b |w%:blk%!20=0:blk|
00005960 25 21 32 34 3d 30 3a 62 6c 6b 25 21 32 38 3d 2d |%!24=0:blk%!28=-|
00005970 31 0d 1b 44 13 f2 6f 70 65 6e 77 69 6e 64 28 62 |1..D..openwind(b|
00005980 6c 6b 25 29 0d 1b 4e 05 e1 0d 1b 58 04 0d 1b 62 |lk%)..N....X...b|
00005990 10 dd f2 6f 70 65 6e 5f 6d 65 73 73 31 0d 1b 6c |...open_mess1..l|
000059a0 30 21 62 6c 6b 25 3d 64 65 6d 6f 31 77 25 3a c8 |0!blk%=demo1w%:.|
000059b0 99 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f |. "Wimp_GetWindo|
000059c0 77 53 74 61 74 65 22 2c 2c 62 6c 6b 25 0d 1b 76 |wState",,blk%..v|
000059d0 37 e7 78 6d 61 78 65 63 25 3e 31 30 34 30 3a 62 |7.xmaxec%>1040:b|
000059e0 6c 6b 25 21 34 3d a8 28 28 78 6d 61 78 65 63 25 |lk%!4=.((xmaxec%|
000059f0 2d 31 30 34 30 29 2f 32 29 3a 8b 3a 62 6c 6b 25 |-1040)/2):.:blk%|
00005a00 21 34 3d 30 0d 1b 80 35 e7 79 6d 61 78 65 63 25 |!4=0...5.ymaxec%|
00005a10 3e 37 34 30 3a 62 6c 6b 25 21 38 3d a8 28 28 79 |>740:blk%!8=.((y|
00005a20 6d 61 78 65 63 25 2d 37 34 30 29 2f 32 29 3a 8b |maxec%-740)/2):.|
00005a30 3a 62 6c 6b 25 21 38 3d 30 0d 1b 8a 42 62 6c 6b |:blk%!8=0...Bblk|
00005a40 25 21 31 32 3d 28 62 6c 6b 25 21 34 29 2b 31 30 |%!12=(blk%!4)+10|
00005a50 34 30 3a 62 6c 6b 25 21 31 36 3d 28 62 6c 6b 25 |40:blk%!16=(blk%|
00005a60 21 38 29 2b 37 34 30 3a 62 6c 6b 25 21 32 30 3d |!8)+740:blk%!20=|
00005a70 30 3a 62 6c 6b 25 21 32 34 3d 30 0d 1b 94 1e 62 |0:blk%!24=0....b|
00005a80 6c 6b 25 21 32 38 3d 2d 31 3a f2 6f 70 65 6e 77 |lk%!28=-1:.openw|
00005a90 69 6e 64 28 62 6c 6b 25 29 0d 1b 9e 05 e1 0d 1b |ind(blk%).......|
00005aa0 a8 04 0d 1b b2 10 dd f2 6f 70 65 6e 5f 77 6f 72 |........open_wor|
00005ab0 64 77 0d 1b bc 08 ea 20 6a 25 0d 1b c6 2f e3 6a |dw..... j%.../.j|
00005ac0 25 3d 30 b8 74 6f 74 67 6c 6f 73 73 25 2d 31 3a |%=0.totgloss%-1:|
00005ad0 f2 73 65 6c 65 63 74 69 63 6e 28 77 6f 72 64 77 |.selecticn(wordw|
00005ae0 25 2c 6a 25 2c a3 29 3a ed 0d 1b d0 2f 21 62 6c |%,j%,.):..../!bl|
00005af0 6b 25 3d 77 6f 72 64 77 25 3a c8 99 20 22 57 69 |k%=wordw%:.. "Wi|
00005b00 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
00005b10 65 22 2c 2c 62 6c 6b 25 0d 1b da 39 e7 78 6d 61 |e",,blk%...9.xma|
00005b20 78 65 63 25 3e 77 69 64 65 25 3a 62 6c 6b 25 21 |xec%>wide%:blk%!|
00005b30 34 3d a8 28 28 78 6d 61 78 65 63 25 2d 77 69 64 |4=.((xmaxec%-wid|
00005b40 65 25 29 2f 32 29 3a 8b 3a 62 6c 6b 25 21 34 3d |e%)/2):.:blk%!4=|
00005b50 30 0d 1b e4 39 e7 79 6d 61 78 65 63 25 3e 68 69 |0...9.ymaxec%>hi|
00005b60 67 68 25 3a 62 6c 6b 25 21 38 3d a8 28 28 79 6d |gh%:blk%!8=.((ym|
00005b70 61 78 65 63 25 2d 68 69 67 68 25 29 2f 32 29 3a |axec%-high%)/2):|
00005b80 8b 3a 62 6c 6b 25 21 38 3d 30 0d 1b ee 45 62 6c |.:blk%!8=0...Ebl|
00005b90 6b 25 21 31 32 3d 28 62 6c 6b 25 21 34 29 2b 77 |k%!12=(blk%!4)+w|
00005ba0 69 64 65 25 3a 62 6c 6b 25 21 31 36 3d 28 62 6c |ide%:blk%!16=(bl|
00005bb0 6b 25 21 38 29 2b 68 69 67 68 25 3a 62 6c 6b 25 |k%!8)+high%:blk%|
00005bc0 21 32 30 3d 30 3a 62 6c 6b 25 21 32 34 3d 30 0d |!20=0:blk%!24=0.|
00005bd0 1b f8 1e 62 6c 6b 25 21 32 38 3d 2d 31 3a f2 6f |...blk%!28=-1:.o|
00005be0 70 65 6e 77 69 6e 64 28 62 6c 6b 25 29 0d 1c 02 |penwind(blk%)...|
00005bf0 05 e1 0d 1c 0c 04 0d 1c 16 14 dd f2 6f 70 65 6e |............open|
00005c00 5f 64 65 66 6e 77 28 69 25 29 0d 1c 20 08 ea 20 |_defnw(i%).. .. |
00005c10 6a 25 0d 1c 2a 4d f2 70 75 74 69 63 6e 73 74 72 |j%..*M.puticnstr|
00005c20 69 6e 67 28 64 65 66 6e 77 25 2c 30 2c 67 6c 6f |ing(defnw%,0,glo|
00005c30 73 73 24 28 69 25 2c 30 29 29 3a f2 70 75 74 69 |ss$(i%,0)):.puti|
00005c40 63 6e 73 74 72 69 6e 67 28 64 65 66 6e 77 25 2c |cnstring(defnw%,|
00005c50 31 2c 67 6c 6f 73 73 24 28 69 25 2c 31 29 29 0d |1,gloss$(i%,1)).|
00005c60 1c 34 16 e7 ac a4 69 73 6f 70 65 6e 28 64 65 66 |.4....isopen(def|
00005c70 6e 77 25 29 8c 0d 1c 3e 30 20 21 62 6c 6b 25 3d |nw%)...>0 !blk%=|
00005c80 64 65 66 6e 77 25 3a c8 99 20 22 57 69 6d 70 5f |defnw%:.. "Wimp_|
00005c90 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c |GetWindowState",|
00005ca0 2c 62 6c 6b 25 0d 1c 48 36 20 e7 78 6d 61 78 65 |,blk%..H6 .xmaxe|
00005cb0 63 25 3e 38 34 32 3a 62 6c 6b 25 21 34 3d a8 28 |c%>842:blk%!4=.(|
00005cc0 28 78 6d 61 78 65 63 25 2d 38 34 32 29 2f 32 29 |(xmaxec%-842)/2)|
00005cd0 3a 8b 3a 62 6c 6b 25 21 34 3d 30 0d 1c 52 36 20 |:.:blk%!4=0..R6 |
00005ce0 e7 79 6d 61 78 65 63 25 3e 32 34 34 3a 62 6c 6b |.ymaxec%>244:blk|
00005cf0 25 21 38 3d a8 28 28 79 6d 61 78 65 63 25 2d 32 |%!8=.((ymaxec%-2|
00005d00 34 34 29 2f 32 29 3a 8b 3a 62 6c 6b 25 21 38 3d |44)/2):.:blk%!8=|
00005d10 30 0d 1c 5c 42 20 62 6c 6b 25 21 31 32 3d 28 62 |0..\B blk%!12=(b|
00005d20 6c 6b 25 21 34 29 2b 38 34 32 3a 62 6c 6b 25 21 |lk%!4)+842:blk%!|
00005d30 31 36 3d 28 62 6c 6b 25 21 38 29 2b 32 34 34 3a |16=(blk%!8)+244:|
00005d40 62 6c 6b 25 21 32 30 3d 30 3a 62 6c 6b 25 21 32 |blk%!20=0:blk%!2|
00005d50 34 3d 30 0d 1c 66 1f 20 62 6c 6b 25 21 32 38 3d |4=0..f. blk%!28=|
00005d60 2d 31 3a f2 6f 70 65 6e 77 69 6e 64 28 62 6c 6b |-1:.openwind(blk|
00005d70 25 29 0d 1c 70 05 cd 0d 1c 7a 05 e1 0d 1c 84 04 |%)..p....z......|
00005d80 0d 1c 8e 19 dd f2 6f 70 65 6e 5f 61 6e 69 6d 77 |......open_animw|
00005d90 28 61 6d 25 2c 61 61 25 29 0d 1c 98 13 ea 20 6a |(am%,aa%)..... j|
00005da0 25 2c 64 65 74 73 69 7a 25 2c 6b 25 0d 1c a2 10 |%,detsiz%,k%....|
00005db0 e7 66 69 72 73 74 74 69 6d 65 25 8c 0d 1c ac 11 |.firsttime%.....|
00005dc0 20 66 69 72 73 74 74 69 6d 65 25 3d 30 0d 1c b6 | firsttime%=0...|
00005dd0 2e 20 21 62 6c 6b 25 3d 61 6e 6d 65 77 25 3a c8 |. !blk%=anmew%:.|
00005de0 99 20 22 57 69 6d 70 5f 44 65 6c 65 74 65 57 69 |. "Wimp_DeleteWi|
00005df0 6e 64 6f 77 22 2c 2c 62 6c 6b 25 0d 1c c0 1d 20 |ndow",,blk%.... |
00005e00 21 28 28 77 69 6e 73 74 61 72 74 73 25 21 38 29 |!((winstarts%!8)|
00005e10 2b 35 32 29 3d 2d 35 36 0d 1c ca 32 20 c8 99 20 |+52)=-56...2 .. |
00005e20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 |"Wimp_CreateWind|
00005e30 6f 77 22 2c 2c 77 69 6e 73 74 61 72 74 73 25 21 |ow",,winstarts%!|
00005e40 38 20 b8 20 61 6e 6d 65 77 25 0d 1c d4 16 20 f2 |8 . anmew%.... .|
00005e50 69 6e 69 74 61 6e 6d 65 77 6c 61 62 73 28 30 29 |initanmewlabs(0)|
00005e60 0d 1c de 44 20 21 61 6e 6d 65 77 74 69 74 6c 65 |...D !anmewtitle|
00005e70 73 69 7a 25 3d a9 28 61 6e 6d 65 77 74 69 74 6c |siz%=.(anmewtitl|
00005e80 65 24 28 30 29 29 2b 31 3a 24 61 6e 6d 65 77 74 |e$(0))+1:$anmewt|
00005e90 69 74 6c 65 25 3d 61 6e 6d 65 77 74 69 74 6c 65 |itle%=anmewtitle|
00005ea0 24 28 30 29 0d 1c e8 30 20 21 62 6c 6b 25 3d 61 |$(0)...0 !blk%=a|
00005eb0 6e 6d 65 77 25 3a c8 99 20 22 57 69 6d 70 5f 47 |nmew%:.. "Wimp_G|
00005ec0 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,|
00005ed0 62 6c 6b 25 0d 1c f2 3e 20 e7 78 6d 61 78 65 63 |blk%...> .xmaxec|
00005ee0 25 3e 31 32 38 30 3a 62 6c 6b 25 21 34 3d a8 28 |%>1280:blk%!4=.(|
00005ef0 28 78 6d 61 78 65 63 25 2d 31 32 38 30 29 2f 32 |(xmaxec%-1280)/2|
00005f00 29 2b 33 39 36 3a 8b 3a 62 6c 6b 25 21 34 3d 33 |)+396:.:blk%!4=3|
00005f10 39 36 0d 1c fc 38 20 e7 79 6d 61 78 65 63 25 3e |96...8 .ymaxec%>|
00005f20 31 30 32 34 3a 62 6c 6b 25 21 38 3d a8 28 28 79 |1024:blk%!8=.((y|
00005f30 6d 61 78 65 63 25 2d 31 30 32 34 29 2f 32 29 3a |maxec%-1024)/2):|
00005f40 8b 3a 62 6c 6b 25 21 38 3d 30 0d 1d 06 43 20 62 |.:blk%!8=0...C b|
00005f50 6c 6b 25 21 31 32 3d 28 62 6c 6b 25 21 34 29 2b |lk%!12=(blk%!4)+|
00005f60 38 34 32 3a 62 6c 6b 25 21 31 36 3d 28 62 6c 6b |842:blk%!16=(blk|
00005f70 25 21 38 29 2b 31 30 32 34 3a 62 6c 6b 25 21 32 |%!8)+1024:blk%!2|
00005f80 30 3d 30 3a 62 6c 6b 25 21 32 34 3d 30 0d 1d 10 |0=0:blk%!24=0...|
00005f90 1f 20 62 6c 6b 25 21 32 38 3d 2d 31 3a f2 6f 70 |. blk%!28=-1:.op|
00005fa0 65 6e 77 69 6e 64 28 62 6c 6b 25 29 0d 1d 1a 1e |enwind(blk%)....|
00005fb0 20 61 63 74 6d 65 6e 75 25 3d 61 6d 25 3a 61 63 | actmenu%=am%:ac|
00005fc0 74 61 6e 69 6d 25 3d 61 61 25 0d 1d 24 06 20 e1 |tanim%=aa%..$. .|
00005fd0 0d 1d 2e 05 cd 0d 1d 38 25 e7 a4 69 73 6f 70 65 |.......8%..isope|
00005fe0 6e 28 61 6e 69 6d 77 25 29 3a f2 63 6c 6f 73 65 |n(animw%):.close|
00005ff0 77 69 6e 64 28 62 6c 6b 25 29 0d 1d 42 25 e7 a4 |wind(blk%)..B%..|
00006000 69 73 6f 70 65 6e 28 61 6e 6d 65 77 25 29 3a f2 |isopen(anmew%):.|
00006010 63 6c 6f 73 65 77 69 6e 64 28 62 6c 6b 25 29 0d |closewind(blk%).|
00006020 1d 4c 0d e7 61 6d 25 3c 3e 30 20 8c 0d 1d 56 13 |.L..am%<>0 ...V.|
00006030 20 e7 ac 73 68 72 75 6e 6b 61 6e 6d 65 25 8c 0d | ..shrunkanme%..|
00006040 1d 60 3f 20 20 e7 61 6d 25 3e 30 3a f2 72 65 73 |.`? .am%>0:.res|
00006050 69 7a 65 61 6e 6d 65 77 3a f2 73 65 74 65 78 74 |izeanmew:.setext|
00006060 65 6e 74 28 61 6e 6d 65 77 25 2c 38 30 30 29 3a |ent(anmew%,800):|
00006070 73 68 72 75 6e 6b 61 6e 6d 65 25 3d 2d 31 0d 1d |shrunkanme%=-1..|
00006080 6a 06 20 cd 0d 1d 74 05 cd 0d 1d 7e 0c e7 61 61 |j. ...t....~..aa|
00006090 25 3d 2d 31 8c 0d 1d 88 18 20 f2 69 6e 69 74 61 |%=-1..... .inita|
000060a0 6e 6d 65 77 6c 61 62 73 28 61 6d 25 29 0d 1d 92 |nmewlabs(am%)...|
000060b0 48 20 21 61 6e 6d 65 77 74 69 74 6c 65 73 69 7a |H !anmewtitlesiz|
000060c0 25 3d a9 28 61 6e 6d 65 77 74 69 74 6c 65 24 28 |%=.(anmewtitle$(|
000060d0 61 6d 25 29 29 2b 31 3a 24 61 6e 6d 65 77 74 69 |am%))+1:$anmewti|
000060e0 74 6c 65 25 3d 61 6e 6d 65 77 74 69 74 6c 65 24 |tle%=anmewtitle$|
000060f0 28 61 6d 25 29 0d 1d 9c 2c 20 2a 53 65 74 20 50 |(am%)..., *Set P|
00006100 6c 61 6e 74 57 69 73 65 24 63 68 61 69 6e 64 69 |lantWise$chaindi|
00006110 72 20 3c 50 6c 61 6e 74 57 69 73 65 24 44 69 72 |r <PlantWise$Dir|
00006120 3e 0d 1d a6 56 20 e7 59 25 3d 30 3a 74 65 73 74 |>...V .Y%=0:test|
00006130 25 3d 30 3a f5 3a f2 66 6c 6f 70 70 79 5f 64 69 |%=0:.:.floppy_di|
00006140 73 6b 28 22 50 6c 61 6e 74 77 69 73 65 22 2c 22 |sk("Plantwise","|
00006150 24 2e 21 50 6c 61 6e 74 77 69 73 65 2e 73 70 66 |$.!Plantwise.spf|
00006160 69 6c 65 73 2e 61 6e 69 6d 32 30 22 29 3a fd 65 |iles.anim20"):.e|
00006170 72 72 6f 72 25 3d 30 0d 1d b0 60 20 e7 28 61 63 |rror%=0...` .(ac|
00006180 74 6d 65 6e 75 25 3c 3e 61 6d 25 29 84 28 61 63 |tmenu%<>am%).(ac|
00006190 74 61 6e 69 6d 25 3c 3e 61 61 25 29 3a f2 6c 6f |tanim%<>aa%):.lo|
000061a0 61 64 75 6e 73 71 75 61 73 68 28 64 65 74 61 72 |adunsquash(detar|
000061b0 65 61 25 2c 31 30 30 2a 31 30 32 34 2c 22 73 70 |ea%,100*1024,"sp|
000061c0 66 69 6c 65 73 2e 61 6e 69 6d 6d 65 6e 75 22 2b |files.animmenu"+|
000061d0 c3 28 61 6d 25 29 29 0d 1d ba 34 20 f2 6d 61 6b |.(am%))...4 .mak|
000061e0 65 61 6e 69 6d 28 61 6d 25 2c 61 61 25 2c 30 29 |eanim(am%,aa%,0)|
000061f0 3a e7 61 6d 25 3e 30 3a f2 61 64 64 61 6e 6d 65 |:.am%>0:.addanme|
00006200 77 6c 69 6e 65 73 28 61 6d 25 29 0d 1d c4 05 cc |wlines(am%).....|
00006210 0d 1d ce 14 20 f2 69 6e 69 74 61 6e 69 6d 77 28 |.... .initanimw(|
00006220 61 61 25 29 0d 1d d8 48 20 21 61 6e 69 6d 77 74 |aa%)...H !animwt|
00006230 69 74 6c 65 73 69 7a 25 3d a9 28 61 6e 69 6d 77 |itlesiz%=.(animw|
00006240 74 69 74 6c 65 24 28 61 61 25 29 29 2b 31 3a 24 |title$(aa%))+1:$|
00006250 61 6e 69 6d 77 74 69 74 6c 65 25 3d 61 6e 69 6d |animwtitle%=anim|
00006260 77 74 69 74 6c 65 24 28 61 61 25 29 0d 1d e2 14 |wtitle$(aa%)....|
00006270 20 e7 61 63 74 61 6e 69 6d 25 3c 3e 61 61 25 8c | .actanim%<>aa%.|
00006280 0d 1d ec 2d 20 20 2a 53 65 74 20 50 6c 61 6e 74 |...- *Set Plant|
00006290 57 69 73 65 24 63 68 61 69 6e 64 69 72 20 3c 50 |Wise$chaindir <P|
000062a0 6c 61 6e 74 57 69 73 65 24 44 69 72 3e 0d 1d f6 |lantWise$Dir>...|
000062b0 57 20 20 e7 59 25 3d 30 3a 74 65 73 74 25 3d 30 |W .Y%=0:test%=0|
000062c0 3a f5 3a f2 66 6c 6f 70 70 79 5f 64 69 73 6b 28 |:.:.floppy_disk(|
000062d0 22 50 6c 61 6e 74 77 69 73 65 22 2c 22 24 2e 21 |"Plantwise","$.!|
000062e0 50 6c 61 6e 74 77 69 73 65 2e 73 70 66 69 6c 65 |Plantwise.spfile|
000062f0 73 2e 61 6e 69 6d 32 30 22 29 3a fd 65 72 72 6f |s.anim20"):.erro|
00006300 72 25 3d 30 0d 1e 00 10 20 20 e7 62 67 25 28 61 |r%=0.... .bg%(a|
00006310 61 25 29 8c 0d 1e 0a 46 20 20 20 21 64 65 74 61 |a%)....F !deta|
00006320 72 65 61 25 3d 31 32 30 2a 31 30 32 34 3a 64 65 |rea%=120*1024:de|
00006330 74 61 72 65 61 25 21 38 3d 31 36 3a c8 99 20 22 |tarea%!8=16:.. "|
00006340 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 30 |OS_SpriteOp",&10|
00006350 39 2c 64 65 74 61 72 65 61 25 0d 1e 14 42 20 20 |9,detarea%...B |
00006360 20 21 62 67 61 72 65 61 25 3d 33 33 2a 31 30 32 | !bgarea%=33*102|
00006370 34 3a 62 67 61 72 65 61 25 21 38 3d 31 36 3a c8 |4:bgarea%!8=16:.|
00006380 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
00006390 26 31 30 39 2c 62 67 61 72 65 61 25 0d 1e 1e 49 |&109,bgarea%...I|
000063a0 20 20 20 f2 67 65 74 62 67 28 61 61 25 29 3a f2 | .getbg(aa%):.|
000063b0 6c 6f 61 64 75 6e 73 71 75 61 73 68 28 64 65 74 |loadunsquash(det|
000063c0 61 72 65 61 25 2c 31 32 30 2a 31 30 32 34 2c 22 |area%,120*1024,"|
000063d0 73 70 66 69 6c 65 73 2e 61 6e 69 6d 22 2b c3 28 |spfiles.anim"+.(|
000063e0 61 61 25 29 29 0d 1e 28 16 20 20 20 f2 73 70 65 |aa%))..(. .spe|
000063f0 63 69 61 6c 62 67 28 61 61 25 29 0d 1e 32 07 20 |cialbg(aa%)..2. |
00006400 20 cc 0d 1e 3c 46 20 20 20 21 64 65 74 61 72 65 | ...<F !detare|
00006410 61 25 3d 31 35 33 2a 31 30 32 34 3a 64 65 74 61 |a%=153*1024:deta|
00006420 72 65 61 25 21 38 3d 31 36 3a c8 99 20 22 4f 53 |rea%!8=16:.. "OS|
00006430 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 30 39 2c |_SpriteOp",&109,|
00006440 64 65 74 61 72 65 61 25 0d 1e 46 3d 20 20 20 f2 |detarea%..F= .|
00006450 6c 6f 61 64 75 6e 73 71 75 61 73 68 28 64 65 74 |loadunsquash(det|
00006460 61 72 65 61 25 2c 31 35 33 2a 31 30 32 34 2c 22 |area%,153*1024,"|
00006470 73 70 66 69 6c 65 73 2e 61 6e 69 6d 22 2b c3 28 |spfiles.anim"+.(|
00006480 61 61 25 29 29 0d 1e 50 07 20 20 cd 0d 1e 5a 29 |aa%))..P. ...Z)|
00006490 20 20 f2 67 65 74 77 6f 72 64 66 69 6c 65 28 61 | .getwordfile(a|
000064a0 61 25 29 3a f2 67 65 74 6e 75 6d 62 66 69 6c 65 |a%):.getnumbfile|
000064b0 28 61 61 25 29 0d 1e 64 06 20 cd 0d 1e 6e 20 20 |(aa%)..d. ...n |
000064c0 f2 6d 61 6b 65 61 6e 69 6d 28 61 6d 25 2c 61 61 |.makeanim(am%,aa|
000064d0 25 2c 62 67 25 28 61 61 25 29 29 0d 1e 78 50 20 |%,bg%(aa%))..xP |
000064e0 e7 74 65 78 74 6f 6e 25 3a f2 72 65 6d 6f 76 65 |.texton%:.remove|
000064f0 74 65 78 74 28 61 61 25 29 3a 61 63 74 74 78 74 |text(aa%):acttxt|
00006500 69 63 6e 25 3d 30 3a f2 73 65 6c 65 63 74 69 63 |icn%=0:.selectic|
00006510 6e 28 61 6e 69 6d 77 25 2c 31 2c b9 29 3a f2 61 |n(animw%,1,.):.a|
00006520 64 64 74 65 78 74 28 61 61 25 29 0d 1e 82 05 cd |ddtext(aa%).....|
00006530 0d 1e 8c 2c e7 61 63 74 61 6e 69 6d 25 3d 2d 31 |...,.actanim%=-1|
00006540 3a 21 62 6c 6b 25 3d 61 6e 6d 65 77 25 3a 8b 3a |:!blk%=anmew%:.:|
00006550 21 62 6c 6b 25 3d 61 6e 69 6d 77 25 0d 1e 96 1c |!blk%=animw%....|
00006560 e7 28 61 63 74 6d 65 6e 75 25 3d 30 29 80 28 61 |.(actmenu%=0).(a|
00006570 6d 25 3c 3e 30 29 20 8c 0d 1e a0 22 20 e3 6a 25 |m%<>0) ...." .j%|
00006580 3d 34 b8 32 30 88 34 3a 62 6c 6b 25 21 6a 25 3d |=4.20.4:blk%!j%=|
00006590 62 6c 6b 32 25 21 6a 25 3a ed 0d 1e aa 1a 20 62 |blk2%!j%:..... b|
000065a0 6c 6b 25 21 32 34 3d 28 62 6c 6b 32 25 21 32 34 |lk%!24=(blk2%!24|
000065b0 29 2b 35 36 0d 1e b4 4b 20 e7 28 28 62 6c 6b 32 |)+56...K .((blk2|
000065c0 25 21 33 32 29 80 26 34 30 30 30 30 29 3d 26 34 |%!32).&40000)=&4|
000065d0 30 30 30 30 3a 62 6c 6b 25 21 31 32 3d 28 62 6c |0000:blk%!12=(bl|
000065e0 6b 25 21 34 29 2b 38 34 32 3a 62 6c 6b 25 21 38 |k%!4)+842:blk%!8|
000065f0 3d 28 62 6c 6b 25 21 31 36 29 2d 31 30 32 34 0d |=(blk%!16)-1024.|
00006600 1e be 05 cc 0d 1e c8 23 20 c8 99 20 22 57 69 6d |.......# .. "Wim|
00006610 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 |p_GetWindowState|
00006620 22 2c 2c 62 6c 6b 25 0d 1e d2 4a 20 e7 28 28 62 |",,blk%...J .((b|
00006630 6c 6b 25 21 33 32 29 80 26 34 30 30 30 30 29 3d |lk%!32).&40000)=|
00006640 26 34 30 30 30 30 3a 62 6c 6b 25 21 31 32 3d 28 |&40000:blk%!12=(|
00006650 62 6c 6b 25 21 34 29 2b 38 34 32 3a 62 6c 6b 25 |blk%!4)+842:blk%|
00006660 21 38 3d 28 62 6c 6b 25 21 31 36 29 2d 31 30 32 |!8=(blk%!16)-102|
00006670 34 0d 1e dc 05 cd 0d 1e e6 27 e7 61 61 25 3d 2d |4........'.aa%=-|
00006680 31 3a 21 62 6c 6b 25 3d 61 6e 6d 65 77 25 3a 8b |1:!blk%=anmew%:.|
00006690 3a 21 62 6c 6b 25 3d 61 6e 69 6d 77 25 0d 1e f0 |:!blk%=animw%...|
000066a0 1e 62 6c 6b 25 21 32 38 3d 2d 31 3a f2 6f 70 65 |.blk%!28=-1:.ope|
000066b0 6e 77 69 6e 64 28 62 6c 6b 25 29 0d 1e fa 1d 61 |nwind(blk%)....a|
000066c0 63 74 6d 65 6e 75 25 3d 61 6d 25 3a 61 63 74 61 |ctmenu%=am%:acta|
000066d0 6e 69 6d 25 3d 61 61 25 0d 1f 04 05 e1 0d 1f 0e |nim%=aa%........|
000066e0 04 0d 1f 18 14 dd f2 73 70 65 63 69 61 6c 62 67 |.......specialbg|
000066f0 28 61 61 25 29 0d 1f 22 0c c8 8e 20 61 61 25 20 |(aa%).."... aa% |
00006700 ca 0d 1f 2c 60 20 c9 20 31 34 3a 20 c8 99 22 4f |...,` . 14: .."O|
00006710 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 43 |S_SpriteOp",&13C|
00006720 2c 62 67 61 72 65 61 25 2c 22 62 67 37 22 2c 30 |,bgarea%,"bg7",0|
00006730 3a 53 43 41 4c 45 25 21 30 3d 31 32 3a 53 43 41 |:SCALE%!0=12:SCA|
00006740 4c 45 25 21 34 3d 31 32 3a 53 43 41 4c 45 25 21 |LE%!4=12:SCALE%!|
00006750 38 3d 31 36 3a 53 43 41 4c 45 25 21 31 32 3d 31 |8=16:SCALE%!12=1|
00006760 36 0d 1f 36 6f 20 20 20 20 20 20 e3 6a 25 3d 30 |6..6o .j%=0|
00006770 b8 37 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |.7:.."OS_SpriteO|
00006780 70 22 2c 26 31 33 34 2c 64 65 74 61 72 65 61 25 |p",&134,detarea%|
00006790 2c 22 67 72 22 2b c3 28 6a 25 83 33 29 2c 34 32 |,"gr"+.(j%.3),42|
000067a0 30 2b 28 6a 25 2a 35 30 29 2c 30 2c 26 30 38 2c |0+(j%*50),0,&08,|
000067b0 53 43 41 4c 45 25 2c 30 3a f2 66 6c 69 70 28 32 |SCALE%,0:.flip(2|
000067c0 2c 22 67 72 22 2b c3 28 6a 25 83 33 29 29 3a ed |,"gr"+.(j%.3)):.|
000067d0 0d 1f 40 75 20 20 20 20 20 20 f2 66 6c 69 70 28 |..@u .flip(|
000067e0 32 2c 22 67 72 30 22 29 3a f2 66 6c 69 70 28 32 |2,"gr0"):.flip(2|
000067f0 2c 22 67 72 31 22 29 3a 53 43 41 4c 45 25 21 30 |,"gr1"):SCALE%!0|
00006800 3d 31 3a 53 43 41 4c 45 25 21 34 3d 31 3a 53 43 |=1:SCALE%!4=1:SC|
00006810 41 4c 45 25 21 38 3d 31 3a 53 43 41 4c 45 25 21 |ALE%!8=1:SCALE%!|
00006820 31 32 3d 31 3a c8 99 22 4f 53 5f 53 70 72 69 74 |12=1:.."OS_Sprit|
00006830 65 4f 70 22 2c 26 31 33 43 2c 62 67 61 72 65 61 |eOp",&13C,bgarea|
00006840 25 2c 30 2c 31 0d 1f 4a 2e 20 c9 20 31 36 3a c8 |%,0,1..J. . 16:.|
00006850 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&|
00006860 31 33 43 2c 62 67 61 72 65 61 25 2c 22 62 67 34 |13C,bgarea%,"bg4|
00006870 22 2c 30 0d 1f 54 58 20 20 20 20 20 20 e3 20 6a |",0..TX . j|
00006880 25 3d 30 b8 33 3a c8 99 22 4f 53 5f 53 70 72 69 |%=0.3:.."OS_Spri|
00006890 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 |teOp",&122,detar|
000068a0 65 61 25 2c 22 62 67 22 2c 30 2b 28 34 30 38 2a |ea%,"bg",0+(408*|
000068b0 28 6a 25 83 32 29 29 2c 30 2b 28 33 33 36 2a a8 |(j%.2)),0+(336*.|
000068c0 28 6a 25 2f 32 29 29 2c 38 3a ed 0d 1f 5e 2a 20 |(j%/2)),8:...^* |
000068d0 20 20 20 20 20 c8 99 22 4f 53 5f 53 70 72 69 74 | .."OS_Sprit|
000068e0 65 4f 70 22 2c 26 31 33 43 2c 62 67 61 72 65 61 |eOp",&13C,bgarea|
000068f0 25 2c 30 2c 31 0d 1f 68 05 cb 0d 1f 72 05 e1 0d |%,0,1..h....r...|
00006900 1f 7c 04 0d 1f 86 11 dd f2 6f 70 65 6e 5f 73 65 |.|.......open_se|
00006910 74 75 70 77 0d 1f 90 08 ea 20 6a 25 0d 1f 9a 11 |tupw..... j%....|
00006920 21 62 6c 6b 25 3d 73 65 74 75 70 77 25 0d 1f a4 |!blk%=setupw%...|
00006930 37 e7 78 6d 61 78 65 63 25 3e 31 31 30 34 3a 62 |7.xmaxec%>1104:b|
00006940 6c 6b 25 21 34 3d a8 28 28 78 6d 61 78 65 63 25 |lk%!4=.((xmaxec%|
00006950 2d 31 31 30 34 29 2f 32 29 3a 8b 3a 62 6c 6b 25 |-1104)/2):.:blk%|
00006960 21 34 3d 30 0d 1f ae 35 e7 79 6d 61 78 65 63 25 |!4=0...5.ymaxec%|
00006970 3e 31 35 36 3a 62 6c 6b 25 21 38 3d a8 28 28 79 |>156:blk%!8=.((y|
00006980 6d 61 78 65 63 25 2d 31 35 36 29 2f 32 29 3a 8b |maxec%-156)/2):.|
00006990 3a 62 6c 6b 25 21 38 3d 30 0d 1f b8 2e 62 6c 6b |:blk%!8=0....blk|
000069a0 25 21 31 32 3d 28 62 6c 6b 25 21 34 29 2b 31 31 |%!12=(blk%!4)+11|
000069b0 30 34 3a 62 6c 6b 25 21 31 36 3d 28 62 6c 6b 25 |04:blk%!16=(blk%|
000069c0 21 38 29 2b 31 35 36 0d 1f c2 22 62 6c 6b 25 21 |!8)+156..."blk%!|
000069d0 32 30 3d 30 3a 62 6c 6b 25 21 32 34 3d 30 3a 62 |20=0:blk%!24=0:b|
000069e0 6c 6b 25 21 32 38 3d 2d 31 0d 1f cc 13 f2 6f 70 |lk%!28=-1.....op|
000069f0 65 6e 77 69 6e 64 28 62 6c 6b 25 29 0d 1f d6 05 |enwind(blk%)....|
00006a00 e1 0d 1f e0 04 0d 1f ea 10 dd f2 67 65 74 62 67 |...........getbg|
00006a10 28 61 61 25 29 0d 1f f4 0c c8 8e 20 61 61 25 20 |(aa%)...... aa% |
00006a20 ca 0d 1f fe 2c 20 c9 20 31 30 3a f2 6d 61 6b 65 |...., . 10:.make|
00006a30 62 67 28 61 61 25 2c 34 2c 2d 31 2c 33 33 32 2c |bg(aa%,4,-1,332,|
00006a40 2d 31 2c 33 36 34 2c 31 31 2c 31 33 29 0d 20 08 |-1,364,11,13). .|
00006a50 2a 20 c9 20 31 32 3a f2 6d 61 6b 65 62 67 28 61 |* . 12:.makebg(a|
00006a60 61 25 2c 38 2c 2d 31 2c 31 32 34 2c 30 2c 31 32 |a%,8,-1,124,0,12|
00006a70 32 2c 31 2c 31 33 29 0d 20 12 28 20 c9 20 31 34 |2,1,13). .( . 14|
00006a80 2c 32 33 3a f2 6d 61 6b 65 62 67 28 61 61 25 2c |,23:.makebg(aa%,|
00006a90 37 2c 2d 31 2c 30 2c 30 2c 30 2c 30 2c 30 29 0d |7,-1,0,0,0,0,0).|
00006aa0 20 1c 27 20 c9 20 32 30 3a f2 6d 61 6b 65 62 67 | .' . 20:.makebg|
00006ab0 28 61 61 25 2c 38 2c 30 2c 38 30 2c 30 2c 37 38 |(aa%,8,0,80,0,78|
00006ac0 2c 31 2c 31 33 29 0d 20 26 47 20 c9 20 32 32 3a |,1,13). &G . 22:|
00006ad0 f2 6c 6f 61 64 75 6e 73 71 75 61 73 68 28 64 65 |.loadunsquash(de|
00006ae0 74 61 72 65 61 25 2c 31 32 30 2a 31 30 32 34 2c |tarea%,120*1024,|
00006af0 22 73 70 66 69 6c 65 73 2e 62 67 73 2e 62 67 22 |"spfiles.bgs.bg"|
00006b00 2b c3 28 62 67 25 28 61 61 25 29 29 29 0d 20 30 |+.(bg%(aa%))). 0|
00006b10 74 20 20 20 20 20 20 20 20 20 c8 99 20 22 4f 53 |t .. "OS|
00006b20 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 30 39 2c |_SpriteOp",&109,|
00006b30 62 67 61 72 65 61 25 3a c8 99 20 22 4f 53 5f 53 |bgarea%:.. "OS_S|
00006b40 70 72 69 74 65 4f 70 22 2c 26 31 30 46 2c 62 67 |priteOp",&10F,bg|
00006b50 61 72 65 61 25 2c 22 62 67 31 22 2c 31 2c 34 30 |area%,"bg1",1,40|
00006b60 35 2c 31 36 31 2c 31 32 3a f2 61 64 64 70 61 6c |5,161,12:.addpal|
00006b70 65 74 28 62 67 61 72 65 61 25 2c 22 62 67 31 22 |et(bgarea%,"bg1"|
00006b80 29 0d 20 3a 31 20 20 20 20 20 20 20 20 20 c8 99 |). :1 ..|
00006b90 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
00006ba0 33 43 2c 62 67 61 72 65 61 25 2c 22 62 67 31 22 |3C,bgarea%,"bg1"|
00006bb0 2c 30 0d 20 44 31 20 20 20 20 20 20 20 20 20 ef |,0. D1 .|
00006bc0 31 38 2c 30 2c 31 35 3a ef 32 35 2c 34 2c 30 3b |18,0,15:.25,4,0;|
00006bd0 30 3b 3a ef 32 35 2c 31 30 31 2c 38 31 30 3b 36 |0;:.25,101,810;6|
00006be0 34 34 3b 0d 20 4e 3b 20 20 20 20 20 20 20 20 20 |44;. N; |
00006bf0 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |.. "OS_SpriteOp"|
00006c00 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 |,&122,detarea%,"|
00006c10 68 6f 72 69 7a 22 2c 30 2c 33 36 30 2c 38 0d 20 |horiz",0,360,8. |
00006c20 58 33 20 20 20 20 20 20 20 20 20 ef 31 38 2c 30 |X3 .18,0|
00006c30 2c 31 30 3a ef 32 35 2c 34 2c 30 3b 32 30 30 3b |,10:.25,4,0;200;|
00006c40 3a ef 32 35 2c 31 30 31 2c 38 31 30 3b 33 36 30 |:.25,101,810;360|
00006c50 3b 0d 20 62 51 20 20 20 20 20 20 20 20 20 ef 32 |;. bQ .2|
00006c60 33 2c 31 32 2c 31 31 2c 31 30 2c 31 30 2c 31 31 |3,12,11,10,10,11|
00006c70 2c 31 31 2c 31 30 2c 31 30 2c 31 31 3a ef 31 38 |,11,10,10,11:.18|
00006c80 2c 31 36 2c 30 3a ef 32 35 2c 34 2c 30 3b 38 30 |,16,0:.25,4,0;80|
00006c90 3b 3a ef 32 35 2c 31 30 31 2c 38 31 30 3b 32 30 |;:.25,101,810;20|
00006ca0 30 3b 0d 20 6c 4f 20 20 20 20 20 20 20 20 20 ef |0;. lO .|
00006cb0 32 33 2c 31 32 2c 31 31 2c 31 33 2c 31 33 2c 31 |23,12,11,13,13,1|
00006cc0 31 2c 31 31 2c 31 33 2c 31 33 2c 31 31 3a ef 31 |1,11,13,13,11:.1|
00006cd0 38 2c 31 36 2c 30 3a ef 32 35 2c 34 2c 30 3b 30 |8,16,0:.25,4,0;0|
00006ce0 3b 3a ef 32 35 2c 31 30 31 2c 38 31 30 3b 38 30 |;:.25,101,810;80|
00006cf0 3b 0d 20 76 30 20 20 20 20 20 20 20 20 20 ef 31 |;. v0 .1|
00006d00 38 2c 30 2c 37 3a ef 32 35 2c 34 2c 30 3b 38 30 |8,0,7:.25,4,0;80|
00006d10 3b 3a ef 32 35 2c 31 30 31 2c 38 31 30 3b 38 30 |;:.25,101,810;80|
00006d20 3b 0d 20 80 6a 20 20 20 20 20 20 20 20 20 c8 99 |;. .j ..|
00006d30 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 | "OS_SpriteOp",&|
00006d40 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 63 6f |122,detarea%,"co|
00006d50 77 22 2c 31 38 36 2c 32 32 30 2c 38 3a c8 99 20 |w",186,220,8:.. |
00006d60 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
00006d70 32 32 2c 64 65 74 61 72 65 61 25 2c 22 66 65 6e |22,detarea%,"fen|
00006d80 63 65 22 2c 30 2c 32 32 30 2c 38 0d 20 8a 6c 20 |ce",0,220,8. .l |
00006d90 20 20 20 20 20 20 20 20 c8 99 20 22 4f 53 5f 53 | .. "OS_S|
00006da0 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
00006db0 74 61 72 65 61 25 2c 22 76 65 72 67 65 22 2c 30 |tarea%,"verge",0|
00006dc0 2c 31 38 34 2c 38 3a c8 99 20 22 4f 53 5f 53 70 |,184,8:.. "OS_Sp|
00006dd0 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 |riteOp",&122,det|
00006de0 61 72 65 61 25 2c 22 76 65 72 67 65 22 2c 34 30 |area%,"verge",40|
00006df0 34 2c 31 38 34 2c 38 0d 20 94 2d 20 20 20 20 20 |4,184,8. .- |
00006e00 20 20 20 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 | .."OS_Sprite|
00006e10 4f 70 22 2c 26 31 33 43 2c 62 67 61 72 65 61 25 |Op",&13C,bgarea%|
00006e20 2c 30 2c 31 0d 20 9e a6 20 20 20 20 20 20 20 20 |,0,1. .. |
00006e30 20 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 | .. "OS_SpriteOp|
00006e40 22 2c 26 31 31 39 2c 64 65 74 61 72 65 61 25 2c |",&119,detarea%,|
00006e50 22 68 6f 72 69 7a 22 3a c8 99 20 22 4f 53 5f 53 |"horiz":.. "OS_S|
00006e60 70 72 69 74 65 4f 70 22 2c 26 31 31 39 2c 64 65 |priteOp",&119,de|
00006e70 74 61 72 65 61 25 2c 22 63 6f 77 22 3a c8 99 20 |tarea%,"cow":.. |
00006e80 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
00006e90 31 39 2c 64 65 74 61 72 65 61 25 2c 22 66 65 6e |19,detarea%,"fen|
00006ea0 63 65 22 3a c8 99 20 22 4f 53 5f 53 70 72 69 74 |ce":.. "OS_Sprit|
00006eb0 65 4f 70 22 2c 26 31 31 39 2c 64 65 74 61 72 65 |eOp",&119,detare|
00006ec0 61 25 2c 22 76 65 72 67 65 22 0d 20 a8 2a 20 c9 |a%,"verge". .* .|
00006ed0 20 32 35 3a f2 6d 61 6b 65 62 67 28 61 61 25 2c | 25:.makebg(aa%,|
00006ee0 33 2c 30 2c 32 34 30 2c 30 2c 32 39 38 2c 31 31 |3,0,240,0,298,11|
00006ef0 2c 31 33 29 0d 20 b2 2c 20 c9 20 32 39 3a f2 6d |,13). ., . 29:.m|
00006f00 61 6b 65 62 67 28 61 61 25 2c 33 2c 2d 31 2c 31 |akebg(aa%,3,-1,1|
00006f10 38 38 2c 2d 31 2c 32 30 38 2c 31 31 2c 31 33 29 |88,-1,208,11,13)|
00006f20 0d 20 bc 21 20 7f 3a f2 6d 61 6b 65 62 67 28 61 |. .! .:.makebg(a|
00006f30 61 25 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |a%,0,0,0,0,0,0,0|
00006f40 29 0d 20 c6 05 cb 0d 20 d0 05 e1 0d 20 da 04 0d |). .... .... ...|
00006f50 20 e4 3a dd f2 6d 61 6b 65 62 67 28 61 61 25 2c | .:..makebg(aa%,|
00006f60 62 67 6e 6f 25 2c 66 6c 69 70 25 2c 75 70 25 2c |bgno%,flip%,up%,|
00006f70 6c 69 6e 65 25 2c 65 63 66 75 70 25 2c 65 63 66 |line%,ecfup%,ecf|
00006f80 31 25 2c 65 63 66 32 25 29 0d 20 ee 3f f2 6c 6f |1%,ecf2%). .?.lo|
00006f90 61 64 75 6e 73 71 75 61 73 68 28 62 67 61 72 65 |adunsquash(bgare|
00006fa0 61 25 2c 33 33 2a 31 30 32 34 2c 22 73 70 66 69 |a%,33*1024,"spfi|
00006fb0 6c 65 73 2e 62 67 73 2e 62 67 22 2b c3 28 62 67 |les.bgs.bg"+.(bg|
00006fc0 25 28 61 61 25 29 29 29 0d 20 f8 0e e7 62 67 6e |%(aa%))). ...bgn|
00006fd0 6f 25 3e 30 20 8c 0d 21 02 37 20 e7 66 6c 69 70 |o%>0 ..!.7 .flip|
00006fe0 25 3a c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |%:.. "OS_SpriteO|
00006ff0 70 22 2c 26 31 32 46 2c 62 67 61 72 65 61 25 2c |p",&12F,bgarea%,|
00007000 22 62 67 22 2b c3 28 62 67 6e 6f 25 29 0d 21 0c |"bg"+.(bgno%).!.|
00007010 2c 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |, .."OS_SpriteOp|
00007020 22 2c 26 31 33 43 2c 61 6e 69 6d 61 72 65 61 25 |",&13C,animarea%|
00007030 2c 22 61 6e 69 6d 22 2c 30 0d 21 16 35 20 c8 99 |,"anim",0.!.5 ..|
00007040 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
00007050 32 32 2c 62 67 61 72 65 61 25 2c 22 62 67 22 2b |22,bgarea%,"bg"+|
00007060 c3 28 62 67 6e 6f 25 29 2c 30 2c 30 2c 30 0d 21 |.(bgno%),0,0,0.!|
00007070 20 27 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f | ' .."OS_SpriteO|
00007080 70 22 2c 26 31 33 43 2c 61 6e 69 6d 61 72 65 61 |p",&13C,animarea|
00007090 25 2c 30 2c 31 0d 21 2a 31 20 c8 99 22 4f 53 5f |%,0,1.!*1 .."OS_|
000070a0 53 70 72 69 74 65 4f 70 22 2c 26 31 33 43 2c 62 |SpriteOp",&13C,b|
000070b0 67 61 72 65 61 25 2c 22 62 67 22 2b c3 28 62 67 |garea%,"bg"+.(bg|
000070c0 6e 6f 25 29 2c 30 0d 21 34 32 20 c8 99 22 4f 53 |no%),0.!42 .."OS|
000070d0 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c |_SpriteOp",&122,|
000070e0 61 6e 69 6d 61 72 65 61 25 2c 22 61 6e 69 6d 22 |animarea%,"anim"|
000070f0 2c 30 2c 75 70 25 2c 30 0d 21 3e 6d 20 e7 65 63 |,0,up%,0.!>m .ec|
00007100 66 75 70 25 3e 30 3a ef 32 33 2c 31 32 2c 65 63 |fup%>0:.23,12,ec|
00007110 66 31 25 2c 65 63 66 32 25 2c 65 63 66 32 25 2c |f1%,ecf2%,ecf2%,|
00007120 65 63 66 31 25 2c 65 63 66 31 25 2c 65 63 66 32 |ecf1%,ecf1%,ecf2|
00007130 25 2c 65 63 66 32 25 2c 65 63 66 31 25 3a ef 31 |%,ecf2%,ecf1%:.1|
00007140 38 2c 31 36 2c 30 3a ef 32 35 2c 34 2c 30 3b 30 |8,16,0:.25,4,0;0|
00007150 3b 3a ef 32 35 2c 31 30 31 2c 38 31 30 3b 65 63 |;:.25,101,810;ec|
00007160 66 75 70 25 3b 0d 21 48 46 20 e7 6c 69 6e 65 25 |fup%;.!HF .line%|
00007170 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f |:.."Wimp_SetColo|
00007180 75 72 22 2c 37 3a ef 32 35 2c 34 2c 30 3b 65 63 |ur",7:.25,4,0;ec|
00007190 66 75 70 25 3b 3a ef 32 35 2c 31 30 31 2c 38 31 |fup%;:.25,101,81|
000071a0 30 3b 65 63 66 75 70 25 2b 32 3b 0d 21 52 25 20 |0;ecfup%+2;.!R% |
000071b0 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
000071c0 26 31 33 43 2c 62 67 61 72 65 61 25 2c 30 2c 31 |&13C,bgarea%,0,1|
000071d0 0d 21 5c 05 cd 0d 21 66 05 e1 0d 21 70 04 0d 21 |.!\...!f...!p..!|
000071e0 7a 1b dd f2 6d 61 6b 65 61 6e 69 6d 28 61 6d 25 |z...makeanim(am%|
000071f0 2c 61 61 25 2c 62 67 25 29 0d 21 84 0c e7 61 61 |,aa%,bg%).!...aa|
00007200 25 3d 2d 31 8c 0d 21 8e 21 20 f2 63 6f 70 79 73 |%=-1..!.! .copys|
00007210 70 28 22 6d 65 6e 22 2b c3 28 61 6d 25 29 2c 22 |p("men"+.(am%),"|
00007220 61 6e 69 6d 22 29 0d 21 98 05 cc 0d 21 a2 14 20 |anim").!....!.. |
00007230 e7 62 67 25 80 ac 74 65 78 74 6f 6e 25 20 8c 0d |.bg%..texton% ..|
00007240 21 ac 21 20 20 f2 63 6f 70 79 73 70 28 22 62 67 |!.! .copysp("bg|
00007250 22 2b c3 28 62 67 25 29 2c 22 61 6e 69 6d 22 29 |"+.(bg%),"anim")|
00007260 0d 21 b6 06 20 cc 0d 21 c0 12 20 20 f2 63 6c 5f |.!.. ..!.. .cl_|
00007270 61 6e 69 6d 28 31 35 29 0d 21 ca 0e 20 20 c8 8e |anim(15).!.. ..|
00007280 20 61 61 25 20 ca 0d 21 d4 24 20 20 20 c9 20 31 | aa% ..!.$ . 1|
00007290 30 2c 31 36 3a f2 63 6f 70 79 73 70 28 22 62 67 |0,16:.copysp("bg|
000072a0 34 22 2c 22 61 6e 69 6d 22 29 0d 21 de 6b 20 20 |4","anim").!.k |
000072b0 20 c9 20 31 38 3a e7 ac 74 65 78 74 6f 6e 25 20 | . 18:..texton% |
000072c0 8c 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |.:.."OS_SpriteOp|
000072d0 22 2c 26 31 33 43 2c 61 6e 69 6d 61 72 65 61 25 |",&13C,animarea%|
000072e0 2c 22 61 6e 69 6d 22 2c 30 3a f2 66 72 75 69 74 |,"anim",0:.fruit|
000072f0 62 67 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |bg:.."OS_SpriteO|
00007300 70 22 2c 26 31 33 43 2c 61 6e 69 6d 61 72 65 61 |p",&13C,animarea|
00007310 25 2c 30 2c 31 0d 21 e8 07 20 20 cb 0d 21 f2 06 |%,0,1.!.. ..!..|
00007320 20 cd 0d 21 fc 2c 20 c8 99 22 4f 53 5f 53 70 72 | ..!., .."OS_Spr|
00007330 69 74 65 4f 70 22 2c 26 31 33 43 2c 61 6e 69 6d |iteOp",&13C,anim|
00007340 61 72 65 61 25 2c 22 61 6e 69 6d 22 2c 30 0d 22 |area%,"anim",0."|
00007350 06 0d 20 c8 8e 20 61 61 25 20 ca 0d 22 10 14 20 |.. .. aa% ..".. |
00007360 20 c9 20 34 3a 20 f2 6d 61 6b 65 6c 65 61 66 0d | . 4: .makeleaf.|
00007370 22 1a 15 20 20 c9 20 35 3a 20 f2 6d 61 6b 65 70 |".. . 5: .makep|
00007380 68 6f 74 6f 0d 22 24 16 20 20 c9 20 36 3a 20 f2 |hoto."$. . 6: .|
00007390 6d 61 6b 65 6c 65 61 66 63 6c 0d 22 2e 26 20 20 |makeleafcl.".& |
000073a0 c9 20 32 30 3a 20 73 65 25 28 29 3d 30 3a f2 6d |. 20: se%()=0:.m|
000073b0 61 6b 65 64 69 73 70 28 30 2c 73 65 25 28 29 29 |akedisp(0,se%())|
000073c0 0d 22 38 1d 20 20 c9 20 32 31 3a 20 f2 6d 61 6b |."8. . 21: .mak|
000073d0 65 64 69 73 70 65 78 70 28 30 2c 30 29 0d 22 42 |edispexp(0,0)."B|
000073e0 25 20 20 c9 20 32 32 3a 20 f2 6d 61 6b 65 64 69 |% . 22: .makedi|
000073f0 73 70 77 69 6e 64 28 30 2c 30 2c 30 2c 2d 31 2c |spwind(0,0,0,-1,|
00007400 30 29 0d 22 4c 24 20 20 c9 20 32 33 3a 20 f2 6d |0)."L$ . 23: .m|
00007410 61 6b 65 64 69 73 70 61 6e 69 28 30 2c 2d 31 2c |akedispani(0,-1,|
00007420 30 2c 30 2c 30 29 0d 22 56 18 20 20 c9 20 32 34 |0,0,0)."V. . 24|
00007430 3a 20 f2 6d 61 6b 65 64 69 73 70 77 61 74 0d 22 |: .makedispwat."|
00007440 60 06 20 cb 0d 22 6a 27 20 c8 99 22 4f 53 5f 53 |`. .."j' .."OS_S|
00007450 70 72 69 74 65 4f 70 22 2c 26 31 33 43 2c 61 6e |priteOp",&13C,an|
00007460 69 6d 61 72 65 61 25 2c 30 2c 31 0d 22 74 05 cd |imarea%,0,1."t..|
00007470 0d 22 7e 05 e1 0d 22 88 04 0d 22 92 0e dd f2 6d |."~..."..."....m|
00007480 61 6b 65 6c 65 61 66 0d 22 9c 84 c8 99 22 4f 53 |akeleaf."...."OS|
00007490 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c |_SpriteOp",&122,|
000074a0 64 65 74 61 72 65 61 25 2c 22 68 77 77 22 2c 31 |detarea%,"hww",1|
000074b0 36 2c 30 2c 38 3a c8 99 22 4f 53 5f 53 70 72 69 |6,0,8:.."OS_Spri|
000074c0 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 |teOp",&122,detar|
000074d0 65 61 25 2c 22 73 73 22 2c 32 37 36 2c 30 2c 38 |ea%,"ss",276,0,8|
000074e0 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"|
000074f0 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 |,&122,detarea%,"|
00007500 73 77 22 2c 35 39 30 2c 30 2c 38 0d 22 a6 05 e1 |sw",590,0,8."...|
00007510 0d 22 b0 04 0d 22 ba 0f dd f2 6d 61 6b 65 70 68 |."..."....makeph|
00007520 6f 74 6f 0d 22 c4 2e c8 99 22 4f 53 5f 53 70 72 |oto."...."OS_Spr|
00007530 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 |iteOp",&122,deta|
00007540 72 65 61 25 2c 22 70 68 62 67 22 2c 30 2c 30 2c |rea%,"phbg",0,0,|
00007550 38 0d 22 ce 5e c8 99 22 4f 53 5f 53 70 72 69 74 |8.".^.."OS_Sprit|
00007560 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 |eOp",&122,detare|
00007570 61 25 2c 22 61 72 33 30 22 2c 30 2c 38 38 2c 38 |a%,"ar30",0,88,8|
00007580 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"|
00007590 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 |,&122,detarea%,"|
000075a0 61 72 32 30 22 2c 31 38 30 2c 33 31 36 2c 38 0d |ar20",180,316,8.|
000075b0 22 d8 39 e7 73 69 6d 70 25 3d 31 3a c8 99 22 4f |".9.simp%=1:.."O|
000075c0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 |S_SpriteOp",&122|
000075d0 2c 64 65 74 61 72 65 61 25 2c 22 65 71 75 6e 22 |,detarea%,"equn"|
000075e0 2c 30 2c 34 39 32 2c 38 0d 22 e2 05 e1 0d 22 ec |,0,492,8."....".|
000075f0 04 0d 22 f6 10 dd f2 6d 61 6b 65 6c 65 61 66 63 |.."....makeleafc|
00007600 6c 0d 23 00 30 c8 99 22 4f 53 5f 53 70 72 69 74 |l.#.0.."OS_Sprit|
00007610 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 |eOp",&122,detare|
00007620 61 25 2c 22 6c 65 63 6c 22 2c 35 38 2c 35 32 2c |a%,"lecl",58,52,|
00007630 38 0d 23 0a 05 e1 0d 23 14 04 0d 23 1e 04 0d 23 |8.#....#...#...#|
00007640 28 18 dd f2 6d 61 6b 65 64 69 73 70 28 73 25 2c |(...makedisp(s%,|
00007650 73 65 25 28 29 29 0d 23 32 0b ea 20 6a 25 2c 6b |se%()).#2.. j%,k|
00007660 25 0d 23 3c c2 c8 99 22 4f 53 5f 53 70 72 69 74 |%.#<..."OS_Sprit|
00007670 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 |eOp",&122,detare|
00007680 61 25 2c 22 74 72 65 65 22 2c 33 33 36 2d 28 38 |a%,"tree",336-(8|
00007690 2a 73 25 29 2c 35 33 36 2c 38 3a c8 99 22 4f 53 |*s%),536,8:.."OS|
000076a0 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c |_SpriteOp",&122,|
000076b0 64 65 74 61 72 65 61 25 2c 22 74 72 65 65 22 2c |detarea%,"tree",|
000076c0 34 37 30 2b 28 31 36 2a 73 25 29 2c 34 34 38 2c |470+(16*s%),448,|
000076d0 38 3a f2 66 6c 69 70 28 32 2c 22 74 72 65 65 22 |8:.flip(2,"tree"|
000076e0 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |):.."OS_SpriteOp|
000076f0 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c |",&122,detarea%,|
00007700 22 74 72 65 65 22 2c 2d 31 36 2a 73 25 2c 34 34 |"tree",-16*s%,44|
00007710 38 2c 38 3a f2 66 6c 69 70 28 32 2c 22 74 72 65 |8,8:.flip(2,"tre|
00007720 65 22 29 0d 23 46 4c e7 74 65 78 74 6f 6e 25 3a |e").#FL.texton%:|
00007730 ef 32 33 2c 31 32 2c 31 2c 31 33 2c 31 33 2c 31 |.23,12,1,13,13,1|
00007740 2c 31 2c 31 33 2c 31 33 2c 31 3a ef 31 38 2c 31 |,1,13,13,1:.18,1|
00007750 36 2c 30 3a ef 32 35 2c 34 2c 30 3b 30 3b 3a ef |6,0:.25,4,0;0;:.|
00007760 32 35 2c 31 30 31 2c 38 31 30 3b 31 36 30 3b 0d |25,101,810;160;.|
00007770 23 50 0b e3 6a 25 3d 30 b8 39 0d 23 5a 0c 20 e7 |#P..j%=0.9.#Z. .|
00007780 6a 25 3e 3d 36 8c 0d 23 64 5b 20 20 e7 73 65 25 |j%>=6..#d[ .se%|
00007790 28 6a 25 2d 36 29 3d 30 3a c8 99 22 4f 53 5f 53 |(j%-6)=0:.."OS_S|
000077a0 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
000077b0 74 61 72 65 61 25 2c 22 73 65 65 64 22 2c 64 69 |tarea%,"seed",di|
000077c0 73 70 31 25 28 6a 25 2c 30 29 2d 28 31 36 2a 73 |sp1%(j%,0)-(16*s|
000077d0 25 29 2c 64 69 73 70 31 25 28 6a 25 2c 31 29 2c |%),disp1%(j%,1),|
000077e0 38 0d 23 6e 59 20 20 e7 73 65 25 28 6a 25 2d 36 |8.#nY .se%(j%-6|
000077f0 29 3d 31 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |)=1:.."OS_Sprite|
00007800 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 |Op",&122,detarea|
00007810 25 2c 22 73 65 65 64 22 2c 64 69 73 70 31 25 28 |%,"seed",disp1%(|
00007820 6a 25 2c 30 29 2d 31 36 2c 64 69 73 70 31 25 28 |j%,0)-16,disp1%(|
00007830 6a 25 2c 31 29 2d 35 32 2c 38 0d 23 78 5a 20 20 |j%,1)-52,8.#xZ |
00007840 e7 73 65 25 28 6a 25 2d 36 29 3d 32 3a c8 99 22 |.se%(j%-6)=2:.."|
00007850 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
00007860 32 2c 64 65 74 61 72 65 61 25 2c 22 73 65 65 64 |2,detarea%,"seed|
00007870 22 2c 64 69 73 70 31 25 28 6a 25 2c 30 29 2d 31 |",disp1%(j%,0)-1|
00007880 36 2c 64 69 73 70 31 25 28 6a 25 2c 31 29 2d 31 |6,disp1%(j%,1)-1|
00007890 35 36 2c 38 0d 23 82 5a 20 20 e7 73 65 25 28 6a |56,8.#.Z .se%(j|
000078a0 25 2d 36 29 3d 33 3a c8 99 22 4f 53 5f 53 70 72 |%-6)=3:.."OS_Spr|
000078b0 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 |iteOp",&122,deta|
000078c0 72 65 61 25 2c 22 73 65 65 64 22 2c 64 69 73 70 |rea%,"seed",disp|
000078d0 31 25 28 6a 25 2c 30 29 2d 31 36 2c 64 69 73 70 |1%(j%,0)-16,disp|
000078e0 31 25 28 6a 25 2c 31 29 2d 33 31 32 2c 38 0d 23 |1%(j%,1)-312,8.#|
000078f0 8c 63 20 20 e7 73 65 25 28 6a 25 2d 36 29 3e 3d |.c .se%(j%-6)>=|
00007900 34 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |4:.."OS_SpriteOp|
00007910 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c |",&122,detarea%,|
00007920 22 73 65 65 64 32 22 2b c3 28 6a 25 2d 35 29 2c |"seed2"+.(j%-5),|
00007930 64 69 73 70 31 25 28 6a 25 2c 30 29 2d 31 36 2d |disp1%(j%,0)-16-|
00007940 32 30 2c 73 6c 61 6e 64 25 28 6a 25 2d 36 29 2c |20,sland%(j%-6),|
00007950 38 0d 23 96 06 20 cc 0d 23 a0 4e 20 20 c8 99 22 |8.#.. ..#.N .."|
00007960 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
00007970 32 2c 64 65 74 61 72 65 61 25 2c 22 73 65 65 64 |2,detarea%,"seed|
00007980 22 2c 64 69 73 70 31 25 28 6a 25 2c 30 29 2d 28 |",disp1%(j%,0)-(|
00007990 31 36 2a 73 25 29 2c 64 69 73 70 31 25 28 6a 25 |16*s%),disp1%(j%|
000079a0 2c 31 29 2c 38 0d 23 aa 06 20 cd 0d 23 b4 05 ed |,1),8.#.. ..#...|
000079b0 0d 23 be 24 e3 6a 25 3d 31 b8 34 3a f2 66 6c 69 |.#.$.j%=1.4:.fli|
000079c0 70 28 32 2c 22 73 65 65 64 32 22 2b c3 28 6a 25 |p(2,"seed2"+.(j%|
000079d0 29 29 3a ed 0d 23 c8 0b e3 6a 25 3d 30 b8 37 0d |)):..#...j%=0.7.|
000079e0 23 d2 0c 20 e7 6a 25 3e 3d 35 8c 0d 23 dc 5b 20 |#.. .j%>=5..#.[ |
000079f0 20 e7 73 65 25 28 6a 25 2d 31 29 3d 30 3a c8 99 | .se%(j%-1)=0:..|
00007a00 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
00007a10 32 32 2c 64 65 74 61 72 65 61 25 2c 22 73 65 65 |22,detarea%,"see|
00007a20 64 22 2c 64 69 73 70 32 25 28 6a 25 2c 30 29 2b |d",disp2%(j%,0)+|
00007a30 28 31 36 2a 73 25 29 2c 64 69 73 70 32 25 28 6a |(16*s%),disp2%(j|
00007a40 25 2c 31 29 2c 38 0d 23 e6 59 20 20 e7 73 65 25 |%,1),8.#.Y .se%|
00007a50 28 6a 25 2d 31 29 3d 31 3a c8 99 22 4f 53 5f 53 |(j%-1)=1:.."OS_S|
00007a60 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
00007a70 74 61 72 65 61 25 2c 22 73 65 65 64 22 2c 64 69 |tarea%,"seed",di|
00007a80 73 70 32 25 28 6a 25 2c 30 29 2b 31 36 2c 64 69 |sp2%(j%,0)+16,di|
00007a90 73 70 32 25 28 6a 25 2c 31 29 2d 35 32 2c 38 0d |sp2%(j%,1)-52,8.|
00007aa0 23 f0 5a 20 20 e7 73 65 25 28 6a 25 2d 31 29 3d |#.Z .se%(j%-1)=|
00007ab0 32 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |2:.."OS_SpriteOp|
00007ac0 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c |",&122,detarea%,|
00007ad0 22 73 65 65 64 22 2c 64 69 73 70 32 25 28 6a 25 |"seed",disp2%(j%|
00007ae0 2c 30 29 2b 31 36 2c 64 69 73 70 32 25 28 6a 25 |,0)+16,disp2%(j%|
00007af0 2c 31 29 2d 31 35 36 2c 38 0d 23 fa 5a 20 20 e7 |,1)-156,8.#.Z .|
00007b00 73 65 25 28 6a 25 2d 31 29 3d 33 3a c8 99 22 4f |se%(j%-1)=3:.."O|
00007b10 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 |S_SpriteOp",&122|
00007b20 2c 64 65 74 61 72 65 61 25 2c 22 73 65 65 64 22 |,detarea%,"seed"|
00007b30 2c 64 69 73 70 32 25 28 6a 25 2c 30 29 2b 31 36 |,disp2%(j%,0)+16|
00007b40 2c 64 69 73 70 32 25 28 6a 25 2c 31 29 2d 33 31 |,disp2%(j%,1)-31|
00007b50 32 2c 38 0d 24 04 63 20 20 e7 73 65 25 28 6a 25 |2,8.$.c .se%(j%|
00007b60 2d 31 29 3e 3d 34 3a c8 99 22 4f 53 5f 53 70 72 |-1)>=4:.."OS_Spr|
00007b70 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 |iteOp",&122,deta|
00007b80 72 65 61 25 2c 22 73 65 65 64 32 22 2b c3 28 6a |rea%,"seed2"+.(j|
00007b90 25 2d 34 29 2c 64 69 73 70 32 25 28 6a 25 2c 30 |%-4),disp2%(j%,0|
00007ba0 29 2b 31 36 2d 32 30 2c 73 6c 61 6e 64 25 28 6a |)+16-20,sland%(j|
00007bb0 25 2d 31 29 2c 38 0d 24 0e 06 20 cc 0d 24 18 4e |%-1),8.$.. ..$.N|
00007bc0 20 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 | .."OS_SpriteOp|
00007bd0 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c |",&122,detarea%,|
00007be0 22 73 65 65 64 22 2c 64 69 73 70 32 25 28 6a 25 |"seed",disp2%(j%|
00007bf0 2c 30 29 2b 28 31 36 2a 73 25 29 2c 64 69 73 70 |,0)+(16*s%),disp|
00007c00 32 25 28 6a 25 2c 31 29 2c 38 0d 24 22 06 20 cd |2%(j%,1),8.$". .|
00007c10 0d 24 2c 05 ed 0d 24 36 0b e3 6a 25 3d 30 b8 32 |.$,...$6..j%=0.2|
00007c20 0d 24 40 0b 20 e7 6a 25 3d 32 8c 0d 24 4a 57 20 |.$@. .j%=2..$JW |
00007c30 20 e7 73 65 25 28 37 29 3d 30 3a c8 99 22 4f 53 | .se%(7)=0:.."OS|
00007c40 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c |_SpriteOp",&122,|
00007c50 64 65 74 61 72 65 61 25 2c 22 73 65 65 64 22 2c |detarea%,"seed",|
00007c60 64 69 73 70 33 25 28 6a 25 2c 30 29 2d 28 38 2a |disp3%(j%,0)-(8*|
00007c70 73 25 29 2c 64 69 73 70 33 25 28 6a 25 2c 31 29 |s%),disp3%(j%,1)|
00007c80 2c 38 0d 24 54 55 20 20 e7 73 65 25 28 37 29 3d |,8.$TU .se%(7)=|
00007c90 31 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |1:.."OS_SpriteOp|
00007ca0 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c |",&122,detarea%,|
00007cb0 22 73 65 65 64 22 2c 64 69 73 70 33 25 28 6a 25 |"seed",disp3%(j%|
00007cc0 2c 30 29 2d 38 2c 64 69 73 70 33 25 28 6a 25 2c |,0)-8,disp3%(j%,|
00007cd0 31 29 2d 35 32 2c 38 0d 24 5e 56 20 20 e7 73 65 |1)-52,8.$^V .se|
00007ce0 25 28 37 29 3d 32 3a c8 99 22 4f 53 5f 53 70 72 |%(7)=2:.."OS_Spr|
00007cf0 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 |iteOp",&122,deta|
00007d00 72 65 61 25 2c 22 73 65 65 64 22 2c 64 69 73 70 |rea%,"seed",disp|
00007d10 33 25 28 6a 25 2c 30 29 2d 38 2c 64 69 73 70 33 |3%(j%,0)-8,disp3|
00007d20 25 28 6a 25 2c 31 29 2d 31 35 36 2c 38 0d 24 68 |%(j%,1)-156,8.$h|
00007d30 56 20 20 e7 73 65 25 28 37 29 3d 33 3a c8 99 22 |V .se%(7)=3:.."|
00007d40 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
00007d50 32 2c 64 65 74 61 72 65 61 25 2c 22 73 65 65 64 |2,detarea%,"seed|
00007d60 22 2c 64 69 73 70 33 25 28 6a 25 2c 30 29 2d 38 |",disp3%(j%,0)-8|
00007d70 2c 64 69 73 70 33 25 28 6a 25 2c 31 29 2d 33 31 |,disp3%(j%,1)-31|
00007d80 32 2c 38 0d 24 72 55 20 20 e7 73 65 25 28 37 29 |2,8.$rU .se%(7)|
00007d90 3e 3d 34 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |>=4:.."OS_Sprite|
00007da0 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 |Op",&122,detarea|
00007db0 25 2c 22 73 65 65 64 32 34 22 2c 64 69 73 70 33 |%,"seed24",disp3|
00007dc0 25 28 6a 25 2c 30 29 2d 38 2d 32 30 2c 73 6c 61 |%(j%,0)-8-20,sla|
00007dd0 6e 64 25 28 37 29 2c 38 0d 24 7c 06 20 cc 0d 24 |nd%(7),8.$|. ..$|
00007de0 86 4d 20 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 |.M .."OS_Sprite|
00007df0 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 |Op",&122,detarea|
00007e00 25 2c 22 73 65 65 64 22 2c 64 69 73 70 33 25 28 |%,"seed",disp3%(|
00007e10 6a 25 2c 30 29 2d 28 38 2a 73 25 29 2c 64 69 73 |j%,0)-(8*s%),dis|
00007e20 70 33 25 28 6a 25 2c 31 29 2c 38 0d 24 90 06 20 |p3%(j%,1),8.$.. |
00007e30 cd 0d 24 9a 05 ed 0d 24 a4 24 e3 6a 25 3d 31 b8 |..$....$.$.j%=1.|
00007e40 34 3a f2 66 6c 69 70 28 32 2c 22 73 65 65 64 32 |4:.flip(2,"seed2|
00007e50 22 2b c3 28 6a 25 29 29 3a ed 0d 24 ae 63 c8 99 |"+.(j%)):..$.c..|
00007e60 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
00007e70 32 32 2c 64 65 74 61 72 65 61 25 2c 22 73 65 65 |22,detarea%,"see|
00007e80 64 32 31 22 2c 35 32 30 2c 32 34 2c 38 3a c8 99 |d21",520,24,8:..|
00007e90 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
00007ea0 32 32 2c 64 65 74 61 72 65 61 25 2c 22 73 65 65 |22,detarea%,"see|
00007eb0 64 32 32 22 2c 33 35 32 2c 34 34 2c 38 0d 24 b8 |d22",352,44,8.$.|
00007ec0 05 e1 0d 24 c2 04 0d 24 cc 1b dd f2 6d 61 6b 65 |...$...$....make|
00007ed0 64 69 73 70 65 78 70 28 63 62 25 2c 6c 75 70 25 |dispexp(cb%,lup%|
00007ee0 29 0d 24 d6 58 c8 99 22 4f 53 5f 53 70 72 69 74 |).$.X.."OS_Sprit|
00007ef0 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 |eOp",&122,detare|
00007f00 61 25 2c 22 63 62 22 2c 34 2c 30 2c 38 3a c8 99 |a%,"cb",4,0,8:..|
00007f10 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
00007f20 32 32 2c 64 65 74 61 72 65 61 25 2c 22 6c 75 70 |22,detarea%,"lup|
00007f30 22 2c 34 34 36 2c 30 2c 38 0d 24 e0 81 c8 99 22 |",446,0,8.$...."|
00007f40 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
00007f50 32 2c 64 65 74 61 72 65 61 25 2c 22 63 62 65 78 |2,detarea%,"cbex|
00007f60 22 2b c3 28 63 62 25 29 2c 63 62 65 78 25 28 63 |"+.(cb%),cbex%(c|
00007f70 62 25 29 2c 31 34 30 2c 38 3a c8 99 22 4f 53 5f |b%),140,8:.."OS_|
00007f80 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 |SpriteOp",&122,d|
00007f90 65 74 61 72 65 61 25 2c 22 6c 75 70 65 78 22 2b |etarea%,"lupex"+|
00007fa0 c3 28 6c 75 70 25 29 2c 6c 75 70 65 78 25 28 6c |.(lup%),lupex%(l|
00007fb0 75 70 25 29 2c 31 36 38 2c 38 0d 24 ea 05 e1 0d |up%),168,8.$....|
00007fc0 24 f4 04 0d 24 fe 2b dd f2 6d 61 6b 65 64 69 73 |$...$.+..makedis|
00007fd0 70 77 69 6e 64 28 66 72 75 25 2c 64 61 6e 25 2c |pwind(fru%,dan%,|
00007fe0 64 61 78 25 2c 64 73 25 2c 64 73 32 25 29 0d 25 |dax%,ds%,ds2%).%|
00007ff0 08 0e e7 74 65 78 74 6f 6e 25 20 8c 0d 25 12 49 |...texton% ..%.I|
00008000 20 ef 32 33 2c 31 32 2c 31 31 2c 31 30 2c 31 30 | .23,12,11,10,10|
00008010 2c 31 31 2c 31 31 2c 31 30 2c 31 30 2c 31 31 3a |,11,11,10,10,11:|
00008020 ef 31 38 2c 31 36 2c 30 3a ef 32 35 2c 34 2c 30 |.18,16,0:.25,4,0|
00008030 3b 38 30 3b 3a ef 32 35 2c 31 30 31 2c 38 31 30 |;80;:.25,101,810|
00008040 3b 32 30 30 3b 0d 25 1c 47 20 ef 32 33 2c 31 32 |;200;.%.G .23,12|
00008050 2c 31 31 2c 31 33 2c 31 33 2c 31 31 2c 31 31 2c |,11,13,13,11,11,|
00008060 31 33 2c 31 33 2c 31 31 3a ef 31 38 2c 31 36 2c |13,13,11:.18,16,|
00008070 30 3a ef 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 |0:.25,4,0;0;:.25|
00008080 2c 31 30 31 2c 38 31 30 3b 38 30 3b 0d 25 26 28 |,101,810;80;.%&(|
00008090 20 ef 31 38 2c 30 2c 37 3a ef 32 35 2c 34 2c 30 | .18,0,7:.25,4,0|
000080a0 3b 38 30 3b 3a ef 32 35 2c 31 30 31 2c 38 31 30 |;80;:.25,101,810|
000080b0 3b 38 30 3b 0d 25 30 05 cd 0d 25 3a 89 c8 99 22 |;80;.%0...%:..."|
000080c0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
000080d0 32 2c 64 65 74 61 72 65 61 25 2c 22 6c 65 61 66 |2,detarea%,"leaf|
000080e0 22 2c 30 2c 33 34 34 2c 38 3a c8 99 22 4f 53 5f |",0,344,8:.."OS_|
000080f0 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 |SpriteOp",&122,d|
00008100 65 74 61 72 65 61 25 2c 22 66 72 75 22 2c 30 2c |etarea%,"fru",0,|
00008110 34 36 38 2c 38 3a c8 99 22 4f 53 5f 53 70 72 69 |468,8:.."OS_Spri|
00008120 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 |teOp",&122,detar|
00008130 65 61 25 2c 22 64 61 6e 22 2c 34 36 34 2c 38 30 |ea%,"dan",464,80|
00008140 2c 38 0d 25 44 0d e7 64 61 6e 25 3e 3d 30 8c 0d |,8.%D..dan%>=0..|
00008150 25 4e 7d 20 e7 64 61 6e 25 3c 3d 36 3a c8 99 22 |%N} .dan%<=6:.."|
00008160 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
00008170 32 2c 64 65 74 61 72 65 61 25 2c 22 64 61 6e 22 |2,detarea%,"dan"|
00008180 2b c3 28 64 61 6e 25 29 2c 64 61 6e 64 25 28 64 |+.(dan%),dand%(d|
00008190 61 6e 25 29 2c 32 39 32 2c 38 3a 8b 3a c8 99 22 |an%),292,8:.:.."|
000081a0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
000081b0 32 2c 64 65 74 61 72 65 61 25 2c 22 64 61 6e 36 |2,detarea%,"dan6|
000081c0 22 2c 64 61 78 25 2c 32 39 32 2c 38 0d 25 58 05 |",dax%,292,8.%X.|
000081d0 cd 0d 25 62 0d e7 66 72 75 25 3e 3d 30 8c 0d 25 |..%b..fru%>=0..%|
000081e0 6c a9 20 e7 66 72 75 25 3c 3d 34 3a c8 99 22 4f |l. .fru%<=4:.."O|
000081f0 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 |S_SpriteOp",&122|
00008200 2c 64 65 74 61 72 65 61 25 2c 22 66 72 75 22 2b |,detarea%,"fru"+|
00008210 c3 28 66 72 75 25 29 2c 73 79 63 25 28 66 72 75 |.(fru%),syc%(fru|
00008220 25 2c 30 29 2c 73 79 63 25 28 66 72 75 25 2c 31 |%,0),syc%(fru%,1|
00008230 29 2c 38 3a 8b 3a c8 99 22 4f 53 5f 53 70 72 69 |),8:.:.."OS_Spri|
00008240 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 |teOp",&122,detar|
00008250 65 61 25 2c 22 66 72 75 22 2b c3 28 28 28 66 72 |ea%,"fru"+.(((fr|
00008260 75 25 2d 35 29 83 34 29 2b 31 29 2c 73 79 63 25 |u%-5).4)+1),syc%|
00008270 28 66 72 75 25 2c 30 29 2c 73 79 63 25 28 66 72 |(fru%,0),syc%(fr|
00008280 75 25 2c 31 29 2c 38 0d 25 76 05 cd 0d 25 80 0c |u%,1),8.%v...%..|
00008290 e7 64 73 25 3e 3d 30 8c 0d 25 8a 39 20 53 43 41 |.ds%>=0..%.9 SCA|
000082a0 4c 45 25 21 30 3d 64 73 25 2b 31 3a 53 43 41 4c |LE%!0=ds%+1:SCAL|
000082b0 45 25 21 34 3d 64 73 25 2b 31 3a 53 43 41 4c 45 |E%!4=ds%+1:SCALE|
000082c0 25 21 38 3d 38 3a 53 43 41 4c 45 25 21 31 32 3d |%!8=8:SCALE%!12=|
000082d0 38 0d 25 94 4c 20 c8 99 22 4f 53 5f 53 70 72 69 |8.%.L .."OS_Spri|
000082e0 74 65 4f 70 22 2c 26 31 33 34 2c 64 65 74 61 72 |teOp",&134,detar|
000082f0 65 61 25 2c 22 64 73 22 2c 64 73 65 25 28 64 73 |ea%,"ds",dse%(ds|
00008300 25 2c 30 29 2c 64 73 65 25 28 64 73 25 2c 31 29 |%,0),dse%(ds%,1)|
00008310 2c 26 30 38 2c 53 43 41 4c 45 25 2c 30 0d 25 9e |,&08,SCALE%,0.%.|
00008320 31 20 53 43 41 4c 45 25 21 30 3d 31 3a 53 43 41 |1 SCALE%!0=1:SCA|
00008330 4c 45 25 21 34 3d 31 3a 53 43 41 4c 45 25 21 38 |LE%!4=1:SCALE%!8|
00008340 3d 31 3a 53 43 41 4c 45 25 21 31 32 3d 31 0d 25 |=1:SCALE%!12=1.%|
00008350 a8 05 cd 0d 25 b2 35 e7 64 73 32 25 3a c8 99 22 |....%.5.ds2%:.."|
00008360 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
00008370 32 2c 64 65 74 61 72 65 61 25 2c 22 64 73 32 22 |2,detarea%,"ds2"|
00008380 2c 33 32 2c 38 30 2c 38 0d 25 bc 05 e1 0d 25 c6 |,32,80,8.%....%.|
00008390 04 0d 25 d0 2a dd f2 6d 61 6b 65 64 69 73 70 61 |..%.*..makedispa|
000083a0 6e 69 28 64 6f 76 25 2c 6d 6f 75 25 2c 6d 6f 78 |ni(dov%,mou%,mox|
000083b0 25 2c 6d 6c 25 2c 62 75 72 25 29 0d 25 da 88 c8 |%,ml%,bur%).%...|
000083c0 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&|
000083d0 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 62 73 |122,detarea%,"bs|
000083e0 77 22 2c 30 2c 30 2c 38 3a c8 99 22 4f 53 5f 53 |w",0,0,8:.."OS_S|
000083f0 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
00008400 74 61 72 65 61 25 2c 22 62 75 72 64 22 2c 34 35 |tarea%,"burd",45|
00008410 32 2c 30 2c 38 3a c8 99 22 4f 53 5f 53 70 72 69 |2,0,8:.."OS_Spri|
00008420 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 |teOp",&122,detar|
00008430 65 61 25 2c 22 62 65 72 72 79 22 2c 30 2c 35 34 |ea%,"berry",0,54|
00008440 34 2c 38 0d 25 e4 0e e7 6d 6f 75 25 3e 3d 30 20 |4,8.%...mou%>=0 |
00008450 8c 0d 25 ee 3b 20 c8 99 22 4f 53 5f 53 70 72 69 |..%.; .."OS_Spri|
00008460 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 |teOp",&122,detar|
00008470 65 61 25 2c 22 6d 72 75 6e 22 2b c3 28 6d 6f 75 |ea%,"mrun"+.(mou|
00008480 25 29 2c 6d 6f 78 25 2c 31 32 2c 38 0d 25 f8 4c |%),mox%,12,8.%.L|
00008490 20 e7 62 75 72 25 3d 31 3a c8 99 22 4f 53 5f 53 | .bur%=1:.."OS_S|
000084a0 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
000084b0 74 61 72 65 61 25 2c 22 62 75 72 22 2c 6d 6f 78 |tarea%,"bur",mox|
000084c0 25 2b 31 35 36 2b 28 31 34 2a 28 6d 6f 75 25 83 |%+156+(14*(mou%.|
000084d0 32 29 29 2c 38 38 2c 38 0d 26 02 38 20 e7 62 75 |2)),88,8.&.8 .bu|
000084e0 72 25 3d 32 3a c8 99 22 4f 53 5f 53 70 72 69 74 |r%=2:.."OS_Sprit|
000084f0 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 |eOp",&122,detare|
00008500 61 25 2c 22 62 75 72 22 2c 32 31 34 2c 34 2c 38 |a%,"bur",214,4,8|
00008510 0d 26 0c 5a 20 e7 6d 6f 75 25 3d 32 3a c8 99 22 |.&.Z .mou%=2:.."|
00008520 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
00008530 32 2c 64 65 74 61 72 65 61 25 2c 22 6d 6c 22 2b |2,detarea%,"ml"+|
00008540 c3 28 6d 6c 25 29 2c 6d 6f 78 25 2b 6d 6c 78 79 |.(ml%),mox%+mlxy|
00008550 25 28 6d 6c 25 2c 30 29 2c 31 32 2b 6d 6c 78 79 |%(ml%,0),12+mlxy|
00008560 25 28 6d 6c 25 2c 31 29 2c 38 0d 26 16 05 cd 0d |%(ml%,1),8.&....|
00008570 26 20 5f c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |& _.."OS_SpriteO|
00008580 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 |p",&122,detarea%|
00008590 2c 22 62 73 77 6c 22 2c 33 32 38 2c 31 32 2c 38 |,"bswl",328,12,8|
000085a0 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"|
000085b0 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 |,&122,detarea%,"|
000085c0 62 75 72 64 6c 22 2c 36 36 34 2c 30 2c 38 0d 26 |burdl",664,0,8.&|
000085d0 2a 50 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |*P.."OS_SpriteOp|
000085e0 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c |",&122,detarea%,|
000085f0 22 64 6f 76 22 2b c3 28 64 6f 25 28 64 6f 76 25 |"dov"+.(do%(dov%|
00008600 2c 30 29 29 2c 64 6f 25 28 64 6f 76 25 2c 31 29 |,0)),do%(dov%,1)|
00008610 2c 64 6f 25 28 64 6f 76 25 2c 32 29 2c 38 0d 26 |,do%(dov%,2),8.&|
00008620 34 05 e1 0d 26 3e 04 0d 26 48 11 dd f2 6d 61 6b |4...&>..&H...mak|
00008630 65 64 69 73 70 77 61 74 0d 26 52 43 ef 32 33 2c |edispwat.&RC.23,|
00008640 31 32 2c 31 35 2c 30 2c 30 2c 31 35 2c 31 35 2c |12,15,0,0,15,15,|
00008650 30 2c 30 2c 31 35 3a ef 31 38 2c 31 36 2c 30 3a |0,0,15:.18,16,0:|
00008660 ef 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 |.25,4,0;0;:.25,1|
00008670 30 31 2c 38 31 30 3b 36 34 34 3b 0d 26 5c 8a c8 |01,810;644;.&\..|
00008680 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&|
00008690 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 6c 61 |122,detarea%,"la|
000086a0 6e 64 22 2c 30 2c 30 2c 38 3a c8 99 22 4f 53 5f |nd",0,0,8:.."OS_|
000086b0 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 |SpriteOp",&122,d|
000086c0 65 74 61 72 65 61 25 2c 22 70 61 6c 6d 22 2c 34 |etarea%,"palm",4|
000086d0 30 2c 36 38 2c 38 3a c8 99 22 4f 53 5f 53 70 72 |0,68,8:.."OS_Spr|
000086e0 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 |iteOp",&122,deta|
000086f0 72 65 61 25 2c 22 63 6f 63 30 22 2c 32 36 36 2c |rea%,"coc0",266,|
00008700 33 39 32 2c 38 0d 26 66 05 e1 0d 26 70 04 0d 26 |392,8.&f...&p..&|
00008710 7a 04 0d 26 84 1f dd f2 63 68 65 63 6b 61 6e 69 |z..&....checkani|
00008720 6d 74 65 78 74 28 6e 6f 6f 66 25 2c 6c 69 6e 24 |mtext(noof%,lin$|
00008730 29 0d 26 8e 28 ea 20 6a 25 2c 6b 25 2c 73 74 6f |).&.(. j%,k%,sto|
00008740 70 73 25 28 29 3a de 20 73 74 6f 70 73 25 28 6d |ps%():. stops%(m|
00008750 61 78 73 74 6f 70 73 25 29 0d 26 98 47 73 74 6f |axstops%).&.Gsto|
00008760 70 73 25 28 30 29 3d 2d 31 3a e3 6a 25 3d 31 b8 |ps%(0)=-1:.j%=1.|
00008770 6e 6f 6f 66 25 3a 73 74 6f 70 73 25 28 6a 25 29 |noof%:stops%(j%)|
00008780 3d bb 28 6c 69 6e 24 29 3a 6c 69 6e 24 3d c2 6c |=.(lin$):lin$=.l|
00008790 69 6e 24 2c a9 28 6c 69 6e 24 29 2d 34 29 3a ed |in$,.(lin$)-4):.|
000087a0 0d 26 a2 10 e7 74 65 78 74 6e 65 77 6f 6e 25 8c |.&...textnewon%.|
000087b0 0d 26 ac 1f 20 f2 70 75 74 69 63 6e 73 74 72 69 |.&.. .puticnstri|
000087c0 6e 67 28 61 6e 69 6d 77 25 2c 39 2c 22 22 29 0d |ng(animw%,9,"").|
000087d0 26 b6 10 20 e3 6a 25 3d 31 b8 6e 6f 6f 66 25 0d |&.. .j%=1.noof%.|
000087e0 26 c0 60 20 20 e7 28 73 75 62 25 3e 3d 73 74 6f |&.` .(sub%>=sto|
000087f0 70 73 25 28 6a 25 2d 31 29 2b 31 29 80 28 73 75 |ps%(j%-1)+1).(su|
00008800 62 25 3c 3d 73 74 6f 70 73 25 28 6a 25 29 29 3a |b%<=stops%(j%)):|
00008810 f2 70 75 74 69 63 6e 73 74 72 69 6e 67 28 61 6e |.puticnstring(an|
00008820 69 6d 77 25 2c 31 30 2c 61 6e 69 6d 77 6f 72 64 |imw%,10,animword|
00008830 73 24 28 73 69 6d 70 25 2c 6a 25 2d 31 29 29 0d |s$(simp%,j%-1)).|
00008840 26 ca 06 20 ed 0d 26 d4 05 cd 0d 26 de 10 74 65 |&.. ..&....&..te|
00008850 78 74 6e 65 77 6f 6e 25 3d 30 0d 26 e8 0f e3 6a |xtnewon%=0.&...j|
00008860 25 3d 31 b8 6e 6f 6f 66 25 0d 26 f2 66 20 e7 73 |%=1.noof%.&.f .s|
00008870 75 62 25 3d 73 74 6f 70 73 25 28 6a 25 2d 31 29 |ub%=stops%(j%-1)|
00008880 2b 31 3a f2 70 75 74 69 63 6e 73 74 72 69 6e 67 |+1:.puticnstring|
00008890 28 61 6e 69 6d 77 25 2c 31 30 2c 61 6e 69 6d 77 |(animw%,10,animw|
000088a0 6f 72 64 73 24 28 73 69 6d 70 25 2c 6a 25 2d 31 |ords$(simp%,j%-1|
000088b0 29 29 3a f2 70 75 74 69 63 6e 73 74 72 69 6e 67 |)):.puticnstring|
000088c0 28 61 6e 69 6d 77 25 2c 39 2c 22 22 29 3a e1 0d |(animw%,9,""):..|
000088d0 26 fc 05 ed 0d 27 06 05 e1 0d 27 10 04 0d 27 1a |&....'....'...'.|
000088e0 0f dd f2 6d 6f 76 65 70 68 6f 74 6f 0d 27 24 12 |...movephoto.'$.|
000088f0 ea 20 6c 69 6e 24 2c 6e 6f 61 25 2c 6b 25 0d 27 |. lin$,noa%,k%.'|
00008900 2e 10 e7 66 69 72 73 74 6d 6f 76 65 25 8c 0d 27 |...firstmove%..'|
00008910 38 20 73 75 62 25 3d 30 3a 66 69 72 73 74 6d 6f |8 sub%=0:firstmo|
00008920 76 65 25 3d a3 3a 65 6c 61 70 73 25 3d 30 0d 27 |ve%=.:elaps%=0.'|
00008930 42 05 cc 0d 27 4c 58 e7 28 73 75 62 25 3c 3d 37 |B...'LX.(sub%<=7|
00008940 29 84 28 28 73 75 62 25 3e 3d 32 33 29 80 28 73 |).((sub%>=23).(s|
00008950 75 62 25 3c 3d 33 35 29 29 84 28 28 73 75 62 25 |ub%<=35)).((sub%|
00008960 3e 3d 33 39 29 80 28 73 75 62 25 3c 3d 34 31 29 |>=39).(sub%<=41)|
00008970 29 8c 3a e7 91 3c 6c 61 73 74 74 69 6d 65 25 2b |).:..<lasttime%+|
00008980 36 30 2d 65 6c 61 70 73 25 3a e1 0d 27 56 33 e7 |60-elaps%:..'V3.|
00008990 28 73 75 62 25 3e 3d 38 29 80 28 73 75 62 25 3c |(sub%>=8).(sub%<|
000089a0 3d 31 37 29 8c 3a e7 91 3c 6c 61 73 74 74 69 6d |=17).:..<lasttim|
000089b0 65 25 2b 32 30 2d 65 6c 61 70 73 25 3a e1 0d 27 |e%+20-elaps%:..'|
000089c0 60 67 e7 28 28 73 75 62 25 3e 3d 31 38 29 80 28 |`g.((sub%>=18).(|
000089d0 73 75 62 25 3c 3d 32 32 29 29 84 28 28 73 75 62 |sub%<=22)).((sub|
000089e0 25 3e 3d 33 36 29 80 28 73 75 62 25 3c 3d 33 38 |%>=36).(sub%<=38|
000089f0 29 29 84 28 28 73 75 62 25 3e 3d 34 32 29 80 28 |)).((sub%>=42).(|
00008a00 73 75 62 25 3c 3d 35 32 29 29 8c 3a e7 91 3c 6c |sub%<=52)).:..<l|
00008a10 61 73 74 74 69 6d 65 25 2b 31 32 30 2d 65 6c 61 |asttime%+120-ela|
00008a20 70 73 25 3a e1 0d 27 6a 05 cd 0d 27 74 0c 65 6c |ps%:..'j...'t.el|
00008a30 61 70 73 25 3d 91 0d 27 7e 38 e7 74 65 78 74 6f |aps%=..'~8.texto|
00008a40 6e 25 3a f2 63 68 65 63 6b 61 6e 69 6d 74 65 78 |n%:.checkanimtex|
00008a50 74 28 36 2c 22 30 30 36 2c 30 32 39 2c 30 34 30 |t(6,"006,029,040|
00008a60 2c 30 34 34 2c 30 34 36 2c 30 35 31 22 29 0d 27 |,044,046,051").'|
00008a70 88 0d e7 73 75 62 25 3c 35 32 8c 0d 27 92 2c 20 |...sub%<52..'., |
00008a80 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
00008a90 26 31 33 43 2c 61 6e 69 6d 61 72 65 61 25 2c 22 |&13C,animarea%,"|
00008aa0 61 6e 69 6d 22 2c 30 0d 27 9c 1b 20 e7 28 73 75 |anim",0.'.. .(su|
00008ab0 62 25 3e 3d 37 29 80 28 73 75 62 25 3c 3d 31 37 |b%>=7).(sub%<=17|
00008ac0 29 8c 0d 27 a6 5c 20 20 c8 99 22 4f 53 5f 53 70 |)..'.\ .."OS_Sp|
00008ad0 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 |riteOp",&122,det|
00008ae0 61 72 65 61 25 2c 22 70 68 62 67 22 2c 30 2c 30 |area%,"phbg",0,0|
00008af0 2c 38 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |,8:.."OS_SpriteO|
00008b00 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 |p",&122,detarea%|
00008b10 2c 22 61 72 33 30 22 2c 30 2c 38 38 2c 38 0d 27 |,"ar30",0,88,8.'|
00008b20 b0 34 20 20 f2 62 6f 78 65 78 70 28 73 75 62 25 |.4 .boxexp(sub%|
00008b30 2d 37 2c 31 30 2c 31 38 38 2c 32 39 32 2c 2d 32 |-7,10,188,292,-2|
00008b40 30 2c 2d 31 36 2c 34 30 2c 33 32 2c 34 30 2c 33 |0,-16,40,32,40,3|
00008b50 32 29 0d 27 ba 06 20 cd 0d 27 c4 1b 20 e7 28 73 |2).'.. ..'.. .(s|
00008b60 75 62 25 3c 3d 36 29 84 28 73 75 62 25 3e 3d 31 |ub%<=6).(sub%>=1|
00008b70 37 29 8c 0d 27 ce 24 20 20 6c 69 6e 24 3d 70 68 |7)..'.$ lin$=ph|
00008b80 6f 74 6f 24 28 73 75 62 25 29 3a 6e 6f 61 25 3d |oto$(sub%):noa%=|
00008b90 bb 28 6c 69 6e 24 29 0d 27 d8 1b 20 20 6c 69 6e |.(lin$).'.. lin|
00008ba0 24 3d c2 6c 69 6e 24 2c a9 28 6c 69 6e 24 29 2d |$=.lin$,.(lin$)-|
00008bb0 33 29 0d 27 e2 10 20 20 e3 6b 25 3d 31 b8 6e 6f |3).'.. .k%=1.no|
00008bc0 61 25 0d 27 ec 5d 20 20 20 c8 99 22 4f 53 5f 53 |a%.'.] .."OS_S|
00008bd0 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
00008be0 74 61 72 65 61 25 2c 61 6e 69 6d 73 70 24 28 bb |tarea%,animsp$(.|
00008bf0 28 6c 69 6e 24 29 29 2c 61 6e 69 6d 73 70 25 28 |(lin$)),animsp%(|
00008c00 bb 28 6c 69 6e 24 29 2c 30 29 2c 61 6e 69 6d 73 |.(lin$),0),anims|
00008c10 70 25 28 bb 28 6c 69 6e 24 29 2c 31 29 2c 38 0d |p%(.(lin$),1),8.|
00008c20 27 f6 1c 20 20 20 6c 69 6e 24 3d c2 6c 69 6e 24 |'.. lin$=.lin$|
00008c30 2c a9 28 6c 69 6e 24 29 2d 33 29 0d 28 00 07 20 |,.(lin$)-3).(.. |
00008c40 20 ed 0d 28 0a 06 20 cd 0d 28 14 3b 20 f2 6d 6f | ..(.. ..(.; .mo|
00008c50 76 65 65 6e 64 6c 6f 6f 70 28 36 2c 22 30 30 36 |veendloop(6,"006|
00008c60 2c 30 32 39 2c 30 34 30 2c 30 34 34 2c 30 34 36 |,029,040,044,046|
00008c70 2c 30 35 31 22 2c 30 2c 33 32 2c 36 30 34 2c 34 |,051",0,32,604,4|
00008c80 38 34 29 0d 28 1e 05 cd 0d 28 28 0b 73 75 62 25 |84).(....((.sub%|
00008c90 2b 3d 31 0d 28 32 57 e7 73 75 62 25 3d 35 33 3a |+=1.(2W.sub%=53:|
00008ca0 f2 6d 61 6b 65 61 6e 69 6d 28 61 63 74 6d 65 6e |.makeanim(actmen|
00008cb0 75 25 2c 61 63 74 61 6e 69 6d 25 2c 62 67 25 28 |u%,actanim%,bg%(|
00008cc0 61 63 74 61 6e 69 6d 25 29 29 3a f2 61 6e 69 6d |actanim%)):.anim|
00008cd0 61 74 65 65 6e 64 3a f2 70 6c 6f 74 61 6e 69 6d |ateend:.plotanim|
00008ce0 28 61 63 74 61 6e 69 6d 25 29 0d 28 3c 05 e1 0d |(actanim%).(<...|
00008cf0 28 46 04 0d 28 50 10 dd f2 6d 6f 76 65 6c 65 61 |(F..(P...movelea|
00008d00 66 63 6c 0d 28 5a 12 ea 20 6c 69 6e 24 2c 6e 6f |fcl.(Z.. lin$,no|
00008d10 61 25 2c 6b 25 0d 28 64 10 e7 66 69 72 73 74 6d |a%,k%.(d..firstm|
00008d20 6f 76 65 25 8c 0d 28 6e 20 73 75 62 25 3d 30 3a |ove%..(n sub%=0:|
00008d30 66 69 72 73 74 6d 6f 76 65 25 3d a3 3a 65 6c 61 |firstmove%=.:ela|
00008d40 70 73 25 3d 30 0d 28 78 05 cc 0d 28 82 27 e7 73 |ps%=0.(x...(.'.s|
00008d50 75 62 25 3d 31 20 8c 3a e7 91 3c 6c 61 73 74 74 |ub%=1 .:..<lastt|
00008d60 69 6d 65 25 2b 31 32 30 2d 65 6c 61 70 73 25 3a |ime%+120-elaps%:|
00008d70 e1 0d 28 8c 32 e7 28 73 75 62 25 3e 3d 32 29 80 |..(.2.(sub%>=2).|
00008d80 28 73 75 62 25 3c 3d 39 29 8c 3a e7 91 3c 6c 61 |(sub%<=9).:..<la|
00008d90 73 74 74 69 6d 65 25 2b 32 30 2d 65 6c 61 70 73 |sttime%+20-elaps|
00008da0 25 3a e1 0d 28 96 28 e7 73 75 62 25 3e 3d 31 30 |%:..(.(.sub%>=10|
00008db0 20 8c 3a e7 91 3c 6c 61 73 74 74 69 6d 65 25 2b | .:..<lasttime%+|
00008dc0 38 30 2d 65 6c 61 70 73 25 3a e1 0d 28 a0 05 cd |80-elaps%:..(...|
00008dd0 0d 28 aa 0c 65 6c 61 70 73 25 3d 91 0d 28 b4 24 |.(..elaps%=..(.$|
00008de0 e7 74 65 78 74 6f 6e 25 3a f2 63 68 65 63 6b 61 |.texton%:.checka|
00008df0 6e 69 6d 74 65 78 74 28 31 2c 22 30 31 35 22 29 |nimtext(1,"015")|
00008e00 0d 28 be 0d e7 73 75 62 25 3c 31 36 8c 0d 28 c8 |.(...sub%<16..(.|
00008e10 1a 20 e7 73 75 62 25 3c 3d 39 3a f2 63 6c 5f 61 |. .sub%<=9:.cl_a|
00008e20 6e 69 6d 28 31 35 29 0d 28 d2 2c 20 c8 99 22 4f |nim(15).(., .."O|
00008e30 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 43 |S_SpriteOp",&13C|
00008e40 2c 61 6e 69 6d 61 72 65 61 25 2c 22 61 6e 69 6d |,animarea%,"anim|
00008e50 22 2c 30 0d 28 dc 3a 20 e7 73 75 62 25 3c 3d 39 |",0.(.: .sub%<=9|
00008e60 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"|
00008e70 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 |,&122,detarea%,"|
00008e80 6c 65 63 6c 22 2c 35 38 2c 35 32 2c 38 0d 28 e6 |lecl",58,52,8.(.|
00008e90 2f 20 f2 62 6f 78 65 78 70 28 73 75 62 25 2c 39 |/ .boxexp(sub%,9|
00008ea0 2c 35 35 30 2c 31 32 38 2c 2d 32 30 2c 2d 34 2c |,550,128,-20,-4,|
00008eb0 38 30 2c 36 34 2c 34 30 2c 33 32 29 0d 28 f0 0e |80,64,40,32).(..|
00008ec0 20 c8 8e 20 73 75 62 25 20 ca 0d 28 fa 3b 20 20 | .. sub% ..(.; |
00008ed0 c9 20 39 2c 31 35 3a c8 99 22 4f 53 5f 53 70 72 |. 9,15:.."OS_Spr|
00008ee0 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 |iteOp",&122,deta|
00008ef0 72 65 61 25 2c 22 73 74 30 30 22 2c 34 30 32 2c |rea%,"st00",402,|
00008f00 31 30 38 2c 38 0d 29 04 3c 20 20 c9 20 31 30 2c |108,8.).< . 10,|
00008f10 31 34 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |14:.."OS_SpriteO|
00008f20 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 |p",&122,detarea%|
00008f30 2c 22 73 74 30 31 22 2c 34 34 32 2c 31 34 34 2c |,"st01",442,144,|
00008f40 38 0d 29 0e 3c 20 20 c9 20 31 31 2c 31 33 3a c8 |8.).< . 11,13:.|
00008f50 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&|
00008f60 31 32 32 2c 64 65 74 61 72 65 61 25 2c 22 73 74 |122,detarea%,"st|
00008f70 30 32 22 2c 34 34 32 2c 31 34 34 2c 38 0d 29 18 |02",442,144,8.).|
00008f80 39 20 20 c9 20 31 32 3a c8 99 22 4f 53 5f 53 70 |9 . 12:.."OS_Sp|
00008f90 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 |riteOp",&122,det|
00008fa0 61 72 65 61 25 2c 22 73 74 30 33 22 2c 34 34 32 |area%,"st03",442|
00008fb0 2c 31 34 34 2c 38 0d 29 22 06 20 cb 0d 29 2c 29 |,144,8.)". ..),)|
00008fc0 20 f2 6d 6f 76 65 65 6e 64 6c 6f 6f 70 28 31 2c | .moveendloop(1,|
00008fd0 22 30 31 35 22 2c 33 39 30 2c 39 36 2c 37 39 32 |"015",390,96,792|
00008fe0 2c 34 32 30 29 0d 29 36 05 cd 0d 29 40 0b 73 75 |,420).)6...)@.su|
00008ff0 62 25 2b 3d 31 0d 29 4a 57 e7 73 75 62 25 3d 31 |b%+=1.)JW.sub%=1|
00009000 37 3a f2 6d 61 6b 65 61 6e 69 6d 28 61 63 74 6d |7:.makeanim(actm|
00009010 65 6e 75 25 2c 61 63 74 61 6e 69 6d 25 2c 62 67 |enu%,actanim%,bg|
00009020 25 28 61 63 74 61 6e 69 6d 25 29 29 3a f2 61 6e |%(actanim%)):.an|
00009030 69 6d 61 74 65 65 6e 64 3a f2 70 6c 6f 74 61 6e |imateend:.plotan|
00009040 69 6d 28 61 63 74 61 6e 69 6d 25 29 0d 29 54 05 |im(actanim%).)T.|
00009050 e1 0d 29 5e 04 0d 29 68 0e dd f2 6d 6f 76 65 64 |..)^..)h...moved|
00009060 69 73 70 0d 29 72 10 e7 66 69 72 73 74 6d 6f 76 |isp.)r..firstmov|
00009070 65 25 8c 0d 29 7c 29 20 73 75 62 25 3d 30 3a 66 |e%..)|) sub%=0:f|
00009080 69 72 73 74 6d 6f 76 65 25 3d a3 3a 65 6c 61 70 |irstmove%=.:elap|
00009090 73 25 3d 30 3a 73 65 25 28 29 3d 30 0d 29 86 05 |s%=0:se%()=0.)..|
000090a0 cc 0d 29 90 1d 20 e7 91 3c 6c 61 73 74 74 69 6d |..).. ..<lasttim|
000090b0 65 25 2b 33 30 2d 65 6c 61 70 73 25 3a e1 0d 29 |e%+30-elaps%:..)|
000090c0 9a 05 cd 0d 29 a4 0c 65 6c 61 70 73 25 3d 91 0d |....)..elaps%=..|
000090d0 29 ae 24 e7 74 65 78 74 6f 6e 25 3a f2 63 68 65 |).$.texton%:.che|
000090e0 63 6b 61 6e 69 6d 74 65 78 74 28 31 2c 22 30 32 |ckanimtext(1,"02|
000090f0 33 22 29 0d 29 b8 0d e7 73 75 62 25 3c 32 34 8c |3").)...sub%<24.|
00009100 0d 29 c2 34 20 e7 74 65 78 74 6f 6e 25 20 8c 3a |.).4 .texton% .:|
00009110 f2 63 6c 5f 61 6e 69 6d 28 31 35 29 3a 8b 3a f2 |.cl_anim(15):.:.|
00009120 63 6f 70 79 73 70 28 22 62 67 38 22 2c 22 61 6e |copysp("bg8","an|
00009130 69 6d 22 29 0d 29 cc 2c 20 c8 99 22 4f 53 5f 53 |im").)., .."OS_S|
00009140 70 72 69 74 65 4f 70 22 2c 26 31 33 43 2c 61 6e |priteOp",&13C,an|
00009150 69 6d 61 72 65 61 25 2c 22 61 6e 69 6d 22 2c 30 |imarea%,"anim",0|
00009160 0d 29 d6 17 20 e7 73 75 62 25 3e 3d 35 3a 73 65 |.).. .sub%>=5:se|
00009170 25 28 30 29 2b 3d 31 0d 29 e0 17 20 e7 73 75 62 |%(0)+=1.).. .sub|
00009180 25 3e 3d 36 3a 73 65 25 28 31 29 2b 3d 31 0d 29 |%>=6:se%(1)+=1.)|
00009190 ea 17 20 e7 73 75 62 25 3e 3d 38 3a 73 65 25 28 |.. .sub%>=8:se%(|
000091a0 32 29 2b 3d 31 0d 29 f4 17 20 e7 73 75 62 25 3e |2)+=1.).. .sub%>|
000091b0 3d 39 3a 73 65 25 28 33 29 2b 3d 31 0d 29 fe 18 |=9:se%(3)+=1.)..|
000091c0 20 e7 73 75 62 25 3e 3d 31 30 3a 73 65 25 28 34 | .sub%>=10:se%(4|
000091d0 29 2b 3d 31 0d 2a 08 18 20 e7 73 75 62 25 3e 3d |)+=1.*.. .sub%>=|
000091e0 31 33 3a 73 65 25 28 35 29 2b 3d 31 0d 2a 12 18 |13:se%(5)+=1.*..|
000091f0 20 e7 73 75 62 25 3e 3d 31 35 3a 73 65 25 28 36 | .sub%>=15:se%(6|
00009200 29 2b 3d 31 0d 2a 1c 18 20 e7 73 75 62 25 3e 3d |)+=1.*.. .sub%>=|
00009210 31 38 3a 73 65 25 28 37 29 2b 3d 31 0d 2a 26 45 |18:se%(7)+=1.*&E|
00009220 20 e7 28 28 73 75 62 25 2b 31 29 83 34 29 3d 33 | .((sub%+1).4)=3|
00009230 3a f2 6d 61 6b 65 64 69 73 70 28 31 2c 73 65 25 |:.makedisp(1,se%|
00009240 28 29 29 3a 8b 3a f2 6d 61 6b 65 64 69 73 70 28 |()):.:.makedisp(|
00009250 28 73 75 62 25 2b 31 29 83 34 2c 73 65 25 28 29 |(sub%+1).4,se%()|
00009260 29 0d 2a 30 26 20 f2 6d 6f 76 65 65 6e 64 6c 6f |).*0& .moveendlo|
00009270 6f 70 28 31 2c 22 30 32 33 22 2c 30 2c 30 2c 38 |op(1,"023",0,0,8|
00009280 31 30 2c 36 34 34 29 0d 2a 3a 05 cd 0d 2a 44 0b |10,644).*:...*D.|
00009290 73 75 62 25 2b 3d 31 0d 2a 4e 57 e7 73 75 62 25 |sub%+=1.*NW.sub%|
000092a0 3d 32 35 3a f2 6d 61 6b 65 61 6e 69 6d 28 61 63 |=25:.makeanim(ac|
000092b0 74 6d 65 6e 75 25 2c 61 63 74 61 6e 69 6d 25 2c |tmenu%,actanim%,|
000092c0 62 67 25 28 61 63 74 61 6e 69 6d 25 29 29 3a f2 |bg%(actanim%)):.|
000092d0 61 6e 69 6d 61 74 65 65 6e 64 3a f2 70 6c 6f 74 |animateend:.plot|
000092e0 61 6e 69 6d 28 61 63 74 61 6e 69 6d 25 29 0d 2a |anim(actanim%).*|
000092f0 58 05 e1 0d 2a 62 04 0d 2a 6c 11 dd f2 6d 6f 76 |X...*b..*l...mov|
00009300 65 64 69 73 70 65 78 70 0d 2a 76 11 ea 20 6a 25 |edispexp.*v.. j%|
00009310 2c 63 62 25 2c 6c 75 70 25 0d 2a 80 10 e7 66 69 |,cb%,lup%.*...fi|
00009320 72 73 74 6d 6f 76 65 25 8c 0d 2a 8a 21 20 73 75 |rstmove%..*.! su|
00009330 62 25 3d 30 3a 66 69 72 73 74 6d 6f 76 65 25 3d |b%=0:firstmove%=|
00009340 a3 3a 65 6c 61 70 73 25 3d 30 0d 2a 94 05 cc 0d |.:elaps%=0.*....|
00009350 2a 9e 1a 20 e7 28 73 75 62 25 3d 38 29 84 28 73 |*.. .(sub%=8).(s|
00009360 75 62 25 3d 31 35 29 20 8c 0d 2a a8 1f 20 20 e7 |ub%=15) ..*.. .|
00009370 91 3c 6c 61 73 74 74 69 6d 65 25 2b 31 30 30 2d |.<lasttime%+100-|
00009380 65 6c 61 70 73 25 3a e1 0d 2a b2 06 20 cc 0d 2a |elaps%:..*.. ..*|
00009390 bc 1e 20 20 e7 91 3c 6c 61 73 74 74 69 6d 65 25 |.. ..<lasttime%|
000093a0 2b 33 30 2d 65 6c 61 70 73 25 3a e1 0d 2a c6 06 |+30-elaps%:..*..|
000093b0 20 cd 0d 2a d0 05 cd 0d 2a da 0c 65 6c 61 70 73 | ..*....*..elaps|
000093c0 25 3d 91 0d 2a e4 28 e7 74 65 78 74 6f 6e 25 3a |%=..*.(.texton%:|
000093d0 f2 63 68 65 63 6b 61 6e 69 6d 74 65 78 74 28 32 |.checkanimtext(2|
000093e0 2c 22 30 30 37 2c 30 31 34 22 29 0d 2a ee 0d e7 |,"007,014").*...|
000093f0 73 75 62 25 3c 31 35 8c 0d 2a f8 34 20 e7 74 65 |sub%<15..*.4 .te|
00009400 78 74 6f 6e 25 20 8c 3a f2 63 6c 5f 61 6e 69 6d |xton% .:.cl_anim|
00009410 28 31 35 29 3a 8b 3a f2 63 6f 70 79 73 70 28 22 |(15):.:.copysp("|
00009420 62 67 36 22 2c 22 61 6e 69 6d 22 29 0d 2b 02 2c |bg6","anim").+.,|
00009430 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 | .."OS_SpriteOp"|
00009440 2c 26 31 33 43 2c 61 6e 69 6d 61 72 65 61 25 2c |,&13C,animarea%,|
00009450 22 61 6e 69 6d 22 2c 30 0d 2b 0c 12 20 e7 73 75 |"anim",0.+.. .su|
00009460 62 25 3d 30 3a 63 62 25 3d 30 0d 2b 16 12 20 e7 |b%=0:cb%=0.+.. .|
00009470 73 75 62 25 3d 31 3a 63 62 25 3d 31 0d 2b 20 13 |sub%=1:cb%=1.+ .|
00009480 20 e7 73 75 62 25 3e 3d 32 3a 63 62 25 3d 32 0d | .sub%>=2:cb%=2.|
00009490 2b 2a 1d 20 e7 73 75 62 25 3c 3d 38 3a 6c 75 70 |+*. .sub%<=8:lup|
000094a0 25 3d 30 3a 8b 3a 6c 75 70 25 3d 31 0d 2b 34 1b |%=0:.:lup%=1.+4.|
000094b0 20 f2 6d 61 6b 65 64 69 73 70 65 78 70 28 63 62 | .makedispexp(cb|
000094c0 25 2c 6c 75 70 25 29 0d 2b 3e 7c 20 e7 28 73 75 |%,lup%).+>| .(su|
000094d0 62 25 3e 3d 32 29 80 28 73 75 62 25 3c 3d 36 29 |b%>=2).(sub%<=6)|
000094e0 20 8c 3a e3 6a 25 3d 30 b8 34 3a c8 99 22 4f 53 | .:.j%=0.4:.."OS|
000094f0 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c |_SpriteOp",&122,|
00009500 64 65 74 61 72 65 61 25 2c 22 62 65 61 6e 22 2b |detarea%,"bean"+|
00009510 c3 28 b3 28 33 29 2d 31 29 2c 62 65 61 6e 25 28 |.(.(3)-1),bean%(|
00009520 6a 25 2c 73 75 62 25 2d 32 2c 30 29 2c 62 65 61 |j%,sub%-2,0),bea|
00009530 6e 25 28 6a 25 2c 73 75 62 25 2d 32 2c 31 29 2c |n%(j%,sub%-2,1),|
00009540 38 3a ed 0d 2b 48 7e 20 e7 28 73 75 62 25 3e 3d |8:..+H~ .(sub%>=|
00009550 39 29 80 28 73 75 62 25 3c 3d 31 33 29 20 8c 3a |9).(sub%<=13) .:|
00009560 e3 6a 25 3d 35 b8 31 32 3a c8 99 22 4f 53 5f 53 |.j%=5.12:.."OS_S|
00009570 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
00009580 74 61 72 65 61 25 2c 22 62 65 61 6e 22 2b c3 28 |tarea%,"bean"+.(|
00009590 b3 28 33 29 2d 31 29 2c 62 65 61 6e 25 28 6a 25 |.(3)-1),bean%(j%|
000095a0 2c 73 75 62 25 2d 39 2c 30 29 2c 62 65 61 6e 25 |,sub%-9,0),bean%|
000095b0 28 6a 25 2c 73 75 62 25 2d 39 2c 31 29 2c 38 3a |(j%,sub%-9,1),8:|
000095c0 ed 0d 2b 52 2b 20 f2 6d 6f 76 65 65 6e 64 6c 6f |..+R+ .moveendlo|
000095d0 6f 70 28 32 2c 22 30 30 34 2c 30 31 31 22 2c 30 |op(2,"004,011",0|
000095e0 2c 36 30 2c 38 31 30 2c 34 34 30 29 0d 2b 5c 05 |,60,810,440).+\.|
000095f0 cd 0d 2b 66 0b 73 75 62 25 2b 3d 31 0d 2b 70 57 |..+f.sub%+=1.+pW|
00009600 e7 73 75 62 25 3d 31 36 3a f2 6d 61 6b 65 61 6e |.sub%=16:.makean|
00009610 69 6d 28 61 63 74 6d 65 6e 75 25 2c 61 63 74 61 |im(actmenu%,acta|
00009620 6e 69 6d 25 2c 62 67 25 28 61 63 74 61 6e 69 6d |nim%,bg%(actanim|
00009630 25 29 29 3a f2 61 6e 69 6d 61 74 65 65 6e 64 3a |%)):.animateend:|
00009640 f2 70 6c 6f 74 61 6e 69 6d 28 61 63 74 61 6e 69 |.plotanim(actani|
00009650 6d 25 29 0d 2b 7a 05 e1 0d 2b 84 04 0d 2b 8e 12 |m%).+z...+...+..|
00009660 dd f2 6d 6f 76 65 64 69 73 70 77 69 6e 64 0d 2b |..movedispwind.+|
00009670 98 1d ea 20 66 72 75 25 2c 64 61 6e 25 2c 64 61 |... fru%,dan%,da|
00009680 78 25 2c 64 73 25 2c 64 73 32 25 0d 2b a2 10 e7 |x%,ds%,ds2%.+...|
00009690 66 69 72 73 74 6d 6f 76 65 25 8c 0d 2b ac 21 20 |firstmove%..+.! |
000096a0 73 75 62 25 3d 30 3a 66 69 72 73 74 6d 6f 76 65 |sub%=0:firstmove|
000096b0 25 3d a3 3a 65 6c 61 70 73 25 3d 30 0d 2b b6 05 |%=.:elaps%=0.+..|
000096c0 cc 0d 2b c0 1b 20 e7 28 73 75 62 25 3d 31 33 29 |..+.. .(sub%=13)|
000096d0 84 28 73 75 62 25 3d 33 31 29 20 8c 0d 2b ca 1f |.(sub%=31) ..+..|
000096e0 20 20 e7 91 3c 6c 61 73 74 74 69 6d 65 25 2b 31 | ..<lasttime%+1|
000096f0 38 30 2d 65 6c 61 70 73 25 3a e1 0d 2b d4 06 20 |80-elaps%:..+.. |
00009700 cc 0d 2b de 1e 20 20 e7 91 3c 6c 61 73 74 74 69 |..+.. ..<lastti|
00009710 6d 65 25 2b 33 30 2d 65 6c 61 70 73 25 3a e1 0d |me%+30-elaps%:..|
00009720 2b e8 06 20 cd 0d 2b f2 05 cd 0d 2b fc 0c 65 6c |+.. ..+....+..el|
00009730 61 70 73 25 3d 91 0d 2c 06 28 e7 74 65 78 74 6f |aps%=..,.(.texto|
00009740 6e 25 3a f2 63 68 65 63 6b 61 6e 69 6d 74 65 78 |n%:.checkanimtex|
00009750 74 28 32 2c 22 30 31 32 2c 30 33 30 22 29 0d 2c |t(2,"012,030").,|
00009760 10 0d e7 73 75 62 25 3c 33 31 8c 0d 2c 1a 34 20 |...sub%<31..,.4 |
00009770 e7 74 65 78 74 6f 6e 25 20 8c 3a f2 63 6c 5f 61 |.texton% .:.cl_a|
00009780 6e 69 6d 28 31 35 29 3a 8b 3a f2 63 6f 70 79 73 |nim(15):.:.copys|
00009790 70 28 22 62 67 31 22 2c 22 61 6e 69 6d 22 29 0d |p("bg1","anim").|
000097a0 2c 24 2c 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 |,$, .."OS_Sprite|
000097b0 4f 70 22 2c 26 31 33 43 2c 61 6e 69 6d 61 72 65 |Op",&13C,animare|
000097c0 61 25 2c 22 61 6e 69 6d 22 2c 30 0d 2c 2e 24 20 |a%,"anim",0.,.$ |
000097d0 e7 73 75 62 25 3c 3d 31 32 3a 66 72 75 25 3d 73 |.sub%<=12:fru%=s|
000097e0 75 62 25 2b 31 3a 8b 3a 66 72 75 25 3d 2d 31 0d |ub%+1:.:fru%=-1.|
000097f0 2c 38 24 20 e7 73 75 62 25 3e 3d 31 34 3a 64 61 |,8$ .sub%>=14:da|
00009800 6e 25 3d 73 75 62 25 2d 31 34 3a 8b 3a 64 61 6e |n%=sub%-14:.:dan|
00009810 25 3d 30 0d 2c 42 2e 20 e7 73 75 62 25 3e 3d 32 |%=0.,B. .sub%>=2|
00009820 31 3a 64 61 78 25 3d 32 30 2d 28 28 73 75 62 25 |1:dax%=20-((sub%|
00009830 2d 32 31 29 2a 36 30 29 3a 8b 3a 64 61 78 25 3d |-21)*60):.:dax%=|
00009840 30 0d 2c 4c 30 20 e7 28 73 75 62 25 3e 3d 31 37 |0.,L0 .(sub%>=17|
00009850 29 80 28 73 75 62 25 3c 3d 32 34 29 3a 64 73 25 |).(sub%<=24):ds%|
00009860 3d 73 75 62 25 2d 31 37 3a 8b 3a 64 73 25 3d 2d |=sub%-17:.:ds%=-|
00009870 31 0d 2c 56 1f 20 e7 73 75 62 25 3e 3d 32 35 3a |1.,V. .sub%>=25:|
00009880 64 73 32 25 3d 2d 31 3a 8b 3a 64 73 32 25 3d 30 |ds2%=-1:.:ds2%=0|
00009890 0d 2c 60 2b 20 f2 6d 61 6b 65 64 69 73 70 77 69 |.,`+ .makedispwi|
000098a0 6e 64 28 66 72 75 25 2c 64 61 6e 25 2c 64 61 78 |nd(fru%,dan%,dax|
000098b0 25 2c 64 73 25 2c 64 73 32 25 29 0d 2c 6a 5f 20 |%,ds%,ds2%).,j_ |
000098c0 e7 73 75 62 25 3c 3d 31 32 3a f2 6d 6f 76 65 65 |.sub%<=12:.movee|
000098d0 6e 64 6c 6f 6f 70 28 32 2c 22 30 31 32 2c 30 33 |ndloop(2,"012,03|
000098e0 30 22 2c 35 34 2c 36 30 2c 37 39 34 2c 35 36 34 |0",54,60,794,564|
000098f0 29 3a 8b 3a f2 6d 6f 76 65 65 6e 64 6c 6f 6f 70 |):.:.moveendloop|
00009900 28 32 2c 22 30 31 32 2c 30 33 30 22 2c 30 2c 36 |(2,"012,030",0,6|
00009910 30 2c 36 36 38 2c 35 30 38 29 0d 2c 74 05 cd 0d |0,668,508).,t...|
00009920 2c 7e 0b 73 75 62 25 2b 3d 31 0d 2c 88 57 e7 73 |,~.sub%+=1.,.W.s|
00009930 75 62 25 3d 33 32 3a f2 6d 61 6b 65 61 6e 69 6d |ub%=32:.makeanim|
00009940 28 61 63 74 6d 65 6e 75 25 2c 61 63 74 61 6e 69 |(actmenu%,actani|
00009950 6d 25 2c 62 67 25 28 61 63 74 61 6e 69 6d 25 29 |m%,bg%(actanim%)|
00009960 29 3a f2 61 6e 69 6d 61 74 65 65 6e 64 3a f2 70 |):.animateend:.p|
00009970 6c 6f 74 61 6e 69 6d 28 61 63 74 61 6e 69 6d 25 |lotanim(actanim%|
00009980 29 0d 2c 92 05 e1 0d 2c 9c 04 0d 2c a6 11 dd f2 |).,....,...,....|
00009990 6d 6f 76 65 64 69 73 70 61 6e 69 0d 2c b0 1d ea |movedispani.,...|
000099a0 20 64 6f 76 25 2c 6d 6f 75 25 2c 6d 6f 78 25 2c | dov%,mou%,mox%,|
000099b0 6d 6c 25 2c 62 75 72 25 0d 2c ba 10 e7 66 69 72 |ml%,bur%.,...fir|
000099c0 73 74 6d 6f 76 65 25 8c 0d 2c c4 21 20 73 75 62 |stmove%..,.! sub|
000099d0 25 3d 30 3a 66 69 72 73 74 6d 6f 76 65 25 3d a3 |%=0:firstmove%=.|
000099e0 3a 65 6c 61 70 73 25 3d 30 0d 2c ce 05 cc 0d 2c |:elaps%=0.,....,|
000099f0 d8 39 20 e7 28 73 75 62 25 3d 31 33 29 84 28 73 |.9 .(sub%=13).(s|
00009a00 75 62 25 3d 32 32 29 84 28 73 75 62 25 3d 33 34 |ub%=22).(sub%=34|
00009a10 29 84 28 73 75 62 25 3d 34 34 29 84 28 73 75 62 |).(sub%=44).(sub|
00009a20 25 3d 34 39 29 20 8c 0d 2c e2 1f 20 20 e7 91 3c |%=49) ..,.. ..<|
00009a30 6c 61 73 74 74 69 6d 65 25 2b 31 33 30 2d 65 6c |lasttime%+130-el|
00009a40 61 70 73 25 3a e1 0d 2c ec 06 20 cc 0d 2c f6 1e |aps%:..,.. ..,..|
00009a50 20 20 e7 91 3c 6c 61 73 74 74 69 6d 65 25 2b 33 | ..<lasttime%+3|
00009a60 30 2d 65 6c 61 70 73 25 3a e1 0d 2d 00 06 20 cd |0-elaps%:..-.. .|
00009a70 0d 2d 0a 05 cd 0d 2d 14 0c 65 6c 61 70 73 25 3d |.-....-..elaps%=|
00009a80 91 0d 2d 1e 34 e7 74 65 78 74 6f 6e 25 3a f2 63 |..-.4.texton%:.c|
00009a90 68 65 63 6b 61 6e 69 6d 74 65 78 74 28 35 2c 22 |heckanimtext(5,"|
00009aa0 30 31 32 2c 30 32 31 2c 30 33 32 2c 30 33 33 2c |012,021,032,033,|
00009ab0 30 34 38 22 29 0d 2d 28 0d e7 73 75 62 25 3c 34 |048").-(..sub%<4|
00009ac0 39 8c 0d 2d 32 34 20 e7 74 65 78 74 6f 6e 25 20 |9..-24 .texton% |
00009ad0 8c 3a f2 63 6c 5f 61 6e 69 6d 28 31 35 29 3a 8b |.:.cl_anim(15):.|
00009ae0 3a f2 63 6f 70 79 73 70 28 22 62 67 37 22 2c 22 |:.copysp("bg7","|
00009af0 61 6e 69 6d 22 29 0d 2d 3c 2c 20 c8 99 22 4f 53 |anim").-<, .."OS|
00009b00 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 43 2c |_SpriteOp",&13C,|
00009b10 61 6e 69 6d 61 72 65 61 25 2c 22 61 6e 69 6d 22 |animarea%,"anim"|
00009b20 2c 30 0d 2d 46 34 20 e7 73 75 62 25 3c 3d 31 31 |,0.-F4 .sub%<=11|
00009b30 3a 6d 6f 78 25 3d 37 37 36 2d 28 73 75 62 25 2a |:mox%=776-(sub%*|
00009b40 36 34 29 3a 6d 6f 75 25 3d 73 75 62 25 83 32 3a |64):mou%=sub%.2:|
00009b50 62 75 72 25 3d 31 0d 2d 50 29 20 e7 73 75 62 25 |bur%=1.-P) .sub%|
00009b60 3d 31 32 3a 6d 6f 78 25 3d 37 32 3a 6d 6f 75 25 |=12:mox%=72:mou%|
00009b70 3d 32 3a 6d 6c 25 3d 30 3a 62 75 72 25 3d 31 0d |=2:ml%=0:bur%=1.|
00009b80 2d 5a 40 20 e7 28 73 75 62 25 3e 3d 31 33 29 80 |-Z@ .(sub%>=13).|
00009b90 28 73 75 62 25 3c 3d 31 39 29 3a 6d 6f 78 25 3d |(sub%<=19):mox%=|
00009ba0 37 32 3a 6d 6f 75 25 3d 32 3a 6d 6c 25 3d 32 2d |72:mou%=2:ml%=2-|
00009bb0 28 73 75 62 25 83 32 29 3a 62 75 72 25 3d 31 0d |(sub%.2):bur%=1.|
00009bc0 2d 64 29 20 e7 73 75 62 25 3d 32 30 3a 6d 6f 78 |-d) .sub%=20:mox|
00009bd0 25 3d 37 32 3a 6d 6f 75 25 3d 32 3a 6d 6c 25 3d |%=72:mou%=2:ml%=|
00009be0 32 3a 62 75 72 25 3d 32 0d 2d 6e 29 20 e7 73 75 |2:bur%=2.-n) .su|
00009bf0 62 25 3d 32 31 3a 6d 6f 78 25 3d 37 32 3a 6d 6f |b%=21:mox%=72:mo|
00009c00 75 25 3d 32 3a 6d 6c 25 3d 30 3a 62 75 72 25 3d |u%=2:ml%=0:bur%=|
00009c10 32 0d 2d 78 45 20 e7 28 73 75 62 25 3e 3d 32 32 |2.-xE .(sub%>=22|
00009c20 29 80 28 73 75 62 25 3c 3d 33 32 29 3a 6d 6f 78 |).(sub%<=32):mox|
00009c30 25 3d 37 32 2d 28 28 73 75 62 25 2d 32 31 29 2a |%=72-((sub%-21)*|
00009c40 36 34 29 3a 6d 6f 75 25 3d 73 75 62 25 83 32 3a |64):mou%=sub%.2:|
00009c50 62 75 72 25 3d 32 0d 2d 82 23 20 e7 73 75 62 25 |bur%=2.-.# .sub%|
00009c60 3e 3d 33 33 3a 6d 6f 75 25 3d 2d 31 3a 64 6f 76 |>=33:mou%=-1:dov|
00009c70 25 3d 73 75 62 25 2d 33 33 0d 2d 8c 2a 20 f2 6d |%=sub%-33.-.* .m|
00009c80 61 6b 65 64 69 73 70 61 6e 69 28 64 6f 76 25 2c |akedispani(dov%,|
00009c90 6d 6f 75 25 2c 6d 6f 78 25 2c 6d 6c 25 2c 62 75 |mou%,mox%,ml%,bu|
00009ca0 72 25 29 0d 2d 96 76 20 e7 73 75 62 25 3c 3d 33 |r%).-.v .sub%<=3|
00009cb0 33 3a f2 6d 6f 76 65 65 6e 64 6c 6f 6f 70 28 35 |3:.moveendloop(5|
00009cc0 2c 22 30 31 32 2c 30 32 31 2c 30 33 32 2c 30 33 |,"012,021,032,03|
00009cd0 33 2c 30 34 38 22 2c 30 2c 30 2c 38 31 30 2c 31 |3,048",0,0,810,1|
00009ce0 37 36 29 3a 8b 3a f2 6d 6f 76 65 65 6e 64 6c 6f |76):.:.moveendlo|
00009cf0 6f 70 28 35 2c 22 30 31 32 2c 30 32 31 2c 30 33 |op(5,"012,021,03|
00009d00 32 2c 30 33 33 2c 30 34 38 22 2c 31 34 30 2c 34 |2,033,048",140,4|
00009d10 2c 33 33 30 2c 36 34 34 29 0d 2d a0 05 cd 0d 2d |,330,644).-....-|
00009d20 aa 0b 73 75 62 25 2b 3d 31 0d 2d b4 57 e7 73 75 |..sub%+=1.-.W.su|
00009d30 62 25 3d 35 30 3a f2 6d 61 6b 65 61 6e 69 6d 28 |b%=50:.makeanim(|
00009d40 61 63 74 6d 65 6e 75 25 2c 61 63 74 61 6e 69 6d |actmenu%,actanim|
00009d50 25 2c 62 67 25 28 61 63 74 61 6e 69 6d 25 29 29 |%,bg%(actanim%))|
00009d60 3a f2 61 6e 69 6d 61 74 65 65 6e 64 3a f2 70 6c |:.animateend:.pl|
00009d70 6f 74 61 6e 69 6d 28 61 63 74 61 6e 69 6d 25 29 |otanim(actanim%)|
00009d80 0d 2d be 05 e1 0d 2d c8 04 0d 2d d2 11 dd f2 6d |.-....-...-....m|
00009d90 6f 76 65 64 69 73 70 77 61 74 0d 2d dc 10 e7 66 |ovedispwat.-...f|
00009da0 69 72 73 74 6d 6f 76 65 25 8c 0d 2d e6 21 20 73 |irstmove%..-.! s|
00009db0 75 62 25 3d 30 3a 66 69 72 73 74 6d 6f 76 65 25 |ub%=0:firstmove%|
00009dc0 3d a3 3a 65 6c 61 70 73 25 3d 30 0d 2d f0 05 cc |=.:elaps%=0.-...|
00009dd0 0d 2d fa 0f 20 e7 73 75 62 25 3d 36 35 20 8c 0d |.-.. .sub%=65 ..|
00009de0 2e 04 1f 20 20 e7 91 3c 6c 61 73 74 74 69 6d 65 |... ..<lasttime|
00009df0 25 2b 32 30 30 2d 65 6c 61 70 73 25 3a e1 0d 2e |%+200-elaps%:...|
00009e00 0e 06 20 cc 0d 2e 18 1e 20 20 e7 91 3c 6c 61 73 |.. ..... ..<las|
00009e10 74 74 69 6d 65 25 2b 34 30 2d 65 6c 61 70 73 25 |ttime%+40-elaps%|
00009e20 3a e1 0d 2e 22 06 20 cd 0d 2e 2c 05 cd 0d 2e 36 |:...". ...,....6|
00009e30 0c 65 6c 61 70 73 25 3d 91 0d 2e 40 24 e7 74 65 |.elaps%=...@$.te|
00009e40 78 74 6f 6e 25 3a f2 63 68 65 63 6b 61 6e 69 6d |xton%:.checkanim|
00009e50 74 65 78 74 28 31 2c 22 30 36 34 22 29 0d 2e 4a |text(1,"064")..J|
00009e60 0d e7 73 75 62 25 3c 36 35 8c 0d 2e 54 2c 20 c8 |..sub%<65...T, .|
00009e70 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&|
00009e80 31 33 43 2c 61 6e 69 6d 61 72 65 61 25 2c 22 61 |13C,animarea%,"a|
00009e90 6e 69 6d 22 2c 30 0d 2e 5e 44 20 ef 32 33 2c 31 |nim",0..^D .23,1|
00009ea0 32 2c 31 35 2c 30 2c 30 2c 31 35 2c 31 35 2c 30 |2,15,0,0,15,15,0|
00009eb0 2c 30 2c 31 35 3a ef 31 38 2c 31 36 2c 30 3a ef |,0,15:.18,16,0:.|
00009ec0 32 35 2c 34 2c 30 3b 30 3b 3a ef 32 35 2c 31 30 |25,4,0;0;:.25,10|
00009ed0 31 2c 38 31 30 3b 36 34 34 3b 0d 2e 68 29 20 ef |1,810;644;..h) .|
00009ee0 31 38 2c 30 2c 31 35 3a ef 32 35 2c 34 2c 30 3b |18,0,15:.25,4,0;|
00009ef0 30 3b 3a ef 32 35 2c 31 30 31 2c 38 31 30 3b 32 |0;:.25,101,810;2|
00009f00 37 34 3b 0d 2e 72 1e 20 e7 73 75 62 25 3e 3d 33 |74;..r. .sub%>=3|
00009f10 33 3a f2 66 6c 69 70 28 32 2c 22 6c 61 6e 64 22 |3:.flip(2,"land"|
00009f20 29 0d 2e 7c 46 20 e7 28 73 75 62 25 3c 3d 31 35 |)..|F .(sub%<=15|
00009f30 29 84 28 73 75 62 25 3e 3d 35 30 29 3a c8 99 22 |).(sub%>=50):.."|
00009f40 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
00009f50 32 2c 64 65 74 61 72 65 61 25 2c 22 6c 61 6e 64 |2,detarea%,"land|
00009f60 22 2c 30 2c 30 2c 38 0d 2e 86 52 20 e7 28 73 75 |",0,0,8...R .(su|
00009f70 62 25 3e 3d 31 36 29 80 28 73 75 62 25 3c 3d 33 |b%>=16).(sub%<=3|
00009f80 32 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f |2):.."OS_SpriteO|
00009f90 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 |p",&122,detarea%|
00009fa0 2c 22 6c 61 6e 64 22 2c 2d 35 30 2a 28 73 75 62 |,"land",-50*(sub|
00009fb0 25 2d 31 35 29 2c 30 2c 38 0d 2e 90 57 20 e7 28 |%-15),0,8...W .(|
00009fc0 73 75 62 25 3e 3d 33 33 29 80 28 73 75 62 25 3c |sub%>=33).(sub%<|
00009fd0 3d 34 39 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 |=49):.."OS_Sprit|
00009fe0 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 |eOp",&122,detare|
00009ff0 61 25 2c 22 6c 61 6e 64 22 2c 38 30 30 2d 28 35 |a%,"land",800-(5|
0000a000 30 2a 28 73 75 62 25 2d 33 33 29 29 2c 30 2c 38 |0*(sub%-33)),0,8|
0000a010 0d 2e 9a 1e 20 e7 73 75 62 25 3e 3d 33 33 3a f2 |.... .sub%>=33:.|
0000a020 66 6c 69 70 28 32 2c 22 6c 61 6e 64 22 29 0d 2e |flip(2,"land")..|
0000a030 a4 3b 20 e7 73 75 62 25 3c 3d 31 35 3a c8 99 22 |.; .sub%<=15:.."|
0000a040 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
0000a050 32 2c 64 65 74 61 72 65 61 25 2c 22 70 61 6c 6d |2,detarea%,"palm|
0000a060 22 2c 34 30 2c 36 38 2c 38 0d 2e ae 57 20 e7 28 |",40,68,8...W .(|
0000a070 73 75 62 25 3e 3d 31 36 29 80 28 73 75 62 25 3c |sub%>=16).(sub%<|
0000a080 3d 32 35 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 |=25):.."OS_Sprit|
0000a090 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 |eOp",&122,detare|
0000a0a0 61 25 2c 22 70 61 6c 6d 22 2c 34 30 2d 28 35 30 |a%,"palm",40-(50|
0000a0b0 2a 28 73 75 62 25 2d 31 35 29 29 2c 36 38 2c 38 |*(sub%-15)),68,8|
0000a0c0 0d 2e b8 43 20 e7 73 75 62 25 3c 3d 34 3a c8 99 |...C .sub%<=4:..|
0000a0d0 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
0000a0e0 32 32 2c 64 65 74 61 72 65 61 25 2c 22 63 6f 63 |22,detarea%,"coc|
0000a0f0 30 22 2c 32 36 36 2c 63 6f 63 25 28 73 75 62 25 |0",266,coc%(sub%|
0000a100 29 2c 38 0d 2e c2 50 20 e7 28 73 75 62 25 3e 3d |),8...P .(sub%>=|
0000a110 35 29 80 28 73 75 62 25 3c 3d 38 29 3a c8 99 22 |5).(sub%<=8):.."|
0000a120 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
0000a130 32 2c 64 65 74 61 72 65 61 25 2c 22 63 6f 63 22 |2,detarea%,"coc"|
0000a140 2b c3 28 73 75 62 25 2d 34 29 2c 32 32 34 2c 38 |+.(sub%-4),224,8|
0000a150 30 2c 38 0d 2e cc 63 20 e7 28 73 75 62 25 3e 3d |0,8...c .(sub%>=|
0000a160 39 29 80 28 73 75 62 25 3c 3d 31 35 29 3a c8 99 |9).(sub%<=15):..|
0000a170 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
0000a180 32 32 2c 64 65 74 61 72 65 61 25 2c 22 63 6f 63 |22,detarea%,"coc|
0000a190 22 2b c3 28 35 2b 28 73 75 62 25 83 32 29 29 2c |"+.(5+(sub%.2)),|
0000a1a0 32 36 36 2b 28 32 30 2a 28 73 75 62 25 2d 39 29 |266+(20*(sub%-9)|
0000a1b0 29 2c 38 38 2c 38 0d 2e d6 56 20 e7 28 73 75 62 |),88,8...V .(sub|
0000a1c0 25 3e 3d 31 36 29 80 28 73 75 62 25 3c 3d 34 39 |%>=16).(sub%<=49|
0000a1d0 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 |):.."OS_SpriteOp|
0000a1e0 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 2c |",&122,detarea%,|
0000a1f0 22 63 6f 63 22 2b c3 28 35 2b 28 73 75 62 25 83 |"coc"+.(5+(sub%.|
0000a200 32 29 29 2c 33 38 36 2c 38 38 2c 38 0d 2e e0 65 |2)),386,88,8...e|
0000a210 20 e7 28 73 75 62 25 3e 3d 35 30 29 80 28 73 75 | .(sub%>=50).(su|
0000a220 62 25 3c 3d 36 30 29 3a c8 99 22 4f 53 5f 53 70 |b%<=60):.."OS_Sp|
0000a230 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 74 |riteOp",&122,det|
0000a240 61 72 65 61 25 2c 22 63 6f 63 22 2b c3 28 35 2b |area%,"coc"+.(5+|
0000a250 28 73 75 62 25 83 32 29 29 2c 33 38 36 2b 28 32 |(sub%.2)),386+(2|
0000a260 30 2a 28 73 75 62 25 2d 34 39 29 29 2c 38 38 2c |0*(sub%-49)),88,|
0000a270 38 0d 2e ea 58 20 e7 28 73 75 62 25 3e 3d 36 31 |8...X .(sub%>=61|
0000a280 29 80 28 73 75 62 25 3c 3d 36 34 29 3a c8 99 22 |).(sub%<=64):.."|
0000a290 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
0000a2a0 32 2c 64 65 74 61 72 65 61 25 2c 22 63 6f 63 37 |2,detarea%,"coc7|
0000a2b0 22 2c 36 32 36 2b 28 32 30 2a 28 73 75 62 25 2d |",626+(20*(sub%-|
0000a2c0 36 31 29 29 2c 38 38 2c 38 0d 2e f4 33 20 e7 73 |61)),88,8...3 .s|
0000a2d0 75 62 25 3c 3d 31 35 3a f2 6d 6f 76 65 65 6e 64 |ub%<=15:.moveend|
0000a2e0 6c 6f 6f 70 28 31 2c 22 30 36 34 22 2c 32 32 34 |loop(1,"064",224|
0000a2f0 2c 38 30 2c 34 34 30 2c 34 38 30 29 0d 2e fe 3d |,80,440,480)...=|
0000a300 20 e7 28 73 75 62 25 3e 3d 31 36 29 80 28 73 75 | .(sub%>=16).(su|
0000a310 62 25 3c 3d 34 39 29 3a f2 6d 6f 76 65 65 6e 64 |b%<=49):.moveend|
0000a320 6c 6f 6f 70 28 31 2c 22 30 36 34 22 2c 30 2c 30 |loop(1,"064",0,0|
0000a330 2c 38 31 30 2c 36 34 34 29 0d 2f 08 33 20 e7 73 |,810,644)./.3 .s|
0000a340 75 62 25 3e 3d 35 30 3a f2 6d 6f 76 65 65 6e 64 |ub%>=50:.moveend|
0000a350 6c 6f 6f 70 28 31 2c 22 30 36 34 22 2c 33 38 30 |loop(1,"064",380|
0000a360 2c 38 38 2c 37 34 30 2c 31 34 30 29 0d 2f 12 05 |,88,740,140)./..|
0000a370 cd 0d 2f 1c 0b 73 75 62 25 2b 3d 31 0d 2f 26 57 |../..sub%+=1./&W|
0000a380 e7 73 75 62 25 3d 36 36 3a f2 6d 61 6b 65 61 6e |.sub%=66:.makean|
0000a390 69 6d 28 61 63 74 6d 65 6e 75 25 2c 61 63 74 61 |im(actmenu%,acta|
0000a3a0 6e 69 6d 25 2c 62 67 25 28 61 63 74 61 6e 69 6d |nim%,bg%(actanim|
0000a3b0 25 29 29 3a f2 61 6e 69 6d 61 74 65 65 6e 64 3a |%)):.animateend:|
0000a3c0 f2 70 6c 6f 74 61 6e 69 6d 28 61 63 74 61 6e 69 |.plotanim(actani|
0000a3d0 6d 25 29 0d 2f 30 05 e1 0d 2f 3a 04 0d 2f 44 04 |m%)./0.../:../D.|
0000a3e0 0d 2f 4e 3e dd f2 62 6f 78 65 78 70 28 73 25 2c |./N>..boxexp(s%,|
0000a3f0 6e 6f 6f 66 25 2c 78 25 2c 79 25 2c 64 78 25 2c |noof%,x%,y%,dx%,|
0000a400 64 79 25 2c 73 69 7a 78 25 2c 73 69 7a 79 25 2c |dy%,sizx%,sizy%,|
0000a410 64 73 69 7a 78 25 2c 64 73 69 7a 79 25 29 0d 2f |dsizx%,dsizy%)./|
0000a420 58 54 f4 20 73 25 20 67 6f 65 73 20 66 72 6f 6d |XT. s% goes from|
0000a430 20 30 20 74 6f 20 6e 6f 6f 66 25 3a 78 2c 79 20 | 0 to noof%:x,y |
0000a440 6f 72 69 67 20 6c 65 66 74 62 6f 74 20 63 6f 72 |orig leftbot cor|
0000a450 6e 65 72 3a 64 78 2c 64 79 20 68 6f 77 20 6c 65 |ner:dx,dy how le|
0000a460 66 74 62 6f 74 20 63 6f 72 6e 65 72 20 6d 6f 76 |ftbot corner mov|
0000a470 65 73 0d 2f 62 40 f4 20 73 69 7a 78 2c 73 69 7a |es./b@. sizx,siz|
0000a480 79 20 65 63 20 73 69 7a 65 20 6f 66 20 6f 72 69 |y ec size of ori|
0000a490 67 20 62 6f 78 3a 64 73 69 7a 78 2c 64 73 69 7a |g box:dsizx,dsiz|
0000a4a0 79 20 69 6e 63 72 20 69 6e 20 62 6f 78 20 73 69 |y incr in box si|
0000a4b0 7a 65 0d 2f 6c 0f e7 73 25 3e 6e 6f 6f 66 25 3a |ze./l..s%>noof%:|
0000a4c0 e1 0d 2f 76 0e e7 73 25 3d 6e 6f 6f 66 25 8c 0d |../v..s%=noof%..|
0000a4d0 2f 80 0a 20 73 25 2d 3d 31 0d 2f 8a 19 20 c8 99 |/.. s%-=1./.. ..|
0000a4e0 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 |"Wimp_SetColour"|
0000a4f0 2c 37 0d 2f 94 6c 20 ef 32 35 2c 34 2c 78 25 2b |,7./.l .25,4,x%+|
0000a500 28 64 78 25 2a 73 25 29 3b 79 25 2b 28 64 79 25 |(dx%*s%);y%+(dy%|
0000a510 2a 73 25 29 3b 3a ef 32 35 2c 31 30 31 2c 78 25 |*s%);:.25,101,x%|
0000a520 2b 28 64 78 25 2a 73 25 29 2b 73 69 7a 78 25 2b |+(dx%*s%)+sizx%+|
0000a530 28 64 73 69 7a 78 25 2a 73 25 29 2d 32 3b 79 25 |(dsizx%*s%)-2;y%|
0000a540 2b 28 64 79 25 2a 73 25 29 2b 73 69 7a 79 25 2b |+(dy%*s%)+sizy%+|
0000a550 28 64 73 69 7a 79 25 2a 73 25 29 2d 32 3b 0d 2f |(dsizy%*s%)-2;./|
0000a560 9e 19 20 c8 99 22 57 69 6d 70 5f 53 65 74 43 6f |.. .."Wimp_SetCo|
0000a570 6c 6f 75 72 22 2c 39 0d 2f a8 70 20 ef 32 35 2c |lour",9./.p .25,|
0000a580 34 2c 78 25 2b 28 64 78 25 2a 73 25 29 2b 34 3b |4,x%+(dx%*s%)+4;|
0000a590 79 25 2b 28 64 79 25 2a 73 25 29 2b 34 3b 3a ef |y%+(dy%*s%)+4;:.|
0000a5a0 32 35 2c 31 30 31 2c 78 25 2b 28 64 78 25 2a 73 |25,101,x%+(dx%*s|
0000a5b0 25 29 2b 73 69 7a 78 25 2b 28 64 73 69 7a 78 25 |%)+sizx%+(dsizx%|
0000a5c0 2a 73 25 29 2d 36 3b 79 25 2b 28 64 79 25 2a 73 |*s%)-6;y%+(dy%*s|
0000a5d0 25 29 2b 73 69 7a 79 25 2b 28 64 73 69 7a 79 25 |%)+sizy%+(dsizy%|
0000a5e0 2a 73 25 29 2d 36 3b 0d 2f b2 19 20 c8 99 22 57 |*s%)-6;./.. .."W|
0000a5f0 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 37 |imp_SetColour",7|
0000a600 0d 2f bc 72 20 ef 32 35 2c 34 2c 78 25 2b 28 64 |./.r .25,4,x%+(d|
0000a610 78 25 2a 73 25 29 2b 38 3b 79 25 2b 28 64 79 25 |x%*s%)+8;y%+(dy%|
0000a620 2a 73 25 29 2b 38 3b 3a ef 32 35 2c 31 30 31 2c |*s%)+8;:.25,101,|
0000a630 78 25 2b 28 64 78 25 2a 73 25 29 2b 73 69 7a 78 |x%+(dx%*s%)+sizx|
0000a640 25 2b 28 64 73 69 7a 78 25 2a 73 25 29 2d 31 30 |%+(dsizx%*s%)-10|
0000a650 3b 79 25 2b 28 64 79 25 2a 73 25 29 2b 73 69 7a |;y%+(dy%*s%)+siz|
0000a660 79 25 2b 28 64 73 69 7a 79 25 2a 73 25 29 2d 31 |y%+(dsizy%*s%)-1|
0000a670 30 3b 0d 2f c6 0a 20 73 25 2b 3d 31 0d 2f d0 05 |0;./.. s%+=1./..|
0000a680 cd 0d 2f da 0e e7 73 25 3c 6e 6f 6f 66 25 8c 0d |../...s%<noof%..|
0000a690 2f e4 19 20 c8 99 22 57 69 6d 70 5f 53 65 74 43 |/.. .."Wimp_SetC|
0000a6a0 6f 6c 6f 75 72 22 2c 39 0d 2f ee 46 20 f2 62 6f |olour",9./.F .bo|
0000a6b0 78 28 78 25 2b 28 64 78 25 2a 73 25 29 2c 79 25 |x(x%+(dx%*s%),y%|
0000a6c0 2b 28 64 79 25 2a 73 25 29 2c 73 69 7a 78 25 2b |+(dy%*s%),sizx%+|
0000a6d0 28 64 73 69 7a 78 25 2a 73 25 29 2c 73 69 7a 79 |(dsizx%*s%),sizy|
0000a6e0 25 2b 28 64 73 69 7a 79 25 2a 73 25 29 29 0d 2f |%+(dsizy%*s%))./|
0000a6f0 f8 05 cd 0d 30 02 05 e1 0d 30 0c 04 0d 30 16 18 |....0....0...0..|
0000a700 dd f2 62 6f 78 28 78 25 2c 79 25 2c 73 78 25 2c |..box(x%,y%,sx%,|
0000a710 73 79 25 29 0d 30 20 27 ef 32 35 2c 34 2c 78 25 |sy%).0 '.25,4,x%|
0000a720 3b 79 25 3b 3a ef 32 35 2c 31 30 31 2c 78 25 2b |;y%;:.25,101,x%+|
0000a730 32 3b 79 25 2b 73 79 25 2d 32 3b 0d 30 2a 31 ef |2;y%+sy%-2;.0*1.|
0000a740 32 35 2c 34 2c 78 25 3b 79 25 2b 73 79 25 2d 34 |25,4,x%;y%+sy%-4|
0000a750 3b 3a ef 32 35 2c 31 30 31 2c 78 25 2b 73 78 25 |;:.25,101,x%+sx%|
0000a760 2d 32 3b 79 25 2b 73 79 25 2d 32 3b 0d 30 34 31 |-2;y%+sy%-2;.041|
0000a770 ef 32 35 2c 34 2c 78 25 2b 73 78 25 2d 34 3b 79 |.25,4,x%+sx%-4;y|
0000a780 25 2b 73 79 25 2d 32 3b 3a ef 32 35 2c 31 30 31 |%+sy%-2;:.25,101|
0000a790 2c 78 25 2b 73 78 25 2d 32 3b 79 25 3b 0d 30 3e |,x%+sx%-2;y%;.0>|
0000a7a0 27 ef 32 35 2c 34 2c 78 25 2b 73 78 25 2d 32 3b |'.25,4,x%+sx%-2;|
0000a7b0 79 25 2b 32 3b 3a ef 32 35 2c 31 30 31 2c 78 25 |y%+2;:.25,101,x%|
0000a7c0 3b 79 25 3b 0d 30 48 05 e1 0d 30 52 04 0d 30 5c |;y%;.0H...0R..0\|
0000a7d0 13 dd f2 70 6c 6f 74 61 6e 69 6d 28 61 61 25 29 |...plotanim(aa%)|
0000a7e0 0d 30 66 27 e7 61 61 25 3d 2d 31 3a 21 62 6c 6b |.0f'.aa%=-1:!blk|
0000a7f0 25 3d 61 6e 6d 65 77 25 3a 8b 3a 21 62 6c 6b 25 |%=anmew%:.:!blk%|
0000a800 3d 61 6e 69 6d 77 25 0d 30 70 21 c8 99 22 57 69 |=animw%.0p!.."Wi|
0000a810 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 |mp_GetWindowStat|
0000a820 65 22 2c 2c 62 6c 6b 25 0d 30 7a 38 73 70 78 25 |e",,blk%.0z8spx%|
0000a830 3d 62 6c 6b 25 21 34 2d 62 6c 6b 25 21 32 30 2b |=blk%!4-blk%!20+|
0000a840 31 36 3a 73 70 79 25 3d 28 62 6c 6b 25 21 31 36 |16:spy%=(blk%!16|
0000a850 2d 62 6c 6b 25 21 32 34 29 2d 37 36 2d 36 34 34 |-blk%!24)-76-644|
0000a860 0d 30 84 30 62 6c 6b 25 21 34 3d 30 3a 62 6c 6b |.0.0blk%!4=0:blk|
0000a870 25 21 38 3d 2d 37 32 30 3a 62 6c 6b 25 21 31 32 |%!8=-720:blk%!12|
0000a880 3d 38 33 30 3a 62 6c 6b 25 21 31 36 3d 2d 37 32 |=830:blk%!16=-72|
0000a890 0d 30 8e 28 c8 99 20 22 57 69 6d 70 5f 55 70 64 |.0.(.. "Wimp_Upd|
0000a8a0 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 |ateWindow",,blk%|
0000a8b0 20 b8 20 6d 6f 72 65 25 0d 30 98 0c c8 95 20 6d | . more%.0.... m|
0000a8c0 6f 72 65 25 0d 30 a2 47 c8 99 20 22 4f 53 5f 53 |ore%.0.G.. "OS_S|
0000a8d0 70 72 69 74 65 4f 70 22 2c 26 31 33 34 2c 61 6e |priteOp",&134,an|
0000a8e0 69 6d 61 72 65 61 25 2c 22 61 6e 69 6d 22 2c 73 |imarea%,"anim",s|
0000a8f0 70 78 25 2c 73 70 79 25 2c 30 2c 73 63 61 6c 65 |px%,spy%,0,scale|
0000a900 25 2c 63 6f 6c 74 72 61 6e 73 25 0d 30 ac 28 c8 |%,coltrans%.0.(.|
0000a910 99 20 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 |. "Wimp_GetRecta|
0000a920 6e 67 6c 65 22 2c 2c 62 6c 6b 25 20 b8 20 6d 6f |ngle",,blk% . mo|
0000a930 72 65 25 0d 30 b6 05 ce 0d 30 c0 05 e1 0d 30 ca |re%.0....0....0.|
0000a940 04 0d 30 d4 23 dd f2 70 6c 6f 74 61 6e 69 6d 6d |..0.#..plotanimm|
0000a950 6f 76 65 28 6c 65 25 2c 6c 6f 25 2c 72 69 25 2c |ove(le%,lo%,ri%,|
0000a960 68 69 25 29 0d 30 de 2e 21 62 6c 6b 25 3d 61 6e |hi%).0..!blk%=an|
0000a970 69 6d 77 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 |imw%:.."Wimp_Get|
0000a980 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c |WindowState",,bl|
0000a990 6b 25 0d 30 e8 38 73 70 78 25 3d 62 6c 6b 25 21 |k%.0.8spx%=blk%!|
0000a9a0 34 2d 62 6c 6b 25 21 32 30 2b 31 36 3a 73 70 79 |4-blk%!20+16:spy|
0000a9b0 25 3d 28 62 6c 6b 25 21 31 36 2d 62 6c 6b 25 21 |%=(blk%!16-blk%!|
0000a9c0 32 34 29 2d 37 36 2d 36 34 34 0d 30 f2 4c 21 62 |24)-76-644.0.L!b|
0000a9d0 6c 6b 25 3d 61 6e 69 6d 77 25 3a 62 6c 6b 25 21 |lk%=animw%:blk%!|
0000a9e0 34 3d 31 36 2b 6c 65 25 3a 62 6c 6b 25 21 38 3d |4=16+le%:blk%!8=|
0000a9f0 6c 6f 25 2d 37 32 30 3a 62 6c 6b 25 21 31 32 3d |lo%-720:blk%!12=|
0000aa00 31 36 2b 72 69 25 3a 62 6c 6b 25 21 31 36 3d 68 |16+ri%:blk%!16=h|
0000aa10 69 25 2d 37 32 30 0d 30 fc 28 c8 99 20 22 57 69 |i%-720.0.(.. "Wi|
0000aa20 6d 70 5f 55 70 64 61 74 65 57 69 6e 64 6f 77 22 |mp_UpdateWindow"|
0000aa30 2c 2c 62 6c 6b 25 20 b8 20 6d 6f 72 65 25 0d 31 |,,blk% . more%.1|
0000aa40 06 0c c8 95 20 6d 6f 72 65 25 0d 31 10 47 c8 99 |.... more%.1.G..|
0000aa50 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 | "OS_SpriteOp",&|
0000aa60 31 33 34 2c 61 6e 69 6d 61 72 65 61 25 2c 22 61 |134,animarea%,"a|
0000aa70 6e 69 6d 22 2c 73 70 78 25 2c 73 70 79 25 2c 30 |nim",spx%,spy%,0|
0000aa80 2c 73 63 61 6c 65 25 2c 63 6f 6c 74 72 61 6e 73 |,scale%,coltrans|
0000aa90 25 0d 31 1a 28 c8 99 20 22 57 69 6d 70 5f 47 65 |%.1.(.. "Wimp_Ge|
0000aaa0 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 6c 6b |tRectangle",,blk|
0000aab0 25 20 b8 20 6d 6f 72 65 25 0d 31 24 05 ce 0d 31 |% . more%.1$...1|
0000aac0 2e 05 e1 0d 31 38 04 0d 31 42 1b dd f2 63 6f 70 |....18..1B...cop|
0000aad0 79 73 70 28 66 72 6f 6d 73 70 24 2c 74 6f 73 70 |ysp(fromsp$,tosp|
0000aae0 24 29 0d 31 4c 15 e7 66 72 6f 6d 73 70 24 3d 22 |$).1L..fromsp$="|
0000aaf0 61 6e 69 6d 22 20 8c 0d 31 56 29 20 66 72 6f 6d |anim" ..1V) from|
0000ab00 61 72 65 61 25 3d 61 6e 69 6d 61 72 65 61 25 3a |area%=animarea%:|
0000ab10 74 6f 61 72 65 61 25 3d 64 65 74 61 72 65 61 25 |toarea%=detarea%|
0000ab20 0d 31 60 05 cc 0d 31 6a 61 20 e7 c0 66 72 6f 6d |.1`...1ja ..from|
0000ab30 73 70 24 2c 32 29 3d 22 62 67 22 3a 66 72 6f 6d |sp$,2)="bg":from|
0000ab40 61 72 65 61 25 3d 62 67 61 72 65 61 25 3a 74 6f |area%=bgarea%:to|
0000ab50 61 72 65 61 25 3d 61 6e 69 6d 61 72 65 61 25 3a |area%=animarea%:|
0000ab60 8b 3a 66 72 6f 6d 61 72 65 61 25 3d 64 65 74 61 |.:fromarea%=deta|
0000ab70 72 65 61 25 3a 74 6f 61 72 65 61 25 3d 61 6e 69 |rea%:toarea%=ani|
0000ab80 6d 61 72 65 61 25 0d 31 74 05 cd 0d 31 7e 28 c8 |marea%.1t...1~(.|
0000ab90 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 |."OS_SpriteOp",&|
0000aba0 31 33 43 2c 74 6f 61 72 65 61 25 2c 74 6f 73 70 |13C,toarea%,tosp|
0000abb0 24 2c 30 0d 31 88 30 c8 99 22 4f 53 5f 53 70 72 |$,0.1.0.."OS_Spr|
0000abc0 69 74 65 4f 70 22 2c 26 31 32 32 2c 66 72 6f 6d |iteOp",&122,from|
0000abd0 61 72 65 61 25 2c 66 72 6f 6d 73 70 24 2c 30 2c |area%,fromsp$,0,|
0000abe0 30 2c 30 0d 31 92 24 c8 99 22 4f 53 5f 53 70 72 |0,0.1.$.."OS_Spr|
0000abf0 69 74 65 4f 70 22 2c 26 31 33 43 2c 74 6f 61 72 |iteOp",&13C,toar|
0000ac00 65 61 25 2c 30 2c 31 0d 31 9c 05 e1 0d 31 a6 04 |ea%,0,1.1....1..|
0000ac10 0d 31 b0 17 dd f2 69 6e 69 74 61 6e 6d 65 77 6c |.1....initanmewl|
0000ac20 61 62 73 28 6d 25 29 0d 31 ba 08 ea 20 6a 25 0d |abs(m%).1... j%.|
0000ac30 31 c4 35 e7 6d 25 3e 30 3a f2 68 69 64 65 69 63 |1.5.m%>0:.hideic|
0000ac40 6e 28 61 6e 6d 65 77 25 2c 30 2c b9 29 3a 8b 3a |n(anmew%,0,.):.:|
0000ac50 f2 68 69 64 65 69 63 6e 28 61 6e 6d 65 77 25 2c |.hideicn(anmew%,|
0000ac60 30 2c a3 29 0d 31 ce 0b c8 8e 20 6d 25 20 ca 0d |0,.).1.... m% ..|
0000ac70 31 d8 2a 20 c9 20 30 3a 20 e3 6a 25 3d 35 b8 33 |1.* . 0: .j%=5.3|
0000ac80 33 3a f2 68 69 64 65 69 63 6e 28 61 6e 6d 65 77 |3:.hideicn(anmew|
0000ac90 25 2c 6a 25 2c b9 29 3a ed 0d 31 e2 41 20 c9 20 |%,j%,.):..1.A . |
0000aca0 31 3a 20 e3 6a 25 3d 35 b8 39 3a f2 68 69 64 65 |1: .j%=5.9:.hide|
0000acb0 69 63 6e 28 61 6e 6d 65 77 25 2c 6a 25 2c a3 29 |icn(anmew%,j%,.)|
0000acc0 3a f2 73 65 6c 65 63 74 69 63 6e 28 61 6e 6d 65 |:.selecticn(anme|
0000acd0 77 25 2c 6a 25 2c a3 29 3a ed 0d 31 ec 2e 20 20 |w%,j%,.):..1.. |
0000ace0 20 20 20 20 20 20 20 e3 6a 25 3d 31 30 b8 33 33 | .j%=10.33|
0000acf0 3a f2 68 69 64 65 69 63 6e 28 61 6e 6d 65 77 25 |:.hideicn(anmew%|
0000ad00 2c 6a 25 2c b9 29 3a ed 0d 31 f6 29 20 c9 20 32 |,j%,.):..1.) . 2|
0000ad10 3a 20 e3 6a 25 3d 35 b8 39 3a f2 68 69 64 65 69 |: .j%=5.9:.hidei|
0000ad20 63 6e 28 61 6e 6d 65 77 25 2c 6a 25 2c b9 29 3a |cn(anmew%,j%,.):|
0000ad30 ed 0d 32 00 46 20 20 20 20 20 20 20 20 20 e3 6a |..2.F .j|
0000ad40 25 3d 31 30 b8 31 35 3a f2 68 69 64 65 69 63 6e |%=10.15:.hideicn|
0000ad50 28 61 6e 6d 65 77 25 2c 6a 25 2c a3 29 3a f2 73 |(anmew%,j%,.):.s|
0000ad60 65 6c 65 63 74 69 63 6e 28 61 6e 6d 65 77 25 2c |electicn(anmew%,|
0000ad70 6a 25 2c a3 29 3a ed 0d 32 0a 2e 20 20 20 20 20 |j%,.):..2.. |
0000ad80 20 20 20 20 e3 6a 25 3d 31 36 b8 33 33 3a f2 68 | .j%=16.33:.h|
0000ad90 69 64 65 69 63 6e 28 61 6e 6d 65 77 25 2c 6a 25 |ideicn(anmew%,j%|
0000ada0 2c b9 29 3a ed 0d 32 14 2a 20 c9 20 33 3a 20 e3 |,.):..2.* . 3: .|
0000adb0 6a 25 3d 35 b8 31 35 3a f2 68 69 64 65 69 63 6e |j%=5.15:.hideicn|
0000adc0 28 61 6e 6d 65 77 25 2c 6a 25 2c b9 29 3a ed 0d |(anmew%,j%,.):..|
0000add0 32 1e 46 20 20 20 20 20 20 20 20 20 e3 6a 25 3d |2.F .j%=|
0000ade0 31 36 b8 32 30 3a f2 68 69 64 65 69 63 6e 28 61 |16.20:.hideicn(a|
0000adf0 6e 6d 65 77 25 2c 6a 25 2c a3 29 3a f2 73 65 6c |nmew%,j%,.):.sel|
0000ae00 65 63 74 69 63 6e 28 61 6e 6d 65 77 25 2c 6a 25 |ecticn(anmew%,j%|
0000ae10 2c a3 29 3a ed 0d 32 28 2e 20 20 20 20 20 20 20 |,.):..2(. |
0000ae20 20 20 e3 6a 25 3d 32 31 b8 33 33 3a f2 68 69 64 | .j%=21.33:.hid|
0000ae30 65 69 63 6e 28 61 6e 6d 65 77 25 2c 6a 25 2c b9 |eicn(anmew%,j%,.|
0000ae40 29 3a ed 0d 32 32 2a 20 c9 20 34 3a 20 e3 6a 25 |):..22* . 4: .j%|
0000ae50 3d 35 b8 32 30 3a f2 68 69 64 65 69 63 6e 28 61 |=5.20:.hideicn(a|
0000ae60 6e 6d 65 77 25 2c 6a 25 2c b9 29 3a ed 0d 32 3c |nmew%,j%,.):..2<|
0000ae70 46 20 20 20 20 20 20 20 20 20 e3 6a 25 3d 32 31 |F .j%=21|
0000ae80 b8 32 34 3a f2 68 69 64 65 69 63 6e 28 61 6e 6d |.24:.hideicn(anm|
0000ae90 65 77 25 2c 6a 25 2c a3 29 3a f2 73 65 6c 65 63 |ew%,j%,.):.selec|
0000aea0 74 69 63 6e 28 61 6e 6d 65 77 25 2c 6a 25 2c a3 |ticn(anmew%,j%,.|
0000aeb0 29 3a ed 0d 32 46 2e 20 20 20 20 20 20 20 20 20 |):..2F. |
0000aec0 e3 6a 25 3d 32 35 b8 33 33 3a f2 68 69 64 65 69 |.j%=25.33:.hidei|
0000aed0 63 6e 28 61 6e 6d 65 77 25 2c 6a 25 2c b9 29 3a |cn(anmew%,j%,.):|
0000aee0 ed 0d 32 50 2a 20 c9 20 35 3a 20 e3 6a 25 3d 35 |..2P* . 5: .j%=5|
0000aef0 b8 32 34 3a f2 68 69 64 65 69 63 6e 28 61 6e 6d |.24:.hideicn(anm|
0000af00 65 77 25 2c 6a 25 2c b9 29 3a ed 0d 32 5a 46 20 |ew%,j%,.):..2ZF |
0000af10 20 20 20 20 20 20 20 20 e3 6a 25 3d 32 35 b8 33 | .j%=25.3|
0000af20 33 3a f2 68 69 64 65 69 63 6e 28 61 6e 6d 65 77 |3:.hideicn(anmew|
0000af30 25 2c 6a 25 2c a3 29 3a f2 73 65 6c 65 63 74 69 |%,j%,.):.selecti|
0000af40 63 6e 28 61 6e 6d 65 77 25 2c 6a 25 2c a3 29 3a |cn(anmew%,j%,.):|
0000af50 ed 0d 32 64 05 cb 0d 32 6e 05 e1 0d 32 78 04 0d |..2d...2n...2x..|
0000af60 32 82 18 dd f2 73 65 74 65 78 74 65 6e 74 28 77 |2....setextent(w|
0000af70 25 2c 73 69 7a 25 29 0d 32 8c 2d 21 62 6c 6b 25 |%,siz%).2.-!blk%|
0000af80 3d 30 3a 62 6c 6b 25 21 34 3d 2d 73 69 7a 25 3a |=0:blk%!4=-siz%:|
0000af90 62 6c 6b 25 21 38 3d 38 34 32 3a 62 6c 6b 25 21 |blk%!8=842:blk%!|
0000afa0 31 32 3d 30 0d 32 96 1e c8 99 22 57 69 6d 70 5f |12=0.2...."Wimp_|
0000afb0 53 65 74 45 78 74 65 6e 74 22 2c 77 25 2c 62 6c |SetExtent",w%,bl|
0000afc0 6b 25 0d 32 a0 05 e1 0d 32 aa 04 0d 32 b4 11 dd |k%.2....2...2...|
0000afd0 f2 72 65 73 69 7a 65 61 6e 6d 65 77 0d 32 be 31 |.resizeanmew.2.1|
0000afe0 21 62 6c 6b 32 25 3d 61 6e 6d 65 77 25 3a c8 99 |!blk2%=anmew%:..|
0000aff0 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 | "Wimp_GetWindow|
0000b000 53 74 61 74 65 22 2c 2c 62 6c 6b 32 25 0d 32 c8 |State",,blk2%.2.|
0000b010 2d 21 62 6c 6b 25 3d 61 6e 6d 65 77 25 3a c8 99 |-!blk%=anmew%:..|
0000b020 20 22 57 69 6d 70 5f 44 65 6c 65 74 65 57 69 6e | "Wimp_DeleteWin|
0000b030 64 6f 77 22 2c 2c 62 6c 6b 25 0d 32 d2 1a 21 28 |dow",,blk%.2..!(|
0000b040 28 77 69 6e 73 74 61 72 74 73 25 21 38 29 2b 35 |(winstarts%!8)+5|
0000b050 32 29 3d 30 0d 32 dc 31 c8 99 20 22 57 69 6d 70 |2)=0.2.1.. "Wimp|
0000b060 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c |_CreateWindow",,|
0000b070 77 69 6e 73 74 61 72 74 73 25 21 38 20 b8 20 61 |winstarts%!8 . a|
0000b080 6e 6d 65 77 25 0d 32 e6 05 e1 0d 32 f0 04 0d 32 |nmew%.2....2...2|
0000b090 fa 13 dd f2 63 6c 6f 73 65 77 69 6e 64 28 62 25 |....closewind(b%|
0000b0a0 29 0d 33 04 1d c8 99 20 22 57 69 6d 70 5f 43 6c |).3.... "Wimp_Cl|
0000b0b0 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 25 0d 33 |oseWindow",,b%.3|
0000b0c0 0e 05 e1 0d 33 18 04 0d 33 22 12 dd f2 6f 70 65 |....3...3"...ope|
0000b0d0 6e 77 69 6e 64 28 62 25 29 0d 33 2c 1c c8 99 20 |nwind(b%).3,... |
0000b0e0 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 |"Wimp_OpenWindow|
0000b0f0 22 2c 2c 62 25 0d 33 36 05 e1 0d 33 40 04 0d 33 |",,b%.36...3@..3|
0000b100 4a 1f dd f2 63 6c 69 63 6b 28 6d 78 25 2c 6d 79 |J...click(mx%,my|
0000b110 25 2c 62 75 74 25 2c 77 25 2c 69 25 29 0d 33 54 |%,but%,w%,i%).3T|
0000b120 0b c8 8e 20 77 25 20 ca 0d 33 5e 0b 20 20 c9 20 |... w% ..3^. . |
0000b130 2d 32 3a 0d 33 68 11 20 20 20 20 c8 8e 20 62 75 |-2:.3h. .. bu|
0000b140 74 25 20 ca 0d 33 72 48 20 20 20 20 20 20 c9 20 |t% ..3rH . |
0000b150 32 3a 20 f2 6d 61 73 74 65 72 5f 6d 65 6e 75 28 |2: .master_menu(|
0000b160 22 50 6c 61 6e 74 77 69 73 65 22 2c 22 49 6e 66 |"Plantwise","Inf|
0000b170 6f 2c 53 65 74 75 70 2e 2e 2e 2c 37 51 75 69 74 |o,Setup...,7Quit|
0000b180 2c 22 2c 21 65 62 25 2c 32 31 36 29 0d 33 7c 25 |,",!eb%,216).3|%|
0000b190 20 20 20 20 20 20 c9 20 34 3a 20 f2 73 74 61 72 | . 4: .star|
0000b1a0 74 67 61 6d 65 3a f2 6f 70 65 6e 5f 6d 65 73 73 |tgame:.open_mess|
0000b1b0 31 0d 33 86 09 20 20 20 20 cb 0d 33 90 27 20 20 |1.3.. ..3.' |
0000b1c0 c9 20 6d 65 6e 75 77 25 3a 20 f2 6d 65 6e 75 77 |. menuw%: .menuw|
0000b1d0 63 6c 69 63 6b 28 62 75 74 25 2c 77 25 2c 69 25 |click(but%,w%,i%|
0000b1e0 29 0d 33 9a 27 20 20 c9 20 61 6e 6d 65 77 25 3a |).3.' . anmew%:|
0000b1f0 20 f2 61 6e 6d 65 77 63 6c 69 63 6b 28 62 75 74 | .anmewclick(but|
0000b200 25 2c 77 25 2c 69 25 29 0d 33 a4 2c 20 20 c9 20 |%,w%,i%).3., . |
0000b210 61 6e 69 6d 77 25 3a 20 f2 61 6e 69 6d 77 63 6c |animw%: .animwcl|
0000b220 69 63 6b 28 6d 78 25 2c 6d 79 25 2c 62 75 74 25 |ick(mx%,my%,but%|
0000b230 2c 69 25 29 0d 33 ae 2c 20 20 c9 20 66 69 6e 64 |,i%).3., . find|
0000b240 77 25 3a 20 f2 66 69 6e 64 77 63 6c 69 63 6b 28 |w%: .findwclick(|
0000b250 6d 78 25 2c 6d 79 25 2c 62 75 74 25 2c 69 25 29 |mx%,my%,but%,i%)|
0000b260 0d 33 b8 2c 20 20 c9 20 64 65 66 6e 77 25 3a 20 |.3., . defnw%: |
0000b270 f2 64 65 66 6e 77 63 6c 69 63 6b 28 6d 78 25 2c |.defnwclick(mx%,|
0000b280 6d 79 25 2c 62 75 74 25 2c 69 25 29 0d 33 c2 2c |my%,but%,i%).3.,|
0000b290 20 20 c9 20 77 6f 72 64 77 25 3a 20 f2 77 6f 72 | . wordw%: .wor|
0000b2a0 64 77 63 6c 69 63 6b 28 6d 78 25 2c 6d 79 25 2c |dwclick(mx%,my%,|
0000b2b0 62 75 74 25 2c 69 25 29 0d 33 cc 26 20 20 c9 20 |but%,i%).3.& . |
0000b2c0 73 65 74 75 70 77 25 3a 20 f2 73 65 74 75 70 77 |setupw%: .setupw|
0000b2d0 63 6c 69 63 6b 28 62 75 74 25 2c 69 25 29 0d 33 |click(but%,i%).3|
0000b2e0 d6 05 cb 0d 33 e0 05 e1 0d 33 ea 04 0d 33 f4 1a |....3....3...3..|
0000b2f0 dd f2 6d 65 6e 75 77 63 6c 69 63 6b 28 62 25 2c |..menuwclick(b%,|
0000b300 77 25 2c 69 25 29 0d 33 fe 0b ea 20 6a 25 2c 6b |w%,i%).3... j%,k|
0000b310 25 0d 34 08 0b e7 62 25 3d 32 3a e1 0d 34 12 0c |%.4...b%=2:..4..|
0000b320 e7 69 25 3d 2d 31 3a e1 0d 34 1c 21 21 62 6c 6b |.i%=-1:..4.!!blk|
0000b330 25 3d 64 65 6d 6f 77 25 3a f2 63 6c 6f 73 65 77 |%=demow%:.closew|
0000b340 69 6e 64 28 62 6c 6b 25 29 0d 34 26 1b e7 69 25 |ind(blk%).4&..i%|
0000b350 3c 36 3a f2 63 68 65 63 6b 69 6e 64 65 78 28 69 |<6:.checkindex(i|
0000b360 25 29 3a e1 0d 34 30 10 6a 25 3d a8 28 69 25 2f |%):..40.j%=.(i%/|
0000b370 33 29 2d 31 0d 34 3a 0e e3 6b 25 3d 36 b8 31 38 |3)-1.4:..k%=6.18|
0000b380 88 33 0d 34 44 3b 20 e7 6b 25 3d 33 2b 28 33 2a |.3.4D; .k%=3+(3*|
0000b390 6a 25 29 3a f2 73 65 6c 65 63 74 69 63 6e 28 77 |j%):.selecticn(w|
0000b3a0 25 2c 6b 25 2c b9 29 3a 8b 3a f2 73 65 6c 65 63 |%,k%,.):.:.selec|
0000b3b0 74 69 63 6e 28 77 25 2c 6b 25 2c a3 29 0d 34 4e |ticn(w%,k%,.).4N|
0000b3c0 05 ed 0d 34 58 16 f2 6f 70 65 6e 5f 61 6e 69 6d |...4X..open_anim|
0000b3d0 77 28 6a 25 2c 2d 31 29 0d 34 62 4a e7 6a 25 3d |w(j%,-1).4bJ.j%=|
0000b3e0 31 3a f2 6f 70 65 6e 5f 6d 65 73 73 28 22 4f 6e |1:.open_mess("On|
0000b3f0 6c 79 20 27 6c 65 61 66 27 20 69 73 20 61 76 61 |ly 'leaf' is ava|
0000b400 69 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 53 74 |ilable in the St|
0000b410 72 75 63 74 75 72 65 20 73 65 63 74 69 6f 6e 2e |ructure section.|
0000b420 22 29 0d 34 6c 57 e7 6a 25 3d 32 3a f2 6f 70 65 |").4lW.j%=2:.ope|
0000b430 6e 5f 6d 65 73 73 28 22 4f 6e 6c 79 20 27 73 65 |n_mess("Only 'se|
0000b440 65 64 20 64 69 73 70 65 72 73 61 6c 27 20 69 73 |ed dispersal' is|
0000b450 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 | available in th|
0000b460 65 20 52 65 70 72 6f 64 75 63 74 69 6f 6e 20 73 |e Reproduction s|
0000b470 65 63 74 69 6f 6e 2e 22 29 0d 34 76 60 e7 6a 25 |ection.").4v`.j%|
0000b480 3d 33 3a f2 6f 70 65 6e 5f 6d 65 73 73 28 22 4e |=3:.open_mess("N|
0000b490 6f 6e 65 20 6f 66 20 74 68 65 20 57 68 61 74 20 |one of the What |
0000b4a0 50 6c 61 6e 74 73 20 4e 65 65 64 20 73 65 63 74 |Plants Need sect|
0000b4b0 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 |ion is available|
0000b4c0 20 69 6e 20 74 68 69 73 20 64 65 6d 6f 6e 73 74 | in this demonst|
0000b4d0 72 61 74 69 6f 6e 2e 22 29 0d 34 80 58 e7 6a 25 |ration.").4.X.j%|
0000b4e0 3d 34 3a f2 6f 70 65 6e 5f 6d 65 73 73 28 22 4e |=4:.open_mess("N|
0000b4f0 6f 6e 65 20 6f 66 20 74 68 65 20 53 75 72 76 69 |one of the Survi|
0000b500 76 61 6c 20 73 65 63 74 69 6f 6e 20 69 73 20 61 |val section is a|
0000b510 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 69 73 |vailable in this|
0000b520 20 64 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 2e 22 | demonstration."|
0000b530 29 0d 34 8a 5e e7 6a 25 3d 35 3a f2 6f 70 65 6e |).4.^.j%=5:.open|
0000b540 5f 6d 65 73 73 28 22 4e 6f 6e 65 20 6f 66 20 74 |_mess("None of t|
0000b550 68 65 20 43 6c 61 73 73 69 66 69 63 61 74 69 6f |he Classificatio|
0000b560 6e 20 73 65 63 74 69 6f 6e 20 69 73 20 61 76 61 |n section is ava|
0000b570 69 6c 61 62 6c 65 20 69 6e 20 74 68 69 73 20 64 |ilable in this d|
0000b580 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 2e 22 29 0d |emonstration.").|
0000b590 34 94 05 e1 0d 34 9e 04 0d 34 a8 14 dd f2 63 68 |4....4...4....ch|
0000b5a0 65 63 6b 69 6e 64 65 78 28 69 25 29 0d 34 b2 0a |eckindex(i%).4..|
0000b5b0 e7 69 25 3c 33 8c 0d 34 bc 1c 20 f2 74 6f 67 67 |.i%<3..4.. .togg|
0000b5c0 6c 65 69 63 6e 73 65 6c 28 6d 65 6e 75 77 25 2c |leicnsel(menuw%,|
0000b5d0 30 29 0d 34 c6 1c 20 e7 a4 69 73 73 65 6c 65 63 |0).4.. ..isselec|
0000b5e0 74 65 64 28 6d 65 6e 75 77 25 2c 30 29 8c 0d 34 |ted(menuw%,0)..4|
0000b5f0 d0 1e 20 20 f2 6f 70 65 6e 5f 66 69 6e 64 77 3a |.. .open_findw:|
0000b600 f2 6f 70 65 6e 5f 6d 65 73 73 66 66 0d 34 da 06 |.open_messff.4..|
0000b610 20 cc 0d 34 e4 24 20 20 21 62 6c 6b 25 3d 66 69 | ..4.$ !blk%=fi|
0000b620 6e 64 77 25 3a f2 63 6c 6f 73 65 77 69 6e 64 73 |ndw%:.closewinds|
0000b630 28 62 6c 6b 25 29 0d 34 ee 06 20 cd 0d 34 f8 05 |(blk%).4.. ..4..|
0000b640 cc 0d 35 02 1c 20 f2 74 6f 67 67 6c 65 69 63 6e |..5.. .toggleicn|
0000b650 73 65 6c 28 6d 65 6e 75 77 25 2c 33 29 0d 35 0c |sel(menuw%,3).5.|
0000b660 1c 20 e7 a4 69 73 73 65 6c 65 63 74 65 64 28 6d |. ..isselected(m|
0000b670 65 6e 75 77 25 2c 33 29 8c 0d 35 16 1e 20 20 f2 |enuw%,3)..5.. .|
0000b680 6f 70 65 6e 5f 77 6f 72 64 77 3a f2 6f 70 65 6e |open_wordw:.open|
0000b690 5f 6d 65 73 73 77 77 0d 35 20 06 20 cc 0d 35 2a |_messww.5 . ..5*|
0000b6a0 41 20 20 21 62 6c 6b 25 3d 64 65 66 6e 77 25 3a |A !blk%=defnw%:|
0000b6b0 f2 63 6c 6f 73 65 77 69 6e 64 28 62 6c 6b 25 29 |.closewind(blk%)|
0000b6c0 3a 21 62 6c 6b 25 3d 77 6f 72 64 77 25 3a f2 63 |:!blk%=wordw%:.c|
0000b6d0 6c 6f 73 65 77 69 6e 64 28 62 6c 6b 25 29 0d 35 |losewind(blk%).5|
0000b6e0 34 06 20 cd 0d 35 3e 05 cd 0d 35 48 05 e1 0d 35 |4. ..5>...5H...5|
0000b6f0 52 04 0d 35 5c 1a dd f2 61 6e 6d 65 77 63 6c 69 |R..5\...anmewcli|
0000b700 63 6b 28 62 25 2c 77 25 2c 69 25 29 0d 35 66 0b |ck(b%,w%,i%).5f.|
0000b710 ea 20 6a 25 2c 6b 25 0d 35 70 2b f4 49 46 62 25 |. j%,k%.5p+.IFb%|
0000b720 3d 32 3a 50 52 4f 43 61 6e 6d 65 77 5f 6d 65 6e |=2:PROCanmew_men|
0000b730 75 28 6d 78 25 2c 6d 79 25 29 3a 45 4e 44 50 52 |u(mx%,my%):ENDPR|
0000b740 4f 43 0d 35 7a 21 21 62 6c 6b 25 3d 64 65 6d 6f |OC.5z!!blk%=demo|
0000b750 77 25 3a f2 63 6c 6f 73 65 77 69 6e 64 28 62 6c |w%:.closewind(bl|
0000b760 6b 25 29 0d 35 84 15 e7 28 69 25 3d 37 29 84 28 |k%).5...(i%=7).(|
0000b770 69 25 3d 31 32 29 20 8c 0d 35 8e 0e 20 f2 6b 69 |i%=12) ..5.. .ki|
0000b780 6c 6c 74 65 78 74 0d 35 98 1d 20 f2 74 6f 67 67 |lltext.5.. .togg|
0000b790 6c 65 69 63 6e 73 65 6c 28 61 6e 6d 65 77 25 2c |leicnsel(anmew%,|
0000b7a0 69 25 29 0d 35 a2 36 20 77 6c 65 76 25 3d 30 3a |i%).5.6 wlev%=0:|
0000b7b0 f2 6f 70 65 6e 5f 61 6e 69 6d 77 28 61 63 74 6d |.open_animw(actm|
0000b7c0 65 6e 75 25 2c 77 6c 65 76 25 2b 66 69 6e 64 61 |enu%,wlev%+finda|
0000b7d0 61 25 28 69 25 2d 35 29 29 0d 35 ac 05 cc 0d 35 |a%(i%-5)).5....5|
0000b7e0 b6 56 20 e7 28 69 25 3e 3d 35 29 80 28 69 25 3c |.V .(i%>=5).(i%<|
0000b7f0 3d 39 29 3a f2 6f 70 65 6e 5f 6d 65 73 73 28 22 |=9):.open_mess("|
0000b800 4f 6e 6c 79 20 27 6c 65 61 66 27 20 69 73 20 61 |Only 'leaf' is a|
0000b810 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 65 20 |vailable in the |
0000b820 53 74 72 75 63 74 75 72 65 20 73 65 63 74 69 6f |Structure sectio|
0000b830 6e 2e 22 29 0d 35 c0 65 20 e7 28 69 25 3e 3d 31 |n.").5.e .(i%>=1|
0000b840 30 29 80 28 69 25 3c 3d 31 35 29 3a f2 6f 70 65 |0).(i%<=15):.ope|
0000b850 6e 5f 6d 65 73 73 28 22 4f 6e 6c 79 20 27 73 65 |n_mess("Only 'se|
0000b860 65 64 20 64 69 73 70 65 72 73 61 6c 27 20 69 73 |ed dispersal' is|
0000b870 20 61 76 61 69 6c 61 62 6c 65 20 69 6e 20 74 68 | available in th|
0000b880 65 20 52 65 70 72 6f 64 75 63 74 69 6f 6e 20 73 |e Reproduction s|
0000b890 65 63 74 69 6f 6e 2e 22 29 0d 35 ca 6e 20 e7 28 |ection.").5.n .(|
0000b8a0 69 25 3e 3d 31 36 29 80 28 69 25 3c 3d 32 30 29 |i%>=16).(i%<=20)|
0000b8b0 3a f2 6f 70 65 6e 5f 6d 65 73 73 28 22 4e 6f 6e |:.open_mess("Non|
0000b8c0 65 20 6f 66 20 74 68 65 20 57 68 61 74 20 50 6c |e of the What Pl|
0000b8d0 61 6e 74 73 20 4e 65 65 64 20 73 65 63 74 69 6f |ants Need sectio|
0000b8e0 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 20 69 |n is available i|
0000b8f0 6e 20 74 68 69 73 20 64 65 6d 6f 6e 73 74 72 61 |n this demonstra|
0000b900 74 69 6f 6e 2e 22 29 0d 35 d4 66 20 e7 28 69 25 |tion.").5.f .(i%|
0000b910 3e 3d 32 31 29 80 28 69 25 3c 3d 32 34 29 3a f2 |>=21).(i%<=24):.|
0000b920 6f 70 65 6e 5f 6d 65 73 73 28 22 4e 6f 6e 65 20 |open_mess("None |
0000b930 6f 66 20 74 68 65 20 53 75 72 76 69 76 61 6c 20 |of the Survival |
0000b940 73 65 63 74 69 6f 6e 20 69 73 20 61 76 61 69 6c |section is avail|
0000b950 61 62 6c 65 20 69 6e 20 74 68 69 73 20 64 65 6d |able in this dem|
0000b960 6f 6e 73 74 72 61 74 69 6f 6e 2e 22 29 0d 35 de |onstration.").5.|
0000b970 6c 20 e7 28 69 25 3e 3d 32 35 29 80 28 69 25 3c |l .(i%>=25).(i%<|
0000b980 3d 33 33 29 3a f2 6f 70 65 6e 5f 6d 65 73 73 28 |=33):.open_mess(|
0000b990 22 4e 6f 6e 65 20 6f 66 20 74 68 65 20 43 6c 61 |"None of the Cla|
0000b9a0 73 73 69 66 69 63 61 74 69 6f 6e 20 73 65 63 74 |ssification sect|
0000b9b0 69 6f 6e 20 69 73 20 61 76 61 69 6c 61 62 6c 65 |ion is available|
0000b9c0 20 69 6e 20 74 68 69 73 20 64 65 6d 6f 6e 73 74 | in this demonst|
0000b9d0 72 61 74 69 6f 6e 2e 22 29 0d 35 e8 05 cd 0d 35 |ration.").5....5|
0000b9e0 f2 05 e1 0d 35 fc 04 0d 36 06 1f dd f2 61 6e 69 |....5...6....ani|
0000b9f0 6d 77 63 6c 69 63 6b 28 6d 78 25 2c 6d 79 25 2c |mwclick(mx%,my%,|
0000ba00 62 25 2c 69 25 29 0d 36 10 0b ea 20 6a 25 2c 6b |b%,i%).6... j%,k|
0000ba10 25 0d 36 1a 2b f4 49 46 62 25 3d 32 3a 50 52 4f |%.6.+.IFb%=2:PRO|
0000ba20 43 61 6e 69 6d 77 5f 6d 65 6e 75 28 6d 78 25 2c |Canimw_menu(mx%,|
0000ba30 6d 79 25 29 3a 45 4e 44 50 52 4f 43 0d 36 24 21 |my%):ENDPROC.6$!|
0000ba40 21 62 6c 6b 25 3d 64 65 6d 6f 77 25 3a f2 63 6c |!blk%=demow%:.cl|
0000ba50 6f 73 65 77 69 6e 64 28 62 6c 6b 25 29 0d 36 2e |osewind(blk%).6.|
0000ba60 1c f2 74 6f 67 67 6c 65 69 63 6e 73 65 6c 28 61 |..toggleicnsel(a|
0000ba70 6e 69 6d 77 25 2c 69 25 29 0d 36 38 0b c8 8e 20 |nimw%,i%).68... |
0000ba80 69 25 20 ca 0d 36 42 14 20 20 c9 20 30 3a 20 f2 |i% ..6B. . 0: .|
0000ba90 6b 69 6c 6c 74 65 78 74 0d 36 4c 64 20 20 20 20 |killtext.6Ld |
0000baa0 20 20 20 20 20 20 e7 77 6c 65 76 25 3d 30 3a f2 | .wlev%=0:.|
0000bab0 6f 70 65 6e 5f 61 6e 69 6d 77 28 61 63 74 6d 65 |open_animw(actme|
0000bac0 6e 75 25 2c 2d 31 29 3a 8b 3a 6a 25 3d 77 6c 65 |nu%,-1):.:j%=wle|
0000bad0 76 25 3a 77 6c 65 76 25 3d 30 3a f2 6f 70 65 6e |v%:wlev%=0:.open|
0000bae0 5f 61 6e 69 6d 77 28 61 63 74 6d 65 6e 75 25 2c |_animw(actmenu%,|
0000baf0 61 63 74 61 6e 69 6d 25 2d 6a 25 29 0d 36 56 22 |actanim%-j%).6V"|
0000bb00 20 20 c9 20 31 3a 20 e7 a4 69 73 73 65 6c 65 63 | . 1: ..isselec|
0000bb10 74 65 64 28 61 6e 69 6d 77 25 2c 31 29 8c 0d 36 |ted(animw%,1)..6|
0000bb20 60 27 20 20 20 20 20 20 20 20 20 20 20 74 65 78 |`' tex|
0000bb30 74 6f 6e 25 3d 2d 31 3a 74 65 78 74 6e 65 77 6f |ton%=-1:textnewo|
0000bb40 6e 25 3d 2d 31 0d 36 6a 46 20 20 20 20 20 20 20 |n%=-1.6jF |
0000bb50 20 20 20 20 e7 ac 64 6f 69 6e 67 6d 6f 76 65 25 | ..doingmove%|
0000bb60 3a f2 6d 61 6b 65 61 6e 69 6d 28 61 63 74 6d 65 |:.makeanim(actme|
0000bb70 6e 75 25 2c 61 63 74 61 6e 69 6d 25 2c 62 67 25 |nu%,actanim%,bg%|
0000bb80 28 61 63 74 61 6e 69 6d 25 29 29 0d 36 74 21 20 |(actanim%)).6t! |
0000bb90 20 20 20 20 20 20 20 20 20 20 f2 61 64 64 74 65 | .addte|
0000bba0 78 74 28 61 63 74 61 6e 69 6d 25 29 0d 36 7e 0f |xt(actanim%).6~.|
0000bbb0 20 20 20 20 20 20 20 20 20 20 cc 0d 36 88 4a 20 | ..6.J |
0000bbc0 20 20 20 20 20 20 20 20 20 20 74 65 78 74 6f 6e | texton|
0000bbd0 25 3d 30 3a 74 65 78 74 6e 65 77 6f 66 66 25 3d |%=0:textnewoff%=|
0000bbe0 2d 31 3a 61 63 74 74 78 74 69 63 6e 25 3d 30 3a |-1:acttxticn%=0:|
0000bbf0 f2 72 65 6d 6f 76 65 74 65 78 74 28 61 63 74 61 |.removetext(acta|
0000bc00 6e 69 6d 25 29 0d 36 92 0f 20 20 20 20 20 20 20 |nim%).6.. |
0000bc10 20 20 20 cd 0d 36 9c 22 20 20 c9 20 32 3a 20 e7 | ..6." . 2: .|
0000bc20 a4 69 73 73 65 6c 65 63 74 65 64 28 61 6e 69 6d |.isselected(anim|
0000bc30 77 25 2c 32 29 8c 0d 36 a6 33 20 20 20 20 20 20 |w%,2)..6.3 |
0000bc40 20 20 20 20 20 64 6f 69 6e 67 6d 6f 76 65 25 3d | doingmove%=|
0000bc50 2d 31 3a 66 69 72 73 74 6d 6f 76 65 25 3d 2d 31 |-1:firstmove%=-1|
0000bc60 3a f2 61 6e 69 6d 61 74 65 0d 36 b0 0f 20 20 20 |:.animate.6.. |
0000bc70 20 20 20 20 20 20 20 cc 0d 36 ba 45 20 20 20 20 | ..6.E |
0000bc80 20 20 20 20 20 20 20 f2 61 6e 69 6d 61 74 65 65 | .animatee|
0000bc90 6e 64 3a f2 6d 61 6b 65 61 6e 69 6d 28 61 63 74 |nd:.makeanim(act|
0000bca0 6d 65 6e 75 25 2c 61 63 74 61 6e 69 6d 25 2c 62 |menu%,actanim%,b|
0000bcb0 67 25 28 61 63 74 61 6e 69 6d 25 29 29 0d 36 c4 |g%(actanim%)).6.|
0000bcc0 40 20 20 20 20 20 20 20 20 20 20 20 e7 74 65 78 |@ .tex|
0000bcd0 74 6f 6e 25 3a f2 61 64 64 74 65 78 74 28 61 63 |ton%:.addtext(ac|
0000bce0 74 61 6e 69 6d 25 29 3a 8b 3a f2 70 6c 6f 74 61 |tanim%):.:.plota|
0000bcf0 6e 69 6d 28 61 63 74 61 6e 69 6d 25 29 0d 36 ce |nim(actanim%).6.|
0000bd00 0f 20 20 20 20 20 20 20 20 20 20 cd 0d 36 d8 1f |. ..6..|
0000bd10 20 20 c9 20 33 2c 34 3a 20 6a 25 3d 77 6c 65 76 | . 3,4: j%=wlev|
0000bd20 25 3a f2 6b 69 6c 6c 74 65 78 74 0d 36 e2 56 20 |%:.killtext.6.V |
0000bd30 20 20 20 20 20 20 20 20 20 20 20 e7 a4 69 73 73 | ..iss|
0000bd40 65 6c 65 63 74 65 64 28 61 6e 69 6d 77 25 2c 69 |elected(animw%,i|
0000bd50 25 29 3a 77 6c 65 76 25 3d 69 25 2d 32 3a f2 73 |%):wlev%=i%-2:.s|
0000bd60 65 6c 65 63 74 69 63 6e 28 61 6e 69 6d 77 25 2c |electicn(animw%,|
0000bd70 37 2d 69 25 2c a3 29 3a 8b 3a 77 6c 65 76 25 3d |7-i%,.):.:wlev%=|
0000bd80 30 0d 36 ec 37 20 20 20 20 20 20 20 20 20 20 20 |0.6.7 |
0000bd90 20 f2 6f 70 65 6e 5f 61 6e 69 6d 77 28 61 63 74 | .open_animw(act|
0000bda0 6d 65 6e 75 25 2c 61 63 74 61 6e 69 6d 25 2d 6a |menu%,actanim%-j|
0000bdb0 25 2b 77 6c 65 76 25 29 0d 36 f6 23 20 20 c9 20 |%+wlev%).6.# . |
0000bdc0 35 2c 36 2c 37 2c 38 3a 20 6a 25 3d 77 6c 65 76 |5,6,7,8: j%=wlev|
0000bdd0 25 3a f2 6b 69 6c 6c 74 65 78 74 0d 37 00 2d 20 |%:.killtext.7.- |
0000bde0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 | .|
0000bdf0 a4 69 73 73 65 6c 65 63 74 65 64 28 61 6e 69 6d |.isselected(anim|
0000be00 77 25 2c 69 25 29 20 8c 0d 37 0a 27 20 20 20 20 |w%,i%) ..7.' |
0000be10 20 20 20 20 20 20 20 20 20 20 20 20 20 77 6c 65 | wle|
0000be20 76 25 3d 69 25 2d 34 3a e3 6b 25 3d 35 b8 38 0d |v%=i%-4:.k%=5.8.|
0000be30 37 14 35 20 20 20 20 20 20 20 20 20 20 20 20 20 |7.5 |
0000be40 20 20 20 20 20 e7 6b 25 3c 3e 69 25 3a f2 73 65 | .k%<>i%:.se|
0000be50 6c 65 63 74 69 63 6e 28 61 6e 69 6d 77 25 2c 6b |lecticn(animw%,k|
0000be60 25 2c a3 29 0d 37 1e 16 20 20 20 20 20 20 20 20 |%,.).7.. |
0000be70 20 20 20 20 20 20 20 20 20 ed 0d 37 28 15 20 20 | ..7(. |
0000be80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cc 0d | ..|
0000be90 37 32 1c 20 20 20 20 20 20 20 20 20 20 20 20 20 |72. |
0000bea0 20 20 20 20 77 6c 65 76 25 3d 30 0d 37 3c 15 20 | wlev%=0.7<. |
0000beb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cd | .|
0000bec0 0d 37 46 3b 20 20 20 20 20 20 20 20 20 20 20 20 |.7F; |
0000bed0 20 20 20 20 f2 6f 70 65 6e 5f 61 6e 69 6d 77 28 | .open_animw(|
0000bee0 61 63 74 6d 65 6e 75 25 2c 61 63 74 61 6e 69 6d |actmenu%,actanim|
0000bef0 25 2d 6a 25 2b 77 6c 65 76 25 29 0d 37 50 8f 20 |%-j%+wlev%).7P. |
0000bf00 20 c9 20 31 32 2c 31 33 2c 31 34 2c 31 35 2c 31 | . 12,13,14,15,1|
0000bf10 36 2c 31 37 2c 31 38 2c 31 39 2c 32 30 2c 32 31 |6,17,18,19,20,21|
0000bf20 2c 32 32 2c 32 33 2c 32 34 2c 32 35 2c 32 36 2c |,22,23,24,25,26,|
0000bf30 32 37 2c 32 38 2c 32 39 2c 33 30 2c 33 31 2c 33 |27,28,29,30,31,3|
0000bf40 32 2c 33 33 2c 33 34 2c 33 35 2c 33 36 2c 33 37 |2,33,34,35,36,37|
0000bf50 2c 33 38 2c 33 39 2c 34 30 2c 34 31 2c 34 32 2c |,38,39,40,41,42,|
0000bf60 34 33 2c 34 34 2c 34 35 2c 34 36 2c 34 37 2c 34 |43,44,45,46,47,4|
0000bf70 38 2c 34 39 2c 35 30 2c 35 31 2c 35 32 2c 35 33 |8,49,50,51,52,53|
0000bf80 2c 35 34 2c 35 35 2c 35 36 3a 0d 37 5a 3a 20 20 |,54,55,56:.7Z: |
0000bf90 20 20 20 20 20 20 e7 61 63 74 74 78 74 69 63 6e | .acttxticn|
0000bfa0 25 3e 31 31 20 f2 73 65 6c 65 63 74 69 63 6e 28 |%>11 .selecticn(|
0000bfb0 61 6e 69 6d 77 25 2c 61 63 74 74 78 74 69 63 6e |animw%,acttxticn|
0000bfc0 25 2c a3 29 0d 37 64 37 20 20 20 20 20 20 20 20 |%,.).7d7 |
0000bfd0 e7 61 63 74 74 78 74 69 63 6e 25 3d 69 25 20 61 |.acttxticn%=i% a|
0000bfe0 63 74 74 78 74 69 63 6e 25 3d 30 3a 8b 3a 61 63 |cttxticn%=0:.:ac|
0000bff0 74 74 78 74 69 63 6e 25 3d 69 25 0d 37 6e 1f 20 |ttxticn%=i%.7n. |
0000c000 20 20 20 20 20 20 20 f2 61 64 64 77 6f 72 64 73 | .addwords|
0000c010 28 61 63 74 61 6e 69 6d 25 29 0d 37 78 05 cb 0d |(actanim%).7x...|
0000c020 37 82 05 e1 0d 37 8c 04 0d 37 96 0e dd f2 6b 69 |7....7...7....ki|
0000c030 6c 6c 74 65 78 74 0d 37 a0 31 f2 73 65 6c 65 63 |lltext.7.1.selec|
0000c040 74 69 63 6e 28 61 6e 69 6d 77 25 2c 31 2c a3 29 |ticn(animw%,1,.)|
0000c050 3a 74 65 78 74 6f 6e 25 3d 30 3a 74 65 78 74 6e |:texton%=0:textn|
0000c060 65 77 6f 6e 25 3d 30 0d 37 aa 50 21 62 6c 6b 32 |ewon%=0.7.P!blk2|
0000c070 25 3d 30 3a 62 6c 6b 32 25 21 34 3d 2d 37 33 32 |%=0:blk2%!4=-732|
0000c080 3a 62 6c 6b 32 25 21 38 3d 38 34 32 3a 62 6c 6b |:blk2%!8=842:blk|
0000c090 32 25 21 31 32 3d 30 3a c8 99 22 57 69 6d 70 5f |2%!12=0:.."Wimp_|
0000c0a0 53 65 74 45 78 74 65 6e 74 22 2c 61 6e 69 6d 77 |SetExtent",animw|
0000c0b0 25 2c 62 6c 6b 32 25 0d 37 b4 05 e1 0d 37 be 04 |%,blk2%.7....7..|
0000c0c0 0d 37 c8 1f dd f2 66 69 6e 64 77 63 6c 69 63 6b |.7....findwclick|
0000c0d0 28 6d 78 25 2c 6d 79 25 2c 62 25 2c 69 25 29 0d |(mx%,my%,b%,i%).|
0000c0e0 37 d2 10 ea 20 6a 25 2c 61 6d 25 2c 61 61 25 0d |7... j%,am%,aa%.|
0000c0f0 37 dc 0b e7 62 25 3d 32 3a e1 0d 37 e6 4d e7 28 |7...b%=2:..7.M.(|
0000c100 69 25 3c 3d 33 34 29 84 28 28 69 25 3e 3d 34 30 |i%<=34).((i%>=40|
0000c110 29 80 28 69 25 3c 3d 34 33 29 29 84 28 28 69 25 |).(i%<=43)).((i%|
0000c120 3e 3d 34 37 29 80 28 69 25 3c 3d 35 39 29 29 84 |>=47).(i%<=59)).|
0000c130 28 69 25 3e 3d 36 35 29 3a f2 6f 70 65 6e 5f 6d |(i%>=65):.open_m|
0000c140 65 73 73 66 66 3a e1 0d 37 f0 21 21 62 6c 6b 25 |essff:..7.!!blk%|
0000c150 3d 64 65 6d 6f 77 25 3a f2 63 6c 6f 73 65 77 69 |=demow%:.closewi|
0000c160 6e 64 28 62 6c 6b 25 29 0d 37 fa 2f e7 28 69 25 |nd(blk%).7./.(i%|
0000c170 3e 3d 33 35 29 80 28 69 25 3c 3d 33 39 29 3a 61 |>=35).(i%<=39):a|
0000c180 6d 25 3d 69 25 2d 33 34 3a 61 61 25 3d 2d 31 3a |m%=i%-34:aa%=-1:|
0000c190 77 6c 65 76 25 3d 30 0d 38 04 32 e7 28 69 25 3e |wlev%=0.8.2.(i%>|
0000c1a0 3d 34 34 29 80 28 69 25 3c 3d 34 36 29 3a 61 6d |=44).(i%<=46):am|
0000c1b0 25 3d 31 3a 61 61 25 3d 69 25 2d 34 30 3a 77 6c |%=1:aa%=i%-40:wl|
0000c1c0 65 76 25 3d 69 25 2d 34 34 0d 38 0e 32 e7 28 69 |ev%=i%-44.8.2.(i|
0000c1d0 25 3e 3d 36 30 29 80 28 69 25 3c 3d 36 34 29 3a |%>=60).(i%<=64):|
0000c1e0 61 6d 25 3d 32 3a 61 61 25 3d 69 25 2d 34 30 3a |am%=2:aa%=i%-40:|
0000c1f0 77 6c 65 76 25 3d 69 25 2d 36 30 0d 38 18 42 e7 |wlev%=i%-60.8.B.|
0000c200 28 61 63 74 6d 65 6e 75 25 3c 3e 61 6d 25 29 84 |(actmenu%<>am%).|
0000c210 28 61 63 74 61 6e 69 6d 25 3c 3e 61 61 25 29 3a |(actanim%<>aa%):|
0000c220 f2 73 65 6c 65 63 74 69 63 6e 28 66 69 6e 64 77 |.selecticn(findw|
0000c230 25 2c 66 69 6e 64 69 63 6e 25 2c a3 29 0d 38 22 |%,findicn%,.).8"|
0000c240 0e 66 69 6e 64 69 63 6e 25 3d 30 0d 38 2c 41 e7 |.findicn%=0.8,A.|
0000c250 28 61 6d 25 3e 30 29 80 28 61 61 25 3d 2d 31 29 |(am%>0).(aa%=-1)|
0000c260 3a f2 73 65 6c 65 63 74 69 63 6e 28 66 69 6e 64 |:.selecticn(find|
0000c270 77 25 2c 33 34 2b 61 6d 25 2c b9 29 3a 66 69 6e |w%,34+am%,.):fin|
0000c280 64 69 63 6e 25 3d 33 34 2b 61 6d 25 0d 38 36 37 |dicn%=34+am%.867|
0000c290 e7 61 61 25 3e 3d 30 3a f2 73 65 6c 65 63 74 69 |.aa%>=0:.selecti|
0000c2a0 63 6e 28 66 69 6e 64 77 25 2c 34 30 2b 61 61 25 |cn(findw%,40+aa%|
0000c2b0 2c b9 29 3a 66 69 6e 64 69 63 6e 25 3d 34 30 2b |,.):findicn%=40+|
0000c2c0 61 61 25 0d 38 40 38 21 62 6c 6b 25 3d 66 69 6e |aa%.8@8!blk%=fin|
0000c2d0 64 77 25 3a f2 63 6c 6f 73 65 77 69 6e 64 28 62 |dw%:.closewind(b|
0000c2e0 6c 6b 25 29 3a f2 73 65 6c 65 63 74 69 63 6e 28 |lk%):.selecticn(|
0000c2f0 6d 65 6e 75 77 25 2c 30 2c a3 29 0d 38 4a 22 f2 |menuw%,0,.).8J".|
0000c300 6b 69 6c 6c 74 65 78 74 3a f2 6f 70 65 6e 5f 6d |killtext:.open_m|
0000c310 65 6e 75 77 28 61 6d 25 2c 61 61 25 29 0d 38 54 |enuw(am%,aa%).8T|
0000c320 05 e1 0d 38 5e 04 0d 38 68 1f dd f2 77 6f 72 64 |...8^..8h...word|
0000c330 77 63 6c 69 63 6b 28 6d 78 25 2c 6d 79 25 2c 62 |wclick(mx%,my%,b|
0000c340 25 2c 69 25 29 0d 38 72 08 ea 20 6a 25 0d 38 7c |%,i%).8r.. j%.8||
0000c350 0b e7 62 25 3d 32 3a e1 0d 38 86 21 21 62 6c 6b |..b%=2:..8.!!blk|
0000c360 25 3d 64 65 6d 6f 77 25 3a f2 63 6c 6f 73 65 77 |%=demow%:.closew|
0000c370 69 6e 64 28 62 6c 6b 25 29 0d 38 90 57 e7 67 6c |ind(blk%).8.W.gl|
0000c380 6f 73 73 69 63 6e 25 3c 3e 69 25 3a f2 74 6f 67 |ossicn%<>i%:.tog|
0000c390 67 6c 65 69 63 6e 73 65 6c 28 77 6f 72 64 77 25 |gleicnsel(wordw%|
0000c3a0 2c 69 25 29 3a f2 73 65 6c 65 63 74 69 63 6e 28 |,i%):.selecticn(|
0000c3b0 77 6f 72 64 77 25 2c 67 6c 6f 73 73 69 63 6e 25 |wordw%,glossicn%|
0000c3c0 2c a3 29 3a 67 6c 6f 73 73 69 63 6e 25 3d 69 25 |,.):glossicn%=i%|
0000c3d0 0d 38 9a 13 f2 6f 70 65 6e 5f 64 65 66 6e 77 28 |.8...open_defnw(|
0000c3e0 69 25 29 0d 38 a4 05 e1 0d 38 ae 04 0d 38 b8 18 |i%).8....8...8..|
0000c3f0 dd f2 73 65 74 75 70 77 63 6c 69 63 6b 28 62 25 |..setupwclick(b%|
0000c400 2c 69 25 29 0d 38 c2 0b ea 20 6a 25 2c 6b 25 0d |,i%).8... j%,k%.|
0000c410 38 cc 0b c8 8e 20 69 25 20 ca 0d 38 d6 35 20 20 |8.... i% ..8.5 |
0000c420 c9 20 32 2c 33 3a e7 a4 69 73 73 65 6c 65 63 74 |. 2,3:..isselect|
0000c430 65 64 28 73 65 74 75 70 77 25 2c 32 29 3a 73 69 |ed(setupw%,2):si|
0000c440 6d 70 25 3d 30 3a 8b 3a 73 69 6d 70 25 3d 31 0d |mp%=0:.:simp%=1.|
0000c450 38 e0 19 20 20 20 20 20 20 20 20 20 20 20 f2 73 |8.. .s|
0000c460 74 61 72 74 67 61 6d 65 0d 38 ea 05 cb 0d 38 f4 |tartgame.8....8.|
0000c470 05 e1 0d 38 fe 04 0d 39 08 14 dd f2 69 6e 69 74 |...8...9....init|
0000c480 61 6e 69 6d 77 28 61 61 25 29 0d 39 12 0b ea 20 |animw(aa%).9... |
0000c490 6a 25 2c 6b 25 0d 39 1c 1a f2 73 65 6c 65 63 74 |j%,k%.9...select|
0000c4a0 69 63 6e 28 61 6e 69 6d 77 25 2c 30 2c a3 29 0d |icn(animw%,0,.).|
0000c4b0 39 26 3c e3 6b 25 3d 32 b8 35 36 3a f2 68 69 64 |9&<.k%=2.56:.hid|
0000c4c0 65 69 63 6e 28 61 6e 69 6d 77 25 2c 6b 25 2c b9 |eicn(animw%,k%,.|
0000c4d0 29 3a f2 73 65 6c 65 63 74 69 63 6e 28 61 6e 69 |):.selecticn(ani|
0000c4e0 6d 77 25 2c 6b 25 2c a3 29 3a ed 0d 39 30 0b e3 |mw%,k%,.):..90..|
0000c4f0 6a 25 3d 30 b8 36 0d 39 3a 48 20 e7 77 64 65 66 |j%=0.6.9:H .wdef|
0000c500 6e 25 28 61 61 25 2c 6a 25 29 3e 30 3a f2 68 69 |n%(aa%,j%)>0:.hi|
0000c510 64 65 69 63 6e 28 61 6e 69 6d 77 25 2c 6a 25 2b |deicn(animw%,j%+|
0000c520 32 2c a3 29 3a 8b 3a f2 68 69 64 65 69 63 6e 28 |2,.):.:.hideicn(|
0000c530 61 6e 69 6d 77 25 2c 6a 25 2b 32 2c b9 29 0d 39 |animw%,j%+2,.).9|
0000c540 44 4c 20 e7 77 64 65 66 6e 25 28 61 61 25 2c 6a |DL .wdefn%(aa%,j|
0000c550 25 29 3d 32 3a f2 73 65 6c 65 63 74 69 63 6e 28 |%)=2:.selecticn(|
0000c560 61 6e 69 6d 77 25 2c 6a 25 2b 32 2c b9 29 3a 8b |animw%,j%+2,.):.|
0000c570 3a f2 73 65 6c 65 63 74 69 63 6e 28 61 6e 69 6d |:.selecticn(anim|
0000c580 77 25 2c 6a 25 2b 32 2c a3 29 0d 39 4e 05 ed 0d |w%,j%+2,.).9N...|
0000c590 39 58 0c c8 8e 20 61 61 25 20 ca 0d 39 62 33 20 |9X... aa% ..9b3 |
0000c5a0 c9 20 30 2c 31 20 3a 20 f2 70 75 74 69 63 6e 73 |. 0,1 : .puticns|
0000c5b0 74 72 69 6e 67 28 61 6e 69 6d 77 25 2c 33 2c 22 |tring(animw%,3,"|
0000c5c0 61 6e 69 6d 61 6c 20 63 65 6c 6c 73 22 29 0d 39 |animal cells").9|
0000c5d0 6c 33 20 c9 20 32 2c 33 20 3a 20 f2 70 75 74 69 |l3 . 2,3 : .puti|
0000c5e0 63 6e 73 74 72 69 6e 67 28 61 6e 69 6d 77 25 2c |cnstring(animw%,|
0000c5f0 33 2c 22 66 6c 6f 77 65 72 20 70 61 72 74 73 22 |3,"flower parts"|
0000c600 29 0d 39 76 36 20 c9 20 31 30 2c 31 31 20 3a 20 |).9v6 . 10,11 : |
0000c610 f2 70 75 74 69 63 6e 73 74 72 69 6e 67 28 61 6e |.puticnstring(an|
0000c620 69 6d 77 25 2c 33 2c 22 72 6f 6f 74 20 63 6c 6f |imw%,3,"root clo|
0000c630 73 65 2d 75 70 22 29 0d 39 80 5f 20 c9 20 34 2c |se-up").9._ . 4,|
0000c640 35 2c 36 20 3a 20 f2 70 75 74 69 63 6e 73 74 72 |5,6 : .puticnstr|
0000c650 69 6e 67 28 61 6e 69 6d 77 25 2c 33 2c 22 70 68 |ing(animw%,3,"ph|
0000c660 6f 74 6f 73 79 6e 74 68 65 73 69 73 22 29 3a f2 |otosynthesis"):.|
0000c670 70 75 74 69 63 6e 73 74 72 69 6e 67 28 61 6e 69 |puticnstring(ani|
0000c680 6d 77 25 2c 34 2c 22 6c 65 61 66 20 63 6c 6f 73 |mw%,4,"leaf clos|
0000c690 65 2d 75 70 22 29 0d 39 8a 5c 20 c9 20 37 2c 38 |e-up").9.\ . 7,8|
0000c6a0 2c 39 20 3a 20 f2 70 75 74 69 63 6e 73 74 72 69 |,9 : .puticnstri|
0000c6b0 6e 67 28 61 6e 69 6d 77 25 2c 33 2c 22 6e 6f 6e |ng(animw%,3,"non|
0000c6c0 2d 77 6f 6f 64 79 20 73 74 65 6d 22 29 3a f2 70 |-woody stem"):.p|
0000c6d0 75 74 69 63 6e 73 74 72 69 6e 67 28 61 6e 69 6d |uticnstring(anim|
0000c6e0 77 25 2c 34 2c 22 77 6f 6f 64 79 20 73 74 65 6d |w%,4,"woody stem|
0000c6f0 22 29 0d 39 94 39 20 c9 20 31 32 2c 31 33 2c 31 |").9.9 . 12,13,1|
0000c700 34 2c 31 35 2c 31 36 20 3a 20 f2 70 75 74 69 63 |4,15,16 : .putic|
0000c710 6e 73 74 72 69 6e 67 28 61 6e 69 6d 77 25 2c 35 |nstring(animw%,5|
0000c720 2c 22 69 6e 73 65 63 74 73 22 29 0d 39 9e 63 20 |,"insects").9.c |
0000c730 c9 20 31 37 2c 31 38 2c 31 39 20 3a 20 f2 70 75 |. 17,18,19 : .pu|
0000c740 74 69 63 6e 73 74 72 69 6e 67 28 61 6e 69 6d 77 |ticnstring(animw|
0000c750 25 2c 33 2c 22 66 72 75 69 74 73 20 26 20 73 65 |%,3,"fruits & se|
0000c760 65 64 73 22 29 3a f2 70 75 74 69 63 6e 73 74 72 |eds"):.puticnstr|
0000c770 69 6e 67 28 61 6e 69 6d 77 25 2c 34 2c 22 66 72 |ing(animw%,4,"fr|
0000c780 75 69 74 20 65 78 61 6d 70 6c 65 73 22 29 0d 39 |uit examples").9|
0000c790 a8 39 20 c9 20 32 30 2c 32 31 2c 32 32 2c 32 33 |.9 . 20,21,22,23|
0000c7a0 2c 32 34 20 3a 20 f2 70 75 74 69 63 6e 73 74 72 |,24 : .puticnstr|
0000c7b0 69 6e 67 28 61 6e 69 6d 77 25 2c 35 2c 22 65 78 |ing(animw%,5,"ex|
0000c7c0 70 6c 6f 64 65 22 29 0d 39 b2 5d 20 c9 20 32 35 |plode").9.] . 25|
0000c7d0 2c 32 36 2c 32 37 20 3a 20 f2 70 75 74 69 63 6e |,26,27 : .puticn|
0000c7e0 73 74 72 69 6e 67 28 61 6e 69 6d 77 25 2c 33 2c |string(animw%,3,|
0000c7f0 22 73 65 65 64 20 73 74 72 75 63 74 75 72 65 22 |"seed structure"|
0000c800 29 3a f2 70 75 74 69 63 6e 73 74 72 69 6e 67 28 |):.puticnstring(|
0000c810 61 6e 69 6d 77 25 2c 34 2c 22 64 6f 72 6d 61 6e |animw%,4,"dorman|
0000c820 63 79 22 29 0d 39 bc 31 20 c9 20 33 36 2c 33 37 |cy").9.1 . 36,37|
0000c830 20 3a 20 f2 70 75 74 69 63 6e 73 74 72 69 6e 67 | : .puticnstring|
0000c840 28 61 6e 69 6d 77 25 2c 33 2c 22 65 78 74 72 65 |(animw%,3,"extre|
0000c850 6d 65 73 22 29 0d 39 c6 05 cb 0d 39 d0 52 64 6f |mes").9....9.Rdo|
0000c860 69 6e 67 6d 6f 76 65 25 3d 30 3a 66 69 72 73 74 |ingmove%=0:first|
0000c870 6d 6f 76 65 25 3d 30 3a 61 63 74 74 78 74 69 63 |move%=0:acttxtic|
0000c880 6e 25 3d 30 3a 64 6f 69 6e 67 6d 6f 76 65 25 3d |n%=0:doingmove%=|
0000c890 30 3a 66 69 72 73 74 6d 6f 76 65 25 3d 2d 31 3a |0:firstmove%=-1:|
0000c8a0 74 65 78 74 6e 65 77 6f 6e 25 3d 30 0d 39 da 05 |textnewon%=0.9..|
0000c8b0 e1 0d 39 e4 04 0d 39 ee 0b dd f2 65 76 65 6e 74 |..9...9....event|
0000c8c0 0d 39 f8 22 c8 99 20 22 57 69 6d 70 5f 50 6f 6c |.9.".. "Wimp_Pol|
0000c8d0 6c 22 2c 30 2c 62 6c 6b 25 20 b8 20 65 25 2c 65 |l",0,blk% . e%,e|
0000c8e0 62 25 0d 3a 02 0b c8 8e 20 65 25 20 ca 0d 3a 0c |b%.:.... e% ..:.|
0000c8f0 1f 20 20 c9 20 30 3a 20 e7 64 6f 69 6e 67 6d 6f |. . 0: .doingmo|
0000c900 76 65 25 3a f2 61 6e 69 6d 61 74 65 0d 3a 16 28 |ve%:.animate.:.(|
0000c910 f4 20 20 20 20 20 20 20 20 20 20 49 46 64 6f 69 |. IFdoi|
0000c920 6e 67 63 6c 6f 73 65 72 25 20 50 52 4f 43 63 6c |ngcloser% PROCcl|
0000c930 6f 73 65 72 0d 3a 20 2e f4 20 20 20 20 20 20 20 |oser.: .. |
0000c940 20 20 20 49 46 64 6f 69 6e 67 70 69 6e 70 61 72 | IFdoingpinpar|
0000c950 74 25 20 50 52 4f 43 6d 6f 76 65 70 69 6e 70 61 |t% PROCmovepinpa|
0000c960 72 74 0d 3a 2a 53 f4 20 20 20 20 20 20 20 20 20 |rt.:*S. |
0000c970 20 73 69 7a 7a 31 25 3d 28 21 64 65 74 61 72 65 | sizz1%=(!detare|
0000c980 61 25 29 2d 28 64 65 74 61 72 65 61 25 21 31 32 |a%)-(detarea%!12|
0000c990 29 3a 49 46 73 69 7a 7a 31 25 3c 6d 69 6e 73 69 |):IFsizz1%<minsi|
0000c9a0 7a 7a 31 25 3a 6d 69 6e 73 69 7a 7a 31 25 3d 73 |zz1%:minsizz1%=s|
0000c9b0 69 7a 7a 31 25 0d 3a 34 43 f4 20 20 20 20 20 20 |izz1%.:4C. |
0000c9c0 20 20 20 20 73 69 7a 7a 32 25 3d 48 49 4d 45 4d | sizz2%=HIMEM|
0000c9d0 2d 45 4e 44 3a 49 46 73 69 7a 7a 32 25 3c 6d 69 |-END:IFsizz2%<mi|
0000c9e0 6e 73 69 7a 7a 32 25 3a 6d 69 6e 73 69 7a 7a 32 |nsizz2%:minsizz2|
0000c9f0 25 3d 73 69 7a 7a 32 25 0d 3a 3e 43 f4 20 20 20 |%=sizz2%.:>C. |
0000ca00 20 20 20 20 20 20 20 73 69 7a 7a 33 25 3d 45 4e | sizz3%=EN|
0000ca10 44 2d 4c 4f 4d 45 4d 3a 49 46 73 69 7a 7a 33 25 |D-LOMEM:IFsizz3%|
0000ca20 3c 6d 69 6e 73 69 7a 7a 33 25 3a 6d 69 6e 73 69 |<minsizz3%:minsi|
0000ca30 7a 7a 33 25 3d 73 69 7a 7a 33 25 0d 3a 48 18 20 |zz3%=sizz3%.:H. |
0000ca40 20 c9 20 31 3a 20 f2 72 65 64 72 61 77 28 21 65 | . 1: .redraw(!e|
0000ca50 62 25 29 0d 3a 52 1a 20 20 c9 20 32 3a 20 f2 6f |b%).:R. . 2: .o|
0000ca60 70 65 6e 77 69 6e 64 28 62 6c 6b 25 29 0d 3a 5c |penwind(blk%).:\|
0000ca70 1c 20 20 c9 20 33 3a 20 f2 63 6c 6f 73 65 77 69 |. . 3: .closewi|
0000ca80 6e 64 73 28 62 6c 6b 25 29 0d 3a 66 32 20 20 c9 |nds(blk%).:f2 .|
0000ca90 20 36 3a 20 f2 63 6c 69 63 6b 28 65 62 25 21 30 | 6: .click(eb%!0|
0000caa0 2c 65 62 25 21 34 2c 65 62 25 21 38 2c 65 62 25 |,eb%!4,eb%!8,eb%|
0000cab0 21 31 32 2c 65 62 25 21 31 36 29 0d 3a 70 16 20 |!12,eb%!16).:p. |
0000cac0 20 c9 20 39 3a 20 f2 6d 65 6e 75 73 65 6c 65 63 | . 9: .menuselec|
0000cad0 74 0d 3a 7a 17 20 20 c9 20 31 37 2c 31 38 3a 20 |t.:z. . 17,18: |
0000cae0 f2 72 65 63 65 69 76 65 0d 3a 84 05 cb 0d 3a 8e |.receive.:....:.|
0000caf0 05 e1 0d 3a 98 04 0d 3a a2 0d dd f2 72 65 63 65 |...:...:....rece|
0000cb00 69 76 65 0d 3a ac 0f c8 8e 20 65 62 25 21 31 36 |ive.:.... eb%!16|
0000cb10 20 ca 0d 3a b6 14 20 20 c9 20 30 3a 20 71 75 69 | ..:.. . 0: qui|
0000cb20 74 25 20 3d 20 b9 0d 3a c0 42 20 20 c9 20 39 3a |t% = ..:.B . 9:|
0000cb30 20 f2 6d 6f 64 65 63 68 61 6e 67 65 3a c8 99 22 | .modechange:.."|
0000cb40 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 72 61 77 |Wimp_ForceRedraw|
0000cb50 22 2c 2d 31 2c 30 2c 30 2c 78 6d 61 78 65 63 25 |",-1,0,0,xmaxec%|
0000cb60 2c 79 6d 61 78 65 63 25 0d 3a ca 1b 20 20 c9 20 |,ymaxec%.:.. . |
0000cb70 26 34 30 30 43 31 3a 20 f2 6d 6f 64 65 63 68 61 |&400C1: .modecha|
0000cb80 6e 67 65 0d 3a d4 05 cb 0d 3a de 05 e1 0d 3a e8 |nge.:....:....:.|
0000cb90 04 0d 3a f2 10 dd f2 72 65 64 72 61 77 28 77 25 |..:....redraw(w%|
0000cba0 29 0d 3a fc 0b c8 8e 20 77 25 20 ca 0d 3b 06 23 |).:.... w% ..;.#|
0000cbb0 f4 20 20 57 48 45 4e 20 73 79 73 74 77 25 3a 20 |. WHEN systw%: |
0000cbc0 50 52 4f 43 72 65 64 72 61 77 73 79 73 74 77 0d |PROCredrawsystw.|
0000cbd0 3b 10 23 f4 20 20 57 48 45 4e 20 62 6f 64 79 77 |;.#. WHEN bodyw|
0000cbe0 25 3a 20 50 52 4f 43 72 65 64 72 61 77 62 6f 64 |%: PROCredrawbod|
0000cbf0 79 77 0d 3b 1a 23 20 20 c9 20 61 6e 69 6d 77 25 |yw.;.# . animw%|
0000cc00 2c 61 6e 6d 65 77 25 3a 20 f2 72 65 64 72 61 77 |,anmew%: .redraw|
0000cc10 61 6e 69 6d 77 0d 3b 24 29 f4 20 20 57 48 45 4e |animw.;$). WHEN|
0000cc20 20 70 69 6e 6f 75 74 6c 77 25 3a 20 50 52 4f 43 | pinoutlw%: PROC|
0000cc30 72 65 64 72 61 77 70 69 6e 6f 75 74 6c 77 0d 3b |redrawpinoutlw.;|
0000cc40 2e 16 20 20 7f 20 3a 20 f2 72 65 64 72 61 77 6f |.. . : .redrawo|
0000cc50 74 68 65 72 0d 3b 38 05 cb 0d 3b 42 05 e1 0d 3b |ther.;8...;B...;|
0000cc60 4c 04 0d 3b 56 11 dd f2 72 65 64 72 61 77 6f 74 |L..;V...redrawot|
0000cc70 68 65 72 0d 3b 60 28 c8 99 20 22 57 69 6d 70 5f |her.;`(.. "Wimp_|
0000cc80 52 65 64 72 61 77 57 69 6e 64 6f 77 22 2c 2c 62 |RedrawWindow",,b|
0000cc90 6c 6b 25 20 b8 20 6d 6f 72 65 25 0d 3b 6a 0c c8 |lk% . more%.;j..|
0000cca0 95 20 6d 6f 72 65 25 0d 3b 74 29 c8 99 20 22 57 |. more%.;t).. "W|
0000ccb0 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 6c 65 |imp_GetRectangle|
0000ccc0 22 2c 2c 62 6c 6b 25 20 b8 20 6d 6f 72 65 25 3a |",,blk% . more%:|
0000ccd0 0d 3b 7e 05 ce 0d 3b 88 05 e1 0d 3b 92 04 0d 3b |.;~...;....;...;|
0000cce0 9c 11 dd f2 72 65 64 72 61 77 61 6e 69 6d 77 0d |....redrawanimw.|
0000ccf0 3b a6 28 c8 99 20 22 57 69 6d 70 5f 52 65 64 72 |;.(.. "Wimp_Redr|
0000cd00 61 77 57 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 20 |awWindow",,blk% |
0000cd10 b8 20 6d 6f 72 65 25 0d 3b b0 38 73 70 78 25 3d |. more%.;.8spx%=|
0000cd20 62 6c 6b 25 21 34 2d 62 6c 6b 25 21 32 30 2b 31 |blk%!4-blk%!20+1|
0000cd30 36 3a 73 70 79 25 3d 28 62 6c 6b 25 21 31 36 2d |6:spy%=(blk%!16-|
0000cd40 62 6c 6b 25 21 32 34 29 2d 37 36 2d 36 34 34 0d |blk%!24)-76-644.|
0000cd50 3b ba 0c c8 95 20 6d 6f 72 65 25 0d 3b c4 47 c8 |;.... more%.;.G.|
0000cd60 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
0000cd70 26 31 33 34 2c 61 6e 69 6d 61 72 65 61 25 2c 22 |&134,animarea%,"|
0000cd80 61 6e 69 6d 22 2c 73 70 78 25 2c 73 70 79 25 2c |anim",spx%,spy%,|
0000cd90 30 2c 73 63 61 6c 65 25 2c 63 6f 6c 74 72 61 6e |0,scale%,coltran|
0000cda0 73 25 0d 3b ce 29 c8 99 20 22 57 69 6d 70 5f 47 |s%.;.).. "Wimp_G|
0000cdb0 65 74 52 65 63 74 61 6e 67 6c 65 22 2c 2c 62 6c |etRectangle",,bl|
0000cdc0 6b 25 20 b8 20 6d 6f 72 65 25 3a 0d 3b d8 05 ce |k% . more%:.;...|
0000cdd0 0d 3b e2 05 e1 0d 3b ec 04 0d 3b f6 18 dd f2 61 |.;....;...;....a|
0000cde0 64 64 61 6e 6d 65 77 6c 69 6e 65 73 28 61 6d 25 |ddanmewlines(am%|
0000cdf0 29 0d 3c 00 08 ea 20 6b 25 0d 3c 0a 2b c8 99 22 |).<... k%.<.+.."|
0000ce00 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 |OS_SpriteOp",&13|
0000ce10 43 2c 61 6e 69 6d 61 72 65 61 25 2c 22 61 6e 69 |C,animarea%,"ani|
0000ce20 6d 22 2c 30 0d 3c 14 2c 6c 69 6e 24 3d 61 6e 6d |m",0.<.,lin$=anm|
0000ce30 65 77 6c 69 6e 65 73 24 28 61 6d 25 2d 31 29 3a |ewlines$(am%-1):|
0000ce40 6e 6f 6c 69 6e 65 73 25 3d bb 28 6c 69 6e 24 29 |nolines%=.(lin$)|
0000ce50 0d 3c 1e 19 6c 69 6e 24 3d c2 6c 69 6e 24 2c a9 |.<..lin$=.lin$,.|
0000ce60 28 6c 69 6e 24 29 2d 33 29 0d 3c 28 10 e7 6e 6f |(lin$)-3).<(..no|
0000ce70 6c 69 6e 65 73 25 3e 30 8c 0d 3c 32 13 20 e3 6b |lines%>0..<2. .k|
0000ce80 25 3d 31 b8 6e 6f 6c 69 6e 65 73 25 0d 3c 3c 20 |%=1.nolines%.<< |
0000ce90 20 20 c8 99 22 57 69 6d 70 5f 53 65 74 43 6f 6c | .."Wimp_SetCol|
0000cea0 6f 75 72 22 2c bb 28 6c 69 6e 24 29 0d 3c 46 4d |our",.(lin$).<FM|
0000ceb0 20 20 ef 32 35 2c 34 2c bb 28 c1 6c 69 6e 24 2c | .25,4,.(.lin$,|
0000cec0 34 2c 33 29 29 3b bb 28 c1 6c 69 6e 24 2c 38 2c |4,3));.(.lin$,8,|
0000ced0 33 29 29 3b 3a ef 32 35 2c 35 2c bb 28 c1 6c 69 |3));:.25,5,.(.li|
0000cee0 6e 24 2c 31 32 2c 33 29 29 3b bb 28 c1 6c 69 6e |n$,12,3));.(.lin|
0000cef0 24 2c 31 36 2c 33 29 29 3b 0d 3c 50 51 20 20 ef |$,16,3));.<PQ .|
0000cf00 32 35 2c 34 2c bb 28 c1 6c 69 6e 24 2c 34 2c 33 |25,4,.(.lin$,4,3|
0000cf10 29 29 2b 32 3b bb 28 c1 6c 69 6e 24 2c 38 2c 33 |))+2;.(.lin$,8,3|
0000cf20 29 29 3b 3a ef 32 35 2c 35 2c bb 28 c1 6c 69 6e |));:.25,5,.(.lin|
0000cf30 24 2c 31 32 2c 33 29 29 2b 32 3b bb 28 c1 6c 69 |$,12,3))+2;.(.li|
0000cf40 6e 24 2c 31 36 2c 33 29 29 3b 0d 3c 5a 1c 20 20 |n$,16,3));.<Z. |
0000cf50 6c 69 6e 24 3d c2 6c 69 6e 24 2c a9 28 6c 69 6e |lin$=.lin$,.(lin|
0000cf60 24 29 2d 31 39 29 0d 3c 64 06 20 ed 0d 3c 6e 0d |$)-19).<d. ..<n.|
0000cf70 20 e7 61 6d 25 3d 35 20 8c 0d 3c 78 2a 20 20 6c | .am%=5 ..<x* l|
0000cf80 69 6e 24 3d 61 6e 6d 65 77 6c 69 6e 65 73 24 28 |in$=anmewlines$(|
0000cf90 35 29 3a 6e 6f 6c 69 6e 65 73 25 3d bb 28 6c 69 |5):nolines%=.(li|
0000cfa0 6e 24 29 0d 3c 82 1b 20 20 6c 69 6e 24 3d c2 6c |n$).<.. lin$=.l|
0000cfb0 69 6e 24 2c a9 28 6c 69 6e 24 29 2d 33 29 0d 3c |in$,.(lin$)-3).<|
0000cfc0 8c 14 20 20 e3 6b 25 3d 31 b8 6e 6f 6c 69 6e 65 |.. .k%=1.noline|
0000cfd0 73 25 0d 3c 96 21 20 20 20 c8 99 22 57 69 6d 70 |s%.<.! .."Wimp|
0000cfe0 5f 53 65 74 43 6f 6c 6f 75 72 22 2c bb 28 6c 69 |_SetColour",.(li|
0000cff0 6e 24 29 0d 3c a0 4e 20 20 20 ef 32 35 2c 34 2c |n$).<.N .25,4,|
0000d000 bb 28 c1 6c 69 6e 24 2c 34 2c 33 29 29 3b bb 28 |.(.lin$,4,3));.(|
0000d010 c1 6c 69 6e 24 2c 38 2c 33 29 29 3b 3a ef 32 35 |.lin$,8,3));:.25|
0000d020 2c 35 2c bb 28 c1 6c 69 6e 24 2c 31 32 2c 33 29 |,5,.(.lin$,12,3)|
0000d030 29 3b bb 28 c1 6c 69 6e 24 2c 31 36 2c 33 29 29 |);.(.lin$,16,3))|
0000d040 3b 0d 3c aa 52 20 20 20 ef 32 35 2c 34 2c bb 28 |;.<.R .25,4,.(|
0000d050 c1 6c 69 6e 24 2c 34 2c 33 29 29 2b 32 3b bb 28 |.lin$,4,3))+2;.(|
0000d060 c1 6c 69 6e 24 2c 38 2c 33 29 29 3b 3a ef 32 35 |.lin$,8,3));:.25|
0000d070 2c 35 2c bb 28 c1 6c 69 6e 24 2c 31 32 2c 33 29 |,5,.(.lin$,12,3)|
0000d080 29 2b 32 3b bb 28 c1 6c 69 6e 24 2c 31 36 2c 33 |)+2;.(.lin$,16,3|
0000d090 29 29 3b 0d 3c b4 1d 20 20 20 6c 69 6e 24 3d c2 |));.<.. lin$=.|
0000d0a0 6c 69 6e 24 2c a9 28 6c 69 6e 24 29 2d 31 39 29 |lin$,.(lin$)-19)|
0000d0b0 0d 3c be 07 20 20 ed 0d 3c c8 06 20 cd 0d 3c d2 |.<.. ..<.. ..<.|
0000d0c0 05 cd 0d 3c dc 26 c8 99 22 4f 53 5f 53 70 72 69 |...<.&.."OS_Spri|
0000d0d0 74 65 4f 70 22 2c 26 31 33 43 2c 61 6e 69 6d 61 |teOp",&13C,anima|
0000d0e0 72 65 61 25 2c 30 2c 31 0d 3c e6 05 e1 0d 3c f0 |rea%,0,1.<....<.|
0000d0f0 04 0d 3c fa 11 dd f2 63 6c 5f 61 6e 69 6d 28 44 |..<....cl_anim(D|
0000d100 25 29 0d 3d 04 3b c8 99 20 22 4f 53 5f 53 70 72 |%).=.;.. "OS_Spr|
0000d110 69 74 65 4f 70 22 2c 26 31 31 38 2c 61 6e 69 6d |iteOp",&118,anim|
0000d120 61 72 65 61 25 2c 22 61 6e 69 6d 22 20 b8 20 2c |area%,"anim" . ,|
0000d130 2c 41 25 3a 41 25 2b 3d 41 25 21 33 32 0d 3d 0e |,A%:A%+=A%!32.=.|
0000d140 40 f4 53 59 53 20 22 4f 53 5f 53 70 72 69 74 65 |@.SYS "OS_Sprite|
0000d150 4f 70 22 2c 26 31 32 38 2c 61 6e 69 6d 61 72 65 |Op",&128,animare|
0000d160 61 25 2c 22 61 6e 69 6d 22 20 54 4f 20 2c 2c 2c |a%,"anim" TO ,,,|
0000d170 42 25 2c 43 25 3a 42 25 3d 42 25 2f 32 0d 3d 18 |B%,C%:B%=B%/2.=.|
0000d180 20 e3 73 25 3d 32 b8 34 3a 44 25 3d 44 25 84 28 | .s%=2.4:D%=D%.(|
0000d190 44 25 3c 3c 28 32 5e 73 25 29 29 3a ed 0d 3d 22 |D%<<(2^s%)):..="|
0000d1a0 0d d6 20 61 6e 69 6d 63 6c 25 0d 3d 2c 05 e1 0d |.. animcl%.=,...|
0000d1b0 3d 36 04 0d 3d 40 12 dd f2 64 75 6c 6c 61 6e 69 |=6..=@...dullani|
0000d1c0 6d 28 44 25 29 0d 3d 4a 3b c8 99 20 22 4f 53 5f |m(D%).=J;.. "OS_|
0000d1d0 53 70 72 69 74 65 4f 70 22 2c 26 31 31 38 2c 61 |SpriteOp",&118,a|
0000d1e0 6e 69 6d 61 72 65 61 25 2c 22 61 6e 69 6d 22 20 |nimarea%,"anim" |
0000d1f0 b8 20 2c 2c 41 25 3a 41 25 2b 3d 41 25 21 33 32 |. ,,A%:A%+=A%!32|
0000d200 0d 3d 54 0f d6 20 61 6e 69 6d 64 75 6c 6c 25 0d |.=T.. animdull%.|
0000d210 3d 5e 05 e1 0d 3d 68 04 0d 3d 72 12 dd f2 61 64 |=^...=h..=r...ad|
0000d220 64 74 65 78 74 28 61 61 25 29 0d 3d 7c 42 21 62 |dtext(aa%).=|B!b|
0000d230 6c 6b 32 25 3d 61 6e 69 6d 77 25 3a c8 99 22 57 |lk2%=animw%:.."W|
0000d240 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 |imp_GetWindowSta|
0000d250 74 65 22 2c 2c 62 6c 6b 32 25 3a 77 69 6e 64 70 |te",,blk2%:windp|
0000d260 6f 73 25 3d 62 6c 6b 32 25 21 32 38 0d 3d 86 23 |os%=blk2%!28.=.#|
0000d270 21 62 6c 6b 32 25 3d 61 6e 69 6d 77 25 3a f2 63 |!blk2%=animw%:.c|
0000d280 6c 6f 73 65 77 69 6e 64 28 62 6c 6b 32 25 29 0d |losewind(blk2%).|
0000d290 3d 90 50 21 62 6c 6b 32 25 3d 30 3a 62 6c 6b 32 |=.P!blk2%=0:blk2|
0000d2a0 25 21 34 3d 2d 39 37 36 3a 62 6c 6b 32 25 21 38 |%!4=-976:blk2%!8|
0000d2b0 3d 38 34 32 3a 62 6c 6b 32 25 21 31 32 3d 30 3a |=842:blk2%!12=0:|
0000d2c0 c8 99 22 57 69 6d 70 5f 53 65 74 45 78 74 65 6e |.."Wimp_SetExten|
0000d2d0 74 22 2c 61 6e 69 6d 77 25 2c 62 6c 6b 32 25 0d |t",animw%,blk2%.|
0000d2e0 3d 9a 2e f2 68 69 64 65 69 63 6e 28 61 6e 69 6d |=...hideicn(anim|
0000d2f0 77 25 2c 39 2c a3 29 3a f2 68 69 64 65 69 63 6e |w%,9,.):.hideicn|
0000d300 28 61 6e 69 6d 77 25 2c 31 30 2c a3 29 0d 3d a4 |(animw%,10,.).=.|
0000d310 11 e7 ac 64 6f 69 6e 67 6d 6f 76 65 25 8c 0d 3d |...doingmove%..=|
0000d320 ae 0d 20 c8 8e 20 61 61 25 20 ca 0d 3d b8 ab 20 |.. .. aa% ..=.. |
0000d330 20 c9 20 31 34 3a c8 99 22 4f 53 5f 53 70 72 69 | . 14:.."OS_Spri|
0000d340 74 65 4f 70 22 2c 26 31 33 43 2c 61 6e 69 6d 61 |teOp",&13C,anima|
0000d350 72 65 61 25 2c 22 61 6e 69 6d 22 2c 30 3a c8 99 |rea%,"anim",0:..|
0000d360 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
0000d370 32 32 2c 64 65 74 61 72 65 61 25 2c 22 67 72 66 |22,detarea%,"grf|
0000d380 6c 22 2c 39 34 2c 35 36 2c 38 3a c8 99 22 57 69 |l",94,56,8:.."Wi|
0000d390 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 2c 37 3a |mp_SetColour",7:|
0000d3a0 f2 62 6f 78 28 34 31 36 2c 31 38 38 2c 31 36 2c |.box(416,188,16,|
0000d3b0 31 36 29 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |16):.."OS_Sprite|
0000d3c0 4f 70 22 2c 26 31 33 43 2c 61 6e 69 6d 61 72 65 |Op",&13C,animare|
0000d3d0 61 25 2c 30 2c 31 0d 3d c2 dc 20 20 c9 20 32 32 |a%,0,1.=.. . 22|
0000d3e0 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |:.."OS_SpriteOp"|
0000d3f0 2c 26 31 33 43 2c 61 6e 69 6d 61 72 65 61 25 2c |,&13C,animarea%,|
0000d400 22 61 6e 69 6d 22 2c 30 3a c8 99 22 4f 53 5f 53 |"anim",0:.."OS_S|
0000d410 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
0000d420 74 61 72 65 61 25 2c 22 64 73 62 6f 78 22 2c 31 |tarea%,"dsbox",1|
0000d430 30 30 2c 31 31 36 2c 38 3a c8 99 22 4f 53 5f 53 |00,116,8:.."OS_S|
0000d440 70 72 69 74 65 4f 70 22 2c 26 31 32 32 2c 64 65 |priteOp",&122,de|
0000d450 74 61 72 65 61 25 2c 22 64 73 32 22 2c 31 34 34 |tarea%,"ds2",144|
0000d460 2c 31 36 38 2c 38 3a c8 99 22 57 69 6d 70 5f 53 |,168,8:.."Wimp_S|
0000d470 65 74 43 6f 6c 6f 75 72 22 2c 37 3a f2 62 6f 78 |etColour",7:.box|
0000d480 28 36 36 38 2c 32 37 36 2c 31 36 2c 31 36 29 3a |(668,276,16,16):|
0000d490 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |.."OS_SpriteOp",|
0000d4a0 26 31 33 43 2c 61 6e 69 6d 61 72 65 61 25 2c 30 |&13C,animarea%,0|
0000d4b0 2c 31 0d 3d cc 33 20 20 c9 20 32 33 3a c8 99 22 |,1.=.3 . 23:.."|
0000d4c0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 |OS_SpriteOp",&13|
0000d4d0 43 2c 61 6e 69 6d 61 72 65 61 25 2c 22 61 6e 69 |C,animarea%,"ani|
0000d4e0 6d 22 2c 30 3a 0d 3d d6 ab 20 20 20 20 20 20 20 |m",0:.=.. |
0000d4f0 20 20 20 c8 99 22 4f 53 5f 53 70 72 69 74 65 4f | .."OS_SpriteO|
0000d500 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 25 |p",&122,detarea%|
0000d510 2c 22 63 68 65 72 72 79 22 2c 31 31 36 2c 33 38 |,"cherry",116,38|
0000d520 38 2c 38 3a c8 99 22 4f 53 5f 53 70 72 69 74 65 |8,8:.."OS_Sprite|
0000d530 4f 70 22 2c 26 31 32 32 2c 64 65 74 61 72 65 61 |Op",&122,detarea|
0000d540 25 2c 22 68 6f 6f 6b 73 22 2c 35 30 30 2c 32 30 |%,"hooks",500,20|
0000d550 34 2c 38 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 |4,8:.."Wimp_SetC|
0000d560 6f 6c 6f 75 72 22 2c 37 3a f2 62 6f 78 28 32 31 |olour",7:.box(21|
0000d570 36 2c 35 37 36 2c 31 36 2c 31 36 29 3a f2 62 6f |6,576,16,16):.bo|
0000d580 78 28 36 32 36 2c 34 34 34 2c 31 36 2c 31 36 29 |x(626,444,16,16)|
0000d590 0d 3d e0 30 20 20 20 20 20 20 20 20 20 20 c8 99 |.=.0 ..|
0000d5a0 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 |"OS_SpriteOp",&1|
0000d5b0 33 43 2c 61 6e 69 6d 61 72 65 61 25 2c 30 2c 31 |3C,animarea%,0,1|
0000d5c0 0d 3d ea 06 20 cb 0d 3d f4 43 20 f2 61 64 64 6c |.=.. ..=.C .addl|
0000d5d0 69 6e 65 73 28 61 61 25 2c 30 29 3a f2 70 6c 6f |ines(aa%,0):.plo|
0000d5e0 74 61 6e 69 6d 28 61 61 25 29 3a f2 61 64 64 6c |tanim(aa%):.addl|
0000d5f0 61 62 65 6c 73 28 61 61 25 29 3a f2 61 64 64 77 |abels(aa%):.addw|
0000d600 6f 72 64 73 28 61 61 25 29 0d 3d fe 05 cc 0d 3e |ords(aa%).=....>|
0000d610 08 3b 20 f2 70 75 74 69 63 6e 73 74 72 69 6e 67 |.; .puticnstring|
0000d620 28 61 6e 69 6d 77 25 2c 39 2c 22 22 29 3a f2 70 |(animw%,9,""):.p|
0000d630 75 74 69 63 6e 73 74 72 69 6e 67 28 61 6e 69 6d |uticnstring(anim|
0000d640 77 25 2c 31 30 2c 22 22 29 0d 3e 12 05 cd 0d 3e |w%,10,"").>....>|
0000d650 1c 2e 21 62 6c 6b 25 3d 61 6e 69 6d 77 25 3a c8 |..!blk%=animw%:.|
0000d660 99 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 |."Wimp_GetWindow|
0000d670 53 74 61 74 65 22 2c 2c 62 6c 6b 25 0d 3e 26 3a |State",,blk%.>&:|
0000d680 e7 62 6c 6b 25 21 31 36 3c 39 37 36 20 62 6c 6b |.blk%!16<976 blk|
0000d690 25 21 31 36 3d 39 37 36 3a 62 6c 6b 25 21 38 3d |%!16=976:blk%!8=|
0000d6a0 30 3a 8b 3a 62 6c 6b 25 21 38 3d 62 6c 6b 25 21 |0:.:blk%!8=blk%!|
0000d6b0 31 36 2d 39 37 36 0d 3e 30 1e 62 6c 6b 25 21 32 |16-976.>0.blk%!2|
0000d6c0 34 3d 30 3a 62 6c 6b 25 21 32 38 3d 77 69 6e 64 |4=0:blk%!28=wind|
0000d6d0 70 6f 73 25 0d 3e 3a 13 f2 6f 70 65 6e 77 69 6e |pos%.>:..openwin|
0000d6e0 64 28 62 6c 6b 25 29 0d 3e 44 05 e1 0d 3e 4e 04 |d(blk%).>D...>N.|
0000d6f0 0d 3e 58 22 dd f2 61 64 64 6c 69 6e 65 73 28 61 |.>X"..addlines(a|
0000d700 61 25 2c 66 72 6f 6d 73 61 76 65 70 72 69 6e 74 |a%,fromsaveprint|
0000d710 25 29 0d 3e 62 2b c8 99 22 4f 53 5f 53 70 72 69 |%).>b+.."OS_Spri|
0000d720 74 65 4f 70 22 2c 26 31 33 43 2c 61 6e 69 6d 61 |teOp",&13C,anima|
0000d730 72 65 61 25 2c 22 61 6e 69 6d 22 2c 30 0d 3e 6c |rea%,"anim",0.>l|
0000d740 0c c8 8e 20 61 61 25 20 ca 0d 3e 76 1e 20 c9 20 |... aa% ..>v. . |
0000d750 31 30 3a c8 99 22 57 69 6d 70 5f 53 65 74 43 6f |10:.."Wimp_SetCo|
0000d760 6c 6f 75 72 22 2c 30 0d 3e 80 1b 20 7f 3a c8 99 |lour",0.>.. .:..|
0000d770 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 |"Wimp_SetColour"|
0000d780 2c 37 0d 3e 8a 05 cb 0d 3e 94 1c f4 49 46 4e 4f |,7.>....>...IFNO|
0000d790 54 66 72 6f 6d 73 61 76 65 70 72 69 6e 74 25 54 |Tfromsaveprint%T|
0000d7a0 48 45 4e 0d 3e 9e 5f f4 20 49 46 28 28 61 63 74 |HEN.>._. IF((act|
0000d7b0 69 76 65 69 63 6e 25 3d 34 29 41 4e 44 28 61 63 |iveicn%=4)AND(ac|
0000d7c0 74 69 76 65 77 25 3d 31 29 29 4f 52 28 28 61 63 |tivew%=1))OR((ac|
0000d7d0 74 69 76 65 69 63 6e 25 3d 31 37 29 41 4e 44 28 |tiveicn%=17)AND(|
0000d7e0 61 63 74 69 76 65 77 25 3e 30 29 29 3a 53 59 53 |activew%>0)):SYS|
0000d7f0 22 57 69 6d 70 5f 53 65 74 43 6f 6c 6f 75 72 22 |"Wimp_SetColour"|
0000d800 2c 30 0d 3e a8 c6 f4 20 49 46 28 28 61 63 74 69 |,0.>... IF((acti|
0000d810 76 65 69 63 6e 25 3d 36 29 41 4e 44 28 61 63 74 |veicn%=6)AND(act|
0000d820 69 76 65 77 25 3d 32 29 29 4f 52 28 28 61 63 74 |ivew%=2))OR((act|
0000d830 69 76 65 69 63 6e 25 3d 31 37 29 41 4e 44 28 61 |iveicn%=17)AND(a|
0000d840 63 74 69 76 65 77 25 3d 30 29 29 4f 52 28 28 61 |ctivew%=0))OR((a|
0000d850 63 74 69 76 65 69 63 6e 25 3d 31 39 29 41 4e 44 |ctiveicn%=19)AND|
0000d860 28 61 63 74 69 76 65 77 25 3d 30 29 29 4f 52 28 |(activew%=0))OR(|
0000d870 28 61 63 74 69 76 65 69 63 6e 25 3d 32 30 29 41 |(activeicn%=20)A|
0000d880 4e 44 28 61 63 74 69 76 65 77 25 3d 30 29 29 4f |ND(activew%=0))O|
0000d890 52 28 28 61 63 74 69 76 65 69 63 6e 25 3d 32 30 |R((activeicn%=20|
0000d8a0 29 41 4e 44 28 61 63 74 69 76 65 77 25 3d 32 29 |)AND(activew%=2)|
0000d8b0 29 3a 53 59 53 22 57 69 6d 70 5f 53 65 74 43 6f |):SYS"Wimp_SetCo|
0000d8c0 6c 6f 75 72 22 2c 31 31 0d 3e b2 0a f4 45 4e 44 |lour",11.>...END|
0000d8d0 49 46 0d 3e bc 27 6c 69 6e 24 3d 6c 69 6e 65 73 |IF.>.'lin$=lines|
0000d8e0 24 28 73 69 6d 70 25 29 3a 6e 6f 6c 69 6e 65 73 |$(simp%):nolines|
0000d8f0 25 3d bb 28 6c 69 6e 24 29 0d 3e c6 19 6c 69 6e |%=.(lin$).>..lin|
0000d900 24 3d c2 6c 69 6e 24 2c a9 28 6c 69 6e 24 29 2d |$=.lin$,.(lin$)-|
0000d910 33 29 0d 3e d0 10 e7 6e 6f 6c 69 6e 65 73 25 3e |3).>...nolines%>|
0000d920 30 8c 0d 3e da 13 20 e3 6b 25 3d 31 b8 6e 6f 6c |0..>.. .k%=1.nol|
0000d930 69 6e 65 73 25 0d 3e e4 4b 20 ef 32 35 2c 34 2c |ines%.>.K .25,4,|
0000d940 bb 28 c1 6c 69 6e 24 2c 31 2c 33 29 29 3b bb 28 |.(.lin$,1,3));.(|
0000d950 c1 6c 69 6e 24 2c 35 2c 33 29 29 3b 3a ef 32 35 |.lin$,5,3));:.25|
0000d960 2c 35 2c bb 28 c1 6c 69 6e 24 2c 39 2c 33 29 29 |,5,.(.lin$,9,3))|
0000d970 3b bb 28 c1 6c 69 6e 24 2c 31 33 2c 33 29 29 3b |;.(.lin$,13,3));|
0000d980 0d 3e ee 4f 20 ef 32 35 2c 34 2c bb 28 c1 6c 69 |.>.O .25,4,.(.li|
0000d990 6e 24 2c 31 2c 33 29 29 2b 32 3b bb 28 c1 6c 69 |n$,1,3))+2;.(.li|
0000d9a0 6e 24 2c 35 2c 33 29 29 3b 3a ef 32 35 2c 35 2c |n$,5,3));:.25,5,|
0000d9b0 bb 28 c1 6c 69 6e 24 2c 39 2c 33 29 29 2b 32 3b |.(.lin$,9,3))+2;|
0000d9c0 bb 28 c1 6c 69 6e 24 2c 31 33 2c 33 29 29 3b 0d |.(.lin$,13,3));.|
0000d9d0 3e f8 1b 20 6c 69 6e 24 3d c2 6c 69 6e 24 2c a9 |>.. lin$=.lin$,.|
0000d9e0 28 6c 69 6e 24 29 2d 31 36 29 0d 3f 02 06 20 ed |(lin$)-16).?.. .|
0000d9f0 0d 3f 0c 05 cd 0d 3f 16 0c c8 8e 20 61 61 25 20 |.?....?.... aa% |
0000da00 ca 0d 3f 20 1d 20 c9 20 33 3a 20 f2 62 6f 78 28 |..? . . 3: .box(|
0000da10 34 2c 32 37 32 2c 31 35 38 2c 32 38 30 29 0d 3f |4,272,158,280).?|
0000da20 2a 2c 20 20 20 20 20 20 20 20 20 ef 32 35 2c 34 |*, .25,4|
0000da30 2c 35 35 30 3b 32 37 32 3b 3a ef 32 35 2c 31 30 |,550;272;:.25,10|
0000da40 31 2c 35 35 32 3b 33 34 36 3b 0d 3f 34 2c 20 20 |1,552;346;.?4, |
0000da50 20 20 20 20 20 20 20 ef 32 35 2c 34 2c 36 35 38 | .25,4,658|
0000da60 3b 34 35 32 3b 3a ef 32 35 2c 31 30 31 2c 38 30 |;452;:.25,101,80|
0000da70 32 3b 34 35 34 3b 0d 3f 3e 2c 20 20 20 20 20 20 |2;454;.?>, |
0000da80 20 20 20 ef 32 35 2c 34 2c 38 30 30 3b 34 35 34 | .25,4,800;454|
0000da90 3b 3a ef 32 35 2c 31 30 31 2c 38 30 32 3b 32 37 |;:.25,101,802;27|
0000daa0 32 3b 0d 3f 48 2c 20 20 20 20 20 20 20 20 20 ef |2;.?H, .|
0000dab0 32 35 2c 34 2c 38 30 32 3b 32 37 34 3b 3a ef 32 |25,4,802;274;:.2|
0000dac0 35 2c 31 30 31 2c 35 35 30 3b 32 37 32 3b 0d 3f |5,101,550;272;.?|
0000dad0 52 2a 20 20 20 20 20 20 20 20 20 ef 32 35 2c 34 |R* .25,4|
0000dae0 2c 35 35 30 3b 33 34 34 3b 3a ef 32 35 2c 35 2c |,550;344;:.25,5,|
0000daf0 36 35 38 3b 34 35 32 3b 0d 3f 5c 2a 20 20 20 20 |658;452;.?\* |
0000db00 20 20 20 20 20 ef 32 35 2c 34 2c 35 35 32 3b 33 | .25,4,552;3|
0000db10 34 34 3b 3a ef 32 35 2c 35 2c 36 36 30 3b 34 35 |44;:.25,5,660;45|
0000db20 32 3b 0d 3f 66 20 20 c9 20 32 36 3a 20 f2 62 6f |2;.?f . 26: .bo|
0000db30 78 28 35 35 30 2c 32 36 38 2c 32 35 36 2c 32 38 |x(550,268,256,28|
0000db40 38 29 0d 3f 70 05 cb 0d 3f 7a 26 c8 99 22 4f 53 |8).?p...?z&.."OS|
0000db50 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 33 43 2c |_SpriteOp",&13C,|
0000db60 61 6e 69 6d 61 72 65 61 25 2c 30 2c 31 0d 3f 84 |animarea%,0,1.?.|
0000db70 05 e1 0d 3f 8e 04 0d 3f 98 14 dd f2 61 64 64 6c |...?...?....addl|
0000db80 61 62 65 6c 73 28 61 61 25 29 0d 3f a2 08 ea 20 |abels(aa%).?... |
0000db90 6b 25 0d 3f ac 1a e7 6e 6f 6c 61 62 73 25 28 61 |k%.?...nolabs%(a|
0000dba0 61 25 2c 73 69 6d 70 25 29 3e 30 8c 0d 3f b6 1d |a%,simp%)>0..?..|
0000dbb0 20 e3 6b 25 3d 31 b8 6e 6f 6c 61 62 73 25 28 61 | .k%=1.nolabs%(a|
0000dbc0 61 25 2c 73 69 6d 70 25 29 0d 3f c0 6d 20 20 f2 |a%,simp%).?.m .|
0000dbd0 70 75 74 69 63 6e 73 74 72 69 6e 67 28 61 6e 69 |puticnstring(ani|
0000dbe0 6d 77 25 2c bb 28 77 6f 72 64 73 24 28 73 69 6d |mw%,.(words$(sim|
0000dbf0 70 25 2c 6b 25 2c 30 29 29 2c 77 6f 72 64 73 24 |p%,k%,0)),words$|
0000dc00 28 73 69 6d 70 25 2c 6b 25 2c 31 29 29 3a f2 68 |(simp%,k%,1)):.h|
0000dc10 69 64 65 69 63 6e 28 61 6e 69 6d 77 25 2c bb 28 |ideicn(animw%,.(|
0000dc20 77 6f 72 64 73 24 28 73 69 6d 70 25 2c 6b 25 2c |words$(simp%,k%,|
0000dc30 30 29 29 2c a3 29 0d 3f ca 06 20 ed 0d 3f d4 05 |0)),.).?.. ..?..|
0000dc40 cd 0d 3f de 05 e1 0d 3f e8 04 0d 3f f2 13 dd f2 |..?....?...?....|
0000dc50 61 64 64 77 6f 72 64 73 28 61 61 25 29 0d 3f fc |addwords(aa%).?.|
0000dc60 12 e7 61 63 74 74 78 74 69 63 6e 25 3d 30 8c 0d |..acttxticn%=0..|
0000dc70 40 06 57 20 74 69 74 6c 24 3d 77 6f 72 64 73 24 |@.W titl$=words$|
0000dc80 28 73 69 6d 70 25 2c 30 2c 31 29 3a e7 77 6f 72 |(simp%,0,1):.wor|
0000dc90 64 73 24 28 73 69 6d 70 25 2c 30 2c 32 29 3c 3e |ds$(simp%,0,2)<>|
0000dca0 22 22 3a 74 69 74 6c 24 2b 3d 22 20 22 3a 74 69 |"":titl$+=" ":ti|
0000dcb0 74 6c 24 2b 3d 77 6f 72 64 73 24 28 73 69 6d 70 |tl$+=words$(simp|
0000dcc0 25 2c 30 2c 32 29 0d 40 10 4d 20 f2 70 75 74 69 |%,0,2).@.M .puti|
0000dcd0 63 6e 73 74 72 69 6e 67 28 61 6e 69 6d 77 25 2c |cnstring(animw%,|
0000dce0 39 2c 74 69 74 6c 24 29 3a f2 70 75 74 69 63 6e |9,titl$):.puticn|
0000dcf0 73 74 72 69 6e 67 28 61 6e 69 6d 77 25 2c 31 30 |string(animw%,10|
0000dd00 2c 77 6f 72 64 73 24 28 73 69 6d 70 25 2c 30 2c |,words$(simp%,0,|
0000dd10 33 29 29 0d 40 1a 06 20 e1 0d 40 24 05 cd 0d 40 |3)).@.. ..@$...@|
0000dd20 2e 1a e7 6e 6f 6c 61 62 73 25 28 61 61 25 2c 73 |...nolabs%(aa%,s|
0000dd30 69 6d 70 25 29 3e 30 8c 0d 40 38 1d 20 e3 6b 25 |imp%)>0..@8. .k%|
0000dd40 3d 31 b8 6e 6f 6c 61 62 73 25 28 61 61 25 2c 73 |=1.nolabs%(aa%,s|
0000dd50 69 6d 70 25 29 0d 40 42 29 20 20 e7 bb 28 77 6f |imp%).@B) ..(wo|
0000dd60 72 64 73 24 28 73 69 6d 70 25 2c 6b 25 2c 30 29 |rds$(simp%,k%,0)|
0000dd70 29 3d 61 63 74 74 78 74 69 63 6e 25 20 8c 0d 40 |)=acttxticn% ..@|
0000dd80 4c 1f 20 20 20 74 69 74 6c 24 3d 77 6f 72 64 73 |L. titl$=words|
0000dd90 24 28 73 69 6d 70 25 2c 6b 25 2c 31 29 0d 40 56 |$(simp%,k%,1).@V|
0000dda0 3f 20 20 20 e7 28 97 28 74 69 74 6c 24 29 3e 26 |? .(.(titl$)>&|
0000ddb0 36 30 29 80 28 97 28 74 69 74 6c 24 29 3c 26 37 |60).(.(titl$)<&7|
0000ddc0 42 29 3a c0 74 69 74 6c 24 2c 31 29 3d bd 28 97 |B):.titl$,1)=.(.|
0000ddd0 28 74 69 74 6c 24 29 2d 26 32 30 29 0d 40 60 6f |(titl$)-&20).@`o|
0000dde0 20 20 20 e7 28 97 28 74 69 74 6c 24 29 3e 26 33 | .(.(titl$)>&3|
0000ddf0 30 29 80 28 97 28 74 69 74 6c 24 29 3c 26 33 41 |0).(.(titl$)<&3A|
0000de00 29 80 28 97 28 c1 74 69 74 6c 24 2c 34 2c 31 29 |).(.(.titl$,4,1)|
0000de10 29 3e 26 36 30 29 80 28 97 28 c1 74 69 74 6c 24 |)>&60).(.(.titl$|
0000de20 2c 34 2c 31 29 29 3c 26 37 42 29 3a c1 74 69 74 |,4,1))<&7B):.tit|
0000de30 6c 24 2c 34 29 3d bd 28 97 28 c1 74 69 74 6c 24 |l$,4)=.(.(.titl$|
0000de40 2c 34 2c 31 29 29 2d 26 32 30 29 0d 40 6a 2d 20 |,4,1))-&20).@j- |
0000de50 20 20 e7 28 61 63 74 74 78 74 69 63 6e 25 3c 3e | .(acttxticn%<>|
0000de60 31 38 29 84 28 61 61 25 3c 3e 32 35 29 3a 74 69 |18).(aa%<>25):ti|
0000de70 74 6c 24 2b 3d 22 20 22 0d 40 74 20 20 20 20 74 |tl$+=" ".@t t|
0000de80 69 74 6c 24 2b 3d 77 6f 72 64 73 24 28 73 69 6d |itl$+=words$(sim|
0000de90 70 25 2c 6b 25 2c 32 29 0d 40 7e 50 20 20 20 f2 |p%,k%,2).@~P .|
0000dea0 70 75 74 69 63 6e 73 74 72 69 6e 67 28 61 6e 69 |puticnstring(ani|
0000deb0 6d 77 25 2c 39 2c 74 69 74 6c 24 29 3a f2 70 75 |mw%,9,titl$):.pu|
0000dec0 74 69 63 6e 73 74 72 69 6e 67 28 61 6e 69 6d 77 |ticnstring(animw|
0000ded0 25 2c 31 30 2c 77 6f 72 64 73 24 28 73 69 6d 70 |%,10,words$(simp|
0000dee0 25 2c 6b 25 2c 33 29 29 0d 40 88 07 20 20 cd 0d |%,k%,3)).@.. ..|
0000def0 40 92 06 20 ed 0d 40 9c 05 cd 0d 40 a6 05 e1 0d |@.. ..@....@....|
0000df00 40 b0 04 0d 40 ba 15 dd f2 72 65 6d 6f 76 65 74 |@...@....removet|
0000df10 65 78 74 28 61 61 25 29 0d 40 c4 42 21 62 6c 6b |ext(aa%).@.B!blk|
0000df20 32 25 3d 61 6e 69 6d 77 25 3a c8 99 22 57 69 6d |2%=animw%:.."Wim|
0000df30 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 |p_GetWindowState|
0000df40 22 2c 2c 62 6c 6b 32 25 3a 77 69 6e 64 70 6f 73 |",,blk2%:windpos|
0000df50 25 3d 62 6c 6b 32 25 21 32 38 0d 40 ce 23 21 62 |%=blk2%!28.@.#!b|
0000df60 6c 6b 32 25 3d 61 6e 69 6d 77 25 3a f2 63 6c 6f |lk2%=animw%:.clo|
0000df70 73 65 77 69 6e 64 28 62 6c 6b 32 25 29 0d 40 d8 |sewind(blk2%).@.|
0000df80 2b e7 64 6f 69 6e 67 6d 6f 76 65 25 3a 62 6c 6b |+.doingmove%:blk|
0000df90 32 25 21 34 3d 2d 37 38 34 3a 8b 3a 62 6c 6b 32 |2%!4=-784:.:blk2|
0000dfa0 25 21 34 3d 2d 37 33 32 0d 40 e2 43 21 62 6c 6b |%!4=-732.@.C!blk|
0000dfb0 32 25 3d 30 3a 62 6c 6b 32 25 21 38 3d 38 34 32 |2%=0:blk2%!8=842|
0000dfc0 3a 62 6c 6b 32 25 21 31 32 3d 30 3a c8 99 22 57 |:blk2%!12=0:.."W|
0000dfd0 69 6d 70 5f 53 65 74 45 78 74 65 6e 74 22 2c 61 |imp_SetExtent",a|
0000dfe0 6e 69 6d 77 25 2c 62 6c 6b 32 25 0d 40 ec 11 e7 |nimw%,blk2%.@...|
0000dff0 ac 64 6f 69 6e 67 6d 6f 76 65 25 8c 0d 40 f6 17 |.doingmove%..@..|
0000e000 20 f2 72 65 6d 6f 76 65 6c 61 62 65 6c 73 28 61 | .removelabels(a|
0000e010 61 25 29 0d 41 00 13 20 f2 70 6c 6f 74 61 6e 69 |a%).A.. .plotani|
0000e020 6d 28 61 61 25 29 0d 41 0a 05 cd 0d 41 14 2e 21 |m(aa%).A....A..!|
0000e030 62 6c 6b 25 3d 61 6e 69 6d 77 25 3a c8 99 22 57 |blk%=animw%:.."W|
0000e040 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 |imp_GetWindowSta|
0000e050 74 65 22 2c 2c 62 6c 6b 25 0d 41 1e 37 e7 64 6f |te",,blk%.A.7.do|
0000e060 69 6e 67 6d 6f 76 65 25 3a 62 6c 6b 25 21 38 3d |ingmove%:blk%!8=|
0000e070 62 6c 6b 25 21 31 36 2d 37 38 34 3a 8b 3a 62 6c |blk%!16-784:.:bl|
0000e080 6b 25 21 38 3d 62 6c 6b 25 21 31 36 2d 37 33 32 |k%!8=blk%!16-732|
0000e090 0d 41 28 14 62 6c 6b 25 21 32 38 3d 77 69 6e 64 |.A(.blk%!28=wind|
0000e0a0 70 6f 73 25 0d 41 32 13 f2 6f 70 65 6e 77 69 6e |pos%.A2..openwin|
0000e0b0 64 28 62 6c 6b 25 29 0d 41 3c 05 e1 0d 41 46 04 |d(blk%).A<...AF.|
0000e0c0 0d 41 50 17 dd f2 72 65 6d 6f 76 65 6c 61 62 65 |.AP...removelabe|
0000e0d0 6c 73 28 61 61 25 29 0d 41 5a 1a e7 6e 6f 6c 61 |ls(aa%).AZ..nola|
0000e0e0 62 73 25 28 61 61 25 2c 73 69 6d 70 25 29 3e 30 |bs%(aa%,simp%)>0|
0000e0f0 8c 0d 41 64 73 20 e3 6b 25 3d 31 b8 6e 6f 6c 61 |..Ads .k%=1.nola|
0000e100 62 73 25 28 61 61 25 2c 73 69 6d 70 25 29 3a f2 |bs%(aa%,simp%):.|
0000e110 68 69 64 65 69 63 6e 28 61 6e 69 6d 77 25 2c bb |hideicn(animw%,.|
0000e120 28 77 6f 72 64 73 24 28 73 69 6d 70 25 2c 6b 25 |(words$(simp%,k%|
0000e130 2c 30 29 29 2c b9 29 3a f2 73 65 6c 65 63 74 69 |,0)),.):.selecti|
0000e140 63 6e 28 61 6e 69 6d 77 25 2c bb 28 77 6f 72 64 |cn(animw%,.(word|
0000e150 73 24 28 73 69 6d 70 25 2c 6b 25 2c 30 29 29 2c |s$(simp%,k%,0)),|
0000e160 a3 29 3a ed 0d 41 6e 05 cd 0d 41 78 31 e7 ac 64 |.):..An...Ax1..d|
0000e170 6f 69 6e 67 6d 6f 76 65 25 3a f2 6d 61 6b 65 61 |oingmove%:.makea|
0000e180 6e 69 6d 28 61 63 74 6d 65 6e 75 25 2c 61 61 25 |nim(actmenu%,aa%|
0000e190 2c 62 67 25 28 61 61 25 29 29 0d 41 82 05 e1 0d |,bg%(aa%)).A....|
0000e1a0 41 8c 04 0d 41 96 16 dd f2 67 65 74 77 6f 72 64 |A...A....getword|
0000e1b0 66 69 6c 65 28 61 61 25 29 0d 41 a0 14 ea 20 74 |file(aa%).A... t|
0000e1c0 25 2c 73 25 2c 75 25 2c 61 24 2c 62 24 0d 41 aa |%,s%,u%,a$,b$.A.|
0000e1d0 38 77 66 69 6c 65 24 3d 22 3c 50 6c 61 6e 74 57 |8wfile$="<PlantW|
0000e1e0 69 73 65 24 63 68 61 69 6e 64 69 72 3e 2e 77 6f |ise$chaindir>.wo|
0000e1f0 72 64 66 69 6c 65 73 2e 77 6f 72 64 73 22 2b c3 |rdfiles.words"+.|
0000e200 28 61 61 25 29 0d 41 b4 0e 58 3d 8e 20 77 66 69 |(aa%).A..X=. wfi|
0000e210 6c 65 24 0d 41 be 29 e3 73 25 3d 30 b8 31 3a e3 |le$.A.).s%=0.1:.|
0000e220 74 25 3d 30 b8 6e 6f 6c 61 62 73 25 28 61 61 25 |t%=0.nolabs%(aa%|
0000e230 2c 73 25 29 3a e3 75 25 3d 30 b8 33 0d 41 c8 19 |,s%):.u%=0.3.A..|
0000e240 e8 23 58 2c 20 77 6f 72 64 73 24 28 73 25 2c 74 |.#X, words$(s%,t|
0000e250 25 2c 75 25 29 0d 41 d2 09 ed 3a ed 3a ed 0d 41 |%,u%).A...:.:..A|
0000e260 dc 15 e7 6e 6f 73 74 6f 70 73 25 28 61 61 25 29 |...nostops%(aa%)|
0000e270 3e 30 8c 0d 41 e6 22 20 e3 73 25 3d 30 b8 31 3a |>0..A." .s%=0.1:|
0000e280 e3 74 25 3d 30 b8 6e 6f 73 74 6f 70 73 25 28 61 |.t%=0.nostops%(a|
0000e290 61 25 29 2d 31 0d 41 f0 1b 20 e8 23 58 2c 20 61 |a%)-1.A.. .#X, a|
0000e2a0 6e 69 6d 77 6f 72 64 73 24 28 73 25 2c 74 25 29 |nimwords$(s%,t%)|
0000e2b0 0d 41 fa 08 20 ed 3a ed 0d 42 04 05 cd 0d 42 0e |.A.. .:..B....B.|
0000e2c0 0c c8 8e 20 61 61 25 20 ca 0d 42 18 11 20 c9 20 |... aa% ..B.. . |
0000e2d0 35 3a e3 73 25 3d 30 b8 32 37 0d 42 22 1d 20 20 |5:.s%=0.27.B". |
0000e2e0 20 20 20 20 20 20 20 e8 23 58 2c 20 61 6e 69 6d | .#X, anim|
0000e2f0 73 70 24 28 73 25 29 0d 42 2c 14 20 20 20 20 20 |sp$(s%).B,. |
0000e300 20 20 20 20 e8 23 58 2c 20 61 24 0d 42 36 14 20 | .#X, a$.B6. |
0000e310 20 20 20 20 20 20 20 20 e8 23 58 2c 20 62 24 0d | .#X, b$.|
0000e320 42 40 34 20 20 20 20 20 20 20 20 20 61 6e 69 6d |B@4 anim|
0000e330 73 70 25 28 73 25 2c 30 29 3d bb 28 61 24 29 3a |sp%(s%,0)=.(a$):|
0000e340 61 6e 69 6d 73 70 25 28 73 25 2c 31 29 3d bb 28 |animsp%(s%,1)=.(|
0000e350 62 24 29 0d 42 4a 0d 20 20 20 20 20 20 20 20 ed |b$).BJ. .|
0000e360 0d 42 54 05 cb 0d 42 5e 07 d9 23 58 0d 42 68 05 |.BT...B^..#X.Bh.|
0000e370 e1 0d 42 72 04 0d 42 7c 16 dd f2 67 65 74 6e 75 |..Br..B|...getnu|
0000e380 6d 62 66 69 6c 65 28 61 61 25 29 0d 42 86 0b ea |mbfile(aa%).B...|
0000e390 20 74 25 2c 73 25 0d 42 90 38 6e 66 69 6c 65 24 | t%,s%.B.8nfile$|
0000e3a0 3d 22 3c 50 6c 61 6e 74 57 69 73 65 24 63 68 61 |="<PlantWise$cha|
0000e3b0 69 6e 64 69 72 3e 2e 6e 75 6d 62 66 69 6c 65 73 |indir>.numbfiles|
0000e3c0 2e 6e 75 6d 62 73 22 2b c3 28 61 61 25 29 0d 42 |.numbs"+.(aa%).B|
0000e3d0 9a 0e 58 3d 8e 20 6e 66 69 6c 65 24 0d 42 a4 0b |..X=. nfile$.B..|
0000e3e0 e3 74 25 3d 30 b8 31 0d 42 ae 13 e8 23 58 2c 20 |.t%=0.1.B...#X, |
0000e3f0 6c 69 6e 65 73 24 28 74 25 29 0d 42 b8 05 ed 0d |lines$(t%).B....|
0000e400 42 c2 07 d9 23 58 0d 42 cc 05 e1 0d 42 d6 04 0d |B...#X.B....B...|
0000e410 42 e0 22 dd f2 66 6c 6f 70 70 79 5f 64 69 73 6b |B."..floppy_disk|
0000e420 28 64 69 73 6b 6e 24 2c 73 70 72 70 61 74 68 24 |(diskn$,sprpath$|
0000e430 29 0d 42 ea 08 ea 20 67 25 0d 42 f4 08 67 25 3d |).B... g%.B..g%=|
0000e440 30 0d 42 fe 0e f4 68 25 3d 30 3a 6d 25 3d 30 0d |0.B...h%=0:m%=0.|
0000e450 43 08 06 ea 85 0d 43 12 1e ee 85 ea 3a f7 20 85 |C.....C.....:. .|
0000e460 3a 65 72 72 6f 72 25 3d 31 3a 74 65 73 74 25 3d |:error%=1:test%=|
0000e470 31 3a e1 0d 43 1c 05 f5 0d 43 26 0e 20 20 65 72 |1:..C....C&. er|
0000e480 72 6f 72 25 3d 30 0d 43 30 14 f4 6e 6f 5f 68 25 |ror%=0.C0..no_h%|
0000e490 3d 30 3a 6e 6f 5f 6d 25 3d 30 0d 43 3a 10 20 20 |=0:no_m%=0.C:. |
0000e4a0 e7 74 65 73 74 25 3d 31 20 8c 0d 43 44 42 20 20 |.test%=1 ..CDB |
0000e4b0 20 20 f2 64 69 73 63 6d 65 73 73 28 22 50 6c 65 | .discmess("Ple|
0000e4c0 61 73 65 20 70 6c 61 63 65 20 74 68 65 20 22 2b |ase place the "+|
0000e4d0 64 69 73 6b 6e 24 2b 22 20 64 69 73 63 20 69 6e |diskn$+" disc in|
0000e4e0 20 64 72 69 76 65 20 30 22 2c 30 29 0d 43 4e 07 | drive 0",0).CN.|
0000e4f0 20 20 cd 0d 43 58 0b 20 20 2a 41 44 46 53 0d 43 | ..CX. *ADFS.C|
0000e500 62 0e 20 20 2a 4d 4f 55 4e 54 20 30 0d 43 6c 25 |b. *MOUNT 0.Cl%|
0000e510 20 20 c8 99 22 4f 53 5f 47 42 50 42 22 2c 35 2c | .."OS_GBPB",5,|
0000e520 2c 69 6e 70 75 74 5f 64 69 73 6b 5f 6e 61 6d 65 |,input_disk_name|
0000e530 25 0d 43 76 29 20 20 6c 65 6e 5f 64 5f 6e 25 3d |%.Cv) len_d_n%=|
0000e540 3f 69 6e 70 75 74 5f 64 69 73 6b 5f 6e 61 6d 65 |?input_disk_name|
0000e550 25 3a 6e 61 6d 65 24 3d 22 22 0d 43 80 15 20 20 |%:name$="".C.. |
0000e560 e3 64 6e 25 3d 31 b8 6c 65 6e 5f 64 5f 6e 25 0d |.dn%=1.len_d_n%.|
0000e570 43 8a 48 20 20 e7 3f 28 69 6e 70 75 74 5f 64 69 |C.H .?(input_di|
0000e580 73 6b 5f 6e 61 6d 65 25 2b 64 6e 25 29 3e 33 31 |sk_name%+dn%)>31|
0000e590 3a 6e 61 6d 65 24 3d 6e 61 6d 65 24 2b bd 28 3f |:name$=name$+.(?|
0000e5a0 28 69 6e 70 75 74 5f 64 69 73 6b 5f 6e 61 6d 65 |(input_disk_name|
0000e5b0 25 2b 64 6e 25 29 29 0d 43 94 07 20 20 ed 0d 43 |%+dn%)).C.. ..C|
0000e5c0 9e 1d 20 20 e7 6e 61 6d 65 24 3c 3e 64 69 73 6b |.. .name$<>disk|
0000e5d0 6e 24 3a 65 72 72 6f 72 25 3d 31 0d 43 a8 0d 20 |n$:error%=1.C.. |
0000e5e0 20 74 65 73 74 25 3d 31 0d 43 b2 2c 20 20 ff 22 | test%=1.C., ."|
0000e5f0 53 45 54 20 50 6c 61 6e 74 57 69 73 65 24 63 68 |SET PlantWise$ch|
0000e600 61 69 6e 64 69 72 20 24 2e 21 50 6c 61 6e 74 77 |aindir $.!Plantw|
0000e610 69 73 65 22 0d 43 bc 25 20 20 c8 99 20 22 58 4f |ise".C.% .. "XO|
0000e620 53 5f 46 69 6e 64 22 2c 26 34 30 2c 73 70 72 70 |S_Find",&40,sprp|
0000e630 61 74 68 24 20 b8 20 67 25 0d 43 c6 45 f4 20 20 |ath$ . g%.C.E. |
0000e640 49 46 77 6f 72 70 61 74 68 24 3c 3e 22 22 3a 53 |IFworpath$<>"":S|
0000e650 59 53 20 22 58 4f 53 5f 46 69 6e 64 22 2c 26 34 |YS "XOS_Find",&4|
0000e660 30 2c 77 6f 72 70 61 74 68 24 20 54 4f 20 68 25 |0,worpath$ TO h%|
0000e670 3a 45 4c 53 45 3a 6e 6f 5f 68 25 3d 2d 31 0d 43 |:ELSE:no_h%=-1.C|
0000e680 d0 45 f4 20 20 49 46 6e 75 6d 70 61 74 68 24 3c |.E. IFnumpath$<|
0000e690 3e 22 22 3a 53 59 53 20 22 58 4f 53 5f 46 69 6e |>"":SYS "XOS_Fin|
0000e6a0 64 22 2c 26 34 30 2c 6e 75 6d 70 61 74 68 24 20 |d",&40,numpath$ |
0000e6b0 54 4f 20 6d 25 3a 45 4c 53 45 3a 6e 6f 5f 6d 25 |TO m%:ELSE:no_m%|
0000e6c0 3d 2d 31 0d 43 da 17 fd 67 25 80 28 65 72 72 6f |=-1.C...g%.(erro|
0000e6d0 72 25 3d 30 29 3a d9 23 67 25 0d 43 e4 3e f4 55 |r%=0):.#g%.C.>.U|
0000e6e0 4e 54 49 4c 67 25 41 4e 44 28 68 25 4f 52 6e 6f |NTILg%AND(h%ORno|
0000e6f0 5f 68 25 29 41 4e 44 28 6d 25 4f 52 6e 6f 5f 6d |_h%)AND(m%ORno_m|
0000e700 25 29 41 4e 44 28 65 72 72 6f 72 25 3d 30 29 3a |%)AND(error%=0):|
0000e710 43 4c 4f 53 45 23 67 25 0d 43 ee 18 f4 49 46 4e |CLOSE#g%.C...IFN|
0000e720 4f 54 6e 6f 5f 68 25 3a 43 4c 4f 53 45 23 68 25 |OTno_h%:CLOSE#h%|
0000e730 0d 43 f8 18 f4 49 46 4e 4f 54 6e 6f 5f 6d 25 3a |.C...IFNOTno_m%:|
0000e740 43 4c 4f 53 45 23 6d 25 0d 44 02 07 f7 20 85 0d |CLOSE#m%.D... ..|
0000e750 44 0c 05 e1 0d 44 16 04 0d 44 20 0d dd f2 61 6e |D....D...D ...an|
0000e760 69 6d 61 74 65 0d 44 2a 11 e7 66 69 72 73 74 6d |imate.D*..firstm|
0000e770 6f 76 65 25 20 8c 0d 44 34 0f 20 e7 74 65 78 74 |ove% ..D4. .text|
0000e780 6f 6e 25 20 8c 0d 44 3e 4f 20 20 f2 72 65 6d 6f |on% ..D>O .remo|
0000e790 76 65 6c 61 62 65 6c 73 28 61 63 74 61 6e 69 6d |velabels(actanim|
0000e7a0 25 29 3a f2 6d 61 6b 65 61 6e 69 6d 28 61 63 74 |%):.makeanim(act|
0000e7b0 6d 65 6e 75 25 2c 61 63 74 61 6e 69 6d 25 2c 30 |menu%,actanim%,0|
0000e7c0 29 3a f2 61 64 64 74 65 78 74 28 61 63 74 61 6e |):.addtext(actan|
0000e7d0 69 6d 25 29 0d 44 48 06 20 cc 0d 44 52 25 20 20 |im%).DH. ..DR% |
0000e7e0 21 62 6c 6b 32 25 3d 61 6e 69 6d 77 25 3a f2 63 |!blk2%=animw%:.c|
0000e7f0 6c 6f 73 65 77 69 6e 64 28 62 6c 6b 32 25 29 0d |losewind(blk2%).|
0000e800 44 5c 52 20 20 21 62 6c 6b 32 25 3d 30 3a 62 6c |D\R !blk2%=0:bl|
0000e810 6b 32 25 21 34 3d 2d 37 38 34 3a 62 6c 6b 32 25 |k2%!4=-784:blk2%|
0000e820 21 38 3d 38 34 32 3a 62 6c 6b 32 25 21 31 32 3d |!8=842:blk2%!12=|
0000e830 30 3a c8 99 22 57 69 6d 70 5f 53 65 74 45 78 74 |0:.."Wimp_SetExt|
0000e840 65 6e 74 22 2c 61 6e 69 6d 77 25 2c 62 6c 6b 32 |ent",animw%,blk2|
0000e850 25 0d 44 66 20 20 20 f2 70 75 74 69 63 6e 73 74 |%.Df .puticnst|
0000e860 72 69 6e 67 28 61 6e 69 6d 77 25 2c 39 2c 22 22 |ring(animw%,9,""|
0000e870 29 0d 44 70 30 20 20 21 62 6c 6b 25 3d 61 6e 69 |).Dp0 !blk%=ani|
0000e880 6d 77 25 3a c8 99 22 57 69 6d 70 5f 47 65 74 57 |mw%:.."Wimp_GetW|
0000e890 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 6c 6b |indowState",,blk|
0000e8a0 25 0d 44 7a 3c 20 20 e7 62 6c 6b 25 21 31 36 3c |%.Dz< .blk%!16<|
0000e8b0 37 38 34 20 62 6c 6b 25 21 31 36 3d 37 38 34 3a |784 blk%!16=784:|
0000e8c0 62 6c 6b 25 21 38 3d 30 3a 8b 3a 62 6c 6b 25 21 |blk%!8=0:.:blk%!|
0000e8d0 38 3d 62 6c 6b 25 21 31 36 2d 37 38 34 0d 44 84 |8=blk%!16-784.D.|
0000e8e0 15 20 20 f2 6f 70 65 6e 77 69 6e 64 28 62 6c 6b |. .openwind(blk|
0000e8f0 25 29 0d 44 8e 06 20 cd 0d 44 98 32 20 f2 68 69 |%).D.. ..D.2 .hi|
0000e900 64 65 69 63 6e 28 61 6e 69 6d 77 25 2c 31 31 2c |deicn(animw%,11,|
0000e910 a3 29 3a f2 73 65 6c 65 63 74 69 63 6e 28 61 6e |.):.selecticn(an|
0000e920 69 6d 77 25 2c 31 31 2c a3 29 0d 44 a2 05 cd 0d |imw%,11,.).D....|
0000e930 44 ac 26 e7 ac a4 69 73 73 65 6c 65 63 74 65 64 |D.&...isselected|
0000e940 28 61 6e 69 6d 77 25 2c 31 31 29 3a f2 6d 6f 76 |(animw%,11):.mov|
0000e950 65 61 6e 69 6d 0d 44 b6 05 e1 0d 44 c0 04 0d 44 |eanim.D....D...D|
0000e960 ca 0e dd f2 6d 6f 76 65 61 6e 69 6d 0d 44 d4 0e |....moveanim.D..|
0000e970 6e 65 77 74 65 78 74 25 3d 30 0d 44 de 1b e7 74 |newtext%=0.D...t|
0000e980 65 78 74 6e 65 77 6f 6e 25 3a 6e 65 77 74 65 78 |extnewon%:newtex|
0000e990 74 25 3d 2d 31 0d 44 e8 11 c8 8e 20 61 63 74 61 |t%=-1.D.... acta|
0000e9a0 6e 69 6d 25 20 ca 0d 44 f2 14 20 c9 20 35 3a 20 |nim% ..D.. . 5: |
0000e9b0 f2 6d 6f 76 65 70 68 6f 74 6f 0d 44 fc 15 20 c9 |.movephoto.D.. .|
0000e9c0 20 36 3a 20 f2 6d 6f 76 65 6c 65 61 66 63 6c 0d | 6: .moveleafcl.|
0000e9d0 45 06 16 20 c9 20 38 3a 20 f2 6d 6f 76 65 73 74 |E.. . 8: .movest|
0000e9e0 65 6d 63 6c 31 0d 45 10 16 20 c9 20 39 3a 20 f2 |emcl1.E.. . 9: .|
0000e9f0 6d 6f 76 65 73 74 65 6d 63 6c 32 0d 45 1a 14 20 |movestemcl2.E.. |
0000ea00 c9 20 31 30 3a 20 f2 6d 6f 76 65 72 6f 6f 74 0d |. 10: .moveroot.|
0000ea10 45 24 16 20 c9 20 31 31 3a 20 f2 6d 6f 76 65 72 |E$. . 11: .mover|
0000ea20 6f 6f 74 63 6c 0d 45 2e 16 20 c9 20 31 32 3a 20 |ootcl.E.. . 12: |
0000ea30 f2 6d 6f 76 65 70 6f 6c 6c 69 6e 0d 45 38 17 20 |.movepollin.E8. |
0000ea40 c9 20 31 33 3a 20 f2 6d 6f 76 65 70 6f 6c 6c 69 |. 13: .movepolli|
0000ea50 6e 73 0d 45 42 18 20 c9 20 31 34 3a 20 f2 6d 6f |ns.EB. . 14: .mo|
0000ea60 76 65 70 6f 6c 6c 77 69 6e 64 0d 45 4c 1a 20 c9 |vepollwind.EL. .|
0000ea70 20 31 35 3a 20 f2 6d 6f 76 65 70 6f 6c 6c 61 6e | 15: .movepollan|
0000ea80 69 6d 61 6c 0d 45 56 19 20 c9 20 31 36 3a 20 f2 |imal.EV. . 16: .|
0000ea90 6d 6f 76 65 70 6f 6c 6c 77 61 74 65 72 0d 45 60 |movepollwater.E`|
0000eaa0 16 20 c9 20 31 37 3a 20 f2 6d 6f 76 65 66 65 72 |. . 17: .movefer|
0000eab0 74 69 6c 0d 45 6a 15 20 c9 20 31 38 3a 20 f2 6d |til.Ej. . 18: .m|
0000eac0 6f 76 65 66 72 75 69 74 0d 45 74 14 20 c9 20 32 |ovefruit.Et. . 2|
0000ead0 30 3a 20 f2 6d 6f 76 65 64 69 73 70 0d 45 7e 17 |0: .movedisp.E~.|
0000eae0 20 c9 20 32 31 3a 20 f2 6d 6f 76 65 64 69 73 70 | . 21: .movedisp|
0000eaf0 65 78 70 0d 45 88 18 20 c9 20 32 32 3a 20 f2 6d |exp.E.. . 22: .m|
0000eb00 6f 76 65 64 69 73 70 77 69 6e 64 0d 45 92 17 20 |ovedispwind.E.. |
0000eb10 c9 20 32 33 3a 20 f2 6d 6f 76 65 64 69 73 70 61 |. 23: .movedispa|
0000eb20 6e 69 0d 45 9c 17 20 c9 20 32 34 3a 20 f2 6d 6f |ni.E.. . 24: .mo|
0000eb30 76 65 64 69 73 70 77 61 74 0d 45 a6 14 20 c9 20 |vedispwat.E.. . |
0000eb40 32 35 3a 20 f2 6d 6f 76 65 67 65 72 6d 0d 45 b0 |25: .movegerm.E.|
0000eb50 14 20 c9 20 32 37 3a 20 f2 6d 6f 76 65 64 6f 72 |. . 27: .movedor|
0000eb60 6d 0d 45 ba 14 20 c9 20 32 38 3a 20 f2 6d 6f 76 |m.E.. . 28: .mov|
0000eb70 65 63 6f 72 6d 0d 45 c4 16 20 c9 20 32 39 3a 20 |ecorm.E.. . 29: |
0000eb80 f2 6d 6f 76 65 72 75 6e 6e 65 72 0d 45 ce 05 cb |.moverunner.E...|
0000eb90 0d 45 d8 05 e1 0d 45 e2 04 0d 45 ec 2c dd f2 6d |.E....E...E.,..m|
0000eba0 6f 76 65 65 6e 64 6c 6f 6f 70 28 6e 6f 73 74 25 |oveendloop(nost%|
0000ebb0 2c 73 74 24 2c 6c 65 25 2c 6c 6f 25 2c 72 69 25 |,st$,le%,lo%,ri%|
0000ebc0 2c 68 69 25 29 0d 45 f6 26 c8 99 22 4f 53 5f 53 |,hi%).E.&.."OS_S|
0000ebd0 70 72 69 74 65 4f 70 22 2c 26 31 33 43 2c 61 6e |priteOp",&13C,an|
0000ebe0 69 6d 61 72 65 61 25 2c 30 2c 31 0d 46 00 13 65 |imarea%,0,1.F..e|
0000ebf0 6c 61 70 73 25 3d 91 2d 65 6c 61 70 73 25 0d 46 |laps%=.-elaps%.F|
0000ec00 0a 0d e7 74 65 78 74 6f 6e 25 8c 0d 46 14 10 20 |...texton%..F.. |
0000ec10 e3 6a 25 3d 31 b8 6e 6f 73 74 25 0d 46 1e 2a 20 |.j%=1.nost%.F.* |
0000ec20 20 e7 73 75 62 25 3d bb 28 73 74 24 29 3a f2 73 | .sub%=.(st$):.s|
0000ec30 65 6c 65 63 74 69 63 6e 28 61 6e 69 6d 77 25 2c |electicn(animw%,|
0000ec40 31 31 2c b9 29 0d 46 28 18 20 20 73 74 24 3d c2 |11,.).F(. st$=.|
0000ec50 73 74 24 2c a9 28 73 74 24 29 2d 34 29 0d 46 32 |st$,.(st$)-4).F2|
0000ec60 06 20 ed 0d 46 3c 05 cd 0d 46 46 5c e7 6e 65 77 |. ..F<...FF\.new|
0000ec70 74 65 78 74 25 84 74 65 78 74 6e 65 77 6f 66 66 |text%.textnewoff|
0000ec80 25 3a f2 70 6c 6f 74 61 6e 69 6d 28 61 63 74 61 |%:.plotanim(acta|
0000ec90 6e 69 6d 25 29 3a 74 65 78 74 6e 65 77 6f 66 66 |nim%):textnewoff|
0000eca0 25 3d 30 3a 8b 3a f2 70 6c 6f 74 61 6e 69 6d 6d |%=0:.:.plotanimm|
0000ecb0 6f 76 65 28 6c 65 25 2c 6c 6f 25 2c 72 69 25 2c |ove(le%,lo%,ri%,|
0000ecc0 68 69 25 29 0d 46 50 0f 6c 61 73 74 74 69 6d 65 |hi%).FP.lasttime|
0000ecd0 25 3d 91 0d 46 5a 05 e1 0d 46 64 04 0d 46 6e 10 |%=..FZ...Fd..Fn.|
0000ece0 dd f2 61 6e 69 6d 61 74 65 65 6e 64 0d 46 78 3d |..animateend.Fx=|
0000ecf0 f2 73 65 6c 65 63 74 69 63 6e 28 61 6e 69 6d 77 |.selecticn(animw|
0000ed00 25 2c 32 2c a3 29 3a 64 6f 69 6e 67 6d 6f 76 65 |%,2,.):doingmove|
0000ed10 25 3d a3 3a f2 68 69 64 65 69 63 6e 28 61 6e 69 |%=.:.hideicn(ani|
0000ed20 6d 77 25 2c 31 31 2c b9 29 0d 46 82 0e e7 74 65 |mw%,11,.).F...te|
0000ed30 78 74 6f 6e 25 20 8c 0d 46 8c 24 20 61 63 74 74 |xton% ..F.$ actt|
0000ed40 78 74 69 63 6e 25 3d 30 3a f2 61 64 64 74 65 78 |xticn%=0:.addtex|
0000ed50 74 28 61 63 74 61 6e 69 6d 25 29 0d 46 96 05 cc |t(actanim%).F...|
0000ed60 0d 46 a0 24 20 21 62 6c 6b 32 25 3d 61 6e 69 6d |.F.$ !blk2%=anim|
0000ed70 77 25 3a f2 63 6c 6f 73 65 77 69 6e 64 28 62 6c |w%:.closewind(bl|
0000ed80 6b 32 25 29 0d 46 aa 51 20 21 62 6c 6b 32 25 3d |k2%).F.Q !blk2%=|
0000ed90 30 3a 62 6c 6b 32 25 21 34 3d 2d 37 33 32 3a 62 |0:blk2%!4=-732:b|
0000eda0 6c 6b 32 25 21 38 3d 38 34 32 3a 62 6c 6b 32 25 |lk2%!8=842:blk2%|
0000edb0 21 31 32 3d 30 3a c8 99 22 57 69 6d 70 5f 53 65 |!12=0:.."Wimp_Se|
0000edc0 74 45 78 74 65 6e 74 22 2c 61 6e 69 6d 77 25 2c |tExtent",animw%,|
0000edd0 62 6c 6b 32 25 0d 46 b4 2f 20 21 62 6c 6b 25 3d |blk2%.F./ !blk%=|
0000ede0 61 6e 69 6d 77 25 3a c8 99 22 57 69 6d 70 5f 47 |animw%:.."Wimp_G|
0000edf0 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c |etWindowState",,|
0000ee00 62 6c 6b 25 0d 46 be 14 20 f2 6f 70 65 6e 77 69 |blk%.F.. .openwi|
0000ee10 6e 64 28 62 6c 6b 25 29 0d 46 c8 05 cd 0d 46 d2 |nd(blk%).F....F.|
0000ee20 05 e1 0d 46 dc 04 0d 46 e6 14 dd f2 63 6c 6f 73 |...F...F....clos|
0000ee30 65 77 69 6e 64 73 28 62 25 29 0d 46 f0 23 c8 99 |ewinds(b%).F.#..|
0000ee40 20 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 | "Wimp_GetPointe|
0000ee50 72 49 6e 66 6f 22 2c 2c 62 6c 6b 32 25 0d 46 fa |rInfo",,blk2%.F.|
0000ee60 19 63 75 72 72 63 6c 6f 73 65 62 75 74 25 3d 62 |.currclosebut%=b|
0000ee70 6c 6b 32 25 21 38 0d 47 04 12 f2 63 6c 6f 73 65 |lk2%!8.G...close|
0000ee80 77 69 6e 64 28 62 25 29 0d 47 0e 0c c8 8e 20 21 |wind(b%).G.... !|
0000ee90 62 25 20 ca 0d 47 18 30 20 20 c9 20 6d 65 6e 75 |b% ..G.0 . menu|
0000eea0 77 25 3a e7 a4 69 73 6f 70 65 6e 28 61 6e 6d 65 |w%:..isopen(anme|
0000eeb0 77 25 29 3a f2 63 6c 6f 73 65 77 69 6e 64 28 62 |w%):.closewind(b|
0000eec0 6c 6b 25 29 0d 47 22 33 20 20 20 20 20 20 20 20 |lk%).G"3 |
0000eed0 20 20 20 20 20 20 e7 a4 69 73 6f 70 65 6e 28 61 | ..isopen(a|
0000eee0 6e 69 6d 77 25 29 3a f2 63 6c 6f 73 65 77 69 6e |nimw%):.closewin|
0000eef0 64 28 62 6c 6b 25 29 0d 47 2c 33 20 20 c9 20 61 |d(blk%).G,3 . a|
0000ef00 6e 6d 65 77 25 2c 61 6e 69 6d 77 25 3a 21 62 6c |nmew%,animw%:!bl|
0000ef10 6b 25 3d 6d 65 6e 75 77 25 3a f2 63 6c 6f 73 65 |k%=menuw%:.close|
0000ef20 77 69 6e 64 28 62 6c 6b 25 29 0d 47 36 25 20 20 |wind(blk%).G6% |
0000ef30 c9 20 66 69 6e 64 77 25 3a f2 73 65 6c 65 63 74 |. findw%:.select|
0000ef40 69 63 6e 28 6d 65 6e 75 77 25 2c 30 2c a3 29 0d |icn(menuw%,0,.).|
0000ef50 47 40 63 20 20 c9 20 64 65 66 6e 77 25 3a f2 73 |G@c . defnw%:.s|
0000ef60 65 6c 65 63 74 69 63 6e 28 77 6f 72 64 77 25 2c |electicn(wordw%,|
0000ef70 67 6c 6f 73 73 69 63 6e 25 2c a3 29 3a 67 6c 6f |glossicn%,.):glo|
0000ef80 73 73 69 63 6e 25 3d 2d 31 3a e7 ac a4 69 73 6f |ssicn%=-1:...iso|
0000ef90 70 65 6e 28 77 6f 72 64 77 25 29 3a f2 73 65 6c |pen(wordw%):.sel|
0000efa0 65 63 74 69 63 6e 28 6d 65 6e 75 77 25 2c 33 2c |ecticn(menuw%,3,|
0000efb0 a3 29 0d 47 4a 37 20 20 c9 20 77 6f 72 64 77 25 |.).GJ7 . wordw%|
0000efc0 3a e7 ac a4 69 73 6f 70 65 6e 28 64 65 66 6e 77 |:...isopen(defnw|
0000efd0 25 29 3a f2 73 65 6c 65 63 74 69 63 6e 28 6d 65 |%):.selecticn(me|
0000efe0 6e 75 77 25 2c 33 2c a3 29 0d 47 54 05 cb 0d 47 |nuw%,3,.).GT...G|
0000eff0 5e 21 21 62 6c 6b 25 3d 64 65 6d 6f 77 25 3a f2 |^!!blk%=demow%:.|
0000f000 63 6c 6f 73 65 77 69 6e 64 28 62 6c 6b 25 29 0d |closewind(blk%).|
0000f010 47 68 05 e1 0d 47 72 04 0d 47 7c 0f dd f2 6d 63 |Gh...Gr..G|...mc|
0000f020 5f 73 74 61 72 74 73 0d 47 86 10 61 6e 69 6d 63 |_starts.G..animc|
0000f030 6c 25 3d 21 6d 63 25 0d 47 90 15 61 6e 69 6d 64 |l%=!mc%.G..animd|
0000f040 75 6c 6c 25 3d 6d 63 25 21 26 30 34 0d 47 9a 05 |ull%=mc%!&04.G..|
0000f050 e1 0d 47 a4 04 0d 47 ae 14 dd a4 61 6c 72 65 61 |..G...G....alrea|
0000f060 64 79 72 75 6e 6e 69 6e 67 0d 47 b8 07 ea 20 85 |dyrunning.G... .|
0000f070 0d 47 c2 0e ee 85 ea 3a f7 20 85 3a 3d 30 0d 47 |.G.....:. .:=0.G|
0000f080 cc 40 c8 99 20 22 4f 53 5f 52 65 61 64 56 61 72 |.@.. "OS_ReadVar|
0000f090 56 61 6c 22 2c 22 50 6c 61 6e 74 57 69 73 65 24 |Val","PlantWise$|
0000f0a0 69 73 72 75 6e 6e 69 6e 67 22 2c 62 6c 6b 25 2c |isrunning",blk%,|
0000f0b0 32 35 36 2c 30 2c 30 20 b8 20 2c 2c 61 25 0d 47 |256,0,0 . ,,a%.G|
0000f0c0 d6 25 61 24 3d 22 22 3a e3 41 25 3d 30 b8 61 25 |.%a$="":.A%=0.a%|
0000f0d0 2d 31 3a 61 24 2b 3d bd 28 62 6c 6b 25 3f 41 25 |-1:a$+=.(blk%?A%|
0000f0e0 29 3a ed 0d 47 e0 07 f7 20 85 0d 47 ea 0f e7 61 |):..G... ..G...a|
0000f0f0 24 3d 22 31 22 3a 3d 2d 31 0d 47 f4 06 3d 30 0d |$="1":=-1.G..=0.|
0000f100 47 fe 04 0d 48 08 04 0d 48 12 17 dd f2 68 69 64 |G...H...H....hid|
0000f110 65 69 63 6e 28 77 25 2c 69 25 2c 66 25 29 0d 48 |eicn(w%,i%,f%).H|
0000f120 1c 24 21 62 6c 6b 25 3d 77 25 3a 62 6c 6b 25 21 |.$!blk%=w%:blk%!|
0000f130 34 3d 69 25 3a 62 6c 6b 25 21 31 32 3d 31 3c 3c |4=i%:blk%!12=1<<|
0000f140 32 33 0d 48 26 1f e7 66 25 20 62 6c 6b 25 21 38 |23.H&..f% blk%!8|
0000f150 3d 31 3c 3c 32 33 3a 8b 3a 62 6c 6b 25 21 38 3d |=1<<23:.:blk%!8=|
0000f160 30 0d 48 30 20 c8 99 20 22 57 69 6d 70 5f 53 65 |0.H0 .. "Wimp_Se|
0000f170 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6b |tIconState",,blk|
0000f180 25 0d 48 3a 05 e1 0d 48 44 04 0d 48 4e 18 dd f2 |%.H:...HD..HN...|
0000f190 73 68 61 64 65 69 63 6e 28 77 25 2c 69 25 2c 66 |shadeicn(w%,i%,f|
0000f1a0 25 29 0d 48 58 24 21 62 6c 6b 25 3d 77 25 3a 62 |%).HX$!blk%=w%:b|
0000f1b0 6c 6b 25 21 34 3d 69 25 3a 62 6c 6b 25 21 31 32 |lk%!4=i%:blk%!12|
0000f1c0 3d 31 3c 3c 32 32 0d 48 62 1f e7 66 25 20 62 6c |=1<<22.Hb..f% bl|
0000f1d0 6b 25 21 38 3d 31 3c 3c 32 32 3a 8b 3a 62 6c 6b |k%!8=1<<22:.:blk|
0000f1e0 25 21 38 3d 30 0d 48 6c 20 c8 99 20 22 57 69 6d |%!8=0.Hl .. "Wim|
0000f1f0 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c |p_SetIconState",|
0000f200 2c 62 6c 6b 25 0d 48 76 05 e1 0d 48 80 04 0d 48 |,blk%.Hv...H...H|
0000f210 8a 0e dd f2 6b 65 79 65 76 65 6e 74 0d 48 94 31 |....keyevent.H.1|
0000f220 f4 20 74 65 6d 70 20 74 6f 20 73 74 6f 70 20 61 |. temp to stop a|
0000f230 6e 69 6d 20 62 75 67 20 6c 6f 6f 70 73 20 68 61 |nim bug loops ha|
0000f240 6e 67 69 6e 67 20 6d 61 63 68 69 6e 65 0d 48 9e |nging machine.H.|
0000f250 1c f4 49 46 28 62 6c 6b 25 21 32 34 29 3d 31 33 |..IF(blk%!24)=13|
0000f260 3a 71 75 69 74 25 3d 2d 31 0d 48 a8 05 e1 0d 48 |:quit%=-1.H....H|
0000f270 b2 04 0d 48 bc 14 dd a4 72 65 61 64 73 79 73 76 |...H....readsysv|
0000f280 61 72 28 61 24 29 0d 48 c6 4f c8 99 20 22 4f 53 |ar(a$).H.O.. "OS|
0000f290 5f 52 65 61 64 56 61 72 56 61 6c 22 2c 61 24 2c |_ReadVarVal",a$,|
0000f2a0 62 6c 6b 25 2c 32 35 36 2c 30 2c 30 20 b8 20 2c |blk%,256,0,0 . ,|
0000f2b0 2c 61 25 3a 61 24 3d 22 22 3a e3 41 25 3d 30 b8 |,a%:a$="":.A%=0.|
0000f2c0 61 25 2d 31 3a 61 24 2b 3d bd 28 62 6c 6b 25 3f |a%-1:a$+=.(blk%?|
0000f2d0 41 25 29 3a ed 0d 48 d0 07 3d 61 24 0d 48 da 04 |A%):..H..=a$.H..|
0000f2e0 0d 48 e4 12 dd a4 66 69 6c 65 74 79 70 65 28 61 |.H....filetype(a|
0000f2f0 24 29 0d 48 ee 1b c8 99 20 22 58 4f 53 5f 46 69 |$).H.... "XOS_Fi|
0000f300 6c 65 22 2c 35 2c 61 24 20 b8 20 61 25 0d 48 f8 |le",5,a$ . a%.H.|
0000f310 07 3d 61 25 0d 49 02 04 0d 49 0c 19 dd f2 73 74 |.=a%.I...I....st|
0000f320 72 69 6e 67 74 6f 74 78 74 62 75 66 66 28 73 24 |ringtotxtbuff(s$|
0000f330 29 0d 49 16 1a 24 28 74 78 74 62 75 66 66 25 2b |).I..$(txtbuff%+|
0000f340 62 65 67 74 78 74 25 29 3d 73 24 0d 49 20 31 62 |begtxt%)=s$.I 1b|
0000f350 65 67 74 78 74 25 2b 3d a9 28 73 24 29 3a 74 78 |egtxt%+=.(s$):tx|
0000f360 74 62 75 66 66 25 3f 62 65 67 74 78 74 25 3d 31 |tbuff%?begtxt%=1|
0000f370 30 3a 62 65 67 74 78 74 25 2b 3d 31 0d 49 2a 05 |0:begtxt%+=1.I*.|
0000f380 e1 0d 49 34 04 0d 49 3e 04 0d 49 48 19 dd f2 73 |..I4..I>..IH...s|
0000f390 74 61 72 74 64 72 61 67 28 77 25 2c 69 25 2c 6e |tartdrag(w%,i%,n|
0000f3a0 24 29 0d 49 52 15 70 72 6f 70 6f 73 65 64 66 6e |$).IR.proposedfn|
0000f3b0 61 6d 65 24 3d 6e 24 0d 49 5c 33 21 62 6c 6b 25 |ame$=n$.I\3!blk%|
0000f3c0 3d 77 25 3a 62 6c 6b 25 21 34 3d 69 25 3a c8 99 |=w%:blk%!4=i%:..|
0000f3d0 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 | "Wimp_GetIconSt|
0000f3e0 61 74 65 22 2c 2c 62 6c 6b 25 0d 49 66 3f f2 77 |ate",,blk%.If?.w|
0000f3f0 69 6e 74 6f 73 63 72 6e 28 62 6c 6b 25 29 3a 62 |intoscrn(blk%):b|
0000f400 6c 6b 25 21 38 2d 3d 34 3a 62 6c 6b 25 21 31 32 |lk%!8-=4:blk%!12|
0000f410 2d 3d 34 3a 62 6c 6b 25 21 31 36 2b 3d 34 3a 62 |-=4:blk%!16+=4:b|
0000f420 6c 6b 25 21 32 30 2b 3d 34 0d 49 70 58 62 6c 6b |lk%!20+=4.IpXblk|
0000f430 25 21 34 3d 35 3a 62 6c 6b 25 21 32 34 3d 30 3a |%!4=5:blk%!24=0:|
0000f440 62 6c 6b 25 21 32 38 3d 30 3a 62 6c 6b 25 21 33 |blk%!28=0:blk%!3|
0000f450 32 3d 78 6d 61 78 65 63 25 3a 62 6c 6b 25 21 33 |2=xmaxec%:blk%!3|
0000f460 36 3d 79 6d 61 78 65 63 25 3a c8 99 20 22 57 69 |6=ymaxec%:.. "Wi|
0000f470 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c 62 6c 6b |mp_DragBox",,blk|
0000f480 25 0d 49 7a 05 e1 0d 49 84 04 0d 49 8e 04 0d 49 |%.Iz...I...I...I|
0000f490 98 1c dd f2 64 65 66 6e 77 63 6c 69 63 6b 28 6d |....defnwclick(m|
0000f4a0 78 25 2c 6d 79 25 2c 62 25 29 0d 49 a2 20 e7 62 |x%,my%,b%).I. .b|
0000f4b0 25 3d 32 3a f2 64 65 66 6e 77 5f 6d 65 6e 75 28 |%=2:.defnw_menu(|
0000f4c0 6d 78 25 2c 6d 79 25 29 3a e1 0d 49 ac 05 e1 0d |mx%,my%):..I....|
0000f4d0 49 b6 04 0d 49 c0 04 0d 49 ca 19 dd f2 74 6f 67 |I...I...I....tog|
0000f4e0 67 6c 65 69 63 6e 73 65 6c 28 77 25 2c 69 25 29 |gleicnsel(w%,i%)|
0000f4f0 0d 49 d4 42 e7 20 a4 69 73 73 65 6c 65 63 74 65 |.I.B. .isselecte|
0000f500 64 28 77 25 2c 69 25 29 20 f2 73 65 6c 65 63 74 |d(w%,i%) .select|
0000f510 69 63 6e 28 77 25 2c 69 25 2c a3 29 3a 8b 3a f2 |icn(w%,i%,.):.:.|
0000f520 73 65 6c 65 63 74 69 63 6e 28 77 25 2c 69 25 2c |selecticn(w%,i%,|
0000f530 b9 29 0d 49 de 05 e1 0d 49 e8 04 0d 49 f2 04 0d |.).I....I...I...|
0000f540 49 fc 17 dd f2 73 75 62 6d 65 6e 75 28 6d 25 2c |I....submenu(m%,|
0000f550 69 25 2c 68 25 29 0d 4a 06 16 6d 25 2b 3d 32 38 |i%,h%).J..m%+=28|
0000f560 2b 28 28 69 25 2d 31 29 2a 32 34 29 0d 4a 10 0b |+((i%-1)*24).J..|
0000f570 6d 25 21 34 3d 68 25 0d 4a 1a 05 e1 0d 4a 24 04 |m%!4=h%.J....J$.|
0000f580 0d 4a 2e 04 0d 4a 38 19 dd f2 61 6e 69 6d 77 5f |.J...J8...animw_|
0000f590 6d 65 6e 75 28 6d 78 25 2c 6d 79 25 29 0d 4a 42 |menu(mx%,my%).JB|
0000f5a0 2f 21 62 6c 6b 25 3d 73 61 61 6e 69 6d 77 25 3a |/!blk%=saanimw%:|
0000f5b0 c8 99 20 22 57 69 6d 70 5f 44 65 6c 65 74 65 57 |.. "Wimp_DeleteW|
0000f5c0 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 0d 4a 4c 33 |indow",,blk%.JL3|
0000f5d0 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 |.. "Wimp_CreateW|
0000f5e0 69 6e 64 6f 77 22 2c 2c 77 70 74 72 6c 69 73 74 |indow",,wptrlist|
0000f5f0 25 21 35 32 20 b8 20 73 61 61 6e 69 6d 77 25 0d |%!52 . saanimw%.|
0000f600 4a 56 2f 21 62 6c 6b 25 3d 70 72 61 6e 69 6d 77 |JV/!blk%=pranimw|
0000f610 25 3a c8 99 20 22 57 69 6d 70 5f 44 65 6c 65 74 |%:.. "Wimp_Delet|
0000f620 65 57 69 6e 64 6f 77 22 2c 2c 62 6c 6b 25 0d 4a |eWindow",,blk%.J|
0000f630 60 33 c8 99 20 22 57 69 6d 70 5f 43 72 65 61 74 |`3.. "Wimp_Creat|
0000f640 65 57 69 6e 64 6f 77 22 2c 2c 77 70 74 72 6c 69 |eWindow",,wptrli|
0000f650 73 74 25 21 35 36 20 b8 20 70 72 61 6e 69 6d 77 |st%!56 . pranimw|
0000f660 25 0d 4a 6a 2f f2 67 65 74 70 72 74 69 74 6c 65 |%.Jj/.getprtitle|
0000f670 28 70 72 61 6e 69 6d 77 74 69 74 6c 65 25 2c 70 |(pranimwtitle%,p|
0000f680 72 61 6e 69 6d 77 74 69 74 6c 65 73 69 7a 25 29 |ranimwtitlesiz%)|
0000f690 0d 4a 74 23 f2 73 65 74 61 6e 69 6d 73 70 72 6e |.Jt#.setanimsprn|
0000f6a0 61 6d 65 3a f2 73 65 74 61 6e 69 6d 74 78 74 6e |ame:.setanimtxtn|
0000f6b0 61 6d 65 0d 4a 7e 11 e7 ac 64 6f 69 6e 67 6d 6f |ame.J~...doingmo|
0000f6c0 76 65 25 8c 0d 4a 88 9d 20 e7 a4 69 73 73 65 6c |ve%..J.. ..issel|
0000f6d0 65 63 74 65 64 28 61 6e 69 6d 77 25 2c 30 29 3a |ected(animw%,0):|
0000f6e0 f2 63 68 61 6e 67 65 73 61 70 72 65 78 74 65 6e |.changesaprexten|
0000f6f0 74 28 70 72 61 6e 69 6d 77 25 2c 31 37 36 29 3a |t(pranimw%,176):|
0000f700 f2 63 68 61 6e 67 65 73 61 70 72 65 78 74 65 6e |.changesaprexten|
0000f710 74 28 73 61 61 6e 69 6d 77 25 2c 32 39 32 29 3a |t(saanimw%,292):|
0000f720 8b 3a f2 63 68 61 6e 67 65 73 61 70 72 65 78 74 |.:.changesaprext|
0000f730 65 6e 74 28 70 72 61 6e 69 6d 77 25 2c 31 32 34 |ent(pranimw%,124|
0000f740 29 3a f2 63 68 61 6e 67 65 73 61 70 72 65 78 74 |):.changesaprext|
0000f750 65 6e 74 28 73 61 61 6e 69 6d 77 25 2c 32 34 30 |ent(saanimw%,240|
0000f760 29 0d 4a 92 05 cc 0d 4a 9c 43 20 f2 63 68 61 6e |).J....J.C .chan|
0000f770 67 65 73 61 70 72 65 78 74 65 6e 74 28 73 61 61 |gesaprextent(saa|
0000f780 6e 69 6d 77 25 2c 31 37 36 29 3a f2 63 68 61 6e |nimw%,176):.chan|
0000f790 67 65 73 61 70 72 65 78 74 65 6e 74 28 70 72 61 |gesaprextent(pra|
0000f7a0 6e 69 6d 77 25 2c 37 32 29 0d 4a a6 05 cd 0d 4a |nimw%,72).J....J|
0000f7b0 b0 91 e7 a4 69 73 73 65 6c 65 63 74 65 64 28 61 |....isselected(a|
0000f7c0 6e 69 6d 77 25 2c 30 29 3a f2 63 72 65 61 74 65 |nimw%,0):.create|
0000f7d0 5f 6d 65 6e 75 28 6d 65 6e 75 25 2c 22 50 6c 61 |_menu(menu%,"Pla|
0000f7e0 6e 74 77 69 73 65 22 2c 22 53 61 76 65 2c 31 50 |ntwise","Save,1P|
0000f7f0 72 69 6e 74 2c 37 53 61 76 65 20 74 65 78 74 2c |rint,7Save text,|
0000f800 22 29 3a 8b 3a f2 63 72 65 61 74 65 5f 6d 65 6e |"):.:.create_men|
0000f810 75 28 6d 65 6e 75 25 2c 22 50 6c 61 6e 74 77 69 |u(menu%,"Plantwi|
0000f820 73 65 22 2c 22 53 61 76 65 2c 31 50 72 69 6e 74 |se","Save,1Print|
0000f830 2c 37 38 53 61 76 65 20 74 65 78 74 2c 22 29 0d |,78Save text,").|
0000f840 4a ba 53 f2 73 75 62 6d 65 6e 75 28 6d 65 6e 75 |J.S.submenu(menu|
0000f850 25 2c 31 2c 73 61 61 6e 69 6d 77 25 29 3a f2 73 |%,1,saanimw%):.s|
0000f860 75 62 6d 65 6e 75 28 6d 65 6e 75 25 2c 33 2c 65 |ubmenu(menu%,3,e|
0000f870 64 62 6f 78 77 25 29 3a f2 73 75 62 6d 65 6e 75 |dboxw%):.submenu|
0000f880 28 6d 65 6e 75 25 2c 32 2c 70 72 61 6e 69 6d 77 |(menu%,2,pranimw|
0000f890 25 29 0d 4a c4 2a c8 99 20 22 57 69 6d 70 5f 43 |%).J.*.. "Wimp_C|
0000f8a0 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 |reateMenu",,menu|
0000f8b0 25 2c 6d 78 25 2d 36 34 2c 6d 79 25 0d 4a ce 10 |%,mx%-64,my%.J..|
0000f8c0 63 75 72 72 6d 65 6e 75 25 3d 2d 33 0d 4a d8 05 |currmenu%=-3.J..|
0000f8d0 e1 0d 4a e2 04 0d 4a ec 22 dd f2 6d 61 73 74 65 |..J...J."..maste|
0000f8e0 72 5f 6d 65 6e 75 28 74 69 74 6c 65 24 2c 6d 24 |r_menu(title$,m$|
0000f8f0 2c 78 25 2c 79 25 29 0d 4a f6 21 f2 63 72 65 61 |,x%,y%).J.!.crea|
0000f900 74 65 5f 6d 65 6e 75 28 6d 65 6e 75 25 2c 74 69 |te_menu(menu%,ti|
0000f910 74 6c 65 24 2c 6d 24 29 0d 4b 00 1c f2 73 75 62 |tle$,m$).K...sub|
0000f920 6d 65 6e 75 28 6d 65 6e 75 25 2c 31 2c 69 6e 66 |menu(menu%,1,inf|
0000f930 6f 77 25 29 0d 4b 0a 32 c8 99 20 22 57 69 6d 70 |ow%).K.2.. "Wimp|
0000f940 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 |_CreateMenu",,me|
0000f950 6e 75 25 2c 78 25 2d 6d 65 6e 75 25 21 31 36 20 |nu%,x%-menu%!16 |
0000f960 2f 20 32 2c 79 25 0d 4b 14 10 63 75 72 72 6d 65 |/ 2,y%.K..currme|
0000f970 6e 75 25 3d 2d 31 0d 4b 1e 05 e1 0d 4b 28 04 0d |nu%=-1.K....K(..|
0000f980 4b 32 1f dd f2 63 72 65 61 74 65 5f 6d 65 6e 75 |K2...create_menu|
0000f990 28 6d 25 2c 74 69 74 6c 65 24 2c 6d 24 29 0d 4b |(m%,title$,m$).K|
0000f9a0 3c 0d ea 20 69 25 2c 6d 61 78 25 0d 4b 46 0e 24 |<.. i%,max%.KF.$|
0000f9b0 6d 25 3d 74 69 74 6c 65 24 0d 4b 50 34 6d 25 3f |m%=title$.KP4m%?|
0000f9c0 31 32 3d 37 3a 6d 25 3f 31 33 3d 32 3a 6d 25 3f |12=7:m%?13=2:m%?|
0000f9d0 31 34 3d 37 3a 6d 25 3f 31 35 3d 30 3a 6d 25 21 |14=7:m%?15=0:m%!|
0000f9e0 32 30 3d 34 30 3a 6d 25 21 32 34 3d 30 0d 4b 5a |20=40:m%!24=0.KZ|
0000f9f0 1d 69 25 3d 6d 25 2b 32 38 3a 6d 61 78 25 3d a9 |.i%=m%+28:max%=.|
0000fa00 28 74 69 74 6c 65 24 29 2d 32 0d 4b 64 05 f5 0d |(title$)-2.Kd...|
0000fa10 4b 6e 11 20 20 61 25 3d a7 6d 24 2c 22 2c 22 29 |Kn. a%=.m$,",")|
0000fa20 0d 4b 78 18 20 20 69 24 3d c0 6d 24 2c 61 25 2d |.Kx. i$=.m$,a%-|
0000fa30 31 29 3a 21 69 25 3d 30 0d 4b 82 14 20 20 f5 3a |1):!i%=0.K.. .:|
0000fa40 6d 6f 72 65 63 6f 64 65 73 25 3d a3 0d 4b 8c 30 |morecodes%=..K.0|
0000fa50 20 20 20 20 e7 c0 69 24 2c 31 29 3d 22 30 22 20 | ..i$,1)="0" |
0000fa60 21 69 25 3d 28 21 69 25 29 84 25 30 30 30 31 3a |!i%=(!i%).%0001:|
0000fa70 6d 6f 72 65 63 6f 64 65 73 25 3d b9 0d 4b 96 30 |morecodes%=..K.0|
0000fa80 20 20 20 20 e7 c0 69 24 2c 31 29 3d 22 31 22 20 | ..i$,1)="1" |
0000fa90 21 69 25 3d 28 21 69 25 29 84 25 30 30 31 30 3a |!i%=(!i%).%0010:|
0000faa0 6d 6f 72 65 63 6f 64 65 73 25 3d b9 0d 4b a0 30 |morecodes%=..K.0|
0000fab0 20 20 20 20 e7 c0 69 24 2c 31 29 3d 22 32 22 20 | ..i$,1)="2" |
0000fac0 21 69 25 3d 28 21 69 25 29 84 25 30 31 30 30 3a |!i%=(!i%).%0100:|
0000fad0 6d 6f 72 65 63 6f 64 65 73 25 3d b9 0d 4b aa 30 |morecodes%=..K.0|
0000fae0 20 20 20 20 e7 c0 69 24 2c 31 29 3d 22 33 22 20 | ..i$,1)="3" |
0000faf0 21 69 25 3d 28 21 69 25 29 84 25 31 30 30 30 3a |!i%=(!i%).%1000:|
0000fb00 6d 6f 72 65 63 6f 64 65 73 25 3d b9 0d 4b b4 34 |morecodes%=..K.4|
0000fb10 20 20 20 20 e7 c0 69 24 2c 31 29 3d 22 37 22 20 | ..i$,1)="7" |
0000fb20 21 69 25 3d 28 21 69 25 29 84 25 31 30 30 30 30 |!i%=(!i%).%10000|
0000fb30 30 30 30 3a 6d 6f 72 65 63 6f 64 65 73 25 3d b9 |000:morecodes%=.|
0000fb40 0d 4b be 43 20 20 20 20 e7 c0 69 24 2c 31 29 3d |.K.C ..i$,1)=|
0000fb50 22 38 22 20 69 25 21 38 3d 26 30 37 34 30 30 30 |"8" i%!8=&074000|
0000fb60 32 31 3a 69 24 3d c2 69 24 2c a9 28 69 24 29 2d |21:i$=.i$,.(i$)-|
0000fb70 31 29 3a 8b 3a 69 25 21 38 3d 26 30 37 30 30 30 |1):.:i%!8=&07000|
0000fb80 30 32 31 0d 4b c8 24 20 20 20 20 e7 20 6d 6f 72 |021.K.$ . mor|
0000fb90 65 63 6f 64 65 73 25 20 69 24 3d c2 69 24 2c a9 |ecodes% i$=.i$,.|
0000fba0 28 69 24 29 2d 31 29 0d 4b d2 20 20 20 fd 20 ac |(i$)-1).K. . .|
0000fbb0 20 6d 6f 72 65 63 6f 64 65 73 25 3a 24 28 69 25 | morecodes%:$(i%|
0000fbc0 2b 31 32 29 3d 69 24 0d 4b dc 23 20 20 e7 20 28 |+12)=i$.K.# . (|
0000fbd0 a9 28 69 24 29 2b 31 29 3e 6d 61 78 25 20 6d 61 |.(i$)+1)>max% ma|
0000fbe0 78 25 3d a9 28 69 24 29 2b 31 0d 4b e6 0d 20 20 |x%=.(i$)+1.K.. |
0000fbf0 69 25 21 34 3d 2d 31 0d 4b f0 14 20 20 6d 24 20 |i%!4=-1.K.. m$ |
0000fc00 3d 20 c1 6d 24 2c 61 25 2b 31 29 0d 4b fa 12 20 |= .m$,a%+1).K.. |
0000fc10 20 69 25 20 3d 20 69 25 20 2b 20 32 34 0d 4c 04 | i% = i% + 24.L.|
0000fc20 0d fd 20 6d 24 20 3d 20 22 22 0d 4c 0e 13 6d 25 |.. m$ = "".L..m%|
0000fc30 21 31 36 20 3d 20 6d 61 78 25 2a 31 36 0d 4c 18 |!16 = max%*16.L.|
0000fc40 05 e1 0d 4c 22 04 0d 4c 2c 10 dd f2 6d 65 6e 75 |...L"..L,...menu|
0000fc50 73 65 6c 65 63 74 0d 4c 36 23 c8 99 20 22 57 69 |select.L6#.. "Wi|
0000fc60 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 |mp_GetPointerInf|
0000fc70 6f 22 2c 2c 62 6c 6b 32 25 0d 4c 40 18 63 75 72 |o",,blk2%.L@.cur|
0000fc80 72 6d 65 6e 75 62 75 74 25 3d 62 6c 6b 32 25 21 |rmenubut%=blk2%!|
0000fc90 38 0d 4c 4a 12 c8 8e 20 63 75 72 72 6d 65 6e 75 |8.LJ... currmenu|
0000fca0 25 20 ca 0d 4c 54 0b 20 20 c9 20 2d 31 3a 0d 4c |% ..LT. . -1:.L|
0000fcb0 5e 11 20 20 20 20 c8 8e 20 21 65 62 25 20 ca 0d |^. .. !eb% ..|
0000fcc0 4c 68 1b 20 20 20 20 20 20 c9 20 30 3a 20 f2 63 |Lh. . 0: .c|
0000fcd0 68 65 63 6b 61 64 6a 75 73 74 0d 4c 72 28 20 20 |heckadjust.Lr( |
0000fce0 20 20 20 20 c9 20 31 3a 20 f2 6f 70 65 6e 5f 73 | . 1: .open_s|
0000fcf0 65 74 75 70 77 3a f2 63 68 65 63 6b 61 64 6a 75 |etupw:.checkadju|
0000fd00 73 74 0d 4c 7c 16 20 20 20 20 20 20 c9 20 32 3a |st.L|. . 2:|
0000fd10 20 71 75 69 74 25 3d b9 0d 4c 86 09 20 20 20 20 | quit%=..L.. |
0000fd20 cb 0d 4c 90 0b 20 20 c9 20 2d 32 3a 0d 4c 9a 11 |..L.. . -2:.L..|
0000fd30 20 20 20 20 c8 8e 20 21 65 62 25 20 ca 0d 4c a4 | .. !eb% ..L.|
0000fd40 1b 20 20 20 20 20 20 c9 20 30 3a 20 f2 63 68 65 |. . 0: .che|
0000fd50 63 6b 61 64 6a 75 73 74 0d 4c ae 1b 20 20 20 20 |ckadjust.L.. |
0000fd60 20 20 c9 20 31 3a 20 f2 63 68 65 63 6b 61 64 6a | . 1: .checkadj|
0000fd70 75 73 74 0d 4c b8 09 20 20 20 20 cb 0d 4c c2 0b |ust.L.. ..L..|
0000fd80 20 20 c9 20 2d 33 3a 0d 4c cc 11 20 20 20 20 c8 | . -3:.L.. .|
0000fd90 8e 20 21 65 62 25 20 ca 0d 4c d6 1b 20 20 20 20 |. !eb% ..L.. |
0000fda0 20 20 c9 20 30 3a 20 f2 63 68 65 63 6b 61 64 6a | . 0: .checkadj|
0000fdb0 75 73 74 0d 4c e0 1b 20 20 20 20 20 20 c9 20 31 |ust.L.. . 1|
0000fdc0 3a 20 f2 63 68 65 63 6b 61 64 6a 75 73 74 0d 4c |: .checkadjust.L|
0000fdd0 ea 1b 20 20 20 20 20 20 c9 20 32 3a 20 f2 63 68 |.. . 2: .ch|
0000fde0 65 63 6b 61 64 6a 75 73 74 0d 4c f4 09 20 20 20 |eckadjust.L.. |
0000fdf0 20 cb 0d 4c fe 0e 20 20 c9 20 2d 34 2c 2d 35 3a | ..L.. . -4,-5:|
0000fe00 0d 4d 08 11 20 20 20 20 c8 8e 20 21 65 62 25 20 |.M.. .. !eb% |
0000fe10 ca 0d 4d 12 1b 20 20 20 20 20 20 c9 20 30 3a 20 |..M.. . 0: |
0000fe20 f2 63 68 65 63 6b 61 64 6a 75 73 74 0d 4d 1c 09 |.checkadjust.M..|
0000fe30 20 20 20 20 cb 0d 4d 26 05 cb 0d 4d 30 05 e1 0d | ..M&...M0...|
0000fe40 4d 3a 04 0d 4d 44 11 dd f2 63 68 65 63 6b 61 64 |M:..MD...checkad|
0000fe50 6a 75 73 74 0d 4d 4e 37 e7 63 75 72 72 6d 65 6e |just.MN7.currmen|
0000fe60 75 62 75 74 25 3d 31 3a c8 99 20 22 57 69 6d 70 |ubut%=1:.. "Wimp|
0000fe70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 |_CreateMenu",,me|
0000fe80 6e 75 25 2c 31 30 30 2c 31 30 30 0d 4d 58 05 e1 |nu%,100,100.MX..|
0000fe90 0d 4d 62 04 0d 4d 6c 14 dd a4 72 65 61 64 76 64 |.Mb..Ml...readvd|
0000fea0 75 76 61 72 28 61 25 29 0d 4d 76 39 21 62 6c 6b |uvar(a%).Mv9!blk|
0000feb0 25 3d 61 25 3a 62 6c 6b 25 21 34 3d 2d 31 3a c8 |%=a%:blk%!4=-1:.|
0000fec0 99 20 22 4f 53 5f 52 65 61 64 56 64 75 56 61 72 |. "OS_ReadVduVar|
0000fed0 69 61 62 6c 65 73 22 2c 62 6c 6b 25 2c 62 6c 6b |iables",blk%,blk|
0000fee0 25 0d 4d 80 0a 3d 21 62 6c 6b 25 0d 4d 8a 04 0d |%.M..=!blk%.M...|
0000fef0 4d 94 0f dd f2 73 74 61 72 74 67 61 6d 65 0d 4d |M....startgame.M|
0000ff00 9e 22 f2 6f 70 65 6e 5f 6d 65 6e 75 77 28 61 63 |.".open_menuw(ac|
0000ff10 74 6d 65 6e 75 25 2c 61 63 74 61 6e 69 6d 25 29 |tmenu%,actanim%)|
0000ff20 0d 4d a8 05 e1 0d 4d b2 04 0d 4d bc 1a dd f2 66 |.M....M...M....f|
0000ff30 6c 69 70 28 66 6c 69 70 74 79 70 65 25 2c 73 70 |lip(fliptype%,sp|
0000ff40 6e 24 29 0d 4d c6 34 e7 66 6c 69 70 74 79 70 65 |n$).M.4.fliptype|
0000ff50 25 3d 31 3a c8 99 20 22 4f 53 5f 53 70 72 69 74 |%=1:.. "OS_Sprit|
0000ff60 65 4f 70 22 2c 26 31 32 31 2c 64 65 74 61 72 65 |eOp",&121,detare|
0000ff70 61 25 2c 73 70 6e 24 0d 4d d0 34 e7 66 6c 69 70 |a%,spn$.M.4.flip|
0000ff80 74 79 70 65 25 3d 32 3a c8 99 20 22 4f 53 5f 53 |type%=2:.. "OS_S|
0000ff90 70 72 69 74 65 4f 70 22 2c 26 31 32 46 2c 64 65 |priteOp",&12F,de|
0000ffa0 74 61 72 65 61 25 2c 73 70 6e 24 0d 4d da 58 e7 |tarea%,spn$.M.X.|
0000ffb0 66 6c 69 70 74 79 70 65 25 3d 33 3a c8 99 20 22 |fliptype%=3:.. "|
0000ffc0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 32 |OS_SpriteOp",&12|
0000ffd0 31 2c 64 65 74 61 72 65 61 25 2c 73 70 6e 24 3a |1,detarea%,spn$:|
0000ffe0 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |.. "OS_SpriteOp"|
0000fff0 2c 26 31 32 46 2c 64 65 74 61 72 65 61 25 2c 73 |,&12F,detarea%,s|
00010000 70 6e 24 0d 4d e4 05 e1 0d ff |pn$.M.....|
0001000a 
.