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: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*"

1000 if ft$="0" then 5000
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
3025 print"{home}"ds$ds$l3$ca"   "
3030 cg=cg+.04
3040 cc=cc+cg
3050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
3060 ca=ca+1
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
4015 print"{home}"ds$"B you have                ":rem stops from messing up the counter
3020 ga=ga+1
3025 print"{home}"ds$ds$ds$ds$ds$ds$ds$"{grey2}B     {brown}***{blk}*{brown}********{grey2}        B{wht}"ga
4030 cg=cg+.05
4040 cc=cc+cg
4050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
4060 goto 1000



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"
5040 print"B    {brown}*************{brown}*{grey2}       B{wht}cost:      {grey2}B"
5050 print"B     {brown}******{blk}**{brown}****{grey2}        B{wht}"c3"     {grey2}B"
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 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








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

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 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