       10 // Test program for arrays passed by reference.
       20 //
       30 DIM a$(2)
       40 aap(a$)
       50 SYS assert, a$(1)="c" AND a$(2)="c"
       60 PRINT "Ok"
       70 //
       80 PROC aap(REF b$())
       90   b$:="c"
      100 ENDPROC aap
