home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 January / SOFM_Jan1996.bin / pc / os2 / zoc / install.fil / SCRIPT / PATCHZOC.RX < prev    next >
Encoding:
Text File  |  1995-08-31  |  444 b   |  24 lines
  1.  
  2. /* THIS IS A REXX PROGRAM THAT CAN BE USED TO PATCH BUGS OUT OF ZOC */
  3. /* DON'T USE WITHOUT INSTRUCTIONS FROM THE ZOC AUTHOR! */
  4.  
  5. n.1= 0 
  6. n.2= 0 
  7. old= 00
  8. new= 00
  9.  
  10. name= zoc.exe
  11.  
  12. if stream(name, c, open)=="READY:" then do 
  13.     do i=1 to 2 
  14.         if (c2x(charin(name, n.i, 3))==old) then do
  15.             call charout name, x2c(new), n.i
  16.             say OK!
  17.         end 
  18.     end
  19.     call stream name, c, close
  20. end
  21.  
  22. /* END - running this should output 'OK!' */
  23.  
  24.