Self Creating Array?

[Bill Moody <wmoody@MULLER.COM>]

     Why does this work? I never called the create_test procedure, yet
     I am able to put and get from the array.

     begin-program
      do fill
      do show
     end-program

     #define MAX 10
     begin-procedure create_test
        create-array name=test size={MAX}
           field=row:integer
     end-procedure

     begin-procedure fill
     while #i < {MAX}
        put #x into test(#i)
        add 1 to #i
        add 10 to #x
     end-while
     end-procedure

     begin-procedure show
     while #j < #i
        get #row from test(#j)
        show #row edit 999
        add 1 to #j
     end-while
     end-procedure

     --
     Bill Moody