1 REM Ins{nt av 3947
2 REM ! Search med dialog f|r ABC80 TV EDITOR. Se vidare REM-filen !
3 REM !               <Matti Rendahl hackade 1983>                 !
1011 DIM F8$=70%
1065 F8$=CUR(22%,1%)+"Please enter command!"+CUR(23%,0%)+SPACE$(39%)+CHR$(13%)
2400 P3%=P% : P2%=P%
2405 Z3%=INSTR(Z1%,C1$,CHR$(9%))
2406 IF Z3%>Z1% THEN S$=MID$(C1$,Z1%,Z3%-Z1%) : GOTO 2435
2410 ; F8$; : GET T$
2411 IF T$=CHR$(13%) THEN ; S$; : GOTO 2435 ELSE S$="" : GOTO 2420
2415 GET T$
2420 ON 1%+INSTR(1%,CHR$(19%,18%,127%,7%)+CHR$(27%),T$) GOTO 2425,2435,2445,2475,2485,2489
2425 IF LEN(S$)=20% OR T$<" " THEN 2415 : REM [ndra "20" om du till}ter l{ngre s|kstr{ngar!
2430 S$=S$+T$ : ; T$;
2435 IF S$="" THEN 2415
2440 P3%=INSTR(P3%+1%,M$,S$)
2441 IF P3%=0% THEN P3%=P% : GOTO 2465 ELSE 2470
2445 IF S$="" THEN 2415
2446 IF P3%+LEN(S$)>LEN(M$) THEN P3%=LEN(M$)-LEN(S$)
2450 P3%=P3%-1% : IF P3%<=0% THEN 2465
2455 IF PEEK(65013%)=155% THEN 2489 : REM Avbrott d} bak}ts|k kan ta tid!
2460 IF MID$(M$,P3%,LEN(S$))<>S$ THEN 2450 ELSE 2470
2465 ; CUR(22%,1%);"%Search failed! ";RIGHT$(F8$,4%);S$; : GOTO 2415
2470 P%=P3%-1%
2471 GOSUB 1540 : GOSUB 1310
2472 ; F8$;S$; : GOTO 2415
2475 IF LEN(S$)<2% THEN S$="" ELSE S$=LEFT$(S$,LEN(S$)-1%)
2480 ; F8$;S$; : GOTO 2415
2485 P%=P2%
2489 RETURN