10 REM CASTODSK 15 REM Program av Gunnar Tidner, bug borttagen 1981-02-09 20 DIM B$=119 : N0%=3 : REM antal f|rs|k att hitta fil p} bandet 30 Z$="Q2W3E4R.TMP" : REM tempor{rfil 40 ; CHR$(12)CUR(2,0);;"Detta program kopierar textfiler fr}n" 50 ; "kassett till disk" 60 IF PEEK(24576%)<>195 THEN F$=CHR$(7)+"Du saknar floppydisk!" : GOTO 90 70 ; CUR(5,0)"Vill du spara programmet? (J/N):"; : GET C$ 80 ; : IF (ASC(C$) AND 223%)<>74 THEN 100 90 ; CHR$(12);F$;CUR(5,0)"D} stoppar vi!" : END 100 ; CUR(5,0)" Filer med ext.=BAC kopieras ej!" 110 ; CUR(10,0);"Till drive:"; : GET C$ : ; C$ 120 IF C$<'0' OR C$>'1' THEN 110 130 IF C$='0' THEN D$="DR0:" ELSE D$="DR1:" 140 ; "[r bandspelaren klar? (J/N):"; : GET C$ : ; C$ 150 IF (ASC(C$) AND 223%)<>74 THEN 140 160 B0%=32720% : REM rad 23 i bildminnet 170 ; CUR(22,0) 180 F$="" : N%=N0% 190 PREPARE D$+Z$ ASFILE 2 200 ONERRORGOTO 410 : OPEN "CAS:" ASFILE 1 210 FOR T=1 TO 100 : NEXT T 220 FOR I%=B0% TO B0%+17 230 F$=F$+CHR$(PEEK(I%)) 240 NEXT I% 250 IF LEFT$(F$,5)="FOUND" THEN F$=RIGHT$(F$,7) : ; ELSE F$="" 260 IF INSTR(1%,F$,"BAC") THEN 200 270 ONERRORGOTO 320 280 FOR I%=1 TO 10000% 290 INPUTLINE #1,B$ 300 ; #2,B$; 310 NEXT I% 320 IF ERRCODE=34 THEN CLOSE 1 : CLOSE 2 ELSE 410 330 POKE -456%,0 340 ONERRORGOTO 360 350 KILL D$+F$ 360 IF ERRCODE=21 THEN POKE -456%,0 370 IF ERRCODE<>-1 THEN ; "Fel nr";ERRCODE : END 380 NAME Z$ AS F$ 390 ; CHR$(7);F$;" kopierad!" 400 GOTO 180 410 IF ERRCODE<>21 THEN ; "Fel nr";ERRCODE : END ELSE N%=N%-1 : ; "Hittar ingen fil!" 420 IF N%=0 THEN KILL D$+Z$ ELSE 200 430 ; "Ingen mer fil p} bandet trots";N0%;" f|rs|k!" 440 OUT 6,7 : OUT 58%,INP(58%) AND 223% : FOR T=1 TO 3000 : NEXT T 450 OUT 6,0 : END