DECLARE SUB FINALE ()
DECLARE SUB WELCOME ()
DECLARE SUB FADINGCREATED ()
DECLARE SUB FADINGASSOCIATION ()
DECLARE SUB PRESENTS ()
DECLARE SUB REPLYA ()
DECLARE SUB GAME ()
DECLARE SUB QUIZ ()
DECLARE SUB FOOD ()
DECLARE SUB JOE ()
DECLARE SUB FLASHBOX ()

REM Czencz, Danielle & Tran, Vi

REM Programming 1
REM Period 2
REM November 12th, 2002
REM Final Program
CLS

CALL FADINGCREATED
CALL FLASHBOX
CALL FADINGASSOCIATION
CALL FLASHBOX
CALL PRESENTS
CLS
CALL JOE
CALL FOOD
SLEEP 7
CLS
CALL WELCOME
REM EXTRA DATA
SLEEP 7
CLS
SCREEN 7
PRINT "USE RESTORE WHEN YOU NEED TO USE"
PRINT "A GROUP OF DATA MORE THEN ONCE."
SLEEP 4
PRINT "CREDITS:"
FOR INFO = 1 TO 5
READ WORD$
PRINT WORD$
NEXT INFO
RESTORE
DATA DANIELLE, VI, JOE, JOE BOB, BOZO
SLEEP 5
CLS
SCREEN 13
FOR K = 1 TO 1000
IF K = 100 THEN GOTO FIN
COLOR K
PRINT "THE END"; " THE END"; " THE END"; " THE END"; " THE END"
FOR HOLD = 1 TO 500
NEXT HOLD
NEXT K
FIN:
CLS

SUB FADINGASSOCIATION

FOR Y1 = 16 TO 31 STEP 1
COLOR Y1
LOCATE 10, 15
PRINT "IN ASSOCIATION WITH:"
LOCATE 12, 20
PRINT "QBASIC PICTURES"

FOR HOLD = 1 TO 1000
NEXT HOLD
NEXT Y1
SLEEP 1

FOR Y1 = 31 TO 16 STEP -1
COLOR Y1
LOCATE 10, 15
PRINT "IN ASSOCIATION WITH:"
LOCATE 12, 20
PRINT "QBASIC PICTURES"
FOR HOLD = 1 TO 1000
NEXT HOLD
NEXT Y1

END SUB

SUB FADINGCREATED
SCREEN 13
FOR X1 = 16 TO 31 STEP 1
COLOR X1
LOCATE 10, 15
PRINT "CREATED BY:"
LOCATE 12, 20
PRINT "DANIELLE AND VI"

FOR HOLD = 1 TO 1000
NEXT HOLD
NEXT X1
SLEEP 1

FOR X1 = 31 TO 16 STEP -1
COLOR X1
LOCATE 10, 15
PRINT "CREATED BY:"
LOCATE 12, 20
PRINT "DANIELLE AND VI"
FOR HOLD = 1 TO 1000
NEXT HOLD
NEXT X1

END SUB

SUB FINALE
SCREEN 13
FOR X1 = 16 TO 50 STEP 1
COLOR X1
LOCATE 7, 2
PRINT "YOU THOUGHT YOU WERE DONE, DIDN'T YOU?"
LOCATE 9, 14
PRINT "WELL, YOU'RE NOT."

FOR HOLD = 1 TO 1500
NEXT HOLD
NEXT X1
SLEEP 1

FOR X1 = 50 TO 16 STEP -1
COLOR X1
LOCATE 7, 2
PRINT "YOU THOUGHT YOU WERE DONE, DIDN'T YOU?"
'SLEEP 2
LOCATE 9, 14
PRINT "WELL, YOU'RE NOT."
FOR HOLD = 1 TO 1500
NEXT HOLD
NEXT X1

FOR Y1 = 16 TO 50 STEP 1
COLOR Y1
LOCATE 7, 4
PRINT "THIS IS WHAT HAPPENS AFTERWARDS..."
LOCATE 9, 12
PRINT "ARE YOU PREPARED?"

FOR HOLD = 1 TO 1500
NEXT HOLD
NEXT Y1
SLEEP 1

FOR Y1 = 50 TO 16 STEP -1
COLOR Y1
LOCATE 7, 4
PRINT "THIS IS WHAT HAPPENS AFTERWARDS..."
LOCATE 9, 12
PRINT "ARE YOU PREPARED?"
FOR HOLD = 1 TO 1500

NEXT HOLD
NEXT Y1

CLS
SCREEN 7
REM OPENING
PRINT "Since Joe and Joe Bob died,"
SLEEP 2
PRINT "Joe's Momma became very upset!"
SLEEP 3
PRINT "But she decided that the best thing"
SLEEP 2
PRINT "she could do is avenge their deaths!"
SLEEP 3
CLS
PRINT "So in other words Joe's Momma,"
SLEEP 2
PRINT "is coming after you!"
SLEEP 3
CLS
LOCATE 5, 7
PRINT "HA..HAHA..HAHA..HAHA..HAHA!!!"
SLEEP 3
REM JOE'S MAMA'S FACE
 CIRCLE (160, 130), 70, 14
 PAINT (160, 130), 14, 14
REM JOE'S MAMA'S HAIR
 LINE (60, 120)-(100, 150), 7, BF
 LINE (220, 120)-(260, 150), 7, BF
 CIRCLE (100, 110), 22, 7
 PAINT (100, 110), 7, 7
 CIRCLE (220, 110), 22, 7
 PAINT (220, 110), 7, 7
 CIRCLE (160, 65), 25, 7
 PAINT (160, 65), 7, 7
 CIRCLE (160, 80), 20, 6
 PAINT (160, 80), 6, 6
 CIRCLE (134, 90), 27, 7
 PAINT (134, 90), 7, 7
 CIRCLE (186, 90), 27, 7
 PAINT (186, 90), 7, 7
REM JOE'S MAMA'S EYES
 CIRCLE (135, 135), 25, 8
 CIRCLE (185, 135), 25, 8
 CIRCLE (135, 135), 10, 8
 PAINT (135, 135), 15, 8
 CIRCLE (185, 135), 10, 8
 PAINT (185, 135), 15, 8
 CIRCLE (135, 135), 5, 11
 PAINT (135, 135), 11, 11
 CIRCLE (185, 135), 5, 11
 PAINT (185, 135), 11, 11
REM JOE'S MAMA'S NOSE
 CIRCLE (160, 150), 10, 8
REM JOE'S MAMA'S MOUTH
 CIRCLE (180, 170), 10, 15
 PAINT (180, 170), 15, 15
 LINE (185, 164)-(170, 170), 14
 LINE (185, 160)-(170, 165), 14
 LINE (185, 164)-(185, 160), 14
 LINE (170, 170)-(170, 165), 14
 PAINT (175, 165), 14, 14
REM JOE'S MAMA'S EVIL
 SLEEP 3
 CIRCLE (135, 135), 5, 4
 PAINT (135, 135), 4, 4
 CIRCLE (185, 135), 5, 4
 PAINT (185, 135), 4, 4
 LINE (130, 120)-(145, 125), 8
 LINE (190, 120)-(175, 125), 8

SLEEP 4
CLS
PRINT "In order to save yourself from"
PRINT "the wrath of the beast, you must"
PRINT "learn a few important facts."
SLEEP 5
CLS
PRINT "These are the questions you"
PRINT "must answer in order to survive:"
SLEEP 2
PRINT "What is 2 times 42?"
SLEEP 4
PRINT "What is 42- 2?"
SLEEP 4
PRINT "What function locates and prints letters in a name?"
SLEEP 4
PRINT "AND...What is your name?"
SLEEP 6
CLS
PRINT "Good luck!"
PRINT "It's time to do some research."
SLEEP 3
CLS
REM MAIN MENU FOR MISC
MENU:
CLS
LOCATE 1, 10
PRINT "What subject would you like to go to?"
LOCATE 3, 10
PRINT "* MATH "
LOCATE 5, 10
PRINT "* COMPUTERS "
LOCATE 7, 10
PRINT " * ANSWER to live"
LOCATE 9, 10
PRINT " * QUIT"
LOCATE 11, 6
INPUT ANS$
IF ANS$ = "MATH" THEN GOTO MATH:
IF ANS$ = "COMPUTERS" THEN GOTO COMP:
IF ANS$ = "ANSWER" THEN GOTO LIVE:
IF ANS$ = "QUIT" THEN GOTO END6:
MATH:
CLS
begin:
CLS
REM MENU FOR MATH
PRINT "What would you like to do first?"
PRINT "* SUBTRACT"
PRINT "* MULTIPLY"
PRINT "* DIVIDE"
PRINT "* main MENU"
PRINT "* END"
INPUT " "; MTH$
SLEEP 1
IF MTH$ = "SUBTRACT" THEN GOTO SUBTRACT:
IF MTH$ = "MULTIPLY" THEN GOTO MULTIPLY:
IF MTH$ = "DIVIDE" THEN GOTO DIVIDE:
IF MTH$ = "MENU" THEN GOTO MENU:
IF MTH$ = "END" THEN GOTO END6:
SUBTRACT:
CLS
INPUT "PLEASE ENTER A NUMBER"; SB
INPUT "PLEASE ENTER ANOTHER NUMBER"; SB1
TOTA = SB - SB1
PRINT "THE TOTAL IS "; TOTA
SLEEP 3
GOTO begin:
MULTIPLY:
CLS
INPUT "PLEASE ENTER A NUMBER"; MT
INPUT "PLEASE ENTER ANOTHER NUMBER"; MT1
TOTAL11 = MT * MT1
PRINT "THE PRODUCT IS "; TOTAL11
SLEEP 3
GOTO begin:
DIVIDE:
CLS
PRINT "PLEASE ENTER A NUMBER"
INPUT ""; DD1
INPUT "PLEASE ENTER ANOTHER NUMBER"; DD2
TOTAL12 = DD1 / DD2
PRINT "THE QUOTIENT IS"; TOTAL12
SLEEP 2
GOTO begin:
COMP:
CLS
REM MENU FOR COMPUTER
MN:
CLS
PRINT "WHAT WOULD YOU LIKE TO LEARN?"
PRINT "* MID STRING"
PRINT "* ARRAY OF NUMBERS"
PRINT "* what is a COMPUTER"
PRINT "* main MENU"
PRINT "* END final"
INPUT " "; CP$
IF CP$ = "MID STRING" THEN GOTO MIDST:
IF CP$ = "ARRAY OF NUMBERS" THEN GOTO AON:
IF CP$ = "COMPUTER" THEN GOTO CP:
IF CP$ = "MENU" THEN GOTO MENU:
IF CP$ = "END" THEN GOTO END6:
MIDST:
CLS
PRINT "MID STRING IS A COMPUTER"
PRINT "PROGRAMMING FUNCTION"
PRINT "WHICH ALLOWS YOU TO 'PULL'"
PRINT "A CERTAIN CHARACTER"
PRINT "OR LETTER OUT OF A WORD"
SLEEP 3
INPUT "WOULD YOU LIKE TO SEE AN EXAMPLE(YES/NO)"; MI$
IF MI$ = "YES" THEN GOTO EXAMM:
IF MI$ = "NO" THEN GOTO MN:
EXAMM:
CLS
INPUT "WHAT IS YOUR NAME"; NAME1$
PRINT "THE THIRD LETTER OF YOUR NAME IS "; MID$(NAME1$, 3, 1)
SLEEP 4
CLS
INPUT "WOULD YOU LIKE TO LEARN MORE"; LN$
IF LN$ = "YES" THEN GOTO MORE:
IF LN$ = "NO" THEN GOTO MN:
CLS
MORE:
CLS
PRINT "THE FUNCTION THAT GIVES"
PRINT "YOU THE NUMBER OF CHARACTERS"
PRINT "IN A WORD IS THE LEN FUNCTION"
INPUT "WOULD YOU LIKE TO SEE AN EXAMPLE"; ANSW2$
IF ANSW2$ = "YES" THEN GOTO LEEX:
IF ANSW2$ = "NO" THEN GOTO MN:
CLS
LEEX:
CLS
INPUT "WHAT IS YOUR BEST FRIENDS NAME"; BFFN$
PRINT "THERE ARE "; LEN(BFFN$); "LETTERS"
SLEEP 3
CLS
INPUT "WOULD YOU LIKE TO LEARN MORE"; AAN$
IF AAN$ = "YES" THEN GOTO INTD:
IF AAN$ = "NO" THEN GOTO MN:
CLS
INTD:
CLS
PRINT "THE FUNCTION WHICH GIVES YOU"
PRINT "THE INTEGER OF A NUMBER IS THE"
PRINT "INT FUNTION"
SLEEP 4
INPUT "WOULD YOU LIKE TO SEE AN EXAMPLE"; EA$
IF EA$ = "YES" THEN GOTO INTEX:
IF EA$ = "NO" THEN GOTO MN:
CLS
INTEX:
CLS
PRINT "PLEASE ENTER A NUMBER PRINT WITH A DECIMAL."
INPUT " "; NMD1
PRINT " THE INTEGER IS "; INT(NMD1)
SLEEP 4
CLS
INPUT "WOULD YOU LIKE TO LEARN MORE"; LM$
IF LM$ = "YES" THEN GOTO SQRD:
IF LM$ = "NO" THEN GOTO MN:
CLS
SQRD:
CLS
PRINT "THE FUNCTION WHICH GIVES YOU THE"
PRINT "SQUARE ROOT OF A NUMBER IS THE"
PRINT "SQR FUNCTION"
INPUT "WOULD YOU LIKE TO SEE AN EXAMPLE"; SEA$
IF SEA$ = "YES" THEN GOTO SQREX:
IF SEA$ = "NO" THEN GOTO MN:
SQREX:
CLS
INPUT "PLEASE ENTER A NUMBER"; NUM34
PRINT SQR(NUM34)
SLEEP 3
CLS
PRINT "THATS ALL FOR THE MID STRING SECTION"
PRINT "YOU WILL NOW RETURN TO THE MENU"
SLEEP 6
CLS
GOTO MN:
AON:
CLS
PRINT "AN ARRAY IS A WAY TO TEMPORAILY"
PRINT " STORE INFORMATION"
SLEEP 3
INPUT "WOULD YOU LIKE TO SEE AN EXAMPLE"; EXA$
IF EXA$ = "YES" THEN GOTO EXA:
IF EXA$ = "NO" THEN GOTO MN:
EXA:
CLS
FOR T = 1 TO 15 STEP 2
PRINT (T)
NEXT T
SLEEP 3
CLS
GOTO MN:
 

