02-01-2003, 01:48 AM
ok, this is what i got so far, and it's not working:
CLS
DIM INFO$(500)
OPEN "T:\SAMPNET\SAMPLE.DAT" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, INFO$
A = INT(RND * 9)
B = INT(RND * 9)
C = INT(RND * 9)
D = INT(RND * 9)
INFO(1) = A
INFO(2) = B
INFO(3) = C
INFO(4) = D
WEND
CLOSE
CLS
DIM INFO$(500)
OPEN "T:\SAMPNET\SAMPLE.DAT" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, INFO$
A = INT(RND * 9)
B = INT(RND * 9)
C = INT(RND * 9)
D = INT(RND * 9)
INFO(1) = A
INFO(2) = B
INFO(3) = C
INFO(4) = D
WEND
CLOSE