rem *************************** NEUEN FILE ANLEGEN *******************
newfile.label:
  print cls$;line$
  print in$;tab(20);" N E U E N   D A T E N F I L E   A N L E G E N ";tab(83);ni$
  print line$:print : dateiende=0
  input "Wie soll der NEUE DATENFILE genannt werden ? ";filespec$
  if size(filespec$)>0 then jerr$="FE" : goto error.label:
  create filespec$ AS 1
  close 1
  print
  input "Wieviele Felder sollen pro Datensatz angelegt werden ? ";felder
  print
  dim feldname$(felder)
  dim feldinhalt$(felder)
  for x=1 to felder
    print x; : input ".Feldname: ";LINE feldname$(x)
    feldinhalt$(x)=feldname$(x)
    print : satz=0
  next
  open filespec$ AS 1
gosub satzauf.disk:
goto dateneingabe.label:
rem ------------------------------------------------------------------
rem *******************   D A T E N E I N G A B E - Modul ************
dateneingabe.label:
       gosub satzvon.moni:
datein.label.1:
       print line$
       print in$;"<LEERTASTE>..naechsten Satz * <EXIT>..beenden "; \
       : print "* <STOP>..diesen Satz neu";tab(83);ni$ : print line$
dateneingabe.label.1:
       k%=inkey
       if k%=3 then satz=satz-1 : goto dateneingabe.label:
if k%=27 then gosub satzauf.disk: : close 1 : dateiende=0 : goto menu:
if k%=32 then gosub satzauf.disk: : goto dateneingabe.label:
goto dateneingabe.label.1:
rem ------------------------------------------------------------------