CP:
CLS
PRINT "NOW THE BIG QUESTION THAT"
SLEEP 1
PRINT "YOU ARE OBVIOUSLY CLUELESS"
SLEEP 1
PRINT "ABOUT, WHAT IS A COMPUTER?"
SLEEP 4
CLS
PRINT "ITS"
SLEEP 2
PRINT "WHAT YOUR WORKING ON RIGHT"
SLEEP 1
PRINT "NOW!"
SLEEP 3
CLS
PRINT "BECAUSE OF YOU ASKING THAT QUESTION"
SLEEP 1
PRINT "YOU NEED TO DEAL WITH JOE'S MOMMA !"
SLEEP 4
CLS
GOTO END6:
SLEEP 1
LIVE:
CLS
PRINT "OK SO I'M GUESSING YOU"
PRINT "ARE READY TO SAVE YOU'RE LIFE"
SLEEP 5
CLS
LOCATE 6, 10
PRINT "HEHEHEHE.....HAHAHAHA"
SLEEP 3
CLS
PRINT "HERE ARE THE QUESTIONS:"
SLEEP 4
CLS
PRINT "QUESTION 1"
INPUT "WHAT IS 42 TIMES 2"; FT
CLS
IF FT = 84 THEN PRINT "GREAT JOB!"
IF FT <> 84 THEN PRINT "STUPID HEAD!"
SLEEP 5
CLS
PRINT "QUESTION 2"
INPUT "WHAT IS 42 MINUS 2"; FT2
SLEEP 4
CLS
IF FT2 = 40 THEN PRINT "STOP CHEATING!"
IF FT2 <> 40 THEN PRINT "HAHA..DUMMIEEEE!"
SLEEP 5
CLS
PRINT "QUESTION 3"
PRINT "WHAT FUNCTION WOULD YOU USE TO"
PRINT "LOCATE AND PRINT A LETTER IN YOUR NAME"
INPUT " "; FT3$
SLEEP 3
CLS
IF FT3$ = "MID STRING" THEN PRINT "OK THAT WAS GOOD."
IF FT3$ = "MIDSTRING" THEN PRINT "OK THAT WAS GOOD."
IF FT3$ = "MID$" THEN PRINT "OK THAT WAS GOOD."
IF FT3$ <> "MID$" THEN PRINT "YOU ARE A DODO HEAD"
SLEEP 6
CLS
PRINT "OK THIS IS A TOUGH ONE"
SLEEP 4
CLS
PRINT "THINK REAL HARD"
SLEEP 3
CLS
PRINT "YES THAT MEANS USE YOUR BRAIN"
SLEEP 2
CLS
PRINT "QUESTION 4"
INPUT "WHAT IS YOUR NAME"; NAME3$
SLEEP 2
CLS
IF NAME3$ <> "LOSER" THEN PRINT "NO DUMMYHEAD, YOUR NAME IS LOSER"
SLEEP 2
PRINT "BECAUSE NO MATTER WHAT"
SLEEP 2
PRINT "JOE'S MOMMA IS GOING TO GET YOU"
SLEEP 5
GOTO END6:

END6:
CLS
LOCATE 10, 10
PRINT "I'M RIGHT BEHIND YOU!"
SLEEP 3
CLS
    SLEEP 1
    'This example requires a color graphics adapter.
    PALETTE 0, 1
    SCREEN 1
REM    FOR I% = 0 TO 3: A%(I%) = I%: NEXT I%
       LINE (138, 35)-(288, 165), 3, BF
       LINE (20, 10)-(160, 100), 2, BF
            DIM A%(200)
   FOR X3 = 1 TO 800
        FOR I% = 0 TO 3
            A%(I%) = (A%(I%) + 1) MOD 16
        NEXT I%
        PALETTE USING A%(0)
   NEXT X3
REM FOR G1 = 1 TO 50
REM COLOR 5
REM NEXT G1
CLS
SCREEN 7
REM JOE'S MAMA'S FACE
 CIRCLE (160, 130), 70, 14
 PAINT (160, 130), 14, 14
REM JOE'S MAMA'S HAIR
 LINE (60, 120)-(100, 150), 7, BF
 LINE (220, 120)-(260, 150), 7, BF
 CIRCLE (100, 110), 22, 7
 PAINT (100, 110), 7, 7
 CIRCLE (220, 110), 22, 7
 PAINT (220, 110), 7, 7
 CIRCLE (160, 65), 25, 7
 PAINT (160, 65), 7, 7
 CIRCLE (160, 80), 20, 6
 PAINT (160, 80), 6, 6
 CIRCLE (134, 90), 27, 7
 PAINT (134, 90), 7, 7
 CIRCLE (186, 90), 27, 7
 PAINT (186, 90), 7, 7
REM JOE'S MAMA'S EYES
 CIRCLE (135, 135), 25, 8
 CIRCLE (185, 135), 25, 8
 CIRCLE (135, 135), 10, 8
 PAINT (135, 135), 15, 8
 CIRCLE (185, 135), 10, 8
 PAINT (185, 135), 15, 8
 CIRCLE (135, 135), 5, 11
 PAINT (135, 135), 11, 11
 CIRCLE (185, 135), 5, 11
 PAINT (185, 135), 11, 11
REM JOE'S MAMA'S NOSE
 CIRCLE (160, 150), 10, 8
REM JOE'S MAMA'S MOUTH
 CIRCLE (180, 170), 10, 15
 PAINT (180, 170), 15, 15
 LINE (185, 164)-(170, 170), 14
 LINE (185, 160)-(170, 165), 14
 LINE (185, 164)-(185, 160), 14
 LINE (170, 170)-(170, 165), 14
 PAINT (175, 165), 14, 14
REM JOE'S MAMA'S EVIL
 SLEEP 3
 CIRCLE (135, 135), 5, 4
 PAINT (135, 135), 4, 4
 CIRCLE (185, 135), 5, 4
 PAINT (185, 135), 4, 4
 LINE (130, 120)-(145, 125), 8
 LINE (190, 120)-(175, 125), 8

END SUB

SUB FLASHBOX
    SLEEP 1
    'This example requires a color graphics adapter.
    PALETTE 0, 1
    SCREEN 1
REM    FOR I% = 0 TO 3: A%(I%) = I%: NEXT I%
       LINE (138, 35)-(288, 165), 3, BF
       LINE (20, 10)-(160, 100), 2, BF
            DIM A%(200)
   FOR X3 = 1 TO 180
        FOR I% = 0 TO 3
            A%(I%) = (A%(I%) + 1) MOD 16
        NEXT I%
        PALETTE USING A%(0)
   NEXT X3
REM FOR G1 = 1 TO 50
REM COLOR 5
REM NEXT G1

END SUB

SUB FOOD
REM cheese
 LINE (40, 75)-(105, 135), 14, BF
 REM HOLES
  PAINT (75, 105), 14, 14
  CIRCLE (62, 85), 3, 0
  PAINT (62, 85), 0, 0
  CIRCLE (75, 100), 5, 0
  PAINT (75, 100), 0, 0
  CIRCLE (85, 95), 3, 0
  PAINT (85, 95), 0, 0
  CIRCLE (95, 120), 4, 0
  PAINT (95, 120), 0, 0
  CIRCLE (80, 82), 4, 0
  PAINT (80, 82), 0, 0
  CIRCLE (73, 130), 3, 0
  PAINT (73, 130), 0, 0
  CIRCLE (95, 105), 3, 0
  PAINT (95, 105), 0, 0
  CIRCLE (80, 115), 4, 0
  PAINT (80, 115), 0, 0
  CIRCLE (60, 122), 3, 0
  PAINT (60, 122), 0, 0
  CIRCLE (60, 110), 4, 0
  PAINT (60, 110), 0, 0
  CIRCLE (53, 98), 4, 0
  PAINT (53, 98), 0, 0
  CIRCLE (40, 115), 6, 0
  PAINT (40, 115), 0, 0
  CIRCLE (52, 75), 6, 0
  PAINT (52, 75), 0, 0
  CIRCLE (105, 90), 6, 0
  PAINT (105, 90), 0, 0
  CIRCLE (90, 135), 6, 0
  PAINT (90, 135), 0, 0
  CIRCLE (50, 135), 6, 0
  PAINT (50, 135), 0, 0
  LOCATE 18, 6
  PRINT "(CHEESE)"
 REM pizza
  CIRCLE (180, 100), 40, 6
  PAINT (180, 100), 6, 6
  CIRCLE (180, 100), 35, 14
  PAINT (180, 100), 14, 14
 REM pepperoni
  CIRCLE (175, 100), 5, 4
  PAINT (175, 100), 4, 4
  CIRCLE (170, 80), 5, 4
  PAINT (170, 80), 4, 4
  CIRCLE (170, 120), 5, 4
  PAINT (170, 120), 4, 4
  CIRCLE (155, 90), 5, 4
  PAINT (155, 90), 4, 4
  CIRCLE (155, 110), 5, 4
  PAINT (155, 110), 4, 4
  CIRCLE (190, 85), 5, 4
  PAINT (190, 85), 4, 4
  CIRCLE (195, 115), 5, 4
  PAINT (195, 115), 4, 4
  CIRCLE (205, 100), 5, 4
  PAINT (205, 100), 4, 4
   REM slices
   LINE (180, 67)-(180, 133), 0
   LINE (140, 100)-(220, 100), 0
   LINE (150, 77)-(210, 123), 0
   LINE (210, 77)-(150, 123), 0
   LOCATE 18, 20
   PRINT "(PIZZA)"
  REM CANDY
   CIRCLE (265, 150), 20, 5
   PAINT (265, 150), 13, 5
   LINE (245, 143)-(225, 135), 5
   LINE (225, 135)-(240, 150), 5
   LINE (240, 150)-(225, 160), 5
   LINE (225, 160)-(245, 160), 5
   LINE (245, 160)-(230, 170), 5
   LINE (230, 170)-(255, 165), 5
   PAINT (240, 145), 5, 5
   LINE (280, 140)-(300, 130), 5
   LINE (300, 130)-(290, 140), 5
   LINE (290, 140)-(300, 145), 5
   LINE (300, 145)-(290, 150), 5
   LINE (290, 150)-(295, 165), 5
   LINE (295, 165)-(280, 160), 5
   PAINT (290, 145), 5, 5
   LOCATE 16, 29
   PRINT "AND(CANDY)"
END SUB

SUB GAME
CLS
PRINT "GET READY TO PLAY A GAME WITH JOE!"
SLEEP 4
CLS
SCREEN 7
 REM JOE HEAD
  CIRCLE (150, 50), 30, 14
  PAINT (150, 50), 14, 14
 REM CHEEKS
  CIRCLE (135, 60), 6, 12
  PAINT (135, 60), 12, 12
  CIRCLE (165, 60), 6, 12
  PAINT (165, 60), 12, 12
 REM NOSE
  CIRCLE (150, 50), 5, 8
 REM MOUTH
  LINE (140, 60)-(160, 60), 8
  LINE (145, 61)-(155, 65), 15, BF
  LINE (150, 61)-(150, 65), 8
 REM EYES
  CIRCLE (140, 40), 5, 15
  PAINT (140, 40), 15, 15
  CIRCLE (160, 40), 5, 15
  PAINT (160, 40), 15, 15
  CIRCLE (140, 42), 2, 9
  PAINT (140, 42), 9, 9
  CIRCLE (160, 42), 2, 9
  PAINT (160, 42), 9, 9
 REM HAIR
  LINE (115, 40)-(125, 50), 6, BF
  LINE (175, 40)-(185, 50), 6, BF
  LINE (150, 23)-(150, 30), 6
  LINE (140, 23)-(140, 30), 6
  LINE (160, 23)-(160, 30), 6
 REM NECK
  LINE (140, 70)-(160, 80), 14, BF
 REM SHIRT
  LINE (120, 80)-(180, 120), 4, BF
  LINE (150, 80)-(150, 120), 8
 REM PLAID
 'VERTICAL
  LINE (125, 80)-(125, 120), 2
  LINE (130, 80)-(130, 120), 5
  LINE (135, 80)-(135, 120), 2
  LINE (140, 80)-(140, 120), 5
  LINE (145, 80)-(145, 120), 2
  LINE (155, 80)-(155, 120), 5
  LINE (160, 80)-(160, 120), 2
  LINE (165, 80)-(165, 120), 5
  LINE (170, 80)-(170, 120), 2
  LINE (175, 80)-(175, 120), 5
 'HORIZONTAL
  LINE (120, 90)-(180, 90), 1
  LINE (120, 100)-(180, 100), 13
  LINE (120, 110)-(180, 110), 1
  LINE (120, 120)-(120, 120), 13
 REM BUTTONS
  CIRCLE (150, 90), 2, 15
  PAINT (150, 90), 15, 15
  CIRCLE (150, 100), 2, 15
  PAINT (150, 100), 15, 15
  CIRCLE (150, 110), 2, 15
  PAINT (150, 110), 15, 15
 REM POCKET
  LINE (158, 95)-(169, 105), 8, B
  PAINT (160, 100), 4, 8
 REM BELT
  LINE (120, 120)-(180, 125), 6, BF
  LINE (145, 120)-(155, 125), 14, BF
 REM SHOES
  LINE (110, 180)-(191, 191), 6, BF
  CIRCLE (110, 185), 7, 6
  PAINT (108, 185), 6, 6
  CIRCLE (190, 185), 7, 6
  PAINT (192, 185), 6, 6
 REM PANTS
  LINE (120, 125)-(180, 170), 11, BF
  LINE (115, 170)-(185, 180), 8, B
  PAINT (150, 175), 11, 8
  LINE (150, 125)-(150, 191), 8
 REM HANDS
 'RIGHT
  CIRCLE (113, 140), 10, 14
  PAINT (113, 140), 14, 14
 'LEFT
  CIRCLE (187, 140), 10, 14
  PAINT (187, 140), 14, 14
 REM SLEEVES
 'RIGHT
  LINE (120, 80)-(105, 95), 4
  LINE (105, 95)-(105, 130), 4
  LINE (105, 130)-(120, 130), 4
  LINE (120, 130)-(120, 80), 4
  PAINT (110, 120), 4, 4
 'LEFT
  LINE (180, 80)-(195, 95), 4
  LINE (195, 95)-(195, 130), 4
  LINE (195, 130)-(180, 130), 4
  LINE (180, 130)-(180, 80), 4
  PAINT (190, 120), 4, 4
 ' CUFFS
  LINE (100, 130)-(125, 135), 8, B
  LINE (175, 130)-(200, 135), 8, B
  PAINT (115, 133), 4, 8
  PAINT (180, 133), 4, 8
 'PLAID PATTERN
 'RIGHT
  LINE (110, 90)-(110, 129), 13
  LINE (115, 85)-(115, 129), 1
  LINE (120, 80)-(120, 129), 13
  LINE (115, 85)-(119, 85), 2
  LINE (105, 95)-(119, 95), 5
  LINE (105, 105)-(119, 105), 2
  LINE (105, 115)-(119, 115), 5
  LINE (105, 125)-(119, 125), 2
  'LEFT
  LINE (180, 80)-(180, 129), 13
  LINE (185, 85)-(185, 129), 1
  LINE (190, 90)-(190, 129), 13
  LINE (181, 85)-(185, 85), 2
  LINE (181, 95)-(195, 95), 5
  LINE (181, 105)-(195, 105), 2
  LINE (181, 115)-(195, 115), 5
  LINE (181, 125)-(195, 125), 2
 SLEEP 2
 LOCATE 7, 26
  PRINT "HI!"
 SLEEP 3
 CLS
  PRINT "THAT WAS JOE"
  PRINT "(JUST IN CASE YOU DIDN'T FIGURE IT OUT)!"

 SCREEN 12
REM Loadingbox
 LINE (140, 200)-(500, 260), 1, B
 COLOR 15
 LOCATE 14, 35
 PRINT "Loading..."
  ABC = 150
  XYZ = 240
  ABC2 = 160
  XYZ2 = 250

MOVING:
  LINE (ABC, XYZ)-(ABC2, XYZ2), 7, B
  LINE (ABC, XYZ)-(ABC2, XYZ2), 7, B
  FOR TIM = 1 TO 700
  NEXT TIM
  LINE (ABC, XYZ)-(ABC2, XYZ2), 7, B
   ABC = ABC + 2
   ABC2 = ABC2 + 2
   IF ABC > 475 THEN GOTO ENDING2
   GOTO MOVING
ENDING2:
 SLEEP 3
 CLS
REM FIRSTSCREEN
 SCREEN 12
 RANDOMIZE TIMER
 FOR ABC = 1 TO 800
 COL = INT(RND * 3) + 1
 CIRCLE (0, 0), ABC, COL
 CIRCLE (0, 480), ABC, COL
 CIRCLE (640, 0), ABC, COL
 CIRCLE (640, 480), ABC, COL
 CIRCLE (320, 240), ABC, COL
 NEXT ABC

REM GAME INTRO
 SCREEN 7
 SLEEP 4
 CLS
 PRINT "ONE SUNNY DAY..."
REM SUN
CIRCLE (150, 100), 30, 14
PAINT (150, 100), 14, 14

SUN:
 REM LITTLE RAYS
  LINE (150, 50)-(150, 70), 4
  LINE (150, 130)-(150, 150), 4
  LINE (90, 100)-(115, 100), 4
  LINE (185, 100)-(210, 100), 4
 REM BIG RAYS
  LINE (100, 55)-(125, 80), 6
  LINE (200, 55)-(175, 80), 6
  LINE (100, 150)-(125, 125), 6
  LINE (200, 150)-(175, 125), 6

BLACKOUT:
  SLEEP 1
  ' LIL
  LINE (150, 50)-(150, 70), 6
  LINE (150, 130)-(150, 150), 6
  LINE (90, 100)-(115, 100), 6
  LINE (185, 100)-(210, 100), 6
  ' BIG
  LINE (100, 55)-(125, 80), 4
  LINE (200, 55)-(175, 80), 4
  LINE (100, 150)-(125, 125), 4
  LINE (200, 150)-(175, 125), 4

SUN2:
 SLEEP 1
 REM LITTLE RAYS
  LINE (150, 50)-(150, 70), 4
  LINE (150, 130)-(150, 150), 4
  LINE (90, 100)-(115, 100), 4
  LINE (185, 100)-(210, 100), 4
 REM BIG RAYS
  LINE (100, 55)-(125, 80), 6
  LINE (200, 55)-(175, 80), 6
  LINE (100, 150)-(125, 125), 6
  LINE (200, 150)-(175, 125), 6

BLACKOUT2:
  SLEEP 1
  ' LIL
  LINE (150, 50)-(150, 70), 6
  LINE (150, 130)-(150, 150), 6
  LINE (90, 100)-(115, 100), 6
  LINE (185, 100)-(210, 100), 6
  ' BIG
  LINE (100, 55)-(125, 80), 4
  LINE (200, 55)-(175, 80), 4
  LINE (100, 150)-(125, 125), 4
  LINE (200, 150)-(175, 125), 4

SUN3:
 SLEEP 1
 REM LITTLE RAYS
  LINE (150, 50)-(150, 70), 4
  LINE (150, 130)-(150, 150), 4
  LINE (90, 100)-(115, 100), 4
  LINE (185, 100)-(210, 100), 4
 REM BIG RAYS
  LINE (100, 55)-(125, 80), 6
  LINE (200, 55)-(175, 80), 6
  LINE (100, 150)-(125, 125), 6
  LINE (200, 150)-(175, 125), 6

BLACKOUT3:
  SLEEP 1
  ' LIL
  LINE (150, 50)-(150, 70), 6
  LINE (150, 130)-(150, 150), 6
  LINE (90, 100)-(115, 100), 6
  LINE (185, 100)-(210, 100), 6
  ' BIG
  LINE (100, 55)-(125, 80), 4
  LINE (200, 55)-(175, 80), 4
  LINE (100, 150)-(125, 125), 4
  LINE (200, 150)-(175, 125), 4

SUN4:
 SLEEP 1
 REM LITTLE RAYS
  LINE (150, 50)-(150, 70), 4
  LINE (150, 130)-(150, 150), 4
  LINE (90, 100)-(115, 100), 4
  LINE (185, 100)-(210, 100), 4
 REM BIG RAYS
  LINE (100, 55)-(125, 80), 6
  LINE (200, 55)-(175, 80), 6
  LINE (100, 150)-(125, 125), 6
  LINE (200, 150)-(175, 125), 6

BLACKOUT4:
  SLEEP 1
  ' LIL
  LINE (150, 50)-(150, 70), 6
  LINE (150, 130)-(150, 150), 6
  LINE (90, 100)-(115, 100), 6
  LINE (185, 100)-(210, 100), 6
  ' BIG
  LINE (100, 55)-(125, 80), 4
  LINE (200, 55)-(175, 80), 4
  LINE (100, 150)-(125, 125), 4
  LINE (200, 150)-(175, 125), 4

SUN5:
 SLEEP 1
 REM LITTLE RAYS
  LINE (150, 50)-(150, 70), 4
  LINE (150, 130)-(150, 150), 4
  LINE (90, 100)-(115, 100), 4
  LINE (185, 100)-(210, 100), 4
 REM BIG RAYS
  LINE (100, 55)-(125, 80), 6
  LINE (200, 55)-(175, 80), 6
  LINE (100, 150)-(125, 125), 6
  LINE (200, 150)-(175, 125), 6

