Squawtime

Source Code

   10 PRINT "LOADING": BORDER 2: LOAD "SQUATIMSCR"SCREEN$ 
   15 POKE 23658,8
   20 PAUSE 280: CLS : PRINT AT 5,4;"THESE recipes do NOT begin.."
   25 PRINT AT 10,4; INK 3;"Steal one chicken"; INK 0;AT 15,4;"THESE are TEXAS recipes": PAUSE 340: CLS 
   30 PRINT AT 10,5; INK 2;"RUSTLE 3 LBS. PECANS": PAUSE 160: PRINT AT 19,0;"Just tidying up under the tree.": INK 9
   35 PAUSE 280
   40 CLS : PRINT AT 2,14;"MENU";''"1. PECAN PIE";''"2. PECAN PRALINES";''"3. PECAN BRITTLE";''"4. PECAN DIET LOAF";''"5. PECAN PREACHMENTS"
   45 INPUT ''"CHOOSE BY NUMBER ";C$
   50 IF C$="" THEN GO TO 45
   55 LET C=VAL C$: GO TO 100*C
  100 CLS : REM PECAN PIE RECIPE
  101 PRINT '"EASY BUT EXPENSIVE PECAN PIE----BEST YOU OWN A GUNNY SACK"
  105 PRINT '"1+1/8 C. SUGAR";'"1/4 C. BUTTER OR MARGARINE";'"1/2 C. WHITE OR DARK KARO SYRUP";'"3 EGGS WELL-BEATEN";'"1 C. PECANS"
  108 PRINT '"MOST TEXANS PREFER THE DARK KARO"
  110 PRINT '"IF USING BOUGHT PIE CRUST, PAN  WILL BE SMALL SO USE 4 EGGS & 2 C. PECANS & MAKE 2 PIES."
  115 PRINT '"BRING SUGAR, SYRUP, & BUTTER TO BOIL IN SAUCEPAN. COOL WELL.    BEAT EGGS & ADD TO MIXTURE; BEATAGAIN; ADD PECANS; POUR INTO UN-BAKED PIE SHELLS & BAKE FOR 50' AT 350 DEGREES. COOL & SLICE."
  198 GO SUB 9990
  199 GO TO 40
  200 CLS : REM PECAN PRALINE RECIPE
  201 PRINT '"PECAN PRALINES--BEST YOU OWN A  CANDY THERMOMETER"
  203 PRINT '"FORGET GRANDMA'S IRON SKILLET   FOR CARMELIZING SUGAR--BAKING   SODA IS CATALYST."
  205 PRINT '"2+1/3 C. SUGAR";'"1/8 tspn. BAKING SODA";'"1/3 C. WHITE KARO SYRUP";'"3/4 C. EVAP. MILK";'"1 tspn. VANILLA     3 C. PECANS"
  210 PRINT '"BOIL SUGAR, SYRUP, SODA, & MILK IN MED. SAUCEPAN. STIR CONSTANT-LY TILL 238 DEGREES. OFF STOVE, STIR IN VANILLA & PECANS. DROP  BY SPOONFUL ONTO WAXED PAPER.   LET STAND TILL FIRM---3-4 HRS.  STORE IN COVERED CONTAINER."
  298 GO SUB 9990
  299 GO TO 40
  300 CLS : REM PECAN BRITTLE
  302 PRINT "PECAN BRITTLE--BEST BRITTLE BY  FAR"
  304 PRINT '"2 C. PECANS";'"2 C. SUGAR";'"1/2 C. HOT WATER";'"1 C. WHITE KARO";'"2 tspn.SODA"
  306 PRINT '"BRING TO BOIL ALL INGREDIENTS   EXCEPT SODA. TURN HEAT TO MED. &CONTINUE TO BOIL 25-30 MIN. STIROCCASIONALLY. SYRUP MUST BE DARK& THICK--238 DEGREES. OFF HEAT  ADD SODA QUICKLY TO MIX. ZIPPILYPOUR ONTO BUTTERED COOKIE SHEET.COOL. HARDENS QUICKLY."
  398 GO SUB 9990
  399 GO TO 40
  400 CLS : REM PECAN DIET LOAF
  401 PRINT '"PECAN DIET LOAF--BEST YOU CAN DOON PENANCE DAYS"
  402 PRINT ''"TAKE 1 PECAN-HALF, SHELLED, ROOMTEMPERATURE.  PLACE FLAT SIDE   DOWN ON CHOPPING BOARD.  WITH   SHARP KNIFE SLICE CROSSWISE TO  THE LENGTH OF PECAN-HALF AS YOU WOULD SLICE A MEATLOAF.  SLICE  THINLY ACROSS THE GRAIN.  PLACE ON UNBUTTERED PLATTER.  YOU MAY HAVE PORTIONS ALL DURING THE DAYTILL ENTIRE DIET LOAF IS CON-   SUMED.  TWEEZERS ARE PERMITTED."
  408 PAUSE 1500: GO SUB 8000
  410 FLASH 0: GO TO 40
  500 CLS : PRINT '" Calorie countS for pecan pie,  pralines, & brittle are unknown.";''"  I don't WANT to know."
  503 PAUSE 360: PRINT AT 10,5;"IF YOU COUNT CALORIES,";AT 14,5;"COUNT TO YOURSELF!"
  505 STOP 
 8000 CLS : RESTORE : REM 6-PART UDG OF PECAN DIET LOAF
 8002 FOR a=65368 TO 65375: READ n: POKE a,n: NEXT a
 8004 FOR b=65376 TO 65383: READ n: POKE b,n: NEXT b
 8006 FOR c=65384 TO 65391: READ n: POKE c,n: NEXT c
 8008 FOR d=65392 TO 65399: READ n: POKE d,n: NEXT d
 8010 FOR e=65400 TO 65407: READ n: POKE e,n: NEXT e
 8012 FOR f=65408 TO 65415: READ n: POKE f,n: NEXT f
 8021 DATA 128,64,32,16,0,0,0,7
 8022 DATA 129,66,36,0,0,0,0,255
 8023 DATA 1,2,4,8,0,0,0,128
 8024 DATA 14,25,55,111,240,192,221,127
 8025 DATA 0,0,255,255,1,3,135,255
 8026 DATA 128,128,128,128,128,252,254,255
 8110 PAPER 6: FLASH 1: PRINT AT 19,14;"\a\b\c";AT 20,14;"\d\e\f"
 8115 PAPER 7: INK 0
 8120 FOR V=0 TO PI STEP PI/90: PLOT 127+127*COS V,0+127*SIN V: NEXT V
 8130 FOR V=0 TO PI STEP PI/90: PLOT 127+105*COS V,0+105*SIN V: NEXT V
 8150 PRINT AT 1,1;"PECAN DIET LOAF--ANYWAY YOU     SLICE IT, YOU'RE LEAN FOR A DAY": PAUSE 380
 8200 RETURN 
 9990 REM COPY OR RETURN TO MENU
 9991 INPUT "COPY OR RETURN TO MAIN MENU? C/R?";R$
 9992 IF R$="" THEN GO TO 9991
 9993 IF R$="C" THEN COPY 
 9995 RETURN 
 9997 STOP 
 9998 SAVE "SQUAW-T" LINE 10: PRINT "RE-LOAD ""SQUATIMSCR"" SCREEN$ ";'"GOTO 9999 WHEN READY TO SAVE": STOP 
 9999 SAVE "SQUATIMSCR"SCREEN$