# of items now stored as MI (Max Item #)

This commit is contained in:
Ian Skinner 2021-05-15 13:12:20 -04:00 committed by GitHub
parent 56d84acb1f
commit 46b1beb59b
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -1,12 +1,12 @@
0 rem !to "build/cookie.prg"
10 dimna$(17):dimia(17):dimbd$(17):dimbg(17):dimpr(17):dimcg(17)
10 mi=17:dimna$(mi):dimia(mi):dimbd$(mi):dimbg(mi):dimpr(mi):dimcg(mi)
20 open 8,8,8,"storedat,s,r"
30 forx=0to17
30 forx=0tomi
40 input#8,na$(x)
50 input#8,bd$(x)
55 input#8,bg(x)
60 input#8,pr(x)
65 ?x+1"/18"
65 ?x+1"/"mi+1
70 next
80 close 8
90 ms=1:bn$="someone's":r1$="{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}{right}"
@ -115,6 +115,6 @@
51020 ?r1$"{right} ";:next
51040 return
60000 fora=0to17:b=b+cg(x):next:rem adding subroutine
60000 fora=0tomi:b=b+cg(x):next:rem adding subroutine
60030 cc=cc+b:?"{home}{down}{right}"int(cc):return