CLS
'CATALINA OROSTEGUI
'OHIO'S TRIP
SCREEN 13
PI = 4 * ATN(1)
GOSUB OHIO
GOSUB CLOWN
GOSUB MOVE
GOSUB STARS
GOSUB LAST1
GOSUB H
GOSUB GAME
GOSUB PEOPLE
GOSUB HOUSE
END

STARS:
FOR X = 1 TO 200
PSET (H * RND, H * RND), RND * 16
CIRCLE (H * 10, H * 10), RND * 16
NEXT X
RETURN

OHIO:
CIRCLE (50, 40), 8, 1
CIRCLE (50, 40), 30, 1
PAINT (50, 60), 4, 1
LINE (90, 18)-(105, 65), 1, BF
LINE (105, 37)-(125, 44), 1, BF
LINE (125, 18)-(140, 65), 1, BF
LINE (150, 18)-(165, 65), 1, B
PAINT (158, 40), 4, 1
CIRCLE (205, 40), 8, 1
CIRCLE (205, 40), 30, 1
PAINT (205, 60), 1, 1
GOSUB MUSIC
RETURN

MUSIC:
PLAY "MB"
PLAY "C8 D8 E8 C8 D8 E4 C8 D8 C8 E8 C8 D8 E4 C8 D8 C8 E8 C8 D8 E4 C8 D4 C4"
RETURN

MOVE:
FOR H = 40 TO 400
C = 15
GOSUB CLOWN
C = 0
FOR HOLD = 1 TO 5
NEXT HOLD
GOSUB CLOWN
NEXT H
C = 15
GOSUB CLOWN
RETURN

CLOWN:
CIRCLE (H, 90), 20, C
PAINT (H, 90), 2, C
CIRCLE (H - 9, 85), 2, C
PAINT (H - 9, 85), 1, C
CIRCLE (H + 8, 85), 2, C
PAINT (H + 8, 85), 1, C
CIRCLE (H, 92), 3, C
PAINT (H, 92), 4, C
CIRCLE (H, 90), 15, C, PI * 1, PI * 2
CIRCLE (H + 20, 90), 3, C, PI * 1.5, PI * .5
CIRCLE (H - 20, 90), 3, C, PI * .5, PI * 1.5
LINE (H, 73)-(H - 5, 65), C
LINE (H, 73)-(H + 5, 65), C
LINE (H, 73)-(H - 10, 65), C
LINE (H, 73)-(H, 65), C
LINE (H, 73)-(H + 12, 65), C
LINE (H - 5, 106)-(H + 5, 115), C, B
LINE (H - 20, 115)-(H + 20, 145), C, B
CIRCLE (H, 120), 3, C
PAINT (H, 120), RND * 16, C
CIRCLE (H, 128), 3, C
PAINT (H, 128), RND * 16, C
CIRCLE (H, 136), 3, C
PAINT (H, 136), RND * 16, C
LINE (H - 30, 175)-(H - 20, 145), C
LINE (H - 30, 175)-(H - 5, 175), C
LINE (H - 5, 175)-(H - 2, 160), C
LINE (H - 2, 160)-(H + 3, 175), C
LINE (H + 3, 175)-(H + 29, 175), C
LINE (H + 29, 175)-(H + 20, 145), C
CIRCLE (H + 16, 180), 5, C
PAINT (H + 16, 180), 5, C
CIRCLE (H - 18, 180), 5, C
PAINT (H - 18, 180), 5, C
LINE (H - 35, 120)-(H - 20, 120), C
LINE (H - 32, 120)-(H - 35, 116), C
LINE (H - 32, 120)-(H - 35, 123), C
LINE (H + 20, 120)-(H + 39, 120), C
LINE (H + 35, 120)-(H + 38, 116), C
LINE (H + 35, 120)-(H + 38, 123), C
IF INKEY$ <> "" THEN GOSUB H
RETURN



LAST1:
PRINT "WELCOME TO OHIO'S JOURNEY"
PRINT "TURN CAPS LOCK ON"
PRINT "READY TO WIN?"
SLEEP 1
RETURN

H:
LINE (20, 90)-(20, 150), 7
LINE (20, 90)-(40, 90), 7
LINE (40, 90)-(40, 115), 7
LINE (40, 115)-(55, 115), 7
LINE (55, 115)-(55, 90), 7
LINE (55, 90)-(75, 90), 7
LINE (75, 90)-(75, 150), 7
LINE (75, 150)-(55, 150), 7
LINE (55, 150)-(55, 130), 7
LINE (55, 130)-(40, 130), 7
LINE (40, 130)-(40, 150), 7
LINE (40, 150)-(20, 150), 7
PAINT (40, 120), 14, 7
'U:
LINE (90, 90)-(90, 130), 7
LINE (146, 90)-(146, 130), 7
CIRCLE (118, 128), 28, 7, PI * 1, PI * 2
LINE (90, 90)-(105, 90), 7
LINE (146, 90)-(131, 90), 7
LINE (131, 90)-(131, 122), 7
LINE (105, 90)-(105, 122), 7
CIRCLE (118, 123), 13, 7, PI * 1, PI * 2
PAINT (120, 135), 14, 7
'N:
LINE (160, 90)-(160, 150), 7
LINE (160, 90)-(175, 90), 7
LINE (175, 90)-(195, 130), 7
LINE (195, 130)-(195, 90), 7
LINE (195, 90)-(213, 90), 7
LINE (213, 90)-(213, 150), 7
LINE (213, 150)-(195, 150), 7
LINE (195, 150)-(178, 125), 7
LINE (178, 125)-(178, 150), 7
LINE (178, 150)-(160, 150), 7
PAINT (165, 100), 14, 7
't:
LINE (250, 105)-(250, 150), 7
LINE (250, 105)-(228, 105), 7
LINE (228, 105)-(228, 90), 7
LINE (228, 90)-(290, 90), 7
LINE (250, 150)-(270, 150), 7
LINE (270, 150)-(270, 105), 7
LINE (270, 105)-(290, 105), 7
LINE (290, 105)-(290, 90), 7
PAINT (260, 110), 14, 7
SLEEP 2
PLAY "E8 D8 C8 D8 E8 E8 E4 D8 D8 D4 E8 G8 G8 P8 E8 D8 C8 D8 E8 E8 E8 E8 D8 D8 E8 D8 C4"
IF INKEY$ <> "" THEN GOSUB GAME
RETURN

