CLS
'ERIC SWYNENBERG
'OHIO SMITH PROGRAM
'CONTROL MODULE
SCREEN 7
COLOR 15, 0
PRINT "MAKE SURE THE CAPS LOCK IS ON BEFORE YOU BEGIN THE GAME."
FOR HOLD = 1 TO 200000
NEXT HOLD
GOSUB TITLEPAGE
GOSUB PAGE1
GOSUB PAGE2
END

TITLEPAGE:
        CLS
        'PRINTS OHIO SMITH & GRAPHICS & ASKS IF WANT TO GO ON
        V1 = 20
        GOSUB GUN
        R = 1.4
        GOSUB BULLET
        BEEP
        GOSUB O2
       
        GOSUB GUN
        GOSUB O2
        R = 1.1
        GOSUB BULLET
        BEEP
        GOSUB I
        GOSUB O2
       
        GOSUB GUN1
        GOSUB I
        GOSUB O2
        R = .8
        GOSUB BULLET1
        BEEP
        GOSUB H
        GOSUB I
        GOSUB O2
       
        GOSUB GUN1
        GOSUB H
        GOSUB I
        GOSUB O2
        R = .6
        GOSUB BULLET1
        BEEP
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
       
        GOSUB GUN
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
        V1 = 70
        R = 2.2
        GOSUB BULLET
        BEEP
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
       
        GOSUB GUN
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
        R = 1.99
        GOSUB BULLET
        BEEP
        GOSUB T
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
       
        GOSUB GUN
        GOSUB T
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
        R = 1.7
        GOSUB BULLET
        BEEP
        GOSUB I2
        GOSUB T
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
       
        GOSUB GUN
        GOSUB I2
        GOSUB T
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
        R = 1.3
        GOSUB BULLET
        BEEP
        GOSUB M
        GOSUB I2
        GOSUB T
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
       
        GOSUB GUN1
        GOSUB M
        GOSUB I2
        GOSUB T
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
        R = .8
        GOSUB BULLET1
        BEEP
        GOSUB S
        GOSUB M
        GOSUB I2
        GOSUB T
        GOSUB H2
        GOSUB O
        GOSUB H
        GOSUB I
        GOSUB O2
       
        FOR HOLD = 1 TO 35000
        NEXT HOLD
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT "WOULD YOU LIKE TO GO ON "
        INPUT "TYPE YES OR NO"; ANSWER$
        IF ANSWER$ = "YES" OR ANSWER$ = "Y" THEN 10 ELSE GOSUB CHICKEN
10 RETURN

O:
        '"O" IN OHIO
        CIRCLE (100, 20), 15, 1
        CIRCLE (100, 20), 9, 1
        PAINT (112, 25), 1
RETURN

H:
        '"H" IN OHIO
        LINE (125, 40)-(130, 0), 1, BF
        LINE (130, 12)-(150, 17), 1, BF
        LINE (150, 0)-(145, 45), 1, BF
RETURN

I:
        '"I" IN OHIO
        LINE (160, 0)-(165, 40), 1, BF

RETURN

O2:
        'SECOND "O" IN OHIO
        CIRCLE (190, 20), 15, 1
        CIRCLE (190, 20), 9, 1
        PAINT (185, 27), 1
RETURN

S:
        '"S" IN SMITH
        PI = 4 * ATN(1)
        'LEFT S
        CIRCLE (90, 50), 10, 1, PI * 2, PI * 1.3
        CIRCLE (90, 70), 10, 1, PI * 1.2, PI * .4
        LINE (84, 57)-(93, 62), 1
        'RIGHT S
        CIRCLE (90, 50), 5, 1, PI * 2, PI * 1.3
        CIRCLE (90, 70), 15, 1, PI * 1.2, PI * .4
        LINE (88, 54)-(95, 58), 1
        'ENDS
        LINE (95, 50)-(100, 50), 1
        LINE (81, 75)-(77, 76), 1
        PAINT (90, 45), 1
RETURN

M:
        LINE (110, 45)-(115, 83), 1, BF
        LINE (115, 45)-(125, 60), 1
        LINE (115, 50)-(125, 65), 1
        LINE (125, 60)-(135, 47), 1
        LINE (125, 65)-(135, 54), 1
        LINE (135, 47)-(140, 85), 1, BF
        PAINT (124, 60), 1
RETURN

I2:
        LINE (145, 50)-(150, 87), 1, BF
RETURN

T:
        LINE (155, 50)-(175, 45), 1, BF
        LINE (162, 50)-(168, 85), 1, BF
RETURN

H2:
        LINE (180, 40)-(185, 83), 1, BF
        LINE (185, 62)-(200, 67), 1, BF
        LINE (200, 40)-(205, 80), 1, BF
RETURN

GUN:
        CLS
        LINE (0, 150)-(25, 135), 8
        LINE (0, 157)-(25, 142), 8
        CIRCLE (26.5, 138), 4, 8
        PAINT (0, 155), 8
        PAINT (26.5, 138), 0, 8
RETURN
               
GUN1:
        CLS
        LINE (0, 150)-(23, 130), 8
        LINE (0, 157)-(23, 137), 8
        CIRCLE (24.5, 133), 4, 8
        PAINT (0, 155), 8
        PAINT (24.5, 133), 0, 8
RETURN

BULLET:
        H = 26.5
        FOR V = 138 TO V1 STEP -1
        C = 8
        GOSUB BALL
        FOR HOLD = 1 TO 1000
        NEXT HOLD
        C = 0
        GOSUB BALL
        H = H + R
        NEXT V
        C = 0
        GOSUB BALL
RETURN

BULLET1:
        H = 26.5
        FOR V = 133 TO V1 STEP -1
        C = 8
        GOSUB BALL
        FOR HOLD = 1 TO 1000
        NEXT HOLD
        C = 0
        GOSUB BALL
        H = H + R
        NEXT V
        C = 0
        GOSUB BALL
RETURN

BALL:
        CIRCLE (H, V), 5, C
        PAINT (H, V), C, C
RETURN

CHICKEN:
        CLS
        PRINT "CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN"
        PRINT "CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN"
        PRINT "CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN"
        PRINT "CHICKEN CHICKEN CHICKEN CHICKEN CHICKEN"
        FOR HOLD = 1 TO 300000
        NEXT HOLD
        CLS
        PRINT "YOUR ARCH NEMESIS LIVES ON!!!"
        GOSUB LOSER1
        RETURN
LOSER1:
        CLS
        PRINT "AND YOUR FAMILY IS......."
        FOR HOLD = 1 TO 300000
        NEXT HOLD
        GOSUB DEATH
        CLS
        LINE (0, 30)-(20, 160), 4, BF
        PI = 4 * ATN(1)
        CIRCLE (0, 95), 79, 4, PI * 1.5, PI * .5
        CIRCLE (-10, 95), 58, 4, PI * 1.5, PI * .5
        PAINT (50, 95), 4
       
        LINE (100, 15)-(110, 95), 4, BF
        LINE (110, 15)-(140, 25), 4, BF
        LINE (110, 45)-(120, 55), 4, BF
        LINE (110, 95)-(140, 85), 4, BF
       
        LINE (180, 45)-(140, 145), 4
        LINE (180, 45)-(220, 145), 4
        LINE (180, 85)-(200, 145), 4
        LINE (180, 85)-(160, 145), 4
        LINE (160, 145)-(140, 145), 4
        LINE (200, 145)-(220, 145), 4
        LINE (190, 105)-(170, 115), 4, BF
        PAINT (180, 60), 4
       
        LINE (246, 30)-(266, 160), 4, BF
        CIRCLE (236, 95), 83, 4, PI * 1.6, PI * .4
        CIRCLE (236, 95), 58, 4, PI * 1.6, PI * .4
        PAINT (301, 95), 4
        FOR HOLD = 1 TO 40000
        NEXT HOLD
        GOSUB MOVELINE
        END
RETURN

MOVELINE:
        C = 4
        FOR Y = -300 TO 25
        GOSUB LINE1
        C = 4
        IF Y = -205 THEN GOSUB DEATH1
        FOR HOLD = 1 TO 1500
        NEXT HOLD
        GOSUB LINE1
        NEXT Y
        C = 4
        GOSUB LINE1
RETURN

LINE1:
        CIRCLE (160, Y), 350, 4, PI * 1.3, PI * 1.7
RETURN

PAGE1:
        CLS
        'GRAPHICS DOG HEAD
        GOSUB HEADOUTLINE
        GOSUB MOUTH
        GOSUB COLR
        FOR X = 1 TO 25
        GOSUB EYE
        NEXT X
        GOSUB PUPIL
        FOR HOLD = 1 TO 40000
        NEXT HOLD

        CLS
        PRINT "YOUR FAMILY WAS ABDUCTED BY THE GIANT"
        PRINT "RABID DOG WITH BIG BULGING EYES.  YOUR"
        PRINT "MISSION IS TO FIND THEM AND RETURN THEM TO SAFETY. "
        PRINT "ARE YOU SURE YOU WANT TO GO ON"
        INPUT ANSWER1$
        IF ANSWER1$ = "YES" OR ANSWER1$ = "Y" THEN 20 ELSE GOSUB CHICKEN
20 PRINT
        CLS
        PRINT "GOOD.  YOUR JOURNEY WILL NOT BE EASY. "
        PRINT "THERE ARE MANY DANGEROUS THINGS YOU MAY"
        PRINT "ENCOUNTER ALONG THE WAY. BEFORE YOU"
        PRINT "START ON YOUR JOURNEY THERE ARE SOME"
        PRINT "THINGS YOU MUST KNOW. THE GIANT RABID"
        PRINT "DOG WITH BIG BULGING EYES IS YOUR LONG"
        PRINT "TIME ARCH NEMESIS. YOU FOIL HIS EVIL"
        PRINT "SCHEMES EVERY TIME YOU ARE ON HIS CASE. "
        PRINT "HE FINALY HAS HAD ENOUGH AND IS GOING"
        PRINT "TO KILL YOUR FAMILY IN 2 HOURS. YOU MUST"
        PRINT "RESCUE THEM BEFORE THEN. MY NAME IS `Q'"
        PRINT "AT STRATEGIC POINTS THOUGHOUT THE GAME"
        PRINT "I WILL FIND YOU AND GIVE YOU GOODS THAT"
        PRINT "YOU MAY NEED."
        PRINT
        INPUT "PRESS ENTER TO GO ON.", A$
        CLS
        PRINT "YOU HAVE AN EMERGENCY SUPPLY THAT YOU"
        PRINT "WILL USE ONLY AN EMERGENCY."
        PRINT "THOSE SUPPLIES INCLUDE:"
        PRINT
        PRINT "#", "ITEM(S)"
        PRINT "2", " BANDAGES"
        PRINT "5 lbs.", " FOOD"
        PRINT "3", "SMELLING SALTS"
        PRINT "2 gal", "WATER"
        PRINT "1", "GUN"
        PRINT "15", "SHOTS"
        PRINT
        PRINT "GOOD LUCK AND HAPPY HUNTING!!!"
        PRINT
        PRINT "ARE YOU POSITIVELY SURE YOU WANT TO"
        INPUT "GO ON"; ANSWER$
        IF ANSWER$ = "YES" OR ANSWER$ = "Y" THEN 30 ELSE GOSUB CHICKEN
30 RETURN

HEADOUTLINE:
     LINE (160, 100)-(180, 60), 8
     LINE (180, 60)-(220, 60), 8
     LINE (280, 100)-(280, 140), 8
     LINE (280, 140)-(310, 170), 8
     LINE (310, 170)-(320, 170), 8
     LINE (280, 100)-(210, 10), 8
     LINE (210, 10)-(190, 30), 8
     LINE (190, 30)-(210, 30), 8
     LINE (210, 30)-(220, 60), 8
RETURN

MOUTH:
     CIRCLE (70, 52), 10, 8
     LINE (60, 180)-(60, 160), 8
     LINE (60, 160)-(160, 120), 8
     LINE (160, 120)-(60, 80), 8
     LINE (60, 180)-(170, 180), 8
     LINE (170, 180)-(190, 200), 8
     LINE (60, 80)-(60, 60), 8
     LINE (60, 60)-(80, 60), 8
     LINE (80, 60)-(160, 100), 8
     LINE (60, 160)-(65, 150), 8
     LINE (65, 150)-(69, 156), 8
     LINE (60, 80)-(65, 90), 8
     LINE (65, 90)-(69, 84), 8
     PAINT (65, 155), 16, 8
     PAINT (65, 85), 16, 8
RETURN

COLR:
     PAINT (319, 0), 16, 8
RETURN

EYE:
C = 1
GOSUB RETINA
FOR HOLD = 1 TO 5000
NEXT HOLD
C = 4
GOSUB RETINA
FOR HOLD = 1 TO 5000
NEXT HOLD
RETURN

RETINA:
     CIRCLE (170, 80), 10, C
     PAINT (176, 80), C
     RETURN

PUPIL:
     CIRCLE (170, 80), 5, 1
     PAINT (171, 80), 16, 1
RETURN

PAGE2:
        'CLS
        'PRINT "2:00"
        'PRINT
        'PRINT "THE TIMER HAS STARTED"
        'FOR HOLD = 1 TO 40000
        'NEXT HOLD
        CLS
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
       
        LINE (160, 0)-(160, 200), 0
        'PATH LESS TAKEN
        PI = 4 * ATN(1)
        CIRCLE (140, 40), 100, 9, PI * .6, PI * 1.2
        CIRCLE (180, 40), 100, 9, PI * .6, PI * 1.2
        CIRCLE (179, 40), 100, 9, PI * .6, PI * 1.2
        CIRCLE (181, 40), 100, 10, PI * .6, PI * 1.2
        CIRCLE (-22, 138), 100, 9, PI * 1.6, PI * .2
        CIRCLE (18, 138), 100, 9, PI * 1.6, PI * .2
        CIRCLE (17, 138), 100, 9, PI * 1.6, PI * .2
        CIRCLE (19, 138), 100, 10, PI * 1.6, PI * .2
        LINE (159, 0)-(159, 200), 10
        PAINT (60, 2), 9, 9
        PAINT (0, 0), 10, 9
        PAINT (100, 1), 10, 10
        LINE (20, 0)-(25, 200), 6, BF
        GOSUB TREES
        'PATH MORE TAKEN
        LINE (210, 0)-(270, 200), 8, BF
        LINE (235, 0)-(240, 20), 14, BF
        LINE (235, 30)-(240, 50), 14, BF
        LINE (235, 60)-(240, 80), 14, BF
        LINE (235, 90)-(240, 110), 14, BF
        LINE (235, 120)-(240, 140), 14, BF
        LINE (235, 150)-(240, 170), 14, BF
        LINE (235, 180)-(240, 200), 14, BF
        PRINT "PATH LESS TAKEN.     PATH MORE TAKEN.   "
        PRINT "DO YOU WANT TO TAKE THE PATH MORE TAKEN OR LESS TAKEN? ";
        INPUT "TYPE LESS OR MORE.", LES$
        IF LES$ <> "LESS" AND LES$ <> "MORE" THEN GOSUB PAGE3.3
        IF LES$ = "LESS" THEN GOSUB PAGE3.1
        IF LES$ = "MORE" THEN GOSUB PAGE3.2
RETURN

TREES:
        CIRCLE (105, 30), 15, 2
        PAINT (105, 30), 2
        LINE (102, 43)-(107, 56), 6, BF
        CIRCLE (140, 90), 15, 2
        PAINT (140, 90), 2
        LINE (137, 103)-(142, 115), 6, BF
        CIRCLE (135, 150), 15, 2
        PAINT (135, 150), 2
        LINE (132, 163)-(137, 176), 6, BF
RETURN

PAGE3.1:
        PRINT "YOU COME ACROSS A HOUSE IN THE MIDDLE OF THE WOODS."
        FOR HOLD = 1 TO 10000
        NEXT HOLD
        GOSUB COTTAGE
RETURN

COTTAGE:
        CLS
        LINE (0, 159)-(320, 159), 1
        PAINT (1, 1), 1
        PAINT (319, 199), 2, 1
        LINE (80, 80)-(240, 160), 6, BF
        LINE (90, 90)-(120, 110), 1, BF
        LINE (230, 90)-(200, 110), 1, BF
        LINE (145, 160)-(175, 130), 16, BF
        CIRCLE (170, 145), 2, 8
        PAINT (170, 145), 8, 8
        LINE (160, 40)-(60, 79), 0
        LINE (160, 40)-(260, 79), 0
        LINE (60, 79)-(260, 79), 0
        PAINT (160, 50), 0
        LINE (20, 161)-(50, 60), 6, BF
        CIRCLE (35, 30), 40, 2
        PAINT (35, 30), 2
        PRINT "YOU WALK UP TO THE HOUSE AND HEAR SHOUTING."
        FOR HOLD = 1 TO 10000
        NEXT HOLD
        PRINT "IT'S YOUR FAMILY!!"
        FOR HOLD = 1 TO 10000
        NEXT HOLD
        PRINT "YOU RUN INTO THE HOUSE UN TIE THEM AND RETURN THEM TO SAFETY!!"
        FOR HOLD = 1 TO 100000
        NEXT HOLD
        GOSUB WINNER
RETURN

