From 7eba42ff0131b2906b72cb49db2b7b60a8e8ccf5 Mon Sep 17 00:00:00 2001
From: IanSkinner1982 <ianskinner519@gmail.com>
Date: Sat, 9 Jan 2021 15:44:49 -0500
Subject: [PATCH] added save management

---
 build/cookie.prg         | Bin 5864 -> 6506 bytes
 build/cookie.prg.out.prg | Bin 5225 -> 5696 bytes
 prg.txt                  |  53 ++++++++++++++++++++++++++++++++++-----
 3 files changed, 47 insertions(+), 6 deletions(-)

diff --git a/build/cookie.prg b/build/cookie.prg
index 0c326001986bee5487d8abe532b8dfc71488086a..a1643520d795132a99d41bbf41be4187c7796842 100644
GIT binary patch
delta 1084
zcmZ9KTSyd99LA4=fh4x&?n*jm=fBfZyIywAth2gp7aDh`^|q6)yJjE}K@<{U5(V8X
zC~8@#<V0y~P!ZV;3JWO+3#|;KkO%}Hf*>e->;gSRb>@t#*kK-i^PTU1zB9x3wR$%2
z@U(4NTr;$o4((cp-VWY4?YB7|-LZYj&x_McNx3&j2tm)we^+LjJ;PE`8iF*aOe1Kr
zd`VRr6eYkoU!Y?p!RjJm)_)od!-L9%AAX}{c-+fge8?~S@n^tjd8DW?1Z+YLqOH_p
z_vZD|xV^05jIct!-s}nU3~7iNf&^U=1epulSSXW11l<x=%Pf*8Eb^&9<a)z1%mTt`
zOPZz+>^ScyeQU@1U!hYT2vtQQs1Wbu6hkF=FDDIQyx*jlhSuPNCT-S`f{&OK*U(yg
zLcRte)JkQCv$6|c<e}y_AI7)kL5UW$Y|)~PMvVV8h-yjA@ApgS676x6>(}rz`4msS
zi$^)d&}009lZHm|m`N=84Ss17OMZ`Eo5Yf5@MoU<jZQgAgN3f|^5tMnAVjJZHOxt=
zsznahulWnbTt#G1Dp}4KW~+jpEEf94D<stGa<VN`8w0Q613jU&>kvsL61tJJZVu)e
zlh9QcELa0MYrPg}PPOV$NVU${nf0Bkf}DreM5B?+on7ODNJ7_=Is}X;cee3^=MMkt
zQvaV&a}l|LdB1s^3UTAYZGz0&*_fo)^X<iKFC{k2?Jaz0x7b4#wTJZ+9TN`|-X4Xw
zht(Ke5KmcBfJ?PZx+$JxcWd0-?AajINXZ7>0Q5v0nAg-fZBo2pjRwt8UjJ$FK1nZS
z#Wd4O;RESEy56=5J`%H_W>+)_DRjzS*4G5}3M&>t?a*RD7j#&#3wBtr54tTl1P3hW
zgX4->!VH{Maz|c-fiSC|gzmu&s}GBtF#;oD%Zr}FrYyI<^+8j15GK5eTIXAbW+0hu
z^9)aTYg8Zl0^74u^F^uip#nGE;}lj3?%wQR)U$5>krF9GLQyxp>Rg?_+f83NSN#J=
CfF<q#

delta 608
zcmZvYKWGzC9LIm@A`X@QNx^XMJ)h@U?l8%{yIgEY5j~SL)TEb~CQY+sP!tCdba1Jl
zpdHeH%PVL~5S`*ukaV=DRA~jFgPVh!7R}&N5r<ZM_k@BVyy5fv@_T%~{QCCS*z<*<
z!P->GqciTTNA;S)j}9xVD?^_KLN(qRRZxO42CtOe6Ro_~Q!8qhHmM^r20s<PHJXe8
z>c<zT?`v=f{fPU8-Wy#E2B_$FyhZ)Os^!owwQS}jA<tP@zjOr+nr+oBd$eAx(wS=6
zJ5BYv=^HA{qY?9IUQ0`v+7-W&3?3k4%AhXnB1$n>M&o9aTFeqXRuD7K`dUv|)6Kup
zd;TJfL*MwvFuuBj=FCT_XeI-D=%S<?9KhEkxiE}x1e9|@!M6fB=fZJ3AJDW5F?`p2
zLQ{~%i=weO(UhN~nc{S*;8i>oN_a`O2(EFRH^y*ik>4Iu?kwRo^S)F*#xEu1;2C}`
z$%P(X4@fB2@Y{fdaszJ!B$QkDvs7;5??PE9y4io7dw9oum`vCy7PXwTBrAFn4w7H{
zRT?AYo!wTs3I_RL|7Y1D+jek0QTr4*(~+xra=z21o4Vyp7?UtZDxC{jZ&Ob=23#hM
pPBs{<2?OpC-am{Y%j9OKoz*7ypIWZ^Dy$QJBr-nmh45VD*dKe?u8;r#

diff --git a/build/cookie.prg.out.prg b/build/cookie.prg.out.prg
index fb36aaa3be9951f47276553559fdbcc072b4ca9d..e735330429c88db8f5aa938eb2df44dfc3ccef20 100644
GIT binary patch
delta 990
zcmY+CPiWIn9LIl~>>%Q1w+bdry60PT$riV!P1;%+l66@rYm=F_vLb>qy*UsCcP!!`
zRtJNU!yF>cQxAel$MCkvJctZ0dJ)u{BD)Bly!uOCE8EK<pYMC$-^=&?UiRd->T9R(
zSkbi2oJC6JMXN;QqT-poCpH%QcDpX?P~rqwo{?I#M4NRz4)dJIbivm;+~%T87k!<C
zd)y$?7HT629!Hoi`#KFzxRX$iC*c!Ez15Ij`^o`4ux$zU5bQ$hos2?(zuXWk+l38H
zZzfV8@Di-iMx!BEuIsoNVw**alpTi@96Q%TGxdZHDgG3iOxGe+r$R~<*E&z+>bR{?
z$n&S+`HYka4nmuWG|chCEEcWOrmn#iUdC7k+~gIQw51k?$oP7NAMtMVN4j2kOZ~$2
zO&;KJTFqu*yG=Rx&?XZ;Gs>Cpozb)jzZexw_>HulhMovuN^EuB&XKHBoGn;oi^9>!
zD1Kju(TM6D9*EQ|v^`6!{zJ3bq&|ifYDsk|IJj~@$WU!l4(8ir!U7}Au*e8A++~Cr
zmXI*RI=<Fu!7--}hIoVXt41Q8jt#4to(WJ>ldv5*6NLK{8N<4PP%uOsBVJcXTo|Ds
z2>y=#)DDp~g;=gxvPib#x|UrIek>A<9SXVq)_BJ{X=Z0Cv(^-;%(m@ly|v$Jpmi=^
z_O5n^dvWdQ|Fs}Q5ktHZ#`oW{o`NkQ#%@`oO(PB;1&zr#N*%rlaV8Dg#Mb{15>Uq?
zNz@z0#1U0Af<x!Ur1z+wueoAy_c6HCfomOD=)j#0)H?7G0Xx1Trh?5@#WeQGqwo^v
zS*s6pdQ&_L^%!i48D`r>+uD0s(^G@WIrxI=g4B91Cv*jVqL}i9mQvtQ)C+}$Za(Ub
NhmUtpM7`<o&_6A1?`i-5

delta 611
zcmZvYKWGzC9LK*IGL>4ATJ_ys^?W(?&R)`7@6v=6hi7sgq1Q{=T$_rcC~l>6>ZITw
z2wj9X*i0%8nM6s4t`&!Z4h|x2ii>|H5!|HUyS(5eJb0ha?>)Z1-+Kr45A$VnV!YF6
z`FfkJ`MTM$_~!V@y{(CNsZ|$kqG4yz7|=HDcRdH!$+Yw^aTi<UwDgYfyo0;sjC4Oa
zFM$(XdYpI}Z^&8xIOCb`32;A(415s~g@f0o5DPyE#ZDCNIbPqL$8jac|77&Ei&@3s
zdiK;hQ_kV(qEQ`=MEh<TE#<syaFzDGBG#1)=+2dJOEGadG6o{Gn)n07LXYxvXQdH0
zqCmd2&SF+56eynYhgr>kt^m6gyH>;ghyuJC5yM+a0mBDLR~SA^T4MMr=t%`f3jdXz
z8cVAe#S|WL>I~0Js;NsnKS^!}DsXR@zdWJ<*G9x}Lz2kfkR<ZAC5ikyf<*qV*m^W<
zvU>7}T63ut`ms;(Lew9X+__58cD(A49D5%7sy&?JK+U5UQ%>>m{}(^01$2w}rp_k6
zMDaW6b7(qV*;+tK1D1`!q3L=SjtQwJ;*>4e8vj0}k(#LW>c+yqMORiMikljrK9Tzi
Dx?h;-

diff --git a/prg.txt b/prg.txt
index cc3cb02..adf8334 100644
--- a/prg.txt
+++ b/prg.txt
@@ -126,7 +126,7 @@
 10180 print"B {wht}load (l)                            {grey1}B"
 10190 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
 10200 print"B                                     B"
-10210 print"B {red}wipe save (w)                       {grey1}B"
+10210 print"B {red}manage saves (m)                    {grey1}B"
 10220 print"B{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}B"
 10230 print"B                                     B"
 10240 print"B {yel}testmenu (t)                        {grey1}B"
@@ -145,9 +145,10 @@
 11210 ifk$="b"then goto 12000
 11220 ifk$="s"then goto 12100
 11230 ifk$="l"then goto 12200
-11240 ifk$="w"then goto 12300
-11250 ifk$="e"then goto 13000
+11240 ifk$="m"then goto 12300
+11250 ifk$="e"then goto 15000
 11260 ifk$="t"then goto 40000
+11270 goto 11200
 
 12000 print"{clear}{down}{wht}please enter a new name (14 characters max):"
 12010 input nn$
@@ -185,9 +186,49 @@
 12275 poke53280,14:poke53281,6
 12280 goto 10000
 
-13000 print"{clear}"
-13010 poke53280,14:poke53281,6
-13030 goto 1000
+
+
+
+
+
+
+
+12300 print"{home}{down}{down}{down}{down}{down}{down}{right}{right}{right}{right}*CCCCCCCCCCCCCCCCCCCCCCCCCCCCC*"
+12310 print"{right}{right}{right}{right}B (1) erase current save      B"
+12320 print"{right}{right}{right}{right}B (2) erase backuped up save  B"
+12330 rem print"{right}{right}{right}{right}B (3) create 2nd save         B"
+12340 rem print"{right}{right}{right}{right}B (4) erase 2nd save          B"
+12350 print"{right}{right}{right}{right}B (5) exit                    B"
+12360 print"{right}{right}{right}{right}*CCCCCCCCCCCCCCCCCCCCCCCCCCCCC*"
+12400 getk$:ifk$=""then12400
+12410 ifk$="1"then 12500
+12420 ifk$="2"then 12600
+12430 rem ifk$="3"then 
+12440 rem ifk$="4"then 
+12450 ifk$="5"then 10000
+12460 goto 12400
+
+12500 cc=0:cg=0:ca=0:ga=0:fa=0:ma=0:ft$="0":mt$="0":bn$="someone"
+12510 goto 10000
+
+12600 open 8,8,8,"@0:cc64.sav,s,w"
+12610 print#8,0
+12620 print#8,0
+12630 print#8,0
+12640 print#8,0
+12650 print#8,0
+12660 print#8,0
+12670 close 8
+12680 goto 10000
+
+
+
+
+
+
+15000 print"{clear}"
+15010 poke53280,14:poke53281,6
+15030 goto 1000
 
 40000 print"{clear}"
 40010 print chr$(147);