GAME:
CLS
COLOR 4
PRINT "WELCOME TO THE MOUSE HUNT"
PRINT "YOU'RE ENCOURAGED TO GET JERRY,"
PRINT "BUT YOU GOT TO BE SMART!!"
PRINT "THE LABERYNTH HAS ONLY ONE WAY TO"
PRINT "FINALLY REACH YOUR MEAL!!!!"
PRINT "GOOD LUCK TOM!"
'CAT:
CIRCLE (160, 140), 40, 7
CIRCLE (160, 81), 30, 7
LINE (150, 58)-(140, 50), 7
LINE (140, 50)-(139, 63), 7
LINE (170, 58)-(175, 48), 7
LINE (175, 48)-(180, 62), 7
CIRCLE (148, 75), 3, 7
CIRCLE (172, 75), 3, 7
CIRCLE (160, 85), 4, 7
CIRCLE (160, 85), 20, 4, PI * 1, PI * 2
SLEEP 3
GOSUB MOVE1
GOSUB QUESTION
IF INKEY$ <> "" THEN GOSUB QUESTION
END

MOVE1:
FOR H = 40 TO 400: C = 15
F = 4: GOSUB MOUSE: C = 0
F = 0: GOSUB MOUSE: NEXT H
C = 15: F = 0: GOSUB MOUSE
RETURN

MOVE3:
LOCATE 10, 10
FOR H = 10 TO 400: C = 15
F = 4: GOSUB MOUSE2: C = 0
F = 0: GOSUB MOUSE2: NEXT H
C = 15: F = 0: GOSUB MOUSE2
RETURN

MOUSE:
CIRCLE (H, 160), 15, C
CIRCLE (H + 10, 153), 10, C, PI * 1.7, PI * .8
CIRCLE (H - 10, 153), 10, C, PI * .2, PI * 1.3
CIRCLE (H - 5, 155), 2, C
CIRCLE (H + 5, 155), 2, C
CIRCLE (H, 160), 1, C
PAINT (H - 5, 155), 9, C
PAINT (H + 5, 155), 9, C
CIRCLE (H, 163), 5, F, PI * 1, PI * 2
CIRCLE (H - 25, 170), 5, C, PI, PI * 1.8
CIRCLE (H - 35, 170), 5, C, 0, PI
CIRCLE (H + 15, 170), 5, C, 0, PI * 2, .5
CIRCLE (H - 15, 170), 5, C, 0, PI * 2, .5
CIRCLE (H - 60, 170), RND * 20, C   '  <<< SMOKE
RETURN

MOUSE2:
CIRCLE (H, 50), 15, C
CIRCLE (H + 10, 43), 10, C, PI * 1.7, PI * .8
CIRCLE (H - 10, 43), 10, C, PI * .2, PI * 1.3
CIRCLE (H - 5, 45), 2, C
CIRCLE (H + 5, 45), 2, C
CIRCLE (H, 50), 1, C
PAINT (H - 5, 45), 9, C
PAINT (H + 5, 45), 9, C
CIRCLE (H, 53), 5, F, PI * 1, PI * 2
CIRCLE (H - 25, 60), 5, C, PI, PI * 1.8
CIRCLE (H - 35, 60), 5, C, 0, PI
CIRCLE (H + 15, 60), 5, C, 0, PI * 2, .5
CIRCLE (H - 15, 60), 5, C, 0, PI * 2, .5
CIRCLE (H - 60, 60), RND * 20, C   '  <<< SMOKE
RETURN

QUESTION:
CLS
COLOR 56
LOCATE 10, 5
10 INPUT "DO YOU WANT TO PLAY Y, N"; LETT$
IF LETT$ = "y" THEN PRINT "TURN CAPS LOCK ON"
IF LETT$ = "y" THEN GOTO 10
IF LETT$ = "Y" THEN GOSUB READY ELSE PRINT "BYE, BYE"
RETURN

READY:
FOR X = 1 TO 1000
PSET (H * RND, H * RND), RND * 16
CIRCLE (H * 400, H * 400), RND * 16
CIRCLE (H * 200, H * 200), RND * 16
NEXT X
SLEEP 1
CLS
COLOR 34
LOCATE 12, 14
PRINT "ARE YOU READY?": SLEEP 1
LOCATE 14, 18
PRINT "SET": SLEEP 1
LOCATE 16, 18
PRINT "GO!!"
IF INKEY$ <> "" THEN GOSUB PEOPLE
GOSUB MOVE1
GOSUB MOVE3
GOSUB PEOPLE
END

PEOPLE:
CLS
GOSUB BACK
GOSUB LIQUES
RETURN

BACK:
'LINDA:CLS
SCREEN 13
GOSUB MOVE2
PLAY "F16 F16 G16 A16 F16 A16 G8 F16 F16 G16 A8 F16 E8 F16 F16 G16 A16 B-16 A16 G16 F16 E16 C16 D16 E16 F8 F8"
CIRCLE (40, 60), 20, 7 '<<<HEAD
CIRCLE (30, 55), 2, 2'<<<EYES
CIRCLE (50, 55), 2, 2
CIRCLE (40, 60), 1, 7
CIRCLE (40, 65), 5, 4, PI, PI * 2
CIRCLE (40, 40), 3, 7'<<<MOĽO
LINE (37, 40)-(30, 35), 7
LINE (30, 35)-(30, 45), 7
LINE (43, 40)-(50, 35), 7
LINE (50, 35)-(50, 45), 7
PAINT (40, 40), 1, 7
PAINT (35, 42), 4, 7
PAINT (47, 42), 4, 7
LINE (40, 78)-(40, 130), 7'<<<BODY
LINE (40, 100)-(5, 85), 7
LINE (40, 100)-(75, 90), 7
LINE (40, 130)-(60, 175), 7
LINE (40, 130)-(20, 175), 7
LINE (28, 160)-(53, 160), 7
PAINT (40, 158), 4, 7
LINE (0, 40)-(80, 20), 2'<<MOUNT
LINE (80, 20)-(145, 40), 2
LINE (100, 55)-(190, 30), 2
LINE (190, 30)-(310, 70), 2
CIRCLE (280, 30), 25, 7
PAINT (280, 30), 14, 7
RETURN


MOVE2:
FOR H = -280 TO -60
C = 15
F = 4
GOSUB CAT2
C = 0
F = 0
FOR HOLD = 1 TO 50
NEXT HOLD
GOSUB CAT2
NEXT H
C = 15
F = 4
GOSUB CAT2
RETURN

CAT2:
CIRCLE (H + 220, 140), 40, C
CIRCLE (H + 220, 81), 30, C
LINE (H + 210, 58)-(H + 200, 50), C
LINE (H + 200, 50)-(H + 199, 63), C
LINE (H + 230, 58)-(H + 235, 48), C
LINE (H + 235, 48)-(H + 240, 62), C
CIRCLE (H + 207, 75), 3, C '<<<EYES
CIRCLE (H + 230, 75), 3, C
CIRCLE (H + 220, 85), 3, C
CIRCLE (H + 220, 85), 20, F, PI * 1, PI * 2
RETURN

LIQUES:
SCREEN 13
COLOR 1
PRINT "HEY, TOM! I'M LINDA I'M HERE TO GIVE"
PRINT "YOU CLUES ABOUT JERRY... ANSWER THE"
PRINT "FOLLOWING QUESTION TO BEGIN WITH"
PRINT "YOUR HUNT"
SLEEP 5
GOSUB QU
RETURN

QU:
CLS
SCREEN 12
PRINT "THIS ARE QUESTIONS ABOUT JERRY'S FRIENDS"
PRINT "WHAT'S THE NAME OF THE BIRD THAT SILVESTER WANTS TO EAT?"
PRINT "1. WITTY"
PRINT "2. PLUTO"
PRINT "3. TWEETY"
PRINT "4. RINKY"
INPUT PET
IF PET <> 3 THEN GOSUB TRY1
GOSUB BACK
PRINT "GOOD JOB TOM!!!"
PRINT "NOW YOU CAN CONTINUE, WHERE DO YOU THINK"
PRINT "JERRY WENT...  HIS HOUSE(1) OR THE FOOD STAND(2)"
INPUT SELECTION
IF SELECTION = 1 THEN GOSUB HOUSE ELSE GOSUB FOOD
RETURN


TRY1:
CLS
SCREEN 13
PLAY "MB"
PLAY "E8 "
SCREEN 13
COLOR 44
LOCATE 12, 15
PRINT "TRY AGAIN"
COLOR 44
LOCATE 14, 8
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP 1
B = 20
DO
FOR B = 1 TO 600 STEP 20
 FOR I = 1 TO 10
  CIRCLE (B, 20), 10, RND * 16
CIRCLE (B, 170), 10, RND * 16
   NEXT I
NEXT B
LOOP UNTIL INKEY$ <> ""
GOSUB LASTMOUSE
SLEEP 6
CLS
GOSUB QU
RETURN

LOOSER:
SCREEN 13
CLS
LOCATE 12, 15
COLOR 45
PRINT "SORRY, YOU LOST"
GOSUB EFECT
SLEEP 1
CLS
GOSUB QUESTION2
RETURN

QUESTION2:
LOCATE 12, 15
30 PRINT "WOULD YOU LIKE TO"
INPUT "PLAY AGAIN (Y) OR (N)"; A$
IF A$ = "Y" THEN GOSUB PEOPLE ELSE GOSUB GOOD
IF A$ = "y" THEN PRINT "TURN CAPS LOCK ON"
IF A$ = "y" THEN GOTO 30
CLS
RETURN

GOOD:
CLS
LOCATE 12, 15
COLOR 123
PRINT "GOOD BYE, LOSER"
END

EFECT:
CLS
SCREEN 13
PLAY "MB"
PLAY "E8 "
SCREEN 13
COLOR 44
LOCATE 12, 15
PRINT "MAYBE NEXT TIME"
COLOR 44
LOCATE 14, 8
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP 1
B = 20
DO
FOR B = 1 TO 600 STEP 20
 FOR I = 1 TO 10
  CIRCLE (B, 20), 10, RND * 16
CIRCLE (B, 170), 10, RND * 16
   NEXT I
NEXT B
LOOP UNTIL INKEY$ <> ""
GOSUB LASTMOUSE
SLEEP 6
CLS
RETURN

HOUSE:
CLS
PLAY "G18 A18 B18 C18 D18 D18 D16 D18 C18 B18 A18 G18 G18 G16"
COLOR 143
PRINT "WELCOME TO JERRY'S HOUSE"
LINE (100, 20)-(180, 60), 37, B'<<<PICTURE
LINE (100, 130)-(210, 140), 67, BF'<<<TABLE
LINE (100, 140)-(110, 170), 67, BF
LINE (200, 140)-(210, 170), 67, BF
CIRCLE (150, 121), 10, 7, PI * .7, PI * .3'<<JAR
LINE (145, 113)-(145, 105), 7
LINE (155, 113)-(155, 105), 7
LINE (145, 105)-(155, 105), 7
LINE (147, 105)-(144, 98), 7'<<FLOWERS
PAINT (150, 121), 187, 7
CIRCLE (144, 95), 2, 7'<<BOLA
PAINT (144, 95), 14, 7
CIRCLE (140, 93), 3, 4, PI * .1, PI * 1.6'<<PETALOS1
CIRCLE (148, 93), 3, 4, PI * 1.4, PI * .9
CIRCLE (148, 98), 3, 4, PI * 1.2, PI * .3
CIRCLE (140, 98), 3, 4, PI * .7, PI * 1.9
LINE (152, 105)-(157, 98), 7'<<FLOWERS
CIRCLE (158, 95), 2, 7'<<BOLA
PAINT (158, 95), 14, 7
CIRCLE (155, 93), 3, 78, PI * .1, PI * 1.5'<<PETALOS2
CIRCLE (162, 93), 3, 78, PI * 1.4, PI * .9
CIRCLE (162, 98), 3, 78, PI, PI * .3
CIRCLE (154, 98), 3, 78, PI * .7, PI * 1.9
LINE (10, 170)-(80, 70), 7, B'<<TELESTAND
LINE (10, 130)-(80, 130), 7
LINE (45, 130)-(45, 170), 7'<<DIVIDES
PAINT (40, 145), 23, 7
PAINT (50, 145), 23, 7
CIRCLE (40, 140), 3, 7
PAINT (40, 140), 231, 7
CIRCLE (50, 140), 3, 7
PAINT (50, 140), 231, 7
LINE (20, 130)-(70, 90), 56, B'<<TELE
LINE (20, 125)-(70, 125), 56
LINE (45, 90)-(35, 80), 56
LINE (45, 90)-(55, 80), 56
LINE (220, 170)-(310, 50), 7, B'<<DOOR
LINE (265, 50)-(265, 170), 7
PAINT (225, 55), 187, 7
PAINT (275, 60), 187, 7
CIRCLE (260, 110), 3, 7
PAINT (260, 110), 251, 7'<<BLACK
CIRCLE (270, 110), 3, 7
PAINT (270, 110), 251, 7
CIRCLE (150, 40), 15, C'<<<MOUSE
CIRCLE (160, 33), 10, C, PI * 1.7, PI * .8
CIRCLE (140, 33), 10, C, PI * .2, PI * 1.3
CIRCLE (145, 35), 2, C
CIRCLE (155, 35), 2, C
CIRCLE (150, 40), 1, C
PAINT (145, 35), 9, C
PAINT (155, 35), 9, C
CIRCLE (150, 43), 5, F, PI * 1, PI * 2
CIRCLE (125, 50), 5, C, PI, PI * 1.8
CIRCLE (115, 50), 5, C, 0, PI
CIRCLE (135, 50), 5, C, 0, PI * 2, .5
CIRCLE (165, 50), 5, C, 0, PI * 2, .5
SLEEP 2
CLS
SCREEN 13
COLOR 73
LOCATE 12, 15
PRINT "WHERE DO YOU THINK"
LOCATE 14, 18
PRINT "JERRY IS HIDING?"
PRINT
PRINT "1.INSIDE THE ROOM"
PRINT "2.IN THE T.V"
INPUT NOM
IF NOM = 1 THEN GOSUB ROOM ELSE GOSUB TELE
RETURN

TELE:
CLS
LINE (60, 40)-(230, 160), 56, B'<<TELE
LINE (60, 140)-(230, 140), 56
LINE (145, 40)-(135, 10), 56
LINE (145, 40)-(155, 10), 56
LOCATE 12, 14
COLOR 12
PRINT "WARNER BROS"
LOCATE 14, 16
PRINT "PRESENTS THE"
COLOR 32
LOCATE 16, 18
PRINT "ROAD RUNNER"
PLAY "MS"
PLAY "G8 P36 G8"
SLEEP 2
GOSUB EXPLOSION
RETURN

