REM Joseph Cascardo

REM 12/5/02
CLS
START:
PRINT "REMINDER: LEAVE CAPS LOCK ON AT ALL TIMES!"
SLEEP 2
CLS
REM **This prints loading
load:
SCREEN 12

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



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

        x = 150
        Y = 240
        X2 = 160
        Y2 = 250

MOVE:
        LINE (x, Y)-(X2, Y2), 7, B
        LINE (x, Y)-(X2, Y2), 7, B

        FOR t = 1 TO 700
        NEXT t
        LINE (x, Y)-(X2, Y2), 7, B
        x = x + 2
        X2 = X2 + 2
        IF x > 475 THEN GOSUB drop

GOTO MOVE:

CLS
drop:
SCREEN 7
FOR drop = 1 TO 150
PSET (150, drop), 9
FOR holdrop = 1 TO 500
NEXT holdrop
CLS
NEXT drop
FOR waves = 1 TO 25
wavese = INT(RND * 500)
CIRCLE (150, 150), wavese, 9
FOR waveshold = 1 TO 500
NEXT waveshold
CLS
NEXT waves
CLS
SCREEN 7
COLOR 2
LOCATE 11, 35

PRINT "                   W"
SLEEP 2
COLOR 2
PRINT "                   E"
COLOR 2
SLEEP 1
COLOR 2
PRINT "                   L"
COLOR 2
SLEEP 1
COLOR 2
PRINT "                   C"
COLOR 2
SLEEP 1
COLOR 2
PRINT "                   O"
COLOR 2
SLEEP 1
COLOR 2
PRINT "                   M"
COLOR 2
SLEEP 1
COLOR 2
PRINT "                   E"
SLEEP 2
CLS
LOCATE 10, 22
COLOR 4
PRINT "                   TO"
SLEEP 5

CLS
SCREEN 7
COLOR 1
LOCATE 11, 35
PRINT "THE HARDEST QUIZ YOU WILL EVER TAKE IN  YOUR WHOLE ENTIRE LIFE"
SLEEP 2
CLS
SCREEN 0
LOCATE 13, 10
CLS
MENU:
PRINT "    ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸  "
PRINT "    ³    What You Wanna Do         ³"
PRINT "    ³   1: Take the Quiz           ³"
PRINT "    ³   2: Look at the Credits     ³"
PRINT "    ³   3: Do other stuff          ³"
PRINT "    ³   4: Exit this program       ³"
PRINT "    ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;  "
INPUT " Where do you want to go(1, 2, 3, or 4)"; A$
IF A$ = "1" THEN GOSUB QUIZ
IF A$ = "2" THEN GOSUB credits
IF A$ = "3" THEN GOSUB STUFF
IF A$ = "4" THEN GOSUB FINISH
SLEEP 1
CLS

QUIZ:
REM QUESTION 1
CLS
PRINT "HOW MANY NBA FINALS DID MICHAEL JORDAN  WIN"
PRINT "A. 1"
PRINT "B. 10"
PRINT "C. 20"
PRINT "D. 6"
INPUT "ENTER YOUR ANSWER"; N$
IF N$ = "D" THEN GOSUB CORRECT
IF N$ <> "D" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 2
PRINT "WHAT COLLEGE DID MICHAEL VICK GO TO"
PRINT "A. MIAMI"
PRINT "B. VIRGINIA TECH"
PRINT "C. FLORIDA"
PRINT "D. UCLA"
INPUT "ENTER YOUR ANSWER"; N1$
IF N1$ = "B" THEN GOSUB CORRECT
IF N1$ <> "B" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 3
PRINT "WHAT NFL TEAM WAS THE ONLY ONE TO GO    UNDEFEATED A WHOLE SEASON"
PRINT "A. MIAMI DOLPHINS"
PRINT "B. DALLAS COWBOYS"
PRINT "C. PHILADELPHIA EAGLES"
PRINT "D. ATLANTA FALCONS"
INPUT "ENTER YOUR ANSWER"; N2$
IF N2$ = "A" THEN GOSUB CORRECT
IF N2$ <> "A" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 4
PRINT "WHAT IS 40*50"
PRINT "A. 2000"
PRINT "B. 20"
PRINT "C. 21002"
PRINT "D. 2020"
INPUT "ENTER YOUR ANSWER"; N3$
IF N3$ = "A" THEN GOSUB CORRECT
IF N3$ <> "A" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 5
PRINT "WHO IS THE WORST PRESIDENT THE UNITED   STATES EVER HAD"
PRINT "A. RICHARD NIXON"
PRINT "B. BILL CLINTON"
PRINT "C. GEORGE BUSH JR."
PRINT "D. GEORGE BUSH SR."
INPUT "ENTER YOUR ANSWER"; N4$
IF N4$ = "C" THEN GOSUB CORRECT
IF N4$ <> "C" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 6
PRINT "THE MIAMI HURRICANES WON THE SEARS      TROPHY IN 2002"
PRINT "A. TRUE"
PRINT "B. FALSE"
INPUT "ENTER YOUR ANSWER"; N5$
IF N5$ = "A" THEN GOSUB CORRECT
IF N5$ <> "A" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 7
PRINT "BILL CLINTON DID NOT HAVE AN AFFAIR WITH MONICA LEWINSKY"
PRINT "A. TRUE"
PRINT "B. FALSE"
INPUT "ENTER YOUR ANSWER"; N6$
IF N6$ = "B" THEN GOSUB CORRECT
IF N6$ <> "B" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 8
PRINT "HOW OLD DO YOU HAVE TO BE TO BE LEGAL TO DRINK"
PRINT "A. 5"
PRINT "B. 20"
PRINT "C. 21"
PRINT "D. 25"
INPUT "ENTER YOUR ANSWER"; N7$
IF N7$ = "C" THEN GOSUB CORRECT
IF N7$ <> "C" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 9
PRINT "WHEN IS NEW YEAR'S DAY"
PRINT "A. JANUARY 24"
PRINT "B. DECEMBER 31"
PRINT "C. FEBRUARY 1"
PRINT "D. JANUARY 1"
INPUT "ENTER YOUR ANSWER"; N8$
IF N8$ = "D" THEN GOSUB CORRECT
IF N8$ <> "D" THEN GOSUB WRONG
SLEEP 2
CLS
REM QUESTION 10
PRINT "WHAT BASKETBALL PLAYER WAS IN THE MOVIE  HE GOT GAME"
PRINT "A. MICHAEL JORDAN"
PRINT "B. ALLEN IVERSON"
PRINT "C. RAY ALLEN"
PRINT "D. JERRY STACKHOUSE"
INPUT "ENTER YOUR ANSWER"; N9$
IF N9$ = "C" THEN GOSUB CORRECT
IF N9$ <> "C" THEN GOSUB WRONG
SLEEP 2
CLS
GOSUB PERCENTAGE
SLEEP 2
CLS
GOTO DONE
CORRECT:
PRINT "WAY TO GO"
NUMCORRECT = NUMCORRECT + 1
PRINT "YOU GOT"; NUMCORRECT; "RIGHT"
RETURN
WRONG:
PRINT "YOU SUCK"
NUMWRONG = NUMWRONG + 1
PRINT "YOU GOT"; NUMWRONG; "WRONG"
RETURN
PERCENTAGE:
saverage = NUMCORRECT / 10
saverage2 = saverage * 100
LOCATE 11, 1
PRINT "You correctly answered", NUMCORRECT, "questions"
PRINT "You messed up in", NUMWRONG, "questions"
PRINT "Your percentage of correct answers is:", saverage2, "%"
SLEEP 5
CLS
RETURN
DONE:
INPUT "WOULD YOU LIKE TO REPEAT THIS PROGRAM"; N10$
IF N10$ = "YES" THEN GOTO START
IF N10$ = "NO" THEN PRINT "GOODBYE"
SLEEP 2
CLS
GOTO MENU
credits:
CLS
SCREEN 7
LINE (60, 80)-(60, 130), 8
LINE (60, 130)-(103, 160), 8
LINE (103, 160)-(140, 130), 8
LINE (140, 130)-(140, 80), 8
LINE (70, 90)-(90, 100), 8
LINE (70, 90)-(70, 100), 8
LINE (70, 100)-(90, 100), 8
CIRCLE (76, 97), 2, 8
LINE (130, 90)-(110, 100), 8
LINE (130, 90)-(130, 100), 8
LINE (130, 100)-(110, 100), 8
CIRCLE (124, 97), 2, 8

LINE (90, 135)-(110, 135), 8
LINE (90, 135)-(85, 140), 8
LINE (110, 135)-(115, 140), 8
LINE (85, 140)-(85, 145), 8
LINE (115, 140)-(115, 146), 8

REM mouth
LINE (95, 140)-(105, 140), 8