BLACKOUT5:
  SLEEP 1
  ' LIL
  LINE (150, 50)-(150, 70), 6
  LINE (150, 130)-(150, 150), 6
  LINE (90, 100)-(115, 100), 6
  LINE (185, 100)-(210, 100), 6
  ' BIG
  LINE (100, 55)-(125, 80), 4
  LINE (200, 55)-(175, 80), 4
  LINE (100, 150)-(125, 125), 4
  LINE (200, 150)-(175, 125), 4

REM FOOD1
 SLEEP 2
 CLS
 LOCATE 1, 8
 PRINT "JOE CAME UPON A BASKET FULL"
 SLEEP 2
REM BASKET
 LINE (50, 50)-(250, 180), 12, BF
 LINE (60, 60)-(240, 170), 8, B
 SLEEP 1
 LOCATE 2, 11
 PRINT "OF GOODIES! YUMMY"
REM PEPPERMINT
 CIRCLE (90, 90), 15, 8
 PAINT (90, 90), 15, 8
 LINE (90, 78)-(90, 102), 8
 LINE (75, 91)-(105, 91), 8
 LINE (80, 82)-(100, 100), 8
 LINE (100, 82)-(80, 100), 8
 PAINT (95, 80), 4, 8
 PAINT (95, 95), 4, 8
 PAINT (85, 100), 4, 8
 PAINT (85, 90), 4, 8
REM TOOTSIE
 LINE (150, 100)-(190, 115), 8, B
 LINE (155, 100)-(155, 115), 8
 LINE (185, 100)-(185, 115), 8
 LINE (160, 100)-(160, 115), 8
 LINE (180, 100)-(180, 115), 8
 PAINT (152, 102), 15, 8
 PAINT (186, 102), 15, 8
 PAINT (157, 102), 4, 8
 PAINT (184, 102), 4, 8
 PAINT (170, 108), 6, 8
 LINE (150, 105)-(140, 100), 8
 LINE (140, 100)-(145, 105), 8
 LINE (145, 105)-(140, 110), 8
 LINE (140, 110)-(145, 110), 8
 LINE (145, 110)-(140, 110), 8
 LINE (145, 110)-(140, 115), 8
 LINE (140, 115)-(150, 110), 8
 PAINT (146, 105), 15, 8
 LINE (190, 105)-(200, 100), 8
 LINE (200, 100)-(195, 105), 8
 LINE (195, 105)-(200, 110), 8
 LINE (200, 110)-(195, 110), 8
 LINE (195, 110)-(200, 110), 8
 LINE (195, 110)-(200, 115), 8
 LINE (200, 115)-(190, 110), 8
 PAINT (194, 105), 15, 8
REM LOLLIPOP
 CIRCLE (125, 145), 6, 8
 PAINT (125, 147), 6, 8
 LINE (115, 143)-(180, 145), 8, B
 PAINT (150, 144), 15, 8
 PAINT (116, 144), 15, 8
 CIRCLE (115, 145), 20, 8
 PAINT (115, 150), 14, 8
 CIRCLE (110, 155), 5, 8
 PAINT (110, 155), 6, 8
 CIRCLE (105, 140), 5, 8
 PAINT (105, 140), 6, 8
REM FIRST QUESTION
SLEEP 3
 CLS
 PRINT "BUT JOE WAS WONDERING:"
 PRINT "'WHAT IS THAT SPOTTED PIECE OF CANDY...?"
 SLEEP 2
 PRINT "SHOULD JOE EAT IT?"
 PRINT "HE'S AWFUL HUNGRY..."
 SLEEP 2
REM LOLLIPOP
 CIRCLE (125, 145), 6, 8
 PAINT (125, 147), 6, 8
 LINE (115, 143)-(180, 145), 8, B
 PAINT (150, 144), 15, 8
 PAINT (116, 144), 15, 8
 CIRCLE (115, 145), 20, 8
 PAINT (115, 150), 14, 8
 CIRCLE (110, 155), 5, 8
 PAINT (110, 155), 6, 8
 CIRCLE (105, 140), 5, 8
 PAINT (105, 140), 6, 8
REM 1ST QUESTION CONT.
 SLEEP 1
 PRINT "SO JOE ASKS YOU: 'SHOULD I EAT IT?'"
 INPUT "YES or NO"; ans1$
 IF RIGHT$(ans1$, 1) = "S" THEN GOTO YES1:
 IF RIGHT$(ans1$, 1) <> "S" THEN GOTO NO1:
YES1:
 CLS
 PRINT "JOE: 'ALRIGHT!'"
 GOTO OUTCOME1:
NO1:
 CLS
 PRINT "OH DEAR!"
 PRINT "JOE DIDN'T WANT TO LISTEN!"
 GOTO OUTCOME1:
OUTCOME1:
 SLEEP 2
SCREEN 7
 REM JOE HEAD
  CIRCLE (150, 50), 30, 14
  PAINT (150, 50), 14, 14
 REM CHEEKS
  CIRCLE (164, 60), 6, 8
  CIRCLE (136, 60), 6, 8
  CIRCLE (135, 60), 6, 12
  PAINT (135, 60), 12, 12
  CIRCLE (165, 60), 6, 12
  PAINT (165, 60), 12, 12
 REM NOSE
  CIRCLE (150, 50), 5, 8
 REM MOUTH
  LINE (142, 60)-(158, 60), 8
 REM CHIN
  CIRCLE (150, 70), 5, 8
 REM EYES
  CIRCLE (140, 40), 5, 8
  PAINT (140, 40), 14, 8
  CIRCLE (160, 40), 5, 8
  PAINT (160, 40), 14, 8
 REM HAIR
  LINE (115, 40)-(125, 50), 6, BF
  LINE (175, 40)-(185, 50), 6, BF
  LINE (150, 23)-(150, 30), 6
  LINE (140, 23)-(140, 30), 6
  LINE (160, 23)-(160, 30), 6
 REM NECK
  LINE (140, 70)-(160, 80), 14, BF
 REM SHIRT
  LINE (120, 80)-(180, 120), 4, BF
  LINE (150, 80)-(150, 120), 8
 REM PLAID
 'VERTICAL
  LINE (125, 80)-(125, 120), 2
  LINE (130, 80)-(130, 120), 5
  LINE (135, 80)-(135, 120), 2
  LINE (140, 80)-(140, 120), 5
  LINE (145, 80)-(145, 120), 2
  LINE (155, 80)-(155, 120), 5
  LINE (160, 80)-(160, 120), 2
  LINE (165, 80)-(165, 120), 5
  LINE (170, 80)-(170, 120), 2
  LINE (175, 80)-(175, 120), 5
 'HORIZONTAL
  LINE (120, 90)-(180, 90), 1
  LINE (120, 100)-(180, 100), 13
  LINE (120, 110)-(180, 110), 1
  LINE (120, 120)-(120, 120), 13
 REM BUTTONS
  CIRCLE (150, 90), 2, 15
  PAINT (150, 90), 15, 15
  CIRCLE (150, 100), 2, 15
  PAINT (150, 100), 15, 15
  CIRCLE (150, 110), 2, 15
  PAINT (150, 110), 15, 15
 REM POCKET
  LINE (158, 95)-(169, 105), 8, B
  PAINT (160, 100), 4, 8
 REM BELT
  LINE (120, 120)-(180, 125), 6, BF
  LINE (145, 120)-(155, 125), 14, BF
 REM SHOES
  LINE (110, 180)-(191, 191), 6, BF
  CIRCLE (110, 185), 7, 6
  PAINT (108, 185), 6, 6
  CIRCLE (190, 185), 7, 6
  PAINT (192, 185), 6, 6
 REM PANTS
  LINE (120, 125)-(180, 170), 11, BF
  LINE (115, 170)-(185, 180), 8, B
  PAINT (150, 175), 11, 8
  LINE (150, 125)-(150, 191), 8
 REM EATEN LOLLY
  LINE (170, 140)-(200, 142), 15, BF
  CIRCLE (165, 140), 8, 14
  PAINT (165, 140), 14, 14
  CIRCLE (160, 138), 2, 6
  PAINT (160, 138), 6, 6
  CIRCLE (168, 142), 2, 6
  PAINT (168, 142), 6, 6
  CIRCLE (167, 135), 3, 11
  PAINT (167, 135), 11, 11
 REM HANDS
 'RIGHT
  CIRCLE (113, 140), 10, 14
  PAINT (113, 140), 14, 14
 'LEFT
  CIRCLE (187, 140), 10, 14
  PAINT (187, 140), 14, 14
 REM SLEEVES
 'RIGHT
  LINE (120, 80)-(105, 95), 4
  LINE (105, 95)-(105, 130), 4
  LINE (105, 130)-(120, 130), 4
  LINE (120, 130)-(120, 80), 4
  PAINT (110, 120), 4, 4
 'LEFT
  LINE (180, 80)-(195, 95), 4
  LINE (195, 95)-(195, 130), 4
  LINE (195, 130)-(180, 130), 4
  LINE (180, 130)-(180, 80), 4
  PAINT (190, 120), 4, 4
 ' CUFFS
  LINE (100, 130)-(125, 135), 8, B
  LINE (175, 130)-(200, 135), 8, B
  PAINT (115, 133), 4, 8
  PAINT (180, 133), 4, 8
 'PLAID PATTERN
 'RIGHT
  LINE (110, 90)-(110, 129), 13
  LINE (115, 85)-(115, 129), 1
  LINE (120, 80)-(120, 129), 13
  LINE (115, 85)-(119, 85), 2
  LINE (105, 95)-(119, 95), 5
  LINE (105, 105)-(119, 105), 2
  LINE (105, 115)-(119, 115), 5
  LINE (105, 125)-(119, 125), 2
  'LEFT
  LINE (180, 80)-(180, 129), 13
  LINE (185, 85)-(185, 129), 1
  LINE (190, 90)-(190, 129), 13
  LINE (181, 85)-(185, 85), 2
  LINE (181, 95)-(195, 95), 5
  LINE (181, 105)-(195, 105), 2
  LINE (181, 115)-(195, 115), 5
  LINE (181, 125)-(195, 125), 2
 REM BASKET
  LINE (230, 160)-(280, 190), 12, BF
  LINE (230, 170)-(280, 170), 8
  LINE (255, 165)-(265, 175), 8
  LINE (265, 175)-(285, 170), 8
  LINE (285, 170)-(281, 165), 8
  CIRCLE (255, 165), 3, 8
REM FOOD2
 SLEEP 4
 CLS
 PRINT "JOE: YUM! IT WAS A"
 SLEEP 1
 PRINT "CAMELOPARD COLORED CANDY!"
 SLEEP 1
 PRINT "(A CAMELOPARD IS A GIRAFFE)"
 SLEEP 1
 PRINT "OH WELL. JOE SEEMS FINE."
 SLEEP 1
 PRINT "SO HE CONTINUES ON WALKING..."
 SLEEP 4
 CLS
 PRINT "WHEN JOE GOT INTO TOWN, HE FOUND A"
 SLEEP 3
REM GUMBALL GLASS
 LINE (120, 20)-(130, 10), 1
 LINE (130, 10)-(180, 10), 1
 LINE (180, 10)-(190, 20), 1
 LINE (190, 20)-(190, 60), 1
 LINE (190, 60)-(180, 70), 1
 LINE (180, 70)-(130, 70), 1
 LINE (130, 70)-(120, 60), 1
 LINE (120, 60)-(120, 20), 1
 PAINT (140, 50), 11, 1
REM GUMBALL STAND
 LINE (130, 70)-(130, 120), 1
 LINE (130, 120)-(180, 120), 1
 LINE (180, 120)-(180, 70), 1
 PAINT (150, 100), 9, 1
REM LEGS
 LINE (130, 120)-(180, 190), 1, BF
 LINE (140, 122)-(170, 190), 0, BF
REM COIN SLOT
 LINE (153, 72)-(156, 72), 1
 LINE (157, 72)-(157, 82), 1
 LINE (157, 82)-(153, 82), 1
 LINE (153, 82)-(153, 72), 1
REM CRANK
 LINE (149, 86)-(144, 91), 1
 LINE (149, 86)-(161, 94), 1
 LINE (144, 91)-(158, 99), 1
 LINE (161, 94)-(158, 99), 1
REM SLOT
 LINE (150, 105)-(160, 118), 1, B
REM GUMBALLS
 CIRCLE (130, 61), 2, 5
 PAINT (130, 61), 5, 5
 CIRCLE (157, 63), 2, 1
 PAINT (157, 63), 1, 1
 CIRCLE (139, 62), 2, 2
 PAINT (139, 62), 2, 2
 CIRCLE (160, 59), 2, 4
 PAINT (160, 59), 4, 4
 CIRCLE (147, 64), 2, 10
 PAINT (147, 64), 10, 10
 CIRCLE (150, 61), 2, 2
 PAINT (150, 61), 2, 2
 CIRCLE (160, 63), 2, 12
 PAINT (160, 63), 12, 12
 CIRCLE (170, 61), 2, 3
 PAINT (170, 61), 3, 3
 CIRCLE (180, 63), 2, 1
 PAINT (180, 63), 1, 1
 CIRCLE (145, 59), 2, 5
 PAINT (145, 59), 5, 5
 CIRCLE (150, 58), 2, 12
 PAINT (150, 58), 12, 12
 CIRCLE (130, 57), 2, 3
 PAINT (130, 57), 3, 3
 CIRCLE (163, 55), 2, 4
 PAINT (163, 55), 4, 4
 CIRCLE (173, 57), 2, 10
 PAINT (173, 57), 10, 10
 CIRCLE (165, 56), 2, 5
 PAINT (165, 56), 5, 5
 CIRCLE (180, 60), 2, 2
 PAINT (180, 60), 2, 2
 CIRCLE (130, 50), 2, 1
 PAINT (130, 50), 1, 1
 CIRCLE (135, 55), 2, 2
 PAINT (135, 55), 2, 2
 CIRCLE (140, 53), 2, 10
 PAINT (140, 53), 10, 10
 CIRCLE (145, 52), 2, 3
 PAINT (145, 53), 3, 3
 CIRCLE (150, 53), 2, 4
 PAINT (150, 53), 4, 4
 CIRCLE (157, 57), 2, 12
 PAINT (157, 57), 12, 12
 CIRCLE (164, 55), 2, 1
 PAINT (164, 55), 1, 1
 CIRCLE (170, 50), 2, 10
 PAINT (170, 50), 10, 10
 CIRCLE (180, 57), 2, 1
 PAINT (180, 57), 1, 1
 CIRCLE (179, 64), 2, 5
 PAINT (179, 64), 5, 5
 CIRCLE (182, 55), 2, 2
 PAINT (182, 55), 2, 2
 SLEEP 2
PRINT "GUMBALL MACHINE!"
REM DROPPING
 X = 155
 Y = 121
REM JOE'S HAND
 CIRCLE (170, 155), 12, 14
 PAINT (170, 155), 14, 14
REM JOE'S SLEEVE
 LINE (180, 145)-(220, 165), 4, BF

MOVEMENT:
 CIRCLE (X, Y), 2, 2
 PAINT (X, Y), 2, 2
 FOR T = 1 TO 600
 NEXT T
 CIRCLE (X, Y), 2, 0
 Y = Y + 1
 IF Y > 300 THEN GOTO YIELD:
 GOTO MOVEMENT
YIELD:
REM 2ND QUESTION
 SLEEP 2
 CLS
 PRINT "NATURALLY, JOE TRIED TO CATCH"
 PRINT "THE FREE FALLING GUMBALL"
 PRINT " BUT MISSED AND IT FELL INTO"
 PRINT "THE SEWER DRAIN."
 SLEEP 7
 CLS
 PRINT "JOE:I'M NOT GOIN AFTER THAT!"
 PRINT "BUT I WONDER, HOW MANY GUMBALLS"
 PRINT "DO YOU SEE IN THE MACHINE?"
 SLEEP 7
 CLS
REM GUMBALL GLASS
 LINE (120, 20)-(130, 10), 1
 LINE (130, 10)-(180, 10), 1
 LINE (180, 10)-(190, 20), 1
 LINE (190, 20)-(190, 60), 1
 LINE (190, 60)-(180, 70), 1
 LINE (180, 70)-(130, 70), 1
 LINE (130, 70)-(120, 60), 1
 LINE (120, 60)-(120, 20), 1
 PAINT (140, 50), 11, 1
REM GUMBALL STAND
 LINE (130, 70)-(130, 120), 1
 LINE (130, 120)-(180, 120), 1
 LINE (180, 120)-(180, 70), 1
 PAINT (150, 100), 9, 1
REM LEGS
 LINE (130, 120)-(180, 190), 1, BF
 LINE (140, 122)-(170, 190), 0, BF
REM COIN SLOT
 LINE (153, 72)-(156, 72), 1
 LINE (157, 72)-(157, 82), 1
 LINE (157, 82)-(153, 82), 1
 LINE (153, 82)-(153, 72), 1
REM CRANK
 LINE (149, 86)-(144, 91), 1
 LINE (149, 86)-(161, 94), 1
 LINE (144, 91)-(158, 99), 1
 LINE (161, 94)-(158, 99), 1
REM SLOT
 LINE (150, 105)-(160, 118), 1, B
REM GUMBALLS
 CIRCLE (130, 61), 2, 5
 PAINT (130, 61), 5, 5
 CIRCLE (157, 63), 2, 1
 PAINT (157, 63), 1, 1
 CIRCLE (139, 62), 2, 2
 PAINT (139, 62), 2, 2
 CIRCLE (160, 59), 2, 4
 PAINT (160, 59), 4, 4
 CIRCLE (147, 64), 2, 10
 PAINT (147, 64), 10, 10
 CIRCLE (150, 61), 2, 2
 PAINT (150, 61), 2, 2
 CIRCLE (160, 63), 2, 12
 PAINT (160, 63), 12, 12
 CIRCLE (170, 61), 2, 3
 PAINT (170, 61), 3, 3
 CIRCLE (180, 63), 2, 1
 PAINT (180, 63), 1, 1
 CIRCLE (145, 59), 2, 5
 PAINT (145, 59), 5, 5
 CIRCLE (150, 58), 2, 12
 PAINT (150, 58), 12, 12
 CIRCLE (130, 57), 2, 3
 PAINT (130, 57), 3, 3
 CIRCLE (163, 55), 2, 4
 PAINT (163, 55), 4, 4
 CIRCLE (173, 57), 2, 10
 PAINT (173, 57), 10, 10
 CIRCLE (165, 56), 2, 5
 PAINT (165, 56), 5, 5
 CIRCLE (180, 60), 2, 2
 PAINT (180, 60), 2, 2
 CIRCLE (130, 50), 2, 1
 PAINT (130, 50), 1, 1
 CIRCLE (135, 55), 2, 2
 PAINT (135, 55), 2, 2
 CIRCLE (140, 53), 2, 10
 PAINT (140, 53), 10, 10
 CIRCLE (145, 52), 2, 3
 PAINT (145, 53), 3, 3
 CIRCLE (150, 53), 2, 4
 PAINT (150, 53), 4, 4
 CIRCLE (157, 57), 2, 12
 PAINT (157, 57), 12, 12
 CIRCLE (164, 55), 2, 1
 PAINT (164, 55), 1, 1
 CIRCLE (170, 50), 2, 10
 PAINT (170, 50), 10, 10
 CIRCLE (180, 57), 2, 1
 PAINT (180, 57), 1, 1
 CIRCLE (179, 64), 2, 5
 PAINT (179, 64), 5, 5
 CIRCLE (182, 55), 2, 2
 PAINT (182, 55), 2, 2
PRINT "HOW MANY GUMBALLS DO YOU SEE?"
INPUT GUMBALLS
IF GUMBALLS = 27 THEN GOTO YESGB
IF GUMBALLS <> 27 THEN GOTO NOGB
YESGB:
 CLS
 PRINT "JOE: WOW! REALLY? THAT'S ALOT!"
 PRINT "YOU COUNT REALLY WELL!"
 SLEEP 3
 CLS
 GOTO OUTCOME2
NOGB:
 IF GUMBALLS > 24 THEN GOTO CLOSEENUFF
 IF GUMBALLS < 24 THEN GOTO NOTCLOSEENUFF
CLOSEENUFF:
 CLS
 PRINT "JOE: THAT'S CLOSE ENOUGH. "
 PRINT "I ACTUALLY COUNTED 27."
 SLEEP 3
 CLS
 GOTO OUTCOME2
NOTCLOSEENUFF:
 CLS
 PRINT "JOE IS DISAPPOINTED."
 PRINT "JOE: THERE'S ACTUALLY 27."
 SLEEP 3
 CLS
 GOTO OUTCOME2
REM WHAT HAPPENS REGARDLESS
OUTCOME2:
 PRINT "AFTER THAT EDUCATIONAL MOMENT,"
 PRINT "JOE SIGHED: TOO BAD I DON'T"
 PRINT "HAVE ANY MONEY. OH WELL,"
 PRINT "I GUESS I'LL KEEP ON WALKING."
 SLEEP 8
 CLS
 PRINT "AND SO HE DID."
 SLEEP 3
 CLS
REM THIRD QUESTION
 PRINT "RIGHT UP UNTIL HE CAME INTO TOWN"
 PRINT "AND SAW A POSTER TALKING ABOUT"
 SLEEP 2
 LINE (20, 30)-(290, 180), 9, BF
 SLEEP 2
 PRINT "THE POWER OF CHEESE:"
REM YELLOW CHEESE
 LINE (40, 75)-(105, 135), 6, B
 PAINT (80, 100), 14, 6
 REM HOLES
  PAINT (75, 105), 14, 14
  CIRCLE (62, 85), 3, 9
  PAINT (62, 85), 9, 9
  CIRCLE (75, 100), 5, 9
  PAINT (75, 100), 9, 9
  CIRCLE (85, 95), 3, 9
  PAINT (85, 95), 9, 9
  CIRCLE (95, 120), 4, 9
  PAINT (95, 120), 9, 9
  CIRCLE (80, 82), 4, 9
  PAINT (80, 82), 9, 9
  CIRCLE (73, 130), 3, 9
  PAINT (73, 130), 9, 9
  CIRCLE (95, 105), 3, 9
  PAINT (95, 105), 9, 9
  CIRCLE (80, 115), 4, 9
  PAINT (80, 115), 9, 9
  CIRCLE (60, 122), 3, 9
  PAINT (60, 122), 9, 9
  CIRCLE (60, 110), 4, 9
  PAINT (60, 110), 9, 9
  CIRCLE (53, 98), 4, 9
  PAINT (53, 98), 9, 9
  CIRCLE (40, 115), 6, 9
  PAINT (40, 115), 9, 9
  CIRCLE (52, 75), 6, 9
  PAINT (52, 75), 9, 9
  CIRCLE (105, 90), 6, 9
  PAINT (105, 90), 9, 9
  CIRCLE (90, 135), 6, 9
  PAINT (90, 135), 9, 9
  CIRCLE (50, 135), 6, 9
  PAINT (50, 135), 9, 9
REM WHITE CHEESE
 LINE (185, 50)-(235, 50), 7
 LINE (185, 65)-(235, 65), 7
 LINE (185, 50)-(175, 58), 7
 LINE (185, 65)-(175, 58), 7
 LINE (235, 50)-(245, 58), 7
 LINE (235, 65)-(245, 58), 7
 LINE (175, 58)-(175, 80), 7
 LINE (245, 58)-(245, 80), 7
 LINE (175, 80)-(185, 85), 7
 LINE (245, 80)-(238, 85), 7
 LINE (185, 85)-(238, 85), 7
 PAINT (210, 60), 15, 7
 PAINT (210, 80), 15, 7
REM HOLES
 CIRCLE (190, 56), 4, 9
 PAINT (190, 56), 9, 9
 CIRCLE (203, 59), 3, 9
 PAINT (203, 59), 9, 9
 CIRCLE (212, 54), 2, 9
 PAINT (212, 54), 9, 9
 CIRCLE (220, 61), 3, 9
 PAINT (220, 61), 9, 9
 CIRCLE (230, 55), 3, 9
 PAINT (230, 55), 9, 9
 'MAIN HOLES
 CIRCLE (185, 73), 5, 9
 PAINT (185, 73), 9, 9
 CIRCLE (197, 80), 4, 9
 PAINT (197, 80), 9, 9
 CIRCLE (200, 70), 3, 9
 PAINT (200, 70), 9, 9
 CIRCLE (208, 85), 4, 9
 PAINT (208, 85), 9, 9
 CIRCLE (214, 74), 5, 9
 PAINT (214, 74), 9, 9
 CIRCLE (225, 80), 3, 9
 PAINT (225, 80), 9, 9
 CIRCLE (230, 70), 4, 9
 PAINT (230, 70), 9, 9
 CIRCLE (242, 75), 4, 9
 PAINT (242, 75), 9, 9
REM MIXED CHEESE
 LINE (151, 141)-(260, 154), 7, B
 PAINT (200, 150), 15, 7
 LINE (150, 140)-(162, 140), 6
 LINE (150, 140)-(150, 150), 6
 LINE (162, 140)-(150, 150), 6
 PAINT (155, 142), 14, 6
 LINE (155, 155)-(165, 155), 6
 LINE (175, 140)-(185, 140), 6
 LINE (155, 155)-(175, 140), 6
 LINE (165, 155)-(185, 140), 6
 PAINT (165, 150), 14, 6
 LINE (195, 140)-(205, 140), 6
 LINE (175, 155)-(185, 155), 6
 LINE (195, 140)-(175, 155), 6
 LINE (205, 140)-(185, 155), 6
 PAINT (190, 150), 14, 6
 LINE (215, 140)-(225, 140), 6
 LINE (195, 155)-(205, 155), 6
 LINE (215, 140)-(195, 155), 6
 LINE (225, 140)-(205, 155), 6
 PAINT (210, 150), 14, 6
 LINE (235, 140)-(245, 140), 6
 LINE (215, 155)-(225, 155), 6
 LINE (235, 140)-(215, 155), 6
 LINE (245, 140)-(225, 155), 6
 PAINT (225, 150), 14, 6
 LINE (255, 140)-(261, 140), 6
 LINE (235, 155)-(245, 155), 6
 LINE (255, 140)-(235, 155), 6
 LINE (261, 140)-(261, 143), 6
 LINE (261, 143)-(245, 155), 6
 PAINT (250, 150), 14, 6
REM 3RD QUESTION
 SLEEP 4
 CLS
 PRINT "JOE WAS PONDERING (OH DEAR!)"
 PRINT "WHAT IS THE CORRECT WAY TO SPELL:"
 PRINT "(A) MOZARELLA"
 PRINT "(B) MOZZARELLA"
 PRINT "(C) MOZZARELA"
 PRINT "(D) MOZARELA"
 INPUT CHEESE$
 IF CHEESE$ = "B" THEN GOTO GOODCHEESE
 IF CHEESE$ <> "B" THEN GOTO BADCHEESE
GOODCHEESE:
 CLS
 PRINT "JOE: FO SHO?! *AHEM* I MEAN-REALLY?!"
 PRINT "YOUR EITHER A GOOD SPELLER,"
 PRINT "A GOOD GUESSER,"
 PRINT "OR VERY LUCKY!"
 SLEEP 8
 GOTO OUTCOME3
BADCHEESE:
 CLS
 PRINT "JOE: FO FAKE! *AHEM* I MEAN-UH...NO."
 PRINT "IT'S SPELT 'MOZZARELLA'. DUH."
 PRINT "MAYBE I SHOULD JUST STICK "
 PRINT "TO THE EASY QUESITONS."
 SLEEP 8
 GOTO OUTCOME3:
REM WHAT HAPPENS REGARDLESS
OUTCOME3:
 CLS
 PRINT "AFTER ALL THAT TALK ABOUT CHEESE,"
 PRINT "JOE GOT THE MUNCHIES. SO..."
 SLEEP 5
 CLS
 PRINT "HE KEPT ON WALKING UNTIL HE FOUND"
 SLEEP 3
 PRINT "A PIZZA PARLOR!"
REM PIZZA PARLOR
 LINE (50, 70)-(270, 180), 6, BF
REM ROOF
 LINE (50, 30)-(270, 30), 4
 LINE (30, 85)-(290, 85), 4
 LINE (50, 30)-(30, 85), 4
 LINE (290, 85)-(270, 30), 4
 PAINT (200, 50), 4, 4
 LINE (40, 56)-(280, 56), 8
REM DOORS
 LINE (110, 110)-(210, 180), 8, BF
 LINE (115, 115)-(205, 180), 11, BF
 LINE (155, 110)-(165, 180), 8, BF
 LINE (160, 110)-(160, 180), 7
 LINE (114, 145)-(155, 150), 7, B
 PAINT (135, 147), 8, 7
 LINE (165, 145)-(206, 150), 7, B
 PAINT (186, 147), 8, 7
REM DRIVE-THRU WINDOW
 LINE (50, 120)-(55, 150), 8, BF
 LINE (45, 150)-(58, 153), 8, BF
 LINE (48, 124)-(51, 149), 0, BF
REM PIZZA BOX
 LINE (125, 55)-(195, 105), 15, BF
 COLOR 2
 LOCATE 8, 18
 PRINT "PIZZA!"
 COLOR 15
 CIRCLE (160, 84), 23, 6
 PAINT (160, 84), 6, 6
 CIRCLE (160, 84), 20, 14
 PAINT (160, 84), 14, 14
 LINE (160, 65)-(160, 103), 0
 LINE (137, 84)-(183, 84), 0
 LINE (143, 71)-(177, 97), 0
 LINE (177, 71)-(143, 97), 0
 SLEEP 6
 CLS
REM FOURTH QUESTION
 PRINT "THOUGH HE DIDN'T HAVE ANY MONEY,"
 PRINT "JOE FOUND SOME FRIENDS INSIDE THAT"
 SLEEP 2
 PRINT "WERE ACTUALLY WILLING TO LET JOE"
 PRINT "HAVE A SLICE OF THEIR PIZZA."
 SLEEP 8
 CLS
 PRINT "JOE: WHAT SLICE TOPPING SHOULD I TAKE..."
REM PIZZA
 CIRCLE (160, 100), 90, 6
 PAINT (160, 100), 6, 6
 CIRCLE (160, 100), 80, 14
 PAINT (160, 100), 14, 14
 SLEEP 3
 LOCATE 6, 1
 PRINT "(A) CHEESE"
 SLEEP 2
 LOCATE 5, 28
 PRINT "(B) PEPPERONI"
 CIRCLE (180, 50), 8, 4
 PAINT (180, 50), 4, 4
 CIRCLE (200, 70), 10, 4
 PAINT (200, 70), 4, 4
 CIRCLE (165, 75), 7, 4
 PAINT (165, 75), 4, 4
 LINE (156, 70)-(159, 90), 14, BF
 CIRCLE (190, 95), 8, 4
 PAINT (190, 95), 4, 4
 LINE (185, 100)-(195, 103), 14, BF
 CIRCLE (225, 85), 7, 4
 PAINT (225, 85), 4, 4
REM PEPPER AND MEAT
 SLEEP 2
 LOCATE 22, 27
 PRINT "(C) PEPPERS"
REM PEPPERS
 LINE (200, 135)-(215, 138), 2, BF
 LINE (165, 110)-(168, 120), 2, BF
 LINE (180, 140)-(190, 150), 2
 LINE (180, 145)-(190, 155), 2
 LINE (180, 140)-(180, 145), 2
 LINE (190, 150)-(190, 155), 2
 PAINT (185, 148), 2, 2
 LINE (215, 105)-(230, 108), 2, BF
 LINE (198, 110)-(205, 120), 2
 LINE (198, 115)-(205, 125), 2
 LINE (198, 110)-(198, 115), 2
 LINE (205, 120)-(205, 125), 2
 PAINT (202, 118), 2, 2
REM MEATS
 SLEEP 2
 LOCATE 23, 31
 PRINT "AND MEAT"
 CIRCLE (220, 120), 4, 6
 PAINT (220, 120), 6, 6
 CIRCLE (215, 123), 3, 6
 PAINT (215, 123), 6, 6
 CIRCLE (222, 124), 4, 6
 PAINT (222, 124), 6, 6
 CIRCLE (180, 110), 4, 6
 PAINT (180, 110), 6, 6
 CIRCLE (177, 115), 3, 6
 PAINT (177, 115), 6, 6
 CIRCLE (185, 130), 5, 6
 PAINT (185, 130), 6, 6
 CIRCLE (165, 135), 3, 6
 PAINT (165, 135), 6, 6
 CIRCLE (169, 139), 4, 6
 PAINT (169, 139), 6, 6
 CIRCLE (173, 158), 4, 6
 PAINT (173, 158), 6, 6
 CIRCLE (169, 154), 3, 6
 PAINT (169, 154), 6, 6
 CIRCLE (203, 148), 4, 6
 PAINT (203, 148), 6, 6
REM MUSHROOMS
 SLEEP 2
 LOCATE 21
 PRINT "(D) MUSHROOM"
 CIRCLE (145, 155), 10, 15
 PAINT (145, 155), 15, 15
 LINE (135, 145)-(155, 154), 14, BF
 LINE (143, 148)-(147, 155), 15, BF
 LINE (140, 155)-(150, 155), 7
 CIRCLE (125, 135), 6, 15
 PAINT (125, 135), 15, 15
 LINE (119, 140)-(125, 130), 14, BF
 LINE (118, 133)-(125, 137), 15, BF
 LINE (126, 132)-(126, 138), 7
 PAINT (120, 135), 15, 15
 CIRCLE (150, 125), 8, 15
 PAINT (150, 125), 15, 15
 LINE (140, 125)-(160, 135), 14, BF
 LINE (148, 125)-(152, 133), 15, BF
 LINE (145, 124)-(155, 124), 7
 CIRCLE (125, 110), 10, 15
 PAINT (125, 110), 15, 15
 LINE (125, 100)-(135, 120), 14, BF
 LINE (125, 108)-(135, 112), 15, BF
 LINE (124, 105)-(124, 115), 7
 CIRCLE (105, 130), 7, 15
 PAINT (105, 130), 15, 15
 LINE (97, 124)-(113, 129), 14, BF
 LINE (103, 122)-(107, 130), 15, BF
 LINE (100, 130)-(110, 130), 7
 SLEEP 2
 LOCATE 21, 13
 PRINT "S"
 CIRCLE (103, 112), 4, 15
 PAINT (103, 112), 15, 15
 LINE (142, 138)-(147, 142), 15, BF
 CIRCLE (120, 150), 4, 15
 PAINT (120, 150), 15, 15
 LINE (85, 105)-(90, 110), 15, BF
 REM SLICES
 SLEEP 2
 LINE (160, 25)-(160, 175), 0
 SLEEP 2
 LINE (70, 100)-(250, 100), 0
 SLEEP 2
 LINE (93, 50)-(228, 150), 0
 SLEEP 2
 LINE (228, 50)-(93, 150), 0
REM 4TH QUESTION
 SLEEP 3
 LOCATE 2
 INPUT PIZZA$
 IF PIZZA$ = "A" THEN GOTO CHEESY:
 IF PIZZA$ = "B" THEN GOTO PEPPERONY:
 IF PIZZA$ = "C" THEN GOTO PEPPERANDMEATY:
 IF PIZZA$ = "D" THEN GOTO MUSHROOMY:
CHEESY:
 CLS
 PRINT "JOE: I LOVE EXTRA CHEESY PIZZA!"
 SLEEP 3
 GOTO OUTCOME4
PEPPERONY:
 CLS
 PRINT "JOE: PEPPERONI GIVES ME GAS."
 LOCATE 2, 6
 PRINT "I'LL JUST GET A SLICE OF CHEESE."
 SLEEP 6
 GOTO OUTCOME4
