'===========================================================================
' Subject: CRYSTAL CAVES                     Date: 07-04-96 (16:16)       
' Author:  Enrique A. Compan Gzz             Code: QB, QBasic, PDS        
' Origin:  scompain@ccr.dsi.uanl.mx        Packet: GAMES.ABC
'===========================================================================
'                             Crystal Caves v1.0
'                       ---------------------------------
'                           by Enrique A. Compa¤, 1996
'                        http://ccr.dsi.uanl.mx/~SCOMPAIN
'                           <scompain@ccr.dsi.uanl.mx>

DECLARE SUB Ylose ()
DECLARE SUB Instruc ()
DECLARE SUB Level1 ()
DECLARE SUB About ()
DECLARE SUB Magic ()
DECLARE SUB Delay (t!)
DECLARE SUB Intro (dat)
DECLARE SUB Menu ()
DECLARE SUB Arena (c)
DECLARE SUB Level2 ()
DECLARE SUB Level3 ()
DECLARE SUB Level4 ()
DECLARE SUB Level5 ()
DECLARE SUB Tloa ()
DECLARE SUB His ()

'Initialize
RANDOMIZE TIMER
DIM SHARED Lives(2)
DIM SHARED Score(2)
Lives(1) = 50
Score(1) = 0
Score = 0
Intro (0)

Magic
CLS

Menu
Instruc
SLEEP
Level1

SUB About
Intro (0)
CLS
END SUB

SUB Arena (c)
CLS
COLOR c
LOCATE 1, 1
PRINT STRING$(80, 220)
FOR a = 2 TO 22
LOCATE a, 1
PRINT CHR$(219)
LOCATE a, 80
PRINT CHR$(219)
NEXT a
LOCATE 23, 1
PRINT STRING$(80, 223)
END SUB

SUB Delay (t!)
FOR d = 1 TO t
NEXT d
END SUB

SUB His
Arena (12)
COLOR 3
LOCATE 3, 4: PRINT "I don't really know who is the best..."
SLEEP
END SUB

SUB Instruc
Arena (12)
COLOR 14
LOCATE 2, 3: PRINT "Instructions:"
LOCATE 5, 3: PRINT "Use the 'A' and the 'Z' key to move the character. You win when you touch the"
LOCATE 6, 3: PRINT "Û sign (door).Becarefull of the '*' signs."
END SUB

SUB Intro (dat)
CLS
LOCATE 2, 31
COLOR 14
FOR a = 1 TO 26
LOCATE 2, a
PRINT "Crystal Caves v1.0"
SOUND 880, .1
Delay 200
LOCATE 2, a
PRINT " "
NEXT a
LOCATE 2, a
PRINT "Crystal Caves v1.0"
Delay 3000
COLOR 2
FOR a = 1 TO 23
LOCATE 5, a: PRINT "By Enrique A. Compa¤ Gzz."
LOCATE 6, a: PRINT "         1996            "
SOUND 880, .1
Delay 200
LOCATE 5, a: PRINT " "
LOCATE 6, a: PRINT " "
NEXT a
LOCATE 5, a: PRINT "by Enrique A. Compa¤ Gzz."
LOCATE 6, a: PRINT "         1996            "
Delay 3000
FOR a = 1 TO 24
COLOR 12
LOCATE 9, a: PRINT "Send contributions to:"
COLOR 4
LOCATE 11, a: PRINT "Enrique A. Compa¤ Gzz."
LOCATE 12, a: PRINT "Justo Sierra 315 Col. San Jemo"
LOCATE 13, a: PRINT "C.P. 64630"
LOCATE 14, a: PRINT "Monterrey, N.L."
LOCATE 15, a: PRINT "Mexico"
SOUND 880, .1
Delay 200
LOCATE 9, a: PRINT " "
LOCATE 11, a: PRINT " "
LOCATE 12, a: PRINT " "
LOCATE 13, a: PRINT " "
LOCATE 14, a: PRINT " "
LOCATE 15, a: PRINT " "
NEXT a
COLOR 12
LOCATE 9, a: PRINT "Send contributions to:"
COLOR 4
LOCATE 11, a: PRINT "Enrique A. Compa¤ Gzz."
LOCATE 12, a: PRINT "Justo Sierra 315 Col. San Jemo"
LOCATE 13, a: PRINT "C.P. 64630"
LOCATE 14, a: PRINT "Monterrey, N.L."
LOCATE 15, a: PRINT "Mexico"
COLOR 3
LOCATE 20, 30: PRINT "Good luck!..."
IF dat = 1 THEN COLOR 7, 0: END
SLEEP
END SUB

