C BEESET -- ROUTINE TO SET UP BEEHIVE SCREEN FORMATING OR C AUTO-OVERRIDE. REQUIRES A TERMINAL.DAT FILE ON [5,5] C IGDA ONLY. C SUBROUTINE BEESET(BEEFLG) INTEGER BEEFLG,ITERM BYTE BUFF(16),A(2),LINE(80),TERM(2) BEEFLG=.FALSE. C C THESE NEXT LINE OF CODE ARE HERE FOR NON-IGDA SYSTEMS C TYPE 10 10 FORMAT('$DO YOU WANT TO USE THE SCREEN FORMATTING(Y/N)>') ACCEPT 20,A 20 FORMAT(2A1) IF(A(1).EQ.'Y')BEEFLG=.TRUE. RETURN C CALL LOCFIL('$T',0,BUFF) C ITERM=BUFF(1) C OPEN(UNIT=1,NAME='DB0:[5,5]TERMINAL.DAT',READONLY, C + ACCESS='SEQUENTIAL',TYPE='OLD') C3 READ(1,20)BUFF C20 FORMAT(16A1) C IF(LSTRNG(BUFF,1,16,'TERM',1,4).GT.0)GOTO4 C GOTO3 C4 ENCODE(2,30,TERM),ITERM C30 FORMAT(O2) C5 READ(1,40,END=1000)LINE C40 FORMAT(80A1) C IF(LSTRNG(LINE,1,12,TERM,1,2).GT.0.AND. C ; LSTRNG(LINE,13,24,' 0',1,2).GT.0.AND. C + LSTRNG(LINE,25,36,' 0',1,2).GT.0)GOTO10 C GOTO5 C10 BEEFLG=.TRUE. C1000 CLOSE(UNIT=1) C RETURN END