PEPPERANDMEATY:
 CLS
 PRINT "JOE: THAT'S TOO SPICY AND MEATY FOR ME."
 LOCATE 2, 6
 PRINT "I LOVE CHEESE; I'LL GET IT INSTEAD."
 SLEEP 6
 GOTO OUTCOME4
MUSHROOMY:
 CLS
 PRINT "JOE: OOPS. I'M ALLERGIC TO MUSHROOMS."
 LOCATE 2, 6
 PRINT "I'LL JUST GRAB SOME CHEESE PIZZA."
 SLEEP 6
 GOTO OUTCOME4
REM WHAT HAPPENS REGARDLESS
OUTCOME4:
 CLS
 LOCATE 8, 7
 PRINT "*CHOMP!*"
 SLEEP 3
 REM JOE HEAD
  CIRCLE (150, 50), 30, 14
  PAINT (150, 50), 14, 14
 REM CHEEKS
  CIRCLE (164, 60), 6, 8
  CIRCLE (136, 60), 6, 8
  CIRCLE (135, 60), 6, 12
  PAINT (135, 60), 12, 12
  CIRCLE (165, 60), 6, 12
  PAINT (165, 60), 12, 12
 REM NOSE
  CIRCLE (150, 50), 5, 8
 REM MOUTH
  LINE (142, 60)-(158, 60), 8
 REM CHIN
  CIRCLE (150, 70), 5, 8
 REM EYES
  CIRCLE (140, 40), 5, 8
  PAINT (140, 40), 14, 8
  CIRCLE (160, 40), 5, 8
  PAINT (160, 40), 14, 8
  LINE (135, 35)-(165, 39), 14, BF
 REM HAIR
  LINE (115, 40)-(125, 50), 6, BF
  LINE (175, 40)-(185, 50), 6, BF
  LINE (150, 23)-(150, 30), 6
  LINE (140, 23)-(140, 30), 6
  LINE (160, 23)-(160, 30), 6
 REM NECK
  LINE (140, 70)-(160, 80), 14, BF
 REM SHIRT
  LINE (120, 80)-(180, 120), 4, BF
  LINE (150, 80)-(150, 120), 8
 REM PLAID
 'VERTICAL
  LINE (125, 80)-(125, 120), 2
  LINE (130, 80)-(130, 120), 5
  LINE (135, 80)-(135, 120), 2
  LINE (140, 80)-(140, 120), 5
  LINE (145, 80)-(145, 120), 2
  LINE (155, 80)-(155, 120), 5
  LINE (160, 80)-(160, 120), 2
  LINE (165, 80)-(165, 120), 5
  LINE (170, 80)-(170, 120), 2
  LINE (175, 80)-(175, 120), 5
 'HORIZONTAL
  LINE (120, 90)-(180, 90), 1
  LINE (120, 100)-(180, 100), 13
  LINE (120, 110)-(180, 110), 1
  LINE (120, 120)-(120, 120), 13
 REM BUTTONS
  CIRCLE (150, 90), 2, 15
  PAINT (150, 90), 15, 15
  CIRCLE (150, 100), 2, 15
  PAINT (150, 100), 15, 15
  CIRCLE (150, 110), 2, 15
  PAINT (150, 110), 15, 15
 REM POCKET
  LINE (158, 95)-(169, 105), 8, B
  PAINT (160, 100), 4, 8
 REM BELT
  LINE (120, 120)-(180, 125), 6, BF
  LINE (145, 120)-(155, 125), 14, BF
 REM SHOES
  LINE (110, 180)-(191, 191), 6, BF
  CIRCLE (110, 185), 7, 6
  PAINT (108, 185), 6, 6
  CIRCLE (190, 185), 7, 6
  PAINT (192, 185), 6, 6
 REM PANTS
  LINE (120, 125)-(180, 170), 11, BF
  LINE (115, 170)-(185, 180), 8, B
  PAINT (150, 175), 11, 8
  LINE (150, 125)-(150, 191), 8
 REM EATEN PIZZA
  LINE (170, 147)-(200, 150), 6, BF
  LINE (172, 150)-(198, 150), 14
  LINE (172, 150)-(185, 170), 14
  LINE (198, 150)-(185, 170), 14
  PAINT (185, 160), 14, 14
  CIRCLE (188, 165), 7, 0
  PAINT (188, 165), 0, 0
REM HANDS
 'RIGHT
  CIRCLE (113, 140), 10, 14
  PAINT (113, 140), 14, 14
 'LEFT
  CIRCLE (187, 140), 10, 14
  PAINT (187, 140), 14, 14
 REM SLEEVES
 'RIGHT
  LINE (120, 80)-(105, 95), 4
  LINE (105, 95)-(105, 130), 4
  LINE (105, 130)-(120, 130), 4
  LINE (120, 130)-(120, 80), 4
  PAINT (110, 120), 4, 4
 'LEFT
  LINE (180, 80)-(195, 95), 4
  LINE (195, 95)-(195, 130), 4
  LINE (195, 130)-(180, 130), 4
  LINE (180, 130)-(180, 80), 4
  PAINT (190, 120), 4, 4
 ' CUFFS
  LINE (100, 130)-(125, 135), 8, B
  LINE (175, 130)-(200, 135), 8, B
  PAINT (115, 133), 4, 8
  PAINT (180, 133), 4, 8
 'PLAID PATTERN
 'RIGHT
  LINE (110, 90)-(110, 129), 13
  LINE (115, 85)-(115, 129), 1
  LINE (120, 80)-(120, 129), 13
  LINE (115, 85)-(119, 85), 2
  LINE (105, 95)-(119, 95), 5
  LINE (105, 105)-(119, 105), 2
  LINE (105, 115)-(119, 115), 5
  LINE (105, 125)-(119, 125), 2
  'LEFT
  LINE (180, 80)-(180, 129), 13
  LINE (185, 85)-(185, 129), 1
  LINE (190, 90)-(190, 129), 13
  LINE (181, 85)-(185, 85), 2
  LINE (181, 95)-(195, 95), 5
  LINE (181, 105)-(195, 105), 2
  LINE (181, 115)-(195, 115), 5
  LINE (181, 125)-(195, 125), 2
 SLEEP 7
REM THE NEXT MOMENT...
 LOCATE 8, 7
 PRINT "        "
 REM MOUTH
  LINE (142, 60)-(158, 60), 8
  CIRCLE (150, 60), 2, 8
  PAINT (150, 59), 8, 8
  PAINT (150, 61), 8, 8
 REM EYES
  CIRCLE (140, 40), 5, 8
  PAINT (140, 40), 15, 8
  CIRCLE (160, 40), 5, 8
  PAINT (160, 40), 15, 8
  CIRCLE (140, 40), 2, 11
  PAINT (140, 40), 11, 11
  CIRCLE (160, 40), 2, 11
  PAINT (160, 40), 11, 11
 LOCATE 1, 1
 PRINT "JOE: MMMPH?"
 PRINT "UH-OH...ARE YOU OKAY JOE?"
 SLEEP 8
 CLS
 PRINT "OMIGOSH! HE'S CHOKING!"
 LOCATE 3
 SLEEP 2
 PRINT "QUICK CALL 911!"
 LOCATE 5
 SLEEP 2
 PRINT "WHERE'S JOE'S SON, JOE BOB?!"
 LOCATE 7
 SLEEP 2
 PRINT "TAKING A QUIZ?!"
 LOCATE 9
 SLEEP 2
 PRINT "WHAT KINDA EXCUSE IS THAT?!"
 LOCATE 11
 SLEEP 2
 PRINT "CALL JOE'S MAMA!"
 LOCATE 13
 SLEEP 2
 PRINT "HANG ON JOE!"
 LOCATE 15
 SLEEP 2
 PRINT "ALL (INCLUDING JOE): GASP!"
 SLEEP 9
 CLS
 PRINT "OH-OH NO!"
 LOCATE 3
 SLEEP 2
 PRINT "*SOB* "
 LOCATE 5
 SLEEP 2
 PRINT "JOE?..."
 LOCATE 7
 SLEEP 2
 PRINT "JOE'S DEAD!"
 LOCATE 9
 SLEEP 2
 PRINT "I GUESS IT MEANS..."
 SLEEP 7
 CLS
 LINE (20, 20)-(290, 170), 9, BF
 LOCATE 1, 17
 PRINT "(FRONT)"
 LOCATE 5, 8
 PRINT ".\/.\/.\/.\/.\/.\/.\/.\/."
 LOCATE 7, 8
 PRINT "**PARTY AT JOE'S HOUSE!**"
 LOCATE 10, 8
 PRINT "---EVERYONE'S INVITED!---"
 LOCATE 13, 8
 PRINT "+BRING FRIENDS & FAMILY!+"
 LOCATE 16, 8
 PRINT "BUT DON'T FORGET THE FOOD"
 LOCATE 19, 8
 PRINT "./\./\./\./\./\./\./\./\."
 SLEEP 10
 CLS
 LOCATE 10, 18
 PRINT "!OOPS!"
 LOCATE 11, 16
 PRINT "WRONG SIDE"
 LOCATE 12, 18
 PRINT "*FLIP*"

 SLEEP 5
 CLS
 LOCATE 1, 17
 PRINT "(BACK)"
 LINE (20, 20)-(290, 170), 8, BF
 LOCATE 5, 9
 PRINT ".\/.\/.\/.\/.\/.\/.\/."
 LOCATE 7, 9
 PRINT "** FUNERAL AT JOE'S **"
 LOCATE 10, 9
 PRINT "--- PLEASE ATTEND. ---"
 LOCATE 13, 9
 PRINT "+THE FRIENDS & FAMILY+"
 LOCATE 16, 9
 PRINT "BUT DO NOT FORGET FOOD"
 LOCATE 19, 9
 PRINT "./\./\./\./\./\./\./\."
 SLEEP 10
 CLS
GAMEFINALE:
CLS
SCREEN 13
FOR K = 1 TO 1000
IF K = 100 THEN GOTO 100
COLOR K
PRINT "THE END"; " THE END"; " THE END"; " THE END"; " THE END"
FOR HOLD = 1 TO 500
NEXT HOLD
NEXT K
100 CLS
CALL WELCOME
 END SUB

SUB JOE
SCREEN 13
COLOR 9
'J
LINE (1, 1)-(50, 10), , BF
LINE (20, 10)-(34, 37), , BF
LINE (1, 31)-(34, 39), , BF
'O
LINE (55, 1)-(100, 40), , BF
LINE (70, 10)-(85, 30), 1, BF
'E
LINE (110, 1)-(125, 40), , BF
LINE (110, 1)-(145, 10), , BF
LINE (110, 15)-(145, 25), , BF
LINE (110, 30)-(145, 40), , BF
' APOSTROPHE
LINE (155, 1)-(160, 10), , BF
' S
LINE (170, 1)-(200, 10), , BF
LINE (170, 1)-(185, 23), , BF
LINE (185, 15)-(200, 35), , BF
LINE (200, 30)-(170, 40), , BF

LOCATE 6
PRINT "FANTASTIC FOOD ADVENTURE!"
LOCATE 7
PRINT "WITH GUEST APPEARANCES BY:"
END SUB

SUB PRESENTS
CLS
FOR Q1 = 16 TO 31 STEP 1
COLOR Q1
LOCATE 11, 15
PRINT "PROUDLY PRESENTS"

FOR HOLD = 1 TO 1000
NEXT HOLD
NEXT Q1
SLEEP 1

FOR Q1 = 31 TO 16 STEP -1
COLOR Q1
LOCATE 11, 15
PRINT "PROUDLY PRESENTS"
FOR HOLD = 1 TO 1000
NEXT HOLD
NEXT Q1
SLEEP 2

END SUB

SUB QUIZ
CLS
SCREEN 7
PRINT "GET READY TO TAKE A QUIZ WITH JOE BOB!"
SLEEP 4
REM quiz:
CLS
START:
C = 0
W = 0
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 2)
PRINT N;
NEXT T

