home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1997 #2 / CDD_2_97.ISO / cdd / dosanw / se_dms / bdg.prg < prev    next >
Text File  |  1992-08-22  |  509b  |  35 lines
  1. # DG.PRG
  2. # ANSI-Gallery als DMS-Lang-Programm
  3. # (c) 1992, Daniel Tietze
  4. #
  5. # Liste der vorhandenen ANSI-Bilder erstellen
  6. #
  7. :top
  8. EXECUTE "DIR /w *.ANS >ANSI.$$$"
  9. WRITELN "Vorhandene ANSI-Bilder:"
  10. #
  11. # Liste ausgeben
  12. #
  13. DUMPFILE "ANSI.$$$"
  14. WRITE "Welches Anzeigen ([ENTER] für Ende) : "
  15. READ %A
  16. #
  17. # Einfach ENTER gedrückt?
  18. #
  19. IFEQUAL %A ""
  20.   GOTO :Ende
  21. #
  22. # Datei ausgeben
  23. #
  24. DUMPFILE %A
  25. WAITENTER
  26. #
  27. # Sprung an Programmanfang
  28. #
  29. GOTO :top
  30. #
  31. # Wird bei Ende angesprungen
  32. #
  33. :Ende
  34. STOP
  35.