rem ********************** L M ' S A T Z 0 ***************************
feldprint.label:
  print cls$;line$ :print in$;tab(20);"F E L D N A M E N ";tab(83);ni$
  print line$ : print : filnamclip=1
  gosub filestart:
  print "Feldnamen am Drucker oder am Bildschirm ausgeben ?" : print
  print "< D > ... Drucker     < B > ... Bildschirm    < F > ... File"
feldprint.label.1:
  antw=inkey
  if antw=68 OR antw=100 then goto feldprint.label.2:
 if antw=70 OR antw=102 then goto feldprint.label.4:
 if antw=66 or antw=98 then goto feldprint.label.3: ELSE goto feldprint.label.1:
feldprint.label.2:
  lprinter
  print "Die Feldnamen der Datei: ";filespec$
  print
  for x=1 to felder
       print x;". Feldname = ";feldname$(x)
   next
  print : print "Diese Feldnamen muessen Sie in Ihrem LOCOMAIL-Text verwenden."
  print : print chr$(12)
  console
feldprint.label.3:
  print cls$
  print "Die Feldnamen der Datei : ";ucase$(filespec$)
  print
  for x=1 to felder
      print x;".Feldname = ";feldname$(x)
  next
  print
  print "Diese Feldnamen muessen Sie in Ihrem LOCOMAIL-Text verwenden."
  print
  call weiter:
  goto menu:
rem ------------------------------------------------------------------
feldprint.label.4:
print : input "Bitte einen Dateinamen eingeben: ";dateiname$
if size(dateiname$)>0 then jerr$="FE" : goto error.label:
create dateiname$ AS 1
for x=1 to felder : feldinhalt$(x)=feldname$(x) : next
gosub satzauf.disk:
put 1,26 : close 1
goto feldprint.label.3:

rem ************** L ' S C R E E N  Bildschirmausgabe ****************
screenausgabe.label:
    dateiende=0 :satz=0
print cls$;line$ :print in$;tab(20);"B I L D S C H I R M A U S G A B E";tab(83);ni$
    print line$ : print
    gosub filestart:
if dateiende=1 then goto menu:
rem ---------------------------- Daten lesen
    open filespec$ AS 1
    gosub satzvon.disk:
screenausgabe.label.1:
    gosub satzvon.disk:
    gosub satzauf.moni:
    if dateiende=1 then dateiende=0 : close 1 : goto menu:
    print: print line$ : print in$;
print " <LEERTASTE>...naechster Satz * <EXIT>...beenden * <COPY>...Satz ausdrucken ";\
    : print tab(83);ni$ : print line$
screenausgabe.label.2:
    k%=inkey
    if k%=32 then goto screenausgabe.label.1:
    if k%=23 then gosub satzauf.drucker:
    if k%=27 then close 1 : goto menu:
    goto screenausgabe.label.2:
rem ------------------------------------------------------------------
close 1 : goto menu:
    goto screenausgabe.label.2:
rem ------------------------------