8 ! KASFIL.800 9 NO EXTEND : INTEGER 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"+NUM$(P.)+".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 MF9 0 100 A.=A0.+(N.+3.)*K-N.-2 : B.=A0.+(N.+3.)*M : OPEN F$ AS FILE 1. : ON ERROR GOTO 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. 125 END 130 REM Lagring 140 ; "k"; : INPUT K : ; "m"; : INPUT M : IF MF1 40 150 A.=A0.+(N.+3.)*K-N.-2 : B.=A0.+(N.+3.)*M : PREPARE F$ AS FILE 1. : ON ERROR GOTO 170 160 ; #1.,F$ : FOR A=1 TO B.-A.+1 : Z=PEEK(B.-A+1) : ; #1.,Z : NEXT A 170 CLOSE 1. 175 END