1 GOTO 65000 2 REM +++++++++++++++++++++++++++++++++ 3 REM ! Program .... EXTDEL 4 REM ! Utg}va 2 1980-04-15 5 REM ! av (c) Kell ]ke Johansson 7 REM ! Minne 16 Kbytes 9 REM +++++++++++++++++++++++++++++++++ 11 REM Borttagning av rader i BASIC 12 REM program. 65000 REM 65030 REM Variabler : \$,\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 DEFFN\=CALL(3897,\2%) 65090 DEFFNC=CALL(3897,\1%)=FN\ AND CALL(3897,\1%+1%)=CALL(3897,\2%+1%) AND CALL(3897,\1%+1)=FN\ 65100 POKE -128,237,83,254,255,201,237,83,252,255,201,237,83,250,255,201 65110 ; CHR$(12) 65120 ; CUR(0,6) 65130 ; " 1 EXTRACT" 65140 ; 65150 ; " 2 DELETE" 65160 ; " V{lj"; : GET \$ 65170 IF NOT (\$="1" OR \$="2") GOTO 65110 65180 ; 65190 ; 65200 ; "Raderna:(m,n)"; : INPUTLINE \0$ 65210 \0$=LEFT$(\0$,LEN(\0$)-2) 65220 IF INSTR(1,\0$,",")=0 THEN \1%=VAL(\0$) : \2%=\1% 65230 IF INSTR(1,\0$,",")>0 THEN \1%=VAL(LEFT$(\0$,INSTR(1,\0$,",")-1%)) : \2%=VAL(RIGHT$(\0$,INSTR(1,\0$,",")+1)) 65240 IF FNC PRINT "RADERNA FINNS EJ!" : END 65250 IF \2%<\1% PRINT "FELAKTIGT RADGR[NSUTTRYCK!" : END 65260 IF CALL(3897,\1%)=CALL(3897,\1%+1) THEN \1%=\1%+1% : GOTO 65260 65270 IF CALL(3897,\2%)<>CALL(3897,\2%+1%) THEN \2%=\2%+1% 65280 IF \1%=\2% THEN \2%=\2%+1 65290 IF \$="1" GOTO 65310 ELSE 65350 65300 REM H{r b|rjar EXTRACT 65310 \0%=CALL(-128,(CALL(3897,\2%)-CALL(3897,\1%))) 65320 POKE -100,237,75,254,255,235,237,91,28,254,237,176,62,1,18,201 65330 \0%=CALL(-100,CALL(3897,\1%)) 65340 END : REM H{r slutar EXTRACT. 65350 \0%=CALL(-128%,CALL(3897,\1%)-CALL(3897,2)) : REM BLOCK I 65360 \0%=CALL(-123%,CALL(3897,65000)-CALL(3897%,\2%)) : REM BLOCK II 65370 \0%=CALL(-118,CALL(3897,\2%)) 65380 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 65390 POKE -75,237,176,62,1,18,201 65400 \0%=CALL(-100,CALL(3897,2))