SUB Level1
Arena (1)
5
IF Lives(1) = -1 THEN Ylose
a = 14
b = 6
COLOR 9
LOCATE 12, 5: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
LOCATE 13, 5: PRINT "³         *   *   *   *      *       *            ³"
LOCATE 14, 5: PRINT "³          *       *          *       *    *     ³"
LOCATE 15, 5: PRINT "³         *   *   *   *      *           *        ³"
LOCATE 16, 5: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 14
LOCATE 14, 54: PRINT CHR$(219)
COLOR 2
LOCATE 10, 6: PRINT "Level 1 - Dark Cave"
COLOR 12
LOCATE 2, 3: PRINT "LIVES:"
LOCATE 3, 3: PRINT "SCORE:"
IF sco = 1 THEN GOTO Skip3
COLOR 3
LOCATE 14, 45
PRINT CHR$(15)
Skip3:
IF co = 1 THEN GOTO Skip1
COLOR 4
LOCATE 13, 54: PRINT CHR$(3)
Skip1:
COLOR 2
LOCATE a, b: PRINT CHR$(2)
Delay 800
10
LOCATE 2, 9: PRINT Lives(1)
LOCATE 3, 9: PRINT Score(1)
SELECT CASE INKEY$
CASE "A", "a"
LOCATE a, b: PRINT " ": a = a - 1
CASE "Z", "z"
LOCATE a, b: PRINT " ": a = a + 1
CASE CHR$(27): Intro (1)
END SELECT
Delay 1200
SOUND 440, .1
LOCATE a, b
PRINT " "
IF b = 55 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 13 AND b = 15 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 13 AND b = 19 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 13 AND b = 23 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 13 AND b = 27 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 13 AND b = 34 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 13 AND b = 42 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 14 AND b = 17 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 14 AND b = 25 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 14 AND b = 36 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 14 AND b = 44 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 14 AND b = 49 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 15 AND b = 15 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 15 AND b = 19 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 15 AND b = 23 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 15 AND b = 27 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 15 AND b = 34 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 15 AND b = 46 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 14 AND b = 54 THEN SOUND 440, 1: Delay 15000: Level2
IF a = 12 OR a = 16 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 5
IF a = 13 AND b = 54 THEN
IF co = 1 THEN GOTO Skip
SOUND 440, 1: Lives(1) = Lives(1) + 1: LOCATE 2, 9: PRINT Lives(1): co = 1
END IF
IF a = 14 AND b = 45 THEN
IF sco = 1 THEN GOTO Skip
SOUND 440, 1: Score(1) = Score(1) + 100: LOCATE 3, 9: PRINT Score(1): sco = 1
END IF
Skip:
15
b = b + 1
LOCATE a, b
PRINT CHR$(2)
GOTO 10
END SUB

SUB Level2
Arena (9)
6
IF Lives(1) = -1 THEN Ylose
a = 14
b = 6
COLOR 9
LOCATE 12, 5: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
LOCATE 13, 5: PRINT "³      *     *  *          *           *          ³"
LOCATE 14, 5: PRINT "³       * *     *  *       *    *      *    *    ³"
LOCATE 15, 5: PRINT "³        *         *           *                  ³"
LOCATE 16, 5: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 12
LOCATE 14, 51: PRINT CHR$(219)
COLOR 2
LOCATE 10, 6: PRINT "Level 2 - Y Chaos"
COLOR 12
LOCATE 2, 3: PRINT "LIVES:"
LOCATE 3, 3: PRINT "SCORE:"
COLOR 2
LOCATE a, b: PRINT CHR$(2)
Delay 800
20
LOCATE 2, 9: PRINT Lives(1)
LOCATE 3, 9: PRINT Score(1)
SELECT CASE INKEY$
CASE "A", "a"
LOCATE a, b: PRINT " ": a = a - 1
CASE "Z", "z"
LOCATE a, b: PRINT " ": a = a + 1
CASE CHR$(27): Intro (1)
END SELECT
Delay 1200
SOUND 440, .1
LOCATE a, b
PRINT " "
IF b = 55 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 12 OR a = 16 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 13 AND b = 12 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 13 AND b = 18 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 13 AND b = 21 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 13 AND b = 32 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 13 AND b = 44 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 14 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 16 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 22 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 25 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 33 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 38 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 45 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 50 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 15 AND b = 14 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 15 AND b = 24 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 15 AND b = 36 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 6
IF a = 14 AND b = 51 THEN SOUND 440, 1: Delay 15000: Level3
b = b + 1
LOCATE a, b
PRINT CHR$(2)
GOTO 20
END SUB

