SUB WINDOW_ONLOAD
    MAIN
END SUB
SUB MAIN
CorStl.SetState"INIT"
CorStl.SetState"DATE 1999,8,25,20,10,0.000000,9.000"
CorStl.SetState"LOCATE 139.695E, 35.686N, 9.000000, 50"
CorStl.SetState"PERIOD 0,0,0,0,0,2.000000"
CorStl.SetState"STIME NONE"
CorStl.SetState"MODE HRZ"
CorStl.SetState"VIEW CENTER HRZ 330.767658, 31.674366"
CorStl.SetState"VIEW ANGLE 0.554000"
CorStl.SetState"VIEW SOL 12.000000"
CorStl.SetState"VIEW VIEW_CIRCLE 7.000000"
CorStl.SetState"TRACK Uranus"
CorStl.SetState"MAG STAR  6.2"
CorStl.SetState"MAG STARNAME  2.4"
CorStl.SetState"STARDATA STD,-2.0, 8.0"
CorStl.SetState"DISK Uranus"
CorStl.SetState"DISK_MAG 2"
CorStl.SetState"HIDE SCMETEOR"
CorStl.SetState"DRIVE"
END SUB

sub cmdplay_onclick
CorStl.SetState"continue 1999,8,25,21,22,0"
end sub