1 REM *************************** 2 REM * KASFIL.BAC * 3 REM * VER 1.0 / 1982-09-08 * 4 REM * Gjort o. ins{nt av 2415 * 5 REM * Stig Rosenlund * 6 REM * V{stmannagatan 93 * 7 REM * 113 43 Stockholm * 8 REM * Tel. 08/331736 * 9 REM *************************** 10 IF PEEK(32768%)<>42% OR PEEK(35656%)<>177% OR PEEK(36626%)<>201% STOP 20 N=PEEK(36523%)+256%*PEEK(36524%) : A0=PEEK(36538%)+256*PEEK(36539%) : F%=PEEK(34443%)+256%*PEEK(34444%) 30 ; "Lagra eller h{mta Rk,...,Rm (k<=m) p} kassettfilen CP. St{ll bandspelaren p} inspelning vid Lagring och p} "; 40 ; "avspelningvid H{mtning. Om k=m kan N vara mindre vid H{mtning {n vid Lagring." 50 ; "P"; : INPUT P : ; "Lagring eller H{mtning (L/H)?"; : F$="CAS:C"+RIGHT$(NUM$(P),2)+".TXT" 60 GET A$ : IF A$="L" OR A$="l" 140 70 IF A$<>"H" AND A$<>"h" 60 80 REM H{mtning 90 ; "k"; : INPUT K% : ; "m"; : INPUT M% : IF M%F% 90 100 A=A0+(N+3)*K%-N-2% : B=A0+(N+3)*M% : OPEN F$ ASFILE 1 : ONERRORGOTO 120 110 INPUT #1,A$ : ; A$ : FOR A%=1% TO B-A+1% : INPUT #1,Z% : POKE B-A%+1%,Z% : NEXT A% 120 CLOSE 1 : END 130 REM Lagring 140 ; "k"; : INPUT K% : ; "m"; : INPUT M% : IF M%F% 140 150 A=A0+(N+3)*K%-N-2% : B=A0+(N+3)*M% : PREPARE F$ ASFILE 1 : ONERRORGOTO 170 160 ; #1,F$ : FOR A%=1% TO B-A+1% : Z%=PEEK(B-A%+1%) : ; #1,Z% : NEXT A% 170 CLOSE 1 : END