100 REM *S\K*
110 REM SNABBL[SNINGSRUTIN I DATABAS
120 REM 82-06-11 VER 4 G BENEDICKS
130 DIM A$=253,Q0$=253,A2$=253
140 ; CHR$(12) : FOR I=1 TO 3 : ; STRING$(39%,60%) : NEXT I
150 ; CUR(2,8);" UTSKRIFTSRUTIN TGF-BAS"
160 ONERRORGOTO 160 : ; CUR(5,0);"SEKTOR: ....     NR:. AV . (RET=SLUT)"
170 ; CUR(5,8); : INPUTLINE C$
180 IF ASC(C$)=13% CHAIN "START"
190 V1%=1% : V2%=5% : GOSUB 430 : IF C$="   " THEN 160
200 IF VAL(C$)>549% 160
220 A1$=C$ : A1%=VAL(C$)
240 OPEN "DR1:DD1.DAT" ASFILE 1
250 Z%=CALL(28666%,1%)+CALL(28668%,A1%) : A$=Q0$
260 IF LEFT$(A$,5%)=SPACE$(5%) THEN 270 ELSE 300
270 ; CHR$(7);CUR(22,0)SPACE$(39);CUR(22,27)"# FINNS EJ "
280 FOR I=1 TO 1000 : NEXT I
290 ; CUR(22,27)"         " : CLOSE 1 : GOTO 120
300 A2$=MID$(A$,1,250)
310 F$=MID$(A$,251,1)
320 N$=MID$(A$,252,1)
330 S$=MID$(A$,253,1)
340 ONERRORGOTO 120
350 ; CUR(5,13)F$;CUR(5,20)N$;CUR(5,25)S$
360 ; CUR(7,0);"TEXT  :"
370 ; CUR(8,0);A2$
380 ; CUR(22,0);"<MELLSLAG>= N[STA RET= NYTT  "; : GET H$
390 IF ASC(H$)=38% 120
400 IF ASC(H$)=13% 160
410 C$=ADD$(C$,"1",0)
420 ; CUR(5,8)C$ : GOTO 200
430 C$=LEFT$(C$,LEN(C$)-2)
440 RETURN