REM MICHAEL JOHNSON
REM 12/9/02
CLS
COLOR 1
CLS
FOR X = 31 TO 16 STEP -1
COLOR X
LOCATE 11, 30
PRINT "NOBODY'S AROUND TO HELP YOU"
FOR HOLD = 1 TO 3000
NEXT HOLD
NEXT X
SLEEP 2
CLS
FOR X = 31 TO 16 STEP -1
COLOR X
LOCATE 11, 30
PRINT "YOU MUST DO IT ALONE"
FOR HOLD = 1 TO 3000
NEXT HOLD
NEXT X
SLEEP 2
CLS
MENU:
COLOR 4
PRINT "***********MENU************"
SLEEP 1
PRINT "CHOOSE WHAT YOU WANT TO DO"
SLEEP 1
PRINT "1. TAKE A QUIZ"
SLEEP 1
PRINT "2. REQUIREMENTS"
SLEEP 1
PRINT "3. QUIT"
SLEEP 1
INPUT "WHICH ONE DO YOU WANT TO DO"; pick
IF pick = 1 THEN GOSUB ONE
IF pick = 2 THEN GOSUB TWO
IF pick = 3 THEN GOSUB QUIT
CLS
ONE:
COLOR 2
FOR X = 1 TO 50
PRINT "0101010101010101010101010101010101010101010101010101010101010101010101010"
SOUND 3000, 1
PRINT "1010101010101010101010101010101010101010101010101010101010101010101010101"
NEXT X
SLEEP 1
CLS
SCREEN 12
LOCATE 1, 27
PRINT "Connected to the MJ Quiz"
SLEEP 2
CLS
FOR X = 1 TO 1000
NEXT X
SCREEN 12: CLS
SLEEP 1
COLOR 9: LOCATE 11, 35: PRINT "Logging on."
SLEEP 1
COLOR 9: LOCATE 11, 35: PRINT "Logging on.."
SLEEP 1
COLOR 9: LOCATE 11, 35: PRINT "Logging on..."
SLEEP 1
COLOR 9: LOCATE 11, 35: PRINT "                   "
COLOR 10: LOCATE 11, 35: PRINT "Logged in"
SLEEP 2
CLS
COLOR 8
LOCATE 11, 30
PRINT "YOU HAVE ENTERED INTO A TEST THAT WILL TEST YOUR ABILITY OF COMMON SENSE, AND ALSO IT WILL TEST HOW MUCH YOU GO TO THE MOVIES AND PLAY GAMES, BR PREPARED, FOR THE GREATEST TEST IN THE WORLD!"
SLEEP 10
CLS
START:
COLOR 4
PRINT "QEUSTION ONE"
SLEEP 1
CLS
COLOR 3
PRINT "IN THE GAME GTA3, HOW DO YOU KILL PEOPLE"
PRINT "A. WITH WEAPONS AND GUNS"
PRINT "B. WITH YOUR BARE HANDS AND FEET"
PRINT "C. BY STARING"
PRINT "D. A AND B"
INPUT "WELL...."; GTA3$
IF GTA3$ = "D" THEN GOSUB CORRECT
IF GTA3$ <> "D" THEN GOSUB WRONG
SLEEP 2
CLS
COLOR 9
LOCATE 11, 35
PRINT "QUESTIOIN 2"
SLEEP 2
CLS
COLOR 7
PRINT "WHEN YOU STEP IN MUD, DO YOU STRUGGLE"
PRINT "A. YES"
PRINT "B. NO"
INPUT "YOUR ANSWER"; MUD$
IF MUD$ = "A" THEN GOSUB WRONG
IF MUD$ = "B" THEN GOSUB CORRECT
CIRCLE (170, 75), 35, 1
PAINT (170, 75), 2, 1
CIRCLE (200, 75), 25, 6
PAINT (200, 75), 5, 6
COLOR 2
LOCATE 11, 35
PRINT "GOOD JOB!"
SLEEP 2
CLS
LOCATE 1, 75
PRINT "QUESTION 3"
SLEEP 2
CLS
PRINT "WHAT COLOR IS AN ORAANGE"
PRINT "A. RED"
PRINT "B. ORANGE"
PRINT "C. GREEN"
PRINT "D. AMBASSADOR PURPLE"
INPUT "AND YOUR ANSWER IS!!!!!"; ORA$
IF ORA$ = "B" THEN GOSUB CORRECT
IF ORA$ <> "B" THEN GOSUB WRONG
SLEEP 2
CLS
PRINT "QUESTION 4"
SLEEP 2
CLS
PRINT "WHAT DO PEOPLE DO WHEN SOMEONE DIES"
PRINT "A. HAVE A FUNERAL"
PRINT "B. LAUGH"
PRINT "C. GIVE A LOT OF MONEY TO PEOPLE THAT YOU DON'T EVEN KNOW, OR HAVEN'T EVEN HEARD OF BEFORE"
PRINT "D. YOU DON'T KNOW"
INPUT "PUT YOUR ANSWER HERE PLEASE"; DIE$
IF DIE$ = "A" THEN GOSUB CORRECT
IF DIE$ = "B" THEN GOSUB WRONG
SLEEP 2
CLS
LOCATE 22, 11
PRINT "QUESTION 5"
SLEEP 2
CLS
LOCATE 11, 35
PRINT "WHEN YOU GO TO SCHOOL, WHAT DO YOU GO THERE TO DO"
SLEEP 2
COLOR 1
PRINT "A. HAVE FUN"
SLEEP 2
COLOR 2
PRINT "B. GET GIRLS"
SLEEP 2
COLOR 3
PRINT "C. LEARN"
SLEEP 2
COLOR 5
PRINT "D. ALL OF THE ABOVE"
SLEEP 2
COLOR 6
INPUT "PUT YOUR ANSWER HERE PLEASE"; SCHOOL$
IF SCHOOL$ = "D" THEN GOSUB CORRECT
IF SCHOOL$ <> "D" THEN GOSUB WRONG
SLEEP 2
CLS
COLOR 1
LOCATE 11, 35
PRINT "QUESTION 6"
SLEEP 2
CLS
COLOR 5
PRINT "WHEN YOU ARE ON A COMPUTER, WHAT DO YOU DO"
PRINT "A. HOMEWORK"
PRINT "B. PLAY GAMES"
PRINT "C. DOWNLOAD MUSIC"
PRINT "D. NONE OF THE ABOVE"
INPUT "SO, WHAT DO YOU DO"; COMP$
IF COMP$ = "A" THEN GOSUB CORRECT
IF COMP$ <> "A" THEN GOSUB WRONG
SLEEP 2
CLS
COLOR 3
LOCATE 22, 75
PRINT "QUESTION 7"
SLEEP 2
CLS
PRINT "THIS QUESTION MAY BE KIND OF TRICKY, BUT, WHY IS WATER BLUE"
PRINT "A. BECAUSE OF THE REFLECTION OF THE SKY, THROUGH SUBATOMIC PARTICLES"
PRINT "B. BECAUSE IT IS"
PRINT "C. BECAUSE YOU SAY SO"
PRINT "D. GOD MADE IT THAT WAY"
INPUT "ENTER YOUR ANSWER HERE PLEASE"; WATER$
IF WATER$ = "A" THEN GOSUB CORRECT
IF WATER$ <> "A" THEN GOSUB WRONG
SLEEP 2
CLS
COLOR 11
LOCATE 11, 35
PRINT "QUESTION 8"
SLEEP 2
CLS
INPUT "WHAT IS YOUR NAME"; NM$
SLEEP 2
CLS
PRINT "ARE CARS USED FOR TRANSPORTATION"
PRINT "A. YES"
PRINT "B. NO"
INPUT "ANSWER PLEASE"; CARS$
IF CARS$ = "A" THEN GOSUB CORRECT
IF CARS$ <> "A" THEN GOSUB WRONG
SLEEP 2
CLS
COLOR 13
LOCATE 11, 35
PRINT "QUESTION 9"
SLEEP 2
CLS
INPUT "HOW OLD ARE YOU"; HOA
IF HOA <> 17 THEN PRINT "YOU ARE OLDER OR YOUNGER THAN ME"
IF HOA = 17 THEN PRINT "WE'RE THE SAME AGE"
SLEEP 2
CLS
SLEEP 2
CLS
PRINT "ARE WE ALMOST AT THE END OF THIS QUIZ?"
PRINT "A. SO"
PRINT "B. YES"
PRINT "C. NO"
PRINT "D. WHY"
INPUT "WELL ARE WE"; AGS$
IF AGS$ = "B" THEN GOSUB CORRECT
IF AGS$ <> "B" THEN GOSUB WRONG
SLEEP 2
CLS
COLOR 4
FOR X = 31 TO 16 STEP -1
LOCATE 11, 30
PRINT "FINAL QUESTION!"
FOR HOLD = 1 TO 3000
NEXT HOLD
NEXT X
PRINT "DID YOU LIKE THIS QUIZ"
PRINT "A. NO"
PRINT "B. YES"
INPUT "DID YOU"; QUIZ$
IF QUIZ$ = "B" THEN GOSUB CORRECT
IF QUIZ$ = "A" THEN GOSUB FINISHED
SLEEP 2
CLS
INPUT "WOULD YOU LIKE TO REPET THIS PROGRAM"; REPEAT$
IF REPEAT$ = "YES" THEN GOTO MENU
IF REPEAT$ = "NO" THEN END
GOSUB PERCENTAGE
SLEEP 2
CLS
TWO:
REM *REQUIREMENTS*
REM**loader**
loader:
RESTORE

        CLS
        SCREEN 12
        REM **Loading Box
        LINE (140, 200)-(500, 260), 15, B



REM **This prints loading
     
        COLOR 15
        LOCATE 14, 35
        PRINT "Loading..."



REM **This is the scrolling bar
     
        X = 150
        y = 240
        X2 = 160
        Y2 = 250


MOVE:
        LINE (X, y)-(X2, Y2), 4, B
        LINE (X, y)-(X2, Y2), 4, B

        FOR t = 1 TO 700
        RESTORE
        NEXT t
        LINE (X, y)-(X2, Y2), 4, B
        X = X + 2
        X2 = X2 + 2
        IF X > 475 THEN GOTO REQUIREMENTS
GOTO MOVE
CLS
REQUIREMENTS:
LOCATE 1, 1
INPUT "WHAT IS YOUR NAME"; ENAM$
SLEEP 3
LOCATE 11, 35
PRINT ENAM$
SLEEP 1
CLS
LOCATE 22, 75
PRINT ENAM$
SLEEP 1
CLS
INPUT "DO YOU LIKE MATH"; MATH$
IF MATH$ = "YES" THEN PRINT "GOOD CAUSE WE ARE ABOUT TO DO SOME"
IF MATH$ = "NO" THEN PRINT "OH WELL, WE ARE GOING TO DO IT ANYWAY"
SLEEP 2
CLS
INPUT "ENTER A NUMBER PLEASE"; NUMBER
INPUT "ENTER ANOTHER ONE PLEASE"; NUMBER2
SLEEP 3
CLS
REM *MATH*
ADD = NUMBER + NUMBER2
LOCATE 11, 30
PRINT "THESE ARE YOUR ADDED NUBERS"; ADD
DIV = NUMBER / NUMBER2
LOCATE 22, 70
PRINT "THESE ARE YOUR DIVIDED ANSWERS"; DIV
LOCATE 22, 1
MUL = NUMBER * NUMBER2
LOCATE 1, 70
PRINT "MULTIPLIED TOTAL ="; MUL
SUBT = NUMBER - NUMBER2
LOCATE 1, 1
PRINT "HERE IS YOUR SUBTRAACTED TOTAL"; SUBT
SLEEP 4
CLS
INPUT "PLEASE PUT IN A NUMBER"; PIAN
SLEEP 2
CLS
PRINT "THIS IS YOUR SQUARE ROOT"; SQR(PIAN)
SLEEP 2
CLS
INPUT "PUT IN A NUMBER WITH A DECIMAL IN IT PLEASE"; PIAN
SLEEP 2
CLS
PRINT INT(PIAN)
SLEEP 2
CLS
REM *LEFT$*
INPUT "PLEASE PUT IN YOUR NAME"; NP$
PRINT LEFT$(NP$, 1)
SLEEP 2
CLS
REM *READ DATA*
FOR O = 1 TO 10
READ NN1$
PRINT NN1$
NEXT O
DATA JOEY
DATA MICHAEL
DATA MARCO
DATA ZACH
DATA WALTER
DATA NICHELLIA
DATA CHAVAUGHN
DATA ANDRE
DATA CHRIS
DATA JOHNNY
SLEEP 2
CLS
REM *ARRAY OF NUMBERS*
FOR L = 1 TO 10
INPUT "PUT IN A NUMBER PLEASE"; NUMM(L)
NEXT L
SLEEP 2
CLS
FOR A = 1 TO 10
PRINT NUMM(A)
NEXT A
SLEEP 2
CLS
REM *ARRAY OF NAMES*
FOR U = 1 TO 10
INPUT "ENTER SOMEONE'S NAME PLEASE, ANYONE"; SNAME$(U)
NEXT U
SLEEP 2
CLS
FOR D = 1 TO 10
PRINT SNAME$(D)
NEXT D
SLEEP 2
CLS
REM *RIGHT$*
INPUT "PUT IN YOUR FAVORITE COLOR AND i WILL SHOW YOU THE LAST LETTER TO THE RIGHT OF YOUR WORD"; NTTR$
PRINT RIGHT$(NTTR$, 1)
SLEEP 2
CLS
REM *SEARCHING AN ARRAY*
FOR G = 1 TO 10
INPUT "WRITE A NAME PLEASE"; NMM$(G)
NEXT G
SLEEP 2
CLS
INPUT "DO YOU WANT TO SEARCH FOR SOMEONE'S NAME, IF YOU DO, THEN PLEASE PUT THE NAME IN HERE ~~~~>~>~>~>~>~>>>>>>>"; SN$
FOR Z = 1 TO 10
IF NMM$(Z) = SN$ THEN PRINT SN$
NEXT Z
SLEEP 2
CLS
REM *MID*
INPUT "PUT IN YOUR FAVORITE ACTOR OR ACTRESS PLEASE"; ACT$
PRINT MID$(ACT$, 3, 2)
SLEEP 2
CLS
PRINT "THANK YOU FOR PARATICIPAING IN THIS PROGRAM"
SLEEP 2
CLS
GOSUB FINISHED
SLEEP 2
CLS


CORRECT:
PRINT "GOOD JOB"
NUMCORRECT = NUMCORRECT + 1
PRINT "YOU GOT"; NUMCORRECT; "RIGHT"
RETURN
WRONG:
PRINT "NASTY"
NUMWRONG = NUMMWRONG + 1
PRINT "YOU HAVE"; NUMWRONG; "WRONG"
RETURN
PERCENTAGE:
NUMWRONG2 = (NUMWRONG * 10) / 100
PRINT "YOUR PERCENTAGE ="; NUMWRONG2
SLEEP 3
RETURN
FINISHED:
INPUT "DO YOU WANT TO REPEAT THESE REQUIREMENTS"; REQUIRE$
IF REQUIRE$ = "YES" THEN GOSUB TWO
IF REQUIRE$ = "NO" THEN END
QUIT:
LOCATE 11, 35
PRINT "BOOOOOOOOOO!!!!!!!!!!!!!!!!!!!!"
END