REM ---------------------------------------------------------
rem  E S C A P E 'S' (screen)  -   D E F I N I T I O N E N
rem ---------------------------------------------------------
dim hm$(33) : hm$(1)="(" : hm$(12)=" ":hm$(9)="E":hm$(6)="E":hm$(10)="R":hm$(7)="R"
  esc$=chr$(27) : bel$=chr$(7) : cls$=esc$+"H"+esc$+"E" :hm$(8)="B"
  clr$=esc$+"E" : home$=esc$+"H"                :rem clear home
  con$=esc$+"e" : cof$=esc$+"f"                 :rem cursor
  in$=esc$+"p"  : ni$=esc$+"q"                  :rem inverse
  modon$=esc$+"x" : modof$=esc$+"y"             :rem 24x80
hm$(3)=")":hm$(16)="C":hm$(14)="O":hm$(11)="T":hm$(19)="T":hm$(18)="I":hm$(15)="S"
  hm$(33)="A" : lang$=esc$+"2"                  :rem sprache
hm$(21)=",":hm$(22)="P":hm$(23)=".":hm$(24)="O":hm$(25)="9":hm$(26)="6":hm$(27)="-"
  stdscreen$=(esc$+"b"+chr$(63))+(esc$+"c"+"0")   :rem Standartscreen
  invscreen$=(esc$+"b"+"0")+(esc$+"c"+chr$(63))   :rem Invers'screen
hm$(17)="H" : hm$(5)="H":hm$(28)="8":hm$(29)="0":hm$(32)="G":hm$(31)="1":hm$(30)="4"
uzu$=in$+" U N Z U L A E S S I G E   E I N G A B E! Bitte nocheinmal ! "+ni$+bel$
line$=string$(80,chr$(154)) : hm$(20)="Z" : hm$(2)="C" :hm$(4)=" ":hm$(13)="M"
autorix$=hm$(1)+hm$(2)+hm$(3)+hm$(4)+hm$(5)+hm$(6)+hm$(7)+hm$(8)+hm$(9)+hm$(10)
autorix$=autorix$+hm$(11)+hm$(12)+hm$(13)+hm$(14)+hm$(15)+hm$(16)+hm$(17)+hm$(18)
autorix$=autorix$+hm$(19)+hm$(20)
pob$=hm$(21)+hm$(12)+hm$(22)+hm$(23)+hm$(24)+hm$(23)+hm$(8)+hm$(23)+hm$(12)+hm$(25)
pobb$=hm$(26)+hm$(21)+hm$(4)+hm$(26)+hm$(27)+hm$(28)+hm$(29)+hm$(30)+hm$(31)+hm$(4)
pobbb$=hm$(32)+hm$(7)+hm$(26)+hm$(20)
jahr$=hm$(1)+hm$(31)+hm$(25)+hm$(28)+hm$(28)+hm$(3)
biw$=in$+autorix$+"               Bitte waehlen Sie aus: "+ni$
autore$=" "+autorix$+pob$+pobb$+pobbb$+"         "+jahr$
copyri$=" (C) Herbert MOSCHITZ; ALLE RECHTE VORBEHALTEN !  ALL RIGHTS RESERVED ! "
pronam$=" LOCOMDAT . COM  (V1.0)  -  Dateiprogramm fuer LOCOMAIL      1987/12/12 "
nod$=in$+" ACHTUNG :  Keine Diskette im angegebenen Laufwerk ! "+ ni$
nof$=in$+" ACHTUNG :  Keinen File mit diesem Namen gefunden  ! "+ ni$
rem
print lang$+"0";
drulang$=esc$+"R"+chr$(0)
lprinter : print drulang$; : console
goto menu:
rem ---------------------------------------------------------
REM ******************************* ERROR - MODUL ********************
error.label:
            print bel$;in$
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 " E R R O R : Dieser Dateiname  ist unzulaessig ! ":goto er1:
if err="ME" then print " E R R O R :  Ist die Diskette voll ? ": goto er1:
if err="DW" then print " E R R O R :  Alle Directory-Plaetze belegt! " : goto er1:
if err="ER" then print " E R R O R :  Eingabe ist fuer den File zu lange ! ":goto er1:
if jerr$="FE" then print " E R R O R : Ein File mit diesem Namen existiert bereits ! "\
                 : jerr$="" : goto er1:
errorzeile%=errl : errorfunc$=err : errormpm%=errx
print " E R R O R :  A C H T U N G   unbekannter  F E H L E R ! "
print ni$
print "Zeile: ";errorzeile%;"   ERR : ";errorfunc$;"    MP/M: ";errormpm%
for x=1 to 500 : next
er1:
   print ni$
   for i=1 to 500 : next
   goto menu:
rem ------------------------------------------------------------------
rem
set.eofa:
    EOFA%=TRUE%
    close 1
    return
rem
set.eofb:
    EOFB%=TRUE%
    CLOSE 2
    RETURN
rem --------------------#
    EOFA%=TRUE%
    close 1
    return
rem
set.eofb:
    EOFB%=TRUE%
    CLOSE 2
    RETURN
rem -----------