REM 11/22/02
CLS
START:
LOCATE 11, 17
PRINT " MAKE SURE YOU HAVE THIS PROGRAM IN ALL CAPS!!!"
SLEEP 4
SCREEN 12
CLS
LOCATE 15, 15
PRINT " MENU"
LOCATE 16, 15
PRINT "------"
SLEEP 1
CIRCLE (280, 120), 10, 12
REM RIGHT ANNTENNA
LINE (280, 110)-(280, 100), 3
CIRCLE (280, 100), 2, 5
REM LEFT ANTENNAS
LINE (270, 120)-(260, 120), 3
CIRCLE (260, 120), 2, 5
REM LEFT WING OF THE BUTTERFLY
LINE (280, 130)-(250, 140), 13
LINE (250, 140)-(230, 120), 13
LINE (230, 120)-(240, 150), 13
LINE (240, 150)-(260, 170), 13
LINE (260, 170)-(270, 160), 13
LINE (270, 160)-(280, 180), 13
LINE (280, 180)-(300, 200), 13
LINE (300, 200)-(330, 210), 13
LINE (330, 210)-(330, 190), 13
LINE (330, 190)-(320, 180), 13
LINE (320, 180)-(320, 170), 13
LINE (320, 170)-(330, 170), 13
REM FINISHED WITH LEFT HALF WING
REM BEGINNING WITH RIGHT HALF WING
LINE (330, 170)-(330, 160), 13
LINE (330, 160)-(340, 160), 13
LINE (340, 160)-(350, 170), 13
LINE (350, 170)-(370, 170), 13
LINE (370, 170)-(360, 160), 13
LINE (360, 160)-(360, 140), 13
LINE (360, 140)-(340, 120), 13
LINE (340, 120)-(320, 120), 13
LINE (320, 120)-(330, 110), 13
LINE (330, 110)-(300, 80), 13
LINE (300, 80)-(280, 70), 13
LINE (280, 70)-(300, 90), 13
LINE (300, 90)-(300, 100), 13
LINE (300, 100)-(290, 120), 13
REM LONG BODY
LINE (280, 130)-(320, 170), 11
LINE (290, 120)-(330, 160), 11
REM LINES BETWEEN
LINE (290, 140)-(300, 130), 11
LINE (300, 150)-(310, 140), 11
LINE (310, 160)-(320, 150), 11
LINE (320, 170)-(330, 160), 11
REM LEFT WING INSIDE
LINE (260, 140)-(250, 150), 12
LINE (250, 150)-(270, 150), 12
REM NEXT
LINE (290, 170)-(300, 190), 12
LINE (300, 190)-(310, 170), 12
REM RIGHT WING
LINE (300, 120)-(310, 110), 12
LINE (310, 110)-(310, 120), 12
REM NEXT
LINE (330, 130)-(350, 150), 12
LINE (350, 150)-(330, 150), 12
REM LINES
LINE (330, 220)-(350, 240), 11
LINE (350, 240)-(360, 240), 11
LINE (360, 240)-(420, 290), 11
REM LINES NEXT
LINE (360, 190)-(380, 210), 13
LINE (380, 210)-(390, 210), 13
LINE (390, 210)-(420, 240), 13
REM LINES LAST
LINE (390, 160)-(420, 190), 11
LINE (420, 190)-(430, 190), 11
LINE (430, 190)-(480, 230), 11
REM SHADOWS
LINE (230, 120)-(230, 150), 11
LINE (230, 150)-(260, 180), 11
LINE (260, 180)-(270, 160), 11
LINE (270, 160)-(270, 180), 11
LINE (270, 180)-(300, 210), 11
LINE (300, 210)-(330, 210), 11
SLEEP 2
CLS
REM DHFGKDSHKHKDFHKGHDFKJGHGKSHDKDHKFHDGHKHDK
CIRCLE (270, 120), 10, 12
REM RIGHT ANNTENNA
LINE (270, 110)-(270, 100), 3
CIRCLE (270, 100), 2, 5
REM LEFT ANTENNAS
LINE (260, 120)-(250, 120), 3
CIRCLE (250, 120), 2, 5
REM LEFT WING OF THE BUTTERFLY
LINE (270, 130)-(240, 140), 13
LINE (240, 140)-(220, 120), 13
LINE (220, 120)-(230, 150), 13
LINE (230, 150)-(250, 170), 13
LINE (250, 170)-(260, 160), 13
LINE (260, 160)-(270, 180), 13
LINE (270, 180)-(290, 200), 13
LINE (290, 200)-(320, 210), 13
LINE (320, 210)-(320, 190), 13
LINE (320, 190)-(320, 180), 13
LINE (310, 180)-(310, 170), 13
LINE (310, 170)-(320, 170), 13
REM FINISHED WITH LEFT HALF WING
REM BEGINNING WITH RIGHT HALF WING
LINE (320, 170)-(320, 160), 13
LINE (320, 160)-(330, 160), 13
LINE (330, 160)-(340, 170), 13
LINE (340, 170)-(360, 170), 13
LINE (360, 170)-(350, 160), 13
LINE (350, 160)-(350, 140), 13
LINE (350, 140)-(330, 120), 13
LINE (330, 120)-(310, 120), 13
LINE (310, 120)-(320, 110), 13
LINE (320, 110)-(290, 80), 13
LINE (290, 80)-(270, 70), 13
LINE (270, 70)-(290, 90), 13
LINE (290, 90)-(290, 100), 13
LINE (290, 100)-(280, 120), 13
REM LONG BODY
LINE (270, 130)-(310, 170), 11
LINE (280, 120)-(320, 160), 11
REM LINES BETWEEN
LINE (280, 140)-(290, 130), 11
LINE (290, 150)-(300, 140), 11
LINE (300, 160)-(310, 150), 11
LINE (310, 170)-(320, 160), 11
REM LEFT WING INSIDE
LINE (250, 140)-(240, 150), 12
LINE (240, 150)-(260, 150), 12
REM NEXT
LINE (280, 170)-(290, 190), 12
LINE (290, 190)-(300, 170), 12
REM RIGHT WING
LINE (290, 120)-(300, 110), 12
LINE (300, 110)-(300, 120), 12
REM NEXT
LINE (320, 130)-(340, 150), 12
LINE (340, 150)-(320, 150), 12
REM LINES
LINE (320, 220)-(340, 240), 11
LINE (340, 240)-(350, 240), 11
LINE (350, 240)-(410, 290), 11
REM LINES NEXT
LINE (350, 190)-(370, 210), 13
LINE (370, 210)-(380, 210), 13
LINE (380, 210)-(410, 240), 13
REM LINES LAST
LINE (380, 160)-(410, 190), 11
LINE (410, 190)-(420, 190), 11
LINE (420, 190)-(470, 230), 11
REM SHADOWS
LINE (220, 120)-(220, 150), 11
LINE (220, 150)-(250, 180), 11
LINE (250, 180)-(260, 160), 11
LINE (260, 160)-(260, 180), 11
LINE (260, 180)-(290, 210), 11
LINE (290, 210)-(320, 210), 11
SLEEP 1
CLS
REM JHJHJHJHJHJHJHJHJHJHJHJHJJHJHJHJJHJJHJHJJHJHJJHJHJJHJHJJHJHJJHJJH
CIRCLE (280, 120), 10, 12
REM RIGHT ANNTENNA
LINE (280, 110)-(280, 100), 3
CIRCLE (280, 100), 2, 5
REM LEFT ANTENNAS
LINE (270, 120)-(260, 120), 3
CIRCLE (260, 120), 2, 5
REM LEFT WING OF THE BUTTERFLY
LINE (280, 130)-(250, 140), 13
LINE (250, 140)-(230, 120), 13
LINE (230, 120)-(240, 150), 13
LINE (240, 150)-(260, 170), 13
LINE (260, 170)-(270, 160), 13
LINE (270, 160)-(280, 180), 13
LINE (280, 180)-(300, 200), 13
LINE (300, 200)-(330, 210), 13
LINE (330, 210)-(330, 190), 13
LINE (330, 190)-(320, 180), 13
LINE (320, 180)-(320, 170), 13
LINE (320, 170)-(330, 170), 13
REM FINISHED WITH LEFT HALF WING
REM BEGINNING WITH RIGHT HALF WING
LINE (330, 170)-(330, 160), 13
LINE (330, 160)-(340, 160), 13
LINE (340, 160)-(350, 170), 13
LINE (350, 170)-(370, 170), 13
LINE (370, 170)-(360, 160), 13
LINE (360, 160)-(360, 140), 13
LINE (360, 140)-(340, 120), 13
LINE (340, 120)-(320, 120), 13
LINE (320, 120)-(330, 110), 13
LINE (330, 110)-(300, 80), 13
LINE (300, 80)-(280, 70), 13
LINE (280, 70)-(300, 90), 13
LINE (300, 90)-(300, 100), 13
LINE (300, 100)-(290, 120), 13
REM LONG BODY
LINE (280, 130)-(320, 170), 11
LINE (290, 120)-(330, 160), 11
REM LINES BETWEEN
LINE (290, 140)-(300, 130), 11
LINE (300, 150)-(310, 140), 11
LINE (310, 160)-(320, 150), 11
LINE (320, 170)-(330, 160), 11
REM LEFT WING INSIDE
LINE (260, 140)-(250, 150), 12
LINE (250, 150)-(270, 150), 12
REM NEXT
LINE (290, 170)-(300, 190), 12
LINE (300, 190)-(310, 170), 12
REM RIGHT WING
LINE (300, 120)-(310, 110), 12
LINE (310, 110)-(310, 120), 12
REM NEXT
LINE (330, 130)-(350, 150), 12
LINE (350, 150)-(330, 150), 12
REM LINES
LINE (330, 220)-(350, 240), 11
LINE (350, 240)-(360, 240), 11
LINE (360, 240)-(420, 290), 11
REM LINES NEXT
LINE (360, 190)-(380, 210), 13
LINE (380, 210)-(390, 210), 13
LINE (390, 210)-(420, 240), 13
REM LINES LAST
LINE (390, 160)-(420, 190), 11
LINE (420, 190)-(430, 190), 11
LINE (430, 190)-(480, 230), 11
REM SHADOWS
LINE (230, 120)-(230, 150), 11
LINE (230, 150)-(260, 180), 11
LINE (260, 180)-(270, 160), 11
LINE (270, 160)-(270, 180), 11
LINE (270, 180)-(300, 210), 11
LINE (300, 210)-(330, 210), 11
SLEEP 1
CLS

