C64S tape image fileROBERT CARRIER MP J/MENU J/MENU  A(X)30(X5)20(X5)o B(X)31(X1X3X5X7X8X10X12)30(X4X6X9X11)29(X2)GL8:DL5:DN140:PE30:PA30(0)8000PE60:PA100 D$(DN),G$(PE),P$(PA),ME$(6),T$(3),Z(3),G%(GL),D%(DL),GC%(GL),DC%(DL),CO$(DL)JPL$"PLANNER":E$"END":T$(1)"DISHES ":T$(2)"GUESTS ":T$(3)"PARTIES"G1(TI):CO$(1)"STARTER ":CO$(2)"MAIN COURSE":CO$(3)"VEGETABLE "CO$(4)"DESSERT ":CO$(5)"WINE " IN$"INVALID NUMBER ":AI$"ALREADY INCLUDED ":TL$"TOO LONG...RE-ENTER"@ SP$" "N 161:164 MS$" ":ME$(1)"GET "PL$:ME$(2)"ADD TO "PL$:ME$(3)"REVIEW "PL$ ME$(4)"SEL'T FROM "PL$:ME$(5)"SAVE "PL$:ME$(6)E$:ME6:167MS$ME$(OP):POOP  OP 16,19,20,21,16,23G158:"LOAD DATA TAPE AND WHEN READY":164:158:b OP18,23,23,23,22,23n28:1248:SB1:1290:12105:1239:SB0:SA1:12158:SB1SA02527"WARNING..CHANGES NOT SAVED.":"OK TO END Y OR N";GT$&GT$"Y"12,[1,1,0,PL$:158:"READING "PL$" DATA"I13:1,Z(I):Z(I)0"NO "T$(I):35I11Z(I):I31,32,331,D$(I1):34 1,G$(I1):34!1,P$(I1)"37:I1#:I$1:,%PS$(Z(I)):Z(I)100PS$" "PS$:Z(I)10PS$" "PS$M&""T$(I)" :"PS$" "I1"":{'1,1,1,PL$:158:"SAVING "PL$" DATA"(I13:1,Z(I):Z(I)0"NO "T$(I):46)I11Z(I):I42,43,44*1,D$(I1):45+1,G$(I1):45,1,P$(I1)-37:I1.:I/1:)049:ET50,50,50,89f1EOOP:I13:ME$(I)T$(I):I:ME$(4)E$:ME4:167:ETOP:2(0)200""110)"MEMORY LIMIT":164:483""4ET61,53,72,895Z(2)PE""110)"NAME LIMIT":164:486Z(2)Z(2)17"GUEST NUMBER"Z(2)J8"ENTER NAME":GE$:GE$"END"164:Z(2)Z(2)1:48b9(GE$)19TL$:56:""GE$:"OK TO ADD Y OR N";:GT$:GT$"Y"55;G$(Z(2))GE$:Z(2)PE48<54=I15:ME$(I)CO$(I):I:ME$(6)E$:ME6:167:OP648>" "CO$(OP)""Q?"NUMBER TO CHANGE";GT$:DZ(GT$):DZ0DZA(OP)65m@"INVALID NUMBER":63ADZ(OP1)30DZ:"EXISTING NAME IS:":D$(DZ):B"OK TO USE Y OR N";GT$:GT$"Y"61C" "CO$(OP)""D"NEW NAME:":GE$:(GE$)2070ETL$:68WF""GE$:"OK TO ADD Y OR N";GT$:GT$"Y"61jGD$(DZ)GE$:61HZ(3)PA""110)"PARTY LIMIT":164:48IZ(3)Z(3)1:"PARTY DATE":"===== ===="J"MONTH NO.(JAN=1)";M$:MM(M$):MM0MM1376K"INVALID":74?L"DAY";D$:DD(D$):DD1DDB(MM)75nM"YEAR";Y$:YY(Y$):YY1900YYYY1900NYY0YY9975ODA$(YY60)(MM60)(DD60)PGN0:GA$"":Z(2)0"NO GUEST TO INCLUDE":164:82Q214RGA$(GN60)GA$%SDI0:DI$"":191:DI$(DI60)DI$ITP$(Z(3))DA$GA$DI$:Z(3)148UIZ(3)21:PS$P$(I):156:DADZ:PS$P$(I1):156:DBDZVDADB48WPS$P$(I1):P$(I1)P$(I):P$(I)PS$:IX48YZ49:ET91,92,94,104[191:90\Z(2)0"NO GUESTS":164:90']214:90P^"REVIEW PARTIES":"====== ======="v_Z(3)0"NO PARTIES":164:90`164aIZ(3)11:PS$P$(I):171:179b""250)212)"DELETE Y OR N";:GT$:GT$E$90cGT$"Y"102dIZ(3)P$(I)" ":Z(3)Z(3)1:102_eI1IZ(3)1:P$(I1)P$(I11):I1:P$(Z(3))" ":Z(3)Z(3)1:I1(0)ffIng90thiME$(2)"LAST HAVE GUEST(S)":ME$(3)"LAST MAKE DISH(ES)"jME$(4)"GUEST(S) & DISH(ES)":ME$(1)"MENU PLANNER":ME$(5)"VIC'S CHOICE" kME$(6)E$:ME6:167) l""ME$(OP)""S mDI0:GN0:I15:DC%(I)0:GC%(I)0:Is nOP127,111,112,111,140,155 o214:OP2113 p191 qSY0:Z(3)0124 rIZ(3)11:PS$P$(I):171:SW0 sOP3119!tI11GN:I21GZ:G%(I2)GC%(I1)118!uI2:I1:123 !vOP2121J!wI11DI:I21DZ:D%(I2)DC%(I1)121[!xI2:I1:123!y179:SY1:""250)212)"CONTINUE Y OR N";!zGT$:GT$"Y"125!{I!|SY0"NO PARTIES SELECTED":164!}SF1134!~105 "I15:DC%(I)0:I."141:" SUGGESTIONS":240`"SY0:"KEEP Y OR N:":I15:GT$" "x"SF1DC%(I)0:132"DC%(I)0SYSY1:133"CO$(I)":";:GT$:GT$"Y"DC%(I)D%(I):SYSY1"I:SF0:SY5128"" TODAY'S MENU":240%#SF1I15:D%(I)DC%(I):I:129C#"CHECK FOR LAST MADE"s#" Y OR N ";GT$:GT$"Y"164:105#DI5:OP3:I15:DC%(I)0DC%(I)D%(I)#I:SF1:113#DA$" VIC DAY":141:146#I15:SEA(I) $DJ((1)SE)(I1)301:DJD%(I)142$D%(I)DJ"$I:\$D%(2)((1)(MNSN))SN1:D%(3)((1)(DNMN))MN1$"NUMBER OF GUESTS";GT$:GZ(GT$):GZ1GZGL146$GZZ(2)GZZ(2)$Z(2)0154$I1GZ$GX((1)Z(2))1:I1153%I11I1:G%(I1)GX150 %I1%G%(I)GX:I2%DZ5:179:164:1058%%DZ(((PS$,1,1))60)10000(((PS$,2,1))60)100((PS$,3,1))60%%"":""SP$:"COMMODORE / IVAN BERG "%" SOFTWARE ";:%IC1IK:" ";:IC:"";:5&36879,26:158:PS$(SP$,16):IK69:160:PS$;:IK6:160u&" ROBERT CARRIER ";:160:PS$;:160:" MENU PLANNER ";&160:PS$;:IK69:160:""SP$" (C) (P) 1982":&""250)234)"PRESS  SPACE ";&GT$:GT$" "165&/'GT$"0":158:" "MS$"":I11ME:S$((I1),2)O'" "S$" "ME$(I1)"":I1'" OPTION";GT$:OP(GT$):OP1OPME169''DA$((((PS$,3,1))60),2)"/"((((PS$,2,1))60),2)"/"'DA$DA$((((PS$,1,1))60),2)(GZ((PS$,4,1))60:GZ0175;(I11GZ:G%(I1)((PS$,I14,1))60:I1f(PS5GZ:DZ((PS$,PS,1))60:DZ0178(I11DZ:D%(I1)((PS$,I1PS,1))60:D%(I1)190D%(I1)81(I1((""8)"DATE:"DA$:"GUESTS:":GZ0"NO GUESTS":185 )I11GZ:PO41834)I21GN:G%(I1)GC%(I2)"";:183<)I2Z)" "G$(G%(I1))"":I14b)I1)"MENU:":DZ0"NO DISHES":)I11DZ:D%(I1)120"WINE:")PO4190)I21DI:D%(I1)DC%(I2)"";:190)I2 *" "D$(D%(I1))"":I1:H*I15:I112:" "CO$(I)"":I2115:I3I2(I11)15n*PS$((I3),2):I310PS$" "PS$*PS$""PS$" "D$((I1)30I3):(PS$)24PS$;:195*PS$*I25I210*I5I12I25198*I2*PO4PO2164:212+CS1:237:239:GT$"E"213/+GT$"N"212W+GYI3GY(I11)15IN$:237:198r+DIDI1:GY(I1)30GY+DI1206+I41DI1:DC%(I4)GYAI$:237:DIDI1:199+I4+DC%(DI)GY:PO2208+210+GY81GY190,DI$DI$(GY60),DI5237:1995,"DISH LIMIT":164:213@,I1:IF,," GUESTS":I1Z(2):PS$((I),2):I10PS$" "PS$,PS$""PS$" "G$(I):(PS$)24PS$;:217,PS$,I(I5)50,I(I15)150IZ(2)235 -PO2PO4164:233 -CS1:237:2391-GT$"E"236B-GT$"N"234o-GY((I1)15)151GYIIN$:237:220{-GNGN1-GN1228-I11GN1:GC%(I1)GYAI$:237:GNGN1:220-I1-GC%(GN)GY:PO2230-231-GA$GA$(GY60).GNGL237:220.."GUEST LIMIT":164:236>.IZ(2)236Q." GUESTS"X.I^..CS0164:WI2022:781,WI:(60045):WI.781,20:782,0:783,0:(65520):CS0:.GT$"0":"NUMBER/NEXT/END";GT$:GY(GT$):%/I415:CO$(I4)"":DC%(I4)0" "D$(D%(I4)):2429/" "D$(DC%(I4))H/"":I4:  A(X)30(X5)20(X5)o B(X)31(X1X3X5X7X8X10X12)30(X4X6X9X11)29(X2)GL8:DL5:DN140:PE30:PA30(0)8000PE60:PA100 D$(DN),G$(PE),P$(PA),ME$(6),T$(3),Z(3),G%(GL),D%(DL),GC%(GL),DC%(DL),CO$(DL)JPL$"PLANNER":E$"END":T$(1)"DISHES ":T$(2)"GUESTS ":T$(3)"PARTIES"G1(TI):CO$(1)"STARTER ":CO$(2)"MAIN COURSE":CO$(3)"VEGETABLE "CO$(4)"DESSERT ":CO$(5)"WINE " IN$"INVALID NUMBER ":AI$"ALREADY INCLUDED ":TL$"TOO LONG...RE-ENTER"@ SP$" "N 161:164 MS$" ":ME$(1)"GET "PL$:ME$(2)"ADD TO "PL$:ME$(3)"REVIEW "PL$ ME$(4)"SEL'T FROM "PL$:ME$(5)"SAVE "PL$:ME$(6)E$:ME6:167MS$ME$(OP):POOP  OP 16,19,20,21,16,23G158:"LOAD DATA TAPE AND WHEN READY":164:158:b OP18,23,23,23,22,23n28:1248:SB1:1290:12105:1239:SB0:SA1:12158:SB1SA02527"WARNING..CHANGES NOT SAVED.":"OK TO END Y OR N";GT$&GT$"Y"12,[1,1,0,PL$:158:"READING "PL$" DATA"I13:1,Z(I):Z(I)0"NO "T$(I):35I11Z(I):I31,32,331,D$(I1):34 1,G$(I1):34!1,P$(I1)"37:I1#:I$1:,%PS$(Z(I)):Z(I)100PS$" "PS$:Z(I)10PS$" "PS$M&""T$(I)" :"PS$" "I1"":{'1,1,1,PL$:158:"SAVING "PL$" DATA"(I13:1,Z(I):Z(I)0"NO "T$(I):46)I11Z(I):I42,43,44*1,D$(I1):45+1,G$(I1):45,1,P$(I1)-37:I1.:I/1:)049:ET50,50,50,89f1EOOP:I13:ME$(I)T$(I):I:ME$(4)E$:ME4:167:ETOP:2(0)200""110)"MEMORY LIMIT":164:483""4ET61,53,72,895Z(2)PE""110)"NAME LIMIT":164:486Z(2)Z(2)17"GUEST NUMBER"Z(2)J8"ENTER NAME":GE$:GE$"END"164:Z(2)Z(2)1:48b9(GE$)19TL$:56:""GE$:"OK TO ADD Y OR N";:GT$:GT$"Y"55;G$(Z(2))GE$:Z(2)PE48<54=I15:ME$(I)CO$(I):I:ME$(6)E$:ME6:167:OP648>" "CO$(OP)""Q?"NUMBER TO CHANGE";GT$:DZ(GT$):DZ0DZA(OP)65m@"INVALID NUMBER":63ADZ(OP1)30DZ:"EXISTING NAME IS:":D$(DZ):B"OK TO USE Y OR N";GT$:GT$"Y"61C" "CO$(OP)""D"NEW NAME:":GE$:(GE$)2070ETL$:68WF""GE$:"OK TO ADD Y OR N";GT$:GT$"Y"61jGD$(DZ)GE$:61HZ(3)PA""110)"PARTY LIMIT":164:48IZ(3)Z(3)1:"PARTY DATE":"===== ===="J"MONTH NO.(JAN=1)";M$:MM(M$):MM0MM1376K"INVALID":74?L"DAY";D$:DD(D$):DD1DDB(MM)75nM"YEAR";Y$:YY(Y$):YY1900YYYY1900NYY0YY9975ODA$(YY60)(MM60)(DD60)PGN0:GA$"":Z(2)0"NO GUEST TO INCLUDE":164:82Q214RGA$(GN60)GA$%SDI0:DI$"":191:DI$(DI60)DI$ITP$(Z(3))DA$GA$DI$:Z(3)148UIZ(3)21:PS$P$(I):156:DADZ:PS$P$(I1):156:DBDZVDADB48WPS$P$(I1):P$(I1)P$(I):P$(I)PS$:IX48YZ49:ET91,92,94,104[191:90\Z(2)0"NO GUESTS":164:90']214:90P^"REVIEW PARTIES":"====== ======="v_Z(3)0"NO PARTIES":164:90`164aIZ(3)11:PS$P$(I):171:179b""250)212)"DELETE Y OR N";:GT$:GT$E$90cGT$"Y"102dIZ(3)P$(I)" ":Z(3)Z(3)1:102_eI1IZ(3)1:P$(I1)P$(I11):I1:P$(Z(3))" ":Z(3)Z(3)1:I1(0)ffIng90thiME$(2)"LAST HAVE GUEST(S)":ME$(3)"LAST MAKE DISH(ES)"jME$(4)"GUEST(S) & DISH(ES)":ME$(1)"MENU PLANNER":ME$(5)"VIC'S CHOICE" kME$(6)E$:ME6:167) l""ME$(OP)""S mDI0:GN0:I15:DC%(I)0:GC%(I)0:Is nOP127,111,112,111,140,155 o214:OP2113 p191 qSY0:Z(3)0124 rIZ(3)11:PS$P$(I):171:SW0 sOP3119!tI11GN:I21GZ:G%(I2)GC%(I1)118!uI2:I1:123 !vOP2121J!wI11DI:I21DZ:D%(I2)DC%(I1)121[!xI2:I1:123!y179:SY1:""250)212)"CONTINUE Y OR N";!zGT$:GT$"Y"125!{I!|SY0"NO PARTIES SELECTED":164!}SF1134!~105 "I15:DC%(I)0:I."141:" SUGGESTIONS":240`"SY0:"KEEP Y OR N:":I15:GT$" "x"SF1DC%(I)0:132"DC%(I)0SYSY1:133"CO$(I)":";:GT$:GT$"Y"DC%(I)D%(I):SYSY1"I:SF0:SY5128"" TODAY'S MENU":240%#SF1I15:D%(I)DC%(I):I:129C#"CHECK FOR LAST MADE"s#" Y OR N ";GT$:GT$"Y"164:105#DI5:OP3:I15:DC%(I)0DC%(I)D%(I)#I:SF1:113#DA$" VIC DAY":141:146#I15:SEA(I) $DJ((1)SE)(I1)301:DJD%(I)142$D%(I)DJ"$I:\$D%(2)((1)(MNSN))SN1:D%(3)((1)(DNMN))MN1$"NUMBER OF GUESTS";GT$:GZ(GT$):GZ1GZGL146$GZZ(2)GZZ(2)$Z(2)0154$I1GZ$GX((1)Z(2))1:I1153%I11I1:G%(I1)GX150 %I1%G%(I)GX:I2%DZ5:179:164:1058%%DZ(((PS$,1,1))60)10000(((PS$,2,1))60)100((PS$,3,1))60%%"":""SP$:"COMMODORE / IVAN BERG "%" SOFTWARE ";:%IC1IK:" ";:IC:"";:5&36879,26:158:PS$(SP$,16):IK69:160:PS$;:IK6:160u&" ROBERT CARRIER ";:160:PS$;:160:" MENU PLANNER ";&160:PS$;:IK69:160:""SP$" (C) (P) 1982":&""250)234)"PRESS  SPACE ";&GT$:GT$" "165&/'GT$"0":158:" "MS$"":I11ME:S$((I1),2)O'" "S$" "ME$(I1)"":I1'" OPTION";GT$:OP(GT$):OP1OPME169''DA$((((PS$,3,1))60),2)"/"((((PS$,2,1))60),2)"/"'DA$DA$((((PS$,1,1))60),2)(GZ((PS$,4,1))60:GZ0175;(I11GZ:G%(I1)((PS$,I14,1))60:I1f(PS5GZ:DZ((PS$,PS,1))60:DZ0178(I11DZ:D%(I1)((PS$,I1PS,1))60:D%(I1)190D%(I1)81(I1((""8)"DATE:"DA$:"GUESTS:":GZ0"NO GUESTS":185 )I11GZ:PO41834)I21GN:G%(I1)GC%(I2)"";:183<)I2Z)" "G$(G%(I1))"":I14b)I1)"MENU:":DZ0"NO DISHES":)I11DZ:D%(I1)120"WINE:")PO4190)I21DI:D%(I1)DC%(I2)"";:190)I2 *" "D$(D%(I1))"":I1:H*I15:I112:" "CO$(I)"":I2115:I3I2(I11)15n*PS$((I3),2):I310PS$" "PS$*PS$""PS$" "D$((I1)30I3):(PS$)24PS$;:195*PS$*I25I210*I5I12I25198*I2*PO4PO2164:212+CS1:237:239:GT$"E"213/+GT$"N"212W+GYI3GY(I11)15IN$:237:198r+DIDI1:GY(I1)30GY+DI1206+I41DI1:DC%(I4)GYAI$:237:DIDI1:199+I4+DC%(DI)GY:PO2208+210+GY81GY190,DI$DI$(GY60),DI5237:1995,"DISH LIMIT":164:213@,I1:IF,," GUESTS":I1Z(2):PS$((I),2):I10PS$" "PS$,PS$""PS$" "G$(I):(PS$)24PS$;:217,PS$,I(I5)50,I(I15)150IZ(2)235 -PO2PO4164:233 -CS1:237:2391-GT$"E"236B-GT$"N"234o-GY((I1)15)151GYIIN$:237:220{-GNGN1-GN1228-I11GN1:GC%(I1)GYAI$:237:GNGN1:220-I1-GC%(GN)GY:PO2230-231-GA$GA$(GY60).GNGL237:220.."GUEST LIMIT":164:236>.IZ(2)236Q." GUESTS"X.I^..CS0164:WI2022:781,WI:(60045):WI.781,20:782,0:783,0:(65520):CS0:.GT$"0":"NUMBER/NEXT/END";GT$:GY(GT$):%/I415:CO$(I4)"":DC%(I4)0" "D$(D%(I4)):2429/" "D$(DC%(I4))H/"":I4: