From de8cad5750a8c227c36db2f1805789e67938a9c1 Mon Sep 17 00:00:00 2001
From: Antoine Vignau <34219772+antoinevignau@users.noreply.github.com>
Date: Sat, 29 Oct 2022 21:20:41 +0200
Subject: [PATCH] Ading 4play

How to detect & use the 4play peripheral card
---
 .DS_Store           | Bin 8196 -> 10244 bytes
 4play/.DS_Store     | Bin 0 -> 6148 bytes
 4play/4play.2mg     | Bin 0 -> 819272 bytes
 4play/DGR.DRIVER.S  | 432 ++++++++++++++++++++++++++++++++++++++++++
 4play/DGR.DRIVER2.S | 449 ++++++++++++++++++++++++++++++++++++++++++++
 4play/FP.DRIVER.S   | 349 ++++++++++++++++++++++++++++++++++
 4play/GR.DRIVER.S   | 393 ++++++++++++++++++++++++++++++++++++++
 4play/ReadMeFirst   |   1 +
 4play/TEST.DGR.S    |  82 ++++++++
 4play/TEST.FP.S     |  71 +++++++
 4play/TEST.GR.S     |  82 ++++++++
 11 files changed, 1859 insertions(+)
 create mode 100644 4play/.DS_Store
 create mode 100644 4play/4play.2mg
 create mode 100644 4play/DGR.DRIVER.S
 create mode 100644 4play/DGR.DRIVER2.S
 create mode 100644 4play/FP.DRIVER.S
 create mode 100644 4play/GR.DRIVER.S
 create mode 100644 4play/ReadMeFirst
 create mode 100644 4play/TEST.DGR.S
 create mode 100644 4play/TEST.FP.S
 create mode 100644 4play/TEST.GR.S

diff --git a/.DS_Store b/.DS_Store
index 4fa27c34a4dfb9a3e60f37cdb2d3d9cf66583de6..448de3a231e7ea3e77a0465c7b2b75f069b0b9f2 100644
GIT binary patch
delta 264
zcmZp1XbF&DU|?W$DortDU{C-uIe-{M3-C-V6q~50C~ODhFar4u43#<QhQZ1Cxdj^w
zr?F3L;NQ&7!NO4wl4oTwVJKk8VMs)%0gA!^l5B3ii%U{YeiBfM!)?}1gD#OHjzBhw
ziWCAW3Nj$BfEYhnM?hq=oWM)=jSUU#g3J&>1#Tei3i8Cp!tczJ`DFq{m>^!$04V@^
R#{fi6E|BTn+$h4#3;;YXG$;T7

delta 118
zcmZn(XmOBWU|?W$DortDU;r^WfEYvza8E20o2aKKY6X%9@);P488R7?bJ7iilk+zR
zN-SpI%+A5W!DzL)N8mTRATv-I5J+$X30IKzjfLNtC-bWWasV}h3}u)c&ogy%ttdM)
E0G?44?f?J)

