TYPE FLen
          Stuff AS STRING * 11
     END TYPE
 
     DECLARE SUB FLSub (Param() AS FLen)
     DIM A(100) AS FLen
 
     A(89).Stuff = "Testing #89"
     CALL FLSub(A())
 
     SUB FLSub (Array() AS FLen)
         PRINT Array(89).Stuff
     END SUB