Remaking everything.

Only the main menu is done. Nothing else works.

README.md

@@ -21,53 +21,15 @@
 </a>
 </p>
 
-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 <a href="http://lallafa.de/blog/c64-projects/diskimagery64/" target="_blank">DiskImagery64</a> or another disk editor.)
-<br>Currently saves are only available in the nightly builds.
- 
-
-### Save file format:
-
-<p>
-	Stop key flag
-<br>Cookies
-<br>Cookie gain
-<br>Cursor amount
-<br>Grandma amount
-<br>Farm amount
-<br>Mine amount
-<br>Player name
-<br>
-<br>The stop key flag must be `0` or `1`.
-<br>`0` will prevent the player from stoping the program, and `1` allows the player to stop the program.
-
-### Example save file:
-
-<br>0
-<br>3426597
-<br>0.9823
-<br>230
-<br>54
-<br>32
-<br>1
-<br>IANSKINNER1982</p>
-
-## 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
 
 

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"          
-
+20 input#8,f1:close 8                                  
-10 open 8,8,8,"cc64.sav,s,r"          : rem reads the first line
+40 if fl=0 then f1=128:f2=52:f3=193
-15 input#8,sb                         : rem of the save file and
+50 if fl=1 then f1=128:f2=49:f3=71
-20 close 8                            : rem checks stop key flag
+60 if fl=2 then f1=0:f2=52:f3=193
-30 if sb=0 then poke788,52:poke792,193: rem 0=on, 1=off
+70 if fl=3 then f1=0:f2=49:f3=71
-
+80 poke650,f1:poke788,f2:poke792,f3
-40 cc=0:cg=0:ca=0:ga=0:fa=0:ma=0:ft$="0":mt$="0":bn$="someone"
+90 gs=1:bn$="someone's":mn$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}"
-50 ds$=chr$(17):rem cursor down
+100 rem stick news here. 
-60 rs$=chr$(29):rem cursor right
+110 print"{brown}{clear}UCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCCCCCCCCCCCCI";
-70 ls$=chr$(157):rem cursor left
+120 print"B               B                      B";
-80 c1=15:c2=100:c3=1100:c4=12000
+130 print"B               B                      B";
-99 print"{clear}{home}"
+140 print"{$ab}CCCCCCCCCCCCCCC{$b3}                      B";
-
+150 print"B               B                      B";
-1000 print"{clear}{home}{grey2}UCCCCCCCCCCCCCCCCCCCCCCCCC{$b2}CCCCCCCCCCCI"
+160 print"B               B                      B";
-1010 print"{grey2}B{wht} you have  0             {grey2}B{wht}cursor(c)  {grey2}B"
+170 print"B               B                      B";
-1020 print"{grey2}B{wht} cookies                 {grey2}B{wht}"ca
+180 print"B               B                      B";
-1025 print"{up}{grey2}B{wht} cookies                 {grey2}B{wht}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{grey2}B"
+190 print"B               B                      B";
-1030 print"{grey2}{$ab}CCCCCCCCCCCCCCCCCCCCCCCCC{$b3}{wht}cost:      {grey2}B"
+200 print"B               B                      B";
-1040 print"{grey2}B                         {grey2}B{wht} 15        {grey2}B"
+210 print"B               B                      B";
-1050 print"{grey2}B                         {grey2}{$ab}CCCCCCCCCCC{$b3}"
+220 print"B               B                      B";
-1060 print"{grey2}B                         {grey2}B{wht}grandma(g) {grey2}B"
+230 print"B               B                      B";
-1070 print"{grey2}B                         {grey2}B{wht}"ga
+240 print"B               B                      B";
-1075 print"{up}{grey2}B{wht}                         {grey2}B{wht}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{grey2}B"
+250 print"B               B                      B";
-1080 print"{grey2}B       {brown}********          {grey2}B{wht}cost:      {grey2}B"
+260 print"B               B                      B";
-1090 print"{grey2}B      {brown}*******{blk}**{brown}*         {grey2}B{wht} 100       {grey2}B"
+270 print"B               B                      B";
-1100 print"{grey2}B     {brown}***{blk}*{brown}********        {grey2}{$ab}CCCCCCCCCCC{$b3}"
+280 print"B               B                      B";
-1110 print"{grey2}B    {brown}***{blk}**{brown}*********       {grey2}B           B"
+290 print"B               B                      B";
-1120 print"{grey2}B    {brown}********{blk}**{brown}****       {grey2}B           B"
+300 print"B               B                      B";
-1130 print"{grey2}B    {brown}********{blk}**{brown}****       {grey2}B           B"
+310 print"B               B                      B";
-1140 print"{grey2}B    {brown}**************       {grey2}B           B"
+320 print"B{wht} v2.9.0-1.0    {brown}B                      B";
-1150 print"{grey2}B    {brown}*{blk}*{brown}************       {grey2}B           B"
+330 print"JCCCCCCCCCCCCCCC{$b1}CCCCCCCCCCCCCCCCCCCCCCK";
-1160 print"{grey2}B    {brown}*************{brown}*       {grey2}B           B"
+340 print"{wht} {rvon}f1{rvof} store {rvon}f3{rvof} options {rvon}f5{rvof} stats {rvon}f7{rvof} ascend";
-1170 print"{grey2}B     {brown}******{blk}**{brown}****        {grey2}B           B"
+500 print"{home}{down}{right}"int(cc)
-1180 print"{grey2}B      {brown}*****{blk}**{brown}***         {grey2}B           B"
+510 print"{brown}B{wht} cookies"
-1190 print"{grey2}B       {brown}********          {grey2}B           B"
+520 print"{down}{brown}B{wht}"bn$
-1200 print"{grey2}B                         {$ab}CCCCCCCCCCC{$b3}"
+530 print"{brown}B{wht}    bakery"
-1210 print"{grey2}B                         B{grey1}settings(s){grey2}B"
+1000 on gs gosub 2000, 
-1220 print"{grey2}B v2.9.0-1.0              B{grey1}upgrades(u){grey2}B"
+1010 goto 1000
-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
 
 
 
+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                     ",
 
-
+60000 get k$
-
+60010 goto 60000
-
-
-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

testmenu.txt

@@ -1,133 +1 @@
-0 rem !to "build/testmenu.prg"
+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