100 REM INIT, 82-06-11 VER 4 G BENEDICKS
110 ; CHR$(12) : FOR I=1 TO 3 : ; STRING$(39%,60%) : NEXT I
120 ; CUR(2,6);" TGF DATABAS INITIERING  "
130 ; CUR(5,0)"OBS S[TT NY SKIVA I DR1: !!!"
140 ; CUR(10,0);"EV GAMMAL TEXT P] DR1: BORTTAGES"
150 ; CUR(12,0);"[R DETTA OK(J/N) "; : GET H$ : ; : ; 
160 IF H$="J" OR H$="j" THEN 180
170 CHAIN "START"
180 DIM A$=253,Q0$=253 : A$=SPACE$(251%)+"00"
190 ; CHR$(12);CUR(10,3);"INITIERING DATABAS P]G]R"
200 PREPARE "DR1:DD1.DAT" ASFILE 1%
210 FOR I%=0% TO 549%
220 Z%=CALL(28666%,1%) : Q0$=A$ : Z%=CALL(28670%,I%)
230 ; CUR(23%,0%)I%;
240 NEXT I%
242 A$=STRING$(253%,0%)
243 FOR I%=550% TO 564%
244 Z%=CALL(28666%,1%) : Q0$=A$ : Z%=CALL(28670%,I%)
245 ; CUR(23%,0%)I%;
246 NEXT I%
250 CLOSE 1%
260 ; CUR(15,3);"SKIVAN I DR1: [R NU F\RBEREDD F\R TGF TEXT"
270 CHAIN "START"