10 REM ***Concaternering av flera filer
15 REM Program av Gunnar Tidner
20 ; "UTFIL namn: "; : INPUT F$
30 PREPARE F$ ASFILE 2
40 DIM B$=119%
50 ; "INFIL namn: (& f|r stopp)" : INPUT F0$
60 IF ASC(F0$)=38 THEN CLOSE 2 : GOTO 140
70 OPEN F0$ ASFILE 1
80 FOR I%=1 TO 10000
90 INPUTLINE #1,B$ : B$=LEFT$(B$,LEN(B$)-2%)
100 ONERRORGOTO 130
110 ; #2,B$
120 NEXT I%
130 IF ERRCODE=34 THEN CLOSE 1 : GOTO 50 ELSE ; "Fel nr";ERRCODE : GOTO 140
140 END