Version("22.0", 37021)
GraphicsWindow("GRAPHICS 1").ShortcutKey(e)
In Window("ENTITIES")
    .Button("SBELT drawn") = Off
    .Button("ACCEL drawn") = Off
    .Button("PRETENS drawn") = Off
    .Button("RETRACT drawn") = Off
    .Button("SENSOR drawn") = Off
    .Button("SLIP drawn") = Off
	.Button("DATABASE...")
    .Button("X-SECTION drawn") = On
    .Button("All database name off")
    .Button("Update")
    .Button("Dismiss")
End In
GraphicsWindow("GRAPHICS 1").Button("Display")
PopupWindow1().Button("Options")
In Window("Display Options")
    .Button("Border") = Off
    .Button("Model Names") = Off
    .Button("Apply")
End In