      IMPLICIT INTEGER (A-Z); EQUIVALENCE (JIT0,JIT(0))                 SNAP   1
      EXTERNAL UXJIT,LBUN,UMISC,SW,UBUS,GET,STIO,PLBUSR,PLHSID,SMUIS    SNAP   2
      DOUBLE PRECISION LD, JIT; GLOBAL JIT(0:255)                       SNAP   3
      OUTPUT 'SAMPLE PERIOD -  '; INPUT PERIOD                          SNAP   4
      OUTPUT 'WHEN PROMPTED, ENTER A USER #, SYSID, OR -LINE #'         SNAP   5
   20 ST=-1; INPUT USER; IF(USER.LE.0) USER=SID=LB(LBUN,-USER); GOTO 45 SNAP   6
      IF(USER.LE.LI(SMUIS)) GOTO 35                                     SNAP   7
      DO 25 I=1,16; IF(USER.EQ.LH(PLHSID,I)) USER=LB(PLBUSR,I); GOTO 35 SNAP   8
   25 CONTINUE; OUTPUT 'WHO??'; GOTO 20                                 SNAP   9
   35 DO 40 I=1,16; IF(USER.EQ.LB(PLBUSR,I)) SID=LH(PLHSID,I);GOTO 45   SNAP  10
   40 CONTINUE; SID=USER                                                SNAP  11
   45 LST=ST; ST=LB(UBUS,USER); IF(ST.EQ.0) OUTPUT 'GONE'; GOTO 20      SNAP  12
      IF(ST.EQ.LI(STIO).AND.LST.NE.LI(STIO)) OUTPUT 'TERM INPUT'        SNAP  13
      WAJIT=ISL(LX(UXJIT,USER),9); IF(LWAJIT.EQ.WAJIT) GOTO 90          SNAP  14
      DO 50 I=0,255                                                     SNAP  15
   50 JIT(I)=LD(WAJIT,I)                                                SNAP  16
      IF(IAND(JIT0,8Z3FFFFFFF).NE.SID) GOTO 80                          SNAP  17
      OUTPUT 'GOT IT'                                                   SNAP  18
      CALL DELTAI(GET,0,20S,':SYS             M:MON      ')             SNAP  19
   80 LWAJIT=WAJIT; GOTO 45                                             SNAP  20
   90 IF(ST.NE.LI(SW).OR.PERIOD.LT.0) CALL WAIT(IABS(PERIOD)); GOTO 45  SNAP  21
      WU=LW(UMISC,USER); WRITE(108,1020) WU; CALL WAIT(WU-1); GOTO 45   SNAP  22
 1020 FORMAT(' HE''S SLEEPING FOR 'I'INTERVALS'); END                   SNAP  23
     )
      IF(4Z8C00.LE.I.LE.4Z8DFF) GET=JIT(I-4Z8C00); RETURN               SNAP  25
      GET=LW(0,I); RETURN; END                                          SNAP  26

