REM Tony Cabrera
Start:
CLS
     
REM Smile Face1
SCREEN 12
CIRCLE (50, 50), 25, 14
PAINT (50, 50), 14, 14
CIRCLE (40, 40), 2, 0
PAINT (40, 40), 0, 0
CIRCLE (60, 40), 2, 0
PAINT (60, 40), 0, 0
LOCATE 11, 30
LINE (40, 60)-(60, 60), 0
LINE (60, 60)-(65, 55), 0
LINE (35, 55)-(40, 60), 0

REM Smile Face2
CIRCLE (300, 50), 25, 14
PAINT (300, 50), 14, 14
CIRCLE (290, 40), 2, 0
PAINT (290, 40), 0, 0
CIRCLE (310, 40), 2, 0
PAINT (310, 40), 0, 0
LINE (285, 55)-(290, 60), 0
LINE (290, 60)-(310, 60), 0
LINE (310, 60)-(315, 55), 0

REM Smile Face3
CIRCLE (600, 50), 25, 14
PAINT (600, 50), 14, 14
CIRCLE (590, 40), 2, 0
PAINT (590, 40), 0, 0
CIRCLE (610, 40), 2, 0
PAINT (610, 40), 0, 0
LINE (585, 55)-(590, 60), 0
LINE (590, 60)-(610, 60), 0
LINE (610, 60)-(615, 55), 0

REM Welcome Screen
PRINT "Welcome To My Program"
LOCATE 12, 30
PRINT "----------------------"
LOCATE 13, 30
PRINT "1. Personality Quiz"
LOCATE 14, 30
PRINT "2. Other Stuff"
LOCATE 15, 30
PRINT "3. End Program"
LOCATE 17, 25
INPUT "Please choose one of the following"; n1$
IF n1$ = "1" THEN GOTO Personality
IF n1$ = "2" THEN GOTO Cool
IF n1$ = "3" THEN END

Personality:

CLS

REM Color Picture For Question 1
REM Square1
LINE (100, 200)-(200, 200), 1
LINE (200, 200)-(200, 300), 1
LINE (200, 300)-(100, 300), 1
LINE (100, 300)-(100, 200), 1
PAINT (150, 250), 1

REM Square2
LINE (250, 200)-(350, 200), 4
LINE (350, 200)-(350, 300), 4
LINE (350, 300)-(250, 300), 4
LINE (250, 300)-(250, 200), 4
PAINT (300, 250), 4

REM Square3
LINE (400, 200)-(500, 200), 2
LINE (500, 200)-(500, 300), 2
LINE (500, 300)-(400, 300), 2
LINE (400, 300)-(400, 200), 2
PAINT (450, 250), 2

REM Question Number1
PRINT "What is your favorite color:"
FOR Q1 = 1 TO 4
READ L$, color$
PRINT L$, color$
DATA A.,Red
DATA B.,Blue
DATA C.,Orange
DATA D.,Green
NEXT Q1

INPUT "Please enter the letter of your favorite color now"; c1$
IF c1$ = " A" THEN GOSUB A
IF c1$ = " B" THEN GOSUB B
IF c1$ = " C" THEN GOSUB C
IF c1$ = " D" THEN GOSUB D
SLEEP 2
CLS
REM Island Picture
REM Palm
LINE (250, 250)-(240, 240), 2
LINE (240, 240)-(230, 250), 2
LINE (230, 250)-(200, 260), 2
LINE (200, 260)-(220, 240), 2
LINE (220, 240)-(240, 230), 2
LINE (240, 230)-(220, 230), 2
LINE (220, 230)-(200, 240), 2
LINE (200, 240)-(170, 260), 2
LINE (170, 260)-(190, 230), 2
LINE (190, 230)-(230, 210), 2
LINE (230, 210)-(210, 190), 2
LINE (210, 190)-(190, 200), 2
LINE (190, 200)-(170, 210), 2
LINE (170, 210)-(210, 180), 2
LINE (210, 180)-(240, 200), 2
LINE (240, 200)-(220, 170), 2
LINE (220, 170)-(210, 170), 2
LINE (210, 170)-(220, 160), 2
LINE (220, 160)-(260, 200), 2
LINE (260, 200)-(260, 170), 2
LINE (260, 170)-(280, 150), 2
LINE (280, 150)-(280, 160), 2
LINE (280, 160)-(270, 170), 2
LINE (270, 170)-(270, 200), 2
LINE (270, 200)-(310, 160), 2
LINE (310, 160)-(320, 170), 2
LINE (320, 170)-(310, 170), 2
LINE (310, 170)-(290, 200), 2
LINE (290, 200)-(330, 180), 2
LINE (330, 180)-(370, 210), 2
LINE (370, 210)-(330, 200), 2
LINE (330, 200)-(300, 210), 2
LINE (300, 210)-(330, 220), 2
LINE (330, 220)-(370, 260), 2
LINE (350, 260)-(310, 240), 2
LINE (310, 240)-(300, 230), 2
LINE (300, 230)-(280, 230), 2
LINE (280, 230)-(310, 250), 2
LINE (310, 250)-(310, 260), 2
LINE (310, 260)-(300, 250), 2
LINE (300, 250)-(280, 240), 2
LINE (280, 240)-(270, 250), 2
LINE (270, 250)-(250, 250), 2
LINE (350, 260)-(370, 260), 2
PAINT (260, 220), 2
REM Tree Trunk
LINE (240, 240)-(240, 350), 6
LINE (280, 240)-(280, 350), 6
LINE (280, 350)-(290, 370), 6
LINE (240, 352)-(230, 370), 6
LINE (230, 370)-(290, 370), 6

REM Lines in Trunk
LINE (240, 270)-(250, 260), 6
LINE (250, 260)-(260, 270), 6
LINE (260, 270)-(270, 260), 6
LINE (270, 260)-(280, 270), 6

LINE (240, 300)-(250, 290), 6
LINE (250, 290)-(260, 300), 6
LINE (260, 300)-(270, 290), 6
LINE (270, 290)-(280, 300), 6
                            
LINE (240, 330)-(250, 320), 6
LINE (250, 320)-(260, 330), 6
LINE (260, 330)-(270, 320), 6
LINE (270, 320)-(280, 330), 6

LINE (240, 350)-(250, 340), 6
LINE (250, 340)-(260, 350), 6
LINE (260, 350)-(270, 340), 6
LINE (270, 340)-(280, 350), 6

REM Question Number2
PRINT "What is your favorite vacation spot:"
FOR Q2 = 1 TO 4
READ l2$, Place$
PRINT l2$, Place$
DATA A., Hawaii
DATA B., Austrailia
DATA C., Cancun
DATA D., Key West
NEXT Q2
INPUT "Please select one of the following vacation spots"; C2$
IF C2$ = " A" THEN GOSUB A
IF C2$ = " B" THEN GOSUB B
IF C2$ = " C" THEN GOSUB C
IF C2$ = " D" THEN GOSUB D

SLEEP 2
CLS
SCREEN 12
         
REM Picture1
SCREEN 12
       
REM Baseball
CIRCLE (100, 330), 39, 4
LINE (85, 295)-(90, 300), 4
LINE (90, 300)-(90, 360), 4
LINE (90, 360)-(80, 365), 4
LINE (85, 310)-(95, 300), 4
LINE (85, 320)-(95, 310), 4
LINE (85, 330)-(95, 320), 4
LINE (85, 340)-(95, 330), 4
LINE (85, 350)-(95, 340), 4
LINE (85, 360)-(95, 350), 4
LINE (115, 295)-(110, 300), 4
LINE (110, 300)-(110, 360), 4
LINE (115, 365)-(110, 360), 4
LINE (105, 300)-(115, 310), 4
LINE (105, 310)-(115, 320), 4
LINE (105, 320)-(115, 330), 4
LINE (105, 330)-(115, 340), 4
LINE (105, 340)-(115, 350), 4
LINE (105, 350)-(115, 360), 4
PAINT (70, 330), 15, 4
PAINT (130, 320), 15, 4
PAINT (100, 320), 15, 4

