1 GOTO 65000
65000 REM TYP : A * EXTDEL
65010 REM KJELL-]KE JOHANSSON 15/4 1980
65020 REM EXTRACT/DELETE av rader.
65030 REM Var : \$,\0$,\1%,\2%,\0%
65040 REM |$ val av funktion.
65050 REM \0$ radgr{nsuttryck.
65060 REM \1%,\2% radnr. & radadresser.
65070 REM \0% utan funktion.
65080 DEFFNC=CALL(3897,\1%)=CALL(3897,\2%) AND CALL(3897,\1%+1%)=CALL(3897,\2%+1%) AND CALL(3897,\1%+1)=CALL(3897,\2%)
65090 POKE -128,237,83,254,255,201,237,83,252,255,201,237,83,250,255,201
65100 ; CHR$(12)
65110 ; CUR(0,6)
65120 ; " 1 EXTRACT"
65130 ;
65140 ; " 2 DELETE"
65150 ; " V{lj"; : GET \$
65160 IF NOT (\$="1" OR \$="2") GOTO 65100
65170 ;
65180 ;
65190 ; "Raderna :"; : INPUTLINE \0$
65200 \0$=LEFT$(\0$,LEN(\0$)-2)
65210 IF INSTR(1,\0$,",")=0 THEN \1%=VAL(\0$) : \2%=\1%
65220 IF INSTR(1,\0$,",")>0 THEN \1%=VAL(LEFT$(\0$,INSTR(1,\0$,",")-1%)) : \2%=VAL(RIGHT$(\0$,INSTR(1,\0$,",")+1))
65230 IF FNC PRINT "RADERNA FINNS EJ!" : END
65240 IF \2%<\1% PRINT "FELAKTIGT RADGR[NSUTTRYCK!" : END
65250 IF CALL(3897,\1%)=CALL(3897,\1%+1) THEN \1%=\1%+1% : GOTO 65250
65260 IF CALL(3897,\2%)<>CALL(3897,\2%+1%) THEN \2%=\2%+1%
65270 IF \1%=\2% THEN \2%=\2%+1
65280 IF \$="1" GOTO 65300 ELSE 65340
65290 REM H{r b|rjar EXTRACT
65300 \0%=CALL(-128,(CALL(3897,\2%)-CALL(3897,\1%)))
65310 POKE -100,237,75,254,255,235,237,91,28,254,237,176,62,1,18,201
65320 \0%=CALL(-100,CALL(3897,\1%))
65330 END : REM H{r slutar EXTRACT.
65340 \0%=CALL(-128%,CALL(3897,\1%)-CALL(3897,2)) : REM BLOCK I
65350 \0%=CALL(-123%,CALL(3897,65000)-CALL(3897%,\2%)) : REM BLOCK II
65360 \0%=CALL(-118,CALL(3897,\2%))
65370 POKE -100,235,237,91,28,254,237,75,254,255,237,176,33,0,0,237,90,237,91,250,255,235,237,75,252,255
65380 POKE -75,237,176,62,1,18,201
65390 \0%=CALL(-100,CALL(3897,2))