diff --git a/4play/.DS_Store b/4play/.DS_Store
new file mode 100644
index 0000000000000000000000000000000000000000..5008ddfcf53c02e82d7eee2e57c38e5672ef89f6
GIT binary patch
literal 6148
zcmeH~Jr2S!425mzP>H1@V-^m;4Wg<&0T*E43hX&L&p$$qDprKhvt+--jT7}7np#A3
zem<@ulZcFPQ@L2!n>{z**<q8>++&mCkOWA81W14cNZ<zv;LbK1Poaz?KmsK2CSc!(
z0ynLxE!0092;Krf2c+FF_Fe*7ECH>lEfg7;MkzE(HCqgga^y>{tEnwC%0;vJ&^%eQ
zLs35+`xjp>T0<F0fCPF1$Cyrb|F7^5{eNG?83~ZUUlGt@xh*qZDeu<Z%US-OSsOPv
j)R!Z4KLME7ReXlK;d!wEw5GODWMKRea10D2@KpjYNUI8I

literal 0
HcmV?d00001

diff --git a/4play/4play.2mg b/4play/4play.2mg
new file mode 100644
index 0000000000000000000000000000000000000000..1deb4317d0c540fdb4ccfc68e8c42a39f4314a68
GIT binary patch
literal 819272
zcmeEv3t$x0x&Q2L-XyR=zzw2KMIiyyRNLFss*NbH2`f^yzH8T3dxLL#AJzN6y{475
z5gEGNzDP^#-au?NX5)l+lywszm`!<%B*Mmv%93nIB-spk@RZ5__nn#9-Go={>uQ^Y
z?9QC|&Ue1^o$q|-JKy=vnd|aypLgdywtI6qjx*qoKDi0_ql>~+E*F1EbbXGGAxAXX
zrX)ZA@~wVT(vqxa^YKZpb>z7Q7h5wMs;$xu;#jvy;F8*JD$BFFAGF#XxelxA;c9E~
zFOwT;4@*Z&6E<I$?EQLjac{CWH@W1+lty#do$SbSzwF}tC&X(V*2VV4`HO9f7c8FF
zuy}UE;<@fr$0LsU{Pbk;2knpG-`ujf{sd=_hf7T}q)K<X<0NBQzU8T@spZbJ_W5P=
z^Th;ziu{}_ZgIYcPtF=wUY*~<CrkfZWIpPeRGpvy)aA*-<;kw}>U_uC27JwPbB=u1
zWsB!8exzaX?NrWJshrgd+7}Q=waqavJzuhv8r)p@a(jbxs{N5qK4~=f@47r$PLu-p
zks9x_alCC_vT@qNJMXydj=Re2j@!x}am;zr$|YTP<u~Wd`}h8R?`@dBuJZMn7Q1b8
zGJoHvt_d~wB^Ou67nzUQzMcI3uDUHd>RrvdT|0KyZF5O`c5mC=RCZUEX-53a3U6Vp
zdsb<Bqjb8{ART*sroC)#R-!*H%aoLoIm2;N*}VL+xsT`PJ8nsFe5-7ZWBThey|2{r
zo0Hq8x8Kx$lW4-_=Av4AS#FBsF4Xnzvb!7$b3)&eCx~(FcR7vQ@5<qyN-kSy;h#yC
zT3s(LzB4H^XZxM<E=y98Ja7&{7)|~M<$#GhKKr(7zOvAE%l#1!OugbuV+wyZ^@>YU
z<GI%9Y3W=7l*+8z=G}SCZFlC~Gw050?gD7sm$>oVfAHJ@KXW|5wiu7{*N-)FS4Y9F
zBe=M)0nGm;fX%uXU<bIPe8LzbH*@a7SY%vWA~%jpo6Nn-Uw#q5IKWRy2iVXuxi}kV
z=I)pRBvZyRu%rAnD0If%bMCtP8Y-D6L!nc+c<$l^LPCZ967XLESQZ0A$tn~VXW`<w
zlkr?1&ri?_y==S=7D2|veFtE@@jx=23bo^c6&kH6D>UJH&cxyW06+QS124657L_40
zqhQw&Ttc1>b`8-+V8oD&2tyb$E@2WWbR!t@wTT2~ewR;}1h5E0G_Z$Mu%rA{j3K~A
zv{`h9s8C$OKLN~2T)mPNYEl^j{BhjH8do$>F5zOpeuG2F<0etbCb}?cVDs*bfIXt3
zJj%~tB?BduJZttXcjeuB&0Y83b@!ax0Xyj6CURUR_xf97(~lRnay(raIZd(Z$hg7p
zaZ|aD*#JvP=R~wWT^P9s@0@eXZMV;vn|J43cN6Tw5-yRra>W&6)8)5X=iE)AYK&kR
zz4(kAFrlA}e*SSe5ciK;_0gK2g99%Pe(^r%sLE*a1vrqDoH8agZR|L6`uK|`V4NQP
z{9|#TLa5;Dx<beK9Rr7hCp-Vp$FGySf+zUio`L?(aHtQDJNo<Ox88iSivd&}?CLqx
zC-?MMwf1zsDNy$ERyV&!tlm(`Z|NQA4|eg}LR|yLLwr+Dd;hUuZzzi5*s)_(2N_Ho
z1F357RZ+a(7vlRnLfw3@pFhzv(98E63-i65eTVtCJ#G{txVn$K%BrgcS5NOD*Xn9f
z6a`mTU%#uTy<HG0JdqDyAMWox!OK0J;eO=$q+51vm;B+*{<^L%*W3Kou28U-?++gA
z3ia{9a2tO#*xSkOblB~k;WibPuJ~YAm&TCRU~gMrER??=2=|2g2YSPNbzgrB7~kGA
zfV}0M?I`1fThFwkr$=U)s;a7}Y*dtQ4TkyFo-kNF5aPQ4&>23Y!|w?N+qQKc>I6$!
zNx?Sa5&ucgiN5~M*2C;396H7y3!c!kG==)>!a=mq)~;Z;yf@f25b8r-Bs1uvECJ+!
z2f)<R)fStX%2RWnv$(V5XzuMibSTuTXE`{~-`^9CFp6+$5Y-n3S#x2KwdVjq6`Q(x
zs7bc>^tOhy*62eLRTmuBS+uRQH`LlsbODxHf^TCfd@qvt9yD2m!$T#@9|ofCV1H*%
z7?Kt2YjtgEQ-4c0tQXe|>o@$->MF4`0&$@}QX0WHRGN<r1pCnmSt7qPhz@bEvmf{E
z^81p@>ncM>pbzmj*xKKDG{kpw9_qm3ZM*mFiUL%NX8`P|-`*SnK!-X5V2}UZh6n`p
zxHBMj?QVX*seYS=g+N4<+>DIx*6&%XCbQI-tX)0FqA+V1j0zG1qg6peR82q{%y1x~
z8!Xx4Zx$I$HTw|Es@2=;d3x4I{NhC&PQ|5y5zhd(Ee5Vyhhv0kU>e+(7`Qb$9IGV3
ziTG3TZH$3itHZ6+=p!%{u6}zA+&Ud@y$Z*`RJd)iaO-ur4JuCvn}%;oEZhbiZX>~|
z*fh9}v2YtT!BQ0kN!7OP&3o&1ykC!etJe@G+uHk~B%w!`*4Ps|TE%bCa*=-TJJ#9X
z+CdWf$1NlXt6Nn;A@$PU*$cJU7l9J`jy3Jr&Dv`9Cf1UDd}o+ny;a;KQU_HZ6UnQ$
z4|%*j=J6(atjeO68=`^Sd=SG2VNtuv2cg~`UJf1#2|}9;Y&uRT2b8Jx_+V>msIQOj
z??Im@^)9^4uin0fRg@`?YL-wRP0;wIjW&F<I&uiD1HJxT+v)?Zwmw%iNjG!-;$|Zl
zxG%(%d`A#{b3mrTHnPI{big%~jUac2LwrabzCyh`QJ__(xuX+QQek{wsP`y_F0idl
z9T^z)Oyx5LMs2utN8L`TdCLx0Tl+zm%IR<q-`#UG)D854n#@?(4LqO;Jn0Ix>rdL-
zK}&b=INwHtFrGodcjymUyTxLQRacQwSiiu?9~pgd&2Q`Bk9A;(M|Hv>;(f691f_#1
zt!!kb;kGT<AEY5ak`s+b7C=|qan~x1xobSy1tkYvt6&ZE^#@&%hIkvy=)<6grVbq!
zKJ1d&V=YhRaa527U<j$2Pshrh^dIZdEClu8rzAk^$-xkrGki~&jh=r0Aq;a=EQ5HX
z`kXLCgX^H&<pLpstC#e5jLD)iEAq>@rr9CHorobqol3RNRAU6s(16Tds*`0%hu;rl
zqFWy55A{;UgD1$OI1G~l1jC>^)WHZR$%0)6h}~g6biA|wEds84iw_TUAB5y#3}pBr
z_b_AV+16k$j4IYdZ}G=4#*i>qzrn!D`(U8)kq@{IL}*X+CmjK`rEXWLZTU%GFYGc(
zV+IkKY><I=W^u(-5nO9+1t3{Ys!^sFu3A_<VKg8KKup6!-II9HP~Fvaf<FmGz<7=}
zA3_%2AA+!TqK`%KceR~}MRlwrgbsjSsWM`S44nYJK4JrgW3{ikI>W7z+>lqfBj_R^
zGC>Z8&@QasGFb@rkwsVSeP>N2zsCE{I>FT+JVC(J!m7-=`j1DlS5$9^5wuDw8ddD;
z@97P-kpyg$v~KVYDdC80GgClS-Z9xBr-UHb)z?ErcCk{>TL_z05sjF$QQj6}bV6|q
z^zqevIVu($Amg2BCs4KVAne_tv=fPSDg}{_7GWP1g8C6m<Y65MQzax~GLvb{2M+}S
zRvw_*%hbW43)@iKa3KkXd%#Eta<u7&2?=X^V)ofZ-qqUGO07W>axC-*v~on=Xodn+
z)dz(*@{a89r!GR38QKveLnE7K(MZ^bv5bD!qQqW)9nB5;LamsJ9i?d$-xg{Q4s_`w
za(Q1U#0L*TvC|w0k7N5Yb!cKP>zo1gngogZ>X7~%+fyUmn8!$ij?A8co5OoDdToqS
zRtN4)dQVaxf`3hzY_)c<nh>vt5RWF-qy#N_w6h1|#He+lx{#HFt*%v==26Fh?rfEz
z`gQB!ZGHgrr7pE&0pegdq^SshKiN#g6wJIx0&sz89;*d#hFYnMK?y{4sMd(82B7RD
zC+I{>m9yqR;g~~W+|ezgp#`cP4>>gTPkAs)9buj|k#g3IIM3Qhp0yXqgUSwTKb7Zi
z$1p%^SQmyv*DB4JCR>Cqnd!WdFZc4ERWKva(YpG2hkXGw;AKt0loa(FB-N=&s@}zY
z8!74wk9pc0j>$5vBZC!<NF+cp?N-6;o-WKL*puy2bXtce5OOw~i%gZZiEnRE?riIV
z$pHZBD`af3!B6WSe0g<M)kgQ($|K>{=!=Mc(50&^k2?6b_MBA3vYG@Bz6o?9Og>x(
zLq{N@T6U6AZ6vB>!>_6uQH4EH5XSTyBtK05z_#w-`v#bms!D1M5)$XPc?J^d?d?Is
zj7%Rz8O7MZY)j4A!<Yt36J}9`It*caiSSUf%g*E+`HMom@Ek=ziH+-+-zK(UG`?X3
z1mW$yJ>5KkQA0xMtp$HI1`O|nH6l|XP1TsLlaAc3-ES0Jo#EpoZwwhBA!LMfq|6{U
zfaYR3t58I01iVb5Vrv$YS*w~lXvJ`Nglz)JIKypoX6rzhSmVGDgL6k6*vUVK@t2ta
z)J1~oRG_=34Q)7F%E`owP6RZ|0OJ9q9|L+P3?^-=S00@dFypQT0Kwz207K>mT1%g;
z78+y7N{&uUbX!25sJsD9*4KYL27>xPU;l~N6llni2{<*2%FQ!b*vs5?<oY8gS(JrL
zfXEZXylt$ht9ZX=Nn#G$+1=R{B%2y?AnmEI+g8ccj^1xzmF(HQ^Gt?=vFDbcq2@P0
zV~JuCPm{7Y)!7$X35{?D#DM%JwFF8=_lZ{gT;dotO38AKkjAtl98fd{kYni$&3*JX
ze>fD9F+)@fp|O~H+aa1*(cFqBPc5_j)L}5%!j%}bH7inOIYGB*_9mO0F>~`A6p(8Q
zG^h?Jjffat&@e=Fya|zrx%{luvARU53w##&(p;LX#p}paq9H?fnUjz(WkDUXUv-aC
zKP`tvr@2R|SMBQQC#N^;Nla=O{F}P#j4#)mc^Kaa6cZ5u^hE%5&lm)vjn{70L^6^4
zjJjk6-wXmGRCN!)8*>mUqAe)*Lu0`E(bL<;CWk%hBr+Td!Nq-s+BmNiYjUT1fn%q4
zv3gLGEuC<*u1<FJlI$5a?rrvx0SC1PFMVGnctgGmt$9>2kGPaaSRSNBpQ)(xL!FSb
zVI}7uIULT^=0j^i-s-brg<PsLJn}tm;NMXVsk0SD{=<<J1=fUmdYSt}_pV0EK0|!e
z;)yzxzg{aJQ%E98OC3%X`Jna-|5!_3qqPMGZ2xAqEj8QTHru>r+o0KIO1GKQZPU_i
zSEt*qPq*EWZtFJNPM8H+;&3qo+@)(27cFrJSlMu~)jyZI`sY$t|6GyPzhP`H<OT~%
z6WyHfJ#)$T%_WbUOJuI(2-j#nV&~sBJL5dxGutb_XD<G}Is84dHKlw>vCO$^i;r*x
z<wZ-1A2;(}v-4vBS?s0UlAKO+#eqV}m}B>HwSHa-dkyq+$ZMpZ16~vTv@FSbk;0lS
zcJCsy950+g-W+=)a&*}F6K1>coLTr+^RgeBm;Q^H60BLK3h#5~@`9|?{Cv8qpwz4b
z7WPxfzH?L951+@Uq}Yem@C$Xzb7tOTE<3@0aJuX`zDncxFPYr}-+j8&z+Y)birYmu
zM)k(S)n=P)6HT+swO{CJf1%pwuSsmi<V*gV=tpsX&N)EV-WM+ZW9`VoKeQ#ut+XzU
z>!#*CySK2F&8;F_i_)GgEzRt9`?hU$!q(mI(`q*sgzL8r@m2BLdf|QT<wN>feC)y$
z3q^rVb)LYI*tL&H);B1QA+oR&b!_#)p4OH{yxIy07CspCh(b+tPbO-jBVw5;(BXU`
zC#qSkN1IS))%C8Ge7?{V=95w<+_6z7go9?J8cv1?9s)LR*4%OA;-)#09#t}I3VU|M
z=b>mQp6HY$7H>4W9;u=}jhRslNw@$!%@u~gS6?6lS^PsXtT|f-Fscc@`{A%_87$VY
z&l=z|%-0t26|zhu03(fbp=o0)d64uu(C`2%tgPveNLbaSxwA^M>KItPy$0g`E?S>_
z{A!2_n_j7XPzTx+3q*k;u`mRLRe;svI_f!$1q>N{ed<I_<C)rb1-9tR)`nMa+NOd~
z5079WFD!|t7NwwjB6MW2b5}yIDGRu=JNsCC94-5)eiN1YRjcdZ=p|5AOr)GhNE7_E
zJ?Mddc0r`n-e#d<+B!%O{$+J-8R>^ZC-l`Zcm>gbm;%y*hNk=8)*Q~{NmB==OE0^e
z|C|p|qvZV+IY8t8ws-entrOlMxwq#~Z?K!WfG!lVhJ0FJ=wB+T^Di>0$F4G+F><4#
zyTeebtE)G$_?Kpi-K5$hq>r8<^u_C9Kul*wA0x^X$!w6<Allm*h&t}~wf2TW423k%
zFLfRdb*WJ7DTCYA8$5=UNSU5d0Lhs-Xe2=yIs%rf4okgl=gbLx8dH{@Q5{c6*V541
z+S7$WmPIw5rEDF8R<?c{Df`ffut4!{rDD_y=txvL^buc1Bn6{|_=v<niwdphWknKj
zp!&_0YJf7=B#V92GiXGz%u(<)Z?>#C3%G>PuSf}jmMAe46IT5ueXmg?jewpSr(p-8
zog+CYJ1awNw=mz))7yCxak^L{=>j0tB9coZEOH-VUmI(>b7tNfEi#f<C6sO<EwDNf
z=sT=PmMf-6c0a7hVL6BNiD82~DuOQYHXoIBif&a0PS!`LQB)~{Tl-*Fu=TLId;{s)
zx_ig&J%Z3mp<6q4@0M6LJsmhD3Y0)hTQ7Z+G-^`MhDj96x<_=RR!6pdK{zeRG7QpS
zMqwU(kpXVla0Wst<|d}ZU7_O|wUs;qqEN0{ml%*{78gKqT!=bR7nZxVg>(wDp=g3g
zg;ZODZzkQihOq?}2!?rz6QW-l?okgWk{Z*1g4rn>Yt8_RG_sEAEHLLqwGJzuT9Jf{
zwLEZ9((3j$u~oaKCS^f<(KdztqSZ6BNj>7dv})}{&=u8;E$j*r7O^14zv759iu&`!
zfh(q7dDXP(nOQSt&bs=VYqP)1b|`<I2ppy5ugU@D|DgqLiXVmMfW1N94p?`8djpWH
zGHA`SZR=@5_$1bl+Y#CW(xAf`tu&0&bVpmCr-fIjF@BTi!HA`gHWhsRQPuhw=nf+)
zC(H*2j`Mr!c2@E|ZP@XFO-_{9O|gYY)eFD?L4yQE12fABA%}1R9X!z=qKF|61y1#<
z5tf)@^|29)%2tEkS&k?eg((ez(k6pZFmlfH^?(ivVXwf}sme&4?I!W~x=lI_1cz~p
z4an+JE%8EMkzo{5xL%LkkC26vp|<}~xrK_*P9s|V#cDO1h*DcK{$Z>I5Z~U_Dbwzw
zN?Lg3n*+^K-MjVG6#uPVuK|=F^WQcEk<cL9#>Vt+p2pKk5Kke(>Ta!=;O4XJ$D-kB
zxW&OXYMo=;qCH%A#Eb<DVC+|KTRop{{NlN0I}NvXheOi5{5<Bh4z63XfX3y8OzPpe
z^g>2pN9$Q(0BmK(badBN)OL;mf&r~UoM|u*fg%#fgbSQuD93=2xvRmENDQ%$b+Cx_
z0zj3=XBxI=!0HTWJBKA4n?W^)b>zcL*fRi!Vjc!P#Na*8zAfqlk-jsc4O^wOiq3X^
z4Jo5u_YG6rWCJ!%VJ3m?ir5#VZigY+p|A|51=!}C9lQ4t3_aKO@DPlyC<KAE10Ym?
zR|DmRa^mHFHk%{DS?5Iv_Ud)C0cQ2a?c3cf7tIY;i{wk|3qom<Da}9;Ac81P0^LHO
z*ca2Zbx(ag?GjtvPR$Q{aG;MgsupfZq4R21>ed26!~%e&ojIFC`8Yxk;UPp=7$t7P
z4y(>E&FSdzx=nc85n|g$06@v>5FJcvf#1uvAPPgxP2^Fh7(MNg2aJnki$)$&O(IO>
z%h%{SQP<1vNZ#%5@4)UCHSZ=5MM0?O%Xjao(`&~RyB2!Pat5mPEG*oH1`}0mwcVu9
z?ky1z7K%>g1=#i-7I&<3yMcw}>}3<hK7wgcVd#>Ss$NVtw%O9&Pa1g8%zU}pq6k0j
z#r-Djehpa9I7bWWpJ}_*)*X8`iI}5-{cKy7&{W?Xn@}z6*|xLJzYB7ufviEw*1A30
zqA6>IeS3z&tV7CBnDvC1c6MzIAPP=HwSf}-yN0A~WPr`vKA^3OMA9ZosN2yTNvP3t
zt&L&|vRs5dCh?%aYPZ*~Z#ruws7+!tp-sTJ1t7Jk^&;H@M7ymPcKQR+r)%go`gAP;
zv++*@U#BOq&ebZeUoT+lTi>KT-XJviqj#*Db-T#Zk4ml&5vkGJVf&T!J!I(E=#E{k
z4n)U-F;EN9KY^vL*%aIq`=_R^7u&?xKS4#*p&=smf`4o9Z>@+ZA{G6JQezcdWN(sw
z0b78EYeXLMs_Ou<%}g?NiVs7Eo@^cH?M09^e-x?$TY`GR?PRTy`9ND|u(e2FZZ~qt
zRj6JC)`%pt@KlG{o{~)>bzYcm>V}sXFly_wfOTN!5!-f-2-2WS69Onhwo{Sf5aHsK
zJ33qY_;RA8A1(ugwiB!-5>Q6u(LhY>afHdSP+Im_ZE^CwAM?O10itLxa0Fe1GHPob
zM=%^72)A|y5$?#ZW%GXQR#SDm>WimMT2O4Q6o;qwe@y6AiwDED1a+)-f1UBef3=3d
z1pizup+1uIT^47yg|_)8(j3eSs<nqEy0ojJA8IYOGCF(JeiF-IVrir@8e^$*saT?H
z<;&NpN;0+)v~GF^KGs-z(`gL`>eMdJ)@3wtA={tCWvCo5P*t$7gfk43ZGO_?^J0wG
z;k@>!%w`rS6K^IaB>50>Y$A{80Q8u}=Boow9S#EsRq+kGch;+snY1l5*w;6J0UF_Z
z+OERr6ojYes^1I(%Z4gItGk3SF6o<}m_5q4-O+<sNh;KXq2o9k<;CM0H%3xuhb<m#
zM+)n6sx{5JUDS!SRWm%Pt*KUwc5GHu-GMZ+vvU>nX_hwCArWP=5HTp;*2h>fQ#79+
z>r(3e8hsc9SeTE@GUx(<lO!%WB1D0!Wg`dkHL`JC4L~OP+6S;dD`tFW(D2Z$^RPV@
zk==~cuMjz}Z8FsymTOcmUiF%d9<r6t3Tm$>#Ck(8A&zVxE!XLCSK`10?1YQ@B{g5)
zn)U1d9Aw>{Y=@}Igy<+cj5uxfs?w$v%xdxH5;_F2zGwDql^#Z?ZXcjw;30;Cm{_f|
zP<7GjoO^>cjIJJti7X0R-OvTjs~lwwK?XjXV^il~8;CRyCN|{hDI*x7^qC?5CiPDJ
zj^?uGnknK53}C(A(uA9>M)dK4$`<sV7%b|rb!Pu*qUd^tfSU5S3l)QLiTXs4b%xo}
z2A-avr!5fl7`$X;K>v~xo;^fPn!@2)odeL}CUDWXwBUEmTyIfVCa~{Rrn1=PRLX)q
zV7({)N83q9I5ks)V)SEsn_8e|KF~u1V`H|{#vJU_JAoAK@CW9d*JrfUwT7ahPRs07
z@H(>M1trD=0;8ZNWxi<F25;U*H2kqj><~n~Fp+>#B(FlGhNSX<jcTL1OlWffWTmyw
zg>;rgILMvT9SXw96Oq2N_N8M%*d!Vqm}x~Y$k->&I-52kvH}_VAkjmMBk3GQElK@Q
zDx-Wr{i9Pm*08bt3b-Qtqy<87UEhw!W<lB(h{)WBPQhWK!IUC$2T^g>)TF@GDi6ay
zlrYxrQNtdA;?!&PMj|IzbgvCBf%AA2Ej_|9QlUZDu#(PI6PobqdpR_B*wA`tRULU<
zB0VhV8ev_|7|^u@XajUVOu!|!KFd^ve#cY=ZlVk(^`I@~k{ZDVj;MlQU0mH%LeDVs
z1na12>RMX|x(B+*5Y&cXy#U?#)${~4U#wEl!Tvs!0x?ow24|bD{z_`$P-p~dAv)P*
zy?&@#h+-IlTF`+%gIXX?{K;w|rZYwRCF|AEDgF6-wN`vIw-BwvXXw@E&`)RCC`@V!
zW2x3RMoQ}lMtBU3TbbUYAwASiqX!!(A`u5jM_>!hdm`H;&+Lsl7PU7<^luEKNrA6Z
z9e9j-6r$^2Hr8tDNZVwCW&2j@?ij@M6e5!5dXW_Mlmcx;)1WkU!CZH=*q~~2y)2F0
ztURpao^2cenOLWY(T#du&3KO31<ZP;joDFMe}4T476o7d@v1-h%@$qlkzWoGf$RV(
zI{FI``f($@p+lX07}H@qvDPO8iYy(5>O6|?Gm*qJG%&{cxYY$23e{jvJj|{~OqQl-
zb;FI#NmPZ5%aLqBRqMy5?i#a(O>&Tm&3q)J`jH68qED3Yuo+J@w=^s+OkK!NK~4g8
z1_b3Jv#XLump<APj7Sl7LQ_we?QPc>Oa$mGX4V2xG2$9T-2JNI9J!6PoEdwgwlZ;;
z>2!5Tg63Nk#=}l4iV=i2NeBSy4`cr!oyDetsU|U-3gcWc9*0V`9*($(BE_o}8fJ1+
zA5lloA&o_Rh-5s=@JSPk7S;^Z+k9#e2)Nq<EVN_44T}~Xv=N!@w2#?juRhT2b9jJp
z2*R3o0@YCz0c0cVltI$--G3zWTAvD#>!-CN7*=g(jdVa!(_*q8>GRAo4rpwI$DRmU
zqlbXNE@S2jp(pcBH%THvF)VkOCR^Css!b+{Fglz9B{8}qGcUf2ooPZxsi?)o@L=R}
zzfBKIiAs$cuS5+_4?*SMR%+B$rL#FYE+923-KxArm<Lvq)CA5VHGvqZIeIRsIU4bR
zU`^m{zGcljEiqDqX<$TZjt-L=EIph>Y8aN`Qo}%X?W{@-uxWkff>OhBGpT8bNDUFD
zNewIUTvBs1mItv?gJocLwxSkQj-{E=&8C0Vu#OQU|H@ZK3_1$<cgO*o(_;IB#rBrP
z)@QMOYO#GS!*)}K?S~mQM}}=_hV2&_w%=sfTp6|<8MgN`Xha>^_TT7M@<NXN%Pd#_
zEtJ%Mcw3RdXf)w{8AE>sL#>cjD=e%P?yME=sTCfsb;p4U;k&iM-L=A9wZgY*h16Ps
ztF`k#%)q;E6wh}pjzP}@mQs`JN6VEW^C{Oc{A8aJ;%kQ`#MQPBHkw-~<FW@WOCPd$
z9<t;oRe0?dhvI$SVtI;TdeD+zE}D=#Q%tK?vgEY;EXx%kuGWs5acTE!Hy1`=0)iyU
zBN$m;nYJL)HB#=gq~IgmZvk@Q0gGM5W?%Ll%hHD}cHz6&X$%_K9cbM7utmlWXU}&m
zJ0G-&$yE<p@JM*j!hdQBKWOnhXxaH4i?dgjV=}Qcmg!;3&W9+|LzZO^TZD&LCRTG`
zWtsjCWqPzqBj*6mS+Ey>p2;)M#3xv=z1w^Wd%MFd!Ecs2N;wzDTP*H`(mQbRB@6q}
z?yu#iTlmz|yvbr8d4Z#lpDPaJeEo)R+<4Q?-^{&b_N}+gnL7`!2pawT194z9{&zI~
z7b_B@@xMbi=IJpwaFa793nt&>F{i0EbFId#0Z|k~WMh*WxufTzIXnd!!?ixrtngzp
zZ#Ht0OOpy5jsJy@T8oK_IGA+SlCz2&phLFG#jYB_&j{D)+27khZr9QH-_iKr(fD6A
z9(OeUR}I<yi^Tu3mrfx5cas|btKYH^=ek|=CK8Gc4ysS}+k-43dKax$(9>4+seaq0
zKK(pI7OxZ6A?|p+xB>q*irARSB8x|s8mpeqSaO6d0=4{?k1YNR1_DQd!?Ey!MK+$i
z{RmsUP<*hu0<>yPBu;OH!OkoOm&Q9R_F)w@8iNZDJC%FZC|EL6&WwUZiRX?^){&_Y
z!wW<3I2Fcd9#Q1=`O8w@iGj`5BYr0aNyTWG^BJ+rqhZc}sW9gX9_xH~C6p-g=Z<u)
z;L!_sJ)RYSTJ$BElG-ewLXCCSv8^MZGXkB5;)z5$N8V&Zq2&Sf80?^WAVCZ6Vxp*5
z;ou|ckSr<ihNcVHT?_6aYj^*Lfzv8!jLOvq+YYu337b|Qf=;T$$by}*h>dd>)L3V=
zqUXa+$4#raM-ZT_Qu79BS+@2`dR<*eR|_Kkex_h$mH!%ATDxTd4Ro$CBF)+RbJUpT
zg9xT(P_$=+W_#N9Tp98HDh_)00+EF+!Pp^;(0`ehpegz%runG^1TE3-;b<~RO!Pnt
z0>N{7lZq-wYblxqiK7A4f17~n3Z5dWD-f;QN-a&{IQ$njq*}9qsKY>@hlWlf8ifV5
zRpa$S7l^2CjRbHLrZ0Fzb&Os3MGvSRSyj$3-bdr9>2*aEE;PbT7Jt4@Ah+b_CZhU$
zS^-Ybk!uAV_%mn)V#Hq|pn7CIfq92f`u}M>^@T|t!OUBCK(mOw(QxX~aB4M%mx8=U
z!>J?t)HVBUG@P16ma~}A(Qs=0&4e_K8x5xh7Z6FW2jP!~Q-40gsq^Rm0|mQ`R`m=H
zQ2g&ki>=XOOV6-P&aize!**|mtti9xy9`@thRvN}^JLgIWY`X7*be_C<A3Ag;^Pw%
z5)+62YLUN)^}VOI)JW05-(dm257$x%Fd~B=u5FY$5F>kLJa7@>frXGokS*>wq1_@J
zv1nnz#a?fb`6LSn)-K~}!|j&v5lf>v=m}Y}Q{07WMycM;7o9aa7%|3LWbn6ZGo3M!
z!FR_-2IJ;zk-<YVt5LyfJ~b*B*CUGx25lFN3Z9%XEGjsX={!-v$TS)id`9Q^2S~Vm
z!5s^~b?04ofBT+$@4Nqj2mb+TJX*zA4h)I^#2VHY<@i^S%GTb`JpFau(9>Vx$7qfm
z`Tc)?n(Mkh^EB6356)Q*SB*Ve6)eIrY%Fq)EuF)`&Q1iUbUF~6Lh8<Uu4?qS9OTqC
zZ!!<w@QBAKAi3)<bgF9fpbY?%(~hP~7YeG3X3~p*hj4^Bb&nQ`!zIf!ETmH3kggq-
zdd4dVG*%%uUL~NRImdyj3>DjYts)~KJ@Y)(n2pImr}Fk3$En7E>Qz@`9?uJ}ZhO^H
z4-1dfszb$U)3PD0_NT>CLaM%yp_IBJ`J9}jx^DC&)#$mkqbI52kkrwWR6h^#jyN*)
zuXd8^8R3r5NuTu`RW|TP+|yVILR27zmOua0)0jmib_B_14tX5mfv1sy^MdD{GGm68
zr<gTE)<X=xKGSKZs#z4vHFi?V5Wf9Q4l^Ceu`>Gma!~QD!w(*fFo4){p>s$7%+o`4
zlQD9p25UKe(@I~gS@!3g9U83?TTe$bQ`?|v&WxpF5l?zZUL=$bIsT@xZ|rz>3L87$
z(V6Ot`dD-xLfOuGUg(JMM2_I37a&Ee4)(-^uYIO~wa*?57B%~E+Dr5%_Jp9}(*;Op
z^t>Q;B2@I~Je&#?MG`&dXNYt){V6AFMzNmd5FmX<z_|Xmi33Bt-(TurO-+y>>gPN}
z^DM_wUN|f(dafqTIljPQSrNthxj)7-Lg{&es-m-C*5fdFmgvAr*5l4Klco{jPdcJ9
zTA11y^)t5EZimPTl~Jg_kIqGGjGm-L0mm2WT)HEI={j`C3&uS5xsZiHpQCdP!^lq4
zCA$8?(M=JF`#%p}icoT1*@voTRt8D*pLoz?%wWRIm(g<`hj1L6WgPm89P_AQI*;-g
z(P@er8m8lDu#WM&{RxLW>ez--#WqiTrZXNH9&+=MFcMj8;y`b1p$kUrup=I$_AGKV
zW76{HobVVaUa!YzJm4|LsmMkWas{$CpvD?+f1`u?VrWroLnqa-3aY&w*8SNIcZ|t)
zmXYU+9E=oeuYOLBc2t?ooW&7&QC-JO8UIZWc8sCrv&)O-?`F#X@8wj-5y;Evp^mX@
zo}<@M4%mKfvAHa^3X5&G#TKyG5;AP58Md!v*yd%}7G&7IongB_!}h%l+cG)`5EJyj
z_VIt}!GA3L2M7OsJ0o)HpPm1Tdfwl|bl%_nXPoy(XZv*%(6R?COWCn_bhaOk^i#Y)
z!r6Y5tMUO$rkKJG^}846_^BuQ(eZxv3*?EXbNmRLh3inP&b{ghe)n0@?zP|?KMjF>
z*+Z74-@yrfIK_`BVRz~Qee5tkoaOfb9me;71&?s>A0M!UAD}2DoYAMA;1|in($0SD
zA2JO&_AlC)f5O$n-?je<xkj`6y>NiyKVX`&7lGrHe7s<*n;p;nw}1QZ+H=1Aw?5pD
zcgwPOPYD9OB_4-kY{hyET{kuF*}bJ+O{o@#tQ}xoonB?khxC_oYHK8`={>`6Yeip=
z9)@D0SEhSmckT|qL0fU753!;Ub$K&52B7-jwJqP#A(-J{&lr@tw6DIkCMIkm3Qx9c
z^p52@PXI;K+cG5E8kUb-1aMZIFP0*jUo96|m<K6RuI_p`PdrA{G-ovEC{!ABcWN}i
zf`Q|0wNy=g2G5FPlesfOEi`bIJb(mRqQGao!j=KEU<(a9!ZRY^XGC7a%oucPC@;&P
zw$qs*6)|~Kk|HxDmMz*;=gP_qPF7qbr%IwG8AF3DVr<)JaSX+<;)X?Z42cS&$)$GC
zwmOyCJ^Xdc`o?nB4X7Q|=EjNr2fOelAax5lM2W4RXzxqgv3s|quf*u@y^ydDg_lLE
zFRCNai=2bTrf{qq2y8usY;EefZ}a<tcx?ggCJOS0Lnml03j5p-YU?5{ysMSq)Lso|
z8ZB?=gdp=SI?bLDTgl^v<tSXON(@MIB-jh@$yN_%=vGfJUsb&!W;;C9M|)FMbEvPM
zSC34<+vDgJ<aEveej_tcI7C?8R{;YZ<G*Tc&2Xql^D>|OSwWaMp9|4CoS~zZN0?Zf
z0~4jJZf_G?wQE&R4O36r(oOww916fBfnMdyG<sXGKRE1NyU~-G*$_7J^IxZ{=fBbq
zJO6dMYxMlrFTNG<{YM}B!9N!)di;qepL+V4XP^7wzx?aJ{riuef8js=-+%u2zg{f-
z$xmNe{Kc>1XbsNI0o#A_wikHYzw>o66spVbmwJ1)?QU{ya_wDHC04C<v5&aHvom<Y
zQ={FgiCcT*6TS43Z<m^PYfm>$ehBqey6|e3s!CUN&8D@;QrFex+CyM{u05f?P%mEm
zTNVDn75HCvt8nR5{)%bG-NlwghCue0-G(UzwWTv%Q~48F;#3#s9ux+Bw-5Sqq)E8&
z4Em(8o}bq8|9zF1P?nm-OD5alD@y;Ff#abtNpYHNZ(RY9s<o#MBuKgL1G8#RB?0tn
znG22C<C2n-GR<+xx#q<1Ey>RslM5ZGfX(4ASHy|otf?zc#qqyTJU_TXO8mK(3-awV
zJ(o@uuAC}l`*>lRN4<FUs?t|f`hMYV5aN99Plb4&=cQWwFTKw-6}kOJ*;2X?mn(d)
za8g><7XMG>#8RtkYIp|K%N-UtiGTGf@f`qUW#?r}lS&7Z3Z55|YnK@eLQ<_YQ%I@h
z3uk$LQd_AERt*jU_<-c*#0-FdBL>5=!NH}<AVAd%w?R1Y@ybEPlQmV24-YDZj{||H
z*q4<g84G_PjH&g+Z}sO$(>;k>{T7M$jM?fpNEx2gty!|aP%;x44gOmBE1r{E{j=n&
zk(svLe7lw?jY}EJ#qH$cq{RFM?1JXwT&<i)xlT**_(?VjD|}RTy4xls_)1qY_P7nH
zNd3VTay(dU=XlOnKV_;o-}4h=);RgL$wHygeXZ~lBht6?Q^o5mUY_7Gx>Fq!g=tfl
zPM^9gb1I$`PMs=dxJ=a(DvHu4$f?y6%F8BN78(5$ocnBCk^o7#?^D;MH9M~;u8c1-
zAInzugt~fKgY;JBH@D(t)18L~dfA<;zPGoh*EO}~_!Y$!2`Xs)d+)P%cGvG}sN1!*
zew(XKl6KUi1Jt{A?{V#@Yp&m8wEx6tC^X_71?*$slJ*%^Pc_IUGxz_lGNf=uZUSd0
z<mPhwuNpLP?{OyX0qyrY+OOTfnUQQCH2iMxG46L)8#o_l;I84geO#h}`-uAzmu=uA
zE|I%y&@g-7k2&tzxY_#_akKYvb#<JYRCw(mSh4M&lbi|ux$?DAw&#f?|3N7Wi489#
zNndjRUf7nra%(c~8-2-AI(~P&n=B=R?L5cZUQVi#r+Ve7CFO~Y(lJ??{62fFwyVF#
z)zuShbJaEb!?3y9JG(+DFD4Ds6DFigFeHG7fI;h|yW=Ednc4Ex)KrIAoQNOi__FkT
zXPQ45eQ|cOJI-NlPj{K!gWobs`^u}$@*em~3XT3Gr@y>3q1yZ%DLF-Yr>N1~@8TM&
z&BcZ2gvGAp9fd|ocDsuICwax9i-fgQmxgu8(jEAH@2zBMp68up=^>9d+5da-+o-K)
zbF!dUSWfWYBj-w2YSo_Nxg}Xn!7=v!-$^FHTnjGPAbfcGm_NC4ZL)iMPWRg6{HN9?
zSJeDGnV3>!KAJtoby>|b$;F;TCK?qLE?3hDytb^{rOk-JEwC%tdnn{`Rp8?q#>7CC
z22T&!hcgvIIt)ewI2va_`S=*PIQrqZs-~8v=K7uYpS*wY0o(n9_|N5Xhkc$`Yw_Ry
zXew#19C@m{@IZomi97eeC(^j8%T68e$Yb5ofh7{&1>rU>pCDc8NQG)}S3sZK&Ph_|
z0#0&&o31`~^YN*+Le7zD{wg|ge63(Yr%e^OBoCMB4@+ama;Yghxl}2BCzm9dazuj#
zFSx+FDM+m*XFF2M#^iLyJI08{?I{+!CtG{t2ESP0uRR47$-klm(Dh0ay~%vZrnpA)
zvC>Pu>3oSNo-W6DujNZNB+%tF?>G38g^6@|k@tIi$p>`F^liMma7tD!P}><tw68}e
zJUa1FbLrr+FZ<kMg;%G!w>Z-IBbiSxo#uX*U5O7trmpf2igydIOmihxn;~{jXS$SX
zbC$_(%8_p3+cPam`DN)+nqz!UlE;_{IFBh)STc>jIWyBarLhsXcfC3d|0`de*5SS0
zSA3n%d!4WNdS9c3|JC&E>1F9ziPA6mjI1gmBB%S+Y4R18r@rhHzU=F8rPW;Lvl94q
zzJikLd>utgU!B(V>NIDEivu_wShHTdJ=>Qe84DU3%{@q4Ay4pR`vBXRJ-$dz$}41-
ziIlt1e1e~lDaS#5+HD)IiXRW~4y32poe#OtSz6*UrO8D_=7F;G&N|_@Q<-`#OO+dw
z4USal>#q1}Gt~MO#0Kc~$*wWg<{PAo(5;wWPXVMW*$BvSrQ8~`e^8#d$1J6HNGGU<
z72ed$v|^u7?6Y%H5}(Q4XL|NV&KQ?u=5q@zm8qH4DOn#sm6|D}W?qw;*|1|=rqsQH
zURqLqduryQF_Nh))$Zo(NrWq<9O?X$>6wq4<B0xcU-qSVUYS;G_Bl<(yw9^_T5&pE
ze#vJ?^OU8dG4NP;Ez`2dBwU<@=Yl0m_<bg!cij5u>_=~Vbnc_`+-Aodp5t7nP#>e5
zEW~H=ld`zDtd;tO=O@$TEB!{aYgxL#UdouYbeeer68$FVqc|oyH)p!*9qG0)(@8?;
z{VR^~cF*8$;vATpBgKQe{T924`^hve;j*z)QYWWOh#POTB-uFbQ8Sad!&%}&*I>0-
zr4__mvWobQ%vdT=;MJ2MXKquKCF?-Flt`2q-SInLnI=w%&<)D6$9dwjCKnzeA@kQt
ztL&wzo0GF@%szjalvtDQ^M53xGj-X^(ybpnup&PzF}W5}e>m$uP8K-QogsAg75NoF
zQPQ*5b8%M5)2BU_tdbv}hK>t=*+;UL4@Dc-2{VUS89yFv;Z8y`xKE=23SUA`5|eUR
zuQ6EcFPj&qLoDLOA6B>w)n>;82##YSeNCdTi?bhEB0oY`;~ka;%VU!qlW~2KBjd4)
z9hWr9Pb}Lp6Ay)*Gb`{@vTG(fcGXTwD%l%z{SjUB<uj^w%sgO{)A*E`{Ms3XMHag)
zcP2k&X5kS$b91XNmQ%}@PiT-%wNKoBu{5xHlAJ{M+a@_r*iL5wrm$f}&SPeW*=cM~
zx0hX1KhZfxnpHNweuC2^U1?u^@e0dh7dbA%_e94;%3V}Fe))tI((&yRw_mjVVzX>_
zab*|F<0!R3I?+C{9jVfhvPp6>OWHO`I%cojF|(-J!dqv0cFg1-o$2gBCfxsMrkw6K
zNr^5a9=T2Q<dD6f;C0LD4EJD;{dM!|bT^k{uePB2AMTpzO#E=~OlJZ$<Pp2&#~;mH
zZn0Y)1F+N3u<a73v3|0{vN*$T%`%l2<mXp-m(DE8j?2%NPGp(v$(b29revnwIA%u1
zH|ZDmLw=KHq<=GI#-*t<==qFG@uxo5e`8hY(Ceh<EvL3*ziPGib6mff>o<J4-%@C`
zmKu|<;JDx_L&YjnIX$|4)&n1?Af?7kdUWy)uYoJ~a$MFRcR2YW?&l&Gv@9CK{k)tD
zuK4*HF1U!}eqO-^-*_YERHl8E;ibe?#+Q-`3JTnVT+S0ii8$+>tGI@{x|ka*svVRD
zO1YPBY<&6V(r>+dQ^(8S#M_-_yN!-pbNKYF*x5bJ2jh3TPZf1HsZ{$}F@CnhK<SwE
zH<m2M;?eO^gSXpM@>5(ME1NCP@W+Xl=9wI`<)qc~q>IYtW{(3A-6pqD2%B;?*(Pjt
zPnV4DnK`1#%~_JH821(r{^~~H@%(gfmfa3e&r5@VEy%Rf)^o1<#^tlCZ(g2TBn@D+
zb$`Hc*{&ZvC%x9PIl?`@0>_*JYnEBUyLqI%fNTU41fOuP&+W6i7h2tMR`*G(`xYy#
zVb8unt7q?^)z&ch$Vs8d=eft{n4=mMo_l?^Cg0NE_?G_GXBU3s6Yz7&^vA*94cg}W
zY$l(5_C8zO0o#}ZT-itG|HlodH}lr4TNW;~&Eff^=WQE(!mG8m0AOm*UM;eR&iy&d
z)7!ZNay%+0jqwclVBE;yYHdMo&eOm1dAI{YKfWblK(n1}+(#b4C#Pj6!6wE0NlXGT
zrbmL$Q{>B?^=d8t+iv<;C4d=YQ>zy4^X9}`-K+R9b$n8tr8Lf!TEiK$5*;_Bq&#**
z$_oZ#PN(>*8;XixwYHb%KmPdR@iz)iUsBfPFTAnOX<TH==}Z(qU6dI5hG<-rSYESf
zU*-&9xv%Ud;TOKLn}z@O6`+WcoOnBT`8OVT{x|EJdM8}}E&F#L{?7Lvv4fC<*`9)0
zVa2|z-9kYvby7FSS@9_~rBVMo$a_}o!;^vn!UU8B{zswWA1yqNG72Vxkb=pi>{HU5
zKHOY`#Dbhtb}m2f_WWD!pFii$JMW)%d*1vx=j3^yK=`$9>F<5ZUW26NS{B6#D{*nl
zB2Fmrd4BD)W(Hi`(s90q>RcK>Ezjj<U0zY0`{6H7OV1$9ia*CK$mrs{>rTs;yq7CI
z<o)Go|6_7mig~;^IX}z9AN{B>10u#J_zKhW7a1J0`Sl+aCguYVpL<~CuY8r`e6@xZ
zNzX6%o$sWl#Ao%a^jSYxQT3Xy^7pvu_t{)NcP5|ga~sgz;`k3f5*uCdNzYg37SHC2
zq~ov8dHIfxj<VZiLkIuUPsJqu!;eH$ro~QK%5Ke)9k+t+3a{BGgcWbPPv}ve3@eV=
z`QofnllQ-T(j-hUbLGh;|K%&H&Mo<|Z%Ka9@?49(qvOCB7}8gv%)5XILu9TzfYI_u
zN`;#PaLJ24iya-b$hYhj-_j+%x0b!?^BnkCN-YqUqM?@I@8`bXdX6Uwdp~|FJJ~g^
zp!nd&MdlNwC)aZ&$3N<jj(dLMljHg0A3HNWFVWShkDZr!9CW38?402F8C@9;I8(yG
zkEM9Gflu|7p7b97=vN%_R=w)Oq=l<F__4L2)+`;PlE+sr@m0M7FUf8XSLfOLv2Z-m
zCi%|Q@J|-{p8Tor$;G}WU-k*(d?!!l*emd2J<qplJ%fsDS_$L)?poJHZoc@s_~Ppl
zYHm}C*I<&}vm|R=vgm&cf}bF4i!W5XpPo(;wkcWPtnfCUCKkVc8Z376LcQXQ=YM=a
zym;(3y7C6aG`hlD#(aF=NBB+l*@>$TCPR7jp0Q;+lx5t$YO8#o{}x#Iq7oLBhH7ha
zq5n-OPS~L|xCcwPeL{n>tWnt^D&kkGVQzOc_^*|7{f{_}S>MIeaDyVn(^snh8u<f%
zwlmd#gL9An7H6FQL1$x*I~Qi_tOms#2Q-Zx$RHnHCMp%42E}g{4}4J7s37g6^ec;J
z2M~FF<CFhrM>U)&mE1nb#&-?UyZJ)EmMh)tc}~fa@+9f{O2C=`Tb|P`D*jsM3Y_jd
z=y^gBsuj;q6=99yc}Wr0DmC0bAaCf9j#}*Q`8jqAtN#M(LwBtFL~-W|oeKZhr((#(
z0a=9{mp8b`xO{;;slm(bTfQJmmg3ykN=G}So(A`|%NJM}|Ktb!$>KfM8%Q$=tCjMC
z7A_#&QZpvNU-4;Gw<1q}d45O7%Xu}10Q^{<F2#}Wu%bJ(v={=id5L8a?>yp8fpEFU
z;LFRkfFG+A(8m>X0r#yrc7E@Xm7NO6BVw~;AdwT@W>6}b!k;j5uXS^kol4R21=1;@
zQNe6Sx{ROE@qxER0Wkls2R)67Wsw<=PBxl5F;?378#}~rlyYt(zwvO@D#baj+?(Da
zC6sV2CFYhDB2QGrBPlzT7dyms_r0^WE7>W4<P$pG*EpwG`Ov|FhUE+V_ex_Ms@_#l
zo8=2uZdcs*=Gc)JEnC^B;9~iLj)q-m>wesVtn>xMGu{yr<J|Ld?EbmZNf^Vq{y4N|
z8vI}&_R4;7jK`zMiMH2Tsf9fEDQWjBV0&JUy=<<vY@U^Oesc2Vc_&|<D;^Y#`<I&b
z^IH##`$`S#=az8$y~h2&n%ijZ>sV4^++V_d*dZOG$D4qr>VAc4`+(x!@5pn<SsLZ!
zryf+C$J+D6K8MwHQML7j)2EkP8&>35q&~`IvK={SFXdk2_P@puVS1Na{1atKdTvEg
zZKBk>L>dDH=Jb`kqQGFGYPew@yCq2QrRXFO&2i<Hry7+C$WHNdN@J09lr)|2b9AX(
z;V1N6{Hju$ARYBgQUpQqT&xJo6bzP&70;83@N32Mlp_2_AsIg)f3@^7?{i8?+<p|5
zmo3EY$J~FSQZiw`cal=VBlSqBaoNul@6$@jbb|4GUlC^P2d~7h2|rbqzN9$jE}loV
z$_zh7g7X7~FK!bru|0ZNWk=Ps3ggK473Xo4BX*C|Cu=qQZ>pi^=So_=0`jR}L6V<V
zs-7X1itqD<ZI$0wifW!ymRpNpem$ww&y^BEe*HYzOogsRQq@xoxZGu^c}yw3YCk+Z
zp6@Bb6|DX4_QdValJjKw5l_~B;aSBqW54iy#WQ_>Rpx#w;wvbE=t;v%My~|VQ4S~~
z)RSFTRa+bC=Q`#}3Ds5<xW3xzn8&|+*jZ_J-w6TY_NN*4OZ`;90sjH%uquFQAh_C!
zW&ypJM)PA1iQkpJuJQuXaJl-d_G0O1%~*xNYR5?fZV9dGG44+@?UzzuhW<=#EvU4W
z9wld`TjAHYJMEqdrQ5AIlO^-cHx&6QDS6i$(01-`<=BM^CVapE$B${he7FkIyYaBI
z-VTwME{UY43r{N^(|+L@!vCxycog1tC`UHAZ?n7S+W9$$<bQ@WYlW9Vk~&=JsPNnd
z;YrlTF;4)O-#si|?zw6|O7l$HFTA06ChRZea%MOU9Vybu1Mza4J0Du*$L+TIP-%*H
z%KnmvSo3NvKutb<f60B6X7@a*<aAdmFh-tL%I1QsvU#8iE~!Tqp;GHf4y$-Qkt3y1
zEi(C%_Aq|=tZ`wt0!@JK@F6s}xdQ_UT_i#wNWB*Ou1Y0GJ^?wkJZ5#i-JWN0Zr~q1
zB;MubT(gVsL%W=WJ`kQzK&Z<A)zje}-%`9t@lI|j{%56TE?4}dLV{F*j%98Gf0i~X
zcBmPs_#AY)aw&nbSJOS|(#qfZX6;bShVrF<B;kbu=31mNm48$UNCC^@?Vz*;)OB}2
z)wht&I&u<f7>W(h@P!y1b3K1l%ArGLbIuFgK4-sY4f>R4t-^#&#7NuWyb@%R*31AX
zAfban16+r2OtmOd3T7tmIXQORe%PYOaMc~p?g94KS`^a9JZ0AP?hd!Hlq134%CG7W
z-vM&5hBA7u^JU2;Eohqo+@W5sK^jVSqL_G)Ya#6`#WmoP1{SGxg&84x6`;wS#1i`D
z6g+#4YkAGwVsU>P>WwsW+<yN7XCfTMG;~9Q$L%Lp994Dq5sO`?4BFrMZP(?<-T_03
z|87W}$Is{#Z=t?5uH2foN~x%cgW7E&T~~l#R38Hhx^&6-7If*7i(1O&mP~3Xn^$si
z3p#hn<Q7ln{*p^tAW($jL#}06sUnRjPb+1Za1R#|ko8%rN)^<$0u+ejh{Y3N1G3Rd
zM#ZuYpbc9Q^|xJF_O1dBgOd|mE}hT<2lim6P^GL~p{y)cFmXdqdi1b(I{{2?am@8z
z(xNusH~1}`yQ-Azr1rT|Py4(=8WkbU*?h^A7EiHKGO@+80@}94JE0|~`*p(J{RhQq
zgk)KB>@Wkl{j!Pg>8#;CWWNnk_biWM9*<0E#fqE)DssB3s3Y4`oJrvoq=Ac-WKKFl
zv~Iqr1+py}idK+?Z(mlWSc$-kT6R_`1<ofbvM{NcMwyo^s8Sx+|Aci4F0a|3@LxVG
z&hfmh09u|z)ywfzDL_D^Z&LVwJ1kDG1ndT?kTWTR``=>jf5n6h?t^0P19xHSMkV|n
z(X)qajt8I^fDS8vOE;kFd>~D3kdB8pDB<<E`(G)Q?$#^3<*@TZ`_graXT2g6D=Sj2
zDOU8qiX6`d2sfZb6A;W0O&!w7eCO$9E0n4Y5HA!en?M08xpI|KGohu^P&}bUOstvM
zazpXN77LhGS&Y7nXBV{)M_Q(|$X~CS(lWVtN(<^o4<PcJ6nQMw_A>Qe*rZf$RI=l#
zzGEn9N=u5cp6Y}avUoNs<^kS!Sd`&H*r?bEn!yNfE0z}~w+J;#%_S{Rb8kWAI%Y#|
zt>7Ixr>BN``CI7ao)<phcOI@NK%&#I#O|2;GL14=2#|K;&q&$a`;(q`%z5;-mE*`$
zvXx98$E}g+5ae>T;xc;22bSk{G}OjR10e2ph)*2SJ34Y;4!ng1`fy?ZKDGA7q7``t
z>2T$0a3PST2rCqi7rJ-_T{*}3jWCnmQCcPh;D3LlyCyLpC&G+Mwf&;owOX?qktmca
zHA#W2TsfZqL0DWw$R=pW-eJg`mjTn{s&b`K`VsKwr@f;{->FFrIOf)*1#I_rQ|?0K
zejzN*1Qc9|SE1PaBzIz_^f3Rk?nc?qo5SKbU@n_mJT_1^uXtR*Im?bmlzxnW%d4&J
zdGA@J<O(Tad!E}=c$H%=4OQFo_`YtjnLtqV<2qPwg>;kKusshbGm-+uNrC)){+r#-
zuk%-T7k<UfmBU1Xn=+66Y|n#IC|{mWDf8LS_W5X;YU}nq^y?40#Y_+aL=6q4#+vbg
zlHV)d%}Vk30E`FOQkL(qq2MgTWAh!i+le=*>~R!m_ovD6?tILTAd2}I=g<N>y^3?J
zi{szz7OxCf!lKPChd&Z`lQ51+{qk?C^Br^jhKA~VDM5^L+j8uVc_b30`TReH#Wa;a
zX5vqJz|J06>A_g_fyOw<gK?JIV0EXa(LAEm>X==_p)D{|kdplzCZVaAB48rnn3weY
zdd_j%dV^yQ5zeL-QIUiE#Yi1GN#P$#^WA1b3X^|ISp1UPS2zLbrB?UYXzCdEi$L~u
z#`MS>E0O<kk2A@=Fo#W;@Z3{I=J@O!d+FtDih^a96YhixLgRg0f$SAE!lHdnp`Ke&
zoEU)Fm}NSUCK<B~#mNDzB*c5%id1y~Mn6(3N)ynvRx6iYgX}-0?2YEIV=k3bNq2nH
zDe+2#ta*OvE50NEk%m)nrhBk>LIA7PT=8bI6Zp%zFeM>Aj0wmIeD<ffWTX{9n?VTL
zpbVAES}<%R7nY>A5Fi(D#gmf(+MrSqV5gKR<yEMd32lpqQrZ$Jb1AS4;(>J8isS?=
zo+ACj#}&zp`t`%KsbQ5d=Ga$c9iXum-U!Up__vQ(`Hmw6Sq3m^fpn$wDk^SbpnJ1|
z8Jpl!Y9<A`y^8ROBGf8rn8TUfHrr;|)2XC=g5qskWtx9>^T8wN&L-R9BdDDC5&wbA
z#~pb#C?4_DD*5tZ%=h`N16jFJ5L%{efg``{4##|gT+}|leg3Xm1^>fd`Y$Di-%-%T
z@(lUAwkc8?|L;dUJ|(SIk@Kb1;*OZk=a{SZQj#-Zl}*)F%l16cjpo5!sU_+8viVpL
zV$L1sicBjo6<GPLGMMa2$Uz0VeaiCO2G1u-cP%b#mvy1$Ib{n_bH@TKWZqG8dB7s4
z<Oo}onv{T0r&MlMs0&v46#Eh>2^EvS1+p8fZOa#k*-PY%#s;ac?DqCMs1_#FqW$(c
z^X1^Ch1U>hMuU`4h6KrkJVk{~)wZj*D7V)s()I=^C7Nf}za3e+S$WpbvCO9=Synu@
zz_9=;7<XjaQSt)R=MK<l+ZQC(U8^#AA?ALvllR+lq$&I(-B3MPSzHZ6Ft9uyHitO?
z)s3}sETC+bU2&Mmu~wxS9cxl*?c@L)14j51RL24(B?idUTCG?}3vE`Qh<@Cul&nye
z<Qe5S_#-;JE0h)}{sbuwx~bRB&+GNBREj4CyuT-X1xO@!Bb86+#Ww`1WToOvKrX=G
zQ5c$obwRr(fc%$x3$lz%26Op~`^9g>O4wcqml&c-UrAz=C_jo|fPCrGrLQZ(9~Azs
zPBE3z<K%JtqCV#&E5BLhC-zcrLMl2iU)Cpn!XN7cj;#a9g-mHiB&j_Q22;gys9<Q%
z<<u>U&4DFQd&J-V-i1Ywajm`cS$i*7Zd)Q>)*ub&jZGp8%5RrmW=;O#riE8hlaCwP
z<h#z&(A3IA(n4r)i)XW<w>Qt9%(U}s`ovqQW0_C`Tz`#fa2?TI4oX2WqnrpQn#Y0W
zu>t-O3~sioS${M@x0u6Dzn$`ZlUg-3V5OYJsR4|ZR#dw<Eudv=&nx(EV8R!nNJp`Y
z3{ZwONrB`fBF;`z^T|Z38Mif-fCbMjftrlKBCa@to`co0bWBz4j$7gQfcpbWvsjo-
zdY*bA)L*8hLN??SIOY~O<}G2qDCsN0PUt=X%DCo|z|LR#oD-q8FbNO#i#EQfpLtP@
zu-GAru$lLHb}I69cD&0<yoM?SpH=p!;#5qRzyU6x7LLgY6zE5nwMa=&p;<3Ng<9<5
zHH1o<87&UQ#8WX7HQb+A2)O}5voGizV_P?{a;HL0$N^Px25Y7SvJ<J6&&u!9k7lIo
zrEAUPXw=3PRH5W?^Z@B7S!5Ac!W)<x!V6LPjI#4dSe84Ug4>9>Io>@CcLD#S5LL+%
z5Ed(7tKd*dIqEkrD;+RnlF@i2@WDu3HSqy*-wQCX$YqlT3+p-N9GOhnrv$QIES?g8
z%L4|d6i)^xtbUilipnQg3Q&D}fo40{-3w4zQrzMI!zgKE#3AZ{2Z4>5A*}17%N}*b
zl|o5C8{p<xsS*AC!_9EiN;ng_PqPW}cw(TjsMaVB*!YvwOs~DpoQbdJzf3(#vuh~d
z#j55&VkzfkMot6jDfROYccLQ*@00l`G{f2v_R@HeFElAnH!Gg^m9)Kzbg8FV$>}uU
zx!WkF?P^lYNf4qY$^dZULux?Sr9jGs-O9@Ml$CoF{<@P%)*Q9CT?%ypOW^c-3S_vU
zV+lsTPdpMc0RREHCwp+s30&)z*k&cKP&LG8gmWfV6l5;RNwV@2kD`{5TddrvHuJ<7
zo0(KAQcErmK<k#IP+x&RIM<(>Bi-wk(ReFgS62RkW<aPrzA;&YR>RCqz{KsM7Gb$!
z#dJ$>!T^T8TdWjdDhKJ%OcvyKrPo}iWW87chZ`0PYfYj|C5Tsfe&x&KuZB58zI9jH
zJJ(^l0Sd@DWD<{LS!9g(7!2Vilub5wo2|GFu1@Doa8z4(;|cL1IItVwj*wm?qA(?o
zBddxgkNc8kzVEoW2qO(9CGdzRVs4930g(~B`2-T++03S4qMz{0R?|M@_9sC@BrNrl
zH$GEJ?qJ9}EcQx2A<22l4<&%&%<#Z?x&7o7f!AX{sLX|&#yDY*z`aft?1ZW3UML<U
zi!B!l7?lB2$jc-r`E#9c8%f<nKphHrhugQ}1#TY|Knze#zAU*SgLys=NLVfXsZ#Y4
zbNMY-2}(Xdm0S$YlyY!ns^lKEZ9Pn0(FO;4lq1hpbil>IQIl<|{Ee>^emRhJ8^|J)
z@dmYBF+9OtY?ZDiG7Di7FCar*bscArvws(J_U~rhSq9w+g-;Np1xYE5#|SQAu5%L3
zyS++SCMn(}E8^HHfbUZH^iM>@7aX=i_@7gDlB0Cj50qVxDUe;bODhU6@$(yKX6kuQ
zd0|2ermdbm$_o=)Fl~jwIi<z!+yIxHm8Q_MK?-J$aJ<qqQM?`wIjm+(+mD$A5iG<p
zzvmSA{QL&E0VShzD-}Nm37S{1&Ccc^))maOof1Hx-jqN=d4U~0%g-akCfhjy)w8fk
z0XlG6lOp}AE$fsAzfaoalQ>d+9|rSN;&&_eDLa}J`M%ObI4a;h%7B|98NP~=ph7`W
zcqX+sfHf@&rI?QuE#0S-CN2vo-WJs1(x4)5@&>hvjOUk~64S`@np714a7*?|du5Z-
zz&lTgM=ALT?qrNQ`yF$soP#KbvA{XT&OdZY+(Q)YtZY^q;1)riEtJQL`<OgckvwKQ
z)ux>?W>Ll~EB7jLLXkA3@_lCFf7l?MM3R(@`(kcC?jTQgG$k6;25<jvWr-DcR<Kqb
zCdEtP5GE1fK7=a6gwA^^2mI_bLp(qUx}&<vu=GvzAvDc9+=pnIG1N3Em2YAIJJley
zS}HK$0^bt5M}~}4$O!-gcro|k5>SB|eRXaHB7tW6H;Xqr<`+S-^QEtL;M2(8^Xb>`
z^GTU)^QAsLA>%$@@qIp|^g=;mtV<~#6R0SgU-As56z+SlEa-jOCv+*^XM94pV#lgd
zxqR7c&-h+@+K1&O9ZB9G@B&R&w<7ge>`PRqk#z}XVGx<JJN!oH+Nw_!Pp8sp5Dkr%
z#}+Jk?2d{9KCvW1)GylZfTs<nD;BB9lJCYhZcY6Ar$ioijyv$cv4FqvQx{iis$M`7
z?h}}B+yRRf9y}I;ji50K8@bv2p5vxRZzQ-Pgk9W>NTBwc+P~Q-9Z|y}R{qYnve$%F
ztUgm-nb2>tapqD}*=!;Iw3OoNT6~*p@8UU+&PCLZvDC0kI9*0d$XG+}*()qN?S1;R
zU_I^q@o6FNbZOlBTT7OmZj_GmSZ5VZi<egc#pJ5)y_Mm;p02&Gn4!n6ElkR~Ee}c=
zu_AVWo#&%P8aDwX_ZE)B_KU}A>$Ys&R=@q-27lupckJA?o0Hz#V;meDG#Um6O(rfb
z(O^tWF&YdeQ(T<EU^EUIjm9GfFFmpUSlO{#kA3OjmBIfE{wDn8V}I<qqc^XAQ@^3>
z@ZntpmmhO|y8Khu|CFv;9G{R_l$Sq$*464k@Cd;$a{tD0Tc@Xiig8AYSxw>!b9r-8
zoY9b)X33a1>Eg@Gm-B_c_~n<bn0lopWAY{Zp8BTdx;@P<HLlgOTCC>JQ_IiKqlQm8
zkEPa%fOfRx>=LgDPVuWZo20M5KG!{#zux3B)$B19$Bo5e5hm&HnO3;Q7H=^XNhg<X
zF}V_J_L_>Xpl2Rrd1UEk)3Q3#*gBJ^&gA!rDgFe^r<Wos+El@Zj7j2xCH~!FT(Vh8
z5MHXK|A4GDS*v^|3hPf5Y7s^x_)LH;kBt;UkiXAVfTx*aGGc4+pMS?_`^ZG!k0W9p
zXplv`2q8s7^2OKM-H%a-(V*?9$>TNUL-o{}9Je}d@%Rwb<j4h?j+<C-xzTa6d<i|o
zEj`3NJp?F4U^#NzzuA5Z{IVu~D;2C4S-u<{t4KOw_s2oV6Q!~Kan27)p}+j!amIHp
zv^fwMljKi#CUmBEn2&MgwFW5xivUT|_>LvaKCLsYkc~wvEKk*$Qux|f)Z#__Kbc(P
zYPOh`--rb=wOo9oqONh(v#ANp$3coFNazhQAEockTW)94YvNv1yL*AzgdGjG9%OLe
z#(09TEDMEjad7dxv)8+<_LEO|X|FiV6`yj=Jx!=piqn|PB1Wxzj#MBfx6fH*#MSmW
zp8J~Y2qK3KzVz`X;oc^Mm^|yang88h{)6TucZcvSQg+_oB;4PWl;VA*7OP&~CAFDy
zN~SB3cL4LrB*c~_c<yQ9Q{T&!#v!i5(d2oyDf=k$%Man%6ZtR#<o8{<OBXf0elx$K
z$vJt~q9${{d-|@&o1_~&4>Va*7Ma;&X>8>)O*<ZFlE+c%iWI)7xd3RL4W6f)cHY}0
zy<0Xr-#MN?-6VS5oRlNn2ZY|DT076Z?+m+VO5L~>YEk<c-les+V^WInOcQ_Ad;F1R
zFKX~WljoVHlKY$Z>)&&kR`5&S!=lTA2b!?X@x!K_DAWddeWD2^3(qy>bpNnP{+gJW
zHyD1P$r-;$+4Vrv&L^6jCeIU12v0DU=kPy!ujXHxsIt#BS%9qOKj|j?M3dyjFU~+{
z$}-J}zq!I&So`|Tb}nvkFe!D=Ji!9hQ#&{~g+~itnK>)_D}#eMH|E}EwGA%3`@V<l
zj}~yeIs2oE!z2Jt4nF&@&*S$$2L}rm4;C$T{&K}i7nc;5I=H&La!_2iX>;wihQYxd
zQgdMcfx)(pF1i2sr;wpv8#(Sb(0jjyeEbgDuf%BNUNacE-<yow>xkO_gVDgfVK8u&
zCIjceZjLJK2zk?B;?_X_u7$c>XXK3Q4V-a<i8F5GjK&(M;J2WP-!>VIn>mBgYcv?&
zfo}Gh48}ilCgV<{$+*j4GVV5+j8OH4y++Qk&%ha4Oq}5Z&S>~wqtUP*TL(Tg84VwC
z2E)ft?;(T1&~7pq4sj+!r_p5i#9%TUHkk}v9B1k_a;C6>GeN#hy`0h1XEd7n4Mx*|
z$!I#t8BE8F2Ga?Q5GPFr(<#nm`qXGLoyLHnm`tYO(R_ak-E7Ftypq4{(kWA(oi*)>
z%ju#ty-_+Hex?bIwr86#6O_Vs*QZOLXlg(x&l64ZJrGaxDgXOY&nN0th1BaZsh7W&
z4m}S+e6oq%&VWR+i>se#Dt@Zz_9vT)%&q0pL>2ZUDK&xs)94)glH{er1I@y}Gz+gZ
z3nk6Mn&z_GR?iXMY+foh=XBmJ8j6J9G%sC&>wD??+2*CsHM{sC`D+Yc-uqI21YfUq
z<-wBp|8MVJ;G?MWM2}Z@IuAlZLW2-rGX>&E6coir<c$yv*a8Bg$f%7F=|Elsaa?Ej
zj?4~?StpfgcE(viBW<7~9n+yv5khy0H>NX!Z6G{Ulu<!Y!1C=5D))c7!ExNXpU>U<
z+4+2S@BT7Q(p``9_|`e6s!p9#$Otj-kmi$;=2q>s<<mO~hqT2{`y186&E;BdV#U4M
zYv%Nhd$kVf0w~J=+TZy7rM3>)Ojab8$;u|R^|X$A?P_^qp{&gRT9(GMqzWf+-pW&b
zG5$N3j&)1@m1^s57$Jl5YPRUsz9P@znk{mx(!W|@i;`C}v5frmD;quTf@BMjo8o%A
zGo<bH4v{fdzuj_a%@)7ogCb9nM}NPwI{sC#Q$N-jY*fEO@@tuYdR!i_?VWM9qp>xm
zqhUmyG$S=zs^cF9hWND^T5kT=YI(goxx7W?=0sqqH6<|88a*K}G`To1?1Q#&-VCk#
z54Y~#CJT3r{I`pJ9bqk;9U7`715oK}82-J8{92LcgAZDEyr!S%Y}?|HM_kglNy6ND
zMIPBja^+SBSmuz)Xl!H9{+es|7o3=`4(;XpYkqS6^TqpXF4^yIlvL-ZG`1djt*B+X
z`sBHEi+pTKe)PXqv~2v@MtRCCg|u_^*y_b217nRTomRK;XV<J7+jhs;Wa_;`t*pSv
z3G2rCQe>HTm`o**HQwQ?3v2G|ta-4rt>)LAHNWqyS=L$eTxY|G+Iu@|f74l8-&wn>
z(|!Aly_wb}Y7EBS(2TwLm5tIN`sO|>^ZYp@e!?whAL%Gqw59bQx3n(a(z-<QcZ+lY
z<p#zz+*&(*uhpeJ?uh02<S{{>`~O_EW%7Uw`!l+!S$*H1;8Wi_Xsf$>bGzJ^$?x1h
z2VXVr-Yk=T^xALgHGO~gV2by0`79HwUT$+X%WOWa?pJpCYjtf^le+58rnal`+`AGR
zWqlJftSLqMQ(t>xPg*UpW!C!GKUuwFXDvspI-Y$*vr=~TYnRooIl199eaKn)8+$`W
z^t~Nx_F1tv!Y5_Kp(D1{_ula%SA@6KEwbyUzL9NYM`x{kkx7JYPG7q07}Ts)=Th1K
zFR7FiOA?-xKKp+0KUs$*{x>B4>~ry_xVCgp#`=D)q%;4!m`_T~$Ir!lB$0ZFR;6Hz
zq`>ulZqP5^lkx9(#wpKB-sv6+I3-jWt|_0TS=!`O^U_+*ty}Gso~hK}6|znix4m#~
z@kXZ+bs9U=rmt;xh9`wyc3KV@Ts|(e(`jsWhIToPEox<Z#F=p}IGGvLzkm48GPNzx
z&&p{}BxF~=UHv3IyZTAWTDv=?yI2w%|J?0;OJ?q=!w`5YCXa>cZ;SVejk0oMW38-M
zp>(Z`vmEsg$eqq3;^lfPcjq3N`RI>#?A#SQ=wBm$_wM!AckJBP*|DeIzwcH5*6rJO
z#`guabK7m**S2TtZkaQ=%fDym!F`EYl(FqHtMJu5+GBfOl?DENhvGZ^^>S}e@81=B
zWvBL7Z0)Q5ogE!A&GLIc+GA?v+PDPhSNrXHwR6u7zhBE-B&X-U`cYHs@{+UZbhRR}
zUgl~3)kgofUk*wIIDapwSDX<^ZF_z1rxRuVbj9XGv6taDYV^yJV(I6J=Qb3}Fqk8@
zutOFdZ(mYue69}8&d;3TqjTmb=eNFDVsDgkk(l8sMdj(lJlD39PG4?dz9kPw&*-mr
zm-Vi2_ha+tctRgLjjx^FS;4D}v(Bfq9{P*U@WnC=>N5R_a=9Uqh4RF9!JOH1<^(EJ
ze<pK!tNQ(H(4Pad^S|}ZUcDfw?WpjjuUWj{*z9AotMdk>6_@+I3V&AO@ID~P+T+&3
zuc`psk1YskdcI}7ysI*9-}STdAL+i0p<F$dBX#g>Jk;PhvM7A<6IJ@%PPy{d^rfY8
zjop@?v$XV>C;nU4b-AkKec}v%uHSq{Dp;_$KJ$!B(C(>EaOxqabo&0vE+uZQQ%c;N
zxpNi<Jl37D3uHWEPwzb8>+98ny}W(Am+22XkImgRFaG76xz^S4rD3jh#jd%5%VYNV
zk9RE$_KNpPEIj_6C!DiHEx#b1er%z{cIq2_(YLZrrgr9@k%^tsRyBB}1RK`1vB$0U
z*l(<LQl)<+mHe>a?wY@-ck?29yR=2IYvNxWvBgv5t6Q>h+%-dGW!G2E@W%~vCAYG?
zZC&YcIZQiBe4oovSv|L<O3OWPE}u`Rn5D9wbcVMk50pHWJ?k_Qhbd7VKXLXCH%LwN
z_G^hGYn?nya?dGyJo6`I-~Hz;4ff0{F7uYjP_<HTi99be{yw!~?&AeV7hZIcP_C~U
z)a|LiPYqmG<iApPIX&L%^q^BxCrJ}jN!b@czuaam@3P31NKgA2r#o3GH~IG-J$dxq
z&-`Ee_if#_$-n*h`~LkOos_RT_io?h-}a|>Kh$zAK6ogvTVhV?B~o$D&1+7~OO-pM
zyfZ)5;ztq{=GHsj(TnOeyFRkJOe5%`$&@Xzn(FkW>ML^>eR^hFt`u+)O{<qycVzd1
zGm2*V`PHGBPUBvu@qp8qmuSp>`rV5AoJO%TbidPhFwv0BI=@18f2HKRFF)-b@1kGl
z^f`isi=0v~1y#+6&`;)uQ)E(u`ka4OOUz+f=lsl})pzaNSLR407A$tEc}xDp?>&j%
z>z(yBr&=#Lk$8&dJN=qgujNP(u|myCk6ojw_p24%^ZL-PGoQ5$`S3AYBBYm`_Z&}5
zf=UMS=J{ZrwS9QeV>ZuKfBth!=4_|r$+eTmEwiHxTaMqZwc0fqhn~J%%Q@b*=#%PY
zhL$6PKjlGgJS%v5cZx1UE*-jMa|h2BseH)PD|;esGSx#RJTsB4?`C9q{v57+z34N$
z%+%6eFRHg)pthA!-bF*ZUNrMrhgXvrH#od@f10*Ii(eVg<i=X_YVvT|{;Zm+^^U$f
zRk!Tn+%+4t<!SnI%`VeOgW9jNx9L}TJfEega3!*2xb^m26@0xtMg1u_<B4C~tV!c_
zSd)jX(zmrJtG!l=M4}+bU{y(eZhe}5{_yWu;PhpkJ50V)1!oG}QovLbeTimQWlH*w
zboKYU+0U6;j{5$+pNq%LD!-yiU+_@5US9lnRr;*T%F>eAv#Lre%CGJ@c|pb4NmKR0
z1q&(`=)?7Xy8LLpCzlq_T3D=?lrJn^P^DLSiuE}q3+E5X9zA<@ab?vI{o<V4yXAG2
zaAy~n4$%u2&i-C>eEgoklE<q5>G9vx7`4CkE&b=;{r-tR{L8ZC-&@Vc|IY<nx9X=)
zk4~RDZS<6BcTWC)&TMdnHznB5Ym+-)&1<i}Y>mD{ueSwFZ;E^fUZ75*$+ri{YXf>G
z?<wNRdy3#lW4;=%Si0FL+ia9?4sJIp)YLv{IeV&?jOc3Aed|SipSV%3g<RT^`YT#T
z_O0u$-Y+0M_tJwu=-cXb+ETmf<CiWH>En0D4#&@ga!v1zq3)*lCb?)c3i{UDGNmuB
zcDR{&<&{_FryIk}`mOS)Vfp3>6N-E}^7t&*T&|lkP{dr`$82jm?uox2{DZg3TWOpz
zLn}60mrMKi^3cBVd*pgSn#M(T>8lvgSMG5_Bl^Zt!dIx~@!G!fd*@Ak<2NKP1Fvp8
zF4q&^z2`*szC<?I@uR-+p3P}`?Tvj~)ATycF7M?Ch78S~3@I%cQs~CM@=}W~ed{l2
zo!hrgOT1*^$E}O|)-6&WgNAN>ll)H}-Jk7K7f-3%n^N~xN^4r*y3eH>`@@jEuOV|K
zQ~DYor-U4RjZacSseR8s?+6CGpM*Li#y6W?nmOaon(0b0L%QiL2=y_&H%r=%2MzZ=
zi9J(N^MfDT^?hyEX!gp)t5Gz0*@fTVxo7J(d3B219PB)}b9?8$o&IfG_r|uLdmNB>
zWybd|^yS{-RrQ9U<TmS?*MGNe`>XLo9kG|&l6Mh1{pa2w^!yJ}z}NpofuhhLRZ*^0
z73Dfr0tQP7@W^m6{TC|(H}Ag5l&2W0Rs?R^eS>NJJbvHq;+1i|cBHwfHN_Tl#;<90
z*kT9c{p%gFd8l}0^GMS*bK`E8X}HXIUd)L1lsoR!P+l}PGH8U;-LhV`(zO-RAjsOB
zz$dYQm2QkSRf!B5MS+`*!DgVqxXujRWL#?oZZrm&o}$q8Dv39!B;Kf!cvB*Y1IC!S
zY5IdJU2C6I0p_XzFOlz3qjYb>fT`x7uHo)Yqs(A+z4R~Wl`CDwieQS7V|w2T-D1XU
z8NnRm_nYM=eXMB|n#MTOc*_jFqF0(>r|$5Fvt`ZiH>+j4Wtrr#-@&lVipY?R>Z?|S
za?JjNax?TSQ=k7re;Kg0cBO0NzJ{;b+gCIOQ(VOdr6GJPxXO^sF8o9#@2i!1?-eQ$
zn^s5~2aGeN$8CPyfU)Xtucst0gZc#q#|~RB%f_J*rlects5;(NmYP<|<JJekYRSOT
z{)z8H)ooDs*so<o<@^^UH}RY0mdLtZudUNdp9)_tG58$qt(xkH(d>`Qzzs=3=L#{&
zebcQrDtgNIrM~|8SZZ8u-B$ODrw0#v2M4R&>-v`#XfA7oN{Sr#yPuS#EbXr%%aF(%
z19GK<Y4Cts%|Z7{qSExaPlY?&5?J^Zcj%C5+;2)})gd$3t`M_A_nY#i`G6_ua3{h^
zuJ|<chH3T6D?4B|ww|@+KPq$YGD3HmGR5829yBE5d2R_@+Es};ILYW94Zf<vdnnXq
zX2;C<K)H3AWa_)ug=dHMn`+i$W5^k;yC)jz5v`jU)%&jt)=Og=G$iNpSa_0YjTqFU
zUfUxdj_JQ>sL$13Tv<Ok{<_@s{#X{uQI?dyo=miU*E*R&ZyGO~9-mAg2&NW@g`Asu
zMbAgodQa4FMq6h_jULfZ%*?mR%u%!8bg$?sXEgj(yY;y~`gvb&Oomm8?KTO&UUThz
zO7B?h`uwTylS;JX%;w(F*51*&vo<*c$Y*JDL*GV>{ifvbpc(u~QEHMj<ACXwBN|&A
z?=8j1xXt{o#MZ0Q=&D?qsD7$&&D<y(Hs5AS-sR4?+v(d(>2J!FOi0CZA8)t1s)FEc
zkP*Jdio{N`bImAo^<XQj+Uinmr3t^QYDLooGyl=03+2n{31+;jgsFeBGQ3e@a2M68
z$}hFv8P9A@Rh2)*6Rwh8*AFC$0flDnk0hIporA4GQXN-IIXW9Od{3!#7n(sMKDa0}
z*36dDpAi_`#SvR<UG9<XFWosfexbw?y4{pn6^U&np>o+E)k|_!wZbETrJQS4?B2od
zV=ZyVv5nSO^=Fq1Zun}&fYIilg>q-TanR+KzGu7{zc5gFv|LWhnX29u`PDaLys5T`
z4RPrQy@S`Zq--4YxnWxw*Sv$Ju?m%KGz!d6`9|YrGk&S`w+xQ=mVS%D@$So99Z%Pc
zHscOyrK*Dyyq_$S095T>7Joq{a+Ne?4G#r=uJ=2Y=!O&70$2Of!FOd+hN}O|;x*bT
zV}vPgBCRTdK#8oo_7+J{>#U8-3rrc*>xh5mUSs}hlax+5ezo1B(xL<()7Pz(t`(bI
z{vJQsJ?i@`XvqD)U(2hx&D8g=lo5gZS9Zx=)AEN+R@bK6%;h$_I^;*)tuJi~OJ9T<
zwou?cF5jfo9FLzko}Z%zo%?O^9@515E?eXAER(_^(~T#XR!=E!HBu4&D78%uL7HHC
z<i$`@z5U@n0gv%^Brw-_D-x(O4o0LIJroI48h?t&c1I%mKl#;A_P5S0S6j%+w<85|
z4AOlUok(n5UZSbxRYxmJY`YId!ij}d5=3C31mUev&o4rMig+teNSTkw#&1Ld<s~-b
za3oN2BF#G@Fz<xs9T}K!ycr3-9@+hN#5dy9p@?xnqB`|@<kW$Pnk>EhKt!H79#E^p
zsiC(ciLmtL&oq?kXZ+!=`nAu<z7n$UxnPz%FEFAc-8({VnnxDSk2~HQY4wp3GNSE{
z5xMWJ8<BfN#?g$}{d&ZAaQ7P#88{Su#<xeh(RKGT;eVAufQeOI)v7eL%I?k!rWB7z
z2DkgoNc_$BM#c|XujPf_jCe;Z8Ch5+F_c^V)t<#8Bol4&cVy%F2oI{rGD}huA*37|
zDJ|E5h<9k{V8lDzuPq+3cv$nH$nkYUmJU;cUWOkV+8+PJt#X@w>Odr~Og0-@y>5he
zNOeJ=;^PtCingUA0wU?Hln>Ri#_F=BTK2AxtK_`U;mFZSchF(1kEnxto2nhV*GGa`
zzEOcn@6c20B~EW;pu#)EJ1ns9=n&(SI&4FY(-HmtRr0PI*}!-wqOV#dWnn`^ef3tU
z7e~Askw<DO#G*izL_M@bMiiV6rQm2qGMGvg%&%8T?C(VKimSX;5>Dvd$j&NjKvA<)
z|I9$u;nNW-P5K>V#J9(YnRTaCDQh!Zzlcb~9PCghgJW_W&O8$yS0rU?V?=GG_U#ke
z5K#%)5Ro8cLU+v6r?1ji*2{+yhwt_F_;LB9E*r9?;rz=QvA*4umwl+*NR~E6LT5}#
z&&}Q{wQZ{YMZLV3VM9d4&{qX~QJ^ZhcY!QDp`r^^6`XK*tHOuc<8KK-o?E7GMI>U6
z4Cs1Aa+7=hzzsb%e2;`+y>cpIr6(7D=5A77^cAai4c|3XZQV^aaaFHU$7`4zFLz*`
zl>3r~(mY@4Ul&>Xdn5C#p683uyHaM~ZqvV6<!W9PP$eu+71e8`v5;jyD4ZWi;XG!&
zCFLTgtt~L`wGrX;btB5&i7XxA*8BLwC4sVnqb0_B5p~SUkIplWM&z&s=F75UkwB>|
zcs~-TICUx_1w@sy;ej&sWk{f09d~IR9$Tf3ak~5s3^Ptdjt!UBp?n}Uz2N9D<3ojf
zJaTlnaWW$GiAeH_OT1;FL@dSgyybxs@369C5$}A-`tY*%Bi_=`2?;**ffREogP~JW
zbcT2<0z*rrgck&=P92vLlPr@`Fn-aHxB>{xkXKEvX_;Y{k&8Bab^P<1tZ1mjUf->)
z?eM29R@XL}#p>^&>kaX-_4c9``=&alT@8%(4Co%6Jl;PsmS$ZbV_U8Wb{OOBp}(^?
zKVsL1H@L<If?JadWY>@^(;I@V#sqt)(r!ou<@V+ZyMLT)S)b=0uKzONzc^HCZ!S~&
zh90)d+d#L;<Do{wX0Pw#AJBS_eS(o2ZJl8+%Kx#E6ZOc=>6P+=%!^{#;a*0!Xl7Zr
zsQd}#MCFZ}xlwudi*s4Q37HO*(K>aL%9W(o-TG5|QR_^(HjNFF5u$otLol(*BMb7>
zkkQNxiMzi%<*b$<WOa3Ox2TNUYrQHN!pUyY_@}{;gtk1@UM*3{CCl)JyplPxSDU=3
zDo4MnL0(lgVZ!<MeyDhZtL3-5wrkYLjOsHRLfO$SVYNJz8O`n*&CZI-!^!$Qskhlt
z{b=LW+0g>o<V2<~O%|NajJC__puc`noy{)K7Nt|vm}<&9LmbgyhLIZ8^BdJI!)O^#
zGSEtK-MU6^iG;sWm$_X-W6XG(JSbFWN6naS8h4pSUQ}K&85(99v&_(N(|Ev?^7U?{
zd5U@bcx`GlG|jZ`%N%r{1e#GKUvg7}FG~~R>2DRq2FNw;6VFP&twUZAa$S4yA0-77
zBmsU+AJ|x3BbQ`0iKC@=bonCbK>e~^FKUcu_!dYg6T&x2x<XS;8RqqctKnG*-8vl`
zZB5V%pR37;`g_!LiOLwA>84&D3}=Ssn=&4Aa8SCNC;0kGDAu-QWPY38t+BegMtTWS
zB&I|J&-%KnE&TcyYr=6A;~&Bwg=U%7)>uZkHS~aKZIla}7bOk(eI{64l!_ymQ{eWE
z3f*bSq?wyT(<OCX)Ow%g$-Pn}$6sTmsy>Vh)n&HB>K)D%yWUZO3)-^9P*Qo@n(zq8
zO=e^3)D|Nx+B&VpNRQ?{ZuJ{~ouwxOzEB11>!A<X=<60skLRcu<n58cG<RuQG?-i9
zmPD$7U71CaNSW~EnWvg-o3z|=JsUHFJ5|GdNY)v{P1#g>V3JAuS;!_8wZtw}qO5l`
zHmWh08@{ipceJ*5w7q&zmzKO}U0&2xw?_I=5+CJuLavt;eOK#-STA}0lVJ@EEwZo4
zE3?^?yZ>0aT@w5L%3k*?yX%nJH}NsKue1?`&-uF?>TI!Ykf&U+X^BD>bPSZDq9;KF
zC?gtl8eO95So|s0PhPV!+BeFzBUljZ>TY?v#kzRlou>7PG!R(>?=s`rlF<jupd(w#
z<6UOUiI)5n2|)f%m~bwPX%a@STDfeS*XVN$8Xq1jmwD>wp0qAhQQV+bMb)aS!};e|
z)!R>IM6Hb0%&1Juh=1DDB`P16-)*XDFWbm0uv^!-N}u&>%QK^GTT<jKA_0DCosh8V
zwNOS>9_}5^EX#<lk=<t4H)X~%60<Tsme&MlMB{I&*IUZUmQP!Zd1fL!{q9C7>TU8G
z-~ln+>Mt`<Z+Im&>O0;=lO6%76|y=ns#a&q>MpXn*ZI|n+AHg2T}muly$QfBw|0rQ
z@*Lmoh*}@HWx%*Y-o@i6kihbDib7e@*hS&K(tVW~EmE(-JSyWP8|$?^&;QDd)@4SI
zKR!N1-h^_r(G%`bmZ{nqU$?x|U8C`g)6%-gxJG${OY-eL-4bv2xiuN`iM0HjdKnVg
z7(Oihh1rQ6-Q6;yS9gtGofVZ?qqS2L<!+#aGu1Sv$ko0-qh^ZPx@}`_TK=Qed#0F;
zQsfT5voYRVUhVK%vQqrM#kkXK{auSOP0*XBn0uz0%~Q>IyZkM1rO9=CO=h&FYgEoK
z?$Aav_O<nhoIP%p!ja-y`n(JX$cVjQIfB{pv`K$pz1*@(@w(fTe$T)3dfKGdQw(RA
z9=S2imE$4f=kGFusZu#zH#8^Snfj$`d06khT3WaLk>(E~?MtfkzD>>hBTK5nrF!vx
zebH(e{cwQ<JyvybsLI+)zqBblS=M<E>Mu3Por(V0bFPj9(j}3&HAytP-oeQmL1|@W
z<I7Y)y;lS^Z$IhJki^R5vFn?{S&Qc{E?Hc*q;$!=CFL@Kxc+P1@qGA;;A^T*e<U{s
z2h6fIQ}QG?3J1-ym?;?v+jmw4yM<qCZZn(YO6<(q@Gkw!wc)M$qNe5<X4Bo~lJMfS
z?t;MFQ!S=kM|e(cGQGo7hviv?4RZsYB}2SJWscX7>h43V>(>n_9@e;YNSpi}zH~^Q
z@12k|WEpufYSm+UCx=Q*?;ZL@`||=%mYnr&3_K;jTk_n#zVdGFd8V<^lrH5BrX(_8
z8Z9b?4W_Zl)Qdym@$#OFL{3Hp))pL{+bC^SAbixbMm1NO(XRG6kj#>Pc5V3LU|eOl
zr^-c6z|$~y_a-x*ezL{Pi`(3_Eh<pgn2oZd#M5BP0mygA-FJ?pLC#v4L9Og|ISYg@
z4oR9;oAulMwpdQw?$54WW!5}v2Di8>O}Qyi$8ADzTR2s!c5tgKllC^W!OS1l#U`0>
z-LX-=2e)T$Fq7XDgrgwtP`d?pg<lN}wl0-(W4(5=cT|Sr<VCwIQumH=OBTw1a`$&u
zIvxb)dbMXb=JQ<>l9HH^3C&RHmRtnWl5WW?bW>7YCE9RW&>rs*Op}ZJTbjfFs*h~W
zbC({FCSINfN@+OWe7D&&!<29b<u<pNO`FaU6v>j>17^)ZbHH6@rBr;WAZhV50jt?$
zdYbPyo7`spAnWq+gRD#QbFIOld(DDVcbko&`^-}_%r(d3wzlw()TuMrRsNqSaoNc-
z6>2x7R&^_I*Cy^<RgOkkmrILsk6G7ds&4W<a=@gbsvep6!6P{`ZbcnJd4Z=a47SUH
zekx6usyzo;y+YCx)MkdH$K~AdPi&pIAr9xL4bx?h6n)G_*OzPMgzF4`^S$z=lqO2`
z43Dq>CTLe6H|uq4Rk^uVE?%V^N!gPNSg9T&+;lS1{9#0`?3w7@N|vk)2|Ao2#Y<+Q
zEm|$J&w}sCenGX5Ol3%QOTac2@cSxYsZVc*q|hb8mKzYc2F@$nWUBB#i0lmeF0|x1
z%c&EQM!7uxAhJenzgB{FJ+W4a1z(Zp((Tek@khDk7d}<^G`ae*(&c2WF2l0t%f)~y
z0Hdt#>X7zn%~kcgwY#d?`cK31(gjCUiq7&IH7PgCZ<5JUvM@_N*L62#d0npbb=+;r
zMf(g>YO)sF;=4dzO}BX1x*^gY=Ds#0p0#V3+>E;A`$6lgV2YHgWYbtI4?v1LP4#<a
z*l}8(B+IaE^{P$P7pPK{Ize9TJ<klMsxtYYzG+=}mMY!-*XhrwGJd|3FZnIhGn#!t
zREBqtem?vYsd`rG?h?CPLUyc{_0q8^-I|%|8Y)xzHp8hO1kc7h6ZKmKbl19YdNP#6
zT}8dE>0Wzq?H0@DsMGAnm&qGzG`l}Fafcxb+K%th?D3Bi_a5$Gp1SUdN<mVOpX53y
zarM(8S3LPS@>EE!EZ54_jLJYjrT0eZ_K|B6IiAg%Ou224dxfak+-mxNqCU1rg@~F(
zp-twgR<qIL&y|HzlWp}mO%Zd86v^6+(p&s|_{QK2RbCRkhgTWrdJmJGu4+8dKiKP>
zQT5nN*4U&^Qx3Q^)a|C+t*W-lN@<>FdQNUM<NXG1Fs;kvuH1OlOm>pDsfI5r6gQ=J
zQo6(?LvD383uekypY(!$D*-jB0AJ}5^<}Q9=@mU4Gv&YPyg}(@&ZzIp@F#LxE+DEt
zhA&Je$tk_2>K@IqqI-JE8GX+MQFrNNQ~&LY;VTDBG;{kXHg)5lOl5N4)X>Xj{Fg;?
z3YFf0V9x?~@)mvm3v$IP?TRCLmev1N`e+jSs!Sw12l}mfJTtTG-AIw@UT{eFg0@V0
z7QWZ1;InBSxo=Q;Rz3egm1kdikv_RzqH2ECto<UQ01`d4k~E{kY;G}Y?^j2x)@|xD
zUkpBK>@|Zi*-f=4DOQI5&+C0DuJzALn>$9@TsaHmb~PrNa`W~@M89CYJFKqN^KJ1A
zdD`MT*F0-hR$`%*svt7XKYws%sIS@mRhAR-(hB!imt-m`nNuPusJTDc;Es354W>gX
zh_8=z@ch}Y*=;u6Z`L-LwVTYEfLYU$IR8b&Z1+4f9+E4S9+HnHX`;R#o^t$`bLAlY
z-<T-y9LpwmdGm~0RR@f0S@)4bs{1l>T6L+&PorF!XWwep&4}hdx+eA`pFMb~v<df{
zs>9xGN{9XNmPK~?Q@v}5nsAx~kyqIXx%9VOSUb^NGE{MOyckb!P@nSL4bu7bfx_%A
z-Q{XU7XenR@gqTJfjb#(>x`%*D*w^l@}%~%?;=*+_h%!j`(8^#e0XM5UIH#rf0B&Z
znxdGW67|;85h)B(4hLP*bh}y9aylZV#j`w7Vv1V6h}3-{-@Z^iQ&LnCPmQjSlA_9O
zSJins#*`F!+<R^}6Zy!Jd?XLL&q{Qan$kI<c2p;LiP59#RfnmbtlXC@Jkw$+*5rJf
zl!ju{m~Dn0G>tib{Y)TP&%Y~k;eMgnX7(I2PlgO99>DaJ?<X|1?;Q1ajv0PSok2rq
zBXTVr(xOIJsj$*zA$R28RkDc>n&riE@8Ij5Czs{_t4*Cp6Bptihx3}VqwyXi5*OwU
zx&JCQvmZ3$d!!wbQ?ts$WR-_Ry-?X0qsLzg53hgJ|52huSv{oqNg<5iv*n}k^k850
zgvKU~Rm~x@Rw_-R$x_cc64fW1DhG6|G%<f^&TR6`M+Icdv)+|d|DaJgx4FGhvL_pj
zv2GE$O#S2a;SY7^hVTt)p^RnHL+iu&>hmb8Px7JC#ZraT<-)m~R_A^iZb>#Ywmdce
zSF)A+{cPnrRFfwOIM>WdCS?|^J^tYlyY+tZBz{Cc@>2K>>C~1hN9hSSC2fUL`BnY(
zW%bwByb$gwH6(7=`X>VxtYoOkD<PFUsn621$OV+l9^IdO#O0CtA|-d3)D$VY$*Z7O
z<RHe=<#@*IzEnNFAslhtwn5tYm(98^(!=s)ZFaP_ThyN?H$&0^b9J{wAIzz<k;YKB
z=qWAg>mnOS=aO{CRL9?t?wRav(LAfagjaAXJK89LpXwG}^LSpFV7Hme%H&)jXR~&*
zL|qvN?b7%gFPgy}adpRGn#N|+*kT%6Rl%0U+ofQa7MP_&%xhL`S~2M9g-^!o7C!lG
zoxf@Ai!bhKYWm}Aot=jd?@Ih6{*@_jav;)$e>D(k#by2Pxo5hXrnowA{j+O=KYp%B
zYhD{(_xuYlu77F6#uhEoqt)De>-~9yE@&OzKYO%3d2zO5+&tG$ZwOQlbQa${y84p!
z2XC1=dV1lM@#ALP;+iyiY@w@gTH!4-3df9|Hrh4m)=85KC*Cz>{ItTm3&%_;96haY
z+?2wp(<V(RoH+XS!ds@?Ingy~%xz<eMvtF(**MpoQ;TGqv6ClF9Y1aSq=}PmpEPmu
zl*=YhDI7Qc?lG=OQw!xq*o70v);`}ooEdHi7x{k^e(kv%nwLJ`wdtAAnis~s^m@}R
z&0mJrKG$Xa?_Mxo9J2P(4W12mgq{j*4*5dsLjUkWW4LMUKd!&yxlxNoEqX!*&S_fr
zEZb+cbeqHG7}&GV)Gm(H&$2(WWyxeAS=YtUXUxE!*|Kh_BSn69cRV4#`=r<$qi-p6
zO&vRK%5(`x&vnSeO)VqUd10S^{ja@wRN>igzxn#ipRJrU$43`keBldw*S)lLhYZGu
zZ#@u?Z{54^;J$6KJv(9@+jsAX?b#RG-y!SvZ|&&V`HBqTZr{3R*UoLbw{~oeckJGJ
zsJ(Mfd*>@#J73<rGydxKeS2Qrzhme2=$=>oJLKQbG5cRNYV<8*#ukpdwP^fpuG=S0
zo;p3nk(-s}OiN4e(WQHKsy(x3*Q|_bGasyY=%HUOethYZYhK(Od+pGlPJX&|yG(kG
zsR^$g`#Sxaw(aG%KgRd&KXCBS+BL!EO;@I7zGP3?lRNpYiB~SVcgN-vc@wqVE&gez
zZNJb*m1{qG{Kn~Hv}>*!y<>znYWxjzC#J<O$xNM;SUGcSj@B#jDL!Y=x7vXAt-n;?
z+-KMM`n?x<&RX&AsGs+HC;0mTW2}sqb{v`6bjyyB<3|MEz2wKKm!zC%IvV<&<=&(=
zyfMvj^uVLjtKP47jIm16d(S>{$GXKkHm^8x>7BQw{VBcI&umrJ^s1AYsS}r^{c4-M
z^<|TNU2S{w&%*tz6?<-calkuke)T&mE%T||r*GS|S-wA)nF#Jg(+8>Jt>LLZ@3Z6R
z+=)vUOBhEkP0N%&S!vlvO6UI4KW(Kd8GgHTQyl7u#Is~*ry5%zvnNW<x;|>WecF^%
zS)V9AGIjS4YGZ!>Jpos4lgr!SdfJrdpst#gn)S`;72p5g#XtCNeRJ_QGdJG1QH7VL
zYT<w2r+0Lb-SC>VDN%X(d27W+V~N?E5|tYrZHXDSx$B*Wf4V90Vov$jaw;~-ssgu`
z-aESed=$3cQM(F5>m5D6=-l7LNZXXeVwv@tojmqx%&qo=F;&TbmCe;s?@C>j*!Rh&
zeh?I2|3?X2Us*cq5q)9BLkngX>$5B76nE*;MGdk3%TNE=`TBK(uDx-9e#?S~s%Dky
zV~a~4`nzI%YQ=+956@aqoPGa)!cTT~QE_Q$g+8l%j$S0=zaNp2;1BDM6wg|q;=ZX*
zcJ?$+$-=}S@8YT|mD2L6Su*-tQeIZ9kCp-B#rpX1bJh3naw5aRXI1GBmz0+3p5oF<
z{gH}?^oPpl6wAMHsiN^zJgiq$=pOkjJF6k&NsD<Ek1VVznLR%d$AXH|(&7dB>{$!u
zTzx(b#bp)x!?PCZWwYj}5$FjV6;f64LK(X*AuoKWva;gbu=He@YJdHKNA%I9#eb)}
z9-2Mt7bREgw-#5aG%Z-DOEOCzny(f<P+Bo}VP!?t)ekPXMxkFb==y8aaQNbZB_#tB
zVGTT=zJZBEd8*1vRl<Zs#UV!LVlPfaII*OB-mC{J<ltVhP`_=~0~HlzSL=5b>$6H1
zR*2>teU{4R&&5Or+v^n%$}yHQu;2l4k{w*~S)cMydASfs2G8fKq$**N9CM#M9J9*x
z2h>q1oikA4sFKKKw7we9|KNg(GX2)6*G!r!`;0EHswgQh)~A=uEuZy}{u6ytY01w^
zB=CDA?Iq<U+5b)n^Hfz;4!P!<haZ0U>IV{Ka89BKDy08WmGy6sS^EktMca}%fBX$X
z|F0jU{b|X6*8kl6uk`=dKSreRZ!1tE!H@V4Ud#S1Qsn>VBT^a9r>06v)xOQil!#RA
z%#@2+RZTzr=Iq)3%(!ipiHs*2fGi1k?D8X;bCFuso>+0Ce7akf{df53c`lKceb<~#
zz00PJ(p0{_JuCNuTGCEs?0l0S(*D7IQ9}5?Lk>wJ0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
z2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000Iag
zfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}
z0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*sr
zAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_0
z00IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@2q1s}0tg_000IagfB*srAb<b@
c2q1s}0tg_000IagfWYV}w~d}SY5ds#4c!1WFaQ7m

literal 0
HcmV?d00001

diff --git a/4play/DGR.DRIVER.S b/4play/DGR.DRIVER.S
new file mode 100644
index 0000000..25914e5
--- /dev/null
+++ b/4play/DGR.DRIVER.S
@@ -0,0 +1,432 @@
+*
+* A simple DGR driver
+* (c) 2016, Brutal Deluxe Software
+* http://www.brutaldeluxe.fr/
+*
+* Use them at your own risk ;-)
+*
+
+               mx    %11
+               org   $1800
+               lst   off
+
+*---------- Some info
+*
+* The DGR page is similar to the 80-col screen
+* Even columns on aux RAM, odd ones on main RAM
+*
+* There are two pixels per byte:
+* - four high bits for the first pixel
+* - four low bits for the second pixel
+* - and so on...
+* So, we have 80x48 pixels and 16 colors
+*
+* The routines are not optimized!
+* There can be a second DGR page for
+*  flipping, use TXTPAGE1 or TXTPAGE2
+* I did not code them here, sorry ;-)
+*
+*---------- Entry point
+
+               jmp   DGROn          ; Turn DGR on
+               jmp   DGROff         ; Turn DGR off
+               jmp   DGRClear       ; Clear screen
+               jmp   DGRPutPixel    ; Draw a pixel on screen
+               jmp   DGRPutPixel2   ; Alt draw a pixel on screen
+               jmp   DGRGetPixel    ; Get the color of a pixel on screen
+               jmp   DGRGetPixel2   ; Alt get the color of a pixel on screen
+               jmp   DGRSetColor    ; Set the pen color
+               jmp   DGRSetXY       ; Set X1/Y1 coordinates
+               jmp   DGRSetXY2      ; Set X2/Y2 coordinates
+               jmp   DGRSetPage     ; Set page1/page2 data
+               jmp   DGRDrawHLine   ; Draw an horizontal line
+               jmp   DGRDrawHLine2  ; Alt draw an horizontal line
+               jmp   DGRDrawVLine   ; Draw a vertical line
+               jmp   DGRDrawVLine2  ; Alt draw a vertical line
+
+*---------- Information
+
+               asc   8d
+               asc   "DGR routines v1.0"8d
+               asc   "(c) 2016, Brutal Deluxe"
+               asc   8d
+
+*---------- Equates
+
+maskHIGH       =     %11110000      ; Get high bits
+maskLOW        =     %00001111      ; Get low bits
+
+page1          =     $04            ; High RAM ptr of DGR page 1 ($400..$7FF)
+page2          =     $08            ; same for page 2 ($800..$BFF)
+
+dpSCREEN       =     $fe            ; My usage of the zero page ;-)
+
+minX           =     0              ; 80px wide
+maxX           =     80
+minY           =     0              ; 48px height
+maxY           =     48
+
+*--- Values
+
+theCOLOR       ds    1              ; color of
+theCOLORHIGH   ds    1              ; color for high bits (2 pixels per byte)
+theCOLORFULL   ds    1              ; 8-bit color (ORA of the two previous)
+theX1          ds    1              ; where to draw a point
+theY1          ds    1              ; again
+theX2          ds    1              ; same for H and V lines
+theY2          ds    1
+thePAGE        ds    1              ; may contain $04 (page 1) or $08 (page 2)
+
+*--- Softswitches
+
+KBD            =     $c000          ; the first softswitch
+CLR80COL       =     $c000
+SET80COL       =     $c001
+RDMAINRAM      =     $c002
+RDCARDRAM      =     $c003
+WRMAINRAM      =     $c004
+WRCARDRAM      =     $c005
+SETSLOTCXROM   =     $c006
+SETINTCXROM    =     $c007
+SETSTDZP       =     $c008
+SETALTZP       =     $c009
+SETINTC3ROM    =     $c00a
+SETSLOTC3ROM   =     $c00b
+CLR80VID       =     $c00c
+SET80VID       =     $c00d
+TXTCLR         =     $c050
+TXTSET         =     $c051
+MIXCLR         =     $c052
+MIXSET         =     $c053
+TXTPAGE1       =     $c054
+TXTPAGE2       =     $c055
+LORES          =     $c056
+HIRES          =     $c057
+SETAN3         =     $c05e
+CLRAN3         =     $c05f
+
+*---------- Tables
+
+ptrSCRl        hex   0080008000800080
+               hex   28a828a828a828a8
+               hex   50d050d050d050d0
+ptrSCRh        hex   0000010102020303
+               hex   0000010102020303
+               hex   0000010102020303
+
+*---------------------------
+* DGROn
+*  Turn the DGR screen on
+*  Current video conf is not saved
+*
+
+DGROn          =     *
+               sta   SET80COL       ; enable 80 column store
+               sta   SET80VID       ; enable 80 column hardware
+               sta   TXTCLR         ; switch in graphics (not text)
+               sta   MIXCLR         ; clear mixed mode
+               sta   LORES          ; low-resolution graphics
+               sta   SETAN3         ; clear annunciator 3
+
+               lda   #page1         ; exit by forcing page 1
+               jmp   DGRSetPage
+
+*---------------------------
+* DGROff
+*  Turn the DGR screen off
+*  Previous video conf is not restored
+*
+
+DGROff         =     *
+               sta   CLRAN3         ; set annunciator 3
+               sta   TXTPAGE1       ; switch in text page 1
+               sta   MIXSET         ; set mixed mode (4 lines text)
+               sta   TXTSET         ; switch in text (not graphics)
+               sta   CLR80VID       ; disable 80-column hardware
+               sta   CLR80COL       ; disable 80-column store
+               rts
+
+*---------------------------
+* DGRClear
+*  Clear the entire DGR screen
+*  with color A (ie. HOME)
+*
+*  We assume we are on main RAM
+*  We erase in two passes
+*  to preserve the text holes
+*  - $0x00..$0x77
+*  - $0x80..$0xF7
+*
+
+DGRClear       =     *
+               jsr   DGRSetColor    ; set the colors
+
+               lda   #0             ; point to the first page
+               sta   dpSCREEN       ; of the DGR screen
+clear1         lda   thePAGE        ; on PAGE1 or PAGE2
+               sta   dpSCREEN+1
+
+               lda   theCOLORFULL   ; get the full 8-bit color
+
+               ldx   #4-1           ; number of pages to clear
+
+clear2         ldy   #127-8         ; we clear the main RAM page
+]lp            sta   (dpSCREEN),y
+               dey
+               bpl   ]lp
+
+               ldy   #255-8         ; we clear the main RAM page
+]lp            sta   (dpSCREEN),y
+               dey
+               bmi   ]lp
+
+               sta   WRCARDRAM      ; we clear the aux RAM page
+
+               ldy   #127-8
+]lp            sta   (dpSCREEN),y
+               dey
+               bpl   ]lp
+
+               ldy   #255-8         ; we clear the aux RAM page
+]lp            sta   (dpSCREEN),y
+               dey
+               bmi   ]lp
+
+               sta   WRMAINRAM      ; go back to main RAM
+               inc   dpSCREEN+1     ; next page
+               dex                  ; until the
+               bpl   clear2         ; four are done
+               rts                  ; we're done
+
+*---------------------------
+* DGRPutPixel / DGRPutPixel2
+*  Draw a pixel on screen
+*  of color A and coords X,Y
+*
+DGRPutPixel    =     *
+               jsr   DGRSetColor    ; Save color
+               stx   theX1          ; and coordinates
+               sty   theY1
+
+DGRPutPixel2   =     *
+               lda   theY1          ; Set the RAM pointer
+               lsr                  ; of the Y line
+               php                  ; save the carry!
+               tax
+               lda   ptrSCRl,x
+               sta   dpSCREEN
+               lda   ptrSCRh,x
+               clc
+               adc   thePAGE        ; don't forget the page
+               sta   dpSCREEN+1
+
+*--- Put a pixel in main or aux RAM?
+
+               lda   theX1          ; Now, determine where
+               lsr                  ; to put the pixel
+               tay
+               bcs   putpixel1      ; odd means main RAM
+
+               sta   WRCARDRAM      ; we want aux RAM
+
+putpixel1      plp                  ; we restore the carry to
+               bcs   putpixel2      ; determine where to put the pixel
+
+*--- Put in low bits
+
+               lda   (dpSCREEN),y   ; get the pixel
+               and   #maskHIGH      ; keep high bits
+               ora   theCOLOR       ; add the color
+               sta   (dpSCREEN),y   ; put the pixel
+               sta   WRMAINRAM      ; back in main RAM
+               rts
+
+*--- Put in high bits
+
+putpixel2      lda   (dpSCREEN),y   ; get the pixel
+               and   #maskLOW       ; keep low bits
+               ora   theCOLORHIGH   ; add the color
+               sta   (dpSCREEN),y   ; put the color
+               sta   WRMAINRAM      ; back in main RAM
+               rts
+
+*---------------------------
+* DGRGetPixel / DGRGetPixel2
+*  Get the color of a pixel
+*  at coords X,Y and return
+*  it in the Accumulator
+*
+
+DGRGetPixel    =     *
+               stx   theX1
+               sty   theY1
+
+DGRGetPixel2   =     *
+               lda   theY1          ; Set the RAM pointer
+               lsr                  ; of the Y line
+               php                  ; save the carry!
+               tax
+               lda   ptrSCRl,x
+               sta   dpSCREEN
+               lda   ptrSCRh,x
+               clc
+               adc   thePAGE        ; don't forget the page
+               sta   dpSCREEN+1
+
+*--- Get a pixel from main or aux RAM?
+
+               lda   theX1          ; Now, determine where
+               lsr                  ; to put the pixel
+               tay
+               bcs   getpixel1      ; odd means main RAM
+
+               sta   RDCARDRAM      ; we want aux RAM
+
+getpixel1      plp                  ; we restore the carry to
+               bcs   getpixel2      ; determine where to put the pixel
+
+*--- Get in low bits
+
+               lda   (dpSCREEN),y   ; get the pixel
+               and   #maskLOW       ; keep high bits
+               sta   RDMAINRAM      ; back in main RAM
+               rts
+
+*--- Get in high bits
+
+getpixel2      lda   (dpSCREEN),y   ; get the pixel
+               and   #maskHIGH      ; keep high bits
+               lsr
+               lsr
+               lsr
+               lsr                  ; and return
+               sta   RDMAINRAM      ; back in main RAM
+               rts
+
+
+*---------------------------
+* DGRSetColor
+*  Define the pen color
+*  provided in the Accumulator
+*
+
+DGRSetColor    =     *
+               and   #maskLOW       ; keep low 4 bits
+               sta   theCOLOR       ; save color
+               asl                  ; calculate
+               asl                  ; color for
+               asl                  ; other pixel
+               asl                  ; in the same byte
+               sta   theCOLORHIGH   ; save it
+               ora   theCOLOR       ; add lower color
+               sta   theCOLORFULL   ; save the full one
+               rts
+
+*---------------------------
+* DGRSetXY
+*  Set X/Y coords for all actions
+*  through registers X and Y
+*
+
+DGRSetXY       =     *
+               stx   theX1
+               sty   theY1
+               rts
+
+*---------------------------
+* DGRSetXY2
+*  Set X2/Y2 coords for line drawing
+*  through registers X and Y
+*
+
+DGRSetXY2      =     *
+               stx   theX2
+               sty   theY2
+               rts
+
+*---------------------------
+* DGRSetPage
+*  Set PAGE1 or PAGE2
+*  as the default DGR screen
+*  The routine does not force
+*  the page, it sets a value only
+*
+
+DGRSetPage     =     *
+               sta   thePAGE
+               rts
+
+*---------------------------
+* DGRDrawHLine / DGRDrawHLine2
+*  Draw a line of color A
+*  from X1/Y1 to coords in registers X/Y
+*
+*  Incorrect coordinates are NOT checked
+*
+
+DGRDrawHLine   =     *
+               jsr   DGRSetColor
+               stx   theX2
+               sty   theY2
+
+DGRDrawHLine2  =     *
+               lda   theY1          ; are Y the same?
+               cmp   theY2
+               beq   drawh1
+               sec                  ; error
+               rts
+drawh1         lda   theX2          ; X2>X1?
+               cmp   theX1
+               bcs   drawh2         ; OK
+               ldx   theX1          ; exchange
+               stx   theX2          ; the two
+               sta   theX1          ; X coords
+
+drawh2         jsr   DGRPutPixel2   ; put a pixel
+
+               inc   theX1          ; next X
+               lda   theX1
+               cmp   theX2          ; until the last
+               bcc   drawh2
+               beq   drawh2
+               rts
+
+*---------------------------
+* DGRDrawVLine / DGRDrawVLine2
+*  Draw a line of color A
+*  from X1/Y1 to coords in registers X/Y
+*
+*  Incorrect coordinates are NOT checked
+*
+
+DGRDrawVLine   =     *
+               jsr   DGRSetColor
+               stx   theX2
+               sty   theY2
+
+DGRDrawVLine2  =     *
+               lda   theX1          ; are X the same?
+               cmp   theX2
+               beq   drawv1
+               sec                  ; error
+               rts
+drawv1         lda   theY2          ; Y2>Y1?
+               cmp   theY1
+               bcs   drawv2         ; OK
+               ldx   theY1          ; exchange
+               stx   theY2          ; the two
+               sta   theY1          ; Y coords
+
+drawv2         jsr   DGRPutPixel2   ; put a pixel
+
+               inc   theY1          ; next Y
+               lda   theY1
+               cmp   theY2          ; until the last
+               bcc   drawv2
+               beq   drawv2
+               rts
+
+*--- End of code
+
+               ds    \
+
diff --git a/4play/DGR.DRIVER2.S b/4play/DGR.DRIVER2.S
new file mode 100644
index 0000000..7088b79
--- /dev/null
+++ b/4play/DGR.DRIVER2.S
@@ -0,0 +1,449 @@
+*
+* A simple DGR driver
+* (c) 2016, Brutal Deluxe Software
+* http://www.brutaldeluxe.fr/
+*
+* Use them at your own risk ;-)
+*
+
+               mx    %11
+               org   $1800
+               lst   off
+
+*---------- Some info
+*
+* The DGR page is similar to the 80-col screen
+* Even columns on aux RAM, odd ones on main RAM
+*
+* There are two pixels per byte:
+* - four high bits for the first pixel
+* - four low bits for the second pixel
+* - and so on...
+* So, we have 80x48 pixels and 16 colors
+*
+* The routines are not optimized!
+* There can be a second DGR page for
+*  flipping, use TXTPAGE1 or TXTPAGE2
+* I did not code them here, sorry ;-)
+*
+*---------- Entry point
+
+               jmp   DGROn          ; Turn DGR on
+               jmp   DGROff         ; Turn DGR off
+               jmp   DGRClear       ; Clear screen
+               jmp   DGRPutPixel    ; Draw a pixel on screen
+               jmp   DGRPutPixel2   ; Alt draw a pixel on screen
+               jmp   DGRGetPixel    ; Get the color of a pixel on screen
+               jmp   DGRGetPixel2   ; Alt get the color of a pixel on screen
+               jmp   DGRSetColor    ; Set the pen color
+               jmp   DGRSetXY       ; Set X1/Y1 coordinates
+               jmp   DGRSetXY2      ; Set X2/Y2 coordinates
+               jmp   DGRSetPage     ; Set page1/page2 data
+               jmp   DGRDrawHLine   ; Draw an horizontal line
+               jmp   DGRDrawHLine2  ; Alt draw an horizontal line
+               jmp   DGRDrawVLine   ; Draw a vertical line
+               jmp   DGRDrawVLine2  ; Alt draw a vertical line
+
+*---------- Information
+
+               asc   8d
+               asc   "DGR routines v1.0"8d
+               asc   "(c) 2016, Brutal Deluxe"
+               asc   8d
+
+*---------- Equates
+
+maskHIGH       =     %11110000      ; Get high bits
+maskLOW        =     %00001111      ; Get low bits
+
+page1          =     $04            ; High RAM ptr of DGR page 1 ($400..$7FF)
+page2          =     $08            ; same for page 2 ($800..$BFF)
+
+dpSCREEN       =     $fe            ; My usage of the zero page ;-)
+
+minX           =     0              ; 80px wide
+maxX           =     80
+minY           =     0              ; 48px height
+maxY           =     48
+
+*--- Values
+
+theCOLOR       ds    1              ; color of
+theCOLORHIGH   ds    1              ; color for high bits (2 pixels per byte)
+theCOLORFULL   ds    1              ; 8-bit color (ORA of the two previous)
+theX1          ds    1              ; where to draw a point
+theY1          ds    1              ; again
+theX2          ds    1              ; same for H and V lines
+theY2          ds    1
+thePAGE        ds    1              ; may contain $04 (page 1) or $08 (page 2)
+
+*--- Softswitches
+
+KBD            =     $c000          ; the first softswitch
+CLR80COL       =     $c000
+SET80COL       =     $c001
+RDMAINRAM      =     $c002
+RDCARDRAM      =     $c003
+WRMAINRAM      =     $c004
+WRCARDRAM      =     $c005
+SETSLOTCXROM   =     $c006
+SETINTCXROM    =     $c007
+SETSTDZP       =     $c008
+SETALTZP       =     $c009
+SETINTC3ROM    =     $c00a
+SETSLOTC3ROM   =     $c00b
+CLR80VID       =     $c00c
+SET80VID       =     $c00d
+TXTCLR         =     $c050
+TXTSET         =     $c051
+MIXCLR         =     $c052
+MIXSET         =     $c053
+TXTPAGE1       =     $c054
+TXTPAGE2       =     $c055
+LORES          =     $c056
+HIRES          =     $c057
+SETAN0         =     $c058
+CLRAN0         =     $c059
+SETAN1         =     $c05a
+CLRAN1         =     $c05b
+SETAN2         =     $c05c
+CLRAN2         =     $c05d
+SETAN3         =     $c05e
+CLRAN3         =     $c05f
+
+*---------- Tables
+
+ptrSCRl        hex   0080008000800080
+               hex   28a828a828a828a8
+               hex   50d050d050d050d0
+ptrSCRh        hex   0404050506060707
+               hex   0404050506060707
+               hex   0404050506060707
+
+*---------------------------
+* DGROn
+*  Turn the DGR screen on
+*  Current video conf is not saved
+*
+
+DGROn          =     *
+               sta   TXTCLR         ; switch in graphics (not text)
+               sta   MIXCLR         ; clear mixed mode
+               sta   TXTPAGE1       ; page 1
+               sta   LORES          ; low-resolution graphics
+
+               ldx   #2
+]lp            sta   SET80COL       ; enable 80 column store
+               sta   CLRAN2         ; set annunciator 2
+               sta   CLR80VID       ; disable 80 column hardware
+               sta   SETAN3         ; clear annunciator 3
+               sta   CLRAN3         ; set annunciator 3
+               sta   SET80VID       ; enable 80 column hardware
+               sta   SETAN3         ; clear annunciator 3
+               dex
+               bne   ]lp
+               rts
+
+*---------------------------
+* DGROff
+*  Turn the DGR screen off
+*  Previous video conf is not restored
+*
+
+DGROff         =     *
+               sta   CLRAN3         ; set annunciator 3
+               sta   TXTPAGE1       ; switch in text page 1
+               sta   MIXSET         ; set mixed mode (4 lines text)
+               sta   TXTSET         ; switch in text (not graphics)
+               sta   CLR80VID       ; disable 80-column hardware
+               sta   CLR80COL       ; disable 80-column store
+               rts
+
+*---------------------------
+* DGRClear
+*  Clear the entire DGR screen
+*  with color A (ie. HOME)
+*
+*  We assume we are on main RAM
+*  We erase in two passes
+*  to preserve the text holes
+*  - $0x00..$0x77
+*  - $0x80..$0xF7
+*
+
+DGRClear       =     *
+               jsr   DGRSetColor    ; set the colors
+
+* lda #$00 ; point to the first page
+* sta dpSCREEN ; of the DGR screen
+*clear1 lda #$04 ; on PAGE1 or PAGE2
+* sta dpSCREEN+1
+
+               lda   #0
+               sta   clearX+1
+               sta   clearY+1
+clear1         lda   #4
+               sta   clearX+2
+               sta   clearY+2
+
+               lda   theCOLORFULL   ; get the full 8-bit color
+
+               ldx   #4-1           ; number of pages to clear
+
+clear2         ldy   #127-8         ; we clear the main RAM page
+clearX         sta   $bdbd,y
+               dey
+               bpl   clearX
+
+               sta   WRCARDRAM      ; we clear the aux RAM page
+               ldy   #127-8
+clearY         sta   $bdbd,y
+               dey
+               bpl   clearY
+
+               sta   WRMAINRAM      ; go back to main RAM
+               inc   clearX+2       ; next page
+               inc   clearY+2
+               dex                  ; until the
+               bpl   clear2         ; four are done
+
+               lda   clearX+1       ; check if we have done
+               bmi   clear3         ; the second pass
+               lda   #$80           ; no, so prepare it
+               sta   clearX+1       ; and...
+               sta   clearY+1
+               bne   clear1         ; ...loop
+clear3         rts                  ; we're done
+
+*---------------------------
+* DGRPutPixel / DGRPutPixel2
+*  Draw a pixel on screen
+*  of color A and coords X,Y
+*
+DGRPutPixel    =     *
+               jsr   DGRSetColor    ; Save color
+               stx   theX1          ; and coordinates
+               sty   theY1
+
+DGRPutPixel2   =     *
+               lda   theY1          ; Set the RAM pointer
+               lsr                  ; of the Y line
+               php                  ; save the carry!
+               tax
+               lda   ptrSCRl,x
+               sta   dpSCREEN
+               lda   ptrSCRh,x
+* clc
+* adc thePAGE ; don't forget the page
+               sta   dpSCREEN+1
+
+*--- Put a pixel in main or aux RAM?
+
+               lda   theX1          ; Now, determine where
+               lsr                  ; to put the pixel
+               tay
+               bcs   putpixel1      ; odd means main RAM
+
+               sta   TXTPAGE2       ; we want aux RAM
+
+putpixel1      plp                  ; we restore the carry to
+               bcc   putpixel2      ; determine where to put the pixel
+
+*--- Put in low bits
+
+               lda   (dpSCREEN),y   ; get the pixel
+               and   #maskHIGH      ; keep high bits
+               ora   theCOLOR       ; add the color
+               sta   (dpSCREEN),y   ; put the pixel
+               sta   TXTPAGE1       ; back in main RAM
+               rts
+
+*--- Put in high bits
+
+putpixel2      lda   (dpSCREEN),y   ; get the pixel
+               and   #maskLOW       ; keep low bits
+               ora   theCOLORHIGH   ; add the color
+               sta   (dpSCREEN),y   ; put the color
+               sta   TXTPAGE1       ; back in main RAM
+               rts
+
+*---------------------------
+* DGRGetPixel / DGRGetPixel2
+*  Get the color of a pixel
+*  at coords X,Y and return
+*  it in the Accumulator
+*
+
+DGRGetPixel    =     *
+               stx   theX1
+               sty   theY1
+
+DGRGetPixel2   =     *
+               lda   theY1          ; Set the RAM pointer
+               lsr                  ; of the Y line
+               php                  ; save the carry!
+               tax
+               lda   ptrSCRl,x
+               sta   dpSCREEN
+               lda   ptrSCRh,x
+* clc
+* adc thePAGE ; don't forget the page
+               sta   dpSCREEN+1
+
+*--- Get a pixel from main or aux RAM?
+
+               lda   theX1          ; Now, determine where
+               lsr                  ; to put the pixel
+               tay
+               bcs   getpixel1      ; odd means main RAM
+
+               sta   TXTPAGE2       ; we want aux RAM
+
+getpixel1      plp                  ; we restore the carry to
+               bcc   getpixel2      ; determine where to put the pixel
+
+*--- Get in low bits
+
+               lda   (dpSCREEN),y   ; get the pixel
+               and   #maskLOW       ; keep high bits
+               sta   TXTPAGE1       ; back in main RAM
+               rts
+
+*--- Get in high bits
+
+getpixel2      lda   (dpSCREEN),y   ; get the pixel
+               and   #maskHIGH      ; keep high bits
+               lsr
+               lsr
+               lsr
+               lsr                  ; and return
+               sta   TXTPAGE1       ; back in main RAM
+               rts
+
+
+*---------------------------
+* DGRSetColor
+*  Define the pen color
+*  provided in the Accumulator
+*
+
+DGRSetColor    =     *
+               and   #maskLOW       ; keep low 4 bits
+               sta   theCOLOR       ; save color
+               asl                  ; calculate
+               asl                  ; color for
+               asl                  ; other pixel
+               asl                  ; in the same byte
+               sta   theCOLORHIGH   ; save it
+               ora   theCOLOR       ; add lower color
+               sta   theCOLORFULL   ; save the full one
+               rts
+
+*---------------------------
+* DGRSetXY
+*  Set X/Y coords for all actions
+*  through registers X and Y
+*
+
+DGRSetXY       =     *
+               stx   theX1
+               sty   theY1
+               rts
+
+*---------------------------
+* DGRSetXY2
+*  Set X2/Y2 coords for line drawing
+*  through registers X and Y
+*
+
+DGRSetXY2      =     *
+               stx   theX2
+               sty   theY2
+               rts
+
+*---------------------------
+* DGRSetPage
+*  Set PAGE1 or PAGE2
+*  as the default DGR screen
+*  The routine does not force
+*  the page, it sets a value only
+*
+
+DGRSetPage     =     *
+               sta   thePAGE
+               rts
+
+*---------------------------
+* DGRDrawHLine / DGRDrawHLine2
+*  Draw a line of color A
+*  from X1/Y1 to coords in registers X/Y
+*
+*  Incorrect coordinates are NOT checked
+*
+
+DGRDrawHLine   =     *
+               jsr   DGRSetColor
+               stx   theX2
+               sty   theY2
+
+DGRDrawHLine2  =     *
+               lda   theY1          ; are Y the same?
+               cmp   theY2
+               beq   drawh1
+               sec                  ; error
+               rts
+drawh1         lda   theX2          ; X2>X1?
+               cmp   theX1
+               bcs   drawh2         ; OK
+               ldx   theX1          ; exchange
+               stx   theX2          ; the two
+               sta   theX1          ; X coords
+
+drawh2         jsr   DGRPutPixel2   ; put a pixel
+
+               inc   theX1          ; next X
+               lda   theX1
+               cmp   theX2          ; until the last
+               bcc   drawh2
+               beq   drawh2
+               rts
+
+*---------------------------
+* DGRDrawVLine / DGRDrawVLine2
+*  Draw a line of color A
+*  from X1/Y1 to coords in registers X/Y
+*
+*  Incorrect coordinates are NOT checked
+*
+
+DGRDrawVLine   =     *
+               jsr   DGRSetColor
+               stx   theX2
+               sty   theY2
+
+DGRDrawVLine2  =     *
+               lda   theX1          ; are X the same?
+               cmp   theX2
+               beq   drawv1
+               sec                  ; error
+               rts
+drawv1         lda   theY2          ; Y2>Y1?
+               cmp   theY1
+               bcs   drawv2         ; OK
+               ldx   theY1          ; exchange
+               stx   theY2          ; the two
+               sta   theY1          ; Y coords
+
+drawv2         jsr   DGRPutPixel2   ; put a pixel
+
+               inc   theY1          ; next Y
+               lda   theY1
+               cmp   theY2          ; until the last
+               bcc   drawv2
+               beq   drawv2
+               rts
+
+*--- End of code
+
+               ds    \
+
diff --git a/4play/FP.DRIVER.S b/4play/FP.DRIVER.S
new file mode 100644
index 0000000..a3f2d92
--- /dev/null
+++ b/4play/FP.DRIVER.S
@@ -0,0 +1,349 @@
+*
+* Alex Lukazi's 4play routines
+* http://lukazi.blogspot.com/
+*
+* (c) 2016, Brutal Deluxe Software
+* http://www.brutaldeluxe.fr/
+*
+* Use them at your own risk ;-)
+*
+
+                        mx    %11
+                        org   $1000
+                        lst   off
+
+*---------- Entry point
+
+                        jmp   FPInitAll                          ; Clear tables and variables
+                        jmp   FPFindAll                          ; Find all 4play cards
+                        jmp   FPFindIt                           ; Return 1st 4play card found (if any)
+                        jmp   FPLoopIt                           ; ...and you can continue looping
+                        jmp   FPReadDigital                      ; Read the joystick the new way
+                        jmp   FPSetAnalogClampValues             ; Set the values for the old way
+                        jmp   FPReadAnalog                       ; Read the joystick the old way
+                        jmp   FPReadTrigger                      ; Read buttons
+                        jmp   FPReadTrigger1                     ; Read buttons
+                        jmp   FPReadTrigger2                     ; Read buttons
+                        jmp   FPReadTrigger3                     ; Read buttons
+                        jmp   FPSetSlot                          ; Force 4play slot for...
+                        jmp   FPDirectRead                       ; ...a direct read of a joystick
+
+*---------- Information
+
+                        asc   8d
+                        asc   "6502 4play routines v1.0"8d
+                        asc   "(c) 2016, Brutal Deluxe Software"
+                        asc   8d
+
+*---------- Equates
+
+*--- Mask bits
+
+fpUP                    =     %00000001                          ; active high
+fpDOWN                  =     %00000010                          ; active high
+fpLEFT                  =     %00000100                          ; active high
+fpRIGHT                 =     %00001000                          ; active high
+fpNOTUSED               =     %00010000
+fpTRIGGER3              =     %00100000                          ; active low
+fpTRIGGER2              =     %01000000                          ; active high
+fpTRIGGER1              =     %10000000                          ; active high
+
+maskBIT0                =     %11111110                          ; #$FE masks bit 0
+maskBIT1                =     %11111101                          ; #$FD masks bit 1
+maskBIT2                =     %11111011                          ; #$FB masks bit 2
+maskBIT3                =     %11110111                          ; #$F7 masks bit 3
+maskBIT4                =     %11101111                          ; #$EF masks bit 4
+maskBIT5                =     %11011111                          ; #$DF masks bit 5
+maskBIT6                =     %10111111                          ; #$BF masks bit 6
+maskBIT7                =     %01111111                          ; #$7F masks bit 7
+
+*--- Values
+
+fpDFTVALUE              =     $20                                ; dft value for Rev. B
+
+*--- Softswitches
+
+KBD                     =     $c000                              ; the first softswitch
+swSLOT0                 =     $80                                ; as in $C080...
+swSLOT7                 =     $F0                                ; as in $C0F0...
+swSLOT8                 =     $00                                ; as in $C100... ahem...
+
+*--- Zero page
+
+dpF0                    =     $F0                                ; For indirect access to a card
+; $F2 for slot 1
+; $FE for slot 7
+
+*---------- Tables
+
+curINDEX                ds    1
+fpTABLE                 ds    7                                  ; We can have up to 7 cards
+fpTABLE2                ds    7                                  ; One entry per slot
+
+*--- This table serves in digital to analog read
+
+fpCLAMPTBL              dfb   $80                                ; no movement
+                        dfb   $00                                ; min up or left
+                        dfb   $ff                                ; max down or right
+                        dfb   $80                                ; no movement
+
+*---------------------------
+* FPInitAll
+*  Do what is necessary
+*  to clear all data
+*
+
+FPInitAll               =     *
+
+                        ldx   #fpTABLE2-fpTABLE
+                        lda   #0
+                        sta   curINDEX                           ; reset index
+]lp                     sta   fpTABLE,x                          ; and the
+                        sta   fpTABLE2,x                         ; two tables
+                        sta   |dpF0,x                            ; beware on the IIgs
+                        sta   |dpF0+1,x                          ; beware on the IIgs
+                        dex
+                        bpl   ]lp
+                        rts
+
+*---------------------------
+* FPFindAll
+*  Find all the 4play cards
+*  in your Apple II computer
+*  by looking through the slots
+*
+* On exit:
+*  A: number of cards found
+*  Carry clear: we have 1+ card(s)
+*          set: no card found
+*
+
+FPFindAll               =     *
+
+                        jsr   FPFindIt                           ; try to find a 4play card
+                        bcc   FPLoopAll                          ; we have found one
+                        lda   curINDEX                           ; it is normally zero
+                        rts                                      ; no card found tell it
+
+FPLoopAll               ldy   curINDEX                           ; when one found
+                        sta   fpTABLE,y                          ; save its slot
+                        inc   curINDEX
+
+                        pha                                      ; slot becomes index
+                        asl                                      ; 1=>2, 2=>4
+                        tay                                      ; the index
+                        txa                                      ; slot*16
+                        sta   |dpF0,y                            ; is stored in DP
+                        lda   #>KBD                              ; and the high value
+                        sta   |dpF0+1,y                          ; also
+
+                        pla                                      ; restore slot
+                        tay                                      ; slot becomes index
+                        dey                                      ; minus 1 (because table is 7b)
+                        txa                                      ; slot*16 in A
+                        sta   fpTABLE2,y                         ; save slot*16 in fpTABLE2,A
+
+                        jsr   FPLoopIt                           ; loop again (X is preserved)
+                        bcc   FPLoopAll                          ; another one found
+                        lda   curINDEX                           ; tell the number of cards found
+                        clc                                      ; tell we've found one at least
+                        rts
+
+*---------------------------
+* FPFindIt
+*  Loop through the softswitches
+*  $C0s0..$C0s3 for 4 consecutive
+*  default value (see above)
+*
+*  On exit:
+*   A: slot
+*   X: slot*16
+*   Carry clear: card found
+*           set: card not found
+*
+
+FPFindIt                =     *
+
+                        ldx   #swSLOT8
+
+FPLoopIt                =     *                                  ; Search for the default value
+
+                        txa                                      ; previous slot
+                        sec
+                        sbc   #$10
+                        tax
+                        cpx   #swSLOT0                           ; until slot 0
+                        bne   FPLoopIt1                          ; see if there is a card
+                        sec                                      ; no 4play card
+                        rts
+
+FPLoopIt1               lda   KBD,x                              ; $C0s0
+                        cmp   #fpDFTVALUE
+                        bne   FPLoopIt
+                        lda   KBD+1,x                            ; $C0s1
+                        cmp   #fpDFTVALUE
+                        bne   FPLoopIt
+                        lda   KBD+2,x                            ; $C0s2
+                        cmp   #fpDFTVALUE
+                        bne   FPLoopIt
+                        lda   KBD+3,x                            ; $C0s3
+                        cmp   #fpDFTVALUE
+                        bne   FPLoopIt                           ; card not found
+
+                        txa                                      ; 4play card found
+                        and   #maskBIT7                          ; mask bit 7 (= -#$80)
+                        lsr
+                        lsr
+                        lsr
+                        lsr                                      ; X= slot*16
+                        clc                                      ; A= slot
+                        rts                                      ; done
+
+*---------------------------
+* FPSetSlot
+*
+* Set the slot of the 4play card
+* to allow the FPDirectRead to
+* read joystick values rapidly
+*
+* On entry:
+*  X: slot (1..7) of the 4play card
+*
+
+FPSetSlot               =     *
+
+                        lda   fpTABLE2-1,x                       ; coz slot 1 is offset 0
+                        beq   FPSetSlot1                         ; no card, exit
+                        sta   FPDRPatch+1
+                        clc                                      ; with success
+                        rts
+FPSetSlot1              sec                                      ; with error
+                        rts
+
+*---------------------------
+* FPDirectRead
+*
+* This routine reads the
+* indexed joystick data
+*
+* On entry:
+*  X: player's joystick (1..4)
+*
+
+FPDirectRead            =     *
+
+                        dex                                      ; from 1..4 to 0..3
+FPDRPatch               lda   KBD,x                              ; $C090 for S1 .. $C0F0 for S7
+                        inx                                      ; from 0..3 to 1..4
+                        rts
+
+*---------------------------
+* FPReadDigital
+*
+* On entry:
+*  X: joystick to read (1..4)
+*
+
+FPReadDigital           =     *
+
+                        jmp   FPDirectRead
+
+*---------------------------
+* FPSetAnalogClampValues
+*
+* This routine sets the clamp values
+* used in the analog mode
+*
+* On entry:
+*  A: no movement value
+*  X: minimal value (up or left)
+*  Y: maximal value (down or right)
+*
+
+FPSetAnalogClampValues  =     *
+
+                        sta   fpCLAMPTBL
+                        sta   fpCLAMPTBL+3
+                        stx   fpCLAMPTBL+1
+                        sty   fpCLAMPTBL+2
+                        rts
+
+*---------------------------
+* FPReadAnalog
+*
+* This routine returns analog values
+* from a digital read. It is not similar
+* to PREAD, the routine in ROM
+*
+* On entry:
+*  X: joystick to read (1..4)
+*
+* On exit:
+*  X: analog value for left/right
+*  Y: analog value for up/down
+*
+
+FPReadAnalog            =     *
+
+                        jsr   FPDirectRead
+
+                        pha                                      ; save joystick value
+                        and   #fpUP+fpDOWN                       ; keep up/down
+                        tax                                      ; get it in our table
+                        lda   fpCLAMPTBL,x
+                        tay                                      ; return in Y
+
+                        pla                                      ; restore joystick value
+                        and   #fpLEFT+fpRIGHT                    ; keep left/right
+                        lsr                                      ; /2
+                        lsr                                      ; /2
+                        tax                                      ; get it in our table
+                        lda   fpCLAMPTBL,x
+                        tax                                      ; return in X
+                        rts
+
+*---------------------------
+* FPReadTrigger
+*
+* A set of routines to read the triggers
+* (or buttons)
+* Note that we read /TRIGGER3 (active low)
+* whereas we read TRIGGER1 and TRIGGER2 (active high)
+*
+* The routines must be adapted according to your needs
+*
+* On entry:
+*  X: joystick to read (1..4)
+*
+
+FPReadTrigger           =     *
+
+                        jsr   FPDirectRead
+                        and   #fpTRIGGER1+fpTRIGGER2+fpTRIGGER3
+                        clc                                      ; <= if useless, remove
+                        rts
+
+FPReadTrigger1          =     *
+
+                        jsr   FPDirectRead
+                        and   #fpTRIGGER1                        ; because it is TRIGGER1
+                        rts
+
+FPReadTrigger2          =     *
+
+                        jsr   FPDirectRead
+                        and   #fpTRIGGER2                        ; because it is TRIGGER2
+                        asl                                      ; bit 6 > bit 7
+                        rts
+
+FPReadTrigger3          =     *
+
+                        jsr   FPDirectRead
+                        and   #fpTRIGGER3
+                        eor   #fpTRIGGER3                        ; because we read /TRIGGER3
+                        asl                                      ; bit 5 > bit 6
+                        asl                                      ; bit 6 > bit 7
+                        rts
+
+                        ds    \
+
diff --git a/4play/GR.DRIVER.S b/4play/GR.DRIVER.S
new file mode 100644
index 0000000..b5a8ead
--- /dev/null
+++ b/4play/GR.DRIVER.S
@@ -0,0 +1,393 @@
+*
+* A simple GR driver
+* (c) 2016, Brutal Deluxe Software
+* http://www.brutaldeluxe.fr/
+*
+* Use them at your own risk ;-)
+*
+
+              mx    %11
+              org   $1800
+              lst   off
+
+*---------- Some info
+*
+* The GR page is similar to the 40-col screen
+*
+* There are two pixels per byte:
+* - four high bits for the first pixel
+* - four low bits for the second pixel
+* - and so on...
+* So, we have 40x48 pixels and 16 colors
+*
+* The routines are not optimized!
+*
+*---------- Entry point
+
+              jmp   GROn          ; Turn GR on
+              jmp   GROff         ; Turn GR off
+              jmp   GRClear       ; Clear screen
+              jmp   GRPutPixel    ; Draw a pixel on screen
+              jmp   GRPutPixel2   ; Alt draw a pixel on screen
+              jmp   GRGetPixel    ; Get the color of a pixel on screen
+              jmp   GRGetPixel2   ; Alt get the color of a pixel on screen
+              jmp   GRSetColor    ; Set the pen color
+              jmp   GRSetXY       ; Set X1/Y1 coordinates
+              jmp   GRSetXY2      ; Set X2/Y2 coordinates
+              jmp   GRSetPage     ; Set page1/page2 data
+              jmp   GRDrawHLine   ; Draw an horizontal line
+              jmp   GRDrawHLine2  ; Alt draw an horizontal line
+              jmp   GRDrawVLine   ; Draw a vertical line
+              jmp   GRDrawVLine2  ; Alt draw a vertical line
+
+*---------- Information
+
+              asc   8d
+              asc   "GR routines v1.0"8d
+              asc   "(c) 2016, Brutal Deluxe"
+              asc   8d
+
+*---------- Equates
+
+maskHIGH      =     %11110000     ; Get high bits
+maskLOW       =     %00001111     ; Get low bits
+
+page1         =     $04           ; High RAM ptr of GR page 1 ($400..$7FF)
+page2         =     $08           ; same for page 2 ($800..$BFF)
+
+dpSCREEN      =     $fe           ; My usage of the zero page ;-)
+
+minX          =     0             ; 80px wide
+maxX          =     40
+minY          =     0             ; 48px height
+maxY          =     48
+
+*--- Values
+
+theCOLOR      ds    1             ; color of
+theCOLORHIGH  ds    1             ; color for high bits (2 pixels per byte)
+theCOLORFULL  ds    1             ; 8-bit color (ORA of the two previous)
+theX1         ds    1             ; where to draw a point
+theY1         ds    1             ; again
+theX2         ds    1             ; same for H and V lines
+theY2         ds    1
+thePAGE       ds    1             ; may contain $04 (page 1) or $08 (page 2)
+
+*--- Softswitches
+
+KBD           =     $c000         ; the first softswitch
+CLR80COL      =     $c000
+SET80COL      =     $c001
+RDMAINRAM     =     $c002
+RDCARDRAM     =     $c003
+WRMAINRAM     =     $c004
+WRCARDRAM     =     $c005
+SETSLOTCXROM  =     $c006
+SETINTCXROM   =     $c007
+SETSTDZP      =     $c008
+SETALTZP      =     $c009
+SETINTC3ROM   =     $c00a
+SETSLOTC3ROM  =     $c00b
+CLR80VID      =     $c00c
+SET80VID      =     $c00d
+TXTCLR        =     $c050
+TXTSET        =     $c051
+MIXCLR        =     $c052
+MIXSET        =     $c053
+TXTPAGE1      =     $c054
+TXTPAGE2      =     $c055
+LORES         =     $c056
+HIRES         =     $c057
+SETAN3        =     $c05e
+CLRAN3        =     $c05f
+
+*---------- Tables
+
+ptrSCRl       hex   0080008000800080
+              hex   28a828a828a828a8
+              hex   50d050d050d050d0
+ptrSCRh       hex   0000010102020303
+              hex   0000010102020303
+              hex   0000010102020303
+
+*---------------------------
+* GROn
+*  Turn the GR screen on
+*  Current video conf is not saved
+*
+
+GROn          =     *
+              sta   TXTCLR        ; switch in graphics (not text)
+              sta   MIXCLR        ; clear mixed mode
+              sta   TXTPAGE1      ; force page 1
+              sta   LORES         ; low-resolution graphics
+
+              lda   #page1        ; exit by forcing page 1
+              jmp   GRSetPage
+
+*---------------------------
+* GROff
+*  Turn the GR screen off
+*  Previous video conf is not restored
+*
+
+GROff         =     *
+              sta   TXTPAGE1      ; switch in text page 1
+              sta   MIXSET        ; set mixed mode (4 lines text)
+              sta   TXTSET        ; switch in text (not graphics)
+              rts
+
+*---------------------------
+* GRClear
+*  Clear the entire GR screen
+*  with color A (ie. HOME)
+*
+*  We preserve the text holes
+*  - $0x00..$0x77
+*  - $0x80..$0xF7
+*
+
+GRClear       =     *
+              jsr   GRSetColor    ; set the colors
+
+              lda   #0            ; point to the first page
+              sta   dpSCREEN      ; of the GR screen
+              lda   thePAGE       ; on PAGE1 or PAGE2
+              sta   dpSCREEN+1
+
+              lda   theCOLORFULL  ; get the full 8-bit color
+
+              ldx   #4-1          ; number of pages to clear
+
+clear2        ldy   #127-8        ; we clear the RAM page
+]lp           sta   (dpSCREEN),y
+              dey
+              bpl   ]lp
+
+              ldy   #255-8        ; we clear the RAM page
+]lp           sta   (dpSCREEN),y
+              dey
+              bmi   ]lp
+
+              inc   dpSCREEN+1    ; next page
+              dex                 ; until the
+              bpl   clear2        ; four are done
+              rts                 ; we're done
+
+*---------------------------
+* GRPutPixel / GRPutPixel2
+*  Draw a pixel on screen
+*  of color A and coords X,Y
+*
+GRPutPixel    =     *
+              jsr   GRSetColor    ; Save color
+              stx   theX1         ; and coordinates
+              sty   theY1
+
+GRPutPixel2   =     *
+              lda   theY1         ; Set the RAM pointer
+              lsr                 ; of the Y line
+              php                 ; save the carry!
+              tax
+              lda   ptrSCRl,x
+              sta   dpSCREEN
+              lda   ptrSCRh,x
+              clc
+              adc   thePAGE       ; don't forget the page
+              sta   dpSCREEN+1
+
+*--- Put a pixel
+
+              ldy   theX1         ; Now, determine where to put the pixel
+
+              plp                 ; we restore the carry to
+              bcs   putpixel2     ; determine where to put the pixel
+
+*--- Put in low bits
+
+              lda   (dpSCREEN),y  ; get the pixel
+              and   #maskHIGH     ; keep high bits
+              ora   theCOLOR      ; add the color
+              sta   (dpSCREEN),y  ; put the pixel
+              rts
+
+*--- Put in high bits
+
+putpixel2     lda   (dpSCREEN),y  ; get the pixel
+              and   #maskLOW      ; keep low bits
+              ora   theCOLORHIGH  ; add the color
+              sta   (dpSCREEN),y  ; put the color
+              rts
+
+*---------------------------
+* GRGetPixel / GRGetPixel2
+*  Get the color of a pixel
+*  at coords X,Y and return
+*  it in the Accumulator
+*
+
+GRGetPixel    =     *
+              stx   theX1
+              sty   theY1
+
+GRGetPixel2   =     *
+              lda   theY1         ; Set the RAM pointer
+              lsr                 ; of the Y line
+              php                 ; save the carry!
+              tax
+              lda   ptrSCRl,x
+              sta   dpSCREEN
+              lda   ptrSCRh,x
+              clc
+              adc   thePAGE       ; don't forget the page
+              sta   dpSCREEN+1
+
+*--- Get a pixel
+
+              ldy   theX1         ; Now, determine where to get the pixel
+
+              plp                 ; we restore the carry to
+              bcs   getpixel2     ; determine where to get the pixel
+
+*--- Get in low bits
+
+              lda   (dpSCREEN),y  ; get the pixel
+              and   #maskLOW      ; keep high bits
+              rts
+
+*--- Get in high bits
+
+getpixel2     lda   (dpSCREEN),y  ; get the pixel
+              and   #maskHIGH     ; keep high bits
+              lsr
+              lsr
+              lsr
+              lsr                 ; and return
+              rts
+
+*---------------------------
+* GRSetColor
+*  Define the pen color
+*  provided in the Accumulator
+*
+
+GRSetColor    =     *
+              and   #maskLOW      ; keep low 4 bits
+              sta   theCOLOR      ; save color
+              asl                 ; calculate
+              asl                 ; color for
+              asl                 ; other pixel
+              asl                 ; in the same byte
+              sta   theCOLORHIGH  ; save it
+              ora   theCOLOR      ; add lower color
+              sta   theCOLORFULL  ; save the full one
+              rts
+
+*---------------------------
+* GRSetXY
+*  Set X/Y coords for all actions
+*  through registers X and Y
+*
+
+GRSetXY       =     *
+              stx   theX1
+              sty   theY1
+              rts
+
+*---------------------------
+* GRSetXY2
+*  Set X2/Y2 coords for line drawing
+*  through registers X and Y
+*
+
+GRSetXY2      =     *
+              stx   theX2
+              sty   theY2
+              rts
+
+*---------------------------
+* GRSetPage
+*  Set PAGE1 or PAGE2
+*  as the default GR screen
+*  The routine does not force
+*  the page, it sets a value only
+*
+
+GRSetPage     =     *
+              sta   thePAGE
+              rts
+
+*---------------------------
+* GRDrawHLine / GRDrawHLine2
+*  Draw a line of color A
+*  from X1/Y1 to coords in registers X/Y
+*
+*  Incorrect coordinates are NOT checked
+*
+
+GRDrawHLine   =     *
+              jsr   GRSetColor
+              stx   theX2
+              sty   theY2
+
+GRDrawHLine2  =     *
+              lda   theY1         ; are Y the same?
+              cmp   theY2
+              beq   drawh1
+              sec                 ; error
+              rts
+drawh1        lda   theX2         ; X2>X1?
+              cmp   theX1
+              bcs   drawh2        ; OK
+              ldx   theX1         ; exchange
+              stx   theX2         ; the two
+              sta   theX1         ; X coords
+
+drawh2        jsr   GRPutPixel2   ; put a pixel
+
+              inc   theX1         ; next X
+              lda   theX1
+              cmp   theX2         ; until the last
+              bcc   drawh2
+              beq   drawh2
+              rts
+
+*---------------------------
+* GRDrawVLine / GRDrawVLine2
+*  Draw a line of color A
+*  from X1/Y1 to coords in registers X/Y
+*
+*  Incorrect coordinates are NOT checked
+*
+
+GRDrawVLine   =     *
+              jsr   GRSetColor
+              stx   theX2
+              sty   theY2
+
+GRDrawVLine2  =     *
+              lda   theX1         ; are X the same?
+              cmp   theX2
+              beq   drawv1
+              sec                 ; error
+              rts
+drawv1        lda   theY2         ; Y2>Y1?
+              cmp   theY1
+              bcs   drawv2        ; OK
+              ldx   theY1         ; exchange
+              stx   theY2         ; the two
+              sta   theY1         ; Y coords
+
+drawv2        jsr   GRPutPixel2   ; put a pixel
+
+              inc   theY1         ; next Y
+              lda   theY1
+              cmp   theY2         ; until the last
+              bcc   drawv2
+              beq   drawv2
+              rts
+
+*--- End of code
+
+              ds    \
+
diff --git a/4play/ReadMeFirst b/4play/ReadMeFirst
new file mode 100644
index 0000000..faec25c
--- /dev/null
+++ b/4play/ReadMeFirst
@@ -0,0 +1 @@
+4play source code			              (c) 2016, Brutal Deluxe Software
____________________________________________________________________

Hello and Happy new year 2017!

This diskette contains some Apple IIgs source code that will help you understand how to handle the 4play joystick controller card.

This demo was made in 2016 to test and support the 4play card by Alex Lucazi. Get yours at lukazi.blogspot.fr/2016/04/apple-ii-4play-joystick-card.html

The card is supported by Ninjaforce's Kaboom. We also did a conversion of Broderbund's Lode Runner to support it.

The diskette can be cold-booted or run from GS/OS.

Antoine Vignau & Olivier Zardini
Brutal Deluxe Software
http://www.brutaldeluxe.fr/
\ No newline at end of file
diff --git a/4play/TEST.DGR.S b/4play/TEST.DGR.S
new file mode 100644
index 0000000..2dd7e15
--- /dev/null
+++ b/4play/TEST.DGR.S
@@ -0,0 +1,82 @@
+*
+* DGR test program
+*
+* (c) 2016, Brutal Deluxe Software
+* http://www.brutaldeluxe.fr/
+*
+* Use them at your own risk ;-)
+*
+
+               mx    %11
+               org   $300
+               lst   off
+
+*---------- Entry point
+
+KBD            =     $C000
+KBDSTROBE      =     $C010
+
+*---------- Driver equates
+
+DGROn          =     $1800            ; Turn DGR on
+DGROff         =     DGROn+3          ; Turn DGR off
+DGRClear       =     DGROff+3         ; Clear screen
+DGRPutPixel    =     DGRClear+3       ; Draw a pixel on screen
+DGRPutPixel2   =     DGRPutPixel+3    ; Alt draw a pixel on screen
+DGRGetPixel    =     DGRPutPixel2+3   ; Get the color of a pixel on screen
+DGRGetPixel2   =     DGRGetPixel+3    ; Alt get the color of a pixel on screen
+DGRSetColor    =     DGRGetPixel2+3   ; Set the pen color
+DGRSetXY       =     DGRSetColor+3    ; Set X1/Y1 coordinates
+DGRSetXY2      =     DGRSetXY+3       ; Set X2/Y2 coordinates
+DGRSetPage     =     DGRSetXY2+3      ; Set page1/page2 data
+DGRDrawHLine   =     DGRSetPage+3     ; Draw an horizontal line
+DGRDrawHLine2  =     DGRDrawHLine+3   ; Alt draw an horizontal line
+DGRDrawVLine   =     DGRDrawHLine2+3  ; Draw a vertical line
+DGRDrawVLine2  =     DGRDrawVLine+3   ; Alt draw a vertical line
+
+*---------- The code
+
+               jsr   DGROn            ; Turn DGR on
+
+               lda   #$00             ; Set color to black
+               sta   theCOLOR
+
+clearLOOP      lda   theCOLOR         ; Please erase the screen
+               jsr   DGRClear
+
+]lp            lda   KBD              ; Wait for a keypress
+               bpl   ]lp
+               bit   KBDSTROBE
+
+               inc   theCOLOR         ; Next color, please
+               lda   theCOLOR         ; There are 16 of them
+               cmp   #16
+               bne   clearLOOP
+
+*--- Test 2
+
+               ldx   #0
+               ldy   #0
+               jsr   DGRSetXY
+               lda   #6
+               ldx   #79
+               ldy   #0
+               jsr   DGRDrawHLine
+
+               ldx   #79
+               ldy   #0
+               jsr   DGRSetXY
+               lda   #6
+               ldx   #79
+               ldy   #47
+               jsr   DGRDrawVLine
+
+               jsr   $fd0c
+
+               jsr   DGROff           ; Turn DGR off
+               rts                    ; Exit
+
+*--- My test data
+
+theCOLOR       ds    1
+
diff --git a/4play/TEST.FP.S b/4play/TEST.FP.S
new file mode 100644
index 0000000..b622953
--- /dev/null
+++ b/4play/TEST.FP.S
@@ -0,0 +1,71 @@
+*
+* Alex Lukazi's 4play routines
+* http://lukazi.blogspot.com/
+*
+* (c) 2016, Brutal Deluxe Software
+* http://www.brutaldeluxe.fr/
+*
+* Use them at your own risk ;-)
+*
+
+                        mx    %11
+                        org   $300
+                        lst   off
+
+*---------- Entry point
+
+KBD                     =     $C000
+KBDSTROBE               =     $C010
+PRBYTE                  =     $FDDA
+COUT                    =     $FDED
+
+*---------- Driver equates
+
+FPInitAll               =     $1000                     ; Clear tables and variables
+FPFindAll               =     FPInitAll+3               ; Find all 4play cards
+FPFindIt                =     FPFindAll+3               ; Return 1st 4play card found (if any)
+FPLoopIt                =     FPFindIt+3                ; ...and you can continue looping
+FPReadDigital           =     FPLoopIt+3                ; Read the joystick the new way
+FPSetAnalogClampValues  =     FPReadDigital+3           ; Set the values for the old way
+FPReadAnalog            =     FPSetAnalogClampValues+3  ; Read the joystick the old way
+FPReadTrigger           =     FPReadAnalog+3            ; Read buttons
+FPReadTrigger1          =     FPReadTrigger+3           ; Read buttons
+FPReadTrigger2          =     FPReadTrigger1+3          ; Read buttons
+FPReadTrigger3          =     FPReadTrigger2+3          ; Read buttons
+FPSetSlot               =     FPReadTrigger3+3          ; Force 4play slot for...
+FPDirectRead            =     FPSetSlot+3               ; ...a direct read of a joystick
+
+*---------- The code
+
+                        jsr   FPInitAll                 ; Clear all
+                        jsr   FPFindAll                 ; Find all 4play cards
+
+                        lda   $F9                       ; Get slot high
+                        jsr   PRBYTE
+                        lda   $F8                       ; Get slot low
+                        jsr   PRBYTE
+
+                        ldx   #$04                      ; Force slot 4
+                        jsr   FPSetSlot
+
+*---
+
+]lp                     lda   #$8D
+                        jsr   COUT
+                        ldx   #$01                      ; Read first joystick
+                        jsr   FPDirectRead
+                        jsr   PRBYTE                    ; display its value
+
+                        lda   #$A0
+                        jsr   COUT
+
+                        ldx   #$02                      ; Read second joystick
+                        jsr   FPDirectRead
+                        jsr   PRBYTE                    ; display its value
+
+                        lda   KBD                       ; loop until a
+                        bpl   ]lp                       ; key is pressed
+
+                        bit   KBDSTROBE                 ; exit
+                        rts
+
diff --git a/4play/TEST.GR.S b/4play/TEST.GR.S
new file mode 100644
index 0000000..d7a258e
--- /dev/null
+++ b/4play/TEST.GR.S
@@ -0,0 +1,82 @@
+*
+* GR test program
+*
+* (c) 2016, Brutal Deluxe Software
+* http://www.brutaldeluxe.fr/
+*
+* Use them at your own risk ;-)
+*
+
+              mx    %11
+              org   $300
+              lst   off
+
+*---------- Entry point
+
+KBD           =     $C000
+KBDSTROBE     =     $C010
+
+*---------- Driver equates
+
+GROn          =     $1800           ; Turn DGR on
+GROff         =     GROn+3          ; Turn DGR off
+GRClear       =     GROff+3         ; Clear screen
+GRPutPixel    =     GRClear+3       ; Draw a pixel on screen
+GRPutPixel2   =     GRPutPixel+3    ; Alt draw a pixel on screen
+GRGetPixel    =     GRPutPixel2+3   ; Get the color of a pixel on screen
+GRGetPixel2   =     GRGetPixel+3    ; Alt get the color of a pixel on screen
+GRSetColor    =     GRGetPixel2+3   ; Set the pen color
+GRSetXY       =     GRSetColor+3    ; Set X1/Y1 coordinates
+GRSetXY2      =     GRSetXY+3       ; Set X2/Y2 coordinates
+GRSetPage     =     GRSetXY2+3      ; Set page1/page2 data
+GRDrawHLine   =     GRSetPage+3     ; Draw an horizontal line
+GRDrawHLine2  =     GRDrawHLine+3   ; Alt draw an horizontal line
+GRDrawVLine   =     GRDrawHLine2+3  ; Draw a vertical line
+GRDrawVLine2  =     GRDrawVLine+3   ; Alt draw a vertical line
+
+*---------- The code
+
+              jsr   GROn            ; Turn DGR on
+
+              lda   #$00            ; Set color to black
+              sta   theCOLOR
+
+clearLOOP     lda   theCOLOR        ; Please erase the screen
+              jsr   GRClear
+
+]lp           lda   KBD             ; Wait for a keypress
+              bpl   ]lp
+              bit   KBDSTROBE
+
+              inc   theCOLOR        ; Next color, please
+              lda   theCOLOR        ; There are 16 of them
+              cmp   #16
+              bne   clearLOOP
+
+*--- Test 2
+
+              ldx   #0
+              ldy   #0
+              jsr   GRSetXY
+              lda   #6
+              ldx   #39
+              ldy   #0
+              jsr   GRDrawHLine
+
+              ldx   #39
+              ldy   #0
+              jsr   GRSetXY
+              lda   #6
+              ldx   #39
+              ldy   #47
+              jsr   GRDrawVLine
+
+              jsr   $fd0c
+
+              jsr   GROff           ; Turn DGR off
+              rts                   ; Exit
+
+*--- My test data
+
+theCOLOR      ds    1
+