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%