SCRIPT
ABORT OFF
;    ----------------------------------------------------------------------
;               /\           
;    ----------/  \----------                              29 December 1991
;    ---------/    \---------
;    --------/      \-------- This Script file written by R. Sanchez,
;    -------/  BBS   \------- C&R Systems, SysOp, C&R BBS, 717-765-8623.
;    ------/          \------
;    -----<  EXPRESS!  >----- Script file to run the online BBS Game
;    ------\          /------ Space Trader Elite v3.0.0.
;    -------\   ST   /-------
;    --------\      /--------
;    ---------\    /---------
;    ----------\  /----------
;               \/
;    ----------------------------------------------------------------------
;    1.  Change the five lines below which contain the DEFINE statements to
;    reflect your system.
;
;    2.  This Script should be compiled to prevent variable errors from
;    occuring from successive loading of the game from a Games Menu Script.
;
;    3.  Enjoy the game.  It can be quite challenging!
;
;
;                           Rich
;
;    ----------------------------------------------------------------------                          

;***************************************************************************
                                 ;*                                        *
DEFINE Ste_drive = 'F'           ;* JUST the Drive Letter which contains   *
                                 ;* STE.TOS.                               *
                                 ;*                                        *
DEFINE Ste_path  = 'F:\STE\'     ;* Enter the COMPLETE path to where the   *
                                 ;* STE.PRG file is located.               *
                                 ;*                                        *
DEFINE Menu_drive = 'D'          ;* Enter JUST the Drive Letter where      *
                                 ;* your Games Menu is.                    *
                                 ;*                                        *
DEFINE Menu_path  = 'D:\SCRIPT\' ;* Path to your Games Menu.               *
                                 ;*                                        *
DEFINE Menu_name  = 'GAMES.COM'  ;* File Name of your Games Menu.          *
                                 ;*                                        *
;***************************************************************************

DEFINE Ch_drive
DEFINE Ch_directory
DEFINE User_selection
DEFINE Count

;--------------------------------------------------------------+
CLEAR SCREEN                                                  ;|
                                                              ;|
Main_:                                                        ;|
   CLEAR SCREEN                                               ;|
                                                              ;|
   IF TIME_EXCEEDED THEN                                      ;|
      PRINTE                                                  ;|
      PRINTE                                                  ;|
      PRINTE 'Sorry, your time limit is up for today!' CENTER ;|
      PRINTE                                                  ;|
      PRINTE                                                  ;|
      EXIT                                                    ;|
   ENDIF                                                      ;|
;--------------------------------------------------------------+

;-----------------------------------------------+
Play_game_:                                    ;|
   CLEAR SCREEN                                ;|
   PRINTE                                      ;|
   PRINTE                                      ;|
   PRINTE 'Space Trader Elite' CENTER          ;|
   PRINTE                                      ;|
   PRINTE                                      ;|
   Ch_drive = FILE_CHGDRIVE ('[Ste_drive]')    ;|
   Ch_directory = FILE_CHGDIR ('[Ste_path]')   ;|
   TOS ('[Ste_path]ste.tos')                   ;|
   DEFAULT_PATH                                ;|
   CLEAR SCREEN                                ;|
   Ch_drive = FILE_CHGDRIVE ('[Menu_drive]')   ;|
   Ch_directory = FILE_CHGDIR ('[Menu_path]')  ;|
   EXECUTE 'Menu_name'                         ;|
;-----------------------------------------------+

;---------------+
EOF:           ;|
CLOSE          ;|
DEFAULT_PATH   ;|
GOTO Main_     ;|
;---------------+