View difference between Paste ID: YeKnzfJ9 and GCgJdJHP

-#include "crt.bi"
+type x
   x as long
-type Point
+
-  as long x
+
-  as long y
+
 'variable named "x", having "x" as type
 'this is fine since despite having the same names they are not used in the same contexts
-function createPoint( x as long , y as long) as point
+dim shared as x x
-    dim as point p
+dim shared as long y
-    p.x = x
+
-    p.y = y
+sub MySub( x as long )
-    return p
+  dim as integer y = 5
-end function
+  print "y=";y,".y=";.y
   print "parm x=";x,"old x.x=";.x.x
-scope 'int main() {
+  .x.x = x
-    dim as Point myPoint = createPoint(3, 4)
+  print "parm x=";x,"new x.x=";.x.x
-    printf(!"Point coordinates: (%d, %d)\n", myPoint.x, myPoint.y)
+end sub
-
+
-    dim as point MyPointToo = type(3,4) 'initialize the struct
+scope 'main
-    with myPointToo 'can be used to simplify access to a struct
+
-      printf(!"Point coordinates: (%d, %d)\n", .x, .y)
+  'setting global x heres...
-    end with
+  y = 10
-
+  x.x = 12
-    end 0'return 0
+
-end scope '}
+  'declared a "x" as string which is fine since this is a different scope
-
+  dim as string x = "hello world"
 
   'freebasic kinda screwed up in this case... because sizeof() should refer to type X as priority
   'and len(x) should refer to variable x.. as priority.... but they don't
   print "sizeof(x)=";sizeof(x) 'this will cause a warn due to ambiguity (and will show the size of the struct)
   print "len(x)=";len(x)       'this will cause a warn due to ambiguity (and will show the size of the struct)
 
   print sizeof(.x)  'this will NOT WARN and show the size of the struct
   print sizeof(..x) 'this will NOT WARN and show the size of the struct
   print sizeof(*@x) 'this will NOT WARN and show the size of the variable (12 since that's the size of the string descriptor)
   print len(*@x)    'this will NOT WARN and show the LENGTH of the string variable
 
   MySub(15)
   sleep
 end scope