SUBROUTINE TFROPN (FILE, LUNIT) C***************************************************************************** C C Description : Routine to open a TFR-library file C C Arguments : FILE = STRING containing the file-name without extension C (max. 26 characters) C LUNIT = INTEGER logical unit number C C Author : F.A.Minkema C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.2 Date : 16-jun-83 C C Module name : TFROPN.FTN C C Package : TRAMP C C Compilation/Linking : FOR/F4P/TR:NONE TFROPN C C Updates : name version C H.A.M. Fikke V1.1 C description : Terminalsettings added C C F.A.Minkema V1.2 C description : Filename extended to 26 characters C C***************************************************************************** C BYTE HOMSTR,CLRSTR,ERLSTR,NATSTR,HERPOS,ERRATT,HLPATT,FCR,SBUF,FREC COMMON/TFRCOM/NUNIT,MAXBUF,NRNXFR,LLFLD,NLFCR,IHEFLG,ISCR, 1 NRFFFR,NRLFFR,NRFDFR,NRLDFR,NRFUFR,NRLUFR, 2 HOMSTR(4),CLRSTR(4),ERLSTR(4),NATSTR(6),HERPOS(8), 3 ERRATT(8),HLPATT(8),FCR(80),SBUF(120),FREC(40) C C general info record 1 C VNR ! version number C NRFSFR ! rec.nr. first form C HOMSTR ! esc.seq: home position C CLRSTR ! esc.seq: clear screen C ERLSTR ! esc.seq: erase line C NATSTR ! esq.seq: reset video attributes C C general info record 2 C HERPOS ! esc.seq: position error/help message C ERRATT ! esq.seq: video attributes error message C HLPATT ! esq.seq: video attributes help message C C BYTE FILE(1),FILNAM(32),PROG(8) DATA PROG/'T','F','R','O','P','N',2*0/ C C generate complete file-name and open C CALL SCOPY(FILE,FILNAM,26) CALL SCOPY('.FEX',FILNAM(LEN(FILNAM)+1)) OPEN (UNIT=LUNIT,NAME=FILNAM,TYPE='OLD', 1 ACCESS='DIRECT',RECORDSIZE=10,ERR=9000) C C read general info records for initialization C READ (LUNIT'1,ERR=9010) VNR,NRFSFR,HOMSTR,CLRSTR,ERLSTR,NATSTR IF (VNR.NE.'V1.0') GOTO 9020 READ (LUNIT'2,ERR=9030) HERPOS,ERRATT,HLPATT ISCR=5 MAXBUF=40 NUNIT=LUNIT NRNXFR=NRFSFR C C set terminalsettings C CALL DCLCMD('SET TERM/NOWRAP','WAIT') CALL DCLCMD('SET TERM/LOWER','WAIT') CALL QIO("1400,5,3) CALL WAITFR(3) C C go back to calling routine C RETURN C C errors C 9000 CALL FATAL(PROG,'OPEN-error TFR-library file') 9010 CALL FATAL(PROG,'READ-error first general info record') 9020 CALL FATAL(PROG,'Invalid version TFR-library file') 9030 CALL FATAL(PROG,'READ-error second general info record') END