MoStack Demo |5w5wShopping demo stack: Attempt of implementing an electronic shopping list as a MoStack |5w5wf25wfItem |5w5w5we2= 5weName`@5wName||Name5w5w5w5w|5we Class"5w Class|| Class5w5w5w|5weList for Class$5wEveryday Stock||List for Class5w5w5w|5weBuy Today`5wBuy today?||Buy?5w5w5w5w|5we Pieces`5w Pieces||#5w5w5w5w|5we Price` |5w5w Price|$5w5w5w5w|5weFirst Card85wFirst Card|||First Card5w5w5w5w5wePrevious Card 05w|||Previous Card5w5w5w5w5weNext Card 05w|||Next Card5w5w5w5w5weBuy 8on select put "T" into field "Buy Today" put 1 into field "Pieces" go to next card end select5w 2 5w select 00000E00002600000E0100010B01541D010B0942757920546F64617903040E02000D01001D010B0650696563657303040E0300060E04002700005wBuy|||Buy5w5w5w5w|5we No Buy 8on select put "F" into field "Buy Today" put 0 into field "Pieces" go to next card end select 5w 25w select 00000E01000E0200010B01461D010B0942757920546F64617903040E03000D00001D010B0650696563657303040E0400060E0500055w No Buy||| No Buy5w5w5w5w|5we Double~on select put field "Price"*2 into field "Price" end select5w 25w select 00000E01000E02001D010B05507269636503090D0200111D010B05507269636503040E0300055w Double||| Double5w5w5w5w|5w5w 2= 5w           fShopping List5w5w5we25weBuy Today5wBuy today?T||||Buy Today5w5w5w5w|5weItem List $ 5w5w2||(Item List5w5w 2 5w   |5we Total`5w || Total5w5w5w5w|5weNext Card85w|||5w5w5w5w5weCalc8(on select total=0 repeat for each card c of background "Item" if field "Buy Today" of card c then total=total+(field "Pieces" of card c)*(field "Price" of card c) end if end repeat put total into field "Total" of card "Shopping List" end select 5w 2 5w select p00000E00002602000E01000D00000D00000C0E02000D0100010B044974656D232474000E03000D01000B02010B0942757920546F6461790309086B000E04000D00000B0D01000B02010B0650696563657303090D01000B02010B055072696365030911140D00000C0E05000E06002574001E23000E07000D00000B010B0D53686F7070696E67204C69737402010B05546F74616C03040E08002702005wCalc||||5w5w5w5w|5we Clear8Ron select repeat for each card c of background "Item" put "F" into field "Buy Today" of card c put 0 into field "Pieces" of card c end repeat end select5w 2 5w select `00000E00002601000E01000D0000010B044974656D232452000E0200010B01460D00000B02010B0942757920546F64617903040E03000D00000D00000B02010B0650696563657303040E04002552001E19000E05002701005w Clear||| Clear5w5w5w5w|5w5w 25w      5w5wd25wddShopping List5wdA2Ři2i5w 25w V8 Biscuits 1 3.50 15 Chocolate 1 1.80 2 Milk 1 1.75 18 Plummes 1 5.60 24 Quark 1 1.65 25 Salad 1 2.80 5 Tea 1 1.70 13 Tortelloni 1 6.50 14 Vanilla ice cream 1 9.70 A@dMilk5wXA2 $C2Y5w 275w Milk  ? Everydayd Bread5w,A2|]$C2s5w 275w Bread d @ EverydaydOlive oil5wA2]$C25w 275w Olive oil  #@ StockdTea5wA2]$C2`5w 275w Tea  333333? EverydaydTomatoes5w@A2^$C2e5w 275w Tomatoes  @ EverydaydCanned mais5w4A2^$C25w 275w Canned mais  333333? StockdBiscuits5wA2 _$C25w 275w Biscuits  @ EverydaydSmoked salmon 5wxA2_$C2Y5w 275w Smoked salmon  33333(@ EverydaydPepperoni 5w ]B2`$C25w 5w Pepperoni  333333@ EverydaydSpaghetti 5w` ]B2y$C25w 5w Spaghetti  ffffff? StockdTortelloni 5w]B2$C25w 5w Tortelloni  @ Everydayd"Vanilla ice cream5w]B2$C25w 5w "Vanilla ice cream  ffffff#@ EverydaydChocolate5w]B2$C25w 5w Chocolate  ? EverydaydZuchini5w]B2$C25w 5w Zuchini  333333@ EverydaydPotatoes5wL]B2$C2"5w 5w Potatoes  @ EverydaydPlummes5w]B2$C25w 5w Plummes  ffffff@ Everydayd Lemons5w]B2$C25w 5w Lemons  333333? EverydaydPeaches5w]B2$C25w 5w Peaches  @ Everydayd Muesli5w]B2V$C25w 5w Muesli  @ StockdZwieback5w ]B2$C25w 5w Zwieback  @ StockdYoghurt5wl]B2$C25w 5w Yoghurt ? Everydayd Quark5w]B2'$C2&5w 5w Quark  ffffff? Everydayd Salad5w]B2$C2S5w 5w Salad  ffffff@ EverydaydPork meat5w]B2W$C25w 5w Pork meat ffffff#@ Everyday5w 2=5wd  ,   X      L   x  @   l  4   ` 5w) 25wBiscuits  Bread Canned mais Chocolate  Lemons Milk  Muesli Olive oil Peaches Pepperoni Plummes Pork meat Potatoes  Quark  Salad Shopping List Smoked salmon Spaghetti Tea Tomatoes Tortelloni "Vanilla ice cream Yoghurt Zuchini Zwieback 5wg25wg Alpha by name5wh25wh 2=EVERYDAY BISCUITS 8 EVERYDAY BREAD 3 EVERYDAY CHOCOLATE 15 EVERYDAY LEMONS 19 EVERYDAY MILK 2 EVERYDAY PEACHES 20 EVERYDAY PEPPERONI 11 EVERYDAY PLUMMES 18 EVERYDAY PORK MEAT 26 EVERYDAY POTATOES 17 EVERYDAY QUARK 24 EVERYDAY SALAD 25 EVERYDAY SMOKED SALMON 9 EVERYDAY TEA 5 EVERYDAY TOMATOES 6 EVERYDAY TORTELLONI 13 EVERYDAY VANILLA ICE CREAM 14 EVERYDAY YOGHURT 23 EVERYDAY ZUCHINI 16 STOCK CANNED MAIS 7 STOCK MUESLI 21 STOCK OLIVE OIL 4 STOCK SPAGHETTI 12 STOCK ZWIEBACK 22 DemoE4CE`E4C CEEH B2LB2L5w5w|| GIF89a>>J&T9J5^JZJcAgBkRcWhRbOmJsRsR{R{Zsckcscsgwc{k{kZsZwZgcggk{cs{{{ss{{{ㄌs{ss{քބs{{s{{{s{!)119BFRRZZckkkss{쌌뜄륄ksww{΄ք֌猔甔猜ގ搘בֿבֿ䜥ﭔﱘ뵜ﱩﵭ繥ΌЗތؙޜޜޥ碲ﭽ穹ﵵﵵ絽罵ｵ罽ｽƭƵƽƽƽέεννޭޱ޵ֽֽ,>> H*\ȰÇ#Jlċ[Əu[#ȓ q4A,]w̓'?{ Yq=B ,^RS :̘^Mw5W-*QUPYJ;$̑խB&5Gmeӣ6.*Z ͕,ÇIwRBԌJrr| 5#KY`9|؁IZ]K'`thڷSdjn^ uTQsb 4fp l<^v}PK!X^|FTf8P +ܼ+j*`b`xzP?W;?@PeiXl@ 0 /l`&?l :mH˗$;d#68X#ΛB!&88,JlsH$1e1sdic8m7Fp@0+`%OӍPXaZc))צ8H?4!-=xI6ch"Za\?l{|*BS*wFl*EOQkEБ9K* 4cHԶ=;vTF8v9kHq99q$ x-*W"A-Vcv@/ D $ :;dS'cٗs 1P 58kDqR!n `I#n؃O!`H,0b:n 8!@8= & 2!BC8#B3C@B݉L*͓FAE#  g9;@2:9RH#n8?4 #8RPq?L9Th?8Tt8 ,Ăw\ 5@a {@`lh" x@q+\X4! ~vn,lFVl0"c?:_؀#Hqw؉SC?> =1/1(۶x~Ii8ѵ1A¸ tdkC:au< b6&I~Zp&n A*w*$BҖɁ~)M^"RkRc my C9^V3w kH,pdM" MH5(@'j.7Ꝓ L@r,Lqrt)94@,(u 4욨h3 99jV $9C= $u]P6 mȁXcX'VT*\U w@і @A5Q5(=:I(X8@ZԉtVq~B_i.(>܁\ H9JU : Ƣj G*džZX&OXH"RծN*Ŕ)Y2#tA=~Xڰ;\]_*OD!)iXSЫ'(@#h+.Z#Z@"b(!q,)C E K@0tC p=ێbGk xpش|+  8F*$px,0L`!mw*`W rAJ x H-eH`Ȅ@ X NHqCaR a+83 Jbx@HE:i;r \'@F6u6uGQ :H=`c~ƪB[˖NO1?aYK 1/,_B =؉3'4cRe=*p$|arڃP@QC]XB/qAq"טvхS{O:C^Bđ jӃG3'ðFu0!_1Hi`ฆEхsp,E?F%!|CF>,A5 axX `A G0x,={#9,8c{5p.$CqpO&(G %XqXq/LP`d[@> aGBAB3 Aµ ?47ʝ