SUB WINDOW_ONLOAD
    MAIN
END SUB
SUB MAIN
CorStl.SetState"INIT"
CorStl.SetState"DATE 1999,8,11,10,10,0.000000,1.000"
CorStl.SetState"LOCATE  11.57E, 48.13N, 1.000000, 50"
CorStl.SetState"PERIOD 0,0,0,0,0,20.000000"
CorStl.SetState"STIME NONE"
CorStl.SetState"MODE HRZ"
CorStl.SetState"VIEW CENTER HRZ 312.683963, 49.562746"
CorStl.SetState"VIEW ANGLE 1.280000"
CorStl.SetState"VIEW SOL 12.000000"
CorStl.SetState"VIEW VIEW_CIRCLE 7.000000"
CorStl.SetState"TRACK Sun"
CorStl.SetState"MAG STAR  1.5"
CorStl.SetState"MAG STARNAME  2.4"
CorStl.SetState"STARDATA STD,-2.0, 8.0"
CorStl.SetState"DISK_MAG 100"
CorStl.SetState"DRIVE"
END SUB

sub cmdplay_onclick
CorStl.SetState"continue 1999,8,11,13,10,0"
end sub