LOCATE 11, 35
PRINT "This is a little quiz about"
PRINT "the 'average' person."
SLEEP 3
CLS
PRINT "DO NOT PANIC. "
SLEEP 2
PRINT "WARNING: YOU AND I MAY NOT "
PRINT "AGREE WITH THE CORRECT ANSWERS."
PRINT "BUT IT DOESN'T MATTER, "
PRINT "THEY'RE THE RIGHT ANSWERS "
PRINT "BECAUSE JOE BOB SAYS SO!"
SLEEP 8
CLS
PRINT "OH YEAH JOE BOB SAYS PUT "
PRINT "THE CAPS LOCK ON NOW!"
SLEEP 3

REM Q1
CLS
PRINT "What is the 'average' person's favorite color?"
PRINT "(A) PURPLE"
PRINT "(B) GREEN"
PRINT "(C) BLUE"
PRINT "(D) RED"
INPUT ans1$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 4)
PRINT N;
NEXT T

IF ans1$ = "C" THEN GOSUB CORRECT:
IF ans1$ <> "C" THEN GOSUB WRONG:

REM Q2
CLS
PRINT "What is the 'average' person's favorite food?"
PRINT "(A) PIZZA"
PRINT "(B) CHICKEN"
PRINT "(C) STEAK"
PRINT "(D) PASTA"
INPUT ans2$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 4)
PRINT N;
NEXT T

IF ans2$ = "A" THEN GOSUB CORRECT:
IF ans2$ <> "A" THEN GOSUB WRONG:

REM Q3
CLS
PRINT "What does the 'average' person prefer:"
PRINT "DOGS/CATS?"
INPUT ans3$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 4)
PRINT N;
NEXT T

IF ans3$ = "DOGS" THEN GOSUB CORRECT:
IF ans3$ <> "DOGS" THEN GOSUB WRONG:

REM Q4
CLS
PRINT "What does the 'average' person prefer: "
PRINT "RAP/ROCK?"
INPUT ans4$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 4)
PRINT N;
NEXT T

IF ans4$ = "RAP" THEN GOSUB CORRECT:
IF ans4$ <> "RAP" THEN GOSUB WRONG:

REM Q5
CLS
PRINT "What does not belong?"
PRINT "(A) BANANA"
PRINT "(B) APPLE"
PRINT "(C) CORN"
PRINT "(D) TOMATO"
INPUT ANS5$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 4)
PRINT N;
NEXT T

IF ANS5$ = "C" THEN GOSUB CORRECT:
IF ANS5$ <> "C" THEN GOSUB WRONG:
REM Q6
CLS
PRINT "What does the 'average' person prefer:"
PRINT "BURGER/FRIES?"
INPUT ans6$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 4)
PRINT N;
NEXT T

IF ans6$ = "BURGER" THEN GOSUB CORRECT:
IF ans6$ <> "BURGER" THEN GOSUB WRONG:

REM Q7
CLS
PRINT "What does the 'average' person prefer:"
PRINT "SUMMER or WINTER?"
INPUT ans7$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 4)
PRINT N;
NEXT T

IF ans7$ = "WINTER" THEN GOSUB CORRECT:
IF ans7$ <> "WINTER" THEN GOSUB WRONG:

REM Q8
CLS
PRINT "What does the 'average' person prefer:"
PRINT "their BIRTHDAY/ the winter HOLIDAYS?"
INPUT ans8$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 2)
PRINT N;
NEXT T

IF ans8$ = "HOLIDAYS" THEN GOSUB CORRECT:
IF ans8$ <> "HOLIDAYS" THEN GOSUB WRONG:

REM Q9
CLS
PRINT "What does the 'average' person prefer:"
PRINT "FROSTY the Snowman/ RUDOLF the Red-Nosed Reindeer?"
INPUT ans9$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 2)
PRINT N;
NEXT T

IF ans9$ = "FROSTY" THEN GOSUB CORRECT:
IF ans9$ <> "FROSTY" THEN GOSUB WRONG:

REM Q10
CLS
PRINT "What does the 'average' person prefer:"
PRINT "LYRICS/MUSIC ?"
INPUT ans10$
CLS
REM CODE
COLOR 2
FOR T = 1 TO 3016
N = INT(RND * 2)
PRINT N;
NEXT T

IF ans10$ = "MUSIC" THEN GOSUB CORRECT:
IF ans10$ <> "MUSIC" THEN GOSUB WRONG:
GOSUB ENDING
CORRECT:
C = C + 1
CLS
LOCATE 11, 35
PRINT "Hip-hip-hooray."
SLEEP 1
LOCATE 12, 35
PRINT "You got"; C; "question(s) correct."
SLEEP 1
LOCATE 13, 35
PRINT "Let's just jump up in joy for you!"
SLEEP 3
RETURN

WRONG:
CLS
W = W + 1
CLS
PRINT "STUPID's the ONLY word that explains YOU"
SLEEP 1
PRINT "You got"; W; "question(s) wrong so far."
SLEEP 2
PRINT "What is wrong with you, man?!"
PRINT "Go back to school!"
SLEEP 3
RETURN


ENDING:
CLS
PRINT "CONGRATULATIONS!"
PRINT "YOU FINALLY FINISHED!"
PRINT "YOUR PITIFUL SCORE IS: "
PRINT C; "OUT OF 10 CORRECT"
PRINT " AND"; W; "OUT OF 10 WRONG"
SLEEP 2
IF W > 5 THEN GOTO RESULT:
SLEEP 2
CLS
REPEAT:
PRINT "DO YOU WANT TO REPEAT THIS QUIZ?(Y/N)"
INPUT ANS11$
IF LEFT$(ANS11$, 1) = "Y" THEN GOSUB STARTING:
IF LEFT$(ANS11$, 1) = "N" THEN GOSUB FINAL:

STARTING:
CLS
PRINT "THATS ODD...OKAY..."
PRINT "IF THAT'S WHAT YOU WANT....."
GOSUB START:

FINAL:
CLS
PRINT "FINE! GOOD RIDDANCE!"
SLEEP 4
CLS
CALL WELCOME

RESULT:
SLEEP 1
CLS
PRINT "Oh no! You lost"
SLEEP 2
CLS
PRINT "and in doing so...."
SLEEP 1
CLS
SCREEN 7
 REM JOE HEAD
  CIRCLE (150, 50), 30, 14
  PAINT (150, 50), 14, 14
 REM CHEEKS
  CIRCLE (135, 60), 6, 12
  PAINT (135, 60), 12, 12
  CIRCLE (165, 60), 6, 12
  PAINT (165, 60), 12, 12
 REM NOSE
  CIRCLE (150, 50), 5, 8
 REM MOUTH
  LINE (140, 60)-(160, 60), 8
  LINE (145, 61)-(155, 65), 15, BF
  LINE (150, 61)-(150, 65), 8
 REM EYES
 LINE (135, 36)-(165, 42), 8
 LINE (165, 36)-(135, 42), 8
 REM HAIR
  LINE (115, 40)-(125, 50), 6, BF
  LINE (175, 40)-(185, 50), 6, BF
  LINE (150, 23)-(150, 30), 6
  LINE (140, 23)-(140, 30), 6
  LINE (160, 23)-(160, 30), 6
 REM NECK
  LINE (140, 70)-(160, 80), 14, BF
 REM SHIRT
  LINE (120, 80)-(180, 120), 4, BF
  LINE (150, 80)-(150, 120), 8
 REM PLAID
 'VERTICAL
  LINE (125, 80)-(125, 120), 2
  LINE (130, 80)-(130, 120), 5
  LINE (135, 80)-(135, 120), 2
  LINE (140, 80)-(140, 120), 5
  LINE (145, 80)-(145, 120), 2
  LINE (155, 80)-(155, 120), 5
  LINE (160, 80)-(160, 120), 2
  LINE (165, 80)-(165, 120), 5
  LINE (170, 80)-(170, 120), 2
  LINE (175, 80)-(175, 120), 5
 'HORIZONTAL
  LINE (120, 90)-(180, 90), 1
  LINE (120, 100)-(180, 100), 13
  LINE (120, 110)-(180, 110), 1
  LINE (120, 120)-(120, 120), 13
 REM BUTTONS
  CIRCLE (150, 90), 2, 15
  PAINT (150, 90), 15, 15
  CIRCLE (150, 100), 2, 15
  PAINT (150, 100), 15, 15
  CIRCLE (150, 110), 2, 15
  PAINT (150, 110), 15, 15
 REM POCKET
  LINE (158, 95)-(169, 105), 8, B
  PAINT (160, 100), 4, 8
 REM BELT
  LINE (120, 120)-(180, 125), 6, BF
  LINE (145, 120)-(155, 125), 14, BF
 REM SHOES
  LINE (110, 180)-(191, 191), 6, BF
  CIRCLE (110, 185), 7, 6
  PAINT (108, 185), 6, 6
  CIRCLE (190, 185), 7, 6
  PAINT (192, 185), 6, 6
 REM PANTS
  LINE (120, 125)-(180, 170), 11, BF
  LINE (115, 170)-(185, 180), 8, B
  PAINT (150, 175), 11, 8
  LINE (150, 125)-(150, 191), 8
 REM HANDS
 'RIGHT
  CIRCLE (113, 140), 10, 14
  PAINT (113, 140), 14, 14
 'LEFT
  CIRCLE (187, 140), 10, 14
  PAINT (187, 140), 14, 14
 REM SLEEVES
 'RIGHT
  LINE (120, 80)-(105, 95), 4
  LINE (105, 95)-(105, 130), 4
  LINE (105, 130)-(120, 130), 4
  LINE (120, 130)-(120, 80), 4
  PAINT (110, 120), 4, 4
 'LEFT
  LINE (180, 80)-(195, 95), 4
  LINE (195, 95)-(195, 130), 4
  LINE (195, 130)-(180, 130), 4
  LINE (180, 130)-(180, 80), 4
  PAINT (190, 120), 4, 4
 ' CUFFS
  LINE (100, 130)-(125, 135), 8, B
  LINE (175, 130)-(200, 135), 8, B
  PAINT (115, 133), 4, 8
  PAINT (180, 133), 4, 8
 'PLAID PATTERN
 'RIGHT
  LINE (110, 90)-(110, 129), 13
  LINE (115, 85)-(115, 129), 1
  LINE (120, 80)-(120, 129), 13
  LINE (115, 85)-(119, 85), 2
  LINE (105, 95)-(119, 95), 5
  LINE (105, 105)-(119, 105), 2
  LINE (105, 115)-(119, 115), 5
  LINE (105, 125)-(119, 125), 2
  'LEFT
  LINE (180, 80)-(180, 129), 13
  LINE (185, 85)-(185, 129), 1
  LINE (190, 90)-(190, 129), 13
  LINE (181, 85)-(185, 85), 2
  LINE (181, 95)-(195, 95), 5
  LINE (181, 105)-(195, 105), 2
  LINE (181, 115)-(195, 115), 5
  LINE (181, 125)-(195, 125), 2
LOCATE 1, 10
PRINT "You poisoned Joe Bob!"
SLEEP 3
CLS
LINE (60, 30)-(225, 120), 7, BF
COLOR 4
LOCATE 6, 15
PRINT "R . I . P"
LOCATE 8, 15
PRINT "'Joe Bob'"
LOCATE 10, 14
PRINT "'Son of Joe'"
LOCATE 12, 10
PRINT "KILLED BY A LOSER"
SLEEP 7
CLS
CALL WELCOME

END SUB

SUB WELCOME
SCREEN 0
PRINT "WeLcOmE tO tHe MaIn MeNu:"
PRINT ""
PRINT "PLEASE HAVE THE CAPS LOCK ON TO CONTINUE"
PRINT "WHAT WOULD YOU LIKE TO DO TODAY?"
PRINT ""
PRINT "* play a little 'GAME' with Joe-DAD *"
PRINT "* take a little 'QUIZ' with Joe Bob *"
PRINT "** or 'QUIT' and be a party pooper **"
INPUT REPLY1$
IF REPLY1$ = "GAME" THEN CALL GAME
IF REPLY1$ = "QUIZ" THEN CALL QUIZ
IF REPLY1$ = "QUIT" THEN CALL FINALE

END SUB