C TIMAS.FTN C C CONVERT TIME AS MINUTES AFTER MIDNIGHT TO ASCII CHARACTERS C IN MILITARY TIME WITH COLON BETWEEN HR AND MINUTES C SUBROUTINE TIMAS(TIME,BUF,POS) INTEGER TIME,POS,HR,MIN BYTE BUF(80) HR=TIME/60 MIN=TIME-60*HR CALL HRAS(HR,MIN,BUF(POS)) ! CONVERT TO ASCII CHARACTERS RETURN END C C ASTIM.FTN C C CONVERTS TIME EXPRESSED IN ASCII CHARACTERS TO MINUTES AFTER MIDNIGHT C SUBROUTINE ASTIM(TIME,BUF,POS) INTEGER TIME,POS,HR,MIN BYTE BUF(80) CALL ASHR(HR,MIN,BUF(POS)) ! THIS CONVERTS TO BINARY TIME=HR*60+MIN RETURN END