'                              GAUNTLET-A-ROO
'                               Version 1.50
'                                   by
'                            Brian Q Programming


'                    The first ever INTERACTIVE HS BUS GAME
'                          Fun for the whole family



'               From the makers of Guess-A-Roo and Lottery-A-Roo


'                See Read.doc for more details and instructions

COLOR 1, 15
CLS
LOCATE 11, 25
PRINT "Welcome to Gauntlet-A-Roo"
LOCATE 12, 32
PRINT "Version 1.50"
LOCATE 13, 36
PRINT "By"
LOCATE 14, 29
PRINT "Brian Q Programming"
'OPEN "winner.dat" FOR INPUT AS #1
'INPUT #1, name$, when$, swin%
'LOCATE 18, 14
'PRINT name$; " completed the Gauntlet on "; when$; " and had"; swin%; "points"
'CLOSE #1
LOCATE 23, 24
PRINT "Press Any Key To Continue..."
1 key$ = INKEY$: IF key$ = "" THEN GOTO 1

3 COLOR 1, 15
CLS
PRINT "This a simulation of the classic Bergen Catholic High School Bus Game"
PRINT "The Gauntlet is an action-running-down-the-aisle-while-trying-not-to"
PRINT "killed-game.  Here is the entire 96-97 Elmwood Park Roster"

LOCATE 5, 3
PRINT "Name                 Strength    Grade     Height"
LOCATE 6, 1
PRINT "1-Yim the Hunter          7          11       5'7"
PRINT "2-Ralph Malph             6           9       5'6"
PRINT "3-Boner                   5          10       6'3"
PRINT "4-Danny                   8          11       6'8"
PRINT "5-Peleguido               7          10       6'1"
PRINT "6-Sal                     3           9       5'2"
PRINT "7-Dick                    5           9       5'11"
PRINT "8-Ricky                   2           9       5'4"
PRINT "9-Frugi                   4           9       5'3"
PRINT "10-Robbie                 8          11       6'2"
PRINT "11-Brad                   5           9       5'5"
PRINT "12-Banta                  6          10       5'6"
PRINT "13-Uni-Sac                3          10       5'7"
PRINT "14-Harry Muff Klutz       4           9       5'5"
PRINT "15-Al                     5          11       5'11"
PRINT "16-Squeaky the guinea pig .2         12       6 in."
PRINT "17-...........LEARN ABOUT THE CHARACTERS..........."
2 LOCATE 23, 1
PRINT "                                                   "
LOCATE 23, 1
INPUT "Your Choice (1-17)"; guy%

IF guy% < 1 OR guy% > 17 THEN GOTO 2
IF guy% = 1 THEN name$ = "Yim"
IF guy% = 2 THEN name$ = "Ralph"
IF guy% = 3 THEN name$ = "Boner"
IF guy% = 4 THEN name$ = "Danny"
IF guy% = 5 THEN name$ = "Peleguido"
IF guy% = 6 THEN name$ = "Sal"
IF guy% = 7 THEN name$ = "Dick"
IF guy% = 8 THEN name$ = "Ricky"
IF guy% = 9 THEN name$ = "Frugi"
IF guy% = 10 THEN name$ = "Robbie"
IF guy% = 11 THEN name$ = "Brad"
IF guy% = 12 THEN name$ = "Banta"
IF guy% = 13 THEN name$ = "Uni-Sac"
IF guy% = 14 THEN name$ = "Harry"
IF guy% = 15 THEN name$ = "Al"
IF guy% = 16 THEN name$ = "Squeaky"
IF guy% = 17 THEN GOTO 100

IF guy% = 1 THEN ht% = 67
IF guy% = 2 THEN ht% = 66
IF guy% = 3 THEN ht% = 75
IF guy% = 4 THEN ht% = 80
IF guy% = 5 THEN ht% = 73
IF guy% = 6 THEN ht% = 62
IF guy% = 7 THEN ht% = 71
IF guy% = 8 THEN ht% = 64
IF guy% = 9 THEN ht% = 63
IF guy% = 10 THEN ht% = 74
IF guy% = 11 THEN ht% = 65
IF guy% = 12 THEN ht% = 66
IF guy% = 13 THEN ht% = 67
IF guy% = 14 THEN ht% = 65
IF guy% = 15 THEN ht% = 71
IF guy% = 16 THEN ht% = 6

IF guy% = 1 THEN st% = 7
IF guy% = 2 THEN st% = 6
IF guy% = 3 THEN st% = 5
IF guy% = 4 THEN st% = 8
IF guy% = 5 THEN st% = 7
IF guy% = 6 THEN st% = 3
IF guy% = 7 THEN st% = 5
IF guy% = 8 THEN st% = 2
IF guy% = 9 THEN st% = 4
IF guy% = 10 THEN st% = 8
IF guy% = 11 THEN st% = 5
IF guy% = 12 THEN st% = 6
IF guy% = 13 THEN st% = 3
IF guy% = 14 THEN st% = 4
IF guy% = 15 THEN st% = 5
IF guy% = 16 THEN st% = .2

IF TIME$ > "12:00" AND TIME$ < "18:00" THEN st% = st% + 1
IF TIME$ > "18:00" AND TIME$ < "23:59" THEN st% = st%
IF TIME$ >= "00:00" AND TIME$ <= "11:59" THEN st% = st% - 1
7 COLOR 1, 10
CLS
PRINT "You are "; name$; " a student of Bergen Catholic HS, in Oradell New Jersey"
PRINT "Your mission is to get pass the 8 rows of seats in order to get off the bus."
PRINT "You actions and quick thinking can bring you to victory or become"
PRINT "the laughing stock of the entire bus."
PRINT "Your run ends when you finally finish.  If you get squished you will get a point"
PRINT "If you have the least points you will win and become the holder of the back seat"
LOCATE 15, 5
PRINT "Type EXIT at any time to end the simulation.  Good Luck!"

LOCATE 18, 5
INPUT "Do you want to READ an extensive description or PLAY"; play$
IF LCASE$(play$) = "exit" THEN END
IF LCASE$(play$) = "read" THEN GOTO 8
IF LCASE$(play$) = "play" THEN GOTO 10 ELSE GOTO 7

8 COLOR 6, 7
CLS
PRINT "The gauntlet is an action-packed game of running up a bus aisle while"
PRINT "waiting to depart Bergen Catholic High School in Oradell, New Jersey."
PRINT "This game is based on actual events and people of the real game played"
PRINT "mostly on Friday afternoons.  Our bus is a Laidlaw bus with eight rows"
PRINT "of seats.  The characters's names all aren't their real name but are"
PRINT "what we call them.  I hope you will enjoy this simulation.  It's got"
PRINT "anything a person would want after a long, hard day of high school."
PRINT "You will ALWAYS finish the run, everybody does, (nobody dies).  But"
PRINT "I developed a point system to tell how quick you do it in.  The"
PRINT "LEAST amount of points is better.  Have fun!"
LOCATE 12, 20
PRINT "Press any key to contiune the simulation..."
9 key$ = INKEY$: IF key$ = "" THEN GOTO 9


10 RANDOMIZE TIMER
namer% = INT(RND * 5 + 1)
IF namer% = 1 THEN namer$ = "Danny"
IF namer% = 1 THEN ost% = 8
IF namer% = 2 THEN namer$ = "Peleguido"
IF namer% = 2 THEN ost% = 7
IF namer% = 3 THEN namer$ = "Brad"
IF namer% = 3 THEN ost% = 5
IF namer% = 4 THEN namer$ = "Robbie"
IF namer% = 4 THEN ost% = 8
IF namer% = 5 THEN namer$ = "Yim"
IF namer% = 5 THEN ost% = 7
IF namer$ = name$ THEN GOTO 10
11 COLOR 15, 1
CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1
PRINT "Row 1"
PRINT ""; namer$; " is in front of you."
INPUT "What do you do now! JUMP the seat or CHARGE him"; first$
IF LCASE$(first$) = "exit" THEN END
IF LCASE$(first$) = "charge" THEN GOTO 15
IF LCASE$(first$) = "jump" THEN GOTO 18 ELSE GOTO 11

