fix: VF-Linienzug 100%-Wiederherstellung aus e76e24e abgeschlossen

Restauriert alles aus e76e24e, das nach dem Reset auf master fehlte oder nur
teilweise wiederhergestellt war, und mit dem Kollegen-Umbau abgeglichen:

- vf_core.lsp: Radio-Button-Dialoge fuer Anlagen-Typ/Linienzug-Modus
  (vfc-dialog-typ-waehlen/-linienzug-modus-waehlen) + Zurueck-Schleife im
  c:VarioFoerderer-Dispatcher
- Vario-Kurve/GF-Bogen-Erkennung am Kettenanfang: vfl-eingang-modus-bestimmen
  threaded durch vfl-vf-eingang-bauen/vfl-vf-einheit/vfl-vf-einheit-abschluss,
  inkl. Punkt-7-Winkel/Hoehen-Tabelle fuer reduzierten Eingang
- Modus 2: Lauf-Anfang/Lauf-Abschluss (offener Anfang/Ende, GF-Verteilung
  "alles Auslauf", Kletter-zu-kurz-Fallback) + Separator VOR/NACH bei
  GF-Geraden
- Systemischer Bug behoben: mehrere Wizard-Dialogfunktionen nutzten noch
  start_list/add_list (Dropdown) gegen laengst auf boxed_radio_column
  umgestellte DCL-Dialoge (vflw-gruppe-as/-gefaelle/-variokurve/
  -winkel-seite-impl, vflw-seg-linie-m2/-m3/-bogen-impl,
  vfl-glied-gf-bogen/-vario/-as-es-dialog)
- Zentraler Abbruch-Trigger in vfl-in-value/-value-p wiederhergestellt (ohne
  ihn wirkte der Zurueck/Abbrechen-Button in keinem Wizard-Dialog)
- vfl-frage-ist-endpunkt/-ist-kettenende als eigene Funktionen mit
  Wizard-Dialog extrahiert (vorher Konsolen-Duplikate ohne Dialog-Hookup)
- 3 vfs-vf-entry-Aufrufe mit falscher Argumentzahl gefixt (akute
  Absturz-Bugs in Modus 2/3)
- Tote Funktion vflw-gruppe-horizontal-impl entfernt (Tiles nicht mehr im
  DCL vorhanden)

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Lisp/vf_spec.lsp

@@ -202,6 +202,15 @@
                           " erlaubt - jedes weitere erbt die Fahrtrichtung"
                           " vom Vorgaenger und hat keinen Journal-Eintrag")))))
 
+;; Reine Richtungswahl OHNE Laenge (vfl-in-richtung: journalisiert NUR REAL,
+;; kein DL-Token) - fuer den Kettenanfang-Fall der Zielhoehe-zuerst-Zweige
+;; ("Linie-GF" modus="hoehe"/"steigend"+"hoehe"), wo noch keine Laenge
+;; bekannt ist. Nur beim allerersten Segment der Kette relevant (sonst gar
+;; kein Aufruf, siehe Aufrufer) - toggelt *vsp-erster-dl* wie vsp-linie.
+(defun vsp-richtung (quelle)
+  (vsp-zahl "REAL" (ssg-val quelle "hz") "hz (Richtungswahl, kein DL noetig)")
+  (setq *vsp-erster-dl* nil))
+
 ;; Winkelwahl (vfl-waehle-winkel) steht nur im Journal, wenn mehrere
 ;; Kandidatenwinkel gueltig waren - das haengt an der real gemessenen
 ;; Restlaenge und ist vorab nicht immer bekannt. Fehlt das Feld und der Bau
@@ -275,12 +284,12 @@
               (vsp-code-raus *vsp-tab-gf-laenge-modus* smodus "steigend_modus")
               (if (= smodus "endpunkt")
                 (vsp-linie sek)
-                (if erster (vsp-linie sek)))
+                (if erster (vsp-richtung sek)))
               (if (= smodus "hoehe")
                 (vsp-zahl "REAL" (ssg-val sek "hoehe") "hoehe"))
               (vsp-zahl "REAL" (ssg-val sek "winkel") "winkel"))
             ((= modus "hoehe")
-              (if erster (vsp-linie sek))
+              (if erster (vsp-richtung sek))
               (vsp-raus "STR" (vsp-ja-code (ssg-val sek "sep_vor")))
               (vsp-raus "STR" (vsp-ja-code (ssg-val sek "sep_nach")))
               (vsp-zahl "REAL" (ssg-val sek "hoehe") "hoehe")