REM 12-12-02
CLS

START:

REM WELCOME
LOCATE 11, 35
PRINT " WELCOME "
SLEEP 2
CLS


SCREEN 12
LINE (50, 80)-(550, 180), 5, BF
LINE (48, 79)-(552, 181), 7, B
LINE (47, 78)-(553, 182), 3, B
LINE (100, 120)-(500, 140), 2, B

LINE (99, 120)-(501, 140), 14, B

FOR X = 122 TO 501 STEP 5
  LINE (102, 122)-(X, 138), 9, BF
  FOR hld = 1 TO 3000: NEXT
  LOCATE 7, 30: PRINT "  TEST IS NOW LOADING.... "
  NEXT

LOCATE 11, 10
PRINT "TRY TO ANSWER ALL TEST QUESTIONS CORRECTLY, GOODLUCK!"
SLEEP 3
CLS

REM NAME
LOCATE 11, 30
INPUT " ENTER YOUR NAME?"; A1$
CLS

REM AGE
LOCATE 11, 30
INPUT "WHAT IS YOUR AGE?"; A2
SLEEP 2
CLS

LOCATE 4, 30
PRINT "1.MOVIE TEST"
LOCATE 5, 30
PRINT "2.MUSIC TEST1"
LOCATE 6, 30
PRINT "3.OTHER"
LOCATE 7, 30
PRINT "4. QUIT"
LOCATE 8, 30

REM QUIZ
LOCATE 1, 17
INPUT " WHICH ONE WOULD YOU LIKE TO DO FIRST?"; A3$
CLS

REM GOSUB
IF A3$ = "1" THEN GOSUB MOVIETEST
IF A3$ = "2" THEN GOSUB MUSICTEST1
IF A3$ = "3" THEN GOSUB OTHER
IF A3$ = "4" THEN GOSUB QUIT

MOVIETEST:
QUE1:
INPUT "1.WHO PLAYED SMOKEY IN FRIDAY"; A1$
IF A1$ = "CHRIS TUCKER" THEN PRINT "CORRECT"
SLEEP 1
IF A1$ <> "CHRIS TUCKER" THEN N1 = N1 + 1
IF A1$ <> "CHRIS TUCKER" THEN PRINT "INCORRECT"
SLEEP 1
CLS

QUE2:
PRINT "A.AALIYAH"
PRINT "B.BEYONCE'"
PRINT "C.FREE"
PRINT "D.SOLANGE"
INPUT "2.WHO PLAYED FOXY CLEOPATRA IN AUSTIN POWERS GOLDMEMBER"; A2$
IF A2$ = "B" THEN PRINT "CORRECT"
SLEEP 1
IF A2$ <> "B" THEN PRINT "INCORRECT"
SLEEP 1
CLS

REM QUE3
PRINT "A.JULIA STILES"
PRINT "B.MIKE MYERS"
PRINT "C.JULIA ROBERTS"
PRINT "D.VIN DIESEL"
INPUT "3. WHO WAS THE STAR ACTOR IN FAST AND THE FURIOUS"; A3$
IF A3$ = "D" THEN PRINT "CORRECT"
SLEEP 1
IF A3$ <> "D" THEN PRINT "INCORRECT"
SLEEP 1
CLS

REM QUE4
INPUT "WHO WAS THE LEADING LADY IN PRETTY WOMAN"; A4$
IF A4$ = "JULIA ROBERTS" THEN PRINT "CORRECT"
SLEEP 1
IF A4$ <> "JULIA ROBERTS" THEN PRINT "INCORRECT"
SLEEP 1


CLS

REM QUE5
INPUT "HOW MANY AUSTIN POWER SERIES ARE THERE"; A5$
IF A5$ = "3" THEN PRINT "CORRECT"
SLEEP 1
IF A5$ <> "3" THEN PRINT "INCORRECT"
SLEEP 1
CLS

MUSICTEST1:
REM QUE1
PRINT "A.FAITH EVANS"
PRINT "B.ALICIA KEYS"
PRINT "C.CHRISTINA AGUILERA"
PRINT "D.ASHANTI"
INPUT "WHICH FEMALE ARTIST WON FIVE GRAMMYS IN ONE NIGHT AT THE 2001 GRAMMYS AWARD"; A1$
IF A1$ = "B" THEN PRINT "CORRECT"
SLEEP 1
IF A1$ <> "B" THEN PRINT "INCORRECT"
SLEEP 1
CLS

REM QUE2
PRINT "A.ASHANTI"
PRINT "B.JENNIFER LOPEZ"
PRINT "C.AALIYAH"
PRINT "B.BEYONCE"
INPUT "WHICH FEMALE ARTIST IS SIGNED WITH MURDER INC RECORDS"; A2$
IF A2$ = "A" THEN PRINT "CORRECT"
SLEEP 1
IF A2$ <> "A" THEN PRINT "INCORRECT"
SLEEP 1
CLS

REM QUE3
PRINT "A.DESTINY'S CHILD"
PRINT "B.ISYSS"
PRINT "C.TLC"
PRINT "D.3LW"
INPUT "WHAT FEMALE GROUP HAS BEEN IN THE MUSIC INDUSTRY LONGEST"; A3$
IF A3$ = "C" THEN PRINT "CORRECT"
SLEEP 1
IF A3$ <> "C" THEN PRINT "INCORRECT"
SLEEP 1
CLS

REM QUE4
PRINT "A.JAY-Z"
PRINT "B.LIL'WAYNE"
PRINT "C.JA RULE"
PRINT "D.50 CENT"
INPUT "WHICH RAPPER IS SIGNED WITH ROCA-FELLA RECORDS"; A3$
IF A3$ = "A" THEN PRINT "CORRECT"
SLEEP 1
IF A3$ <> "A" THEN PRINT "INCORRECT"
SLEEP 1
CLS

REM QUE5
PRINT "A.USHER"
PRINT "B.JADA-KISS"
PRINT "C.EMINEM"
PRINT "D.P.DIDDY"
INPUT "WHICH ARTIST HAS THIER OWN CLOTHING LINE CALLED SEAN JOHN"; A3$
IF A3$ = "D" THEN PRINT "CORRECT"
SLEEP 1
IF A3$ <> "D" THEN PRINT "INCORRECT"
SLEEP 1
CLS

OTHER:
INPUT " ENTER A FRIENDS' NAME"; A1$
INPUT " ENTER A FRIENDS' NAME"; A2$
INPUT " ENTER A FRIENDS' NAME"; A3$
INPUT " ENTER A FRIENDS' NAME"; A4$
INPUT " ENTER A FRIENDS' NAME"; A5$
PRINT A1$, A2$, A3$, A4$, A5$
SLEEP 2
CLS

FOR X = 1 TO 5
READ FIR$
PRINT FIR$
DATA CHELSEY
DATA LEROY
DATA GREG
DATA MONDIA
DATA CHEV
NEXT X
SLEEP 2
CLS

INPUT "GIVE ME A NUMBER"; N1
INPUT "GIVE ME ANOTHER NUMBER"; N2
T = N1 + N2
PRINT T
SLEEP 2
CLS
INPUT "ENTER A NUMBER"; C1
INPUT "ENTER ANOTHER NUMBER"; C2

T = C1 - C2
PRINT T
SLEEP 2
CLS
INPUT "ENTER A NUMBER"; B1
INPUT "ENTER ANOTHER NUMBER"; B2
T = B1 * B2
PRINT T
SLEEP 2
CLS
INPUT "ENTER A NUMBER"; B1
INPUT "ENTER ANOTHER NUMBER"; B2




T = B1 / B2
PRINT T
SLEEP 2
CLS


FOR X = 1 TO 5
A(X) = 99
NEXT X
FOR X = 1 TO 5
PRINT A(X)
NEXT X

INPUT "PLEASE ENTER A WORD"; G$
INPUT " HOW MANY LETTERS WOULD YOU LIKE TO SEE"; A1
PRINT LEFT$(G$, A1)
SLEEP 1
PRINT RIGHT$(G$, A1)
SLEEP 1
CLS

FOR X = 1 TO 10
INPUT "NAME"; NAME$(X)
NEXT X
FOR X = 1 TO 10
PRINT N$(X)
NEXT X


