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