From: d83@ath.forthnet.gr (Don Schullian)
Subject: Re: Redim Preserve In Pbv3.5
 
On 3 Feb 1998 15:14:21 GMT, Paul Smith  wrote:
 
_This_ works on my 'puter, under wintrash....
 
defint a-z
dim dynamic num&(0)
 
open file for input as file
  while not eof(file)
    line input #1, l$
    incr x
    redim preserve num&(x)
    num&(x) = seek(file)
  wend
close file
 
  ____    _    ____      ____  _____
 |  _ \  / \  / ___) __ | ___)(_   _)
 | |_)  / _ \ \____\/  \|  _)   | |
 |____//_/ \_\(____/\__/|_|     |_|
    Reply to: d83@ath.forthnet.gr
     www.basicguru.com/schullian
 
*** QwkNews (tm) v2.1
 * [TN71] Internet Newsgroup: alt.lang.powerbasic
--- GEcho 1.20/Pro
---------------