C DATATRIEVE INTERFACE FUNCTIONS C DUMMY INITIAL VERSION C GLENN EVERHART 1985 SUBROUTINE DTRINI C INITIALIZE DATATRIEVE RETURN END SUBROUTINE DTRFIN C FINISH WITH DTR RETURN END SUBROUTINE DTRCMD(LINE) LOGICAL*1 LINE(80) C DO COMMAND RETURN END SUBROUTINE DTRFCT(LINE,RETCD) INTEGER*2 RETCD LOGICAL*1 LINE(80) RETCD=1 C HANDLE *U DBXXXX FUNCTIONS. LINE ARRAY PASSED IN HERE C STARTS AFTER THE "DB" SO WE CAN DECODE IT. RETURN END