WINNER:
        PI = 4 * ATN(1)
        CLS
        'FAMILY MEMBER 1
        CIRCLE (80, 80), 20, 14
        PAINT (80, 80), 14
        CIRCLE (70, 75), 2, 1
        PAINT (70, 75), 1
        CIRCLE (90, 75), 2, 1
        PAINT (90, 75), 1
        CIRCLE (80, 80), 2, 12, PI, PI * 2
        CIRCLE (80, 60), 30, 4, PI * 1.3, PI * 1.7
        'FAMILY MEMBER 2
        CIRCLE (125, 80), 20, 14
        PAINT (125, 80), 14
        CIRCLE (115, 75), 2, 1
        PAINT (115, 75), 1
        CIRCLE (135, 75), 2, 1
        PAINT (135, 75), 1
        CIRCLE (125, 80), 2, 12, PI, PI * 2
        CIRCLE (125, 80), 15, 4, PI * 1.3, PI * 1.7
        'FAMILY MEMBER 3
        CIRCLE (170, 80), 20, 14
        PAINT (170, 80), 14
        CIRCLE (160, 75), 2, 1
        PAINT (160, 75), 1
        CIRCLE (180, 75), 2, 1
        PAINT (180, 75), 1
        CIRCLE (170, 80), 2, 12, PI, PI * 2
        CIRCLE (170, 80), 10, 4, PI * 1.3, PI * 1.7
        CIRCLE (70, 75), 2, 1
        PAINT (70, 75), 1
        CIRCLE (90, 75), 2, 1
        PAINT (90, 75), 1
        CIRCLE (80, 80), 2, 12, PI, PI * 2
        CIRCLE (80, 60), 30, 4, PI * 1.3, PI * 1.7
        PRINT "THIS IS YOUR FAMILY!!!"
        PLAY "E8E6E6E8F#8G#8E6E6C#8B8C#8E14P18G#8B6B6B8B8C#8B6B6B8G#8B18P18G#8B6B6B8B8C#8B6B6G#8E8F#8E8E8E6E6F#8E8C#10G#8B14G#8F#10E8E18P18"
RETURN

PAGE3.2:
CLS
        CLS
        PRINT "YOU HAVE 1 HR. 30 MIN. TO FIND YOUR     FAMILY."
        FOR HOLD = 1 TO 200000
        NEXT HOLD
        CLS
        GOSUB MAN
        IF QUES$ = "KILL" THEN GOSUB PAGE3.21 ELSE IF QUES$ = "QUESTION" THEN GOSUB PAGE3.22
RETURN

