home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1997 #2 / CDD_2_97.ISO / cdd / dosanw / se_dms / bdm.prg < prev    next >
Text File  |  1992-03-30  |  930b  |  53 lines
  1. # Door-Menue mit DMS-Lang erstellt, um mal zu demonstrieren, was ein
  2. # durchschnittlicher Programmierer schon mit 16 Anweisungen machen kann.
  3. #
  4. # (c) 1992, Daniel Tietze
  5. #
  6. IFLOCAL
  7.   GOTO :Menustart
  8.  
  9. # Der Benutzer ist nicht lokal im System?
  10. WRITELN "Dieses Menü ist nur lokal verfügbar!"
  11. WAITENTER
  12. STOP
  13.  
  14. # Menü aufbauen
  15.  
  16. :Menustart
  17. TITLE "Door-Menü mit DMS-Utilities"
  18. WRITELN "1) Useredit"
  19. WRITELN "2) Filewart"
  20. WRITELN "3) Setup"
  21. WRITELN ""
  22. WRITELN "0) Ende
  23. WRITELN ""
  24. WRITE "Bitte auswählen : "
  25. READ %A
  26.  
  27. # Eingabe des Benutzers überprüfen:
  28.  
  29. IFEQUAL %A "0"
  30.   STOP
  31. IFEQUAL %A "1"
  32.   GOTO :Useredit
  33. IFEQUAL %A "2"
  34.   GOTO :Filewart
  35. IFEQUAL %A "3"
  36.   GOTO :Setup
  37. WRITELN "Unzulässige Auswahl, Bitte nochmal."
  38. WAITENTER
  39. GOTO :Menustart
  40.  
  41. :Useredit
  42. EXECUTE "Useredit.EXE"
  43. GOTO :Menustart
  44.  
  45. :Filewart
  46. EXECUTE "Filewart.EXE"
  47. GOTO :Menustart
  48.  
  49. :Setup
  50. EXECUTE "TV_SETUP.EXE"
  51. GOTO :Menustart
  52.  
  53.