COMMON: Fixed XPOS and YPOS to return 0 based values

Author: chrisws

ChangeLog

@@ -25,12 +25,13 @@
 	Fixed problem with escaped chars using FORMAT
 	Fixed problem with XNOR command result
 	Fixed problem with IMP and EQV command result
-	Fixed problem with INKEY command
+	Fixed issues with INKEY command to allow ALT/SHIFT/CTRL states to be returned
 	Fixed capslock handling
 	Fixed issues with TRY/CATCH
 	Fixed using POINT to retrieve IMAGE data
 	Fixed issues with CHAIN
 	Fixed TLOAD to work correctly with TRY/CATCH
+	Fixed XPOS and YPOS to return 0 based values
 
 2016-02-11
 	Added export to mobile command (SDL)

src/common/blib_func.c

@@ -519,7 +519,6 @@ var_num_t cmd_math1(long funcCode, var_t *arg) {
     r = atanh(x);
 #endif
     break;
-
   case kwSEC:
     r = 1.0 / cos(x);
     break;
@@ -532,7 +531,6 @@ var_num_t cmd_math1(long funcCode, var_t *arg) {
   case kwASECH:
     r = log((1.0 + sqrt(1.0 - x * x)) / x);
     break;
-
   case kwCSC:
     r = 1.0 / sin(x);
     break;
@@ -597,18 +595,18 @@ var_num_t cmd_math1(long funcCode, var_t *arg) {
     r = x;
     break;
   case kwXPOS:
-    if (os_graphics)
+    if (os_graphics) {
       r = dev_getx() / dev_textwidth("0");
-    else
+    } else {
       r = dev_getx();
-    r++;
+    }
     break;
   case kwYPOS:
-    if (os_graphics)
+    if (os_graphics) {
       r = dev_gety() / dev_textheight("0");
-    else
+    } else {
       r = dev_gety();
-    r++;
+    }
     break;
   case kwRND:
     r = ((var_num_t) rand()) / (RAND_MAX + 1.0);