REM JESSICA PEREZ
REM PERIOD 2
REM FINAL PROGRAM
REM BASIC CLASS
DECLARE SUB bmp24bit (FileName$)
DECLARE SUB SetColor (ColorNumber%, Red%, Green%, Blue%)
REM **********************MIC PICTURE
TYPE BMPHeader
   ValidID AS STRING * 2
   SizeOfFile AS LONG
   Reserved AS LONG
   OffsetOfBitMap AS LONG
END TYPE
TYPE WindowsBMPInfoHeader
   SizeOfHeader AS LONG
   Widthz AS LONG
   Heightz AS LONG
   Planes AS INTEGER
   BitsPerPixel AS INTEGER
   CompressMethod AS LONG
   ImageSizeInBytes AS LONG
   HorizontalResol AS LONG
   VerticalResol AS LONG
   ColorsUsed AS LONG
   ImportantColors AS LONG
END TYPE
CALL bmp24bit("a:concert.bmp")
REM **************************MENU***************************************
MENU:
GOSUB OPENING
END
REM **************************MENU***************************************
REM *******************************************************OPENING SCREEN
OPENING:
REM **********************WITHOUT ME SOUND
SOUND 293, 5
SOUND 493, 5
SOUND 440, 5
SOUND 392, 5
SOUND 293, 5
SOUND 32767, 10
SOUND 293, 5
SOUND 261, 5
SOUND 293, 5
SOUND 349, 5
SOUND 293, 5
SOUND 32767, 10
SOUND 293, 5
SOUND 261, 5
SOUND 293, 5
SOUND 261, 5
SOUND 238, 5
SOUND 32767, 10
SOUND 238, 5
SOUND 220, 5
SOUND 349, 5
SOUND 392, 5
WELCOME:
CLS
SCREEN 7
COLOR 5
REM **********************W
LINE (50, 15)-(60, 10)
LINE (60, 10)-(75, 30)
LINE (75, 30)-(80, 15)
LINE (80, 15)-(90, 15)
LINE (90, 15)-(95, 30)
LINE (95, 30)-(110, 10)
LINE (110, 10)-(120, 15)
LINE (120, 15)-(102, 45)
LINE (102, 45)-(90, 45)
LINE (90, 45)-(85, 25)
LINE (85, 25)-(80, 45)
LINE (80, 45)-(68, 45)
LINE (68, 45)-(50, 15)
PAINT (60, 20), 14, 5
REM **********************E
LINE (110, 10)-(135, 10)
LINE (135, 10)-(135, 20)
LINE (135, 20)-(120, 20)
LINE (120, 20)-(120, 25)
LINE (120, 25)-(130, 25)
LINE (130, 25)-(130, 30)
LINE (130, 30)-(120, 30)
LINE (120, 30)-(120, 35)
LINE (120, 35)-(135, 35)
LINE (135, 35)-(135, 45)
LINE (135, 45)-(110, 45)
LINE (110, 45)-(110, 30)
PAINT (130, 40), 14, 5
REM **********************L
LINE (135, 10)-(145, 10)
LINE (145, 10)-(145, 35)
LINE (145, 35)-(155, 35)
LINE (155, 35)-(155, 45)
LINE (155, 45)-(135, 45)
LINE (135, 45)-(135, 10)
PAINT (140, 15), 14, 5
REM **********************C
LINE (155, 10)-(180, 10)
LINE (180, 10)-(180, 20)
LINE (180, 20)-(165, 20)
LINE (165, 20)-(165, 35)
LINE (165, 35)-(180, 35)
LINE (180, 35)-(180, 45)
LINE (180, 45)-(155, 45)
LINE (155, 45)-(155, 10)
PAINT (160, 15), 14, 5
REM **********************O
LINE (180, 10)-(205, 45), 5, B
LINE (185, 20)-(200, 35), 5, B
PAINT (185, 15), 14, 5
REM **********************M
LINE (205, 10)-(215, 10)
LINE (215, 10)-(225, 30)
LINE (225, 30)-(235, 10)
LINE (235, 10)-(245, 10)
LINE (245, 10)-(245, 45)
LINE (245, 45)-(235, 45)
LINE (235, 45)-(235, 30)
LINE (235, 30)-(230, 40)
LINE (230, 40)-(220, 40)
LINE (220, 40)-(215, 30)
LINE (215, 30)-(215, 45)
LINE (215, 45)-(205, 45)
PAINT (225, 35), 14, 5
REM **********************E
LINE (245, 10)-(270, 10)
LINE (270, 10)-(270, 20)
LINE (270, 20)-(255, 20)
LINE (255, 20)-(255, 25)
LINE (255, 25)-(265, 25)
LINE (265, 25)-(265, 30)
LINE (265, 30)-(255, 30)
LINE (255, 30)-(255, 35)
LINE (255, 35)-(270, 35)
LINE (270, 35)-(270, 45)
LINE (270, 45)-(245, 45)
PAINT (260, 15), 14, 5
REM **********************T
LINE (105, 55)-(85, 90), 14
LINE (85, 65)-(105, 75), 14
REM **********************O
CIRCLE (120, 80), 13, 14
REM **********************T
LINE (180, 55)-(200, 90), 14
LINE (180, 75)-(200, 65), 14
REM **********************H
LINE (205, 55)-(205, 90), 14
LINE (205, 70)-(225, 70), 14
LINE (225, 70)-(220, 90), 14
REM **********************E
LINE (255, 90)-(230, 90), 14
LINE (230, 90)-(230, 75), 14
LINE (230, 75)-(240, 60), 14
LINE (240, 60)-(250, 60), 14
LINE (250, 60)-(255, 75), 14
LINE (255, 75)-(230, 75), 14
REM **********************E
COLOR 4
LINE (25, 100)-(50, 100)
LINE (50, 100)-(50, 110)
LINE (50, 110)-(35, 110)
LINE (35, 110)-(35, 115)
LINE (35, 115)-(45, 115)
LINE (45, 115)-(45, 120)
LINE (45, 120)-(35, 120)
LINE (35, 120)-(35, 125)
LINE (35, 125)-(50, 125)
LINE (50, 125)-(50, 135)
LINE (50, 135)-(25, 135)
LINE (25, 135)-(25, 100)
PAINT (35, 105), 8, 4
REM **********************M
LINE (50, 100)-(60, 100)
LINE (60, 100)-(70, 120)
LINE (70, 120)-(80, 100)
LINE (80, 100)-(90, 100)
LINE (90, 100)-(90, 135)
LINE (90, 135)-(80, 135)
LINE (80, 135)-(80, 120)
LINE (80, 120)-(75, 130)
LINE (75, 130)-(65, 130)
LINE (65, 130)-(60, 120)
LINE (60, 120)-(60, 135)
LINE (60, 135)-(50, 135)
LINE (50, 135)-(50, 100)
PAINT (55, 105), 8, 4
REM **********************I
LINE (90, 100)-(100, 135), 4, B
PAINT (95, 110), 8, 4
REM **********************N
LINE (100, 100)-(110, 100)
LINE (110, 100)-(120, 120)
LINE (120, 120)-(120, 100)
LINE (120, 100)-(130, 100)
LINE (130, 100)-(130, 135)
LINE (130, 135)-(120, 135)
LINE (120, 135)-(110, 120)
LINE (110, 120)-(110, 135)
LINE (110, 135)-(100, 135)
LINE (100, 135)-(100, 100)
PAINT (125, 110), 8, 4
REM **********************E
LINE (130, 100)-(155, 100)
LINE (155, 100)-(155, 135)
LINE (155, 135)-(130, 135)
LINE (130, 135)-(130, 125)
LINE (130, 125)-(145, 125)
LINE (145, 125)-(145, 120)
LINE (145, 120)-(135, 120)
LINE (135, 120)-(135, 115)
LINE (135, 115)-(145, 115)
LINE (145, 115)-(145, 110)
LINE (145, 110)-(130, 110)
LINE (130, 110)-(130, 100)
PAINT (150, 110), 8, 4
REM **********************M
LINE (155, 100)-(165, 100)
LINE (165, 100)-(175, 120)
LINE (175, 120)-(185, 100)
LINE (185, 100)-(195, 100)
LINE (195, 100)-(195, 135)
LINE (195, 135)-(185, 135)
LINE (185, 135)-(185, 120)
LINE (185, 120)-(180, 130)
LINE (180, 130)-(170, 130)
LINE (170, 130)-(165, 120)
LINE (165, 120)-(165, 135)
LINE (165, 135)-(155, 135)
PAINT (190, 110), 8, 4
REM **********************S
LINE (50, 145)-(75, 145)
LINE (75, 145)-(75, 155)
LINE (75, 155)-(60, 155)
LINE (60, 155)-(60, 160)
LINE (60, 160)-(75, 160)
LINE (75, 160)-(75, 180)
LINE (75, 180)-(50, 180)
LINE (50, 180)-(50, 165)
LINE (50, 165)-(60, 165)
LINE (60, 165)-(60, 175)
LINE (60, 175)-(65, 175)
LINE (65, 175)-(65, 165)
LINE (65, 165)-(50, 165)
LINE (50, 165)-(50, 145)
PAINT (60, 150), 8, 4
REM **********************H
LINE (75, 145)-(85, 145)
LINE (85, 145)-(85, 160)
LINE (85, 160)-(90, 160)
LINE (90, 160)-(90, 145)
LINE (90, 145)-(100, 145)
LINE (100, 145)-(100, 180)
LINE (100, 180)-(90, 180)
LINE (90, 180)-(90, 170)
LINE (90, 170)-(85, 170)
LINE (85, 170)-(85, 180)
LINE (85, 180)-(75, 180)
LINE (75, 180)-(75, 145)
PAINT (80, 150), 8, 4
REM **********************O
LINE (100, 145)-(125, 180), 4, B
LINE (105, 155)-(120, 170), 4, B
PAINT (120, 150), 8, 4
REM **********************W
LINE (125, 150)-(130, 145)
LINE (130, 145)-(145, 165)
LINE (145, 165)-(150, 150)
LINE (150, 150)-(160, 150)
LINE (160, 150)-(165, 165)
LINE (165, 165)-(180, 145)
LINE (180, 145)-(190, 150)
LINE (190, 150)-(170, 180)
LINE (170, 180)-(160, 180)
LINE (160, 180)-(155, 165)
LINE (155, 165)-(150, 180)
LINE (150, 180)-(140, 180)
LINE (140, 180)-(125, 155)
PAINT (150, 155), 8, 4
REM **********************WITHOUT ME SOUND
SOUND 293, 5
SOUND 493, 5
SOUND 440, 5
SOUND 392, 5
SOUND 293, 5
SOUND 32767, 10
SOUND 293, 5
SOUND 261, 5
SOUND 293, 5
SOUND 349, 5
SOUND 293, 5
SOUND 32767, 10
SOUND 293, 5
SOUND 261, 5
SOUND 293, 5
SOUND 261, 5
SOUND 238, 5
SOUND 32767, 10
SOUND 238, 5
SOUND 220, 5
SOUND 349, 5
SOUND 392, 5
REM **********************OPTIONS
COLOR 2
LOCATE 15, 27
PRINT "1. Directions"
LOCATE 16, 27
PRINT "2. Start Game"
LOCATE 17, 27
PRINT "3. Misc Stuff"
LOCATE 20, 27
INPUT "Choose a #"; OPTIONS
IF OPTIONS = 1 THEN GOSUB DIRECTIONS
IF OPTIONS = 2 THEN GOSUB STARTGAME
IF OPTIONS = 3 THEN GOSUB MISC
RETURN

REM ************************************************************DIRECTIONS
DIRECTIONS:
CLS
SCREEN 9
PRINT "DIRECTIONS:"
PRINT
PRINT "The concept..."
PRINT "    *The concept of the game is that you are on a game show trying to win"
PRINT "tickets to your favorite rapper's concert (Eminem). In order to prove that"
PRINT "you are the ultimate Eminem fan you have to answer a serious of trivia"
PRINT "questions in order to see the concert. It's just like Jepardy."
PRINT
PRINT "How to play..."
PRINT "    *First of all, make sure when you are typing in all your choices that"
PRINT "     your CAPS LOCK is on and all your letters are UPPERCASE."
PRINT "    *Make sure when typing in your answers or choices that all the spelling"
PRINT "     is correct."
PRINT "    *You will see a screen with catagories. Pick the category you believe"
PRINT "     you might have the most knowledge about and attempt to answer the"
PRINT "     questions asked correctly."
PRINT "    *If you get 5,000 points then you get front row tickets! If not...no show!"
PRINT
PRINT "What are you waiting for??"
PRINT "Are you ready to get your game on?"
PRINT "When ever you're ready press enter on your keyboard"
INPUT ""; STARTGAME$
IF STARTGAME$ = "" THEN GOTO STARTGAME
RETURN

REM**************************************************************START GAME
STARTGAME:
SCREEN 7
CLS
COLOR 7
REM ***BOXES***
CATEGORIES:
LINE (35, 5)-(285, 185), 7, B
LINE (35, 35)-(285, 35)
LINE (35, 65)-(285, 65)
LINE (35, 95)-(285, 95)
LINE (35, 125)-(285, 125)
LINE (35, 155)-(285, 155)
LINE (35, 185)-(285, 185)
LINE (85, 5)-(85, 185)
LINE (135, 5)-(135, 185)
LINE (185, 5)-(185, 185)
LINE (235, 5)-(235, 185)
LINE (285, 5)-(285, 185)
PAINT (50, 25), 8, 7
PAINT (100, 25), 8, 7
PAINT (150, 25), 8, 7
PAINT (200, 25), 8, 7
PAINT (250, 25), 8, 7
LOCATE 3, 7
PRINT "BIO"
LOCATE 3, 12
PRINT "LYRICS"
LOCATE 2, 20
PRINT "8"
LOCATE 3, 19
PRINT "MILE"
LOCATE 3, 24
PRINT "TATOOS"
LOCATE 2, 31
PRINT "SONGS/"
LOCATE 3, 31
PRINT "ALBUMS"
LOCATE 7, 7
PRINT "100"
LOCATE 7, 13
PRINT "100"
LOCATE 7, 19
PRINT "100"
LOCATE 7, 26
PRINT "100"
LOCATE 7, 32
PRINT "100"
LOCATE 11, 7
PRINT "200"
LOCATE 11, 13
PRINT "200"
LOCATE 11, 19
PRINT "200"
LOCATE 11, 26
PRINT "200"
LOCATE 11, 32
PRINT "200"
LOCATE 15, 7
PRINT "300"
LOCATE 15, 13
PRINT "300"
LOCATE 15, 19
PRINT "300"
LOCATE 15, 26
PRINT "300"
LOCATE 15, 32
PRINT "300"
LOCATE 18, 7
PRINT "400"
LOCATE 18, 13
PRINT "400"
LOCATE 18, 19
PRINT "400"
LOCATE 18, 26
PRINT "400"
LOCATE 18, 32
PRINT "400"
LOCATE 22, 7
PRINT "500"
LOCATE 22, 13
PRINT "500"
LOCATE 22, 19
PRINT "500"
LOCATE 22, 26
PRINT "500"
LOCATE 22, 32
PRINT "500"
LOCATE 25
INPUT "PICK (EX. BIO 200)"; CAT$
IF CAT$ = "BIO 100" THEN GOSUB BIO100
IF CAT$ = "BIO 200" THEN GOSUB BIO200
IF CAT$ = "BIO 300" THEN GOSUB BIO300
IF CAT$ = "BIO 400" THEN GOSUB BIO400
IF CAT$ = "BIO 500" THEN GOSUB BIO500
IF CAT$ = "LYRICS 100" THEN GOSUB LYRICS100
IF CAT$ = "LYRICS 200" THEN GOSUB LYRICS200
IF CAT$ = "LYRICS 300" THEN GOSUB LYRICS300
IF CAT$ = "LYRICS 400" THEN GOSUB LYRICS400
IF CAT$ = "LYRICS 500" THEN GOSUB LYRICS500
IF CAT$ = "8 MILE 100" THEN GOSUB MILE100
IF CAT$ = "8 MILE 200" THEN GOSUB MILE200
IF CAT$ = "8 MILE 300" THEN GOSUB MILE300
IF CAT$ = "8 MILE 400" THEN GOSUB MILE400
IF CAT$ = "8 MILE 500" THEN GOSUB MILE500
IF CAT$ = "TATOOS 100" THEN GOSUB TATOOS100
IF CAT$ = "TATOOS 200" THEN GOSUB TATOOS200
IF CAT$ = "TATOOS 300" THEN GOSUB TATOOS300
IF CAT$ = "TATOOS 400" THEN GOSUB TATOOS400
IF CAT$ = "TATOOS 500" THEN GOSUB TATOOS500
IF CAT$ = "SONGS/ALBUMS 100" THEN GOSUB SA100
IF CAT$ = "SONGS/ALBUMS 200" THEN GOSUB SA200
IF CAT$ = "SONGS/ALBUMS 300" THEN GOSUB SA300
IF CAT$ = "SONGS/ALBUMS 400" THEN GOSUB SA400
IF CAT$ = "SONGS/ALBUMS 500" THEN GOSUB SA500
CLS
PRINT "TRY AGAIN PLEASE!"
SLEEP 2
CLS
GOTO CATEGORIES
REM ******BIO100******
BIO100:
CLS
PRINT "WHAT IS EMINEM'S REAL FULL FIRST AND"
INPUT "LAST NAME"; BIO100$
PRINT
IF BIO100$ = "MARSHALL MATHERS" THEN C = C + 100
IF BIO100$ = "MARSHALL MATHERS" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF BIO100$ <> "MARSHALL MATHERS" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF BIO100$ <> "MARSHALL MATHERS" THEN PRINT "MARSHALL MATHERS"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******BIO200******
BIO200:
CLS
INPUT "WHAT IS HIS DAUGHTER'S NAME"; BIO200$
PRINT
IF BIO200$ = "HAILIE" THEN C = C + 200
IF BIO200$ = "HAILIE" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF BIO200$ <> "HAILIE" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF BIO200$ <> "HAILIE" THEN PRINT "HAILIE"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******BIO300******
BIO300:
CLS
INPUT "IN WHAT CITY DID HE GROW UP IN"; BIO300$
PRINT
IF BIO300$ = "DETROIT" THEN C = C + 300
IF BIO300$ = "DETROIT" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF BIO300$ <> "DETROIT" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF BIO300$ <> "DETROIT" THEN PRINT "DETROIT"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******BIO400******
BIO400:
CLS
INPUT "WHAT STATE WAS HE BORN IN"; BIO400$
PRINT
IF BIO400$ = "MISSOURI" THEN C = C + 400
IF BIO400$ = "MISSOURI" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF BIO400$ <> "MISSOURI" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF BIO400$ <> "MISSOURI" THEN PRINT "MISSOURI"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******BIO500******
BIO500:
CLS
INPUT "WHEN WAS EMINEM BORN? (MM/DD/YY)"; BIO500$
PRINT
IF BIO500$ = "10/17/72" THEN C = C + 500
IF BIO500$ = "10/17/72" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF BIO500$ <> "10/17/72" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF BIO500$ <> "10/17/72" THEN PRINT "10/17/72"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******LYRICS100******
LYRICS100:
CLS
PRINT "FINISH THE LYRICS"
INPUT "YOU BETTER LOOSE YOURSELF IN THE MUSIC THE MOMENT YOU OWN IT..."; LYRICS100$
PRINT
IF LYRICS100$ = "YOU BETTER NEVER LET IT GO" THEN C = C + 100
IF LYRICS100$ = "YOU BETTER NEVER LET IT GO" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF LYRICS100$ <> "YOU BETTER NEVER LET IT GO" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF LYRICS100$ <> "YOU BETTER NEVER LET IT GO" THEN PRINT "YOU BETTER NEVER LET IT GO"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******LYRICS200******
LYRICS200:
CLS
PRINT "WHAT SONG ARE THESE LYRICS FROM?"
INPUT "I KNOW YOU WANT ME BABY, YOU KNOW I WANT YOU TO..."; LYRICS100$
PRINT
IF LYRICS200$ = "SUPERMAN" THEN C = C + 200
IF LYRICS200$ = "SUPERMAN" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF LYRICS200$ <> "SUPERMAN" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF LYRICS200$ <> "SUPERMAN" THEN PRINT "SUPERMAN"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******LYRICS300******
LYRICS300:
CLS
PRINT "FINISH THE LYRICS"
INPUT "NOW THIS LOOKS LIKE A JOB FOR ME..."; LYRICS300$
PRINT
IF LYRICS300$ = "SO EVERYBODY JUST FOLLOW ME" THEN C = C + 300
IF LYRICS300$ = "SO EVERYBODY JUST FOLLOW ME" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF LYRICS300$ <> "SO EVERYBODY JUST FOLLOW ME" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF LYRICS300$ <> "SO EVERYBODY JUST FOLLOW ME" THEN PRINT "SO EVERYBODY JUST FOLLOW ME"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******LYRICS400******
LYRICS400:
CLS
PRINT "FINISH THE LYRICS"
INPUT "I'M NOT MR NSYNC..."; LYRICS400$
PRINT
IF LYRICS400$ = "I'M NOT WHAT YOUR FRIENDS THINK" THEN C = C + 400
IF LYRICS400$ = "IM NOT WHAT YOUR FRIENDS THINK" THEN C = C + 400
IF LYRICS400$ = "I'M NOT WHAT YOUR FRIENDS THINK" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF LYRICS400$ = "IM NOT WHAT YOUR FRIENDS THINK" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF LYRICS400$ <> "I'M NOT WHAT YOUR FRIENDS THINK" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF LYRICS400$ <> "I'M NOT WHAT YOUR FRIENDS THINK" THEN PRINT "I'M NOT WHAT YOUR FRIENDS THINK"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******LYRICS500******
LYRICS500:
CLS
PRINT "FINISH THE LYRICS"
INPUT "DR DRE DON'T JUST STAND THERE..."; LYRICS500$
PRINT
IF LYRICS500$ = "OPERATE" THEN C = C + 500
IF LYRICS500$ = "OPERATE" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF LYRICS500$ <> "OPERATE" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF LYRICS500$ <> "OPERATE" THEN PRINT "OPERATE"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******8MILE100******
MILE100:
CLS
PRINT "WHAT IS THE NICK NAME OF THE CHARACTER"
INPUT "EMINEM PLAYED IN THE MOVIE 8 MILE"; MILE100$
PRINT
IF MILE100$ = "BUNNY RABBIT" THEN C = C + 100
IF MILE100$ = "BUNNY RABBIT" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF MILE100$ <> "BUNNY RABBIT" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF MILE100$ <> "BUNNY RABBIT" THEN PRINT "BUNNY RABBIT"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******8MILE200******
MILE200:
CLS
INPUT "WHO SHOT HIMSELF IN THE LEG"; MILE200$
PRINT
IF MILE200$ = "CHEDDER BOB" THEN C = C + 200
IF MILE200$ = "CHEDDER BOB" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF MILE200$ <> "CHEDDER BOB" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF MILE200$ <> "CHEDDER BOB" THEN PRINT "CHEDDER BOB"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******8MILE300******
MILE300:
CLS
PRINT "WHAT WAS THE NAME OF THE GROUP THAT WERE"
INPUT "EMINEM'S RIVALS"; MILE300$
PRINT
IF MILE300$ = "FREE WORLD" THEN C = C + 300
IF MILE300$ = "FREE WORLD" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF MILE300$ <> "FREE WORLD" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF MILE300$ <> "FREE WORLD" THEN PRINT "FREE WORLD"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******8MILE400******
MILE400:
CLS
PRINT "WHAT WAS THE NAME OF THE PLACE WHERE"
INPUT "EVERYONE WENT TO SEE FREESTYLE BATTLES"; MILE400$
PRINT
IF MILE400$ = "THE SHELTER" THEN C = C + 400
IF MILE400$ = "THE SHELTER" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF MILE400$ <> "THE SHELTER" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF MILE400$ <> "THE SHELTER" THEN PRINT "THE SHELTER"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******8MILE500******
MILE500:
CLS
PRINT "WHAT WAS THE AREA CODE OF THE SETTING"
INPUT "OF THE MOVIE"; MILE500$
PRINT
IF MILE500$ = "313" THEN C = C + 500
IF MILE500$ = "313" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF MILE500$ <> "313" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF MILE500$ <> "313" THEN PRINT "313"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******TATOOS100******
TATOOS100:
CLS
PRINT "EMINEM HAS A TATOO OF A LITTLE GIRL ON"
INPUT "HIS RIGHT ARM WHO HIS...WHAT"; TATOOS100$
PRINT
IF TATOOS100$ = "DAUGHTER" THEN C = C + 100
IF TATOOS100$ = "DAUGHTER" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF TATOOS100$ <> "DAUGHTER" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF TATOOS100$ <> "DAUGHTER" THEN PRINT "DAUGHTER"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******TATOOS200******
TATOOS200:
CLS
PRINT "EMINEM HAS A TATOO OF THE LETTER *D* ON"
PRINT "THIS LEFT ARM AND THE NUMBER *12* ON HIS"
PRINT "RIGHT TO FINISH *D12* A RAP GROUP SIGNED"
INPUT "WITH HIS LABEL. WHAT DOES D12 STAND FOR"; TATOOS200$
PRINT
IF TATOOS200$ = "DIRTY DOZEN" THEN C = C + 200
IF TATOOS200$ = "DIRTY DOZEN" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF TATOOS200$ <> "DIRTY DOZEN" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF TATOOS200$ <> "DIRTY DOZEN" THEN PRINT "DIRTY DOZEN"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******TATOOS300******
TATOOS300:
CLS
PRINT "EMINEM HAS A TATOO ON HIS STOMACH"
PRINT "DEDICATED TO HIS WIFE KIM TO REMEMBER"
PRINT "A TIME WAY BACK WHEN SHE STEPPED OUT OF"
INPUT "LINE. WHAT DOES THAT TATOO SAY"; TATOOS300$
PRINT
IF TATOOS300$ = "ROT IN PIECES" THEN C = C + 300
IF TATOOS300$ = "ROT IN PIECES" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF TATOOS300$ <> "ROT IN PIECES" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF TATOOS300$ <> "ROT IN PIECES" THEN PRINT "ROT IN PIECES"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******TATOOS400******
TATOOS400:
CLS
PRINT "HE HAS A TATOOS ON HIS RIGHT ARM THAT"
PRINT "SAYS *EMINEM* WHICH HIS STAGE NAME. ON"
PRINT "HIS LEFT ARM HE HAS HIS ALIAS, MORE"
INPUT "DARKER SIDE NICK NAME. WHAT IS IT"; TATOOS400$
PRINT
IF TATOOS400$ = "SLIM SHADY" THEN C = C + 400
IF TATOOS400$ = "SLIM SHADY" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF TATOOS400$ <> "SLIM SHADY" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF TATOOS400$ <> "SLIM SHADY" THEN PRINT "SLIM SHADY"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******TATOOS500******
TATOOS500:
CLS
PRINT "EMINEM HAS A TATOO ON HIS LEFT ARM"
PRINT "DEDICATED TO SOMEONE NAMED RONNIE. WHO"
INPUT "WAS RONNIE TO EMINEM? HE WAS HIS..."; TATOOS500$
PRINT
IF TATOOS500$ = "UNCLE" THEN C = C + 500
IF TATOOS500$ = "UNCLE" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF TATOOS500$ <> "UNCLE" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF TATOOS500$ <> "UNCLE" THEN PRINT "UNCLE"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******SONG/ALBUMS100******
SA100:
CLS
INPUT "WHAT ALBUM IS THE SONG *MY NAME IS* FROM"; SA100$
PRINT
IF SA100$ = "THE SLIM SHADY LP" THEN C = C + 100
IF SA100$ = "THE SLIM SHADY LP" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF SA100$ <> "THE SLIM SHADY LP" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF SA100$ <> "THE SLIM SHADY LP" THEN PRINT "THE SLIM SHADY LP"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******SONG/ALBUMS200******
SA200:
CLS
INPUT "WHAT SONG IS TRACK 10 ON THE EMINEM SHOW"; SA200$
PRINT
IF SA200$ = "WITHOUT ME" THEN C = C + 200
IF SA200$ = "WITHOUT ME" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF SA200$ <> "WITHOUT ME" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF SA200$ <> "WITHOUT ME" THEN PRINT "WITHOUT ME"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******SONG/ALBUMS300******
SA300:
CLS
PRINT "ON THE MARSHALL MATHERS LP, WHAT IS THE"
PRINT "NAME OF THE SONG THAT REPLACED THE SONG"
INPUT "*KIM* IN THE EDITED VERSION OF THE CD"; SA300$
PRINT
IF SA300$ = "THE KIDS" THEN C = C + 300
IF SA300$ = "THE KIDS" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF SA300$ <> "THE KIDS" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF SA300$ <> "THE KIDS" THEN PRINT "THE KIDS"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******SONG/ALBUMS400******
SA400:
CLS
PRINT "THE SLIM SHADY LP CAME OUT IN 1999, BUT"
INPUT "WHEN DID THE EP COME OUT"; SA400$
PRINT
IF SA400$ = "1997" THEN C = C + 400
IF SA400$ = "1997" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF SA400$ <> "1997" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF SA400$ <> "1997" THEN PRINT "1997"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ******SONG/ALBUMS500******
SA500:
CLS
PRINT "BEFORE THE SLIM SHADY ALBUM EMINEM HAD"
PRINT "ANOTHER ALBUM OUT. WHAT WAS THE NAME OF"
INPUT "THAT ALBUM"; SA500$
PRINT
IF SA500$ = "INFINITE" THEN C = C + 500
IF SA500$ = "INFINITE" THEN PRINT "THAT'S CORRECT! "; C; " POINTS!"
IF SA500$ <> "INFINITE" THEN PRINT "THAT'S INCORRECT. THE CORRECT ANSWER IS:"
IF SA500$ <> "INFINITE" THEN PRINT "INFINITE"
IF C >= 5000 THEN GOTO CONCERT
SLEEP 4
CLS
GOTO CATEGORIES
REM ****************************************************************CONCERT
CONCERT:
CLS
LOCATE 10, 15
PRINT "YOU WIN!"
SLEEP 3
CLS
REM **********************MIC PICTURE
REM TYPE BMPHeader
REM   ValidID AS STRING * 2
REM   SizeOfFile AS LONG
REM   Reserved AS LONG
REM   OffsetOfBitMap AS LONG
REM END TYPE
REM TYPE WindowsBMPInfoHeader
REM   SizeOfHeader AS LONG
REM   Widthz AS LONG
REM   Heightz AS LONG
REM   Planes AS INTEGER
REM   BitsPerPixel AS INTEGER
REM   CompressMethod AS LONG
REM   ImageSizeInBytes AS LONG
REM   HorizontalResol AS LONG
REM   VerticalResol AS LONG
REM   ColorsUsed AS LONG
REM   ImportantColors AS LONG
REM END TYPE
CALL bmp24bit("a:concert.bmp")
REM **********************WITHOUT ME SOUND
SOUND 293, 5
SOUND 493, 5
SOUND 440, 5
SOUND 392, 5
SOUND 293, 5
SOUND 32767, 10
SOUND 293, 5
SOUND 261, 5
SOUND 293, 5
SOUND 349, 5
SOUND 293, 5
SOUND 32767, 10
SOUND 293, 5
SOUND 261, 5
SOUND 293, 5
SOUND 261, 5
SOUND 238, 5
SOUND 32767, 10
SOUND 238, 5
SOUND 220, 5
SOUND 349, 5
SOUND 392, 5
PRINT "NOW THIS LOOKS LIKE A JOB FOR ME!"
PRINT "SO EVERYBODY JUST FOLLOW ME!"
PRINT "BECAUSE WE NEED A LITTLE CONTROVERSY!"
PRINT "BECAUSE IT FEELS SO EMPTY WITHOUT ME!"
REM **********************WITHOUT ME SOUND
SOUND 293, 5
SOUND 493, 5
SOUND 440, 5
SOUND 392, 5
SOUND 293, 5
SOUND 32767, 10
SOUND 293, 5
SOUND 261, 5
SOUND 293, 5
SOUND 349, 5
SOUND 293, 5
SOUND 32767, 10
SOUND 293, 5
SOUND 261, 5
SOUND 293, 5
SOUND 261, 5
SOUND 238, 5
SOUND 32767, 10
SOUND 238, 5
SOUND 220, 5
SOUND 349, 5
SOUND 392, 5
SLEEP 4
CLS
PRINT "CONGRATS! YOU ARE THE ULTIMATE EMINEM FAN!"
PRINT "NOW CHECK OUT THE MISC STUFF!"
PRINT "GET READY YOU'RE GOING BACK TO THE MAIN SCREEN!"
SLEEP 5
CLS
GOTO WELCOME
REM *******************************************************************MISC
MISC:
CLS
SCREEN 9
INPUT "GIVE ME A NUMBER"; A1
INPUT "GIVE ME ANOTHER"; A2
INPUT "WOULD YOU LIKE TO +, -, *, OR / (PUT IN THE SIGN)"; A3$
IF A3$ = "+" THEN B1 = A1 + A2
IF A3$ = "-" THEN B1 = A1 - A2
IF A3$ = "*" THEN B1 = A1 * A2
IF A3$ = "/" THEN B1 = A1 / A2
PRINT B1
SLEEP 2
FOR X = 1 TO 5
DATA VICTOR, ROBBIE, LUIS, MIKE, JONATHAN
READ LOVE$
PRINT LOVE$
NEXT X
SLEEP 4
CLS
INPUT "GIVE ME A NAME"; C1$
PRINT LEFT$(C1$, 2)
PRINT RIGHT$(C1$, 2)
PRINT MID$(C1$, 2, 3)
PRINT LEN(C1$)
PRINT
INPUT "GIVE ME A NUMBER"; C2
PRINT SQR(C2)
PRINT INT(C2)
SLEEP 3
CLS
FOR TTT = 1 TO 10
READ P(TTT)
NEXT TTT
DATA 56, 33, 2, 546, 47, 99, 14, 6, 45, 20
FOR Z = 1 TO 9
FOR X = 1 TO 9
IF P(X) > P(X + 1) THEN
T = P(X + 1): P(X + 1) = P(X): P(X) = T
END IF
NEXT X
NEXT Z
FOR TTT = 1 TO 10
PRINT P(TTT)
NEXT TTT
SLEEP 2
CLS
FOR D1 = 1 TO 5
READ F1(D1)
PRINT F1(D1)
NEXT D1
DATA 954, 303, 754, 786, 313
SLEEP 3
CLS
DATA LAURA, 14, MONIQUE, 17, JACKIE, 15, VICTOR, 18, LUIS, 17, JUSTIN, 19
DATA ROBBIE, 17, JESSICA, 16, NORMAN, 18, ASHLEY, 14
FOR DDD = 1 TO 10
READ ND$(DDD), NN(DDD)
NEXT DDD
INPUT "TYPE IN AN AGE (NUMBER)"; INN
FOR DDD = 1 TO 10
IF INN = NN(DDD) THEN PRINT ND$(DDD), NN(DDD)
NEXT DDD
SLEEP 3
CLS
PRINT "ALRIGHT THAT'S ENOUGH OF THIS JUNK!"
PRINT "HAD FUN?"
PRINT "HOPE SO!"
SLEEP 5
CLS
GOTO WELCOME

DEFINT A-Z
SUB bmp24bit (FileName$)

DIM BMPHeader AS BMPHeader
DIM BMPInfoHeader AS WindowsBMPInfoHeader
DIM ColorPalArray(255, 3): ColorsInArray = 0
ColorPalArray(Loops, 1) = 0: ColorPalArray(Loops, 2) = 0
ColorPalArray(Loops, 3) = 0: Quality = 1: Variation = 3

OPEN FileName$ FOR BINARY AS #255
IF LOF(255) = 0 THEN
   PRINT : PRINT " File Is Empty"
   CLOSE #255: KILL FileName$
   EXIT SUB
END IF

GET #255, , BMPHeader
GET #255, , BMPInfoHeader

IF BMPInfoHeader.BitsPerPixel <> 24 THEN
   PRINT : PRINT " Not a 24-Bit BMP"
   CLOSE #255: EXIT SUB
END IF

LineExtract& = BMPInfoHeader.Widthz * 3
IF (4 - (LineExtract& MOD 4)) <> 4 THEN
   LineExtract& = LineExtract& + (4 - (LineExtract& MOD 4))
END IF
LineExtract$ = SPACE$(LineExtract&)

IF BMPInfoHeader.Heightz > 200 THEN HeightLimit = 199 ELSE HeightLimit = BMPInfoHeader.Heightz - 1
IF BMPInfoHeader.Widthz > 320 THEN WidthLimit = 319 ELSE WidthLimit = BMPInfoHeader.Widthz - 1

SCREEN 13
FOR YHeight = HeightLimit TO 0 STEP -1
   GET #255, 55 + (LineExtract& * (BMPInfoHeader.Heightz - 1)) - (LineExtract& * YHeight), LineExtract$
   FOR XWidth = 0 TO WidthLimit
       PixelBlue = ASC(MID$(LineExtract$, (XWidth * 3) + 1, 1)) \ (Quality * 4)
       PixelGreen = ASC(MID$(LineExtract$, (XWidth * 3) + 2, 1)) \ (Quality * 4)
       PixelRed = ASC(MID$(LineExtract$, (XWidth * 3) + 3, 1)) \ (Quality * 4)
       PixelSet = 0
       FOR Loops = 0 TO ColorsInArray
          IF PixelBlue >= ColorPalArray(Loops, 3) - Variation AND PixelBlue <= ColorPalArray(Loops, 3) + Variation THEN
             IF PixelGreen >= ColorPalArray(Loops, 2) - Variation AND PixelGreen <= ColorPalArray(Loops, 2) + Variation THEN
                IF PixelRed >= ColorPalArray(Loops, 1) - Variation AND PixelRed <= ColorPalArray(Loops, 1) + Variation THEN
                   PSET (XWidth, YHeight), Loops
                   PixelSet = 1
                   EXIT FOR
                END IF
             END IF
          END IF
       NEXT Loops
     
       IF PixelSet = 0 AND ColorsInArray < 255 THEN
          ColorsInArray = ColorsInArray + 1
          ColorPalArray(ColorsInArray, 1) = PixelRed
          ColorPalArray(ColorsInArray, 2) = PixelGreen
          ColorPalArray(ColorsInArray, 3) = PixelBlue
          CALL SetColor(ColorsInArray, PixelRed, PixelGreen, PixelBlue)
          PSET (XWidth, YHeight), ColorsInArray
       ELSE
          IF PixelSet = 0 THEN
             Movement = 0
             DO
                FOR Loops = 0 TO 255
                   IF PixelBlue >= (ColorPalArray(Loops, 3) - Movement) AND PixelBlue <= (ColorPalArray(Loops, 3) + Movement) THEN
                      IF PixelGreen >= (ColorPalArray(Loops, 2) - Movement) AND PixelGreen <= (ColorPalArray(Loops, 2) + Movement) THEN
                         IF PixelRed >= (ColorPalArray(Loops, 1) - Movement) AND PixelRed <= (ColorPalArray(Loops, 1) + Movement) THEN
                            PSET (XWidth, YHeight), Loops
                            EXIT DO
                         END IF
                      END IF
                   END IF
                NEXT Loops
                Movement = Movement + 1
             LOOP
          END IF
       END IF
   NEXT XWidth
NEXT YHeight

END SUB

SUB SetColor (ColorNumber, Red, Green, Blue)

OUT &H3C8, ColorNumber
OUT &H3C9, Red
OUT &H3C9, Green
OUT &H3C9, Blue

END SUB