.key f
.bra {
.ket }
; P. Kittel, Ffm 11.8.90, 1.6.90
stack 20000
if not "{f}" eq ""
  sag "{f}"
  skip ende
  endif
echo "*N Über Mehrfachauswahl können Sie auch per Maus eine Datei"
echo " zum Vorlesen vorgeben! Dabei immer ZUERST dieses Programm"
echo " 'Sags' EINMAL anklicken, dann Shift-Taste gedrückt halten"
echo " und auf dem Piktogramm der Textdatei doppelklicken.*N"
ask "*N Vorlesen einer Datei (y) oder direkt eintippen (n) ? "
if warn
  ; INPUT per SetEnv, um Variable 'Textname' zu setzen
  echo "*N Bitte Dateinamen ggf. incl. Pfad eingeben: "
  echo " " noline
  SetEnv >NIL: Textname{$$} ?
  echo   >ram:Text1{$$} "sag " noline
  join    ram:Text1{$$} env:Textname{$$} as ram:Text2{$$}
  echo  >>ram:Text2{$$} " "
  execute ram:Text2{$$}
  delete env:Textname{$$} ram:Text1{$$} ram:Text2{$$} quiet
  skip ende
  endif
echo "*N Sie können nun mehrere Zeilen Text eingeben, Ende mit 'ENDE'."
echo " Die Zeile muß UNBEDINGT in Gänsefüßchen eingeschlossen werden!"
; Schleife über Eingabezeilen
lab Zeile
echo "*N Nächste Zeile (Gänsefüßchen!), Ende mit ENDE:"
echo " " noline
SetEnv >NIL: Text{$$} ?
wait 1
if >nil: not "$Text{$$}" eq ENDE
  sag env:Text{$$} -K
  skip Zeile back
  endif
delete env:Text{$$} quiet
;
lab ende
endcli