EXPLOSION:
CLS
FOR R = 1 TO 150
S = 0
GOSUB BOLA
S = 7
GOSUB BOLA
NEXT R
S = 0
GOSUB BOLA
SLEEP 2
GOSUB LOW
END

BOLA:
CIRCLE (160, 100), R, S
PAINT (160, 100), S, S
RETURN

LOW:
CLS
LOCATE 12, 15
COLOR 4
PRINT "JERRY HAS MADE A JOKE ON YOU"
PRINT "THE T.V EXPLODED ON YOUR FACE"
SLEEP 2
GOSUB LOOSER
RETURN

ROOM:
CLS
LINE (20, 20)-(80, 140), 32, B
CIRCLE (70, 80), 5, 24
LINE (110, 20)-(170, 140), 32, B
CIRCLE (160, 80), 5, 24
LINE (190, 20)-(250, 140), 32, B
CIRCLE (240, 80), 5, 24
LOCATE 10, 7
COLOR 4
PRINT "1"
LOCATE 10, 18
PRINT "2"
LOCATE 10, 28
PRINT "3"
LOCATE 20, 7
COLOR 4
40 INPUT "BEHIND WHICH DOOR IS JERRY HIDING"; N
IF N = 1 THEN GOSUB MONSTER1
IF N = 2 THEN GOSUB FIRE
IF N = 3 THEN GOSUB WINNER
IF N <> 1 AND N <> 2 AND N <> 3 THEN GOTO 40
RETURN

MONSTER1:
CLS
LINE (140, 40)-(110, 55), 7'>>>SCAR
LINE (130, 43)-(135, 45), 7
LINE (118, 46)-(128, 50), 7
LINE (110, 50)-(120, 53), 7
CIRCLE (150, 65), 50, 7, PI * .05, PI'>>>HEAD
LINE (100, 65)-(130, 140), 7
LINE (200, 55)-(170, 140), 7
CIRCLE (150, 140), 20, 7, PI, PI * 2'>>>CHIN
CIRCLE (150, 120), 20, 7, O, PI * 2, 2'>>>MOUTH
PAINT (160, 100), 234, 7
CIRCLE (125, 70), 14.5, 0, 0, PI * 2, 2
PAINT (125, 70), 0, 0
CIRCLE (175, 70), 14.5, 0, 0, PI * 2, 2
PAINT (175, 70), 0, 0
LINE (143, 105)-(143, 115), 7'<<<TEETH
LINE (140, 115)-(143, 115), 7
PAINT (141, 114), 14, 7
LINE (147, 115)-(147, 100), 7
LINE (147, 115)-(151, 115), 7
LINE (151, 115)-(151, 100), 7
PAINT (150, 114), 14, 7
LINE (155, 115)-(155, 102), 7
LINE (155, 115)-(159, 115), 7
PAINT (156, 114), 14, 7
LINE (143, 130)-(143, 135), 7
LINE (143, 130)-(147, 130), 7
LINE (147, 130)-(147, 138), 7
PAINT (145, 134), 14, 7
LINE (151, 130)-(155, 130), 7
LINE (151, 130)-(151, 140), 7
LINE (155, 130)-(155, 139), 7
PAINT (152, 133), 14, 7
LOCATE 22, 15
COLOR 4
PRINT "HA, HA, HA, HA!!!"
PRINT "I'M GONNA EAT YA!!"
DO'<<<EYES
FOR B = 125 TO 125.1
 CIRCLE (B, 70), 15, RND * 16, 0, PI * 2, 2
CIRCLE (B + 50, 70), 15, RND * 16, 0, PI * 2, 2
   NEXT B
LOOP UNTIL INKEY$ <> ""
GOSUB QUESTION2
RETURN

FIRE:
CLS
SCREEN 13
FOR C = 1 TO 100
FOR delay = 1 TO 1500
NEXT delay
FOR RADIUS = 1 TO 100
CIRCLE (150, 100), RADIUS, C
NEXT RADIUS
NEXT C
SLEEP 3
LOCATE 12, 15
PRINT "JERRY LEFT A BOMB FOR YOU"
SLEEP 2
GOSUB EFECT
GOSUB GOOD
RETURN

WINNER:
CLS
LOCATE 12, 9
COLOR 36
PRINT "JERRY LEFT YOU A LETTER!!"
SLEEP 2
CLS
LINE (100, 20)-(200, 170), 7, B
LOCATE 4, 14
PRINT "HI TOM!"
LOCATE 5, 14
PRINT "LET'S SEE"
LOCATE 6, 14
PRINT "IF YOU CAN"
LOCATE 7, 14
PRINT "FINALLY"
LOCATE 8, 14
PRINT "CATCH ME"
LOCATE 8, 14
PRINT "GO TO THE"
LOCATE 9, 14
PRINT "FOOD STAND"
LOCATE 10, 14
PRINT "DO YOU WANT"
LOCATE 11, 14
PRINT "TO TAKE THE"
LOCATE 12, 14
PRINT "TRUCK(1), OR"
LOCATE 13, 14
PRINT "THE PLANE(2)"
LOCATE 18, 16
COLOR 1
PRINT "JERRY"
LOCATE 20, 15
INPUT TRA
IF TRA = 1 THEN GOSUB TRUCK ELSE GOSUB PLANE
RETURN