15 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1
IF st% < ost% THEN GOTO 17
IF st% >= ost% THEN PRINT "You charged through "; namer$; " and have reached the next row!": PLAY "MFL30T60g-g"
LOCATE 12, 20
PRINT "Press any key to contiune the simulation..."

16 key$ = INKEY$: IF key$ = "" THEN GOTO 16
GOTO 25

17 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1
PRINT "Row 1"
PRINT namer$; " is too big for you.  He's coming in!"
INPUT "Do you YELL for mercy or CRAWL under the seat"; second$
IF LCASE$(second$) = "exit" THEN END
IF LCASE$(second$) = "yell" THEN CLS : PRINT "You are made fun of for being such a coward!  Try it again": GOTO 170
IF LCASE$(second$) = "yell" THEN GOTO 17
IF LCASE$(second$) = "crawl" THEN GOTO 20 ELSE GOTO 15

18 ty% = INT(2 * RND + 1)
IF ty% = 1 THEN ty$ = "You fell into the next seat to be jumped and squished on!  Try again"
IF ty% = 2 THEN ty$ = "You hopped the seat with success!"
PRINT ty$
IF ty% = 1 THEN GOTO 175
IF ty% = 1 GOTO 17
PLAY "MFL30T60g-g"
LOCATE 12, 20
PRINT "Press any key to contiune the simulation..."
19 key$ = INKEY$: IF key$ = "" THEN GOTO 19
GOTO 25

20 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

soup% = INT(2 * RND + 1)
IF soup% = 1 THEN odd$ = "You get under the seat to the next row."
IF soup% = 2 THEN odd$ = "You can't fit!  Especially when someone just sat on you!  Get out & try again"
PRINT odd$
IF soup% = 2 THEN GOTO 180
IF soup% = 2 THEN GOTO 20
PLAY "MFL30T60g-g"

LOCATE 12, 20
PRINT "Press any key to contiune the simulation..."
21 key$ = INKEY$: IF key$ = "" THEN GOTO 21

25 xf% = INT(3 * RND + 1)
IF xf% = 1 THEN xf$ = "Ralph"
IF xf% = 2 THEN xf$ = "Boner"
IF xf% = 3 THEN xf$ = "Banta"
IF xf$ = name$ THEN GOTO 25

kick% = INT(2 * RND + 1)
IF kick% = 1 THEN kick$ = "He fell into the seat screaming!  You move on!"
IF kick% = 2 THEN kick$ = "You try and kick him but he grabs you leg.  You're them tackled!  Try again"

26 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

PRINT "Row 2"
PRINT xf$; " is jumping on you!"
INPUT "Do you DIVE out of the way or KICK him"; third$
IF LCASE$(third$) = "exit" THEN END
IF LCASE$(third$) = "dive" THEN GOTO 30
IF LCASE$(third$) = "kick" THEN PRINT kick$
IF LCASE$(third$) = "kick" AND kick% = 2 THEN GOTO 185
IF LCASE$(third$) = "kick" AND kick% = 2 THEN GOTO 26
IF LCASE$(third$) = "kick" AND kick% = 1 THEN PLAY "MFL30T60g-g" ELSE GOTO 26
GOTO 34

30 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

pile% = INT(2 * RND + 1)
IF pile% = 1 THEN pile$ = "You dive just in time! As he falls you slide ahead!"
IF pile% = 2 THEN pile$ = "As you dive you hit your head on the seat.  Your hurt!  Try again!"
PRINT pile$
IF LCASE$(third$) = "dive" AND pile% = 1 THEN PLAY "MFL30T60g-g": GOTO 34
IF LCASE$(third$) = "dive" AND pile% = 2 THEN GOTO 190
IF LCASE$(third$) = "dive" AND pile% = 2 THEN GOTO 30
34 nc% = INT(3 * RND + 1)
IF nc% = 1 THEN nc$ = "Harry"
IF nc% = 2 THEN nc$ = "Al"
IF nc% = 3 THEN nc$ = "Ricky"
IF nc$ = name$ THEN GOTO 34

LOCATE 12, 20
PRINT "Press Any Key to Go On..."
33 key$ = INKEY$: IF key$ = "" THEN GOTO 33

35 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

PRINT "Row 3"
PRINT nc$; " is in front.  But a hole is to the bottom!"
INPUT "Do you CRAWL between the seat and him or do you CHARGE into him"; beef$
IF LCASE$(beef$) = "exit" THEN END
IF LCASE$(beef$) = "crawl" THEN GOTO 40
IF LCASE$(beef$) = "charge" THEN GOTO 45 ELSE GOTO 35

40 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

IF ht% <= 65 THEN PRINT "You squish your way into the next row!":  PLAY "MFL30T60g-g": GOTO 53
IF ht% >= 66 THEN PRINT "You can't fit!  Someone grabs you and pulls you back!"
PRINT "You fall back a row!"
LOCATE 12, 20
PRINT "Press any key to contiune the simulation..."
41 key$ = INKEY$: IF key$ = "" THEN GOTO 41
GOTO 50

45 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

great% = INT(RND * 3 + 1)
IF great% = 1 THEN hey$ = "You try to charge through but you fall because of all the peole!"
IF great% = 2 THEN hey$ = "You beef through the people!": PLAY "MFL30T60g-g"
IF great% = 3 THEN hey$ = "You can trampled on and crawl to the door.  Your hurt!  Try again."
PRINT hey$
IF great% = 1 THEN GOTO 195
IF great% = 3 THEN GOTO 195
IF great% = 2 THEN GOTO 53

GOTO 53

50 squish% = INT(2 * RND + 1)
IF squish% = 1 THEN squish$ = "It didn't work!  Your trampled on it!"
IF squish% = 2 THEN squish$ = "It worked!  You were able to squish him into a seat & move up 2 rows!"
CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

PRINT "Row 2"
PRINT nc$; " grabs you from behind!"
INPUT "You could SQUISH him against the seat and push up or JUMP onto him!"; next$
IF LCASE$(next$) = "exit" THEN END
IF LCASE$(next$) = "jump" THEN PRINT "It's not working!  Try something else!": GOTO 200
IF LCASE$(next$) = "squish" THEN PRINT squish$
IF squish% = 1 GOTO 200
IF squish% = 2 THEN PLAY "MFL30T60g-g": GOTO 53
GOTO 50

53 LOCATE 12, 20
PRINT "Press any key to contiune the simulation..."
54 key$ = INKEY$: IF key$ = "" THEN GOTO 54

54.5 kid% = INT(3 * RND + 1)
IF kid% = 1 THEN kid$ = "Frugi"
IF kid% = 2 THEN kid$ = "Sal"
IF kid% = 3 THEN kid$ = "Uni-Sac"
IF name$ = kid$ THEN GOTO 54.5

55 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

PRINT "Row 4"
PRINT "Your halfway through!  Wow.  Some of the weaker guys are up toward the"
PRINT "front.  But don't be discouraged.  They can still pack a mean punch."
PRINT kid$; " is in front of you!  He jumps on you!"
INPUT "Time to think fast....KNOCK him off or RUN with him hanging off you"; knock$
IF LCASE$(knock$) = "exit" THEN END
IF LCASE$(knock$) = "knock" THEN PRINT "He falls off but everyone else piles you!  Try again": GOTO 205
IF LCASE$(knock$) = "run" THEN PRINT "You run up and "; kid$; " falls off as you reach the next row!": PLAY "MFL30T60g-g" ELSE GOTO 55

LOCATE 12, 20
PRINT "Press any key to contiune the simulation..."
57 key$ = INKEY$: IF key$ = "" THEN GOTO 57


spit% = INT(2 * RND + 1)
IF spit% = 1 THEN spit$ = "You spit them and they retreat!"
IF spit% = 2 THEN spit$ = "They spit back and get it gets in your eye! "

yell% = INT(2 * RND + 1)
IF yell% = 1 THEN yell$ = "You yell you smell at the bus.  Ok.  Now your bus jumps you for being an idiot"
IF yell% = 2 THEN yell$ = "Nobody hears you so the gauntlet continues."

60 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

PLAY "MFL50ABDCEFGACA"
PRINT "Row 5"
PRINT "Some of the guys in the back have hopped seats and made their way to"
PRINT "the front to get you again!  Oh, man.  This is when the fun starts."
PRINT "Wait a second...The gauntlet must go on the hold.  We're being"
PRINT "attacked by the FAIR LAWN BUS.  Time for battle..."
INPUT "Do you THROW a spitball, SPIT snot, or YELL 'you smell'"; fight$
IF LCASE$(fight$) = "exit" THEN END
IF LCASE$(fight$) = "throw" THEN PRINT "You hit some kid.  Their bus closes their big ugly"
IF LCASE$(fight$) = "throw" THEN PRINT "windows.  Elmwood Park has won the battle due to their retreating!"
IF LCASE$(fight$) = "throw" THEN PRINT "The gauntlet continues...": GOTO 62
IF LCASE$(fight$) = "spit" THEN PRINT spit$
IF LCASE$(fight$) = "spit" AND spit% = 2 THEN GOTO 210
IF LCASE$(fight$) = "spit" AND spit% = 1 THEN PLAY "MFL30T60g-g": GOTO 62
IF LCASE$(fight$) = "yell" THEN PRINT yell$
IF LCASE$(fight$) = "yell" AND yell% = 1 THEN GOTO 210
IF LCASE$(fight$) = "yell" AND yell% = 2 THEN GOTO 62
GOTO 60

62 LOCATE 18, 20
PRINT "Press any key to contiune the simulation..."
61 key$ = INKEY$: IF key$ = "" THEN GOTO 61

65 bg% = INT(RND * 3 + 1)
IF bg% = 1 THEN bg$ = "Danny"
IF bg% = 1 THEN obg% = 8
IF bg% = 2 THEN bg$ = "Ricky"
IF bg% = 2 THEN obg% = 2
IF bg% = 3 THEN bg$ = "Yim"
IF bg% = 3 THEN obg% = 7
IF bg$ = name$ THEN GOTO 65

66 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

PRINT "Row 6"
PRINT bg$; " grabs you!  What now?!?!?"
INPUT "Do you let him THROW you or do you FIGHT your way out"; no$
IF LCASE$(no$) = "exit" THEN END
IF LCASE$(no$) = "throw" THEN GOTO 70
IF LCASE$(no$) = "fight" THEN GOTO 75 ELSE GOTO 66

70 LOCATE 12, 20
PRINT "Press any key to go on..."
71 key$ = INKEY$: IF key$ = "" THEN GOTO 71
72 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

IF obg% > st% THEN PRINT bg$; " throws you to the next row.  Good deal!":  PLAY "MFL30T60g-g": GOTO 79
IF st < obg% THEN PRINT bg$; " can't throw you so you both fall to the ground!  Try again."
PRINT "Too bad!  Maybe next time, buddy!": GOTO 215

75 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

IF st% >= obg% THEN PRINT "You push him off and get to the next row!":  PLAY "MFL30T60g-g": GOTO 76
IF st% < obg% THEN PRINT "He gets you down.  Oh, no.  Your squished!": GOTO 220

76 LOCATE 12, 20
PRINT "Press any key to go on..."
78 key$ = INKEY$: IF key$ = "" THEN GOTO 78

79 ft% = INT(4 * RND + 1)
IF ft% = 1 THEN ft$ = "Uni-Sac"
IF ft% = 2 THEN ft$ = "Banta"
IF ft% = 3 THEN ft$ = "Sal"
IF ft% = 4 THEN ft$ = "Brad"
IF ft$ = name$ THEN GOTO 79

80 stuck% = INT(2 * RND + 1)
IF stuck% = 1 THEN stuck$ = "You get through the seat!"
IF stuck% = 2 THEN stuck$ = "You can't get through.  Maybe a different way will bring victory!"

81 hop% = INT(2 * RND + 1)
IF hop% = 1 THEN hop$ = "You hop the seat easily!"
IF hop% = 2 THEN hop$ = "You can't get over.  Try something else, bud!"

82 LOCATE 12, 20
PRINT "Press any key to go on..."
86 key$ = INKEY$: IF key$ = "" THEN GOTO 86

83 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

87 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1
PRINT "Row 7"
PRINT "Your almost there!"
PRINT ft$; " is trying to push you into a seat!"
INPUT "Do you CRAWL under the seat or JUMP the seat!"; jump$
IF LCASE$(jump$) = "exit" THEN END
IF LCASE$(jump$) = "crawl" THEN PRINT stuck$
IF LCASE$(jump$) = "crawl" AND stuck% = 2 THEN GOTO 225
IF LCASE$(jump$) = "jump" THEN PRINT hop$
IF LCASE$(jump$) = "jump" AND hop% = 2 THEN GOTO 225
IF LCASE$(jump$) = "jump" OR LCASE$(jump$) = "crawl" GOTO 88 ELSE GOTO 87
88 PLAY "MFL30T60g-g"
84 LOCATE 12, 20
PRINT "Press any key to go on..."
85 key$ = INKEY$: IF key$ = "" THEN GOTO 85


90 CLS
LOCATE 22, 5
PRINT "You have"; win%; "point(s)."
LOCATE 1, 1

PRINT "Row 8!"
PRINT "Victory is so close!"
PRINT "The entire bus of 15 people is now about to charge you!"
INPUT "Do you YELL something or try to make a RUN toward the doors."; last$
IF LCASE$(last$) = "exit" THEN END
IF LCASE$(last$) = "run" THEN PRINT "You get squished against the floor as they trample you!  Try again": GOTO 230
IF LCASE$(last$) = "yell" THEN PRINT "You scream 'hey, check out that girl over there!":  ELSE GOTO 90
PRINT "As they look out the window you get off!"
when$ = DATE$
OPEN "winner.dat" FOR OUTPUT AS #1
IF win% <= swin% THEN LOCATE 12, 32: PRINT "We have a new winner!" ELSE GOTO 150
WRITE #1, name$, when$, win%
CLOSE #1
GOTO 150
100 COLOR 15, 2
CLS
LOCATE 2, 5
PRINT "Here are a list of the characters.  Pick one you want to learn about"
PRINT "Name                   Strength    Grade     Height"
LOCATE 6, 1
PRINT "1-Yim the Hunter          7          11       5'11"
PRINT "2-Ralph Malph             6           9       5'6"
PRINT "3-Boner                   5          10       6'3"
PRINT "4-Danny                   8          11       6'8"
PRINT "5-Peleguido               7          10       6'1"
PRINT "6-Sal                     3           9       5'2"
PRINT "7-Dick                    5           9       5'11"
PRINT "8-Ricky                   2           9       5'4"
PRINT "9-Frugi                   4           9       5'3"
PRINT "10-Robbie                 8          11       6'2"
PRINT "11-Brad                   5           9       5'5"
PRINT "12-Banta                  6          10       5'6"
PRINT "13-Uni-Sac                3          10       5'7"
PRINT "14-Harry Klutz            4           9       5'5"
PRINT "15-Al                     5          11       5'11"
PRINT "16-Squeaky the guinea pig .2         12       6 in."
PRINT "17-...........G0 BACK TO THE MAIN MENU............. "
101 LOCATE 23, 1
PRINT "                                                   "
LOCATE 23, 1
INPUT "Your Choice (1-17)"; fy%
IF fy% = 1 GOTO 102
IF fy% = 2 GOTO 103
IF fy% = 3 GOTO 104
IF fy% = 4 GOTO 105
IF fy% = 5 GOTO 106
IF fy% = 6 GOTO 107
IF fy% = 7 GOTO 108
IF fy% = 8 GOTO 109
IF fy% = 9 GOTO 110
IF fy% = 10 GOTO 111
IF fy% = 11 GOTO 112
IF fy% = 12 GOTO 113
IF fy% = 13 GOTO 114
IF fy% = 14 GOTO 115
IF fy% = 15 GOTO 116
IF fy% = 16 GOTO 117
IF fy% = 17 GOTO 3 ELSE GOTO 101

