SUB cmdConsPict_Onclick
CorStl.SetState"SHOW CONS_PICT"
CorStl.SetState"DRIVE"
end sub

SUB cmdConsLine_Onclick
CorStl.SetState"SHOW CONS_LINE"
CorStl.SetState"DRIVE"
end sub

SUB cmdConsPName_Onclick
CorStl.SetState"SHOW PLANET_NAME language japanese"
CorStl.SetState"DRIVE"
end sub

SUB cmdConsName3_Onclick
CorStl.SetState"SHOW CONS_Name3"
CorStl.SetState"DRIVE"
end sub

SUB cmdConsPictnone_Onclick
CorStl.SetState"HIDE CONS_PICT"
CorStl.SetState"DRIVE"
end sub

SUB cmdConsLinenone_Onclick
CorStl.SetState"HIDE CONS_LINE"
CorStl.SetState"DRIVE"
end sub

SUB cmdConsPNamenone_Onclick
CorStl.SetState"HIDE PLANET_NAME language japanese"
CorStl.SetState"DRIVE"
end sub

SUB cmdConsName3none_Onclick
CorStl.SetState"HIDE CONS_Name3"
CorStl.SetState"DRIVE"
end sub


SUB cmdMain_Onclick
CorStl.SetState"TRACEMODE"
CorStl.SetState"DRIVE"
MAIN
end sub

sub cmdmback_Onclick
CorStl.SetState"dectime 0,0,0,0,1,0"
CorStl.SetState"DRIVE"
end sub

sub cmdmup_Onclick
CorStl.SetState"inctime 0,0,0,0,1,0"
CorStl.SetState"DRIVE"
end sub

sub cmdback_Onclick
CorStl.SetState"dectime 0,0,0,0,10,0"
CorStl.SetState"DRIVE"
end sub

sub cmdup_Onclick
CorStl.SetState"inctime 0,0,0,0,10,0"
CorStl.SetState"DRIVE"
end sub

sub cmdhback_Onclick
CorStl.SetState"dectime 0,0,0,1,0,0"
CorStl.SetState"DRIVE"
end sub

sub cmdhup_Onclick
CorStl.SetState"inctime 0,0,0,1,0,0"
CorStl.SetState"DRIVE"
end sub

sub cmdhdback_Onclick
CorStl.SetState"dectime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
end sub

sub cmdhdup_Onclick
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
end sub

sub cmddback_Onclick
CorStl.SetState"dectime 0,0,1,0,0,0"
CorStl.SetState"DRIVE"
end sub

sub cmddup_Onclick
CorStl.SetState"inctime 0,0,1,0,0,0"
CorStl.SetState"DRIVE"
end sub

sub cmdmodehrz_Onclick
CorStl.SetState"mode hrz"
CorStl.SetState"DRIVE"
end sub

sub cmdmodeeqt_Onclick
CorStl.SetState"mode eqt"
CorStl.SetState"DRIVE"
end sub



sub cmdangle1_Onclick
CorStl.SetState"VIEW ANGLE 80"
CorStl.SetState"DRIVE"
end sub

sub cmdangle2_Onclick
CorStl.SetState"VIEW ANGLE 100"
CorStl.SetState"DRIVE"
end sub

sub cmdangle3_Onclick
CorStl.SetState"VIEW ANGLE 120"
CorStl.SetState"DRIVE"
end sub

sub cmdangle4_Onclick
CorStl.SetState"VIEW ANGLE 140"
CorStl.SetState"DRIVE"
end sub

sub cmdangle5_Onclick
CorStl.SetState"VIEW ANGLE 160"
CorStl.SetState"DRIVE"
end sub

sub cmdangle6_Onclick
CorStl.SetState"VIEW ANGLE 180"
CorStl.SetState"DRIVE"
end sub

sub cmdlookhrz_Onclick
CorStl.SetState"look hrz"
end sub

sub cmdzoomup_Onclick
CorStl.SetState"zoom up"
CorStl.SetState"DRIVE"
end sub

