Here it is:
Set Display Mode 640, 480, 32
Sync On : Sync Rate 0
Set Window On
Press = 0
CurrentMenu = 0
Type GameData_Menus
ArrayID#
MenuName$
MenuFile$
MenuNumber#
EndType
Global Dim GameData_Menu(0) As GameData_Menus
GameData_Menu(0).ArrayID# = 0
GameData_Menu(0).MenuName$ = "Menu"
GameData_Menu(0).MenuFile$ = ""
GameData_Menu(0).MenuNumber# = 1
Type GameData_Menus_Panel
ArrayID#
MenuNumber#
GroupNumber#
PanelName$
PanelSizeX#
PanelSizeY#
PanelSizeZ#
PanelAngleX#
PanelAngleY#
PanelAngleZ#
PanelPositionX#
PanelPositionY#
PanelPositionZ#
PanelTexture#
PanelVisible
EndType
Global Dim GameData_Menu_P(0) As GameData_Menus_Panel
Array Insert At Bottom GameData_Menu_P(0)
GameData_Menu_P(1).ArrayID# = 1
GameData_Menu_P(1).MenuNumber# = 1
GameData_Menu_P(1).GroupNumber# = 0
GameData_Menu_P(1).PanelName$ = "Panel1"
GameData_Menu_P(1).PanelSizeX# = 100
GameData_Menu_P(1).PanelSizeY# = 100
GameData_Menu_P(1).PanelSizeZ# = 0
GameData_Menu_P(1).PanelAngleX# = 0
GameData_Menu_P(1).PanelAngleY# = 0
GameData_Menu_P(1).PanelAngleZ# = 0
GameData_Menu_P(1).PanelPositionX# = 0
GameData_Menu_P(1).PanelPositionY# = 0
GameData_Menu_P(1).PanelPositionZ# = 0
GameData_Menu_P(1).PanelTexture# = 1
GameData_Menu_P(1).PanelVisible = 1
Do
Text 0, 0, "Press W to Load Array Data"
Text 0, 10, "Press S to Save Array Data"
Text 0, 30, "Panel Name " + GameData_Menu_P(1).PanelName$
Text 0, 40, "Panel Size X " + STR$(GameData_Menu_P(1).PanelSizeX#)
Text 0, 50, "Panel Size Y " + STR$(GameData_Menu_P(1).PanelSizeY#)
If KeyState(17) = 1 And Press = 0
LSMenuData(0)
Press = 1
Endif
If KeyState(31) = 1 And Press = 0
LSMenuData(1)
Press = 1
Endif
If ScanCode() = 0 Then Press = 0
If EscapeKey() = 1 Then End
Sync
Loop
Function LSMenuData(Mode)
`Setup Variables
Name$ = GameData_Menu(CurrentMenu).MenuName$
Location$ = GameData_Menu(CurrentMenu).MenuFile$
`Load Mode 0
If Mode = 0
`Transfer Menu Panels Data
If File Exist(Location$ + Name$ + ".fcmps") = 1
Dim MenuPanels(0) As GameData_Menus_Panel
Open DataFile To Read 1, Location$ + Name$ + ".fcmps"
Load Array From DataFile MenuPanels(0), 1
Close DataFile 1
If Array Count(MenuPanels(0)) > 0
For X = 1 To Array Count(MenuPanels(0))
Array Insert At Bottom GameData_Menu_P(0)
AN = Array Count(GameData_Menu_P(0))
GameData_Menu_P(AN).ArrayID# = AN
GameData_Menu_P(AN).MenuNumber# = MenuPanels(X).MenuNumber#
GameData_Menu_P(AN).GroupNumber# = MenuPanels(X).GroupNumber#
GameData_Menu_P(AN).PanelName$ = MenuPanels(X).PanelName$
GameData_Menu_P(AN).PanelSizeX# = MenuPanels(X).PanelSizeX#
GameData_Menu_P(AN).PanelSizeY# = MenuPanels(X).PanelSizeY#
GameData_Menu_P(AN).PanelSizeZ# = MenuPanels(X).PanelSizeZ#
GameData_Menu_P(AN).PanelAngleX# = MenuPanels(X).PanelAngleX#
GameData_Menu_P(AN).PanelAngleY# = MenuPanels(X).PanelAngleY#
GameData_Menu_P(AN).PanelAngleZ# = MenuPanels(X).PanelAngleZ#
GameData_Menu_P(AN).PanelPositionX# = MenuPanels(X).PanelPositionX#
GameData_Menu_P(AN).PanelPositionY# = MenuPanels(X).PanelPositionY#
GameData_Menu_P(AN).PanelPositionZ# = MenuPanels(X).PanelPositionZ#
GameData_Menu_P(AN).PanelTexture# = MenuPanels(X).PanelTexture#
GameData_Menu_P(AN).PanelVisible = MenuPanels(X).PanelVisible
Next X
UnDim MenuPanels(0)
Else
UnDim MenuPanels(0)
Endif
Endif
Endif
`Save Mode 1
If Mode = 1
`Save Menu Panel Data
If Array Count(GameData_Menu_P(0)) > 0
Open DataFile To Write 1, Location$ + Name$ + ".fcmps"
Save Array To DataFile GameData_Menu_P(0), 1
Close DataFile 1
Endif
Endif
EndFunctionQuote: "Someone already has CSGames, so you'll need to pick another name."
How about CSGames94?
