home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / xes131.lha / XES / REXX / LoadArray.xdme < prev    next >
Encoding:
Text File  |  1994-12-23  |  288 b   |  18 lines
  1. /* LoadArray.xdme */
  2.  
  3. parse arg v file
  4.  
  5. file = strip(file)
  6. call open(input,file,"R")
  7. size = 0
  8. do forever
  9.     line = "(" || readln(input) || ")"
  10.     if eof(input) then leave
  11.     size = size + 1
  12.     xcom = "set" v || size line
  13.     xcom
  14. end
  15. xcom = "set" v || "0" size
  16. xcom
  17. call close(input)
  18.