10 REM CASTODSK 15 REM Program av Gunnar Tidner 1980-10-25 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 ONERRORGOTO 420 200 PREPARE D$+Z$ ASFILE 2 210 OPEN "CAS:" ASFILE 1 220 FOR T=1 TO 100 : NEXT T 230 FOR I%=B0% TO B0%+17 240 F$=F$+CHR$(PEEK(I%)) 250 NEXT I% 260 IF LEFT$(F$,5)="FOUND" THEN F$=RIGHT$(F$,7) : ; ELSE F$="" 270 IF INSTR(1%,F$,"BAC") THEN 210 280 ONERRORGOTO 330 290 FOR I%=1 TO 10000% 300 INPUTLINE #1,B$ 310 ; #2,B$; 320 NEXT I% 330 IF ERRCODE=34 THEN CLOSE 1 : CLOSE 2 ELSE 420 340 POKE -456%,0 350 ONERRORGOTO 370 360 KILL D$+F$ 370 IF ERRCODE=21 THEN POKE -456%,0 380 IF ERRCODE<>-1 THEN ; "Fel nr";ERRCODE : END 390 NAME Z$ AS F$ 400 ; CHR$(7);F$;" kopierad!" 410 GOTO 180 420 IF ERRCODE<>21 THEN ; "Fel nr";ERRCODE : END ELSE N%=N%-1 430 IF N% THEN KILL D$+Z$ ELSE 210 440 ; "Ingen mer fil p} bandet trots";N0%;" f|rs|k!" 450 OUT 6,7 : OUT 58%,INP(58%) AND 223% : FOR T=1 TO 3000 : NEXT T 460 OUT 6,0 : END