131 lines
2.6 KiB
Common Lisp
131 lines
2.6 KiB
Common Lisp
;; ============================================================
|
|
;; SSG_LIB - Dummy-Befehlsdefinitionen fuer Menue SSG_LIB
|
|
;; Jeder Befehl gibt eine Meldung aus und kann spaeter
|
|
;; durch echte Funktionalitaet ersetzt werden.
|
|
;; ============================================================
|
|
|
|
;; --- ILS / Zusatzmodul ---
|
|
(defun c:ILS_BTMT_Beladung ()
|
|
(princ "\n[DUMMY] ILS_BTMT_Beladung aufgerufen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_BTMT_Entladung ()
|
|
(princ "\n[DUMMY] ILS_BTMT_Entladung aufgerufen")
|
|
(princ)
|
|
)
|
|
|
|
;; --- ILS / Foerderer ---
|
|
(defun c:ILS_ETF_Etagenfoerderer ()
|
|
(princ "\n[DUMMY] ILS_ETF_Etagenfoerderer aufgerufen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_TEF_Strecke ()
|
|
(princ "\n[DUMMY] ILS_TEF_Strecke aufgerufen")
|
|
(princ)
|
|
)
|
|
|
|
;; FOERDERANLAGE ist bereits in VarioFoerderer.lsp definiert
|
|
|
|
;; Kurven angetrieben Aussen
|
|
(defun c:ILS_K90LA ()
|
|
(princ "\n[DUMMY] 90 Kurve links angetrieben Aussen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K90RA ()
|
|
(princ "\n[DUMMY] 90 Kurve rechts angetrieben Aussen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K60LA ()
|
|
(princ "\n[DUMMY] 60 Kurve links angetrieben Aussen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K60RA ()
|
|
(princ "\n[DUMMY] 60 Kurve rechts angetrieben Aussen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K30LA ()
|
|
(princ "\n[DUMMY] 30 Kurve links angetrieben Aussen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K30RA ()
|
|
(princ "\n[DUMMY] 30 Kurve rechts angetrieben Aussen")
|
|
(princ)
|
|
)
|
|
|
|
;; Kurven angetrieben Innen
|
|
(defun c:ILS_K90LI ()
|
|
(princ "\n[DUMMY] 90 Kurve links angetrieben Innen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K90RI ()
|
|
(princ "\n[DUMMY] 90 Kurve rechts angetrieben Innen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K60LI ()
|
|
(princ "\n[DUMMY] 60 Kurve links angetrieben Innen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K60RI ()
|
|
(princ "\n[DUMMY] 60 Kurve rechts angetrieben Innen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K30LI ()
|
|
(princ "\n[DUMMY] 30 Kurve links angetrieben Innen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_K30RI ()
|
|
(princ "\n[DUMMY] 30 Kurve rechts angetrieben Innen")
|
|
(princ)
|
|
)
|
|
|
|
;; --- ILS / Gefaellestrecke ---
|
|
(defun c:ILS_Gefaellestrecke ()
|
|
(princ "\n[DUMMY] ILS_Gefaellestrecke aufgerufen")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_GK90L ()
|
|
(princ "\n[DUMMY] 90 Kurve links Gefaellestrecke")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_GK90R ()
|
|
(princ "\n[DUMMY] 90 Kurve rechts Gefaellestrecke")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_GK60L ()
|
|
(princ "\n[DUMMY] 60 Kurve links Gefaellestrecke")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_GK60R ()
|
|
(princ "\n[DUMMY] 60 Kurve rechts Gefaellestrecke")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_GK30L ()
|
|
(princ "\n[DUMMY] 30 Kurve links Gefaellestrecke")
|
|
(princ)
|
|
)
|
|
|
|
(defun c:ILS_GK30R ()
|
|
(princ "\n[DUMMY] 30 Kurve rechts Gefaellestrecke")
|
|
(princ)
|
|
)
|
|
|
|
(princ "\nSSG_LIB_Commands.lsp geladen - Dummy-Befehle registriert.")
|
|
(princ)
|