SUB WINDOW_ONLOAD
    MAIN
END SUB
SUB MAIN
CorStl.SetState"INIT"
CorStl.SetState"HIDE SWMETEOR, SCMETEOR"
CorStl.SetState"LOCATE 139.695E, 35.686N, 9.000000, 50"
CorStl.SetState"PERIOD 0,0,1,0,0,0.000000"
CorStl.SetState"STIME NONE"
CorStl.SetState"MODE EQT"
CorStl.SetState"VIEW CENTER EQT_DATE 2.371843, 8.364530"
CorStl.SetState"VIEW ANGLE 1.054000"
CorStl.SetState"VIEW SOL 12.000000"
CorStl.SetState"VIEW VIEW_CIRCLE 7.000000"
CorStl.SetState"TRACK Moon"
CorStl.SetState"MAG STAR  8.0"
CorStl.SetState"MAG STARNAME  2.4"
CorStl.SetState"STARDATA STD,-2.0, 8.0"
CorStl.SetState"DISK PLANET"
CorStl.SetState"DISK_MAG 5"
CorStl.SetState"DRIVE"
END SUB

sub cmdplay_onclick
CorStl.SetState"continue"
end sub