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
xna%=&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
	Vscrap%=�
	`ș 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%)
LB%!00=H%
VB%!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%
lsb%=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