rem ********************* L ' PRINT **********************************
druckerausgabe.label:
               dateiende=0 :satz=0
print cls$;line$ :print in$;tab(20);"D R U C K E R A U S G A B E";tab(83);ni$
print line$ : print
gosub filestart:
          if dateiende=1 then goto menu:
rem ---------------------------- Daten lesen
PRINT: drucker=0
gosub druckerausgabe.label.5:
           lprinter : gosub druckerausgabe.label.5:
           console  : print
call weiter
open filespec$ AS 1
gosub satzvon.disk:
druckerausgabe.label.1:
     gosub satzvon.disk:
     gosub satzauf.moni:
     if dateiende=1 then dateiende=0 : close 1 : goto menu:
     GOSUB DRUCKERAUSGABE.LABEL.3:
     print: print line$ : print in$;
     print tab(20);" <LEERTASTE>...naechster Satz * <EXIT>...beenden  ";\
     : print tab(83);ni$ : print line$
druckerausgabe.label.2:
     k%=inkey
     if k%=32 then goto druckerausgabe.label.1:
     if k%=27 then close 1 : goto menu:
     goto druckerausgabe.label.2:
druckerausgabe.label.3:
   lprinter
   for x=1 to felder
   print feldinhalt$(x)
   next
   print "+-"
   console
   RETURN
druckerausgabe.label.5:
   print "In der Datei ";ucase$(filespec$);" werden folgende Feldnamen verwendet:"
print "======================================================================="
print
for x=1 to felder
    print x;".Feldname: ";feldname$(x)
next
print
return
rem ==============================
druck.an:
        LPRINTER : drucker=1 : RETURN
druck.aus:
        CONSOLE : drucker=0 :  RETURN
REM ===============================
        LPRINTER : drucker=1 : RETURN
druck.aus:
        CONSOL