game.kbasic_class

my_planet As planet

game ()

view_menu ()

do_menu_newgame ()

do_menu_loadgame ()

do_menu_halloffame ()

Main () As VARIANT

'Const max = 1000

Class game

Private my_planet[999] As planet

Constructor game

End Constructor

' menu
Sub view_menu()
  Application.OpenForm("menu")
End Sub

Sub do_menu_newgame()

End Sub

Sub do_menu_loadgame()

End Sub

Sub do_menu_halloffame()

End Sub

Sub do_menu_exit()

End Sub

' newgame
Sub view_newgame()
  Application.OpenForm("newgame")
End Sub

Sub do_newgame_start()
  ' message welcome....
  view_earth()
End Sub

Sub do_newgame_return()

End Sub

' earth
Sub view_earth()
  Application.OpenForm("earth")
End Sub

Sub do_earth_load()

End Sub

Sub do_earth_save()

End Sub

Sub do_earth_exit()

End Sub

' earth - planets
Sub do_earth_moon()
  'view_moon()
End Sub

Sub do_earth_mars()
  'view_mars()
End Sub

Sub do_earth_venus()
  'view_venus()
End Sub

Sub do_earth_mercury()
  'view_mercury()
End Sub

Sub do_earth_saturn()
' view_saturn()
End Sub

Sub do_earth_jupiter()
  'view_jupiter()
End Sub

Sub do_earth_neptune()
' view_neptune()
End Sub

End Class

Function Main()
  New game()

  ' run form
  Dim f As New frm_menu
  f.Open()

  Do While True
  Loop

End Function