fix adventure-portable

Author: omiq

examples/adventure-portable.bas

@@ -78,12 +78,9 @@ print ""
 print "          {LIGHTBLUE}RETROGAMECODERS.COM{WHITE}"
 print ""
 print " {LIGHTGREEN}PRESS H FOR HELP OR OTHER KEY TO START{WHITE}"
-do
-  get I$
-  I$ = UCASE$(I$)
+
+  I$ = WaitKey()
   if I$ = "H" then Help()
-loop while I$ = ""
-I$ = ""
 
 ' ===== MAIN LOOP (was DISPLAYROOM / GETCOMMAND) =====
 do
@@ -177,10 +174,12 @@ end function
 
 function WaitKey()
   print CY$ + RV$ + "        PRESS A KEY TO CONTINUE         " + RO$
-  do
+  I$=""
+  while I$ = ""
     get I$
-  loop while I$ = ""
-  return
+  wend
+  I$ = UCASE$(I$)
+  return I$
 end function
 
 
@@ -386,6 +385,7 @@ function GetLine()
   I$ = ""
   do
     get Y$
+    Y$ = UCASE$(Y$)
     if Y$ <> "" then
       if ASC(Y$) = 13 then
         print ""

examples/adventure.bas

@@ -1,3 +1,4 @@
+#OPTION CHARSET PET-LOWER
 REM TEXT ADVENTURE GAME BY CHRIS GARRETT 2026 RETROGAMECODERS.COM
 
 REM SET UP VARIABLES ETC

examples/getkey.bas

@@ -0,0 +1,15 @@
+function WaitKey()
+  print CY$ + RV$ + "        PRESS A KEY TO CONTINUE         " + RO$
+  I$=""
+  while I$ = ""
+    get I$
+    print I$
+  wend 
+  return I$
+end function
+
+  I$=""
+
+WaitKey()
+print "you pressed: " + I$
+