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 M