BCX Console Demonstration Program s115.bas
|
DIM I AS INTEGER
CONST TenMillion = 10 * 1000 * 1000
OPEN "Test" FOR BINARY NEW AS FP1
DIM A$ * TenMillion + 1 ' a VERY LARGE STRING
! memset(A,65,TenMillion); // memset is a lowercase "C" stdlib func
' In this example, we set every byte in A$
PUT$ FP1, A$, LEN(A$) ' to ASCII 65 ( the letter "A" )
CLOSE FP1 ' then write A$ out to a file in one swoop
' The whole process takes about 2 seconds
' on my 300mhz Pentium
I = LOF("TEST") ' So, how big is the file?
PRINT "LENGTH OF TEST FILE IS", I ' If it's TenMillion it worked
KILL "TEST" ' Don't need the file anymore