#:PG$"RECIPE":NM$"23":18206" NANCY RHODES<"X" CURSOR #23, DEC, 1980~" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017" 9 DEC 80dLU0:MI20:MW20:RE$(MI),WD$(MW)n L$,D: L$ "END" LULU1:110x LU$(LU),LC(LU):DU0F L$,D: L$ "END" DUDU1:140:[ DU$(DU),DC(DU)dLI0L$:L$"END" LILI1:170 LI$(LI)N0:N,D:N0NFNF1:190NFNF2:FR$(NF),FR(NF)AU0L$:L$"END"AUAU1:220AU$(AU) *I1 LU: LU$(I),LC(I):IN D$,D:I1DU:DU$(I),DC(I):IkD$,D:I1LI:LI$(I):ID$:I2NF1:N,D:FR(I)ND"FR$(I)((N),2)"/"((D),2),I:FR$(1)"":FR$(NF)"":FR(NF)16N,D:I1AU:AU$(I):I;"PLEASE ENTER RECIPE AS:.<"QUANTITY UNIT INGREDIENTO="EXAMPLE: 1 1/2 CUP MILK@"PRESS RETURN WHEN ALL THE INGREDIENTS":"HAVE BEEN ENTERED.JSC1:B0:CT0:PO0T1530:IN$""380^CTCT1:RE$(CT)IN$: CTMI 340h"I CAN'T HANDLE MORE THAN";MI;"INGREDIENTS.":|"HOW MUCH DOES THE RECIPE"Q"MAKE OR SERVE?";o1530:M0:RE$(M)IN$:540B1B0:ER$"NOTHING ENTERED":530:400ATT"HOW MUCH DO YOU WANT TO MAKE? ";1530:M0:RE$(M)IN$:540 B1B0:ER$"NOTHING ENTERED":530:4552 MS$RE$(0):SCALETTAU "WANT TO USE THE PRINTER? ";d 1530:"  (IN$,1)"Y"4,4:PO1  (IN$,1)"Y"4,3 M0:RP0 MM1:MCT1420 540:510 1460 W0:RE$RE$(M) & (RE$)0(RE$,1)" "RE$(RE$,2):550: +WMWER$"TOO MUCH TEXT":530J 0I1(RE$)d :(RE$,I,1)" " 610 DWW1:WD$(W)(RE$,I1) NRE$(RE$,I1) X550 b I lWW1:WD$(W)RE$ v FIND QUANTITY TT0:FR0:DIG0 N1 W:R0 K1(WD$(N)) T$(WD$(N),K,1)3 T$"0"T$"9"740] T$"."ER$"NO DECIMAL ALLOWED":530 T$"/"R0ER$"TOO MANY SLASHES":530 T$"/"RK:740 K1ER$"CONFUSING NUMBER":530  810 K R0 DIG0FR0X(WD$(N)):DIG1:800& R0ER$"CONFUSING NUMBER":530W R1R(WD$(N))ER$"CONFUSING NUMBER":530 FR0ER$"TOO MANY FRACTIONS":530 X((WD$(N),R1))((WD$(N),R1)):FR1  X1 ER$"FRACTION TOO LARGE":530 TTTTX:N *FR0DIG0TT1:B1 >TTTTSCALE HM0NW; RNWER$"NO UNIT":530L \ CHECK TYPE[ a M0 970i fIWN1u pJ1LI z WD$(I)LI$(J) 970 J:I INW  J1DU Q$WD$(I):Z$DU$(J) Q$Z$Q$Z$"."Q$Z$"S"Q$Z$"S."960TTTTDC(J):FWI1:1120'J:I:1030:INW:J1LURQ$WD$(I):Z$LU$(J)Q$Z$Q$Z$"."Q$Z$"S"Q$Z$"S."1010TTTTLC(J):FWI1:1080J:I ARBINW:J1AU:WD$(I)AU$(J)TT(TT)J,IUNIT$""$FWN:TEMPTT:1150.OJ0(8JLU11VBUNIT$LU$(J):TEMPTTLC(J): TEMP11150nGLC(J)LC(OJ)OJJLJ:UNIT$LU$(OJ):1150`OJ0:JDU11:TEMPTTDC(J)jUNIT$DU$(J):TEMP11150oDC(J)DC(OJ)OJJtJ:UNIT$DU$(OJ)~M0%FWWER$"NO INGREDIENT":530=NTEMP:I(N):TNIL J1NF1m(FR(J)T)(TFR(J1))1200tJz(FR(J)T)(FR(J1)T)JJ1FR$(J)""IIFR(J)FR$FR$(J): I0 FR$"" FR$((I),2)" "FR$ (FR$,1)" " FR$(FR$,(FR$)1)<UNIT$""TEMP1UNIT$UNIT$"S"e4,FR$;" ";:(FR$)74,7(FR$));4,UNIT$;:(UNIT$)54,5(UNIT$));NFWW:4," ";WD$(N);:N:4: LIQUID UNITS T,1,TEASPN,1,TEASPOON,1,TSP,1( OUNCE,3,OZ,3,TBLSP,3,TABLESPN,3,TABLESPOON,3,TBSP,3,C,24j CP,24,CUP,24,P,48,PNT,48,PINT,48,PT,48,QU,96,QUART,96,QT,96 G,384,GALLON,384,GAL,384( END,2- DRY UNITS2 T,1,TSPOON,1,TEASP,1,TEASPOON,1,TSP,1< TBLSP,3,TABLESPN,3,TABLESPOON,3,TBSP,3F C,24,CP,24,CUP,24,END,50K KNOWN LIQUIDSZP EXTRACT,MILK,WATER,OIL,JUICE,GALLONZ VINEGAR,WINE,SHERRY,BRANDY,LIQUERd COFFEE,CIDER,SYRUP,HONEY,MOLASSESn CREAM,BUTTERMILK,PINT,PINTS,GALLONS,SHOT,SHOTS,PT.,GALs QT,QTS,QT.,QTS.,END!u KNOWN FRACTIONS X,Y,==X/YCx 1,8,1,4,1,3,1,2,2,3,3,4,0,0e} INDIVISIBLE ARBITRARY UNITS EGG,EGGS,DROP,DROPS,PINCH,PINCHES,PINCHS,END4:4,"MAKES/SERVES ";MS$RP0PO01450"WANT TO SEE THE NEW RECIPE AGAIN? ";:1530(IN$,1)"Y"4:4:505#4:K"";ER$;" IN THIS LINE:": RE$(M)p"PLEASE RE-ENTER IT...":"?";yRP11530:"IN$"""PLEASE TYPE IT AGAIN":"?":1490RE$(M)IN$IN$" ":ZTTI:ZC2:ZD$(20)Z$:Z$""15702ZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15<1540k"Z(Z$):ZL(IN$):(Z127)32" ";:1610,FL(Z127)64(Z127)91Z$((Z128)255)6ZL2541540@IN$IN$Z$:Z$;ZD$;Z$;JZ13IN$(IN$,2):CR$;:TZ20ZL1IN$(IN$,ZL1):"";:1540C^Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:1530Mh1540[59468,12&"";15(PG$));PG$;" BY NANCY RHODES0" CURSOR #";NM$;" COPYRIGHT (C) 1980:I110:"";:ID"FOR WHEN YOU HAVE TO FEED AN ARMY...N"PRESS RETURN TO BEGIN2XT$:T$""1880Lb""::CR$(13):100