home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol8n02.zip / TYPE.BAS < prev    next >
BASIC Source File  |  1988-07-13  |  275b  |  14 lines
  1.      TYPE FLen
  2.           Stuff AS STRING * 11
  3.      END TYPE
  4.  
  5.      DECLARE SUB FLSub (Param() AS FLen)
  6.      DIM A(100) AS FLen
  7.  
  8.      A(89).Stuff = "Testing #89"
  9.      CALL FLSub(A())
  10.  
  11.      SUB FLSub (Array() AS FLen)
  12.          PRINT Array(89).Stuff
  13.      END SUB
  14.