TRUCK:
CLS
SCREEN 13
GOSUB HORI1
HORI1:
C = 2
FOR H = 10 TO 350
C = 2
GOSUB CARRO
C = 0
FOR HOLD = 1 TO 1000
NEXT HOLD
GOSUB CARRO
NEXT H
C = 2
GOSUB CARRO
GOSUB FOOD
END

CARRO:
CLS
CIRCLE (20, 20), 10, 1'<<CLOUDS
PAINT (20, 20), 1
CIRCLE (40, 10), 10, 1
PAINT (40, 10), 1
CIRCLE (40, 20), 10, 1
PAINT (40, 20), 1
CIRCLE (50, 10), 10, 1
PAINT (50, 10), 1
CIRCLE (60, 20), 20, 1
PAINT (60, 20), 1
CIRCLE (80, 20), 10, 1
PAINT (80, 20), 1
CIRCLE (90, 10), 10, 1
PAINT (90, 10), 1
CIRCLE (100, 20), 10, 1
PAINT (100, 20), 1
PAINT (53, 15), 1
PAINT (85, 20), 1
CIRCLE (230, 10), 10, 14'<<SUN
PAINT (230, 10), 14, 14
LINE (0, 75)-(350, 75), 7
PI = 4 * ATN(1)
CIRCLE (H + 85, 65), 10, C, PI * 0, PI * 1
CIRCLE (H + 30, 65), 10, C, PI * 0, PI * 1
LINE (H + 40, 65)-(H + 75, 65), C
LINE (H + 95, 65)-(H + 110, 65), C
LINE (H + 110, 65)-(H + 110, 45), C
LINE (H + 110, 45)-(H + 90, 45), C'<<<
LINE (H + 90, 45)-(H + 75, 35), C
LINE (H + 75, 35)-(H + 55, 35), C
LINE (H + 55, 35)-(H + 55, 65), C
LINE (H + 55, 45)-(H + 10, 45), C
LINE (H + 10, 45)-(H + 10, 65), C
LINE (H + 10, 65)-(H + 20, 65), C
CIRCLE (H + 85, 65), 10, C
CIRCLE (H + 30, 65), 10, C
CIRCLE (H + 67, 55), 2, C
PAINT (H + 47, 55), 1, C
PAINT (H + 80, 50), 4, C
PAINT (H + 40, 50), 4, C
PAINT (H + 85, 65), 178, C
PAINT (H + 30, 65), 178, C
RETURN

PLANE:
CLS
GOSUB STARS2
C = 1 '<<CLOUDS
H = 20
FOR X = 1 TO 3
CIRCLE (H, 20), 10, C
PAINT (H, 20), C
CIRCLE (H + 20, 10), 10, C
PAINT (H + 20, 10), C
CIRCLE (H + 20, 20), 10, C
PAINT (H + 20, 20), C
CIRCLE (H + 30, 10), 10, C
PAINT (H + 30, 10), C
CIRCLE (H + 40, 20), 20, C
PAINT (H + 40, 20), C
CIRCLE (H + 60, 20), 10, C
PAINT (H + 60, 20), C
CIRCLE (H + 70, 10), 10, C
PAINT (H + 70, 10), C
CIRCLE (H + 80, 20), 10, C
PAINT (H + 80, 20), C
PAINT (H + 33, 15), C
PAINT (H + 65, 20), C
GOSUB MOAIR
RETURN

MOAIR:
H = H + 100
NEXT X
C = 34
FOR H = -100 TO 400
C = 34
GOSUB AIRPLANE
C = 0
GOSUB AIRPLANE
NEXT H
C = 34
GOSUB AIRPLANE
GOSUB STARS2
SLEEP 1
GOSUB FOOD
RETURN

AIRPLANE:
HPLANE = 50
HPLANE2 = 55
LINE (H, 120)-(H + 150, 120), C
LINE (H + 10, 128)-(H + 10, 120), C'<<<WHEELS
CIRCLE (H + 10, 130), 2, C
PAINT (H + 10, 130), 23, C
LINE (H + 20, 123)-(H + 20, 120), C
CIRCLE (H + 20, 125), 2, C
PAINT (H + 20, 125), 23, C
LINE (H + 120, 128)-(H + 120, 120), C
CIRCLE (H + 120, 130), 2, C
PAINT (H + 120, 130), 23, C
PI = 4 * ATN(1)'<<NOSE
LINE (H + 155, 90)-(H + 190, 105), 34
LINE (H + 150, 120)-(H + 190, 105), 34
CIRCLE (H + 150, 100), 5, 34 '<<<CABINA
LINE (H + 154, 90)-(H, 90), C'<<<WINGS
LINE (H, 90)-(H - 10, 90), C
LINE (H - 10, 110)-(H - 10, 90), C
LINE (H - 10, 110)-(H, 120), C
LINE (H + 50, 90)-(H + 50, 50), C
LINE (H + 50, 50)-(H + 75, 90), C
LINE (H + 50, 120)-(H + 50, 160), C
LINE (H + 50, 160)-(H + 75, 120), C
LINE (H - 10, 90)-(H - 10, 65), C'<<SPOILER
LINE (H - 10, 65)-(H + 5, 90), C
7 PAINT (H - 5, 80), 4, C
PAINT (H + 150, 95), 4, C
PAINT (H + 60, 140), 4, C
PAINT (H + 55, 60), 4, C
LINE (H + 20, 95)-(H + 25, 98), 34, B'<<WINDOWS
LINE (H + 30, 95)-(H + 35, 98), 34, B
LINE (H + 40, 95)-(H + 45, 98), 34, B
LINE (H + 50, 95)-(H + 55, 98), 34, B
LINE (H + 60, 95)-(H + 65, 98), 34, B
LINE (H + 70, 95)-(H + 75, 98), 34, B
LINE (H + 80, 95)-(H + 85, 98), 34, B
LINE (H + 90, 95)-(H + 95, 98), 34, B
LINE (H + 100, 95)-(H + 105, 98), 34, B
LINE (H + 110, 95)-(H + 115, 98), 34, B
LINE (H + 120, 95)-(H + 125, 98), 34, B
RETURN