sub cmdzoomdown_Onclick
CorStl.SetState"zoom down"
CorStl.SetState"DRIVE"
end sub

sub cmdhrz1_Onclick
CorStl.SetState"look hrz 0,15"
CorStl.SetState"DRIVE"
end sub

sub cmdhrz2_Onclick
CorStl.SetState"look hrz 0,35"
CorStl.SetState"DRIVE"
end sub

sub cmdhrz3_Onclick
CorStl.SetState"look hrz 0,45"
CorStl.SetState"DRIVE"
end sub

sub cmdhrz4_Onclick
CorStl.SetState"look hrz 0,60"
CorStl.SetState"DRIVE"
end sub

sub cmdhrz5_Onclick
CorStl.SetState"look hrz 0,75"
CorStl.SetState"DRIVE"
end sub

sub cmdhrz6_Onclick
CorStl.SetState"look hrz 0,90"
CorStl.SetState"DRIVE"
end sub

sub cmdne_Onclick
CorStl.SetState"view center hrz 225,0"
CorStl.SetState"look hrz"
end sub

sub cmde_Onclick
CorStl.SetState"view center hrz 270,0"
CorStl.SetState"look hrz"
end sub

sub cmdse_Onclick
CorStl.SetState"view center hrz 315,0"
CorStl.SetState"look hrz"
end sub

sub cmds_Onclick
CorStl.SetState"view center hrz 0,0"
CorStl.SetState"look hrz"
end sub

sub cmdsw_Onclick
CorStl.SetState"view center hrz 45,0"
CorStl.SetState"look hrz"
end sub

sub cmdw_Onclick
CorStl.SetState"view center hrz 90,0"
CorStl.SetState"look hrz"
end sub

sub cmdnw_Onclick
CorStl.SetState"view center hrz 135,0"
CorStl.SetState"look hrz"
end sub

sub cmdn_Onclick
CorStl.SetState"view center hrz 180,0"
CorStl.SetState"look hrz"
end sub

sub cmdtrack_Onclick
CorStl.SetState"track moon"
CorStl.SetState"DRIVE"
end sub

sub cmdtracknone_Onclick
CorStl.SetState"track"
CorStl.SetState"DRIVE"
end sub

sub cmdAuto_Onclick
CorStl.SetState"continue"
end sub

sub cmdtrace_Onclick
CorStl.SetState"SHOW TRACE"
CorStl.SetState"TRACEMODE ALWAYS"
CorStl.SetState"DRIVE"
end sub

sub cmdtracenone_Onclick
CorStl.SetState"HIDE TRACE"
CorStl.SetState"TRACEMODE"
CorStl.SetState"DRIVE"
end sub

sub cmdlocate1_Onclick
CorStl.SetState"LOCATE 141.333E, 43.050N, 9.000000, 50"
CorStl.SetState"DRIVE"
end sub

sub cmdlocate2_Onclick
CorStl.SetState"LOCATE 140.540E, 38.160N, 9.000000, 38"
CorStl.SetState"DRIVE"
end sub

sub cmdlocate3_Onclick
CorStl.SetState"LOCATE 139.460E, 35.410N, 9.000000, 5"
CorStl.SetState"DRIVE"
end sub

sub cmdlocate4_Onclick
CorStl.SetState"LOCATE 136.580E, 35.100N, 9.000000, 51"
CorStl.SetState"DRIVE"
end sub

sub cmdlocate5_Onclick
CorStl.SetState"LOCATE 135.310E, 34.410N, 9.000000, 23"
CorStl.SetState"DRIVE"
end sub

sub cmdlocate6_Onclick
CorStl.SetState"LOCATE 130.230E, 33.350N, 9.000000, 2"
CorStl.SetState"DRIVE"
end sub

sub cmdlocate7_Onclick
CorStl.SetState"LOCATE 127.410E, 26.120N, 9.000000, 28"
CorStl.SetState"DRIVE"
end sub