REM ---------------------------------------------------------
rem  E S C A P E 'S' (screen)  -   D E F I N I T I O N E N
rem ---------------------------------------------------------
esc$=chr$(27) : bel$=chr$(7) : cls$=esc$+"H"+esc$+"E"
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
ulon$=esc$+"r"  : ulof$=esc$+"u"              :rem underline
umon$=esc$+"v"  : umof$=esc$+"w"              :rem bildumlauf
lang$=esc$+"2"                                :rem sprache
staton$=esc$+"1" :statoff$=esc$+"0"           :rem statuszeile
stdscreen$=(esc$+"b"+"63")+(esc$+"c"+"0")     :rem Standartscreen
invscreen$=(esc$+"b"+"0")+(esc$+"c"+"63")     :rem Invers'screen
rem
rem -----------------------------------------------------------
rem  S T R I N G - D E F I N I T I O N E N
rem -----------------------------------------------------------
rem
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))
biw$=in$+" <EXIT> ... EXIT      <M> ... MENUE              Bitte waehlen Sie aus: "+ni$
onoff$=in$+" <1> "+ni$+" ... ON "+"          "+in$+" <0> "+ni$+" ... OFF "
autore$=" Herbert MOSCHITZ, P.O.BOX 96, A-8041 Graz, A U S T R I A "
copyri$=" (C) Herbert MOSCHITZ; ALLE RECHTE VORBEHALTEN !  ALL RIGHTS RESERVED ! "
nod$=in$+" E R R O R : Keine Diskette im angegebenen Laufwerk ! "+ni$
nof$=in$+" E R R O R : Keinen File mit diesem Namen gefunden ! "+ni$
exit$=" E X I T  ==>  Bitte Taste <EXIT> druecken ! "
fisp$=in$+" FILESPECIFICATION eingeben (drive:filename.ext) : "+ni$+"  "
rem
rem ----------------- D I M --------------------------
DIM newli$(1000)            : REM Eingabezeile f. JOYEDI