REM JACKIE BERGMAN
REM 12-10-02

CLS
COLOR 2, 5
PRINT "Do you know your American History and Presidents?"
SLEEP 2
CLS

REM INTRO:
SCREEN 12
LOCATE 10, 35
PRINT "ARE"
SLEEP 1
CLS
LOCATE 10, 35
PRINT "YOU"
SLEEP 1
CLS
LOCATE 10, 35
PRINT "READY"
SLEEP 1
CLS
LOCATE 10, 35
PRINT "TO"
SLEEP 1
CLS
LOCATE 10, 35
PRINT "BEGIN"
SLEEP 1
CLS



REM menu
start:
SCREEN 12
PRINT "Which one would you like to see....?"
PRINT ""
PRINT "1. Instructions"
PRINT "2. Begin"
PRINT "3. Quit"
PRINT "4. Extra Information/Activities"
INPUT " Please enter a number now:  "; ans
IF ans = 1 THEN GOSUB instruct
IF ans = 2 THEN GOSUB begin
IF ans = 3 THEN GOSUB bye
IF ans = 4 THEN GOSUB stuff
END


instruct:
CLS
PRINT " HERE ARE THE INSTRUCTIONS ON HOW TO TAKE THIS QUIZ."
PRINT "              * In taking this quiz the first thing that you see is the menu...."
PRINT "              * To begin the testing enter the number two (2) where it asks you               to enter a number"
PRINT "              * After that you will begin the quiz... "
PRINT "              * Make sure to read each question and statement carefully"
SLEEP 10
CLS
GOTO start


begin:
CLS
NOA = 0
Q1A: IF NOA = 2 THEN GOTO Q2
Q1:
PRINT "QUESTION 1"
PRINT "         PLEASE ANSWER IN AN UPPER CASE LETTER!"
PRINT ""
PRINT " In what year did Christopher Columbus discover the  New World....?"
PRINT ""
PRINT "                 A. in 1944"
PRINT "                 B. in 1788"
PRINT "                 C. in 1492"
PRINT "                 D. in 1862"
INPUT " And the answer is:  "; Q1$
IF Q1$ = "A" THEN GOSUB WRONG
IF Q1$ = "A" THEN NOA = N0A + 1
IF Q1$ = "B" THEN GOSUB WRONG
IF Q1$ = "B" THEN NOA = NOA + 1
IF Q1$ = "D" THEN GOSUB WRONG
IF Q1$ = "D" THEN NOA = NOA + 1
IF Q1$ = "C" THEN GOSUB RIGHT
IF Q1$ = "C" THEN GOTO BOAT
IF Q1$ = "C" THEN GOTO Q2
GOTO Q1A


BOAT:
SCREEN 7
COLOR 7, 1
LINE (80, 65)-(80, 80)
LINE (80, 80)-(130, 80)
LINE (130, 65)-(80, 65)
LINE (80, 65)-(85, 70)
LINE (85, 70)-(125, 70)
LINE (125, 70)-(130, 65)
LINE (130, 80)-(130, 65)
LINE (105, 70)-(105, 45)
LINE (105, 45)-(95, 55)
LINE (95, 55)-(105, 60)
LINE (105, 45)-(115, 50)
LINE (115, 50)-(105, 60)
REM  WORLD
COLOR 7, 1
CIRCLE (180, 70), 40, 11
COLOR 10, 1
LINE (145, 55)-(175, 55)
LINE (175, 55)-(175, 40)
LINE (175, 65)-(185, 75), 10, B
LINE (175, 100)-(175, 95)
LINE (175, 95)-(200, 95)
LINE (200, 95)-(200, 100)
SLEEP 2
CLS
COLOR 0, 1
SCREEN 2

SCREEN 12
NOA = 0
Q2A: IF NOA = 2 THEN GOTO Q3
Q2:
CLS
PRINT "QUESTION 2"
PRINT ""
PRINT ""
PRINT "What is the famous saying that was instigated by Samuel Adams during the Boston Tea Party?"
PRINT "                      A. We have rights"
PRINT "                      B. No taxation without representation"
PRINT "                      C. No-Importation "
PRINT "                      D. Boycott 'em"
PRINT ""
INPUT "And the answer is:   "; Q2$
CLS
IF Q2$ = "A" THEN GOSUB NOPE
IF Q2$ = "A" THEN NOA = NOA + 1
IF Q2$ = "C" THEN GOSUB NOPE
IF Q2$ = "C" THEN NOA = NOA + 1
IF Q2$ = "D" THEN GOSUB NOPE
IF Q2$ = "D" THEN NOA = NOA + 1
IF Q2$ = "B" THEN GOSUB YUP
IF Q2$ = "B" THEN GOTO MONEY
IF Q2$ = "B" THEN GOTO Q3
GOTO Q2A


MONEY:
SCREEN 7
COLOR 2, 14
LINE (55, 50)-(55, 140)
LINE (55, 140)-(255, 140)
LINE (255, 140)-(255, 50)
LINE (255, 50)-(55, 50)
LINE (170, 60)-(145, 60)
LINE (145, 60)-(145, 80)
LINE (145, 80)-(170, 80)
LINE (170, 80)-(170, 100)
LINE (170, 100)-(145, 100)
LINE (155, 55)-(155, 115)
LINE (165, 55)-(165, 115)
SLEEP 3
CLS


SCREEN 12
NOA = 0
Q3A: IF NOA = 2 THEN GOTO Q4
Q3:
PRINT "QUESTION 3"
PRINT ""
PRINT ""
PRINT "What are the first 3 words of the Constitution? When was it put into effect? "
PRINT "                      A. We the people....in 1788"
PRINT "                      B. We hold these truths...in 1789 "
PRINT "                      C. I have a dream....in 1963"
PRINT "                      D. We the people...in 1789"
INPUT "And the answer is:    "; Q3$
IF Q3$ = "A" THEN GOSUB INCORRECT
IF Q3$ = "A" THEN NOA = NOA + 1
IF Q3$ = "B" THEN GOSUB INCORRECT
IF Q3$ = "B" THEN NOA = NOA + 1
IF Q3$ = "C" THEN GOSUB INCORRECT
IF Q3$ = "C" THEN NOA = NOA + 1
IF Q3$ = "D" THEN GOSUB CORRECT
IF Q3$ = "D" THEN GOTO CONSTITUTE
IF Q3$ = "D" THEN GOTO Q4
GOTO Q3A

CONSTITUTE:
SCREEN 7
COLOR 7, 15
LINE (65, 20)-(220, 165), 14, B
LINE (75, 40)-(85, 30)
LINE (85, 30)-(95, 40)
LINE (95, 40)-(105, 30)
LINE (105, 30)-(115, 40)
LINE (115, 40)-(135, 40)
LINE (135, 40)-(145, 30)
LINE (145, 30)-(155, 40)
LINE (155, 40)-(165, 30)
LINE (165, 30)-(175, 40)
LINE (175, 40)-(185, 30)
LINE (185, 30)-(195, 40)
LINE (195, 40)-(205, 30)
LINE (205, 30)-(205, 40)
SLEEP 3
CLS


SCREEN 12
NOA = O
Q4A: IF NOA = 2 THEN GOTO Q5
Q4:
PRINT "QUESTION 4"
PRINT ""
PRINT ""
PRINT "Who wrote the Star-spangled Banner? Where? And what gave him the insperation to write it?"
PRINT "    A. Abraham Lincoln,in the middle of a battle field, Something came over him."
PRINT "    B. Alexander Hamilton, in his house, heard the gun shots outside his window."
PRINT "    C. Fancis Scott Key, While being detained on a British warship,He saw at         dawn that our flag was still waving"
INPUT "And the answer is:  "; Q4$
IF Q4$ = "A" THEN GOSUB HAHA
IF Q4$ = "A" THEN NOA = NOA + 1
IF Q4$ = "B" THEN GOSUB HAHA
IF Q4$ = "B" THEN NOA = NOA + 1
IF Q4$ = "C" THEN GOSUB URSMART
IF Q4$ = "C" THEN GOTO FLAG
IF Q4$ = "C" THEN GOTO Q5
GOTO Q4A

FLAG:
SCREEN 7
COLOR 1, 15
LINE (25, 5)-(25, 190)
LINE (25, 190)-(300, 190)
LINE (300, 190)-(300, 5)
LINE (25, 5)-(300, 5)
LINE (25, 5)-(25, 85)
LINE (25, 85)-(145, 85)
LINE (145, 85)-(145, 5)
PAINT (100, 25), 1, 1
LINE (145, 5)-(145, 30)
LINE (145, 30)-(300, 30)
LINE (300, 30)-(300, 5)
PAINT (225, 15), 4, 1
LINE (145, 30)-(145, 55)
LINE (145, 55)-(300, 55)
PAINT (275, 40), 15, 1
LINE (145, 55)-(145, 80)
LINE (145, 80)-(300, 80)
LINE (300, 80)-(300, 55)
PAINT (225, 65), 4, 1
LINE (25, 85)-(145, 85)
LINE (145, 85)-(145, 80)
LINE (145, 80)-(300, 80)
LINE (300, 80)-(300, 105)
LINE (25, 105)-(300, 105)
LINE (25, 105)-(300, 105)
PAINT (225, 90), 15, 1
LINE (25, 105)-(25, 130)
LINE (25, 130)-(300, 130)
LINE (300, 130)-(300, 105)
PAINT (175, 115), 4, 1
LINE (25, 130)-(25, 155)
LINE (25, 155)-(300, 155)
LINE (300, 155)-(300, 105)
PAINT (175, 140), 15, 1
LINE (25, 155)-(25, 190)
LINE (25, 190)-(300, 190)
PAINT (175, 170), 4, 1
SLEEP 3
CLS


SCREEN 12
NOA = 0
Q5A: IF NOA = 2 THEN GOTO Q6
Q5:
PRINT "QUESTION 5"
PRINT ""
PRINT ""
PRINT "At the first battle of Bull Run, who was known as  STONEWALL?"
PRINT "                                                  _____________"
PRINT "            A. Jackson"
PRINT "            B. Lincoln"
PRINT "            C. Yankees"
PRINT "            D.Rebels"
INPUT "And the answer is:   "; Q5$
IF Q5$ = "B" THEN GOSUB WGROP
IF Q5$ = "B" THEN NOA = NOA + 1
IF Q5$ = "C" THEN GOSUB WGROP
IF Q5$ = "C" THEN NOA = NOA + 1
IF Q5$ = "D" THEN GOSUB WGROP
IF Q5$ = "D" THEN NOA = NOA + 1
IF Q5$ = "A" THEN GOSUB RGROP
IF Q5$ = "A" THEN GOTO STONEWALL
IF Q5$ = "A" THEN GOTO Q6
GOTO Q5A


STONEWALL:
SCREEN 7
COLOR 4, 0
LINE (0, 10)-(300, 10)
LINE (0, 25)-(300, 25)
LINE (0, 50)-(300, 50)
LINE (0, 75)-(300, 75)
LINE (0, 100)-(300, 100)
LINE (0, 125)-(300, 125)
LINE (0, 150)-(300, 150)
LINE (0, 175)-(300, 175)
LINE (0, 190)-(300, 190)
LINE (0, 0)-(300, 0)
LINE (25, 0)-(25, 200)
LINE (0, 0)-(0, 200)
LINE (50, 0)-(50, 200)
LINE (75, 0)-(75, 200)
LINE (100, 0)-(100, 200)
LINE (125, 0)-(125, 200)
LINE (150, 0)-(150, 200)
LINE (175, 0)-(175, 200)
LINE (200, 0)-(200, 200)
LINE (225, 0)-(225, 200)
LINE (250, 0)-(250, 200)
LINE (275, 0)-(275, 200)
LINE (300, 0)-(300, 200)
SLEEP 2
CLS



SCREEN 12
NOA = 0
Q6A: IF NOA = 2 THEN GOTO Q7
Q6:
PRINT "QUESTION 6"
PRINT ""
PRINT ""
PRINT " What were the famous words that were said by George Washington during the....."
PRINT "                   A. 1964"
PRINT "                   B. 1950's"
PRINT "                   C. 1970's"
PRINT "                   D. 1957"
INPUT "And the answer is:   "; Q6$
IF Q5$ = "B" THEN GOSUB WGROP
IF Q6$ = "B" THEN NOA = NOA + 1
IF Q6$ = "C" THEN GOSUB WDT
IF Q6$ = "C" THEN NOA = NOA + 1
IF Q6$ = "D" THEN GOSUB WDT
IF Q6$ = "D" THEN NOA = NOA + 1
IF Q6$ = "A" THEN GOSUB RDT
IF Q6$ = "A" THEN GOTO Q7
GOTO Q6A



