From fa23b5c2b772a0169d0882a36388cef4f1581570 Mon Sep 17 00:00:00 2001 From: Myles Skinner Date: Mon, 17 Aug 2020 20:03:40 -0400 Subject: [PATCH] made menu use array --- .DS_Store | Bin 0 -> 6148 bytes README.md | 15 +++ build/.DS_Store | Bin 0 -> 6148 bytes build/cookie.prg | Bin 3393 -> 3864 bytes build/cookie.prg.out.prg | Bin 3079 -> 3461 bytes prg.txt | 194 ++++++++++++++++++++++++--------------- 6 files changed, 133 insertions(+), 76 deletions(-) create mode 100644 .DS_Store create mode 100644 build/.DS_Store diff --git a/.DS_Store b/.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**++&mCkOWA81W14cNZlEfg7;MkzE(HCqgga^y>{tEnwC%0;vJ&^%eQ zLs35+`xjp>T0 + + + + + + + + + + + + diff --git a/build/.DS_Store b/build/.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**++&mCkOWA81W14cNZlEfg7;MkzE(HCqgga^y>{tEnwC%0;vJ&^%eQ zLs35+`xjp>T01Ti7TUuuX! zf(wcxuxNnI7_*5%8Ob13bTLZeNPt8Vh3H}oKTyB`e>930Od!7Bx3yyzBPM}3 z+Z@Swhls~I_Az3Qg}65=eq#m`TfYYJf9jZEZoQ_P?ll^X?v0wB@D0g6#mFlSGUbi} zt@%4ZUTy!Fkyq(t&NazKY#={tKhDT~Rx%69vVf7E2#^ohPcyPgr;dqYB+$%ms`hL9 zIqpfPuhElNVEM{T`+3f#^C`HNQYqiUjyitkY&xSYBAZG=0qY#UauF%ht~(Ylpvzjd%qTYWF{zY$-r?q4b3)C9Vvc~h#CZ>A8nbD_mJu*x zPK7g#skGqc5SSaC%NR3mOrr@~Mom-ruCteW8B=KCnnT!{=8x{UIp?F?&zMdVw~TJ{ zbGjbmes|camYoaR>R#9Af^p1`7nFCsEnd{fu`WU)isgeCP7!{Bb&&{$Hw8W8dSCG4 z5v5Hbn!%^&uxnbN2|!7yQcdx26r6O;2r$W9Ro#_>)2>+o_C(NEt~27L7nr%SR!kSP zu3Us=aMd*@z?C#it}%lp?h684b$bSi`x@gdSOMg=vBmw3o zw{0QUPX!Guasf8%_URZX(1=aA@7FO9pb`7ry;R3~nz8TQF&zUr8vU-jQ#uA}G-4hp ztz)1?BeqN`>KI7Th^3@;0)y3$`la>yn;JoDrOoSg-8@p7`O1p%OP+Niq zxGe1xwj8x3sqKa|A#7P{>!CK6XG+)#)YeOF4|~?P@4=O-R<7bw7Hc)=3bb?@#XXzb zp$#BpisVq)^FsT$A}es4H(jP|o1iB>+uC=s8qtfMlh$})GMFa=`C=}NUiEwM!S{kb0Y`Ijxg-oRanc~_IuJ&gzDbg}@027&flkbKM7n#T4EfGDpe@YN3SRaxfrLI>CF7}# zDO53WJfSyy$0bv={l3#YK`Pp(zH_Y;6r#=g&P$^F?|fTjqx`H^E>zGJ-|I3jKcScZ zhwn{Ul%GIE-Y?(1@=NkNa#pKnY561aq#oI*dcJ{BgPxUbN>)ST@FbY*vCq1oW=##~@|c$}pnmXC2)(L4M1z$$^Z zXgA!!H3H=AMuNLizesRUKycYMHb=?e+AviS)W`?_jxvSlr9mZ1g0U7{*v&38km$pp zv-^J)-6V-V=d`(@OSh|F)O#`*?B?}~1<_FN#UK`Fi{|ELFe*Ua+$5PRE!Q4Oa)jRJ OfzTt}P#~=Zp??7}+v-&S 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`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-<8vXa;oV#qP%<< 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;~mjpvz;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 diff --git a/build/cookie.prg.out.prg b/build/cookie.prg.out.prg index b58d4e5709fcb0cac96f4a5077c37b528939e9b7..5e5227eed836f24f13d2b934467e58be33e6aa59 100644 GIT binary patch literal 3461 zcma)9O=u)l5UyxOlilogeia3=ZE~0%A@u8+{EZiT-_EpQ(iwJUvbeVuLA~rQLO@Uv z^`L|(Ea<}ca|x)kB#6@D!M!<)y9e>$&t+M2mw`Acd{q;{KBu(hN%J)^(`>OhN zb%sXV5dh9(ugXKZ1$YbTR`1Nlj^|V(`5PLxqF;7lheF}nb7QAlx_Q`@MoJF+pu8A)^$Yfe=DPh% zaK2_c@VA0|1@UIHu~KW>`K#M^;L%Z;yo}s*hU_jdA6LW*68rf`#>R-RD&l;Kc&((a zu3_5gY#6_%+!hiy?RB+Ox>ia&F~@I;ylBY8y^6Ga9wZN)kP??PS#lGyiH+nrMP5#m zMNqK|T~)d9bs zwcim(HFa|FSnZ+LNAm3gW2e-bx!)E!cb!x^8{Z*(z142Eirlr)a=_Je-*pNO4-B2a zng+`V@@BhJmB9#mPGc3}$h0G2mozr-!lqs?ATMkMYiFaN7`h_)7aCin7-2SfUxP~r zlkaJ4StR#Wa>~80Av~{8IIWApGKD~%Z6H*hsu4m@83=V}q4Nep*;(ji1I_25_Y8zZ z$a?h*gf+-QeFI?yve2G^umD+TUqkqy!#!g#7ltiW4BvNQ!WcN5oxQSGuX^Ce*GP|^2{1LO>@c_~x!LgIl)^7b7)%Uz#!r#Ref+Bu8MeNP z0=PGRT8i{hBAfv#}ipaCVm}-w4)aiFDW^Fce)N$K%HgSpme4PZ;_?jyq$y@ z*yii_bfTQ^kf!9+gI3grTNC3_P8sF=sw3|5GW>T~!~;DWodl={ah>GUaIK1v7BXO=?8ej-iTwa+O6>aDYLhpD zGpn_gPA%%xp6#?@dum!puXtXM!IwxDuOsHbT}pI( zT^8`4jh+v;&_TSHu`rL!98>Bct)+QP&s{MxDiH>HwMl!wcXZ4qFLI3KiEUi7%@mugPt@u; zmbdNMCV>US9V}wx_{wIrTJ^x#gaMFCd`BR&79&Dc=EWwt0gpc>W;Cr47gDS?aipva z5x5`#%{C|M0s3N8x!@iiwg6@d(KV|8wrzSxEyXGv(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(IGnh|XJejZQv`oguWPWiIoWQ5dg`oi>89i3o za@mG@I01d`_msw<-^3527T`tOE1X9Yih&Wh!X>q(_qFwo3_Khd;3+*D$cU6mj?@qI}EVI@&7yj(I_o_F_v5~Z>wy9uUT7|w2%rBcFDp=cs%BPBR4>@A}w zoLZ@ diff --git a/prg.txt b/prg.txt index 4e908a0..c069c4e 100644 --- a/prg.txt +++ b/prg.txt @@ -3,46 +3,76 @@ 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*" -110 print"{grey2}B{wht} you have "int(cc)" {grey2}B{wht}cursor(c) {grey2}B" -115 l3$="{grey2}B{wht} cookies {grey2}B{wht}" -120 printl3$ca" {grey2}B" -130 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*{wht}cost: {grey2}B" -140 print"B B{wht}"c1" {grey2}B" -150 print"B {brown}********{grey2} *CCCCCCCCCCC*" -160 print"B {brown}*******{blk}**{brown}*{grey2} B{wht}grandma(g) {grey2}B" -170 print"B {brown}***{blk}*{brown}********{grey2} B{wht}"ga" {grey2}B" -180 print"B {brown}***{blk}**{brown}*********{grey2} B{wht}cost: {grey2}B" -190 print"B {brown}********{blk}**{brown}****{grey2} B{wht}"c2" {grey2}B" -200 print"B {brown}********{blk}**{brown}****{grey2} *CCCCCCCCCCC*" -210 print"B {brown}**************{grey2} B B" -220 print"B {brown}*{blk}*{brown}************{grey2} B B" -230 print"B {brown}*************{brown}*{grey2} B B" -240 print"B {brown}******{blk}**{brown}****{grey2} B B" -250 print"B {brown}*****{blk}**{brown}***{grey2} B B" -260 print"B {brown}********{grey2} B B" -270 print"B B B" -280 print"B B B" -290 print"B B B" -300 print"B B B" -310 print"B B B" -320 print"B B B" -330 print"*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*" +70 dim cl$(23) -1000 if ft$="0" then 5000 -1010 if mt$="0" then 6000 -1410 get k$:if k$= "" then 1500 +100 cl$(0)="{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*" +110 cl$(1)="{grey2}B{wht} you have " +120 cl$(2)="{grey2}B{wht} cookies {grey2}B" +130 cl$(3)="*CCCCCCCCCCCCCCCCCCCCCCCCC*" +140 cl$(4)="B B" +150 cl$(5)="B {brown}********{grey2} *CCCCCCCCCCC*" +160 cl$(6)="B {brown}*******{blk}**{brown}*{grey2} B" +170 cl$(7)="B {brown}***{blk}*{brown}********{grey2} B" +180 cl$(8)="B {brown}***{blk}**{brown}*********{grey2} B" +190 cl$(9)="B {brown}********{blk}**{brown}****{grey2} B" +200 cl$(10)="B {brown}********{blk}**{brown}****{grey2} *CCCCCCCCCCC*" +210 cl$(11)="B {brown}**************{grey2} B" +220 cl$(12)="B {brown}*{blk}*{brown}************{grey2} B" +230 cl$(13)="B {brown}*************{brown}*{grey2} B" +240 cl$(14)="B {brown}******{blk}**{brown}****{grey2} B" +250 cl$(15)="B {brown}*****{blk}**{brown}***{grey2} B" +260 cl$(16)="B {brown}********{grey2} B" +270 cl$(17)="B B" +280 cl$(18)="B B" +290 cl$(19)="B B" +300 cl$(20)="B *CCCCCCCCCCC*" +310 cl$(21)="B B{wht} {grey2}B" +320 cl$(22)="B B{wht} {grey2}B" +330 cl$(23)="*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*" + +400 print cl$(0) +410 print cl$(1)int(cc)" {grey2}B{wht}cursor(c) {grey2}B" +420 print cl$(2)"{wht}"ca" {grey2}B" +430 print cl$(3)"{wht}cost: {grey2}B" +440 print cl$(4)"{wht}"c1" {grey2}B" +450 print cl$(5) +460 print cl$(6)"{wht}grandma(g) {grey2}B" +470 print cl$(7)"{wht}"ga" {grey2}B" +480 print cl$(8)"{wht}cost: {grey2}B" +490 print cl$(9)"{wht}"c2" {grey2}B" +500 print cl$(10) +510 print cl$(11)" B" +520 print cl$(12)" B" +530 print cl$(13)" B" +540 print cl$(14)" B" +550 print cl$(15)" B" +560 print cl$(16)" B" +570 print cl$(17)" B" +580 print cl$(18)" B" +590 print cl$(19)" B" +600 print cl$(20) +610 print cl$(21) +620 print cl$(22) +640 print cl$(23) + +1000 if ft$="0" then 10000 +1010 if mt$="0" then 11000 +1410 get k$:if k$= "" then 1900 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 +1440 if k$="f" then 5000 +1450 if k$="m" then 6000 -1500 cc=cc+cg -1510 print"{home}"ds$"{grey2}B{wht} you have "int(cc) -1520 goto 1000 +1890 rem start of auto add +1900 cc=cc+cg +1910 print"{home}"ds$"{grey2}B{wht} you have "int(cc) +1920 goto 1000 + + +1990 rem start of 'clicking' 2000 cc=cc+1 @@ -50,53 +80,85 @@ 2020 goto 1000 +2990 start of cursor 3000 if cc