PROCtestobjects
      END

      DEF PROCtestobjects
      PRIVATE a(), b(), s{}, t{}
      DIM a(123)
      DIM s{a%, b#, c$}

      IF !^a() <= 1 PRINT "a() is null" ELSE PRINT "a() is not null"
      IF !^b() <= 1 PRINT "b() is null" ELSE PRINT "b() is not null"
      IF !^s{} <= 1 PRINT "s{} is null" ELSE PRINT "s{} is not null"
      IF !^t{} <= 1 PRINT "t{} is null" ELSE PRINT "t{} is not null"
      ENDPROC