menu:  : REM *********************** LM'MENU.BAS ******************
if end #1 then set.eofa:
if end #2 then set.eofb:
       on error goto error.label:
       sourcefilenum=1
       print cls$;line$
print in$;pronam$;tab(83);ni$
print in$;autore$;" V1.0";tab(83);ni$
print in$;copyri$;tab(83);ni$
print "¬ SHAREWARE «    Sie dôrfen dieses Programm NICHTKOMMERZIELL weitergeben! Wenn"
print "=============    es Ihnen gefðllt und Sie es benutzen, dann ersuche ich Sie"
print "¬ SHAREWARE «    eine Spende ( bar oder Euroscheck ôber óS ) an den Autor (s."
print "=============    oben) zu senden. Sie fórdern damit weitere gônstige Programme"
print "¬ SHAREWARE «    und werden ôber event. Neuheiten informiert. * * DANKE ! * *"
print in$;" L O C O M D A T    -  Dateiverwaltung: H A U P T M E N U E ";Tab(83);ni$
print line$ : print
print "<N>eue Datendatei erstellen ............................. <  N  >" : print
print "bestehende Datei: <F>eldnamen ausdrucken ................ <  F  >"
rem print "              Feldnamen <A>endern ................... <  A  >"
rem print "              Felder <E>infuegen / loeschen ......... <  E  >"
print
print "bestehende Datei: am <B>ildschirm ausgeben .............. <  B  >"
print "                  am <D>rucker ausgeben ................. <  D  >"
print "                  <W>eitere Daten eingeben .............. <  W  >"
print "                  Datei bearbeiten / <K>orrigieren ...... <  K  >"
print "                  bestimmten Datensatz <S>uchen ......... <  S  >"
print
print "HELP * HILFE * HELP * HILFE ............................. <  H  >":print
print "Arbeit beenden / zurueck zum Betriebssystem ............. <EXIT>" : print
print line$ : print biw$;in$;tab(86);ni$ : print line$
menuwahl:
        k%=inkey
if k%>90 then K%=k%-32
if k%=27 then goto exit:                             :REM  EXIT
if k%=78 then goto newfile.label:                    :REM   N
if k%=70 then goto feldprint.label:                  :REM   F
rem if k%=65 then goto feldname.change:                  :REM   A
rem if k%=69 then goto feldnamenszahl.change:            :REM   E
if k%=72 Then goto label.help:                       :REM   H
if k%=66 then goto screenausgabe.label:              :REM   B
if k%=68 then goto druckerausgabe.label:             :REM   D
if k%=87 then goto weitere.daten.label:              :REM   W
if k%=75 then goto LABEL.korrauswahl:                :REM   K
if k%=83 then goto satzsuch.label:                   :REM   S

print : print uzu$ : print : goto menuwahl:
REM ------------------------------------------------------------------
REM ***************************************** EXIT-Modul *************
exit:
print cls$;line$;bel$ : print : print : print
print " Nicht vergessen !  ====>  DATENFILE  sichern ! "
print:print:print:print line$:print:print:print
print "Arbeit beenden ? Bitte mit Taste <EXIT> bestaetigen !":print
print "(Zurueck zum Menue mit beliebiger anderer Taste !)" : print
k%=inkey
if k%<>27 then goto menu:
print cls$
REM **********  E N D E    L O C O M D A T ***************************
END

k%=inkey
if k%<>27 then goto menu:
print cls$
REM **********