home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-MF1.DMS / in.adf / CheckRP next >
Encoding:
Text File  |  1995-07-02  |  515 b   |  31 lines
  1. /* check for RPStart*/
  2. call addlib("rexxsupport.library", 0, -30, 0)
  3.  
  4. filename = "S:user-startup"
  5. i = 0
  6.  
  7. call open(fn,filename,"r")
  8.  
  9.     do while ~EOF(fn)
  10.         i = i + 1
  11.         line.i = ReadLn(fn)
  12.         if index(line.i,"RPStart") ~= 0 then exit
  13.     end
  14.  
  15. call close(fn)
  16.  
  17. address command,
  18. "copy "||filename||" to S:user-startup-B4MacroForm"
  19.  
  20. call open(wn,filename,"w")
  21.     do n = 1 to i
  22.         call WriteLn(wn,line.n)
  23.     end
  24.     call WriteLn(wn,";BEGIN RexxPlus")
  25.     call WriteLn(wn,"RPStart")
  26.     call WriteLn(wn,";END RexxPlus")
  27. call close(wn)
  28.  
  29. exit
  30.  
  31.