DWB 3 RECIPE/VER2 P 17937 S 513 P 2051 < PROGRAM: RECIPE VER. 2.0 WRITTEN BY: CHRIS STONES%:(7)(14):552u::(14):E$"END":D18:D28775,139:2594,64:808,100:792,125HT$(11),FL$(9),CA$(9),RC$(500,9),DU$(5),RN(9),SG$(100,9)"":53280,0:53281,0:722?M$" -]> ECIPE ILER ERSION 2.0 <[- ":PL$"":300iR(0)60000:L(0)10:2,R,L,0,0,0,2M$" * RITTEN Y: HRIS TONE * ":PL$PL$"":300R(0)60000:L(0)20:2,R,L,0,0,0,1M$" (1987) *** *** ":PL$PL$"":300AR(0)10000:L(0)10:3,R,L,0,0,0,2M$" RESS [] TO CONTINUE.. ":PL$PL$"":300R(0)60000:L(0)10:2,R,L,0,0,0,2A$:A$""243(A$)13350:Չ200,L(M$):MI58L2:1I1(M$)19,6PL$MI)(M$,I)(M$,L(LI)):MIMI14;:^M$" NITIALIZE ATA ISK? [ Y/N ] ":PL$"":1,1,78,20,1:300cM$" NSWER 'Y' IF THIS IS FIRST TIME! ":PL$PL$"":300fR(0)60000:L(0)10:1,R,L,0,0,0,2 hA$:A$""358& mA$"Y"A$"N"3587 rA$"Y"IN1~ wM$" NE OR WO RIVE YSTEM [ 1-2 ] ":PL$""::300 xR(0)60000:L(0)10:2,R,L,0,0,0,2 z2,R,L,0,0,0,2:A$ |(A$)1(A$)2378 (A$)2.!M$" ROGRAM ISK IN RIVE# ? [ 8-9 ] ":PL$PL$"":300X!A$:(A$)8(A$)9389:D1(A$)!M$" ATA ISK IN RIVE# ? [ 8-9 ] ":PL$PL$"":300!A$:(A$)8(A$)9392:D2(A$)!:!520!IN1432"M$" NSERT ISK IN RIVE ":MT$".... "E"M$M$(D2)MT$:PL$""::300"M$" RESS [] TO CONTINUE.. ":PL$PL$"":300"2,R,L,0,0,0,2"A$:(A$)13406#:1,D2,8,"0:SYS.REC,S":DS62#1::,34,10:" ! ": 1:398;#DS0DS62:,0,10:""DS$"":#1: 3::190R#K19:1,RN(K):Kf##1:::2000#:M$" NSERT ISK IN RIVE ":MT$"... ":M$M$(D2)MT$:PL$""::300 $M$" RESS [] TO CONTINUE.. ":PL$PL$"":300$2,R,L,0,0,0,26$A$:(A$)13438}$M$" ORMATING...LEASE AIT..... ":PL$""::300$15,D2,15,"N0:RECIPE.DAT V2.0,II":500$X19:RN(X)0:X:#15 %M$" RITING ILES. LEASE AIT... ":PL$""::300,%2,D2,8,"0:SYS.REC,S,W":500@%X19:2,RN(X)L%X:#2W%K19{%2,D2,8,"0:"FL$(K)",S,W":500%2,E$:#2%K:M$" !! ":PL$PL$"":300% 2:2000%DS1""DS$::(7):&I&:M$" OADING SYSTEM FILES....WAIT..... ":PL$"":300b& 1,D1,2,"0:,S":500n& K110&1,HT$(K):500:K&K19&1,CA$(K):500:K&K19&1,FL$(K):500:K&K19&1,FD$(K):500:K&!#1::;'(M$" ETTING UP......LEASE WAIT..... ":PL$""::300M'+58,("D0"):f'."",B1,P55296:500'0I0("2B"):X$:("0200")I,(X$):'215:("0200"):200'3 A9,20,8D,A2,02,A9,22,8D,A3,02,A9,02,8D,A4,02,20,62,FF(4 A9,AD,8D,A2,02,A9,00,8D,A3,02,A9,FF,8D,A4,02,60?(5 A2,01,BD,F0,F7,AA,AD,00,FF,60(:1,6,78,20,1:6)" O YOU WISH TO ERASE THE RECIPES CURRENTLY IN MEMORY? [ Y/N ]"(;,19,10:" : 1 CATEGORY IN MEMORY AT A TIME. "(<A$:A$"Y"A$"N"572)>A$"N":ZA1:M)?:M$" RASING ROM EMORY..... ":PL$"":300^)@X1RN(F)1x)BY19:RC$(X,Y)"":Y)DX:ZA0:F0)F0,0,79,24)G,0,23)HX079:X2$;:X)J)X2,D2,2,"0:"FL$(F)",S":500:K1)Z)\L19 *^2,RC$(K,L):RC$(K,L)E$RC$(K,L)"":)*`5006*bL:KK1<*dG*f#2:p*2,D2,2,"@0:"FL$(F)",S,W":500:K1v**L19*2,RC$(K,L)*L:500:KK1:KRN(F)1**2,E$:#2:*0,0,79,24:"":X1$"":X2$"":Y1$"":Y2$""+BF13+"":X1$"":X2$"":Y1$"":Y2$"":H+X079:X1$;:Xe+Y021:Y1$;78);Y2$:Yz+X079:X2$;:X+"":BF1:+(RC$(K,L))60RC$(K,L)(RC$(K,L),60)++(RC$(K,L))255RC$(K,L)(RC$(K,L),255)+ ,0,0,79,24:"":,2,23%," TORED:";T;" "1,,63,23O," ECORDS:";RN(F);" ",,0,23:PL((CA$)2)2:40PL)" "CA$" ",1,6,78,20:, PF0:3,4:3,(10):ER5:M$" !! ": 2:3:PF1:,*3:9-722:M$" -=*> ͠ɠΠ ͠ŠΠՠ<*=- ":PL$"":300N-22,4,59,19,1:Y-K19q-" "HT$(K):K-" "HT$(10)-:" LEASE NTER OUR HOICE: "-:" -=*> ECIPE ILER ER. 2.0 <*=- "-A$:(A$)0(A$)92025.(A$)02040#.1,1,78,22,1h.M$" [ Y/N ] ":PL$"":300.A$:A$"Y"A$"N"2031.A$"N":1,1,78,22:2000..M$" ..... ":PL$"":300,/1,D2,2,"@0:SYS.REC,S,W":500:X19:1,RN(X):X:500:/#1:500/M$" EE YA NEXT SESSION! ! ":PL$"":300: 5:0,0,79,24,1::65341/(A$)2500,2600,3000,3500,2800,4500,4000,5000,6000:2000&0 1,1,78,22,1:M$" -=*> <*=- ":PL$"":30050 F05700 ZA1M$" URRENT ATEGORY EMAINS SET AT: ":PL$"":300::PL((CA$)2)2:40PL)" "CA$" ": 2::0 22,4,59,19,1:0 K190 " "CA$(K):K 1 " [0] AIN ENU"21 :" LEASE NTER OUR HOICE: "b1 :" -=*> ECIPE ILER ER. 2.0 <*=- "1 A$:(A$)0(A$)925301 0,0,79,24:,0,231 X079:X2$;:X1 (A$)0F0: 2 F(A$):CA$(CA$(F),5):,0,23:PL((CA$)2)2:40PL)" "CA$" "2 750r2 1,1,78,22,1:M$" OADING ILE.....LEASE AIT..... ":PL$"":300:600:GF1::2( F025002- 1,1,78,22,1:M$" -=*> <*=- ":PL$"":30032 M$" NTER THE INFORMATION AT PROMPTS... ":PL$PL$"":300:34 M$" O USE SEMI-COLONS OR COMAS! ":PL((M$)2)2:42PL)M$: 2:" "47 KRN(F)1:RN(F)500"":M$" ! ILE IS AT IT'S CAPACITY!!! ":PL$"":300: 3:49 1,7,78,22,14: L1804; PL(FD$(L))b4< 24PL)" "FD$(L)": ";:4);:RC$(K,L):7404= RC$(K,L)(13)"":26204> L4A L9:PL(FD$(L))4L 24PL)" "FD$(L)": ";:4);:RC$(K,L):745:RC$(K,L)(13)"":2636G5P M$" S HIS ORRECT? [ Y/N ] ":PL$"":PL(M$)2:PL$40PL)M$f5U A$:A$"Y"A$"N"26455Z A$"N"M$" ":PL$"":PL$40PL)M$:,1,0:26185_ RN(F)RN(F)1:KK1:750B6d RN(F)500M$" !! ":PL((M$)2)2:""40PL)M$:RN(F)RN(F)1:700:6i 1,7,78,22,1:M$" NOTHER ECIPE? [ Y/N ] ":PL$"":3006n A$:A$"Y"A$"N"26707s A$"N"1,1,78,22,1:M$" ...LEASE AIT... ":PL$"":300:700::7x 2617+7 F02500~7 1,1,78,22,1:M$" -=*> <*=- ":PL$"":300:28707 RN(F)0M$" O ECIPES N HIS ATEGORY.... ":PL$"":300: 3:7 1,21,76,22,1%8 M$"[]TORE ECIPE []EXT ECIPE []UIT ":PL$"":30078 1,6,78,20,1F8 K1RN(F)Q8 L19b8 PL(FD$(L))8 24PL)" "FD$(L)": ";:4);""RC$(K,L)""8 L8 A$:A$"N"A$"S"A$"Q"28358 A$"Q"1,1,78,22,1:F9 A$"N":K:M$" .... ":PL$"":300: 2:1,1,78,22,1:"":9 M$" ... ":PL$"":3009 TT19 X199" SG$(T,X)RC$(T,X)9$ X9% 750 :& 1,6,78,20,1:M$" ONTINUE? [ Y/N ] ":PL$"":300: 2?:' A$:A$"Y"A$"N"2855b:, A$"Y":KRN(F)2862:2865s:- A$"N"2865:. KK1:2815:1 "":1,1,78,22,1::6 1,8,78,15,1:T02805:8 M$" IEW RECIPES OR VIEW ALL THE ":PL$"":3004;: M$" RECIPES IN THE CATEGORY.... ":PL$"":300|;< M$" LEASE NTER HOICE: [ S/C ] ":PL$"":300:(7);> A$:A$"S"A$"C"2878;@ A$"C":1,1,78,22:2805 <=- ":PL$"":300= RN(F)0M$" O ECIPES N HIS ATEGORY.... ":PL$"":300: 3:= 1,21,76,22,1 > M$" []ODIFY []ONTINUE []UIT ":PL$"":3002> 1,7,78,20,1A> K1RN(F)L> L19]> PL(FD$(L))> 24PL)" "FD$(L)": ";:4);""RC$(K,L)""> L> A$:A$"M"A$"C"A$"Q"3055> A$"Q"1,1,78,22,1:A? A$"C":K:M$" .... ":PL$"":300: 2:1,1,78,22,1:"":? M$" HANGE NFORMATION - IT [] ":PL$"":PL(M$)2:PL$40PL)M$? 1,7,78,20? L19:PL(FD$(L))? 24PL)" "FD$(L)": ";:2);:RC$(K,L)@ L9740:Ս745@ Lr@ M$" S HIS ORRECT? [ Y/N ] ":PL$"":PL(M$)2:PL$40PL)M$:(7);@ A$:A$"Y"A$"N"3100@! A$"N",1,0:3080@& :M$" ONTINUE? [ Y/N ] ":PL$"":300:(7);A+ A$:A$"Y"A$"N"3115uA0 A$"N"1,1,78,22,1:M$" ...LEASE AIT... ":PL$"":300:700::A: 1,1,78,22,1:M$" ...LEASE AIT... ":PL$"":300:700::A? KA F02500:DF04B 1,1,78,22,1:M$" -=> <=- ":PL$"":300B RN(F)0M$" O ECIPES N HIS ATEGORY.... ":PL$"":300: 3:B 1,21,76,22,1B M$"[]RASE ECIPE []EXT ECIPE []UIT ":PL$"":300B 1,6,78,20,1B K1RN(F)C L19C PL(FD$(L))KC 24PL)" "FD$(L)": ";:2);""RC$(K,L)""RC LyC A$:A$"E"A$"N"A$"Q"3545C A$"Q"C 1,1,78,22,1:DF13620:ՎC M$" ? [ Y/N ] ":PL$"":300D A$:A$"Y"A$"N"3562{D A$"N":K:M$" .... ":PL$"":300: 2:1,1,78,22,1:"":3620D 3620D D A$"N":K:M$" .... ":PL$"":300: 2:1,1,78,22,1:"":3620@E M$" ? [ Y/N ] ":PL$"":300_E A$:A$"Y"A$"N"3562E A$"N":K:M$" .... ":PL$"":300: 2:1,1,78,22,1:"":3620E MK:KK1E NMRN(F)EL19 FRC$(N,L)RC$(N1,L)F L>FN:RN(F)RN(F)1:DF1:750:1,6,78,20,1FM$" ? [ Y/N ] ":PL$"":300: 2FA$:A$"Y"A$"N"3605GA$"Y":K:M$" .... ":PL$"":300: 2:""G"1,1,78,22,1dG$DF1DF0:M$" ...LEASE AIT... ":PL$"":300:700lG):{GF02500G1,1,78,22,1:M$" -=*> <*=- ":PL$"":300HRN(F)0M$" O ECIPES N HIS ATEGORY.... ":PL$"":300: 3:2H22,6,59,22,1=HK19[H" ["K"] "FD$(K):KvH" [0] AIN ENU"H:" NTER IELD O E ORTED: "H:" -=*> ECIPE ILER ER. 2.0 <*=- "HA$:(A$)0(A$)94030HA$"0"4070 ISO(A$)[I1,6,78,22,1:M$" ...LEASE AIT... ":PL$"":300lIP1RN(F)1uIFG0IR1RN(F)PIRC$(R,SO)RC$(R1,SO)4062IC19IT$RC$(R,C):RC$(R,C)RC$(R1,C):RC$(R1,C)T$ICIFG1IR JFG04069JPaJ:M$" !!! ['OUT IME UH?] ":PL$"":300:(7)(7): 2J1,6,78,20,1:M$" AVE ORTED ILE? [ Y/N ] ":PL$"":300J(7);JA$:A$"N"A$"Y"4075JA$"N"1,1,78,22,1:ZK1,1,78,22,1:M$" ...LEASE AIT... ":PL$"":300:700:1,1,78,22,1:iKF02500K1,1,78,22,1:M$" -=> <=- ":PL$"":300 LRN(F)0M$" O ECIPES N HIS ATEGORY.... ":PL$"":300: 3:!L22,4,59,22,1:,LK19JL" ["K"] "FD$(K):KeL" [0] AIN ENU"L:" NTER IELD OR HE EARCH: "LSF0::" -=*> ECIPE ILER ER. 2.0 <*=- "LA$:(A$)0(A$)94030LA$"0"1,1,78,22,1:MC(A$):1,4,78,20,1YMM$" EARCH IELD: "FD$(C)" ":PL(M$)2:""40PL)M$M" NTER UBJECT F HE EARCH: ";:"";2);:S$M:M$" ... ":PL$"":300MX1RN(F) N>P1:R(RC$(X,C),S$,P)lNCR0X:M$" .... ":PL$"":300: 2:1,1,78,22,1:"":NH1,21,76,22,1:SF1NMM$" []TORE ECIPE []ONTINUE []UIT ":PL$"":300NR1,7,78,20,1NWL19N\PL(FD$(L))#Oa24PL)" "FD$(L)": ";:4);""RC$(X,L)""*OfLQOkA$:A$"C"A$"S"A$"Q"4715mOpA$"Q"1,1,78,22,1:OuA$"C":4785:X::M$" .... ":PL$"":300: 2:1,1,78,22,1:"":OzTT1OB19PSG$(T,B)RC$(X,B)PBP750jP1,7,78,20,1:M$" ONTINUE? [ Y/N ] ":PL$"":300: 2PA$:A$"Y"A$"N"4760PA$"Y":XRN(F)4775:4780PA$"N"4780Q:X::M$" .... ":PL$"":300: 2:1,1,78,22,1:"":7Q"":1,1,78,22,1:~QM$" ... ":PL$"":300:QF02500Q1,1,78,22,1:M$" -=*> <*=- ":PL$"":300Q20,6,60,22,1zRP1$"[1] RINT "CA$" ROM EMORY":P2$"[2] RINT "CA$" ROM ISK ILE":P3$"[3] RINT ECIPES":P4$"[0] ETURN TO AIN ENU"R:3);P1$:3);P2$RT03);P3$R:3);P4$::" LEASE NTER PTION:":SM$" -=*> ECIPE ILER ER. 2.0 <*=- ":" "M$:(7)8SA$:(A$)0(A$)35035US(A$)01,1,78,22,1:kS(A$)3T05005S(A$)5100,5300,5500S1,7,78,15,1:M$" S RINTER EADY? [ Y/N ] ":PL$"":300:(7)SA$:A$"Y"A$"N"5105 TA$"N"5100!T800:PF1PF0::pT:M$" NTER RINTOUT EADING (60 CHAR MAX)":PL$"":300:15)">> ";TA$(13)I60TA$:A$""5125TA$;:HD$HD$A$:II1T T :2592,0U3,4,7::M$" RINTING...LEASE AIT.... ":PL$"":300> ";cWA$(13)I60wWA$:A$""5525WA$;:HD$HD$A$:II1WW:2592,0W3,4,7::M$" RINTING...LEASE AIT.... ":PL$"":300X3,(14);(27);"A":3,HD$,(129);(15):3%XK1TRXL19:" "FD$(L)": "SG$(K,L):L::XK:3,(12):3:M$" ! ":PL$""::300: 2:1,1,78,22,1:2592,10: Yp1,1,78,22,1:M$" -=*> <*=- ":PL$"":300YqDU$(1)"[1] IEW IRECTORY":DU$(2)"[2] ORMAT ISK":DU$(3)"[3] OLLECT ISK":DU$(4)"[4] ENAME ILE":DU$(5)"[5] CRATCH ILE"Yu22,6,59,19,1:YzK15Y" "DU$(K):KY" [0] AIN ENU"Z:" LEASE NTER OUR HOICE: "AZ:" -=*> ECIPE ILER ER. 2.0 <*=- "`ZA$:(A$)0(A$)66028}Z(A$)01,1,78,22,1:Z(A$)6036,6055,6105,6155,6205:6000Z1,6,78,20,1:M$" NSERT ISK IN RIVE 8. IT [].":PL$"":300[A$:A$(13)6038[:25,6,55,20,1:" ":25,22,55,22,1:" [ ] O AUSE ":25,7,55,18[""::500:25,22,55,22:" [] O ONTINUE... "[A$:A$(13)6046:Վ\15,6,78,20,1:" HICH RIVE? [ 8/9 ]: "(7);=\A$:(A$)8(A$)96060{\" "A$:D3(A$):" NTER ITLE OR ISK: "(7);:TT$\TT$(TT$,16):" NTER 2 HARACTER : "(7);:I0\I3\A$:A$""6066\A$;:DD$DD$A$:II1\]1,6,78,20,1\]M$" NSERT ISK IN RIVE ":MT$"... ":M$M$(D3)MT$:PL$"":300]M$" RESS [] TO CONTINUE.. ":PL$PL$"":300:(7)]A$:A$(13)6075^M$" ORMATING...LEASE AIT..... ":PL$""::300-^15,D3,15,"N0:"TT$","DD$:500:#15:i^15,6,78,20,1:" HICH RIVE? [ 8/9 ]: "(7);^A$:(A$)8(A$)96110^" "A$:D3(A$)^1,6,78,20,1^M$" ORKING....LEASE AIT.... ":PL$"":300!_2592,0:15,D3,15,"V0:":500:15:2592,10:^_ 15,6,78,20,1:" HICH RIVE? [ 8/9 ]: "(7);_A$:(A$)8(A$)96160_" "A$:D3(A$):" NTER ILE AME: "(7);:T1$_T1$(T1$,16)_" NTER ILE AME: "(7);:T2$ `T2$(T2$,16)`1,6,78,20,1b`M$" ORKING....LEASE AIT.... ":PL$""::300`2592,0:15,8,15,"R0:"T2$"="T1$:500:2592,10:15:`=15,6,78,20,1:" HICH RIVE? [ 8/9 ]: "(7);`BA$:(A$)8(A$)96210aG" "A$:D3(A$):aL" NTER AME OF ILE: "(7);:T3$LaO1,6,78,20,1aQM$" ORKING....LEASE AIT.... ":PL$""::300bV15,D3,15,"S0:"T3$:DS$62M$" ":PL$PL$"":300:(7);(7): 2:15: b[500:1[1] OAD ECIPE ATEGORY [2] DD ECIPE(S) [3] ODIFY ECIPE(S) [4] ELETE ECIPE(S) [5] IEW ECIPES [6] EARCH OR A ECIPE [7] ORT ECIPES [8] RINT ECIPE(S) [9] ISK OUSEKEEPING [0] ROGRAM [1] READS [2] OUPS [3] ALADS [4] EEF [5] ORK [6] OULTRY [7] EAFOOD [8] EGETARIAN [9] ESERTS BR.REC SO.REC SA.REC BE.REC PO.REC POU.REC SE.REC VE.REC DE.REC ITLE AIN NGREDIENT OTAL OOKING IME IFFICULTY ATING OOKING ETHOD NUSUAL NGREDIENT(S) UMBER OF ERVINGS OOK & AGE # OMMENTS Q p||<>ff;|ffff>f``b<>ffff;f|0>f||ffff8~  l8nh|lf8<~vfffw;000x>`<B|~ ffff;bb48mv6"b<8Lfff~|f 3<00000<00`< <<~00ffffffff>`<|bf 0fFf<00`0~~p  pfcccf10>01fbx``~~cccc~~f|dhxlf```bfw[[[KrZZNFbp<F|<bbbbb<bbb44nfb4,Fb4<~F 0b~0000>v66?333333=51?9Ùσχ$$$$$Ù™χὃ46dz̀ϟÁπϙÙƘÙϟÙ9999Ó3ÙÙÙÙϟÙӳy8΀9? 9999<ÙÙ<<<ðf66"""ӹϝ????????????333333?????????