/* GC_Main.rexx   by Gatekeeper           */
/* $VER: GC_Main.rexx 30-Oct-94  20:30:15 */
options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit ; se=sendstring ; gc=getchar ; gu=getuser ; gs=getscratch
a='rexxsupport.library' ; if ~show('l',a) then if ~addlib(a,0,-30) then exit
PATH='SysText:'
GU 28;Term=result
Text1 = PATH"MainMenu.txt"
Text2 = PATH"MainMenu.ansi"
Text3 = PATH"MainMenu.IBMansi"
Text4 = PATH"MainMenu.rip"
MAIN:
if Term = 0 then Sendfile Text1
if Term = 1 then Sendfile Text1
if Term = 2 then Sendfile Text3
if Term = 3 then Sendfile Text2
if Term = 4 then Sendfile Text4
BYE:
bufferflush ; exit

SYNTAX: ; ERROR: ; IOERR: ; er=rc' ('errortext(rc)') in line 'sigl
    getuser 1311992 ; a=result ; getuser 1311960 ; b=result ; c='"'a||b'"'
    er='Error Code 'er' of 'c ; transmit er ; logentry er ; bufferflush
  exit