(vmon)

(setq lw "M:")
;----------------------------------------------------------------------------

(setvar "cmdecho" 0)
(setq g_si2 (getvar "tdindwg"))
(prompt "\nSSG-Menu.. (c) 2006 by SCHOENENBERGER Systeme GmbH - All rights reserved")
(prompt " ")

(load (strcat lw "/acadsst/menu/ssg.lsp"))

(princ)