Respond to this messageReturn to Index
Original Message
  • Ok this is working....
    • lisztfr (no login)
      Posted May 31, 2012 1:55 AM

      TYPE example
      a AS INTEGER
      b AS STRING * 32
      END TYPE

      DECLARE SUB ExSub (var AS example)

      DIM test AS example

      CLS

      test.a = INT(RND * 100)
      test.b = "hey, just testing"

      CALL ExSub(test)

      PRINT "MAIN :"

      PRINT "var.a = "; test.a
      PRINT "var.b = "; test.b


      END

      SUB ExSub (var AS example)

      PRINT "SUB :"
      PRINT "var.a = "; var.a
      PRINT "var.b = "; var.b

      var.a = var.a + 1

      END SUB

    Your Name
    Message Title
    Message Text
    Options