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
70 dim cl$(23)
80 dim ul$(23)

110 ul$(0) = "B                                    B"
120 ul$(1) = "*CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC*"
130 ul$(2) = "Bitem 1                              B"
140 ul$(3) = "Bdesc 1                              B"
150 ul$(4) = "Bitem 2                              B"
160 ul$(5) = "Bdesc 2                              B"
170 ul$(6) = "Bitem 3                              B"
180 ul$(7) = "Bdesc 3                              B"
190 ul$(8) = "Bitem 4                              B"
200 ul$(9) = "Bdesc 4                              B"
210 ul$(10) = "Bitem 5                              B"
220 ul$(11) = "Bdesc 5                              B"
230 ul$(12) = "Bitem 6                              B"
240 ul$(13) = "Bdesc 6                              B"
250 ul$(14) = "Bitem 7                              B"
260 ul$(15) = "Bdesc 7                              B"
270 ul$(16) = "B       press 'r' to return          B"

400 cl$(0)="{grey2}*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"
410 cl$(1)="{grey2}B{wht} you have "
420 cl$(2)="{grey2}B{wht} cookies                 {grey2}B"
430 cl$(3)="*CCCCCCCCCCCCCCCCCCCCCCCCC*"
440 cl$(4)="B                         B"
450 cl$(5)="B       {brown}********{grey2}          *CCCCCCCCCCC*"
460 cl$(6)="B      {brown}*******{blk}**{brown}*{grey2}         B"
470 cl$(7)="B     {brown}***{blk}*{brown}********{grey2}        B"         rem start here. (don't ask)
480 cl$(8)="B    {brown}***{blk}**{brown}*********{grey2}       B"
490 cl$(9)="B    {brown}********{blk}**{brown}****{grey2}       B"
500 cl$(10)="B    {brown}********{blk}**{brown}****{grey2}       *CCCCCCCCCCC*"
510 cl$(11)="B    {brown}**************{grey2}       B"
520 cl$(12)="B    {brown}*{blk}*{brown}************{grey2}       B"
530 cl$(13)="B    {brown}*************{brown}*{grey2}       B"
540 cl$(14)="B     {brown}******{blk}**{brown}****{grey2}        B"
550 cl$(15)="B    {brown}*{blk}*{brown}************{grey2}       B"
560 cl$(16)="B    {brown}*************{brown}*{grey2}       B"
570 cl$(17)="B     {brown}******{blk}**{brown}****{grey2}        B"
580 cl$(18)="B      {brown}*****{blk}**{brown}***{grey2}         B"
590 cl$(19)="B       {brown}********{grey2}          B"
600 cl$(20)="B                         *CCCCCCCCCCC*"
610 cl$(21)="B                         B{wht}           {grey2}B"
630 cl$(22)="B v1.3.0                  B{wht}upgrades(u){grey2}B"
630 cl$(23)="*CCCCCCCCCCCCCCCCCCCCCCCCC*CCCCCCCCCCC*"

700 print cl$(0)
710 print cl$(1)int(cc)"            {grey2}B{wht}cursor(c)  {grey2}B"
720 print cl$(2)"{wht}"ca"        {grey2}B"
730 print cl$(3)"{wht}cost:      {grey2}B"
740 print cl$(4)"{wht}"c1"       {grey2}B"
750 print cl$(5)
760 print cl$(6)"{wht}grandma(g) {grey2}B"
770 print cl$(7)"{wht}"ga"        {grey2}B"
780 print cl$(8)"{wht}cost:      {grey2}B"
790 print cl$(9)"{wht}"c2"      {grey2}B"
800 print cl$(10)
810 print cl$(11)"           B"
820 print cl$(12)"           B"
830 print cl$(13)"           B"
840 print cl$(14)"           B"
850 print cl$(15)"           B"
860 print cl$(16)"           B"
870 print cl$(17)"           B"
880 print cl$(18)"           B"
890 print cl$(19)"           B"
900 print cl$(20)
910 print cl$(21)
920 print cl$(22)
940 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 5000
1450 if k$="m" then 6000

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
2010 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
2020 goto 1000


2990 start of cursor


3000 if cc<c1 then 1000
3010 cc=cc-c1
3015 print"{home}"ds$"{grey2}B{wht} you have                ":rem stops from messing up the counter
3025 print"{home}{grey2}"ds$ds$cl$(2)ca
3030 cg=cg+.05
3040 cc=cc+cg
3050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
3060 ca=ca+1
3065 print"{home}{grey2}"ds$ds$cl$(2)"{wht}"ca
3070 print"{home}"ds$ds$
3075 goto 1000


3990 start of grandma


4000 if cc<c2 then 1000
4010 cc=cc-c2
4015 print"{home}"ds$"{grey2}B{wht} you have                ":rem stops from messing up the counter
3020 ga=ga+1
3025 print"{home}"ds$ds$ds$ds$ds$ds$ds$"{grey2}"cl$(7)"{wht}"ga
4030 cg=cg+.05
4040 cc=cc+cg
4050 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
4060 goto 1000


4990 start of farms


5000 if cc<c3 then 1000
5010 cc=cc-c3
5015 print"{home}"ds$"{grey2}B{wht} you have                ":rem stops from messing up the counter
5020 fa=fa+1
5025 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}"cl$(12)"{wht}"fa
5030 cg=cg+.06
5035 cc=cc+cg
5040 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
5050 goto 1000


5990 start of mines


6000 if cc<c4 then 1000
6010 cc=cc-c4
6015 print"{home}"ds$"{grey2}B{wht} you have                ":rem stops from messing up the counter
6020 ma=ma+1
6025 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}"cl$(17)"{wht}"ma
6030 cg=cg+.1
6035 cc=cc+cg
6040 print"{home}"ds$"{grey2}B{wht} you have "int(cc)
6050 goto 1000 


9999 start of unlockable item texts


10000 if cc<400 then 1010
10010 ft$="1"
10015 cl$(15)="B      {brown}*****{blk}**{brown}***{grey2}         *"
10020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}B    {brown}**************{grey2}       B{wht}farm(f)    {grey2}B"
10030 printcl$(12)"{wht}"fa"        {grey2}B"
10040 printcl$(13)"{wht}cost:      {grey2}B"
10050 printcl$(14)"{wht}"c3"     {grey2}B"
10060 printcl$(15)"CCCCCCCCCCC*"
10070 goto 1010

11000 if cc<6000 then 1410
11010 mt$="1"
11020 print"{home}"ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$ds$"{grey2}"cl$(16)"{wht}mine(m)    {grey2}B"
11030 printcl$(17)"{wht}"ma"        {grey2}B"
11040 printcl$(18)"{wht}cost:      {grey2}B"
11050 printcl$(19)"{wht}"c4"    {grey2}B"
11060 printcl$(20)
11070 goto 1410