.ENABLE SUBSTITUTION .ENABLE QUIET CLR !************************************************************************** ! ! Bankers Trust RSX-11 HELP utility psuedo-VAX style ! ! Author: Peter V. DeVita ! ! Date: 18-FEB-1983 ! ! Dept: DPG ! ! Note: Escape sequences are set up for a VT100 but will ! work on other terminals. ! ! To invoke this command file via "> HLP" the following ! must be done: ! ! INS $TDX/TASK=...CA. ! ASN SY:=ZZ2: for local help ! ASN SY:=ZZ2:/GBL for global use of help ! Put a copy of [2,1]HLP.CMD in your current UIC or ! put a copy of [2,1]HLP.CMD in LB:[] ! ! Modified By ! -------- ---- ! ! 02-JUN-83 PVD Accept a parameter on entry. ! !************************************************************************** .SETS CLI "/"+ .IF P2 <> "" .SETS CLI P2 .IF P2 = "%" .SETS CLI " "+P2 .SETS M1 "" HELP'CLI' .DISABLE QUIET ! ! Typ H to go home level, or B to go back one level only, ! to repeat the current help level, or E to exit. .ENABLE QUIET !************************************************************************** .1: .SETS M2 "" .DISABLE QUIET ! .ENABLE QUIET .ASKS M1 "HELP'CLI'" .IF M1 = "H" .GOTO 1 .IF M1 = "E" .GOTO EXIT .IF M1 = "B" .GOTO 1 .GOTO 1C .1B: .SETS M1 "" .1C: CLR .IF M1 <> "/MCR" .GOTO 1D .SETS CLI "/MCR" .GOTO 1B .1D: .IF M1 <> "/UNS" .GOTO 1E .SETS CLI "/UNS" .GOTO 1B .1E: .IF M1 <> "/DCL" .GOTO 1F .SETS CLI "/DCL" .GOTO 1B .1F: .IF M1 <> "%" .GOTO 1G .SETS CLI " % " .GOTO 1B .1G: HELP'CLI' 'M1' .IF M1 = "" .GOTO 1 .IF M1 = "CONT" .GOTO 1 .IF M1 = "CONTI" .GOTO 1 .IF M1 = "CONTIN" .GOTO 1 .IF M1 = "CONTINU" .GOTO 1 .IF M1 = "CONTINUE" .GOTO 1 !************************************************************************** .2: .SETS M3 "" .DISABLE QUIET ! .ENABLE QUIET .ASKS M2 "HELP'CLI' 'M1' " .IF M2 = "H" .GOTO 1 .IF M2 = "E" .GOTO EXIT .IF M2 = "B" .GOTO 1 .GOTO 2C .2B: .SETS M2 "" .2C: CLR HELP'CLI' 'M1' 'M2' .IF M2 = "" .GOTO 2 !************************************************************************** .3: .SETS M4 "" .DISABLE QUIET ! .ENABLE QUIET .ASKS M3 "HELP'CLI' 'M1' 'M2'" .IF M3 = "H" .GOTO 1 .IF M3 = "E" .GOTO EXIT .IF M3 = "B" .GOTO 2 .GOTO 3C .3B: .SETS M3 "" .3C: CLR HELP'CLI' 'M1' 'M2' 'M3' .IF M3 = "" .GOTO 3 !************************************************************************** .4: .SETS M5 "" .DISABLE QUIET ! .ENABLE QUIET .ASKS M4 "HELP'CLI' 'M1' 'M2' 'M3'" .IF M4 = "H" .GOTO 1 .IF M4 = "E" .GOTO EXIT .IF M4 = "B" .GOTO 3 .GOTO 4C .4B: .SETS M4 "" .4C: CLR HELP'CLI' 'M1' 'M2' 'M3' 'M4' .IF M4 = "" .GOTO 4 !************************************************************************** .5: .SETS M6 "" .DISABLE QUIET ! .ENABLE QUIET .ASKS M5 "HELP'CLI' 'M1' 'M2' 'M3' 'M4'" .IF M5 = "H" .GOTO 1 .IF M5 = "E" .GOTO EXIT .IF M5 = "B" .GOTO 4 .GOTO 5C .5B: .SETS M5 "" .5C: CLR HELP'CLI' 'M1' 'M2' 'M3' 'M4' 'M5' .IF M5 = "" .GOTO 5 !************************************************************************** .6: .ASKS M6 "HELP'CLI' 'M1' 'M2' 'M3' 'M4' 'M5'" .DISABLE QUIET ! .ENABLE QUIET .IF M6 = "H" .GOTO 1 .IF M6 = "E" .GOTO EXIT .IF M6 = "B" .GOTO 5 .GOTO 6C .6B: .SETS M6 "" .6C: CLR HELP'CLI' 'M1' 'M2' 'M3' 'M4' 'M5'" .IF M6 = "" .GOTO 6 .GOTO 6 .EXIT: CLR