LOCATE 22, 7
PRINT " A. NEAT GRAPHICS"
LOCATE 23, 7
PRINT " B. PICTURE TESTS"
LOCATE 24, 7
PRINT " C. FACTS"
LOCATE 25, 7
PRINT " D. Quit"
LOCATE 26, 7
PRINT " E. MISC."
LOCATE 27, 7

REM UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
SCREEN 12
CIRCLE (280, 120), 10, 12
REM RIGHT ANNTENNA
LINE (280, 110)-(280, 100), 3
CIRCLE (280, 100), 2, 5
REM LEFT ANTENNAS
LINE (270, 120)-(260, 120), 3
CIRCLE (260, 120), 2, 5
REM LEFT WING OF THE BUTTERFLY
LINE (280, 130)-(250, 140), 13
LINE (250, 140)-(230, 120), 13
LINE (230, 120)-(240, 150), 13
LINE (240, 150)-(260, 170), 13
LINE (260, 170)-(270, 160), 13
LINE (270, 160)-(280, 180), 13
LINE (280, 180)-(300, 200), 13
LINE (300, 200)-(330, 210), 13
LINE (330, 210)-(330, 190), 13
LINE (330, 190)-(320, 180), 13
LINE (320, 180)-(320, 170), 13
LINE (320, 170)-(330, 170), 13
REM FINISHED WITH LEFT HALF WING
REM BEGINNING WITH RIGHT HALF WING
LINE (330, 170)-(330, 160), 13
LINE (330, 160)-(340, 160), 13
LINE (340, 160)-(350, 170), 13
LINE (350, 170)-(370, 170), 13
LINE (370, 170)-(360, 160), 13
LINE (360, 160)-(360, 140), 13
LINE (360, 140)-(340, 120), 13
LINE (340, 120)-(320, 120), 13
LINE (320, 120)-(330, 110), 13
LINE (330, 110)-(300, 80), 13
LINE (300, 80)-(280, 70), 13
LINE (280, 70)-(300, 90), 13
LINE (300, 90)-(300, 100), 13
LINE (300, 100)-(290, 120), 13
REM LONG BODY
LINE (280, 130)-(320, 170), 11
LINE (290, 120)-(330, 160), 11
REM LINES BETWEEN
LINE (290, 140)-(300, 130), 11
LINE (300, 150)-(310, 140), 11
LINE (310, 160)-(320, 150), 11
LINE (320, 170)-(330, 160), 11
REM LEFT WING INSIDE
LINE (260, 140)-(250, 150), 12
LINE (250, 150)-(270, 150), 12
REM NEXT
LINE (290, 170)-(300, 190), 12
LINE (300, 190)-(310, 170), 12
REM RIGHT WING
LINE (300, 120)-(310, 110), 12
LINE (310, 110)-(310, 120), 12
REM NEXT
LINE (330, 130)-(350, 150), 12
LINE (350, 150)-(330, 150), 12
REM LINES
LINE (330, 220)-(350, 240), 11
LINE (350, 240)-(360, 240), 11
LINE (360, 240)-(420, 290), 11
REM LINES NEXT
LINE (360, 190)-(380, 210), 13
LINE (380, 210)-(390, 210), 13
LINE (390, 210)-(420, 240), 13
REM LINES LAST
LINE (390, 160)-(420, 190), 11
LINE (420, 190)-(430, 190), 11
LINE (430, 190)-(480, 230), 11
REM SHADOWS
LINE (230, 120)-(230, 150), 11
LINE (230, 150)-(260, 180), 11
LINE (260, 180)-(270, 160), 11
LINE (270, 160)-(270, 180), 11
LINE (270, 180)-(300, 210), 11
LINE (300, 210)-(330, 210), 11
SLEEP 1
CLS
CIRCLE (280, 120), 10, 12
REM RIGHT ANNTENNA
LINE (280, 110)-(280, 100), 3
CIRCLE (280, 100), 2, 5
REM LEFT ANTENNAS
LINE (270, 120)-(260, 120), 3
CIRCLE (260, 120), 2, 5
REM LEFT WING OF THE BUTTERFLY
LINE (280, 130)-(250, 140), 13
LINE (250, 140)-(230, 120), 13
LINE (230, 120)-(240, 150), 13
LINE (240, 150)-(260, 170), 13
LINE (260, 170)-(270, 160), 13
LINE (270, 160)-(280, 180), 13
LINE (280, 180)-(300, 200), 13
LINE (300, 200)-(330, 210), 13
LINE (330, 210)-(330, 190), 13
LINE (330, 190)-(320, 180), 13
LINE (320, 180)-(320, 170), 13
LINE (320, 170)-(330, 170), 13
REM FINISHED WITH LEFT HALF WING
REM BEGINNING WITH RIGHT HALF WING
LINE (330, 170)-(330, 160), 13
LINE (330, 160)-(340, 160), 13
LINE (340, 160)-(350, 170), 13
LINE (350, 170)-(370, 170), 13
LINE (370, 170)-(360, 160), 13
LINE (360, 160)-(360, 140), 13
LINE (360, 140)-(340, 120), 13
LINE (340, 120)-(320, 120), 13
LINE (320, 120)-(330, 110), 13
LINE (330, 110)-(300, 80), 13
LINE (300, 80)-(280, 70), 13
LINE (280, 70)-(300, 90), 13
LINE (300, 90)-(300, 100), 13
LINE (300, 100)-(290, 120), 13
REM LONG BODY
LINE (280, 130)-(320, 170), 11
LINE (290, 120)-(330, 160), 11
REM LINES BETWEEN
LINE (290, 140)-(300, 130), 11
LINE (300, 150)-(310, 140), 11
LINE (310, 160)-(320, 150), 11
LINE (320, 170)-(330, 160), 11
REM LEFT WING INSIDE
LINE (260, 140)-(250, 150), 12
LINE (250, 150)-(270, 150), 12
REM NEXT
LINE (290, 170)-(300, 190), 12
LINE (300, 190)-(310, 170), 12
REM RIGHT WING
LINE (300, 120)-(310, 110), 12
LINE (310, 110)-(310, 120), 12
REM NEXT
LINE (330, 130)-(350, 150), 12
LINE (350, 150)-(330, 150), 12
REM LINES
LINE (330, 220)-(350, 240), 11
LINE (350, 240)-(360, 240), 11
LINE (360, 240)-(420, 290), 11
REM LINES NEXT
LINE (360, 190)-(380, 210), 13
LINE (380, 210)-(390, 210), 13
LINE (390, 210)-(420, 240), 13
REM LINES LAST
LINE (390, 160)-(420, 190), 11
LINE (420, 190)-(430, 190), 11
LINE (430, 190)-(480, 230), 11
REM SHADOWS
LINE (230, 120)-(230, 150), 11
LINE (230, 150)-(260, 180), 11
LINE (260, 180)-(270, 160), 11
LINE (270, 160)-(270, 180), 11
LINE (270, 180)-(300, 210), 11
LINE (300, 210)-(330, 210), 11
LOCATE 22, 7
PRINT " A. NEAT GRAPHICS"
LOCATE 23, 7
PRINT " B. PICTURE TESTS"
LOCATE 24, 7
PRINT " C. FACTS"
LOCATE 25, 7
PRINT " D. Quit"
LOCATE 26, 7
PRINT " E. MISC."
LOCATE 27, 7


INPUT " Which one do you want to see"; ANS$


IF ANS$ = "A" THEN GOSUB ONE
SLEEP 1
CLS
IF ANS$ = "B" THEN GOSUB TWO
SLEEP 1
CLS
IF ANS$ = "C" THEN GOSUB THREE
SLEEP 1
CLS
IF ANS$ = "D" THEN GOSUB FOUR
SLEEP 1
CLS
IF ANS$ = "E" THEN GOSUB FIVE
SLEEP 1
CLS
GOTO START
ONE:
CLS
PAINT (150, 100), 14
SLEEP 1
PAINT (150, 100), 3
SLEEP 1
PAINT (150, 100), 4
SLEEP 1
PAINT (150, 100), 5
SLEEP 1
CLS
SCREEN 7
CLS
CIRCLE (85, 115), 9, 15
LINE (85, 125)-(85, 135)
REM RIGHT ARM
LINE (85, 135)-(100, 125)
LINE (100, 125)-(105, 115)
REM LEFT ARM
LINE (85, 135)-(65, 150)
REM LOWER BODY
LINE (85, 135)-(85, 155)
REM LEFT LEG
LINE (85, 155)-(75, 175)
REM RIGHT LEG
LINE (85, 155)-(100, 145)
LINE (100, 145)-(110, 160)
SLEEP 1
REM jhgjhghjgjhgjhgjhgjhjhjhjgj
CLS
CIRCLE (90, 115), 9, 15
LINE (90, 125)-(90, 135)
LINE (90, 135)-(105, 125)
LINE (105, 125)-(110, 115)
LINE (90, 140)-(70, 150)
LINE (90, 135)-(90, 155)
LINE (90, 155)-(80, 175)
LINE (90, 155)-(105, 145)
LINE (105, 145)-(115, 160)
SLEEP 1
REM MOVEMENT
CLS
CIRCLE (90, 115), 9, 15
LINE (90, 125)-(90, 135)
LINE (90, 135)-(105, 130)
LINE (105, 130)-(115, 120)
LINE (90, 140)-(70, 150)
LINE (90, 135)-(90, 155)
LINE (90, 155)-(80, 175)
LINE (90, 155)-(105, 155)
LINE (105, 155)-(115, 165)
SLEEP 1
REM NEXT MOVEMENT
CLS
CIRCLE (95, 115), 9, 15
LINE (95, 125)-(95, 135)
LINE (95, 135)-(110, 130)
LINE (110, 130)-(120, 120)
LINE (95, 135)-(75, 150)
LINE (95, 135)-(95, 155)
LINE (95, 155)-(85, 175)
LINE (95, 155)-(110, 155)
LINE (110, 155)-(120, 165)
SLEEP 1
REM THIRD MOVE ARMS
CLS
CIRCLE (95, 115), 9, 15
LINE (95, 125)-(95, 135)
LINE (95, 135)-(110, 135)
LINE (110, 135)-(120, 130)
LINE (95, 135)-(75, 150)
LINE (95, 135)-(95, 155)
LINE (95, 155)-(85, 175)
LINE (95, 155)-(105, 160)
LINE (105, 160)-(115, 170)
SLEEP 1
REM FORTH MOVEMENT
CLS
CIRCLE (100, 115), 9, 15
LINE (100, 125)-(100, 135)
LINE (100, 135)-(110, 145)
LINE (110, 145)-(120, 140)
LINE (100, 135)-(80, 150)
LINE (100, 135)-(100, 155)
LINE (100, 155)-(90, 175)
LINE (100, 155)-(105, 165)
LINE (105, 165)-(110, 175)
SLEEP 1
REM HANDS AND LEG AGAIN
CLS
CIRCLE (105, 115), 9, 15
LINE (105, 125)-(105, 135)
LINE (105, 135)-(115, 145)
LINE (115, 145)-(125, 140)
LINE (105, 135)-(85, 150)
LINE (105, 135)-(105, 155)
LINE (105, 155)-(95, 175)
LINE (105, 155)-(110, 165)
LINE (110, 165)-(115, 175)
SLEEP 1
REM ANOTHER MOVEMENT
CLS
CIRCLE (110, 115), 9, 15
LINE (110, 125)-(110, 135)
LINE (110, 135)-(120, 145)
LINE (120, 145)-(130, 140)
LINE (110, 135)-(90, 150)
LINE (110, 135)-(110, 155)
LINE (110, 155)-(100, 175)
LINE (110, 155)-(115, 165)
LINE (115, 165)-(120, 175)
SLEEP 1
CLS
RETURN

