!*! Updated on 01-Dec-93 at 12:37 AM by James A. Jarboe I V; edit time: 0:20:35
!************************************************************************
!                                                                       *
! CLRTOI.BAS - Tests the CLRTOI.SBR to Clear Timeout in Progress flag.  *
!                                                                       *
!************************************************************************
! Must have CLRTOI.SBR from the AMUS Network.
! Place CLRTOI.SBR in BAS: or load into user or system memory.
!
! CLRTOI - Clears the time out in progress flag for an ESP user.
!          This subroutine can be very usefull for reseting the timeout
!          in progress condition.
!          Some users use the Timeout feature of ESP, but don't use
!          SIGNIN which resets the Timeout in progress flag. Most
!          notably what happens is the next time the user enters an
!          ESP program it automatically times out.
!          CLRTOI.SBR used at the beginning of a program will reset
!          this condition so the user does not automatically end out
!          of an ESP program when they have just started when they
!          have previously timed out.
! CLRTOI - Also has some other neat uses as is shown in this program.
!
++include BAS:SYSSTD.BSI                ! Get Standard ESP STUFF.
!
!*******************************
!                              *
!     SETUSR opcode defs.      *
!                              *
!*******************************
!
       MAP1 SU'FLG,    F, 6, 1         ! Set user flags.
       MAP1 SU'RDS,    F, 6, 2         ! Set user read security.
       MAP1 SU'WTS,    F, 6, 3         ! Set user write security.
       MAP1 SU'DFP,    F, 6, 4         ! Set default printer.
       MAP1 SU'TMO,    F, 6, 5         ! Set time-out period in seconds.
       MAP1 SU'TOC,    F, 6, 6         ! Set time-out character.
       MAP1 SU'NAM,    F, 6, 7         ! Set user name.
       MAP1 SU'BCL,    F, 6, 8         ! Set default background color.
       MAP1 SU'FCL,    F, 6, 9         ! Set default foreground color.
       MAP1 SU'CMP,    F, 6, 10        ! Set SIGNIN company number.
       MAP1 SU'MNU,    F, 6, 11        ! Set SIGNIN menu item number.
       MAP1 SU'CNM,    F, 6, 12        ! Set company name.
       MAP1 SU'HLP,    F, 6, 13        ! Set default help file.
       MAP1 SU'IIF,    F, 6, 14        ! Set indirect input file.
       MAP1 SU'LVL,    F, 6, 15        ! Set user level.
       MAP1 SU'EXP,    F, 6, 16        ! Set user experience.
       MAP1 SU'IIS,    F, 6, 17        ! Set indirect input string.
       MAP1 SU'CII,    F, 6, 18        ! Clear indirect input levels.
       MAP1 SU'III,    F, 6, 19        ! Set indirect input iteration.
       MAP1 SU'KRF,    F, 6, 20        ! Set keystroke record file name.
       MAP1 SU'CKR,    F, 6, 21        ! Close keystroke record level(s).
       MAP1 SU'PAG,    F, 6, 22        ! Set PAGE glossary item value.
       MAP1 SU'ACM,    F, 6, 10000     ! Accumulator base value.

MAP1 TIMAMT, F, 6, 5                    ! Time out time, (5 seconds.)
MAP1 TIMCHR, F, 6, 3                    ! Time out character (CTRL-C)
MAP1 ITERAT, F, 6                       ! Number of iterations.

! Init Terminal.
!
       XCALL CLRTOI                    ! Preclear timeout in progress.
       XCALL INITRM, "Testing Time-out","James A. Jarboe IV"

! Fetch Screen.
!
       XCALL FETCH, "CLRTOI.SCR", SCREEN, X
       IF X goto BAD'SCREEN

! Set user for Timeout time and timeout character.
!
       XCALL SETUSR, SU'TMO, TIMAMT    ! Set Timeout time.
       XCALL SETUSR, SU'TOC, TIMCHR    ! Set timeout character.
       XCALL SETVAL, SCREEN, 2, TIMAMT ! Show timeout time on screen.

       CHAR = ESP'BEGLIN               ! Preset edit character.
       FIELD = 1                       ! Preset field.

! The loop!
!
LOOP:
       XCALL GTSCR, SCREEN, CHAR, FIELD  ! Get user input or wait.

! MENU Key Exit.
!
       IF (CHAR and 255) = ESP'MENU goto OUTOF

! EXECUTE key Process.
!
       IF (CHAR and 255) = ESP'EXECUTE goto EXECUTE

! Timeout - update screen.
!
       IF (CHAR and 255) = TIMCHR call UPDATE

! Always loop.
!
       GOTO LOOP


UPDATE:
       ITERAT = ITERAT + 1               ! Bump iterations.
       XCALL SETVAL, SCREEN, 3, ITERAT   ! Set value to screen.
       XCALL CLRTOI                      ! Clear timeout in progress.
       CHAR = ESP'BEGLIN                 ! Reset edit character.
       RETURN                            ! and do me again.

EXECUTE:
       XCALL ERRDSP, "User Pressed EXECUTE..Now Leaving"
       GOTO OUTOF

MENU:
       XCALL ERRDSP, "User Pressed MENU..Now Leaving"
       GOTO OUTOF

BAD'SCREEN:
       XCALL ERRDSP, "Problem Loading CLRTOI.SCR"
       GOTO OUTOF

ERR'ROUTINE:
       XCALL ERRDSP, "Basic Problem"
       GOTO OUTOF

OUTOF:
       XCALL INITRM
       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.