REM Football
LINE (210, 330)-(240, 310), 15
LINE (240, 310)-(310, 310), 15
LINE (310, 310)-(350, 330), 15
LINE (350, 330)-(310, 350), 15
LINE (310, 350)-(240, 350), 15
LINE (240, 350)-(210, 330), 15
LINE (240, 330)-(240, 310), 15
LINE (240, 340)-(240, 320), 15
LINE (250, 340)-(250, 320), 15
LINE (260, 340)-(260, 320), 15
LINE (270, 340)-(270, 320), 15
LINE (280, 340)-(280, 320), 15
LINE (290, 340)-(290, 320), 15
LINE (300, 340)-(300, 320), 15
LINE (240, 330)-(310, 330), 15


REM Question Number3
PRINT "What is your favorite sport:"
FOR Q3 = 1 TO 4
READ L3$, Sport$
PRINT L3$, Sport$
DATA A., Tennis
DATA B., Football
DATA C., Basketball
DATA D., Baseball
NEXT Q3
INPUT "Please enter one of your favorite sports"; C3$
IF C3$ = "A" THEN GOSUB A
IF C3$ = "B" THEN GOSUB B
IF C3$ = "C" THEN GOSUB C
IF C3$ = "D" THEN GOSUB D

SLEEP 2
CLS

REM Question Number4
PRINT "What is your favorite pet:"
FOR Q4 = 1 TO 4
READ L3$, pet$
PRINT L3$, pet$
DATA A., Dog
DATA B., Cat
DATA C., Fish
DATA D., Rat
NEXT Q4
INPUT "Please enter your favorite type of pet now"; C4$
IF C4$ = "A" THEN GOSUB A
IF C4$ = "B" THEN GOSUB B
IF C4$ = "C" THEN GOSUB C
IF C4$ = "D" THEN GOSUB D

SLEEP 2
CLS

REM Question Number 5
PRINT "What is your favorite type of car:"
FOR Q5 = 1 TO 4
READ L4$, Car$
PRINT L4$, Car$
DATA A., Ford
DATA B., Pontiac
DATA C., Mercedes
DATA D., Lexus
NEXT Q5
INPUT "Please enter your favorite type of car"; c5$
IF c5$ = "A" THEN GOSUB A
IF c5$ = "B" THEN GOSUB B
IF c5$ = "C" THEN GOSUB C
IF c5$ = "D" THEN GOSUB D

SLEEP 2
CLS

REM Question Number 6
PRINT "Where do you see yourself in 5 years:"
FOR Q6 = 1 TO 4
READ l5$, Year$
PRINT l5$, Year$
DATA A., College
DATA B., Married
DATA C., Working
DATA D., Homeless
NEXT Q6
INPUT "Please enter where you think you will be in 5 years"; c6$
IF c6$ = "A" THEN GOSUB A
IF c6$ = "B" THEN GOSUB B
IF c6$ = "C" THEN GOSUB C
IF c6$ = "D" THEN GOSUB D

SLEEP 2
CLS

REM Question Number 7
PRINT "Whats your favorite type of music:"
FOR Q7 = 1 TO 4
READ L6$, Music$
PRINT L6$, Music$
DATA A., Rock
DATA B., Hip-hop
DATA C., Rap
DATA D., Country
NEXT Q7
INPUT "Please enter your favorite type of music"; C7$
IF C7$ = "A" THEN GOSUB A
IF C7$ = "B" THEN GOSUB B
IF C7$ = "C" THEN GOSUB C
IF C7$ = "D" THEN GOSUB D

SLEEP 2
CLS

REM Question Number 8
PRINT "What is your favorite food:"
FOR Q8 = 1 TO 4
READ L7$, Food$
PRINT L7$, Food$
DATA A., Italian
DATA B., Chinese
DATA C., American/Fast
DATA D., French
NEXT Q8
INPUT "Please enter your favorite type of food"; c8$
IF c8$ = "A" THEN GOSUB A
IF c8$ = "B" THEN GOSUB B
IF c8$ = "C" THEN GOSUB C
IF c8$ = "D" THEN GOSUB D

SLEEP 2
CLS

REM Question Number 9
PRINT "What is your favorite flower:"
FOR Q9 = 1 TO 4
READ L8$, Flower$
PRINT L8$, Flower$
DATA A., Rose
DATA B., Tulip
DATA C., Daffodil
DATA D., Daisy
NEXT Q9
INPUT "Please select your favorite flower"; C9$
IF C9$ = "A" THEN GOSUB A
IF C9$ = "B" THEN GOSUB B
IF C9$ = "C" THEN GOSUB C
IF C9$ = "D" THEN GOSUB D

SLEEP 2
CLS

REM Question Number 10
PRINT "What is your favorite season:"
FOR Q10 = 1 TO 4
READ L9$, Season$
PRINT L9$, Season$
DATA A., Spring
DATA B., Summer
DATA C., Fall
DATA D., Winter
NEXT Q10
INPUT "Please enter your favorite season now"; C10$
IF C10$ = "A" THEN GOSUB A
IF C10$ = "B" THEN GOSUB B
IF C10$ = "C" THEN GOSUB C
IF C10$ = "D" THEN GOSUB D
RESTORE

SLEEP 2
CLS


REM Counter For Results
SCREEN 7
COLOR 15, 0
LOCATE 11, 40
PRINT "Now Calculating Results....."
LINE (12, 40)-(100, 40)
LINE (100, 40)-(100, 50)
LINE (100, 50)-(12, 50)
LINE (12, 50)-(12, 40)
LINE (11, 40)-(25, 50), 15, BF
SLEEP 1
LINE (25, 40)-(30, 50), 15, BF
SLEEP 1
LINE (30, 40)-(45, 50), 15, BF
SLEEP 1
LINE (45, 40)-(55, 50), 15, BF
SLEEP 1
LINE (55, 40)-(65, 50), 15, BF
SLEEP 1
LINE (65, 40)-(75, 50), 15, BF
SLEEP 1
LINE (75, 40)-(85, 50), 15, BF
SLEEP 1
LINE (85, 40)-(95, 50), 15, BF
SLEEP 1
LINE (95, 40)-(100, 50), 15, BF
SLEEP 3
CLS
GOTO An1
A:
A = A + 1
RETURN
B:
B = B + 1
RETURN
C:
C = C + 1
RETURN
D:
D = D + 1
RETURN
SCREEN 12
An1:
PRINT "You have this many A's"
PRINT A
SLEEP 2
PRINT "You have this many B's"
PRINT B
SLEEP 2
PRINT "You have this many C's"
PRINT C
SLEEP 2
PRINT "You have this many D's"
PRINT D
SLEEP 4
CLS
SCREEN 12
PRINT "Now this is what you are"
PRINT "If you've chose more A's then you are ROMANTIC, and very SINCERE."
SLEEP 1
PRINT "If you've chose more B's then you are FUN and SPONTANEOUS."
SLEEP 1
PRINT "If you've chose more C's then you COOL, and UNIQUE."
SLEEP 1
PRINT "If you've chose more D's then you are FRIENDLY, and JOYFUL"
SLEEP 6
GOTO Start

Cool:
CLS
INPUT "Please enter your name"; x1$
PRINT "This is the last 3 letters of your name"
PRINT RIGHT$(x1$, 3)
PRINT "This is the first 2 letters of your name"
PRINT LEFT$(x1$, 2)
PRINT "These are the second and third letters in your name"
PRINT MID$(x1$, 2, 2)
PRINT "This is how many charcters are in your name"
PRINT LEN(x1$)
SLEEP 8
CLS
INPUT "Please enter a number", n
 W = n * 2
PRINT "This is your number multiplied by 2"
PRINT W
SLEEP 1
 w1 = n + 10
PRINT "This is your number plus 10"
PRINT w1
SLEEP 1
W2 = n - 5
PRINT "This is your number subtracted by 5"
PRINT W2
SLEEP 1
W3 = n / 2
PRINT "This is your number divided by 2"
PRINT W3
SLEEP 1
W4 = SQR(n)
PRINT "This is the square root of your number"
PRINT W4
SLEEP 7
CLS
INPUT "Please enter the month you were born in"; m1$
IF m1$ <> "OCTOBER" THEN GOSUB Neither
IF m1$ = "OCTOBER" THEN GOSUB Same
Same:
PRINT "You were born in the same month I was."
Neither:
PRINT "You are born in a different month then I was."
SLEEP 2
CLS
GOTO Start