MAN:
        CIRCLE (150, 60), 20, 16
        CIRCLE (143, 55), 2, 16
        CIRCLE (158, 55), 2, 16
        PAINT (143, 55), 16
        PAINT (158, 55), 16
        CIRCLE (143, 55), 1, 1
        PAINT (143, 55), 1
        CIRCLE (158, 55), 1, 1
        PAINT (158, 55), 1
        PSET (158, 55), 0
        PSET (143, 55), 0
        PI = 4 * ATN(1)
        CIRCLE (150, 60), 3, 16, PI * 1, PI * 2
        LINE (145, 70)-(155, 70), 4
        LINE (144, 76)-(144, 85), 16
        LINE (156, 76)-(156, 85), 16
        LINE (115, 85)-(185, 85), 16
        LINE (125, 95)-(175, 95), 16
        LINE (115, 85)-(125, 125), 16, B
        LINE (125, 86)-(125, 94), 0
        LINE (175, 85)-(185, 125), 16, B
        LINE (175, 86)-(175, 94), 0
        LINE (130, 95)-(170, 145), 16, B
        LINE (131, 95)-(169, 95), 0
        LINE (130, 128)-(170, 128), 16
        LINE (130, 145)-(140, 185), 16, B
        LINE (170, 145)-(160, 185), 16, B
        LINE (131, 145)-(139, 145), 0
        LINE (161, 145)-(169, 145), 0
        LINE (160, 191)-(170, 191), 16
        LINE (130, 191)-(140, 191), 16
        CIRCLE (162, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (168, 188), 4, 16, PI * 1.5, PI * .5
        CIRCLE (132, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (138, 188), 4, 16, PI * 1.5, PI * .5
        LINE (125, 50)-(175, 48), 6, BF
        LINE (138, 48)-(138, 40), 6
        LINE (162, 48)-(162, 40), 6
        CIRCLE (150, 40), 12, 6, PI * 2, PI * 1
        PAINT (150, 40), 6
        CIRCLE (120, 129), 5, 16
        CIRCLE (180, 129), 5, 16
        LINE (130, 128)-(170, 127), 6, B
        GOSUB TAIL
        PRINT "YOU ENCOUNTER A MAN."
        INPUT "DO YOU QUESTION HIM OR KILL HIM"; QUES$
RETURN

TAIL:
        FOR T = 135 TO 145
        C = 6
        V1 = 140
        FOR R = 134 TO 144
        C = 6
        GOSUB MOVETAIL
        C = 0
        FOR HOLD = 1 TO 900
        NEXT HOLD
        GOSUB MOVETAIL
        V = V + 1
        V1 = V1 + 1
        NEXT R
        C = 0
        GOSUB MOVETAIL
        C = 0
        V = 134
        V1 = 140
        FOR R = 144 TO 134 STEP -1
        C = 6
        GOSUB MOVETAIL
        C = 0
        FOR HOLD = 1 TO 1100
        NEXT HOLD
        GOSUB MOVETAIL
        V = V - 1
        V1 = V1 - 1
        NEXT R
        C = 6
        GOSUB MOVETAIL
        NEXT T
RETURN

MOVETAIL:
        LINE (182, R)-(171, 137), C
        LINE (182, R)-(171, 141), C
        LINE (182, R)-(171, 138), C
        LINE (182, R)-(171, 140), C
        LINE (182, R)-(171, 139), C
        CIRCLE (180, 129), 5, 16

RETURN


PAGE3.21:
        CLS
        PRINT "CONGATULATIONS MORON, YOU JUST KILLED   THE GIANT RABID DOG WITH BIG BULGING    EYES. HE DISGUISED HIMSELF AS A PERSON!!COULDN'T YOU SEE HIS TAIL? NOW YOU WILL NEVER KNOW WHERE YOUR FAMILY IS!!!"
        FOR HOLD = 1 TO 400000
        NEXT HOLD
        GOSUB LOSER
END
RETURN

LOSER:
        CLS
        PRINT "AND THEY WILL BE......."
        FOR HOLD = 1 TO 300000
        NEXT HOLD
        GOSUB DEATH
        CLS
        LINE (0, 30)-(20, 160), 4, BF
        PI = 4 * ATN(1)
        CIRCLE (0, 95), 79, 4, PI * 1.5, PI * .5
        CIRCLE (-10, 95), 58, 4, PI * 1.5, PI * .5
        PAINT (50, 95), 4
      
        LINE (100, 15)-(110, 95), 4, BF
        LINE (110, 15)-(140, 25), 4, BF
        LINE (110, 45)-(120, 55), 4, BF
        LINE (110, 95)-(140, 85), 4, BF
      
        LINE (180, 45)-(140, 145), 4
        LINE (180, 45)-(220, 145), 4
        LINE (180, 85)-(200, 145), 4
        LINE (180, 85)-(160, 145), 4
        LINE (160, 145)-(140, 145), 4
        LINE (200, 145)-(220, 145), 4
        LINE (190, 105)-(170, 115), 4, BF
        PAINT (180, 60), 4
      
        LINE (246, 30)-(266, 160), 4, BF
        CIRCLE (236, 95), 83, 4, PI * 1.6, PI * .4
        CIRCLE (236, 95), 58, 4, PI * 1.6, PI * .4
        PAINT (301, 95), 4
        FOR HOLD = 1 TO 40000
        NEXT HOLD
        GOSUB MOVELINE
        END
RETURN


PAGE3.22:
        CLS
        GOSUB HEADOUTLINE1
        GOSUB MOUTH1
        GOSUB COLR1
        FOR X = 1 TO 25
        GOSUB EYE
        NEXT X
        GOSUB PUPIL
        FOR HOLD = 1 TO 40000
        NEXT HOLD
        
        CLS
        PRINT "OH NO!!! UPON FURTHER INVESTIGATION YOU FIND THAT IT'S THE GIANT RABID DOG WITH BIG BULGING EYES!!"
        FOR HOLD = 1 TO 1500
        NEXT HOLD
        GOSUB MANDOG
RETURN

HEADOUTLINE1:
     LINE (160, 100)-(180, 60), 8
     LINE (180, 60)-(220, 60), 8
     LINE (280, 100)-(280, 140), 8
     LINE (280, 140)-(310, 170), 8
     LINE (310, 170)-(320, 170), 8
     LINE (280, 100)-(210, 10), 8
     LINE (210, 10)-(190, 30), 8
     LINE (190, 30)-(210, 30), 8
     LINE (210, 30)-(220, 60), 8
RETURN

MOUTH1:
     CIRCLE (70, 52), 10, 8
     LINE (60, 180)-(60, 160), 8
     LINE (60, 160)-(160, 120), 8
     LINE (160, 120)-(60, 80), 8
     LINE (60, 180)-(170, 180), 8
     LINE (170, 180)-(190, 200), 8
     LINE (60, 80)-(60, 60), 8
     LINE (60, 60)-(80, 60), 8
     LINE (80, 60)-(160, 100), 8
     LINE (60, 160)-(65, 150), 8
     LINE (65, 150)-(69, 156), 8
     LINE (60, 80)-(65, 90), 8
     LINE (65, 90)-(69, 84), 8
     PAINT (65, 155), 16, 8
     PAINT (65, 85), 16, 8
RETURN

COLR1:
     PAINT (319, 0), 8, 8
     CIRCLE (20, 8), 10, 0
     PAINT (20, 8), 0
     CIRCLE (40, 8), 20, 0
     PAINT (40, 8), 0
     CIRCLE (60, 10), 10, 0
     PAINT (65, 10), 0
     CIRCLE (70, 8), 20, 0
     PAINT (75, 8), 0
     CIRCLE (90, 10), 25, 0
     PAINT (95, 10), 0
     CIRCLE (115, 8), 45, 0
     PAINT (125, 8), 0
     CIRCLE (170, 10), 27, 0
     PAINT (170, 10), 0
     CIRCLE (249, 12), 30, 0
     PAINT (249, 12), 0
     CIRCLE (300, 7), 30, 0
     PAINT (300, 7), 0
     LINE (20, 18)-(24, 30), 14
     LINE (24, 30)-(27, 35), 14
     FOR HOLD = 1 TO 3600
     NEXT HOLD
     LINE (20, 18)-(24, 30), 8
     LINE (24, 30)-(27, 35), 8
     FOR HOLD = 1 TO 5000
     NEXT HOLD
     LINE (40, 28)-(33, 35), 14
     LINE (33, 35)-(43, 55), 14
     LINE (43, 55)-(40, 65), 14
     FOR HOLD = 1 TO 5000
     NEXT HOLD
     LINE (40, 28)-(33, 35), 8
     LINE (33, 35)-(43, 55), 8
     LINE (43, 55)-(40, 65), 8
     FOR HOLD = 1 TO 7000
     NEXT HOLD
     LINE (90, 38)-(105, 75), 14
     LINE (105, 75)-(85, 85), 14
     FOR HOLD = 1 TO 3500
     NEXT HOLD
     LINE (90, 38)-(105, 75), 8
     LINE (105, 75)-(85, 85), 0
     FOR HOLD = 1 TO 7000
     NEXT HOLD
     LINE (300, 37)-(320, 67), 14
     LINE (320, 67)-(290, 77), 14
     LINE (290, 77)-(310, 90), 14
     FOR HOLD = 1 TO 4855
     NEXT HOLD
     LINE (300, 37)-(320, 67), 8
     LINE (320, 67)-(290, 77), 8
     LINE (290, 77)-(310, 90), 8
     PAINT (1, 150), 14, 0
     PAINT (315, 80), 14, 0
     FOR HOLD = 1 TO 5200
     NEXT HOLD
     PAINT (1, 150), 8, 0
     PAINT (315, 80), 8, 0
     FOR HOLD = 1 TO 90000
     NEXT HOLD
     PAINT (1, 150), 14, 0
     PAINT (315, 80), 14, 0
     FOR HOLD = 1 TO 50000
     NEXT HOLD
     PAINT (1, 150), 8, 0
     PAINT (315, 80), 8, 0
RETURN

MANDOG:
        CLS
        PI = 4 * ATN(1)
        'PAINT (1, 1), 8
        'HEAD&EYES
        CIRCLE (150, 60), 20, 6
        PAINT (150, 60), 6
        CIRCLE (169, 50), 5, 0
        CIRCLE (169, 50), 4, 16, PI * .9, PI * 1.4
        CIRCLE (169, 50), 3, 1, PI * 1, PI * 1.4
        PSET (167, 51), 1
        LINE (147, 43)-(150, 36), 6
        LINE (150, 36)-(156, 38), 6
        LINE (150, 43)-(153, 40), 6
        LINE (152, 40)-(156, 38), 6
        PAINT (149, 42), 6

        'MOUTH&NOSE
        PI = 4 * ATN(1)
        LINE (163, 72)-(185, 72), 6
        LINE (171, 58)-(185, 58), 6
        CIRCLE (186, 65), 9, 6, PI * 1.5, PI * .5
        PAINT (186, 65), 6
        CIRCLE (190, 58), 2, 0, PI * 1.3, PI * 1.6
        PSET (189, 59), 0
        PSET (190, 59), 0
        CIRCLE (190, 63), 10, 4, PI * 1.2, PI * 1.6

        'NECK
        LINE (140, 76)-(140, 85), 6
        LINE (160, 76)-(160, 85), 6
        LINE (140, 84)-(160, 84), 6
        PAINT (145, 80), 6
      
        'BODY
        LINE (115, 85)-(185, 85), 16
        LINE (125, 95)-(175, 95), 16
        LINE (115, 85)-(125, 125), 16, B
        LINE (125, 86)-(125, 94), 0
        LINE (175, 85)-(185, 125), 16, B
        LINE (175, 86)-(175, 94), 0
        LINE (130, 95)-(170, 145), 16, B
        LINE (131, 95)-(169, 95), 0
        LINE (130, 128)-(170, 128), 16
        LINE (130, 145)-(140, 185), 16, B
        LINE (170, 145)-(160, 185), 16, B
        LINE (131, 145)-(139, 145), 0
        LINE (161, 145)-(169, 145), 0
       
        'FEET
        LINE (160, 191)-(170, 191), 16
        LINE (130, 191)-(140, 191), 16
        CIRCLE (162, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (168, 188), 4, 16, PI * 1.5, PI * .5
        CIRCLE (132, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (138, 188), 4, 16, PI * 1.5, PI * .5
       
        'HANDS&BELT
        CIRCLE (120, 129), 5, 16
        CIRCLE (180, 129), 5, 16
        LINE (130, 128)-(170, 127), 6, B
       
        'TAIL
        LINE (182, 134)-(171, 137), 6
        LINE (182, 134)-(171, 141), 6
        LINE (171, 137)-(171, 141), 6
        PAINT (172, 139), 6
        INPUT "DO YOU WISH TO SHOOT HIM OR HAVE A FIST FIGHT WITH HIM (FIST OR SHOOT)"; SHOOT$
        IF SHOOT$ <> "SHOOT" THEN PRINT "THE GIANT RABID DOG WITH BIG BULGING    EYES BIT YOUR HEAD OFF!!"
        FOR HOLD = 1 TO 15000
        NEXT HOLD
        IF SHOOT$ <> "SHOOT" THEN GOSUB LOSER1
        IF SHOOT$ = "SHOOT" THEN GOSUB SHOOT
RETURN



SHOOT:
        CLS
        PI = 4 * ATN(1)
        'PAINT (1, 1), 8
        'HEAD&EYES
        CIRCLE (150, 60), 20, 6
        PAINT (150, 60), 6
        CIRCLE (169, 50), 5, 0
        CIRCLE (169, 50), 4, 16, PI * .9, PI * 1.4
        CIRCLE (169, 50), 3, 1, PI * 1, PI * 1.4
        PSET (167, 51), 1
        LINE (147, 43)-(150, 36), 6
        LINE (150, 36)-(156, 38), 6
        LINE (150, 43)-(153, 40), 6
        LINE (152, 40)-(156, 38), 6
        PAINT (149, 42), 6

        'MOUTH&NOSE
        PI = 4 * ATN(1)
        LINE (163, 72)-(185, 72), 6
        LINE (171, 58)-(185, 58), 6
        CIRCLE (186, 65), 9, 6, PI * 1.5, PI * .5
        PAINT (186, 65), 6
        CIRCLE (190, 58), 2, 0, PI * 1.3, PI * 1.6
        PSET (189, 59), 0
        PSET (190, 59), 0
        CIRCLE (190, 63), 10, 4, PI * 1.2, PI * 1.6

        'NECK
        LINE (140, 76)-(140, 85), 6
        LINE (160, 76)-(160, 85), 6
        LINE (140, 84)-(160, 84), 6
        PAINT (145, 80), 6
     
        'BODY
        LINE (115, 85)-(185, 85), 16
        LINE (125, 95)-(175, 95), 16
        LINE (115, 85)-(125, 125), 16, B
        LINE (125, 86)-(125, 94), 0
        LINE (175, 85)-(185, 125), 16, B
        LINE (175, 86)-(175, 94), 0
        LINE (130, 95)-(170, 145), 16, B
        LINE (131, 95)-(169, 95), 0
        LINE (130, 128)-(170, 128), 16
        LINE (130, 145)-(140, 185), 16, B
        LINE (170, 145)-(160, 185), 16, B
        LINE (131, 145)-(139, 145), 0
        LINE (161, 145)-(169, 145), 0
      
        'FEET
        LINE (160, 191)-(170, 191), 16
        LINE (130, 191)-(140, 191), 16
        CIRCLE (162, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (168, 188), 4, 16, PI * 1.5, PI * .5
        CIRCLE (132, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (138, 188), 4, 16, PI * 1.5, PI * .5
      
        'HANDS&BELT
        CIRCLE (120, 129), 5, 16
        CIRCLE (180, 129), 5, 16
        LINE (130, 128)-(170, 127), 6, B
      
        'TAIL
        LINE (182, 134)-(171, 137), 6
        LINE (182, 134)-(171, 141), 6
        LINE (171, 137)-(171, 141), 6
        PAINT (172, 139), 6
        INPUT "DO YOU WISH TO KILL HIM OR INJURE HIM (KILL OR INJURE)"; INJUR$
        IF INJUR$ <> "INJURE" THEN PRINT "YOU IDIOT!! HE WAS THE ONLY ONE WHO KNEW WHERE YOUR FAMILY WAS!!"
        FOR HOLD = 1 TO 600
        NEXT HOLD
        IF INJUR$ <> "INJURE" THEN GOSUB LOSER1
        IF INJUR$ = "INJURE" THEN GOSUB INJURE
RETURN

INJURE:
        CLS
        PI = 4 * ATN(1)
        'PAINT (1, 1), 8
        'HEAD&EYES
        CIRCLE (150, 60), 20, 6
        PAINT (150, 60), 6
        CIRCLE (169, 50), 5, 0
        CIRCLE (169, 50), 4, 16, PI * .9, PI * 1.4
        CIRCLE (169, 50), 3, 1, PI * 1, PI * 1.4
        PSET (167, 51), 1
        LINE (147, 43)-(150, 36), 6
        LINE (150, 36)-(156, 38), 6
        LINE (150, 43)-(153, 40), 6
        LINE (152, 40)-(156, 38), 6
        PAINT (149, 42), 6

        'MOUTH&NOSE
        PI = 4 * ATN(1)
        LINE (163, 72)-(185, 72), 6
        LINE (171, 58)-(185, 58), 6
        CIRCLE (186, 65), 9, 6, PI * 1.5, PI * .5
        PAINT (186, 65), 6
        CIRCLE (190, 58), 2, 0, PI * 1.3, PI * 1.6
        PSET (189, 59), 0
        PSET (190, 59), 0
        CIRCLE (190, 63), 10, 4, PI * 1.2, PI * 1.6

        'NECK
        LINE (140, 76)-(140, 85), 6
        LINE (160, 76)-(160, 85), 6
        LINE (140, 84)-(160, 84), 6
        PAINT (145, 80), 6
     
        'BODY
        LINE (115, 85)-(185, 85), 16
        LINE (125, 95)-(175, 95), 16
        LINE (115, 85)-(125, 125), 16, B
        LINE (125, 86)-(125, 94), 0
        LINE (175, 85)-(185, 125), 16, B
        LINE (175, 86)-(175, 94), 0
        LINE (130, 95)-(170, 145), 16, B
        LINE (131, 95)-(169, 95), 0
        LINE (130, 128)-(170, 128), 16
        LINE (130, 145)-(140, 185), 16, B
        LINE (170, 145)-(160, 185), 16, B
        LINE (131, 145)-(139, 145), 0
        LINE (161, 145)-(169, 145), 0
      
        'FEET
        LINE (160, 191)-(170, 191), 16
        LINE (130, 191)-(140, 191), 16
        CIRCLE (162, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (168, 188), 4, 16, PI * 1.5, PI * .5
        CIRCLE (132, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (138, 188), 4, 16, PI * 1.5, PI * .5
      
        'HANDS&BELT
        CIRCLE (120, 129), 5, 16
        CIRCLE (180, 129), 5, 16
        LINE (130, 128)-(170, 127), 6, B
      
        'TAIL
        LINE (182, 134)-(171, 137), 6
        LINE (182, 134)-(171, 141), 6
        LINE (171, 137)-(171, 141), 6
        PAINT (172, 139), 6
        INPUT "WHERE DO YOU WANT TO SHOOT HIM (ABDOMEN, KNEE, OR FOOT)"; SHOT$
        IF SHOT$ <> "ABDOMEN" AND SHOT$ <> "KNEE" AND SHOT$ <> "FOOT" THEN END
        IF SHOT$ = "FOOT" THEN V = 188
        IF SHOT$ = "KNEE" THEN V = 158
        IF SHOT$ = "ABDOMEN" THEN V = 128
        GOSUB SHOT
RETURN

SHOT:
        CLS
        PI = 4 * ATN(1)
        'PAINT (1, 1), 8
        'HEAD&EYES
        CIRCLE (150, 60), 20, 6
        PAINT (150, 60), 6
        CIRCLE (169, 50), 5, 0
        CIRCLE (169, 50), 4, 16, PI * .9, PI * 1.4
        CIRCLE (169, 50), 3, 1, PI * 1, PI * 1.4
        PSET (167, 51), 1
        LINE (147, 43)-(150, 36), 6
        LINE (150, 36)-(156, 38), 6
        LINE (150, 43)-(153, 40), 6
        LINE (152, 40)-(156, 38), 6
        PAINT (149, 42), 6

        'MOUTH&NOSE
        PI = 4 * ATN(1)
        LINE (163, 72)-(185, 72), 6
        LINE (171, 58)-(185, 58), 6
        CIRCLE (186, 65), 9, 6, PI * 1.5, PI * .5
        PAINT (186, 65), 6
        CIRCLE (190, 58), 2, 0, PI * 1.3, PI * 1.6
        PSET (189, 59), 0
        PSET (190, 59), 0
        CIRCLE (190, 63), 10, 4, PI * 1.2, PI * 1.6

        'NECK
        LINE (140, 76)-(140, 85), 6
        LINE (160, 76)-(160, 85), 6
        LINE (140, 84)-(160, 84), 6
        PAINT (145, 80), 6
     
        'BODY
        LINE (115, 85)-(185, 85), 16
        LINE (125, 95)-(175, 95), 16
        LINE (115, 85)-(125, 125), 16, B
        LINE (125, 86)-(125, 94), 0
        LINE (175, 85)-(185, 125), 16, B
        LINE (175, 86)-(175, 94), 0
        LINE (130, 95)-(170, 145), 16, B
        LINE (131, 95)-(169, 95), 0
        LINE (130, 128)-(170, 128), 16
        LINE (130, 145)-(140, 185), 16, B
        LINE (170, 145)-(160, 185), 16, B
        LINE (131, 145)-(139, 145), 0
        LINE (161, 145)-(169, 145), 0
      
        'FEET
        LINE (160, 191)-(170, 191), 16
        LINE (130, 191)-(140, 191), 16
        CIRCLE (162, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (168, 188), 4, 16, PI * 1.5, PI * .5
        CIRCLE (132, 188), 4, 16, PI * .5, PI * 1.5
        CIRCLE (138, 188), 4, 16, PI * 1.5, PI * .5
      
        'HANDS&BELT
        CIRCLE (120, 129), 5, 16
        CIRCLE (180, 129), 5, 16
        LINE (130, 128)-(170, 127), 6, B
      
        'TAIL
        LINE (182, 134)-(171, 137), 6
        LINE (182, 134)-(171, 141), 6
        LINE (171, 137)-(171, 141), 6
        PAINT (172, 139), 6
        IF V = 128 THEN GOSUB GUN4
        IF V = 158 THEN GOSUB GUN5
        IF V = 188 THEN GOSUB GUN6
        CIRCLE (H, V1), 5, 4
        PAINT (H, V1), 4, 4
        GOSUB MAIMED
RETURN


GUN4:
        LINE (0, 130)-(23, 138), 8, BF
        CIRCLE (23, 134), 5, 8
        PAINT (24, 134), 8
        GOSUB BULLET3
RETURN

GUN5:
        LINE (0, 130)-(23, 135), 8
        LINE (0, 138)-(23, 143), 8
        CIRCLE (24, 139), 4, 8
        PAINT (24, 139), 8
        PAINT (0, 135), 8
        GOSUB BULLET4
RETURN


GUN6:
        LINE (0, 130)-(23, 145), 8
        LINE (0, 138)-(23, 153), 8
        CIRCLE (24, 149), 4, 8
        PAINT (24, 149), 8
        PAINT (0, 135), 8
        FOR HOLD = 1 TO 30000
        NEXT HOLD
        GOSUB BULLET5
RETURN

BULLET3:
        H = 23
        FOR V1 = 134 TO V STEP -1
        C = 8
        GOSUB BALL1
        FOR HOLD = 1 TO 2000
        NEXT HOLD
        C = 0
        GOSUB BALL1
        H = H + 16
        NEXT V1
        C = 0
        GOSUB BALL1
RETURN

BULLET4:
        H = 24
        FOR V1 = 139 TO V
        C = 8
        GOSUB BALL1
        FOR HOLD = 1 TO 2000
        NEXT HOLD
        C = 0
        GOSUB BALL1
        H = H + 5.3
        NEXT V1
        C = 0
        GOSUB BALL1
RETURN

BULLET5:
        H = 24
        FOR V1 = 149 TO V
        C = 8
        GOSUB BALL1
        FOR HOLD = 1 TO 2000
        NEXT HOLD
        C = 0
        GOSUB BALL1
        H = H + 2.8
        NEXT V1
        C = 0
        GOSUB BALL1
RETURN

BALL1:
        CIRCLE (H, V1), 5, C
        PAINT (H, V1), C, C
RETURN

MAIMED:
        PRINT "YOU SEARCH YOUR ARCH NEMESIS."
        PRINT "YOU ONLY HAVE 50 MIN. TO FIND YOUR FAMILY."
        PRINT "YOU FIND A MAP TO A CABIN IN THE WOODS."
        FOR HOLD = 1 TO 300000
        NEXT HOLD
        CLS
        PRINT "YOU QUICKLY RUN THERE."
        PRINT "YOU ONLY HAVE 20 MIN. TO RESCUE YOUR FAMILY!!"
        FOR HOLD = 1 TO 300000
        NEXT HOLD
        PRINT "YOU GET LOST AND STOP TO GET ORIENTED."
        FOR HOLD = 1 TO 300000
        NEXT HOLD
        GOSUB COTTAGE1
RETURN
       
COTTAGE1: 
        CLS
        LINE (0, 159)-(320, 159), 1
        PAINT (1, 1), 1
        PAINT (319, 199), 2, 1
        LINE (80, 80)-(240, 160), 6, BF
        LINE (90, 90)-(120, 110), 1, BF
        LINE (230, 90)-(200, 110), 1, BF
        LINE (145, 160)-(175, 130), 16, BF
        CIRCLE (170, 145), 2, 8
        PAINT (170, 145), 8, 8
        LINE (160, 40)-(60, 79), 0
        LINE (160, 40)-(260, 79), 0
        LINE (60, 79)-(260, 79), 0
        PAINT (160, 50), 0
        LINE (20, 161)-(50, 60), 6, BF
        CIRCLE (35, 30), 40, 2
        PAINT (35, 30), 2
        PRINT "YOU ONLY HAVE 30 SEC. LEFT!!"
        PRINT "YOU TRY TO UN TIE THEM, BUT IT IS TOO LATE!!"
        FOR HOLD = 1 TO 300000
        NEXT HOLD
        GOSUB EXPLOSION
RETURN

EXPLOSION:
        FOR D = 1 TO 300
        GOSUB BALL3
        FOR HOLD = 1 TO 500
        NEXT HOLD
        NEXT D
RETURN

BALL3:
        CIRCLE (160, 150), D, C
        PAINT (160, 150), C, C
RETURN

PAGE3.3:
        CLS
        PRINT "SINCE YOU DID NOT CHOOSE A VALID PATH, I WILL CHOOSE ONE FOR YOU."
        FOR HOLD = 1 TO 100000
        NEXT HOLD
        RANDOMIZE TIMER
        HI = 2
        LO = 1
        FOR X = 1 TO 1
        R1 = RND * (HI - LO) * HI + LO
        R2 = INT(R1)
        IF R2 = 1 THEN 40 ELSE IF R2 = 2 THEN 50
        NEXT X
40      PRINT
        PRINT "YOU WILL TAKE THE PATH LESS TAKEN."
        FOR HOLD = 1 TO 400000
        NEXT HOLD
        GOSUB PAGE3.1
        GOTO 60
50      PRINT
        PRINT "YOU WILL TAKE THE PATH MORE TAKEN."
        FOR HOLD = 1 TO 400000
        NEXT HOLD
        GOSUB PAGE3.2
60 RETURN

DEATH:
        SLEEP 1
        MUSIC$ = "MBT180o2P2P8L8GGGL2E"
        PLAY MUSIC$
        WHILE PLAY(0) > 5: WEND
RETURN

DEATH1:
        SLEEP 1
        MUSIC1$ = "P24P8L8FFFL2D"
        PLAY MUSIC1$
        WHILE PLAY(0) > 5: WEND
RETURN