PROC startup:
   global filenam$(130), basenam$(10), name$(20), tel$(20)
   FONT 268436068,1
   inifile:
   main:
endp

proc inifile:
   basenam$="\MEINE_DB"
   trap mkdir(basenam$)
   filenam$ = basenam$ + "\" + "KUNDEN.ODB"
   if not exist(filenam$)
      trap create filenam$, A, name$, tel$
   else
      trap open filenam$, A, name$, tel$
   endif
   showknd:
endp

proc main:
   global taste%, mod%
   do
      taste%=get : mod%=KMOD
      if taste%=290
         showmen%:
      elseif (mod% AND 4)
         taste%=taste% + 96
         DoMenu:(taste%)
      elseif (taste% AND $FF00)
         if taste%=259
            rollen:(taste%)
         elseif taste%=258
            rollen:(taste%)
         endif
      endif
   until 0
endp

proc showmen%:
   local keycode%
   minit
   mcard "Datei","Beenden",%e
   mcard "Kunden","Neu",%n,"Ändern",%a,"Löschen",%l
   keycode% = menu
   domenu:(keycode%)
endp

proc domenu:(k%)
   local k$(1)
   local menuops$(10)
   menuops$="enal"
   k$=chr$(k% and $FF)
   if loc(menuops$,k$)
      @%("wahl"+k$):
   endif
endp

proc wahln%:
   local erg%
   use a
   delkndva:
   erg% = ediknd%:("Kunden anlegen")
   if erg% = 0
      delkndva:
   elseif erg% = 13
      a.name$ = name$ : a.tel$ = tel$
      append : giprint "Hinzugefügt"
      showknd:
   endif
endp

proc wahla%:
   local erg%
   use a
   erg% = ediknd%:("Kundedaten ändern")
   if erg% = 0 or erg%=27
      delkndva:
   elseif erg% = 13
      a.name$ = name$ : a.tel$ = tel$
      update : giprint "Gändert"
      last : showknd:
   endif
endp

proc ediknd%:(title$)
   local erg%
   do
      dinit title$
      dedit name$,"Kundenname:"
      dedit tel$,"Telefonnummer:"
      dbuttons "Nicht speichern",27,"Speichern",13
      erg% = dialog
   until erg% = 0 or erg%=13
   return erg%
endp

proc wahll%:
   local erg%
   use a
   if count > 0
      dinit "Kunden löschen"
      dtext "","Wirklich löschen"
      dbuttons "Ja",%j,"Nein",%n
      erg% = dialog
      if erg%=%n
         return
      elseif erg% = %j
         erase : position 1 : showknd:
      endif
   endif
endp

proc wahle%:
      use a : close : stop
endp

proc delkndva:
   name$ = "" : tel$ = ""
endp

proc showknd:
   local c%
   cls : db2knd:
   print " K U N D E N D A T E N"
   print "----------------------"
   print "Kundenname: "+chr$(9)+name$
   print "   Telefon: "+chr$(9)+tel$
   do
      print
      c% = c% + 1
   until c% = 9
   if count <> 0
      print "Datensatz ";pos;"/";count
   else
      print "Datensatz 0/0"
   endif
   print
   print "<-" + " Zurück/Vor " + "->" + " od.Menü-Taste"
   gborder 0
endp

proc db2knd:
   use a : name$ = a.name$ : tel$ = a.tel$
endp

proc rollen:(keycode%)
   if count > 1
      if taste% = 259
         if pos = 1
            giprint "1. Datensatz"
         else
            back : showknd:
         endif
      elseif taste% = 258
         if pos = count
            giprint "Letzter Datensatz"
         else
            next : showknd:
         endif
      endif
   endif
endp