COMMON: fix par_getval

Author: chrisws

samples/distro-examples/games/sokoban.bas

@@ -514,7 +514,7 @@ sub play_game(byref game)
 
   game.game_over = false
   while game.game_over = false
-    pause true: k = inkey
+    k = inkey(1)
     if len(k) = 2 then
       ch = asc(right(k,1))
       select case ch

src/common/proc.c

@@ -511,14 +511,6 @@ var_int_t par_getval(var_int_t def) {
   } else {
     var_t var;
     switch (code_peek()) {
-    case kwTYPE_INT:
-      code_skipnext();
-      result = code_getint();
-      break;
-    case kwTYPE_NUM:
-      code_skipnext();
-      result = code_getreal();
-      break;
     case kwTYPE_LINE:
     case kwTYPE_EOC:
     case kwTYPE_SEP: