RECIPE

00000000: 01 04 23 04 00 00 9C 3A  50 47 24 B2 22 52 45 43  |..#....:PG$."REC|
00000010: 49 50 45 22 3A 4E 4D 24  B2 22 32 33 22 3A 89 31  |IPE":NM$."23":.1|
00000020: 38 32 30 00 36 04 01 00  22 20 4E 41 4E 43 59 20  |820.6..." NANCY |
00000030: 52 48 4F 44 45 53 00 3C  04 04 00 22 00 58 04 05  |RHODES.<...".X..|
00000040: 00 22 20 43 55 52 53 4F  52 20 23 32 33 2C 20 44  |." CURSOR #23, D|
00000050: 45 43 2C 20 31 39 38 30  00 7E 04 06 00 22 20 43  |EC, 1980.~..." C|
00000060: 4F 50 59 52 49 47 48 54  28 43 29 31 39 38 30 20  |OPYRIGHT(C)1980 |
00000070: 54 48 45 20 43 4F 44 45  20 57 4F 52 4B 53 00 9F  |THE CODE WORKS..|
00000080: 04 07 00 22 20 42 4F 58  20 35 35 30 2C 20 47 4F  |..." BOX 550, GO|
00000090: 4C 45 54 41 2C 20 43 41  2E 20 39 33 30 31 37 00  |LETA, CA. 93017.|
000000A0: A5 04 08 00 22 00 B4 04  0A 00 8F 20 39 20 44 45  |...."...... 9 DE|
000000B0: 43 20 38 30 00 DA 04 64  00 4C 55 B2 30 3A 4D 49  |C 80...d.LU.0:MI|
000000C0: B2 32 30 3A 4D 57 B2 32  30 3A 86 52 45 24 28 4D  |.20:MW.20:.RE$(M|
000000D0: 49 29 2C 57 44 24 28 4D  57 29 00 00 05 6E 00 87  |I),WD$(MW)...n..|
000000E0: 20 4C 24 2C 44 3A 8B 20  4C 24 20 B3 B1 22 45 4E  | L$,D:. L$ .."EN|
000000F0: 44 22 A7 20 4C 55 B2 4C  55 AA 31 3A 89 31 31 30  |D". LU.LU.1:.110|
00000100: 00 16 05 78 00 86 20 4C  55 24 28 4C 55 29 2C 4C  |...x.. LU$(LU),L|
00000110: 43 28 4C 55 29 3A 00 1F  05 82 00 44 55 B2 30 00  |C(LU):.....DU.0.|
00000120: 46 05 8C 00 87 20 4C 24  2C 44 3A 20 8B 4C 24 20  |F.... L$,D: .L$ |
00000130: B3 B1 22 45 4E 44 22 A7  20 44 55 B2 44 55 AA 31  |.."END". DU.DU.1|
00000140: 3A 89 31 34 30 3A 00 5B  05 96 00 86 20 44 55 24  |:.140:.[.... DU$|
00000150: 28 44 55 29 2C 44 43 28  44 55 29 00 64 05 A0 00  |(DU),DC(DU).d...|
00000160: 4C 49 B2 30 00 85 05 AA  00 87 4C 24 3A 8B 4C 24  |LI.0......L$:.L$|
00000170: B3 B1 22 45 4E 44 22 A7  20 4C 49 B2 4C 49 AA 31  |.."END". LI.LI.1|
00000180: 3A 89 31 37 30 00 93 05  B4 00 86 20 4C 49 24 28  |:.170...... LI$(|
00000190: 4C 49 29 00 B3 05 BE 00  4E B2 30 3A 87 4E 2C 44  |LI).....N.0:.N,D|
000001A0: 3A 8B 4E B3 B1 30 A7 4E  46 B2 4E 46 AA 31 3A 89  |:.N..0.NF.NF.1:.|
000001B0: 31 39 30 00 CF 05 C8 00  4E 46 B2 4E 46 AA 32 3A  |190.....NF.NF.2:|
000001C0: 86 46 52 24 28 4E 46 29  2C 46 52 28 4E 46 29 00  |.FR$(NF),FR(NF).|
000001D0: D8 05 D2 00 41 55 B2 30  00 F8 05 DC 00 87 4C 24  |....AU.0......L$|
000001E0: 3A 8B 4C 24 B3 B1 22 45  4E 44 22 A7 41 55 B2 41  |:.L$.."END".AU.A|
000001F0: 55 AA 31 3A 89 32 32 30  00 05 06 E6 00 86 41 55  |U.1:.220......AU|
00000200: 24 28 41 55 29 00 0B 06  F0 00 8C 00 2A 06 FA 00  |$(AU).......*...|
00000210: 81 49 B2 31 A4 20 4C 55  3A 87 20 4C 55 24 28 49  |.I.1. LU:. LU$(I|
00000220: 29 2C 4C 43 28 49 29 3A  82 49 00 4E 06 04 01 87  |),LC(I):.I.N....|
00000230: 20 44 24 2C 44 3A 81 49  B2 31 A4 44 55 3A 87 44  | D$,D:.I.1.DU:.D|
00000240: 55 24 28 49 29 2C 44 43  28 49 29 3A 82 49 00 6B  |U$(I),DC(I):.I.k|
00000250: 06 0E 01 87 44 24 2C 44  3A 81 49 B2 31 A4 4C 49  |....D$,D:.I.1.LI|
00000260: 3A 87 4C 49 24 28 49 29  3A 82 49 00 8C 06 18 01  |:.LI$(I):.I.....|
00000270: 87 44 24 3A 81 49 B2 32  A4 4E 46 AB 31 3A 87 4E  |.D$:.I.2.NF.1:.N|
00000280: 2C 44 3A 46 52 28 49 29  B2 4E AD 44 00 AF 06 22  |,D:FR(I).N.D..."|
00000290: 01 46 52 24 28 49 29 B2  CA 28 C4 28 4E 29 2C 32  |.FR$(I)..(.(N),2|
000002A0: 29 AA 22 2F 22 AA CA 28  C4 28 44 29 2C 32 29 00  |)."/"..(.(D),2).|
000002B0: D4 06 2C 01 82 49 3A 46  52 24 28 31 29 B2 22 22  |..,..I:FR$(1).""|
000002C0: 3A 46 52 24 28 4E 46 29  B2 22 22 3A 46 52 28 4E  |:FR$(NF)."":FR(N|
000002D0: 46 29 B2 31 00 F0 06 36  01 87 4E 2C 44 3A 81 49  |F).1...6..N,D:.I|
000002E0: B2 31 A4 41 55 3A 87 41  55 24 28 49 29 3A 82 49  |.1.AU:.AU$(I):.I|
000002F0: 00 0E 07 3B 01 99 22 50  4C 45 41 53 45 20 45 4E  |...;.."PLEASE EN|
00000300: 54 45 52 20 52 45 43 49  50 45 20 41 53 3A 00 2E  |TER RECIPE AS:..|
00000310: 07 3C 01 99 22 11 51 55  41 4E 54 49 54 59 20 55  |.<..".QUANTITY U|
00000320: 4E 49 54 20 49 4E 47 52  45 44 49 45 4E 54 00 4F  |NIT INGREDIENT.O|
00000330: 07 3D 01 99 22 11 45 58  41 4D 50 4C 45 3A 20 31  |.=..".EXAMPLE: 1|
00000340: 20 31 2F 32 20 43 55 50  20 4D 49 4C 4B 11 11 00  | 1/2 CUP MILK...|
00000350: 94 07 40 01 99 22 50 52  45 53 53 20 12 52 45 54  |..@.."PRESS .RET|
00000360: 55 52 4E 92 20 57 48 45  4E 20 41 4C 4C 20 54 48  |URN. WHEN ALL TH|
00000370: 45 20 49 4E 47 52 45 44  49 45 4E 54 53 22 3A 99  |E INGREDIENTS":.|
00000380: 22 48 41 56 45 20 42 45  45 4E 20 45 4E 54 45 52  |"HAVE BEEN ENTER|
00000390: 45 44 2E 11 00 AB 07 4A  01 53 43 B2 31 3A 42 B2  |ED.....J.SC.1:B.|
000003A0: 30 3A 43 54 B2 30 3A 50  4F B2 30 00 C1 07 54 01  |0:CT.0:PO.0...T.|
000003B0: 8D 31 35 33 30 3A 8B 49  4E 24 B2 22 22 A7 33 38  |.1530:.IN$."".38|
000003C0: 30 00 E7 07 5E 01 43 54  B2 43 54 AA 31 3A 52 45  |0...^.CT.CT.1:RE|
000003D0: 24 28 43 54 29 B2 49 4E  24 3A 8B 20 43 54 B3 4D  |$(CT).IN$:. CT.M|
000003E0: 49 20 A7 20 33 34 30 00  19 08 68 01 99 22 49 20  |I . 340...h.."I |
000003F0: 43 41 4E 27 54 20 48 41  4E 44 4C 45 20 4D 4F 52  |CAN'T HANDLE MOR|
00000400: 45 20 54 48 41 4E 22 3B  4D 49 3B 22 49 4E 47 52  |E THAN";MI;"INGR|
00000410: 45 44 49 45 4E 54 53 2E  22 00 3A 08 7C 01 99 22  |EDIENTS.".:.|.."|
00000420: 11 48 4F 57 20 4D 55 43  48 20 44 4F 45 53 20 54  |.HOW MUCH DOES T|
00000430: 48 45 20 52 45 43 49 50  45 22 00 51 08 81 01 99  |HE RECIPE".Q....|
00000440: 22 4D 41 4B 45 20 4F 52  20 53 45 52 56 45 3F 22  |"MAKE OR SERVE?"|
00000450: 3B 00 6F 08 86 01 8D 31  35 33 30 3A 4D B2 30 3A  |;.o....1530:M.0:|
00000460: 52 45 24 28 4D 29 B2 49  4E 24 3A 8D 35 34 30 00  |RE$(M).IN$:.540.|
00000470: 9C 08 90 01 8B 42 B2 31  A7 42 B2 30 3A 45 52 24  |.....B.1.B.0:ER$|
00000480: B2 22 4E 4F 54 48 49 4E  47 20 45 4E 54 45 52 45  |."NOTHING ENTERE|
00000490: 44 22 3A 8D 35 33 30 3A  89 34 30 30 00 A5 08 9A  |D":.530:.400....|
000004A0: 01 41 B2 54 54 00 CD 08  AE 01 99 22 11 48 4F 57  |.A.TT......".HOW|
000004B0: 20 4D 55 43 48 20 44 4F  20 59 4F 55 20 57 41 4E  | MUCH DO YOU WAN|
000004C0: 54 20 54 4F 20 4D 41 4B  45 3F 20 22 3B 00 EB 08  |T TO MAKE? ";...|
000004D0: C2 01 8D 31 35 33 30 3A  4D B2 30 3A 52 45 24 28  |...1530:M.0:RE$(|
000004E0: 4D 29 B2 49 4E 24 3A 8D  35 34 30 00 18 09 C7 01  |M).IN$:.540.....|
000004F0: 8B 42 B2 31 A7 42 B2 30  3A 45 52 24 B2 22 4E 4F  |.B.1.B.0:ER$."NO|
00000500: 54 48 49 4E 47 20 45 4E  54 45 52 45 44 22 3A 8D  |THING ENTERED":.|
00000510: 35 33 30 3A 89 34 35 35  00 32 09 CC 01 4D 53 24  |530:.455.2...MS$|
00000520: B2 52 45 24 28 30 29 3A  53 43 41 4C 45 B2 54 54  |.RE$(0):SCALE.TT|
00000530: AD 41 00 55 09 D6 01 99  22 11 57 41 4E 54 20 54  |.A.U....".WANT T|
00000540: 4F 20 55 53 45 20 54 48  45 20 50 52 49 4E 54 45  |O USE THE PRINTE|
00000550: 52 3F 20 22 3B 00 64 09  E0 01 8D 31 35 33 30 3A  |R? ";.d....1530:|
00000560: 99 22 11 11 00 81 09 EA  01 8B 20 C8 28 49 4E 24  |."........ .(IN$|
00000570: 2C 31 29 B2 22 59 22 A7  9F 34 2C 34 3A 50 4F B2  |,1)."Y"..4,4:PO.|
00000580: 31 00 9A 09 F4 01 8B 20  C8 28 49 4E 24 2C 31 29  |1...... .(IN$,1)|
00000590: B3 B1 22 59 22 A7 9F 34  2C 33 00 A7 09 F9 01 4D  |.."Y"..4,3.....M|
000005A0: B2 30 3A 52 50 B2 30 00  BC 09 FE 01 4D B2 4D AA  |.0:RP.0.....M.M.|
000005B0: 31 3A 8B 4D B1 43 54 A7  31 34 32 30 00 CA 09 08  |1:.M.CT.1420....|
000005C0: 02 8D 35 34 30 3A 89 35  31 30 00 D4 09 12 02 8D  |..540:.510......|
000005D0: 31 34 36 30 00 E7 09 1C  02 57 B2 30 3A 52 45 24  |1460.....W.0:RE$|
000005E0: B2 52 45 24 28 4D 29 00  16 0A 26 02 8B 20 C3 28  |.RE$(M)...&.. .(|
000005F0: 52 45 24 29 B1 30 A7 8B  C8 28 52 45 24 2C 31 29  |RE$).0...(RE$,1)|
00000600: B2 22 20 22 A7 52 45 24  B2 CA 28 52 45 24 2C 32  |." ".RE$..(RE$,2|
00000610: 29 3A 89 35 35 30 00 3A  0A 2B 02 8B 57 B1 B2 4D  |):.550.:.+..W..M|
00000620: 57 A7 45 52 24 B2 22 54  4F 4F 20 4D 55 43 48 20  |W.ER$."TOO MUCH |
00000630: 54 45 58 54 22 3A 89 35  33 30 00 4A 0A 30 02 81  |TEXT":.530.J.0..|
00000640: 49 B2 31 A4 C3 28 52 45  24 29 00 64 0A 3A 02 8B  |I.1..(RE$).d.:..|
00000650: CA 28 52 45 24 2C 49 2C  31 29 B3 B1 22 20 22 A7  |.(RE$,I,1).." ".|
00000660: 20 36 31 30 00 80 0A 44  02 57 B2 57 AA 31 3A 57  | 610...D.W.W.1:W|
00000670: 44 24 28 57 29 B2 C8 28  52 45 24 2C 49 AB 31 29  |D$(W)..(RE$,I.1)|
00000680: 00 93 0A 4E 02 52 45 24  B2 CA 28 52 45 24 2C 49  |...N.RE$..(RE$,I|
00000690: AA 31 29 00 9C 0A 58 02  89 35 35 30 00 A4 0A 62  |.1)...X..550...b|
000006A0: 02 82 20 49 00 B9 0A 6C  02 57 B2 57 AA 31 3A 57  |.. I...l.W.W.1:W|
000006B0: 44 24 28 57 29 B2 52 45  24 00 CD 0A 76 02 8F 20  |D$(W).RE$...v.. |
000006C0: 46 49 4E 44 20 51 55 41  4E 54 49 54 59 00 E1 0A  |FIND QUANTITY...|
000006D0: 80 02 54 54 B2 30 3A 46  52 B2 30 3A 44 49 47 B2  |..TT.0:FR.0:DIG.|
000006E0: 30 00 F2 0A 8A 02 81 4E  B2 31 20 A4 20 57 3A 52  |0......N.1 . W:R|
000006F0: B2 30 00 05 0B 94 02 81  4B B2 31 A4 C3 28 57 44  |.0......K.1..(WD|
00000700: 24 28 4E 29 29 00 1A 0B  9E 02 54 24 B2 CA 28 57  |$(N)).....T$..(W|
00000710: 44 24 28 4E 29 2C 4B 2C  31 29 00 33 0B A8 02 8B  |D$(N),K,1).3....|
00000720: 54 24 B1 B2 22 30 22 AF  54 24 B3 B2 22 39 22 A7  |T$.."0".T$.."9".|
00000730: 37 34 30 00 5D 0B B2 02  8B 54 24 B2 22 2E 22 A7  |740.]....T$.".".|
00000740: 45 52 24 B2 22 4E 4F 20  44 45 43 49 4D 41 4C 20  |ER$."NO DECIMAL |
00000750: 41 4C 4C 4F 57 45 44 22  3A 89 35 33 30 00 89 0B  |ALLOWED":.530...|
00000760: BC 02 8B 54 24 B2 22 2F  22 AF 52 B1 30 A7 45 52  |...T$."/".R.0.ER|
00000770: 24 B2 22 54 4F 4F 20 4D  41 4E 59 20 53 4C 41 53  |$."TOO MANY SLAS|
00000780: 48 45 53 22 3A 89 35 33  30 00 9E 0B C6 02 8B 54  |HES":.530......T|
00000790: 24 B2 22 2F 22 A7 52 B2  4B 3A 89 37 34 30 00 C3  |$."/".R.K:.740..|
000007A0: 0B D0 02 8B 4B B1 31 A7  45 52 24 B2 22 43 4F 4E  |....K.1.ER$."CON|
000007B0: 46 55 53 49 4E 47 20 4E  55 4D 42 45 52 22 3A 89  |FUSING NUMBER":.|
000007C0: 35 33 30 00 CD 0B DA 02  89 20 38 31 30 00 D4 0B  |530...... 810...|
000007D0: E4 02 82 4B 00 01 0C EE  02 8B 52 B2 30 A7 20 8B  |...K......R.0. .|
000007E0: 44 49 47 B2 30 AF 46 52  B2 30 A7 58 B2 C5 28 57  |DIG.0.FR.0.X..(W|
000007F0: 44 24 28 4E 29 29 3A 44  49 47 B2 31 3A 89 38 30  |D$(N)):DIG.1:.80|
00000800: 30 00 26 0C F8 02 8B 52  B2 30 A7 45 52 24 B2 22  |0.&....R.0.ER$."|
00000810: 43 4F 4E 46 55 53 49 4E  47 20 4E 55 4D 42 45 52  |CONFUSING NUMBER|
00000820: 22 3A 89 35 33 30 00 57  0C 02 03 8B 52 B2 31 B0  |":.530.W....R.1.|
00000830: 52 B2 C3 28 57 44 24 28  4E 29 29 A7 45 52 24 B2  |R..(WD$(N)).ER$.|
00000840: 22 43 4F 4E 46 55 53 49  4E 47 20 4E 55 4D 42 45  |"CONFUSING NUMBE|
00000850: 52 22 3A 89 35 33 30 00  80 0C 0C 03 8B 46 52 B3  |R":.530......FR.|
00000860: B1 30 A7 45 52 24 B2 22  54 4F 4F 20 4D 41 4E 59  |.0.ER$."TOO MANY|
00000870: 20 46 52 41 43 54 49 4F  4E 53 22 3A 89 35 33 30  | FRACTIONS":.530|
00000880: 00 AD 0C 16 03 58 B2 C5  28 C8 28 57 44 24 28 4E  |.....X..(.(WD$(N|
00000890: 29 2C 52 AB 31 29 29 AD  C5 28 CA 28 57 44 24 28  |),R.1))..(.(WD$(|
000008A0: 4E 29 2C 52 AA 31 29 29  3A 46 52 B2 31 00 D8 0C  |N),R.1)):FR.1...|
000008B0: 1B 03 8B 20 58 B1 B2 31  20 A7 20 45 52 24 B2 22  |... X..1 . ER$."|
000008C0: 46 52 41 43 54 49 4F 4E  20 54 4F 4F 20 4C 41 52  |FRACTION TOO LAR|
000008D0: 47 45 22 3A 89 35 33 30  00 E7 0C 20 03 54 54 B2  |GE":.530... .TT.|
000008E0: 54 54 AA 58 3A 82 4E 00  00 0D 2A 03 8B 46 52 B2  |TT.X:.N...*..FR.|
000008F0: 30 AF 44 49 47 B2 30 A7  54 54 B2 31 3A 42 B2 31  |0.DIG.0.TT.1:B.1|
00000900: 00 10 0D 3E 03 54 54 B2  54 54 AC 53 43 41 4C 45  |...>.TT.TT.SCALE|
00000910: 00 1F 0D 48 03 8B 4D B2  30 AF 4E B1 57 A7 8E 00  |...H..M.0.N.W...|
00000920: 3B 0D 52 03 8B 4E B1 57  A7 45 52 24 B2 22 4E 4F  |;.R..N.W.ER$."NO|
00000930: 20 55 4E 49 54 22 3A 89  35 33 30 00 4C 0D 5C 03  | UNIT":.530.L.\.|
00000940: 8F 20 43 48 45 43 4B 20  54 59 50 45 00 5B 0D 61  |. CHECK TYPE.[.a|
00000950: 03 8B 20 4D B2 30 20 A7  39 37 30 00 69 0D 66 03  |.. M.0 .970.i.f.|
00000960: 81 49 B2 57 A4 4E A9 AB  31 00 75 0D 70 03 81 4A  |.I.W.N..1.u.p..J|
00000970: B2 31 A4 4C 49 00 8E 0D  7A 03 8B 20 57 44 24 28  |.1.LI...z.. WD$(|
00000980: 49 29 B2 4C 49 24 28 4A  29 20 A7 39 37 30 00 98  |I).LI$(J) .970..|
00000990: 0D 84 03 82 4A 3A 82 49  00 A3 0D 8E 03 81 49 B2  |....J:.I......I.|
000009A0: 4E A4 57 00 B0 0D 98 03  81 20 4A B2 31 A4 44 55  |N.W...... J.1.DU|
000009B0: 00 C8 0D A2 03 51 24 B2  57 44 24 28 49 29 3A 5A  |.....Q$.WD$(I):Z|
000009C0: 24 B2 44 55 24 28 4A 29  00 FA 0D AC 03 8B 51 24  |$.DU$(J)......Q$|
000009D0: B3 B1 5A 24 AF 51 24 B3  B1 5A 24 AA 22 2E 22 AF  |..Z$.Q$..Z$.".".|
000009E0: 51 24 B3 B1 5A 24 AA 22  53 22 AF 51 24 B3 B1 5A  |Q$..Z$."S".Q$..Z|
000009F0: 24 AA 22 53 2E 22 A7 39  36 30 00 17 0E B6 03 54  |$."S.".960.....T|
00000A00: 54 B2 54 54 AC 44 43 28  4A 29 3A 46 57 B2 49 AA  |T.TT.DC(J):FW.I.|
00000A10: 31 3A 89 31 31 32 30 00  27 0E C0 03 82 4A 3A 82  |1:.1120.'....J:.|
00000A20: 49 3A 89 31 30 33 30 00  3A 0E CA 03 81 49 B2 4E  |I:.1030.:....I.N|
00000A30: A4 57 3A 81 4A B2 31 A4  4C 55 00 52 0E D4 03 51  |.W:.J.1.LU.R...Q|
00000A40: 24 B2 57 44 24 28 49 29  3A 5A 24 B2 4C 55 24 28  |$.WD$(I):Z$.LU$(|
00000A50: 4A 29 00 85 0E DE 03 8B  51 24 B3 B1 5A 24 AF 51  |J)......Q$..Z$.Q|
00000A60: 24 B3 B1 5A 24 AA 22 2E  22 AF 51 24 B3 B1 5A 24  |$..Z$.".".Q$..Z$|
00000A70: AA 22 53 22 AF 51 24 B3  B1 5A 24 AA 22 53 2E 22  |."S".Q$..Z$."S."|
00000A80: A7 31 30 31 30 00 A2 0E  E8 03 54 54 B2 54 54 AC  |.1010.....TT.TT.|
00000A90: 4C 43 28 4A 29 3A 46 57  B2 49 AA 31 3A 89 31 30  |LC(J):FW.I.1:.10|
00000AA0: 38 30 00 AC 0E F2 03 82  4A 3A 82 49 00 B6 0E FC  |80......J:.I....|
00000AB0: 03 8F 20 41 52 42 00 E3  0E 06 04 81 49 B2 4E A4  |.. ARB......I.N.|
00000AC0: 57 3A 81 4A B2 31 A4 41  55 3A 8B 57 44 24 28 49  |W:.J.1.AU:.WD$(I|
00000AD0: 29 B2 41 55 24 28 4A 29  A7 54 54 B2 AB B5 28 AB  |).AU$(J).TT...(.|
00000AE0: 54 54 29 00 EC 0E 10 04  82 4A 2C 49 00 F9 0E 1A  |TT)......J,I....|
00000AF0: 04 55 4E 49 54 24 B2 22  22 00 10 0F 24 04 46 57  |.UNIT$.""...$.FW|
00000B00: B2 4E 3A 54 45 4D 50 B2  54 54 3A 89 31 31 35 30  |.N:TEMP.TT:.1150|
00000B10: 00 19 0F 2E 04 4F 4A B2  30 00 28 0F 38 04 81 4A  |.....OJ.0.(.8..J|
00000B20: B2 4C 55 A4 31 A9 AB 31  00 56 0F 42 04 55 4E 49  |.LU.1..1.V.B.UNI|
00000B30: 54 24 B2 4C 55 24 28 4A  29 3A 54 45 4D 50 B2 54  |T$.LU$(J):TEMP.T|
00000B40: 54 AD 4C 43 28 4A 29 3A  8B 20 54 45 4D 50 B1 B2  |T.LC(J):. TEMP..|
00000B50: 31 A7 31 31 35 30 00 6E  0F 47 04 8B 4C 43 28 4A  |1.1150.n.G..LC(J|
00000B60: 29 B3 B1 4C 43 28 4F 4A  29 A7 4F 4A B2 4A 00 89  |)..LC(OJ).OJ.J..|
00000B70: 0F 4C 04 82 4A 3A 55 4E  49 54 24 B2 4C 55 24 28  |.L..J:UNIT$.LU$(|
00000B80: 4F 4A 29 3A 89 31 31 35  30 00 AB 0F 60 04 4F 4A  |OJ):.1150...`.OJ|
00000B90: B2 30 3A 81 4A B2 44 55  A4 31 A9 AB 31 3A 54 45  |.0:.J.DU.1..1:TE|
00000BA0: 4D 50 B2 54 54 AD 44 43  28 4A 29 00 CA 0F 6A 04  |MP.TT.DC(J)...j.|
00000BB0: 55 4E 49 54 24 B2 44 55  24 28 4A 29 3A 8B 54 45  |UNIT$.DU$(J):.TE|
00000BC0: 4D 50 B1 B2 31 A7 31 31  35 30 00 E2 0F 6F 04 8B  |MP..1.1150...o..|
00000BD0: 44 43 28 4A 29 B3 B1 44  43 28 4F 4A 29 A7 4F 4A  |DC(J)..DC(OJ).OJ|
00000BE0: B2 4A 00 F7 0F 74 04 82  4A 3A 55 4E 49 54 24 B2  |.J...t..J:UNIT$.|
00000BF0: 44 55 24 28 4F 4A 29 00  02 10 7E 04 8B 4D B2 30  |DU$(OJ)...~..M.0|
00000C00: A7 8E 00 25 10 83 04 8B  46 57 B1 57 A7 45 52 24  |...%....FW.W.ER$|
00000C10: B2 22 4E 4F 20 49 4E 47  52 45 44 49 45 4E 54 22  |."NO INGREDIENT"|
00000C20: 3A 89 35 33 30 00 3D 10  88 04 4E B2 54 45 4D 50  |:.530.=...N.TEMP|
00000C30: 3A 49 B2 B5 28 4E 29 3A  54 B2 4E AB 49 00 4C 10  |:I..(N):T.N.I.L.|
00000C40: 8D 04 81 20 4A B2 31 A4  4E 46 AB 31 00 6D 10 92  |... J.1.NF.1.m..|
00000C50: 04 8B 28 46 52 28 4A 29  B3 B2 54 29 AF 28 54 B3  |..(FR(J)..T).(T.|
00000C60: 46 52 28 4A AA 31 29 29  A7 31 32 30 30 00 74 10  |FR(J.1)).1200.t.|
00000C70: 9C 04 82 4A 00 7A 10 A6  04 90 00 9D 10 B0 04 8B  |...J.z..........|
00000C80: B6 28 46 52 28 4A 29 AB  54 29 B1 B6 28 46 52 28  |.(FR(J).T)..(FR(|
00000C90: 4A AA 31 29 AB 54 29 A7  4A B2 4A AA 31 00 B6 10  |J.1).T).J.J.1...|
00000CA0: BA 04 8B 46 52 24 28 4A  29 B2 22 22 A7 49 B2 49  |...FR$(J)."".I.I|
00000CB0: AA 46 52 28 4A 29 00 ED  10 C4 04 46 52 24 B2 46  |.FR(J).....FR$.F|
00000CC0: 52 24 28 4A 29 3A 8B 20  49 B3 B1 30 20 B0 20 46  |R$(J):. I..0 . F|
00000CD0: 52 24 B2 22 22 20 A7 20  46 52 24 B2 CA 28 C4 28  |R$."" . FR$..(.(|
00000CE0: 49 29 2C 32 29 AA 22 20  22 AA 46 52 24 00 16 11  |I),2)." ".FR$...|
00000CF0: C9 04 8B 20 C9 28 46 52  24 2C 31 29 B2 22 20 22  |... .(FR$,1)." "|
00000D00: 20 A7 20 46 52 24 B2 C8  28 46 52 24 2C C3 28 46  | . FR$..(FR$,.(F|
00000D10: 52 24 29 AB 31 29 00 3C  11 CE 04 8B 55 4E 49 54  |R$).1).<....UNIT|
00000D20: 24 B3 B1 22 22 AF 54 45  4D 50 B1 31 A7 55 4E 49  |$.."".TEMP.1.UNI|
00000D30: 54 24 B2 55 4E 49 54 24  AA 22 53 22 00 65 11 D3  |T$.UNIT$."S".e..|
00000D40: 04 98 34 2C 46 52 24 3B  22 20 22 3B 3A 8B C3 28  |..4,FR$;" ";:..(|
00000D50: 46 52 24 29 B3 37 A7 98  34 2C A6 37 AB C3 28 46  |FR$).7..4,.7..(F|
00000D60: 52 24 29 29 3B 00 90 11  D8 04 98 34 2C 55 4E 49  |R$));......4,UNI|
00000D70: 54 24 3B 3A 8B C3 28 55  4E 49 54 24 29 B3 35 A7  |T$;:..(UNIT$).5.|
00000D80: 98 34 2C A6 35 AB C3 28  55 4E 49 54 24 29 29 3B  |.4,.5..(UNIT$));|
00000D90: 00 B3 11 DD 04 81 4E B2  46 57 A4 57 3A 98 34 2C  |......N.FW.W:.4,|
00000DA0: 22 20 22 3B 57 44 24 28  4E 29 3B 3A 82 4E 3A 98  |" ";WD$(N);:.N:.|
00000DB0: 34 3A 8E 00 C6 11 FB 04  8F 20 4C 49 51 55 49 44  |4:....... LIQUID|
00000DC0: 20 55 4E 49 54 53 00 EA  11 00 05 83 20 54 2C 31  | UNITS...... T,1|
00000DD0: 2C 54 45 41 53 50 4E 2C  31 2C 54 45 41 53 50 4F  |,TEASPN,1,TEASPO|
00000DE0: 4F 4E 2C 31 2C 54 53 50  2C 31 00 28 12 0A 05 83  |ON,1,TSP,1.(....|
00000DF0: 4F 55 4E 43 45 2C 33 2C  4F 5A 2C 33 2C 54 42 4C  |OUNCE,3,OZ,3,TBL|
00000E00: 53 50 2C 33 2C 54 41 42  4C 45 53 50 4E 2C 33 2C  |SP,3,TABLESPN,3,|
00000E10: 54 41 42 4C 45 53 50 4F  4F 4E 2C 33 2C 54 42 53  |TABLESPOON,3,TBS|
00000E20: 50 2C 33 2C 43 2C 32 34  00 6A 12 14 05 83 20 43  |P,3,C,24.j.... C|
00000E30: 50 2C 32 34 2C 43 55 50  2C 32 34 2C 50 2C 34 38  |P,24,CUP,24,P,48|
00000E40: 2C 50 4E 54 2C 34 38 2C  50 49 4E 54 2C 34 38 2C  |,PNT,48,PINT,48,|
00000E50: 50 54 2C 34 38 2C 51 55  2C 39 36 2C 51 55 41 52  |PT,48,QU,96,QUAR|
00000E60: 54 2C 39 36 2C 51 54 2C  39 36 00 89 12 1E 05 83  |T,96,QT,96......|
00000E70: 20 47 2C 33 38 34 2C 47  41 4C 4C 4F 4E 2C 33 38  | G,384,GALLON,38|
00000E80: 34 2C 47 41 4C 2C 33 38  34 00 95 12 28 05 83 20  |4,GAL,384...(.. |
00000E90: 45 4E 44 2C 32 00 A5 12  2D 05 8F 20 44 52 59 20  |END,2...-.. DRY |
00000EA0: 55 4E 49 54 53 00 D1 12  32 05 83 20 54 2C 31 2C  |UNITS...2.. T,1,|
00000EB0: 54 53 50 4F 4F 4E 2C 31  2C 54 45 41 53 50 2C 31  |TSPOON,1,TEASP,1|
00000EC0: 2C 54 45 41 53 50 4F 4F  4E 2C 31 2C 54 53 50 2C  |,TEASPOON,1,TSP,|
00000ED0: 31 00 FE 12 3C 05 83 20  54 42 4C 53 50 2C 33 2C  |1...<.. TBLSP,3,|
00000EE0: 54 41 42 4C 45 53 50 4E  2C 33 2C 54 41 42 4C 45  |TABLESPN,3,TABLE|
00000EF0: 53 50 4F 4F 4E 2C 33 2C  54 42 53 50 2C 33 00 1C  |SPOON,3,TBSP,3..|
00000F00: 13 46 05 83 20 43 2C 32  34 2C 43 50 2C 32 34 2C  |.F.. C,24,CP,24,|
00000F10: 43 55 50 2C 32 34 2C 45  4E 44 2C 35 00 30 13 4B  |CUP,24,END,5.0.K|
00000F20: 05 8F 20 4B 4E 4F 57 4E  20 4C 49 51 55 49 44 53  |.. KNOWN LIQUIDS|
00000F30: 00 5A 13 50 05 83 20 45  58 54 52 41 43 54 2C 4D  |.Z.P.. EXTRACT,M|
00000F40: 49 4C 4B 2C 57 41 54 45  52 2C 4F 49 4C 2C 4A 55  |ILK,WATER,OIL,JU|
00000F50: 49 43 45 2C 47 41 4C 4C  4F 4E 00 82 13 5A 05 83  |ICE,GALLON...Z..|
00000F60: 20 56 49 4E 45 47 41 52  2C 57 49 4E 45 2C 53 48  | VINEGAR,WINE,SH|
00000F70: 45 52 52 59 2C 42 52 41  4E 44 59 2C 4C 49 51 55  |ERRY,BRANDY,LIQU|
00000F80: 45 52 00 AA 13 64 05 83  20 43 4F 46 46 45 45 2C  |ER...d.. COFFEE,|
00000F90: 43 49 44 45 52 2C 53 59  52 55 50 2C 48 4F 4E 45  |CIDER,SYRUP,HONE|
00000FA0: 59 2C 4D 4F 4C 41 53 53  45 53 00 E7 13 6E 05 83  |Y,MOLASSES...n..|
00000FB0: 20 43 52 45 41 4D 2C 42  55 54 54 45 52 4D 49 4C  | CREAM,BUTTERMIL|
00000FC0: 4B 2C 50 49 4E 54 2C 50  49 4E 54 53 2C 47 41 4C  |K,PINT,PINTS,GAL|
00000FD0: 4C 4F 4E 53 2C 53 48 4F  54 2C 53 48 4F 54 53 2C  |LONS,SHOT,SHOTS,|
00000FE0: 50 54 2E 2C 47 41 4C 00  01 14 73 05 83 20 51 54  |PT.,GAL...s.. QT|
00000FF0: 2C 51 54 53 2C 51 54 2E  2C 51 54 53 2E 2C 45 4E  |,QTS,QT.,QTS.,EN|
00001000: 44 00 21 14 75 05 8F 20  4B 4E 4F 57 4E 20 46 52  |D.!.u.. KNOWN FR|
00001010: 41 43 54 49 4F 4E 53 20  58 2C 59 2C 3D 3D 58 2F  |ACTIONS X,Y,==X/|
00001020: 59 00 43 14 78 05 83 20  31 2C 38 2C 31 2C 34 2C  |Y.C.x.. 1,8,1,4,|
00001030: 31 2C 33 2C 31 2C 32 2C  32 2C 33 2C 33 2C 34 2C  |1,3,1,2,2,3,3,4,|
00001040: 30 2C 30 00 65 14 7D 05  8F 20 49 4E 44 49 56 49  |0,0.e.}.. INDIVI|
00001050: 53 49 42 4C 45 20 41 52  42 49 54 52 41 52 59 20  |SIBLE ARBITRARY |
00001060: 55 4E 49 54 53 00 98 14  82 05 83 20 45 47 47 2C  |UNITS...... EGG,|
00001070: 45 47 47 53 2C 44 52 4F  50 2C 44 52 4F 50 53 2C  |EGGS,DROP,DROPS,|
00001080: 50 49 4E 43 48 2C 50 49  4E 43 48 45 53 2C 50 49  |PINCH,PINCHES,PI|
00001090: 4E 43 48 53 2C 45 4E 44  00 B6 14 8C 05 98 34 3A  |NCHS,END......4:|
000010A0: 98 34 2C 22 4D 41 4B 45  53 2F 53 45 52 56 45 53  |.4,"MAKES/SERVES|
000010B0: 20 22 3B 4D 53 24 00 CB  14 96 05 8B 52 50 B2 30  | ";MS$......RP.0|
000010C0: B0 50 4F B3 B1 30 A7 31  34 35 30 00 FD 14 9B 05  |.PO..0.1450.....|
000010D0: 99 22 11 57 41 4E 54 20  54 4F 20 53 45 45 20 54  |.".WANT TO SEE T|
000010E0: 48 45 20 4E 45 57 20 52  45 43 49 50 45 20 41 47  |HE NEW RECIPE AG|
000010F0: 41 49 4E 3F 20 22 3B 3A  8D 31 35 33 30 00 1A 15  |AIN? ";:.1530...|
00001100: A0 05 8B C8 28 49 4E 24  2C 31 29 B2 22 59 22 A7  |....(IN$,1)."Y".|
00001110: 98 34 3A 98 34 3A 89 35  30 35 00 23 15 AA 05 A0  |.4:.4:.505.#....|
00001120: 34 3A 80 00 4B 15 B4 05  99 22 11 22 3B 45 52 24  |4:..K....".";ER$|
00001130: 3B 22 20 49 4E 20 54 48  49 53 20 4C 49 4E 45 3A  |;" IN THIS LINE:|
00001140: 11 22 3A 99 20 52 45 24  28 4D 29 00 70 15 BE 05  |.":. RE$(M).p...|
00001150: 99 22 11 50 4C 45 41 53  45 20 52 45 2D 45 4E 54  |.".PLEASE RE-ENT|
00001160: 45 52 20 49 54 2E 2E 2E  22 3A 99 22 11 3F 22 3B  |ER IT...":.".?";|
00001170: 00 79 15 C8 05 52 50 B2  31 00 87 15 D2 05 8D 31  |.y...RP.1......1|
00001180: 35 33 30 3A 99 22 11 00  B7 15 D7 05 8B 49 4E 24  |530:.".......IN$|
00001190: B2 22 22 A7 99 22 50 4C  45 41 53 45 20 54 59 50  |."".."PLEASE TYP|
000011A0: 45 20 49 54 20 41 47 41  49 4E 22 3A 99 22 11 3F  |E IT AGAIN":.".?|
000011B0: 22 3A 89 31 34 39 30 00  C6 15 E6 05 52 45 24 28  |":.1490.....RE$(|
000011C0: 4D 29 B2 49 4E 24 00 CC  15 F0 05 8E 00 ED 15 FA  |M).IN$..........|
000011D0: 05 49 4E 24 B2 22 20 22  3A 5A 54 B2 54 49 3A 5A  |.IN$." ":ZT.TI:Z|
000011E0: 43 B2 32 3A 5A 44 24 B2  C7 28 32 30 29 00 02 16  |C.2:ZD$..(20)...|
000011F0: 04 06 A1 5A 24 3A 8B 5A  24 B3 B1 22 22 A7 31 35  |...Z$:.Z$.."".15|
00001200: 37 30 00 32 16 0E 06 8B  5A 54 B3 B2 54 49 A7 99  |70.2....ZT..TI..|
00001210: CA 28 22 20 A6 22 2C 5A  43 2C 31 29 3B 22 9D 22  |.(" .",ZC,1);"."|
00001220: 3B 3A 5A 43 B2 33 AB 5A  43 3A 5A 54 B2 54 49 AA  |;:ZC.3.ZC:ZT.TI.|
00001230: 31 35 00 3C 16 18 06 89  31 35 34 30 00 6B 16 22  |15.<....1540.k."|
00001240: 06 5A B2 C6 28 5A 24 29  3A 5A 4C B2 C3 28 49 4E  |.Z..(Z$):ZL..(IN|
00001250: 24 29 3A 8B 28 5A AF 31  32 37 29 B3 33 32 A7 99  |$):.(Z.127).32..|
00001260: 22 20 9D 22 3B 3A 89 31  36 31 30 00 9B 16 2C 06  |" .";:.1610...,.|
00001270: 8B 46 4C AF 28 5A AF 31  32 37 29 B1 36 34 AF 28  |.FL.(Z.127).64.(|
00001280: 5A AF 31 32 37 29 B3 39  31 A7 5A 24 B2 C7 28 28  |Z.127).91.Z$..((|
00001290: 5A AA 31 32 38 29 AF 32  35 35 29 00 AC 16 36 06  |Z.128).255)...6.|
000012A0: 8B 5A 4C B1 32 35 34 A7  31 35 34 30 00 C7 16 40  |.ZL.254.1540...@|
000012B0: 06 49 4E 24 B2 49 4E 24  AA 5A 24 3A 99 5A 24 3B  |.IN$.IN$.Z$:.Z$;|
000012C0: 5A 44 24 3B 5A 24 3B 00  E6 16 4A 06 8B 5A B2 31  |ZD$;Z$;...J..Z.1|
000012D0: 33 A7 49 4E 24 B2 CA 28  49 4E 24 2C 32 29 3A 99  |3.IN$..(IN$,2):.|
000012E0: 43 52 24 3B 3A 8E 00 11  17 54 06 8B 5A B2 32 30  |CR$;:....T..Z.20|
000012F0: AF 5A 4C B1 31 A7 49 4E  24 B2 C8 28 49 4E 24 2C  |.ZL.1.IN$..(IN$,|
00001300: 5A 4C AB 31 29 3A 99 22  9D 22 3B 3A 89 31 35 34  |ZL.1):.".";:.154|
00001310: 30 00 43 17 5E 06 8B 5A  B2 31 34 31 A7 5A 24 B2  |0.C.^..Z.141.Z$.|
00001320: C7 28 AB 32 30 AC 28 5A  4C B1 31 29 29 3A 81 5A  |.(.20.(ZL.1)):.Z|
00001330: B2 32 A4 5A 4C 3A 99 5A  24 3B 3A 82 5A 3A 89 31  |.2.ZL:.Z$;:.Z:.1|
00001340: 35 33 30 00 4D 17 68 06  89 31 35 34 30 00 5B 17  |530.M.h..1540.[.|
00001350: 1C 07 97 35 39 34 36 38  2C 31 32 00 89 17 26 07  |...59468,12...&.|
00001360: 99 22 93 11 11 22 3B A3  31 35 AB C3 28 50 47 24  |."...";.15..(PG$|
00001370: 29 29 3B 50 47 24 3B 22  20 20 42 59 20 4E 41 4E  |));PG$;"  BY NAN|
00001380: 43 59 20 52 48 4F 44 45  53 00 BA 17 30 07 99 22  |CY RHODES...0.."|
00001390: 11 20 20 20 20 20 43 55  52 53 4F 52 20 23 22 3B  |.     CURSOR #";|
000013A0: 4E 4D 24 3B 22 20 20 43  4F 50 59 52 49 47 48 54  |NM$;"  COPYRIGHT|
000013B0: 20 28 43 29 20 31 39 38  30 11 00 D2 17 3A 07 81  | (C) 1980....:..|
000013C0: 49 B2 31 A4 31 30 3A 99  22 C0 C0 C0 C0 22 3B 3A  |I.1.10:."....";:|
000013D0: 82 49 00 FE 17 44 07 99  22 11 46 4F 52 20 57 48  |.I...D..".FOR WH|
000013E0: 45 4E 20 59 4F 55 20 48  41 56 45 20 54 4F 20 46  |EN YOU HAVE TO F|
000013F0: 45 45 44 20 41 4E 20 41  52 4D 59 2E 2E 2E 00 1E  |EED AN ARMY.....|
00001400: 18 4E 07 99 22 11 11 50  52 45 53 53 20 12 52 45  |.N.."..PRESS .RE|
00001410: 54 55 52 4E 92 20 54 4F  20 42 45 47 49 4E 00 32  |TURN. TO BEGIN.2|
00001420: 18 58 07 A1 54 24 3A 8B  54 24 B2 22 22 A7 31 38  |.X..T$:.T$."".18|
00001430: 38 30 00 4C 18 62 07 99  22 93 22 3A 9C 3A 43 52  |80.L.b..".":.:CR|
00001440: 24 B2 C7 28 31 33 29 3A  89 31 30 30 00 00 00     |$..(13):.100... |

..#....:PG$."RECIPE":NM$."23":.1820.6...
" NANCY RHODES.<...".X..." CURSOR #23, D
EC, 1980.~..." COPYRIGHT(C)1980 THE CODE
 WORKS....." BOX 550, GOLETA, CA. 93017.
...."...... 9 DEC 80.Z.D.LU.0:MI.20:MW.2
0:.RE$(MI),WD$(MW)...N.. L$,D:. L$ .."EN
D". LU.LU.1:.110...X.. LU$(LU),LC(LU):..
...DU.0.F.... L$,D: .L$ .."END". DU.DU.1
:.140:.[.... DU$(DU),DC(DU).D. .LI.0....
..L$:.L$.."END". LI.LI.1:.170...... LI$(
LI).....N.0:.N,D:.N..0.NF.NF.1:.190.O.H.
NF.NF.2:.FR$(NF),FR(NF).X.R.AU.0......L$
:.L$.."END".AU.AU.1:.220......AU$(AU)...
....*....I.1. LU:. LU$(I),LC(I):.I.N....
 D$,D:.I.1.DU:.DU$(I),DC(I):.I.K....D$,D
:.I.1.LI:.LI$(I):.I......D$:.I.2.NF.1:.N
,D:FR(I).N.D...".FR$(I).J(D(N),2)."/".J(
D(D),2).T.,..I:FR$(1)."":FR$(NF)."":FR(N
F).1...6..N,D:.I.1.AU:.AU$(I):.I...;.."P
LEASE ENTER RECIPE AS:...<..".QUANTITY U
NIT INGREDIENT.O.=..".EXAMPLE: 1 1/2 CUP
 MILK.....@.."PRESS .RETURN. WHEN ALL TH
E INGREDIENTS":."HAVE BEEN ENTERED.....J
.SC.1:B.0:CT.0:PO.0.A.T..1530:.IN$."".38
0...^.CT.CT.1:RE$(CT).IN$:. CT.MI . 340.
..H.."I CAN'T HANDLE MORE THAN";MI;"INGR
EDIENTS.".:.|..".HOW MUCH DOES THE RECIP
E".Q...."MAKE OR SERVE?";.O....1530:M.0:
RE$(M).IN$:.540......B.1.B.0:ER$."NOTHIN
G ENTERED":.530:.400.....A.TT.M....".HOW
 MUCH DO YOU WANT TO MAKE? ";...B..1530:
M.0:RE$(M).IN$:.540...G..B.1.B.0:ER$."NO
THING ENTERED":.530:.455.2.L.MS$.RE$(0):
SCALE.TT.A.U.V..".WANT TO USE THE PRINTE
R? ";.D....1530:."........ H(IN$,1)."Y".
.4,4:PO.1...... H(IN$,1).."Y"..4,3.....M
.0:RP.0.....M.M.1:.M.CT.1420.J....540:.5
10.T....1460.....W.0:RE$.RE$(M)...&.. C(
RE$).0..H(RE$,1)." ".RE$.J(RE$,2):.550.:
.+..W..MW.ER$."TOO MUCH TEXT":.530.J.0..
I.1.C(RE$).D.:..J(RE$,I,1).." ". 610...D
.W.W.1:WD$(W).H(RE$,I.1)...N.RE$.J(RE$,I
.1)...X..550...B.. I...L.W.W.1:WD$(W).RE
$.M.V.. FIND QUANTITY.....TT.0:FR.0:DIG.
0......N.1 . W:R.0......K.1.C(WD$(N))...
..T$.J(WD$(N),K,1).3....T$.."0".T$.."9".
740.]....T$.".".ER$."NO DECIMAL ALLOWED"
:.530......T$."/".R.0.ER$."TOO MANY SLAS
HES":.530...F..T$."/".R.K:.740.C.P..K.1.
ER$."CONFUSING NUMBER":.530.M.Z.. 810.T.
...K......R.0. .DIG.0.FR.0.X.E(WD$(N)):D
IG.1:.800.&....R.0.ER$."CONFUSING NUMBER
":.530.W....R.1.R.C(WD$(N)).ER$."CONFUSI
NG NUMBER":.530......FR..0.ER$."TOO MANY
 FRACTIONS":.530.....X.E(H(WD$(N),R.1)).
E(J(WD$(N),R.1)):FR.1.X.... X..1 . ER$."
FRACTION TOO LARGE":.530... .TT.TT.X:.N.
..*..FR.0.DIG.0.TT.1:B.1...>.TT.TT.SCALE
...H..M.0.N.W...;.R..N.W.ER$."NO UNIT":.
530.L.\.. CHECK TYPE.[.A.. M.0 .970.I.F.
.I.W.N..1.U.P..J.1.LI...Z.. WD$(I).LI$(J
) .970......J:.I......I.N.W...... J.1.DU
.H...Q$.WD$(I):Z$.DU$(J)......Q$..Z$.Q$.
.Z$.".".Q$..Z$."S".Q$..Z$."S.".960.....T
T.TT.DC(J):FW.I.1:.1120.'....J:.I:.1030.
:.J..I.N.W:.J.1.LU.R.T.Q$.WD$(I):Z$.LU$(
J)......Q$..Z$.Q$..Z$.".".Q$..Z$."S".Q$.
.Z$."S.".1010.....TT.TT.LC(J):FW.I.1:.10
80......J:.I...... ARB......I.N.W:.J.1.A
U:.WD$(I).AU$(J).TT...(.TT)......J,I....
.UNIT$.""...$.FW.N:TEMP.TT:.1150.....OJ.
0.(.8..J.LU.1..1.V.B.UNIT$.LU$(J):TEMP.T
T.LC(J):. TEMP..1.1150.N.G..LC(J)..LC(OJ
).OJ.J...L..J:UNIT$.LU$(OJ):.1150...`.OJ
.0:.J.DU.1..1:TEMP.TT.DC(J).J.J.UNIT$.DU
$(J):.TEMP..1.1150...O..DC(J)..DC(OJ).OJ
.J...T..J:UNIT$.DU$(OJ)...~..M.0...%....
FW.W.ER$."NO INGREDIENT":.530.=...N.TEMP
:I..(N):T.N.I.L.... J.1.NF.1.M....(FR(J)
..T).(T.FR(J.1)).1200.T....J.Z..........
.(FR(J).T)..(FR(J.1).T).J.J.1......FR$(J
)."".I.I.FR(J)...D.FR$.FR$(J):. I..0 . F
R$."" . FR$.J(D(I),2)." ".FR$...I.. I(FR
$,1)." " . FR$.H(FR$,C(FR$).1).<.N..UNIT
$.."".TEMP.1.UNIT$.UNIT$."S".E.S..4,FR$;
" ";:.C(FR$).7..4,.7.C(FR$));...X..4,UNI
T$;:.C(UNIT$).5..4,.5.C(UNIT$));......N.
FW.W:.4," ";WD$(N);:.N:.4:..F.... LIQUID
 UNITS...... T,1,TEASPN,1,TEASPOON,1,TSP
,1.(....OUNCE,3,OZ,3,TBLSP,3,TABLESPN,3,
TABLESPOON,3,TBSP,3,C,24.J.... CP,24,CUP
,24,P,48,PNT,48,PINT,48,PT,48,QU,96,QUAR
T,96,QT,96...... G,384,GALLON,384,GAL,38
4...(.. END,2...-.. DRY UNITS.Q.2.. T,1,
TSPOON,1,TEASP,1,TEASPOON,1,TSP,1...<.. 
TBLSP,3,TABLESPN,3,TABLESPOON,3,TBSP,3..
.F.. C,24,CP,24,CUP,24,END,5.0.K.. KNOWN
 LIQUIDS.Z.P.. EXTRACT,MILK,WATER,OIL,JU
ICE,GALLON...Z.. VINEGAR,WINE,SHERRY,BRA
NDY,LIQUER...D.. COFFEE,CIDER,SYRUP,HONE
Y,MOLASSES...N.. CREAM,BUTTERMILK,PINT,P
INTS,GALLONS,SHOT,SHOTS,PT.,GAL...S.. QT
,QTS,QT.,QTS.,END.!.U.. KNOWN FRACTIONS 
X,Y,==X/Y.C.X.. 1,8,1,4,1,3,1,2,2,3,3,4,
0,0.E.}.. INDIVISIBLE ARBITRARY UNITS...
... EGG,EGGS,DROP,DROPS,PINCH,PINCHES,PI
NCHS,END......4:.4,"MAKES/SERVES ";MS$.K
....RP.0.PO..0.1450......".WANT TO SEE T
HE NEW RECIPE AGAIN? ";:.1530... ..H(IN$
,1)."Y"..4:.4:.505.#... 4:..K....".";ER$
;" IN THIS LINE:.":. RE$(M).P....".PLEAS
E RE-ENTER IT...":.".?";.Y.H.RP.1...R..1
530:."....W..IN$."".."PLEASE TYPE IT AGA
IN":.".?":.1490.F...RE$(M).IN$.L........
.IN$." ":ZT.TI:ZC.2:ZD$.G(20)......Z$:.Z
$.."".1570.2....ZT..TI..J(" .",ZC,1);"."
;:ZC.3.ZC:ZT.TI.15.<....1540.K.".Z.F(Z$)
:ZL.C(IN$):.(Z.127).32.." .";:.1610...,.
.FL.(Z.127).64.(Z.127).91.Z$.G((Z.128).2
55)...6..ZL.254.1540.G.@.IN$.IN$.Z$:.Z$;
ZD$;Z$;...J..Z.13.IN$.J(IN$,2):.CR$;:...
.T..Z.20.ZL.1.IN$.H(IN$,ZL.1):.".";:.154
0.C.^..Z.141.Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z
$;:.Z:.1530.M.H..1540.[....59468,12...&.
."...";.15.C(PG$));PG$;"  BY NANCY RHODE
S...0..".     CURSOR #";NM$;"  COPYRIGHT
 (C) 1980..R.:..I.1.10:."....";:.I...D..
".FOR WHEN YOU HAVE TO FEED AN ARMY.....
.N.."..PRESS .RETURN. TO BEGIN.2.X..T$:.
T$."".1880.L.B..".":.:CR$.G(13):.100...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL