home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / zow311.exe / INSTALL.FIL / SCRIPT / PATCHZOC.ZRX < prev    next >
Text File  |  1996-08-26  |  481b  |  23 lines
  1. /* THIS IS A REXX PROGRAM THAT CAN BE USED TO PATCH BUGS OUT OF ZOC */
  2. /* DON'T USE WITHOUT INSTRUCTIONS FROM THE ZOC AUTHOR! */
  3.  
  4. n.1= 0 
  5. n.2= 0 
  6. old= 00
  7. new= 00
  8.  
  9. name= zoc.exe
  10.  
  11. IF STREAM(name, c, OPEN)=="READY:" THEN DO 
  12.     DO i=1 TO 2 
  13.         IF (C2X(CHARIN(name, n.i, 3))==old) THEN DO
  14.             CALL CHAROUT name, X2C(new), n.i
  15.             SAY OK!
  16.         END 
  17.     END
  18.     CALL STREAM name, c, CLOSE
  19. END
  20.  
  21. /* END - running this should output 'OK!' */
  22.  
  23.