FUNCTION PoCaRun,time,date

; Location defaults to Eureka ASTRO Lab.

; Set up the date and time if necessary
IF N_PARAMS() LE 1 THEN BEGIN
    dt_tm_br,systime(),dt,tm
    date2ymd,dt,y,m,d
    date=STRING(y MOD 100,m,d,FORMAT='(3I2.2)')
    IF N_PARAMS() EQ 0 THEN time=delchr(tm,':')
    ENDIF

; delete RUNKI if it exists
SPAWN,'IF EXIST RUNKI DEL RUNKI'

; run the ephemeris program
SPAWN,'C:\EPH\KI_EP -s C:\EPH\EUREKA.POS -date '+STRTRIM(date,2)+' -time '+STRTRIM(time,2)
RETURN,(FINDFILE('RUNKI') NE '')
END