1 REM Ins{nd av Bo Kullmar <1789>    1985-04-17 08.21.02
2 ! **********************************************************************
3 ! Program          CONCAT.BAS       Utg}va  1.1      1985-04-17
4 ! av Bo Kullmar
5 ! Ins{nd av Bo Kullmar
6 ! F|r ABC800M ABC800C ABC802 ABC806
8 ! Testad p} ABC806
9 ! Programmet sl}r ihop max 1000 textfiler till en.
10 ! **********************************************************************
60 INTEGER : EXTEND 
300 DIM Infil$(1000)=16,Rad$=160
1000 ; CHR$(12) 'CONCAT' : ; : ; : ; 
1010 ; 'Flera textfiler sl}s ihop till en textfil.' : ; : ; 
1020 I=I+1
1030 INPUT 'Ange utfil! 'Utfil$
1040 ; 
1050 INPUT 'Ange infil! (avsluta med CR) 'Infil$(I)
1060 WHILE Infil$(I)<>''
1070   I=I+1
1080   INPUT 'Ange infil! (avsluta med CR) 'Infil$(I)
1090   IF Infil$(I)<>'' Ec=FNColl(Infil$(I))
1100   IF Ec IF Ec=21 ; CHR$(7) 'Filen ' Infil$(I) ' saknas!' : Ec=0 : GOTO 1080 ELSE ; 'Fel nr' ERRCODE : STOP 
1110   IF I=1001 ; 'Detta program klarar max 1000 filer!' : GOTO 1130
1120 WEND 
1130 I=I-1 : Fil=1 : ; 
1140 PREPARE Utfil$ AS FILE 1
1150 ON ERROR GOTO 1240
1160 WHILE Fil<=I
1170   OPEN Infil$(Fil) AS FILE 2
1180   ; Infil$(Fil) ' kopieras nu!'
1190   ! ; #1,STRING$(10,36) ' Fil: ' Infil$(Fil)
1200   WHILE -1
1210     INPUT LINE #2,Rad$
1220     ; #1,Rad$;
1230   WEND 
1240   IF ERRCODE IF ERRCODE=34 THEN Fil=Fil+1 : RESUME 1160 ELSE ; 'Fel nr' ERRCODE : STOP 
1250 WEND 
1260 ; 
1270 END 
2000 DEF FNColl(Fil$)
2010   ON ERROR GOTO 2030
2020   OPEN Fil$ AS FILE 99 : CLOSE 99 : RETURN 0
2030   CLOSE 99 : RESUME 2040
2040   RETURN ERRCODE
2050 FNEND