PROGRAM SGLTKB C C A simple program to chain to TKB. If TKB is already running, it C will pause 60 seconds, then try again. C C Its purpose is to prevent multiple copies from running. C C Submitted by RUSS BROWN to the TARLUG library. C C To make it work, remove ...TKB and install it as TKB... C Build this routine and install as ...TKB. The same can be used for C BP2 and F77 easily. C C Compile and Link commands C FORTRAN/F77 SINGLETKB/TR:NONE C SINGLETKB=SINGLETKB C / C UNITS=1 C ACTFIL=1 C IDENT=V1.0 C ASG=TI:1 C TASK=...TKB C // C REAL TKB BYTE CMDLIN(80) INTEGER N C DATA TKB/6RTKB.../ ! The new name for TKB C CALL GETMCR(CMDLIN,N) ! Get the command line 10 CALL RPOI(TKB,,,,CMDLIN,N,1,TT,0,,,IDSW) ! Try to pass off IF (IDSW.EQ.-7) THEN ! If busy WRITE (1,*) 'TASK BUSY, WAITING...' ! say so CALL WAIT(1,3,IDSW) ! and wait a minute GO TO 10 ! Then try again ENDIF CALL EXIT ! All done END