INTEGER FUNCTION CHANGE(BUF,LEN1,FROM,TO1,PNTR)                     00001 
      IMPLICIT INTEGER (A-Z)                                              00002 
      BYTE BUF(132),FROM(132),TO1(132),TEMP(132)                          00003 
      PNT=POS(BUF,FROM)                                                   00004 
      IF(.NOT.(PNT.GT.0)) GO TO 32757                                     00005 
      PNT4=LEN(BUF,132)+1                                                 00006 
      CALL XFRC(BUF,PNT4,TEMP)                                            00007 
      PNT3=PNT+LEN(FROM)                                                  00008 
      TEMP(PNT)=0                                                         00009 
      LEN1=CONCAT(BUF,TEMP,TO1,TEMP(PNT3))                                00010 
      CHANGE=POS(BUF,TO1)                                                 00011 
      GO TO 32758                                                         00012 
32757 CHANGE=0                                                            00014 
      PNTR=0                                                              00015 
32758 RETURN                                                              00017 
      END                                                                 00018