INPUT "ENTER A WORD"; P$
INPUT "HOW MANY SPACES WOULD YOU LIKE TO SEE"; P1
PRINT MID$(P$, P1)
SLEEP 1
INPUT "ENTER A WORD"; A$
PRINT MID$(A$, 2, 2)
INPUT "ENTER WORD"; D$
PRINT LEN(D$)
INPUT "ENTER A NUMBER WITH A DECIMAL IN IT"; L1
PRINT INT(L1)
INPUT "ENTER A NUMBER"; A1
INPUT "ENTER ANOTHER ONE"; A2
INPUT "ENTER ONE MORE"; A3
R = A1 + A2 + A3 + 496
PRINT R
PRINT "THE SQUARE ROOT IS.."; SQR(R)
SLEEP 2
CLS

FOR T = 1 TO 5
READ MUSIC$
PRINT MUSIC$
NEXT T
DATA ASHANTI,JA RULE,JAY-Z,DESTINYS CHILD,LIL JOHN AND THE EASTSIDE BOYS
RESTORE
SLEEP 2
CLS

SCREEN 7

REM SUN
CIRCLE (10, 10), 30, 14
LINE (36, 25)-(55, 35), 14
LINE (40, 10)-(65, 20), 14
LINE (20, 35)-(40, 50), 14
PAINT (10, 10), 14, 14
LINE (100, 100)-(200, 100)
LINE (100, 100)-(100, 200)
LINE (200, 100)-(200, 200)
LINE (100, 100)-(150, 50)
LINE (200, 100)-(150, 50)
LINE (150, 165)-(125, 165)
LINE (150, 165)-(150, 200)
LINE (125, 165)-(125, 200)
CIRCLE (145, 180), 2, 4

REM WINDOW 1
LINE (110, 125)-(130, 125)
LINE (130, 125)-(130, 137)
LINE (130, 137)-(110, 137)
LINE (110, 125)-(110, 137)
LINE (120, 125)-(120, 137)
LINE (110, 131)-(130, 131)

REM WINDOW 2
LINE (190, 125)-(190, 137)
LINE (190, 137)-(170, 137)
LINE (170, 137)-(170, 125)
LINE (170, 125)-(190, 125)
LINE (170, 131)-(190, 131)
LINE (180, 125)-(180, 137)

REM CHIMNEY
LINE (175, 75)-(175, 50)
LINE (175, 50)-(195, 50)
LINE (195, 50)-(195, 95)
LINE (175, 55)-(195, 55)
LINE (175, 60)-(195, 60)
LINE (175, 65)-(195, 65)
LINE (175, 70)-(195, 70)
LINE (175, 75)-(195, 75)
LINE (180, 80)-(180, 80)
LINE (180, 80)-(195, 80)
LINE (195, 80)-(195, 70)
LINE (195, 70)-(195, 75)

REM GARADGE
LINE (100, 150)-(40, 150)
LINE (40, 150)-(40, 200)
LINE (40, 150)-(100, 100)

REM TREE
COLOR 3, 0
LINE (250, 147)-(250, 200)
LINE (273, 146)-(275, 200)
CIRCLE (260, 130), 23, 2
PAINT (260, 130), 2, 2

REM BIRD
LINE (235, 45)-(250, 60)
LINE (250, 60)-(260, 45)
LINE (100, 25)-(115, 40)
LINE (130, 25)-(115, 40)

REM SMOKE FROM CHIMNEY
CIRCLE (200, 20), 3
CIRCLE (200, 35), 4
CIRCLE (190, 25), 2
CIRCLE (190, 45), 3

REM APPPLES
CIRCLE (245, 125), 3, 4
CIRCLE (250, 140), 3, 4
CIRCLE (260, 130), 3, 4
CIRCLE (270, 125), 3, 4
CIRCLE (255, 135), 3, 4
CIRCLE (275, 130), 3, 4
CIRCLE (265, 140), 3, 4
CIRCLE (275, 14), 3, 4
CIRCLE (260, 120), 3, 4

REM FENCE
LINE (40, 150)-(0, 150)
LINE (35, 150)-(35, 200)
LINE (30, 150)-(30, 200)
LINE (25, 150)-(25, 200)
LINE (20, 150)-(20, 200)
LINE (15, 150)-(15, 200)
LINE (10, 150)-(10, 200)
LINE (5, 150)-(5, 200)
LINE (0, 150)-(0, 200)






QUIT:
LOCATE 11, 35
PRINT "GOODBYE!"