The Following Results Found;

I changed VIRTUAL Array to HUGE
which I belive keeps everything
below the DOS 1MB RAM boundary
and then used a RANDOM instead of a
BINARY OPEN command. It seems RANDOM
is best for numbers and BINARY
is best for Strings if you want to
do things byte by byte in PowerBasic For DOS.
EVERYTHING now becomes;

$LIB COM        ON
$LIB FULLFLOAT  ON
$LIB VGA        ON
$ERROR BOUNDS   ON
$ERROR NUMERIC  ON
$ERROR OVERFLOW ON
$ERROR STACK    ON
$CPU 80386
$COM    1024
$STRING 32
$STACK  2048
$SOUND  256
$DYNAMIC
$COMPILE EXE "TEST.EXE"
$FLOAT NPX
$OPTIMIZE SPEED
$EVENT
$OPTION CNTLBREAK ON

DIM HUGE DATA_1?(0:32769)
FOR A = 0 to 32769 : DATA_1?(A) = ( 65 + A MOD 58 ) : NEXT A
FILE1$ = "c:\data\test.dat"
START1 = TIMER
OPEN FILE1$ FOR RANDOM AS #1 LEN = 1
FOR A?? = 0 to 32769
PUT #1,A?? + 1,DATA_1?(A??)
NEXT A??
CLOSE
STOP1 = TIMER
IF START1 > STOP1 THEN START1 = START1 + 86400
PRINT "FILE CREATION RUNTIME :"; ROUND(( STOP1 - START1 ) , 3 )
' KILL FILE1$
SLEEP 3
END

Best regards
geoff

__________________________________________________________

Public Seismic Network Mailing List (PSN-L)