TWO:
REM QUESTION 1
SCREEN 7
PRINT "A. LIPS"
PRINT "B. SMILE"
PRINT "C. HEAD"
PRINT "D. Im to dumb to know"
LINE (175, 110)-(165, 120), 4
LINE (165, 120)-(170, 125), 4
LINE (170, 125)-(200, 125), 4
LINE (200, 125)-(205, 120), 4
LINE (205, 120)-(195, 110), 4
LINE (195, 110)-(190, 110), 4
LINE (190, 110)-(185, 115), 4
LINE (185, 115)-(180, 110), 4
LINE (180, 110)-(175, 110), 4
LINE (165, 120)-(205, 120), 4
PRINT "                          "
INPUT " What is this called"; N$
IF N$ = "A" THEN GOSUB SMILE
IF N$ <> "A" THEN GOSUB DUMB
SLEEP 3

SMILE:
SCREEN 7
CLS
REM LEFT EYE
LINE (115, 75)-(110, 80), 14
LINE (110, 80)-(110, 95), 14
LINE (110, 95)-(115, 100), 14
LINE (115, 100)-(120, 95), 14
LINE (120, 95)-(120, 80), 14
LINE (120, 80)-(115, 75), 14
PAINT (115, 85), 14
REM RIGHT EYE
LINE (130, 75)-(125, 80), 14
LINE (125, 80)-(125, 95), 14
LINE (125, 95)-(130, 100), 14
LINE (130, 100)-(135, 95), 14
LINE (135, 95)-(135, 80), 14
LINE (135, 80)-(130, 75), 14
PAINT (130, 85), 14
REM SMILE SMILE
LINE (95, 100)-(95, 115), 14
LINE (95, 115)-(110, 125), 14
LINE (110, 125)-(140, 125), 14
LINE (140, 125)-(150, 100), 14
LINE (150, 100)-(150, 100), 14
PRINT "                                      "
PRINT " YOU GOT IT RIGHT....surprize,surprize"
SLEEP 3
CLS
GOTO QUESTIONTWO

