RDY: SECREADY$ = 'Option or Bye and press TAB'
     If RUNSTATE = 1 OR RUNSTATE = 3
        Read (PASS,GETACCREC) Key=TERM$+'@05@' Excp=F3XMIT
!       If Strip(SECPROG$) NE '' RUNSTATE = 3  &  Go SKIPPASS ! 97.02
!--------------------------------------------------------------------!
!*   Remove the following line if PASSWORD is not to return to      *!
!*   the READY/ENTER PASSWORD prompt                                *!
! (This is not necessary if SECPROG$ has a value - see 97.02 change) !
!--------------------------------------------------------------------!
     LET MESSAGE$ = '1 RDY: ' + STR(RUNSTATE)               !!!!!
     MSGBOX MESSAGE$                                        !!!!!
        If RUNSTATE = 3 Go REASKPASS            ! ** BB 7/92
SKIPPASS:
        Close (PASS)
        MSGBOX '2 RESETDAB'                                 !!!!!
        Go REsetDAB
==============================================================================
REsetDAB:
     Access (49) '' Excp=REset09                ! 01.06 WAS DAB 9
REset09:
     If Strip(SAVEDIR$) NE '' AND Strip(SAVEPATH$) NE '' _ ! 01.07
        Access (49) SAVEDIR$ Dir=SAVEPATH$ Excp=REsetX ! 01.06 WAS DAB 9
REsetX:
     If RUNSTATE = 3
        Print (0,2440)                          ! CPL64 BEFORE RUN PRG
        Print (0,2445)                          ! DISPLAY USER NAME
        ClearCommon                             ! 98.10
        Run SECPROG$ Dir=SECDIR$ Excp=NOPROG
     Else
        If Strip(SECNAME$) NE '' Print (0,2445) ! DISPLAY USER NAME
     EndIf
NOWHERE:
     RUNSTATE = 1
     MSGBOX '3 NOWHERE:'
     Return