10 REM COPYTEXT
15 REM Program av Gunnar Tidner, 1980-06-10
20 ; "COPY:"; : INPUTLINE S$ : S$=LEFT$(S$,LEN(S$)-2)
30 P%=INSTR(1%,S$,',')
40 IF P%=0 THEN ; "Format:Dev:INFIL.ext,Dev:UTFIL.ext" : GOTO 20
50 F1$=LEFT$(S$,P%-1)
60 F2$=RIGHT$(S$,P%+1)
70 ; CHR$(12)"Infil:";TAB(20)"Utfil:" : ; 
80 ; F1$;TAB(20);
90 IF LEN(F2$) THEN ; F2$ ELSE ; "Sk{rmen"
100 ; CUR(12,5)CHR$(7);"OK? "; : GET C$
110 IF (ASC(C$) AND 223%)=74 OR ASC(C$)=13 THEN ; "JA d} kopierar vi" ELSE ; CHR$(12) : GOTO 20
120 IF INSTR(1%,F2$,"CAS:") OR INSTR(1%,F2$,"cas:") THEN OPEN F1$ ASFILE 1 : C%=1
130 IF LEN(F2$) THEN PREPARE F2$ ASFILE 2 : L%=2 ELSE ; CHR$(12);
140 IF C%=0% THEN OPEN F1$ ASFILE 1
150 ONERRORGOTO 210
160 DIM B$=119
170 FOR I%=1 TO 2000
180 INPUTLINE #1,B$ : B$=LEFT$(B$,LEN(B$)-2%)
190 ; #L%,B$
200 NEXT I%
210 IF ERRCODE=34 THEN CLOSE L% ELSE ; "Fel nr";ERRCODE
220 END