error.label:
print bel$
if errx=4 then print nod$ : goto er1:
if err="EX" then print nod$ : goto er1:
if err="OE" then print nof$ : goto er1:
if err="IF" then print in$;" E R R O R : Dieser Dateiname  ist unzulaessig ! "; \
               :print ni$: goto er1:
if err="ME" then print in$;" E R R O R :  Ist die Diskette voll ? ";ni$ :goto er1:
if err="DW" then print in$;" E R R O R :  Alle Directory-Plaetze belegt! ";ni$ : \
                 goto er1:
if err="ER" then print in$;" E R R O R :  Eingabe ist fuer diesen File "; : \
                 print "zu lange ! ";ni$ :goto er1:
if jerr$="FE" Then print in$;" E R R O R : Ein File mit diesem Namen existiert ";\
                : print "bereits !";ni$ : goto er1:
print in$;" E R R O R :  A C H T U N G   unbekannter  F E H L E R ! " ; ni$
print : print "ERR: ";err,"ERRX: ";errx,"ERRL: ";errl : call weiter.zum.menu:
er1:
   print
   for i=1 to 500 : next
   goto menu:
rint "ERR: ";err,"ERRX: ";errx,"ERRL: ";errl : call weiter.zum.menu:
er1: