REM Sabrina Sanchez

REM 01/17/03
CLS
START:
COLOR 15, 9
LOCATE 11, 26
PRINT "WELCOME TO MY MUSIC PROGRAM!"
LOCATE 12, 26
PRINT "____________________________"
SLEEP 3
CLS
MENU:
SCREEN 12
REM UPPER LEFT CORNER
LINE (80, 20)-(90, 50), 14
LINE (90, 50)-(120, 50), 14
LINE (120, 50)-(90, 70), 14
LINE (90, 70)-(90, 100), 14
LINE (90, 100)-(70, 80), 14
LINE (70, 80)-(40, 100), 14
LINE (40, 100)-(50, 70), 14
LINE (50, 70)-(30, 50), 14
LINE (30, 50)-(60, 50), 14
LINE (60, 50)-(80, 20), 14
PAINT (90, 60), 14
REM UPPER RIGHT CORNER
LINE (560, 20)-(570, 50), 14
LINE (570, 50)-(600, 50), 14
LINE (600, 50)-(570, 70), 14
LINE (570, 70)-(570, 100), 14
LINE (570, 100)-(550, 80), 14
LINE (550, 80)-(520, 100), 14
LINE (520, 100)-(530, 70), 14
LINE (530, 70)-(510, 50), 14
LINE (510, 50)-(540, 50), 14
LINE (540, 50)-(560, 20), 14
PAINT (550, 60), 14
REM LOWER LEFT CORNER
LINE (80, 380)-(90, 410), 14
LINE (90, 410)-(120, 410), 14
LINE (120, 410)-(90, 430), 14
LINE (90, 430)-(90, 460), 14
LINE (90, 460)-(70, 440), 14
LINE (70, 440)-(40, 460), 14
LINE (40, 460)-(50, 430), 14
LINE (50, 430)-(30, 410), 14
LINE (30, 410)-(60, 410), 14
LINE (60, 410)-(80, 380), 14
PAINT (70, 420), 14
REM LOWER RIGHT CORNER
LINE (560, 380)-(570, 410), 14
LINE (570, 410)-(600, 410), 14
LINE (600, 410)-(570, 430), 14
LINE (570, 430)-(570, 460), 14
LINE (570, 460)-(550, 440), 14
LINE (550, 440)-(520, 460), 14
LINE (520, 460)-(530, 430), 14
LINE (530, 430)-(510, 410), 14
LINE (510, 410)-(540, 410), 14
LINE (540, 410)-(560, 380), 14
PAINT (550, 430), 14
LOCATE 11, 37
PRINT "MENU"
LOCATE 12, 37
PRINT "____"
LOCATE 13, 30
PRINT "1. Music Trivia Quiz"
LOCATE 14, 30
PRINT "2. Miscellanious Stuff"
LOCATE 15, 30
PRINT "3. Quit the program"
LOCATE 16, 30
INPUT "Please enter an option"; M1
IF M1 = 1 THEN GOTO FIRSTPROGRAM
IF M1 = 2 THEN GOTO SECONDPROGRAM
IF M1 = 3 THEN GOTO THIRDPROGRAM
   
FIRSTPROGRAM:
SCREEN 0
SLEEP 3
CLS
COLOR 15, 13
LOCATE 11, 23
PRINT "WELCOME TO MY MUSIC TRIVIA QUIZ!"
LOCATE 12, 23
PRINT "--------------------------------"
SLEEP 3
CLS

REM LOADING
SCREEN 7
COLOR 7, 0
LOCATE 11, 13
PRINT "LOADING..."
LINE (85, 70)-(235, 70), 7
LINE (235, 70)-(235, 135), 7
LINE (235, 135)-(85, 135), 7
LINE (85, 135)-(85, 70), 7
LINE (100, 105)-(220, 105), 7
LINE (220, 105)-(220, 120), 7
LINE (220, 120)-(100, 120), 7
LINE (100, 120)-(100, 105), 7

REM COUNTER
LINE (101, 106)-(109, 119), 1, BF
SLEEP 1
LINE (110, 106)-(120, 119), 1, BF
SLEEP 1
LINE (120, 106)-(130, 119), 1, BF
SLEEP 1
LINE (130, 106)-(140, 119), 1, BF
SLEEP 1
LINE (140, 106)-(150, 119), 1, BF
SLEEP 1
LINE (150, 106)-(160, 119), 1, BF
SLEEP 1
LINE (160, 106)-(170, 119), 1, BF
SLEEP 1
LINE (170, 106)-(180, 119), 1, BF
SLEEP 1
LINE (180, 106)-(190, 119), 1, BF
SLEEP 1
LINE (190, 106)-(200, 119), 1, BF
SLEEP 1
LINE (200, 106)-(210, 119), 1, BF
SLEEP 1
LINE (210, 106)-(219, 119), 1, BF
SLEEP 2
CLS


1 :
SCREEN 12
LINE (450, 300)-(490, 300), 13
LINE (490, 300)-(490, 460), 13
LINE (490, 460)-(450, 460), 13
LINE (450, 460)-(450, 300), 13
PAINT (470, 450), 13
LINE (380, 300)-(390, 300), 13
LINE (390, 300)-(390, 320), 13
LINE (390, 320)-(400, 320), 13
LINE (400, 320)-(400, 300), 13
LINE (400, 300)-(410, 300), 13
LINE (410, 300)-(410, 320), 13
LINE (410, 320)-(430, 320), 13
LINE (430, 320)-(430, 330), 13
LINE (430, 330)-(410, 330), 13
LINE (410, 330)-(410, 340), 13
LINE (410, 340)-(430, 340), 13
LINE (430, 340)-(430, 350), 13
LINE (430, 350)-(410, 350), 13
LINE (410, 350)-(410, 370), 13
LINE (410, 370)-(400, 370), 13
LINE (400, 370)-(400, 350), 13
LINE (400, 350)-(390, 350), 13
LINE (390, 350)-(390, 370), 13
LINE (390, 370)-(380, 370), 13
LINE (380, 370)-(380, 350), 13
LINE (380, 350)-(360, 350), 13
LINE (360, 350)-(360, 340), 13
LINE (360, 340)-(380, 340), 13
LINE (380, 340)-(380, 330), 13
LINE (380, 330)-(360, 330), 13
LINE (360, 330)-(360, 320), 13
LINE (360, 320)-(380, 320), 13
LINE (380, 320)-(380, 300), 13
PAINT (390, 330), 13
PRINT "What act holds the most records for the most number one hits?"
PRINT "A. The Beatles"
PRINT "B. Rolling Stone"
PRINT "C. Backstreet Boys"
PRINT "D. No Doubt"
INPUT "Please input your answer"; A1$
IF A1$ = "A" THEN GOSUB CORRECT
IF A1$ <> "A" THEN GOSUB WRONG

2 :
SCREEN 12
LINE (410, 260)-(590, 260), 2
LINE (590, 260)-(590, 410), 2
LINE (590, 410)-(530, 410), 2
LINE (530, 410)-(530, 320), 2
LINE (530, 320)-(470, 320), 2
LINE (470, 320)-(470, 410), 2
LINE (470, 410)-(410, 410), 2
LINE (410, 410)-(410, 260), 2
PAINT (500, 280), 2
CIRCLE (430, 417), 41, 2
PAINT (430, 417), 2, 2
CIRCLE (550, 417), 41, 2
PAINT (550, 417), 2, 2
PRINT "What was the first rap song to ever hit number one?"
PRINT "A. Baby Got Back by Sir Mix-A-Lot"
PRINT "B. Ice Ice Baby by Vanilla Ice"
PRINT "C. Slim Shady by Eminem"
PRINT "D. Bombs Over Baghdad by Outkast"
INPUT "Please input your answer"; A2$
IF A2$ = "B" THEN GOSUB CORRECT
IF A2$ <> "B" THEN GOSUB WRONG

3 :
SCREEN 12
LINE (210, 90)-(210, 270), 7
LINE (210, 270)-(360, 270), 7
LINE (360, 270)-(310, 260), 7
LINE (310, 260)-(370, 200), 7
LINE (370, 200)-(310, 200), 7
LINE (310, 200)-(360, 160), 7
LINE (360, 160)-(320, 160), 7
LINE (320, 160)-(390, 130), 7
LINE (390, 130)-(330, 90), 7
LINE (330, 90)-(210, 90), 7
LINE (330, 90)-(480, 90), 7
LINE (480, 90)-(480, 270), 7
LINE (480, 270)-(360, 270), 7
REM BOX
LINE (240, 120)-(440, 120), 7
LINE (440, 120)-(440, 240), 7
LINE (440, 240)-(240, 240), 7
LINE (240, 240)-(240, 120), 7
SLEEP 2
CLS
REM RIGHT ONES
LINE (370, 110)-(500, 110), 7
LINE (500, 110)-(500, 270), 7
LINE (500, 270)-(440, 270), 7
LINE (440, 270)-(370, 250), 7
LINE (370, 250)-(430, 210), 7
LINE (430, 210)-(360, 210), 7
LINE (360, 210)-(410, 160), 7
LINE (410, 160)-(370, 160), 7
LINE (370, 160)-(410, 130), 7
LINE (410, 130)-(370, 110), 7
REM BOX INSIDE
LINE (380, 150)-(460, 150), 7
LINE (460, 150)-(460, 250), 7
LINE (460, 250)-(370, 250), 7
REM LEFT ONE
LINE (300, 110)-(340, 130), 7
LINE (340, 130)-(280, 160), 7
LINE (280, 160)-(320, 170), 7
LINE (320, 170)-(280, 190), 7
LINE (280, 190)-(330, 220), 7
LINE (330, 220)-(270, 250), 7
LINE (270, 250)-(330, 270), 7
LINE (330, 270)-(200, 270), 7
LINE (200, 270)-(200, 110), 7
LINE (200, 110)-(300, 110), 7
REM BOX INSIDE
LINE (310, 140)-(220, 140), 7
LINE (220, 140)-(220, 250), 7
LINE (220, 250)-(270, 250), 7
SLEEP 1
CLS
REM LAST RIGHT MOVEMENT
LINE (440, 120)-(570, 120), 7
LINE (570, 120)-(570, 280), 7
LINE (570, 280)-(510, 280), 7
LINE (510, 280)-(450, 260), 7
LINE (450, 260)-(490, 220), 7
LINE (490, 220)-(440, 220), 7
LINE (440, 220)-(490, 170), 7
LINE (490, 170)-(440, 170), 7
LINE (440, 170)-(480, 150), 7
LINE (480, 150)-(440, 120), 7
REM INSIDE
LINE (480, 150)-(550, 150), 7
LINE (550, 150)-(550, 260), 7
LINE (550, 260)-(450, 260), 7
REM LAST LEFT MOVEMENT
LINE (170, 120)-(170, 280), 7
LINE (170, 280)-(300, 280), 7
LINE (300, 280)-(240, 250), 7
LINE (240, 250)-(290, 220), 7
LINE (290, 220)-(250, 200), 7
LINE (250, 200)-(280, 180), 7
LINE (280, 180)-(260, 160), 7
LINE (260, 160)-(310, 140), 7
LINE (310, 140)-(270, 120), 7
LINE (270, 120)-(170, 120), 7
REM BOX INSIDE
LINE (290, 140)-(180, 140), 7
LINE (180, 140)-(180, 260), 7
LINE (180, 260)-(260, 260), 7
SLEEP 1
CLS
LINE (330, 270)-(440, 270), 7
LINE (440, 270)-(420, 300), 7
LINE (420, 300)-(440, 330), 7
LINE (440, 330)-(410, 380), 7
LINE (410, 380)-(440, 410), 7
LINE (440, 410)-(420, 450), 7
LINE (420, 450)-(330, 450), 7
LINE (330, 450)-(330, 270), 7
LINE (480, 270)-(590, 270), 7
LINE (590, 270)-(590, 450), 7
LINE (590, 450)-(460, 450), 7
LINE (460, 450)-(480, 410), 7
LINE (480, 410)-(450, 380), 7
LINE (450, 380)-(480, 330), 7
LINE (480, 330)-(460, 300), 7
LINE (460, 300)-(480, 270), 7
REM R
LINE (340, 340)-(355, 340), 14
LINE (355, 340)-(355, 350), 14
LINE (355, 350)-(340, 350), 14
LINE (340, 350)-(355, 360), 14
LINE (340, 340)-(340, 360), 14
REM E
LINE (370, 340)-(390, 340), 14
LINE (370, 350)-(385, 350), 14
LINE (370, 360)-(390, 360), 14
LINE (370, 340)-(370, 360), 14
REM C
LINE (420, 340)-(400, 340), 14
LINE (400, 340)-(400, 360), 14
LINE (400, 360)-(420, 360), 14
REM O
LINE (480, 340)-(480, 360), 14
LINE (480, 360)-(510, 360), 14
LINE (510, 360)-(510, 340), 14
LINE (510, 340)-(480, 340), 14
REM R
LINE (530, 360)-(530, 340), 14
LINE (530, 340)-(545, 340), 14
LINE (545, 340)-(545, 350), 14
LINE (545, 350)-(530, 350), 14
LINE (530, 350)-(550, 360), 14
REM D
LINE (560, 340)-(580, 350), 14
LINE (580, 350)-(560, 360), 14
LINE (560, 360)-(560, 340), 14
PRINT "Who was the first group to break Garth Brooks record for the most albums sold in a week?"
PRINT "A. 'N Sync"
PRINT "B. Eminem"
PRINT "C. Backstreet Boys"
PRINT "D. Shania Twain"
INPUT "Please input your answer"; A3$
IF A3$ = "C" THEN GOSUB CORRECT
IF A3$ <> "C" THEN GOSUB WRONG

4 :
SCREEN 12
REM Microphone
LINE (440, 260)-(490, 260), 8
LINE (490, 260)-(490, 310), 8
LINE (490, 310)-(440, 310), 8
LINE (440, 310)-(440, 260), 8
LINE (450, 310)-(450, 410)
LINE (450, 410)-(480, 410)
LINE (480, 410)-(480, 310)
LINE (440, 280)-(490, 280), 8
LINE (440, 290)-(490, 290), 8
LINE (440, 300)-(450, 310), 8
LINE (440, 290)-(460, 310), 8
LINE (450, 290)-(470, 310), 8
LINE (460, 290)-(480, 310), 8
LINE (470, 290)-(490, 310), 8
LINE (480, 290)-(490, 300), 8
LINE (440, 270)-(450, 280), 8
LINE (440, 260)-(460, 280), 8
LINE (450, 260)-(470, 280), 8
LINE (460, 260)-(480, 280), 8
LINE (470, 260)-(490, 280), 8
LINE (480, 260)-(490, 270), 8
LINE (440, 300)-(450, 290), 8
LINE (440, 310)-(460, 290), 8
LINE (450, 310)-(470, 290), 8
LINE (460, 310)-(480, 290), 8
LINE (470, 310)-(490, 290), 8
LINE (480, 310)-(490, 300), 8
LINE (440, 270)-(450, 260), 8
LINE (440, 280)-(460, 260), 8
LINE (450, 280)-(470, 260), 8
LINE (460, 280)-(480, 260), 8
LINE (470, 280)-(490, 260), 8
LINE (480, 280)-(490, 270), 8
REM LEFT MUSIC NOTE
CIRCLE (420, 260), 8, 4
PAINT (420, 260), 4, 4
LINE (405, 240)-(428, 258), 4
LINE (405, 240)-(423, 245), 4
REM RIGHT MUSIC NOTE
CIRCLE (520, 260), 5, 2
PAINT (520, 260), 2, 2
CIRCLE (530, 270), 5, 2
PAINT (530, 270), 2, 2
LINE (550, 240)-(525, 260), 2
LINE (560, 250)-(535, 270), 2
LINE (550, 240)-(560, 250), 2
LINE (540, 250)-(550, 258), 2
PAINT (550, 250), 2
PRINT "Who sings the song 'Wasting My Time'?"
PRINT "A. Puddle of Mud"
PRINT "B. Default"
PRINT "C. Incubus"
PRINT "D. Limp Bizkit"
INPUT "Please input your answer"; A4$
IF A4$ = "B" THEN GOSUB CORRECT
IF A4$ <> "B" THEN GOSUB WRONG

5 :
SCREEN 12
REM M
LINE (300, 270)-(300, 430), 2
LINE (300, 430)-(330, 430), 2
LINE (330, 430)-(330, 320), 2
LINE (330, 320)-(370, 370), 2
LINE (370, 370)-(400, 320), 2
LINE (400, 320)-(400, 430), 2
LINE (400, 430)-(430, 430), 2
LINE (430, 430)-(430, 270), 2
LINE (430, 270)-(400, 270), 2
LINE (400, 270)-(370, 320), 2
LINE (370, 320)-(330, 270), 2
LINE (330, 270)-(300, 270), 2
PAINT (370, 330), 2
REM T
LINE (460, 430)-(460, 360), 12
LINE (460, 360)-(440, 360), 12
LINE (440, 360)-(440, 340), 12
LINE (440, 340)-(460, 340), 12
LINE (460, 340)-(460, 310), 12
LINE (460, 310)-(480, 310), 12
LINE (480, 310)-(480, 340), 12
LINE (480, 340)-(550, 340), 12
LINE (550, 340)-(550, 360), 12
LINE (550, 360)-(480, 360), 12
LINE (480, 360)-(480, 430), 12
LINE (480, 430)-(460, 430), 12
PAINT (470, 350), 12
REM V
LINE (500, 360)-(530, 430)
LINE (530, 430)-(600, 320)
LINE (600, 320)-(565, 320)
LINE (565, 320)-(550, 350)
LINE (550, 350)-(550, 360)
LINE (550, 360)-(545, 360)
LINE (530, 380)-(545, 360)
LINE (530, 380)-(520, 360)
LINE (520, 360)-(500, 360)
PAINT (530, 390)
LINE (485, 320)-(510, 320)
LINE (515, 340)-(510, 320)
LINE (490, 340)-(485, 320)
LINE (490, 340)-(515, 340)
PAINT (495, 330)
PRINT "How long has MTV been in production?"
PRINT "A. 15 years"
PRINT "B. 8 years"
PRINT "C. 32 years"
PRINT "D. 21 years"
INPUT "Please input your answer"; A5$
IF A5$ = "D" THEN GOSUB CORRECT
IF A5$ <> "D" THEN GOSUB WRONG

6 :
SCREEN 12
LINE (340, 270)-(600, 460), 15, B
LINE (340, 270)-(370, 460), 15, BF
CIRCLE (480, 365), 90, 8
CIRCLE (480, 365), 30, 8
PRINT "How many albums does an artist have to sell to reach platinum statis?"
PRINT "A. 1 million"
PRINT "B. 5 million"
PRINT "C. 500,000"
PRINT "D. 900,000"
INPUT "Please input your answer"; A6$
IF A6$ = "A" THEN GOSUB CORRECT
IF A6$ <> "A" THEN GOSUB WRONG

7 :
SCREEN 12
CIRCLE (500, 300), 40, 14, 0, 3.14 * 2, 2.1
LINE (484, 280)-(410, 320), 14
LINE (487, 330)-(420, 350), 14
LINE (460, 294)-(460, 337), 14
LINE (410, 320)-(420, 350), 14
CIRCLE (485, 300), 20, 14, 3.14 * 1.5, 3.14 * 2
CIRCLE (485, 300), 20, 14, 3.14 * 0, 3.14 * .5
REM CONNECTOR
LINE (413, 330)-(380, 350), 14
LINE (380, 350)-(380, 360), 14
LINE (418, 340)-(400, 350), 14
LINE (400, 350)-(400, 360), 14
REM LONG PART PART THAT IS IN THE MOVEMENT THAT I NEED
LINE (380, 360)-(440, 390), 14
LINE (400, 360)-(445, 380), 14
LINE (440, 390)-(445, 380), 14
LINE (413, 330)-(418, 340), 14

CIRCLE (450, 380), 5
REM RECIEVER
CIRCLE (470, 390), 25, 15, 0, 3.14 * 2, .2
CIRCLE (470, 393.3), 27, 15, 0, 3.14 * 2, .3
REM BOX SQUARE
LINE (440, 390)-(420, 410), 14
LINE (420, 410)-(510, 410), 14
LINE (510, 410)-(530, 390), 14
LINE (530, 390)-(498, 390), 14
LINE (530, 390)-(530, 440), 14
LINE (430, 410)-(430, 440), 14
LINE (430, 440)-(530, 440), 14
LINE (510, 410)-(510, 440), 14
PAINT (470, 420), 14

SLEEP 2
CLS
REM MOVEMENT GFDGDGDGDGDGDGDGDGDFGDGDFGDGDFGDFGDGDFGDGDGDGDFGDGDFGD
CIRCLE (500, 300), 40, 14, 0, 3.14 * 2, 2.1
LINE (484, 280)-(410, 320), 14
LINE (487, 330)-(420, 350), 14
LINE (460, 294)-(460, 337), 14
LINE (410, 320)-(420, 350), 14
CIRCLE (485, 300), 20, 14, 3.14 * 1.5, 3.14 * 2
CIRCLE (485, 300), 20, 14, 3.14 * 0, 3.14 * .5
REM CONNECTOR
LINE (413, 330)-(380, 350), 14
LINE (380, 350)-(380, 360), 14
LINE (418, 340)-(400, 350), 14
LINE (400, 350)-(400, 360), 14
REM LONG PART PART IN MEVEMENT THAT I NEEDTO MOVE
LINE (380, 360)-(440, 380), 14
LINE (400, 360)-(445, 370), 14
LINE (440, 380)-(445, 370), 14
LINE (413, 330)-(418, 340), 14

CIRCLE (450, 370), 5
REM RECIEVER
CIRCLE (470, 390), 25, 15, 0, 3.14 * 2, .2
CIRCLE (470, 393.3), 27, 15, 0, 3.14 * 2, .3
REM BOX SQUARE
LINE (440, 390)-(420, 410), 14
LINE (420, 410)-(510, 410), 14
LINE (510, 410)-(530, 390), 14
LINE (530, 390)-(498, 390), 14
LINE (530, 390)-(530, 440), 14
LINE (430, 410)-(430, 440), 14
LINE (430, 440)-(530, 440), 14
LINE (510, 410)-(510, 440), 14
PAINT (470, 420), 14
SLEEP 1
CLS
REM SAFSAFADADADADADASDSADASDASDASDASDSADSADSADASDADADADADADADADADAD
CIRCLE (500, 300), 40, 14, 0, 3.14 * 2, 2.1
LINE (484, 280)-(410, 320), 14
LINE (487, 330)-(420, 350), 14
LINE (460, 294)-(460, 337), 14
LINE (410, 320)-(420, 350), 14
CIRCLE (485, 300), 20, 14, 3.14 * 1.5, 3.14 * 2
CIRCLE (485, 300), 20, 14, 3.14 * 0, 3.14 * .5
REM CONNECTOR
LINE (413, 330)-(380, 350), 14
LINE (380, 350)-(380, 360), 14
LINE (418, 340)-(400, 350), 14
LINE (400, 350)-(400, 360), 14
REM LONG PART PART IN MEVEMENT THAT I NEEDTO MOVE
LINE (380, 360)-(440, 370), 14
LINE (400, 360)-(445, 360), 14
LINE (440, 370)-(445, 360), 14
LINE (413, 330)-(418, 340), 14

CIRCLE (450, 360), 5
REM RECIEVER
CIRCLE (470, 390), 25, 15, 0, 3.14 * 2, .2
CIRCLE (470, 393.3), 27, 15, 0, 3.14 * 2, .3
REM BOX SQUARE
LINE (440, 390)-(420, 410), 14
LINE (420, 410)-(510, 410), 14
LINE (510, 410)-(530, 390), 14
LINE (530, 390)-(498, 390), 14
LINE (530, 390)-(530, 440), 14
LINE (430, 410)-(430, 440), 14
LINE (430, 440)-(530, 440), 14
LINE (510, 410)-(510, 440), 14
PAINT (470, 420), 14
SLEEP 1
CLS
REM MOVEMENT GFDGDGDGDGDGDGDGDGDFGDGDFGDGDFGDFGDGDFGDGDGDGDFGDGDFGD
CIRCLE (500, 300), 40, 14, 0, 3.14 * 2, 2.1
LINE (484, 280)-(410, 320), 14
LINE (487, 330)-(420, 350), 14
LINE (460, 294)-(460, 337), 14
LINE (410, 320)-(420, 350), 14
CIRCLE (485, 300), 20, 14, 3.14 * 1.5, 3.14 * 2
CIRCLE (485, 300), 20, 14, 3.14 * 0, 3.14 * .5
REM CONNECTOR
LINE (413, 330)-(380, 350), 14
LINE (380, 350)-(380, 360), 14
LINE (418, 340)-(400, 350), 14
LINE (400, 350)-(400, 360), 14
REM LONG PART PART IN MEVEMENT THAT I NEEDTO MOVE
LINE (380, 360)-(440, 380), 14
LINE (400, 360)-(445, 370), 14
LINE (440, 380)-(445, 370), 14
LINE (413, 330)-(418, 340), 14

CIRCLE (450, 370), 5
REM RECIEVER
CIRCLE (470, 390), 25, 15, 0, 3.14 * 2, .2
CIRCLE (470, 393.3), 27, 15, 0, 3.14 * 2, .3
REM BOX SQUARE
LINE (440, 390)-(420, 410), 14
LINE (420, 410)-(510, 410), 14
LINE (510, 410)-(530, 390), 14
LINE (530, 390)-(498, 390), 14
LINE (530, 390)-(530, 440), 14
LINE (430, 410)-(430, 440), 14
LINE (430, 440)-(530, 440), 14
LINE (510, 410)-(510, 440), 14
PAINT (470, 420), 14
SLEEP 1
CLS
REM IUIUIUIUIUIIUIUIUIUIIUIUIIUIUIUIIUIUIIUIUIUIUIIUUI
CIRCLE (500, 300), 40, 14, 0, 3.14 * 2, 2.1
LINE (484, 280)-(410, 320), 14
LINE (487, 330)-(420, 350), 14
LINE (460, 294)-(460, 337), 14
LINE (410, 320)-(420, 350), 14
CIRCLE (485, 300), 20, 14, 3.14 * 1.5, 3.14 * 2
CIRCLE (485, 300), 20, 14, 3.14 * 0, 3.14 * .5
REM CONNECTOR
LINE (413, 330)-(380, 350), 14
LINE (380, 350)-(380, 360), 14
LINE (418, 340)-(400, 350), 14
LINE (400, 350)-(400, 360), 14
REM LONG PART PART THAT IS IN THE MOVEMENT THAT I NEED
LINE (380, 360)-(440, 390), 14
LINE (400, 360)-(445, 380), 14
LINE (440, 390)-(445, 380), 14
LINE (413, 330)-(418, 340), 14

CIRCLE (450, 380), 5
REM RECIEVER
CIRCLE (470, 390), 25, 15, 0, 3.14 * 2, .2
CIRCLE (470, 393.3), 27, 15, 0, 3.14 * 2, .3
REM BOX SQUARE
LINE (440, 390)-(420, 410), 14
LINE (420, 410)-(510, 410), 14
LINE (510, 410)-(530, 390), 14
LINE (530, 390)-(498, 390), 14
LINE (530, 390)-(530, 440), 14
LINE (430, 410)-(430, 440), 14
LINE (430, 440)-(530, 440), 14
LINE (510, 410)-(510, 440), 14
PAINT (470, 420), 14
PRINT "Who won 9 Grammy's in one night?"
PRINT "A. Aerosmith"
PRINT "B. Frank Sinatra"
PRINT "C. Carlos Santana"
PRINT "D. Elton John"
INPUT "Please input your answer"; A7$
IF A7$ = "C" THEN GOSUB CORRECT
IF A7$ <> "C" THEN GOSUB WRONG

8 :
SCREEN 12
LINE (430, 310)-(490, 250), 12
LINE (490, 250)-(540, 240), 12
LINE (540, 240)-(590, 280), 12
LINE (590, 280)-(430, 460), 12
LINE (430, 460)-(270, 280), 12
LINE (270, 280)-(320, 240), 12
LINE (320, 240)-(370, 250), 12
LINE (370, 250)-(430, 310), 12
PAINT (450, 350), 12
PRINT "Who recently married Nick Lachey from 98 Degrees?"
PRINT "A. J-Lo"
PRINT "B. Jessica Simpson"
PRINT "C. Britney Spears"
PRINT "D. Christina Aguilera"
INPUT "Please input your answer"; A8$
IF A8$ = "B" THEN GOSUB CORRECT
IF A8$ <> "B" THEN GOSUB WRONG

9 :
SCREEN 12
CIRCLE (440, 350), 50, 6
PAINT (440, 350), 6, 6
LINE (440, 240)-(440, 300), 2
LINE (440, 270)-(470, 250), 2
LINE (470, 250)-(500, 260), 2
LINE (500, 260)-(480, 280), 2
LINE (480, 280)-(440, 270), 2
LINE (440, 270)-(480, 265), 2
PRINT "Where is Sugar Ray originally from?"
PRINT "A. Orange County, California"
PRINT "B. Broward County, California"
PRINT "C. Apple County, California"
PRINT "D. Monroe County, California"
INPUT "Please input your answer"; A9$
IF A9$ = "A" THEN GOSUB CORRECT
IF A9$ <> "A" THEN GOSUB WRONG

10 :
SCREEN 12
PRINT "What is Pink's real name?"
PRINT "A. Allison McLean"
PRINT "B. Jean Twigger"
PRINT "C. Alicia Moore"
PRINT "D. Betty Astin"
INPUT "Please input your answer"; A10$
IF A10$ = "C" THEN GOSUB CORRECT
IF A10$ <> "C" THEN GOSUB WRONG
GOTO ANSWERS
           
CORRECT:
REM OUTER LAYER
SCREEN 7
COLOR 1, 2
LINE (50, 0)-(145, 55)
LINE (145, 55)-(175, 0)
LINE (175, 0)-(220, 55)
LINE (220, 55)-(280, 0)
LINE (280, 0)-(270, 90)
LINE (270, 90)-(320, 135)
LINE (320, 135)-(245, 145)
LINE (245, 145)-(255, 200)
LINE (255, 200)-(180, 155)
LINE (180, 155)-(100, 200)
LINE (100, 200)-(105, 160)
LINE (105, 160)-(0, 175)
LINE (0, 175)-(50, 110)
LINE (50, 110)-(0, 50)
LINE (0, 50)-(70, 60)
LINE (70, 60)-(50, 0)
REM LETTERS
COLOR 12, 2
LINE (65, 100)-(85, 100)
LINE (85, 100)-(85, 105)
LINE (85, 105)-(70, 105)
LINE (70, 105)-(70, 120)
LINE (70, 120)-(85, 120)
LINE (85, 120)-(85, 125)
LINE (85, 125)-(65, 125)
LINE (65, 125)-(65, 100)
CIRCLE (102, 113), 15, 12
PAINT (102, 105), 12, 12
CIRCLE (102, 113), 5, 12
LINE (120, 100)-(135, 100)
LINE (135, 100)-(135, 105)
LINE (135, 105)-(125, 105)
LINE (125, 105)-(125, 125)
LINE (125, 125)-(120, 125)
LINE (120, 125)-(120, 100)
LINE (140, 100)-(155, 100)
LINE (155, 100)-(155, 105)
LINE (155, 105)-(145, 105)
LINE (145, 105)-(145, 125)
LINE (145, 125)-(140, 125)
LINE (140, 125)-(140, 100)
LINE (160, 100)-(180, 100)
LINE (180, 100)-(180, 110)
LINE (180, 110)-(165, 110)
LINE (165, 110)-(165, 120)
LINE (165, 120)-(180, 120)
LINE (180, 120)-(180, 125)
LINE (180, 125)-(160, 125)
LINE (160, 125)-(160, 100)
LINE (165, 103)-(175, 108), 12, B
LINE (185, 100)-(205, 100)
LINE (205, 100)-(205, 105)
LINE (205, 105)-(190, 105)
LINE (190, 105)-(190, 120)
LINE (190, 120)-(205, 120)
LINE (205, 120)-(205, 125)
LINE (205, 125)-(185, 125)
LINE (185, 125)-(185, 100)
LINE (210, 100)-(215, 100)
LINE (215, 100)-(215, 95)
LINE (215, 95)-(220, 95)
LINE (220, 95)-(220, 100)
LINE (220, 100)-(225, 100)
LINE (225, 100)-(225, 105)
LINE (225, 105)-(220, 105)
LINE (220, 105)-(220, 125)
LINE (220, 125)-(215, 125)
LINE (215, 125)-(215, 105)
LINE (215, 105)-(210, 105)
LINE (210, 105)-(210, 100)
LINE (235, 105)-(225, 85)
LINE (225, 85)-(245, 85)
LINE (245, 85)-(235, 105)
CIRCLE (235, 115), 10, 12
PAINT (235, 115), 12, 12
PAINT (75, 103), 12
PAINT (125, 103), 12
PAINT (150, 103), 12
PAINT (177, 103), 12
PAINT (200, 103), 12
PAINT (217, 103), 12
PAINT (235, 90), 12
SLEEP 3
CLS
C = C + 1
RETURN

WRONG:
SCREEN 7
COLOR 6, 0
REM W
LINE (20, 100)-(30, 100)
LINE (30, 100)-(40, 110)
LINE (40, 110)-(50, 100)
LINE (50, 100)-(60, 110)
LINE (60, 110)-(70, 100)
LINE (70, 100)-(80, 100)
LINE (80, 100)-(60, 125)
LINE (60, 125)-(50, 115)
LINE (50, 115)-(40, 125)
LINE (40, 125)-(20, 100)
PAINT (50, 110), 6
REM R
LINE (85, 100)-(100, 100)
LINE (100, 100)-(100, 105)
LINE (100, 105)-(90, 105)
LINE (90, 105)-(90, 125)
LINE (90, 125)-(85, 125)
LINE (85, 125)-(85, 100)
PAINT (90, 103), 6
REM O
CIRCLE (115, 113), 15, 6
PAINT (115, 113), 6, 6
CIRCLE (115, 113), 8, 6
REM N
LINE (135, 100)-(155, 100)
LINE (155, 100)-(155, 125)
LINE (155, 125)-(150, 125)
LINE (150, 125)-(150, 105)
LINE (150, 105)-(140, 105)
LINE (140, 105)-(140, 125)
LINE (140, 125)-(135, 125)
LINE (135, 125)-(135, 100)
PAINT (145, 103), 6
REM G
LINE (160, 100)-(180, 100)
LINE (180, 100)-(180, 145)
LINE (180, 145)-(160, 145)
LINE (160, 145)-(160, 140)
LINE (160, 140)-(172, 140)
LINE (172, 140)-(172, 125)
LINE (172, 125)-(160, 125)
LINE (160, 125)-(160, 100)
LINE (165, 108)-(175, 118), 6, B
PAINT (178, 103), 6
REM CIRCLES
CIRCLE (190, 123), 5, 6
PAINT (190, 123), 6, 6
CIRCLE (200, 123), 5, 6
PAINT (200, 123), 6, 6
CIRCLE (210, 123), 5, 6
PAINT (210, 123), 6, 6
REM SMILEY
CIRCLE (265, 110), 30, 14
PAINT (265, 110), 14, 14
CIRCLE (255, 97), 5, 0
PAINT (255, 97), 0, 0
CIRCLE (275, 97), 5, 0
PAINT (275, 97), 0, 0
LINE (250, 125)-(255, 120), 0
LINE (255, 120)-(275, 120), 0
LINE (275, 120)-(280, 125), 0
SLEEP 3
CLS
W = W + 1
RETURN