DUMB:
SCREEN 7
CLS
LINE (115, 75)-(110, 80), 14
LINE (110, 80)-(110, 95), 14
LINE (110, 95)-(115, 100), 14
LINE (115, 100)-(120, 95), 14
LINE (120, 95)-(120, 80), 14
LINE (120, 80)-(115, 75), 14
PAINT (115, 85), 14
REM RIGHT EYE
LINE (130, 75)-(125, 80), 14
LINE (125, 80)-(125, 95), 14
LINE (125, 95)-(130, 100), 14
LINE (130, 100)-(135, 95), 14
LINE (135, 95)-(135, 80), 14
LINE (135, 80)-(130, 75), 14
PAINT (130, 85), 14
REM FROWN
LINE (105, 120)-(105, 115)
LINE (105, 115)-(110, 110)
LINE (110, 110)-(135, 110)
LINE (135, 110)-(140, 115)
LINE (140, 115)-(140, 120)
SLEEP 3
CLS
PRINT "                           "
PRINT " ok.... no"
SLEEP 3
CLS
PRINT " In case you were wondering it was A"
SLEEP 3
CLS
GOTO QUESTIONTWO

QUESTIONTWO:
CLS
SCREEN 7
PRINT " A. Toe"
PRINT " B. Toung"
PRINT " C. Nose"
PRINT " D. I still don't know"
LINE (170, 80)-(165, 105)
LINE (165, 105)-(155, 115)
LINE (155, 115)-(175, 115)
LINE (175, 115)-(180, 110)
LINE (180, 110)-(175, 105)
PRINT "                      "
INPUT " What is this called"; F$
IF F$ = "C" THEN GOSUB SMILEA
IF F$ <> "C" THEN GOSUB DUMBA
SLEEP 3
SMILEA:
SCREEN 7
CLS
REM LEFT EYE
LINE (115, 75)-(110, 80), 14
LINE (110, 80)-(110, 95), 14
LINE (110, 95)-(115, 100), 14
LINE (115, 100)-(120, 95), 14
LINE (120, 95)-(120, 80), 14
LINE (120, 80)-(115, 75), 14
PAINT (115, 85), 14
REM RIGHT EYE
LINE (130, 75)-(125, 80), 14
LINE (125, 80)-(125, 95), 14
LINE (125, 95)-(130, 100), 14
LINE (130, 100)-(135, 95), 14
LINE (135, 95)-(135, 80), 14
LINE (135, 80)-(130, 75), 14
PAINT (130, 85), 14
REM SMILE SMILE
LINE (95, 100)-(95, 115)
LINE (95, 115)-(110, 125)
LINE (110, 125)-(140, 125)
LINE (140, 125)-(150, 100)
LINE (150, 100)-(150, 100)
PRINT "                                      "
PRINT " YOU GOT IT RIGHT....surprize,surprize"
SLEEP 3
CLS
GOTO QUESTIONTHREE

