8 ! FLEXFIL.800
9 NO EXTEND : INTEGER 
10 F=PEEK(34443)+256*PEEK(34444) : IF PEEK(32768)<>42 OR PEEK(35656)<>177 OR PEEK(36626)<>201 GOTO 65000
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 : GOTO 210
60 IF F$="H" OR F$="h" GOSUB 160 : GOTO 210 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"+NUM$(A)+":F"+NUM$(P.)+".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$ AS FILE 1. : ON ERROR GOTO 140
120 FOR B=0 TO P-1 : Q0$="" : FOR A=0 TO 252
130 Q0$=Q0$+CHR$(PEEK(B.-253.*B-A)) : NEXT A : POSIT #1.,B*253. : PUT #1.,Q0$ : NEXT B 
140 CLOSE 1. : RETURN 
150 REM H{mtning
160 GOSUB 70 : IF K<8 STOP 
170 OPEN F$ AS FILE 1. : ON ERROR GOTO 200
180 FOR B=0 TO P-1 : POSIT #1.,253.*B : GET #1.,Q0$ COUNT 253. : FOR A=0 TO (B=P-1)*(A.+253.*P-B.-1)+252
190 POKE B.-253.*B-A,ASCII(RIGHT$(Q0$,A+1)) : NEXT A : NEXT B 
200 CLOSE 1. : RETURN 
210 END 
65000 ; CHR$(12);
65010 ; 'Du m}ste k|ra PROG1 f|rst f|r'
65020 ; 'att mata in assembler-rutinerna.'