EXTERNALSTRINGFNSPEC DATE EXTERNALSTRINGFNSPEC TIME SYSTEMINTEGERFN DATEANDTIME(STRINGNAME DAT,TIM) STRING (2) DAY,MONTH,YEAR DAT=DATE DAT->DAY.("/").MONTH.("/").YEAR DAT="19".YEAR."/".MONTH."/".DAY TIM=TIME RESULT =0 END EXTERNALROUTINESPEC ICL9CEDIAG EXTERNALROUTINE DIAG ICL9CEDIAG END ; !OF DIAG SYSTEMROUTINE OPEHUSERERROR END ; !OF OPEHUSERERROR SYSTEMROUTINE GENOMF END SYSTEMROUTINE DATIME END ENDOFFILE