SUB Level3
Arena (8)
7
IF Lives(1) = -1 THEN Ylose
a = 14
b = 6
COLOR 15
LOCATE 12, 5: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
LOCATE 13, 5: PRINT "³     ******     *     * *           *     *      ³"
LOCATE 14, 5: PRINT "³      *   *  *   *     *         *      *       ³"
LOCATE 15, 5: PRINT "³         *       *        *     * *              ³"
LOCATE 16, 5: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 5
LOCATE 14, 48: PRINT CHR$(219)
COLOR 2
LOCATE 10, 6: PRINT "Level 3 - Histeria"
COLOR 12
LOCATE 2, 3: PRINT "LIVES:"
LOCATE 3, 3: PRINT "SCORE:"
IF catre = 1 THEN GOTO skip4
COLOR 3
LOCATE 14, 29
PRINT CHR$(15)
skip4:
COLOR 2
LOCATE a, b: PRINT CHR$(2)
Delay 800
30
LOCATE 2, 9: PRINT Lives(1)
LOCATE 3, 9: PRINT Score(1)
SELECT CASE INKEY$
CASE "A", "a"
LOCATE a, b: PRINT " ": a = a - 1
CASE "Z", "z"
LOCATE a, b: PRINT " ": a = a + 1
CASE CHR$(27): Intro (1)
END SELECT
Delay 1200
SOUND 440, .1
LOCATE a, b
PRINT " "
IF b = 55 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 12 OR a = 16 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 11 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 12 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 13 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 14 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 15 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 16 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 22 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 28 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 30 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 42 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 13 AND b = 48 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 14 AND b = 13 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 14 AND b = 17 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 14 AND b = 20 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 14 AND b = 24 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 14 AND b = 30 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 14 AND b = 40 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 14 AND b = 47 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 15 AND b = 15 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 15 AND b = 23 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 15 AND b = 32 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 15 AND b = 38 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 15 AND b = 40 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 7
IF a = 14 AND b = 48 THEN SOUND 440, 1: Delay 15000: Level4
IF a = 14 AND b = 29 THEN
IF catre = 1 THEN GOTO skip5
SOUND 440, 1: Score(1) = Score(1) + 100: LOCATE 3, 9: PRINT Score(1): catre = 1
END IF
skip5:
b = b + 1
LOCATE a, b
PRINT CHR$(2)
GOTO 30
END SUB

SUB Level4
Arena (6)
8
IF Lives(1) = -1 THEN Ylose
a = 14
b = 6
COLOR 2
LOCATE 12, 5: PRINT "ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
LOCATE 13, 5: PRINT "³   *   *     *     *    *     *     *      *     ³"
LOCATE 14, 5: PRINT "³    * *       *      *         * *       * *    ³"
LOCATE 15, 5: PRINT "³   *     *    *       *         *       *        ³"
LOCATE 16, 5: PRINT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
COLOR 5
LOCATE 14, 49: PRINT CHR$(219)
COLOR 2
LOCATE 10, 6: PRINT "Level 4 - Green"
COLOR 12
LOCATE 2, 3: PRINT "LIVES:"
LOCATE 3, 3: PRINT "SCORE:"
COLOR 2
LOCATE a, b: PRINT CHR$(2)
Delay 800
40
LOCATE 2, 9: PRINT Lives(1)
LOCATE 3, 9: PRINT Score(1)
SELECT CASE INKEY$
CASE "A", "a"
LOCATE a, b: PRINT " ": a = a - 1
CASE "Z", "z"
LOCATE a, b: PRINT " ": a = a + 1
CASE CHR$(27): Intro (1)
END SELECT
Delay 1200
SOUND 440, .1
LOCATE a, b
PRINT " "
IF b = 55 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 12 OR a = 16 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 49 THEN SOUND 440, 1: Delay 15000: Level5
IF a = 13 AND b = 9 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 13 AND b = 13 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 13 AND b = 19 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 13 AND b = 30 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 13 AND b = 36 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 13 AND b = 42 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 13 AND b = 49 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 11 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 13 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 21 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 13 AND b = 25 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 28 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 38 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 40 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 48 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 14 AND b = 50 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 15 AND b = 9 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 15 AND b = 15 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 15 AND b = 20 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 15 AND b = 28 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 15 AND b = 38 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
IF a = 15 AND b = 46 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 8
b = b + 1
LOCATE a, b
PRINT CHR$(2)
GOTO 40
END SUB

