0 rem !to "build/cookie.prg" 10 cc=0:cg=0:ca=0:ga=0:ft$="0":mt$="0":bn$="someone" 20 ds$=chr$(17):rem cursor down 30 rs$=chr$(29):rem cursor right 40 ls$=chr$(157):rem cursor left 50 c1=15:c2=100:c3=1100:c4=12000 99 print"{clear}{home}" 1000 print"{clear}{home}{grey2}UCCCCCCCCCCCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCI" 1010 print"{grey2}B{wht} you have 0 {grey2}B{wht}cursor(c) {grey2}B" 1020 print"{grey2}B{wht} cookies {grey2}B{wht}"ca" {grey2}B" 1030 print"{grey2}{$ab}CCCCCCCCCCCCCCCCCCCCCCCCC{$b3}{wht}cost: {grey2}B" 1040 print"{grey2}B {grey2}B{wht}15 {grey2}B" 1050 print"{grey2}B {grey2}{$ab}CCCCCCCCCCC{$b3}" 1060 print"{grey2}B {grey2}B{wht}grandma(g) {grey2}B" 1070 print"{grey2}B {grey2}B{wht}"ga" {grey2}B" 1080 print"{grey2}B {brown}******** {grey2}B{wht}cost: {grey2}B" 1090 print"{grey2}B {brown}*******{blk}**{brown}* {grey2}B{wht}100 {grey2}B" 1100 print"{grey2}B {brown}***{blk}*{brown}******** {grey2}{$ab}CCCCCCCCCCC{$b3}" 1110 print"{grey2}B {brown}***{blk}**{brown}********* {grey2}B B" 1120 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B B" 1130 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B B" 1140 print"{grey2}B {brown}************** {grey2}B B" 1150 print"{grey2}B {brown}*{blk}*{brown}************ {grey2}B B" 1160 print"{grey2}B {brown}*************{brown}* {grey2}B B" 1170 print"{grey2}B {brown}******{blk}**{brown}**** {grey2}B B" 1180 print"{grey2}B {brown}*****{blk}**{brown}*** {grey2}B B" 1190 print"{grey2}B {brown}******** {grey2}B B" 1200 print"{grey2}B {$ab}CCCCCCCCCCC{$b3}" 1210 print"{grey2}B B{grey1}settings(s){grey2}B" 1220 print"{grey2}B v2.9.0 B{grey1}upgrades(u){grey2}B" 1230 print"{grey2}JCCCCCCCCCCCCCCCCCCCCCCCCC{$b1}CCCCCCCCCCCK" 1300 print"{home}{down}{down}{down}{down}B "bn$"'s bakery 1500 ft$="0":mt$="0" 1900 if ft$="0" then gosub 4000 1910 if mt$="0" then gosub 4100 1920 get k$:if k$= "" then 1990 1930 if k$=" " then 2100 1940 if k$="c" then 2200 1950 if k$="g" then 2300 1960 if k$="f" then 2400 1970 if k$="m" then 2500 1980 if k$="s" then 10000 1990 rem start of auto add 2000 cc=cc+cg 2010 print"{home}{down}{grey2}B{wht} you have "int(cc) 2020 goto 1900 2099 rem part 2 2100 cc=cc+1 2110 print"{home}{down}{grey2}B{wht} you have "int(cc) 2120 goto 1900 2200 if cc<15 then 1900 rem CURSORS 2210 cc=cc-15:cg=cg+.04:ca=ca+1 2220 print"{home}{down}{grey2}B{wht} you have "int(cc) 2225 print"{home}{down}{grey2}B{wht} you have {grey2}B 2230 print"{home}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grey2}B{wht}"ca 2240 goto 1900 2300 if cc<100 then 1900 rem GRANDMAS 2310 cc=cc-100:cg=cg+.05:ga=ga+1 2320 print"{home}{down}{grey2}B{wht} you have "int(cc) 2325 print"{home}{down}{grey2}B{wht} you have {grey2}B 2330 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grey2}B{wht}"ga 2340 goto 1900 2400 if cc<1100 then 1900 rem MINES 2410 cc=cc-1100:cg=cg+.06:ma=ma+1 2420 print"{home}{down}{grey2}B{wht} you have "int(cc) 2425 print"{home}{down}{grey2}B{wht} you have {grey2}B 2430 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grey2}B{wht}"ma 2440 goto 1900 2500 if cc<12000 then 1900 rem FARMS 2510 cc=cc-12000:cg=cg+.1:fa=fa+1 2520 print"{home}{down}{grey2}B{wht} you have "int(cc) 2525 print"{home}{down}{grey2}B{wht} you have {grey2}B 2530 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{grey2}B{wht}"fa 2540 goto 1900 4000 if cc<400 then return 4010 ft$="1" 4020 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{grey2}B {brown}***{blk}*{brown}******** {grey2}{$ab}CCCCCCCCCCC{$b3}" 4030 print"{grey2}B {brown}***{blk}**{brown}********* {grey2}B{wht}farm(f) {grey2}B" 4040 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B{wht} 0 {grey2}B" 4050 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B{wht}cost: {grey2}B" 4060 print"{grey2}B {brown}************** {grey2}B{wht} 1100 {grey2}B" 4070 print"{grey2}B {brown}*{blk}*{brown}************ {grey2}{$ab}CCCCCCCCCCC{$b3}" 4080 return 4100 if cc<6000 then return 4110 mt$="1" 4120 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{grey2}B {brown}*{blk}*{brown}***********{brown}* {grey2}{$ab}CCCCCCCCCCC{$b3}" 4130 print"{grey2}B {brown}*************{brown}* {grey2}B{wht}mine(m) {grey2}B" 4140 print"{grey2}B {brown}******{blk}**{brown}**** {grey2}B{wht} 0 {grey2}B" 4150 print"{grey2}B {brown}*****{blk}**{brown}*** {grey2}B{wht}cost: {grey2}B" 4160 print"{grey2}B {brown}******** {grey2}B{wht} 12000 {grey2}B" 4170 print"{grey2}B {grey2}{$ab}CCCCCCCCCCC{$b3}" 4180 return 10000 rem settings start here 10010 poke53280,0:poke53281,0 10100 print"{clear}{grey1}UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCI" 10110 print"B B" 10120 print"B {wht}bakery name (b): {grey1}B" 10130 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" 10140 print"B B" 10150 print"B {wht}save (s) {grey1}B" 10160 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" 10170 print"B B" 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" 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 rem print"B B" 10250 rem print"B B" 10260 rem print"B B" 10270 rem print"B B" 10280 rem print"B USE LATER IF YOU ADD MORE OPTIONS B" 10290 rem print"B B" 10300 rem print"B B" 10310 print"B {wht}exit settings (e) {grey1}B" 10320 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" 10330 print"B B" 10340 print"JCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK" 11200 getk$:ifk$=""then 11200 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 12100 print"{clear}writing save data..." 12110 open 8,8,8,"@0:cc64.sav,s,w" 12120 print#8,cc 12130 print#8,cg 12140 print#8,ca 12145 print#8,ga 12150 print#8,fa 12155 print#8,ma 12160 close 8 12170 print"saving complete" 12180 goto 10000 12200 print"{clear}loading save data..." 12210 open 8,8,8,"cc64.sav,s,r" 12220 input#8,cc 12222 input#8,cg 12224 input#8,ca 12226 input#8,ga 12228 input#8,fa 12230 input#8,ma 12260 close 8 12270 print"loading complete" 12275 poke53280,14:poke53281,6 12280 goto 10000 13000 print"{clear}" 13010 poke53280,14:poke53281,6 13030 goto 1000