added test menu and blocked space repeat

This commit is contained in:
IanSkinner1982 2021-01-07 20:18:52 -05:00
parent fc37cbe6f8
commit dafb8520ee
7 changed files with 130 additions and 8 deletions

6
.gitignore vendored
View File

@ -2,8 +2,8 @@
.DS_Store
build/.DS_Store
# Others
devmenu.txt
build/devmenu.prg
build/devmenu.prg.out.prg
# testmenu.txt
# build/testmenu.prg
# build/testmenu.prg.out.prg
build/cc64.sav
build/cookie.d64

Binary file not shown.

Binary file not shown.

BIN
build/testmenu.prg Normal file

Binary file not shown.

BIN
build/testmenu.prg.out.prg Normal file

Binary file not shown.

10
prg.txt
View File

@ -1,5 +1,5 @@
0 rem !to "build/cookie.prg"
5 poke788,52:poke792,193:poke53280,14:poke53281,6:rem screen color and stop block
5 poke788,52:poke792,193:poke53280,14:poke53281,6:poke650,64:rem screen color, stop block and no repeat
10 cc=0:cg=0:ca=0:ga=0:fa=0:ma=0:ft$="0":mt$="0":bn$="someone"
20 ds$=chr$(17):rem cursor down
30 rs$=chr$(29):rem cursor right
@ -129,7 +129,7 @@
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 print"B {yel}devmenu (d) {grey1}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"
@ -147,9 +147,9 @@
11230 ifk$="l"then goto 12200
11240 ifk$="w"then goto 12300
11250 ifk$="e"then goto 13000
11260 ifk$="d"then goto 40000
11260 ifk$="t"then goto 40000
12000 print"{down}{wht}please enter a new name (14 characters max):"
12000 print"{clear}{down}{wht}please enter a new name (14 characters max):"
12010 input nn$
12020 nl=len(nn$)
12030 if nl<14 then 12045
@ -193,7 +193,7 @@
40010 print chr$(147);
40020 q$=chr$(34)
40030 d$=chr$(17)
40040 print"load"q$"devmenu"q$",8"
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

122
testmenu.txt Normal file
View File

@ -0,0 +1,122 @@
0 rem !to "build/testmenu.prg"
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"loading help menu..."
40045 print""
40050 print" manage saves:"
40060 print""
40110 print" delete [d]"
40120 print" backup [b]"
40130 print" restore [r]"
40140 print" edit [e]"
40150 print""
40160 print" others:"
40170 print" help [h]"
40160 print" exit [t]"
40170 print""
40180 print"cc64:/>"
40500 getk$:ifk$=""then40500
40520 ifk$="d"then 41000
40530 ifk$="b"then 42000
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"deleting save file..."
41010 open 8,8,8,"@0:cc64.sav,s,w"
41020 print#8,0
41025 print#8,0
41030 print#8,0
41035 print#8,0
41040 print#8,0
41050 print#8,0
41060 close 8
41070 print"done!"
41080 goto 40180
42000 print"{up}{right}{right}{right}{right}{right}{right}{right} b"
42005 open 15,8,15
42010 print#15,"copy0:cc64.sav=test"
42020 close 15:stop
44000 print"{up}{right}{right}{right}{right}{right}{right}{right} e"
44005 print"loading save file..."
44010 open 8,8,8,"@0:cc64.sav,s,r"
44020 input#8,sa
44022 input#8,sb
44024 input#8,sc
44026 input#8,sd
44028 input#8,se
44030 input#8,sf
44040 close 8
44070 print"loading complete"
44080 print""
44100 print" [1] cookies: "sa
44110 print" [2] cookie gain: "sb
44120 print" [3] cursor amount: "sc
44130 print" [4] grandma amount: "sd
44140 print" [5] farm amount: "se
44150 print" [6] mine amount: "sf
44500 print" [7] 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 44000
44560 if k$="2"then 44100
44570 if k$="3"then 44200
44580 if k$="4"then 44300
44590 if k$="5"then 44400
44600 if k$="6"then 44500
44610 if k$="7"then 44600
44999 goto 43540
44000 print"please set a value"
44010 input sa
44020 goto 43080
44100 print"please set a value"
44110 input sb
44120 goto 43080
44200 print"please set a value"
44210 input sc
44220 goto 43080
44300 print"please set a value"
44310 input sd
44320 goto 43080
44400 print"please set a value"
44410 input se
44420 goto 43080
44500 print"please set a value"
44510 input sf
44520 goto 43080
44600 print"{up}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right} .."
44610 open 8,8,8,"@0:cc64.sav,s,w"
44620 print#8,sa
44630 print#8,sb
44640 print#8,sc
44650 print#8,sd
44660 print#8,se
44670 print#8,sf
44680 close 8
44690 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