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%<K% OR K%<8% OR 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%<K% OR 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