10    LET O$ = "BUT"
20    LET N$ = "MAIS"
30    FILE *1: "ENGLISH"
40    FILE *2: "FRENCH"
50    GOATEND *1: 500
60    LINPUT *1: L$
70    LET X = POS(L$,O$)
80    IF X = 0 THEN 200
90    PRINT *2: SEG$(L$,1,X-1);N$;
100   LET L$ = SEG$(L$,X+LEN(O$),999)
110   GOTO 70
200   PRINT *2: L$
210   GOTO 60
500   END