Reach Out Scripting Language

Reach Out by Stac Software  was a connectivity product in the  '90s similar to Symantec pcAnywhere.  Unfortunately, pcAnywhere won out and Reach Out is no more. To get a remote dialup application implemented, I only had to create this one script in their straightforward interpreted language.  It was my only Reach Out Script.  When the user connects to the host machine, they could not stray outside of this script.  It is still in use.

DESCRIPTION Obtain Updated Product Information
; connect to titan host pc and download product file
; ray 05/98
; titan.ros -- reachout script
; connect via toll-free #'s xxx xxx xxxx

INIT_DIAL = "Initializing Titan Download Process"

TRIES = 0

:GET_PW
INPUT PASSWORD "Enter the password for Remote Access -->> ",TITAN_PW
IF TITAN_PW != "SALES" AND TITAN_PW != "sales"
  IF RESULT = IDCANCEL
     GOTO :EXIT_SCRIPT
  ELSE 
     MESSAGE "Invalid Password Entered!"
  ENDIF
  TRIES = TRIES + 1
  IF TRIES = 3
    GOTO :EXIT_SCRIPT
  ELSE
    GOTO :GET_PW
  ENDIF
ENDIF

;home
;
MESSAGE "Are you dialing from home (where no access # is required)?",INIT_DIAL,3+32
IF RESULT = IDYES
  GOTO :C1
ENDIF
IF RESULT = IDCANCEL
  GOTO :EXIT_SCRIPT
ENDIF

; office
;
MESSAGE "Are you dialing from an office (where dialing 9 is required)?",INIT_DIAL,3+32
IF RESULT = IDYES
  GOTO :C2
ENDIF
IF RESULT = IDCANCEL
  GOTO :EXIT_SCRIPT
ENDIF

; hotel
;
MESSAGE "Are you dialing from a hotel (where dialing 8 is required)?",INIT_DIAL,3+32
IF RESULT = IDYES
  GOTO :C3
ENDIF
IF RESULT = IDCANCEL
  GOTO :EXIT_SCRIPT
ENDIF

; manual dial
;
MESSAGE "Do you wish to dial a number manually including access #?",INIT_DIAL,3+32
IF RESULT = IDYES
  GOTO :C4
ENDIF
IF RESULT = IDCANCEL
  GOTO :EXIT_SCRIPT
ENDIF

; custom connection
;
MESSAGE "Do you wish to use the custom OTHER CONNECTION?

 (verify with Titan MIS first)",INIT_DIAL,4+32
IF RESULT = IDYES
  GOTO :C5
ELSE
  GOTO :EXIT_SCRIPT
ENDIF

:C1
CONNECT "HOME"
GOTO :BEGIN_COM
:C2
CONNECT "OFFICE"
GOTO :BEGIN_COM
:C3
CONNECT "HOTEL"
GOTO :BEGIN_COM
:C4
; manual dial
INPUT "ENTER ACCESS # AND PHONE # TO DIAL",PHONE_NO
CONNECT NUMBER PHONE_NO
GOTO :BEGIN_COM
:C5
; custom connection
MESSAGE "Do you need guidance in setting up this other connection",INIT_DIAL,4+32
IF RESULT = IDYES
  EXEC "C:\PROGRA~1\REACHOUT\TTDIALUP.EXE"
  GOTO :EXIT_SCRIPT ; let them go work on it
ENDIF
CONNECT "OTHER CONNECTION" ; modified by user

:BEGIN_COM
IF RESULT != 0
  MESSAGE "Please Re-try -- Comm. Error #" STR(RESULT) " -- " RESULTSTR(RESULT),STR(RESULT)
  GOTO :EXIT_SCRIPT
ENDIF


GETFILE ALWAYSOVERWRITE "C:\INVLOOK\DATA\*.*" FROM "C:\INVLOOK\DATA\*.*"
IF RESULT < 100	
   BEEP	
   MESSAGE "File transfer completed!"
ELSE
   MESSAGE RESULTSTR(RESULT) " -- File transfer incomplete, call MIS!",STR(RESULT)
ENDIF

:EXIT_SCRIPT
DISCONNECT
EXIT