DUMBA:
SCREEN 7
CLS
REM LEFT EYE
LINE (115, 75)-(110, 80), 14
LINE (110, 80)-(110, 95), 14
LINE (110, 95)-(115, 100), 14
LINE (115, 100)-(120, 95), 14
LINE (120, 95)-(120, 80), 14
LINE (120, 80)-(115, 75), 14
PAINT (115, 85), 14
REM RIGHT EYE
LINE (130, 75)-(125, 80), 14
LINE (125, 80)-(125, 95), 14
LINE (125, 95)-(130, 100), 14
LINE (130, 100)-(135, 95), 14
LINE (135, 95)-(135, 80), 14
LINE (135, 80)-(130, 75), 14
PAINT (130, 85), 14
REM FROWN
LINE (105, 120)-(105, 115)
LINE (105, 115)-(110, 110)
LINE (110, 110)-(135, 110)
LINE (135, 110)-(140, 115)
LINE (140, 115)-(140, 120)
SLEEP 3
CLS
PRINT "                           "
PRINT " ok.... no"
SLEEP 3
CLS
PRINT " In case you were wondering it was C"
SLEEP 3
CLS
GOTO QUESTIONTHREE

QUESTIONTHREE:
CLS
SCREEN 7
PRINT "A. NOSE"
PRINT "B. EAR"
PRINT "C.I still can't believe i don't know"
PRINT "D. Foot"
REM FOOT
LINE (155, 85)-(155, 145)
LINE (155, 145)-(165, 155)
LINE (165, 155)-(245, 155)
LINE (245, 155)-(250, 145)
LINE (250, 145)-(250, 135)
LINE (250, 135)-(245, 125)
LINE (245, 125)-(215, 125)
LINE (215, 125)-(205, 115)
LINE (205, 115)-(195, 100)
LINE (195, 100)-(190, 85)
LINE (190, 85)-(155, 85)
PRINT "                              "
INPUT "What Is this called "; H$
IF H$ = "D" THEN GOSUB SMILEB
IF H$ <> "D" THEN GOSUB DUMBB
SLEEP 3
SMILEB:
SCREEN 7
CLS
REM LEFT EYE
LINE (115, 75)-(110, 80), 14
LINE (110, 80)-(110, 95), 14
LINE (110, 95)-(115, 100), 14
LINE (115, 100)-(120, 95), 14
LINE (120, 95)-(120, 80), 14
LINE (120, 80)-(115, 75), 14
PAINT (115, 85), 14
REM RIGHT EYE
LINE (130, 75)-(125, 80), 14
LINE (125, 80)-(125, 95), 14
LINE (125, 95)-(130, 100), 14
LINE (130, 100)-(135, 95), 14
LINE (135, 95)-(135, 80), 14
LINE (135, 80)-(130, 75), 14
PAINT (130, 85), 14
REM SMILE SMILE
LINE (95, 100)-(95, 115)
LINE (95, 115)-(110, 125)
LINE (110, 125)-(140, 125)
LINE (140, 125)-(150, 100)
LINE (150, 100)-(150, 100)
PRINT "                                      "
PRINT " YOU GOT IT RIGHT....surprize,surprize"
SLEEP 3
CLS
GOTO QUESTIONFOUR
DUMBB:
SCREEN 7
CLS
REM LEFT EYE
LINE (115, 75)-(110, 80), 14
LINE (110, 80)-(110, 95), 14
LINE (110, 95)-(115, 100), 14
LINE (115, 100)-(120, 95), 14
LINE (120, 95)-(120, 80), 14
LINE (120, 80)-(115, 75), 14
PAINT (115, 85), 14
REM RIGHT EYE
LINE (130, 75)-(125, 80), 14
LINE (125, 80)-(125, 95), 14
LINE (125, 95)-(130, 100), 14
LINE (130, 100)-(135, 95), 14
LINE (135, 95)-(135, 80), 14
LINE (135, 80)-(130, 75), 14
PAINT (130, 85), 14
REM FROWN
LINE (105, 120)-(105, 115)
LINE (105, 115)-(110, 110)
LINE (110, 110)-(135, 110)
LINE (135, 110)-(140, 115)
LINE (140, 115)-(140, 120)
SLEEP 3
CLS
PRINT "                           "
PRINT " ok.... no"
SLEEP 3
CLS
PRINT " In case you were wondering it was D"
SLEEP 2
CLS
GOTO QUESTIONFOUR

QUESTIONFOUR:
CLS
CIRCLE (175, 115), 5
SCREEN 7
PRINT "A. HAND"
PRINT "B. FOOT"
PRINT "C. Head"
PRINT "D. EYE"
PRINT "                          "
INPUT " What is this called"; J$
IF J$ = "D" THEN GOSUB SMILEC
IF J$ <> "D" THEN GOSUB DUMBC
SLEEP 2
SMILEC:
SCREEN 7
CLS
REM LEFT EYE
LINE (115, 75)-(110, 80), 14
LINE (110, 80)-(110, 95), 14
LINE (110, 95)-(115, 100), 14
LINE (115, 100)-(120, 95), 14
LINE (120, 95)-(120, 80), 14
LINE (120, 80)-(115, 75), 14
PAINT (115, 85), 14
REM RIGHT EYE
LINE (130, 75)-(125, 80), 14
LINE (125, 80)-(125, 95), 14
LINE (125, 95)-(130, 100), 14
LINE (130, 100)-(135, 95), 14
LINE (135, 95)-(135, 80), 14
LINE (135, 80)-(130, 75), 14
PAINT (130, 85), 14
REM SMILE SMILE
LINE (95, 100)-(95, 115)
LINE (95, 115)-(110, 125)
LINE (110, 125)-(140, 125)
LINE (140, 125)-(150, 100)
LINE (150, 100)-(150, 100)
PRINT "                                      "
PRINT " YOU GOT IT RIGHT....surprize,surprize"
SLEEP 3
CLS
GOTO QUESTIONFIVE
DUMBC:
SCREEN 7
CLS
REM LEFT EYE
LINE (115, 75)-(110, 80), 14
LINE (110, 80)-(110, 95), 14
LINE (110, 95)-(115, 100), 14
LINE (115, 100)-(120, 95), 14
LINE (120, 95)-(120, 80), 14
LINE (120, 80)-(115, 75), 14
PAINT (115, 85), 14
REM RIGHT EYE
LINE (130, 75)-(125, 80), 14
LINE (125, 80)-(125, 95), 14
LINE (125, 95)-(130, 100), 14
LINE (130, 100)-(135, 95), 14
LINE (135, 95)-(135, 80), 14
LINE (135, 80)-(130, 75), 14
PAINT (130, 85), 14
REM FROWN
LINE (105, 120)-(105, 115)
LINE (105, 115)-(110, 110)
LINE (110, 110)-(135, 110)
LINE (135, 110)-(140, 115)
LINE (140, 115)-(140, 120)
SLEEP 3
CLS
PRINT "                           "
PRINT " ok.... nope"
SLEEP 3
CLS
PRINT " In case you were wondering it was D"
SLEEP 2
CLS
GOTO QUESTIONFIVE