STARS2:
FOR STAR = 1 TO 50
X = RND * 320
Y = RND * 200
PSET (X, Y), 15
FOR HOLD = 1 TO 100
NEXT HOLD
NEXT STAR
RETURN

FOOD:
CLS
PLAY "MB"
PLAY "F8 F4 C8 F8 G4 P8 A8 G8 A8 B-8 A4 G8 F8 F4 E8 D8 E8 F8 G8 A8 E4 D10 C16 C2"
COLOR 123
PRINT "THE FOOD STAND"
GOSUB MMILK
GOSUB MWATERMELON
GOSUB MCHEESE
GOSUB LETTER1
RETURN

CHEESE:
CIRCLE (40 - H, 40), 30, C, PI * 1.5, PI * 1.2'<<<CHEESE
LINE (40 - H, 40)-(15 - H, 55), C
LINE (40 - H, 40)-(40 - H, 65), C
PAINT (40 - H, 30), D, C
CIRCLE (45 - H, 35), 3, C
PAINT (45 - H, 35), F, C
CIRCLE (25 - H, 43), 3, C
PAINT (25 - H, 43), F, C
CIRCLE (50 - H, 55), 3, C
PAINT (50 - H, 55), F, C
CIRCLE (25 - H, 25), 3, C
PAINT (25 - H, 25), F, C
RETURN

MCHEESE:
FOR H = 120 TO 0 STEP -1
C = 7
D = 14
F = 251
GOSUB CHEESE
C = 0
D = 14
F = 251
FOR HOLD = 1 TO 400
NEXT HOLD
GOSUB CHEESE
NEXT H
C = 7
D = 14
F = 251
GOSUB CHEESE
RETURN
WATERMELON:
CIRCLE (130 - H, 35), 40, C, PI, PI * 2'<<<WATERMELON
CIRCLE (130 - H, 40), 40, C, PI, PI * 2
PAINT (130 - H, 70), X, C
CIRCLE (133 - H, -85), 150, 7, PI * 1.41, PI * 1.58'<<ARC
PAINT (130 - H, 45), D, C
CIRCLE (130 - H, 45), 3, C
PAINT (130 - H, 45), F, C
CIRCLE (150 - H, 50), 3, C
PAINT (150 - H, 50), F, C
CIRCLE (110 - H, 48), 3, C
PAINT (110 - H, 48), F, C
CIRCLE (130 - H, 60), 3, C
PAINT (130 - H, 60), F, C
RETURN

MWATERMELON:
FOR H = 180 TO 0 STEP -1
C = 7
D = 4
F = 251
X = 2
GOSUB WATERMELON
C = 0
D = 0
F = 0
X = 0
FOR HOLD = 1 TO 400
NEXT HOLD
GOSUB WATERMELON
NEXT H
C = 7
D = 4
F = 251
X = 2
GOSUB WATERMELON
RETURN

MILK:
CIRCLE (230 - H, 60), 20, C, PI * .7, PI * .3'<<MILKJAR
CIRCLE (230 - H, 20), 11, C, 0, PI * 2, .5
LINE (218 - H, 48)-(218 - H, 20), C
LINE (242 - H, 48)-(242 - H, 20), C
LINE (218 - H, 35)-(242 - H, 35), C
PAINT (230 - H, 50), D, C
RETURN

MMILK:
FOR H = 230 TO 0 STEP -1
C = 7
D = 15
GOSUB MILK
C = 0
D = 0
FOR HOLD = 1 TO 400
NEXT HOLD
GOSUB MILK
NEXT H
C = 7
D = 15
GOSUB MILK
RETURN

LETTER1:
LOCATE 8, 28
COLOR 67
PRINT "MILK"
LOCATE 15, 30
COLOR 34
PRINT "WHAT DO YOU THINK JERRY WOULD EAT"
PRINT "1. CHEESE"
PRINT "2. WATERMELON"
PRINT "3. MILK"
INPUT NUM
IF NUM <> 2 THEN PRINT "SORRY, I'M ON A DIET"
SLEEP 2
IF NUM <> 2 THEN GOSUB LOOSER ELSE GOSUB REMM
RETURN

TRY2:
CLS
PLAY "MB"
PLAY "E8 "
SCREEN 13
COLOR 44
LOCATE 12, 15
PRINT "TRY AGAIN"
COLOR 44
LOCATE 14, 8
PRINT "PRESS ANY KEY TO CONTINUE"
SLEEP 1
B = 20
DO
FOR B = 1 TO 600 STEP 20
 FOR I = 1 TO 10
  CIRCLE (B, 20), 10, RND * 16
