Update prg.txt

This commit is contained in:
Ian Skinner 2021-04-27 22:30:25 -04:00 committed by GitHub
parent fc2dac263f
commit 43632b59cc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -64,6 +64,7 @@
2570 return
3000 get k$
3005 gosub 60000
3010 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4")
3020 ms=-1*(k$="{f1}")-2*(k$="{f3}")-3*(k$="{f5}")
3030 ifk$="+"thenss=ss+1
@ -89,3 +90,10 @@
3610 x=0
3620 return
60000 fora=0to17
60010 b=b+cg(x)
60020 next
60030 cc=cc+b
60040 return