LINE (99, 105)-(91, 123), 8
LINE (91, 123)-(99, 123), 8
REM fro
LINE (59, 110)-(30, 80), 8
LINE (140, 111)-(175, 80), 8
LINE (175, 80)-(175, 60), 8
LINE (30, 80)-(30, 60), 8
LINE (30, 60)-(40, 50), 8
LINE (175, 60)-(165, 50), 8
LINE (165, 50)-(145, 40), 8
LINE (40, 50)-(60, 40), 8
LINE (60, 40)-(80, 30), 8
LINE (145, 40)-(125, 30), 8
LINE (80, 30)-(104, 24), 8
LINE (104, 24)-(125, 30), 8
LINE (60, 80)-(65, 75), 8
LINE (140, 80)-(135, 75), 8
LINE (135, 75)-(65, 75), 8
LINE (150, 135)-(222, 95), 2
REM box
LINE (140, 10)-(227, 100), 2
LINE (140, 10)-(320, 10), 2
LINE (320, 10)-(315, 100), 2
LINE (315, 100)-(227, 100), 2
LOCATE 3, 21
PRINT "This program"
LOCATE 4, 22
PRINT "was made by"
LOCATE 5, 23
PRINT "Joseph Cascardo"
LOCATE 6, 24
PRINT "because Mr."
LOCATE 7, 24
PRINT "O'dowd ordered"
LOCATE 8, 25
PRINT "him to"
LOCATE 9, 26
PRINT "do so or"
LOCATE 10, 27
PRINT "FAIL!!!"
SLEEP 2
CLS
GOTO MENU
STUFF:
CLS
INPUT "ENTER YOUR NAME"; N$
FOR x = 1 TO 50
PRINT N$
NEXT x
SLEEP 2
CLS
REM READ DATA
PRINT "NAMES OF PEOPLE YOU MIGHT KNOW"
FOR Y = 1 TO 5
READ N$
PRINT N$
NEXT Y
DATA Mike
DATA ZACH
DATA MARCO
DATA RICH
DATA STEVE
RESTORE
SLEEP 3
CLS
REM ADDITION
INPUT "ENTER A NUMBER"; N
INPUT "ENTER ANOTHER NUMBER"; N1
t = N + N1
PRINT "THE SUM OF BOTH NUMBERS IS"; t
SLEEP 2
CLS
REM SUBTRACTION
INPUT "ENTER A NUMBER"; N2
INPUT "ENTER ANOTHER NUMBER"; N3
S = N2 - N3
PRINT "SUBTRACTING THESE NUMBERS WILL GIVE YOU"; S
SLEEP 2
CLS
REM MULTIPLICATION
INPUT "ENTER A NUMBER"; N4
INPUT "ENTER ANOTHER NUMBER"; N5
M = N4 * N5
PRINT "MULTIPLYING THESE NUMBERS WILL GIVE YOU"; M
SLEEP 2
CLS
REM DIVISION
INPUT "ENTER A NUMBER"; N6
INPUT "ENTER ANOTHER NUMBER"; N7
D = N6 / N7
PRINT "DIVIDING THESE NUMBERS WILL GIVE YOU"; D
SLEEP 2
CLS
REM LOOP
FOR x = 1 TO 3
FOR Q = 10 TO 20
PRINT Q
NEXT Q
NEXT x
SLEEP 2
CLS
REM STRING FUNCTIONS
INPUT "ENTER A NAME WITH AT LEAST 8 LETTERS"; name$
name$ = "FLANAGAN"
PRINT LEFT$(name$, 2)
PRINT RIGHT$(name$, 3)
PRINT MID$(name$, 5, 1)
PRINT LEN(name$)
SLEEP 2
CLS
REM LEN, INT, SQR
INPUT "ENTER A NUMBER"; N
PRINT "THE SQUARE ROOT IS"; SQR(N)
SLEEP 2
CLS
INPUT "ENTER A NUMBER WITH A DECIMAL IN IT"; t
PRINT "THE INTEGER IS"; INT(t)
SLEEP 2
CLS
REM ARRAYS OF NUMBERS
10 FOR x = 1 TO 5
20 A(x) = 99
30 NEXT x
SLEEP 2
CLS
REM ARRAYS OF NAMES
DIM N$(25), age(25)
FOR t = 1 TO 15
INPUT "ENTER A NAME"; N$(t)
INPUT "ENTER AN AGE"; age(t)
NEXT t
CLS
FOR x = 1 TO 15
PRINT N$(x), age(x)
NEXT x
SLEEP 2
CLS
DIM name$(50)
DIM ega(50)
DIM grade(50)
CLS
FOR x = 1 TO 11
INPUT "give me a name"; name$(x)
INPUT "give me their ages"; age(x)
INPUT "give me their grade-level"; grade(x)
NEXT x
SLEEP 2
CLS
PRINT "names", "ages", "grade"
PRINT ""
FOR x = 1 TO 11
PRINT name$(x), age(x), grade(x)
NEXT x
SLEEP 3
CLS
INPUT "give me a grade"; g
FOR x = 1 TO 11
IF g = grade(x) THEN PRINT name$(x), age(x), grade(x)
NEXT x
SLEEP 3
CLS

GOTO MENU
FINISH:
PRINT "GOODBYE"