saving/loading now works

This commit is contained in:
Myles Skinner 2020-09-19 17:05:12 -04:00
parent 47383f4934
commit eee5fbd319
3 changed files with 35 additions and 2 deletions

Binary file not shown.

Binary file not shown.

37
prg.txt
View File

@ -68,6 +68,7 @@
1430 if k$="g" then 4000
1440 if k$="f" then 5000
1450 if k$="m" then 6000
1460 if k$="s" then 30000
1890 rem start of auto add
@ -206,8 +207,40 @@
30330 print"B B"
30340 print"*CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC*"
31000 getk$:ifk$=""then 31000
31010 ifk$="b"then goto 32000
31020 ifk$="l"then goto 33000
31030 ifk$="s"then goto 34000
31040 ifk$="w"then goto 35000
31050 ifk$="e"then goto 400
33000 rem loading
33010 print"{clear}loading save data..."
33015 open 8,8,8,"cc64.sav,s,r"
33020 input#8,cc
33022 input#8,cg
33024 input#8,ca
33026 input#8,ga
33028 input#8,fa
33030 input#8,ma
33060 close 8
33070 print"loading complete"
33080 goto 400
34000 rem saving
34010 print"{clear}writing save data..."
34020 open 8,8,8,"@0:cc64.sav,s,w"
34030 print#8,cc
34035 print#8,cg
34040 print#8,ca
34045 print#8,ga
34050 print#8,fa
34055 print#8,ma
34060 close 8
34070 print"saving complete"
34080 goto 30000