1 REM Ins{nt av 3947
2 REM ! F|r ABC80 - ers{tter R-kommandot !
3 REM ! !
1040 M9%=M9%-500% : REM \kautrymmet f|r stacken!
2510 Z3%=INSTR(Z1%,C1$,CHR$(9%))
2515 IF Z3%>Z1% THEN S$=MID$(C1$,Z1%,Z3%-Z1%)
2520 A%=0% : Z1%=Z3%+1% : Z3%=INSTR(Z1%,C1$,CHR$(9%))
2525 IF Z3%=0% THEN Z3%=Z1%
2530 P1%=INSTR(P%+1%,M$,S$)-1%
2535 IF P1%<0% THEN 2605
2540 S2%=S% : P2%=P% : P%=P1%
2550 IF A%=33% THEN 2580
2555 GOSUB 1540
2560 GOSUB 1310
2565 A%=CALL(63507%)
2570 ON 1%+INSTR(1%,CHR$(32%,46%,33%,27%)+CHR$(127%),CHR$(A%)) GOTO 2565,2580,2595,2590,2600,2615
2580 GOSUB 2620 : IF E% THEN RETURN
2581 IF INP(56%)=135% THEN GET T$ : GOTO 2605
2585 GOTO 2530
2590 ; CUR(23%,0%);TAB(39%);CHR$(13%);"Wait - replace till end of text!"; : GOTO 2580
2595 GOSUB 2620 : GOTO 2605
2600 S%=S2% : P%=P2%
2605 GOSUB 1540
2610 Z1%=Z3%+1% : ; CUR(23%,0%);TAB(39%);CHR$(13%);"Replace ready!"; : RETURN
2615 P%=P%+1% : GOTO 2530
2620 M5%=Z3%-Z1%-LEN(S$)
2625 GOSUB 3350
2630 IF E% THEN RETURN
2640 GOSUB 3560
2650 RETURN