DATA 1 stick butter (softened)
DATA 1 stick margarine (softened)
DATA 3/4 cup granulated white sugar
DATA 3/4 cup packed brown sugar
DATA 1 extra large egg
DATA 1 extra large egg
DATA 2 teaspoons vanilla extract
DATA 2 1/4 cups all-purpose flour
DATA 1 teaspoon baking soda
DATA 1 teaspoon salt
DATA 2 cups Semi-Sweet Chocolate Morsels/Chips
DATA Small Nail File (to taste)
COLOR 7: CLS
Oven = (preheat + 1) * 375
FOR n = 1 TO 4
READ q$
LargeBowl$ = LargeBowl$ + q$
NEXT n
GOSUB Cream
'add eggs
FOR n = 1 TO 2
READ q$
LargeBowl$ = LargeBowl$ + q$
NEXT n
'add vanilla
READ q$: LargeBowl$ = LargeBowl$ + q$
GOSUB Beat
FOR n = 1 TO 3
READ q$
DryIngredient$ = DryIngredient$ + q$
NEXT n
GOSUB Sift
LargeBowl$ = LargeBowl$ + DryIngredient$
GOSUB Fold
'add chips
READ q$: LargeBowl$ = LargeBowl$ + q$
GOSUB Mix
GOSUB DropBatter
GOSUB Bake
'cool
SLEEP 5 'they cool Fast!
GOSUB Eat
SLEEP 1
END
Cream:
LargeBowl$ = "Ingredients combined and ready for eggs..."
RETURN
Beat:
LargeBowl$ = LargeBowl$ + IkeTurner$ 'Aww, no!
RETURN 'No! Don't go back to him! Be strong, Girlfriend!
Sift:
SLEEP 5
FOR n = 1 TO 5
IF LEN(DryIngredient$) > 2 THEN
FOR q = 1 TO LEN(DryIngredient$) - 1
IF INT(RND * 2) = 1 THEN MID$(DryIngredient$, q, 2) = MID$(DryIngredient$, q, 1)
NEXT q
END IF
NEXT n
Fold:
LargeBowl$ = LargeBowl$ + OrigamiCrane$
RETURN
Mix:
LargeBowl$ = "Batter" 'Damn You, Ike Turner!
RETURN
DropBatter:
COLOR 7
x = INT(RND * 25) + 1
READ q$
FOR n = 1 TO 25
IF n = x THEN PRINT LEFT$(LargeBowl$, 3) + "[" + q$ + "]" + RIGHT$(LargeBowl$, 3), , ELSE PRINT LargeBowl$, ,
NEXT n
RETURN
Bake:
COLOR 4
LOCATE 23, 1: PRINT TAB(15); "("; STRING$(50, 219); ")"
SLEEP 2
COLOR 12
LOCATE 23, 1: PRINT TAB(15); "("; STRING$(50, 219); ")"
SLEEP 4
Cookie$ = "Cookie"
GOSUB BatterIsCookies
SLEEP 2
PALETTE 12, 0
RETURN
BatterIsCookies:
LOCATE 1, 1
COLOR 6
FOR n = 1 TO 25
IF n = x THEN PRINT LEFT$(Cookie$, 3) + "[" + q$ + "]" + RIGHT$(Cookie$, 3), , ELSE PRINT Cookie$, ,
NEXT n
RETURN
Eat:
FOR y = 1 TO 12
FOR x = 1 TO 80 STEP 10
LOCATE y, x: PRINT SPACE$(10); : t = TIMER + .15: DO: LOOP UNTIL TIMER > t OR TIMER + .15 < t
NEXT x
NEXT y
SLEEP 1: COLOR 7: LOCATE 7, 29: PRINT "BURRRRRRP!"
t = TIMER + .5: DO: LOOP UNTIL TIMER > t OR TIMER + .5 < t
LOCATE 7, 29: PRINT SPACE$(10)
LOCATE
RETURN
|