ANSWERS:
SCREEN 12
PRINT "You got"; C; "answers correct."
PRINT "You got"; W; "answers wrong."
B = C / 10
P = B * 100
PRINT "Your percentage on this music quiz is"; P
SLEEP 4
CLS
GOTO MENU

SECONDPROGRAM:
SCREEN 0
COLOR 15, 5
SLEEP 3
CLS
INPUT "Can you please enter a number"; NUM1
INPUT "Can you please enter another number"; NUM2
T = NUM1 + NUM2
LOCATE 11, 23
PRINT "Your total for this session is"; T
SLEEP 2
CLS
INPUT "Can you please input your favorite musical artist"; MA$
SLEEP 2
CLS
FOR X = 1 TO 15
PRINT MA$
NEXT X
SLEEP 2
CLS
PRINT "Some of my favorite celebrities are..."
FOR Y = 1 TO 15
READ CELEB$
PRINT CELEB$
NEXT Y
RESTORE
DATA Backstreet Boys
DATA No Doubt
DATA Elijah Wood
DATA Orlando Bloom
DATA Sandra Bullock
DATA Dominic Monaghan
DATA Billy Boyd
DATA Julia Roberts
DATA Julia Stiles
DATA Drew Barrymore
DATA Brad Pitt
DATA Heath Ledger
DATA Jennifer Lopez
DATA Viggo Mortensen
DATA Britney Spears
SLEEP 7
CLS
FOR Z = 1 TO 5
INPUT "Can you please enter a number"; N(Z)
NEXT Z
SLEEP 2
CLS
FOR B = 1 TO 5
PRINT N(B)
NEXT B
SLEEP 2
CLS
INPUT "Can you please enter your name "; NAME$
SLEEP 2
CLS
PRINT "The first three letters of your name is "; LEFT$(NAME$, 3)
PRINT "The last two letters of your name is "; RIGHT$(NAME$, 2)
PRINT "The first two letters beginning with the third letter is "; MID$(NAME$, 3, 2)
SLEEP 2
CLS
INPUT "Can you please enter a word"; W$
PRINT "You have"; LEN(W$); "letters in your word."
SLEEP 2
CLS
INPUT "Can you please enter a decimal number"; DN
PRINT "The closest integer to the decimal number you typed in is"; INT(DN)
SLEEP 2
CLS
INPUT "Can you please enter a number"; NUMBER
PRINT "The square root of that number is"; SQR(NUMBER)
SLEEP 2
CLS
FOR D = 1 TO 5
INPUT "Can you please enter a name"; N$(D)
NEXT D
SLEEP 2
CLS
FOR F = 1 TO 5
PRINT N$(F)
NEXT F
SLEEP 2
CLS
FOR A = 1 TO 5
READ BSB$(A)
NEXT A
DATA Nick Carter
DATA AJ McLean
DATA Brian Littrell
DATA Kevin Richardson
DATA Howie Dorough
INPUT "Which Backstreet Boy are you looking for"; SN$
FOR B = 1 TO 5
IF SN$ = BSB$(B) THEN PRINT "I found that person."
NEXT B
SLEEP 2
CLS
S:
INPUT "How old are you"; AGEBV
IF AGEBV > 17 THEN GOSUB OLDER
IF AGEBV < 17 THEN GOSUB YOUNGER
IF AGEBV = 17 THEN GOSUB SAMEAGE
SLEEP 2
CLS
GOSUB MENU
OLDER:
PRINT "You are older than me!"
RETURN
YOUNGER:
PRINT "You are younger than me!"
RETURN
SAMEAGE:
PRINT "We are the same age!"
RETURN


THIRDPROGRAM:
SLEEP 2
CLS
SCREEN 0
COLOR 10, 0
LOCATE 11, 25
PRINT "Program done by Sabrina Sanchez."
LOCATE 12, 22
COLOR 12, 0
PRINT "I hope you enjoyed my final program."
LOCATE 13, 35
COLOR 11, 0
PRINT "Goodbye!"