From 40e4dbe886853f599f18cfdd090763637eaf6fe3 Mon Sep 17 00:00:00 2001
From: Myles Skinner <mskinner@partner-path.com>
Date: Tue, 11 Aug 2020 13:59:05 -0400
Subject: [PATCH] added mines and fixed counters

---
 build/cookie.prg         | Bin 3132 -> 3393 bytes
 build/cookie.prg.out.prg | Bin 2827 -> 3079 bytes
 prg.txt                  |  68 ++++++++++++++++++++++-----------------
 3 files changed, 38 insertions(+), 30 deletions(-)

diff --git a/build/cookie.prg b/build/cookie.prg
index d44474fc04934dfcbefcf054a0df3ad00ff3b159..d372408f5f46f5fb52fc5ead8d6039976d8fa2a5 100644
GIT binary patch
literal 3393
zcmb_eZD?Cn7(Qi-&F8)Oq{bg|JQPXesJThnxuCM_G`a1zBsEDL`b%MgplpNv8Pkc@
z;hZhD2raFjo%jK9ek@Lr{g@CZ+Yi6iABxi9z%qs)6cJGo@jdt4bMMJbyRKp=r#J6?
zpZDXr&wbx?xo>tOG=*=eS1{QzHnMx@c3P?I8Y%RTR&|1kZZD#=naWX}9eFr(b`<Nq
zO_CzH6911Lc1ID_n%Y2)rkh#{Tr*A0_@8ZR=~OC(j=IxmsMgy&pU}4U<)$zltJW%2
zJXG0JMkm~NqN;H(y-m7T9npvD=%RZsnkRF~&(`|Lcaj8oJo}h`%Z2Z&jN#$@y#-7@
zN>JKIu=IiZyn+Pn!+5SmP{wl*?an}349YpENdSHc_XyhQIfUlHmFBIGEWl%)aY!sz
z(_V4XMJu&>P6Q(8q-PQUt&SwZ0J*3pQm_n{JhKvDCTV`=1OQ_>J8%*9F4zF!Kb=g@
zByCK~rC0Oip;A7f_ZdVCdm9#rVWz>|nF&hM+q*yFJuOfiWTUKPz<E0Zr@UunkdehG
z53WRojD@tx0wZDBdtqISgNB%Iu>-<8vXa;oV#qP<Te1OC{|vMS<go9G4dKE0X>%<<
zX-M*}Z$%)m$*{9`?0{VM{bfN+j0q7{VJ9Ty-`r)3tn*2B0Ji%T2_W%eUOGzJ@4s;)
z?yvgEM%=&jZ`p|Z-~PdkxZf7oz7hBP13ST8)|TT1m%hTww?A-o(*!mrC4L(Z7-KN-
zD;UkO3C2NYd?hgMI)Qif<|g21VnX1C2JYxo;F!y>5zK7HApJZrY1$~WWmtgk1GA=0
zXSOV}{SsI(ZAE4qVDY+?hG{D?+aR+k%90C4Jf#h)qkiRzYo0_1OzPD}DB7m1xQ=5O
z>?u@GzUk&T4Lzj%(0wh~0cE+{ggvc%;+w#fen>T_z=$-hw0uUScc_LgDd&A6lsv;7
zLL{(4YW2!!4Hv7G5-t^LwUM%p$3}5|xB%mOtXwZt(eKJd5ez!AMm9m4)o*>U(x~3(
zPi0X^z03<>6lm(t0<$Uwcd5VmU=h-MLqqqde+pj_A3dP{BiYa+>L$P0`V;Dc%3Dv1
z)+f}4YPOz6->L7bR_pfm`cIwzq<-OpO|7#kZw<;UK%w#<^k^jDL%VZ67?U1lgJ)I2
z*8s`~FYu}vUk?Tst*Teqy6Dm1l4=t0WboODK>!HUU_eWu$>0kS;~mjpv<F{~m;}fr
zc3zuBTh;POD`sHJRm@jQi6Sg^zS?gJy#;ZNK4;{0#$Yyx6x%miIrM>z;u-iUO?2l%
zdn$BBVAh`Lu+TEZAf4^A)1h+~WUZMl&m5R6pN77QFiL^G#n9t1uBnXB)Q_QOVy31t
zXiIn^W@$?LNo1tAkL!D#?g&rEiuq=diR!uVj0oKMd>j_*ajmsVUBEq>3%?i>8XH7!
zhF{}dFpZrHzaf$lc_{E7cIfNydofdD%i#k(1|Mv&GDfmM(n|Pnk1=vVV|yY;d#+1k
ztM>quS*jD#0b9#e8YveNB};P0BhNz`c~{zGvnzP5O6_tx6Pa5F;rQ`%HS+p807A2d
z&X~-4q9?EE?T{FWe%u3;GWG_dd*fVUSs}3<(S31KVp%j5JsAJrB=%DDP`s3HmYBr;
zh#nDv9S>vOuVSjTlg_^x)T0|><8h(3ttb*Z#v5X4OUEWf-qqB0cWgG!)rJv5{{rfR
BcC!Eg

literal 3132
zcmb_eZD?Cn7(Qi-O>%SZO>!G*CdlzHr44iDChO{=xW&`twsvj0Bz5>l|BU^tAM?kY
ziZDc!R#%mdcBo7pZghSTKM;leh=uis_)&&}7VHnH;tv^{AnH)xbI&>Vp5C--#1Kwy
z&Uv5r<GIg$-`f$sHjL0Qd|kbQ$?fAqdk1c!mCEo?Y5Q2!A*dXVB1#+C0(IC@gvDV?
zxxTeQvZOG=f6+bRE=28y-B+NwhMfh|e8Yxc^l&(b25MUy=X>n_-oi0V$E&qU6%SPQ
zkD}S|t*Gjr<#s7&)gfoFjuyiQ&>We~e7w;|J;@M+A`{HM8Nzo}#_?eB&Jrf?^-$VN
zu=0U(o<R@o#dx+!P$qH+?af0q49ZKdDFA*6X9N`^htV9E(xT^*Id~v)6auT+tj#zR
zqLo^`ARQ6(YGeuk&6Xf?17cBIhF}pcM2;(fnT+_%N&v=cbl@TqJ?R6a{d6WXlkqXl
zkW(#=4vZ9goL-lR-O+gu#4yuf9*hL3IcuwbF#4`UagdMlf&u4i88{O?r-IxlZhCMf
zGh{5}1PhFWZ=#F;hzZaT)0SEwydp1%Pa%dFyR~H>pw!Pm8$j;YR(%L}&R3sn^-e>O
zQ`$v|z=Gjm?KlAWO8d=&2#kQptZ)z#j&1JnMb>&JTLAqrLjfqfh|54q2V+;aV?Glj
z?U*mbwzXq^IkvMMbE5BQ$9$iD2binc3OwM-UwHTq>OX9n#G*ms)3`4SZSXPu(x#X3
z@Ycd4EDcNu9N2Jzp4Wc?YuF>0?d6#9Y5j`WqiiqF_CC_D+RW`7wzq@reWq^_du6uQ
z$NVkp%OPmkl+IHJUC~!VbHpOhfY<AcsMEL@dJ03E&LYeByp!W>lsCTa{5#lf#&?|p
zw$J!Lo5Ym9Lv6^w^>nw<)Lc(zsg2GW=QZg{ZOs9F5tt0MdS$GJ%hk#V9x2soL!%BJ
zAH(&*5_IM9(R!(h7K|^XGpNYx!~`uFUurO*s58Gky90e|tndUF1%DbpO3b<xXy(rv
zj5S)Ex6u~!S7{6W(e>sZnke&T^Q6hk%*irK=DaD&%%Nw^w@j~0e*pcbDql1|(O||p
zETa`utr(J0zfg}GfcM?jN8D}J=qK}>DY@xGznhCZYsSqr@g*<obp|K8A--%10t)db
zEtde$n9G2jMdkQ&mMe3cpqJt=Sb_jG#nx+)w3jV!ma>gCL*-(1q^AtCnNQ~n@z=nw
zTjz{Akr>Pek@DK16i&SDqj&_qDor^!lWs|TC@~wiWtd5M;*!or(nMmxgKX56)wTi6
z;i1H*7NZpCn@T*A;+o1!P0b~qNC{2l(Q0Bc<!MTJt8v5o%fEYcE+wW@<zl1EM1_(w
zDXEB^NKc;NF_|K^B~PszlfOx!{^Xk}A&BAReceGp>`xx)mV$UA`FM9bg2?z4!Rw6p
z(;|nJ<TKz^$U(iaz8Hd9NLaHHl97IydwJdRa<a#IMFND8i<9=4y_hH>xYv5!Gw1fq
z+_Mh8njNv;?-l}h+B%R92;hV@k@f`ey>%%4zX{;7bvP{r(9!j1+82P)b(F_s0=Thj
SYTcMZ0K2-5r?~(yLg+8Loj20}

diff --git a/build/cookie.prg.out.prg b/build/cookie.prg.out.prg
index 4612162180e0ba52c28e483ebda039ce07583931..b58d4e5709fcb0cac96f4a5077c37b528939e9b7 100644
GIT binary patch
literal 3079
zcmb7GO=uHA6n_4s)}Kw&#-Ee23_T<{=*}js8ZRzmvr61XQ!D621<{iTdJseuyp<vd
zQmj805scQ8D_#UI@gQEbo)r864;~aR9t#S-nc3NyY?8KF!e-v?``*ttZ{FJ#{rP?X
z#zLpee17xr=JQ+S$Z$v;QV!%lRJk4v=}4KmA$3r-7*g?H3aRTj4je;`eG|jsn;hMl
zhqEZvh2-we!)=uAklDiPZkPF{K;XU9Z>H>HwMl!wcXZ4qFLI3KiEUi7%@mugPt@u;
zmbdNMCV>US9V}wx_{wIrTJ^x#gaMFCd`BR&79&Dc=EWwt0gpc>W;Cr47gDS?aipva
z5x5`#%{C|M0s3N8x!@iiwg6@d(KV|8wrzSxE<Tw6rGK+fm?>yXGv(L4@qK}p^Yem;
z^g5o042xrKqI%L3hUT|s&ooMcG%9w6oVPM?sTCx=i12WwBIGQ%5euAzxn*DyG<@y=
zkr~BKG=(<$NUx76m@)I`pe~TTCPW&Scg?lA)9B=)M%WR<$=vM(<dFf1FcCyWWhWsY
zO^EWNv%tI)KKeGqxf`VDWkP+VH}%uKso&~Nz1f@kpWf7MYl#DHoOe8Y4ysQ_y|6(?
zVXw6UrlX$Na2+^ot%L{F;qr79n+|F0f|J%N5Q0q_)PeKXYAG@lUAStcr0Anqf*V$!
z6e}q1g8SAQDF&qBy70v6=dGEsIp)J#5qFkghZW5&(HCLfS_@MSe6iL=7z%%vfULq3
zf{;vl157jaoY95@Thn43F!q#DsGx9%NS|ga)^#LS1Wss0j4$r01kQ1De#rc}?M?|U
zE8{$&yBgCmp+{WV3z;`Z;icA9_Tg>IGnh|XJejZQv`oguWPWiIoWQ5dg`oi>89i3o
za@mG@I01d`_msw<-^3527T`tOE1X9Yih&Wh!X>q(_qFwo3_Khd;3+*D$cU6mj?<v<
z3PGYCDS=IyIHg2v2{8&a9s#ncsdm#$RlItTtKbZkQ?x4VitM^~&J?M%4v%Xls!Q`s
z&W=!HR9kCrpEx^;L{QB~#}5P2t$ij&$M4J_Oi@_K49VIkVr}#d#<fv|9VjfT(D$HX
z#S1IEIBsZAg6?)P-T-3`bBgp9Ae(TH#}u8GQFzQHRV#0_Gh!Y^`Ben(2D7622RDig
zNAY{C;lfV@iC%@Za%d<{u|2#+o~SCf)&A(9aZ8%1;K2A;E{IF#x^QET7qM~i4L<~e
z*0OoNBqH&>@qI}EVI@&7yj(I_o_F_v5~Z>wy9uUT7|w2%rBcFDp=cs%BPBR4>@A}w
zo<YUH3j<y%uQg~9syn{Y{Kp)|3qdA);NeA8vlG5?Nmb21?YC3atlqeVR}H{_F>LZ@

literal 2827
zcmb7GO=uHA6n<4#qju9YQN)9=3;~lxWH)KknoHSE%__A<(^e2cFCyqcC@OdndhwtY
zDN3OVf}SE35h5N$PZ1O^3W^}!^rA-*uZnMGc6KI{#5PNq?8|)L`<;0&eTjSmfYOFn
zrXgDbTtc=~X0i?9k@A%IhH-}T8~$*a78<^X&|<^KZ#aS*6Vutoo18zAhm$DPxK!Ae
zhnpzfA<OQoZjZj>5_m1}P0Kl6oplZb$M!qqS&q^?akOW-Y0=r*bhVbFdB<6968MR{
zLq&8Lw;WonP9EGptr5g4?h)9u89hQM4Puo{!6^Hg=-#w?>{_%sJyVv72%P1FW}6ZD
z1KOg#G{G#~Z6PeV(X%WGj-y-0T)fu_62IuWORnNHt*{mxo|p=9VV)<#+QQ-xZZXax
z!c9x)TG$$WS+N93v0`JG^VSTUZzXXn+&z4g9<nSHqAai^JXizANW+H?6cJHuM5WL{
z8`jo11xtGTjMRlPqEm!&v8r6_l}01y6vK%!Y{u>wlzSQ_;zShbm19!g=@e;4MS*b}
zHvY5_w7f*G27FI{oT_$gyY>^k!LRoQf8HDXM{n>Q_9_=#yYG1Ub|ZWtYJqis2uAHb
zcrckQFHB;SA@vee>~+8ehtx-5)?P0pO6tA`r|k_w3{fn=1=|v01;rA~+Z$QOrF4ac
zaG(2?A=p8A^D_D#)a^}h&4Z_QBI5Y)aTUrJdo!bax3|CorBA6}_uw~jxXnk@hh0gQ
z3t>}lwZ<7BP*OnjFYcNICU67i1r1mBdP8uONiv{0#pxK(6$TC(G+6QBhQgwLxSia}
z9KWCJ7mgRu@yAm4BU*q@3XeT5PF0)VUlE5xEMzva197lu!}y?woc!Nb2?bOkqaB7Z
zCdp_|DeWDjJu_glkS-1+c}T;aSNCBaN&Ia21U@SThHr)#xf-`~(V%4OXj+w^HkGU3
zJQNc#nToG=_bzCWO6wpP*I8W}p*aUGDUNJW?X3{!K#}lNvoY{cqjYP9#u#{#8h~p)
zyiBFU*(l=Kc#CSHLtTVlT<01N^<M;5f<}cMj{ZSa*%ItzlC10~3Y{*A_&)+;gM+NF
zQ-f)(u*Z=j3;RUzjY=9~R9Kg1Ct9S?R@QG^D?hZ|PJ&s}OgcUZuGGuS$oICvKCTE6
zi1Q@gVMARj=9~r>cm|Kr=HHsj=?p96)$}%1$Xlo)F60ZYZw-ZfgFsoxPfSD9kV^1P
T>SG<YFZ16*CNkSuAp!mY745eh

diff --git a/prg.txt b/prg.txt
index 84eabef..4e908a0 100644
--- a/prg.txt
+++ b/prg.txt
@@ -1,6 +1,6 @@
 0 rem !to "build/cookie.prg"
 10 cc=0:cg=0:ca=0:ga=0:ft$="0":mt$="0"
-20 c1=15:c2=100:c3=1100
+20 c1=15:c2=100:c3=1100:c4=12000
 50 ds$=chr$(17):rem cursor down
 60 rs$=chr$(29):rem cursor right
 100 print"{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
@@ -30,20 +30,28 @@
 330 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
 
 1000 if ft$="0" then 5000
-1010 get k$:if k$= "" then 1500
-1015 if k$=" " then 2000
-1020 if k$="c" then 3000
-1030 if k$="g" then 4000
-1050 if k$="f" then 5500
+1010 if mt$="0" then 6000
+1410 get k$:if k$= "" then 1500
+1415 if k$=" " then 2000
+1420 if k$="c" then 3000
+1430 if k$="g" then 4000
+1440 if k$="f" then 5500
+1450 if k$="m" then 6500
 
 1500 cc=cc+cg
 1510 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
 1520 goto 1000
 
+
+
+
 2000 cc=cc+1
 2010 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
 2020 goto 1000
 
+
+
+
 3000 if cc<c1 then 1000
 3010 cc=cc-c1
 3015 print"{home}"ds$"B{wht} you have                ":rem stops from messing up the counter
@@ -52,8 +60,12 @@
 3040 cc=cc+cg
 3050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
 3060 ca=ca+1
-3065 print"{home}"ds$ds$
-3070 goto 1000
+3065 print"{home}"ds$ds$l3$ca
+3070 print"{home}"ds$ds$
+3075 goto 1000
+
+
+
 
 4000 if cc<c2 then 1000
 4010 cc=cc-c2
@@ -67,7 +79,7 @@
 
 
 
-5000 if cc<500 then 1010
+5000 if cc<400 then 1010
 5010 ft$="1"
 5020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B    {brown}**************{grey2}       B{wht}farm(f)    {grey2}B"
 5030 print"B    {brown}*{blk}*{brown}************{grey2}       B{wht}"fa"        {grey2}B"
@@ -76,14 +88,13 @@
 5060 print"B      {brown}*****{blk}**{brown}***{grey2}         *CCCCCCCCCCC*"
 5070 goto 1010
 
-
-
 5500 if cc<c3 then 1000
 5510 cc=cc-c3
 5515 print"{home}"ds$"B{wht} you have                ":rem stops from messing up the counter
 5520 fa=fa+1
-5525 cg=cg+.06
-5530 cc=cc+cg
+5525 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B    {brown}*{blk}*{brown}************{grey2}       B{wht}"fa
+5530 cg=cg+.06
+5535 cc=cc+cg
 5540 print"{home}"ds$"B{wht} you have "int(cc)
 5550 goto 1000
 
@@ -94,25 +105,22 @@
 
 
 
+6000 if cc<6000 then 1410
+6010 mt$="1"
+6020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B       {brown}********{grey2}          B{wht}mine(m)    {grey2}B"
+6030 print"B                         B{wht}"ma"        {grey2}B"
+6040 print"B                         B{wht}cost:      {grey2}B"
+6050 print"B                         B{wht}"c4"    {grey2}B"
+6060 print"B                         *CCCCCCCCCCC*"
+6070 goto 1410
 
-
-6000 if cc<500 then 1010
-6010 ft$="1"
-6020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B    *            *       B{wht}farm(f)    {grey2}B"
-6030 print"B    {brown}**************{grey2}       B"fa"        {grey2}B"
-6040 print"B    **           *       B{wht}cost:      {grey2}B"
-6050 print"B     *     **   *        B{wht}"c3"     {grey2}B"
-6060 print"B      *    **  *         *CCCCCCCCCCC*"
-6070 goto 1010
-
-
-
-6500 if cc<c3 then 1000
-6510 cc=cc-c3
+6500 if cc<c4 then 1000
+6510 cc=cc-c4
 6515 print"{home}"ds$"B{wht} you have                ":rem stops from messing up the counter
-6520 fa=fa+1
-6525 cg=cg+.06
-6530 cc=cc+cg
+6520 ma=ma+1
+6525 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B                         B{wht}"ma
+6530 cg=cg+.07
+6535 cc=cc+cg
 6540 print"{home}"ds$"B{wht} you have "int(cc)
 6550 goto 1000