CIRCLE (B, 170), 10, RND * 16
   NEXT I
NEXT B
LOOP UNTIL INKEY$ <> ""
GOSUB LASTMOUSE
SLEEP 6
20 CLS
GOSUB FOOD
RETURN

LASTMOUSE:
LOCATE 10, 10
FOR H = 10 TO 400: C = 15
F = 4: GOSUB LMOUSE: C = 0
F = 0: GOSUB LMOUSE: NEXT H
C = 15: F = 0: GOSUB LMOUSE
RETURN


LMOUSE:
CIRCLE (H, 50), 15, C
CIRCLE (H + 10, 43), 10, C, PI * 1.7, PI * .8
CIRCLE (H - 10, 43), 10, C, PI * .2, PI * 1.3
CIRCLE (H - 5, 45), 2, C
CIRCLE (H + 5, 45), 2, C
CIRCLE (H, 50), 1, C
PAINT (H - 5, 45), 9, C
PAINT (H + 5, 45), 9, C
CIRCLE (H, 53), 5, F, PI * 1, PI * 2
CIRCLE (H - 25, 60), 5, C, PI, PI * 1.8
CIRCLE (H - 35, 60), 5, C, 0, PI
CIRCLE (H + 15, 60), 5, C, 0, PI * 2, .5
CIRCLE (H - 15, 60), 5, C, 0, PI * 2, .5
CIRCLE (H - 60, 60), RND * 20, C   '  <<< SMOKE
RETURN


REMM:
CLS
SCREEN 13
'ONE DIMENSIONAL ARRAY
DIM CATA(90)
FOR X = 1 TO 90
FOR HOLD = 1 TO 3000
NEXT HOLD
CLS
READ CATA(X)
CIRCLE (40 * RND * CATA(X), 40 + RND * CATA(X)), CATA(X), RND * 16
CIRCLE (40 * RND * CATA(X), 100 + RND * CATA(X)), CATA(X), RND * 16
NEXT X
COLOR 34
LOCATE 12, 15
PRINT "THIS IS THE LAST"
LOCATE 15, 20
PRINT "QUESTION TO GET TO"
COLOR 4
LOCATE 18, 23
PRINT "JERRY"
COLOR 34
LOCATE 22, 27
PRINT "GOOD LUCK"
SLEEP 6
GOSUB FINAL1
DATA 20,22,45,60,24,16,20,22,45,60,24,16,20,22,45,60,24,16,20,22,45,60,24,16
DATA 20,22,45,60,24,16,20,22,45,60,24,16,20,22,45,60,24,16,20,22,45,60,24,16
DATA 20,22,45,60,24,16,20,22,45,60,24,16,20,22,45,60,24,16,20,22,45,60,24,16
DATA 20,22,45,200,120,150,170,210,230,165,230,120,280,190,210,240,140,170,220
DATA 45,200,120,150,170,210,230,165,230,120,28
RETURN

FINAL1:
CLS
LOCATE 12, 15
PRINT "WHO'S BUGS BUNNY'S"
LOCATE 13, 15
PRINT "WORST ENEMY"
LOCATE 14, 15
PRINT "WHO ALWAYS SAYS,"
LOCATE 15, 15
PRINT "I HATE WABBITS"
LOCATE 16, 15
PRINT
LOCATE 17, 15
PRINT "1. DAFFY DUCK"
LOCATE 18, 15
PRINT "2. FOGHOG LEGHORN"
LOCATE 19, 15
PRINT "3. ELMER FUDD"
LOCATE 20, 15
INPUT "4. TWETTY"; ENEMY
IF ENEMY = 3 THEN GOSUB WINNER1 ELSE GOSUB LOOSER
RETURN

WINNER1:
CLS
SCREEN 13
FOR K = 1 TO 1000
IF K = 100 THEN GOTO 100
COLOR K
PRINT "YOU WIN"; " YOU WIN"; " YOU WIN"; " YOU WIN"; " YOU WIN"
FOR HOLD = 1 TO 500
NEXT HOLD
NEXT K
100 CLS
LOCATE 12, 15
COLOR 4
PRINT "YOU'RE THA BOMB!!!"
SLEEP 4
END

SUB FIREPRINT (H%, v%, A$, tilt%)
COLOR 70: LOCATE v%, H%: PRINT A$
sx% = (H% * 8) - 8: ex% = ((H% + LEN(A$)) * 8) - 8
sy% = (v% * 8) - 16: ey% = (v% * 8) - 8
FOR Y% = S% TO ey%
  FOR X% = sx% TO ex%
  col% = POINT(X%, Y%) - RND * 25: IF col% < 0 THEN col% = 0
  PSET (X% + tilt%, Y% - 1), col%
 NEXT X%
NEXT Y%

END SUB

SUB StartGame
CLS : SCREEN 0
WIDTH 80, 25
COLOR 15
PRINT ""
PRINT ""
PRINT "  You are Mr. Smiley, your friends are lost in a giant cave that looks like"
PRINT ""
PRINT " a maze. You must find you friends to make yourself happy. Go foward and look"
PRINT ""
PRINT " for your friends. They are counting on you to save them. Good Luck."
PRINT ""
PRINT "                                           -Steve Nunnally"
DO
LOOP UNTIL INKEY$ <> ""

END SUB