(FLECS VERSION 22.54)     04-AUG-78   14:14:14  PAGE  00001 
           
          ----------------------------------------
           
  00001         INTEGER FUNCTION CHANGE(BUF,FROM,TO1,LEN1,PNTR)
  00002         IMPLICIT INTEGER (A-Z)
  00003         BYTE BUF(132),FROM(132),TO1(132),TEMP(132)
  00004         PNT=POS(BUF,FROM)
  00005         WHEN (PNT.GT.0)
  00006         .  PNT4=LEN(BUF,132)+1
  00007         .  CALL XFRC(BUF,PNT4,TEMP)
  00008         .  CALL INPL(0,PNT4-1,BUF) !SPACE FILL BUF.
  00009         .  PNT3=PNT+LEN(FROM)
  00010         .  TEMP(PNT)=0
  00011         .  LEN1=CONCAT(BUF,TEMP,TO1,TEMP(PNT3))
  00012         .  CHANGE=POS(BUF,TO1)
  00013         ...FIN
  00014         ELSE
  00015         .  CHANGE=0
  00016         .  PNTR=0
  00017         ...FIN
  00018         RETURN
  00019         END
           
          (FLECS VERSION 22.54)
           
          ----------------------------------------