1 REM ***************************
2 REM * FLEXFIL.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 F%=PEEK(34443%)+256%*PEEK(34444%) : 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%)
30 ; "Lagra eller h{mta Rk ... Rm (k<=m) p}   flexskivefil FP. Namnge (v{lj) fil med  icke-negativa heltalet P."
40 ; "Om k=m kan N vid h{mtning vara mindre {nvid lagringen av talet, annars skall N  vara detsamma."
50 ; "Lagring/H{mtning (L/H)"; : INPUT F$ : IF F$="L" OR F$="l" GOSUB 110 : END 
60 IF F$="H" OR F$="h" GOSUB 160 : END ELSE 50
70 ; "Drive"; : INPUT A% : ; "P"; : INPUT P : ; "k"; : INPUT K% : ; "m"; : INPUT M% : IF K%<2% OR M%>F% OR M%<K% STOP 
80 F$="DR"+RIGHT$(NUM$(A%),2%)+":F"+RIGHT$(NUM$(P),2%)+".TXT" : A=A0+K%*(N+3%)-N-2% : B=A0+M%*(N+3%)
90 P%=-INT((A-B-1%)/253%) : RETURN 
100 REM Lagring
110 GOSUB 70 : PREPARE F$ ASFILE 1 : ONERRORGOTO 140
120 FOR B%=0% TO P%-1% : S%=CALL(28666%,1%) : Q0$="" : FOR A%=0% TO 252%
130 Q0$=Q0$+CHR$(PEEK(B-253*B%-A%)) : NEXT A% : Z=CALL(28670%,B%) : NEXT B%
140 CLOSE 1 : RETURN 
150 REM H{mtning
160 GOSUB 70 : IF K%<8% STOP 
170 OPEN F$ ASFILE 1 : ONERRORGOTO 200
180 FOR B%=0% TO P%-1% : S%=CALL(28666%,1%)+CALL(28668%,B%) : FOR A%=0% TO (B%=P%-1%)*(A+253*P%-B-1%)+252%
190 POKE B-253*B%-A%,ASC(RIGHT$(Q0$,A%+1%)) : NEXT A% : NEXT B%
200 CLOSE 1 : RETURN