rem ******************************************************************
rem * Weitere Daten in bestehende Datei eingeben                     *
rem ******************************************************************
weitere.daten.label:
  print cls$;line$
  print in$;tab(20);"Weitere Daten in bestehende Datei eingeben";tab(83);ni$
  print line$ : print
  gosub filestart:
  gosub zwei.dateien.label:
  open filespec$ AS 1
  open oldfile$ AS 2
  for x=1 to byt-1
    g%=get(2) : put 1,g%
  NEXT
  delete 2
  print cls$ : goto dateneingabe.label:
rem ------------------------- ENDE L'WEIDAT:BAS ----------------------
zwei.dateien.label:
     rem ********************** L'2'DAT  - MODUL *********************
     byt=0:satz=0 :g%=0
     open filespec$ AS 1
while g%<>26
      g%=get(1)
      byt=byt+1
      if g%=12 then satz=satz+1
wend
     close 1
     satz=satz-1
LABEL.olddatei:
if mid$(filespec$,2,1)=":" then lw$=left$(filespec$,1)+":" else lw$=""
if len(lw$)>0 then oldfile$=lw$+":"+"locomdat.old" else oldfile$="locomdat.old"
if size(oldfile$)>0 then open oldfile$ AS 1 : delete 1
g%=rename(oldfile$,filespec$)
if g%=0 then goto error.label:
create filespec$ AS 1
close 1
RETURN
rem ------------------------------------------- l'2'DAT _modul - ENDE
rem ------------------------------------------------------------------
------------------------------- l'2'DAT