From 1c9cf2386376fd1dba4569eaf805af98b039383d Mon Sep 17 00:00:00 2001
From: markpmlim <markpmlim@yahoo.com.sg>
Date: Mon, 24 Sep 2018 18:46:06 +0800
Subject: [PATCH] Apple II Double Hires Converter

A Swift playground demo to convert Apple Double Hires graphics files for display in an NSView
---
 .gitconfig                                    |   5 +
 .gitignore                                    |  24 +++
 Apple2ColorDHGR.playground/Contents.swift     |  26 +++
 .../Resources/CC65140.A2FC                    | Bin 0 -> 16384 bytes
 .../Resources/COLORBARS.A2FC                  | Bin 0 -> 16384 bytes
 .../Resources/HAM140.A2FC                     | Bin 0 -> 16384 bytes
 .../Resources/TOWER140.A2FC                   | Bin 0 -> 16384 bytes
 .../Sources/DHGRImage.swift                   | 159 ++++++++++++++++++
 .../contents.xcplayground                     |   4 +
 Readme.md                                     |  15 ++
 10 files changed, 233 insertions(+)
 create mode 100644 .gitconfig
 create mode 100644 .gitignore
 create mode 100644 Apple2ColorDHGR.playground/Contents.swift
 create mode 100644 Apple2ColorDHGR.playground/Resources/CC65140.A2FC
 create mode 100644 Apple2ColorDHGR.playground/Resources/COLORBARS.A2FC
 create mode 100644 Apple2ColorDHGR.playground/Resources/HAM140.A2FC
 create mode 100644 Apple2ColorDHGR.playground/Resources/TOWER140.A2FC
 create mode 100644 Apple2ColorDHGR.playground/Sources/DHGRImage.swift
 create mode 100644 Apple2ColorDHGR.playground/contents.xcplayground
 create mode 100644 Readme.md