102 CLS : PRINT "Yim the Hunter is really named Jim.  But his friends call him Yim"
 PRINT "for some very odd reason.  Yim loves to hunt.  His house is full "
 PRINT "of antlers and moose heads.  His dad encourages smiling especially"
 PRINT "whie driving the family car.  Oh, no the bumber just fell off!"
 PRINT "Yim is one of the oldest and currently claims the back seat of the bus."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
120 key$ = INKEY$: IF key$ = "" THEN GOTO 120

 GOTO 100
103 CLS : PRINT "Ralph Malph's real name is Ralph Mano, but he was nicknamed Malph"
 PRINT "after the famous Ralph Malph of Happy Days.  Ralph was called the 'Freshmen"
 PRINT "Sensation' because of swimming abilites.   Ralph has a crappy neighbor"
 PRINT "who, when Ralph is Gauntlet King, will execute immediately."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
121 key$ = INKEY$: IF key$ = "" THEN GOTO 121
GOTO 100
104 CLS : PRINT "Boner's real name is Bob.  Bob loves computers and is always wipping"
 PRINT "up programs for his twin sisters to write about portable toilets on.  Wow."
 PRINT "Bob is an advisor to all computer programmers, including myself."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
122 key$ = INKEY$: IF key$ = "" THEN GOTO 122
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
123 key$ = INKEY$: IF key$ = "" THEN GOTO 123

 GOTO 100
105 CLS : PRINT "Danny is a great guy.  This Junior makes the bus laugh hysterically "
   PRINT "with his crazy antics and corny jokes.  He is the role model of our"
   PRINT "bus.  He loves lifting his shirt when the girls' buses comes by."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
124 key$ = INKEY$: IF key$ = "" THEN GOTO 124
 
 GOTO 100
106 CLS : PRINT "Peleguido is a last name for Joe.  Joe is a pretty normal guy."
   PRINT "Joe is what we all hope to be when we're bored.  He's just your"
   PRINT "average Joe.  That's all I gotta say about that."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
125 key$ = INKEY$: IF key$ = "" THEN GOTO 125
  
   GOTO 100
107 CLS : PRINT "Sal.  Sal's dangerous weapon is his slick hair.  Slick.  Hey, when"
PRINT "your short, slick hair is your only defense.  That and the front seat"
PRINT "where Sal claims Slick Territory.  (It's true)"
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
126 key$ = INKEY$: IF key$ = "" THEN GOTO 126

GOTO 100
108 CLS : PRINT "Dick hates being called Dick, but when your weight is over 250 pounds"
PRINT "who cares.  Nobody really gives a dick what Dick thinks.  I'm confused."
PRINT "Dick gets whatever he wants.  It's kind of a concept that's hard to grasp."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
127 key$ = INKEY$: IF key$ = "" THEN GOTO 127

