Add files via upload

Examples/Core/Operators/arithmetic.bas

@@ -0,0 +1,13 @@
+SUB MAIN
+  PRINT "14 + 2 = " + STRING(14 + 2)
+  PRINT "14 - 2 = " + STRING(14 - 2)
+  PRINT "14 * 2 = " + STRING(14 * 2)
+  PRINT "14 / 2 = " + STRING(14 / 2)
+  PRINT "157 % 100 = " + STRING(157 % 100)
+  PRINT "10.0 ** 2.0 = " + STRING(10.0 ** 2.0)
+  PRINT "5 * -3 = " + STRING(5 * -3)
+  
+  PRINT "3 * 4 + 2 = " + STRING(3*4+2)
+  PRINT "(3 * 4) + 2 = " + STRING((3*4)+2)
+  PRINT "3 * (4 + 2) = " + STRING(3*(4+2))
+END SUB

Examples/Core/Operators/bitshift.bas

@@ -0,0 +1,24 @@
+FUNCTION toHexString(N AS INTEGER) AS STRING
+  DIM S AS STRING
+  DIM I, J AS INTEGER
+    
+  S = ""
+  
+  FOR I=1 TO 8
+    J = N & 0x0000000f
+    IF (J < 10) THEN
+    	S = CHR$(ASC("0") + J) + S
+    ELSE
+    	S = CHR$(ASC("A") + (J-10)) + S
+    END IF
+  	N = N >> 4
+  END FOR
+  
+  toHexString = "0x" + S
+END FUNCTION
+ 
+SUB MAIN
+  PRINT "0x000000f0 << 4 = " + toHexString(0x000000f0 << 4)
+  PRINT "0xf0000000 >> 4 = " + toHexString(0xf0000000 >> 4)
+  PRINT "0xf0000000 >>> 4 = " + toHexString(0xf0000000 >>> 4)
+END SUB

Examples/Core/Operators/bitwise.bas

@@ -0,0 +1,9 @@
+SUB MAIN
+  PRINT "0x0ffff & 0x00ff = " + STRING(0x0ffff & 0x00ff)
+  PRINT "0xff00 | 0x00ff = " + STRING(0xff00 | 0x00ff)
+  PRINT "0xff00 ^ 0x00ff = " + STRING(0xff00 ^ 0x00ff)
+  PRINT "~0xffffffff = " + STRING(~0xffffffff)
+  PRINT "~0xfffffffe = " + STRING(~0xfffffffe)
+  PRINT "~0xffffffffffffffffL = " + STRING(~0xffffffffffffffffL)
+  PRINT "~0xfffffffffffffffeL = " + STRING(~0xfffffffffffffffeL)
+END SUB

Examples/Core/Operators/logical.bas

@@ -0,0 +1,26 @@
+SUB MAIN
+  DIM I, J AS INTEGER
+
+  PRINT "NOT false = " + STRING(NOT false)
+  PRINT "NOT true = " + STRING(NOT true)
+  
+  PRINT "false AND false = " + STRING(false AND false)
+  PRINT "false AND true = " + STRING(false AND true)
+  PRINT "true AND false = " + STRING(true AND false)
+  PRINT "true AND true = " + STRING(true AND true)
+  
+  PRINT "false OR false = " + STRING(false OR false)
+  PRINT "false OR true = " + STRING(false OR true)
+  PRINT "true OR false = " + STRING(true OR false)
+  PRINT "true OR true = " + STRING(true OR true)
+  
+  FOR I=1 TO 10
+    FOR J=1 TO 10
+      IF (I=5 AND J=5) THEN
+        PRINT "I AND J ARE BOTH 5, I=" + STRING(I) + ", J=" + STRING(J)
+      ELSEIF (I=5 OR J=5) THEN
+        PRINT "EITHER I OR J IS 5, I=" + STRING(I) + ", J=" + STRING(J)
+      END IF
+    END FOR
+  END FOR
+END SUB

Examples/Core/Operators/relational.bas

@@ -0,0 +1,8 @@
+SUB MAIN
+  PRINT "(10 = 12) = " + STRING(10 = 12)
+  PRINT "(10 <> 12) = " + STRING(10 <> 12)
+  PRINT "(10 < 12) = " + STRING(10 < 12)
+  PRINT "(10 <= 12) = " + STRING(10 <= 12)
+  PRINT "(10 > 12) = " + STRING(10 > 12)
+  PRINT "(10 >= 12) = " + STRING(10 >= 12)
+END SUB