REM MARK ANNINO
REM 12/9/02
REM P.2
REM FINAL PROGRAM

REM***************************BEGINING OF PROGRAM****************************

START:
C = O
W = O
CLS
SCREEN 13
FOR X = 16 TO 31 STEP 1
COLOR X
LOCATE 5, 15
PRINT "MARKS FINAL"
LOCATE 8, 20
PRINT "PROGRAM"
FOR HOLD = 1 TO 3000
NEXT HOLD
NEXT X
SLEEP 2
LOCATE 11, 10
COLOR 12
PRINT "PLEASE TURN ON CAPS LOCK"
SLEEP 1
COLOR 14
LOCATE 15, 20
PRINT "A. FINAL PROGRAM"
SLEEP 1
LOCATE 16, 20
PRINT "B. SECONDARY PROGRAM"
SLEEP 1
PRINT ""
COLOR 15
INPUT "WHICH ONE"; OPTION$
IF OPTION$ = "A" THEN GOTO QUIZ
IF OPTION$ = "B" THEN GOTO SECONDARY


REM ********************************QUIZ INTRO*******************************

QUIZ:
SCREEN 12
CLS
LINE (50, 80)-(550, 180), 0, BF
LINE (48, 79)-(552, 181), 14, B
LINE (47, 78)-(553, 182), 14, B
LINE (100, 120)-(500, 140), 14, B
LINE (99, 120)-(501, 140), 14, B
FOR X = 122 TO 501 STEP 8
LINE (102, 122)-(X, 138), 7, BF
FOR HLD = 1 TO 2000: NEXT
COLOR 14
LOCATE 7, 25: PRINT "PLEASE WAIT LOADING QUIZ"
NEXT
CLS
RANDOMIZE TIMER
FOR X = 1 TO 6000
LINE (0, 0)-(RND * 600, RND * 600), RND * 15
NEXT X
COLOR 15
CLS
PRINT "YOU HAVE KNOW REACHED THE PART OF THE PROGRAM WHERE YOU GET TO MAKE"
PRINT "AN ATTEMPT TO ANSWER QUESTIONS ABOUT DRUMLINE. THIS SERIES OF QUESTIONS"
PRINT "WILL NOT BE EASY IF YOU DONT SPEAK THE DRUMLINE LINGO, BUT IT WILL"
PRINT "BE FUN AND A MAJOR LEARNING EXPERIENCE. NOW YOU WILL ENTER INTO THE"
PRINT "WORLD OF DRUMLINE"
PRINT ""
COLOR 12
INPUT "PRESS ENTER TO CONTINUE"; Z$

REM ******************************QUESTIONS**********************************

REM Q1
COLOR 10
CLS
PRINT "1. WHAT IS THE FORMATION THE DRUMLINE "
PRINT "STANDS IN WHEN WARMING UP"
PRINT ""
PRINT "A. SQUARE"
PRINT "B. TRIANGLE"
PRINT "C. ARC"
PRINT "D. BLOCK"
PRINT ""
INPUT "ANSWER"; Q1$
IF Q1$ = "C" THEN GOSUB CORRECT
IF Q1$ <> "C" THEN GOSUB WRONG

REM Q2
COLOR 12
CLS
PRINT "2. NAME THE THREE TYPES OF DRUMS"
PRINT "USED IN THE DRUMLINE"
PRINT ""
PRINT "A. BASS DRUM, SNARE DRUM, TENOR DRUM"
PRINT "B. TRIANGLE, BELLS, CHIMES"
PRINT "C. TAMBORINE, TIMPINI, BASS DRUM"
PRINT "D. CRASH CYMBALS, TOMS, BASS DRUM"
PRINT ""
INPUT "ANSWER"; Q2$
IF Q2$ = "A" THEN GOSUB CORRECT
IF Q2$ <> "A" THEN GOSUB WRONG

REM Q3
COLOR 13
CLS
PRINT "3. WHAT IS THE SONG CALLED THAT"
PRINT "THE DRUMLINE PLAYS ON AND OFF THE FIELD"
PRINT ""
PRINT "A. BACK BEAT"
PRINT "B. CADENCE"
PRINT "C. JAM"
PRINT "D. HIP HOP"
PRINT ""
INPUT "ANSWER"; Q3$
IF Q3$ = "B" THEN GOSUB CORRECT
IF Q3$ <> "B" THEN GOSUB WRONG

REM Q4
COLOR 14
CLS
PRINT "4. WHAT IS THE TERM THE DRUMLINE USES"
PRINT "TO DESCRIBE WHAT THEY ARE PERFORMING ON THE FIELD"
PRINT ""
PRINT "A. SONG"
PRINT "B. MARCHING"
PRINT "C. PLAYING"
PRINT "D. SHOW"
PRINT ""
INPUT "ANSWER"; Q4$
IF Q4$ = "D" THEN GOSUB CORRECT
IF Q4$ <> "D" THEN GOSUB WRONG

REM Q5
COLOR 3
CLS
PRINT "5. WHAT IS THE HARD PIECE OF PLASTIC"
PRINT "THAT THE DRUMLINE WEARS TO HOLD THERE DRUMS"
PRINT ""
PRINT "A. SHIRT"
PRINT "B. CLAMP"
PRINT "C. HARNESS"
PRINT "D. QUILT"
PRINT ""
INPUT "ANSWER"; Q5$
IF Q5$ = "C" THEN GOSUB CORRECT
IF Q5$ <> "C" THEN GOSUB WRONG

REM Q6
COLOR 9
CLS
PRINT "6. WHAT DOES THE CENTER SNARE PLAY"
PRINT "TO START OFF THE DRUMLINE"
PRINT ""
PRINT "A. THE SHOW"
PRINT "B. STICK CLICKS"
PRINT "C. SINGLE STROKE ROLL"
PRINT "D. TAP OFF"
PRINT ""
INPUT "ANSWER"; Q6$
IF Q6$ = "D" THEN GOSUB CORRECT
IF Q6$ <> "D" THEN GOSUB WRONG

REM Q7
COLOR 10
CLS
PRINT "7. WHAT COLOR DOES THE DRUMLINE"
PRINT "TAPE THERE STICKS"
PRINT ""
PRINT "A. WHITE"
PRINT "B. BROWN"
PRINT "C. BLACK"
PRINT "D. BLUE"
PRINT ""
INPUT "ANSWER"; Q7$
IF Q7$ = "A" THEN GOSUB CORRECT
IF Q7$ <> "A" THEN GOSUB WRONG

REM Q8
COLOR 12
CLS
PRINT "8. HOW MANY BASS DRUMS ARE"
PRINT "USUALLY ON THE DRUMLINE"
PRINT ""
PRINT "A. 1"
PRINT "B. 3"
PRINT "C. 5"
PRINT "D. 7"
PRINT ""
INPUT "ANSWER"; Q8$
IF Q8$ = "C" THEN GOSUB CORRECT
IF Q8$ <> "C" THEN GOSUB WRONG
 
REM Q9
COLOR 14
CLS
PRINT "9. WHAT IS ANOTHER NAME FOR"
PRINT "THE TENOR DRUMS"
PRINT ""
PRINT "A. TOMS"
PRINT "B. QUINTS OR QUADS"
PRINT "C. DRUMS"
PRINT "D. BIG ONE"
PRINT ""
INPUT "ANSWER"; Q9$
IF Q9$ = "B" THEN GOSUB CORRECT
IF Q9$ <> "B" THEN GOSUB WRONG

REM Q10
COLOR 3
CLS
PRINT "10. WHAT ARE THE OBJECTS CALLED"
PRINT "USED TO HIT THE DRUM"
PRINT ""
PRINT "A. CHOP STICKS"
PRINT "B. BAMBOO STICKS"
PRINT "C. TOOTH PICKS"
PRINT "D. DRUM STICKS"
PRINT ""
INPUT "ANSWER"; Q10$
IF Q10$ = "D" THEN GOSUB CORRECT
IF Q10$ <> "D" THEN GOSUB WRONG

REM *******************************QUIZ OUTRO********************************

CLS
RANDOMIZE TIMER
FOR X = 1 TO 6000
LINE (0, 0)-(RND * 600, RND * 600), RND * 15
NEXT X
CLS
COLOR 15
IF C < 10 THEN PRINT "YOU MIGHT NOT HAVE KNOWN"
IF C < 10 THEN PRINT "WHAT THE QUIZ WAS TALKING ABOUT"
IF C < 10 THEN PRINT "BUT YOU GOT "; C; "CORRECT"
IF C < 10 THEN PRINT "NOT BAD FOR NOT BEING"
IF C < 10 THEN PRINT "ON THE DRUMLINE AND IF"
IF C < 10 THEN PRINT "YOUR ON THE DRUMLINE I SUGGEST"
IF C < 10 THEN PRINT "YOU DO IT AGAIN"
IF C = 10 THEN PRINT "YOU GOT A PERFECT SCORE"
IF C = 10 THEN PRINT "GREAT JOB"
PRINT "FEEL FREE TO TRY AGAIN"
PRINT ""
COLOR 14
INPUT "PRESS ENTER TO CONTINUE"; Continue$
IF Continue$ = "" THEN GOTO ENDING

REM *********************************ENDING**********************************

ENDING:
CLS
SCREEN 7
F$ = "DRUMLINE"
REM 1ST TIME
SLEEP 1
COLOR 9
LOCATE 10, 17
PRINT LEFT$(F$, 1)
SLEEP 1
COLOR 14
LOCATE 11, 18
PRINT MID$(F$, 2, 1)
SLEEP 1
COLOR 12
LOCATE 10, 19
PRINT MID$(F$, 3, 1)
SLEEP 1
COLOR 10
LOCATE 11, 20
PRINT MID$(F$, 4, 1)
SLEEP 1
COLOR 9
LOCATE 10, 21
PRINT MID$(F$, 5, 1)
SLEEP 1
COLOR 14
LOCATE 11, 22
PRINT MID$(F$, 6, 1)
SLEEP 1
COLOR 12
LOCATE 10, 23
PRINT MID$(F$, 7, 1)
SLEEP 1
COLOR 10
LOCATE 11, 24
PRINT RIGHT$(F$, 1)

REM: 2ND TIME
COLOR 9
LOCATE 10, 17
PRINT LEFT$(F$, 1)
SLEEP 1
COLOR 0
LOCATE 11, 18
PRINT MID$(F$, 2, 1)
COLOR 14
LOCATE 10, 18
PRINT MID$(F$, 2, 1)
COLOR 12
LOCATE 10, 19
PRINT MID$(F$, 3, 1)
SLEEP 1
COLOR 0
LOCATE 11, 20
PRINT MID$(F$, 4, 1)
COLOR 10
LOCATE 10, 20
PRINT MID$(F$, 4, 1)
COLOR 9
LOCATE 10, 21
PRINT MID$(F$, 5, 1)
SLEEP 1
COLOR 0
LOCATE 11, 22
PRINT MID$(F$, 6, 1)
COLOR 14
LOCATE 10, 22
PRINT MID$(F$, 6, 1)
COLOR 12
LOCATE 10, 23
PRINT MID$(F$, 7, 1)
SLEEP 1
COLOR 0
LOCATE 11, 24
PRINT RIGHT$(F$, 1)
COLOR 10
LOCATE 10, 24
PRINT RIGHT$(F$, 1)
SLEEP 1

REM: DRUMLINE FLASH
FOR X = 10 TO 14 STEP 1
CLS
COLOR X
LOCATE 10, 17
PRINT "DRUMLINE"
SLEEP 1
NEXT X
GOTO START

REM ******************************SUBROUTINES********************************

CORRECT:
CLS
SCREEN 12
REM SNARE DRUM
LOCATE 2, 39.5
COLOR 2
PRINT "SNARE DRUM"
REM BOX
LINE (300, 50)-(400, 50)
LINE (400, 50)-(400, 150)
LINE (400, 150)-(300, 150)
LINE (300, 150)-(300, 50)
REM RIMS
LINE (400, 60)-(300, 60)
LINE (400, 140)-(300, 140)
LINE (400, 130)-(300, 130)
REM LUGS
LINE (320, 50)-(320, 150)
LINE (340, 50)-(340, 150)
LINE (360, 50)-(360, 150)
LINE (380, 50)-(380, 150)
REM SNARES
LINE (400, 150)-(410, 150)
LINE (410, 150)-(410, 130)
LINE (410, 130)-(400, 130)
LINE (300, 150)-(290, 150)
LINE (290, 150)-(290, 130)
LINE (290, 130)-(300, 130)
CIRCLE (405, 125), 5
CIRCLE (295, 125), 5
REM TENOR DRUM
LOCATE 9, 15
COLOR 12
PRINT "TENOR DRUMS"
REM DRUM 4
CIRCLE (65, 220), 40
CIRCLE (65, 220), 35
REM DRUM 2
CIRCLE (130, 190), 30
CIRCLE (130, 190), 25
REM DRUM 1
CIRCLE (187, 190), 26
CIRCLE (187, 190), 21
REM DRUM 3
CIRCLE (242, 220), 35
CIRCLE (242, 220), 30
REM DRUM 5
CIRCLE (162, 229), 18
CIRCLE (162, 229), 13
REM BASS DRUM
LOCATE 13, 59
COLOR 13
PRINT "BASS DRUM"
REM BASS 5
CIRCLE (500, 300), 70
CIRCLE (500, 300), 60
REM PEARL LOGO
LOCATE 17, 61
PRINT "PEARL"
C = C + 1
FOR X = 1 TO 15 STEP 1
COLOR X
LOCATE 20, 20
PRINT "YOU GOT THAT"
LOCATE 21, 20
PRINT "CORRECT"
FOR HOLD = 1 TO 3000
NEXT HOLD
NEXT X
LOCATE 24, 20
PRINT "YOU HAVE "; C; " CORRECT SO FAR"
SLEEP 3
RETURN

WRONG:
CLS
COLOR 15
SCREEN 12
REM SNARE DRUM
LOCATE 2, 39.5
PRINT "SNARE DRUM"
REM BOX
LINE (300, 50)-(400, 50)
LINE (400, 50)-(400, 150)
LINE (400, 150)-(300, 150)
LINE (300, 150)-(300, 50)
REM RIMS
LINE (400, 60)-(300, 60)
LINE (400, 140)-(300, 140)
LINE (400, 130)-(300, 130)
REM LUGS
LINE (320, 50)-(320, 150)
LINE (340, 50)-(340, 150)
LINE (360, 50)-(360, 150)
LINE (380, 50)-(380, 150)
REM SNARES
LINE (400, 150)-(410, 150)
LINE (410, 150)-(410, 130)
LINE (410, 130)-(400, 130)
LINE (300, 150)-(290, 150)
LINE (290, 150)-(290, 130)
LINE (290, 130)-(300, 130)
CIRCLE (405, 125), 5
CIRCLE (295, 125), 5
REM TENOR DRUM
LOCATE 9, 15
PRINT "TENOR DRUMS"
REM DRUM 4
CIRCLE (65, 220), 40
CIRCLE (65, 220), 35
REM DRUM 2
CIRCLE (130, 190), 30
CIRCLE (130, 190), 25
REM DRUM 1
CIRCLE (187, 190), 26
CIRCLE (187, 190), 21
REM DRUM 3
CIRCLE (242, 220), 35
CIRCLE (242, 220), 30
REM DRUM 5
CIRCLE (162, 229), 18
CIRCLE (162, 229), 13
REM BASS DRUM
LOCATE 13, 59
PRINT "BASS DRUM"
REM BASS 5
CIRCLE (500, 300), 70
CIRCLE (500, 300), 60
REM PEARL LOGO
LOCATE 17, 61
PRINT "PEARL"
W = W + 1
LOCATE 20, 20
PRINT "YOU GOT THAT"
LOCATE 21, 20
PRINT "WRONG"
SLEEP 2
LOCATE 24, 20
PRINT "YOU HAVE "; W; " WRONG SO FAR"
SLEEP 2
RETURN

REM *********************************SECONDARY*******************************

SECONDARY:
SCREEN 12
CLS
LINE (50, 80)-(550, 180), 0, BF
LINE (48, 79)-(552, 181), 14, B
LINE (47, 78)-(553, 182), 14, B
LINE (100, 120)-(500, 140), 14, B
LINE (99, 120)-(501, 140), 14, B
FOR X = 122 TO 501 STEP 8
LINE (102, 122)-(X, 138), 7, BF
FOR HLD = 1 TO 2000: NEXT
COLOR 14
LOCATE 7, 25: PRINT "PLEASE WAIT LOADING SECONDARY"
NEXT
CLS
RANDOMIZE TIMER
FOR X = 1 TO 6000
LINE (0, 0)-(RND * 600, RND * 600), RND * 15
NEXT X

REM *********************************MENU************************************

SECOND:
CLS
SCREEN 12
COLOR 15
LOCATE 5, 37
PRINT "MENU"
COLOR 10
LOCATE 7, 32
PRINT "1. USING DATA"
LOCATE 8, 32
PRINT "2. USING AN ARRAY"
LOCATE 9, 32
PRINT "3. USING LENGTH"
LOCATE 10, 32
PRINT "4. USING INTAGERS"
LOCATE 11, 32
PRINT "5. USING SQUARE ROOT"
COLOR 12
LOCATE 12, 32
PRINT "6. GO BACK TO THE BEGINNING"
COLOR 9
LOCATE 14, 15
INPUT "CHOOSE ONE"; CO
IF CO = 1 THEN GOTO DATTA
IF CO = 2 THEN GOTO ARRAY
IF CO = 3 THEN GOTO LENGTH
IF CO = 4 THEN GOTO INTAGER
IF CO = 5 THEN GOTO SQUARE
IF CO = 6 THEN GOTO START
REM ********************************DATA*************************************

DATTA:
RESTORE
CLS
SCREEN 12
COLOR 15
PRINT "THIS IS ARE USED CAR INVENTORY"
PRINT "AS IT STANDS RIGHT NOW"
COLOR 14
PRINT ""
INPUT "PREES ENTER TO VIEW INVENTORY"; INVENT$
CARS:
COLOR 12
CLS
PRINT "Color", "Condition", " Year", "Model", "Price"
PRINT "_____", "_________", " ____", "_____", "________"
FOR U = 1 TO 10
READ Color$, Condition$, Year, Model$, Price
PRINT Color$, Condition$, Year, Model$, "$"; Price
NEXT U
DATA Red,Good,1998,Mustang,15.001
DATA Blue,Good,1995,Voyager,14.568
DATA Green,Fair,1991,Taurus,2.675
DATA Black,Good,2000,Buick,13.445
DATA Black,Good,1999,Durrango,19.667
DATA Red,Fair,1996,Civic,16.099
DATA White,Good,1995,Expedition,10.709
DATA Blue,Fair,1991,Corvet,22.022
DATA Green,Fair,1990,Intrepid,11.888
DATA Black,Good,2001,Matrix,21.999
SLEEP 8
GOTO SECOND

REM ******************************ARRAY**************************************

ARRAY:
RESTORE
CLS
SCREEN 12
COLOR 15
PRINT "YOU ARE NOW GOING TO ENTER 10 PEOPLE'S NAMES"
PRINT "INTO THE COMPUTER THEN THE COMPUTER WILL ASK"
PRINT "FOR ONE OF THE NAMES BACK SO MR. COMPUTER CAN"
PRINT "GO AND FIND THAT PERSON, HE WILL LET YOU KNOW"
PRINT "WHEN HE FINDS THE NAME"
PRINT ""
COLOR 14
INPUT "PRESS ENTER TO BEGIN"; NAMES
COLOR 15
CLS
DIM N$(25)
FOR X = 1 TO 10
INPUT "ENTER A NAME"; N$(X)
CLS
NEXT X
CLS
FOR X = 1 TO 10
PRINT N$(X)
NEXT X
SLEEP 3
CLS
COLOR 9
INPUT "WHO DO YOU WANT ME TO FIND"; SN$
SLEEP 3
FOR X = 1 TO 10
COLOR 12
PRINT ""
IF N$(X) = SN$ THEN PRINT "I FOUND THAT PERSON"
NEXT X
SLEEP 3

CLS
SCREEN 12
COLOR 15
PRINT "YOU ARE NOW GOING TO ENTER 10 NUMBERS"
PRINT "INTO THE COMPUTER THEN THE COMPUTER WILL ASK"
PRINT "FOR ONE OF THE NUMBERS BACK SO MR. COMPUTER CAN"
PRINT "GO AND FIND THAT NUMBER, HE WILL LET YOU KNOW"
PRINT "WHEN HE FINDS THE NUMBER"
PRINT ""
COLOR 14
INPUT "PRESS ENTER TO BEGIN"; NUMBERS
COLOR 15
CLS
DIM N(25)
FOR X = 1 TO 10
INPUT "ENTER A NUMBER"; N(X)
CLS
NEXT X
CLS
FOR X = 1 TO 10
PRINT N(X)
NEXT X
SLEEP 3
CLS
COLOR 9
INPUT "WHICH NUMBER DO YOU WANT ME TO FIND"; SN
SLEEP 3
FOR X = 1 TO 10
COLOR 12
PRINT ""
IF N(X) = SN THEN PRINT "I FOUND THAT NUMBER"
NEXT X
SLEEP 3
GOTO SECOND

REM ********************************LENGTH**********************************

LENGTH:
RESTORE
CLS
SCREEN 12
COLOR 15
PRINT "YOU ARE NOW GOING TO TYPE IN A 5 LETTER"
PRINT "WORD AND THE COMPUTER WILL GIVE ALL THE "
PRINT "SPECS ON THE WORD YOU TYPED IN"
PRINT ""
COLOR 14
INPUT "PRESS ENTER TO BEGIN"; YO
OVER:
CLS
COLOR 12
INPUT "TYPE IN A 5 LETTER WORD"; W$
IF LEN(W$) = 5 THEN GOTO Continue
IF LEN(W$) <> 5 THEN GOTO STUPID
Continue:
COLOR 15
PRINT ""
PRINT "WORD = "; W$
COLOR 10
PRINT ""
PRINT "LENGTH = "; LEN(W$)
COLOR 14
PRINT ""
PRINT "1ST LETTER = "; MID$(W$, 1, 1)
PRINT "2ND LETTER = "; MID$(W$, 2, 1)
PRINT "3RD LETTER = "; MID$(W$, 3, 1)
PRINT "4TH LETTER = "; MID$(W$, 4, 1)
PRINT "5TH LETTER = "; MID$(W$, 5, 1)
SLEEP 9
GOTO SECOND
STUPID:
CLS
COLOR 15
PRINT "LOOK IF YOU CANT TYPE IN A FIVE LETTER WORD"
PRINT "I FEEL SORRY FOR YOU I HOPE YOU DONT HAVE TO"
PRINT "REPEAT MATH CLASS"
PRINT ""
COLOR 14
INPUT "TO TRY AGAIN PRESS ENTER"; DUM
GOTO OVER

REM ******************************INTAGER************************************

INTAGER:
RESTORE
CLS
SCREEN 12
COLOR 15
CLS
PRINT "YOU ARE NOW GOING TO TELL THE COMPUTER HOW"
PRINT "MANY MILES YOU TRAVELED ON YOUR LAST ROAD TRIP"
PRINT "AND THE COMPUTER WILL CALCULATE HOW MUCH MONEY"
PRINT "YOU SPENT ON GAS FOR THE TRIP"
PRINT ""
COLOR 12
INPUT "PRESS ENTER TO BEGIN"; GO
CLS
COLOR 10
PRINT "HOW MANY MILES DID YOU TRAVEL"
INPUT "ON YOUR LAST ROAD TRIP"; N1
PRINT ""
COLOR 15
PRINT "HOW MANY GALLONS OF GAS"
INPUT "DID YOU USE"; N2
PRINT ""
COLOR 12
PRINT "HOW MUCH DID YOU SPEND"
INPUT "FOR EACH GALLON"; N3
MPG = N1 / N2
COT = MPG * N3
X = INT(COT)
CLS
COLOR 10
PRINT "YOUR CAR GOT"; MPG; "MPG"
PRINT ""
COLOR 15
PRINT "THE TOTAL COST OF YOUR TRIP"
PRINT "ROUNDED OF TO"; X; "DOLLERS"
SLEEP 6
GOTO SECOND

REM **********************************SQUARE*********************************

SQUARE:
RESTORE
CLS
SCREEN 12
COLOR 15
PRINT "YOU ARE NOW GOING TO ADD MULTIPLY"
PRINT "DIVIDE AND SUBTRACT 4 NUMBERS THEN THE COMPUTER"
PRINT "WILL TAKE THE TOTAL AND FIND THE SQUARE"
PRINT "ROOT OF THE NUMBER"
PRINT ""
COLOR 14
INPUT "PRESS ENTER TO BEGIN"; GO1
CLS
COLOR 14
INPUT "TYPE IN A NUMBER"; V1
COLOR 15
PRINT ""
INPUT "TYPE IN A NUMBER TO ADD"; V2
COLOR 12
PRINT ""
INPUT "TYPE IN A NUMBER TO MULTIPLY"; V3
COLOR 10
PRINT ""
INPUT "TYPE IN A NUMBER TO DIVIDE"; V4
COLOR 14
PRINT ""
INPUT "TYPE IN A NUMBER TO SUBTRACT"; V5
ADD = V1 + V2
MULTIPLY = ADD * V3
DIVIDE = MULTIPLY / V4
SUBTRACT = DIVIDE - V5
TOTAL = SUBTRACT
SQUARE = SQR(TOTAL)
CLS
COLOR 15
PRINT "THE TOTAL = "; TOTAL
PRINT ""
COLOR 10
PRINT "THE SQUARE ROOT = "; SQUARE
SLEEP 5
GOTO SECOND