1 ! +++++++++++++++++++++++++++++++++++
2 ! Program ....   S\KFIL.800
3 ! Utg}va  1.2    1982-10-25
4 ! av (c) Bo Kullmar
8 ! Ins{nt av Bo Kullmar
9 ! S|kning efter filer i filreg.
10 ! +++++++++++++++++++++++++++++++++++
60 FLOAT 
80 EXTEND 
300 DIM Volym$=125%
1000 ! Huvudprogram
1010 GOSUB 2000 ! \ppning av fil
1020 Datum$=NUM$(Datum)
1030 H$=CHR$(12%)+CUR(0%,0%)+'* ABC800 S\KER FIL FR]N FILREG '+Datum$+' *'
1040 ; H$
1050 ; : ; 
1060 INPUT 'Vilken fil/er? 'S|ktfil$
1070 S|ktfil$=FNStora$(S|ktfil$)
1080 IF LEN(S|ktfil$)>12 THEN 1060
1090 Punkt=INSTR(1,S|ktfil$,'.')
1100 IF Punkt<9 AND Punkt<>0 THEN S|ktfil$=FNFyllblank$
1110 ; CUR(19%,0%) 'Tat lungt jag arbetar!'
1120 GET #1%,Antalblock$ COUNT 2%
1130 Antalblock%=CVT$%(Antalblock$)
1140 GET #1%,Volym$ COUNT 120%
1150 K%=0% : R%=9%
1160 FOR I%=1% TO Antalblock%
1170   GET #1%,Filnamn$ COUNT 12%
1180   WHILE INSTR(1,Filnamn$,S|ktfil$)<>0
1190     Flagga%=9%
1200     R{knare%=R{knare%+1%
1210     ; H$
1220     ; : ; 
1230     ; 'S|kt fil/er: ' S|ktfil$
1240     ; : ; 
1250     ; CUR(7%,0%) 'Volym: ' Volym$
1260     ; CUR(12%,0%) Filnamn$
1270     ; CUR(19%,0%) 'Tryck f|r forts{ttning! ';
1280     GET \$
1290     Filnamn$='' ! Uthopp
1300     FOR Y%=7% TO 12%
1310       ; CUR(Y%,0%) SPACE$(40%)
1320     NEXT Y% 
1330     ; CUR(19%,0%) 'Jag arbetar!                   '
1340   WEND 
1350 NEXT I% 
1360 IF INP(34)=83 OR INP(34)=115 THEN 6000
1370 Filpekare%=POSIT(1%)
1380 IF Filpekare%<Filslut% THEN 1120
1390 ; : ; 
1400 GOSUB 6000 ! Slut
2000 ! \ppning av fil
2010 OPEN 'LIBREG.DAT' AS FILE 1%
2020 GET #1%,Datum$ COUNT 4%
2030 Datum=CVT$F(Datum$)
2040 POSIT #1%,5%
2050 GET #1%,Filslut$ COUNT 2%
2060 Filslut%=CVT$%(Filslut$)
2070 RETURN 
6000 ! Slutsektion
6010 CLOSE 1%
6020 ; CUR(14%,0%) SPACE$(35%)
6030 IF R{knare%<>0% THEN ; 'Antal hittade filer = ' R{knare% : ; 
6040 IF Flagga%<>9% THEN ; CUR(10%,0%) 'Hittade ej den s|kta filen/erna!' : ; : ; : ; 
6050 ; CUR(19%,0%) SPACE$(22%)
6060 ; 'Slut!'
6070 POKE -30%,0%
6080 END 
7000 DEF FNStora$(Ord$)
7010   FOR Ii%=1% TO LEN(Ord$)
7020     IF ASCII(MID$(Ord$,Ii%,1%))>96% AND ASCII(MID$(Ord$,Ii%,1%))<126% THEN MID$(Ord$,Ii%,1%)=CHR$(ASCII(MID$(Ord$,Ii%,1%)) AND 223%)
7030   NEXT Ii% 
7040   RETURN Ord$
7050 FNEND 
8000 DEF FNFyllblank$ LOCAL Namn$=13,Ext$=4,Namnl{ngd
8010   Namn$=LEFT$(S|ktfil$,Punkt-1)
8020   Ext$=RIGHT$(S|ktfil$,Punkt)
8030   Namnl{ngd=LEN(Namn$)
8040   Namn$=Namn$+SPACE$(8-Namnl{ngd)+Ext$
8050   RETURN Namn$
8060 FNEND