home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / c / textanzeigen < prev    next >
AmigaDOS Script File  |  1996-05-21  |  510b  |  24 lines

  1. .KEY Dateiname
  2. .BRA [
  3. .KET ]
  4. ;
  5. ; Zeigt einen Text an und verwendet dazu evtl. den Anzeiger aus der
  6. ;      ENV:-Variable »AmigaCD/Text_Anzeiger«
  7. ;
  8. Set defaultanzeiger ":Tools/most/most"
  9.  
  10. if exists ENV:AmigaCD/Text_Anzeiger
  11.    set Zeigher "`getenv AmigaCD/Text_Anzeiger`"
  12. else
  13.    set Zeigher "`get defaultanzeiger`"
  14. endif
  15.  
  16. if "[Dateiname]" EQ ""
  17.    :c/requestfile20 sys: TITLE "Welche Textdatei anzeigen?" >ENV:auswahl[$$]
  18.    if not warn
  19.       $Zeigher $auswahl[$$]
  20.    endif
  21. else
  22.    $Zeigher "[Dateiname]"
  23. endif
  24.