2 ! +++++++++++++++++++++++++++++++++++
3 ! Program ....     LETA.800
4 ! Utg}va  1.1      1982-11-26
5 ! av (c) Bo Kullmar
8 ! Ins{nt av Bo Kullmar, medlem 1789.
9 ! F|r ABC800 C, men kan l{tt {ndras till ABC800 M.
10 ! Programmet f|rutsetter att filen som skall s|kas i {r lagrad under filnamnet
11 ! TEMP.BAS. Med programmet kan man allts} leta efter text i filer.
12 ! +++++++++++++++++++++++++++++++++++
50 ON ERROR GOTO 10000
60 FLOAT 
80 EXTEND 
300 DIM Rad$=165%
310 DIM Pos%(20%)
1000 ; CHR$(12%);
1010 ; TAB(6%) '*** ABC800 S\KER VARIABEL ***'
1110 ; : ; 
1120 INPUT 'Skriv s|kt variabel! 'S|kvar$
1130 L{ngd%=LEN(S|kvar$)
1140 ; 
1150 OPEN 'TEMP.BAS' AS FILE 1%
1160 WHILE Flagga$<>'EOF'
1170   INPUT LINE #1%,Rad$
1180   Rad$=LEFT$(Rad$,LEN(Rad$)-2%)
1190   S|kpos%=1%
1200   FOR I%=0% TO Antal%-1%
1210     Pos%(I%)=0%
1220   NEXT I% 
1230   Antal%=0%
1240   WHILE INSTR(S|kpos%,Rad$,S|kvar$)<>0%
1250     Pos%=INSTR(S|kpos%,Rad$,S|kvar$)
1260     Pos%(Antal%)=Pos%
1270     S|kpos%=Pos%+L{ngd%
1280     Antal%=Antal%+1%
1290   WEND 
1300   WHILE INSTR(1%,Rad$,S|kvar$)<>0%
1310     FOR I%=0% TO Antal%-1%
1320       IF I%>0% THEN Pos%(I%)=Pos%(I%)+2%*I%
1330       Rad$=LEFT$(Rad$,Pos%(I%)-1%)+FLSH+MID$(Rad$,Pos%(I%),L{ngd%)+STDY+RIGHT$(Rad$,Pos%(I%)+L{ngd%)
1340     NEXT I% 
1350     Rad%=Rad%+1%
1360     IF Rad%>1% THEN GET \$
1370     ; Rad$
1380     GOTO 1400
1390   WEND 
1400 WEND 
1410 ; 
1420 ; 'SLUT'
1430 END 
10000 IF ERRCODE=34% THEN Flagga$='EOF' : RESUME 1160
10010 IF ERRCODE=21% THEN ; 'Hittar ej filen!' : GOTO 10030
10020 ; 'FEL = ' ERRCODE
10030 END