From b3f60c8dfad838589421e168b0b3776487a92108 Mon Sep 17 00:00:00 2001
From: Ian Skinner <56081713+IanSkinner1982@users.noreply.github.com>
Date: Mon, 3 May 2021 16:30:40 -0400
Subject: [PATCH] Added menu switching.

---
 prg.txt | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/prg.txt b/prg.txt
index 5330e60..4291d38 100755
--- a/prg.txt
+++ b/prg.txt
@@ -74,16 +74,18 @@
 
 3000 get k$:x=0
 3010 gosub 60000
-3020 ifval(k$)>5then3050
-3030 ifval(k$)<1then3050
-3040 x=-1*(k$="1")-2*(k$="2")-3*(k$="3")-4*(k$="4")-5*(k$="5")
-3045 gosub 3500 : rem buying routine
-3050 gosub 50000
-3055 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc)
-3060 ifk$="+"thenss=ss+1
-3070 ifk$="-"thenss=ss-1
-3080 ifss=0thenss=1
-3090 ifss=5thenss=4
+3015 ifval(k$)>5then3065
+3020 ifval(k$)<1then3065
+3025 x=val(k$)
+3030 ifk$="{f3}"thenms=2
+3035 ifk$="{f5}"thenms=3
+3065 gosub 3500 : rem buying routine
+3070 gosub 50000
+3075 ifk$=" "thencc=cc+1:?"{home}{down}{right}"int(cc)
+3080 ifk$="+"thenss=ss+1
+3085 ifk$="-"thenss=ss-1
+3090 ifss=0thenss=1
+3095 ifss=5thenss=4
 3110 ifss<>tsthenreturn
 3120 ifms<>tmthenreturn 
 3130 goto 3000