diff --git a/README.md b/README.md index 6c8845d..c1b8894 100644 --- a/README.md +++ b/README.md @@ -21,53 +21,15 @@

-Cookie Clicker C64 (or CC64 for short) is a Cookie clicker clone for the Commodore 64. +Cookie Clicker C64 (or CC64 for short) is a WIP Cookie clicker clone for the Commodore 64. -## How to play : -- Press the space bar to 'click' for cookies. - -- Buy/select items by pressing the letter beside them. (the one in brackets) - -## Saves: - -Saves must be named cc64.sav and placed in the same directory as cookie.prg. (to copy the save onto a d64 file, use DiskImagery64 or another disk editor.) -
Currently saves are only available in the nightly builds. - - -### Save file format: - -

- Stop key flag -
Cookies -
Cookie gain -
Cursor amount -
Grandma amount -
Farm amount -
Mine amount -
Player name -
-
The stop key flag must be `0` or `1`. -
`0` will prevent the player from stoping the program, and `1` allows the player to stop the program. - -### Example save file: - -
0 -
3426597 -
0.9823 -
230 -
54 -
32 -
1 -
IANSKINNER1982

- -## Credits and Notes Credits: -- [@Orteil](https://orteil.dashnet.org/) (for making the original cookie clicker game) +- [@Orteil](https://orteil.dashnet.org/) for making the original cookie clicker game +- [@drskinner](https://github.com/drskinner/) Notes: -- Due to the way I have everything set up, some of my commits will appear as commits by [@drskinner](https://github.com/drskinner/) - Editing program lines larger than 80 characters on the C64 (or on an emulator) will result in parts of them being deleted diff --git a/build/cookie.prg b/build/cookie.prg index f3caea4..4c1e12c 100644 Binary files a/build/cookie.prg and b/build/cookie.prg differ diff --git a/build/cookie.prg.out.prg b/build/cookie.prg.out.prg index 55e92d0..fea8c52 100644 Binary files a/build/cookie.prg.out.prg and b/build/cookie.prg.out.prg differ diff --git a/build/testmenu.prg b/build/testmenu.prg index 701b1b3..4ba2c25 100644 Binary files a/build/testmenu.prg and b/build/testmenu.prg differ diff --git a/build/testmenu.prg.out.prg b/build/testmenu.prg.out.prg index a027f51..9429336 100644 Binary files a/build/testmenu.prg.out.prg and b/build/testmenu.prg.out.prg differ diff --git a/prg.txt b/prg.txt index 624c279..7968739 100755 --- a/prg.txt +++ b/prg.txt @@ -1,250 +1,63 @@ 0 rem !to "build/cookie.prg" -5 poke53280,14:poke53281,6:poke650,64:rem screen color, no keys repeat - -10 open 8,8,8,"cc64.sav,s,r" : rem reads the first line -15 input#8,sb : rem of the save file and -20 close 8 : rem checks stop key flag -30 if sb=0 then poke788,52:poke792,193: rem 0=on, 1=off - -40 cc=0:cg=0:ca=0:ga=0:fa=0:ma=0:ft$="0":mt$="0":bn$="someone" -50 ds$=chr$(17):rem cursor down -60 rs$=chr$(29):rem cursor right -70 ls$=chr$(157):rem cursor left -80 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 -1025 print"{up}{grey2}B{wht} cookies {grey2}B{wht}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{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 -1075 print"{up}{grey2}B{wht} {grey2}B{wht}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{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-1.0 B{grey1}upgrades(u){grey2}B" -1230 print"{grey2}JCCCCCCCCCCCCCCCCCCCCCCCCC{$b1}CCCCCCCCCCCK" - -1300 print"{home}{down}{down}{down}{down}B "bn$"'s bakery " -1310 print"{up}B{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{grey2}B{wht} 15 {grey2}B" -1320 print"{grey2}B {grey2}{$ab}CCCCCCCCCCC{$b3}" - -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}{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}"fa -4045 print"{grey2}B {brown}********{blk}**{brown}**** {grey2}B{wht} {right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{grey2}B" -4050 print"{up}{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}{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}"ma -4145 print"{up}{grey2}B {brown}******{blk}**{brown}**** {grey2}B{wht} {right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{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 -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 {wht}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" -10250 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" -10260 print"B B" -10270 rem print"B B" -10280 rem print"B 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$="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$ -12020 nl=len(nn$) -12030 if nl<15 then 12050 -12040 print"{up}{up}{up}{red}error: name too long{wht}":getk$:ifk$=""goto12040 -12045 goto 12000 -12050 print"are you sure? (y/n)" -12055 getk$:ifk$=""then12055 -12060 ifk$="y"then 12080 -12070 goto 10100 -12080 bn$=nn$:goto10100 - -12100 print"{clear}{wht}writing save data..." -12110 open 8,8,8,"@0:cc64.sav,s,w" -12110 print#8,sb -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 print#8,bn$ -12165 close 8 -12170 print"saving complete" -12180 goto 10000 - -12200 print"{clear}{wht}loading save data..." -12210 open 8,8,8,"cc64.sav,s,r" -12215 input#8,sb -12220 input#8,cc -12222 input#8,cg -12224 input#8,ca -12226 input#8,ga -12228 input#8,fa -12230 input#8,ma -12235 input#8,bn$ -12260 close 8 -12270 print"loading complete" -12275 poke53280,14:poke53281,6 -12280 goto 10000 +10 open 8,8,8,"cc64.sav,s,r" +20 input#8,f1:close 8 +40 if fl=0 then f1=128:f2=52:f3=193 +50 if fl=1 then f1=128:f2=49:f3=71 +60 if fl=2 then f1=0:f2=52:f3=193 +70 if fl=3 then f1=0:f2=49:f3=71 +80 poke650,f1:poke788,f2:poke792,f3 +90 gs=1:bn$="someone's":mn$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}" +100 rem stick news here. +110 print"{brown}{clear}UCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCCCCCCCCCCCCI"; +120 print"B B B"; +130 print"B B B"; +140 print"{$ab}CCCCCCCCCCCCCCC{$b3} B"; +150 print"B B B"; +160 print"B B B"; +170 print"B B B"; +180 print"B B B"; +190 print"B B B"; +200 print"B B B"; +210 print"B B B"; +220 print"B B B"; +230 print"B B B"; +240 print"B B B"; +250 print"B B B"; +260 print"B 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{wht} v2.9.0-1.0 {brown}B B"; +330 print"JCCCCCCCCCCCCCCC{$b1}CCCCCCCCCCCCCCCCCCCCCCK"; +340 print"{wht} {rvon}f1{rvof} store {rvon}f3{rvof} options {rvon}f5{rvof} stats {rvon}f7{rvof} ascend"; +500 print"{home}{down}{right}"int(cc) +510 print"{brown}B{wht} cookies" +520 print"{down}{brown}B{wht}"bn$ +530 print"{brown}B{wht} bakery" +1000 on gs gosub 2000, +1010 goto 1000 +2000 rem store stuff +2010 print"{home}{down}"mn$"t ", +2020 printmn$"e ", +2030 printmn$"s ", +2040 printmn$"t ", +2050 printmn$"i ", +2060 printmn$"n ", +2070 printmn$"g ", +2080 printmn$" ", +2090 printmn$"s ", +2100 printmn$"t ", +2110 printmn$"u ", +2120 printmn$"f ", +2130 printmn$"f ", +2140 printmn$" ", +2150 printmn$"h ", +2160 printmn$"i ", - - - - -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 cc64.sav 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 (3) exit B" -12360 print"{right}{right}{right}{right}*CCCCCCCCCCCCCCCCCCCCCCCCCCCCC*" -12400 getk$:ifk$=""then12400 -12410 ifk$="1"then 12500 -12420 ifk$="2"then 12600 -12450 ifk$="3"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,sb -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); -40020 q$=chr$(34) -40030 d$=chr$(17) -40040 print"load"q$"testmenu"q$",8" -40050 printd$;d$;d$;d$;"run" -40060 rem load keyboard buffer and flush it -40070 poke631,19:poke632,13:poke633,13:poke198,3 \ No newline at end of file +60000 get k$ +60010 goto 60000 diff --git a/testmenu.txt b/testmenu.txt index ba225fa..09adad9 100644 --- a/testmenu.txt +++ b/testmenu.txt @@ -1,133 +1 @@ -0 rem !to "build/testmenu.prg" -5 poke788,52:poke792,193 -40000 rem testing menu -40010 poke53280,0:poke53281,0:poke646,5 -40020 print"{clear}logging into console" -40025 print"cc64:/>" -40030 print"{up}{right}{right}{right}{right}{right}{right}{right} h" -40040 print"booting help menu" -40045 print"" -40050 print" manage saves:" -40060 print"" -40110 print" delete [d]" -40130 print" restore [r]" -40140 print" edit [e]" -40150 print"" -40160 print" others:" -40165 print"" -40170 print" help [h]" -40160 print" exit [t]" -40170 print"" -40180 print"cc64:/>" -40500 getk$:ifk$=""then40500 -40520 ifk$="d"then 41000 -40540 ifk$="r"then 43000 -40570 ifk$="e"then 44000 -40580 ifk$="h"then 40030 -40590 ifk$="t"then 60000 -40600 goto 40500 - -41000 print"{up}{right}{right}{right}{right}{right}{right}{right} d" -41005 print"writing objects: 0% (0/1)" -41010 open 8,8,8,"@0:cc64.sav,s,w" -41015 print#8,0 -41020 print#8,0 -41025 print#8,0 -41030 print#8,0 -41035 print#8,0 -41040 print#8,0 -41050 print#8,0 -41055 print#8,"someone" -41060 close 8 -41070 print"{up}writing objects: 0% (1/1)" -41080 goto 40180 - -44000 print"{up}{right}{right}{right}{right}{right}{right}{right} e" -44005 print"loading save file: 0% (0/1)" -44010 open 8,8,8,"@0:cc64.sav,s,r" -44015 input#8,sb -44020 input#8,cc -44022 input#8,cg -44024 input#8,ca -44026 input#8,ga -44028 input#8,fa -44030 input#8,ma -44040 input#8,bn$ -44040 close 8 -44070 print"{up}loading save file: 100% (1/1)" -44080 print"" -44090 print" [1] stop key flag: "sb -44100 print" [2] cookies: "cc -44110 print" [3] cookie gain: "cg -44120 print" [4] cursor amount: "ca -44130 print" [5] grandma amount: "ga -44140 print" [6] farm amount: "fa -44150 print" [7] mine amount: "ma -44160 print" [8] bakery name: "bn$ -44500 print" [9] exit menu (saves changes)" -44510 print"" -44520 print"please choose an option" -44530 print"cc64:/cc64.sav/>" -44540 getk$:ifk$=""then44540 -44550 if k$="1"then 45000 -44560 if k$="2"then 45100 -44570 if k$="3"then 45200 -44580 if k$="4"then 45300 -44590 if k$="5"then 45400 -44600 if k$="6"then 45500 -44610 if k$="7"then 45600 -44620 if k$="8"then 45700 -44630 if k$="9"then 45800 -44999 goto 43540 - -45000 print"please set a value (0=on:1=off) -45010 input sb -45020 if sb>1 then goto 45000 -45030 if sb<0 then goto 45000 -45040 goto 44080 -45100 print"please set a value" -45110 input cc -45120 goto 44080 -45200 print"please set a value" -45210 input cg -45220 goto 44080 -45300 print"please set a value" -45310 input ca -45320 goto 44080 -45400 print"please set a value" -45410 input ga -45420 goto 44080 -45500 print"please set a value" -45510 input fa -45520 goto 44080 -45600 print"please set a value" -45610 input ma -45620 goto 44080 -45700 print"please set a value" -45710 input bn$ -45720 goto 44080 - - -45800 print"{up}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right} .." -45805 print"writing objects: 0% (0/1)" -45810 open 8,8,8,"@0:cc64.sav,s,w" -45815 print#8,sb -45820 print#8,cc -45825 print#8,cg -45830 print#8,ca -45835 print#8,ga -45840 print#8,fa -45845 print#8,ma -45850 print#8,bn$ -45855 close 8 -45860 print"{up}writing objects: 100% (1/1)" -45865 goto 40180 - -60000 print"{clear}" -60010 print chr$(147); -60020 q$=chr$(34) -60030 d$=chr$(17) -60040 print"load"q$"cookie"q$",8" -60050 printd$;d$;d$;d$;"run" -60060 rem load keyboard buffer and flush it -60070 poke631,19:poke632,13:poke633,13:poke198,3 \ No newline at end of file +0 rem !to "build/testmenu.prg" \ No newline at end of file