SUB WINDOW_ONLOAD
    MAIN
END SUB
SUB MAIN
CorStl.SetState"INIT"
CorStl.SetState"LOCATE 139.695E, 35.686N, 9.000000, 50"
CorStl.SetState"PERIOD 0,0,0,12,0,0.000000"
CorStl.SetState"STIME NONE"
CorStl.SetState"MODE EQT"
CorStl.SetState"VIEW CENTER EQT_DATE 0.358007, -2.307252"
CorStl.SetState"VIEW ANGLE 120.000000"
CorStl.SetState"VIEW SOL 12.000000"
CorStl.SetState"VIEW VIEW_CIRCLE 7.000000"
CorStl.SetState"MAG STAR  6.0"
CorStl.SetState"MAG STARNAME  2.4"
CorStl.SetState"STARDATA STD,-2.0, 8.0"
CorStl.SetState"HIDE Sun"
CorStl.SetState"HIDE PLANET"
CorStl.SetState"SHOW Earth"
CorStl.SetState"DISK_MAG 100"
CorStl.SetState"SHOW CONS_LINE, CONS_PICT"
CorStl.SetState"track moon"
CorStl.SetState"DRIVE"
END SUB

sub cmdplay_onclick
CorStl.SetState"SHOW CONS_LINE, CONS_PICT"
CorStl.SetState"HIDE TRACE"
CorStl.SetState"TRACEMODE"
CorStl.SetState"track moon"
CorStl.SetState"DRIVE"
CorStl.SetState"track"
CorStl.SetState"DRIVE"
CorStl.SetState"dectime 0,0,0,90,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"SHOW TRACE"
CorStl.SetState"TRACEMODE ALWAYS"
CorStl.SetState"HIDE CONS_LINE, CONS_PICT"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
CorStl.SetState"inctime 0,0,0,12,0,0"
CorStl.SetState"DRIVE"
end sub