diff --git a/.gitconfig b/.gitconfig
new file mode 100644
index 0000000..222b71b
--- /dev/null
+++ b/.gitconfig
@@ -0,0 +1,5 @@
+[filter "lfs"]
+	clean = git-lfs clean -- %f
+	smudge = git-lfs smudge -- %f
+	process = git-lfs filter-process
+	required = true
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..3002497
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,24 @@
+# Exclude the build directory
+build/*
+ 
+# Exclude temp nibs and swap files
+*~.nib
+*.swp
+ 
+# Exclude OS X folder attributes
+.DS_Store
+.svn
+ 
+# Exclude user-specific XCode 3 and 4 files
+*.mode1
+*.mode1v3
+*.mode2v3
+*.perspective
+*.perspectivev3
+*.pbxuser
+*.xcworkspace
+xcuserdata
+
+# Documentation
+documentation/*
+
diff --git a/Apple2ColorDHGR.playground/Contents.swift b/Apple2ColorDHGR.playground/Contents.swift
new file mode 100644
index 0000000..a2c6056
--- /dev/null
+++ b/Apple2ColorDHGR.playground/Contents.swift
@@ -0,0 +1,26 @@
+/*
+ A Swift Playground Demo to display an Apple II Double Hi-Res color image.
+ Written in Swift 3.x
+ XCode: 8.x
+*/
+import Cocoa
+import PlaygroundSupport
+
+let testURL =
+    Bundle.main.url(forResource: "COLORBARS",
+                    withExtension: "A2FC")
+var dataContents: Data?
+do {
+    dataContents = try Data(contentsOf: testURL!)
+    let converter = DHGRConverter(data: dataContents!)
+    let cgImage = converter.cgImage
+    let size = NSSize(width: 280, height: 192)
+    let nsImage = NSImage(cgImage: cgImage!, size: size)
+    let frameRect = CGRect(x: 0, y: 0, width: 280, height: 192)
+    let view = NSImageView(frame: frameRect)
+    view.image = nsImage
+    PlaygroundPage.current.liveView = view
+}
+catch let error {
+    Swift.print("Error code:", error)
+}
diff --git a/Apple2ColorDHGR.playground/Resources/CC65140.A2FC b/Apple2ColorDHGR.playground/Resources/CC65140.A2FC
new file mode 100644
index 0000000000000000000000000000000000000000..1f3d4e2c95b6147e41461d5861ad803e53f959c0
GIT binary patch
literal 16384
zcmb_j4Obhtww3uZA%u^#ti(5IFoE{MkU&!he2YWINof}8@_TjjJkUaI^KN@x3fDGo
zB``cDw*LCt`$#imzD-^=3rizuw9h#@`$(EewEk<;kD0<<88K7Hw4_kT44-JXkhyPw
zP%0d0t!%mhdcLc^z-?<_BmalinH<W%!`%!^Is9d&Fi?y?`cb(DO6RpgsaNN5r<D#%
zns@j^%A@_X2p9_&>Lkw;-nW4$<=&R9bHbXjwrhKh1$ZLHKRx74?l|7yHxFa{B=Gf1
z=ZA5pp>=iM8F%(L2adDmtk{+rCx=o8zDR`%%FQy0m_z;1$j`1}%8LBBvpJrafhrZv
z*_~Rh1P$MGJ?NEOHB}pi4D@J+*+%D0pIHANGpNZBkH{R|^kAK|*;_%)3^)G6Sa|F|
zGlg$Z_nuFOlA)}$>*O)|k?L9Px$QW;j=QqZUVHld>)o_Uzg9hL>(Jj|oW;jI@WmRT
zG=<FUN+stk!;|+axgU_5Yc|Bs(8f&8^7f*0<T|U)mh;rv(hEm=an*75o-R*0PnWly
zrzaiwu$^ek(OAaww7*!HBXdBcYNpW3*`=-q2fT8scw$)VV5^aH@T|2zyIq_xS2o4=
z4{QFKyp#X?GGxgAbyyt<Uc^Wc<12cHi$A8wQ^LZiQhCz^X1)*}+S^Mq*r%Zj?<=$?
zd}$khg+*G;VM#7<vID<c{zKw?D3!&Q(Vk#7!;wJ;SIWt-Zp(Vd@NCHc;c?Dmtp6o?
zTwhJ3fxfvyjQ<(g-gJ<fwjeg2M+N6XTBOv8FY=<5URa>t<Cpx$Oh(>^%FxS04ds3Y
z9tTWFGNW65Rk~??@Ezq?REw$w{{Ihj<-JKGm++r+btV6SQJ7xGT0(i(Glf|j2hQ?;
zw&^acjVX1adUBuL$vUqc*U7bJ=Z|-0!T%oNKcZr6f5w;}FXq21(ZvW3)S0%<Ig5qN
z_(IEHSb!YAy+ZAi&@vJK=NEH6d~7ebSa-JPSM)-o)yyrd?9H#t>{WvOy={yb<6FaA
zlY##O=lH)Mb9JPHdeDSChy>T9cph$wf6c&AGrZ<Axq)TsQh;1X^pN#7eTz&iK#>@K
zl+`Yqkj%<~LddjH_uxBe;re@)e`qimwg)qgkE_k!_m=hV;VbXA;9=&PLAOr)F4zAK
z5L=Y-hCzBe@-&LRl<&6m57N4)t6Zfr!*ez=WbV&#7GnJK!**H2y-eSXgB1eSefW6r
z@!%Leq}p(><{$;g83(W<aQ4{JTtFZ=s<5g9AO0^q5BVo|X8l7PmCokJSkJc>&M{{s
zMM6yHo+?ZSJ;WG&xwun(aq<NFr=G9{dGZ2$&KhiZp8u?~2|5;b`Z5p6|KHZWDa_KU
zywGk+Fg{Xt-<@Amc?bMo9T=K_ns?lP?Cag9ABz7@=hF(2!BKl>^uLV%B9n|tjQ7;m
z0oJP(*z^e4=|0@W{C{D)K5e`VR{iS!{_=LCzPzGW!O&HIrIE`zdoNEK%^afUP3OOw
zDI|rxK!o^6@Tmr89<0w+bPL|_kdxeHx+#8_!*ZX3wNHzeFwO}#PUs=8G(1)2>OSO*
z@rC~(?`=NHo{~=S|Lp!-MvG&bJYalbTKJE$qr-J#1r{?G=dlx?{6EO+-ci&ZAjYWg
zaJic20&wd<kGeAQxgS{}Gac*yG$%kX#*L>GrZHFCnPoml!JxmA>5K8t4cl!6Mjf64
zqkVe8{k!W^eRJ|?Zo4TvuWY4J7fv)!R<KeaG6XrSLB?J&ez@lj`3FyjT@jS+niz>=
ztk*_6uSLxCK8U~s-(yU*$xZj{=o3BCoIF`r-Gcq{i*5I0U+)FS&Y!n?gFhD`-f4Vd
z8tc$Xb{yir4+j-bpLGoX`)2MIc1?et_N+vvuUmH)cGLO4f&X9k41G5LWJRZ6>ptfn
zJO56vr3rf>{|&C$3jp)H{@8sms?I}q>;rT&0REVR*iQb>_A}a}B&m{X<Z|FZqtR|Q
zFc)qPQ7NeBnm9c)a_uaGa;(37=$Z`H9*{1;5eI^uaIU7+u*buky5RpcV{|s(6u<M?
ztICj*yU_QX6Nu-EgeSbqYdN2ww2lE{d^vS<Z|y2Q+RHUweMBpE062pS|LkVq{P{cD
zqlUhK{um$Ee1M3<%h5O|^7?HB7P6&N_`rIhdT~Y-d<gbYeH?uu`1r*={_wyB$wU@A
z3mkj80(t2P!;bNk!T|Os*fB!qWw8WSku{vnJN3U{;LED~vTczZqu!qb|7Gr_gd)?+
z0CFHT0)f)4;H6m`{l?0ER+>8Of1dx~zH9i;wlJA!XWpeiqdm-Ya?6}JVe3x*tJi9N
zO!w{G$v#@y^}p6T%az_VHspw{YOr@i-N|?AFBli{A1EQX%<J%+^UbiVyN*+sqg8of
zm9ZuG9oE8}@Lx6PVYhp3s}-$^TJ6q0fAaMXcK|p6fIw_ziuW9G{4=_riGTDU48ISo
zS!ms)9OIBfqGe)y4fP@a8-9iR(p)Q7&9!80#y&M$30hePf7O6;8g$}!mtcMDDUpB!
z@sWi8G3!~9)1EY5`*TzLYX`I);1$y-a!;8-n9o)rCr+rin~K)|SLhJqga0q^{!M{{
z_`xY(%Noq}m*@R>{k?$yoPYX=<lq*Or954MJ$N}LM!;A1!d^+vV~mfRPfQloL}8*O
zNi*&c*D*yeu{I1(!8^(SX$QTyb`<W;68@9$VOztuNYhu&_5w%`UHcFS7z&u0u6Rn6
zYqw>d)A1QS)<0bHLjO0MKhJ-=kCM5B9((Y}WFhk_0io9^{$nmVp`&VKvE)9}2Ma+@
zQ5^_mU++-j_9gs}xyV6fCZ!PGfo{&jHmrIVy!#U}$OSL6CF$qxyXhxsoc|NR8&bDH
zcD1V!eVpf|U4;ms)EIU{A`E_F%us)fh7m*kk(-1$<gTh|brrvMR=|I-esTS7=lWko
zKm7SRhd<rYRhRc|)UF1omslL*qq>Vk{!2IDckrJ+4bMV?4?L7YcRx49r^UJ%8TOfm
z_r2%)cgUG(Qo@GukdU7jzki3ngzw)G1G;+u&apfB&((@G*n@;`+amrCY{5cu_41v;
z&GkR8y&13b{LeX_e_Z&c52`od8wtkj01;u#L2Q0Hh4)ue&L_=3(TT^LK1ly8WYk_G
z*pj(_g;#t}&&GetdOmYD#rhlmW3P>|!&sp4{*N3mvA{fQwLPgCE6%|q2T;dGsj&!7
zoA2LW5Bf^o0sm)QNADhOtDRl0{#bi^RPWGQr~L&3<AnIkW!!V`-(NX+%l#7kpW9xH
z`HygFB;rW`wrIHN55=DJ$;cSq0zif>t)A<ix^kYZ%qqMC7*hG=Gx)AqLyZ0y4SI+A
zBR2`}-|08>YZGQ6<6I80eHi>lV0vb4VY{0MY;X9S6f03hZ2ze0%0egq%~(K|?`jXt
zb1v@B&i@r7-V`50A!>J#U?12~_W$HR-o?l3KU%noaIJ{(yM6zD!S^?_$A^~#gV%dl
z#*~sV|H&3yV*xBAS3lO|4*V{3x}=L85AoNQKBEV|bcV)e=pxA19Mt5T@%3?5%sXpS
zYdo(b#rpHEt0eMs?qwwwO=p*@E><P9tTk7Ua-f1F^A=@5FSL90f1zgA)*~BTH02oo
zEdM!wSMeX7$jhNeB4=l*u}o3I|NM|vi4irj@8q7kD~)!3|Kkq6zm2`d*`T)%5%4rV
zIoHX5jEzyxet%nQwC5e@df#a;{vdBvC`rtJ&a1{c>+owEzIMzntT+zdzmGKad=7ht
z`Nb)zo5zgB_@WJ-GjWGnu!gaKGKhX07P}o`FWMsh@3q1ICs^m5y?Mwp%zjrUa~@-t
z82`!#qDER<Zh&v}4EfLVKN9R>BZ1sr_j6PH>&6S)Q?=9~%agTKN$UPc)!u4dOVys6
zE-10#=J*No{58M8-_SZ$tpX>|sSW(qe$n@8sgW!sSw(GX<TU@4-cggs2|anNl5Lg1
zoz^>1iD!S-Xr0h#KZWjcwAvEtnB(FCVM?9`8ZLYwpOBhq&$iT1Lb|#BeCkx<xFh4V
ztHCn(+Vch<dk}QhyY<+k%T~O{gC66Cw0NsBNQ5uap$a+w{uf1*?3mIu{0Vys+AsP+
zEj7H<)=i9umP5aMWc*V9T_5w2-h+giR1>hBl6y1EPSNBMzMv5?1)0N~eWXlDOtL!u
zgnC}z)=i$`%QUH>hVVOV9UpiP)d&4+(a-Owpy>5`&3lzZ^47o?o8^P8ck1A%+-d(1
zrxV}S)lxF1j9W|f9X4I>5LoMVx9T-5er=V$E|+v}YCotid55s}wzui|u)J4yk$W3K
zzh@FUM*4?OB9HBlS)jfg*-C)BcUBH=IHmo&ri-WGe|5jIjgldpec+lb!oQ~9O`9QS
z$ba#3>S6f*!3+gC;jyv)N%0QrA(%Z${~a+6a+)ggFD%-ci!#mx>?mwowLX-h&&>GN
zgHj`8K&*ea{Kpf?ol}rs01KXvI_9|GSDZs!o~}raB>}Mq*Ie1Q)MOjkfq!bqo7`~R
zp<6ZBHPnpw8lL9S^xMoST-8=I%Pf?|dphtbo$)urIT`H_s}l#biN2PqZH5}QahE0z
z#;c{?Y_@}@YkDSKna#v*LM7BK{QI9y{(tz{bc*eNhJSyMhfGp$%eW=_419^WU)`^L
z+oCkMTDA>Qo@uf#P!k)UtCHR*t`_s^i-VwlNl$D}^(T_|{$76f&{GG$V#T}^-};Q;
zN9>dJY}jw>O%IshnJ@fL-^ZPQn*V6a9(vxU4!qTJ%Ukt==4M-i|3Tdc|FadZo`sw-
zzKDJ84>YB*i8UmhJ9y<Dmi-naS-N(VxWi5H<0r2!K~DM{<utE^ASVQebRT5jD<!nY
z_(JM%g|G~d`Hz1=X4Cog7Y)8$bHYx-#BVMCA&ad4sRl}UT1c)wx=bg2ck6!y5f#jM
z_~;g{1&q-DlG?KNC5H{lf;txQe^6K&<442Yw19D^XS{zRn!?6oYvXIrxc|_t4SF9o
zgrGatXWGc~Dr9|&{FmA3)L-HyTEq2EBN|vv{t>P|Xx1j$Mf|6w)AVE{@V{dolKA+C
zlrK+#|5Hj=OX2LIHu!(=|5<*#R-~=-gW$c`x0d4W*UYPl6;-V!ya`0WjiR4Us|U?2
z*8d3){2!ROll2}V0&c(tvHj1)pHO$^Q7qEj?WCc5C4jDoxV{IQKYM)($k~Yh^eZGk
zINbEM@loEdw>AQ-|3O`El<WTCW{+3#%h?KT730e@*Zx3T@tesGUi~DRF9FeQbNz>0
zU8kGkcRMiT6c2-(2$Q-=-!$ugi90nD36RD37x8~by7K30{=2nQCF&{#<E3W(hb$W{
z`YEq;#Q&j-`LB<6^dpr>V()+9{{J)%@65<v%zqTMC$*R>$sdDtg1_F9brs&TF7}D_
zKR<4lH5j*-j24^XU;jM5B_0w~vlVKn{mlyF03@g!`pm0`L0wu<j`2f35BWdIJvaB`
zc2CYHnT)ph#|Flpyf50(pw+7B#NYn1r|;m@RL@ruJ%|0R(aJIIi`CIdJ*kh5C-_qQ
zG`_)-abwPjT=A%Aoh#j{mEcd`&Um$F+z0T&{9B2Pe^s&me>LG@{r|az^*>Q<^>1SR
zPxL4HCk7sT`Gr?{w}D7;O8-b#(K*!pEdL)vTduQjIDtG(&Xu?uI7Dn1e@$7eHSm?T
zRW0lCVe4qST*ZDX3lFK5%YNC%Dal9GDg9#=uPR}DKE_xBpF$$9+8U@}J@laso=Zb_
zKe7JZ_3yS9<b-+LHst&Y&(MYu|FO#yIT;vYeC(>RPVnpv-pL+YC6#J}hjQ*lcu2_l
zanbrut5Y)OxKIKvukf_}Rm^|dO0G25!U!K&KvUSG68{))0dVA33h0yq=gA$5Pn^@q
zjECq39p&QszsXXftebM~hpN@zQPYR$SCu}4rBCO-tna{RQUmHU81aA1^WMD`4{?t+
zO~0dZd6oV2c6k*Zg4Fb@Wy6wK|Je7@C-nb_|6*Nv*4p^cTKE^9zu&oLTyR1pG96V3
z_H65tm#^ph%Kh0S<iS7gnCwgFLH%J@weT<I&*BT`XrE60o3{~WP-+Vuh5ygqdB2Z`
z>pz}!(T2;s2Wz&}t?wt&Tl({#2aEZlQme@xeXk#9k^Wo#y>}jLzAkOSKGFPNsDEe&
z<6V>h;}@wT_&>1C9CME73*3@^@a3%;a}r=r?D(4QQA?No?WXGo2zHp3qkwC)zl2j#
z`H17h`0~iLKfn+9AMLBnx@uVuNj_XVO5EY5`0<lhmyDc<^dbMTUo&!I$Am{wf9Cxk
z*@pLT$8EFzV(p!@>#v;m!GDPZ7rcKnyr(=s<ppo#__)sVzl5Eexg>u675ba;@UNLV
z`F}JHlp;7z-{|!q-1q1=gg0_kwxnh}Vc@6WV-HGY>F;=vjNjTi-z!NZU?8x2`({;o
z;q$-AwX0jU)Pfh9VvHa8dME$o{BPocebn063)fxd?<_ySf2?s~Qp>7cZ0oVQ^71{K
z{XufGTvhkf15BrCeLPl(u$}&Y20z+!)4Ji1$Z=O9|B>JFyzgWF2jQF>{`-OIy|bh?
z+R8&9+Qt7pNGe2e;s1c@zgJe?##wy9?A-rEGDQ+lTS^0~k5JcY#D7n_Udh9W1SbKL
zT<jBY(xLr*4Xc_QtZ!qk?0b^f{^ptMet{qIKVJXEDwg%Yw~^qwp``t$_?)qB1~zi0
zjwa<jJk}BL|0i1Q&C(xySIb!?DPsKa{oAAH{d>rN;r&(o$5?o$kI|Up!uVBF^6WYM
zE584i>zy{a{VoyXccayXee9`!?lk{>@P7C$e9>D=t&#uk#(3@7%prVX;`h{>-p6t#
z@6i9ku`jHI9^&KFM<U%Dud-c+*WtcYU)u1@x)0B@kDtxyi8jUhN50-2|3iCn{r{(3
zp=sH0U{CiyC_ZX`(CTMZ%=c}pZ2xwBvXw|q4E(M6==fw85dd;sicc;wo&sl5zDAgV
zF|Th*b+7gTSYuw+i}@eLeDiUwi4Twc9^X28%1e0Qe^oWBYN9yRljv6i4?Okd7KS{9
zFVctn?|A<K8A7!nQHf>9G0;LDkpJ~8q`?#;^m4byaj#5Gi4YQjWBe<hh#G+p7ZP2g
z_1~QTE$e}ABSG}cRfU`4^ZQpf339?9sj3TkD6R0nJ&C9Zi@|%*{$>*c#rPrrZ~pyF
z14G_Ohdv1lVSac;-`~R6@GRUBh<u&+-Dq`TAG_+q>b8^;2k>6c$r``;<=o6VY@s(N
zX2$qN&i5XVy&jZzbDxASD3pX6wz%qz9Qv*gZ^Zp`94+aWlH|NpJ;BzXRmJ-@M5rir
z@%_#Ed>9w(qgKbap{>LHH=D)grXRlG^xP{y@=N;j;$U${Z7Q#S^Kh~X{wF7^mE+36
z$Ac0CjpskavHUY@F=Rk}992Zy(&6U6mVmWhZsEh4%rowy_20;icl6ov;rChnR<=Z0
zujMbb^gDk0SnB@{zo-WTJMl00{?Qo=MKSRylwkE?u`}%P_NWYeOfiv6$r$0%-)M$9
i@GtFrssZ@$Zo!v*2z}1%t1at+ZzI8}=PtVm_5VK)TPmsm

literal 0
HcmV?d00001

diff --git a/Apple2ColorDHGR.playground/Resources/COLORBARS.A2FC b/Apple2ColorDHGR.playground/Resources/COLORBARS.A2FC
new file mode 100644
index 0000000000000000000000000000000000000000..58041d90a45210749ff25e99febe6831d2c76724
GIT binary patch
literal 16384
zcmeI%p_0Qu5ChRb(?HX}&_Gi|Q$y3h(7^lk15>&>_`odNB_ds|Dbc;%?)zhT9sB(}
z-|O~S9_#!0{9ecF`hK>bpWEN-<|6L)s&Dq!0=k!S*;P}$%4u&n^(q&yrh1jr-f-&e
z=4O8_(7mhrM(rQ3rrxWZ_J&iha`9@aS2^tsr`~RE_SXX4yQ**0{_$$+y~=5CIQ1$Q
zucmsH)826E?dE2GEzrHI`bO;^ucqFsoc4xOuX6Efs#iJf4X562ZuZv#-Mgx9)c)~m
z>b=ToZ#eZT7q6yzmDApE>h0!ce=X3xtNKRmAFrm~tDN?RQ?GLIYN}T`?G2~iZf^G1
z0^Pf+Z`A(rYU;hpX>U07Di^P&dX>}OaO&;mW`8Zvy{r00?H{kE-m9GUhEuO{@oK79
zIqePiSoZsST^`Tp@%mo({dJt@XItOf=lcHt|L^8ze=X3xtNKRmAFrm~tDN?RQ?GLI
zYN}T`?G2~iZf^G10^Pf+Z`A(rYU;hpX>U07Di^P&dX>}OaO&;mW`8Zvy{r00?H{kE
z-m9GUhEuO{@oK79IqeOn-fnL8*8<(Us&CZ(@oMV5%4u&n^(q&yrh1jr-f-&e=4O8_
z(7mhrM(rQ3rrxWZ_J&iha`9@aS2^tsr`~RE_SXX4yQ**0{_$$+y~=5CIQ1$QucmsH
z)826E?dE2GEzrHI`bO;^ucqFsoc4xOuX6Efs#iJf4X562ZuZv#-Mgx9)c)~m>b=To
RZ#eZT7q6yzmDAqhegT2Q?1%sW

literal 0
HcmV?d00001

diff --git a/Apple2ColorDHGR.playground/Resources/HAM140.A2FC b/Apple2ColorDHGR.playground/Resources/HAM140.A2FC
new file mode 100644
index 0000000000000000000000000000000000000000..6774cc12d9391f383e366cb0498eca7e758e3dda
GIT binary patch
literal 16384
zcmY+Lk6+qY*8gu}Z~|XDlOVjd=sFu>bTCl6g<2kEZ3B&N<Uto1gQbej_AA&yf!TI|
zee`Sn*T3&eN4rmaX*(5i?>*;yew-6V2*WouA%y()3{5Xx7vGnzKOYoog_<9~9TW%4
zrlxpX?v=Z~9C)rs)YI<5td|blOuniL(Oa$+v{J25^(<cJx(mI#?3Sh(x(I}453-sa
z6mt2Rt-sLKgjUw9db%F>SnccO{r0yXydP$S_~CEA{Y?=@zMt<G4obOvHGh4jlm_z4
zGlH0_#o1saeI*P-2s1OEiO1%(TYWiW>A!sMYH7pcOMBnj%B=rdHgnlr;rfMUX;){i
zzNRndT-Vm>>)grE%AVpqET0ZcVQ8jjYP`Fg(9(J^U(M#ST0F=H4fAHYekq{^s&06y
zP`!08L$F@xaeu9>==SNdZs`?WR5hipct$<zy6bLQFCE;r3;ohTUZksUu2jyR*5mqz
za>S@Bnx-Wl*H?nFU)D6SMW9SW3(C5oY4)5gY<cgR{iJkFGzO(|Tqq*KuK(qi6f3Y}
zZm^}>b9vqF-+piDnOIroF|E1TtzN>)6{=hAi!-9A3lV?5)i18i2ZoUj%IwilG{b*5
zzx;dJ{b^8KcW;VWeybT;I?ziR>+7!urMaJLc90#E6p@%U>Q4=k(cHcg#H)FBSh${?
zWreES3BMfh3i7|OR!-|_VF$}vI%W$?sO-LY@cHz!YX|A4dcrewRao_h^$pkUUETED
zEjRn@_03Ji@DrM_bEN~;m+M|H&+)fhL8-eR%kgxi9}#A)pqrM^^K<hx>QCPi@x-rc
znGE_$pxN(>XSXpUW0MyS<5{`l+2{Ag+UM&@&e9`>#)-8=@UXt?x;Izr?%>LOzrL=P
z*_&bMh1&Az?eKQ^W>5-Bx~gYub~>Z={##AEz1;<s{bggkD&R!VRAQAj$`*H)SO0cU
z`cfJc_Ll=&&ugZz1`}$bbXu%U-1)#(3>o9JMBDUY{pUUR^%s{yOq=C8dt1xcPU)Jp
zzm(1jJu+PO${MeWr`O%Be`eiZ7p&lRom~XWwc>tO&x-g$kkB;lt7x)b&q}A+oJ;<+
z>c;gyW7*v2)52L{pF8PsBk<VexBCC>jUuezH}78D-`~$Do>!{zbx=6S=L)Vcwg#nP
zR#hy`y?UR2U-lxrHCEnD%qq5@ck{hv>Z{b-suqv3WS<zge|O#2ZZA`|WCaVgUy4zs
z``O&Qp4A0s52iH+guh<Dy#fDk?%&=UtpEQw0l7XX^^3JakUzLeNc5KmoXcJFK%h{Z
zEV~y$ItD&_u6Q#CE9mxtUF|7wi{|xQH|y3tqgu#ao#tyIc(MOV&j&B6X+N#i7a|JS
zHz<sU^~qX9^E9xlOe;h4f_yFOQ*}-@Sab7(!ZkaX3$%Gq&-%eF?@T*!XHCmiEj{0s
zQH2*WUfE0QWwCzaW~*`Mrq8>sOF3J_gDaN`a^jjT+=NieWf_CV^QR$7mCS9q5`Cse
z4GV9XnzQHT2c@b_HnP{ZgHpm4B-ohM8@VqD5yUh3_iNq@{d16Szlo{3nbyj}<Icdz
zRfL~Exa}9N^L|0|g#G<32zV1%Wkc7@NZF5j%ER$R+S7#VmTs<|yX#kP%A{8*8$!Q*
zQUHJX>(bndTD-=eY50vZMEK>4v$STx$CjS07ETLtuVslT-3a1_6Dg+yPA%4gxVENS
z!fF@JitXZAY0vf3`n2}V$hY+q?tAJby9I4sT|VDZ(Fc$nl=g{gt}rMZyogapwcEJn
zM%?<qb!QdJFUD*cdwp3W^5T^q55PXF6Ti9iKDe1%tHpf~!bz+gk*M7syxK2T<D#NO
z%3hq^J_Mk8wa(dJ-?)+2Zp`rE(6}Xf*OS4U;r%^0&XwSiyz9l?bfY>;aNTrWw|iOs
zbzaX`?KV6h(kNe`Xl7t~XR=;PXP;qSTTt=Ai@U;pasO32ds=80MVaUmNwxg2{xkT;
z?UkOnh8FR(#H^;3U9{p2>&rWBo#g{tN>7!<zQ57dsqR_V(2F&q?k@+~vlrmsqNX?#
zWTR1c#lh`aA-7EaGW*&8w_MxGecI1nf3D_H3su&+Ndz9&7hV}be9+%=UD-G*9l#*D
z`D*@5Q^Eh>je$bJKW@xY4A>EMH9W^&j|aWlN8)gkdC@QFg#-xDJoh`-y~=Jyp9)T4
ziS%{h89ccEsv6gqg(aOtI)YaCkL&-hzbIZjeMYriZ`9&Jp_a9_B>D!8v=NJ-eij&f
zqp=AsUdsk<6@~g<;?J&{RWq)sfvII>iq@XSt6OKUs@a<5<$G5FJ8<v|+FCUz8=%ks
z5B;r!Ibs(#ESNzF%m{UrpMza$FHpYueQID(dag+=GZdi(AE~&wJ|DzC#(i0tS=P5)
z(8*nV>3?uQvqxZmaC=bLpVu?N79OB9XKQh<ivIiLi3~g(n-lwHB#mp>`r>IwG>0>}
zFJH@4UpDxk>wJwE7;*U)^ekSzsT!IM7Qu<0@5evFu==cND86JsmjBhaoP4z?aZ43i
zMkI4f^}TsgQR1%Vu}4n(n17>gYN+4f_L)0)eW#Y;5$Xv45@!ebTJd`~wybBbO9ob|
zJe&4hOXSaph3g7%flK531TO=J`GzjDOH3sGc};-&3+wu-J=rf@7pg^WLH_X{Qse))
z%5JaM8@}d8c8lxpGCSIGP=q<HAP<Mi_}bN?m2u7Vn%lVQEyROT&W*wPbEuCSL08h+
z$Am6@l~t}5P~h7++vQy%u2poaI^Lh`7ju(-;nWW5Uy)+eAJ%v6liSkPR<;~TXM;2z
zB2dyeK(co~xg+kil8i&3B{DB(6Oqi8+gr%QtXdxZmvPDWZIKrkGI)#C4WnH;yFI(@
zPpVm1@Cs#EJDv1DpHBAeeOORW8^WlUbp_e{dXcYn_v-3-)~?Pb4F5aRi`h9h_&9XG
z++J_?iwD`c@9=fT!fcOMF2Di{m9(Xop5d`__B;F9*5`$lK-XaCh*BOF+ok^PzC5da
zl(nw@v3%{;vaAgw;G`^a?@6!nu>K!TU`D)^{u}+x4?e@Xxc}<aLEV)2FX2mNU4LTJ
zK*amCtocIAXY5SLeJ%66?j98UY$A}A?Z)wQt{Vw#%?;wZbSn6`Cxw0K3N30&x@6;9
z{`oKex3{Pe&f5r3Lybyd{e$JXd@gGg<@y6$p)0fq`frFYn&$~Gox#=T(n0ZiJdLn3
zb};LKD*T5Oz=%j66t6#3vsGJLyDor}7jz5p%tx}14M4`f>940sP6`zKqZy?6y^JgG
zur*uD=3ZRmh1fw5q!ST>W_UtGC^Xw&%e{bqa7pN&MO<M&#XzOVQZ?-q4+__}r=<b-
z%UoIR;68>|G~BB68HQT_mVZsB=h4i}*4ou}%!~VmAJ@n)+NImWH~TUV1$3~aq(wPE
zw>={_0RQPHuW}-=^~w2i@FtVhRdmI`Ti2zW=pvKnkNo<JnyU#Py*w+l@88G$cuZmh
zgd_TYT#9C`r=Pjc?uPD7_6z)61_9Q`ss9H5rCPd1=T<Ax-MEQN;t=Jw_m^Qn6aV=l
zK%I0~kNX+6Byk;~ow84Dk=F9~14FSy{C&26ivuW}-X_eT64%%%W%RH<@p7}zF}BZp
z>sQZvs!4Z;vo6i4B46905?_HoJfWFMWY#n8E7!%vlw5PpK;O`~Q%k(kY(>TBmkqkO
z+D`|?VQIfn%Li#e1qy2p-M#+2KRL}-6@8X{>Z<pR|6F&tev|F>g0veClweQu6g6;N
z>h8-Md^|`BES=(08ojk@=H(jO?fqm`OPUJ)^R+_XhJO_5rf$Ndn%^$L8pZzSXZblh
zc%`Ketb@tv<lxo%tM|o0L5s!VDSDho{a<&V-JqDS6NbB%))uO&;?BFvF%|DoIw-!A
zuKgF7l^zX#bgK<FQUwH}RD+)bdq00hbz>?uItRMyGWrky6l!$OxRgT9U8i@!3E!Ub
zFLTst0>6n@d5pi}{qXj;H|mU-nfBj?r3?yv>MgfbD_qB{4Ql^Zc9!m|DsCQ_D#omL
znBEE2H2VM8y)Ja|k9=*dTEN#(J?@&D`R|@%C@81~;{C$k)H$5TwbYaPqK5w^{>tO|
zWi}{kslrm30z>2q`=#1)H9MEBxoT;u|MO)%BQQY<{_%Ff6e5;((oVLwrH`Lb1Nef1
zRyA?`Qh%{X5iOp>x#fyEs^}m~tXyrLP9d^D??4CsAN(h^KOM-)foE7{MN_>5ajmIL
zE#z0+hl_}T3N=vrLIj?lL7C!OJaFM2J4c>58ErBCQ=XrzZ1hU&x9^GEX@Pg(7Kh+p
zk9+PSOv6dx3VAPinO<4fy!86j`quq(nH#WSXwq5G*_Q@c|3xiZV+ZMoFv@(3xZhi_
z(EoW?fWB9Q<>20Ng9_)O`%P=rHFr(3GV}Bv>4P=O%@XGO+kWxv&Aye0YiPS!XO+kJ
zmxb%z-azwP?vGpd|A!2uwS*1+(N=vvSK80la2dH$qUtGDFEPuO?E!UkL4TRc2lHU?
zld#jWIl<W&KIEEj7npUBShN9p$$dhPiv2>a_-9Lt5NRR3ggm>vvTN_%_2*Zw)}L?P
zT=lX(5>ZEQ3(OyuQDO4`760Y6D!xia*Qo2C)}b-#YuYF2C86rGs)nj+mQl^(z;Dm~
zUUj*HO@Cmyx2LxUrS|RqPk*-cLwKxA1cI-t3*lasZi?&cHo8@&fuI`9IDPdNvA>rN
zJT?#h|3&f}?%F~m4Fy$Qi}^|**w@A!9lD<NEXP27rLz`&saQCGYB4qsGv?jp>(W{A
zZ^axg1edJPC($SVC;y-q`PcJ_cvW}m)rP4_?^(@X+*V8L^nQGm6;amZ$$Qy_*;qZM
zc$WUDpCwAnxc29z*D|Tw@^k_P`f&i)pU4fB-+wdMIs!}8&(%V(9KaNYoHxOf59b%M
z|Mn2Jnfo`t%}|X6dT%`MK>_#tR{1NZDQWZ-Zr(+-4EjaAZi<Ac<z3sl(cg$hAZ}bI
z@8qS9;Xh}yjUQb{;|y7;|8RAhedgcW2(QKb%_sg;%ES7^n|YM{!aNbfGQDR`u3bR?
zm(5Rd{Xr4p0rj+o!uwK<h<f1W>{?oji_iE}fy>;`DsuXfuDjp;xV0Y9v9z*}sm*)#
z`)LOPR$lm#G8IbyhlzPupPVs$WBq`g$?WUK6noOeqAuCoSN-2{m@`c0Z;i~F7uWJW
zvPA_HYOYivJr1*g>jd++_3t!MqvvFfQMk_Q6-``~?uyTB>S)cyBUurgj-2F8FUwba
zv+mx!9x!my9G@;4ho*dxz6$PR3L@tr_<uw9%5^OR_d)-Gu^+FgHT$&i1+CQbvaV1r
zPf^^Ai~j3&W-GTGs6I{6vq`(SPY<5Mpgtwm8eS2X^T%aqSML4un<DOiaCP&e%tYC+
zgWCh?KtSL%Q#@i(G9sMKaApmm+1Dk=Zbszi@VEi`FXC1P=OD_4Dqze{ZTtujm+pU7
z#Luq!%n9j0ZmEQNnMjvC<?;OMuKUHk+S=+pzgj=uimBwo&_6RTwSxjPu;KwzPLyok
zxG86y|8jSnUbUg4x>A2pcU8CoS1q%s`1rc={^tRcvvwB!Bi?fU@UGaOyf2=X+V-z;
zW*|tCtkZ|{XUAJ-EFbSJ2N7MdxR2rLg&31ZIsH2*<mTabRSObEwU_?rxQ@HvDpsw?
z%th+Ey+7^07km|85oaLWe*@Qo__@_NJM&7|9}88wpZ(iv;ktO5)n{3sPXAl|Jwu_H
znE9et{<R!Q&wBMBe!-+&yrJ(bo}ru>A@%=voCkBZcsU|bDBRo@{;L?|_m}CbQFRmc
zi+gG2kFx)17xoL^&#&LqZgRyr93+@_=jc_1<<)^%{oDLena<yT(>$sFGm35$>ARUZ
z;~)yxKPM&<f8T3r1o~mt%B)B=geREo#&dBei~h?AOet8aW)l&0N0sw8H~VYa$Yen%
zIS7gec5QhsdmVS?b=9SXwtU%TKE%IVxBN1k$QXk9jl;}yS?WC-gWddPPxc>$gEwGQ
zdSWj9-bH^k=5LOjnbCWFi9T+sH_}=f1hTx`Y5ssS(DT^BzAj$Ti#T>It~C}Q9u<}S
zrayE;ObtA|6Yhy`@c37p9W|%fRq61i_&=CY;`k4_zWdSEsB&;g=Z6N`bDwy1z3P_@
z*hTvPxN6bC@V>JW-LVm~uCBg(e$R}~vt3LC3JBB4v&f5{fr@am*}>M$mxe?p-^{e-
z4r-eRCA4>{|4Lo(?7)gJPZYjFB<bbm>}NOqf_|l&HIc5HMjUi4tSwNldYb&j=TsC(
zoE7_gwTroUkoNt!NA-WBUziWVxVr8A)VsOaTJO=vvV*Vw-_l?7il=eOgVmCBm}Mq#
z(4bXi;_OKMlMI+f|Km?HX($1oSl8m2;-DCSfAW=<naO=RpD_Q<w<m5~ub@9nIpW^*
z@cckmZmzD}LFwj}IlMMoraOfDL08Sif0z1i;GulYMSmOrblrxVS<pnjpQit2LOK0<
zrJJxnvquHGI|Y4Az_Ndqd*hjhZk^ule{PrBliG3)h$_q}@xPDp2Yb&;a`w*?BtKpD
zyn5O8-CX`l>C5eX>5Ki5Ievg^v1St)_gD8LDC`k|0`o`MUtd1U^HY@JUzpP``)9Wj
zG5x}y<<kLMFX^QWGty^;waF=p#-t>o`Zz!!{Pl8OZ2fKd(3?%y6WT&U5zfDI%LlIb
z_^dEUqulun^J)Bd#_iu`|9dx~fH&%IKP%>Q+3NCsTwkN4sT=Yd7<D+Kv|l<cxYOB0
zKO5ueT&_nKQ=pocrQb|Tj(g-^?d$V5@wNX4iv?z-pQ&DY-vig+EE4~wM<tVaqwct}
zJdJo}&CloDxm(>{u*Hq@B3SltVC>WF%`(Y|`0;8smW8EpkU>Fzae)60$_rW=wUwUx
z;rs^NV#pp`gF#V8MbvD%HQY;3po+HOg3olnW!X!x1EJmU><CSQAM!O-D#5e{ge+>A
zgC2u4SM~G#+x6l>u{y6W*KWaz%pya?Y4<NX^~duY%uG;y&v2DMmFvSzQ%BEJ3$T?9
z=thV^HW61n)nfzh$9c<&#htjD75QNK$*2CCs;$e;g6D_$|DNks6_;mF2S2ku-CHd4
z`W5`ktUAcJy)?6ra`~J8quv2?>1ONs)$om+;(2jR(RJdAzQBGs>}>U4*WfSU*^5)x
zluRbq(5&7TEcjucO5<#Jb-Eawl@U}mPRm42vL_P^xbn2rpPaqgFI3YBxP$2%werpX
z#n)nP@A>QJOl_XOc5kRmp5xhm5$D2$3lH^kjOb1EKT>uV>;>V`jpOQtWXZWSF1sge
z%QXzTI^k)0dVf4DW^ASo)QiFt`27~sKiuziX`il%)&E!g-7LyaZ@cb(xhlDw01Q{J
zPT`ib>2ov~P)_=@mQgmg8d%_XRlx2%A=T$=R$$LrA}eN@zk8scD9~w;uQMEHfH#o6
zAskj@_0O?S%<2_pBs~9}QaQ;KVm;p*tP_E39(_>p=1jnH=`-|yaEtzDujTv$zDT>U
zkDHd?@tDd468;O8gHJrCL{(jxefb1V^xwcg%o<T!J0sq2eV^B|`#gJK0*M;w7EXo4
zl?l$*Yn^`e6nB^2Q!{15eQTyOu8*<_l`bOt@dhW%%nV(5=Kj}fv_-La9}}ko_$|mD
z{EH{dc~DK=${i?D{|jeuO)g8+(IEf-f|SpFs(B8zVopV)%cT43;_@dnJq6a+zbhw~
z?aTJK)m`i-hpN!W?fY|8QeAi)cFu)mEypZtFMXt|&ePSym5>vkci&&6ju&<yeEGUY
z5H`c*MgpCqtN5^a_S8>yQp1*Ss>+JWy`*8V9{KOb?-cRlcfb7mN7h$_9n~*Wlh&kl
z$qqUxD;T#Y?a7*+F{0lqj)Er*<(4&L#XLF;lRF#trcf%%akOJb9o?a^4eM*M8B0A%
zHB+5bhv)j;mY?dH&8TBm*6K8jhN{{IHu{gt5>`};5)wTlBcWJc>SC#x>ZW#Et5HjI
z+w7%1vGls+EKPVvlSIVYNgXARlAQ(L9H)HKXAk;IBV%MNM;sHV86|nVJx*S3T(&gB
zc|QqPQy)?vqFQA|jjBdPra@BK^qNLPx1-0S8B4}SMv*&u=7llZzA#re2gGCCc65!m
z3K_ViBT-3wXsy1B9PV<mi@Ps|FW<%X6w7!UhNLS+7E}FHv$dnFh@->%#m*-BkO-xz
zx46~g@}k1$G{W#7?YrYq`(AN$J*KIa_pf{Q;HM@_gXlQAnjEw*E3rUi>eIN5ld3p+
zyCZy)I4$`^z){(GCTfv^L}*k@FIq|LL@VWrSy2YJ{l!6Pyxl#CsZNFh<W<qBm7AWw
z5{BVubR34qlk>^XXPm<0{EOoj7)}1ZG%@dCD}U+orC75PVKPj@;jLqG?#al@fvkD_
zb$wOWi9h+CoOd@bqK?#qs4tF^!%}x~usCRqdG3g9S7R!PeYnCVs~@xe`{5|**t#9_
zoM<z(`#+O=Hq;uw_&fdC?mJ^9tkmm`Q6sb}p3+=8;#sY4T%>lRn%Oa|1o7ATt{A0p
zd)OY9I>{ZyKiolAE=~re?&f&Ane1*mLZwP|O;@82>nFqG^RRz+{-@AzO!cLq>WNje
z(r&iz@9x`|OUJ2Bbk#O0>Rw1@8)3LHnyCwap_}CNNk1w7T*VF&HQRFZihe%ap0tOl
zgUt)F&`DKN-Dq=jywuseOzot0WTYy3MXfyI?_S7k{N-Nx_dmb8Hyr&b=%ePFt#NC-
z7W4S~9lP}m(iA3XK6SkkR`er9{}9#>J5d-%A|&iAbpt~Me{bt=!%?_aH@v7rmvgZ=
zGW}L_iW8nsfHBLa0y2*Ucn|8o@Yw^o{$IY+RTb`88dJZcWG5+9u-Bd>Eoq*m?-BZ2
zYS<FSY8cipTAkJqRQhIT`r5BNMVvOQzaE97<hT_wYq|_8WT=z;U{*Hjf)i4M<mn;)
zGHWym!m%ob8q<g(eASJvMlZ;3Gbv*M2k0Uy^y!|Dj$b}esB80Lt!eC<-8OkJLFOU5
z;xRxp{4ESCUVHFA!=+(r+}c%kw@1o_%$Dix{oqK1TdHs#&#z)+ZNobnwf_-u*oA62
zQNvGZtbTpcZLJ#JrAzQn*C#Le^W>P6Iqfj%J*|LI=WdeHjJm4WQH(!W4l7Z=-A|5}
z#!HvU4~iw;uYtbBiDAEVYytuYz_aph@?!Ny*uL8a0q5rt%c@9m@!J!LE~DGJOpTuI
zK9vj@rt5Dbq@ZF9Q^Nev7VNUQ-Go;>rJ}ERL{;Z*Gb{L85%o=;*_c3Gxoi(khMR-U
z&WWW~(z>Ros;Xxm*FS28$9L!L{#_`Ub0TvXGk3|kW?Yz)_N6&to!!MQ*tcKQDJ|=z
zw|L2Od=KnhC{EHdL(^exIK4t_Qy)sh?V;I(8+^qhUPqhb69#!F<5G9Vj~c2{0V~>L
z{F8N7KEC@rQ@IP*`~)Y^{UonO_a=9&e>h8w?H76w3F}9VupTy|793N7cVyk|rsVqG
zhM`&&MOMJ}y{y>nL91)}(Oo#`!}escc`{gRmM%|-2z+nY(^8&>UnKjJQ8>Oo->4*?
z=&>WP`Lq#j)F(^wK9{Y(?=?-DAxmfNm9X9>y?b<tt??B97pNSSqF9!!UDb-I>IvvC
z5$)6k5m-%(m#(AD6Znr>x-fUm1QbM!zv<79-$~VZ&|gcalN4XD#bpcK4LD1iepgk)
zur-XT8I@OXhL`$b<uH8LT=+Y^^Ef#?JTjZ|^yq(B9vz2D9X4B)pU7&HiPlB*GU>yV
zN1owG$3YGL=Owk@n*IYHr0cdiOBbo})9%yJhF+KJPnNiIQsCaPEp=%C%F$3?WvNPQ
z!c#jm;AzK<d6ET<u<;g+&^uwXb(tLSyYb>GJL#BkUvg!NJ}Bec`E4Xsht-G)>R}@&
z=4z`$&iOJbQLw+n4$?-{qh$3NVLvGgiNB`}$?yg~f%toh7L8U|-v)ojq3&%@!b>>6
zlUx=4Q7D|d<LGYG`p{HkI{rf=U(@6ABZH|By4Mc3F<L07+y|9Q^&8ETAwHwo8n(yn
zp8}2d$v0`?gnd=oorEwiQk}o}cf-&>tfT7F%)Sk0c$$J|8MUrkJ1vKaPUB>})GSS+
zR_N<+eZ}&K)x-M4EIi&mrfiOXo`kA_J{yj|J&}B6j?mvP{0$eTDtZ{KtXVTFMyIVs
zLn7;^VBn;$L=;DTV#8dhC-^sDJEFCMXgGW(p~>o9FuA+2vsQ_!HYb!k@vuJn-##AQ
zHAf*o+vjMAD$L!*OBlA>8n&oK^cS7A!Wq>6E$I*Z<QOlAD#K9zj6nY@FS+AX*}>Dv
z_;%bv`B>YFT4MKTuryc%0h{}ZFklE!60;tb7vbo5Gy+vr_!C1-;D!)K*z#m@3j&uW
zEuZsKw=b3Ocp;P+v_kQry(91+hV+<ztAkU4HTg0et35m)Z^O6qJLvPO>6p!S7xZ^q
zIFP@Dj3c5MUTZ&|pW}zg=J6yN9<3zMW=rfjsa@l~HNKM=>_)p$0B0FT?D4LV2#@O(
zAQ-(|gnv@q<beG}c%rO3G6MVw_e{3CO9#m#*6*~Aw|7&`&1Mq)H+QL3PmiI&@*|jk
zTt9v%|MJVff1wKT5r#fl>Tcgl<#^g%f(^hQ3<0h?;VSl+AsBg%y{wpx*6QAhd3@-L
zVe9uzm=Nt?OcEZy{S60P=SiK<D*j?O>PMS6MU9M(D)5JGS^Bs7V>jYn?p@&<ELy~q
z{a@l;$Elc@x{)?Du?BGn@mKBl5PUdBc<7{>$%ru|J9M)rl@xcdEsZRO;h$7vWqa7_
zZjYnF7@UNx9Ga_9XDzJ2T~cAb>8~aIxFDq9lGQEEz*FPb&5Ps(``&3!7EwP_PYBYc
zKo38`14nz687H+PcFfu)d8V88VLv0Id$I7Qy`sX;ypOtXIbzimBmd1LMQ{T4j?-Yh
zZ|j2@So<Y}F}bfWSWyKY2wmsv!_s7FHF1fL0i3F(P`lFahW98e>`UeCrp8O&`6RWw
zSC{8<P@(XcSuind!S|`1ce@O0j<$!TgY9ATsM5gu;Wwz%$NXogERuZQ{CTu}56bzS
z(EVHLo~a1V!yFqIDOk`EmDtNzf=|#Y<F;osQuNzI^(g5Z-!Z$1>f{f8G7@vqX3IhS
zu~@i6Rk>KAm2O>b?k^r2G-w`6TTyEGkBhRNgy*;qfOtH*N1HNbb2pUyv-=JQ97X>*
zPbCv(o~%jyF+WZXl_T)C8&wrQslDq&og=zG6qq~HtDu1RVn<F=g(sZSCH;p~U=&%g
z@ZMmBPm(;WKe{^yTb8jhatz$DZRr<#JJ8|%IrwkU+p?1iDe-2Wylf=H@My1YHkaUj
zb~QAAH#N{|Et49Uh1hLN#7s`Qshz0yZb!L{cF=+D32wSYSD<L@6H*e7_~(vXlQ0v`
z#MWYgP!)4^uM(|umrK~^w|C7AgVsVcL%M|bM`&9nM*hd4^dGya&Zb7D>auo;D>ZmB
z+#XQ-QvWa7;mKslPttiTNk+u~D~x63EAfGUTt9yI<^G=%|J1gEJ65~X{+|vY*<I9y
zJk7B#b+w7{<^sSmRV1yaooJ(VX&y6oY$O{CmDG-=BT@QdxYjtWuc46dsA7Q<CgG`8
zC+eqW%}{a=?i;i{tj~W<Jt-?w9^|IdYNjs3F6bNY=^45HWt&~oV|(&VA17?VGC!nt
z)*8_Y^|^}@X^9U08)cFHV-zN}C{?i0M8~!0#nQ393z~PLbIG4FQMw&!KqC3;RiOcZ
z11#AUppD!?m&#9enJ}yx7tA71p(RyLGvu3$2oEAFPj`~dqYn!H{{;LK14kt)phtx5
zQHUN4OZ1_zenn~2_2Uock_Ej=n3-0I<e9Il3*k{U(AhaEcsBz!Gf^9ia3*^HrOD>5
zc^MsVQjLP*mbyjjJ<==DhS^N|PyPQHo@ni+Y)xesM+N8!^xqUI$+(pyJf;Y<(;hGO
zPlid^lS3mi1L|Y_S<&P0ZZsT?+Q;YrxFZYPL*W0HI2C>FW%Q0%IPHl>j~mtlHeqyI
zs<;Tze>@c$Z0;y_`iV{c@Sx&_pTZO1^(sO$;eWk(GLro_9B`~x6gbk6PU(?<sQ>oK
zlmXi9Nf=6QvQpirU3^_<1O5G~|E&u(tc<|vaoEUstuE@Wu`(Lp649~gFpq*c$br5{
z=IMyKDbSBkaulaM*zA_NXv%KXj>5n4gpc7D$?>q=ZihRelZ3z$)UZIe-%)qxe6_pV
z9efT`6Td#Q@@M*Q2q2mKWwS%q>8A$fHM?jU-WsRJ$thN}eNX=n;`w(!+!ejQG&U}m
z#*0#ox{IMnhCS&O9_vr)|6%w%7KAU8GxZOaRgZ=(I_>-J9S$<_d!n15*|Df=DkMBQ
z-eCX0al9$d-=zcbqY*y&A~lRUs_5G&&-S==LC^icT>T5Z`N@amV53WiOibwig;d~g
z`ul~d{_(pX|NV=4Z{0&-Uv}EC#pY#_d!xG&e-k^Z##++xvGp~fTbbBPr_wm=9IpO#
z$iIrVbQ%si#&|Of-@a?cX1qG<F@y12gQSO!c2c|SG+d^*c$LMN|Bp-NO=rG0{WAtW
zJ}^@nr<m8ZnuqFi{x@#NZ2Y%;W?+clnMw*zclIg^9XN0x;|wBq1Ig@)CBi4C;h!S<
zn0^P>i~e7n9Gkn*#$J;l$`3?d0*Ocb59?EIOyBtTY5nqFmhR)JG&tbGJTiAT$sYKJ
ze?X2ZB6=jHiOODO&oM(|mEV8u03w)OqH5_IBr59s8Mbc^w@0m2rJfue-`(M74Uud_
zESY<`+Qa%&)YfsoKR54wn4(WtGP=QB&pcY3;4PaiT;BO4L(`ygeu5XH2Y2@5{LSA6
z|4az|nH9;S@Mm;6l;{gPtt0b8eV6*L9CqagS=yJ2jSPJ<2&Ya6<sVmtnm#(89N(Rc
zMw2!ZGytw&w8w`&%+YO+r~dyUH33`b(_1wol%tJVV<k!VVfybbV1XY@XC~rV8LHHd
z2Hs(}v>WvmhmVpuYDHWm$E9JZnPLiNI{0s?Q$*om{p7HX1E;o+r4xTkf9}v%&^<C;
z0DptMOD1i*sqh!;=*geLWSjY$6`dq^IX&yc5*m4MUP|;Ek^?vB+?gJ9lJuS2#S_E`
z@891XfCwLh6s6xoXCBrMPwqy??Y%JEF&d^d!x?mEb0^6?Sbfr3Swdx#-1lX8RNttR
z-0&!()77%R_YQwV|9@l%s_N?wbezLvd$`nW?V4JPEwz}yo%CVA{^mG!q0pn-aMd^e
z7ls?1@HlF{t*dqQ5dO33yNBIS)N#J_)l|TXs76i_VfYjH4-=LwGjo8)(wI~Ble@5>
zqbq2bBK3cJO!rU!zrp0NJx<)W$EjbEof3M$j^IS%5Bq)N->>s`W$OR`DKdH;x4X@`
zQ0z~eq7Iv!Pb$>RA>Ku3x)pjBRnEDvT+yAwF+IL^;=uWHVyd5VK9RK6=>A(xV<+k-
zFWdA<%-=6eCmL=@tPw3};Ezk@twKLQRl?0w#z%9U>@4k?JIU^$?y){Qh<JJwCs!BD
zs_)W5Scjax)nLjrp4Na69q_4E;1MYip}p7Ho}@b4!;}gGeTg!yYaJQd+m#IdSB**+
z@*nF%CpdDxSf4X!va^)#inGDQlh&wpxvfTN(%H0DkF-{hFsB~wHT4VgAT_Nk9>MZn
z{)a1NZ!`*LD&b_Qxj0;6I<7R7(J^d9C&>JLgV6!;v(!iavvntCGXws|XmrvB*qT*=
zMVWf<nhyTI+Zxg55CweKlMM4$xF05rc9t3v0Vm__3cvT&CvtuAuP2@a%->VEuc*IA
z{FUEZ$ECqyztmg=jl2r(l{kGkzZM>%yQkstNpo};F4J0S`2Q2;e;~U<|3CHL;lyra
zEOlj##4(NEVY&<ci9a|se>NRYk=n~#MVL-%xP4Iv9ZW??s&bT)vnS?Zt%2f4Ep|Zn
zWj)3pzlQH`k4B?r`|e3V4y_Kl=EE(`JJgHr-ZMLg-#6>@{vX5NHlFAe>20L{PI+{d
z+B@{u$01L>OLTL1N5w2M!KX5PILL1^`D6YyM$zaRWG&nDG7sku`^Rl8<M}c1GVp&G
zy&a>uH<B&_{5O}n%ot$IWcYF=S>I?TkKe8cfAez2r#g0duBDl)hU|ZITalH`tY!#;
zIw?NM7dqR`=<3pt*=Msf;Azkfj5y`^Z}lJc+eApUj_l>SzVf?pj#Bl#@SPC%Aui_K
z@Lh9;{d(w1GHk*@DpkmIXq=RNXP4fPeVDi})DP}Z1^)kX3H;N69@9Zywm!UbP}H3$
zdQ2p3<^(uE@rb{#_!r=xPr<P_V+2oi+g<px+tMv!(4OEL1<!Rn(yJc}gH`m4WOJ_(
zHa90|uc&v;Fu_N+R4N<&uOG$4PS}iInq4L^vQz2E`5RUGPM_8uQ>e%Ivuo<sM!8UL
zoB*vHiq~3A?JkX;Mk^BkOuwLQ0c4Q=(S6zymFS0P<)}fGp?$=`V&)|81Gh<r4z>DZ
z+HrN0n(i;1qlkWD)v$sm84HIkHRut4xK`4~$6lXEXMzv0tPj+m#$7KL!Qd(S52w@r
zv$!RAvXwfru&~Jx-?hUluTLh-f|-2Sh?}a9q>^|im)qp#q|^E!Jkehoo`60@eMz5*
z$)rw5;vW~N)hka%fPn57XKsVgie(O^vtHorWV)Lo3UD?EOA7&_WFFx&^1p%p<3D{p
z$(d-3q)ydQJ-E4IuJZiNQHI;}zO6yKv$zAr!hQC%0w2~FPXORKGcYjF4$tKdq6Ymw
z&lJ2=6a62X7qI80h^dXEFgVQ69h~flBR)smJj8kFatcr>a|-wyAC>Z%onP+Z&9TGU
zUxm0hWFF7FdayX0;e$&KQ&!IMc>ZLcx!?Kd{EjJLTb+SJbdO5)Q}@Yx5O{g`cQU~o
zCK+Z{ey#I#WyNyLPFN8zv~j`jV1sCE!=QphhB@vDdUeZlOPrIBM<ZT$!=*8Z;F(~m
zg8znm`F=e9A<T#S;OvP?R4_+W5)Hb=%jxug5@im>XPVh>nWt|&fnx}_7YZL|3Bzsp
zRH|m~7*?8RI6N7{n{A{1?eQjRYxv2-rLH+@b=!kQw0IL0G(Fgt2f5VJAJ>T4$My=|
zP>-(IPp}e|z0SMgq7XOdJhfwv(N)oQO-(j7!aJ5vc=El*VCk5%@1_RRCrh|bo*PkH
l75zj$?HF$k%;w$dX0tsamMSc9LH{p1B2T`i@*n*F{{h#C$>jh5

literal 0
HcmV?d00001

diff --git a/Apple2ColorDHGR.playground/Resources/TOWER140.A2FC b/Apple2ColorDHGR.playground/Resources/TOWER140.A2FC
new file mode 100644
index 0000000000000000000000000000000000000000..38c6ee84a8d215721417cd8aa1997cee198d3f2b
GIT binary patch
literal 16384
zcmaKzjeFWww(d8WOtGI#i(NA_IUZWsae5r_kuxyBwN;AjCXK@_)XA}+fCXt!F&RLR
z+XQGrLI3*wtqsIZ=RSA45kiQ)_Ff<Fde;(F%48^|PWY!%xyCG+Z^SF68BfL=@no*m
zOU31mgqcW}bG^(U<K{iTJ#A0@`y+quxAF_lThqDK>JRyj%yMf)lnQN!_qh_WZ(Y81
zYQO&aGyAg*r9S)m_1DQ>DwjGj<L0l3>?JMpBxRb(Bl9qwNSo<Krjn^x$ePZ5zvzFv
zD2|HrsmFRee?BYc8@W{eX66v5p<qCT0&2(JKM#di%fF8;v$T^qFwK&gIO&~~`n`DK
zekopxH!{hScrRfl<7T|XVoGKyUC#INS9w=<>o0si^44$rzN}{E&PMr`#eM%+Nr;3E
zW!z26JJu24CA)Q?PJ`${DO=vJ#?}#&GZMK{294*+@tRT2lpZBcTKQ6XfOJ00_0pA-
zR6ms-Sieu(vr*AU?q~b<bmT9lLyq38oiE8W5B0Rnf4-AI7$YCf*j8Af2=)B|y3i}o
zpXh^p$xNH^#;?78*}}g4#zrz%U@gg<8Be|M^-H-Dc5P3wyH&}xrryk-&Ha(Dd^Kxv
zwKZ$cT&$4%HDQ(>+RPdXgm(1g0d@3y{?loA_Pc(oE{@XYf3QL+E%Fm)DqT8hpx>`&
ztzc`G%y=igeuLfja;)S{@}w-fu?BBM`#w8vi=}Pe<p*ynC*qxn^buB4DjYl)oh!xu
zFa9~mRFs`IH}38$?VGkL?WkaQxgL&Mde8i_5$|PMnStfbhQXHAVpm>nV4AF{^=2^n
zy06sMf%!1;(2OUnMEYsGr_`@@poC;B^zbpVw(P?ltZOiLKm|klANiXh0w3?(#m{Zd
z?4@luLw>v*AM`6oy7F7I`P2=HRz1tjC#{M<&$E_(Qb#AVi}q|evcrfiQ!VZJ!K3U*
z$O!F(WfdYLaK0Z7a<n-QhE`HT2Jcqmby58Lwe26_QyYn1(oA8CM7o4c5*b-tX=m%<
z5fOrx)0Ic%Hx+C!XPxtn7Lm`nzp&=BANnne2trS{2J4h{gjkC9yjvfwPhS^_e`4AH
zFXaE8$bmVZmxw>YzF&#|-eUzj=0lEVDPEqn@*dLLzCRny{0(A|(V8y&_6*<cr}AEI
zJ+Cb%dcSty{EohAXzl6Kn}c~!VvnFpKh^W{sdO@4x!;SMCy7y`pG=#%|1=xOe!OF*
ze@7qQuVSJ3wB?UxpY31F1OeOrXgVSWyu4{{36ch6)5zLMSjtp}K4%39Vsjb!p{0NF
z0rtmxz#d|tcaqE{tU)Fb=;h2_YUaHMdrp#AClODac=<{?kt=6fNR%=1KbtAe=hJr4
z^;^CdPo@)bFlIR--=~lCnVk>iRsPeZ<@fQ1)eY+xVlQ1XncGZQy*ROMm4m%_uip}n
z?Dr)TWXwms9C41Vuk!PmKSezHKcA_*J8SzA``*mU^h^`W$-MT?`9JPzj|>|>fKzH(
zUdp#aM`}mM=2|@dUy6epSiG03yszZT`Q%3Lk@u*PcdewAI!X2_{hrn6v(7lNoFCwC
zE@<ytOkq@J<xC}>z*|Zt<MUD)?XSnadJ|Gx`5)D*_+7OXS335P9t=n9<$Ac&Od}s1
z^x{|fN*)Brl!KM&U<Mw<lW2dCZxylZj9Y_P$pm9SOHK^IlaOf!&7)8-f@K2%W#H<z
z79X^?^@-p?&<-rM9@sxT`m=l-318^DI3&?^FLRZ<nzb@5(5&sxH$3oEaJ7>6^6k9$
zestn}6j!z_-wsPit+JZFAQx9d5O_<@gY0(SHo}IjKMAwWbG`;9tcQI>1g!IKBh%|A
z!Fy3AzLzu8DZyv*3fI!feiDQv2JyR5aq&6X2TKqS#N{CGJu>@4@&DCe&$b<~jmH67
zq9H8M_5T_An>{O;Cf?$Wbn@3y?sqbP*j8dR5$~C)9MZwXw%;z|gT{zV&_;SYFDwAm
zwr=r{2%Zo*2kCc%r(~m0#89&Hn~g8ma>)GOn_Kt~+4f(J_<&sT=X8Z=glm9><VN$5
zC5Vrv;$^EmyYlBnf9Ct2D!YhmGVx+I!g54P|L|bF!-zWH-$K}B5s$M?BK~myP(}Vt
z2_-y=K@29|3^J`=<0KU@<H*h=@cI<lw+9Nu&2~N+AI5vI4|Xn6XB9t$Y%(FS*!C-;
zr=3H||2QHR|NJhewz4zfseS*?%Wdy$?T9Ddj=++ZPW)s_y(<vF>!&tSxz=o8HFCp~
zq|VLed)NpXu1Nm%(Z9$qZutg2Dog+th+hbfn5(=WGS4{!?KXa&BKu8C5%&*wgQair
z%;&e|Cq4)1;d?2KeW~}2_k-YoTsX{u=eetX3sz_LJ!>oSSaK5luM7^k({i5tXRxA^
z2CE+EO!fUiK=yBhGyvmsX?sH*4Al8Q$U!^mMbP|_k5%Ncal=Bif1UK=i46IFHki6I
zZ{r7;KsoPa%wEE3&3>>dv#UOH2104r!@hV*BK>{DHb0GQr4J8E#^dKlkx(S0)2d{B
zw65&^U2W@7(7p&6Xo7Xwk*%GQtUyKNy&f`GqL;$ngQ@4c68Re*oQ^27V0AFN;k1!o
z;woR@d!jw9!N><aewb}J=jtf(x3Pof0^06^dxk{6%}2|zW$V`swITeQm?!Rgg2(th
zukTA{Dt>5|4$Mrl5B`Eu<lm`_|M?p}mUlsdIryI}f|og6Nvvj;7g?fUfYSc=VZFER
zkl22`f%pGPrpuM!|C)dI67keYLp*~~+L5Dal``cw<u@J-a3mZcAS`_04_U>0wwQWT
z_~{M)1Pv8F+S)md*muI}RZ#7RcS0Ap1g}m@JBJ$26a7TIiFcX3EBHSVnD1K+%hXI{
z3*kNC$nRTkr1p^*T+BWT*y8)F#GAE>BR?g1O#44P3*B#-17z4mB-=J;=bvDMpjL$7
z;cDPb2jq7!kJ<+gI*5B4QU^31QBRyS(k=3Os@F5UyhK<ToFzj50SiCjE5W`ZXgHf^
z$dAN_nO^zE&STL8QeID0M&&;vG4aXKq0YXy-NpQGxDU~vFsZKkSI8U$za|!v@NRdO
zviK}6l?Q$~^WKo3@*a5S7Z?84%*H?Ex|=U!c^OOmdu)U@4#B_h(IH&+Go>sqP|+Lz
z^TTt)xY;~w!t!bJWPqM4xklg14Bu3O@Hi@ft4yNbdk-5m-Q1wJwSNRsu*dvWW{|JI
zH~6yA%B1?0T!Kmk9f}=~mb*s#g1+&iblA9pcdLKE&6lbVsC`LD>w$c;fwxohzVYB3
z<Pqu*a{fvA1S{lIQy2ieaDBfmaZF81q7NRb(jCbuG6DffIO}0h|ApnP0Vq%vtUQ0`
zd}rx`8Y=Y7qTfb_o#)GzFkAd7NKOM|J>hz@!K^jw_fsGI+7{1YC(IBOfiknLXIdXX
zA~N6Voxuv=AhxU}5J2@XfS`TL|F-PUzI|QX+AwtddwnyL>S<HPCEG7g<-Jr`B}-5W
zdlLg>{?8=}=bU+T0q|3NAffr6k|DK91W5+bAnOTh&|9xd-y(-CGw}&5?7rxsNBzlB
z$2^^gd@tS*tkuf_CGUS7Z&=>+3I^zbKl2Sb4|qQslNglzKl_mX1EGg%-`F`k2%n*!
zpgOX*LxIx|Qg2R}{Gsg4H2*W#JL#pb(oZ*FAyWDE2h<?s|2P$hS(cT=D;9g7QFjza
z#m`P(YaD3j;Xzo7b?)qoodO!&BlbVom@+KvZ)<rbIp`0zV&~u=1BRc7U%e^MDpn~-
z@1dW1@8x^FMn6F}B$4}b+@rrSh?6JC_`bD(`6R4R9xF^2#kv1O2ByMDAVExhzE956
z<2)apsoAH?H%jemPuyI;mG~3QgKx-eW&Zb@l$8o5$+z%d^6%FmQ;*I_1K;E?KfohF
zKWl{4&@6%{z*G4fSOZ<dlr;Yc2X+045JR={e^&OJ^8GDj+i3OENO<S*jd-blgnPxQ
zysUD*%r3nR<bVZu02KhX$)qx=6Zo4cnSoe^qhGxld~QQ?O1Y~XR*9E|K^>hxJb$PH
zI<`;(R*#?G53BFhEA!ku-{;EC7Bv7dLj|y2f*?FNYYo`L6`6${1-(ppHkhQWL=H5T
z%8qJ4=CdP#ZL((sL=Qxat$mv=OE?nRXC)Gc0eM}H&^~-;8KFC2VgK@pWMAwf!`4SR
z;CXaD$gJ-*ug<r8_W*y!$H{b3*IB(2k6o|6uwFOw*%Doh<x!u?fvXa1VRbI=40>+{
zJXm)l9&=T%@xwZaKdHZMZrt#TuQ#YO@$-~aoYHkNOL@9(M91IZwol=s4Oo%xzY+C1
z|4;qmeCp2@vjNdsfrW`sMnL>bcvv73*|GH+xe}JE9}n|j$*vP{{bVlnuLc$ejjfVY
z8}Z)1aL-4}_>>BHkjF;k8)PE?cla;S&kCrMir$+_e#Jkv2t&9Ic^_cL;t2m(@akQO
znh_aPxj(|V2PbAOE_Gh6k@MgJu<sO~g8;+`(SHTgZ<Bjv{1AK%4uV6VwOedwdU_sY
z$wtBG?>|RGAY2S*RNod4ShDXws6e8RKM){g((j3X-EVDxL%C$8m4_2NYQ-zPR6k*Y
zxHHj7nT#*_f9~HU|FafYBiKOiC6Sg61ad@{ahDy-2+fe6DIe)KMtKL%l&ku!9CZE5
zcN0ArKOJ0H)Il%a%Jrz}QhALkZ&+Ebg5Ap!A9!X9yleX^W9M}*bUGCDp+2Njl*S)}
z=R1#g4vq6|yqyjmb<*@l^Y2+jCxy(kvuo%zu2xVI?1kAR`W1Q(8cTvbOFE57YnTUz
z<Ei&aaQ)mkml{bpPR}G$H15+y323=eqlv%Lebn{Oa_2hI4D;^&l6w4Kr`zC<G9H?`
zk4EGeEAikT-4^tpI7yOeT^LR)_=7c^x)vA|_cCrAHZb!f{=|=L4iWkXXz-j|%5EjM
z8leEqxRAK_QnOSmL7o5M0X9)@bLSb`rh0%IGKW}64?0b~6u9qEK?$#(Pu*`Nr?rZM
zneP3?7t)pb(AUym;@cAAa1gz!<xI;XSG4`%90q4QumSph!oh9Y&n#cE@vX6?`|q!h
zbpGF<*Z(Vk%zq8~B4#cHHpA*3;{SMe!YW%8Y)%d&@+AJn58G3C;cO9i@!-mBoDw+~
zN}Wc)pit=IoVrwE@#8`C?;MHkbj&s4sfXlz?D2cNM^2zRld2Ngr8Iq>bcMQ9dQK97
zBlW(BrasibUU6<|{&yoF5I(rOL+tO+0Te7?*czE`ZZWe6XNdn$Yf|A4g1t;Ro&b+i
zIg{+$)1Q@k1LUVx9Y3Vg|9j~R`n8D%IuLaK6XsDG{AHWWzps0NYRe){{@2n|=m`T2
zAE{sGUqmx^qu={KsgtL<!A8;=#LImzSBW=H8W~W4I)v!Ux9M;UgnbJG@xPyi^3s23
zgS{2-*_#gNWayn4;q>8hi;=g}yG8ZBq4jPn<LLBb@k{ytLlnd-^iLCSuGl}Z7jK<V
ze<C@>8j^YGe9)Z`E(`|Di}ND+A7%b9ZRK6*!0Fu|n){OfrRNpdqE1%vPu10wj#uXU
z4ZCgc^9j`$9f0N9^ih0GqC9Rjr1!=Sy<qEogLjo&>OJ{B-*_V|2o}4os6^=k#uGiP
zA(`AR#Rp(l2?d&FD7|GK9UwzSBy@jE&eGwXyDGeoA8_sO`&)*57}V8}oPmF!@1QT7
zg1;HamZ$$thGAd%WWJRf`d%iv?kkH25$!}dGX#QL<Y09qJ`TYbj=QwH+(g#bUEZLA
zYw$dRwQwu!K?QbS+}?kQX9;wjEHbN(E3(Obs%jnk$fm=RdSt%ufvf8gT9z+#_)cv-
z(+%5~TSUjg`N{u8J>5T6fbVms@DSMn^?}9)J>fF`snIn5Z#*jNY*aE!xkNf?Hpu_d
zp^-7jp$}@nG9E7xI1j>mi#Xy8zsz5e|FPCO|0BhgM5sciR3E2W)CwDy=j$WUj|WKY
zmQ0tW>ijkNIVeQWr_vwrR7&EK@lgDvcXE~SsQ-oWBRBA#*cbnA!--vVHKbNp&&v}B
zb{p1NKwlFS)CjP?WBDqwVLRYV@1#W^DfMgOAoYmKgHC8eI*v>EW->$e#TVNMhIJHu
z|1)&~PE!r=>~BFF^z^ej$qcgZa5`}y61Jvl7Rk#MrH&q+vjSV6uMeOGt1b}%JmHGd
z{kD?9UcWMv=b(*TiJB^YLKoJ=Bc_$<6;D5Xw9lBH`!>6$7Miy6!+2vx_Y<7d^Wuqu
zIE*9r*YJClFE8IIb%1ZI&-JVLKTqFa(G4o@)=4Fu+W0!-@g!AxaXpiMBzaJttV)DX
z`_1rEo<J^&_|(r-%(FrKYmgfI?3k~m{zn562L^xXyBqNTfV!WE8%UFeH4M}^zl8vr
z+r`UtFDf~CzSGK=H_DlEf6zzU=yVWo<%jeGY<#$q-l9^6pVF;M1b5MM1KnVt9qGK>
zeOP*^GotK^4xip<dhq$<Q0QP;r3ZIJ{|qv?e&wJUMJ|Q4h2gkw$S%Pj#LuUL_rJpe
zc(Q?JTj<r6FA_Yqk`!)(WXrH;Qw%xUa-xSF3GJK*c3DRV)*l81^ryzTdHS*XrT&p;
zE=ZC7-(3EJZTyKRfU`MI9$M3iMQ45O*B{o67=wSpM7U;i`tb-EtOz9LpWp*K4yniB
z75Pv4aW~__@f>G0gV!7vCQUEvIQ+{_vNhLptGr{>t98fqnxn$BFe*++gVW~Q_S70S
zN7lq2&PTIRVN$4N$E%5D$KXyRVgzADhd1K>c=p970rkZvFMs=j4+5%w?RH{bw&Qe~
z)n;|iYdTFYisWaqf^K~z(wZaE-(v2+TL=#MTx%|h6Qq02s6JWEZ}7^$)5FMF;7-5@
z8a$hkYyUQ6X6AMr<TX3lYxe0mov7o~nv;6fak6smIG0Y<sYSgyyF@;6+oOPzRgjGR
z*|a!nkD6V_iN06~2qFEj-oXS|o)J<{HdmH6wpRD(mn^&EuUhY9yT`S<lkLVXobg}L
zwNrD^=Uzu7vw~{<x;eEby7KYoGy#-q(T1B(ixZdqH@oAS^B{^P^$7j#yQrMl_3q1&
zF<GL)`3qUY3K^F7srn1%W{*g&#yotX8hhnVoLXVbvD>U79bMFEL!<kl%id>H0PNTQ
zY5I?AYhsOxBWux|G^gnB$u2u)&!O<)%2AExNd4)XNmN=PSmg8|Y;U3wGSX@=yHl?<
zJC5g0V)$3=+I@vB#!as<$#$(_y%wt#{@WczyY*^pQXg9U%@*wi59C4tR%A__s#_IH
zF*=u*Ov}?a35fuwfy?7-yy}-t6?w9JgwDm#=B?-dtlFtx$Jpy}w=k0Vo3HSsNtQLR
z@0L5_>O}nN{FA5?{Zq6Wb)0Urv!{svi`}Z|E?T`jQ0zD=+BJ{>#zh`)%E?C~e0b55
z3%4P-F5jO-uWJ*0OQa9K{G~ZTr;`|x+jyJXmYDo#B5gxLpMf<$GN@rcJJb7<hwkEc
zq6tG=<3cpgxV3x5k2u)RoiF{sZ$EwFUo5SSN|vKjA7{09JbU6)Yxr1f(!6GMOTQl$
zhs9BII$v0m!ZcQ`5v%p8mY@%-W!ZtVz;cPi;73c<clj!y7K&t!{4YOo(RmgPXLU?C
z<4bMVsMB<ak80uixGNSa;)PTm3yFf}g2?ADHe_Yp=Gy;7D|fVj8?v{2f3rY+_Wa4^
zr%~A>J{0wuwP?+G%0CZ}sJf2Z5&z(G*7IW(1gh@garhtd1BO2>$^(c+dpZ*h5Tk;m
z3_}~`MNFv&`n^E3bMGRsysj^;577tFWsHp-#~sEd+1lPqVxek*M_GsXV?_Da9I=L~
z!%u&TBWf=4f8bA);gFBEPxLSLsziUs`I&ijeC@s!|5q39iT~4)mKKa&3I_7ut--7v
zrXM?#y-9Y`<mmo(JZhp1cO0u``3T*3&e$T>>iDDu(ihpi-+euO#kImhBg2GQI#IO9
z)P_2X5QEEMU8_4^Orq!>+fQO=oBRae_7KfCiJ+KQ_nO3EVZ8VI9<ks|3*DIKj_1|d
zHC_lx#wN$zy~**?{?nq({<?)>td^ZbYxNrV`19ri!Qb$q-nmla{p)*n9h}~Nuz9h2
zXN@_V#`;XwfqVzA>)e|-UK1-?qu6C(B1i`sSF>Z{Z%WpigoB%RqKEY}hkb(9)u{1B
zJ7Pa`Hfzt%qK4j4@Y$Mm$r_djXd~@R5Q!1oJlkI0c`FX0o%(gX=8mJ+1<@v0y61qZ
zlfr0z?f6Z3zB0iR{uo!#TUdqYRED9C+VZQjv&}=npUuNS5N(7$?0AU^tDEHIi%*_8
zm!VbuCG&uL<bc&K;Q`_R&SexIlq_Y9jz{<aHfa0ze#ZOcj~HxEYva9d+)3@$I+@%M
z2|OAFhW_8#myd1MuzcaDr8v%nSg1PVe^#>&`jG|TAw=JV=)(hf*hb#pHYhzt6yhV-
zC;xz!puorS?Tf=*$;5Uf_|VyYAU%^m4%rzfLw<M1?~wVf1MBIy?7UEOyZDvF28bk@
z0f8okg}bnbzPTSE|N0V*tf0-GTa8{kTgAKV{BPgYA-tyujKFb}vHhu7<d5T7ul_`0
zP$I7GysOrSd$0GZ*)IN1Rv-!|S#(kFkb}ChZoS)N?{EOLe)`Eb$cBiMEsEF7fvxVX
z@$c~7cUqEN@LyiPoY>1ZXA*~k4>#laCEp}^MB^~8F7|)bB&M<>*Bhe&_V3_<9yY&@
zfdEB()MvM|(d)%eqr##vlxQh*#c~YUe=rc*ytvTTe`#Ao9{&xu4>#}ZUWC;@zxt33
zR!fNTrRdQ8AEzo&-yGJ5?kjTtsOhj0{yAfJT&UJ3e|wBi*2qA^!tj{P(^UMRW5joc
zNUml(_0Fbq*@<4l3T&AgjXzf7tlIuAprRM*m($S2oy`}UZ2l;;;$(USd>iaK9y#dt
z80m${UQbvqNZdgqEiBHp*o2!y&uk*<1qx&As&CJfv3d4fu+E^#2C76P*7S&+EweL@
zPX=E5eh@9_kA)qt22+jQ>$>J1_!hQ|y@ds6rfW@#?61jhE@GYa{k-yB`TCkq+RIBE
zKOR&c#GbOlJUY?qvbi8kKqA86T#qj_Gkf{l%h2xYz)SoP4vIzi=aSEB6Y%k}{(wD$
zdT`V0Lbo|A;Pt*A`%7_Q$xm=WDYVqZI%9Y3f9vUuu&wO%n<Ha=cJm7Q{KfBxPP0UP
z?Hb+-yOM}&wwxL{RkG?6=LI~eN@QLa&<zZf%6A*qAQ`Z@m{E^_0Fym3_G;!WTWtr!
zhnt;Utg?IHQ1ICw>~JGpsVANK3-KUk?`FGrVpZ2Z-M@CTUR3Z8&yqDDUyvG$Sops1
z4`nRmG5Az6GX8qa-3*x<lnJBh$5GA=G1gN~Lc0gVzZmYL0rnspjn_bVWRm}1WxK9d
z;LjPO72!U7-W=^!>$Sgvf5_Bh|7mL>l?N<r(d>%Vp0QFbA`(8^JXq$O=J2QPY4>y~
zldL2NcpC+yUrFZ95(QbJo{T$b{^pLFR6k8>fGD$OtH)KhhJ~lrH8lX$m#$K~Z~dRB
z1d&g!66|t1&whUXgz0U({|Wgo7`{CH#hNI)aJ^?Q7ZAM&2P0?8^X2hd!8Yf4bx-zu
z4fB{Z-xjcCVdRWC2Njz&)>DnX*hCLlVRDZ;5ENj>NLN0gP7x06I4`yz9KX;W9#qEe
zoydd0clA5!aX`WTUu{3R1d{$DLX9Ki#te8@C;E*8de$Z}qP{u$vR8nIydx*q$HEEV
zxZSqIpVYHb%kqo9&4W!ld=?1p2GyD5R>{RGc*H?#U9tNE-iR)YfDy2{YLNdA!=cTU
zcj!+!)W^~8v3Cr@6~NZ!0{;IqRTjt!^O(#h)^v^*oR9Mw-@}H?XlMr$C;RsyPb0!c
z0GtGi4*A>&Nc7tu-~GiW3;!qe^0%L;W&#&kyx$?~Nc=_dI&8q<+ZWGYVBfLSXLYzq
zk?cQPyz5BzA^#GA^Qk)~a<RgPbr{;q&`aPjK*h@w$-|qj%ZIy^L-Z-Whh=MfUUm$d
z(;iPnIA$Fam)ieZ)_{d-&g6KEeB`x>0Qmp3%?jY7`Y8Ed^G}(aee>_hDLJ2CA==>c
zq1w_qyAiF=wCAu>ywGcU@5c3R^fg?=ab5h1jITwL+pfqyu_`t~nnXYRU->X`>4X%i
zL9AN6^Q`ks9<<|q=-%G`S+M^n+rA8U1BO!1o=_j!eE!j>JC}$+BGs+q#Hz8O`?e1A
zY);&<*d08oIkhO9Fg6B(h(lP9FHZn}dio9c1M>N>MaLzJffN#djNsYdmM3=#zVY;k
z8d#4PQL@$YbbXZliF7n@?R1^%J+Jw?UOo1RtO@-GsX%IQ5KrnZBrS?VYs#Me;wQiH
z15EK!i#uau5R#d8#r|}BqGwBq+u*fQ|1sJ#xPEqd8U1ua{NmOcqOyQ0i0|x8Vzt6G
z`S+FddC-6t{f2pKWE{|F_vQ2NuoWnbUx34PrFH}83B5VX%In8!^m6xbRoz}-cE@lw
zhw4x8e-#CdD25!HWe7jfzA5K0&ZywWFgiJ=wiR^!^5S^<rDT(q3)b%ugH5oJTWz_Y
zK}<)$(a084!t&u8#zUErXKV7@T}Hszw3jiu8I*2FASmAkl`nP;#o(K(;dI_%J31}b
zG0FL8^h<tL-bAP1EtR!9s<mUC`m%ysf63s)_^_V!)zzyZwE>UXMaCu#Kafi5Pu9&p
zh`2<=&Hfik`fp$S_S2vI3;&`y2KR_RtU^|JSF6#55{7t5eZnfPV`Hl;^)C?sF5!og
z3;BZyjIuScqzGCMjf@70Ar550S|f6LYv|7213Um6c02E?NFF*}D$ZK{I_tf|FS){~
zcU*ih3LA5WMBQ}e*9ihLk?;>#NP$Q!bn6e+Q=@BkE?j39`LsN5RKC7NzdpqCsBAjf
zu`?#)dd&{~r-?gxH?}--%d-B51xt)X$5F|>NE7}+{VzNiHr|8*xH6AmnG!*4_%Onc
zUh#yljE?GRQJ0&>ziZ$*zArwVb>7wXI@w9KntkOAv3`v@jJV3e%LNAtqj&T-_F&&d
zbT2i)>uv+R&xw8ueSug+!%F|g=3#W%<p~vs_ETr9?av}Eo&;EfULr3t@O^abl3SUh
zDm8EYH)}K}BRL~o369|&;uG}Zq(3D;{R90+?Weoriz)1ss1dx1V*O_ioCBr|QU4zv
zzaU18P3rZ4ihWnN{{wcYQ6WU$)RLD6aD)B=tn=ErhJT3XzlD2Of1vuO3y9vEpl;0L
zC-crTdK~bv>u4={eN01Fb=+DE#AXjp{b%Q3_r<pK|709W6%Yu~uelRY_d2@|L}v6C
zj{GPEPWoXu_+6~!!oK$CzDUG>`4WyfDS*F)T9$5i;W~@$mtVl6Vf&oh<Wd-aVBJgm
z*t^I#l5vSL?fJ@<SHpNnHyT!M9BqLIs{v|W*PXrV?1;|BqzJZxLiAKXTUf0-DuBc@
z`ta-fd6n-P0ymuTs{ehMProDY^V47aelvv6aTlD+;BR@q9pFprvFyLoeIx(>bP;Xg
z$2IYF$D#MJtp1(o6NgcsNc3SJa)6KD-8&Q}T7Uu1Ky7D?CSmT&dDr*?4G!|C1jZCL
zf)B#z<d5U|i|5Ef3)T7<59z)mk7SYdBTSe&v?lz6@jyqQL!OlmfOP&A+e%lzpbvRi
zSm;E)d24=nsFM1BOI?HywmILF4{vXtx6v2Ri2!!oX|`hHW9dV^s>8-zvLVd)n=Grl
z6g0%c-A)1QD-wMYgZ#9Y{m+GsOx)?7*44A;7#;k@I%iV-EA_r>kBx=a$CId_lfl1R
zgS`>8F^PifcRYb`$Ih?tpqfi9ldbVt&8kH^F~=Ild};#N&m8QN9{{}Uz9SBs)WS2W
zmMA^yrnCFPFqk|TIFm=scwp$=P(A&zt63-Sw~b&>R<*W|QqNfc*2d=9Ya$NBX})s1
zZg)N|AU{UNb)3Su3FEGV0O%giEc$JKF4K=JGUhQogRJa=jG_Av#%3sT7CzhU7~X#j
zw<qNPubj7kzm_ks`>n{<5qxkxqK?RC_toQRlYSm7VDL_Q-}D~HixX#5=+`IjCgQ`p
zPW`JW`GBWHRWWn`rY2oluD}xc<nq~p{QQD(Cwd?+(O))0+iLs8J?(js2fF_OF0Ap8
zJEV5F&W`E6>%Fnl%RQ<97zRfdjm)O*q&b$^^e{MraOhCSeh>#=#ntk2If4wt-WfqD
zx{yCE9v#XLbEy|@?&A#f5!4rH^tItvi@n!v>goa=0qQzoST)un{NvVOK61PWmhth7
zVf_|2w3Q87+3eN`=zBEo8G;)(-&n@K`t9YN-B*DN2b*Vk7K2e7cwY^hqE`t3L4;T*
zc1?$5Sfu9lefP|#@}K$S1?j+bqq<s`^{j{d=m4&<TqLI-PS!W@N?gg@Siynk3irrX
zslq4OYGIgV5ey__BkFK?7_}eI8zt-dfe@>Z{{>0-KYckma6ExpPR;Iv0psHE;%p_#
zKEF6!EkN)6!%~E`GCP$%XD|=9`qztS$7yAG>O$soV4G4KILBzB&htMqF0m)fBNFss
z--Y3l0nMjTL6J)Y3o@(Iw{=_UfY$ZPp*`Y?p)R&<vD<1ztCwBy4$0t)!|q}=eD7_Y
zCmrCd=kf>dK{70uJlme!8^So`nFI1)c3%zKU@<jGH%gWg{6jt?Y=6juDmFd+<m(H0
zGQ|qi`DH|^AZ7D!Iq-jChzRUvYarfaKHB@OK*yWE2~o!2IT+79>XT!7zr;SQ55DIY
z?ejCmT?L-dMafSwc5!_1OzLmlUt_0qU-y53{~L|bJ+d&*V?^s`7shQJARBaZoOkRs
zcD+Xwe)(1^If*{_kV7AGOdc4ji)WXoKS%F4V<Lv!R2Lt9g-x)|Ci>fTKpbstuEVx@
z?u)Q{PmiBm*xN7khV9M6-8-TM$wqvr2cmguRQHahx3Lfmh`o>_yoNQz{Nl7w1&fyX
z-!Kfm6g-!sA&>DeHYefmk?ibd5b5MQ77{*_+^5c#`95syQZMN7!3&~vyJPgN_lCz{
zdz*-Feno`|^QW&qZBE_VBRFYul~<W@B_(WAV|*-i`H8W*LF7v3f%}xbsRAsN+ii3&
J*FSvo{{k*6FBbp+

literal 0
HcmV?d00001

diff --git a/Apple2ColorDHGR.playground/Sources/DHGRImage.swift b/Apple2ColorDHGR.playground/Sources/DHGRImage.swift
new file mode 100644
index 0000000..6d9cc8c
--- /dev/null
+++ b/Apple2ColorDHGR.playground/Sources/DHGRImage.swift
@@ -0,0 +1,159 @@
+/*
+ An instance of this class will convert the data passed into a 24-bit RGB raw bitmap.
+ The caller can access the instantiated CGImage object through its "cgImage" property.
+ */
+
+import Cocoa
+import PlaygroundSupport
+
+public class DHGRConverter {
+    public var cgImage: CGImage?
+
+    var baseOffsets = [Int](repeating:0, count:192)
+
+    func generateBaseOffsets() {
+        var groupOfEight, lineOfEight, groupOfSixtyFour: Int
+
+        // Both HGR and DHGR graphics have 192 vertical lines.
+        // The screen lines of both types of graphics also have the same starting base offsets.
+        for line in 0..<192 {
+            lineOfEight = line % 8              // 8 lines
+            groupOfEight = (line % 64) / 8      // 8 groups of 8 lines
+            groupOfSixtyFour = line / 64        // 3 groups of 64 lines
+
+            baseOffsets[line] = lineOfEight * 0x0400 + groupOfEight * 0x0080 + groupOfSixtyFour * 0x0028
+        }
+    /*
+        for line in 0..<192 {
+            let baseStr = String(format: "%04x", baseOffsets[line])
+            print("\(line) $:\(baseStr)")
+        }
+    */
+    }
+    
+    func reverseBits(_ bitPattern: UInt8) -> UInt8 {
+        var newValue:UInt8 = 0
+        for i:UInt8 in 0..<8 {
+            if bitPattern & (1 << i) != 0 {
+                newValue |= (1 << (7-i))
+            }
+        }
+        newValue >>= 4
+        return newValue
+    }
+
+    struct Pixel {
+        var r: UInt8
+        var g: UInt8
+        var b: UInt8
+    }
+
+    let colorValues: [UInt8] = [
+        0, 0, 0,        // 0 - Black
+        206, 15, 49,    // 1 - Magenta      0x72, 0x26, 0x06 Deep Red
+        156, 99, 1,     // 2 - Brown        0x40, 0x4C, 0x04
+        255, 70, 0,     // 3 - Orange       0xE4, 0x65, 0x01
+        0, 99, 49,      // 4 - Dark Green   0x0E, 0x59, 0x40
+        82, 82, 82,     // 5 - Gray         0x80, 0x80, 0x80
+        0, 221, 2,      // 6 - Green        0x1B, 0xCB, 0x01
+        255, 253, 4,    // 7 - Yellow       0xBF, 0xCC, 0x80
+        2, 19, 156,     // 8 - Dark Blue    0x40, 0x33, 0x7F
+        206, 49, 206,   // 9 - Violet       0xE4, 0x34, 0xFE Purple
+        173, 173, 173,  // A - Grey         0x80, 0x80, 0x80
+        255, 156, 156,  // B - Pink         0xF1, 0xA6, 0xBF
+        49, 49, 255,    // C - Blue         0x1B, 0x9A, 0xFE
+        99, 156, 255,   // D - Light Blue   0xBF, 0xB3, 0xFF
+        49, 253, 156,   // E - Aqua         0x8D, 0xD9, 0xBF
+        255, 255, 255]  // F - White        0xFF, 0xFF, 0xFF
+
+    var colorTable = [Pixel]()
+
+    public init(data srcData: Data) {
+        // Prepare the color table as an array of 16 RGB color entries for easier access.
+        for i in stride(from: 0, to: 48, by: 3) {
+            let color = Pixel(r: colorValues[i+0],
+                              g: colorValues[i+1],
+                              b: colorValues[i+2])
+            colorTable.append(color)
+        }
+        generateBaseOffsets()
+
+        // We assume the A2FC file is saved as 2 separate blobs of data
+        // The data from aux bank ($2000-$3FFFF) is saved first
+        // followed by data from the main bank ($2000-$3FFFF)
+        let bir = NSBitmapImageRep(bitmapDataPlanes: nil,
+                                   pixelsWide: 560,
+                                   pixelsHigh: 384,
+                                   bitsPerSample: 8,
+                                   samplesPerPixel: 3,
+                                   hasAlpha: false,
+                                   isPlanar: false,
+                                   colorSpaceName: NSDeviceRGBColorSpace,
+                                   bytesPerRow: 560 * 3,    // 1680 bytes
+                                   bitsPerPixel: 24)
+
+        // Get the pointer to the memory allocated.
+        // The size of the memory block should be 560x3x384 bytes.
+        let bm = bir?.bitmapData
+        for row in 0..<192 {
+            let lineOffset = baseOffsets[row]
+            var srcPixels = [Pixel](repeating:Pixel(r: 0, g: 0, b: 0), count: 140)
+            var pixelIndex = 0
+            var destPixels = [Pixel](repeating:Pixel(r: 0, g: 0, b: 0), count: 560)
+
+            // Each time thru the loop below, 4 bytes are consumed to produce 7 RGB pixels.
+            // Since the loop executes 20 times, a total of 7x20=140 RGB pixels are produced
+            // for every screen line of data.
+            for col in stride(from: 0, to: 40, by: 2) {
+                // Extract 2 bytes from Auxiliary bank & 2 from the Main bank.
+                let aux0 = (srcData[lineOffset+col+0])
+                let aux1 = (srcData[lineOffset+col+1])
+                let main0 = (srcData[0x2000+lineOffset+col+0])
+                let main1 = (srcData[0x2000+lineOffset+col+1])
+
+                var bitPatterns = [UInt8](repeating: 0x00, count: 7)
+ 
+                // Compute seven (4-bit) patterns from the 4 bytes.
+                bitPatterns[0] = aux0 &  0x0f
+                bitPatterns[1] = ((main0 & 0x01) << 3) | ((aux0 & 0x70) >> 4)
+                bitPatterns[2] = ((main0 & 0x1E) >> 1)
+                bitPatterns[3] = ((aux1 & 0x03) << 2) | ((main0 & 0x60) >> 5)
+                bitPatterns[4] = ((aux1 & 0x3C) >> 2)
+                bitPatterns[5] = ((main1 & 0x07) << 1) | ((aux1 & 0x40) >> 6)
+                bitPatterns[6] = ((main1 & 0x78) >> 3)
+
+                // Use the bit patterns to index the color table and obtain 7 RGB pixels.
+                for i in 0..<7 {
+                    let colorPixel = colorTable[Int(reverseBits(bitPatterns[i]))]
+                    srcPixels[pixelIndex] = colorPixel
+                    pixelIndex += 1
+                }
+            } // col
+
+            // When we reach here, the 560 bits have been converted into a row of 140 RGB pixels.
+            // Proceed convert the row into one with 560 RGB pixels.
+            // Each color pixel is quadruple in size.
+            for k in 0..<140 {
+                let pixel = srcPixels[k]
+                destPixels[4*k+0] = pixel
+                destPixels[4*k+1] = pixel
+                destPixels[4*k+2] = pixel
+                destPixels[4*k+3] = pixel
+            } // k
+
+            // Double the number of rows.
+            let evenIndex = 2 * row * 560 * 3
+            let oddIndex = (2 * row + 1) * 560 * 3
+            for k in 0..<560 {
+                let pixel = destPixels[k]
+                bm?[evenIndex+3*k+0] = pixel.r
+                bm?[evenIndex+3*k+1] = pixel.g
+                bm?[evenIndex+3*k+2] = pixel.b
+                bm?[ oddIndex+3*k+0] = pixel.r
+                bm?[ oddIndex+3*k+1] = pixel.g
+                bm?[ oddIndex+3*k+2] = pixel.b
+            }  // k
+        } // row
+        cgImage = bir?.cgImage
+    }
+}
diff --git a/Apple2ColorDHGR.playground/contents.xcplayground b/Apple2ColorDHGR.playground/contents.xcplayground
new file mode 100644
index 0000000..63b6dd8
--- /dev/null
+++ b/Apple2ColorDHGR.playground/contents.xcplayground
@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<playground version='5.0' target-platform='macos'>
+    <timeline fileName='timeline.xctimeline'/>
+</playground>
\ No newline at end of file
diff --git a/Readme.md b/Readme.md
new file mode 100644
index 0000000..a3e7244
--- /dev/null
+++ b/Readme.md
@@ -0,0 +1,15 @@
+Apple2ColorDHGR.playround is a Swift playground for loading and viewing coloured Apple II Double Hires graphic files. There is a series of articles at the website www.battlestations.zone which gives a good explanation of how DHGR works on an Apple //e and Apple //c.
+
+Because the data of a Double Hires graphic is highly interleaved, the demo must generate an array of base offsets before it can proceed to extract the information. Note: the "pixels" of the graphic are actually indices into a colour table.
+
+The "pixels" of the graphic file is assumed to have been saved in two blobs of data. The first blob is saved with data from the Auxiliary bank of an Apple //e (or //c) from memory locations $2000-$3FFF. The second blob is in the same memory range but from the Main bank of the computer.
+
+Each line of “pixels” consists of 80 bytes, 40 from the Auxiliary bank and 40 from the Main bank. Since bit 7 (or bit $80) of each byte is ignored so we are actually dealing with 80 x 7 bits = 560 bits per screen line. Because the “pixels” of a screen line are interleaved between Auxiliary and Main Memory, the demo extracts the data 4 bytes at a time, converts the 4x7 (= 28)  bits into seven 4-bit patterns (7x4) which are indices to a colour table. The 560 bits will be converted into a row of 140 RGB pixels.
+
+Once we have a row of 140 RGB pixels, we proceed to convert it to a row of 560 RGB pixels; in order to create a 560x384 raw bitmap, we just double the number of rows.
+
+When the raw bitmap is filled with all the data, return a CGImage object via a publicly-declared property. This CoreGraphics image object will be used to create an instance of NSImage which could be displayed in an NSImageView.
+
+References:
+a) http://www.battlestations.zone/2017/04/apple-ii-double-hi-res-from-ground-up.html
+b) Apple IIE Technical Note #3