$ ! CSC226LOGIN.COM
$ ! Last revised 30-JUL-1998 15:11:43 
$
$ SET TERMINAL/APPLICATION_KEYPAD
$ ESC[0,8] == %X1B
$ CSI == ESC + "["
$ UPPERLEFT  == "''CSI'H"      ! goto 0,0 sequence
$ ERASE  == "''CSI'J"          ! erase screen sequence
$ SAY  == "WRITE SYS$OUTPUT"
$ CLR  == "''SAY' UPPERLEFT+ERASE"  ! clear screen
$ SHARE :== @FACMAT:[SCOBEY.226.LISTS]SHARE226.COM
$ UNSHARE :== @FACMAT:[SCOBEY.226.LISTS]UNSHARE226.COM
$ MM :== RUN FACMAT:[SCOBEY.PUBLIC]MM.EXE
$ SM226 :== TYPE/PAGE FACMAT:[CS226PROF.PUBLIC.MESSAGES]CURRENT.TXT
$ GETMYINFO :== RUN FACMAT:[SCOBEY.226.LISTS]GI226.EXE
$ PINE :== PMDF PINE
$ CPP  :== @FACMAT:[CS226PROF.PUBLIC.PROGRAMS.OTHER]CPP.COM
$
$ name = f$edit(f$getjpi(0,"USERNAME"), "TRIM")
$ IF      ((name .GES. "CSC226000") .AND. (name .LES. "CSC226017")) -
     .OR.  (name .EQS. "CS226PROF") -
     .OR.  (name .EQS. "SCOBEY")
$ THEN
$    DB226 :== RUN FACMAT:[SCOBEY.226.LISTS]DB226.EXE
$    ST226 :== @FACMAT:[SCOBEY.226.LISTS]SHOWTIME226.COM
$    SU226 :== @FACMAT:[SCOBEY.226.LISTS]SHOWUSERS226.COM
$    TA226 :== @FACMAT:[SCOBEY.226.LISTS]SUBMIT_TA226.COM
$    SA226 :== @FACMAT:[SCOBEY.226.LISTS]SHOWATT226.COM
$    SL226 :== @FACMAT:[SCOBEY.226.LISTS.LABS]SHOWLABS226.COM
$    TRYCPP :== @FACMAT:[CS226PROF]TRY_CPP.COM
$    TRYEXE :== @FACMAT:[CS226PROF]TRY_EXE.COM
$    TRYFUN :== @FACMAT:[CS226PROF]TRY_FUN.COM
$ ENDIF
$
$ GOTO END_DISABLE
$   DB226 :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   ST226 :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   SU226 :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   TA226 :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   SA226 :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   SL226 :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   GETMYINFO :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   TRYCPP    :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   TRYEXE    :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$   TRYFUN    :== @FACMAT:[SCOBEY.226.LISTS]SORRY.COM
$ END_DISABLE:
$
$ !MISPRINTS :== TYPE/PAGE FACMAT:[CS226PROF.PUBLIC.GENDOC]MISPRINTS.TXT
$ HINTS_MT :== TYPE/PAGE FACMAT:[CS226PROF.PUBLIC.GENDOC]HINTS.MT
$ HINTS_FE :== TYPE/PAGE FACMAT:[CS226PROF.PUBLIC.GENDOC]HINTS.FE
$
$ DEFINE MAIL$EDIT CALLABLE_EDT
$
$ SETUP_JOBLOG:
$   DEFINE/NOLOG/TRANS=CONCEALED JOBLOG$LOG SYS$SYSDEVICE:[JOBLOG.LOGS]
$   DEFINE/NOLOG/TRANS=CONCEALED JOBLOG$STAGE SYS$SYSDEVICE:[JOBLOG.STAGE]
$   JOBLOG :== $SYS$SYSDEVICE:[JOBLOG.EXE]JOBLOG
$
$ SETUP_VI:
$   VI :== $SYS$TOOLS:VILE.EXE
$
$ DEFINE VILE_HELP_FILE FACMAT:[CS226PROF]VILE.HLP
$ DEFINE VILE_STARTUP_FILE FACMAT:[CS226PROF]VILE.RC
$ SETVIHELPOLD :== DEASSIGN VILE_HELP_FILE
$ SETVIHELPNEW :== DEFINE VILE_HELP_FILE FACMAT:[CS226PROF]VILE.HLP
$
$ @SYS$TOOLS:SETUP_TEMPDISK.COM
$ DEFINE CXX$DEMANGLER_DB TEMPDISK:CXX$DEMANGLER_DB.DAT
$
$ DEFINE MAIN_CPP FACMAT:[CS226PROF]MAIN.CPP
$ DEFINE BOOL_H   FACMAT:[CS226PROF]BOOL.H
$ DEFINE MAGIC    FACMAT:[CS226PROF]REALFMT.CPP