F< r0#Jaǀl2 c(#;F cC Fv<K9c aG_y>ceA1+@ <|$cn@Dca #/,Z> 8Vx!@D@AP x?W<^> bx1!E Ra9c`02)@Q013C@+A''/`AR`a? bx3Q@<^ yr 'c|O>_8y!<<Uː$1PCܸ@<[$j!p(| a p>z78(qtYA5x N\\ x ?x. 8|xIx?`x.@x. 󁿀x.KP=ip< p4 H <<< H<<>@H@< ?c\C P#GoZ/2D GCJ_ HC< (G _ bAQ@xdǁ!`ǀ6Dǁ!*@B8>x(!xGQP:k 0:PH4<?@~?@Ġ<"8<4 x"|<8Nx?DGx(xW >+O,<7p$ P4dZ@"LbCH$/@ H  f@@ 4PFAxX2 p0!aA [Hz`QQwAALefi0+@b(+& \!AĹABaOB^a(`B`@ P,g@@ApD Ӂ I@$ H5Y:@I !%`A*P:8P5<D B[ q@A A  X7idc@AT Ҽ]"SX8BAB%  |  cp [!B ?xBFP g A88rb` e!P00ga3`A  rx" A0 rN ax(*A@9H\tF rSyi[00 @A@AUB%  x A`   &p@ <|B@G>0( @x! @@`"p O@ @ ff`$Mh9P1 ?'O0x~d; >-X @(JP wN!%A cI74< F@A@'01 B@'haB)$yDX @X0p` Pc Pg Ttm?8QD8>?0``b_$x5,d6 sgcl0: lea gcol1+2,a0 lea gcol2+2,a1 lea GraphicBPLCol,a2 moveq #GraphicBPLColors-1,d5 sgcl1: move.w (a0),d0 move.w (a2)+,d1 bsr SetRGBFarb move.w d0,(a0) move.w d0,(a1) add.l #4,a0 add.l #4,a1 dbf d5,sgcl1 move.w #$C000,d0 sgcl2: dbf d0,sgcl2 dbf d6,sgcl0 rts SetScrollColor: moveq #15,d6 sscl0: lea fcol+2,a0 lea FontBPLCol+2,a1 moveq #FontBPLColors-2,d5 sscl1: move.w (a0),d0 move.w (a1)+,d1 bsr SetRGBFarb move.w d0,(a0) add.l #4,a0 dbf d5,sscl1 move.w #$c000,d0 sscl2: dbf d0,sscl2 dbf d6,sscl0 rts KillColor: moveq #15,d6 kcl0: lea gcol1+2,a0 lea gcol2+2,a1 moveq #GraphicBPLColors-1,d5 kcl1: move.w (a0),d0 move.w #0,d1 bsr SetRGBFarb move.w d0,(a0) move.w d0,(a1) add.l #4,a0 add.l #4,a1 dbf d5,kcl1 lea fcol+2,a0 moveq #FontBPLColors-2,d5 kcl2: move.w (a0),d0 move.w #0,d1 bsr SetRGBFarb move.w d0,(a0) add.l #4,a0 dbf d5,kcl2 move.w #$c000,d0 kcl3: dbf d0,kcl3 dbf d6,kcl0 rts SetRGBFarb: movem.l d1-d6/a0-a6,-(a7) clr.l d7 move.w d0,d2 move.w d1,d3 and.w #$0f00,d2 and.w #$0f00,d3 move.w #$0100,d4 cmp.w d2,d3 beq setc0 bcc addcol0 move.w #$ff00,d4 addcol0:add.w d4,d0 moveq #1,d7 setc0: move.w d0,d2 move.w d1,d3 and.w #$00f0,d2 and.w #$00f0,d3 move.w #$0010,d4 cmp.w d2,d3 beq setc1 bcc addcol1 move.w #$fff0,d4 addcol1:add.w d4,d0 m