SUB Level5
Arena (5)
9
IF Lives(1) = -1 THEN Ylose
a = 14
b = 6
COLOR 3
LOCATE 7, 30: PRINT "ÉÍÍ Ë É» Ë ÉÍ» Ë   ±Û±Û "
LOCATE 8, 30: PRINT "ÌÍÍ º ºÈ»º Ì͹ º   Û±Û± "
LOCATE 9, 30: PRINT "Ê   Ê Ê È¼ Ê Ê ÈÍÍ ±Û±Û "
COLOR 14
LOCATE 12, 5: PRINT "³~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~³"
LOCATE 13, 5: PRINT "³     @   @   @   @  @     @      @      @        ³"
LOCATE 14, 5: PRINT "³      @       @      @     @   @     @      @  
³"
LOCATE 15, 5: PRINT "³         @ @     @    @    @      @      @       ³"
LOCATE 16, 5: PRINT "³~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~³"
COLOR 5
LOCATE 14, 54: PRINT CHR$(2)
COLOR 2
LOCATE 10, 6: PRINT "Level 5 - Final Cave"
COLOR 12
LOCATE 2, 3: PRINT "LIVES:"
LOCATE 3, 3: PRINT "SCORE:"
COLOR 2
LOCATE a, b: PRINT CHR$(2)
Delay 800
50
LOCATE 2, 9: PRINT Lives(1)
LOCATE 3, 9: PRINT Score(1)
SELECT CASE INKEY$
CASE "A", "a"
LOCATE a, b: PRINT " ": a = a - 1
CASE "Z", "z"
LOCATE a, b: PRINT " ": a = a + 1
CASE CHR$(27): Intro (1)
END SELECT
Delay 1200
SOUND 440, .1
LOCATE a, b
PRINT " "
IF b = 55 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 12 OR a = 16 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 14 AND b = 54 THEN Tloa
IF a = 13 AND b = 11 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 13 AND b = 15 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 13 AND b = 19 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 13 AND b = 23 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 13 AND b = 26 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 13 AND b = 32 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 13 AND b = 39 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 13 AND b = 46 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 14 AND b = 13 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 14 AND b = 21 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 14 AND b = 28 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 14 AND b = 34 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 14 AND b = 38 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 14 AND b = 44 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 14 AND b = 51 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 15 AND b = 15 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 15 AND b = 17 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 15 AND b = 23 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 15 AND b = 28 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 15 AND b = 33 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 15 AND b = 40 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
IF a = 15 AND b = 47 THEN BEEP: Lives(1) = Lives(1) - 1: GOTO 9
b = b + 1
LOCATE a, b
PRINT CHR$(2)
GOTO 50
END SUB

SUB Magic
COLOR 3
b = 1
DO
FOR a = 1 TO 80
LOCATE b, a
PRINT CHR$(178)
Delay 25
NEXT a
b = b + 1
LOOP UNTIL b = 24
Delay 5000
COLOR 0
b = 23
DO
FOR a = 1 TO 80
LOCATE b, a
PRINT CHR$(178)
Delay 25
NEXT a
b = b - 1
LOOP UNTIL b = 0
COLOR 7
END SUB

SUB Menu
COLOR 3
LOCATE 2, 15: PRINT "ÉÍÍ ÉÍ» Ë ÉÍÍ ÍËÍ ÉÍ» Ë      ÉÍÍ ÉÍ» Ë  Ë ÉÍÍ ÉÍÍ"
LOCATE 3, 15: PRINT "º   Ì͹ º ÈÍ»  º  Ì͹ º      º   Ì͹ Ȼɼ ÌÍÍ ÈÍ»"
LOCATE 4, 15: PRINT "ÈÍÍ Ê È Ê Íͼ  Ê  Ê Ê ÈÍÍ    ÈÍÍ Ê Ê  ȼ  ÈÍÍ Íͼ"
COLOR 14
LOCATE 10, 25: PRINT "ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸"
LOCATE 11, 25: PRINT "³                           ³"
LOCATE 12, 25: PRINT "³                           ³"
LOCATE 13, 25: PRINT "³                           ³"
LOCATE 14, 25: PRINT "³                           ³"
LOCATE 15, 25: PRINT "³                           ³"
LOCATE 16, 25: PRINT "³                           ³"
LOCATE 17, 25: PRINT "³                           ³"
LOCATE 18, 25: PRINT "ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;"
COLOR 12
LOCATE 11, 30: PRINT "1 - Play Game"
LOCATE 13, 30: PRINT "2 - View HI-SCORES"
LOCATE 15, 30: PRINT "3 - About..."
LOCATE 17, 30: PRINT "4 - Quit"
DO
SELECT CASE INKEY$
CASE "1": EXIT SUB
CASE "2": His: CLS : Menu
CASE "3": About: Menu
CASE "4": Intro (1)
END SELECT
LOOP
SLEEP
END SUB

SUB Tloa
CLS
Arena (12)
COLOR 3
LOCATE 2, 25
PRINT "You are the Champion!"
LOCATE 4, 25
COLOR 14
PRINT "You are the Crystal Cave's Champion!"
LOCATE 6, 25
COLOR 2
PRINT "Congratulations!"
PLAY "<<mnced"
END
END SUB

SUB Ylose
BEEP
Arena (2)
COLOR 14
LOCATE 10, 10
PRINT "You lose!!!!!!"
SLEEP
CLS
END
END SUB