From c8cd0827f15c811186b4f07e3a61c3e30b695d49 Mon Sep 17 00:00:00 2001
From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com>
Date: Fri, 30 Apr 2021 19:08:34 -0400
Subject: [PATCH] Fixed price printing error + started settings

---
 prg.txt | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/prg.txt b/prg.txt
index 1c94d19..1f30e83 100755
--- a/prg.txt
+++ b/prg.txt
@@ -40,7 +40,7 @@
 510 print"{brown}B{wht} cookies"
 520 ?"{brown}B{wht}"bn$
 530 print"{brown}B{wht}    bakery"
-1000 on ms gosub 2000, 2000, 2000, 2000
+1000 on ms gosub 2000, 5000, 5000
 1010 goto 1000
 
 2000 ifms<>1thenreturn 
@@ -59,7 +59,7 @@
 2510 ?r1$"{up}{rvon}"right$(str$(y),1)"{rvof} "na$(x)
 2520 ?r1$r2$"{up}"ia(x)
 2530 ?r1$bd$(x)
-2540 ?r1$"{up}"pr$(x)
+2540 ?r1$"{up}"pr(x)
 2545 ?r1$"{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}{$a3}":y=y+1
 2550 next
 2555 ifj=18then?r1$"{down}{down}{down}        prev/next(-/+)"
@@ -99,6 +99,15 @@
 3610 x=0
 3620 return
 
+5000 ifms<>2thenreturn 
+5010 tc=cs
+5020 tm=ms
+5030 gosub5100
+5040 goto5000
+
+
+
+
 49999 rem adding and menu selecting subroutines
 50000 ifk$="{f1}"then50040
 50010 ifk$="{f3}"then50040