home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol8n02.zip
/
TYPE.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-07-13
|
275b
|
14 lines
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