string ref test. Console output shows: c:\Dev\Console\>Console.exe thisString = hi there! null

test.clw

  PROGRAM

  Include('ConsoleSupport.inc'),ONCE

Console                 ConsoleSupport
                        MAP
Main                      PROCEDURE()
MyTest                    PROCEDURE(<*STRING pString>)
                        END
  CODE
  Main()

! ----------------------------------------------------------------------------------
Main                    PROCEDURE()
myString                  &STRING
  CODE

  IF Console.Init() 
    Halt()
  END
  myString &= New(STRING(255))
  myString = 'hi there!'
  MyTest(myString)
  MyTest()
  Dispose(myString)

MyTest                    PROCEDURE(<*STRING pString>)
thisString                &STRING
  CODE
  thisString &= pString
  IF thisString &= NULL
    Console.WriteLine('null')
  ELSE
    Console.WriteLine('thisString = ' & thisString)    
  END