Home » Archimedes archive » Archimedes World » AW-1991-09.adf » AWSept91 » !AWSep91/Goodies/RePaint/!Re-Paint/!Runimage
!AWSep91/Goodies/RePaint/!Re-Paint/!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 » Archimedes World » AW-1991-09.adf » AWSept91 |
Filename: | !AWSep91/Goodies/RePaint/!Re-Paint/!Runimage |
Read OK: | ✔ |
File size: | 36FA bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM >!Runimage 20aa$="1.05 (10-Mar-91)" 30ba%=HIMEM 40DIM ca% 2048,da% 256 50DIM ea 16:$ea="!Re-paint" 60DIM fa% 256,ga% 16 70ha$="Sprite Re-painter" 80PROCia 90$ca%="TASK":SYS ja%,200,!ca%,ha$ TO ,ka 100ON ERROR PROCla(da%,ha$):END 110ma%=1 120na%=&FF9 130oa%=FALSE 140pa=256/100 150qa%=1 160ra%=1 170scrap%=FALSE 180PROCsa 190PROCta 200PROCua 210PROCva 220PROCwa 230PROCxa(2,4,ya,TRUE) 240PROCza(da%,_a%,4,aa$) 250ab=FNbb(ca%,-1,0,0,68,68,&3102,ea,1,20) 260cb=FALSE:db=-1:eb%=-2 270ON ERROR IF ERR<>13 PROCla(da%,ha$):END 280REPEAT 290SYS fb%,ma%,ca% TO gb 300CASE gb OF 310WHEN 1:H%=ca%!0:PROChb(ca%) 320WHEN 2:SYS ib%,,ca% 330WHEN 3:SYS jb%,,ca% 340WHEN 6:PROCkb(ca%) 350WHEN 7:PROClb(na%) 360WHEN 8:PROCmb(ca%) 370WHEN 9:PROCnb(ca%) 380WHEN 17,18:PROCob(ca%) 390WHEN 19:PROCpb(ca%) 400ENDCASE 410UNTIL cb 420SYS qb% 430END 440DEFPROCrb(sb%,tb%,ub%) 450CASE sb% OF 460WHEN vb% 470wb%=ub%-(xb%<<ra%)*yb%/zb% 480SYS _b%,256+52,ba%,ac$,tb%,wb%,0,ga%,fa% 490WHEN bc% 500tb%+=284 510IF FNcc(da%,bc%,14) dc=.25 ELSE dc=2.5 520SYS ec%,11:RECTANGLEFILL tb%,ub%-64 ,fc%*dc,16 530SYS ec%,13:RECTANGLEFILL tb%,ub%-116,gc%*dc,16 540SYS ec%,08:RECTANGLEFILL tb%,ub%-172,hc%*dc,16 550ENDCASE 560ENDPROC 570DEFPROCmb(ic) 580LOCAL @%,jc 590sb%=ic!0:kc%=ic!4:lc%=ic!24 600CASE lc% OF 610WHEN 13 620CASE sb% OF 630WHEN bc% 640SYS mc%,bc%,(kc%+1)MOD3,0,0,-1,FNnc(bc%,(kc%+1)MOD3) 660PROCoc 670SYS pc%,bc%,274,-180,920,0 680SYS pc%,vb%,0,-32000,32000,0 690ENDIF 700ENDCASE 710WHEN 399,398:IF lc%=399 kc%-=1 ELSE kc%=(kc%+1)MOD3 720IF kc%<0 kc%=2 730SYS mc%,bc%,kc%,0,0,-1,FNnc(bc%,kc%) 740OTHERWISE 750SYS qc%,lc% 760ENDCASE 770ENDPROC 780DEF PROCkb(ic) 790rc%=ic!8:sb%=ic!12:kc%=(ic!16) 800CASE rc% OF 810WHEN 2 820sc%=ya 830CASE sb% OF 840WHEN eb%:SYS tc%,,ya,!ic-128,96+40*6 850WHEN vb%:SYS tc%,,ya,!ic-128,ic!4 860ENDCASE 870WHEN 4,1 880CASE sb% OF 890WHEN eb%:IF oa% PROCuc(ca%,vb%):ma%=1 900WHEN vc%:PROCwc(ic) 910WHEN xc%:PROCyc(kc%) 920WHEN bc%:PROCzc(!ic,kc%) 930ENDCASE 940ENDCASE 950ENDPROC 960DEFPROCzc(_c%,I%) 970CASE I% OF 980WHEN 6,7,8 990!ca%=bc% 1000SYS ad%,,ca% 1010bd=ca%!4-ca%!20+284 1020V%=(_c%-bd)*4/pa 1030PROCza(da%,bc%,I%-6,STR$(V%)) 1040PROCoc 1050SYS pc%,vb%,0,-32000,32000,0 1060SYS pc%,bc%,274,-180,920,0 1070WHEN 13,14:IF FNcc(da%,bc%,14) pa=256/100 ELSE pa=256/10 1080SYS pc%,bc%,274,-180,920,0 1090ENDCASE 1100ENDPROC 1110DEFPROCnb(B%) 1120LOCALcd$ 1130SYS dd%,,da%:ed%=(da%!8=1) 1140IF B%!4=-1 THEN 1150SYS fd%,,sc%,B%,B%+16 1160cd$=FNgd(FNhd(B%+16)) 1170CASE cd$ OF 1180WHEN "Quit ":cb=TRUE 1190WHEN "RGB levels ":PROCid(ca%,bc%) 1200ENDCASE 1210ELSE 1220ac$=FNjd(kd%,B%!4,ld%) 1230PROCid(ca%,vb%) 1240ENDIF 1250IFed% SYS"Wimp_CreateMenu",,sc% 1260ENDPROC 1270DEFPROCob(ic) 1280CASE ic!16 OF 1290WHEN 0 :cb=TRUE 1300WHEN 1 :PROCmd(ic) 1310WHEN 9,&400C1:PROCwa 1320WHEN 2 :PROCnd(ic) 1330WHEN 3 :PROCod(ic) 1340WHEN &502 :PROCpd(ic) 1350ENDCASE 1360ENDPROC 1370DEFPROCwa 1380PROCoc 1390SYS "OS_ReadModeVariable",-1,4 TO ,,qd% 1400SYS "OS_ReadModeVariable",-1,5 TO ,,rd% 1410PROCsd 1420ENDPROC 1430DEFPROCwc(ic) 1440IF ic!16=3 THEN 1450!ic=vc% 1460SYS ad%,,ic 1470bd=ic!4-ic!20:td=ic!16-ic!24 1480ic!4=3 1490SYS ud%,,ic 1500!ic=vc%:ic!4=5 1510ic!8=ic!8+bd:ic!12=ic!12+td 1520ic!16=ic!16+bd:ic!20=ic!20+td 1530ic!24=0:ic!28=0 1540ic!32=&7FFFFFFF:ic!36=&7FFFFFFF 1550SYS vd%,,ic 1560ENDIF 1570IF ic!16=0 PROCwd(FNxd(da%,vc%,2)) 1580ENDPROC 1600DEFPROCod(ic) 1610IF ic!40=&FF9 THEN 1620yd$=FNhd(ic+44) 1630zd%=OPENIN(yd$):_d%=EXT#zd%:CLOSE#zd% 1640END=ba%+_d%+16 1650IF HIMEM<ba%+_d%+16 PROCae(da%,ha$,"Not enough memory"):ENDPROC 1660HIMEM=ba% 1670ba%!&0=_d%+8 : 1680SYS _b%,256+10,ba%,yd$ : 1690PROCbe(ic) 1700IF FNce(FNgd(yd$)) END=ba% 1710ENDIF 1720ENDPROC 1740DEFFNce(de$) 1750LOCAL ee% 1760ee%=FALSE 1770!da%=vb%:SYS jb%,,da% 1780SYS _b%,256+8,ba% TO ,,,fe%,ge% : 1790he%=!(ba%+ge%+32)+ba%+ge% : 1800ie%=!(ba%+ge%)-!(ba%+ge%+32) : 1810xb% =!(ba%+ge%+20)+1 : 1820je% =(!(ba%+ge%+16)+1)*4 : 1830ke%=!(ba%+ge%+40) : 1840SYS "OS_ReadModeVariable",ke%,9 TO ,,I% : 1850SYS "OS_ReadModeVariable",ke%,4 TO ,,qa% 1860SYS "OS_ReadModeVariable",ke%,5 TO ,,ra% 1870IF I%=3 THEN 1880IF FNle(fe%) THEN 1890PROCae(da%,ha$,"Sprites must all be of the same mode. Sorry.") 1900oa%=FALSE 1910ee%=TRUE 1920PROCxa(2,4,ya,TRUE) 1930ELSE 1950PROCoc 1960IF INSTR(de$,"$Scrap") THEN de$=me$ 1970PROCne(da%,vb%,de$) 1980PROCza(da%,vc%,2,LEFT$(de$,9)+"+") 1990oa%=TRUE 2000PROCxa(2,4,ya,FALSE) 2010PROCsd 2020PROCuc(da%,vb%) 2030SYS pc%,vb%,0,-32000,32000,0 2040ENDIF 2050ELSE 2060PROCae(da%,ha$,"Re-paint only works on 256 colour sprites. Sorry.") 2070oa%=FALSE 2080ee%=TRUE 2090PROCxa(2,4,ya,TRUE) 2100ENDIF 2110=ee% 2130DEFPROCbe(ic) 2140IF scrap% OSCLI("DELETE <Wimp$Scrap>"):scrap%=FALSE 2150ic!12=ic!8:ic!16=4 2160SYS oe%,17,ic,ic!4 2170ENDPROC 2190DEFPROClb(F%) 2200SYS dd%,,ca% 2210ca%!20=64:ca%!32=0 2220ca%!36=1:ca%!40=ca%!12 2230ca%!44=ca%!16:ca%!48=!ca% 2240ca%!52=ca%!4 2250ca%!56=ie%:ca%!60=F% 2260$(ca%+64)=FNgd(FNxd(da%,vc%,2))+CHR$0 2270SYS oe%,17,ca%+20,ca%!12,ca%!16 2280db=ca%!28 2290pe%=0 2300ENDPROC 2320DEFPROCmd(qe%) 2330qe%!0=60 2340qe%!12=qe%!8 2350qe%!16=2 2360qe%!36=-1 2370me$=FNhd(ic+44) 2380$(qe%+44)="<Wimp$Scrap>"+CHR$0 2390scrap%=TRUE 2400SYS oe%,17,qe%,qe%!4 2410ENDPROC 2430DEFPROCnd(ic) 2440IF ic!12=db THEN 2450PROCwd(FNhd(ic+44)) 2460ic!12=ic!8:ic!16=3 2470SYS oe%,18,ic,ic!4 2480ENDIF 2490IF NOT oa% END=ba% 2500ENDPROC 2520DEFPROCwd(re$) 2530IF INSTR(re$,".") OR INSTR(re$,"$Scrap") THEN 2540CASE na% OF 2550WHEN &FF9 2560A%=se% 2570B%=fa% 2580C%=fc% 2590D%=gc% 2600E%=hc% 2610CALLte 2620FOR I%=0 TO fe%-1 2630SYS _b%,256+13,ba%,da%,12,I%+1 TO ,,,ue% 2640da%?ue%=&0A 2650SYS _b%,256+24,ba%,da% TO ,,ve% 2660F%=(ve%!32+ve%) 2670G%=(ve%!16+1)*4*(ve%!20+1)-1 2680CALLwe 2690NEXT 2700CALLxe 2710SYS _b%,256+12,ba%,re$ 2720PROCza(da%,vc%,2,re$) 2730!da%=vc%:SYS jb%,,da% 2740!da%=vb%:SYS jb%,,da% 2750oa%=FALSE 2760PROCxa(2,4,ya,TRUE) 2770SYS tc%,,-1 2780ENDCASE 2790ELSE 2800$da%=" To save, drag the icon to a directory viewer" 2810SYS ye%,da%,1,"Re-paint" 2820ENDIF 2830ENDPROC 2840DEFPROCpb(ca%) 2850IF ca%!12=db THEN 2860PROCae(da%,ha$,"Wimp transfer failed") 2870ENDIF 2880ENDPROC 2890DEFPROCta 2900ze$="<Re-paint$Dir>.templates" 2910DIM _e% 2048:af%=_e%+2047 2920_a%=FNbf(ca%,ze$,"proginfo",_e%,af%) 2930vc%=FNbf(ca%,ze$,"save",_e%,af%) 2940bc%=FNbf(ca%,ze$,"tool",_e%,af%) 2950vb%=FNbf(ca%,ze$,"show",_e%,af%) 2960xc%=FNbf(ca%,ze$,"magn",_e%,af%) 2970ENDPROC 2980DEFPROCua 2990cf%=28*2+24*6+24*256 3000DIM df% cf% 3010FOR ef=0 TO 2 STEP 2 3020P%=df% 3030[OPT ef 3040.ya 3050EQUS "Re-paint"+STRING$(4,CHR$0):EQUD &70207:EQUD 200:EQUD 40:EQUD 0 3060EQUD &00:EQUD _a%:EQUD &7000021:EQUS "Info " 3070EQUD &00:EQUD -1:EQUD &7000021:EQUS "RGB levels " 3080EQUD &00:EQUD xc%:EQUD &7000021:EQUS "Magnify " 3090EQUD &00:EQUD ld%:EQUD &7000021:EQUS "Show sprite " 3100EQUD &00:EQUD vc%:EQUD &7000021:EQUS "Save " 3110EQUD &80:EQUD -1:EQUD &7000021:EQUS "Quit " 3120.ld% 3130EQUS "Show sprite ":EQUD &70207:EQUD 200:EQUD 40:EQUD 0 3140EQUD &80:EQUD -1:EQUD &7000021:EQUS "ZXY " 3150.ff% 3160] 3170NEXT 3180ENDPROC 3190DEFPROCoc 3200SYS gf% 3210dc=256/100 3220fc%=(VAL FNxd(da%,bc%,0))*dc 3230gc%=(VAL FNxd(da%,bc%,1))*dc 3240hc%=(VAL FNxd(da%,bc%,2))*dc 3250: 3260A%=se% 3270B%=fa% 3280C%=fc% 3290D%=gc% 3300E%=hc% 3310CALLxe 3320SYS hf% 3330ENDPROC 3340DEFPROCva 3350DIM if% 2048 3360FOR jf%=0 TO 2 STEP 2 3370P%=if% 3380[OPT jf% 3390.xe 3400STMFD R13!,{R14} 3410MOV R7,R0 3420ADD R8,R0,#256*4 3430ADD R9,R0,#256*4*2 3440MOV R5,#0 3450.kf 3460LDR R10,[R7],#4 3470MUL R10,R2,R10 3480MOV R10,R10,LSR#8 3490CMP R10,#255 3500MOVHI R10,#255 3510LDR R11,[R8],#4 3520MUL R11,R3,R11 3530MOV R11,R11,LSR#8 3540CMP R11,#255 3550MOVHI R11,#255 3560LDR R12,[R9],#4 3570MUL R12,R4,R12 3580MOV R12,R12,LSR#8 3590CMP R12,#255 3600MOVHI R12,#255 3610MOV R0,R10,LSL#8 3620ORR R0,R0,R11,LSL#16 3630ORR R0,R0,R12,LSL#24 3640SWI "ColourTrans_ReturnColourNumber" 3650STRB R0,[R1,R5] 3660ADD R5,R5,#1 3670CMP R5,#255 3680BLS kf 3690LDMFD R13!,{R15} 3700.te 3710STMFD R13!,{R14} 3720MOV R7,R0 3730ADD R8,R0,#256*4 3740ADD R9,R0,#256*4*2 3750MOV R5,#0 3760.lf 3770LDR R10,[R7],#4 3780MUL R10,R2,R10 3790MOV R10,R10,LSR#8 3800CMP R10,#255 3810MOVHI R10,#255 3820LDR R11,[R8],#4 3830MUL R11,R3,R11 3840MOV R11,R11,LSR#8 3850CMP R11,#255 3860MOVHI R11,#255 3870LDR R12,[R9],#4 3880MUL R12,R4,R12 3890MOV R12,R12,LSR#8 3900CMP R12,#255 3910MOVHI R12,#255 3920MOV R0,R10,LSL#8 3930ORR R0,R0,R11,LSL#16 3940ORR R0,R0,R12,LSL#24 3950STMFD R13!,{R1,R2} 3960MOV R1,#15 3970MOV R2,#0 3980SWI "ColourTrans_ReturnColourNumberForMode" 3990LDMFD R13!,{R1,R2} 4000STRB R0,[R1,R5] 4010ADD R5,R5,#1 4020CMP R5,#255 4030BLS lf 4040LDMFD R13!,{R15} 4050.we 4060LDRB R7,[R5,R6] 4070LDRB R8,[R1,R7] 4080STRB R8,[R5,R6] 4090SUBS R6,R6,#1 4100BPL we 4110MOV R15,R14 4120] 4130NEXT 4140ENDPROC 4150DEFPROCyc(I%) 4160CASE I% OF 4170WHEN 0,2 :V%=FNmf(xc%,I%-1,1,99,1):PROCsd 4180WHEN 3,5 :V%=FNmf(xc%,I%-4,4,99,1):PROCsd 4190ENDCASE 4200PROCuc(ca%,vb%) 4210SYS pc%,vb%,0,-32000,32000,0 4220ENDPROC 4230DEFFNmf(sb%,nf%,kc%,of%,pf%) 4240V%=VALFNxd(ca%,sb%,kc%) 4250V%+=nf% 4260IF V%>of% V%=of% 4270IF V%<pf% V%=pf% 4280PROCza(ca%,sb%,kc%,STR$V%) 4290=V% 4300DEFPROCsd 4310yb%=VALFNxd(ca%,xc%,1):IFyb%<1 yb%=1 4320zb%=VALFNxd(ca%,xc%,4):IFzb%<1 zb%=1 4330ga%!00=yb%<<qa% : 4340ga%!04=yb%<<ra% : 4350ga%!08=zb%<<qd% 4360ga%!12=zb%<<rd% 4370IFoa% THEN 4380X%=(je%<<qa%)*yb%/zb% 4390Y%=(-xb%<<ra%)*yb%/zb% 4400PROCqf(ca%,vb%,X%,Y%) 4410ENDIF 4420ENDPROC 4430DEFFNnc(H%,I%) 4440=LEN FNxd(ca%,H%,I%) 4450DEFPROCsa 4460DIM se% 256*4*3 4470rf%=se% 4480sf%=se%+256*4 4490qe%=se%+256*4*2 4500: 4510: 4520FOR C%=0 TO 255 4530R%=(C% AND &7)OR(C% AND &10)>>1 4540G%=(C% AND &3)OR(C% AND &60)>>3 4550B%=(C% AND &3)OR(C% AND &08)>>1 OR (C% AND &80)>>4 4560rf%!(C%*4)=R% OR R%<<4 4570sf%!(C%*4)=G% OR G%<<4 4580qe%!(C%*4)=B% OR B%<<4 4590NEXT 4600ENDPROC 4610DEFFNle(N%) 4620LOCAL ee% 4630IF N%>255 kd%=255 ELSE kd%=N% : 4640tf%=ld%+28 4650ee%=FALSE 4660FOR I%=0 TO kd%-1 4670tf%!(0+24*I%)=0 4680tf%!(4+24*I%)=-1 4690tf%!(8+24*I%)=&7000021 4700SYS _b%,256+13,ba%,tf%+12+24*I%,12,I%+1 TO ,,,ue% 4710SYS _b%,256+24,ba%,FNuf(tf%+12+24*I%,12) TO ,,A% 4720IF A%!40<>ke% ee%=TRUE 4730NEXT 4740tf%!(0+24*(I%-1))=&80 4750ac$=FNjd(kd%,0,ld%) 4760=ee% 4770DEFFNjd(N%,I%,M%) 4780FORJ%=0TON%-1 4790A%=M%+28+J%*24 4800IFJ%=I% ?A%=?A% OR1:vf$=FNuf(A%+12,12) ELSE ?A%=?A% ANDNOT1 4810NEXT 4820=vf$ 4830DEFFNuf(A%,I%) 4840vf$="":WHILE (I%>0) AND (?A%>32):vf$+=CHR$?A%:I%-=1:A%+=1:ENDWHILE 4850=vf$ 4860DEFPROCwf(B%,H%,I%,J%,K%) 4870LOCAL L%,M% 4880FOR L%=J% TO K%:IF L%=I% M%=1<<21 ELSE M%=0 4890B%!0=H%:B%!4=L%:B%!8=M%:B%!12=1<<21 4900SYS xf%,,B% 4910NEXT 4920ENDPROC 4930DEFPROCyf(B%,H%,I%) 4940B%!00=H% 4950B%!04=I% 4960B%!08=0 4970B%!12=0 4980SYS xf%,,B% 4990ENDPROC 5000DEFPROCza(B%,H%,I%,vf$) 5010B%!0=H% 5020B%!4=I% 5030SYS ud%,,B% 5040$(B%!28)=vf$ 5050PROCyf(B%,H%,I%) 5060ENDPROC 5070DEFPROCzf(B%,H%,I%,J%,F%) 5080LOCAL L% 5090IF F%:B%!8=1<<22 ELSE B%!8=0 5100!B%=H% 5110B%!12=1<<22 5120FOR L%=I% TO J% 5130B%!4=L% 5140SYS xf%,,B% 5150NEXT 5160ENDPROC 5170DEFPROC_f(B%,H%,I%,X%,Y%) 5180LOCALag%,bg% 5190B%!0=H%:B%!4=I% 5200SYS ud%,,B% 5210SYS cg%,,B% 5220ag%=B%!16-B%!8:bg%=B%!20-B%!12 5230B%!4=H% 5240B%!8=X% 5250B%!12=Y% 5260B%!16=X%+ag% 5270B%!20=Y%+bg% 5280SYS dg%,,B%+4 5290ENDPROC 5300DEFFNcc(B%,H%,I%) 5310B%!0=H% 5320B%!4=I% 5330SYS ud%,,B% 5340=(B%!24 AND 2^21) 5350DEFFNbb(B%,eg%,fg%,gg%,hg%,ig%,jg%,kg%,lg%,mg%) 5360LOCAL H% 5370B%!00=eg% 5380B%!04=fg% 5390B%!08=gg% 5400B%!12=hg% 5410B%!16=ig% 5420B%!20=jg% 5430B%!24=kg% 5440B%!28=lg% 5450B%!32=mg% 5460SYS dg%,,B% TO H% 5470=H% 5480DEFFNxd(B%,H%,I%) 5490B%!0=H% 5500B%!4=I% 5510SYS ud%,,B% 5520=$(B%!28) 5530DEFPROCuc(B%,H%) 5540!B%=H% 5550SYS ad%,,B% 5560SYS ib%,,B% 5570ENDPROC 5580DEFPROCid(B%,H%) 5590!B%=H% 5600SYS jb%,,B% 5610PROCuc(B%,H%) 5620ENDPROC 5630DEFPROCng(B%,H%) 5640!B%=H% 5650SYS jb%,,B% 5660ENDPROC 5670DEFPROCne(B%,H%,vf$) : 5680!B%=H% 5690SYS og%,,B% 5700$(B%!(72+4))=vf$+CHR$0 5710ENDPROC 5720DEFPROChb(B%) 5730LOCAL sb%,tb%,ub% 5740sb%=B%!0 5750SYS pg%,,B% TO qg% 5760PROCrg(B%,tb%,ub%) 5770WHILE qg% 5780PROCrb(sb%,tb%,ub%) 5790SYS sg%,,B% TO qg% 5800ENDWHILE 5810ENDPROC 5820DEFPROCrg(B%,RETURN X%,RETURN Y%) 5830X%=B%!4-B%!20 5840Y%=B%!16-B%!24 5850ENDPROC 5860DEFPROCqf(B%,H%,X%,Y%) 5870!B%=H% 5880SYS og%,,B% 5890IF Y%=0 Y%=B%!48 5900IF X%=0 X%=B%!52 5910B%!00=B%!44 5920B%!04=Y% 5930B%!08=X% 5940B%!12=B%!56 5950SYS tg%,H%,B% 5960ENDPROC 5970DEFFNbf(B%,ze$,ug$,RETURN I%,J%) 5980LOCAL H% 5990SYS vg%,,ze$ 6000SYS wg%,,B%,I%,J%,-1,ug$,0 TO ,,I% 6010SYS xg%,,B% TO H% 6020SYS yg% 6030=H% 6040DEFPROCxa(I%,J%,M%,F%) 6050LOCAL A%,L% 6060FOR L%=I% TO J% 6070A%=M%+36+L%*24:IF F% !A%=!A%OR(1<<22) ELSE !A%=!A%ANDNOT(1<<22) 6080NEXT 6090ENDPROC 6100DEFPROCzg(N%,I%,M%) 6110FORJ%=0TON%-1 6120A%=M%+28+J%*24:IFJ%=I% ?A%=?A% OR1 ELSE ?A%=?A% ANDNOT1 6130NEXT 6140ENDPROC 6150DEFFN_g(I%,M%) 6160M%=M%+28+I%*24:?M%=?M% EOR 1 6170=?M% AND 1 6180DEFFNah(I%,M%) 6190M%=M%+28+I%*24 6200=?M% AND 1 6210DEFPROCla(B%,ze$) 6220SYS vd%,,-1 6230!B%=ERR 6240$(B%+4)=REPORT$+" (Internal error code "+STR$ERL+")"+CHR$0 6250SYS ye%,B%,1,ze$ 6260ENDPROC 6270DEFPROCae(B%,ze$,vf$) 6280SYS vd%,,-1 6290!B%=ERR:$(B%+4)=vf$+CHR$0 6300SYS ye%,B%,1,ze$ 6310ENDPROC 6320DEFPROCbh(RETURN X%,RETURN Y%) 6330LOCAL qd%,rd% 6340SYS ch%,-1,4 TO ,,qd% 6350SYS ch%,-1,11 TO ,,X% 6360SYS ch%,-1,5 TO ,,rd% 6370SYS ch%,-1,12 TO ,,Y% 6380X%=X%<<qd% 6390Y%=Y%<<rd% 6400ENDPROC 6410DEFFNgd(vf$) 6420WHILE INSTR(vf$,".") 6430vf$=MID$(vf$,INSTR(vf$,".")+1) 6440ENDWHILE 6450=vf$ 6460DEFFNdh(vf$) 6470=vf$+STRING$(12-LENvf$,CHR$0) 6480DEFFNhd(eh%):LOCALfh$:fh$="" 6490WHILE ?eh%>31:fh$+=CHR$?eh%:eh%+=1:ENDWHILE:=fh$ 6500DEFFNgh(B%,S%) 6510SYS dd%,,B% 6520=(B%!8=S%) 6530DEFPROCia 6540SYS "OS_SWINumberFromString",,"OS_SWINumberFromString" TO hh% 6550SYS hh%,,"ColourTrans_SelectTable" TO ih% 6560SYS hh%,,"OS_SpriteOp" TO _b% 6570SYS hh%,,"OS_ReadModeVariable" TO ch% 6580SYS hh%,,"Hourglass_On" TO gf% 6590SYS hh%,,"Hourglass_Off" TO hf% 6600SYS hh%,,"Wimp_CloseDown" TO qb% 6610SYS hh%,,"Wimp_CloseWindow" TO jb% 6620SYS hh%,,"Wimp_CloseTemplate" TO yg% 6630SYS hh%,,"Wimp_CreateIcon" TO dg% 6640SYS hh%,,"Wimp_CreateMenu" TO tc% 6650SYS hh%,,"Wimp_CreateSubMenu" TO jh% 6660SYS hh%,,"Wimp_CreateWindow" TO xg% 6670SYS hh%,,"Wimp_DecodeMenu" TO fd% 6680SYS hh%,,"Wimp_DeleteIcon" TO cg% 6690SYS hh%,,"Wimp_DragBox" TO vd% 6700SYS hh%,,"Wimp_ForceRedraw" TO pc% 6710SYS hh%,,"Wimp_GetIconState" TO ud% 6720SYS hh%,,"Wimp_GetPointerInfo" TO dd% 6730SYS hh%,,"Wimp_GetRectangle" TO sg% 6740SYS hh%,,"Wimp_GetWindowState" TO ad% 6750SYS hh%,,"Wimp_GetWindowInfo" TO og% 6760SYS hh%,,"Wimp_Initialise" TO ja% 6770SYS hh%,,"Wimp_LoadTemplate" TO wg% 6780SYS hh%,,"Wimp_OpenWindow" TO ib% 6790SYS hh%,,"Wimp_OpenTemplate" TO vg% 6800SYS hh%,,"Wimp_Poll" TO fb% 6810SYS hh%,,"Wimp_PollIdle" TO kh% 6820SYS hh%,,"Wimp_ProcessKey" TO qc% 6830SYS hh%,,"Wimp_ReadPalette" TO lh% 6840SYS hh%,,"Wimp_RedrawWindow" TO pg% 6850SYS hh%,,"Wimp_ReportError" TO ye% 6860SYS hh%,,"Wimp_SendMessage" TO oe% 6870SYS hh%,,"Wimp_SetCaretPosition" TO mc% 6880SYS hh%,,"Wimp_SetColour" TO ec% 6890SYS hh%,,"Wimp_SetExtent" TO tg% 6900SYS hh%,,"Wimp_SetIconState" TO xf% 6910SYS hh%,,"Wimp_SetMode" TO mh% 6920SYS hh%,,"Wimp_TransferBlock" TO nh% 6930SYS hh%,,"Wimp_UpdateWindow" TO oh% 6940SYS hh%,,"Wimp_WhichIcon" TO ph% 6950ENDPROC 6960DEF PROCpd(qe%) 6970LOCAL @%,sb%,kc% 6980@%=&1020200 6990qh$="" 7000sb%=qe%!32:kc%=qe%!36 7010CASE sb% OF 7020WHEN -2:qh$="This is the Re-paint icon.|MDrag any 256 colour sprite file onto it for easy adjustment of RGB weightings." 7030WHEN vc%:qh$="Saving the sprite file will fix the image with the current weightings." 7040WHEN vb%:qh$="This is the Re-paint preview window.|MChanges made to the RGB weightings are shown here.|MClick MENU to choose which sprite to show." 7050WHEN bc% 7060CASE kc% OF 7070WHEN 0,1,2:qh$="Type in any percentage weighting up to 999." 7080WHEN 6,7,8:qh$="Drag the weighting with SELECT." 7090WHEN 13:qh$="Click SELECT to set the full scale of the sliders to 100%." 7100WHEN 14:qh$="Click SELECT to set the full scale of the sliders to 1000%." 7110OTHERWISE:qh$="The controls in this window allow you to alter the individual weightings of the RGB components of the sprite loaded." 7120ENDCASE 7130OTHERWISE:qh$="This window belongs to Re-paint." 7140ENDCASE 7150qh$=qh$+CHR$0 7160qe%!00=20+(LEN(qh$) DIV 4*4)+4 7170qe%!12=qe%!8 7180qe%!16=&503 7190$(qe%+20)=qh$ 7200SYS "Wimp_SendMessage",17,qe%,qe%!4 7210ENDPROC
� >!Runimage aa$="1.05 (10-Mar-91)" ba%=� (� ca% 2048,da% 256 2� ea 16:$ea="!Re-paint" <� fa% 256,ga% 16 Fha$="Sprite Re-painter" P�ia Z)$ca%="TASK":ș ja%,200,!ca%,ha$ � ,ka d� � �la(da%,ha$):� n ma%=1 xna%=&FF9 � oa%=� �pa=256/100 � qa%=1 � ra%=1 �scrap%=� ��sa ��ta ��ua ��va ��wa ��xa(2,4,ya,�) ��za(da%,_a%,4,aa$) �*ab=�bb(ca%,-1,0,0,68,68,&3102,ea,1,20) cb=�:db=-1:eb%=-2 � � � �<>13 �la(da%,ha$):� � "ș fb%,ma%,ca% � gb ,Ȏ gb � 6� 1:H%=ca%!0:�hb(ca%) @� 2:ș ib%,,ca% J� 3:ș jb%,,ca% T� 6:�kb(ca%) ^� 7:�lb(na%) h� 8:�mb(ca%) r� 9:�nb(ca%) |� 17,18:�ob(ca%) �� 19:�pb(ca%) �� �� cb � ș qb% �� ���rb(sb%,tb%,ub%) �Ȏ sb% � � � vb% �wb%=ub%-(xb%<<ra%)*yb%/zb% �+ș _b%,256+52,ba%,ac$,tb%,wb%,0,ga%,fa% � � bc% �tb%+=284 �%� �cc(da%,bc%,14) dc=.25 � dc=2.5 (ș ec%,11:ȓȐ tb%,ub%-64 ,fc%*dc,16 (ș ec%,13:ȓȐ tb%,ub%-116,gc%*dc,16 (ș ec%,08:ȓȐ tb%,ub%-172,hc%*dc,16 &� 0� :��mb(ic) D� @%,jc Nsb%=ic!0:kc%=ic!4:lc%=ic!24 XȎ lc% � b� 13 lȎ sb% � v � bc% �2ș mc%,bc%,(kc%+1)�3,0,0,-1,�nc(bc%,(kc%+1)�3) ��oc �ș pc%,bc%,274,-180,920,0 �ș pc%,vb%,0,-32000,32000,0 �� �� �.� 399,398:� lc%=399 kc%-=1 � kc%=(kc%+1)�3 �� kc%<0 kc%=2 �&ș mc%,bc%,kc%,0,0,-1,�nc(bc%,kc%) � �ș qc%,lc% �� � � �kb(ic) "rc%=ic!8:sb%=ic!12:kc%=(ic!16) Ȏ rc% � *� 2 4 sc%=ya >Ȏ sb% � H$� eb%:ș tc%,,ya,!ic-128,96+40*6 R!� vb%:ș tc%,,ya,!ic-128,ic!4 \� f � 4,1 pȎ sb% � z"� eb%:� oa% �uc(ca%,vb%):ma%=1 �� vc%:�wc(ic) �� xc%:�yc(kc%) �� bc%:�zc(!ic,kc%) �� �� �� ���zc(_c%,I%) �Ȏ I% � �� 6,7,8 �!ca%=bc% �ș ad%,,ca% �bd=ca%!4-ca%!20+284 �V%=(_c%-bd)*4/pa �za(da%,bc%,I%-6,�(V%)) �oc ș pc%,vb%,0,-32000,32000,0 $ș pc%,bc%,274,-180,920,0 .4� 13,14:� �cc(da%,bc%,14) pa=256/100 � pa=256/10 8ș pc%,bc%,274,-180,920,0 B� L� V��nb(B%) `�cd$ jș dd%,,da%:ed%=(da%!8=1) t� B%!4=-1 � ~ș fd%,,sc%,B%,B%+16 �cd$=�gd(�hd(B%+16)) �Ȏ cd$ � �� "Quit ":cb=� �!� "RGB levels ":�id(ca%,bc%) �� �� �ac$=�jd(kd%,B%!4,ld%) ��id(ca%,vb%) �� �!�ed% ș"Wimp_CreateMenu",,sc% �� ���ob(ic) Ȏ ic!16 � � 0 :cb=� � 1 :�md(ic) � 9,&400C1:�wa (� 2 :�nd(ic) 2� 3 :�od(ic) <� &502 :�pd(ic) F� P� Z��wa d�oc n)ș "OS_ReadModeVariable",-1,4 � ,,qd% x)ș "OS_ReadModeVariable",-1,5 � ,,rd% ��sd �� ���wc(ic) �� ic!16=3 � �!ic=vc% �ș ad%,,ic � bd=ic!4-ic!20:td=ic!16-ic!24 � ic!4=3 �ș ud%,,ic �!ic=vc%:ic!4=5 �ic!8=ic!8+bd:ic!12=ic!12+td �!ic!16=ic!16+bd:ic!20=ic!20+td �ic!24=0:ic!28=0 #ic!32=&7FFFFFFF:ic!36=&7FFFFFFF ș vd%,,ic � "!� ic!16=0 �wd(�xd(da%,vc%,2)) ,� @��od(ic) J� ic!40=&FF9 � Tyd$=�hd(ic+44) ^zd%=�(yd$):_d%=�#zd%:�#zd% h�=ba%+_d%+16 r5� �<ba%+_d%+16 �ae(da%,ha$,"Not enough memory"):� | �=ba% �ba%!&0=_d%+8 : �ș _b%,256+10,ba%,yd$ : ��be(ic) �� �ce(�gd(yd$)) �=ba% �� �� � ݤce(de$) � � ee% � ee%=� �!da%=vb%:ș jb%,,da% �#ș _b%,256+8,ba% � ,,,fe%,ge% : �he%=!(ba%+ge%+32)+ba%+ge% : "ie%=!(ba%+ge%)-!(ba%+ge%+32) : xb% =!(ba%+ge%+20)+1 : je% =(!(ba%+ge%+16)+1)*4 : &ke%=!(ba%+ge%+40) : 0+ș "OS_ReadModeVariable",ke%,9 � ,,I% : :*ș "OS_ReadModeVariable",ke%,4 � ,,qa% D*ș "OS_ReadModeVariable",ke%,5 � ,,ra% N� I%=3 � X� �le(fe%) � b?�ae(da%,ha$,"Sprites must all be of the same mode. Sorry.") l oa%=� v ee%=� ��xa(2,4,ya,�) �� ��oc �� �de$,"$Scrap") � de$=me$ ��ne(da%,vb%,de$) ��za(da%,vc%,2,�de$,9)+"+") � oa%=� ��xa(2,4,ya,�) ��sd ��uc(da%,vb%) �ș pc%,vb%,0,-32000,32000,0 �� � D�ae(da%,ha$,"Re-paint only works on 256 colour sprites. Sorry.") oa%=� ee%=� *�xa(2,4,ya,�) 4� >=ee% R��be(ic) \.� scrap% �("DELETE <Wimp$Scrap>"):scrap%=� fic!12=ic!8:ic!16=4 pș oe%,17,ic,ic!4 z� ���lb(F%) �ș dd%,,ca% �ca%!20=64:ca%!32=0 �ca%!36=1:ca%!40=ca%!12 �ca%!44=ca%!16:ca%!48=!ca% �ca%!52=ca%!4 �ca%!56=ie%:ca%!60=F% �$$(ca%+64)=�gd(�xd(da%,vc%,2))+�0 �"ș oe%,17,ca%+20,ca%!12,ca%!16 � db=ca%!28 � pe%=0 �� ��md(qe%) qe%!0=60 $qe%!12=qe%!8 .qe%!16=2 8 qe%!36=-1 Bme$=�hd(ic+44) L$(qe%+44)="<Wimp$Scrap>"+�0 Vscrap%=� `ș oe%,17,qe%,qe%!4 j� ~��nd(ic) �� ic!12=db � ��wd(�hd(ic+44)) �ic!12=ic!8:ic!16=3 �ș oe%,18,ic,ic!4 �� �� � oa% �=ba% �� � ��wd(re$) �"� �re$,".") � �re$,"$Scrap") � �Ȏ na% � � � &FF9 A%=se% B%=fa% C%=fc% D%=gc% ( E%=hc% 2�te <� I%=0 � fe%-1 F*ș _b%,256+13,ba%,da%,12,I%+1 � ,,,ue% Pda%?ue%=&0A Z!ș _b%,256+24,ba%,da% � ,,ve% dF%=(ve%!32+ve%) n G%=(ve%!16+1)*4*(ve%!20+1)-1 x�we �� ��xe �ș _b%,256+12,ba%,re$ ��za(da%,vc%,2,re$) �!da%=vc%:ș jb%,,da% �!da%=vb%:ș jb%,,da% � oa%=� ��xa(2,4,ya,�) �ș tc%,,-1 �� �� �;$da%=" To save, drag the icon to a directory viewer" �ș ye%,da%,1,"Re-paint" � � ��pb(ca%) "� ca%!12=db � ,'�ae(da%,ha$,"Wimp transfer failed") 6� @� J��ta T"ze$="<Re-paint$Dir>.templates" ^� _e% 2048:af%=_e%+2047 h'_a%=�bf(ca%,ze$,"proginfo",_e%,af%) r#vc%=�bf(ca%,ze$,"save",_e%,af%) |#bc%=�bf(ca%,ze$,"tool",_e%,af%) �#vb%=�bf(ca%,ze$,"show",_e%,af%) �#xc%=�bf(ca%,ze$,"magn",_e%,af%) �� ���ua �cf%=28*2+24*6+24*256 � � df% cf% �� ef=0 � 2 � 2 � P%=df% �[OPT ef �.ya �>EQUS "Re-paint"+�4,�0):EQUD &70207:EQUD 200:EQUD 40:EQUD 0 �7EQUD &00:EQUD _a%:EQUD &7000021:EQUS "Info " �6EQUD &00:EQUD -1:EQUD &7000021:EQUS "RGB levels " 7EQUD &00:EQUD xc%:EQUD &7000021:EQUS "Magnify " 7EQUD &00:EQUD ld%:EQUD &7000021:EQUS "Show sprite " 7EQUD &00:EQUD vc%:EQUD &7000021:EQUS "Save " &6EQUD &80:EQUD -1:EQUD &7000021:EQUS "Quit " 0.ld% :;EQUS "Show sprite ":EQUD &70207:EQUD 200:EQUD 40:EQUD 0 D6EQUD &80:EQUD -1:EQUD &7000021:EQUS "ZXY " N.ff% X] b� l� v��oc � ș gf% �dc=256/100 �fc%=(� �xd(da%,bc%,0))*dc �gc%=(� �xd(da%,bc%,1))*dc �hc%=(� �xd(da%,bc%,2))*dc �: � A%=se% � B%=fa% � C%=fc% � D%=gc% � E%=hc% ��xe � ș hf% � ��va � if% 2048 � jf%=0 � 2 � 2 * P%=if% 4[OPT jf% >.xe HSTMFD R13!,{R14} RMOV R7,R0 \ADD R8,R0,#256*4 fADD R9,R0,#256*4*2 pMOV R5,#0 z.kf �LDR R10,[R7],#4 �MUL R10,R2,R10 �MOV R10,R10,LSR#8 �CMP R10,#255 �MOVHI R10,#255 �LDR R11,[R8],#4 �MUL R11,R3,R11 �MOV R11,R11,LSR#8 �CMP R11,#255 �MOVHI R11,#255 �LDR R12,[R9],#4 �MUL R12,R4,R12 �MOV R12,R12,LSR#8 CMP R12,#255 MOVHI R12,#255 MOV R0,R10,LSL#8 $�R R0,R0,R11,LSL#16 .�R R0,R0,R12,LSL#24 8(SWI "ColourTrans_ReturnColourNumber" BSTRB R0,[R1,R5] LADD R5,R5,#1 VCMP R5,#255 ` BLS kf jLDMFD R13!,{R15} t.te ~STMFD R13!,{R14} �MOV R7,R0 �ADD R8,R0,#256*4 �ADD R9,R0,#256*4*2 �MOV R5,#0 �.lf �LDR R10,[R7],#4 �MUL R10,R2,R10 �MOV R10,R10,LSR#8 �CMP R10,#255 �MOVHI R10,#255 �LDR R11,[R8],#4 �MUL R11,R3,R11 MOV R11,R11,LSR#8 CMP R11,#255 MOVHI R11,#255 LDR R12,[R9],#4 (MUL R12,R4,R12 2MOV R12,R12,LSR#8 <CMP R12,#255 FMOVHI R12,#255 PMOV R0,R10,LSL#8 Z�R R0,R0,R11,LSL#16 d�R R0,R0,R12,LSL#24 nSTMFD R13!,{R1,R2} xMOV R1,#15 �MOV R2,#0 �/SWI "ColourTrans_ReturnColourNumberForMode" �LDMFD R13!,{R1,R2} �STRB R0,[R1,R5] �ADD R5,R5,#1 �CMP R5,#255 �BLS lf �LDMFD R13!,{R15} �.we �LDRB R7,[R5,R6] �LDRB R8,[R1,R7] �STRB R8,[R5,R6] �SUBS R6,R6,#1 BPL we MOV R15,R14 ] "� ,� 6��yc(I%) @Ȏ I% � J&� 0,2 :V%=�mf(xc%,I%-1,1,99,1):�sd T&� 3,5 :V%=�mf(xc%,I%-4,4,99,1):�sd ^� h�uc(ca%,vb%) rș pc%,vb%,0,-32000,32000,0 |� �ݤmf(sb%,nf%,kc%,of%,pf%) �V%=��xd(ca%,sb%,kc%) �V%+=nf% �� V%>of% V%=of% �� V%<pf% V%=pf% ��za(ca%,sb%,kc%,�V%) �=V% ���sd �$yb%=��xd(ca%,xc%,1):�yb%<1 yb%=1 �$zb%=��xd(ca%,xc%,4):�zb%<1 zb%=1 �ga%!00=yb%<<qa% : �ga%!04=yb%<<ra% : �ga%!08=zb%<<qd% ga%!12=zb%<<rd% �oa% � X%=(je%<<qa%)*yb%/zb% &Y%=(-xb%<<ra%)*yb%/zb% 0�qf(ca%,vb%,X%,Y%) :� D� Nݤnc(H%,I%) X=� �xd(ca%,H%,I%) b��sa l� se% 256*4*3 vrf%=se% �sf%=se%+256*4 �qe%=se%+256*4*2 �: �: �� C%=0 � 255 �R%=(C% � &7)�(C% � &10)>>1 �G%=(C% � &3)�(C% � &60)>>3 �.B%=(C% � &3)�(C% � &08)>>1 � (C% � &80)>>4 �rf%!(C%*4)=R% � R%<<4 �sf%!(C%*4)=G% � G%<<4 �qe%!(C%*4)=B% � B%<<4 �� �� ݤle(N%) � ee% � N%>255 kd%=255 � kd%=N% : tf%=ld%+28 * ee%=� 4� I%=0 � kd%-1 >tf%!(0+24*I%)=0 Htf%!(4+24*I%)=-1 Rtf%!(8+24*I%)=&7000021 \3ș _b%,256+13,ba%,tf%+12+24*I%,12,I%+1 � ,,,ue% f1ș _b%,256+24,ba%,�uf(tf%+12+24*I%,12) � ,,A% p� A%!40<>ke% ee%=� z� �tf%!(0+24*(I%-1))=&80 �ac$=�jd(kd%,0,ld%) �=ee% �ݤjd(N%,I%,M%) ��J%=0�N%-1 �A%=M%+28+J%*24 �5�J%=I% ?A%=?A% �1:vf$=�uf(A%+12,12) � ?A%=?A% ��1 �� �=vf$ �ݤuf(A%,I%) �7vf$="":ȕ (I%>0) � (?A%>32):vf$+=�?A%:I%-=1:A%+=1:� �=vf$ ���wf(B%,H%,I%,J%,K%) � L%,M% (� L%=J% � K%:� L%=I% M%=1<<21 � M%=0 'B%!0=H%:B%!4=L%:B%!8=M%:B%!12=1<<21 $ș xf%,,B% .� 8� B��yf(B%,H%,I%) LB%!00=H% VB%!04=I% `B%!08=0 jB%!12=0 tș xf%,,B% ~� ���za(B%,H%,I%,vf$) �B%!0=H% �B%!4=I% �ș ud%,,B% �$(B%!28)=vf$ ��yf(B%,H%,I%) �� ���zf(B%,H%,I%,J%,F%) �� L% �� F%:B%!8=1<<22 � B%!8=0 � !B%=H% �B%!12=1<<22 � L%=I% � J% B%!4=L% ș xf%,,B% � (� 2��_f(B%,H%,I%,X%,Y%) <�ag%,bg% FB%!0=H%:B%!4=I% Pș ud%,,B% Zș cg%,,B% d"ag%=B%!16-B%!8:bg%=B%!20-B%!12 nB%!4=H% xB%!8=X% �B%!12=Y% �B%!16=X%+ag% �B%!20=Y%+bg% �ș dg%,,B%+4 �� �ݤcc(B%,H%,I%) �B%!0=H% �B%!4=I% �ș ud%,,B% �=(B%!24 � 2^21) �0ݤbb(B%,eg%,fg%,gg%,hg%,ig%,jg%,kg%,lg%,mg%) �� H% � B%!00=eg% B%!04=fg% B%!08=gg% B%!12=hg% " B%!16=ig% , B%!20=jg% 6 B%!24=kg% @ B%!28=lg% J B%!32=mg% Tș dg%,,B% � H% ^=H% hݤxd(B%,H%,I%) rB%!0=H% |B%!4=I% �ș ud%,,B% � =$(B%!28) ���uc(B%,H%) � !B%=H% �ș ad%,,B% �ș ib%,,B% �� ���id(B%,H%) � !B%=H% �ș jb%,,B% ��uc(B%,H%) �� ���ng(B%,H%) !B%=H% ș jb%,,B% � &��ne(B%,H%,vf$) : 0 !B%=H% :ș og%,,B% D$(B%!(72+4))=vf$+�0 N� X��hb(B%) b� sb%,tb%,ub% lsb%=B%!0 vș pg%,,B% � qg% ��rg(B%,tb%,ub%) � ȕ qg% ��rb(sb%,tb%,ub%) �ș sg%,,B% � qg% �� �� ���rg(B%,� X%,� Y%) �X%=B%!4-B%!20 �Y%=B%!16-B%!24 �� ���qf(B%,H%,X%,Y%) � !B%=H% �ș og%,,B% � Y%=0 Y%=B%!48 � X%=0 X%=B%!52 B%!00=B%!44 B%!04=Y% *B%!08=X% 4B%!12=B%!56 >ș tg%,H%,B% H� Rݤbf(B%,ze$,ug$,� I%,J%) \� H% fș vg%,,ze$ p$ș wg%,,B%,I%,J%,-1,ug$,0 � ,,I% zș xg%,,B% � H% � ș yg% �=H% ���xa(I%,J%,M%,F%) �� A%,L% �� L%=I% � J% �:A%=M%+36+L%*24:� F% !A%=!A%�(1<<22) � !A%=!A%��(1<<22) �� �� ���zg(N%,I%,M%) ��J%=0�N%-1 �2A%=M%+28+J%*24:�J%=I% ?A%=?A% �1 � ?A%=?A% ��1 �� �� ݤ_g(I%,M%) M%=M%+28+I%*24:?M%=?M% � 1 =?M% � 1 $ݤah(I%,M%) .M%=M%+28+I%*24 8=?M% � 1 B��la(B%,ze$) Lș vd%,,-1 V !B%=� `1$(B%+4)=�$+" (Internal error code "+Þ+")"+�0 jș ye%,B%,1,ze$ t� ~��ae(B%,ze$,vf$) �ș vd%,,-1 �!B%=�:$(B%+4)=vf$+�0 �ș ye%,B%,1,ze$ �� ���bh(� X%,� Y%) � � qd%,rd% �ș ch%,-1,4 � ,,qd% �ș ch%,-1,11 � ,,X% �ș ch%,-1,5 � ,,rd% �ș ch%,-1,12 � ,,Y% �X%=X%<<qd% �Y%=Y%<<rd% � ݤgd(vf$) ȕ �vf$,".") vf$=�vf$,�vf$,".")+1) (� 2=vf$ < ݤdh(vf$) F=vf$+�12-�vf$,�0) Pݤhd(eh%):�fh$:fh$="" Z'ȕ ?eh%>31:fh$+=�?eh%:eh%+=1:�:=fh$ dݤgh(B%,S%) nș dd%,,B% x=(B%!8=S%) ���ia �?ș "OS_SWINumberFromString",,"OS_SWINumberFromString" � hh% �+ș hh%,,"ColourTrans_SelectTable" � ih% �ș hh%,,"OS_SpriteOp" � _b% �'ș hh%,,"OS_ReadModeVariable" � ch% � ș hh%,,"Hourglass_On" � gf% �!ș hh%,,"Hourglass_Off" � hf% �"ș hh%,,"Wimp_CloseDown" � qb% �$ș hh%,,"Wimp_CloseWindow" � jb% �&ș hh%,,"Wimp_CloseTemplate" � yg% �#ș hh%,,"Wimp_CreateIcon" � dg% �#ș hh%,,"Wimp_CreateMenu" � tc% �&ș hh%,,"Wimp_CreateSubMenu" � jh% %ș hh%,,"Wimp_CreateWindow" � xg% #ș hh%,,"Wimp_DecodeMenu" � fd% #ș hh%,,"Wimp_DeleteIcon" � cg% " ș hh%,,"Wimp_DragBox" � vd% ,$ș hh%,,"Wimp_ForceRedraw" � pc% 6%ș hh%,,"Wimp_GetIconState" � ud% @'ș hh%,,"Wimp_GetPointerInfo" � dd% J%ș hh%,,"Wimp_GetRectangle" � sg% T'ș hh%,,"Wimp_GetWindowState" � ad% ^&ș hh%,,"Wimp_GetWindowInfo" � og% h#ș hh%,,"Wimp_Initialise" � ja% r%ș hh%,,"Wimp_LoadTemplate" � wg% |#ș hh%,,"Wimp_OpenWindow" � ib% �%ș hh%,,"Wimp_OpenTemplate" � vg% �ș hh%,,"Wimp_Poll" � fb% �!ș hh%,,"Wimp_PollIdle" � kh% �#ș hh%,,"Wimp_ProcessKey" � qc% �$ș hh%,,"Wimp_ReadPalette" � lh% �%ș hh%,,"Wimp_RedrawWindow" � pg% �$ș hh%,,"Wimp_ReportError" � ye% �$ș hh%,,"Wimp_SendMessage" � oe% �)ș hh%,,"Wimp_SetCaretPosition" � mc% �"ș hh%,,"Wimp_SetColour" � ec% �"ș hh%,,"Wimp_SetExtent" � tg% �%ș hh%,,"Wimp_SetIconState" � xf% � ș hh%,,"Wimp_SetMode" � mh% &ș hh%,,"Wimp_TransferBlock" � nh% %ș hh%,,"Wimp_UpdateWindow" � oh% "ș hh%,,"Wimp_WhichIcon" � ph% &� 0� �pd(qe%) :� @%,sb%,kc% D@%=&1020200 N qh$="" Xsb%=qe%!32:kc%=qe%!36 bȎ sb% � ly� -2:qh$="This is the Re-paint icon.|MDrag any 256 colour sprite file onto it for easy adjustment of RGB weightings." vV� vc%:qh$="Saving the sprite file will fix the image with the current weightings." ��� vb%:qh$="This is the Re-paint preview window.|MChanges made to the RGB weightings are shown here.|MClick MENU to choose which sprite to show." � � bc% �Ȏ kc% � �=� 0,1,2:qh$="Type in any percentage weighting up to 999." �1� 6,7,8:qh$="Drag the weighting with SELECT." �I� 13:qh$="Click SELECT to set the full scale of the sliders to 100%." �J� 14:qh$="Click SELECT to set the full scale of the sliders to 1000%." ƀ:qh$="The controls in this window allow you to alter the individual weightings of the RGB components of the sprite loaded." �� �,:qh$="This window belongs to Re-paint." �� �qh$=qh$+�0 �qe%!00=20+(�(qh$) � 4*4)+4 qe%!12=qe%!8 qe%!16=&503 $(qe%+20)=qh$ &ș "Wimp_SendMessage",17,qe%,qe%!4 *� �
00000000 0d 00 0a 10 f4 20 3e 21 52 75 6e 69 6d 61 67 65 |..... >!Runimage| 00000010 0d 00 14 1a 61 61 24 3d 22 31 2e 30 35 20 28 31 |....aa$="1.05 (1| 00000020 30 2d 4d 61 72 2d 39 31 29 22 0d 00 1e 09 62 61 |0-Mar-91)"....ba| 00000030 25 3d 93 0d 00 28 16 de 20 63 61 25 20 32 30 34 |%=...(.. ca% 204| 00000040 38 2c 64 61 25 20 32 35 36 0d 00 32 1b de 20 65 |8,da% 256..2.. e| 00000050 61 20 31 36 3a 24 65 61 3d 22 21 52 65 2d 70 61 |a 16:$ea="!Re-pa| 00000060 69 6e 74 22 0d 00 3c 14 de 20 66 61 25 20 32 35 |int"..<.. fa% 25| 00000070 36 2c 67 61 25 20 31 36 0d 00 46 1b 68 61 24 3d |6,ga% 16..F.ha$=| 00000080 22 53 70 72 69 74 65 20 52 65 2d 70 61 69 6e 74 |"Sprite Re-paint| 00000090 65 72 22 0d 00 50 07 f2 69 61 0d 00 5a 29 24 63 |er"..P..ia..Z)$c| 000000a0 61 25 3d 22 54 41 53 4b 22 3a c8 99 20 6a 61 25 |a%="TASK":.. ja%| 000000b0 2c 32 30 30 2c 21 63 61 25 2c 68 61 24 20 b8 20 |,200,!ca%,ha$ . | 000000c0 2c 6b 61 0d 00 64 16 ee 20 85 20 f2 6c 61 28 64 |,ka..d.. . .la(d| 000000d0 61 25 2c 68 61 24 29 3a e0 0d 00 6e 09 6d 61 25 |a%,ha$):...n.ma%| 000000e0 3d 31 0d 00 78 0c 6e 61 25 3d 26 46 46 39 0d 00 |=1..x.na%=&FF9..| 000000f0 82 09 6f 61 25 3d a3 0d 00 8c 0e 70 61 3d 32 35 |..oa%=.....pa=25| 00000100 36 2f 31 30 30 0d 00 96 09 71 61 25 3d 31 0d 00 |6/100....qa%=1..| 00000110 a0 09 72 61 25 3d 31 0d 00 aa 0c 73 63 72 61 70 |..ra%=1....scrap| 00000120 25 3d a3 0d 00 b4 07 f2 73 61 0d 00 be 07 f2 74 |%=......sa.....t| 00000130 61 0d 00 c8 07 f2 75 61 0d 00 d2 07 f2 76 61 0d |a.....ua.....va.| 00000140 00 dc 07 f2 77 61 0d 00 e6 11 f2 78 61 28 32 2c |....wa.....xa(2,| 00000150 34 2c 79 61 2c b9 29 0d 00 f0 16 f2 7a 61 28 64 |4,ya,.).....za(d| 00000160 61 25 2c 5f 61 25 2c 34 2c 61 61 24 29 0d 00 fa |a%,_a%,4,aa$)...| 00000170 2a 61 62 3d a4 62 62 28 63 61 25 2c 2d 31 2c 30 |*ab=.bb(ca%,-1,0| 00000180 2c 30 2c 36 38 2c 36 38 2c 26 33 31 30 32 2c 65 |,0,68,68,&3102,e| 00000190 61 2c 31 2c 32 30 29 0d 01 04 15 63 62 3d a3 3a |a,1,20)....cb=.:| 000001a0 64 62 3d 2d 31 3a 65 62 25 3d 2d 32 0d 01 0e 1e |db=-1:eb%=-2....| 000001b0 ee 20 85 20 e7 20 9f 3c 3e 31 33 20 f2 6c 61 28 |. . . .<>13 .la(| 000001c0 64 61 25 2c 68 61 24 29 3a e0 0d 01 18 05 f5 0d |da%,ha$):.......| 000001d0 01 22 17 c8 99 20 66 62 25 2c 6d 61 25 2c 63 61 |."... fb%,ma%,ca| 000001e0 25 20 b8 20 67 62 0d 01 2c 0b c8 8e 20 67 62 20 |% . gb..,... gb | 000001f0 ca 0d 01 36 19 c9 20 31 3a 48 25 3d 63 61 25 21 |...6.. 1:H%=ca%!| 00000200 30 3a f2 68 62 28 63 61 25 29 0d 01 40 13 c9 20 |0:.hb(ca%)..@.. | 00000210 32 3a c8 99 20 69 62 25 2c 2c 63 61 25 0d 01 4a |2:.. ib%,,ca%..J| 00000220 13 c9 20 33 3a c8 99 20 6a 62 25 2c 2c 63 61 25 |.. 3:.. jb%,,ca%| 00000230 0d 01 54 10 c9 20 36 3a f2 6b 62 28 63 61 25 29 |..T.. 6:.kb(ca%)| 00000240 0d 01 5e 10 c9 20 37 3a f2 6c 62 28 6e 61 25 29 |..^.. 7:.lb(na%)| 00000250 0d 01 68 10 c9 20 38 3a f2 6d 62 28 63 61 25 29 |..h.. 8:.mb(ca%)| 00000260 0d 01 72 10 c9 20 39 3a f2 6e 62 28 63 61 25 29 |..r.. 9:.nb(ca%)| 00000270 0d 01 7c 14 c9 20 31 37 2c 31 38 3a f2 6f 62 28 |..|.. 17,18:.ob(| 00000280 63 61 25 29 0d 01 86 11 c9 20 31 39 3a f2 70 62 |ca%)..... 19:.pb| 00000290 28 63 61 25 29 0d 01 90 05 cb 0d 01 9a 08 fd 20 |(ca%).......... | 000002a0 63 62 0d 01 a4 0a c8 99 20 71 62 25 0d 01 ae 05 |cb...... qb%....| 000002b0 e0 0d 01 b8 15 dd f2 72 62 28 73 62 25 2c 74 62 |.......rb(sb%,tb| 000002c0 25 2c 75 62 25 29 0d 01 c2 0c c8 8e 20 73 62 25 |%,ub%)...... sb%| 000002d0 20 ca 0d 01 cc 09 c9 20 76 62 25 0d 01 d6 1e 77 | ...... vb%....w| 000002e0 62 25 3d 75 62 25 2d 28 78 62 25 3c 3c 72 61 25 |b%=ub%-(xb%<<ra%| 000002f0 29 2a 79 62 25 2f 7a 62 25 0d 01 e0 2b c8 99 20 |)*yb%/zb%...+.. | 00000300 5f 62 25 2c 32 35 36 2b 35 32 2c 62 61 25 2c 61 |_b%,256+52,ba%,a| 00000310 63 24 2c 74 62 25 2c 77 62 25 2c 30 2c 67 61 25 |c$,tb%,wb%,0,ga%| 00000320 2c 66 61 25 0d 01 ea 09 c9 20 62 63 25 0d 01 f4 |,fa%..... bc%...| 00000330 0c 74 62 25 2b 3d 32 38 34 0d 01 fe 25 e7 20 a4 |.tb%+=284...%. .| 00000340 63 63 28 64 61 25 2c 62 63 25 2c 31 34 29 20 64 |cc(da%,bc%,14) d| 00000350 63 3d 2e 32 35 20 8b 20 64 63 3d 32 2e 35 0d 02 |c=.25 . dc=2.5..| 00000360 08 28 c8 99 20 65 63 25 2c 31 31 3a c8 93 c8 90 |.(.. ec%,11:....| 00000370 20 74 62 25 2c 75 62 25 2d 36 34 20 2c 66 63 25 | tb%,ub%-64 ,fc%| 00000380 2a 64 63 2c 31 36 0d 02 12 28 c8 99 20 65 63 25 |*dc,16...(.. ec%| 00000390 2c 31 33 3a c8 93 c8 90 20 74 62 25 2c 75 62 25 |,13:.... tb%,ub%| 000003a0 2d 31 31 36 2c 67 63 25 2a 64 63 2c 31 36 0d 02 |-116,gc%*dc,16..| 000003b0 1c 28 c8 99 20 65 63 25 2c 30 38 3a c8 93 c8 90 |.(.. ec%,08:....| 000003c0 20 74 62 25 2c 75 62 25 2d 31 37 32 2c 68 63 25 | tb%,ub%-172,hc%| 000003d0 2a 64 63 2c 31 36 0d 02 26 05 cb 0d 02 30 05 e1 |*dc,16..&....0..| 000003e0 0d 02 3a 0c dd f2 6d 62 28 69 63 29 0d 02 44 0b |..:...mb(ic)..D.| 000003f0 ea 20 40 25 2c 6a 63 0d 02 4e 1f 73 62 25 3d 69 |. @%,jc..N.sb%=i| 00000400 63 21 30 3a 6b 63 25 3d 69 63 21 34 3a 6c 63 25 |c!0:kc%=ic!4:lc%| 00000410 3d 69 63 21 32 34 0d 02 58 0c c8 8e 20 6c 63 25 |=ic!24..X... lc%| 00000420 20 ca 0d 02 62 08 c9 20 31 33 0d 02 6c 0c c8 8e | ...b.. 13..l...| 00000430 20 73 62 25 20 ca 0d 02 76 09 c9 20 62 63 25 0d | sb% ...v.. bc%.| 00000440 02 80 32 c8 99 20 6d 63 25 2c 62 63 25 2c 28 6b |..2.. mc%,bc%,(k| 00000450 63 25 2b 31 29 83 33 2c 30 2c 30 2c 2d 31 2c a4 |c%+1).3,0,0,-1,.| 00000460 6e 63 28 62 63 25 2c 28 6b 63 25 2b 31 29 83 33 |nc(bc%,(kc%+1).3| 00000470 29 0d 02 94 07 f2 6f 63 0d 02 9e 1d c8 99 20 70 |).....oc...... p| 00000480 63 25 2c 62 63 25 2c 32 37 34 2c 2d 31 38 30 2c |c%,bc%,274,-180,| 00000490 39 32 30 2c 30 0d 02 a8 1f c8 99 20 70 63 25 2c |920,0...... pc%,| 000004a0 76 62 25 2c 30 2c 2d 33 32 30 30 30 2c 33 32 30 |vb%,0,-32000,320| 000004b0 30 30 2c 30 0d 02 b2 05 cd 0d 02 bc 05 cb 0d 02 |00,0............| 000004c0 c6 2e c9 20 33 39 39 2c 33 39 38 3a e7 20 6c 63 |... 399,398:. lc| 000004d0 25 3d 33 39 39 20 6b 63 25 2d 3d 31 20 8b 20 6b |%=399 kc%-=1 . k| 000004e0 63 25 3d 28 6b 63 25 2b 31 29 83 33 0d 02 d0 11 |c%=(kc%+1).3....| 000004f0 e7 20 6b 63 25 3c 30 20 6b 63 25 3d 32 0d 02 da |. kc%<0 kc%=2...| 00000500 26 c8 99 20 6d 63 25 2c 62 63 25 2c 6b 63 25 2c |&.. mc%,bc%,kc%,| 00000510 30 2c 30 2c 2d 31 2c a4 6e 63 28 62 63 25 2c 6b |0,0,-1,.nc(bc%,k| 00000520 63 25 29 0d 02 e4 05 7f 0d 02 ee 0e c8 99 20 71 |c%)........... q| 00000530 63 25 2c 6c 63 25 0d 02 f8 05 cb 0d 03 02 05 e1 |c%,lc%..........| 00000540 0d 03 0c 0d dd 20 f2 6b 62 28 69 63 29 0d 03 16 |..... .kb(ic)...| 00000550 22 72 63 25 3d 69 63 21 38 3a 73 62 25 3d 69 63 |"rc%=ic!8:sb%=ic| 00000560 21 31 32 3a 6b 63 25 3d 28 69 63 21 31 36 29 0d |!12:kc%=(ic!16).| 00000570 03 20 0c c8 8e 20 72 63 25 20 ca 0d 03 2a 07 c9 |. ... rc% ...*..| 00000580 20 32 0d 03 34 0a 73 63 25 3d 79 61 0d 03 3e 0c | 2..4.sc%=ya..>.| 00000590 c8 8e 20 73 62 25 20 ca 0d 03 48 24 c9 20 65 62 |.. sb% ...H$. eb| 000005a0 25 3a c8 99 20 74 63 25 2c 2c 79 61 2c 21 69 63 |%:.. tc%,,ya,!ic| 000005b0 2d 31 32 38 2c 39 36 2b 34 30 2a 36 0d 03 52 21 |-128,96+40*6..R!| 000005c0 c9 20 76 62 25 3a c8 99 20 74 63 25 2c 2c 79 61 |. vb%:.. tc%,,ya| 000005d0 2c 21 69 63 2d 31 32 38 2c 69 63 21 34 0d 03 5c |,!ic-128,ic!4..\| 000005e0 05 cb 0d 03 66 09 c9 20 34 2c 31 0d 03 70 0c c8 |....f.. 4,1..p..| 000005f0 8e 20 73 62 25 20 ca 0d 03 7a 22 c9 20 65 62 25 |. sb% ...z". eb%| 00000600 3a e7 20 6f 61 25 20 f2 75 63 28 63 61 25 2c 76 |:. oa% .uc(ca%,v| 00000610 62 25 29 3a 6d 61 25 3d 31 0d 03 84 11 c9 20 76 |b%):ma%=1..... v| 00000620 63 25 3a f2 77 63 28 69 63 29 0d 03 8e 12 c9 20 |c%:.wc(ic)..... | 00000630 78 63 25 3a f2 79 63 28 6b 63 25 29 0d 03 98 16 |xc%:.yc(kc%)....| 00000640 c9 20 62 63 25 3a f2 7a 63 28 21 69 63 2c 6b 63 |. bc%:.zc(!ic,kc| 00000650 25 29 0d 03 a2 05 cb 0d 03 ac 05 cb 0d 03 b6 05 |%)..............| 00000660 e1 0d 03 c0 10 dd f2 7a 63 28 5f 63 25 2c 49 25 |.......zc(_c%,I%| 00000670 29 0d 03 ca 0b c8 8e 20 49 25 20 ca 0d 03 d4 0b |)...... I% .....| 00000680 c9 20 36 2c 37 2c 38 0d 03 de 0c 21 63 61 25 3d |. 6,7,8....!ca%=| 00000690 62 63 25 0d 03 e8 0f c8 99 20 61 64 25 2c 2c 63 |bc%...... ad%,,c| 000006a0 61 25 0d 03 f2 17 62 64 3d 63 61 25 21 34 2d 63 |a%....bd=ca%!4-c| 000006b0 61 25 21 32 30 2b 32 38 34 0d 03 fc 14 56 25 3d |a%!20+284....V%=| 000006c0 28 5f 63 25 2d 62 64 29 2a 34 2f 70 61 0d 04 06 |(_c%-bd)*4/pa...| 000006d0 1b f2 7a 61 28 64 61 25 2c 62 63 25 2c 49 25 2d |..za(da%,bc%,I%-| 000006e0 36 2c c3 28 56 25 29 29 0d 04 10 07 f2 6f 63 0d |6,.(V%)).....oc.| 000006f0 04 1a 1f c8 99 20 70 63 25 2c 76 62 25 2c 30 2c |..... pc%,vb%,0,| 00000700 2d 33 32 30 30 30 2c 33 32 30 30 30 2c 30 0d 04 |-32000,32000,0..| 00000710 24 1d c8 99 20 70 63 25 2c 62 63 25 2c 32 37 34 |$... pc%,bc%,274| 00000720 2c 2d 31 38 30 2c 39 32 30 2c 30 0d 04 2e 34 c9 |,-180,920,0...4.| 00000730 20 31 33 2c 31 34 3a e7 20 a4 63 63 28 64 61 25 | 13,14:. .cc(da%| 00000740 2c 62 63 25 2c 31 34 29 20 70 61 3d 32 35 36 2f |,bc%,14) pa=256/| 00000750 31 30 30 20 8b 20 70 61 3d 32 35 36 2f 31 30 0d |100 . pa=256/10.| 00000760 04 38 1d c8 99 20 70 63 25 2c 62 63 25 2c 32 37 |.8... pc%,bc%,27| 00000770 34 2c 2d 31 38 30 2c 39 32 30 2c 30 0d 04 42 05 |4,-180,920,0..B.| 00000780 cb 0d 04 4c 05 e1 0d 04 56 0c dd f2 6e 62 28 42 |...L....V...nb(B| 00000790 25 29 0d 04 60 08 ea 63 64 24 0d 04 6a 1d c8 99 |%)..`..cd$..j...| 000007a0 20 64 64 25 2c 2c 64 61 25 3a 65 64 25 3d 28 64 | dd%,,da%:ed%=(d| 000007b0 61 25 21 38 3d 31 29 0d 04 74 0f e7 20 42 25 21 |a%!8=1)..t.. B%!| 000007c0 34 3d 2d 31 20 8c 0d 04 7e 18 c8 99 20 66 64 25 |4=-1 ...~... fd%| 000007d0 2c 2c 73 63 25 2c 42 25 2c 42 25 2b 31 36 0d 04 |,,sc%,B%,B%+16..| 000007e0 88 17 63 64 24 3d a4 67 64 28 a4 68 64 28 42 25 |..cd$=.gd(.hd(B%| 000007f0 2b 31 36 29 29 0d 04 92 0c c8 8e 20 63 64 24 20 |+16))...... cd$ | 00000800 ca 0d 04 9c 19 c9 20 22 51 75 69 74 20 20 20 20 |...... "Quit | 00000810 20 20 20 20 22 3a 63 62 3d b9 0d 04 a6 21 c9 20 | ":cb=....!. | 00000820 22 52 47 42 20 6c 65 76 65 6c 73 20 20 22 3a f2 |"RGB levels ":.| 00000830 69 64 28 63 61 25 2c 62 63 25 29 0d 04 b0 05 cb |id(ca%,bc%).....| 00000840 0d 04 ba 05 cc 0d 04 c4 19 61 63 24 3d a4 6a 64 |.........ac$=.jd| 00000850 28 6b 64 25 2c 42 25 21 34 2c 6c 64 25 29 0d 04 |(kd%,B%!4,ld%)..| 00000860 ce 10 f2 69 64 28 63 61 25 2c 76 62 25 29 0d 04 |...id(ca%,vb%)..| 00000870 d8 05 cd 0d 04 e2 21 e7 65 64 25 20 c8 99 22 57 |......!.ed% .."W| 00000880 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",| 00000890 2c 73 63 25 0d 04 ec 05 e1 0d 04 f6 0c dd f2 6f |,sc%...........o| 000008a0 62 28 69 63 29 0d 05 00 0e c8 8e 20 69 63 21 31 |b(ic)...... ic!1| 000008b0 36 20 ca 0d 05 0a 0d c9 20 30 20 3a 63 62 3d b9 |6 ...... 0 :cb=.| 000008c0 0d 05 14 10 c9 20 31 20 3a f2 6d 64 28 69 63 29 |..... 1 :.md(ic)| 000008d0 0d 05 1e 12 c9 20 39 2c 26 34 30 30 43 31 3a f2 |..... 9,&400C1:.| 000008e0 77 61 0d 05 28 10 c9 20 32 20 3a f2 6e 64 28 69 |wa..(.. 2 :.nd(i| 000008f0 63 29 0d 05 32 10 c9 20 33 20 3a f2 6f 64 28 69 |c)..2.. 3 :.od(i| 00000900 63 29 0d 05 3c 13 c9 20 26 35 30 32 20 3a f2 70 |c)..<.. &502 :.p| 00000910 64 28 69 63 29 0d 05 46 05 cb 0d 05 50 05 e1 0d |d(ic)..F....P...| 00000920 05 5a 08 dd f2 77 61 0d 05 64 07 f2 6f 63 0d 05 |.Z...wa..d..oc..| 00000930 6e 29 c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f 64 |n).. "OS_ReadMod| 00000940 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 34 20 |eVariable",-1,4 | 00000950 b8 20 2c 2c 71 64 25 0d 05 78 29 c8 99 20 22 4f |. ,,qd%..x).. "O| 00000960 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab| 00000970 6c 65 22 2c 2d 31 2c 35 20 b8 20 2c 2c 72 64 25 |le",-1,5 . ,,rd%| 00000980 0d 05 82 07 f2 73 64 0d 05 8c 05 e1 0d 05 96 0c |.....sd.........| 00000990 dd f2 77 63 28 69 63 29 0d 05 a0 0f e7 20 69 63 |..wc(ic)..... ic| 000009a0 21 31 36 3d 33 20 8c 0d 05 aa 0b 21 69 63 3d 76 |!16=3 .....!ic=v| 000009b0 63 25 0d 05 b4 0e c8 99 20 61 64 25 2c 2c 69 63 |c%...... ad%,,ic| 000009c0 0d 05 be 20 62 64 3d 69 63 21 34 2d 69 63 21 32 |... bd=ic!4-ic!2| 000009d0 30 3a 74 64 3d 69 63 21 31 36 2d 69 63 21 32 34 |0:td=ic!16-ic!24| 000009e0 0d 05 c8 0a 69 63 21 34 3d 33 0d 05 d2 0e c8 99 |....ic!4=3......| 000009f0 20 75 64 25 2c 2c 69 63 0d 05 dc 12 21 69 63 3d | ud%,,ic....!ic=| 00000a00 76 63 25 3a 69 63 21 34 3d 35 0d 05 e6 1f 69 63 |vc%:ic!4=5....ic| 00000a10 21 38 3d 69 63 21 38 2b 62 64 3a 69 63 21 31 32 |!8=ic!8+bd:ic!12| 00000a20 3d 69 63 21 31 32 2b 74 64 0d 05 f0 21 69 63 21 |=ic!12+td...!ic!| 00000a30 31 36 3d 69 63 21 31 36 2b 62 64 3a 69 63 21 32 |16=ic!16+bd:ic!2| 00000a40 30 3d 69 63 21 32 30 2b 74 64 0d 05 fa 13 69 63 |0=ic!20+td....ic| 00000a50 21 32 34 3d 30 3a 69 63 21 32 38 3d 30 0d 06 04 |!24=0:ic!28=0...| 00000a60 23 69 63 21 33 32 3d 26 37 46 46 46 46 46 46 46 |#ic!32=&7FFFFFFF| 00000a70 3a 69 63 21 33 36 3d 26 37 46 46 46 46 46 46 46 |:ic!36=&7FFFFFFF| 00000a80 0d 06 0e 0e c8 99 20 76 64 25 2c 2c 69 63 0d 06 |...... vd%,,ic..| 00000a90 18 05 cd 0d 06 22 21 e7 20 69 63 21 31 36 3d 30 |....."!. ic!16=0| 00000aa0 20 f2 77 64 28 a4 78 64 28 64 61 25 2c 76 63 25 | .wd(.xd(da%,vc%| 00000ab0 2c 32 29 29 0d 06 2c 05 e1 0d 06 40 0c dd f2 6f |,2))..,....@...o| 00000ac0 64 28 69 63 29 0d 06 4a 12 e7 20 69 63 21 34 30 |d(ic)..J.. ic!40| 00000ad0 3d 26 46 46 39 20 8c 0d 06 54 12 79 64 24 3d a4 |=&FF9 ...T.yd$=.| 00000ae0 68 64 28 69 63 2b 34 34 29 0d 06 5e 1e 7a 64 25 |hd(ic+44)..^.zd%| 00000af0 3d 8e 28 79 64 24 29 3a 5f 64 25 3d a2 23 7a 64 |=.(yd$):_d%=.#zd| 00000b00 25 3a d9 23 7a 64 25 0d 06 68 10 e0 3d 62 61 25 |%:.#zd%..h..=ba%| 00000b10 2b 5f 64 25 2b 31 36 0d 06 72 35 e7 20 93 3c 62 |+_d%+16..r5. .<b| 00000b20 61 25 2b 5f 64 25 2b 31 36 20 f2 61 65 28 64 61 |a%+_d%+16 .ae(da| 00000b30 25 2c 68 61 24 2c 22 4e 6f 74 20 65 6e 6f 75 67 |%,ha$,"Not enoug| 00000b40 68 20 6d 65 6d 6f 72 79 22 29 3a e1 0d 06 7c 09 |h memory"):...|.| 00000b50 d3 3d 62 61 25 0d 06 86 12 62 61 25 21 26 30 3d |.=ba%....ba%!&0=| 00000b60 5f 64 25 2b 38 20 3a 0d 06 90 1b c8 99 20 5f 62 |_d%+8 :...... _b| 00000b70 25 2c 32 35 36 2b 31 30 2c 62 61 25 2c 79 64 24 |%,256+10,ba%,yd$| 00000b80 20 3a 0d 06 9a 0b f2 62 65 28 69 63 29 0d 06 a4 | :.....be(ic)...| 00000b90 19 e7 20 a4 63 65 28 a4 67 64 28 79 64 24 29 29 |.. .ce(.gd(yd$))| 00000ba0 20 e0 3d 62 61 25 0d 06 ae 05 cd 0d 06 b8 05 e1 | .=ba%..........| 00000bb0 0d 06 cc 0d dd a4 63 65 28 64 65 24 29 0d 06 d6 |......ce(de$)...| 00000bc0 09 ea 20 65 65 25 0d 06 e0 09 65 65 25 3d a3 0d |.. ee%....ee%=..| 00000bd0 06 ea 18 21 64 61 25 3d 76 62 25 3a c8 99 20 6a |...!da%=vb%:.. j| 00000be0 62 25 2c 2c 64 61 25 0d 06 f4 23 c8 99 20 5f 62 |b%,,da%...#.. _b| 00000bf0 25 2c 32 35 36 2b 38 2c 62 61 25 20 b8 20 2c 2c |%,256+8,ba% . ,,| 00000c00 2c 66 65 25 2c 67 65 25 20 3a 0d 06 fe 1f 68 65 |,fe%,ge% :....he| 00000c10 25 3d 21 28 62 61 25 2b 67 65 25 2b 33 32 29 2b |%=!(ba%+ge%+32)+| 00000c20 62 61 25 2b 67 65 25 20 3a 0d 07 08 22 69 65 25 |ba%+ge% :..."ie%| 00000c30 3d 21 28 62 61 25 2b 67 65 25 29 2d 21 28 62 61 |=!(ba%+ge%)-!(ba| 00000c40 25 2b 67 65 25 2b 33 32 29 20 3a 0d 07 12 1a 78 |%+ge%+32) :....x| 00000c50 62 25 20 3d 21 28 62 61 25 2b 67 65 25 2b 32 30 |b% =!(ba%+ge%+20| 00000c60 29 2b 31 20 3a 0d 07 1c 1e 6a 65 25 20 3d 28 21 |)+1 :....je% =(!| 00000c70 28 62 61 25 2b 67 65 25 2b 31 36 29 2b 31 29 2a |(ba%+ge%+16)+1)*| 00000c80 34 20 3a 0d 07 26 17 6b 65 25 3d 21 28 62 61 25 |4 :..&.ke%=!(ba%| 00000c90 2b 67 65 25 2b 34 30 29 20 3a 0d 07 30 2b c8 99 |+ge%+40) :..0+..| 00000ca0 20 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 | "OS_ReadModeVar| 00000cb0 69 61 62 6c 65 22 2c 6b 65 25 2c 39 20 b8 20 2c |iable",ke%,9 . ,| 00000cc0 2c 49 25 20 3a 0d 07 3a 2a c8 99 20 22 4f 53 5f |,I% :..:*.. "OS_| 00000cd0 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 6c 65 |ReadModeVariable| 00000ce0 22 2c 6b 65 25 2c 34 20 b8 20 2c 2c 71 61 25 0d |",ke%,4 . ,,qa%.| 00000cf0 07 44 2a c8 99 20 22 4f 53 5f 52 65 61 64 4d 6f |.D*.. "OS_ReadMo| 00000d00 64 65 56 61 72 69 61 62 6c 65 22 2c 6b 65 25 2c |deVariable",ke%,| 00000d10 35 20 b8 20 2c 2c 72 61 25 0d 07 4e 0c e7 20 49 |5 . ,,ra%..N.. I| 00000d20 25 3d 33 20 8c 0d 07 58 10 e7 20 a4 6c 65 28 66 |%=3 ...X.. .le(f| 00000d30 65 25 29 20 8c 0d 07 62 3f f2 61 65 28 64 61 25 |e%) ...b?.ae(da%| 00000d40 2c 68 61 24 2c 22 53 70 72 69 74 65 73 20 6d 75 |,ha$,"Sprites mu| 00000d50 73 74 20 61 6c 6c 20 62 65 20 6f 66 20 74 68 65 |st all be of the| 00000d60 20 73 61 6d 65 20 6d 6f 64 65 2e 20 53 6f 72 72 | same mode. Sorr| 00000d70 79 2e 22 29 0d 07 6c 09 6f 61 25 3d a3 0d 07 76 |y.")..l.oa%=...v| 00000d80 09 65 65 25 3d b9 0d 07 80 11 f2 78 61 28 32 2c |.ee%=......xa(2,| 00000d90 34 2c 79 61 2c b9 29 0d 07 8a 05 cc 0d 07 9e 07 |4,ya,.).........| 00000da0 f2 6f 63 0d 07 a8 1e e7 20 a7 64 65 24 2c 22 24 |.oc..... .de$,"$| 00000db0 53 63 72 61 70 22 29 20 8c 20 64 65 24 3d 6d 65 |Scrap") . de$=me| 00000dc0 24 0d 07 b2 14 f2 6e 65 28 64 61 25 2c 76 62 25 |$.....ne(da%,vb%| 00000dd0 2c 64 65 24 29 0d 07 bc 1e f2 7a 61 28 64 61 25 |,de$).....za(da%| 00000de0 2c 76 63 25 2c 32 2c c0 64 65 24 2c 39 29 2b 22 |,vc%,2,.de$,9)+"| 00000df0 2b 22 29 0d 07 c6 09 6f 61 25 3d b9 0d 07 d0 11 |+")....oa%=.....| 00000e00 f2 78 61 28 32 2c 34 2c 79 61 2c a3 29 0d 07 da |.xa(2,4,ya,.)...| 00000e10 07 f2 73 64 0d 07 e4 10 f2 75 63 28 64 61 25 2c |..sd.....uc(da%,| 00000e20 76 62 25 29 0d 07 ee 1f c8 99 20 70 63 25 2c 76 |vb%)...... pc%,v| 00000e30 62 25 2c 30 2c 2d 33 32 30 30 30 2c 33 32 30 30 |b%,0,-32000,3200| 00000e40 30 2c 30 0d 07 f8 05 cd 0d 08 02 05 cc 0d 08 0c |0,0.............| 00000e50 44 f2 61 65 28 64 61 25 2c 68 61 24 2c 22 52 65 |D.ae(da%,ha$,"Re| 00000e60 2d 70 61 69 6e 74 20 6f 6e 6c 79 20 77 6f 72 6b |-paint only work| 00000e70 73 20 6f 6e 20 32 35 36 20 63 6f 6c 6f 75 72 20 |s on 256 colour | 00000e80 73 70 72 69 74 65 73 2e 20 53 6f 72 72 79 2e 22 |sprites. Sorry."| 00000e90 29 0d 08 16 09 6f 61 25 3d a3 0d 08 20 09 65 65 |)....oa%=... .ee| 00000ea0 25 3d b9 0d 08 2a 11 f2 78 61 28 32 2c 34 2c 79 |%=...*..xa(2,4,y| 00000eb0 61 2c b9 29 0d 08 34 05 cd 0d 08 3e 08 3d 65 65 |a,.)..4....>.=ee| 00000ec0 25 0d 08 52 0c dd f2 62 65 28 69 63 29 0d 08 5c |%..R...be(ic)..\| 00000ed0 2e e7 20 73 63 72 61 70 25 20 ff 28 22 44 45 4c |.. scrap% .("DEL| 00000ee0 45 54 45 20 3c 57 69 6d 70 24 53 63 72 61 70 3e |ETE <Wimp$Scrap>| 00000ef0 22 29 3a 73 63 72 61 70 25 3d a3 0d 08 66 16 69 |"):scrap%=...f.i| 00000f00 63 21 31 32 3d 69 63 21 38 3a 69 63 21 31 36 3d |c!12=ic!8:ic!16=| 00000f10 34 0d 08 70 15 c8 99 20 6f 65 25 2c 31 37 2c 69 |4..p... oe%,17,i| 00000f20 63 2c 69 63 21 34 0d 08 7a 05 e1 0d 08 8e 0c dd |c,ic!4..z.......| 00000f30 f2 6c 62 28 46 25 29 0d 08 98 0f c8 99 20 64 64 |.lb(F%)...... dd| 00000f40 25 2c 2c 63 61 25 0d 08 a2 16 63 61 25 21 32 30 |%,,ca%....ca%!20| 00000f50 3d 36 34 3a 63 61 25 21 33 32 3d 30 0d 08 ac 1a |=64:ca%!32=0....| 00000f60 63 61 25 21 33 36 3d 31 3a 63 61 25 21 34 30 3d |ca%!36=1:ca%!40=| 00000f70 63 61 25 21 31 32 0d 08 b6 1d 63 61 25 21 34 34 |ca%!12....ca%!44| 00000f80 3d 63 61 25 21 31 36 3a 63 61 25 21 34 38 3d 21 |=ca%!16:ca%!48=!| 00000f90 63 61 25 0d 08 c0 10 63 61 25 21 35 32 3d 63 61 |ca%....ca%!52=ca| 00000fa0 25 21 34 0d 08 ca 18 63 61 25 21 35 36 3d 69 65 |%!4....ca%!56=ie| 00000fb0 25 3a 63 61 25 21 36 30 3d 46 25 0d 08 d4 24 24 |%:ca%!60=F%...$$| 00000fc0 28 63 61 25 2b 36 34 29 3d a4 67 64 28 a4 78 64 |(ca%+64)=.gd(.xd| 00000fd0 28 64 61 25 2c 76 63 25 2c 32 29 29 2b bd 30 0d |(da%,vc%,2))+.0.| 00000fe0 08 de 22 c8 99 20 6f 65 25 2c 31 37 2c 63 61 25 |..".. oe%,17,ca%| 00000ff0 2b 32 30 2c 63 61 25 21 31 32 2c 63 61 25 21 31 |+20,ca%!12,ca%!1| 00001000 36 0d 08 e8 0d 64 62 3d 63 61 25 21 32 38 0d 08 |6....db=ca%!28..| 00001010 f2 09 70 65 25 3d 30 0d 08 fc 05 e1 0d 09 10 0d |..pe%=0.........| 00001020 dd f2 6d 64 28 71 65 25 29 0d 09 1a 0c 71 65 25 |..md(qe%)....qe%| 00001030 21 30 3d 36 30 0d 09 24 10 71 65 25 21 31 32 3d |!0=60..$.qe%!12=| 00001040 71 65 25 21 38 0d 09 2e 0c 71 65 25 21 31 36 3d |qe%!8....qe%!16=| 00001050 32 0d 09 38 0d 71 65 25 21 33 36 3d 2d 31 0d 09 |2..8.qe%!36=-1..| 00001060 42 12 6d 65 24 3d a4 68 64 28 69 63 2b 34 34 29 |B.me$=.hd(ic+44)| 00001070 0d 09 4c 1f 24 28 71 65 25 2b 34 34 29 3d 22 3c |..L.$(qe%+44)="<| 00001080 57 69 6d 70 24 53 63 72 61 70 3e 22 2b bd 30 0d |Wimp$Scrap>"+.0.| 00001090 09 56 0c 73 63 72 61 70 25 3d b9 0d 09 60 17 c8 |.V.scrap%=...`..| 000010a0 99 20 6f 65 25 2c 31 37 2c 71 65 25 2c 71 65 25 |. oe%,17,qe%,qe%| 000010b0 21 34 0d 09 6a 05 e1 0d 09 7e 0c dd f2 6e 64 28 |!4..j....~...nd(| 000010c0 69 63 29 0d 09 88 10 e7 20 69 63 21 31 32 3d 64 |ic)..... ic!12=d| 000010d0 62 20 8c 0d 09 92 13 f2 77 64 28 a4 68 64 28 69 |b ......wd(.hd(i| 000010e0 63 2b 34 34 29 29 0d 09 9c 16 69 63 21 31 32 3d |c+44))....ic!12=| 000010f0 69 63 21 38 3a 69 63 21 31 36 3d 33 0d 09 a6 15 |ic!8:ic!16=3....| 00001100 c8 99 20 6f 65 25 2c 31 38 2c 69 63 2c 69 63 21 |.. oe%,18,ic,ic!| 00001110 34 0d 09 b0 05 cd 0d 09 ba 11 e7 20 ac 20 6f 61 |4.......... . oa| 00001120 25 20 e0 3d 62 61 25 0d 09 c4 05 e1 0d 09 d8 0d |% .=ba%.........| 00001130 dd f2 77 64 28 72 65 24 29 0d 09 e2 22 e7 20 a7 |..wd(re$)...". .| 00001140 72 65 24 2c 22 2e 22 29 20 84 20 a7 72 65 24 2c |re$,".") . .re$,| 00001150 22 24 53 63 72 61 70 22 29 20 8c 0d 09 ec 0c c8 |"$Scrap") ......| 00001160 8e 20 6e 61 25 20 ca 0d 09 f6 0a c9 20 26 46 46 |. na% ...... &FF| 00001170 39 0d 0a 00 0a 41 25 3d 73 65 25 0d 0a 0a 0a 42 |9....A%=se%....B| 00001180 25 3d 66 61 25 0d 0a 14 0a 43 25 3d 66 63 25 0d |%=fa%....C%=fc%.| 00001190 0a 1e 0a 44 25 3d 67 63 25 0d 0a 28 0a 45 25 3d |...D%=gc%..(.E%=| 000011a0 68 63 25 0d 0a 32 07 d6 74 65 0d 0a 3c 12 e3 20 |hc%..2..te..<.. | 000011b0 49 25 3d 30 20 b8 20 66 65 25 2d 31 0d 0a 46 2a |I%=0 . fe%-1..F*| 000011c0 c8 99 20 5f 62 25 2c 32 35 36 2b 31 33 2c 62 61 |.. _b%,256+13,ba| 000011d0 25 2c 64 61 25 2c 31 32 2c 49 25 2b 31 20 b8 20 |%,da%,12,I%+1 . | 000011e0 2c 2c 2c 75 65 25 0d 0a 50 0f 64 61 25 3f 75 65 |,,,ue%..P.da%?ue| 000011f0 25 3d 26 30 41 0d 0a 5a 21 c8 99 20 5f 62 25 2c |%=&0A..Z!.. _b%,| 00001200 32 35 36 2b 32 34 2c 62 61 25 2c 64 61 25 20 b8 |256+24,ba%,da% .| 00001210 20 2c 2c 76 65 25 0d 0a 64 13 46 25 3d 28 76 65 | ,,ve%..d.F%=(ve| 00001220 25 21 33 32 2b 76 65 25 29 0d 0a 6e 20 47 25 3d |%!32+ve%)..n G%=| 00001230 28 76 65 25 21 31 36 2b 31 29 2a 34 2a 28 76 65 |(ve%!16+1)*4*(ve| 00001240 25 21 32 30 2b 31 29 2d 31 0d 0a 78 07 d6 77 65 |%!20+1)-1..x..we| 00001250 0d 0a 82 05 ed 0d 0a 8c 07 d6 78 65 0d 0a 96 19 |..........xe....| 00001260 c8 99 20 5f 62 25 2c 32 35 36 2b 31 32 2c 62 61 |.. _b%,256+12,ba| 00001270 25 2c 72 65 24 0d 0a a0 16 f2 7a 61 28 64 61 25 |%,re$.....za(da%| 00001280 2c 76 63 25 2c 32 2c 72 65 24 29 0d 0a aa 18 21 |,vc%,2,re$)....!| 00001290 64 61 25 3d 76 63 25 3a c8 99 20 6a 62 25 2c 2c |da%=vc%:.. jb%,,| 000012a0 64 61 25 0d 0a b4 18 21 64 61 25 3d 76 62 25 3a |da%....!da%=vb%:| 000012b0 c8 99 20 6a 62 25 2c 2c 64 61 25 0d 0a be 09 6f |.. jb%,,da%....o| 000012c0 61 25 3d a3 0d 0a c8 11 f2 78 61 28 32 2c 34 2c |a%=......xa(2,4,| 000012d0 79 61 2c b9 29 0d 0a d2 0e c8 99 20 74 63 25 2c |ya,.)...... tc%,| 000012e0 2c 2d 31 0d 0a dc 05 cb 0d 0a e6 05 cc 0d 0a f0 |,-1.............| 000012f0 3b 24 64 61 25 3d 22 20 20 20 20 54 6f 20 73 61 |;$da%=" To sa| 00001300 76 65 2c 20 64 72 61 67 20 74 68 65 20 69 63 6f |ve, drag the ico| 00001310 6e 20 74 6f 20 61 20 64 69 72 65 63 74 6f 72 79 |n to a directory| 00001320 20 76 69 65 77 65 72 22 0d 0a fa 1b c8 99 20 79 | viewer"...... y| 00001330 65 25 2c 64 61 25 2c 31 2c 22 52 65 2d 70 61 69 |e%,da%,1,"Re-pai| 00001340 6e 74 22 0d 0b 04 05 cd 0d 0b 0e 05 e1 0d 0b 18 |nt".............| 00001350 0d dd f2 70 62 28 63 61 25 29 0d 0b 22 11 e7 20 |...pb(ca%)..".. | 00001360 63 61 25 21 31 32 3d 64 62 20 8c 0d 0b 2c 27 f2 |ca%!12=db ...,'.| 00001370 61 65 28 64 61 25 2c 68 61 24 2c 22 57 69 6d 70 |ae(da%,ha$,"Wimp| 00001380 20 74 72 61 6e 73 66 65 72 20 66 61 69 6c 65 64 | transfer failed| 00001390 22 29 0d 0b 36 05 cd 0d 0b 40 05 e1 0d 0b 4a 08 |")..6....@....J.| 000013a0 dd f2 74 61 0d 0b 54 22 7a 65 24 3d 22 3c 52 65 |..ta..T"ze$="<Re| 000013b0 2d 70 61 69 6e 74 24 44 69 72 3e 2e 74 65 6d 70 |-paint$Dir>.temp| 000013c0 6c 61 74 65 73 22 0d 0b 5e 1b de 20 5f 65 25 20 |lates"..^.. _e% | 000013d0 32 30 34 38 3a 61 66 25 3d 5f 65 25 2b 32 30 34 |2048:af%=_e%+204| 000013e0 37 0d 0b 68 27 5f 61 25 3d a4 62 66 28 63 61 25 |7..h'_a%=.bf(ca%| 000013f0 2c 7a 65 24 2c 22 70 72 6f 67 69 6e 66 6f 22 2c |,ze$,"proginfo",| 00001400 5f 65 25 2c 61 66 25 29 0d 0b 72 23 76 63 25 3d |_e%,af%)..r#vc%=| 00001410 a4 62 66 28 63 61 25 2c 7a 65 24 2c 22 73 61 76 |.bf(ca%,ze$,"sav| 00001420 65 22 2c 5f 65 25 2c 61 66 25 29 0d 0b 7c 23 62 |e",_e%,af%)..|#b| 00001430 63 25 3d a4 62 66 28 63 61 25 2c 7a 65 24 2c 22 |c%=.bf(ca%,ze$,"| 00001440 74 6f 6f 6c 22 2c 5f 65 25 2c 61 66 25 29 0d 0b |tool",_e%,af%)..| 00001450 86 23 76 62 25 3d a4 62 66 28 63 61 25 2c 7a 65 |.#vb%=.bf(ca%,ze| 00001460 24 2c 22 73 68 6f 77 22 2c 5f 65 25 2c 61 66 25 |$,"show",_e%,af%| 00001470 29 0d 0b 90 23 78 63 25 3d a4 62 66 28 63 61 25 |)...#xc%=.bf(ca%| 00001480 2c 7a 65 24 2c 22 6d 61 67 6e 22 2c 5f 65 25 2c |,ze$,"magn",_e%,| 00001490 61 66 25 29 0d 0b 9a 05 e1 0d 0b a4 08 dd f2 75 |af%)...........u| 000014a0 61 0d 0b ae 18 63 66 25 3d 32 38 2a 32 2b 32 34 |a....cf%=28*2+24| 000014b0 2a 36 2b 32 34 2a 32 35 36 0d 0b b8 0d de 20 64 |*6+24*256..... d| 000014c0 66 25 20 63 66 25 0d 0b c2 12 e3 20 65 66 3d 30 |f% cf%..... ef=0| 000014d0 20 b8 20 32 20 88 20 32 0d 0b cc 0a 50 25 3d 64 | . 2 . 2....P%=d| 000014e0 66 25 0d 0b d6 0b 5b 4f 50 54 20 65 66 0d 0b e0 |f%....[OPT ef...| 000014f0 07 2e 79 61 0d 0b ea 3e 45 51 55 53 20 22 52 65 |..ya...>EQUS "Re| 00001500 2d 70 61 69 6e 74 22 2b c4 34 2c bd 30 29 3a 45 |-paint"+.4,.0):E| 00001510 51 55 44 20 26 37 30 32 30 37 3a 45 51 55 44 20 |QUD &70207:EQUD | 00001520 32 30 30 3a 45 51 55 44 20 34 30 3a 45 51 55 44 |200:EQUD 40:EQUD| 00001530 20 30 0d 0b f4 37 45 51 55 44 20 26 30 30 3a 45 | 0...7EQUD &00:E| 00001540 51 55 44 20 5f 61 25 3a 45 51 55 44 20 26 37 30 |QUD _a%:EQUD &70| 00001550 30 30 30 32 31 3a 45 51 55 53 20 22 49 6e 66 6f |00021:EQUS "Info| 00001560 20 20 20 20 20 20 20 20 22 0d 0b fe 36 45 51 55 | "...6EQU| 00001570 44 20 26 30 30 3a 45 51 55 44 20 2d 31 3a 45 51 |D &00:EQUD -1:EQ| 00001580 55 44 20 26 37 30 30 30 30 32 31 3a 45 51 55 53 |UD &7000021:EQUS| 00001590 20 22 52 47 42 20 6c 65 76 65 6c 73 20 20 22 0d | "RGB levels ".| 000015a0 0c 08 37 45 51 55 44 20 26 30 30 3a 45 51 55 44 |..7EQUD &00:EQUD| 000015b0 20 78 63 25 3a 45 51 55 44 20 26 37 30 30 30 30 | xc%:EQUD &70000| 000015c0 32 31 3a 45 51 55 53 20 22 4d 61 67 6e 69 66 79 |21:EQUS "Magnify| 000015d0 20 20 20 20 20 22 0d 0c 12 37 45 51 55 44 20 26 | "...7EQUD &| 000015e0 30 30 3a 45 51 55 44 20 6c 64 25 3a 45 51 55 44 |00:EQUD ld%:EQUD| 000015f0 20 26 37 30 30 30 30 32 31 3a 45 51 55 53 20 22 | &7000021:EQUS "| 00001600 53 68 6f 77 20 73 70 72 69 74 65 20 22 0d 0c 1c |Show sprite "...| 00001610 37 45 51 55 44 20 26 30 30 3a 45 51 55 44 20 76 |7EQUD &00:EQUD v| 00001620 63 25 3a 45 51 55 44 20 26 37 30 30 30 30 32 31 |c%:EQUD &7000021| 00001630 3a 45 51 55 53 20 22 53 61 76 65 20 20 20 20 20 |:EQUS "Save | 00001640 20 20 20 22 0d 0c 26 36 45 51 55 44 20 26 38 30 | "..&6EQUD &80| 00001650 3a 45 51 55 44 20 2d 31 3a 45 51 55 44 20 26 37 |:EQUD -1:EQUD &7| 00001660 30 30 30 30 32 31 3a 45 51 55 53 20 22 51 75 69 |000021:EQUS "Qui| 00001670 74 20 20 20 20 20 20 20 20 22 0d 0c 30 08 2e 6c |t "..0..l| 00001680 64 25 0d 0c 3a 3b 45 51 55 53 20 22 53 68 6f 77 |d%..:;EQUS "Show| 00001690 20 73 70 72 69 74 65 20 22 3a 45 51 55 44 20 26 | sprite ":EQUD &| 000016a0 37 30 32 30 37 3a 45 51 55 44 20 32 30 30 3a 45 |70207:EQUD 200:E| 000016b0 51 55 44 20 34 30 3a 45 51 55 44 20 30 0d 0c 44 |QUD 40:EQUD 0..D| 000016c0 36 45 51 55 44 20 26 38 30 3a 45 51 55 44 20 2d |6EQUD &80:EQUD -| 000016d0 31 3a 45 51 55 44 20 26 37 30 30 30 30 32 31 3a |1:EQUD &7000021:| 000016e0 45 51 55 53 20 22 5a 58 59 20 20 20 20 20 20 20 |EQUS "ZXY | 000016f0 20 20 22 0d 0c 4e 08 2e 66 66 25 0d 0c 58 05 5d | "..N..ff%..X.]| 00001700 0d 0c 62 05 ed 0d 0c 6c 05 e1 0d 0c 76 08 dd f2 |..b....l....v...| 00001710 6f 63 0d 0c 80 0a c8 99 20 67 66 25 0d 0c 8a 0e |oc...... gf%....| 00001720 64 63 3d 32 35 36 2f 31 30 30 0d 0c 94 1d 66 63 |dc=256/100....fc| 00001730 25 3d 28 bb 20 a4 78 64 28 64 61 25 2c 62 63 25 |%=(. .xd(da%,bc%| 00001740 2c 30 29 29 2a 64 63 0d 0c 9e 1d 67 63 25 3d 28 |,0))*dc....gc%=(| 00001750 bb 20 a4 78 64 28 64 61 25 2c 62 63 25 2c 31 29 |. .xd(da%,bc%,1)| 00001760 29 2a 64 63 0d 0c a8 1d 68 63 25 3d 28 bb 20 a4 |)*dc....hc%=(. .| 00001770 78 64 28 64 61 25 2c 62 63 25 2c 32 29 29 2a 64 |xd(da%,bc%,2))*d| 00001780 63 0d 0c b2 05 3a 0d 0c bc 0a 41 25 3d 73 65 25 |c....:....A%=se%| 00001790 0d 0c c6 0a 42 25 3d 66 61 25 0d 0c d0 0a 43 25 |....B%=fa%....C%| 000017a0 3d 66 63 25 0d 0c da 0a 44 25 3d 67 63 25 0d 0c |=fc%....D%=gc%..| 000017b0 e4 0a 45 25 3d 68 63 25 0d 0c ee 07 d6 78 65 0d |..E%=hc%.....xe.| 000017c0 0c f8 0a c8 99 20 68 66 25 0d 0d 02 05 e1 0d 0d |..... hf%.......| 000017d0 0c 08 dd f2 76 61 0d 0d 16 0e de 20 69 66 25 20 |....va..... if% | 000017e0 32 30 34 38 0d 0d 20 13 e3 20 6a 66 25 3d 30 20 |2048.. .. jf%=0 | 000017f0 b8 20 32 20 88 20 32 0d 0d 2a 0a 50 25 3d 69 66 |. 2 . 2..*.P%=if| 00001800 25 0d 0d 34 0c 5b 4f 50 54 20 6a 66 25 0d 0d 3e |%..4.[OPT jf%..>| 00001810 07 2e 78 65 0d 0d 48 14 53 54 4d 46 44 20 52 31 |..xe..H.STMFD R1| 00001820 33 21 2c 7b 52 31 34 7d 0d 0d 52 0e 4d 4f 56 20 |3!,{R14}..R.MOV | 00001830 52 37 2c 52 30 20 0d 0d 5c 15 41 44 44 20 52 38 |R7,R0 ..\.ADD R8| 00001840 2c 52 30 2c 23 32 35 36 2a 34 20 0d 0d 66 17 41 |,R0,#256*4 ..f.A| 00001850 44 44 20 52 39 2c 52 30 2c 23 32 35 36 2a 34 2a |DD R9,R0,#256*4*| 00001860 32 20 0d 0d 70 0e 4d 4f 56 20 52 35 2c 23 30 20 |2 ..p.MOV R5,#0 | 00001870 0d 0d 7a 07 2e 6b 66 0d 0d 84 14 4c 44 52 20 52 |..z..kf....LDR R| 00001880 31 30 2c 5b 52 37 5d 2c 23 34 20 0d 0d 8e 13 4d |10,[R7],#4 ....M| 00001890 55 4c 20 52 31 30 2c 52 32 2c 52 31 30 20 0d 0d |UL R10,R2,R10 ..| 000018a0 98 16 4d 4f 56 20 52 31 30 2c 52 31 30 2c 4c 53 |..MOV R10,R10,LS| 000018b0 52 23 38 20 0d 0d a2 11 43 4d 50 20 52 31 30 2c |R#8 ....CMP R10,| 000018c0 23 32 35 35 20 0d 0d ac 13 4d 4f 56 48 49 20 52 |#255 ....MOVHI R| 000018d0 31 30 2c 23 32 35 35 20 0d 0d b6 14 4c 44 52 20 |10,#255 ....LDR | 000018e0 52 31 31 2c 5b 52 38 5d 2c 23 34 20 0d 0d c0 13 |R11,[R8],#4 ....| 000018f0 4d 55 4c 20 52 31 31 2c 52 33 2c 52 31 31 20 0d |MUL R11,R3,R11 .| 00001900 0d ca 16 4d 4f 56 20 52 31 31 2c 52 31 31 2c 4c |...MOV R11,R11,L| 00001910 53 52 23 38 20 0d 0d d4 11 43 4d 50 20 52 31 31 |SR#8 ....CMP R11| 00001920 2c 23 32 35 35 20 0d 0d de 13 4d 4f 56 48 49 20 |,#255 ....MOVHI | 00001930 52 31 31 2c 23 32 35 35 20 0d 0d e8 14 4c 44 52 |R11,#255 ....LDR| 00001940 20 52 31 32 2c 5b 52 39 5d 2c 23 34 20 0d 0d f2 | R12,[R9],#4 ...| 00001950 13 4d 55 4c 20 52 31 32 2c 52 34 2c 52 31 32 20 |.MUL R12,R4,R12 | 00001960 0d 0d fc 16 4d 4f 56 20 52 31 32 2c 52 31 32 2c |....MOV R12,R12,| 00001970 4c 53 52 23 38 20 0d 0e 06 11 43 4d 50 20 52 31 |LSR#8 ....CMP R1| 00001980 32 2c 23 32 35 35 20 0d 0e 10 13 4d 4f 56 48 49 |2,#255 ....MOVHI| 00001990 20 52 31 32 2c 23 32 35 35 20 0d 0e 1a 15 4d 4f | R12,#255 ....MO| 000019a0 56 20 52 30 2c 52 31 30 2c 4c 53 4c 23 38 20 0d |V R0,R10,LSL#8 .| 000019b0 0e 24 17 84 52 20 52 30 2c 52 30 2c 52 31 31 2c |.$..R R0,R0,R11,| 000019c0 4c 53 4c 23 31 36 0d 0e 2e 17 84 52 20 52 30 2c |LSL#16.....R R0,| 000019d0 52 30 2c 52 31 32 2c 4c 53 4c 23 32 34 0d 0e 38 |R0,R12,LSL#24..8| 000019e0 28 53 57 49 20 22 43 6f 6c 6f 75 72 54 72 61 6e |(SWI "ColourTran| 000019f0 73 5f 52 65 74 75 72 6e 43 6f 6c 6f 75 72 4e 75 |s_ReturnColourNu| 00001a00 6d 62 65 72 22 0d 0e 42 14 53 54 52 42 20 52 30 |mber"..B.STRB R0| 00001a10 2c 5b 52 31 2c 52 35 5d 20 0d 0e 4c 10 41 44 44 |,[R1,R5] ..L.ADD| 00001a20 20 52 35 2c 52 35 2c 23 31 0d 0e 56 0f 43 4d 50 | R5,R5,#1..V.CMP| 00001a30 20 52 35 2c 23 32 35 35 0d 0e 60 0a 42 4c 53 20 | R5,#255..`.BLS | 00001a40 6b 66 0d 0e 6a 14 4c 44 4d 46 44 20 52 31 33 21 |kf..j.LDMFD R13!| 00001a50 2c 7b 52 31 35 7d 0d 0e 74 07 2e 74 65 0d 0e 7e |,{R15}..t..te..~| 00001a60 14 53 54 4d 46 44 20 52 31 33 21 2c 7b 52 31 34 |.STMFD R13!,{R14| 00001a70 7d 0d 0e 88 0e 4d 4f 56 20 52 37 2c 52 30 20 0d |}....MOV R7,R0 .| 00001a80 0e 92 15 41 44 44 20 52 38 2c 52 30 2c 23 32 35 |...ADD R8,R0,#25| 00001a90 36 2a 34 20 0d 0e 9c 17 41 44 44 20 52 39 2c 52 |6*4 ....ADD R9,R| 00001aa0 30 2c 23 32 35 36 2a 34 2a 32 20 0d 0e a6 0e 4d |0,#256*4*2 ....M| 00001ab0 4f 56 20 52 35 2c 23 30 20 0d 0e b0 07 2e 6c 66 |OV R5,#0 .....lf| 00001ac0 0d 0e ba 14 4c 44 52 20 52 31 30 2c 5b 52 37 5d |....LDR R10,[R7]| 00001ad0 2c 23 34 20 0d 0e c4 13 4d 55 4c 20 52 31 30 2c |,#4 ....MUL R10,| 00001ae0 52 32 2c 52 31 30 20 0d 0e ce 16 4d 4f 56 20 52 |R2,R10 ....MOV R| 00001af0 31 30 2c 52 31 30 2c 4c 53 52 23 38 20 0d 0e d8 |10,R10,LSR#8 ...| 00001b00 11 43 4d 50 20 52 31 30 2c 23 32 35 35 20 0d 0e |.CMP R10,#255 ..| 00001b10 e2 13 4d 4f 56 48 49 20 52 31 30 2c 23 32 35 35 |..MOVHI R10,#255| 00001b20 20 0d 0e ec 14 4c 44 52 20 52 31 31 2c 5b 52 38 | ....LDR R11,[R8| 00001b30 5d 2c 23 34 20 0d 0e f6 13 4d 55 4c 20 52 31 31 |],#4 ....MUL R11| 00001b40 2c 52 33 2c 52 31 31 20 0d 0f 00 16 4d 4f 56 20 |,R3,R11 ....MOV | 00001b50 52 31 31 2c 52 31 31 2c 4c 53 52 23 38 20 0d 0f |R11,R11,LSR#8 ..| 00001b60 0a 11 43 4d 50 20 52 31 31 2c 23 32 35 35 20 0d |..CMP R11,#255 .| 00001b70 0f 14 13 4d 4f 56 48 49 20 52 31 31 2c 23 32 35 |...MOVHI R11,#25| 00001b80 35 20 0d 0f 1e 14 4c 44 52 20 52 31 32 2c 5b 52 |5 ....LDR R12,[R| 00001b90 39 5d 2c 23 34 20 0d 0f 28 13 4d 55 4c 20 52 31 |9],#4 ..(.MUL R1| 00001ba0 32 2c 52 34 2c 52 31 32 20 0d 0f 32 16 4d 4f 56 |2,R4,R12 ..2.MOV| 00001bb0 20 52 31 32 2c 52 31 32 2c 4c 53 52 23 38 20 0d | R12,R12,LSR#8 .| 00001bc0 0f 3c 11 43 4d 50 20 52 31 32 2c 23 32 35 35 20 |.<.CMP R12,#255 | 00001bd0 0d 0f 46 13 4d 4f 56 48 49 20 52 31 32 2c 23 32 |..F.MOVHI R12,#2| 00001be0 35 35 20 0d 0f 50 15 4d 4f 56 20 52 30 2c 52 31 |55 ..P.MOV R0,R1| 00001bf0 30 2c 4c 53 4c 23 38 20 0d 0f 5a 17 84 52 20 52 |0,LSL#8 ..Z..R R| 00001c00 30 2c 52 30 2c 52 31 31 2c 4c 53 4c 23 31 36 0d |0,R0,R11,LSL#16.| 00001c10 0f 64 17 84 52 20 52 30 2c 52 30 2c 52 31 32 2c |.d..R R0,R0,R12,| 00001c20 4c 53 4c 23 32 34 0d 0f 6e 17 53 54 4d 46 44 20 |LSL#24..n.STMFD | 00001c30 52 31 33 21 2c 7b 52 31 2c 52 32 7d 20 0d 0f 78 |R13!,{R1,R2} ..x| 00001c40 0f 4d 4f 56 20 52 31 2c 23 31 35 20 0d 0f 82 0e |.MOV R1,#15 ....| 00001c50 4d 4f 56 20 52 32 2c 23 30 20 0d 0f 8c 2f 53 57 |MOV R2,#0 .../SW| 00001c60 49 20 22 43 6f 6c 6f 75 72 54 72 61 6e 73 5f 52 |I "ColourTrans_R| 00001c70 65 74 75 72 6e 43 6f 6c 6f 75 72 4e 75 6d 62 65 |eturnColourNumbe| 00001c80 72 46 6f 72 4d 6f 64 65 22 0d 0f 96 17 4c 44 4d |rForMode"....LDM| 00001c90 46 44 20 52 31 33 21 2c 7b 52 31 2c 52 32 7d 20 |FD R13!,{R1,R2} | 00001ca0 0d 0f a0 14 53 54 52 42 20 52 30 2c 5b 52 31 2c |....STRB R0,[R1,| 00001cb0 52 35 5d 20 0d 0f aa 11 41 44 44 20 52 35 2c 52 |R5] ....ADD R5,R| 00001cc0 35 2c 23 31 20 0d 0f b4 10 43 4d 50 20 52 35 2c |5,#1 ....CMP R5,| 00001cd0 23 32 35 35 20 0d 0f be 0b 42 4c 53 20 6c 66 20 |#255 ....BLS lf | 00001ce0 0d 0f c8 15 4c 44 4d 46 44 20 52 31 33 21 2c 7b |....LDMFD R13!,{| 00001cf0 52 31 35 7d 20 0d 0f d2 08 2e 77 65 20 0d 0f dc |R15} .....we ...| 00001d00 14 4c 44 52 42 20 52 37 2c 5b 52 35 2c 52 36 5d |.LDRB R7,[R5,R6]| 00001d10 20 0d 0f e6 14 4c 44 52 42 20 52 38 2c 5b 52 31 | ....LDRB R8,[R1| 00001d20 2c 52 37 5d 20 0d 0f f0 14 53 54 52 42 20 52 38 |,R7] ....STRB R8| 00001d30 2c 5b 52 35 2c 52 36 5d 20 0d 0f fa 12 53 55 42 |,[R5,R6] ....SUB| 00001d40 53 20 52 36 2c 52 36 2c 23 31 20 0d 10 04 0b 42 |S R6,R6,#1 ....B| 00001d50 50 4c 20 77 65 20 0d 10 0e 0f 4d 4f 56 20 52 31 |PL we ....MOV R1| 00001d60 35 2c 52 31 34 0d 10 18 05 5d 0d 10 22 05 ed 0d |5,R14....].."...| 00001d70 10 2c 05 e1 0d 10 36 0c dd f2 79 63 28 49 25 29 |.,....6...yc(I%)| 00001d80 0d 10 40 0b c8 8e 20 49 25 20 ca 0d 10 4a 26 c9 |..@... I% ...J&.| 00001d90 20 30 2c 32 20 3a 56 25 3d a4 6d 66 28 78 63 25 | 0,2 :V%=.mf(xc%| 00001da0 2c 49 25 2d 31 2c 31 2c 39 39 2c 31 29 3a f2 73 |,I%-1,1,99,1):.s| 00001db0 64 0d 10 54 26 c9 20 33 2c 35 20 3a 56 25 3d a4 |d..T&. 3,5 :V%=.| 00001dc0 6d 66 28 78 63 25 2c 49 25 2d 34 2c 34 2c 39 39 |mf(xc%,I%-4,4,99| 00001dd0 2c 31 29 3a f2 73 64 0d 10 5e 05 cb 0d 10 68 10 |,1):.sd..^....h.| 00001de0 f2 75 63 28 63 61 25 2c 76 62 25 29 0d 10 72 1f |.uc(ca%,vb%)..r.| 00001df0 c8 99 20 70 63 25 2c 76 62 25 2c 30 2c 2d 33 32 |.. pc%,vb%,0,-32| 00001e00 30 30 30 2c 33 32 30 30 30 2c 30 0d 10 7c 05 e1 |000,32000,0..|..| 00001e10 0d 10 86 1d dd a4 6d 66 28 73 62 25 2c 6e 66 25 |......mf(sb%,nf%| 00001e20 2c 6b 63 25 2c 6f 66 25 2c 70 66 25 29 0d 10 90 |,kc%,of%,pf%)...| 00001e30 18 56 25 3d bb a4 78 64 28 63 61 25 2c 73 62 25 |.V%=..xd(ca%,sb%| 00001e40 2c 6b 63 25 29 0d 10 9a 0b 56 25 2b 3d 6e 66 25 |,kc%)....V%+=nf%| 00001e50 0d 10 a4 13 e7 20 56 25 3e 6f 66 25 20 56 25 3d |..... V%>of% V%=| 00001e60 6f 66 25 0d 10 ae 13 e7 20 56 25 3c 70 66 25 20 |of%..... V%<pf% | 00001e70 56 25 3d 70 66 25 0d 10 b8 18 f2 7a 61 28 63 61 |V%=pf%.....za(ca| 00001e80 25 2c 73 62 25 2c 6b 63 25 2c c3 56 25 29 0d 10 |%,sb%,kc%,.V%)..| 00001e90 c2 07 3d 56 25 0d 10 cc 08 dd f2 73 64 0d 10 d6 |..=V%......sd...| 00001ea0 24 79 62 25 3d bb a4 78 64 28 63 61 25 2c 78 63 |$yb%=..xd(ca%,xc| 00001eb0 25 2c 31 29 3a e7 79 62 25 3c 31 20 79 62 25 3d |%,1):.yb%<1 yb%=| 00001ec0 31 0d 10 e0 24 7a 62 25 3d bb a4 78 64 28 63 61 |1...$zb%=..xd(ca| 00001ed0 25 2c 78 63 25 2c 34 29 3a e7 7a 62 25 3c 31 20 |%,xc%,4):.zb%<1 | 00001ee0 7a 62 25 3d 31 0d 10 ea 15 67 61 25 21 30 30 3d |zb%=1....ga%!00=| 00001ef0 79 62 25 3c 3c 71 61 25 20 3a 0d 10 f4 15 67 61 |yb%<<qa% :....ga| 00001f00 25 21 30 34 3d 79 62 25 3c 3c 72 61 25 20 3a 0d |%!04=yb%<<ra% :.| 00001f10 10 fe 13 67 61 25 21 30 38 3d 7a 62 25 3c 3c 71 |...ga%!08=zb%<<q| 00001f20 64 25 0d 11 08 13 67 61 25 21 31 32 3d 7a 62 25 |d%....ga%!12=zb%| 00001f30 3c 3c 72 64 25 0d 11 12 0a e7 6f 61 25 20 8c 0d |<<rd%.....oa% ..| 00001f40 11 1c 19 58 25 3d 28 6a 65 25 3c 3c 71 61 25 29 |...X%=(je%<<qa%)| 00001f50 2a 79 62 25 2f 7a 62 25 0d 11 26 1a 59 25 3d 28 |*yb%/zb%..&.Y%=(| 00001f60 2d 78 62 25 3c 3c 72 61 25 29 2a 79 62 25 2f 7a |-xb%<<ra%)*yb%/z| 00001f70 62 25 0d 11 30 16 f2 71 66 28 63 61 25 2c 76 62 |b%..0..qf(ca%,vb| 00001f80 25 2c 58 25 2c 59 25 29 0d 11 3a 05 cd 0d 11 44 |%,X%,Y%)..:....D| 00001f90 05 e1 0d 11 4e 0f dd a4 6e 63 28 48 25 2c 49 25 |....N...nc(H%,I%| 00001fa0 29 0d 11 58 15 3d a9 20 a4 78 64 28 63 61 25 2c |)..X.=. .xd(ca%,| 00001fb0 48 25 2c 49 25 29 0d 11 62 08 dd f2 73 61 0d 11 |H%,I%)..b...sa..| 00001fc0 6c 11 de 20 73 65 25 20 32 35 36 2a 34 2a 33 0d |l.. se% 256*4*3.| 00001fd0 11 76 0b 72 66 25 3d 73 65 25 0d 11 80 11 73 66 |.v.rf%=se%....sf| 00001fe0 25 3d 73 65 25 2b 32 35 36 2a 34 0d 11 8a 13 71 |%=se%+256*4....q| 00001ff0 65 25 3d 73 65 25 2b 32 35 36 2a 34 2a 32 0d 11 |e%=se%+256*4*2..| 00002000 94 05 3a 0d 11 9e 05 3a 0d 11 a8 10 e3 20 43 25 |..:....:..... C%| 00002010 3d 30 20 b8 20 32 35 35 0d 11 b2 1e 52 25 3d 28 |=0 . 255....R%=(| 00002020 43 25 20 80 20 26 37 29 84 28 43 25 20 80 20 26 |C% . &7).(C% . &| 00002030 31 30 29 3e 3e 31 0d 11 bc 1e 47 25 3d 28 43 25 |10)>>1....G%=(C%| 00002040 20 80 20 26 33 29 84 28 43 25 20 80 20 26 36 30 | . &3).(C% . &60| 00002050 29 3e 3e 33 0d 11 c6 2e 42 25 3d 28 43 25 20 80 |)>>3....B%=(C% .| 00002060 20 26 33 29 84 28 43 25 20 80 20 26 30 38 29 3e | &3).(C% . &08)>| 00002070 3e 31 20 84 20 28 43 25 20 80 20 26 38 30 29 3e |>1 . (C% . &80)>| 00002080 3e 34 0d 11 d0 19 72 66 25 21 28 43 25 2a 34 29 |>4....rf%!(C%*4)| 00002090 3d 52 25 20 84 20 52 25 3c 3c 34 0d 11 da 19 73 |=R% . R%<<4....s| 000020a0 66 25 21 28 43 25 2a 34 29 3d 47 25 20 84 20 47 |f%!(C%*4)=G% . G| 000020b0 25 3c 3c 34 0d 11 e4 19 71 65 25 21 28 43 25 2a |%<<4....qe%!(C%*| 000020c0 34 29 3d 42 25 20 84 20 42 25 3c 3c 34 0d 11 ee |4)=B% . B%<<4...| 000020d0 05 ed 0d 11 f8 05 e1 0d 12 02 0c dd a4 6c 65 28 |.............le(| 000020e0 4e 25 29 0d 12 0c 09 ea 20 65 65 25 0d 12 16 1f |N%)..... ee%....| 000020f0 e7 20 4e 25 3e 32 35 35 20 6b 64 25 3d 32 35 35 |. N%>255 kd%=255| 00002100 20 8b 20 6b 64 25 3d 4e 25 20 3a 0d 12 20 0e 74 | . kd%=N% :.. .t| 00002110 66 25 3d 6c 64 25 2b 32 38 0d 12 2a 09 65 65 25 |f%=ld%+28..*.ee%| 00002120 3d a3 0d 12 34 12 e3 20 49 25 3d 30 20 b8 20 6b |=...4.. I%=0 . k| 00002130 64 25 2d 31 0d 12 3e 13 74 66 25 21 28 30 2b 32 |d%-1..>.tf%!(0+2| 00002140 34 2a 49 25 29 3d 30 0d 12 48 14 74 66 25 21 28 |4*I%)=0..H.tf%!(| 00002150 34 2b 32 34 2a 49 25 29 3d 2d 31 0d 12 52 1a 74 |4+24*I%)=-1..R.t| 00002160 66 25 21 28 38 2b 32 34 2a 49 25 29 3d 26 37 30 |f%!(8+24*I%)=&70| 00002170 30 30 30 32 31 0d 12 5c 33 c8 99 20 5f 62 25 2c |00021..\3.. _b%,| 00002180 32 35 36 2b 31 33 2c 62 61 25 2c 74 66 25 2b 31 |256+13,ba%,tf%+1| 00002190 32 2b 32 34 2a 49 25 2c 31 32 2c 49 25 2b 31 20 |2+24*I%,12,I%+1 | 000021a0 b8 20 2c 2c 2c 75 65 25 0d 12 66 31 c8 99 20 5f |. ,,,ue%..f1.. _| 000021b0 62 25 2c 32 35 36 2b 32 34 2c 62 61 25 2c a4 75 |b%,256+24,ba%,.u| 000021c0 66 28 74 66 25 2b 31 32 2b 32 34 2a 49 25 2c 31 |f(tf%+12+24*I%,1| 000021d0 32 29 20 b8 20 2c 2c 41 25 0d 12 70 16 e7 20 41 |2) . ,,A%..p.. A| 000021e0 25 21 34 30 3c 3e 6b 65 25 20 65 65 25 3d b9 0d |%!40<>ke% ee%=..| 000021f0 12 7a 05 ed 0d 12 84 19 74 66 25 21 28 30 2b 32 |.z......tf%!(0+2| 00002200 34 2a 28 49 25 2d 31 29 29 3d 26 38 30 0d 12 8e |4*(I%-1))=&80...| 00002210 16 61 63 24 3d a4 6a 64 28 6b 64 25 2c 30 2c 6c |.ac$=.jd(kd%,0,l| 00002220 64 25 29 0d 12 98 08 3d 65 65 25 0d 12 a2 12 dd |d%)....=ee%.....| 00002230 a4 6a 64 28 4e 25 2c 49 25 2c 4d 25 29 0d 12 ac |.jd(N%,I%,M%)...| 00002240 0e e3 4a 25 3d 30 b8 4e 25 2d 31 0d 12 b6 12 41 |..J%=0.N%-1....A| 00002250 25 3d 4d 25 2b 32 38 2b 4a 25 2a 32 34 0d 12 c0 |%=M%+28+J%*24...| 00002260 35 e7 4a 25 3d 49 25 20 3f 41 25 3d 3f 41 25 20 |5.J%=I% ?A%=?A% | 00002270 84 31 3a 76 66 24 3d a4 75 66 28 41 25 2b 31 32 |.1:vf$=.uf(A%+12| 00002280 2c 31 32 29 20 8b 20 3f 41 25 3d 3f 41 25 20 80 |,12) . ?A%=?A% .| 00002290 ac 31 0d 12 ca 05 ed 0d 12 d4 08 3d 76 66 24 0d |.1.........=vf$.| 000022a0 12 de 0f dd a4 75 66 28 41 25 2c 49 25 29 0d 12 |.....uf(A%,I%)..| 000022b0 e8 37 76 66 24 3d 22 22 3a c8 95 20 28 49 25 3e |.7vf$="":.. (I%>| 000022c0 30 29 20 80 20 28 3f 41 25 3e 33 32 29 3a 76 66 |0) . (?A%>32):vf| 000022d0 24 2b 3d bd 3f 41 25 3a 49 25 2d 3d 31 3a 41 25 |$+=.?A%:I%-=1:A%| 000022e0 2b 3d 31 3a ce 0d 12 f2 08 3d 76 66 24 0d 12 fc |+=1:.....=vf$...| 000022f0 18 dd f2 77 66 28 42 25 2c 48 25 2c 49 25 2c 4a |...wf(B%,H%,I%,J| 00002300 25 2c 4b 25 29 0d 13 06 0b ea 20 4c 25 2c 4d 25 |%,K%)..... L%,M%| 00002310 0d 13 10 28 e3 20 4c 25 3d 4a 25 20 b8 20 4b 25 |...(. L%=J% . K%| 00002320 3a e7 20 4c 25 3d 49 25 20 4d 25 3d 31 3c 3c 32 |:. L%=I% M%=1<<2| 00002330 31 20 8b 20 4d 25 3d 30 0d 13 1a 27 42 25 21 30 |1 . M%=0...'B%!0| 00002340 3d 48 25 3a 42 25 21 34 3d 4c 25 3a 42 25 21 38 |=H%:B%!4=L%:B%!8| 00002350 3d 4d 25 3a 42 25 21 31 32 3d 31 3c 3c 32 31 0d |=M%:B%!12=1<<21.| 00002360 13 24 0e c8 99 20 78 66 25 2c 2c 42 25 0d 13 2e |.$... xf%,,B%...| 00002370 05 ed 0d 13 38 05 e1 0d 13 42 12 dd f2 79 66 28 |....8....B...yf(| 00002380 42 25 2c 48 25 2c 49 25 29 0d 13 4c 0c 42 25 21 |B%,H%,I%)..L.B%!| 00002390 30 30 3d 48 25 0d 13 56 0c 42 25 21 30 34 3d 49 |00=H%..V.B%!04=I| 000023a0 25 0d 13 60 0b 42 25 21 30 38 3d 30 0d 13 6a 0b |%..`.B%!08=0..j.| 000023b0 42 25 21 31 32 3d 30 0d 13 74 0e c8 99 20 78 66 |B%!12=0..t... xf| 000023c0 25 2c 2c 42 25 0d 13 7e 05 e1 0d 13 88 16 dd f2 |%,,B%..~........| 000023d0 7a 61 28 42 25 2c 48 25 2c 49 25 2c 76 66 24 29 |za(B%,H%,I%,vf$)| 000023e0 0d 13 92 0b 42 25 21 30 3d 48 25 0d 13 9c 0b 42 |....B%!0=H%....B| 000023f0 25 21 34 3d 49 25 0d 13 a6 0e c8 99 20 75 64 25 |%!4=I%...... ud%| 00002400 2c 2c 42 25 0d 13 b0 10 24 28 42 25 21 32 38 29 |,,B%....$(B%!28)| 00002410 3d 76 66 24 0d 13 ba 11 f2 79 66 28 42 25 2c 48 |=vf$.....yf(B%,H| 00002420 25 2c 49 25 29 0d 13 c4 05 e1 0d 13 ce 18 dd f2 |%,I%)...........| 00002430 7a 66 28 42 25 2c 48 25 2c 49 25 2c 4a 25 2c 46 |zf(B%,H%,I%,J%,F| 00002440 25 29 0d 13 d8 08 ea 20 4c 25 0d 13 e2 1c e7 20 |%)..... L%..... | 00002450 46 25 3a 42 25 21 38 3d 31 3c 3c 32 32 20 8b 20 |F%:B%!8=1<<22 . | 00002460 42 25 21 38 3d 30 0d 13 ec 0a 21 42 25 3d 48 25 |B%!8=0....!B%=H%| 00002470 0d 13 f6 0f 42 25 21 31 32 3d 31 3c 3c 32 32 0d |....B%!12=1<<22.| 00002480 14 00 10 e3 20 4c 25 3d 49 25 20 b8 20 4a 25 0d |.... L%=I% . J%.| 00002490 14 0a 0b 42 25 21 34 3d 4c 25 0d 14 14 0e c8 99 |...B%!4=L%......| 000024a0 20 78 66 25 2c 2c 42 25 0d 14 1e 05 ed 0d 14 28 | xf%,,B%.......(| 000024b0 05 e1 0d 14 32 18 dd f2 5f 66 28 42 25 2c 48 25 |....2..._f(B%,H%| 000024c0 2c 49 25 2c 58 25 2c 59 25 29 0d 14 3c 0c ea 61 |,I%,X%,Y%)..<..a| 000024d0 67 25 2c 62 67 25 0d 14 46 13 42 25 21 30 3d 48 |g%,bg%..F.B%!0=H| 000024e0 25 3a 42 25 21 34 3d 49 25 0d 14 50 0e c8 99 20 |%:B%!4=I%..P... | 000024f0 75 64 25 2c 2c 42 25 0d 14 5a 0e c8 99 20 63 67 |ud%,,B%..Z... cg| 00002500 25 2c 2c 42 25 0d 14 64 22 61 67 25 3d 42 25 21 |%,,B%..d"ag%=B%!| 00002510 31 36 2d 42 25 21 38 3a 62 67 25 3d 42 25 21 32 |16-B%!8:bg%=B%!2| 00002520 30 2d 42 25 21 31 32 0d 14 6e 0b 42 25 21 34 3d |0-B%!12..n.B%!4=| 00002530 48 25 0d 14 78 0b 42 25 21 38 3d 58 25 0d 14 82 |H%..x.B%!8=X%...| 00002540 0c 42 25 21 31 32 3d 59 25 0d 14 8c 10 42 25 21 |.B%!12=Y%....B%!| 00002550 31 36 3d 58 25 2b 61 67 25 0d 14 96 10 42 25 21 |16=X%+ag%....B%!| 00002560 32 30 3d 59 25 2b 62 67 25 0d 14 a0 10 c8 99 20 |20=Y%+bg%...... | 00002570 64 67 25 2c 2c 42 25 2b 34 0d 14 aa 05 e1 0d 14 |dg%,,B%+4.......| 00002580 b4 12 dd a4 63 63 28 42 25 2c 48 25 2c 49 25 29 |....cc(B%,H%,I%)| 00002590 0d 14 be 0b 42 25 21 30 3d 48 25 0d 14 c8 0b 42 |....B%!0=H%....B| 000025a0 25 21 34 3d 49 25 0d 14 d2 0e c8 99 20 75 64 25 |%!4=I%...... ud%| 000025b0 2c 2c 42 25 0d 14 dc 13 3d 28 42 25 21 32 34 20 |,,B%....=(B%!24 | 000025c0 80 20 32 5e 32 31 29 0d 14 e6 30 dd a4 62 62 28 |. 2^21)...0..bb(| 000025d0 42 25 2c 65 67 25 2c 66 67 25 2c 67 67 25 2c 68 |B%,eg%,fg%,gg%,h| 000025e0 67 25 2c 69 67 25 2c 6a 67 25 2c 6b 67 25 2c 6c |g%,ig%,jg%,kg%,l| 000025f0 67 25 2c 6d 67 25 29 0d 14 f0 08 ea 20 48 25 0d |g%,mg%)..... H%.| 00002600 14 fa 0d 42 25 21 30 30 3d 65 67 25 0d 15 04 0d |...B%!00=eg%....| 00002610 42 25 21 30 34 3d 66 67 25 0d 15 0e 0d 42 25 21 |B%!04=fg%....B%!| 00002620 30 38 3d 67 67 25 0d 15 18 0d 42 25 21 31 32 3d |08=gg%....B%!12=| 00002630 68 67 25 0d 15 22 0d 42 25 21 31 36 3d 69 67 25 |hg%..".B%!16=ig%| 00002640 0d 15 2c 0d 42 25 21 32 30 3d 6a 67 25 0d 15 36 |..,.B%!20=jg%..6| 00002650 0d 42 25 21 32 34 3d 6b 67 25 0d 15 40 0d 42 25 |.B%!24=kg%..@.B%| 00002660 21 32 38 3d 6c 67 25 0d 15 4a 0d 42 25 21 33 32 |!28=lg%..J.B%!32| 00002670 3d 6d 67 25 0d 15 54 13 c8 99 20 64 67 25 2c 2c |=mg%..T... dg%,,| 00002680 42 25 20 b8 20 48 25 0d 15 5e 07 3d 48 25 0d 15 |B% . H%..^.=H%..| 00002690 68 12 dd a4 78 64 28 42 25 2c 48 25 2c 49 25 29 |h...xd(B%,H%,I%)| 000026a0 0d 15 72 0b 42 25 21 30 3d 48 25 0d 15 7c 0b 42 |..r.B%!0=H%..|.B| 000026b0 25 21 34 3d 49 25 0d 15 86 0e c8 99 20 75 64 25 |%!4=I%...... ud%| 000026c0 2c 2c 42 25 0d 15 90 0d 3d 24 28 42 25 21 32 38 |,,B%....=$(B%!28| 000026d0 29 0d 15 9a 0f dd f2 75 63 28 42 25 2c 48 25 29 |)......uc(B%,H%)| 000026e0 0d 15 a4 0a 21 42 25 3d 48 25 0d 15 ae 0e c8 99 |....!B%=H%......| 000026f0 20 61 64 25 2c 2c 42 25 0d 15 b8 0e c8 99 20 69 | ad%,,B%...... i| 00002700 62 25 2c 2c 42 25 0d 15 c2 05 e1 0d 15 cc 0f dd |b%,,B%..........| 00002710 f2 69 64 28 42 25 2c 48 25 29 0d 15 d6 0a 21 42 |.id(B%,H%)....!B| 00002720 25 3d 48 25 0d 15 e0 0e c8 99 20 6a 62 25 2c 2c |%=H%...... jb%,,| 00002730 42 25 0d 15 ea 0e f2 75 63 28 42 25 2c 48 25 29 |B%.....uc(B%,H%)| 00002740 0d 15 f4 05 e1 0d 15 fe 0f dd f2 6e 67 28 42 25 |...........ng(B%| 00002750 2c 48 25 29 0d 16 08 0a 21 42 25 3d 48 25 0d 16 |,H%)....!B%=H%..| 00002760 12 0e c8 99 20 6a 62 25 2c 2c 42 25 0d 16 1c 05 |.... jb%,,B%....| 00002770 e1 0d 16 26 15 dd f2 6e 65 28 42 25 2c 48 25 2c |...&...ne(B%,H%,| 00002780 76 66 24 29 20 3a 0d 16 30 0a 21 42 25 3d 48 25 |vf$) :..0.!B%=H%| 00002790 0d 16 3a 0e c8 99 20 6f 67 25 2c 2c 42 25 0d 16 |..:... og%,,B%..| 000027a0 44 17 24 28 42 25 21 28 37 32 2b 34 29 29 3d 76 |D.$(B%!(72+4))=v| 000027b0 66 24 2b bd 30 0d 16 4e 05 e1 0d 16 58 0c dd f2 |f$+.0..N....X...| 000027c0 68 62 28 42 25 29 0d 16 62 11 ea 20 73 62 25 2c |hb(B%)..b.. sb%,| 000027d0 74 62 25 2c 75 62 25 0d 16 6c 0c 73 62 25 3d 42 |tb%,ub%..l.sb%=B| 000027e0 25 21 30 0d 16 76 14 c8 99 20 70 67 25 2c 2c 42 |%!0..v... pg%,,B| 000027f0 25 20 b8 20 71 67 25 0d 16 80 13 f2 72 67 28 42 |% . qg%.....rg(B| 00002800 25 2c 74 62 25 2c 75 62 25 29 0d 16 8a 0a c8 95 |%,tb%,ub%)......| 00002810 20 71 67 25 0d 16 94 14 f2 72 62 28 73 62 25 2c | qg%.....rb(sb%,| 00002820 74 62 25 2c 75 62 25 29 0d 16 9e 14 c8 99 20 73 |tb%,ub%)...... s| 00002830 67 25 2c 2c 42 25 20 b8 20 71 67 25 0d 16 a8 05 |g%,,B% . qg%....| 00002840 ce 0d 16 b2 05 e1 0d 16 bc 16 dd f2 72 67 28 42 |............rg(B| 00002850 25 2c f8 20 58 25 2c f8 20 59 25 29 0d 16 c6 11 |%,. X%,. Y%)....| 00002860 58 25 3d 42 25 21 34 2d 42 25 21 32 30 0d 16 d0 |X%=B%!4-B%!20...| 00002870 12 59 25 3d 42 25 21 31 36 2d 42 25 21 32 34 0d |.Y%=B%!16-B%!24.| 00002880 16 da 05 e1 0d 16 e4 15 dd f2 71 66 28 42 25 2c |..........qf(B%,| 00002890 48 25 2c 58 25 2c 59 25 29 0d 16 ee 0a 21 42 25 |H%,X%,Y%)....!B%| 000028a0 3d 48 25 0d 16 f8 0e c8 99 20 6f 67 25 2c 2c 42 |=H%...... og%,,B| 000028b0 25 0d 17 02 13 e7 20 59 25 3d 30 20 59 25 3d 42 |%..... Y%=0 Y%=B| 000028c0 25 21 34 38 0d 17 0c 13 e7 20 58 25 3d 30 20 58 |%!48..... X%=0 X| 000028d0 25 3d 42 25 21 35 32 0d 17 16 0f 42 25 21 30 30 |%=B%!52....B%!00| 000028e0 3d 42 25 21 34 34 0d 17 20 0c 42 25 21 30 34 3d |=B%!44.. .B%!04=| 000028f0 59 25 0d 17 2a 0c 42 25 21 30 38 3d 58 25 0d 17 |Y%..*.B%!08=X%..| 00002900 34 0f 42 25 21 31 32 3d 42 25 21 35 36 0d 17 3e |4.B%!12=B%!56..>| 00002910 10 c8 99 20 74 67 25 2c 48 25 2c 42 25 0d 17 48 |... tg%,H%,B%..H| 00002920 05 e1 0d 17 52 1c dd a4 62 66 28 42 25 2c 7a 65 |....R...bf(B%,ze| 00002930 24 2c 75 67 24 2c f8 20 49 25 2c 4a 25 29 0d 17 |$,ug$,. I%,J%)..| 00002940 5c 08 ea 20 48 25 0d 17 66 0f c8 99 20 76 67 25 |\.. H%..f... vg%| 00002950 2c 2c 7a 65 24 0d 17 70 24 c8 99 20 77 67 25 2c |,,ze$..p$.. wg%,| 00002960 2c 42 25 2c 49 25 2c 4a 25 2c 2d 31 2c 75 67 24 |,B%,I%,J%,-1,ug$| 00002970 2c 30 20 b8 20 2c 2c 49 25 0d 17 7a 13 c8 99 20 |,0 . ,,I%..z... | 00002980 78 67 25 2c 2c 42 25 20 b8 20 48 25 0d 17 84 0a |xg%,,B% . H%....| 00002990 c8 99 20 79 67 25 0d 17 8e 07 3d 48 25 0d 17 98 |.. yg%....=H%...| 000029a0 15 dd f2 78 61 28 49 25 2c 4a 25 2c 4d 25 2c 46 |...xa(I%,J%,M%,F| 000029b0 25 29 0d 17 a2 0b ea 20 41 25 2c 4c 25 0d 17 ac |%)..... A%,L%...| 000029c0 10 e3 20 4c 25 3d 49 25 20 b8 20 4a 25 0d 17 b6 |.. L%=I% . J%...| 000029d0 3a 41 25 3d 4d 25 2b 33 36 2b 4c 25 2a 32 34 3a |:A%=M%+36+L%*24:| 000029e0 e7 20 46 25 20 21 41 25 3d 21 41 25 84 28 31 3c |. F% !A%=!A%.(1<| 000029f0 3c 32 32 29 20 8b 20 21 41 25 3d 21 41 25 80 ac |<22) . !A%=!A%..| 00002a00 28 31 3c 3c 32 32 29 0d 17 c0 05 ed 0d 17 ca 05 |(1<<22).........| 00002a10 e1 0d 17 d4 12 dd f2 7a 67 28 4e 25 2c 49 25 2c |.......zg(N%,I%,| 00002a20 4d 25 29 0d 17 de 0e e3 4a 25 3d 30 b8 4e 25 2d |M%).....J%=0.N%-| 00002a30 31 0d 17 e8 32 41 25 3d 4d 25 2b 32 38 2b 4a 25 |1...2A%=M%+28+J%| 00002a40 2a 32 34 3a e7 4a 25 3d 49 25 20 3f 41 25 3d 3f |*24:.J%=I% ?A%=?| 00002a50 41 25 20 84 31 20 8b 20 3f 41 25 3d 3f 41 25 20 |A% .1 . ?A%=?A% | 00002a60 80 ac 31 0d 17 f2 05 ed 0d 17 fc 05 e1 0d 18 06 |..1.............| 00002a70 0f dd a4 5f 67 28 49 25 2c 4d 25 29 0d 18 10 1e |..._g(I%,M%)....| 00002a80 4d 25 3d 4d 25 2b 32 38 2b 49 25 2a 32 34 3a 3f |M%=M%+28+I%*24:?| 00002a90 4d 25 3d 3f 4d 25 20 82 20 31 0d 18 1a 0c 3d 3f |M%=?M% . 1....=?| 00002aa0 4d 25 20 80 20 31 0d 18 24 0f dd a4 61 68 28 49 |M% . 1..$...ah(I| 00002ab0 25 2c 4d 25 29 0d 18 2e 12 4d 25 3d 4d 25 2b 32 |%,M%)....M%=M%+2| 00002ac0 38 2b 49 25 2a 32 34 0d 18 38 0c 3d 3f 4d 25 20 |8+I%*24..8.=?M% | 00002ad0 80 20 31 0d 18 42 10 dd f2 6c 61 28 42 25 2c 7a |. 1..B...la(B%,z| 00002ae0 65 24 29 0d 18 4c 0e c8 99 20 76 64 25 2c 2c 2d |e$)..L... vd%,,-| 00002af0 31 0d 18 56 09 21 42 25 3d 9f 0d 18 60 31 24 28 |1..V.!B%=...`1$(| 00002b00 42 25 2b 34 29 3d f6 24 2b 22 20 28 49 6e 74 65 |B%+4)=.$+" (Inte| 00002b10 72 6e 61 6c 20 65 72 72 6f 72 20 63 6f 64 65 20 |rnal error code | 00002b20 22 2b c3 9e 2b 22 29 22 2b bd 30 0d 18 6a 13 c8 |"+..+")"+.0..j..| 00002b30 99 20 79 65 25 2c 42 25 2c 31 2c 7a 65 24 0d 18 |. ye%,B%,1,ze$..| 00002b40 74 05 e1 0d 18 7e 14 dd f2 61 65 28 42 25 2c 7a |t....~...ae(B%,z| 00002b50 65 24 2c 76 66 24 29 0d 18 88 0e c8 99 20 76 64 |e$,vf$)...... vd| 00002b60 25 2c 2c 2d 31 0d 18 92 18 21 42 25 3d 9f 3a 24 |%,,-1....!B%=.:$| 00002b70 28 42 25 2b 34 29 3d 76 66 24 2b bd 30 0d 18 9c |(B%+4)=vf$+.0...| 00002b80 13 c8 99 20 79 65 25 2c 42 25 2c 31 2c 7a 65 24 |... ye%,B%,1,ze$| 00002b90 0d 18 a6 05 e1 0d 18 b0 13 dd f2 62 68 28 f8 20 |...........bh(. | 00002ba0 58 25 2c f8 20 59 25 29 0d 18 ba 0d ea 20 71 64 |X%,. Y%)..... qd| 00002bb0 25 2c 72 64 25 0d 18 c4 17 c8 99 20 63 68 25 2c |%,rd%...... ch%,| 00002bc0 2d 31 2c 34 20 b8 20 2c 2c 71 64 25 0d 18 ce 17 |-1,4 . ,,qd%....| 00002bd0 c8 99 20 63 68 25 2c 2d 31 2c 31 31 20 b8 20 2c |.. ch%,-1,11 . ,| 00002be0 2c 58 25 0d 18 d8 17 c8 99 20 63 68 25 2c 2d 31 |,X%...... ch%,-1| 00002bf0 2c 35 20 b8 20 2c 2c 72 64 25 0d 18 e2 17 c8 99 |,5 . ,,rd%......| 00002c00 20 63 68 25 2c 2d 31 2c 31 32 20 b8 20 2c 2c 59 | ch%,-1,12 . ,,Y| 00002c10 25 0d 18 ec 0e 58 25 3d 58 25 3c 3c 71 64 25 0d |%....X%=X%<<qd%.| 00002c20 18 f6 0e 59 25 3d 59 25 3c 3c 72 64 25 0d 19 00 |...Y%=Y%<<rd%...| 00002c30 05 e1 0d 19 0a 0d dd a4 67 64 28 76 66 24 29 0d |........gd(vf$).| 00002c40 19 14 10 c8 95 20 a7 76 66 24 2c 22 2e 22 29 0d |..... .vf$,".").| 00002c50 19 1e 19 76 66 24 3d c1 76 66 24 2c a7 76 66 24 |...vf$=.vf$,.vf$| 00002c60 2c 22 2e 22 29 2b 31 29 0d 19 28 05 ce 0d 19 32 |,".")+1)..(....2| 00002c70 08 3d 76 66 24 0d 19 3c 0d dd a4 64 68 28 76 66 |.=vf$..<...dh(vf| 00002c80 24 29 0d 19 46 15 3d 76 66 24 2b c4 31 32 2d a9 |$)..F.=vf$+.12-.| 00002c90 76 66 24 2c bd 30 29 0d 19 50 19 dd a4 68 64 28 |vf$,.0)..P...hd(| 00002ca0 65 68 25 29 3a ea 66 68 24 3a 66 68 24 3d 22 22 |eh%):.fh$:fh$=""| 00002cb0 0d 19 5a 27 c8 95 20 3f 65 68 25 3e 33 31 3a 66 |..Z'.. ?eh%>31:f| 00002cc0 68 24 2b 3d bd 3f 65 68 25 3a 65 68 25 2b 3d 31 |h$+=.?eh%:eh%+=1| 00002cd0 3a ce 3a 3d 66 68 24 0d 19 64 0f dd a4 67 68 28 |:.:=fh$..d...gh(| 00002ce0 42 25 2c 53 25 29 0d 19 6e 0e c8 99 20 64 64 25 |B%,S%)..n... dd%| 00002cf0 2c 2c 42 25 0d 19 78 0e 3d 28 42 25 21 38 3d 53 |,,B%..x.=(B%!8=S| 00002d00 25 29 0d 19 82 08 dd f2 69 61 0d 19 8c 3f c8 99 |%)......ia...?..| 00002d10 20 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 | "OS_SWINumberFr| 00002d20 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 4f 53 5f 53 |omString",,"OS_S| 00002d30 57 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 72 69 |WINumberFromStri| 00002d40 6e 67 22 20 b8 20 68 68 25 0d 19 96 2b c8 99 20 |ng" . hh%...+.. | 00002d50 68 68 25 2c 2c 22 43 6f 6c 6f 75 72 54 72 61 6e |hh%,,"ColourTran| 00002d60 73 5f 53 65 6c 65 63 74 54 61 62 6c 65 22 20 b8 |s_SelectTable" .| 00002d70 20 69 68 25 0d 19 a0 1f c8 99 20 68 68 25 2c 2c | ih%...... hh%,,| 00002d80 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 20 b8 20 |"OS_SpriteOp" . | 00002d90 5f 62 25 0d 19 aa 27 c8 99 20 68 68 25 2c 2c 22 |_b%...'.. hh%,,"| 00002da0 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 |OS_ReadModeVaria| 00002db0 62 6c 65 22 20 b8 20 63 68 25 0d 19 b4 20 c8 99 |ble" . ch%... ..| 00002dc0 20 68 68 25 2c 2c 22 48 6f 75 72 67 6c 61 73 73 | hh%,,"Hourglass| 00002dd0 5f 4f 6e 22 20 b8 20 67 66 25 0d 19 be 21 c8 99 |_On" . gf%...!..| 00002de0 20 68 68 25 2c 2c 22 48 6f 75 72 67 6c 61 73 73 | hh%,,"Hourglass| 00002df0 5f 4f 66 66 22 20 b8 20 68 66 25 0d 19 c8 22 c8 |_Off" . hf%...".| 00002e00 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f 43 6c 6f |. hh%,,"Wimp_Clo| 00002e10 73 65 44 6f 77 6e 22 20 b8 20 71 62 25 0d 19 d2 |seDown" . qb%...| 00002e20 24 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f 43 |$.. hh%,,"Wimp_C| 00002e30 6c 6f 73 65 57 69 6e 64 6f 77 22 20 b8 20 6a 62 |loseWindow" . jb| 00002e40 25 0d 19 dc 26 c8 99 20 68 68 25 2c 2c 22 57 69 |%...&.. hh%,,"Wi| 00002e50 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 |mp_CloseTemplate| 00002e60 22 20 b8 20 79 67 25 0d 19 e6 23 c8 99 20 68 68 |" . yg%...#.. hh| 00002e70 25 2c 2c 22 57 69 6d 70 5f 43 72 65 61 74 65 49 |%,,"Wimp_CreateI| 00002e80 63 6f 6e 22 20 b8 20 64 67 25 0d 19 f0 23 c8 99 |con" . dg%...#..| 00002e90 20 68 68 25 2c 2c 22 57 69 6d 70 5f 43 72 65 61 | hh%,,"Wimp_Crea| 00002ea0 74 65 4d 65 6e 75 22 20 b8 20 74 63 25 0d 19 fa |teMenu" . tc%...| 00002eb0 26 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f 43 |&.. hh%,,"Wimp_C| 00002ec0 72 65 61 74 65 53 75 62 4d 65 6e 75 22 20 b8 20 |reateSubMenu" . | 00002ed0 6a 68 25 0d 1a 04 25 c8 99 20 68 68 25 2c 2c 22 |jh%...%.. hh%,,"| 00002ee0 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f |Wimp_CreateWindo| 00002ef0 77 22 20 b8 20 78 67 25 0d 1a 0e 23 c8 99 20 68 |w" . xg%...#.. h| 00002f00 68 25 2c 2c 22 57 69 6d 70 5f 44 65 63 6f 64 65 |h%,,"Wimp_Decode| 00002f10 4d 65 6e 75 22 20 b8 20 66 64 25 0d 1a 18 23 c8 |Menu" . fd%...#.| 00002f20 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f 44 65 6c |. hh%,,"Wimp_Del| 00002f30 65 74 65 49 63 6f 6e 22 20 b8 20 63 67 25 0d 1a |eteIcon" . cg%..| 00002f40 22 20 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f |" .. hh%,,"Wimp_| 00002f50 44 72 61 67 42 6f 78 22 20 b8 20 76 64 25 0d 1a |DragBox" . vd%..| 00002f60 2c 24 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f |,$.. hh%,,"Wimp_| 00002f70 46 6f 72 63 65 52 65 64 72 61 77 22 20 b8 20 70 |ForceRedraw" . p| 00002f80 63 25 0d 1a 36 25 c8 99 20 68 68 25 2c 2c 22 57 |c%..6%.. hh%,,"W| 00002f90 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState| 00002fa0 22 20 b8 20 75 64 25 0d 1a 40 27 c8 99 20 68 68 |" . ud%..@'.. hh| 00002fb0 25 2c 2c 22 57 69 6d 70 5f 47 65 74 50 6f 69 6e |%,,"Wimp_GetPoin| 00002fc0 74 65 72 49 6e 66 6f 22 20 b8 20 64 64 25 0d 1a |terInfo" . dd%..| 00002fd0 4a 25 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f |J%.. hh%,,"Wimp_| 00002fe0 47 65 74 52 65 63 74 61 6e 67 6c 65 22 20 b8 20 |GetRectangle" . | 00002ff0 73 67 25 0d 1a 54 27 c8 99 20 68 68 25 2c 2c 22 |sg%..T'.. hh%,,"| 00003000 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 |Wimp_GetWindowSt| 00003010 61 74 65 22 20 b8 20 61 64 25 0d 1a 5e 26 c8 99 |ate" . ad%..^&..| 00003020 20 68 68 25 2c 2c 22 57 69 6d 70 5f 47 65 74 57 | hh%,,"Wimp_GetW| 00003030 69 6e 64 6f 77 49 6e 66 6f 22 20 b8 20 6f 67 25 |indowInfo" . og%| 00003040 0d 1a 68 23 c8 99 20 68 68 25 2c 2c 22 57 69 6d |..h#.. hh%,,"Wim| 00003050 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 20 b8 20 |p_Initialise" . | 00003060 6a 61 25 0d 1a 72 25 c8 99 20 68 68 25 2c 2c 22 |ja%..r%.. hh%,,"| 00003070 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat| 00003080 65 22 20 b8 20 77 67 25 0d 1a 7c 23 c8 99 20 68 |e" . wg%..|#.. h| 00003090 68 25 2c 2c 22 57 69 6d 70 5f 4f 70 65 6e 57 69 |h%,,"Wimp_OpenWi| 000030a0 6e 64 6f 77 22 20 b8 20 69 62 25 0d 1a 86 25 c8 |ndow" . ib%...%.| 000030b0 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f 4f 70 65 |. hh%,,"Wimp_Ope| 000030c0 6e 54 65 6d 70 6c 61 74 65 22 20 b8 20 76 67 25 |nTemplate" . vg%| 000030d0 0d 1a 90 1d c8 99 20 68 68 25 2c 2c 22 57 69 6d |...... hh%,,"Wim| 000030e0 70 5f 50 6f 6c 6c 22 20 b8 20 66 62 25 0d 1a 9a |p_Poll" . fb%...| 000030f0 21 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f 50 |!.. hh%,,"Wimp_P| 00003100 6f 6c 6c 49 64 6c 65 22 20 b8 20 6b 68 25 0d 1a |ollIdle" . kh%..| 00003110 a4 23 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f |.#.. hh%,,"Wimp_| 00003120 50 72 6f 63 65 73 73 4b 65 79 22 20 b8 20 71 63 |ProcessKey" . qc| 00003130 25 0d 1a ae 24 c8 99 20 68 68 25 2c 2c 22 57 69 |%...$.. hh%,,"Wi| 00003140 6d 70 5f 52 65 61 64 50 61 6c 65 74 74 65 22 20 |mp_ReadPalette" | 00003150 b8 20 6c 68 25 0d 1a b8 25 c8 99 20 68 68 25 2c |. lh%...%.. hh%,| 00003160 2c 22 57 69 6d 70 5f 52 65 64 72 61 77 57 69 6e |,"Wimp_RedrawWin| 00003170 64 6f 77 22 20 b8 20 70 67 25 0d 1a c2 24 c8 99 |dow" . pg%...$..| 00003180 20 68 68 25 2c 2c 22 57 69 6d 70 5f 52 65 70 6f | hh%,,"Wimp_Repo| 00003190 72 74 45 72 72 6f 72 22 20 b8 20 79 65 25 0d 1a |rtError" . ye%..| 000031a0 cc 24 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f |.$.. hh%,,"Wimp_| 000031b0 53 65 6e 64 4d 65 73 73 61 67 65 22 20 b8 20 6f |SendMessage" . o| 000031c0 65 25 0d 1a d6 29 c8 99 20 68 68 25 2c 2c 22 57 |e%...).. hh%,,"W| 000031d0 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 |imp_SetCaretPosi| 000031e0 74 69 6f 6e 22 20 b8 20 6d 63 25 0d 1a e0 22 c8 |tion" . mc%...".| 000031f0 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f 53 65 74 |. hh%,,"Wimp_Set| 00003200 43 6f 6c 6f 75 72 22 20 b8 20 65 63 25 0d 1a ea |Colour" . ec%...| 00003210 22 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 5f 53 |".. hh%,,"Wimp_S| 00003220 65 74 45 78 74 65 6e 74 22 20 b8 20 74 67 25 0d |etExtent" . tg%.| 00003230 1a f4 25 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 |..%.. hh%,,"Wimp| 00003240 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 22 20 b8 |_SetIconState" .| 00003250 20 78 66 25 0d 1a fe 20 c8 99 20 68 68 25 2c 2c | xf%... .. hh%,,| 00003260 22 57 69 6d 70 5f 53 65 74 4d 6f 64 65 22 20 b8 |"Wimp_SetMode" .| 00003270 20 6d 68 25 0d 1b 08 26 c8 99 20 68 68 25 2c 2c | mh%...&.. hh%,,| 00003280 22 57 69 6d 70 5f 54 72 61 6e 73 66 65 72 42 6c |"Wimp_TransferBl| 00003290 6f 63 6b 22 20 b8 20 6e 68 25 0d 1b 12 25 c8 99 |ock" . nh%...%..| 000032a0 20 68 68 25 2c 2c 22 57 69 6d 70 5f 55 70 64 61 | hh%,,"Wimp_Upda| 000032b0 74 65 57 69 6e 64 6f 77 22 20 b8 20 6f 68 25 0d |teWindow" . oh%.| 000032c0 1b 1c 22 c8 99 20 68 68 25 2c 2c 22 57 69 6d 70 |..".. hh%,,"Wimp| 000032d0 5f 57 68 69 63 68 49 63 6f 6e 22 20 b8 20 70 68 |_WhichIcon" . ph| 000032e0 25 0d 1b 26 05 e1 0d 1b 30 0e dd 20 f2 70 64 28 |%..&....0.. .pd(| 000032f0 71 65 25 29 0d 1b 3a 10 ea 20 40 25 2c 73 62 25 |qe%)..:.. @%,sb%| 00003300 2c 6b 63 25 0d 1b 44 0f 40 25 3d 26 31 30 32 30 |,kc%..D.@%=&1020| 00003310 32 30 30 0d 1b 4e 0a 71 68 24 3d 22 22 0d 1b 58 |200..N.qh$=""..X| 00003320 19 73 62 25 3d 71 65 25 21 33 32 3a 6b 63 25 3d |.sb%=qe%!32:kc%=| 00003330 71 65 25 21 33 36 0d 1b 62 0c c8 8e 20 73 62 25 |qe%!36..b... sb%| 00003340 20 ca 0d 1b 6c 79 c9 20 2d 32 3a 71 68 24 3d 22 | ...ly. -2:qh$="| 00003350 54 68 69 73 20 69 73 20 74 68 65 20 52 65 2d 70 |This is the Re-p| 00003360 61 69 6e 74 20 69 63 6f 6e 2e 7c 4d 44 72 61 67 |aint icon.|MDrag| 00003370 20 61 6e 79 20 32 35 36 20 63 6f 6c 6f 75 72 20 | any 256 colour | 00003380 73 70 72 69 74 65 20 66 69 6c 65 20 6f 6e 74 6f |sprite file onto| 00003390 20 69 74 20 66 6f 72 20 65 61 73 79 20 61 64 6a | it for easy adj| 000033a0 75 73 74 6d 65 6e 74 20 6f 66 20 52 47 42 20 77 |ustment of RGB w| 000033b0 65 69 67 68 74 69 6e 67 73 2e 22 0d 1b 76 56 c9 |eightings."..vV.| 000033c0 20 76 63 25 3a 71 68 24 3d 22 53 61 76 69 6e 67 | vc%:qh$="Saving| 000033d0 20 74 68 65 20 73 70 72 69 74 65 20 66 69 6c 65 | the sprite file| 000033e0 20 77 69 6c 6c 20 66 69 78 20 74 68 65 20 69 6d | will fix the im| 000033f0 61 67 65 20 77 69 74 68 20 74 68 65 20 63 75 72 |age with the cur| 00003400 72 65 6e 74 20 77 65 69 67 68 74 69 6e 67 73 2e |rent weightings.| 00003410 22 0d 1b 80 94 c9 20 76 62 25 3a 71 68 24 3d 22 |"..... vb%:qh$="| 00003420 54 68 69 73 20 69 73 20 74 68 65 20 52 65 2d 70 |This is the Re-p| 00003430 61 69 6e 74 20 70 72 65 76 69 65 77 20 77 69 6e |aint preview win| 00003440 64 6f 77 2e 7c 4d 43 68 61 6e 67 65 73 20 6d 61 |dow.|MChanges ma| 00003450 64 65 20 74 6f 20 74 68 65 20 52 47 42 20 77 65 |de to the RGB we| 00003460 69 67 68 74 69 6e 67 73 20 61 72 65 20 73 68 6f |ightings are sho| 00003470 77 6e 20 68 65 72 65 2e 7c 4d 43 6c 69 63 6b 20 |wn here.|MClick | 00003480 4d 45 4e 55 20 74 6f 20 63 68 6f 6f 73 65 20 77 |MENU to choose w| 00003490 68 69 63 68 20 73 70 72 69 74 65 20 74 6f 20 73 |hich sprite to s| 000034a0 68 6f 77 2e 22 0d 1b 8a 09 c9 20 62 63 25 0d 1b |how."..... bc%..| 000034b0 94 0c c8 8e 20 6b 63 25 20 ca 0d 1b 9e 3d c9 20 |.... kc% ....=. | 000034c0 30 2c 31 2c 32 3a 71 68 24 3d 22 54 79 70 65 20 |0,1,2:qh$="Type | 000034d0 69 6e 20 61 6e 79 20 70 65 72 63 65 6e 74 61 67 |in any percentag| 000034e0 65 20 77 65 69 67 68 74 69 6e 67 20 75 70 20 74 |e weighting up t| 000034f0 6f 20 39 39 39 2e 22 0d 1b a8 31 c9 20 36 2c 37 |o 999."...1. 6,7| 00003500 2c 38 3a 71 68 24 3d 22 44 72 61 67 20 74 68 65 |,8:qh$="Drag the| 00003510 20 77 65 69 67 68 74 69 6e 67 20 77 69 74 68 20 | weighting with | 00003520 53 45 4c 45 43 54 2e 22 0d 1b b2 49 c9 20 31 33 |SELECT."...I. 13| 00003530 3a 71 68 24 3d 22 43 6c 69 63 6b 20 53 45 4c 45 |:qh$="Click SELE| 00003540 43 54 20 74 6f 20 73 65 74 20 74 68 65 20 66 75 |CT to set the fu| 00003550 6c 6c 20 73 63 61 6c 65 20 6f 66 20 74 68 65 20 |ll scale of the | 00003560 73 6c 69 64 65 72 73 20 74 6f 20 31 30 30 25 2e |sliders to 100%.| 00003570 22 0d 1b bc 4a c9 20 31 34 3a 71 68 24 3d 22 43 |"...J. 14:qh$="C| 00003580 6c 69 63 6b 20 53 45 4c 45 43 54 20 74 6f 20 73 |lick SELECT to s| 00003590 65 74 20 74 68 65 20 66 75 6c 6c 20 73 63 61 6c |et the full scal| 000035a0 65 20 6f 66 20 74 68 65 20 73 6c 69 64 65 72 73 |e of the sliders| 000035b0 20 74 6f 20 31 30 30 30 25 2e 22 0d 1b c6 80 7f | to 1000%.".....| 000035c0 3a 71 68 24 3d 22 54 68 65 20 63 6f 6e 74 72 6f |:qh$="The contro| 000035d0 6c 73 20 69 6e 20 74 68 69 73 20 77 69 6e 64 6f |ls in this windo| 000035e0 77 20 61 6c 6c 6f 77 20 79 6f 75 20 74 6f 20 61 |w allow you to a| 000035f0 6c 74 65 72 20 74 68 65 20 69 6e 64 69 76 69 64 |lter the individ| 00003600 75 61 6c 20 77 65 69 67 68 74 69 6e 67 73 20 6f |ual weightings o| 00003610 66 20 74 68 65 20 52 47 42 20 63 6f 6d 70 6f 6e |f the RGB compon| 00003620 65 6e 74 73 20 6f 66 20 74 68 65 20 73 70 72 69 |ents of the spri| 00003630 74 65 20 6c 6f 61 64 65 64 2e 22 0d 1b d0 05 cb |te loaded.".....| 00003640 0d 1b da 2c 7f 3a 71 68 24 3d 22 54 68 69 73 20 |...,.:qh$="This | 00003650 77 69 6e 64 6f 77 20 62 65 6c 6f 6e 67 73 20 74 |window belongs t| 00003660 6f 20 52 65 2d 70 61 69 6e 74 2e 22 0d 1b e4 05 |o Re-paint."....| 00003670 cb 0d 1b ee 0e 71 68 24 3d 71 68 24 2b bd 30 0d |.....qh$=qh$+.0.| 00003680 1b f8 1e 71 65 25 21 30 30 3d 32 30 2b 28 a9 28 |...qe%!00=20+(.(| 00003690 71 68 24 29 20 81 20 34 2a 34 29 2b 34 0d 1c 02 |qh$) . 4*4)+4...| 000036a0 10 71 65 25 21 31 32 3d 71 65 25 21 38 0d 1c 0c |.qe%!12=qe%!8...| 000036b0 0f 71 65 25 21 31 36 3d 26 35 30 33 0d 1c 16 11 |.qe%!16=&503....| 000036c0 24 28 71 65 25 2b 32 30 29 3d 71 68 24 0d 1c 20 |$(qe%+20)=qh$.. | 000036d0 26 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 |&.. "Wimp_SendMe| 000036e0 73 73 61 67 65 22 2c 31 37 2c 71 65 25 2c 71 65 |ssage",17,qe%,qe| 000036f0 25 21 34 0d 1c 2a 05 e1 0d ff |%!4..*....| 000036fa