GOTO 100
109 CLS : PRINT "Ricky is a weird guy.  Even though he's just a freshmen, he"
   PRINT "claims the backseat (Yim claims the W, Ricky on the E)  Ricky has a"
   PRINT "big mounth which comes in handy when talking to people all over!"
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
128 key$ = INKEY$: IF key$ = "" THEN GOTO 128
GOTO 100
110 CLS : PRINT "Frugi is myself.  Yep, it's me the programmer.  Frugi usually makes   "
PRINT "corny remarks.  As a freshmen he holds second seat from the front.  A safe,"
PRINT "but sometimes degrading place of sitting."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
129 key$ = INKEY$: IF key$ = "" THEN GOTO 129
GOTO 100
111 CLS : PRINT "Robbie a nice guy if you get to know him.  A fanatic of hockey"
PRINT "Robbie along with his younger brother Brad, love to play hockey.  His "
PRINT "favorite team?  The New York Rangers."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
130 key$ = INKEY$: IF key$ = "" THEN GOTO 130
GOTO 100
112 CLS : PRINT "Brad is a freshmen who likes hockey.  His older brother Robbie"
PRINT "helped Brad get a good seat on the bus (third from the back).  Brad is"
PRINT "a good friend of many girls.  Don't ask."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
131 key$ = INKEY$: IF key$ = "" THEN GOTO 131
GOTO 100
113 CLS : PRINT "Banta is a pretty cool guy but he seems unbalanced in a sence"
 PRINT "of, well...I don't know.  I mean he's Banta.  What can you really say."
 PRINT "He's just an average 10th grader. (what the hell kinda name is Banata anyway?)"
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
132 key$ = INKEY$: IF key$ = "" THEN GOTO 132
GOTO 100
114 CLS : PRINT "Your probably wondering how Uni-Sac also known as Bob got his name."
PRINT "Well here's the story.  One day in gym, Bob recieced an injury to a certain"
PRINT "part of his masculine well...parts.  One of the two started bleeding. Ewww. "
 PRINT "And that's how he got his name. (also known as one-nut and mono-testy)"
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
133 key$ = INKEY$: IF key$ = "" THEN GOTO 133
GOTO 100
115 CLS : PRINT "Harry is the only guy with red hair on the bus.  Harry isn't "
PRINT "not hairy but is always trying to get answer for homework out of everyone!"
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
134 key$ = INKEY$: IF key$ = "" THEN GOTO 134
GOTO 100
116 CLS : PRINT "Al is a homo sapien who lives in a small thing off of the Queens"
PRINT "Nail place on the highway.  Don't ask.  But he gets an odd greeting after"
PRINT "leaving the bus every day.  Wanna know what it is?  Try and win being Al."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
135 key$ = INKEY$: IF key$ = "" THEN GOTO 135
GOTO 100
117 CLS : PRINT "Squeaky is Boner's guinea pig.  Boner told me to put him for"
PRINT "some reason.  So, the little guy is in.  He is the bus's offical mascot."
 LOCATE 20, 5
 PRINT "Press Any Key to see the menu"
136 key$ = INKEY$: IF key$ = "" THEN GOTO 136
GOTO 100

150 IF name$ = "Al" AND win% < 6 THEN GOTO 151 ELSE END
151 SCREEN 8
COLOR 1, 14
CLS
LINE (20, 100)-(20, 150)
LINE (20, 100)-(120, 100)
LINE (20, 150)-(500, 150)
LINE (500, 150)-(500, 65)
LINE (500, 65)-(200, 65)
LINE (200, 65)-(115, 100)
CIRCLE (30, 160), 50
CIRCLE (400, 160), 35
LOCATE 12, 28
PRINT "Bye, Al! ahahahahahahblah!"
END

170 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
171 key$ = INKEY$: IF key$ = "" THEN GOTO 171
win% = win% + 1
GOTO 17

175 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
176 key$ = INKEY$: IF key$ = "" THEN GOTO 176
win% = win% + 1
GOTO 11

180 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
181 key$ = INKEY$: IF key$ = "" THEN GOTO 181
win% = win% + 1
GOTO 17

185 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
186 key$ = INKEY$: IF key$ = "" THEN GOTO 186
win% = win% + 1
GOTO 26

190 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
191 key$ = INKEY$: IF key$ = "" THEN GOTO 191
win% = win% + 1
GOTO 26

195 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
196 key$ = INKEY$: IF key$ = "" THEN GOTO 196
win% = win% + 1
GOTO 35

200 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
201 key$ = INKEY$: IF key$ = "" THEN GOTO 201
win% = win% + 1
GOTO 50

205 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
206 key$ = INKEY$: IF key$ = "" THEN GOTO 206
win% = win% + 1
GOTO 55

210 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
211 key$ = INKEY$: IF key$ = "" THEN GOTO 211
win% = win% + 1
GOTO 60

215 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
216 key$ = INKEY$: IF key$ = "" THEN GOTO 216
win% = win% + 1
GOTO 66

220 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
221 key$ = INKEY$: IF key$ = "" THEN GOTO 221
win% = win% + 1
GOTO 66

225 BEEP
LOCATE 18, 5
PRINT "Press Any Key to Try Again..."
226 key$ = INKEY$: IF key$ = "" THEN GOTO 226
win% = win% + 1
GOTO 83

230 BEEP
LOCATE 18, 5
PRINT "Press Any key to go on..."
231 key$ = INKEY$: IF key$ = "" THEN GOTO 226
GOTO 90