SCREEN 12
NOA = 0
Q7A: IF NOA = 2 THEN GOTO Q8
Q7:
PRINT "QUESTION 7"
PRINT ""
PRINT ""
PRINT "How many presidents died in office?"
PRINT "                      A. 2"
PRINT "                      B. 4"
PRINT "                      C. 6"
PRINT "                      D. 8"
INPUT "And the answer is:   "; Q7$
IF Q7$ = "A" THEN GOSUB WNUM
IF Q7$ = "A" THEN NOA = NOA + 1
IF Q7$ = "B" THEN GOSUB WNUM
IF Q7$ = "B" THEN NOA = NOA + 1
IF Q7$ = "C" THEN GOSUB WNUM
IF Q7$ = "C" THEN NOA = NOA + 1
IF Q7$ = "D" THEN GOSUB RNUM
IF Q7$ = "D" THEN GOTO Q8
GOTO Q7A



SCREEN 12
NOA = 0
Q8A: IF NOA = 2 THEN GOTO Q9
Q8:
PRINT "QUESTION 8"
PRINT ""
PRINT ""
PRINT "What president is known as The Renaissance President?"
PRINT "                      A. Teddy Roosevelt"
PRINT "                      B. Thomas Jefferson"
PRINT "                      C. Ulysses S. Grant"
PRINT "                      D. Ronald Reagan"
INPUT "And the answer is:  "; Q8$
IF Q8$ = "A" THEN GOSUB WPN
IF Q8$ = "A" THEN NOA = NOA + 1
IF Q8$ = "C" THEN GOSUB WPN
IF Q8$ = "C" THEN NOA = NOA + 1
IF Q8$ = "D" THEN GOSUB WPN
IF Q8$ = "D" THEN NOA = NOA + 1
IF Q8$ = "B" THEN GOSUB RPN
IF Q8$ = "B" THEN GOTO Q9
GOTO Q8A





SCREEN 12
NOA = 0
Q9A: IF NOA = 2 THEN GOTO Q10
Q9:
PRINT "QUESTION 9"
PRINT ""
PRINT ""
PRINT "In what year did 140,000 coal men go on strike due to their demand of a wage increase and a 9 hour work day instead of the frequent 12 hour workday?"
PRINT "                      A. 1980's"
PRINT "                      B. 1970's"
PRINT "                      C. 1960's"
PRINT "                      D. 1900's"
INPUT "And the answer is:   "; Q9$
IF Q9$ = "A" THEN GOSUB WANS
IF Q9$ = "A" THEN NOA = NOA + 1
IF Q9$ = "B" THEN GOSUB WANS
IF Q9$ = "B" THEN NOA = NOA + 1
IF Q9$ = "C" THEN GOSUB WANS
IF Q9$ = "C" THEN NOA = NOA + 1
IF Q9$ = "D" THEN GOSUB RANS
IF Q9$ = "D" THEN GOTO Q10
GOTO Q9A




SCREEN 12
NOA = 0
Q10A: IF NOA = 2 THEN GOSUB DONE
Q10:
PRINT "QUESTION 10"
PRINT ""
PRINT ""
PRINT "Who invented the car?"
PRINT "                      A. Henry Ford"
PRINT "                      B. Alexander Bell"
PRINT "                      C. Thomas Edison"
PRINT "                      D. Anna Boldwin"
INPUT "And the answer is:   "; Q10$
IF Q10$ = "B" THEN GOSUB WCAR
IF Q10$ = "B" THEN NOA = NOA + 1
IF Q10$ = "C" THEN GOSUB WCAR
IF Q10$ = "C" THEN NOA = NOA + 1
IF Q10$ = "D" THEN GOSUB WCAR
IF Q10$ = "D" THEN NOA = NOA + 1
IF Q10$ = "A" THEN GOSUB RCAR
IF Q10$ = "A" THEN GOSUB GOOD
GOTO Q10A
SLEEP 2
CLS


REM GSUBS:

WRONG:
CLS
PRINT "YOU GOT THIS QUESTION WRONG....TRY AGAIN"
W = W + 1
PRINT "SO FAR YOU HAVE GOTTEN "; W; " WRONG"
SLEEP 2
CLS
RETURN

RIGHT:
CLS
PRINT "THAT'S RIGHT!!!!"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT!!"
SLEEP 2
CLS
RETURN

NOPE:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
W = W + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

YUP:
CLS
PRINT "WOO HOO!! YOU GOT THIS ANSWER RIGHT"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

INCORRECT:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
W = W + 1
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

CORRECT:
CLS
PRINT "CORRECT"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

HAHA:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
W = W + 1
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

URSMART:
CLS
PRINT "WOW YOUR SMART"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

WGROP:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
W = W + 1
PRINT "AND "; W; "  WRONG"
SLEEP 2
CLS
RETURN

RGROP:
CLS
PRINT "THAT'S RIGHT"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

WDT:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
W = W + 1
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

RDT:
CLS
PRINT "THAT'S RIGHT!"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

WNUM:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT "
W = W + 1
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

RNUM:
CLS
PRINT "THAT'S RIGHT"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

WPN:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
W = W + 1
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

RPN:
CLS
PRINT "THAT'S RIGHT"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

WANS:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT "
W = W + 1
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

RANS:
CLS
PRINT "THAT'S RIGHT"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN


WCAR:
CLS
PRINT "SORRY WRONG ANSWER TRY AGAIN"
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
W = W + 1
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN

RCAR:
CLS
PRINT "THAT'S RIGHT"
R = R + 1
PRINT "SO FAR YOU HAVE GOTTEN "; R; " RIGHT"
PRINT "AND "; W; " WRONG"
SLEEP 2
CLS
RETURN



stuff:
CLS
INPUT "ENTER YOUR AGE?"; AG
FOR X = 1 TO 7
READ NAME$, AGE
IF AG > AGE THEN PRINT NAME$, AGE
NEXT X
DATA JACKIE, 16
DATA MATT ,17
DATA ASHLIE, 13
DATA ADAM, 23
DATA MIKE, 14
DATA JULI,18
DATA RAY, 20
SLEEP 3
CLS


INPUT "WHAT IS YOUR NAME"; N$
PRINT "THE  MIDDLE LETTER OF YOUR NAME IS:  "; MID$(N$, 3, 1)
PRINT "THERE ARE "; LEN(N$); " LETTERS IN YOUR NAME"
PRINT "THE FIRST 4 LETTERS OF YOUR NAME ARE:  "; LEFT$(N$, 4)
PRINT "THE LAST 3 LETTERS OF YOUR NAME ARE:  "; RIGHT$(N$, 3)
SLEEP 5
CLS


CLS
INPUT "ENTER A NUMBER"; NUM1
INPUT "ENTER ANOTHER NUMBER"; NUM2
INPUT "ENTER A THIRD NUMBER"; NUM3
INPUT "ENTER A FOURTH NUMBER"; NUM4
ADD = NUM1 + NUM2 + NUM3 + NUM4
INPUT "ENTER ANOTHER NUMBER"; NUM5
CLS
TTL = ADD * NUM5
SUBT = TTL - 2
DVD = SUBT / 4
AD2 = DVD + 2
CLS
PRINT "NUMS ADDED:"; ADD
PRINT "NUMS(5):"; TTL
PRINT "NUMS SUBTRACTED:"; SUBT
PRINT "NUMS DIVIDED:"; DVD
PRINT "DIVIDED NUMS+2:"; AD2
SLEEP 5
CLS


INPUT "ENTER ANY NUMBER"; NUM1
PRINT "THIS IS THE SQUARE ROOT OF YOUR NUMBER:"; SQR(NUM1)
PRINT ""
INPUT "ENTER ANY NUMBER WITH A DECIMAL IN IT:"; NUM2
PRINT INT(NUM2)
SLEEP 2
CLS

CLS
DIM N$(25), AGE(25)
FOR X = 1 TO 20
READ N$(X), AGE(X)
PRINT N$(X), AGE(X)
NEXT X
DATA MR. SMITH,45
DATA MR. DIXON, 27
DATA MRS. CARDWELL, 45
DATA MRS. BERGMAN, 45
DATA MR. J, 50
DATA MRS. RUTHERFORD, 25
DATA MR. WESTERMAN, 29
DATA MR. PITTMAN, 44
DATA MRS. KATZ, 55
DATA MRS. STALEY, 50
DATA MS. GEOTZ,37
DATA MRS. OCHIPINTI, 41
DATA MRS. SCHEEL, 56
DATA MRS. CLARK, 57
DATA MRS. KANTOR, 50
DATA MRS. BROWN, 41
DATA MRS. CHAN, 35
DATA MRS. ORLINE, 44
DATA MRS. MARSHALL, 36
DATA MRS. LARKINS, 51
SLEEP 3
CLS
GOTO start

GOOD:
SCREEN 2
LOCATE 10, 35
PRINT "WOW!!! GOOD JOB! CONGRATS"
GOSUB DONE

CLS
DONE:
GOTO start

bye:
SCREEN 2
PRINT " HOPE YOU HAD FUN!!! GOOD JOB. "
PRINT ""
PRINT ""
LOCATE 10, 35
PRINT " THANKS, BYE!"