QUESTIONFIVE:
CLS
INPUT "Do you want to repeat the program"; JJ$
IF JJ$ = "YES" THEN GOTO TWO
IF JJ$ = "NO" THEN GOTO START
RETURN

THREE:
SCREEN 0
PRINT " THESE ARE SOME INTERESTING FACTS"
CLS
LOCATE 11, 40
PRINT " DID YOU KNOW THAT IN MEXICO THEY SELL LOLIPOPS WITH WORMS INSIDE"
SLEEP 5
CLS
LOCATE 11, 40
PRINT " a FAMILY FROM NEW JERSEY NAMED THEIR CHILD WYTSGDHUEIFJDY AND GOT FINED 500$"
SLEEP 5
CLS
LOCATE 11, 40
PRINT " IN 1996 BALTIMORE HIT 257 HOME RUNS FOR THEIR SEASON PLAY"
SLEEP 5
CLS
LOCATE 11, 40
PRINT " THE EARTH IS ROUND"
SLEEP 5
CLS
LOCATE 11, 40
PRINT " WE ARE ALL HUMAN"
SLEEP 5
CLS
LOCATE 11, 40
PRINT " THE EARTH REVEOLVES AROUND THE SUN"
SLEEP 5
CLS
LOCATE 11, 40
PRINT " YOU LISTEN TO CD'S ON A CD PLAYER"
SLEEP 5
RETURN

FOUR:
INPUT " Do you want to repeat the program"; A$
IF A$ = "yes" THEN GOTO START
PRINT "GOODBYZE"
SLEEP 1
END

FIVE:
CLS
GOSUB GETNUMBER
SLEEP 2
CLS
GOSUB PRINTNUMBER
SLEEP 2
CLS
GOSUB PRINTSUM
END

GETNUMBER:
FOR X = 1 TO 5
INPUT " Please enter a NUMBER"; NUM(X)
NEXT X
RETURN

PRINTNUMBER:
FOR T = 1 TO 5
PRINT NUM(T)
NEXT T
RETURN

PRINTSUM:
FOR Y = 1 TO 5
M = M + NUM(Y)
NEXT Y
PRINT " Your total is....."; M
CLS
LOCATE 7, 37
PRINT " MENU"
LOCATE 8, 37
PRINT " ----"
SLEEP 2
STARTdfg:
LOCATE 12, 30
PRINT "A. Addition"
LOCATE 13, 29
PRINT " B. Subtraction"
LOCATE 14, 29
PRINT " C. Multiplication"
LOCATE 15, 29
PRINT " D. Quit"
LOCATE 10, 29
INPUT " Which one do you want"; ANS$
CLS
IF ANS$ = "A" THEN GOSUB ONEf
IF ANS$ = "B" THEN GOSUB TWOf
IF ANS$ = "C" THEN GOSUB THREEf
IF ANS$ = "D" THEN GOSUB FOURf
GOTO STARTdfg:

ONEf:
INPUT " Please enter a number "; N1
INPUT " Please enter another one"; n2
T = N1 + n2
PRINT " And your total is....."; T
SLEEP 1
CLS
RETURN

TWOf:
INPUT " Please choose a number"; N3
INPUT " One more"; N4
R = N3 - N4
PRINT " And your answer is...."; R
SLEEP 1
CLS
RETURN

THREEf:
INPUT " Please enter a number"; N5
INPUT " One more please"; N6
E = N5 * N6
PRINT " And your Sum is....."; E
SLEEP 1
CLS
RETURN

FOURf:
INPUT " Do you want to repeat the Program"; ANS1$
IF ANS1$ = "yes" THEN GOTO START:
SLEEP 1
CLS
PRINT "goodbyez"
CLS
FOR X = 1 TO 5
READ N1$, Y
PRINT N1$, Y
NEXT X
DATA Jennifer, 15
DATA Eileen, 15
DATA Nataley,18
DATA Stephanie, 18
DATA Sabrina,17
SLEEP 2
CLS
STARTt:
INPUT " How old are you"; A
IF A = 15 THEN PRINT "you are the same age as me"
IF A < 15 THEN PRINT " you are younger than me"
IF A > 15 THEN PRINT " you are older than me"
SLEEP 2
CLS
INPUT " Do you want to repeat the program"; A$
IF A$ = "yes" THEN GOTO STARTt
PRINT "goodbye"
CLS
INPUT " Would you please enter a word"; R$
INPUT " How many letters would you like to see"; Y
SLEEP 1
CLS
PRINT LEFT$(R$, Y)
SLEEP 1
CLS
INPUT " Please pick a number"; A1
INPUT "Another one please"; A2
INPUT " One more....."; A3
R = A1 + A2 + A3 + 496
PRINT R
PRINT " The square root is.."; SQR(R)
SLEEP 2
CLS
GOTO START