home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / comms / other / rxsocket / examples / hserv / main / counter.rexx < prev    next >
OS/2 REXX Batch file  |  1998-05-09  |  251b  |  18 lines
  1. /* */
  2.  
  3. parse arg file .
  4.  
  5. n=0
  6. if ~Open(in,file,'R') then
  7. if ~Open(in,file,'W') then return 1
  8.     else call writech(in,0)
  9. else n=ReadLn(in)
  10. call close(in)
  11. if ~Datatype(n,'N') then n=0
  12. if ~Open(in,file,'W') then return 1
  13. n=n+1
  14. call WriteCH(in,n)
  15. return n
  16.  
  17.  
  18.