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%