""((14)=2" (C) 1989 AMBERT LEINa<" RELEASE TO THE PUBLIC DOMAINF" NOT TO BE SOLD FOR PROFITPRC$(100),P$(100)ZG$(100),AM$(100)dSA32768nEL$(27)(14):UL$(27)(45)(1) xRL$(27)(87)(0) :UO$(27)(45)(0)! 15,8,15e PI$" "~ T1100:P$(T)"": MG$" LOAD" T11500: 12999 RV$"":H$"" 53280,0:53281,0 " "";:106811,40 11)" "4 11)" "T 11)" "^ "";s X140:"";:: " "10)" "10); " "; """;: X140:"";:: ,"" 612OV)""; @X116:"";:::12OV)" "N J12OV)" ŒNTER ":12OV)" ֒IEW "p T12OV)" ВRINT " ^12OV)" ̒OAD ":12OV)" ӒAVE ": h12OV)" ^DIT ":12OV)" ђUIT ": r12OV);2 |" " :12OV);:X116:"";:; OV0H R(RN$)t  (RN$,2)".R"RN$(RN$,R2):R(RN$)  (RN$,4)"@:.R"RN$(RN$,R4):R(RN$) LI0LIFL7 A$:A$""440 LE(11096)(110961)256 A$"E"600: A$""600: A$"V"1000* A$""1000; A$"P"1320L A$""1320] A$"L"1630n A$""1630 A$"S"2230 &A$""2230 0A$"^"2900 :A$"Q""":15: DA$"""":15: N440 X"":X232:RN$"":Y27:X13:Y14b109261,35:646,6 l34600v109261,329LI0XX228:Y23:X15:Y16:3460eX12);" : ":X11);3520:RN$A$RN$""220:RR$RN$X237:Y220:X10:Y11 :3460""X11)"IST NGREDIENTS 'E' TO ND ":X1:X12);Y"NGREDIENT ";:3520:G$(X)A$:A$"":G$(X)"E"840lG$(X)""840yX12); "MOUNT ";:3520:AM$(X)A$:A$"":L1(G$(X)): L1LILIL1:FLLI XX1:*X9740 4"": X237:Y220:X10:Y11 :3460>740)HX1N0: 220IRX226:Y214:X17:Y13:3460r\""X12)" MIXING INGREDIENTS..."fNX1 :X1N:p(G$(X)) LI G$(X)(160)G$(X) :880:z: X1N::G$(X)G$(X)" "AM$(X):L1(G$(X)): L1LILIL1 2610:2X110:Y116:X210:Y21E3460:X11);f:3340: "SAVE (Y/N)";:yA$:A$""960A$"Y"2230A$""2230"":310"": :N20:SC0N01040X19 :Y115:X217:Y23 :646,6 :3460>""X11)"OTHING TO IEW :":106811,15: 3340:220d"":X236:Y221:X10:Y10 :3460oFR$""$RR1(RR$)6:FR$FR$"":.FS(19((FR$)2)): FS1FS18""FS);FR$:BFS)" "RR$" "L""; FS)FR$:"&V:X1N:3)SC)G$(X):N2N21:N2141260:,`8j646,14XtX11:Y119:X234:Y22:3460~X11)"EMPERTURE "TP$:X11)"IME ";TM$:" RESS A EY: "A$:A$""1170""BSA:LB(11096):HB(110961) LELBHB256:11383,4011164M:X12)" RESS A KEY  ETURN  TO RE-VIEW "aA$:A$""1230tA$(13)1000"":220LI171310:3)" ORE NGREDIENTS TO LIST "3)" RESS A KEY TO CONTINUE: " A$:A$""1290 10763:"": SC20:"":/(N0137082"x<X18:Y115:X218:Y23:3460:""X11)"OTHING TO RINT: "F106811,15:3340:P220Z4,4,7:4:X1d4,39(RR$));n4,EL$;UL$;RR$;UO$;RL$:4xNZN: N2(N2)NZNZ1W80 :11383,WLG(3LI)-LG401500LTB((40LG)2):TB1TB1[X1NZ 2}:SP40(G$(X))TB:SP0SP04,TB);G$(X);SP);G$(X1):NNZ N1 4,TB);G$(N)1540TB(80LG)2:TB(TB):TB1TB0X1N 4,TB);G$(X):4:4J4,"EMPERTURE "TP$:4,"IME "TM$:4g4,UL$":";UO$:4r"11164y,464J:3340T"":220^"":X121:X214:Y11:Y25 :646,5:3470hP$(1)RV$r|X12)"CURSOR/RETURN"X12)"TO"MG$" FILE"+X12)"\ FOR MENU"610472Y646,06:X110:X217:Y102:Y21fE(254)2800:C0 NT$"NOT":300"";E01790X128:X209:Y10:Y27:3470:X11)" NO '' ":X11)"FILES ON":X11)" DISK "NT$"NOT":300HX11:X218:Y11:Y2E2:646,6:Y220Y220ZLG0:BG0:A1lE19LGE19v3470&P$(ABG)RV$0EDELGBG:EDEEDE:H$: T1BGEDDX12);P$(T);(RC$(T),(RC$(T))2)""NXA$:A$""1880 bA$(13)2000,lP$(IIBG)"":P$(1BG)""<vA$"\"200gA$(17)AA1: A20BG19:A1:3470A$(17) AEA1:BG0:1820A$(145)AA1:A1BG19 BG0:A19:3470A1E19BG19:A1:3470ABGE1800A1AE:3470P$(ABG)RV$:IIA1840>RN$RC$(ABG):P$(ABG)""ODF$(RN$,3)`CC$"C."DF$z2,8,2,RN$",S,R":C02800C12: :310 X12,FL:2,LI: 2,RR$*2,G$(X):4ST 64 2120>XX1:2090HNX2: 2:RTP$G$(N1):TM$G$(N2):+\1,8,2,CC$6f12999Ap11100Hz1R2800aZ5 2220X11)" ONE " :3340310X11)"O OMMENTS!":310N02280"X19 :Y115:X217:Y23 :3460:""X11);):"OTHING TO AVE :":106811,10 :3340:220=RN$""RN$RR$d(RN$,2)"R."RN$(RN$,(RN$)2)(RN$,4)"@:R."RN$(RN$,(RN$)4) :R(RN$) "" X118:X25:Y12:Y21:646,10:3470$ X11)"SAVE:". ""8 " "RN$;:RV1R2 :"";::RN$&B CC$"C."RN$EL RN$"R."RN$:RN$(RN$,16)[V 3,8,3,RN$",S,W"g` Z0:C0qj 2800t Z13:3360~ C13: 310 3,FL:3,LI: 3,RR$ X1N 3,G$(X)  RR$""RR$ (RN$,(RN$)2) 3,TP$:3,TM$: 3:" ..."+ 1,8,2,CC$",S,W"6 11024= 1G 3340P 220V ` 2800i ""r( 3102 :X11)"EMPERTURE";:3520:TP$A$:TP$""TP$""< : X11)"IME";:3520:TM$A$:TM$""TM$"" F X10:Y10:X236:Y217:3460 P "", Z X1);" ";B d " \ TO ND."L n BSA:[ x BSABSAw 10969:A$:A(A$(0)) 212,0: 10969:A$"\"2780 A20 BB1:A$;:2680 (A32A13) A2182690 A95 A1922690! B,(A$(0)):BB1! A$;:212,0! 2690]! LEBSA:LBLE(LE256)256:HB(LE256):11096,LB:110961,HBc! w! 15,DS,DS$,A,B:! DS12890:! 3340! X15:X2(DS$)2:Y111:Y23:646,7:3460! X11);!" "";DS$"" :C1:106811,15:3340", DS63Z1 :"6 DS62Z5 :""@ Z0:,"J C0:;"T N02950C"^ "p"h X18 :Y115:X218:Y23 :"":3460:"";"r ""X11)"OTHING TO DIT:":106811,12:3340:"| 220" "":FL0FLLI7" " : "" ""# X11:X25:Y14:Y21:3470:X11)"AME:"# 19,32J# ""RR$:"";:RR$:19,0# X11:X212:Y19:Y21:3470:X11)"NGREDIANTS:"# 19,32# X1N# PI$""G$(X):"";# "";G$(X)# # 19,0# X15:X228:Y111:Y21:3470:X11);$ " ADD MORE INGREDIENTS?: Y/N "2$ A$:A$""3070D$ A$"Y"3110:V$ A$""3110:`$ 3200s$& 3470:X110)$0 " 'E' TO ND" :XN$: :$D C$"":XX1:NN1 :"NGREDIENT";G$:G$"E"NN1:3200$N "MOUNT";AM$$X L1(G$):L1FLFLL1=%b C1 FL(G$) :C$C$(160): :G$(X)C$G$" "AM$:W%l L1(G$):L1LILIL1a%v 3140% : "EMP ":" ";TP$:"";TP$% "IME ":" "TM$:"";TM$% ""% 646,15% 11390% "": 220% 10658% $& X111:Y117:X216:Y23:3460::X12);=&* " EPLACE? Y/N"R&4 :A$:A$""3380c&> A$"Y"3420t&H A$""3420&R "":220&\ 3460::X11)" AVING... "&f (RN$,1)"@" RN$"@:"RN$:&p (CC$,1)"@" CC$"@:"CC$:&z 2390& WINDOW ' Y10Y10' Y2 0Y2 0J' 10965,X1:10967,X2:10966,Y1:10968,Y2U' 10763[' |' 198,0:A$"":Q$(13) L20' L0' 10969' Q$:Q$""3540' Q$"\"' Q$(13):X11);:L20 :' Q(Q$(0))'L0Q203550(L2(X22) :X11);:L20)(L80 :_($Q 20 A$(A$,L1):" ";:10969:LL1:L2L21o(.Q 323550(8Q2193550(BQ193Q95 3550(LA$A$Q$:L(A$):L2L21(V212,0(`Q$;:212,0:10969(j3550(t) )  980/i   8`-" 9I99 iL$)L&);ȥ8;LS)$$0:R.* )ԩԩԩԩ(Ԣ8 )3i )L) )``Hh` * L* |* * |* * *  *i Lr*`*  L*`* L* `* * L* |*L*`%+͆+ L*+` X+Y+ "+`Z+[+ 0+LR+ Z+[+[+` LX+Y+ l+` }+ R+` X+Y+`t,X+/Y+0 00t,w,+ 2t,L.,_ 2t,L., t,L+^2L.,/ 00``s,u,t, `002t,  ,L:,  ,L+( 0000u,00v, 61 2    u, 1   k0/i/i 1  # X+Y+ 10i0~~ . 0 00 O/L4- 3 L,L(3ɑLH3\o@ k0/X+/Y+ 0L,ɝmRɔL.ɅL/.ɆL.Ln. _L-ېL;-`L-L- L-L;- 1L- 61`u,0L,u,L,u,L,u, k3L,0u,m00i k3L,0//0/0/ t//0/0000L,L,L2u,L,u, / y3 k3 3u,L,L,0/0/0// //0/0Ϋ00L,L, 3 02 0 3u,L, 2L,0000ԩ !/L,/ ` 1 _1 __ 0̱0L,/ !/u, L\/00`/m///m//`8//////` 000 / /00`8//`/0 //00``00 0 !0 ;000`0i0i//`/0 Z0/00``//// /`X+/Y+/// t//0/0`X+Y+` `H1  0 _ 0 01h`0/0/// //i//i/`0 `0`00`0/0/// //X+/Y+ 0`0ͮ0`0ͭ0` `e0e0`H00h2ȥH81H1hhL1hh22 0 ɭ20 00` d' : : :  1:EXTPAGE 3:REV.PAGE \ FOR AIN ENU TRL  FOR ELP SCREEN AGE: @ @/0/ 00 L2` k0/i//i/Y+͉/Lq.X+͈/Lq.L,u,ɡ9(mu,u,(eeL,u,)8u,(u,8(L,L,8`8X+X+Y+Y+`80000`0i00i0`0 `0`L,003 00 `  1 OVES UP THROUGH THE PAGES.  3 OVES ACK THROUGH THE PAGES.  @ HEREVER YOU PRESS THE '@' KEY VERYTHING BEFORE IT WILL BE INCLUDED IN THE BUFFER. VERYTHING PAST '@' WILL BE DELETED. HE LUE CHARACTERS ARE INCLUDED. HE REY ONES ARE DELETED.  _ HEREVER YOU SEE '_' THERE IS A ARRIAGE RETURN.  \ HE '\' KEY BRINGS YOU BACK TO THE AIN ENU. T THE TOP YOU WILL SEE THE OLUMN # THE OUNTER # (HERE YOU ARE) AND THE ENGHT OF THE UFFER.(RESS A EY)