10 REM +++++++++++++++++++++++++++++++++ 11 REM ! Program .... COPYTEXT 12 REM ! Utg}va 1 80.06.10 13 REM ! Upphovsman Gunnar Tidner 14 REM ! Minne 16 Kbytes f|r flexskiva 15 REM +++++++++++++++++++++++++++++++++ 16 REM &&& kopierar ascfiler 17 ; "COPY:"; : INPUTLINE S$ : S$=LEFT$(S$,LEN(S$)-2) 18 P%=INSTR(1%,S$,',') 19 IF P%=0 THEN ; "Format:Dev:INFIL.ext,Dev:UTFIL.ext" : GOTO 17 20 F1$=LEFT$(S$,P%-1) 21 F2$=RIGHT$(S$,P%+1) 22 ; CHR$(12)"Infil:";TAB(20)"Utfil:" : ; 23 ; F1$;TAB(20); 24 IF LEN(F2$) THEN ; F2$ ELSE ; "Sk{rmen" 25 ; CUR(12,5)CHR$(7);"OK? "; : GET C$ 26 IF (ASC(C$) AND 223%)=74 OR ASC(C$)=13 THEN ; "JA d} kopierar vi" ELSE ; CHR$(12) : GOTO 17 27 IF INSTR(1%,F2$,"CAS:") OR INSTR(1%,F2$,"cas:") THEN OPEN F1$ ASFILE 1 : C%=1 28 IF LEN(F2$) THEN PREPARE F2$ ASFILE 2 : L%=2 ELSE ; CHR$(12); 29 IF C%=0% THEN OPEN F1$ ASFILE 1 30 ONERRORGOTO 36 31 DIM B$=119 32 FOR I%=1 TO 2000 33 INPUTLINE #1,B$ : B$=LEFT$(B$,LEN(B$)-2%) 34 ; #L%,B$ 35 NEXT I% 36 IF ERRCODE=34 THEN CLOSE L% ELSE ; "Fel nr";ERRCODE 37 END