REM McBASI program to file the current synoptic hour in the McIDAS string table
REM Matthew Lazzara Nov 1996
REM Matthew Lazzara Aug 2001 - modified for 6 hourly data needs
REM
H=VAL(MID$(TIME$,1,2)) :PRINT H
S=(INT(H/3)*3) :PRINT S
T=(INT(H/6)*6) :PRINT T
KEYIN "TE SYNHOUR ";S;"
KEYIN "TE SYN6HOUR ";T;"
STOP