
1 REM                       [INTRODUCTION]

   preload "exmain.gif"
   preload "exreview.gif"
   preload "exnews.gif"
   preload "exdos.gif"
   preload "exinfo.gif"
   preload "exnot.gif"
   play "xlogo.flc"
   GOTO 10

10 REM                      [MAIN MENU]
   COLOR 7
   CLS
   MENU "exmain.gif", "1234", DEFAULT=4, TIMEOUT=60

   REM Keypress events returns a positive value in ITEM.

   IF ITEM = 1 THEN GOTO 100
   IF ITEM = 2 THEN GOTO 200
   IF ITEM = 3 THEN GOTO 300
   IF ITEM = 4 THEN GOTO 1000
   GOTO 10


100 REM                    [REVIEWS MENU]
   CLS
   MENU "exreview.gif", "123456Q", DEFAULT=4, TIMEOUT=60

   REM Keypress events returns a positive value in ITEM.

   IF ITEM = 1 THEN GOTO 110
   IF ITEM = 2 THEN GOTO 120
   IF ITEM = 3 THEN GOTO 130
   IF ITEM = 4 THEN GOTO 140
   IF ITEM = 5 THEN GOTO 150
   IF ITEM = 6 THEN GOTO 160
   IF ITEM = Q THEN GOTO 10
   goto 10

110 REM REVIEW #1
    PLAY "mk2-1.gif"
    GETKEY ""
    PLAY "mk2-2.gif"
    GETKEY ""
    PLAY "mk2-3.gif"
    GETKEY ""
    GOTO 100

120 REM REVIEW #2
    PLAY "RELENT-1.GIF"
    GETKEY ""
    PLAY "RELENT-2.GIF"
    GETKEY ""
    PLAY "RELENT-3.GIF"
    GETKEY ""
    GOTO 100

130 REM REVIEW #3
    PLAY "TERMTR-1.GIF"
    GETKEY ""
    PLAY "TERMTR-2.GIF"
    GETKEY ""
    PLAY "TERMTR-3.GIF"
    GETKEY ""
    GOTO 100

140 REM REVIEW #4
    PLAY "TBRA-1.GIF"
    GETKEY ""
    PLAY "TBRA-2.GIF"
    GETKEY ""
    PLAY "TBRA-3.GIF"
    GETKEY ""
    GOTO 100

200 REM                          [NEWS MENU]
   CLS
   MENU "exnews.gif", "123Q", DEFAULT=4, TIMEOUT=60

   REM Keypress events returns a positive value in ITEM.

   IF ITEM = 1 THEN GOTO 210
   IF ITEM = 2 THEN GOTO 220
   IF ITEM = 3 THEN GOTO 230
   IF ITEM = Q THEN GOTO 10
    goto 10

210 REM Razor Dead - Storm
    CLS
    PLAY "EXNOT.GIF"
    GETKEY ""
    goto 200

220 REM CAAST95 - Hawkeye
    CLS
    PLAY "EXNOT.GIF"
    GETKEY ""
    goto 200

230 REM EXTREME INFO ARTICLE - Storm, Hawkeye
    CLS
    PLAY "EXNOT.GIF"
    GETKEY ""
    goto 200

300 REM                        [INFORMATION MENU]
   CLS
   MENU "EXINFO.GIF", "1234Q", DEFAULT=4, TIMEOUT=60

   REM Keypress events returns a positive value in ITEM.

   IF ITEM = 1 THEN GOTO 310
   IF ITEM = 2 THEN GOTO 320
   IF ITEM = 3 THEN GOTO 330
   IF ITEM = 4 THEN GOTO 340
   IF ITEM = Q THEN GOTO 10
   GOTO 10

310 REM NOT AVAILABLE
   CLS
   PLAY "EXNOT.GIF"
   GETKEY ""
   GOTO 300

320 REM NOT AVAILABLE
   CLS
   PLAY "EXNOT.GIF"
   GETKEY ""
   GOTO 300

330 REM NOT AVAILABLE
   CLS
   PLAY "EXNOT.GIF"
   GETKEY ""
   GOTO 300

340 REM NOT AVAILABLE
   CLS
   PLAY "EXNOT.GIF"
   GETKEY ""
   GOTO 300

1000 REM The "EXIT" button
     CLS
  
   MENU "exdos.gif", "YN", DEFAULT=N, TIMEOUT=20

   REM Keypress events returns a positive value in ITEM.

   IF ITEM = 1 THEN GOTO 1500
   IF ITEM = 2 THEN GOTO 2000
   GOTO 10


1500 REM The "YES" button
     END

2000 REM The "NO" button
     GOTO 10

