QQBRFRACFRTTAEMEAMAECONMCONUCONIINGINGUNXINGQUNRECIPEFILENAMECLEANUMNOTITLCPRTCONTHEMECH1CH2INDISWRAUROCOPRSUSIINQUANINII1INGINDIXWOXWVLWIUNDQDIFMIBESDIFIOCODILEAnn --9WZZA 8 A tA  && tAJA&& B@V A' 5Ae 9A A @@AA @!@"@W#@ $%@&@'()*+@,@-@./01234567@89:;<@=@ >@? RECIPE MULTIPLIERBY JAMES W. BROWN (c) 1986, ANTIC PUBLISHING(: +6-@.F:B2y,"@:6-2 A<=@A+B7tA=@wF$d#9@",#DECIML FRACTIONSe#;A,#STRING FRACTIONSf);@,;@,)INPT SCRTCHg);@E,;@0,)UNITS ABBRVh&;A5,;@,&UNITSTXTi'9@ ,9@,'CONV FACTj$9@,$ENG TO MET VOL,WT%;@8,%INPUT ING. SCRATCH;A@,INGREDIENTS!9@0,!ING UNITS INDX9@0,ING QUANTITY;@8,RECIPE NAME;@,' @`6-B'CLEAR TRAPS"6-@V"# NOTES IN THEME&&;@ ,;@2,9@R, 9,9@,9@,BB.125,.25,.33333,.375,.5,.625,.66667,.75,.875,1.,1.25,1.33333::1.5,1.66667,1.75,2.,2.25,2.33333,2.5,2.66667,2.75,3.HH1/8 ,1/4 ,1/3 ,3/8 ,1/2 ,5/8 ,2/3 ,3/4 ,7/8 :REM NO QUOTS))1 ,1 1/4,1 1/3,1 1/2,1 2/3,1 3/4332 ,2 1/4,2 1/3,2 1/2,2 2/3,2 3/4,3 :REMGGtsp. ,tbsp.,fl.oz,c. ,pt. ,qt. ,gal. ,oz. ,lb. :REM ENGLISH44ml. ,cl. ,dl. ,l. ,g. ,kg. :REM METRICteaspoon(s) :REMtablespoon(s) :REMfluid ounces :REMcup(s) :REMpint(s) :REMquart(s) :REMgallon(s) :REMounce (net wt.):REMpound(s) :REMmilliliter (ml):REMcentiliter :REMdeciliter :REMliter :REMgram (g or gm.):REMkilogram (kilo):REM1,3,6,48,96,192,768,1,161,10,100,1000,1,10006DD-32,0,0,128,160,32,0,128,-32,0,0,0,32,128,160,128,160,0,32,1607660,128,160,32,0,128,0,32,0,128,160,32,0,128,0,-328AA-32,128,160,32,128,160,-32,128,128,-32,128,160,32,128,160,0:NOTES FOR THEME--;66121,96,81,60,40,47,40,60,91,72,60,45,29,35,29,45<AA243,193,162,121,81,96,81,121,182,144,121,108,121,108,91,182=99121,108,96,91,81,72,64,60,60,64,72,81,91,96,108,121> 121,108,96,91,81,72,64,121@243,182,60,45,243,60,243A193,144,47,35,193,47,193MAIN PROGRAM ALOAD ARRAYS ATITL SCREEN AINTRO A STEP 1-INP.UNITS#! A0# A5! A!STEP 2-ENTER RECP ! A!STEP 3-MULTIPLIER A% STEP 4-OUT.UNITS! A&!STEP 5-NEW RECIPE A)WRAPUP MENUGGAEAuAAA AeApA$) A5 APSAVE. A1 APPRINT3- A AE-CHG MULT, RECOMPUTE8B6-@& AEBCHANGE OUTPUT UNITS METRIC<->ENGLISH=. Ap AP.CHANGE AN INGREDIENTG AFINALEKLLOAD ARRAYSN.AR@'-@@.(>Q9 #A!-@@"%".68,-2 9(>VI #A!-@@"%">67@$&@,.B I(>[I #A !-@@ %">67@$&@,.B I(>`I #A0!-@@%">67@$&@,.B I(>eI #A@!-@@ %">67@$&@,.B I(>jI #AP!-@@%">67@$&@,.B I(>o9 #A`!-@@ %".68,-2 9(>t9 #Ap!-@@%".68,-2 9(>y9 #A!-@@R%".68,-2 9(>~3 #A-@"(68,-, 3(>9 #A !-@@%".68,-2 9(>9 #A!!-@@%".68,-2 9(>B68,-@-68,-@B68,-@) 68@,-A C`'A)ML/TSP' 68@,-AT'@'G/OZ 6.P:(> @`6. RECIPE MULTIPLIER**6. ANTIC MAGAZINE JAMES W. BROWN $TITLE PAGE# +@6-@# @`%-@@ %6-%@)!@6-&@)6-@@:7,,%8, , 6-@%-@@2%6-%@)!@6-&@)6-@@:7,,%8%@ , , -@6-P:+%@,'@,""28,@@A"2@8,@@A2@8,@@k0@30@%@@O0@%@@k0@%@@ -@@  7-@327 $1 +AR@) @`1INTROT-(%}RECIPE MULTIPLIER helps you increaseT("or decrease your favorite recipes.!((Here are the steps:!(#--(%1. Decide whether the original recipe$+(( uses English or Metric units.+((--(%2. Enter the recipe into the computer)+(( (Enter up to 30 ingredients.)+(-))(!3. Decide by how much you want to..+(# increase or decrease the recipe..(2**("4. Decide whether you want the new3+(( version in English or Metric.+(7--(%5. The computer will give you the new8++(# recipe quantities. Jot them down9-*(" in the margin of your cookbook.-(<26-@&6-26-A AK(}PRELIMINARIES(PP*("Before beginning, you will find itP(!helpful to examine your recipe toUR,($find ALL the ingredients. Most cook-R(!books are careful to list all theZS*("ingredients in one place. However,S($sometimes you will find a few hiding_))(!down in the cooking instructions.dV(-("When you have found all the ingre-V($dients, mark each one with a number,iO+(#starting with 1. This will help youL(keep track of where you are.O(w A$xINPUT UNITS}(}SELECT INPUT UNITS(%%(If your original recipe is in0-(%U.S. (ENGLISH) units, enter Š0(0-(%If it is in METRIC units, enter ͠0(0-(%To load a recipe from DISK, enter Ġ0(0-(%If you need HELP to decide, enter Ƞ0(# ((Enter only one letter.)#(..(&Always press after every entry. A 4E6-@$ 4M6-@$ 4D6-@$ 0H A0 A""HELP FOR ENGLISH/METRIC/DISKT,($}If your recipe contains things likeT(#cups, ounces, pounds, or teaspoons,(it is ENGLISH.(R)(!If it contains things like grams,R($kilograms (kilos), milliliters (ml), (liters, it is METRIC. (U,($If there are some of each, take yourU($cookbook back to the bookstore for a@)(!refund. The recipes are probably=(no good anyway.@(N(( If you have previously used thisN(!program to save a recipe to disk,/,($you can read it back and work on it./( A AMULTIPLIER(}CHOOSE MULTIPLIER(O)(!Here you must decide how much youO(!want to increase or decrease yourV,($recipe by. For example, if you wantS("to double it, the multiplier is 2.V(;(( There are two ways to choose the8( multiplier:;(K-(%Enter ͠ if you know what multiplierH( you want, orK(J&(Enter Ӡ if you know how manyG( servings you want.J( A4MAP 0S A0 ABY SERVINGS#6-@#!A@6-@F (} (,(How many servings does yourF(original recipe make A I @5(!PLEASE ENTER A NUMBER AT LEAST 1.? A0I A05(((How many servings do you want5(to make A I @5(!PLEASE ENTER A NUMBER AT LEAST 1.? A0I A@  6-' ABY NUMBERU*("}Select the multiplier you want byR(#entering the letter in front of it:U(6-@:A,%-@@%6-$@\\(>:&@%,- 7&@<, >:%@%,- 7%@Q<%@U, -*(" W-Enter as a decimal-( /(Letter for selection%6.?/ A"11A*/V'6-8@:,&%@,1 A' 0W A0 AP,;(How much do you want to;(multiply the recipe by. A 1 A6  A  A5;  A  A@<  A  A>)((The multiplier is ) A?$@ RECIPEE  }ENTER RECIPE(JH'(In this step you will enter theH(ingredients for your recipe:O0(0(%-Enter the AMOUNT of each ingredient.Q0(0(%-Enter the UNITS it is measured with.TN(,(!-Enter the NAME, so you will knowN( what the later results mean.VT(/($-Verify or modify the entry. If youT( make a mistake, you will have aYS*(" chance to fix it before going on.S($ You will also have a chance to make[9+(# changes at the end, and review the9( results.^Z(-("There will be a separate screen toW(%lead you through each of these steps.Z(c Ah1 (} (.(Each ingredient has 3 parts--1(j(Quantityl( | Unitsn( | | Namep!!(   r( 1/2 cup sugart( 3 eggsv( 1/8 tsp. saltx''( 1 can condensed milkzJ(((Notice that some items do notJ(have units (eggs, can, etc.).|I'(When you have things like this,I(select 'piece' for the units.(( A6-(6-@INGREDIENT LOOP Aq ENTER AN INGRED.'"6-&@' A@0A6-%@ Ap 6- $QUANTITY&#(}QUANTITY FOR INGREDIENT &(R'(Select the quantity you want byO(#entering the letter in front of it:R(6-@:A,%-@@%6-$@\\(>:&@%,- 7&@<, >:%@%,- 7%@Q<%@U, **(" W-Enter as a decimal++(# X-Show previous entry++(# Z-No more ingredients6-@:A,*( (Letter for selection* A11A*/V'6-8@:,&%@,1 A0XApH @4( THERE IS NO PREVIOUS INGREDIENT.> A0H A=6-&@ A!% A36-%@= A! 4Z6-! AJ 0W6(&Please enter one of the letters above.@ A0J AP(What is the quantity A  A  A  A$(The quantity is $ A$lGET UNITSq)&(}ENTER UNITS FOR INGREDIENT )(vX-(%Select the measuring unit you want byU(#entering the letter in front of it:X({M6-@:A,$6-@&@$MLOOP LIMIT 6 FOR METRIC, 9 FOR ENGLISH-@$6-$@$6.7&@<,""@"6.7&@<,(>:&@%,-  (P- piece (or can, etc.)&((Letter for units& A6-%&@(1A*/>:,%6-@:,&%@($ 4P6-$ A0 A4DISPLAY INGREDIENT(ING)>6-8,$@@&&6.7$@8&@7<$@8,C%"6.piece% A!5H,"@"6.7&@<,, A!5R6.7&@<,W5"1(# - 8,  of --5(\:"@: @# - 8,  of $GET INGREDIENT NAME!(}NAME OF INGREDIENT !(V,($To save time, you can abbreviate theV(%name of the ingredient. The computer^,($does not know the difference betweenN(an 'EGG, LIGHTLY BEATEN', and[(an 'EG'.^(O)(!This part of the entry is just toL(help you keep things straight.O(;(Using one line only,8(enter the ingredient --;( A"  A$  A0 A"0 OUTPUT UNITS (}SELECT OUTPUT UNITS( %%(If you want the new recipe in .+(#U.S. (ENGLISH) units, enter Š.( ++(#If you want METRIC units, enter ͠ ( ..(&Always press after every entry. A  4E6-@$  4M6-@$ "("(PLEASE ENTER Š OR ͠  A0 A%( NEW RECIPE- ( }NEW RECIPE. P @(<(%YOU HAVE NOT ENTERED ANY INGREDIENTS.F A0P A&2 O(+( The new recipe will be displayedO(one ingredient at a time, using4 O)(!several different combinations ofO(!quantity and units. All of these6 S)(!will be approximately equivalent.S(%(You should be aware that most recipe8 ))(!quantities are only approximate.)< f(+( Jot down the one combination youS(#feel most comfortable with for eachc( ingredient.f(F # A6-# A2 $ ##DISPLAY COMBINATIONS OF UNITS *"'(QUANTITY UNITS*( 6-8, 6-8,$ /6-@&@$/6-@&@$ !6-@!6-@ "6- "@6-$8, "@6-$8, ))&%@A'2A'8A'4 6-$8, A'8 6-'8, QUAN IN OUTPUT BASE UNITS ''%@A'BA'DA'F %6-6-% A'H '6-@6-&@' A'H  6-6-%@ I1,I2 UNITS LIMITS 6- - "@6-'8, "@6-'8, !?A'` ,"*""( Tiny pinch, A' " "" @ Tiny pinch A' ''!+A $&A p,* A' ! A(!FIND CLOSEST FRAC ("@( @   "(   -6-$@6-$@-6-%@ ,"6.piece"6., A' 5"@"6.7&@<,56.7&@<, 5"@"6.7&@<,56.7&@<, #"@# @-- "(--   "( "@ @ $ T$ = CLOSEST FRAC TO Q2 '6-@6-'6.pinch W"@36.=:P:A$%?P,'A,= AT6.7@<@,W$ 0$!?* ?$8@,06.1/16  "" ?$8@,A( ""!@$8@",A( -@@" 6-O:&8,,   6-6-  " :!* ?0'6-$@:6.7&@<,6 A(@ HANDLE BIGGER STUFFE -!@ `#6.=:P:%?P,,- A(J 6.=:P:@$,'@,S $T WRAPUPY ( }ALL FINISHED(^ $$(What do you want to do next?c ((((A- Show the new recipe again.h .(.(#B- Change multiplier and recompute.m )()(C- Change the new recipe from o 6.ENGLISH6.METRICp *!@6.METRIC*6.ENGLISHr (  to .w #(#(D- Change an ingredient.| +(+( E- Start over with a new recipe. "("(F- Save recipe to disk. ((G- Print recipe. &(&(H- Get back to the kitchen. *( (Letter for selection* A 6-@:A, .1A*/H$6-@:,&%@. A)  A0 A) $ READ A RECIPE FROM DISK 6-@ A@ "A0 A0p @   (Reading recipe:(( -@  A0p@   @` 68,- 68,- &&67$@8&@7<$@8,.   A @$   -(-("FILE READ ERROR. THE FILE MAY NOT $$(BE A RECIPE MULTIPLIER FILE. "6-6-"6. @ A0 $ PRINT RECIPE! ! A7!"A1& !@ A1!6.P:+ 3()(POSITION PAPER TO TOP OF FORM.3 A0 1#@@P:' 1 @`5  @ @:  @ @? // @Original makes  servings.D 33 @Conversion makes $ servings.l =6-@ A2%6-0@: @`=$v  6-@ A{ "@A1 $ CONVERTED RECIPE -@ &&6.7$@8&@7<$@8, 6""( }INGREDIENT %()(,(6 A25 < @< @------- INGREDIENT  -------  @ @ 6-8,$@ %"6.piece% A2U ""@"6.7&@<, "!@"6.7&@<, ^"(8, 5( multiplied by Q( converts to any of:T(^ A2 OD @8,  multiplied by  converts to any of:O @ # A'"# A   $ WRITE RECIPE TO DISK  A7"$ 6-@ A@ "$ A5 "" @,,, -@ ?? @8,,8,,7$@8&@7<$@8,    @ @`$  @ @`.(.(FILE WRITE ERROR. CODE F:A, A0$tCHECK RECIPE READYy!A7 ~/(/($NO RECIPE IN MEMORY. YOU MUST ENTER11()A RECIPE BEFORE YOU CAN SAVE OR PRINT IT. A0$!!"@)"@A7@.(.(#YOU MUST SPECIFY WHETHER THE RECIPE&&(IS IN ENGLISH OR METRIC UNITS. A0 A!A7`6-@F (} (,(How many servings does yourF(original recipe make A7 I @5(!PLEASE ENTER A NUMBER AT LEAST 1.? A0I A7BB:,!$@(}Using one line only,@(enter the name of this recipe: A7  A6.$  A  A7E  A0 A7`OPEN DISK FILE(}FILE SELECTION(Q,($Enter a file name up to 8 charactersQ( long, with an optional extender.N&(Include the disk drive number.)(K(For example: D1:BEEFSTEW.RECN(-( File name-B:, @A@ A@@%@%@  @`$ @ AA@@$XCHANGE AN INGREDIENT](} # INGREDIENT(b:"-(THERE ARE NO INGREDIENTS.7 A0:$l-@v33(- 7$@8&@7<$@8&@,{ **(%@- Add another ingredientG(/($What is the number of the ingredientG(you want to change Ap X @)!%@D($Please enter a number from the list.N A0X Ap"%@6- Aq$  A  ApENTER INGREDIENT #ING! A!"Aq 68,- A68,- A"&&67$@8&@7<$@8,.( }INGREDIENT ( A!0AR(0(Enter ٠ if OK, or((Enter Π to change.((OK  A*(+4Y)4N, (* Aq`0YAqAR@$@ DELAYA,0@@@,GREEN BORDERB-@@C""28,@@D-@@ E G?0@?2I$JWAIT FOR RETURNK+0@@@+BLUE BORDERL##(Press Π when ready--N*@*0@S @`$TNUMERIC ERRORY&&(Please enter a decimal number.^ANY ERRORc*0@@@*RED BORDERh-@@m//2A6%@$@@r-@@ w |?0@?2$INPUT LETTER TO T$, AA@d,FORCE CAPS*A*CLEAR INVERSE FLAGAR B:,@AE 6-@:,!A(&6-&A(/6.>:,ECLEAR INVERSE VIDEO1A*/ZA3 )(Please enter a single letter.3 A0 A 20@/AR@2$ EXTEND I$ WITH BLANKS 6-B:,%@ !@8$& 67,.  Al OPEN ERRORv =(=(FILE OPEN ERROR. CHECK DEVICE 7@<@, !!(ERROR CODE IS F:A, A0 ( (To abandon, enter  ( (To retry, enter Ҡ ! A4A!6- $ D1:RECIPE.BAS