home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / PATCHZOC.ZRX < prev    next >
Text File  |  1996-08-26  |  517b  |  23 lines
  1. /* DIESES REXX-PROGRAMM KANN VERWENDET WERDEN, UM KLEINERE BUGS */
  2. /* AUS ZOC ZU ENTFERNEN. NICHT OHNE ANLEITUNG DES ZOC-AUTORS VERWENDEN */
  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. /* ENDE - Nach AusfÅhrung sollte der Text 'OK!' ausgegeben werden */
  22.  
  23.