1 GOTO 5000 : REM av Gunnar Tidner efter id` av Johan Finnved
5000 REM start EXTRACT-program
5010 ; "    **** EXTRACT-program ****"
5020 ; "Vill du ha instruktioner?"; : GET A$ : ; A$
5030 IF (ASC(A$) AND 223%)=74 THEN GOSUB 5100
5040 ; "Radnr 1:a rad som skall vara kvar:" : INPUT N%
5050 ; "Radnr 1:a rad i slutsegmentet(tas bort):" : INPUT M%
5060 POKE CALL(3897%,M%),1
5070 A%=CALL(3897%,N%)
5080 POKE -484%,A%,SWAP%(A%)
5090 END 
5100 ; CHR$(12);"Instruktioner:"
5110 ; : ; "Programmet tar bort rader i b|rjan resp"
5120 ; "i slutet av annat program"
5130 ; : ; "G|r f|rst LOAD av det program fr}n"
5140 ; "fr}n vilket du vill ta bort rader"
5150 ; "G|r sedan MERGE EXTRACT"
5160 ; "-vilket utnyttjar radnr |ver 5000"
5170 ; "samt radnr 1"
5180 ; "K|r programmet med RUN"
5190 ; "G|r sedan SAVE program-namn"
5200 ; "Tryck d{refter in RESET-knappen"
5210 ; "f|r att }terst{lla omflyttade pekare"
5220 ; : ; "Tryck tangent n{r du {r klar!" : GET C$
5230 RETURN