RbBFBlokProjDPSIVStrn2009.051ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn1 RelsStrn3 NnRlStrn8 RegnStrnSVerStrn1.01LVerStrn1.01IVerStrnhttp://www.ijwsoft.com aiviInt DVewInt aprTpInt DLanInt CLanInt DEncInt BflgInt UsBFInt IconGrup@lgelemGruphtypeInt it32dataStrn  &&,,1188;;>>AACC@@>>::6644--&&   &&99(LL0]]6jj7zz6423334443443220||/gg+SS&CC!44  %%<<,WW6qq?DC?=:73.--.......---.,*'&&yy$aa!KK 66"" ((!FF3dd>FB@BC>952/+'&&&&&&&&&&&&&&#!!! !!#uu YY88   ##AA0bb@HHHF>8774/+(&# qqQQ55 ,,$MM7vvFKLID?;5.,,*&!aa@@  --&WW<IMIFB>93/*%! llBB  --&XX>HLLF@:62-($   gg77  ''"QQ>NPJDA<5.*&"   WW ** DD6zzPZSH@950*$  {{ II ""  ,,&__FVZUJ>5-(%    ff 11 BB6||R]VOH?4)" &(8?N>DSOCF-  JJ%% TTAV\VLB:2)   & !ٟ߰hXؑkɁl3(__((  00)jjM]YQIA6,& -ARrޛ%!&h|sXUpp44;;2zzTb[OD;4*! $Ebڇ2A>tv||ݧʁ. ??BB6U^ZOC7.& BNցb7e|؍^@GGII<W[SLC7," ?h܋'P|v|wj߷W:UU II=\]RF=5,! Eph-*a|||vv|J6VVKK>^_UF9.&  2Ttvvr#X|vvݪC [[FF;]aVH;.# Ybw|vB0||; UUCC8ZaWI=0$  ,D|B(vv~3;$! OO 77/T^VJ=1%,φl||nFhe'+j́/ DD,,&rrLYRH=1&F\|M 9` 2Kz~T77  ddHYRF:/&Kޓ||jte"-2Nru6uu,,NN=ZWJ</$)uv||= e{||uvH"U\bb ==3TVL@4&&ud[:!B\%(lF(LL//(||S\OB6* gO=Zdv|vF S#88 hhK]VH9,  u||AHRvt5/6Pnn%% HH:ZXL@2&PYD-v|o1&1.Yv;RR**%T\OB6)  Bߞ|O|S&7{|u855 TT@\VH9,   0ܖ|s.&zvW2 jحCee++&PUK?2& Z~|vws$MX|r AFL*BB VV?RJ?4) NF$6|v{j"Qh~Fss%%00'LMC6*  '8K|Fd9%||v|zA FF ZZ<KD9-"6EkZV)3tJ17|q.ss,,$FF<1& My02|;?&tXK0(||v>> TT8GA6+  6ܟ;>" 6&M*\vb#2tvަ?ff##}}EG=1&nW<>*"V|v|MX,, 8|vqS66CC0GC7,! IުD3D)"iv=3DC n7TThh?G>3' Om^B$XL &mL#i|v|izz$$++"HG;/$-{j;>Bg|d#DX^|?3(dh|ߙA?? JJ5IC7,! `vdVB=( \v|KF'/lvuUW|f ]]hh@G>3' ,j[O*?9|ev\N ||||ډzz&&(( FF:.#8l|vS12!LSv]"O^H;p||v|P ????,B=4) k_7 -};U|z6AXUv||˒VV XX5>7-$ 2ݞ]LF( :MYrvv_1$Fmvv~&nnuu>@6+  2bv|vJ6 |h="]wJ(55|vN }}++((C@6+  _vr7+lvE3;Idt+/vvvǂ::==)B<3) 'בB8<%FQhtvFQvw95Y|||ab6KK SS2=6-% 3vO& 079kz|!"iuz]K+h}`8O&"`` gg6:3)  j|v6BG(aig 3LZ{(*9y|]a4jj-.93$# iiuu781& `eAE1.95teM3* ;7 Q|ozmCe["! BA%,8-pp""!!66-$ ˎ~v|||[!A4%9r9 5G_ -=||ybWe_]'6866"&66Iy ww))((31*! $qv|zF))$\[^TG) F~|rCC,95)(CYM\lws}}22004.' +h|CK$HhRR$)~l<. -C!0N0QqJpvl,<< 664-& .ߑ||8ZkF,FWwE@I17 ; 94aouv#@@995-& E*2A11@A_27$ F(#2>Wu~vJFF==5.& V:@@h@5,,@ =PPiXr|CLLAA5.&  [Z,`[@/#F:Yy@PPAA5.& =||vv|v|O$|" 2GLWv|vWNNFF 5.&  R|h'Dy7S|v||PMMCC 5.&  6svvoCLC|v%|v|RPPBB5.& P|||h8b41 =f|]+M|v|PNN??4.& DqgFXC 6F1T|35~||~>HH::4-& 3`|IF0 ,6> ))IdPb3 ]|v|f& X~wv||m7EE664-& %jj'A8 82 $ 1MkjmRsdLe6#&"E}|hτ|CEE,,3-& 0tvtk]HUK/G2#F?JZ]Y\sY# %g~6 !+(L,239|%AA $$0,& yWeVNO899(9I#/eV3OyP .Am[]eF&>&;P!& #}}~~ `&AӨ؀66 ww,*#MI^J:L+B0,3&&21VrAT|kT660++1UH~g0{{ ||ٖ$(X|~vv,,ii(&  &9-#/F%A_vM* .=>qg 7o&|O rr!! WW$$ &)J^o,uvw"<!+ND Wb< :F7ivuvGaaCC "  0SbL~|~^=<LGtUs3 1R(#B;Mٵ4TT22! J}|||a7/Tr?#|i&2,2!NF hX|^!CC ##}}  \|e"F5aY(F5k$32.%FN% `JɆvv22 ff  _ivlS/l'%b߃9/,30$3D% !,0vgT ee!! OO  h~J;Mt+]ݵدa &,))&8,&'3&Gu{t݄VV77  V||||5 UI#^јV",5$!635&88!0'.6`v|VCC ##uu  A|v?@?ud?$]6*&&6&,&,&5, '/(,*C@__ ss.. \\ 'ًv|9!:@j(-6,20,/*/5268)7/ !;K> Fvܪ+[[;; j\L== -/*/60$6),56,%% 'VD/8;5`?EE $$yy 5avY"'290&25$&,232 , 5"-Qh<:=@=r|%qq++ UU "Iv|i'g! 3.&*8',//,/!/6 37)UخߕS? 1`SZZ22 ;~v|}y39ai.!,02,33:',2!88 3 %0ʦX_Q!2<<< dd PfW2Byp +,.'%&5,, 682 %)5,h~VG )tYohh"" << NkR &#\|q޿̇ ",,*6,!28,552Pֲvy46a&IIll FtE+4v|ˬ$&%,"83!),6:!08 :/ 5'mJ pp++ EE ;qvuihE+ءǬ' %/ 73:'!7!%&./,3̸}OD KK&&ss  L|q8&nvzŜ,$,'8,!% 63"!%,),4ʀي|r`B'hh&& ?? gv2F}vvsՇO 36 %),",68)",6,YƯػ6uuBB!! aa 3ѕ{|C g|zrĻ` *"*.5)!0,,2/,%23)/Dƽ}~,\\  55  Fڤ|7S44ŷY  *3,"/6),88!2% 2,rƂدoؤ%qq88 NNavi0Fp|njd=",', )60!0: %,:5Wʉَtrݽ, RR%%nnQp/Hڏ̸T-)5), ,"6,7/:6MV~̪܋zmff++:: #p},&7js|H? '05,,!,/50)2''%rщߧvkuu??OO\>b^ּlfB# ) "26, 767/2fdג#}}PP""gg ^gw&P{l܋q^@28"28&30'/82Hfψ< ^^&& 11}},m`=;1\i{u|q*3H7, :, 9Ei^yʤٵ=dd44 99>$"9޹ҝ‚46@AF0G:(M?GSVpӬp|֖9ll;;FFQٖ~,-Iݑr<Id\vvzM`dd[ƔҪ܎s͞AwwHHWW 7`B?Q|vvܵz2#Oudryagջw5zzSS""]] #JH,&vqz !m|rƇ`lכ̦k!yyUU$$""\\  'J||ߟ& Yʁdĉ½ƒ^oʖqdوӒg5vvVV&& %%]]$ږ~||F &֏תՋ҄nձז|֥ʊi6 vvRR%% ""XX@r||^Rޤ{[,rrSS""  VV>w|u&@;uѓ@8jjGGII5p{tL34ѥu,}}ee@@88|| .]L߭v|u\ ImnNH)yy^^55 --jj <_XfvG F1!wwVV-- PP *_FKRudšjnnLL## 99pp '2"83P\HN^Q*-"$ {{bb<< $$SS  llOO++44dd{{[[55AAkkiiEE$$  AAooiiKK(( AAiiww__FF&& ==__||ggSS77 **FFaa}}ooYYDD''  ))??VVnntthhWWAA-- //AAPPaatt||}}~~yyoo__OOAA11   ""++1166??EEIILLNNRRMMNNRRNNFFEEAA55,,%%   EndGInt helemGrup@itypeInt t8mkdataStrn@ .BR]htw}yrnbQF2 9MkǵmK0 &JrͷqO,'K{ɬ{K. BsʤsC  )RซU)  *Sʘ]' #RɔR!JŁA5ui2R֕R3rk- HцBSS 'g`" -sr, 0yw2 3}|2 0}|0.yy.#ss#hc VV DD.3"pv![Z =9 &v"SS*/Xa05 `f65^`/*UO! =?cf&' BD ad  48 OVlq   -. ?BWXgi tw   !#"&%(')),*,,-- .- .- .- -,,,,uځ*)iu)'W`'%MP%"AF" 9=  4uv4  /]c/ *OQ*%DD%!9vw9! 2^b3  ,MM, %?|}?%6ac6 /NߓO. 'AruA'6[]6 .H~̀M- % "" then srclStrn=1 then srclStrnPlayer1.Visible=TruesrclStrnPlayer1Assets.Visible=True srclStrnPlayer1.Text="Player 1" srclStrn%Player1Assets.text=DFormat(Assets(0)) srclStrnend srclStrnIf QtyPlayers>=2 then srclStrnPlayer2.Visible=TruesrclStrnPlayer2Assets.Visible=True srclStrnPlayer2.Text="Player 2" srclStrn%Player2Assets.text=DFormat(Assets(1)) srclStrnend srclStrnIf QtyPlayers>=3 then srclStrnPlayer3.Visible=TruesrclStrnPlayer3Assets.Visible=True srclStrnPlayer3.Text="Player 3" srclStrn%Player3Assets.text=DFormat(Assets(2)) srclStrnend srclStrnIf QtyPlayers>=4 then srclStrnPlayer4.Visible=TruesrclStrnPlayer4Assets.Visible=True srclStrnPlayer4.Text="Player 4" srclStrn%Player4Assets.text=DFormat(Assets(3)) srclStrnend srclStrnIf QtyPlayers>=5 then srclStrnPlayer5.Visible=TruesrclStrnPlayer5Assets.Visible=True srclStrnPlayer5.Text="Player 5" srclStrn%Player5Assets.text=DFormat(Assets(4)) srclStrnend srclStrnIf QtyPlayers>=6 then srclStrnPlayer6.Visible=TruesrclStrnPlayer6Assets.Visible=True srclStrnPlayer6.Text="Player 6" srclStrn%Player6Assets.text=DFormat(Assets(5)) srclStrnend srclStrnIf QtyPlayers>=7 then srclStrnPlayer7.Visible=TruesrclStrnPlayer7Assets.Visible=True srclStrnPlayer7.Text="Player 7" srclStrn%Player7Assets.text=DFormat(Assets(6)) srclStrnend srclStrnIf QtyPlayers>=8 then srclStrnPlayer8.Visible=TruesrclStrnPlayer8Assets.Visible=True srclStrnPlayer8.Text="Player 8" srclStrn%Player8Assets.text=DFormat(Assets(7)) srclStrnend srclStrnIf QtyPlayers>=9 then srclStrnPlayer9.Visible=TruesrclStrnPlayer9Assets.Visible=True srclStrnPlayer9.Text="Player 9" srclStrn%Player9Assets.text=DFormat(Assets(8)) srclStrnend srclStrnIf QtyPlayers=10thensrclStrnPlayer10.Visible=True srclStrnPlayer10Assets.Visible=True srclStrnPlayer10.Text="Player 10" srclStrn&Player10Assets.text=DFormat(Assets(9)) srclStrnend srclStrnsrclStrnsrclStrnWeatherFactor = 1.0 srclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt {EncoInt AlasStrnflagInt shrdInt parmStrnqty As Integer rsltStrnEndGInt zMethGrupx|nameStrnCalculateResultsCompStrnVsblInt sorcGrup}EncoInt srclStrnSub CalculateResults() srclStrnsrclStrn&// calculate how many glasses are sold srclStrnDim specialResult As String srclStrnDim N1 As DoublesrclStrn)if pricePerGlass( CurPlayer ) >= kP9 then srclStrn8N1 = ((kP9 ^ 2) * kS2 / pricePerGlass( CurPlayer ) ^ 2 )srclStrnelsesrclStrn?N1 = (kP9 - pricePerGlass( CurPlayer )) / kP9 * 0.8 * kS2 + kS2 srclStrnend if srclStrnDim W As Double srclStrn!W = -signsMade( CurPlayer ) * kC9 srclStrn9Dim adBenefit As Double // % increase in sales due to ads srclStrn adBenefit = 1 - ( Exp(W) * kC2 )srclStrnDim N2 As DoublesrclStrn2N2 = Floor( WeatherFactor * N1 * (1 + adBenefit) ) srclStrnif StormBrewing thensrclStrnWeather = kWeatherStorm srclStrnUpdateWeatherReport srclStrnPlayThunderClap srclStrn[Player.PlaySong 100, 180, "0,8 55,2 67,3 64,1 62,2 60,1 57,6 55,2 60,4 60,1 62,2 64,1 67,4" srclStrnN2 = 0 srclStrn$if glassesMade( CurPlayer ) > 0 thensrclStrn*specialResult = "All lemonade was ruined." srclStrnend if srclStrnelseif StreetCrewThirsty then srclStrnN2 = glassesMade( CurPlayer ) srclStrnIspecialResult = "The street crews bought all your lemonade at lunchtime!" srclStrnend if srclStrnsrclStrn expenses srclStrnsrclStrn0NewAssetsTxt.text = DFormat( Assets(CurPlayer) )srclStrnsrclStrnJ// This section puts the player's results for the day in the results chart srclStrn// on the right side. srclStrnsrclStrnSelect Case CurPlayer srclStrnCase 0 srclStrn1Player1Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 1 srclStrn1Player2Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 2 srclStrn1Player3Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 3 srclStrn1Player4Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 4 srclStrn1Player5Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 5 srclStrn1Player6Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 6 srclStrn1Player7Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 7 srclStrn1Player8Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 8 srclStrn1Player9Assets.text = DFormat( Assets(CurPlayer) ) srclStrnCase 9 srclStrn2Player10Assets.text = DFormat( Assets(CurPlayer) ) srclStrnEnd srclStrnsrclStrn ShowResults srclStrnEnd Sub EndGInt }EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt |MethGrup~nameStrn ShowResults CompStrnVsblInt sorcGrupPEncoInt srclStrnSub ShowResults() srclStrnsrclStrnDayTxt.text = "Day " + str(Day) srclStrn7StandTxt.text = "Stand for Player" + str(CurPlayer + 1) srclStrnsrclStrnPanel.Value = kResultsPage srclStrnsrclStrnif Profitable then srclStrnsrclStrnH// Note: I'm taking a small liberty here with the original design, whichsrclStrnC// played "we're in the money" whether you made money or not. That srclStrnG// bugged me even as a kid, so I'm changing it so that it only plays if srclStrnG// you were profitable. Also, this allows the thunderstorm music to be srclStrnE// heard, which otherwise would get overwritten with our side-by-side srclStrn// approach to the UI. srclStrnsrclStrn2Player.PlaySong 4, 125, "64,2 67,3 64,1 65,2 67,4" srclStrnend if srclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt ~MethGrupnameStrnDFormat CompStrnVsblInt sorcGrupDEncoInt srclStrn+Function DFormat(value As Double) As String srclStrn/// Format the given value as dollars and cents. srclStrnif value < 0.00 thensrclStrn%return "$-" + Format( value, "0.00" ) srclStrnelsesrclStrn$return "$" + Format( value, "0.00" )srclStrnend if srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt shrdInt parmStrnvalue As Double rsltStrnString EndGInt MethGrupnameStrn MakeWeather CompStrnVsblInt sorcGrupEncoInt srclStrnSub MakeWeather() srclStrnsrclStrnDim r As Double = Rnd srclStrnif r < 0.6 then srclStrnWeather = kWeatherSunny srclStrnelseif r < 0.8 then srclStrnWeather = kWeatherCloudysrclStrnelsesrclStrnBif Day < 3 then Weather = kWeatherSunny else Weather = kWeatherHot srclStrnend if srclStrnsrclStrnChanceOfRain = 0srclStrn if Weather = kWeatherCloudy thensrclStrn)ChanceOfRain = 30 + Floor( Rnd * 5 ) * 10 srclStrn(WeatherFactor = 1.0 - ChanceOfRain / 100srclStrnBPlayer.PlaySong 97, 175, "64,3 64,2 64,1 65,2 64,1 62,2 60,1 64,5" srclStrn!elseif Weather = kWeatherHot then srclStrnWeatherFactor = 2.0 srclStrnLPlayer.PlaySong 20, 175, "69,2 67,1 69,5 67,2 65,1 67,2 69,2 65,3 62,3 57,5"srclStrnelsesrclStrnWeatherFactor = 1.0 srclStrn=Player.PlaySong 76, 250, "72,3 74,1 67,1 72,1 76,1 67,1 72,5" srclStrnend if srclStrnsrclStrnUpdateWeatherReport srclStrnsrclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt MethGrupnameStrnUpdateWeatherReport CompStrnVsblInt sorcGrup@EncoInt srclStrnSub UpdateWeatherReport() srclStrnDim report As StringsrclStrnsrclStrnselect case Weather srclStrncase kWeatherSunny srclStrnreport = "Sunny"srclStrnWeatherCanv.Backdrop = SunnyPic srclStrncase kWeatherCloudy srclStrnreport = "Cloudy" + EndOfLine _ srclStrnB+ "There is a " + str(ChanceOfRain) + "% chance of light rain, " _ srclStrn$+ "and the weather is cooler today."srclStrn WeatherCanv.Backdrop = CloudyPicsrclStrncase kWeatherHotsrclStrn$report = "Hot and Dry" + EndOfLine _srclStrn'+ "A heat wave is predicted for today!" srclStrn#WeatherCanv.Backdrop = HotAndDryPic srclStrncase kWeatherStorm srclStrn'report = "Thunderstorms!" + EndOfLine _ srclStrn;+ "A severe thunderstorm hit Lemonsville earlier today, " _ srclStrnE+ "just as the lemonade stands were being set up. Unfortunately, " _ srclStrn+ "everything was ruined!" srclStrnWeatherCanv.Backdrop = StormPic srclStrn end select srclStrnsrclStrnWeatherTxt.text = reportsrclStrnsrclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt MethGrupnameStrnDoRandomEvents CompStrnVsblInt sorcGrupEncoInt srclStrn#Function DoRandomEvents() As String srclStrnDim specialDesc As String srclStrnsrclStrnStreetCrewThirsty = false srclStrnStormBrewing = falsesrclStrnsrclStrn if Weather = kWeatherCloudy thensrclStrnif Rnd < 0.25 then srclStrn// thunderstorm!srclStrnStormBrewing = true srclStrnend if srclStrn!elseif Weather = kWeatherHot then srclStrn/// heat wave (see original source line 2410)... srclStrn!// already handled in MakeWeather srclStrnelsesrclStrn7if Rnd >= 0.25 then return "" // no special event today srclStrn;// street department is working (original source line 2210) srclStrn;specialDesc = "The street department is working today. " _ srclStrn,+ "There will be no traffic on your street."srclStrnif Rnd < 0.5 then srclStrnStreetCrewThirsty = truesrclStrnelsesrclStrnWeatherFactor = 0.1 srclStrnend if srclStrnend if srclStrnsrclStrnreturn specialDesc srclStrnsrclStrn End FunctionEndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnString EndGInt MethGrupnameStrnValidateCompStrnVsblInt sorcGrupEncoInt srclStrnSub Validate() srclStrn.// Make sure the user's inputs are reasonable. srclStrnDim valid As Boolean = true srclStrn$Dim glasses, signs, price As IntegersrclStrnsrclStrn"glasses = CDbl( InpGlassFld.text ) srclStrn3if glasses < 0 or glasses > 1000 then valid = false srclStrnsrclStrnsigns = CDbl( InpSignFld.text ) srclStrn-if signs < 0 or signs > 50 then valid = false srclStrnsrclStrn price = CDbl( InpPriceFld.text )srclStrn.if price < 0 or price > 100 then valid = false srclStrnsrclStrnZif glasses * CostPerGlass / 100 + signs * kSignCost > Assets(CurPlayer) then valid = false srclStrnsrclStrnDecisionOKButn.Enabled = valid srclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt MethGrup nameStrnPlayThunderClap CompStrnVsblInt sorcGruptEncoInt srclStrnSub PlayThunderClap() srclStrn!Dim NotePlayer1 as New NotePlayer srclStrnsrclStrnNotePlayer1.Instrument = 118srclStrnNotePlayer1.PlayNote(20,60) srclStrnNotePlayer1.Instrument = 123srclStrnNotePlayer1.PlayNote(21,120)srclStrnNotePlayer1.Instrument = 122srclStrnNotePlayer1.PlayNote(22,100)srclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt MethGrup0nameStrn SetQtyPlayers CompStrnVsblInt sorcGrupEncoInt srclStrn+Sub SetQtyPlayers(newQtyPlayers As Integer) srclStrnInitGame newQtyPlayers srclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnnewQtyPlayers As IntegerrsltStrnEndGInt MethGrupxnameStrnShowDecisionPageCompStrnVsblInt sorcGrupEncoInt srclStrnSub ShowDecisionPage() srclStrnsrclStrnUDecisionTitleTxt.text = "Decisions for Lemonade Stand for Player " + str(CurPlayer+1) srclStrnsrclStrnDim explanation As String srclStrnif Day < 3 then srclStrnCostPerGlass = 2srclStrnelseif Day < 7 then srclStrnCostPerGlass = 4srclStrnIif Day = 3 then explanation = "(Your mother quit giving you free sugar.)" srclStrnelsesrclStrnIif Day = 7 then explanation = "(The price of lemonade mix just went up.)" srclStrnCostPerGlass = 5srclStrnend if srclStrn(CostTxt.text = "$.0" + str(CostPerGlass)srclStrnCostExpTxt.text = explanation srclStrnsrclStrn:AssetsTxt.text = "$" + Format( Assets(CurPlayer), "-0.00") srclStrnsrclStrn7InpGlassLabel.text = "How many glasses of lemonade (" _ srclStrnC+ Format( CostPerGlass, "0" ) + " cents each) do you wish to make?" srclStrn4InpSignLabel.text = "How many advertising signs (" _srclStrnF+ Format( kSignCost * 100, "0" ) + " cents each) do you want to make?" srclStrnsrclStrn3InpGlassFld.text = CStr( GlassesMade( CurPlayer ) ) srclStrn0InpSignFld.text = CStr( SignsMade( CurPlayer ) )srclStrn5InpPriceFld.text = CStr( PricePerGlass( CurPlayer ) ) srclStrnsrclStrnValidatesrclStrnsrclStrnPanel.Value = kNewDayPage srclStrnsrclStrnInpGlassFld.SetFocussrclStrnInpGlassFld.SelStart = 0srclStrnInpGlassFld.SelLength = 99999 srclStrnsrclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt PropGrupnameStrn CostPerGlassCompStrnVsblInt sorcGruptEncoInt srclStrnCostPerGlass As Integer srclStrn%Cost of lemonade per glass, in cents. srclStrnEndGInt EncoInt declStrnCostPerGlass As Integer flagInt shrdInt EndGInt PropGrupnameStrnDay CompStrnVsblInt sorcGrupdEncoInt srclStrnDay As Integer srclStrnWhich day of the game we're on. srclStrnEndGInt EncoInt declStrnDay As Integer flagInt shrdInt EndGInt PropGrupnameStrnAssets()CompStrnVsblInt sorcGrup<EncoInt srclStrnAssets() As Double srclStrnEndGInt EncoInt declStrnAssets() As Double flagInt shrdInt EndGInt PropGrupnameStrn QtyPlayers CompStrnVsblInt sorcGrup@EncoInt srclStrnQtyPlayers As Integer srclStrnEndGInt EncoInt declStrnQtyPlayers As Integer flagInt shrdInt EndGInt PropGrupnameStrn CurPlayer CompStrnVsblInt sorcGrup<EncoInt srclStrnCurPlayer As IntegersrclStrnEndGInt EncoInt declStrnCurPlayer As IntegerflagInt shrdInt EndGInt PropGrupnameStrn GlassesSold() CompStrnVsblInt sorcGrup@EncoInt srclStrnGlassesSold() As IntegersrclStrnEndGInt EncoInt declStrnGlassesSold() As IntegerflagInt shrdInt EndGInt PropGrupnameStrn WeatherFactor CompStrnVsblInt sorcGrup@EncoInt srclStrnWeatherFactor As Double srclStrnEndGInt EncoInt declStrnWeatherFactor As Double flagInt shrdInt EndGInt PropGrupnameStrn ChanceOfRainCompStrnVsblInt sorcGrup@EncoInt srclStrnChanceOfRain As Integer srclStrnEndGInt EncoInt declStrnChanceOfRain As Integer flagInt shrdInt EndGInt PropGrupnameStrnWeather CompStrnVsblInt sorcGrup<EncoInt srclStrnWeather As Integer srclStrnEndGInt EncoInt declStrnWeather As Integer flagInt shrdInt EndGInt PropGrupnameStrnStreetCrewThirsty CompStrnVsblInt sorcGrupDEncoInt srclStrnStreetCrewThirsty As BooleansrclStrnEndGInt EncoInt declStrnStreetCrewThirsty As BooleanflagInt shrdInt EndGInt PropGrupnameStrn StormBrewingCompStrnVsblInt sorcGrup@EncoInt srclStrnStormBrewing As Boolean srclStrnEndGInt EncoInt declStrnStormBrewing As Boolean flagInt shrdInt EndGInt PropGrupnameStrn Profitable CompStrnVsblInt sorcGrup@EncoInt srclStrnProfitable As Boolean srclStrnEndGInt EncoInt declStrnProfitable As Boolean flagInt shrdInt EndGInt PropGrupnameStrn GlassesMade() CompStrnVsblInt sorcGrup@EncoInt srclStrnGlassesMade() As IntegersrclStrnEndGInt EncoInt declStrnGlassesMade() As IntegerflagInt shrdInt EndGInt PropGrupnameStrn SignsMade() CompStrnVsblInt sorcGrup@EncoInt srclStrnSignsMade() As Integer srclStrnEndGInt EncoInt declStrnSignsMade() As Integer flagInt shrdInt EndGInt PropGrupnameStrnPricePerGlass() CompStrnVsblInt sorcGrupDEncoInt srclStrnPricePerGlass() As Integer srclStrnEndGInt EncoInt declStrnPricePerGlass() As Integer flagInt shrdInt EndGInt PDefGrup4nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup<nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt PDefGrup0nameStrnMenuBar PValStrn 524678434 EndGInt PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup0nameStrn LiveResize PValStrnFalse EndGInt PDefGrup0nameStrn Resizeable PValStrnFalse EndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup@nameStrnTitle EncoInt PValStrnLemonade Stand EndGInt PDefGrup$nameStrnBackdropPValStrnEndGInt PDefGrup(nameStrn BackColor PValInt EndGInt PDefGrup0nameStrn HasBackColorPValStrnFalse EndGInt PDefGrup0nameStrn Composite PValStrnFalse EndGInt PDefGrup$nameStrnFrame PValInt EndGInt PDefGrup(nameStrn MaxHeight PValInt }EndGInt PDefGrup$nameStrnMaxWidthPValInt }EndGInt PDefGrup(nameStrn MinHeight PValInt @EndGInt PDefGrup$nameStrnMinWidthPValInt @EndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt |EndGInt PDefGrup(nameStrn Placement PValInt EndGInt VwBhGrupVwPrGrupDNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupLNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupHNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrup0NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt EndGInt VwPrGruppNameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppNameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrup NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppdefnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt EndGInt VwPrGrup|NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt VwPrGrupxNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt VwPrGrupxNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt VwPrGruptNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt VwPrGrup|NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt EndGInt CnstGrupnameStrnkStartingAssets CompStrnVsblInt EncoInt nameStrnkStartingAssets typeInt defnStrn2.00flagInt EndGInt CnstGrupnameStrn kSignCost CompStrnVsblInt EncoInt nameStrn kSignCost typeInt defnStrn0.15flagInt EndGInt CnstGrupnameStrn kNewDayPage CompStrnVsblInt EncoInt nameStrn kNewDayPage typeInt defnStrn0 flagInt EndGInt CnstGrupnameStrn kResultsPageCompStrnVsblInt EncoInt nameStrn kResultsPagetypeInt defnStrn1 flagInt EndGInt CnstGruppnameStrnkP9 CompStrnVsblInt EncoInt nameStrnkP9 typeInt defnStrn10 flagInt EndGInt CnstGruppnameStrnkS2 CompStrnVsblInt EncoInt nameStrnkS2 typeInt defnStrn30 flagInt EndGInt CnstGruppnameStrnkC9 CompStrnVsblInt EncoInt nameStrnkC9 typeInt defnStrn0.5 flagInt EndGInt CnstGruppnameStrnkC2 CompStrnVsblInt EncoInt nameStrnkC2 typeInt defnStrn1 flagInt EndGInt CnstGrupnameStrn kWeatherSunny CompStrnVsblInt EncoInt nameStrn kWeatherSunny typeInt defnStrn2 flagInt EndGInt CnstGrupnameStrn kWeatherHot CompStrnVsblInt EncoInt nameStrn kWeatherHot typeInt defnStrn7 flagInt EndGInt CnstGrupnameStrnkWeatherCloudy CompStrnVsblInt EncoInt nameStrnkWeatherCloudy typeInt defnStrn10 flagInt EndGInt CnstGrupnameStrn kWeatherStorm CompStrnVsblInt EncoInt nameStrn kWeatherStorm typeInt defnStrn5 flagInt EndGInt CBhvGrupSuprStrnCanvas HInsGrupnameStrnPaint CompStrnVsblInt sorcGrupEncoInt srclStrnSub Paint(g As Graphics)srclStrn$g.DrawRect 0, 0, me.width, me.heightsrclStrnsrclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn PagePanel EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGruptSuprStrn PushButton HInsGrup@nameStrnAction CompStrnVsblInt sorcGrupEncoInt srclStrn Sub Action()srclStrn3GlassesMade( CurPlayer ) = CDbl( InpGlassFld.text ) srclStrn0SignsMade( CurPlayer ) = CDbl( InpSignFld.text )srclStrn5PricePerGlass( CurPlayer ) = CDbl( InpPriceFld.text ) srclStrnsrclStrnCurPlayer = CurPlayer + 1 srclStrnif CurPlayer >= QtyPlayers then srclStrn CurPlayer = 0 srclStrnCalculateResultssrclStrn ShowResults srclStrnelsesrclStrnShowDecisionPagesrclStrnend if srclStrnsrclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn TextField HInsGrupnameStrn TextChange CompStrnVsblInt sorcGrupTEncoInt srclStrnSub TextChange()srclStrnValidatesrclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn TextField HInsGrupnameStrn TextChange CompStrnVsblInt sorcGrupTEncoInt srclStrnSub TextChange()srclStrnValidatesrclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrup SuprStrn TextField HInsGrup nameStrn TextChange CompStrnVsblInt sorcGrupT EncoInt srclStrnSub TextChange()srclStrnValidatesrclStrnEnd Sub EndGInt  EndGInt  EndGInt  CBhvGrup SuprStrn StaticText EndGInt  CBhvGrup SuprStrn StaticText EndGInt  CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn PushButton HInsGrupXnameStrnAction CompStrnVsblInt sorcGrupEncoInt srclStrn Sub Action()srclStrnCurPlayer = CurPlayer + 1 srclStrnif CurPlayer >= QtyPlayers then srclStrn CurPlayer = 0 srclStrn StartNewDay srclStrnelsesrclStrnCalculateResultssrclStrnend if srclStrnsrclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrupSuprStrn StaticText EndGInt CBhvGrup SuprStrn StaticText EndGInt  CBhvGrup!SuprStrn MusicPlayer EndGInt !CBhvGrup"SuprStrn PagePanel EndGInt "CBhvGrup#SuprStrn StaticText EndGInt #CBhvGrup$SuprStrn StaticText EndGInt $CBhvGrup%SuprStrn StaticText EndGInt %CBhvGrup&SuprStrn StaticText EndGInt &CBhvGrup'SuprStrn StaticText EndGInt 'CBhvGrup(SuprStrn StaticText EndGInt (CBhvGrup)SuprStrn StaticText EndGInt )CBhvGrup*SuprStrn StaticText EndGInt *CBhvGrup+SuprStrn StaticText EndGInt +CBhvGrup,SuprStrn StaticText EndGInt ,CBhvGrup-SuprStrn StaticText EndGInt -CBhvGrup.SuprStrn StaticText EndGInt .CBhvGrup/SuprStrn StaticText EndGInt /CBhvGrup0SuprStrn StaticText EndGInt 0CBhvGrup1SuprStrn StaticText EndGInt 1CBhvGrup2SuprStrn StaticText EndGInt 2CBhvGrup3SuprStrn StaticText EndGInt 3CBhvGrup4SuprStrn StaticText EndGInt 4CBhvGrup5SuprStrn StaticText EndGInt 5CBhvGrup6SuprStrn StaticText EndGInt 6CBhvGrup7SuprStrn StaticText EndGInt 7CBhvGrup8SuprStrn Separator EndGInt 8CtrlGrup9cclsStrnCanvas nameStrnCanvas PDefGrup8:nameStrn InitialParent EncoInt PValStrnEndGInt :PDefGrup0;nameStrnEraseBackground PValStrnTrueEndGInt ;PDefGrup0nameStrn AcceptFocus PValStrnEndGInt >PDefGrup$?nameStrnBackdropPValStrnEndGInt ?PDefGrup,@nameStrn UseFocusRingPValStrnTrueEndGInt @PDefGrup(AnameStrnEnabled PValStrnTrueEndGInt APDefGrup0BnameStrnAutoDeactivate PValStrnTrueEndGInt BPDefGrup0CnameStrnHelpTag EncoInt PValStrnEndGInt CPDefGrup(DnameStrnVisible PValStrnTrueEndGInt DPDefGrup(EnameStrnTabStop PValStrnTrueEndGInt EPDefGrup$FnameStrnTabIndexPValInt EndGInt FPDefGrup,GnameStrn TabPanelIndex PValInt EndGInt GPDefGrup(HnameStrn LockBottom PValStrnEndGInt HPDefGrup(InameStrn LockRight PValStrnEndGInt IPDefGrup(JnameStrnLockTop PValStrnTrueEndGInt JPDefGrup(KnameStrnLockLeftPValStrnTrueEndGInt KPDefGrup$LnameStrnHeight PValInt EndGInt LPDefGrup$MnameStrnWidth PValInt EndGInt MPDefGrup NnameStrnTop PValInt EndGInt NPDefGrup OnameStrnLeftPValInt EndGInt OPDefGrup(PnameStrnScope PValStrn0 EndGInt PPDefGrup8QnameStrnSuper EncoInt PValStrnCanvas EndGInt QPDefGrup$RnameStrnIndex PValInt EndGInt RPDefGrup8SnameStrnNameEncoInt PValStrn WeatherCanv EndGInt SCBixInt iLckInt EndGInt 9CtrlGruptTcclsStrn StaticText nameStrn StaticText PDefGrup8UnameStrn InitialParent EncoInt PValStrnEndGInt UPDefGrup4VnameStrn DataField EncoInt PValStrnEndGInt VPDefGrup4WnameStrn DataSource EncoInt PValStrnEndGInt WPDefGrup,XnameStrn Underline PValStrnTrueEndGInt XPDefGrup$YnameStrnItalic PValStrnEndGInt YPDefGrup ZnameStrnBoldPValStrnEndGInt ZPDefGrup([nameStrnTextUnitPValStrn0 EndGInt [PDefGrup(\nameStrnTextSizePValStrn0 EndGInt \PDefGrup8]nameStrnTextFontEncoInt PValStrnSystem EndGInt ]PDefGrup0^nameStrnAutoDeactivate PValStrnTrueEndGInt ^PDefGrup0_nameStrnHelpTag EncoInt PValStrnEndGInt _PDefGrup(`nameStrnVisible PValStrnTrueEndGInt `PDefGrup(anameStrnEnabled PValStrnTrueEndGInt aPDefGrup(bnameStrn Multiline PValStrnEndGInt bPDefGrup(cnameStrn TextColor PValInt EndGInt cPDefGrup(dnameStrn TextAlign PValInt EndGInt dPDefGrupDenameStrnTextEncoInt PValStrnWeather Report for Day 1EndGInt ePDefGrup$fnameStrnTabIndexPValInt EndGInt fPDefGrup,gnameStrn TabPanelIndex PValInt EndGInt gPDefGrup(hnameStrn LockBottom PValStrnEndGInt hPDefGrup(inameStrn LockRight PValStrnEndGInt iPDefGrup(jnameStrnLockTop PValStrnTrueEndGInt jPDefGrup(knameStrnLockLeftPValStrnTrueEndGInt kPDefGrup$lnameStrnHeight PValInt EndGInt lPDefGrup$mnameStrnWidth PValInt EndGInt mPDefGrup nnameStrnTop PValInt EndGInt nPDefGrup onameStrnLeftPValInt EndGInt oPDefGrup(pnameStrnScope PValStrn0 EndGInt pPDefGrup<qnameStrnSuper EncoInt PValStrn StaticText EndGInt qPDefGrup$rnameStrnIndex PValInt EndGInt rPDefGrup<snameStrnNameEncoInt PValStrnWeatherTitleTxt EndGInt sCBixInt iLckInt EndGInt TCtrlGrupdtcclsStrn StaticText nameStrn StaticText PDefGrup8unameStrn InitialParent EncoInt PValStrnEndGInt uPDefGrup4vnameStrn DataField EncoInt PValStrnEndGInt vPDefGrup4wnameStrn DataSource EncoInt PValStrnEndGInt wPDefGrup(xnameStrn Underline PValStrnEndGInt xPDefGrup$ynameStrnItalic PValStrnEndGInt yPDefGrup znameStrnBoldPValStrnEndGInt zPDefGrup({nameStrnTextUnitPValStrn0 EndGInt {PDefGrup(|nameStrnTextSizePValStrn0 EndGInt |PDefGrup8}nameStrnTextFontEncoInt PValStrnSystem EndGInt }PDefGrup0~nameStrnAutoDeactivate PValStrnTrueEndGInt ~PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup,nameStrn Multiline PValStrnTrueEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup8nameStrnTextEncoInt PValStrn WeatherTxt EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt -EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn WeatherTxt EndGInt CBixInt iLckInt EndGInt tCtrlGrupcclsStrn PagePanel nameStrn PagePanel PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup$nameStrnValue PValInt EndGInt PDefGrup0nameStrnPanels EncoInt PValStrnEndGInt PDefGrup(nameStrn PanelCount PValInt EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt 1EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn PagePanel EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnPanel EndGInt CBixInt iLckInt EndGInt CtrlGrupcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup,nameStrn Underline PValStrnTrueEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrupLnameStrnTextEncoInt PValStrnDecisions for Lemonade Stand 1 EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt  EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt $EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnDecisionTitleTxtEndGInt CBixInt iLckInt EndGInt CtrlGrupcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup0nameStrn Multiline PValStrnFalse EndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrupPnameStrnTextEncoInt PValStrn"On Day 1, the cost of lemonade is: EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt  EndGInt PDefGrup nameStrnTop PValInt .EndGInt PDefGrup nameStrnLeftPValInt $EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn CostLabelTxtEndGInt CBixInt iLckInt EndGInt CtrlGrupdcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup$nameStrnBoldPValStrnTrueEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrn$0.00 EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt dEndGInt PDefGrup nameStrnTop PValInt AEndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt  PDefGrup4 nameStrnNameEncoInt PValStrnCostTxt EndGInt  CBixInt iLckInt EndGInt CtrlGrup cclsStrn StaticText nameStrn StaticText PDefGrup@ nameStrn InitialParent EncoInt PValStrnPanel EndGInt  PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt  PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup,nameStrn Multiline PValStrnTrueEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrupXnameStrnTextEncoInt PValStrn)(Your mother quit giving you free sugar.) EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt  PDefGrup(!nameStrnLockTop PValStrnTrueEndGInt !PDefGrup("nameStrnLockLeftPValStrnTrueEndGInt "PDefGrup$#nameStrnHeight PValInt EndGInt #PDefGrup$$nameStrnWidth PValInt  EndGInt $PDefGrup %nameStrnTop PValInt TEndGInt %PDefGrup &nameStrnLeftPValInt $EndGInt &PDefGrup('nameStrnScope PValStrn0 EndGInt 'PDefGrup<(nameStrnSuper EncoInt PValStrn StaticText EndGInt (PDefGrup$)nameStrnIndex PValInt EndGInt )PDefGrup8*nameStrnNameEncoInt PValStrn CostExpTxt EndGInt *CBixInt iLckInt EndGInt  CtrlGrup+cclsStrn PushButton nameStrn PushButton PDefGrup@,nameStrn InitialParent EncoInt PValStrnPanel EndGInt ,PDefGrup(-nameStrn Underline PValStrnEndGInt -PDefGrup$.nameStrnItalic PValStrnEndGInt .PDefGrup /nameStrnBoldPValStrnEndGInt /PDefGrup(0nameStrnTextUnitPValStrn0 EndGInt 0PDefGrup(1nameStrnTextSizePValStrn0 EndGInt 1PDefGrup82nameStrnTextFontEncoInt PValStrnSystem EndGInt 2PDefGrup03nameStrnAutoDeactivate PValStrnTrueEndGInt 3PDefGrup04nameStrnHelpTag EncoInt PValStrnEndGInt 4PDefGrup(5nameStrnVisible PValStrnTrueEndGInt 5PDefGrup(6nameStrnEnabled PValStrnTrueEndGInt 6PDefGrup$7nameStrnCancel PValStrnEndGInt 7PDefGrup(8nameStrnDefault PValStrnTrueEndGInt 8PDefGrup49nameStrnCaption EncoInt PValStrnOK EndGInt 9PDefGrup(:nameStrnTabStop PValStrnTrueEndGInt :PDefGrup$;nameStrnTabIndexPValInt EndGInt ;PDefGrup,nameStrn LockRight PValStrnEndGInt >PDefGrup(?nameStrnLockTop PValStrnTrueEndGInt ?PDefGrup(@nameStrnLockLeftPValStrnTrueEndGInt @PDefGrup$AnameStrnHeight PValInt EndGInt APDefGrup$BnameStrnWidth PValInt PEndGInt BPDefGrup CnameStrnTop PValInt hEndGInt CPDefGrup DnameStrnLeftPValInt EndGInt DPDefGrup(EnameStrnScope PValStrn0 EndGInt EPDefGrup<FnameStrnSuper EncoInt PValStrn PushButton EndGInt FPDefGrup$GnameStrnIndex PValInt EndGInt GPDefGrup<HnameStrnNameEncoInt PValStrnDecisionOKButn EndGInt HCBixInt iLckInt EndGInt +CtrlGruphIcclsStrn StaticText nameStrn StaticText PDefGrup@JnameStrn InitialParent EncoInt PValStrnPanel EndGInt JPDefGrup4KnameStrn DataField EncoInt PValStrnEndGInt KPDefGrup4LnameStrn DataSource EncoInt PValStrnEndGInt LPDefGrup(MnameStrn Underline PValStrnEndGInt MPDefGrup$NnameStrnItalic PValStrnEndGInt NPDefGrup OnameStrnBoldPValStrnEndGInt OPDefGrup(PnameStrnTextUnitPValStrn0 EndGInt PPDefGrup(QnameStrnTextSizePValStrn0 EndGInt QPDefGrup8RnameStrnTextFontEncoInt PValStrnSystem EndGInt RPDefGrup0SnameStrnAutoDeactivate PValStrnTrueEndGInt SPDefGrup0TnameStrnHelpTag EncoInt PValStrnEndGInt TPDefGrup(UnameStrnVisible PValStrnTrueEndGInt UPDefGrup(VnameStrnEnabled PValStrnTrueEndGInt VPDefGrup(WnameStrn Multiline PValStrnEndGInt WPDefGrup(XnameStrn TextColor PValInt EndGInt XPDefGrup(YnameStrn TextAlign PValInt EndGInt YPDefGrup<ZnameStrnTextEncoInt PValStrnCurrent Assets: EndGInt ZPDefGrup$[nameStrnTabIndexPValInt EndGInt [PDefGrup,\nameStrn TabPanelIndex PValInt EndGInt \PDefGrup(]nameStrn LockBottom PValStrnEndGInt ]PDefGrup(^nameStrn LockRight PValStrnEndGInt ^PDefGrup(_nameStrnLockTop PValStrnTrueEndGInt _PDefGrup(`nameStrnLockLeftPValStrnTrueEndGInt `PDefGrup$anameStrnHeight PValInt EndGInt aPDefGrup$bnameStrnWidth PValInt xEndGInt bPDefGrup cnameStrnTop PValInt tEndGInt cPDefGrup dnameStrnLeftPValInt $EndGInt dPDefGrup(enameStrnScope PValStrn0 EndGInt ePDefGrup<fnameStrnSuper EncoInt PValStrn StaticText EndGInt fPDefGrup$gnameStrnIndex PValInt EndGInt gPDefGrup4hnameStrnNameEncoInt PValStrnLabel EndGInt hCBixInt iLckInt EndGInt ICtrlGruplicclsStrn StaticText nameStrn StaticText PDefGrup@jnameStrn InitialParent EncoInt PValStrnPanel EndGInt jPDefGrup4knameStrn DataField EncoInt PValStrnEndGInt kPDefGrup4lnameStrn DataSource EncoInt PValStrnEndGInt lPDefGrup(mnameStrn Underline PValStrnEndGInt mPDefGrup$nnameStrnItalic PValStrnEndGInt nPDefGrup$onameStrnBoldPValStrnTrueEndGInt oPDefGrup(pnameStrnTextUnitPValStrn0 EndGInt pPDefGrup(qnameStrnTextSizePValStrn0 EndGInt qPDefGrup8rnameStrnTextFontEncoInt PValStrnSystem EndGInt rPDefGrup0snameStrnAutoDeactivate PValStrnTrueEndGInt sPDefGrup0tnameStrnHelpTag EncoInt PValStrnEndGInt tPDefGrup(unameStrnVisible PValStrnTrueEndGInt uPDefGrup(vnameStrnEnabled PValStrnTrueEndGInt vPDefGrup(wnameStrn Multiline PValStrnEndGInt wPDefGrup(xnameStrn TextColor PValInt EndGInt xPDefGrup(ynameStrn TextAlign PValInt EndGInt yPDefGrup8znameStrnTextEncoInt PValStrn AssetsTxt EndGInt zPDefGrup${nameStrnTabIndexPValInt EndGInt {PDefGrup,|nameStrn TabPanelIndex PValInt EndGInt |PDefGrup(}nameStrn LockBottom PValStrnEndGInt }PDefGrup(~nameStrn LockRight PValStrnEndGInt ~PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt dEndGInt PDefGrup nameStrnTop PValInt tEndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn AssetsTxt EndGInt CBixInt iLckInt EndGInt iCtrlGrupcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup,nameStrn Multiline PValStrnTrueEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGruphnameStrnTextEncoInt PValStrn;How many glasses of lemonade do you wish to make at X each? EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt %EndGInt PDefGrup$nameStrnWidth PValInt  EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt $EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrn InpGlassLabel EndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn TextField nameStrn TextField PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Alignment PValInt EndGInt PDefGrup(nameStrn AcceptTabs PValStrnEndGInt PDefGrup(nameStrn LimitText PValInt EndGInt PDefGrup$nameStrnReadOnlyPValStrnEndGInt PDefGrup,nameStrnMaskEncoInt PValStrnEndGInt PDefGrup,nameStrnTextEncoInt PValStrnEndGInt PDefGrup0nameStrnCueText EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup0nameStrnFormat EncoInt PValStrnEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn BackColor PValInt EndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup,nameStrn UseFocusRingPValStrnTrueEndGInt PDefGrup$nameStrnPasswordPValStrnEndGInt PDefGrup(nameStrnBorder PValStrnTrueEndGInt PDefGrup(nameStrnTabStop PValStrnTrueEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt PEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn TextField EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn InpGlassFld EndGInt CBixInt iLckInt EndGInt CtrlGrupcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup,nameStrn Multiline PValStrnTrueEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGruplnameStrnTextEncoInt PValStrn=How many advertising signs do you wish to make at $0.15 each? EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt %EndGInt PDefGrup$nameStrnWidth PValInt  EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt $EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn InpSignLabelEndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn TextField nameStrn TextField PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Alignment PValInt EndGInt PDefGrup(nameStrn AcceptTabs PValStrnEndGInt PDefGrup(nameStrn LimitText PValInt EndGInt PDefGrup$nameStrnReadOnlyPValStrnEndGInt PDefGrup,nameStrnMaskEncoInt PValStrnEndGInt PDefGrup,nameStrnTextEncoInt PValStrnEndGInt PDefGrup0nameStrnCueText EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup0nameStrnFormat EncoInt PValStrnEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup( nameStrn BackColor PValInt EndGInt  PDefGrup( nameStrn TextColor PValInt EndGInt  PDefGrup, nameStrn UseFocusRingPValStrnTrueEndGInt  PDefGrup$ nameStrnPasswordPValStrnEndGInt  PDefGrup( nameStrnBorder PValStrnTrueEndGInt  PDefGrup(nameStrnTabStop PValStrnTrueEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt PEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn TextField EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn InpSignFld EndGInt CBixInt iLckInt EndGInt CtrlGrupcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt  PDefGrup(!nameStrn Underline PValStrnEndGInt !PDefGrup$"nameStrnItalic PValStrnEndGInt "PDefGrup #nameStrnBoldPValStrnEndGInt #PDefGrup($nameStrnTextUnitPValStrn0 EndGInt $PDefGrup(%nameStrnTextSizePValStrn0 EndGInt %PDefGrup8&nameStrnTextFontEncoInt PValStrnSystem EndGInt &PDefGrup0'nameStrnAutoDeactivate PValStrnTrueEndGInt 'PDefGrup0(nameStrnHelpTag EncoInt PValStrnEndGInt (PDefGrup()nameStrnVisible PValStrnTrueEndGInt )PDefGrup(*nameStrnEnabled PValStrnTrueEndGInt *PDefGrup,+nameStrn Multiline PValStrnTrueEndGInt +PDefGrup(,nameStrn TextColor PValInt EndGInt ,PDefGrup(-nameStrn TextAlign PValInt EndGInt -PDefGruph.nameStrnTextEncoInt PValStrn9What price (in cents) do you wish to charge for lemonade? EndGInt .PDefGrup$/nameStrnTabIndexPValInt EndGInt /PDefGrup,0nameStrn TabPanelIndex PValInt EndGInt 0PDefGrup(1nameStrn LockBottom PValStrnEndGInt 1PDefGrup(2nameStrn LockRight PValStrnEndGInt 2PDefGrup(3nameStrnLockTop PValStrnTrueEndGInt 3PDefGrup(4nameStrnLockLeftPValStrnTrueEndGInt 4PDefGrup$5nameStrnHeight PValInt %EndGInt 5PDefGrup$6nameStrnWidth PValInt  EndGInt 6PDefGrup 7nameStrnTop PValInt EndGInt 7PDefGrup 8nameStrnLeftPValInt $EndGInt 8PDefGrup(9nameStrnScope PValStrn0 EndGInt 9PDefGrup<:nameStrnSuper EncoInt PValStrn StaticText EndGInt :PDefGrup$;nameStrnIndex PValInt EndGInt ;PDefGrup<nameStrn InitialParent EncoInt PValStrnPanel EndGInt >PDefGrup4?nameStrn DataField EncoInt PValStrnEndGInt ?PDefGrup4@nameStrn DataSource EncoInt PValStrnEndGInt @PDefGrup(AnameStrn Alignment PValInt EndGInt APDefGrup(BnameStrn AcceptTabs PValStrnEndGInt BPDefGrup(CnameStrn LimitText PValInt EndGInt CPDefGrup$DnameStrnReadOnlyPValStrnEndGInt DPDefGrup,EnameStrnMaskEncoInt PValStrnEndGInt EPDefGrup,FnameStrnTextEncoInt PValStrnEndGInt FPDefGrup0GnameStrnCueText EncoInt PValStrnEndGInt GPDefGrup(HnameStrn Underline PValStrnEndGInt HPDefGrup$InameStrnItalic PValStrnEndGInt IPDefGrup JnameStrnBoldPValStrnEndGInt JPDefGrup(KnameStrnTextUnitPValStrn0 EndGInt KPDefGrup(LnameStrnTextSizePValStrn0 EndGInt LPDefGrup8MnameStrnTextFontEncoInt PValStrnSystem EndGInt MPDefGrup0NnameStrnAutoDeactivate PValStrnTrueEndGInt NPDefGrup0OnameStrnHelpTag EncoInt PValStrnEndGInt OPDefGrup(PnameStrnVisible PValStrnTrueEndGInt PPDefGrup0QnameStrnFormat EncoInt PValStrnEndGInt QPDefGrup(RnameStrnEnabled PValStrnTrueEndGInt RPDefGrup(SnameStrn BackColor PValInt EndGInt SPDefGrup(TnameStrn TextColor PValInt EndGInt TPDefGrup,UnameStrn UseFocusRingPValStrnTrueEndGInt UPDefGrup$VnameStrnPasswordPValStrnEndGInt VPDefGrup(WnameStrnBorder PValStrnTrueEndGInt WPDefGrup(XnameStrnTabStop PValStrnTrueEndGInt XPDefGrup$YnameStrnTabIndexPValInt EndGInt YPDefGrup,ZnameStrn TabPanelIndex PValInt EndGInt ZPDefGrup(ameStrn LockBottom PValStrnEndGInt DefGrup(\nameStrn LockRight PValStrnEndGInt \PDefGrup(]nameStrnLockTop PValStrnTrueEndGInt ]PDefGrup(^nameStrnLockLeftPValStrnTrueEndGInt ^PDefGrup$_nameStrnHeight PValInt EndGInt _PDefGrup$`nameStrnWidth PValInt PEndGInt `PDefGrup anameStrnTop PValInt 2EndGInt aPDefGrup bnameStrnLeftPValInt EndGInt bPDefGrup(cnameStrnScope PValStrn0 EndGInt cPDefGrup<dnameStrnSuper EncoInt PValStrn TextField EndGInt dPDefGrup$enameStrnIndex PValInt EndGInt ePDefGrup8fnameStrnNameEncoInt PValStrn InpPriceFld EndGInt fCBixInt iLckInt EndGInt =CtrlGrupgcclsStrn StaticText nameStrn StaticText PDefGrup@hnameStrn InitialParent EncoInt PValStrnPanel EndGInt hPDefGrup4inameStrn DataField EncoInt PValStrnEndGInt iPDefGrup4jnameStrn DataSource EncoInt PValStrnEndGInt jPDefGrup,knameStrn Underline PValStrnTrueEndGInt kPDefGrup$lnameStrnItalic PValStrnEndGInt lPDefGrup mnameStrnBoldPValStrnEndGInt mPDefGrup(nnameStrnTextUnitPValStrn0 EndGInt nPDefGrup(onameStrnTextSizePValStrn0 EndGInt oPDefGrup8pnameStrnTextFontEncoInt PValStrnSystem EndGInt pPDefGrup0qnameStrnAutoDeactivate PValStrnTrueEndGInt qPDefGrup0rnameStrnHelpTag EncoInt PValStrnEndGInt rPDefGrup(snameStrnVisible PValStrnTrueEndGInt sPDefGrup(tnameStrnEnabled PValStrnTrueEndGInt tPDefGrup(unameStrn Multiline PValStrnEndGInt uPDefGrup(vnameStrn TextColor PValInt EndGInt vPDefGrup(wnameStrn TextAlign PValInt EndGInt wPDefGrupTxnameStrnTextEncoInt PValStrn($$ Lemonsville Daily Financial Report $$EndGInt xPDefGrup$ynameStrnTabIndexPValInt EndGInt yPDefGrup,znameStrn TabPanelIndex PValInt EndGInt zPDefGrup({nameStrn LockBottom PValStrnEndGInt {PDefGrup(|nameStrn LockRight PValStrnEndGInt |PDefGrup(}nameStrnLockTop PValStrnTrueEndGInt }PDefGrup(~nameStrnLockLeftPValStrnTrueEndGInt ~PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt  EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt $EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn StaticText1 EndGInt CBixInt iLckInt EndGInt gCtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt GEndGInt PDefGrup nameStrnTop PValInt UEndGInt PDefGrup nameStrnLeftPValInt )EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnGlassesSoldTxt EndGInt CBixInt iLckInt EndGInt CtrlGruplcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup8nameStrnTextEncoInt PValStrn Glasses SoldEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt dEndGInt PDefGrup nameStrnTop PValInt UEndGInt PDefGrup nameStrnLeftPValInt |EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnGlassesSoldLbl EndGInt CBixInt iLckInt EndGInt CtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt GEndGInt PDefGrup nameStrnTop PValInt fEndGInt PDefGrup nameStrnLeftPValInt )EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnPricePerGlassTxtEndGInt CBixInt iLckInt EndGInt CtrlGrupdcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup8nameStrnTextEncoInt PValStrn Per Glass EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt dEndGInt PDefGrup nameStrnTop PValInt fEndGInt PDefGrup nameStrnLeftPValInt |EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnLabel EndGInt CBixInt iLckInt EndGInt CtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt  PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt  PDefGrup( nameStrn Underline PValStrnEndGInt  PDefGrup$ nameStrnItalic PValStrnEndGInt  PDefGrup  nameStrnBoldPValStrnEndGInt  PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup<nameStrnTextEncoInt PValStrn Sales Income: EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt dEndGInt  PDefGrup !nameStrnTop PValInt {EndGInt !PDefGrup "nameStrnLeftPValInt EndGInt "PDefGrup(#nameStrnScope PValStrn0 EndGInt #PDefGrup<$nameStrnSuper EncoInt PValStrn StaticText EndGInt $PDefGrup$%nameStrnIndex PValInt EndGInt %PDefGrup4&nameStrnNameEncoInt PValStrnLabel EndGInt &CBixInt iLckInt EndGInt CtrlGrupd'cclsStrn StaticText nameStrn StaticText PDefGrup@(nameStrn InitialParent EncoInt PValStrnPanel EndGInt (PDefGrup4)nameStrn DataField EncoInt PValStrnEndGInt )PDefGrup4*nameStrn DataSource EncoInt PValStrnEndGInt *PDefGrup(+nameStrn Underline PValStrnEndGInt +PDefGrup$,nameStrnItalic PValStrnEndGInt ,PDefGrup -nameStrnBoldPValStrnEndGInt -PDefGrup(.nameStrnTextUnitPValStrn0 EndGInt .PDefGrup(/nameStrnTextSizePValStrn0 EndGInt /PDefGrup80nameStrnTextFontEncoInt PValStrnSystem EndGInt 0PDefGrup01nameStrnAutoDeactivate PValStrnTrueEndGInt 1PDefGrup02nameStrnHelpTag EncoInt PValStrnEndGInt 2PDefGrup(3nameStrnVisible PValStrnTrueEndGInt 3PDefGrup(4nameStrnEnabled PValStrnTrueEndGInt 4PDefGrup(5nameStrn Multiline PValStrnEndGInt 5PDefGrup(6nameStrn TextColor PValInt EndGInt 6PDefGrup(7nameStrn TextAlign PValInt EndGInt 7PDefGrup48nameStrnTextEncoInt PValStrnUntitledEndGInt 8PDefGrup$9nameStrnTabIndexPValInt EndGInt 9PDefGrup,:nameStrn TabPanelIndex PValInt EndGInt :PDefGrup(;nameStrn LockBottom PValStrnEndGInt ;PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt >PDefGrup$?nameStrnHeight PValInt EndGInt ?PDefGrup$@nameStrnWidth PValInt GEndGInt @PDefGrup AnameStrnTop PValInt {EndGInt APDefGrup BnameStrnLeftPValInt EndGInt BPDefGrup(CnameStrnScope PValStrn0 EndGInt CPDefGrup<DnameStrnSuper EncoInt PValStrn StaticText EndGInt DPDefGrup$EnameStrnIndex PValInt EndGInt EPDefGrup8FnameStrnNameEncoInt PValStrn SalesIncTxt EndGInt FCBixInt iLckInt EndGInt 'CtrlGruphGcclsStrn StaticText nameStrn StaticText PDefGrup@HnameStrn InitialParent EncoInt PValStrnPanel EndGInt HPDefGrup4InameStrn DataField EncoInt PValStrnEndGInt IPDefGrup4JnameStrn DataSource EncoInt PValStrnEndGInt JPDefGrup(KnameStrn Underline PValStrnEndGInt KPDefGrup$LnameStrnItalic PValStrnEndGInt LPDefGrup MnameStrnBoldPValStrnEndGInt MPDefGrup(NnameStrnTextUnitPValStrn0 EndGInt NPDefGrup(OnameStrnTextSizePValStrn0 EndGInt OPDefGrup8PnameStrnTextFontEncoInt PValStrnSystem EndGInt PPDefGrup0QnameStrnAutoDeactivate PValStrnTrueEndGInt QPDefGrup0RnameStrnHelpTag EncoInt PValStrnEndGInt RPDefGrup(SnameStrnVisible PValStrnTrueEndGInt SPDefGrup(TnameStrnEnabled PValStrnTrueEndGInt TPDefGrup(UnameStrn Multiline PValStrnEndGInt UPDefGrup(VnameStrn TextColor PValInt EndGInt VPDefGrup(WnameStrn TextAlign PValInt EndGInt WPDefGrup4XnameStrnTextEncoInt PValStrnUntitledEndGInt XPDefGrup$YnameStrnTabIndexPValInt EndGInt YPDefGrup,ZnameStrn TabPanelIndex PValInt EndGInt ZPDefGrup([nameStrn LockBottom PValStrnEndGInt [PDefGrup(\nameStrn LockRight PValStrnEndGInt \PDefGrup(]nameStrnLockTop PValStrnTrueEndGInt ]PDefGrup(^nameStrnLockLeftPValStrnTrueEndGInt ^PDefGrup$_nameStrnHeight PValInt EndGInt _PDefGrup$`nameStrnWidth PValInt GEndGInt `PDefGrup anameStrnTop PValInt EndGInt aPDefGrup bnameStrnLeftPValInt )EndGInt bPDefGrup(cnameStrnScope PValStrn0 EndGInt cPDefGrup<dnameStrnSuper EncoInt PValStrn StaticText EndGInt dPDefGrup$enameStrnIndex PValInt EndGInt ePDefGrup<fnameStrnNameEncoInt PValStrnGlassesMadeTxt EndGInt fCBixInt iLckInt EndGInt GCtrlGruplgcclsStrn StaticText nameStrn StaticText PDefGrup@hnameStrn InitialParent EncoInt PValStrnPanel EndGInt hPDefGrup4inameStrn DataField EncoInt PValStrnEndGInt iPDefGrup4jnameStrn DataSource EncoInt PValStrnEndGInt jPDefGrup(knameStrn Underline PValStrnEndGInt kPDefGrup$lnameStrnItalic PValStrnEndGInt lPDefGrup mnameStrnBoldPValStrnEndGInt mPDefGrup(nnameStrnTextUnitPValStrn0 EndGInt nPDefGrup(onameStrnTextSizePValStrn0 EndGInt oPDefGrup8pnameStrnTextFontEncoInt PValStrnSystem EndGInt pPDefGrup0qnameStrnAutoDeactivate PValStrnTrueEndGInt qPDefGrup0rnameStrnHelpTag EncoInt PValStrnEndGInt rPDefGrup(snameStrnVisible PValStrnTrueEndGInt sPDefGrup(tnameStrnEnabled PValStrnTrueEndGInt tPDefGrup(unameStrn Multiline PValStrnEndGInt uPDefGrup(vnameStrn TextColor PValInt EndGInt vPDefGrup(wnameStrn TextAlign PValInt EndGInt wPDefGrup8xnameStrnTextEncoInt PValStrn Glasses MadeEndGInt xPDefGrup$ynameStrnTabIndexPValInt EndGInt yPDefGrup,znameStrn TabPanelIndex PValInt EndGInt zPDefGrup({nameStrn LockBottom PValStrnEndGInt {PDefGrup(|nameStrn LockRight PValStrnEndGInt |PDefGrup(}nameStrnLockTop PValStrnTrueEndGInt }PDefGrup(~nameStrnLockLeftPValStrnTrueEndGInt ~PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt dEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt |EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnGlassesMadeLbl EndGInt CBixInt iLckInt EndGInt gCtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt GEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt )EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnCostPerGlassTxt EndGInt CBixInt iLckInt EndGInt CtrlGrupdcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup8nameStrnTextEncoInt PValStrn Per Glass EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt dEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt |EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnLabel EndGInt CBixInt iLckInt EndGInt CtrlGruplcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup@nameStrnTextEncoInt PValStrnLemonade Expense: EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt ZEndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnLabel EndGInt CBixInt iLckInt EndGInt CtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt GEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnLemonadeExpTxt EndGInt CBixInt iLckInt EndGInt CtrlGrupdcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt  PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt  PDefGrup( nameStrn Underline PValStrnEndGInt  PDefGrup$ nameStrnItalic PValStrnEndGInt  PDefGrup  nameStrnBoldPValStrnEndGInt  PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt GEndGInt  PDefGrup !nameStrnTop PValInt EndGInt !PDefGrup "nameStrnLeftPValInt )EndGInt "PDefGrup(#nameStrnScope PValStrn0 EndGInt #PDefGrup<$nameStrnSuper EncoInt PValStrn StaticText EndGInt $PDefGrup$%nameStrnIndex PValInt EndGInt %PDefGrup8&nameStrnNameEncoInt PValStrn SignsMadeTxtEndGInt &CBixInt iLckInt EndGInt CtrlGruph'cclsStrn StaticText nameStrn StaticText PDefGrup@(nameStrn InitialParent EncoInt PValStrnPanel EndGInt (PDefGrup4)nameStrn DataField EncoInt PValStrnEndGInt )PDefGrup4*nameStrn DataSource EncoInt PValStrnEndGInt *PDefGrup(+nameStrn Underline PValStrnEndGInt +PDefGrup$,nameStrnItalic PValStrnEndGInt ,PDefGrup -nameStrnBoldPValStrnEndGInt -PDefGrup(.nameStrnTextUnitPValStrn0 EndGInt .PDefGrup(/nameStrnTextSizePValStrn0 EndGInt /PDefGrup80nameStrnTextFontEncoInt PValStrnSystem EndGInt 0PDefGrup01nameStrnAutoDeactivate PValStrnTrueEndGInt 1PDefGrup02nameStrnHelpTag EncoInt PValStrnEndGInt 2PDefGrup(3nameStrnVisible PValStrnTrueEndGInt 3PDefGrup(4nameStrnEnabled PValStrnTrueEndGInt 4PDefGrup(5nameStrn Multiline PValStrnEndGInt 5PDefGrup(6nameStrn TextColor PValInt EndGInt 6PDefGrup(7nameStrn TextAlign PValInt EndGInt 7PDefGrup88nameStrnTextEncoInt PValStrn Signs Made EndGInt 8PDefGrup$9nameStrnTabIndexPValInt EndGInt 9PDefGrup,:nameStrn TabPanelIndex PValInt EndGInt :PDefGrup(;nameStrn LockBottom PValStrnEndGInt ;PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt >PDefGrup$?nameStrnHeight PValInt EndGInt ?PDefGrup$@nameStrnWidth PValInt dEndGInt @PDefGrup AnameStrnTop PValInt EndGInt APDefGrup BnameStrnLeftPValInt |EndGInt BPDefGrup(CnameStrnScope PValStrn0 EndGInt CPDefGrup<DnameStrnSuper EncoInt PValStrn StaticText EndGInt DPDefGrup$EnameStrnIndex PValInt EndGInt EPDefGrup8FnameStrnNameEncoInt PValStrn SignsMadeLblEndGInt FCBixInt iLckInt EndGInt 'CtrlGruphGcclsStrn StaticText nameStrn StaticText PDefGrup@HnameStrn InitialParent EncoInt PValStrnPanel EndGInt HPDefGrup4InameStrn DataField EncoInt PValStrnEndGInt IPDefGrup4JnameStrn DataSource EncoInt PValStrnEndGInt JPDefGrup(KnameStrn Underline PValStrnEndGInt KPDefGrup$LnameStrnItalic PValStrnEndGInt LPDefGrup MnameStrnBoldPValStrnEndGInt MPDefGrup(NnameStrnTextUnitPValStrn0 EndGInt NPDefGrup(OnameStrnTextSizePValStrn0 EndGInt OPDefGrup8PnameStrnTextFontEncoInt PValStrnSystem EndGInt PPDefGrup0QnameStrnAutoDeactivate PValStrnTrueEndGInt QPDefGrup0RnameStrnHelpTag EncoInt PValStrnEndGInt RPDefGrup(SnameStrnVisible PValStrnTrueEndGInt SPDefGrup(TnameStrnEnabled PValStrnTrueEndGInt TPDefGrup(UnameStrn Multiline PValStrnEndGInt UPDefGrup(VnameStrn TextColor PValInt EndGInt VPDefGrup(WnameStrn TextAlign PValInt EndGInt WPDefGrup4XnameStrnTextEncoInt PValStrnUntitledEndGInt XPDefGrup$YnameStrnTabIndexPValInt EndGInt YPDefGrup,ZnameStrn TabPanelIndex PValInt EndGInt ZPDefGrup([nameStrn LockBottom PValStrnEndGInt [PDefGrup(\nameStrn LockRight PValStrnEndGInt \PDefGrup(]nameStrnLockTop PValStrnTrueEndGInt ]PDefGrup(^nameStrnLockLeftPValStrnTrueEndGInt ^PDefGrup$_nameStrnHeight PValInt EndGInt _PDefGrup$`nameStrnWidth PValInt GEndGInt `PDefGrup anameStrnTop PValInt EndGInt aPDefGrup bnameStrnLeftPValInt )EndGInt bPDefGrup(cnameStrnScope PValStrn0 EndGInt cPDefGrup<dnameStrnSuper EncoInt PValStrn StaticText EndGInt dPDefGrup$enameStrnIndex PValInt EndGInt ePDefGrup<fnameStrnNameEncoInt PValStrnCostPerSignTxt EndGInt fCBixInt iLckInt EndGInt GCtrlGrup`gcclsStrn StaticText nameStrn StaticText PDefGrup@hnameStrn InitialParent EncoInt PValStrnPanel EndGInt hPDefGrup4inameStrn DataField EncoInt PValStrnEndGInt iPDefGrup4jnameStrn DataSource EncoInt PValStrnEndGInt jPDefGrup(knameStrn Underline PValStrnEndGInt kPDefGrup$lnameStrnItalic PValStrnEndGInt lPDefGrup mnameStrnBoldPValStrnEndGInt mPDefGrup(nnameStrnTextUnitPValStrn0 EndGInt nPDefGrup(onameStrnTextSizePValStrn0 EndGInt oPDefGrup8pnameStrnTextFontEncoInt PValStrnSystem EndGInt pPDefGrup0qnameStrnAutoDeactivate PValStrnTrueEndGInt qPDefGrup0rnameStrnHelpTag EncoInt PValStrnEndGInt rPDefGrup(snameStrnVisible PValStrnTrueEndGInt sPDefGrup(tnameStrnEnabled PValStrnTrueEndGInt tPDefGrup(unameStrn Multiline PValStrnEndGInt uPDefGrup(vnameStrn TextColor PValInt EndGInt vPDefGrup(wnameStrn TextAlign PValInt EndGInt wPDefGrup4xnameStrnTextEncoInt PValStrnPer SignEndGInt xPDefGrup$ynameStrnTabIndexPValInt EndGInt yPDefGrup,znameStrn TabPanelIndex PValInt EndGInt zPDefGrup({nameStrn LockBottom PValStrnEndGInt {PDefGrup(|nameStrn LockRight PValStrnEndGInt |PDefGrup(}nameStrnLockTop PValStrnTrueEndGInt }PDefGrup(~nameStrnLockLeftPValStrnTrueEndGInt ~PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt dEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt |EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnLabel EndGInt CBixInt iLckInt EndGInt gCtrlGruplcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup@nameStrnTextEncoInt PValStrnAdvertising Expense:EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt ZEndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnLabel EndGInt CBixInt iLckInt EndGInt CtrlGrup`cclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt GEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnAdExpTxtEndGInt CBixInt iLckInt EndGInt CtrlGrup`cclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnProfit: EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt .EndGInt PDefGrup nameStrnLeftPValInt ZEndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnLabel EndGInt CBixInt iLckInt EndGInt CtrlGrupdcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt GEndGInt PDefGrup nameStrnTop PValInt .EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn ProfitTxt EndGInt CBixInt iLckInt EndGInt CtrlGrupdcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt  PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt  PDefGrup( nameStrn Underline PValStrnEndGInt  PDefGrup$ nameStrnItalic PValStrnEndGInt  PDefGrup  nameStrnBoldPValStrnEndGInt  PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup8nameStrnTextEncoInt PValStrn New Assets: EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt EndGInt  PDefGrup !nameStrnTop PValInt CEndGInt !PDefGrup "nameStrnLeftPValInt ZEndGInt "PDefGrup(#nameStrnScope PValStrn0 EndGInt #PDefGrup<$nameStrnSuper EncoInt PValStrn StaticText EndGInt $PDefGrup$%nameStrnIndex PValInt EndGInt %PDefGrup4&nameStrnNameEncoInt PValStrnLabel EndGInt &CBixInt iLckInt EndGInt CtrlGrupd'cclsStrn StaticText nameStrn StaticText PDefGrup@(nameStrn InitialParent EncoInt PValStrnPanel EndGInt (PDefGrup4)nameStrn DataField EncoInt PValStrnEndGInt )PDefGrup4*nameStrn DataSource EncoInt PValStrnEndGInt *PDefGrup(+nameStrn Underline PValStrnEndGInt +PDefGrup$,nameStrnItalic PValStrnEndGInt ,PDefGrup -nameStrnBoldPValStrnEndGInt -PDefGrup(.nameStrnTextUnitPValStrn0 EndGInt .PDefGrup(/nameStrnTextSizePValStrn0 EndGInt /PDefGrup80nameStrnTextFontEncoInt PValStrnSystem EndGInt 0PDefGrup01nameStrnAutoDeactivate PValStrnTrueEndGInt 1PDefGrup02nameStrnHelpTag EncoInt PValStrnEndGInt 2PDefGrup(3nameStrnVisible PValStrnTrueEndGInt 3PDefGrup(4nameStrnEnabled PValStrnTrueEndGInt 4PDefGrup(5nameStrn Multiline PValStrnEndGInt 5PDefGrup(6nameStrn TextColor PValInt EndGInt 6PDefGrup(7nameStrn TextAlign PValInt EndGInt 7PDefGrup48nameStrnTextEncoInt PValStrnUntitledEndGInt 8PDefGrup$9nameStrnTabIndexPValInt EndGInt 9PDefGrup,:nameStrn TabPanelIndex PValInt EndGInt :PDefGrup(;nameStrn LockBottom PValStrnEndGInt ;PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt >PDefGrup$?nameStrnHeight PValInt EndGInt ?PDefGrup$@nameStrnWidth PValInt GEndGInt @PDefGrup AnameStrnTop PValInt CEndGInt APDefGrup BnameStrnLeftPValInt EndGInt BPDefGrup(CnameStrnScope PValStrn0 EndGInt CPDefGrup<DnameStrnSuper EncoInt PValStrn StaticText EndGInt DPDefGrup$EnameStrnIndex PValInt EndGInt EPDefGrup8FnameStrnNameEncoInt PValStrn NewAssetsTxtEndGInt FCBixInt iLckInt EndGInt 'CtrlGrupGcclsStrn PushButton nameStrn PushButton PDefGrup@HnameStrn InitialParent EncoInt PValStrnPanel EndGInt HPDefGrup(InameStrn Underline PValStrnEndGInt IPDefGrup$JnameStrnItalic PValStrnEndGInt JPDefGrup KnameStrnBoldPValStrnEndGInt KPDefGrup(LnameStrnTextUnitPValStrn0 EndGInt LPDefGrup(MnameStrnTextSizePValStrn0 EndGInt MPDefGrup8NnameStrnTextFontEncoInt PValStrnSystem EndGInt NPDefGrup0OnameStrnAutoDeactivate PValStrnTrueEndGInt OPDefGrup0PnameStrnHelpTag EncoInt PValStrnEndGInt PPDefGrup(QnameStrnVisible PValStrnTrueEndGInt QPDefGrup(RnameStrnEnabled PValStrnTrueEndGInt RPDefGrup$SnameStrnCancel PValStrnEndGInt SPDefGrup(TnameStrnDefault PValStrnTrueEndGInt TPDefGrup4UnameStrnCaption EncoInt PValStrnOK EndGInt UPDefGrup(VnameStrnTabStop PValStrnTrueEndGInt VPDefGrup$WnameStrnTabIndexPValInt EndGInt WPDefGrup,XnameStrn TabPanelIndex PValInt EndGInt XPDefGrup(YnameStrn LockBottom PValStrnEndGInt YPDefGrup(ZnameStrn LockRight PValStrnEndGInt ZPDefGrup([nameStrnLockTop PValStrnTrueEndGInt [PDefGrup(\nameStrnLockLeftPValStrnTrueEndGInt \PDefGrup$]nameStrnHeight PValInt EndGInt ]PDefGrup$^nameStrnWidth PValInt PEndGInt ^PDefGrup _nameStrnTop PValInt hEndGInt _PDefGrup `nameStrnLeftPValInt EndGInt `PDefGrup(anameStrnScope PValStrn0 EndGInt aPDefGrup<bnameStrnSuper EncoInt PValStrn PushButton EndGInt bPDefGrup$cnameStrnIndex PValInt EndGInt cPDefGrup<dnameStrnNameEncoInt PValStrn ResultsOKButn EndGInt dCBixInt iLckInt EndGInt GCtrlGrup`ecclsStrn StaticText nameStrn StaticText PDefGrup@fnameStrn InitialParent EncoInt PValStrnPanel EndGInt fPDefGrup4gnameStrn DataField EncoInt PValStrnEndGInt gPDefGrup4hnameStrn DataSource EncoInt PValStrnEndGInt hPDefGrup(inameStrn Underline PValStrnEndGInt iPDefGrup$jnameStrnItalic PValStrnEndGInt jPDefGrup knameStrnBoldPValStrnEndGInt kPDefGrup(lnameStrnTextUnitPValStrn0 EndGInt lPDefGrup(mnameStrnTextSizePValStrn0 EndGInt mPDefGrup8nnameStrnTextFontEncoInt PValStrnSystem EndGInt nPDefGrup0onameStrnAutoDeactivate PValStrnTrueEndGInt oPDefGrup0pnameStrnHelpTag EncoInt PValStrnEndGInt pPDefGrup(qnameStrnVisible PValStrnTrueEndGInt qPDefGrup(rnameStrnEnabled PValStrnTrueEndGInt rPDefGrup(snameStrn Multiline PValStrnEndGInt sPDefGrup(tnameStrn TextColor PValInt EndGInt tPDefGrup(unameStrn TextAlign PValInt EndGInt uPDefGrup4vnameStrnTextEncoInt PValStrnDay N EndGInt vPDefGrup$wnameStrnTabIndexPValInt EndGInt wPDefGrup,xnameStrn TabPanelIndex PValInt EndGInt xPDefGrup(ynameStrn LockBottom PValStrnEndGInt yPDefGrup(znameStrn LockRight PValStrnEndGInt zPDefGrup({nameStrnLockTop PValStrnTrueEndGInt {PDefGrup(|nameStrnLockLeftPValStrnTrueEndGInt |PDefGrup$}nameStrnHeight PValInt EndGInt }PDefGrup$~nameStrnWidth PValInt dEndGInt ~PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt )EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnDayTxt EndGInt CBixInt !iLckInt EndGInt eCtrlGrup`cclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnStand N EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnStandTxtEndGInt CBixInt "iLckInt EndGInt CtrlGrupcclsStrn StaticText nameStrn StaticText PDefGrup@nameStrn InitialParent EncoInt PValStrnPanel EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup,nameStrn Multiline PValStrnTrueEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrupdnameStrnTextEncoInt PValStrn7The street crews bought all your lemonade at lunchtime! EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt #EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt 5EndGInt PDefGrup nameStrnLeftPValInt )EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnSpecialResultTxtEndGInt CBixInt #iLckInt EndGInt CtrlGruphcclsStrn MusicPlayer nameStrn MusicPlayer PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup<nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup$nameStrnPeriod PValInt EndGInt PDefGrup nameStrnModePValInt EndGInt PDefGrup nameStrnTop PValInt IEndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn MusicPlayer EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnPlayer EndGInt CBixInt $iLckInt EndGInt CtrlGrupcclsStrn PagePanel nameStrn PagePanel PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup$nameStrnValue PValInt EndGInt PDefGrup0nameStrnPanels EncoInt PValStrnEndGInt PDefGrup(nameStrn PanelCount PValInt EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt gEndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn PagePanel EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn PagePanel1 EndGInt CBixInt %iLckInt EndGInt CtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup,nameStrnVisible PValStrnFalse EndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt _EndGInt PDefGrup nameStrnTop PValInt (EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnPlayer1 EndGInt CBixInt &iLckInt EndGInt CtrlGruph cclsStrn StaticText nameStrn StaticText PDefGrupD nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt  PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt  PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt  PDefGrup( nameStrn Underline PValStrnEndGInt  PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup,nameStrnVisible PValStrnFalse EndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt  PDefGrup$!nameStrnHeight PValInt EndGInt !PDefGrup$"nameStrnWidth PValInt _EndGInt "PDefGrup #nameStrnTop PValInt EndGInt #PDefGrup $nameStrnLeftPValInt EndGInt $PDefGrup(%nameStrnScope PValStrn0 EndGInt %PDefGrup<&nameStrnSuper EncoInt PValStrn StaticText EndGInt &PDefGrup$'nameStrnIndex PValInt EndGInt 'PDefGrup4(nameStrnNameEncoInt PValStrnPlayer5 EndGInt (CBixInt 'iLckInt EndGInt  CtrlGruph)cclsStrn StaticText nameStrn StaticText PDefGrupD*nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt *PDefGrup4+nameStrn DataField EncoInt PValStrnEndGInt +PDefGrup4,nameStrn DataSource EncoInt PValStrnEndGInt ,PDefGrup(-nameStrn Underline PValStrnEndGInt -PDefGrup$.nameStrnItalic PValStrnEndGInt .PDefGrup /nameStrnBoldPValStrnEndGInt /PDefGrup(0nameStrnTextUnitPValStrn0 EndGInt 0PDefGrup(1nameStrnTextSizePValStrn0 EndGInt 1PDefGrup82nameStrnTextFontEncoInt PValStrnSystem EndGInt 2PDefGrup03nameStrnAutoDeactivate PValStrnTrueEndGInt 3PDefGrup04nameStrnHelpTag EncoInt PValStrnEndGInt 4PDefGrup,5nameStrnVisible PValStrnFalse EndGInt 5PDefGrup(6nameStrnEnabled PValStrnTrueEndGInt 6PDefGrup(7nameStrn Multiline PValStrnEndGInt 7PDefGrup(8nameStrn TextColor PValInt EndGInt 8PDefGrup(9nameStrn TextAlign PValInt EndGInt 9PDefGrup4:nameStrnTextEncoInt PValStrnUntitledEndGInt :PDefGrup$;nameStrnTabIndexPValInt EndGInt ;PDefGrup,nameStrn LockRight PValStrnEndGInt >PDefGrup(?nameStrnLockTop PValStrnTrueEndGInt ?PDefGrup(@nameStrnLockLeftPValStrnTrueEndGInt @PDefGrup$AnameStrnHeight PValInt EndGInt APDefGrup$BnameStrnWidth PValInt _EndGInt BPDefGrup CnameStrnTop PValInt EndGInt CPDefGrup DnameStrnLeftPValInt EndGInt DPDefGrup(EnameStrnScope PValStrn0 EndGInt EPDefGrup<FnameStrnSuper EncoInt PValStrn StaticText EndGInt FPDefGrup$GnameStrnIndex PValInt EndGInt GPDefGrup4HnameStrnNameEncoInt PValStrnPlayer4 EndGInt HCBixInt (iLckInt EndGInt )CtrlGruphIcclsStrn StaticText nameStrn StaticText PDefGrupDJnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt JPDefGrup4KnameStrn DataField EncoInt PValStrnEndGInt KPDefGrup4LnameStrn DataSource EncoInt PValStrnEndGInt LPDefGrup(MnameStrn Underline PValStrnEndGInt MPDefGrup$NnameStrnItalic PValStrnEndGInt NPDefGrup OnameStrnBoldPValStrnEndGInt OPDefGrup(PnameStrnTextUnitPValStrn0 EndGInt PPDefGrup(QnameStrnTextSizePValStrn0 EndGInt QPDefGrup8RnameStrnTextFontEncoInt PValStrnSystem EndGInt RPDefGrup0SnameStrnAutoDeactivate PValStrnTrueEndGInt SPDefGrup0TnameStrnHelpTag EncoInt PValStrnEndGInt TPDefGrup,UnameStrnVisible PValStrnFalse EndGInt UPDefGrup(VnameStrnEnabled PValStrnTrueEndGInt VPDefGrup(WnameStrn Multiline PValStrnEndGInt WPDefGrup(XnameStrn TextColor PValInt EndGInt XPDefGrup(YnameStrn TextAlign PValInt EndGInt YPDefGrup4ZnameStrnTextEncoInt PValStrnUntitledEndGInt ZPDefGrup$[nameStrnTabIndexPValInt EndGInt [PDefGrup,\nameStrn TabPanelIndex PValInt EndGInt \PDefGrup(]nameStrn LockBottom PValStrnEndGInt ]PDefGrup(^nameStrn LockRight PValStrnEndGInt ^PDefGrup(_nameStrnLockTop PValStrnTrueEndGInt _PDefGrup(`nameStrnLockLeftPValStrnTrueEndGInt `PDefGrup$anameStrnHeight PValInt EndGInt aPDefGrup$bnameStrnWidth PValInt _EndGInt bPDefGrup cnameStrnTop PValInt JEndGInt cPDefGrup dnameStrnLeftPValInt EndGInt dPDefGrup(enameStrnScope PValStrn0 EndGInt ePDefGrup<fnameStrnSuper EncoInt PValStrn StaticText EndGInt fPDefGrup$gnameStrnIndex PValInt EndGInt gPDefGrup4hnameStrnNameEncoInt PValStrnPlayer2 EndGInt hCBixInt )iLckInt EndGInt ICtrlGruphicclsStrn StaticText nameStrn StaticText PDefGrupDjnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt jPDefGrup4knameStrn DataField EncoInt PValStrnEndGInt kPDefGrup4lnameStrn DataSource EncoInt PValStrnEndGInt lPDefGrup(mnameStrn Underline PValStrnEndGInt mPDefGrup$nnameStrnItalic PValStrnEndGInt nPDefGrup onameStrnBoldPValStrnEndGInt oPDefGrup(pnameStrnTextUnitPValStrn0 EndGInt pPDefGrup(qnameStrnTextSizePValStrn0 EndGInt qPDefGrup8rnameStrnTextFontEncoInt PValStrnSystem EndGInt rPDefGrup0snameStrnAutoDeactivate PValStrnTrueEndGInt sPDefGrup0tnameStrnHelpTag EncoInt PValStrnEndGInt tPDefGrup,unameStrnVisible PValStrnFalse EndGInt uPDefGrup(vnameStrnEnabled PValStrnTrueEndGInt vPDefGrup(wnameStrn Multiline PValStrnEndGInt wPDefGrup(xnameStrn TextColor PValInt EndGInt xPDefGrup(ynameStrn TextAlign PValInt EndGInt yPDefGrup4znameStrnTextEncoInt PValStrnUntitledEndGInt zPDefGrup${nameStrnTabIndexPValInt EndGInt {PDefGrup,|nameStrn TabPanelIndex PValInt EndGInt |PDefGrup(}nameStrn LockBottom PValStrnEndGInt }PDefGrup(~nameStrn LockRight PValStrnEndGInt ~PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt _EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnPlayer6 EndGInt CBixInt *iLckInt EndGInt iCtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup,nameStrnVisible PValStrnFalse EndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt _EndGInt PDefGrup nameStrnTop PValInt iEndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnPlayer3 EndGInt CBixInt +iLckInt EndGInt CtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup,nameStrnVisible PValStrnFalse EndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt _EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnPlayer7 EndGInt CBixInt ,iLckInt EndGInt CtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup,nameStrnVisible PValStrnFalse EndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup(nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt _EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnPlayer8 EndGInt CBixInt -iLckInt EndGInt CtrlGruphcclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn0 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup,nameStrnVisible PValStrnFalse EndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup(nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt _EndGInt PDefGrup nameStrnTop PValInt 3EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup( nameStrnScope PValStrn0 EndGInt PDefGrup< nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt PDefGrup4 nameStrnNameEncoInt PValStrnPlayer9 EndGInt CBixInt .iLckInt EndGInt CtrlGruph cclsStrn StaticText nameStrn StaticText PDefGrupD nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup( nameStrnTextUnitPValStrn0 EndGInt PDefGrup( nameStrnTextSizePValStrn0 EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup, nameStrnVisible PValStrnFalse EndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup( nameStrn Multiline PValStrnEndGInt PDefGrup( nameStrn TextColor PValInt EndGInt PDefGrup( nameStrn TextAlign PValInt EndGInt PDefGrup4 nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$ nameStrnTabIndexPValInt EndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ !nameStrnHeight PValInt EndGInt !PDefGrup$ "nameStrnWidth PValInt _EndGInt "PDefGrup #nameStrnTop PValInt XEndGInt #PDefGrup $nameStrnLeftPValInt EndGInt $PDefGrup( %nameStrnScope PValStrn0 EndGInt %PDefGrup< &nameStrnSuper EncoInt PValStrn StaticText EndGInt &PDefGrup$ 'nameStrnIndex PValInt EndGInt 'PDefGrup4 (nameStrnNameEncoInt PValStrnPlayer10EndGInt (CBixInt /iLckInt EndGInt CtrlGrupp )cclsStrn StaticText nameStrn StaticText PDefGrupD *nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt *PDefGrup4 +nameStrn DataField EncoInt PValStrnEndGInt +PDefGrup4 ,nameStrn DataSource EncoInt PValStrnEndGInt ,PDefGrup( -nameStrn Underline PValStrnEndGInt -PDefGrup$ .nameStrnItalic PValStrnEndGInt .PDefGrup /nameStrnBoldPValStrnEndGInt /PDefGrup( 0nameStrnTextUnitPValStrn0 EndGInt 0PDefGrup( 1nameStrnTextSizePValStrn0 EndGInt 1PDefGrup8 2nameStrnTextFontEncoInt PValStrnSystem EndGInt 2PDefGrup0 3nameStrnAutoDeactivate PValStrnTrueEndGInt 3PDefGrup0 4nameStrnHelpTag EncoInt PValStrnEndGInt 4PDefGrup, 5nameStrnVisible PValStrnFalse EndGInt 5PDefGrup( 6nameStrnEnabled PValStrnTrueEndGInt 6PDefGrup( 7nameStrn Multiline PValStrnEndGInt 7PDefGrup( 8nameStrn TextColor PValInt EndGInt 8PDefGrup( 9nameStrn TextAlign PValInt EndGInt 9PDefGrup4 :nameStrnTextEncoInt PValStrnUntitledEndGInt :PDefGrup$ ;nameStrnTabIndexPValInt EndGInt ;PDefGrup, nameStrn LockRight PValStrnEndGInt >PDefGrup( ?nameStrnLockTop PValStrnTrueEndGInt ?PDefGrup( @nameStrnLockLeftPValStrnTrueEndGInt @PDefGrup$ AnameStrnHeight PValInt EndGInt APDefGrup$ BnameStrnWidth PValInt BEndGInt BPDefGrup CnameStrnTop PValInt (EndGInt CPDefGrup DnameStrnLeftPValInt EndGInt DPDefGrup( EnameStrnScope PValStrn0 EndGInt EPDefGrup< FnameStrnSuper EncoInt PValStrn StaticText EndGInt FPDefGrup$ GnameStrnIndex PValInt EndGInt GPDefGrup< HnameStrnNameEncoInt PValStrn Player1Assets EndGInt HCBixInt 0iLckInt EndGInt )CtrlGrupp IcclsStrn StaticText nameStrn StaticText PDefGrupD JnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt JPDefGrup4 KnameStrn DataField EncoInt PValStrnEndGInt KPDefGrup4 LnameStrn DataSource EncoInt PValStrnEndGInt LPDefGrup( MnameStrn Underline PValStrnEndGInt MPDefGrup$ NnameStrnItalic PValStrnEndGInt NPDefGrup OnameStrnBoldPValStrnEndGInt OPDefGrup( PnameStrnTextUnitPValStrn0 EndGInt PPDefGrup( QnameStrnTextSizePValStrn0 EndGInt QPDefGrup8 RnameStrnTextFontEncoInt PValStrnSystem EndGInt RPDefGrup0 SnameStrnAutoDeactivate PValStrnTrueEndGInt SPDefGrup0 TnameStrnHelpTag EncoInt PValStrnEndGInt TPDefGrup, UnameStrnVisible PValStrnFalse EndGInt UPDefGrup( VnameStrnEnabled PValStrnTrueEndGInt VPDefGrup( WnameStrn Multiline PValStrnEndGInt WPDefGrup( XnameStrn TextColor PValInt EndGInt XPDefGrup( YnameStrn TextAlign PValInt EndGInt YPDefGrup4 ZnameStrnTextEncoInt PValStrnUntitledEndGInt ZPDefGrup$ [nameStrnTabIndexPValInt EndGInt [PDefGrup, \nameStrn TabPanelIndex PValInt EndGInt \PDefGrup( ]nameStrn LockBottom PValStrnEndGInt ]PDefGrup( ^nameStrn LockRight PValStrnEndGInt ^PDefGrup( _nameStrnLockTop PValStrnTrueEndGInt _PDefGrup( `nameStrnLockLeftPValStrnTrueEndGInt `PDefGrup$ anameStrnHeight PValInt EndGInt aPDefGrup$ bnameStrnWidth PValInt BEndGInt bPDefGrup cnameStrnTop PValInt FEndGInt cPDefGrup dnameStrnLeftPValInt EndGInt dPDefGrup( enameStrnScope PValStrn0 EndGInt ePDefGrup< fnameStrnSuper EncoInt PValStrn StaticText EndGInt fPDefGrup$ gnameStrnIndex PValInt EndGInt gPDefGrup< hnameStrnNameEncoInt PValStrn Player2Assets EndGInt hCBixInt 1iLckInt EndGInt ICtrlGrupp icclsStrn StaticText nameStrn StaticText PDefGrupD jnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt jPDefGrup4 knameStrn DataField EncoInt PValStrnEndGInt kPDefGrup4 lnameStrn DataSource EncoInt PValStrnEndGInt lPDefGrup( mnameStrn Underline PValStrnEndGInt mPDefGrup$ nnameStrnItalic PValStrnEndGInt nPDefGrup onameStrnBoldPValStrnEndGInt oPDefGrup( pnameStrnTextUnitPValStrn0 EndGInt pPDefGrup( qnameStrnTextSizePValStrn0 EndGInt qPDefGrup8 rnameStrnTextFontEncoInt PValStrnSystem EndGInt rPDefGrup0 snameStrnAutoDeactivate PValStrnTrueEndGInt sPDefGrup0 tnameStrnHelpTag EncoInt PValStrnEndGInt tPDefGrup, unameStrnVisible PValStrnFalse EndGInt uPDefGrup( vnameStrnEnabled PValStrnTrueEndGInt vPDefGrup( wnameStrn Multiline PValStrnEndGInt wPDefGrup( xnameStrn TextColor PValInt EndGInt xPDefGrup( ynameStrn TextAlign PValInt EndGInt yPDefGrup4 znameStrnTextEncoInt PValStrnUntitledEndGInt zPDefGrup$ {nameStrnTabIndexPValInt EndGInt {PDefGrup, |nameStrn TabPanelIndex PValInt EndGInt |PDefGrup( }nameStrn LockBottom PValStrnEndGInt }PDefGrup( ~nameStrn LockRight PValStrnEndGInt ~PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt BEndGInt PDefGrup nameStrnTop PValInt XEndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup( nameStrnScope PValStrn0 EndGInt PDefGrup< nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt PDefGrup< nameStrnNameEncoInt PValStrnPlayer10Assets EndGInt CBixInt 2iLckInt EndGInt iCtrlGrupp cclsStrn StaticText nameStrn StaticText PDefGrupD nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup( nameStrnTextUnitPValStrn0 EndGInt PDefGrup( nameStrnTextSizePValStrn0 EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup, nameStrnVisible PValStrnFalse EndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup( nameStrn Multiline PValStrnEndGInt PDefGrup( nameStrn TextColor PValInt EndGInt PDefGrup( nameStrn TextAlign PValInt EndGInt PDefGrup4 nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$ nameStrnTabIndexPValInt EndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt BEndGInt PDefGrup nameStrnTop PValInt 3EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup( nameStrnScope PValStrn0 EndGInt PDefGrup< nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt PDefGrup< nameStrnNameEncoInt PValStrn Player9Assets EndGInt CBixInt 3iLckInt EndGInt CtrlGrupp cclsStrn StaticText nameStrn StaticText PDefGrupD nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup( nameStrnTextUnitPValStrn0 EndGInt PDefGrup( nameStrnTextSizePValStrn0 EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup, nameStrnVisible PValStrnFalse EndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup( nameStrn Multiline PValStrnEndGInt PDefGrup( nameStrn TextColor PValInt EndGInt PDefGrup( nameStrn TextAlign PValInt EndGInt PDefGrup4 nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$ nameStrnTabIndexPValInt EndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt BEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup( nameStrnScope PValStrn0 EndGInt PDefGrup< nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt PDefGrup< nameStrnNameEncoInt PValStrn Player8Assets EndGInt CBixInt 4iLckInt EndGInt CtrlGrupp cclsStrn StaticText nameStrn StaticText PDefGrupD nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup( nameStrnTextUnitPValStrn0 EndGInt PDefGrup( nameStrnTextSizePValStrn0 EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup, nameStrnVisible PValStrnFalse EndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup( nameStrn Multiline PValStrnEndGInt PDefGrup( nameStrn TextColor PValInt EndGInt PDefGrup( nameStrn TextAlign PValInt EndGInt PDefGrup4 nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$ nameStrnTabIndexPValInt EndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ nameStrnHeight PValInt EndGInt PDefGrup$ nameStrnWidth PValInt BEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup( nameStrnScope PValStrn0 EndGInt PDefGrup< nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt PDefGrup< nameStrnNameEncoInt PValStrn Player7Assets EndGInt CBixInt 5iLckInt EndGInt CtrlGrupp cclsStrn StaticText nameStrn StaticText PDefGrupD nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt PDefGrup4 nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4 nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup( nameStrnTextUnitPValStrn0 EndGInt PDefGrup( nameStrnTextSizePValStrn0 EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup, nameStrnVisible PValStrnFalse EndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup( nameStrn Multiline PValStrnEndGInt PDefGrup( nameStrn TextColor PValInt EndGInt PDefGrup( nameStrn TextAlign PValInt EndGInt PDefGrup4 nameStrnTextEncoInt PValStrnUntitledEndGInt PDefGrup$ nameStrnTabIndexPValInt EndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup(!nameStrnLockLeftPValStrnTrueEndGInt !PDefGrup$!nameStrnHeight PValInt EndGInt !PDefGrup$!nameStrnWidth PValInt BEndGInt !PDefGrup !nameStrnTop PValInt EndGInt !PDefGrup !nameStrnLeftPValInt EndGInt !PDefGrup(!nameStrnScope PValStrn0 EndGInt !PDefGrup<!nameStrnSuper EncoInt PValStrn StaticText EndGInt !PDefGrup$!nameStrnIndex PValInt EndGInt !PDefGrup<!nameStrnNameEncoInt PValStrn Player6Assets EndGInt !CBixInt 6iLckInt EndGInt CtrlGrupp! cclsStrn StaticText nameStrn StaticText PDefGrupD! nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt ! PDefGrup4! nameStrn DataField EncoInt PValStrnEndGInt ! PDefGrup4! nameStrn DataSource EncoInt PValStrnEndGInt ! PDefGrup(! nameStrn Underline PValStrnEndGInt ! PDefGrup$!nameStrnItalic PValStrnEndGInt !PDefGrup !nameStrnBoldPValStrnEndGInt !PDefGrup(!nameStrnTextUnitPValStrn0 EndGInt !PDefGrup(!nameStrnTextSizePValStrn0 EndGInt !PDefGrup8!nameStrnTextFontEncoInt PValStrnSystem EndGInt !PDefGrup0!nameStrnAutoDeactivate PValStrnTrueEndGInt !PDefGrup0!nameStrnHelpTag EncoInt PValStrnEndGInt !PDefGrup,!nameStrnVisible PValStrnFalse EndGInt !PDefGrup(!nameStrnEnabled PValStrnTrueEndGInt !PDefGrup(!nameStrn Multiline PValStrnEndGInt !PDefGrup(!nameStrn TextColor PValInt EndGInt !PDefGrup(!nameStrn TextAlign PValInt EndGInt !PDefGrup4!nameStrnTextEncoInt PValStrnUntitledEndGInt !PDefGrup$!nameStrnTabIndexPValInt EndGInt !PDefGrup,!nameStrn TabPanelIndex PValInt EndGInt !PDefGrup(!nameStrn LockBottom PValStrnEndGInt !PDefGrup(!nameStrn LockRight PValStrnEndGInt !PDefGrup(!nameStrnLockTop PValStrnTrueEndGInt !PDefGrup(! nameStrnLockLeftPValStrnTrueEndGInt ! PDefGrup$!!nameStrnHeight PValInt EndGInt !!PDefGrup$!"nameStrnWidth PValInt BEndGInt !"PDefGrup !#nameStrnTop PValInt EndGInt !#PDefGrup !$nameStrnLeftPValInt EndGInt !$PDefGrup(!%nameStrnScope PValStrn0 EndGInt !%PDefGrup<!&nameStrnSuper EncoInt PValStrn StaticText EndGInt !&PDefGrup$!'nameStrnIndex PValInt EndGInt !'PDefGrup<!(nameStrnNameEncoInt PValStrn Player5Assets EndGInt !(CBixInt 7iLckInt EndGInt ! CtrlGrupp!)cclsStrn StaticText nameStrn StaticText PDefGrupD!*nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt !*PDefGrup4!+nameStrn DataField EncoInt PValStrnEndGInt !+PDefGrup4!,nameStrn DataSource EncoInt PValStrnEndGInt !,PDefGrup(!-nameStrn Underline PValStrnEndGInt !-PDefGrup$!.nameStrnItalic PValStrnEndGInt !.PDefGrup !/nameStrnBoldPValStrnEndGInt !/PDefGrup(!0nameStrnTextUnitPValStrn0 EndGInt !0PDefGrup(!1nameStrnTextSizePValStrn0 EndGInt !1PDefGrup8!2nameStrnTextFontEncoInt PValStrnSystem EndGInt !2PDefGrup0!3nameStrnAutoDeactivate PValStrnTrueEndGInt !3PDefGrup0!4nameStrnHelpTag EncoInt PValStrnEndGInt !4PDefGrup,!5nameStrnVisible PValStrnFalse EndGInt !5PDefGrup(!6nameStrnEnabled PValStrnTrueEndGInt !6PDefGrup(!7nameStrn Multiline PValStrnEndGInt !7PDefGrup(!8nameStrn TextColor PValInt EndGInt !8PDefGrup(!9nameStrn TextAlign PValInt EndGInt !9PDefGrup4!:nameStrnTextEncoInt PValStrnUntitledEndGInt !:PDefGrup$!;nameStrnTabIndexPValInt EndGInt !;PDefGrup,!nameStrn LockRight PValStrnEndGInt !>PDefGrup(!?nameStrnLockTop PValStrnTrueEndGInt !?PDefGrup(!@nameStrnLockLeftPValStrnTrueEndGInt !@PDefGrup$!AnameStrnHeight PValInt EndGInt !APDefGrup$!BnameStrnWidth PValInt BEndGInt !BPDefGrup !CnameStrnTop PValInt EndGInt !CPDefGrup !DnameStrnLeftPValInt EndGInt !DPDefGrup(!EnameStrnScope PValStrn0 EndGInt !EPDefGrup<!FnameStrnSuper EncoInt PValStrn StaticText EndGInt !FPDefGrup$!GnameStrnIndex PValInt EndGInt !GPDefGrup<!HnameStrnNameEncoInt PValStrn Player4Assets EndGInt !HCBixInt 8iLckInt EndGInt !)CtrlGrupp!IcclsStrn StaticText nameStrn StaticText PDefGrupD!JnameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt !JPDefGrup4!KnameStrn DataField EncoInt PValStrnEndGInt !KPDefGrup4!LnameStrn DataSource EncoInt PValStrnEndGInt !LPDefGrup(!MnameStrn Underline PValStrnEndGInt !MPDefGrup$!NnameStrnItalic PValStrnEndGInt !NPDefGrup !OnameStrnBoldPValStrnEndGInt !OPDefGrup(!PnameStrnTextUnitPValStrn0 EndGInt !PPDefGrup(!QnameStrnTextSizePValStrn0 EndGInt !QPDefGrup8!RnameStrnTextFontEncoInt PValStrnSystem EndGInt !RPDefGrup0!SnameStrnAutoDeactivate PValStrnTrueEndGInt !SPDefGrup0!TnameStrnHelpTag EncoInt PValStrnEndGInt !TPDefGrup,!UnameStrnVisible PValStrnFalse EndGInt !UPDefGrup(!VnameStrnEnabled PValStrnTrueEndGInt !VPDefGrup(!WnameStrn Multiline PValStrnEndGInt !WPDefGrup(!XnameStrn TextColor PValInt EndGInt !XPDefGrup(!YnameStrn TextAlign PValInt EndGInt !YPDefGrup4!ZnameStrnTextEncoInt PValStrnUntitledEndGInt !ZPDefGrup$![nameStrnTabIndexPValInt EndGInt ![PDefGrup,!\nameStrn TabPanelIndex PValInt EndGInt !\PDefGrup(!]nameStrn LockBottom PValStrnEndGInt !]PDefGrup(!^nameStrn LockRight PValStrnEndGInt !^PDefGrup(!_nameStrnLockTop PValStrnTrueEndGInt !_PDefGrup(!`nameStrnLockLeftPValStrnTrueEndGInt !`PDefGrup$!anameStrnHeight PValInt EndGInt !aPDefGrup$!bnameStrnWidth PValInt BEndGInt !bPDefGrup !cnameStrnTop PValInt iEndGInt !cPDefGrup !dnameStrnLeftPValInt EndGInt !dPDefGrup(!enameStrnScope PValStrn0 EndGInt !ePDefGrup<!fnameStrnSuper EncoInt PValStrn StaticText EndGInt !fPDefGrup$!gnameStrnIndex PValInt EndGInt !gPDefGrup<!hnameStrnNameEncoInt PValStrn Player3Assets EndGInt !hCBixInt 9iLckInt EndGInt !ICtrlGruph!icclsStrn StaticText nameStrn StaticText PDefGrup8!jnameStrn InitialParent EncoInt PValStrnEndGInt !jPDefGrup4!knameStrn DataField EncoInt PValStrnEndGInt !kPDefGrup4!lnameStrn DataSource EncoInt PValStrnEndGInt !lPDefGrup,!mnameStrn Underline PValStrnTrueEndGInt !mPDefGrup$!nnameStrnItalic PValStrnEndGInt !nPDefGrup !onameStrnBoldPValStrnEndGInt !oPDefGrup(!pnameStrnTextUnitPValStrn0 EndGInt !pPDefGrup(!qnameStrnTextSizePValStrn0 EndGInt !qPDefGrup8!rnameStrnTextFontEncoInt PValStrnSystem EndGInt !rPDefGrup0!snameStrnAutoDeactivate PValStrnTrueEndGInt !sPDefGrup0!tnameStrnHelpTag EncoInt PValStrnEndGInt !tPDefGrup(!unameStrnVisible PValStrnTrueEndGInt !uPDefGrup(!vnameStrnEnabled PValStrnTrueEndGInt !vPDefGrup(!wnameStrn Multiline PValStrnEndGInt !wPDefGrup(!xnameStrn TextColor PValInt EndGInt !xPDefGrup(!ynameStrn TextAlign PValInt EndGInt !yPDefGrup<!znameStrnTextEncoInt PValStrnCurrent Assets EndGInt !zPDefGrup$!{nameStrnTabIndexPValInt EndGInt !{PDefGrup,!|nameStrn TabPanelIndex PValInt EndGInt !|PDefGrup(!}nameStrn LockBottom PValStrnEndGInt !}PDefGrup(!~nameStrn LockRight PValStrnEndGInt !~PDefGrup(!nameStrnLockTop PValStrnTrueEndGInt !PDefGrup(!nameStrnLockLeftPValStrnTrueEndGInt !PDefGrup$!nameStrnHeight PValInt EndGInt !PDefGrup$!nameStrnWidth PValInt EndGInt !PDefGrup !nameStrnTop PValInt EndGInt !PDefGrup !nameStrnLeftPValInt EndGInt !PDefGrup(!nameStrnScope PValStrn0 EndGInt !PDefGrup<!nameStrnSuper EncoInt PValStrn StaticText EndGInt !PDefGrup$!nameStrnIndex PValInt EndGInt !PDefGrup8!nameStrnNameEncoInt PValStrn StaticText2 EndGInt !CBixInt :iLckInt EndGInt !iCtrlGrupt!cclsStrn Separator nameStrn Separator PDefGrup(!nameStrnEnabled PValStrnTrueEndGInt !PDefGrup0!nameStrnAutoDeactivate PValStrnTrueEndGInt !PDefGrup0!nameStrnHelpTag EncoInt PValStrnEndGInt !PDefGrup(!nameStrnVisible PValStrnTrueEndGInt !PDefGrup8!nameStrn InitialParent EncoInt PValStrnEndGInt !PDefGrup(!nameStrnTabStop PValStrnTrueEndGInt !PDefGrup$!nameStrnTabIndexPValInt EndGInt !PDefGrup,!nameStrn TabPanelIndex PValInt EndGInt !PDefGrup(!nameStrn LockBottom PValStrnEndGInt !PDefGrup(!nameStrn LockRight PValStrnEndGInt !PDefGrup(!nameStrnLockTop PValStrnTrueEndGInt !PDefGrup(!nameStrnLockLeftPValStrnTrueEndGInt !PDefGrup$!nameStrnHeight PValInt |EndGInt !PDefGrup$!nameStrnWidth PValInt EndGInt !PDefGrup !nameStrnTop PValInt EndGInt !PDefGrup !nameStrnLeftPValInt kEndGInt !PDefGrup(!nameStrnScope PValStrn0 EndGInt !PDefGrup<!nameStrnSuper EncoInt PValStrn Separator EndGInt !PDefGrup$!nameStrnIndex PValInt EndGInt !PDefGrup8!nameStrnNameEncoInt PValStrn Separator1 EndGInt !CBixInt ;iLckInt EndGInt !PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnuE" NameStrnMenuBar1ContInt paswStrnMItmGrupp!spmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup!spmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt !EndGInt !MItmGrup\!spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup!spmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !MItmGrup!spmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !MItmGrup!spmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !MItmGrup!spmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !MItmGrup!spmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !MItmGrup!spmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !MItmGrup!spmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !MItmGrup!spmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !EndGInt !MItmGrup8!spmuInt nameStrnHelpMenutextStrnHelpindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup!spmuInt nameStrnAboutCmdtextStrnAbout Lemonade StandindxInt scutStrnmaEnInt EncoInt flagInt SuprStrn AppleMenuItem EndGInt !EndGInt !PadnPadn\****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj)hNameStrnOriginalSource ContInt paswStrnbClsInt flagInt bNtrInt CompStrnNoteGrupVP!nameStrnLemonade Source CodeCompStrnVsblInt sorcGrupU!EncoInt ntlnStrnLemonade Source CodentlnStrnntlnStrn1 LOMEM: 14080 ntlnStrn25 GOSUB 10000: GOSUB 11000: GOSUB 16000: GOTO 135 ntlnStrn 10 REM <<< LEMONADE STAND >>>ntlnStrn15 REM ntlnStrn!20 REM FROM AN ORIGINAL PROGRAM ntlnStrn 30 REM BY BOB JAMISON, OF THEntlnStrn 40 REM MINNESOTA EDUCATIONALntlnStrn50 REM COMPUTING CONSORTIUM ntlnStrn60 REM * * *ntlnStrn 70 REM MODIFIED FOR THE APPLEntlnStrn80 REM FEBRUARY, 1979ntlnStrn90 REM BY CHARLIE KELLNER ntlnStrn2135 DIM A(30),L(30),H(30),B(30),S(30),P(30),G(30) ntlnStrn 150 P9 = 10 ntlnStrn 160 S3 = .15ntlnStrn 170 S2 = 30 ntlnStrn 175 A2 = 2.00 ntlnStrn 194 C9 = .5 ntlnStrn 195 C2 = 1 ntlnStrn300 REM START OF GAMEntlnStrn9310 GOSUB 12000: FOR I = 1 TO N:B(I) = 0:A(I) = A2: NEXT ntlnStrn,320 IF A$ = "Y" THEN GOSUB 13000: GOTO 400ntlnStrn330 GOSUB 14000ntlnStrn400 REM WEATHER REPORT ntlnStrn410 SC = RND (1) ntlnStrn%420 IF SC < .6 THEN SC = 2: GOTO 460 ntlnStrn&430 IF SC < .8 THEN SC = 10: GOTO 460 ntlnStrn 440 SC = 7 ntlnStrn460 IF D < 3 THEN SC = 2 ntlnStrn470 GOSUB 15000ntlnStrn490 TEXT : HOMEntlnStrn500 REM START OF NEW DAY ntlnStrn 510 D = D + 1 ntlnStrn4520 PRINT "ON DAY ";D;", THE COST OF LEMONADE IS ";ntlnStrn540 C = 2: IF D > 2 THEN C = 4 ntlnStrn550 IF D > 6 THEN C = 5ntlnStrn560 PRINT "$.0";C: PRINT ntlnStrn570 C1 = C * .01ntlnStrn 580 R1 = 1 ntlnStrn600 REM CURRENT EVENTS ntlnStrn610 IF D < > 3 THEN 650 ntlnStrn5620 PRINT "(YOUR MOTHER QUIT GIVING YOU FREE SUGAR)" ntlnStrn650 IF D < > 7 THEN 700 ntlnStrn5660 PRINT "(THE PRICE OF LEMONADE MIX JUST WENT UP)" ntlnStrn)700 REM AFTER 2 DAYS THINGS CAN HAPPEN ntlnStrn710 IF D > 2 THEN 2000 ntlnStrn800 REM INPUT VALUES ntlnStrn805 PRINT : POKE 34, PEEK (37) ntlnStrn810 FOR I = 1 TO N ntlnStrn815 A(I) = A(I) + .000000001ntlnStrn820 G(I) = 1:H(I) = 0 ntlnStrnN850 STI = A(I): GOSUB 4000: PRINT "LEMONADE STAND ";I; TAB( 26);"ASSETS ";STI$ ntlnStrn 855 PRINT ntlnStrn860 IF B(I) = 0 THEN 890 ntlnStrn+870 PRINT "YOU ARE BANKRUPT, NO DECISIONS" ntlnStrn875 PRINT "FOR YOU TO MAKE." ntlnStrn%876 IF N = 1 AND A(1) < C THEN 31111 ntlnStrn880 GOTO 1050 ntlnStrn0890 PRINT "HOW MANY GLASSES OF LEMONADE DO YOU"ntlnStrn895 PRINT "WISH TO MAKE "; ntlnStrn900 INPUT L(I) ntlnStrn(901 IF L(I) < 0 OR L(I) > 1000 THEN 903ntlnStrn 902 GOTO 906 ntlnStrn0903 PRINT "COME ON, LET'S BE REASONABLE NOW!!!"ntlnStrn904 PRINT "TRY AGAIN" ntlnStrn 905 GOTO 890 ntlnStrn&906 IF L(I) < > INT (L(I)) THEN 903 ntlnStrn$910 IF L(I) * C1 < = A(I) THEN 950ntlnStrn0920 PRINT "THINK AGAIN!!! YOU HAVE ONLY ";STI$ntlnStrn4930 PRINT "IN CASH AND TO MAKE ";L(I);" GLASSES OF"ntlnStrn6932 PRINT "LEMONADE YOU NEED $";L(I) * C1;" IN CASH." ntlnStrn 940 GOTO 890 ntlnStrn 950 PRINT ntlnStrn;951 PRINT "HOW MANY ADVERTISING SIGNS (";S3 * 100;" CENTS" ntlnStrn(952 PRINT "EACH) DO YOU WANT TO MAKE ";ntlnStrn960 INPUT S(I) ntlnStrn&961 IF S(I) < 0 OR S(I) > 50 THEN 963 ntlnStrn 962 GOTO 965 ntlnStrn1963 PRINT "COME ON, BE REASONABLE!!! TRY AGAIN." ntlnStrn 964 GOTO 950 ntlnStrn&965 IF S(I) < > INT (S(I)) THEN 963 ntlnStrn1970 IF S(I) * S3 < = A(I) - L(I) * C1 THEN 1010 ntlnStrn 975 PRINT ntlnStrn&980 STI = A(I) - L(I) * C1: GOSUB 4000 ntlnStrn-985 PRINT "THINK AGAIN, YOU HAVE ONLY ";STI$ ntlnStrn5990 PRINT "IN CASH LEFT AFTER MAKING YOUR LEMONADE." ntlnStrn1000 GOTO 950 ntlnStrn:1010 PRINT : PRINT "WHAT PRICE (IN CENTS) DO YOU WISH TO" ntlnStrn#1012 PRINT "CHARGE FOR LEMONADE "; ntlnStrn1015 INPUT P(I)ntlnStrn)1020 IF P(I) < 0 OR P(I) > 100 THEN 1022 ntlnStrn1021 GOTO 1024 ntlnStrn21022 PRINT "COME ON, BE REASONABLE!!! TRY AGAIN." ntlnStrn1023 GOTO 1010 ntlnStrn(1024 IF P(I) < > INT (P(I)) THEN 1022ntlnStrn1025 IF C5 = 1 THEN 1050 ntlnStrn<1050 VTAB 23: INPUT "WOULD YOU LIKE TO CHANGE ANYTHING?";A$ntlnStrn91060 IF LEFT$ (A$,1) = "Y" THEN HOME :C5 = 1: GOTO 810 ntlnStrn 1100 HOME ntlnStrn 1101 NEXT IntlnStrn1110 C5 = 0: TEXT : HOMEntlnStrn51120 PRINT : IF SC = 10 AND RND (1) < .25 THEN 2300 ntlnStrn61130 PRINT "$$ LEMONSVILLE DAILY FINANCIAL REPORT $$" ntlnStrn 1135 PRINT ntlnStrn)1140 POKE 768,152: POKE 769,80: CALL 770 ntlnStrn*1142 POKE 768,128: POKE 769,160: CALL 770 ntlnStrn)1144 POKE 768,152: POKE 769,40: CALL 770 ntlnStrn)1146 POKE 768,144: POKE 769,80: CALL 770 ntlnStrn*1148 POKE 768,128: POKE 769,200: CALL 770 ntlnStrn1180 REM CALCULATE PROFITS ntlnStrn1182 IF R2 = 2 THEN 2290 ntlnStrn1183 IF R3 = 3 THEN 2350 ntlnStrn1185 FOR I = 1 TO NntlnStrn1186 IF A(I) < 0 THEN A(I) = 0 ntlnStrn1187 IF R2 = 2 THEN 1260 ntlnStrn1190 IF P(I) > = P9 THEN 1220 ntlnStrn)1200 N1 = (P9 - P(I)) / P9 * .8 * S2 + S2 ntlnStrn1210 GOTO 1230 ntlnStrn$1220 N1 = ((P9 ^ 2) * S2 / P(I) ^ 2)ntlnStrn1230 W = - S(I) * C9 ntlnStrn1232 V = 1 - ( EXP (W) * C2)ntlnStrn1234 N2 = R1 * (N1 + (N1 * V)) ntlnStrn1240 N2 = INT (N2 * G(I)) ntlnStrn1250 IF N2 < = L(I) THEN 1270 ntlnStrn1260 N2 = L(I) ntlnStrn1270 M = N2 * P(I) * .01ntlnStrn1280 E = S(I) * S3 + L(I) * C1 ntlnStrn1290 P1 = M - E ntlnStrn1300 A(I) = A(I) + P1 ntlnStrn1310 IF H(I) = 1 THEN 2300 ntlnStrn 1320 PRINT ntlnStrn1321 IF B(I) < > 1 THEN 1330 ntlnStrn91326 PRINT "STAND ";I;: PRINT " BANKRUPT": GOSUB 18000 ntlnStrn1327 GOTO 1390 ntlnStrn1330 GOSUB 5000ntlnStrn!1350 IF A(I) > C / 100 THEN 1390 ntlnStrn1360 PRINT "STAND ";I ntlnStrn:1365 HOME : PRINT " ...YOU DON'T HAVE ENOUGH MONEY LEFT" ntlnStrn41370 PRINT " TO STAY IN BUSINESS YOU'RE BANKRUPT!"ntlnStrn 1380 B(I) = 1 ntlnStrn1382 GOSUB 18000: HOME ntlnStrn&1385 IF N = 1 AND B(1) = 1 THEN 31111 ntlnStrn 1390 NEXT IntlnStrn 1395 R1 = 1 ntlnStrn 1396 R2 = 0 ntlnStrn1400 GOTO 400 ntlnStrn2000 REM RANDOM EVENTS ntlnStrn2010 IF SC = 10 THEN 2110 ntlnStrn2030 IF SC = 7 THEN 2410 ntlnStrn!2040 IF RND (1) < .25 THEN 2210 ntlnStrn2050 GOTO 805 ntlnStrn+2100 IF X1 = 1 THEN 805 { unreachable } ntlnStrn&2110 J = 30 + INT ( RND (1) * 5) * 10 ntlnStrn52112 PRINT "THERE IS A ";J;"% CHANCE OF LIGHT RAIN," ntlnStrn.2115 PRINT "AND THE WEATHER IS COOLER TODAY." ntlnStrn2120 R1 = 1 - J / 100 ntlnStrn 2130 X1 = 1 ntlnStrn2140 GOTO 805 ntlnStrn+2200 IF X2 = 1 THEN 805 { unreachable } ntlnStrn52210 PRINT "THE STREET DEPARTMENT IS WORKING TODAY." ntlnStrn62220 PRINT "THERE WILL BE NO TRAFFIC ON YOUR STREET." ntlnStrnF2230 IF RND ( - 1) < .5 THEN 2233 { bug? rnd(-1) is a constant! } ntlnStrn 2231 R2 = 2 ntlnStrn2232 GOTO 2250 ntlnStrn 2233 R1 = .1ntlnStrn 2250 X2 = 1 ntlnStrn2260 GOTO 805 ntlnStrn.2290 PRINT "THE STREET CREWS BOUGHT ALL YOUR" ntlnStrn%2295 PRINT "LEMONADE AT LUNCHTIME!!" ntlnStrn2297 GOTO 1185 ntlnStrn2300 REM THUNDERSTORM! ntlnStrn2310 X3 = 1:R3 = 0 ntlnStrn%2320 SC = 5: GOSUB 15000: TEXT : HOME ntlnStrn42330 PRINT "WEATHER REPORT: A SEVERE THUNDERSTORM"ntlnStrn42340 PRINT "HIT LEMONSVILLE EARLIER TODAY, JUST AS"ntlnStrn42350 PRINT "THE LEMONADE STANDS WERE BEING SET UP."ntlnStrn42360 PRINT "UNFORTUNATELY, EVERYTHING WAS RUINED!!"ntlnStrn#2370 FOR J = 1 TO N:G(J) = 0: NEXT ntlnStrn2380 GOTO 1185 ntlnStrn2400 IF X4 = 1 THEN 805ntlnStrn 2410 X4 = 1 ntlnStrn12430 PRINT "A HEAT WAVE IS PREDICTED FOR TODAY!" ntlnStrn 2440 R1 = 2 ntlnStrn2450 GOTO 805 ntlnStrn 3000 END ntlnStrn 4000 REM STI => DOLLARS.CENTSntlnStrn&4010 STI = INT (STI * 100 + .5) / 100 ntlnStrn4020 STI$ = "$" + STR$ (STI) ntlnStrn14030 IF STI = INT (STI) THEN STI$ = STI$ + ".0" ntlnStrn?4040 IF STI = INT (STI * 10 + .5) / 10 THEN STI$ = STI$ + "0" ntlnStrn 4050 RETURNntlnStrn5000 VTAB 6: POKE 34,5 ntlnStrn;5002 PRINT " DAY ";D; TAB( 30);"STAND ";I: PRINT : PRINT ntlnStrn25010 PRINT " ";N2; TAB( 7);"GLASSES SOLD": PRINT ntlnStrnC5012 STI = P(I) / 100: GOSUB 4000: PRINT STI$; TAB( 7);"PER GLASS"; ntlnStrn85014 STI = M: GOSUB 4000: PRINT TAB( 27);"INCOME ";STI$ntlnStrnD5016 PRINT : PRINT : PRINT " ";L(I); TAB( 7);"GLASSES MADE": PRINTntlnStrni5020 STI = E: GOSUB 4000: PRINT " ";S(I); TAB( 7);"SIGNS MADE"; TAB( 25);"EXPENSES ";STI$: PRINT : PRINT ntlnStrnA5030 STI = P1: GOSUB 4000: PRINT TAB( 16);"PROFIT ";STI$: PRINT ntlnStrn<5040 STI = A(I): GOSUB 4000: PRINT TAB( 16);"ASSETS ";STI$ntlnStrn5060 GOSUB 18000 ntlnStrn 5070 REM ntlnStrn5090 HOME : RETURN ntlnStrn10000 REM INITIALIZE ntlnStrn10010 IN# 0: PR# 0 ntlnStrn10100 POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,5: POKE 776,206: POKE 777,1: POKE 778,3: POKE 779,240: POKE 780,9: POKE 781,202ntlnStrn10110 POKE 782,208: POKE 783,245: POKE 784,174: POKE 785,0: POKE 786,3: POKE 787,76: POKE 788,2: POKE 789,3: POKE 790,96: POKE 791,0: POKE 792,0 ntlnStrn 10190 RETURN ntlnStrn11000 REM INTRODUCTION ntlnStrnS11100 TEXT : HOME : GR : COLOR= 12: FOR I = 0 TO 39: HLIN 0,39 AT I: NEXT : VTAB 2 ntlnStrn811110 PRINT ";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";ntlnStrn811120 PRINT ";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";ntlnStrn811130 PRINT ";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";ntlnStrn811140 PRINT ";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";ntlnStrn811150 PRINT ";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";ntlnStrn811160 PRINT ";LLLL;LLLL;L;L;L;LL;L;LL;L;LL;L;LL;L;LLL";ntlnStrn811170 PRINT ";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";ntlnStrn11200 VTAB 11 ntlnStrn811210 PRINT "LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";ntlnStrn811220 PRINT "LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";ntlnStrn811230 PRINT "LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";ntlnStrn811240 PRINT "LLLLLLLL;;;;;LL;LLLLL;L;LL;L;LL;LLLLLLLL";ntlnStrn811250 PRINT "LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";ntlnStrn811260 PRINT "LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";ntlnStrn811270 PRINT "LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";ntlnStrn?11280 VTAB 23: PRINT " COPYRIGHT 1979 APPLE COMPUTER INC." ntlnStrn+11300 GOSUB 11700: FOR I = 1 TO 2000: NEXT ntlnStrn'11310 POKE 33,1: POKE 34,9: POKE 35,19 ntlnStrnl11320 FOR I = 39 TO 7 STEP - 1: COLOR= 15: VLIN 18,37 AT I: COLOR= 12: IF I < 39 THEN VLIN 18,36 AT I + 1ntlnStrn611330 COLOR= 15: IF I < 30 THEN VLIN 18,36 AT I + 10 ntlnStrnx11340 COLOR= 12: IF I < 29 THEN VLIN 18,37 AT I + 11: POKE 32,I + 11: VTAB 11: HTAB I + 12: PRINT : READ A$: PRINT A$;ntlnStrnA11350 FOR J = 14 TO I + I: NEXT : NEXT : FOR I = 1 TO 1000: NEXT ntlnStrnN11360 COLOR= 13: VLIN 14,36 AT 12: FOR I = 36 TO 20 STEP - 1: HLIN 8,16 AT I ntlnStrnm11370 FOR J = 1 TO 50: NEXT : POKE 768,I * 3 - 12: POKE 769,12: CALL 770: NEXT : COLOR= 12: VLIN 14,19 AT 12 ntlnStrn=11400 POKE 32,0: POKE 33,40: POKE 34,20: POKE 35,23: VTAB 22 ntlnStrn,11410 FOR I = 1 TO 4000: NEXT :I = FRE (0)ntlnStrn 11490 RETURN ntlnStrn11500 REM DATA ntlnStrnz11510 DATA 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0 ntlnStrn[11520 DATA ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;L;LL;,;L;LL;,;;;LL;,,,,,* ntlnStrn711530 DATA 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0 ntlnStrnb11540 DATA 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0 ntlnStrnL11550 DATA 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0ntlnStrnj11560 DATA 0,160,128,255,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,40,128,255,0,0 ntlnStrn11700 REM MUSIC ntlnStrn&11710 READ I,J: IF J = 0 THEN RETURN ntlnStrn'11720 POKE 768,I: POKE 769,J: CALL 770 ntlnStrn11730 GOTO 11710 ntlnStrn12000 REM TITLE PAGE ntlnStrn%12100 TEXT : HOME : PRINT CHR$ (7); ntlnStrn>12110 PRINT "HI! WELCOME TO LEMONSVILLE, CALIFORNIA!": PRINT ntlnStrn712120 PRINT "IN THIS SMALL TOWN, YOU ARE IN CHARGE OF" ntlnStrn712130 PRINT "RUNNING YOUR OWN LEMONADE STAND. YOU CAN" ntlnStrn712140 PRINT "COMPETE WITH AS MANY OTHER PEOPLE AS YOU" ntlnStrn712150 PRINT "WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP" ntlnStrn712160 PRINT "TO YOU (THE OTHER STANDS' SALES WILL NOT" ntlnStrn712170 PRINT "AFFECT YOUR BUSINESS IN ANY WAY). IF YOU" ntlnStrn>12180 PRINT "MAKE THE MOST MONEY, YOU'RE THE WINNER!!": PRINT ntlnStrn712190 PRINT "ARE YOU STARTING A NEW GAME? (YES OR NO)" ntlnStrnL12200 VTAB 21: CALL - 958: INPUT "TYPE YOUR ANSWER AND HIT RETURN ==> ";A$ntlnStrnZ12210 A$ = LEFT$ (A$,1): IF A$ < > "Y" AND A$ < > "N" THEN PRINT CHR$ (7);: GOTO 12200 ntlnStrnL12220 VTAB 23: CALL - 958: INPUT "HOW MANY PEOPLE WILL BE PLAYING ==> ";N$ntlnStrnJ12230 N = VAL (N$): IF N < 1 OR N > 30 THEN PRINT CHR$ (7);: GOTO 12220 ntlnStrn 12240 RETURN ntlnStrn13000 REM NEW BUSINESS ntlnStrn 13100 HOME ntlnStrn713110 PRINT "TO MANAGE YOUR LEMONADE STAND, YOU WILL " ntlnStrn>13120 PRINT "NEED TO MAKE THESE DECISIONS EVERY DAY: ": PRINT ntlnStrn_13130 PRINT "1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORNING)" ntlnStrn_13140 PRINT "2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) " ntlnStrn>13150 PRINT "3. WHAT PRICE TO CHARGE FOR EACH GLASS ": PRINT ntlnStrn713160 PRINT "YOU WILL BEGIN WITH $2.00 CASH (ASSETS)." ntlnStrn713170 PRINT "BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR," ntlnStrn713180 PRINT "YOUR COST TO MAKE LEMONADE IS TWO CENTS " ntlnStrn>13190 PRINT "A GLASS (THIS MAY CHANGE IN THE FUTURE).": PRINT ntlnStrn13200 GOSUB 18000 ntlnStrn 13202 HOME ntlnStrn713210 PRINT "YOUR EXPENSES ARE THE SUM OF THE COST OF" ntlnStrn>13220 PRINT "THE LEMONADE AND THE COST OF THE SIGNS. ": PRINT ntlnStrn713230 PRINT "YOUR PROFITS ARE THE DIFFERENCE BETWEEN " ntlnStrn>13240 PRINT "THE INCOME FROM SALES AND YOUR EXPENSES.": PRINT ntlnStrn713250 PRINT "THE NUMBER OF GLASSES YOU SELL EACH DAY " ntlnStrn713260 PRINT "DEPENDS ON THE PRICE YOU CHARGE, AND ON " ntlnStrn>13270 PRINT "THE NUMBER OF ADVERTISING SIGNS YOU USE.": PRINT ntlnStrn713280 PRINT "KEEP TRACK OF YOUR ASSETS, BECAUSE YOU " ntlnStrn>13290 PRINT "CAN'T SPEND MORE MONEY THAN YOU HAVE! ": PRINT ntlnStrn13300 GOSUB 18000 ntlnStrn13302 HOME : RETURNntlnStrn14000 REM CONTINUE OLD GAME ntlnStrn*14100 CALL - 936: PRINT CHR$ (7);:I = 0 ntlnStrn>14110 PRINT "HI AGAIN! WELCOME BACK TO LEMONSVILLE! ": PRINT ntlnStrn714120 PRINT "LET'S CONTINUE YOUR LAST GAME FROM WHERE" ntlnStrn714130 PRINT "YOU LEFT IT LAST TIME. DO YOU REMEMBER " ntlnStrn(14140 PRINT "WHAT DAY NUMBER IT WAS? ";ntlnStrn@14150 INPUT "";A$:A = VAL (A$): PRINT : IF A < > 0 THEN 14200ntlnStrnc14160 A$ = LEFT$ (A$,1): IF A$ = "Y" THEN PRINT "GOOD! WHAT DAY WAS IT? ";:I = I + 1: GOTO 14150 ntlnStrn&14170 IF A$ = "N" OR I > 0 THEN 14300 ntlnStrn;14180 PRINT CHR$ (7);"YES OR NO? ";:I = I + 1: GOTO 14150 ntlnStrn714200 IF A < 1 OR A > 99 OR A < > INT (A) THEN 14300 ntlnStrn 14210 D = A ntlnStrn<14300 PRINT "OKAY - WE'LL START WITH DAY NO. ";D + 1: PRINTntlnStrn$14400 FOR I = 1 TO N: PRINT : PRINTntlnStrn?14410 PRINT "PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)": PRINT ntlnStrn14420 PRINT "DID YOU HAVE? "; ntlnStrn'14430 INPUT "";A$:A = VAL (A$): PRINT ntlnStrnU14440 IF A < 2 THEN PRINT "O.K. - WE'LL START YOU OUT WITH $2.00":A = 2: GOTO 14490 ntlnStrnM14450 IF A > 40 THEN PRINT "JUST TO BE FAIR, LET'S MAKE THAT $10.00":A = 10 ntlnStrn,14490 A(I) = INT (A * 100 + .5) / 100: NEXTntlnStrn>14500 PRINT : PRINT CHR$ (7): INPUT "...READY TO BEGIN? ";A$ ntlnStrn(14510 IF LEFT$ (A$,1) = "N" THEN 13000ntlnStrn 14520 RETURN ntlnStrn15000 REM WEATHER DISPLAYntlnStrn15100 GR : HOMEntlnStrn915110 COLOR= SC: FOR I = 0 TO 25: HLIN 0,39 AT I: NEXT I ntlnStrn:15120 COLOR= 12: FOR I = 26 TO 39: HLIN 0,39 AT I: NEXT I ntlnStrn:15130 COLOR= 8: FOR I = 24 TO 32: HLIN 15,25 AT I: NEXT I ntlnStrnB15150 COLOR= 13: FOR I = 17 TO 23 STEP 2: VLIN 22,23 AT I: NEXT I ntlnStrn%15151 IF SC = 2 OR SC = 7 THEN 15160 ntlnStrn!15152 IF SC = 10 THEN COLOR= 15 ntlnStrn15157 IF SC = 5 THEN COLOR= 0 ntlnStrn15158 HLIN 6,10 AT 2: HLIN 4,14 AT 3: HLIN 7,12 AT 4: HLIN 22,30 AT 4: HLIN 20,36 AT 5: HLIN 23,33 AT 6::: GOSUB 17000: GOTO 15170 ntlnStrn15160 IF SC = 7 THEN COLOR= 9 ntlnStrng15162 HLIN 3,5 AT 1: HLIN 2,6 AT 2: FOR I = 3 TO 6: HLIN 1,7 AT I: NEXT : HLIN 2,6 AT 7: HLIN 3,5 AT 8 ntlnStrnC15170 VTAB 22: HTAB 8: PRINT " LEMONSVILLE WEATHER REPORT ": PRINT ntlnStrnC15175 VTAB 22: HTAB 8: PRINT " LEMONSVILLE WEATHER REPORT ": PRINT ntlnStrn015180 IF SC = 2 THEN HTAB 18: PRINT " SUNNY ";ntlnStrn615182 IF SC = 7 THEN HTAB 15: PRINT " HOT AND DRY "; ntlnStrn215184 IF SC = 10 THEN HTAB 17: PRINT " CLOUDY "; ntlnStrnF15186 IF SC = 5 THEN HTAB 14: PRINT " THUNDERSTORMS! ";: GOSUB 17000 ntlnStrn15200 RESTORE ntlnStrn)15210 READ A$: IF A$ < > "*" THEN 15210 ntlnStrn15220 IF SC < > 2 THEN 15300 ntlnStrn$15230 READ I,J: IF J = 0 THEN 15500ntlnStrn815240 FOR K = 1 TO J: POKE 768,I: POKE 769,10: CALL 770ntlnStrn/15250 FOR L = K TO J: NEXT : NEXT : GOTO 15230 ntlnStrn'15300 READ I,J: IF J < > 0 THEN 15300 ntlnStrn15310 IF SC = 7 THEN 15400 ntlnStrn'15320 READ I,J: IF J < > 0 THEN 15320 ntlnStrn15330 IF SC = 10 THEN 15400ntlnStrn'15340 READ I,J: IF J < > 0 THEN 15340 ntlnStrn$15400 READ I,J: IF J = 0 THEN 15500ntlnStrn715410 IF I = 1 THEN FOR I = 1 TO J: NEXT : GOTO 15400 ntlnStrn'15420 POKE 768,I: POKE 769,J: CALL 770 ntlnStrn15430 GOTO 15400 ntlnStrn"15440 IF SC = 5 THEN GOSUB 17000 ntlnStrn"15500 IF SC = 5 THEN GOSUB 17000 ntlnStrn415510 I = FRE (0): FOR I = 1 TO 2000: NEXT : RETURNntlnStrn16000 POKE 13824,76: POKE 13825,108: POKE 13826,54: POKE 13827,165: POKE 13828,48: POKE 13829,41: POKE 13830,15: POKE 13831,141: POKE 13832,160: POKE 13833,54:ntlnStrn16010 POKE 13834,165: POKE 13835,48: POKE 13836,41: POKE 13837,240: POKE 13838,141: POKE 13839,161: POKE 13840,54: POKE 13841,165: POKE 13842,36: POKE 13843,141: ntlnStrn16020 POKE 13844,162: POKE 13845,54: POKE 13846,165: POKE 13847,37: POKE 13848,141: POKE 13849,163: POKE 13850,54: POKE 13851,169: POKE 13852,0: POKE 13853,133: ntlnStrn16030 POKE 13854,36: POKE 13855,133: POKE 13856,37: POKE 13857,72: POKE 13858,32: POKE 13859,193: POKE 13860,251: POKE 13861,133: POKE 13862,40: POKE 13863,164: ntlnStrn16040 POKE 13864,36: POKE 13865,177: POKE 13866,40: POKE 13867,41: POKE 13868,15: POKE 13869,205: POKE 13870,164: POKE 13871,54: POKE 13872,208: POKE 13873,10:ntlnStrn16050 POKE 13874,177: POKE 13875,40: POKE 13876,41: POKE 13877,240: POKE 13878,24: POKE 13879,109: POKE 13880,160: POKE 13881,54: POKE 13882,145: POKE 13883,40: ntlnStrn16060 POKE 13884,177: POKE 13885,40: POKE 13886,41: POKE 13887,240: POKE 13888,205: POKE 13889,165: POKE 13890,54: POKE 13891,208: POKE 13892,10: POKE 13893,177: ntlnStrn16070 POKE 13894,40: POKE 13895,41: POKE 13896,15: POKE 13897,24: POKE 13898,109: POKE 13899,161: POKE 13900,54: POKE 13901,145: POKE 13902,40: POKE 13903,200:ntlnStrn16080 POKE 13904,192: POKE 13905,40: POKE 13906,144: POKE 13907,213: POKE 13908,160: POKE 13909,0: POKE 13910,104: POKE 13911,105: POKE 13912,0: POKE 13913,197: ntlnStrn16090 POKE 13914,34: POKE 13915,144: POKE 13916,196: POKE 13917,32: POKE 13918,193: POKE 13919,251: POKE 13920,133: POKE 13921,40: POKE 13922,173: POKE 13923,162: ntlnStrn16100 POKE 13924,48: POKE 13925,133: POKE 13926,36: POKE 13927,173: POKE 13928,163: POKE 13929,54: POKE 13930,133: POKE 13931,37: POKE 13932,165: POKE 13933,48: ntlnStrn16110 POKE 13934,41: POKE 13935,15: POKE 13936,141: POKE 13937,164: POKE 13938,54: POKE 13939,165: POKE 13940,48: POKE 13941,41: POKE 13942,240: POKE 13943,141: ntlnStrnB16120 POKE 13944,165: POKE 13945,54: POKE 13946,96: POKE 13947,0: ntlnStrn 16130 RETURN ntlnStrn 17000 IF SC < > 5 THEN RETURNntlnStrnf17001 COLOR= 10: VLIN 7,9 AT 29: HLIN 30,31 AT 9: VLIN 9,14 AT 32: HLIN 33,34 AT 14: VLIN 14,25 AT 35 ntlnStrnM17005 VLIN 5,8 AT 8: PLOT 9,8: VLIN 8,13 AT 10: PLOT 11,13: VLIN 13,17 AT 12 ntlnStrn17010 FOR RPT = 1 TO 5 ntlnStrn17020 CALL 13824 ntlnStrn17030 COLOR= 7: CALL 13827 ntlnStrn17040 CALL 13824 ntlnStrn17050 COLOR= 9: CALL 13827 ntlnStrn17060 NEXT RPT ntlnStrn17070 CALL 13824 ntlnStrn17080 COLOR= 5: CALL 13827 ntlnStrn 17090 RETURN ntlnStrn@18000 VTAB 24: PRINT " PRESS SPACE TO CONTINUE, ESC TO END...";ntlnStrnA18010 GET IN$: IF IN$ < > " " AND ASC (IN$) < > 27 THEN 18010 ntlnStrn$18020 IF ASC (IN$) = 27 THEN 31111ntlnStrn 18030 RETURN ntlnStrnW31111 FOR I = 1 TO 2000: NEXT : HOME : VTAB 10: PRINT "WOULD YOU LIKE TO PLAY AGAIN "; ntlnStrn%31112 GET IN$: IF IN$ = "Y" THEN 150 ntlnStrn931113 IF PEEK (994) + PEEK (1001) = 192 THEN CALL 976 ntlnStrn31114 TEXT : HOME : TEXT : END ntlnStrnEndGInt !flagInt EndGInt !NoteGrup!nameStrnSubroutines & Branch Points CompStrnVsblInt sorcGrup(!EncoInt ntlnStrnSubroutines & Branch Points ntlnStrnntlnStrnntlnStrn300 REM START OF GAMEntlnStrn400 REM WEATHER REPORT ntlnStrn500 REM START OF NEW DAY ntlnStrnntlnStrn1600 REM CURRENT EVENTS (and get player inputs) ntlnStrnntlnStrn(1100: clear screen and go to next playerntlnStrn1105: compute results ntlnStrnntlnStrn2000 REM RANDOM EVENTS ntlnStrnntlnStrn3000: ends the app (not used) ntlnStrnntlnStrn=4000: convert STI (number) to STI$ (dollars and cents string) ntlnStrnntlnStrn*5000: display results for lemonade stand I ntlnStrnntlnStrn10000 REM INITIALIZE ntlnStrnntlnStrn+11000 REM INTRODUCTION (title animation) ntlnStrnntlnStrn811700: play music (defined at the current DATA position)ntlnStrnntlnStrn$12000 REM TITLE PAGE (text intro)ntlnStrnntlnStrn.13000 REM NEW BUSINESS (print instructions) ntlnStrnntlnStrn14000 REM CONTINUE OLD GAME ntlnStrnntlnStrn15000 REM WEATHER DISPLAYntlnStrnntlnStrn+16000: set up machine language music player ntlnStrnntlnStrn517000: if sc = 5 then ... display thunder & lightning ntlnStrnntlnStrn@18000 VTAB 24: PRINT " PRESS SPACE TO CONTINUE, ESC TO END...";ntlnStrnEndGInt !flagInt EndGInt !NoteGrup!nameStrn Variables CompStrnVsblInt sorcGrup!EncoInt ntlnStrn Variables ntlnStrnntlnStrnntlnStrn'A(i): Assets (cash on hand, in dollars) ntlnStrn'C: cost of lemonade per glass, in cents ntlnStrn;G(i): normally 1; 0 if everything is ruined by thunderstorm ntlnStrnIH(i): apparently intended to relate to storms, but never assigned a value ntlnStrn I: current player number, 1 to NntlnStrn4L(i): number of glasses of lemonade made by player intlnStrnN: number of playersntlnStrn5P(i): Price charged for lemonade, per glass, in cents ntlnStrn?R1: weather factor; 1 for good weather, 0>R<1 for poor weather; ntlnStrn< also adjusts traffic for things like street crews workingntlnStrn=R2: set to 2 half the time when street department is working; ntlnStrn: indicates that street crew bought all lemonade at lunch ntlnStrnR3: always equal to 0; not used ntlnStrn&S(i): Number of signs made by player i ntlnStrn)S3: cost per advertising sign, in dollars ntlnStrnASC: sky color (2=sunny, 5=thunderstorms, 7=hot & dry, 10=cloudy). ntlnStrnDX1: set to 1 when it's cloudy; not sure what the intent was, but hasntlnStrn3 no actual effect since line 2100 is unreachable. ntlnStrnAX2: set to 1 when the street crew has worked and was not thirsty; ntlnStrnA apparently intended to prevent street crews from coming again, ntlnStrn< but doesn't actually work since line 2200 is unreachable.ntlnStrnntlnStrnEndGInt !flagInt EndGInt !VwBhGrup!VwPrGrupD!NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt !VwPrGrup`!NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt !VwPrGrupH!NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt !VwPrGrupX!NameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt !VwPrGrupX!NameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt !EndGInt !PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew);0NameStrnAboutBoxContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup4!nameStrn BalloonHelp EncoInt PValStrnEndGInt !PDefGrup<!nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt !PDefGrup$!nameStrnMenuBar PValStrnEndGInt !PDefGrup(!nameStrn MacProcID PValInt EndGInt !PDefGrup0!nameStrnMinimizeButton PValStrnTrueEndGInt !PDefGrup4!nameStrnMaximizeButton PValStrnFalse EndGInt !PDefGrup0!nameStrn LiveResize PValStrnFalse EndGInt !PDefGrup0!nameStrn Resizeable PValStrnFalse EndGInt !PDefGrup,!nameStrn CloseButton PValStrnTrueEndGInt !PDefGrup0!nameStrnMenuBarVisible PValStrnTrueEndGInt !PDefGrup0!nameStrn FullScreen PValStrnFalse EndGInt !PDefGrup(!nameStrnVisible PValStrnTrueEndGInt !PDefGrup@!nameStrnTitle EncoInt PValStrnLemonade Stand EndGInt !PDefGrup$!nameStrnBackdropPValStrnEndGInt !PDefGrup(!nameStrn BackColor PValInt EndGInt !PDefGrup0!nameStrn HasBackColorPValStrnFalse EndGInt !PDefGrup0!nameStrn Composite PValStrnFalse EndGInt !PDefGrup$!nameStrnFrame PValInt EndGInt !PDefGrup(!nameStrn MaxHeight PValInt }EndGInt !PDefGrup$!nameStrnMaxWidthPValInt }EndGInt !PDefGrup(!nameStrn MinHeight PValInt @EndGInt !PDefGrup$!nameStrnMinWidthPValInt @EndGInt !PDefGrup$!nameStrnHeight PValInt EndGInt !PDefGrup$!nameStrnWidth PValInt vEndGInt !PDefGrup(!nameStrn Placement PValInt EndGInt !VwBhGrup!VwPrGrupD!NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt !VwPrGrupL!NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt !VwPrGrupH!NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt !VwPrGrup0!NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup!defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt !EndGInt !VwPrGrupp!NameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrupp!NameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrupp!NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrupt!NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrupt!NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrupx!NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrup !NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp!defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt !EndGInt !VwPrGrup|!NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt !VwPrGrup|!NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt !VwPrGrup|!NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt !VwPrGrupx!NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt !VwPrGrupx!NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt !VwPrGrupt!NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt !VwPrGrup|!NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt !VwPrGrup|!NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt !VwPrGrupx!NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt !VwPrGrupx!NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt !VwPrGrupx!NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt !VwPrGrup!NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt !VwPrGrup|!NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt !VwPrGrupx!NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrupx!NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt !VwPrGrup|!NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt !EndGInt !CBhvGrup!SuprStrn StaticText EndGInt !CBhvGrup!SuprStrn PushButton HInsGrup!nameStrnAction CompStrnVsblInt sorcGrup\!EncoInt srclStrn Sub Action()srclStrnClose srclStrnsrclStrnEnd Sub EndGInt !EndGInt !EndGInt !CtrlGrup !cclsStrn StaticText nameStrn StaticText PDefGrup(!nameStrnTabStop PValStrnTrueEndGInt !PDefGrup8!nameStrnNameEncoInt PValStrn StaticText1 EndGInt !PDefGrup<!nameStrnIndex EncoInt PValStrn -2147483648 EndGInt !PDefGrup4!nameStrnScope EncoInt PValStrn0 EndGInt !PDefGrup0!nameStrnLeftEncoInt PValStrn20 EndGInt !PDefGrup0!nameStrnTop EncoInt PValStrn14 EndGInt !PDefGrup4!nameStrnWidth EncoInt PValStrn334 EndGInt !PDefGrup4!nameStrnHeight EncoInt PValStrn167 EndGInt !PDefGrup4!nameStrnLockLeftEncoInt PValStrnTrueEndGInt !PDefGrup4!nameStrnLockTop EncoInt PValStrnTrueEndGInt !PDefGrup4!nameStrn LockRight EncoInt PValStrnEndGInt !PDefGrup8!nameStrn LockBottom EncoInt PValStrnTrueEndGInt !PDefGrup<!nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt !PDefGrup4"nameStrnTabIndexEncoInt PValStrn0 EndGInt "PDefGrup0"nameStrnTextEncoInt PValStrnfrom an original program by Bob Jamison, of the Minnesota Educational Computing Consortium modified for the Apple in February, 1979 by Charlie Kellner ported to REALbasic in September, 2005 by Joe Strout && Jason Burnette Updated January 2010 by Bill MartensEndGInt "PDefGrup8"nameStrn TextAlign EncoInt PValStrn1 EndGInt "PDefGrup8"nameStrn TextColor EncoInt PValStrn0 EndGInt "PDefGrup8"nameStrn Multiline EncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnEnabled EncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnVisible EncoInt PValStrnTrueEndGInt "PDefGrup0"nameStrnHelpTag EncoInt PValStrnEndGInt "PDefGrup<"nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt "PDefGrup8" nameStrnTextFontEncoInt PValStrnSystem EndGInt " PDefGrup4" nameStrnTextSizeEncoInt PValStrn0 EndGInt " PDefGrup4" nameStrnTextUnitEncoInt PValStrn0 EndGInt " PDefGrup," nameStrnBoldEncoInt PValStrnEndGInt " PDefGrup0" nameStrnItalic EncoInt PValStrnEndGInt " PDefGrup4"nameStrn Underline EncoInt PValStrnEndGInt "PDefGrup4"nameStrn DataSource EncoInt PValStrnEndGInt "PDefGrup4"nameStrn DataField EncoInt PValStrnEndGInt "PDefGrup8"nameStrn InitialParent EncoInt PValStrnEndGInt "PDefGrup<"nameStrnSuper EncoInt PValStrn StaticText EndGInt "CBixInt iLckInt EndGInt !CtrlGrup"cclsStrn PushButton nameStrn PushButton PDefGrup4"nameStrnNameEncoInt PValStrnOKButn EndGInt "PDefGrup<"nameStrnIndex EncoInt PValStrn -2147483648 EndGInt "PDefGrup4"nameStrnScope EncoInt PValStrn0 EndGInt "PDefGrup0"nameStrnLeftEncoInt PValStrn147 EndGInt "PDefGrup0"nameStrnTop EncoInt PValStrn193 EndGInt "PDefGrup4"nameStrnWidth EncoInt PValStrn80 EndGInt "PDefGrup4"nameStrnHeight EncoInt PValStrn20 EndGInt "PDefGrup4"nameStrnLockLeftEncoInt PValStrnTrueEndGInt "PDefGrup0"nameStrnLockTop EncoInt PValStrnEndGInt "PDefGrup4"nameStrn LockRight EncoInt PValStrnEndGInt "PDefGrup8"nameStrn LockBottom EncoInt PValStrnTrueEndGInt "PDefGrup<"nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt "PDefGrup4" nameStrnTabIndexEncoInt PValStrn1 EndGInt " PDefGrup4"!nameStrnTabStop EncoInt PValStrnTrueEndGInt "!PDefGrup4""nameStrnCaption EncoInt PValStrnOK EndGInt ""PDefGrup4"#nameStrnDefault EncoInt PValStrnTrueEndGInt "#PDefGrup0"$nameStrnCancel EncoInt PValStrnEndGInt "$PDefGrup4"%nameStrnEnabled EncoInt PValStrnTrueEndGInt "%PDefGrup4"&nameStrnVisible EncoInt PValStrnTrueEndGInt "&PDefGrup0"'nameStrnHelpTag EncoInt PValStrnEndGInt "'PDefGrup<"(nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt "(PDefGrup8")nameStrnTextFontEncoInt PValStrnSystem EndGInt ")PDefGrup4"*nameStrnTextSizeEncoInt PValStrn0 EndGInt "*PDefGrup4"+nameStrnTextUnitEncoInt PValStrn0 EndGInt "+PDefGrup,",nameStrnBoldEncoInt PValStrnEndGInt ",PDefGrup0"-nameStrnItalic EncoInt PValStrnEndGInt "-PDefGrup4".nameStrn Underline EncoInt PValStrnEndGInt ".PDefGrup8"/nameStrn InitialParent EncoInt PValStrnEndGInt "/PDefGrup<"0nameStrnSuper EncoInt PValStrn PushButton EndGInt "0CBixInt iLckInt EndGInt "PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpFolÞUNameStrn Resources ContInt paswStrnPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjC NameStrn MusicPlayer ContInt paswStrnbClsInt SuprStrnTimer flagInt bNtrInt CompStrnHInsGrup"1nameStrnAction CompStrnVsblInt sorcGrup`"2EncoInt srclStrn Sub Action()srclStrn ContinueSongsrclStrnsrclStrnEnd Sub EndGInt "2EndGInt "1MethGrup"3nameStrnStart CompStrnVsblInt sorcGrupp"4EncoInt srclStrn Sub Start() srclStrnme.Mode = Timer.ModeMultiplesrclStrnsrclStrnEnd Sub EndGInt "4EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt "3MethGrup"5nameStrnStopCompStrnVsblInt sorcGrup"6EncoInt srclStrn Sub Stop() srclStrn StopLastNotesrclStrnme.Mode = Timer.ModeOff srclStrnsrclStrnEnd Sub EndGInt "6EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt "5MethGrup@"7nameStrn Instrument CompStrnVsblInt sorcGrup"8EncoInt srclStrnSub Instrument(inst as integer) srclStrnInstrument = inst srclStrnPlayer.Instrument = Instrument srclStrnEnd Sub EndGInt "8EncoInt AlasStrnflagInt shrdInt parmStrninst as integer rsltStrnEndGInt "7MethGrup"9nameStrn ContinueSongCompStrnVsblInt sorcGrupX":EncoInt srclStrnSub ContinueSong() srclStrn7// check whether the last note (or rest) isn't done yet srclStrnif Wait > 0 thensrclStrnWait = Wait - 1 srclStrnReturn srclStrnend if srclStrnsrclStrn!// check whether the song is over srclStrnif Position >= EndPosition then srclStrnStopsrclStrnReturn srclStrnend if srclStrnsrclStrn%// stop the last note playing, if any srclStrn StopLastNotesrclStrnsrclStrn // start the next note (or rest)srclStrn,if MusicArray(Position,0) = "r" then // RestsrclStrnMWait = val(MusicArray(Position,1)) - 1 // should be -1 here, too! Good catch! srclStrnelsesrclStrnOif val(MusicArray(Position,1)) > 1 then // Set note hold for specified duration srclStrn^Wait = val(MusicArray(Position,1)) - 1 // why -1 for notes, but not for rests?!? - See above srclStrnend if srclStrn)NotePlaying = val(MusicArray(Position,0)) srclStrn6Player.PlayNote NotePlaying, Velocity // Play the note srclStrnend if srclStrnsrclStrnPosition = Position + 1 srclStrnEnd Sub EndGInt ":EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt "9MethGrup";nameStrnMusic CompStrnVsblInt sorcGrup"EncoInt srclStrnSub Constructor() srclStrnPlayer = new NotePlayer srclStrn Velocity = 60 srclStrn Period = 250srclStrn Position = 0srclStrnEndPosition = 0 srclStrnInstrument = 1 srclStrnWait = 0srclStrnMode = Timer.ModeOffsrclStrnEnabled = true srclStrnsrclStrnEnd Sub EndGInt ">EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt "=MethGrup"?nameStrnPlaySongCompStrnVsblInt sorcGrup"@EncoInt srclStrnISub PlaySong(instrument As Integer, tempo As Integer, musicDef As String) srclStrnself.Instrument = instrumentsrclStrnPeriod = tempo srclStrnMusic musicDef srclStrn Position = 0srclStrnStopsrclStrnStart srclStrnEnd Sub EndGInt "@EncoInt AlasStrnflagInt shrdInt parmStrn;instrument As Integer, tempo As Integer, musicDef As String rsltStrnEndGInt "?MethGrup"AnameStrn StopLastNoteCompStrnVsblInt sorcGrup"BEncoInt srclStrnSub StopLastNote() srclStrn%// Stop the last note playing, if any srclStrnif NotePlaying <> 0 thensrclStrnPlayer.PlayNote NotePlaying, 0 srclStrnNotePlaying = 0 srclStrnend if srclStrnsrclStrnEnd Sub EndGInt "BEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt "APropGrup"CnameStrnPositionCompStrnVsblInt sorcGrup<"DEncoInt srclStrnPosition As Integer srclStrnEndGInt "DEncoInt declStrnPosition As Integer flagInt shrdInt EndGInt "CPropGrup"EnameStrnVelocityCompStrnVsblInt sorcGrup<"FEncoInt srclStrnVelocity As Integer srclStrnEndGInt "FEncoInt declStrnVelocity As Integer flagInt shrdInt EndGInt "EPropGrup"GnameStrnMusicArray(-1,1)CompStrnVsblInt sorcGrupD"HEncoInt srclStrnMusicArray(-1,1) As String srclStrnEndGInt "HEncoInt declStrnMusicArray(-1,1) As String flagInt shrdInt EndGInt "GPropGrup"InameStrn EndPosition CompStrnVsblInt sorcGrup@"JEncoInt srclStrnEndPosition As Integer srclStrnEndGInt "JEncoInt declStrnEndPosition As Integer flagInt shrdInt EndGInt "IPropGrup"KnameStrnWaitCompStrnVsblInt sorcGrup8"LEncoInt srclStrnWait As Integer srclStrnEndGInt "LEncoInt declStrnWait As Integer flagInt shrdInt EndGInt "KPropGrup"MnameStrnPlayer CompStrnVsblInt sorcGrup<"NEncoInt srclStrnPlayer As NotePlayersrclStrnEndGInt "NEncoInt declStrnPlayer As NotePlayerflagInt shrdInt EndGInt "MPropGrup"OnameStrn Instrument CompStrnVsblInt sorcGrup@"PEncoInt srclStrnInstrument As Integer srclStrnEndGInt "PEncoInt declStrnInstrument As Integer flagInt shrdInt CPrsGrup\"QEncoInt srclStrnSet srclStrnPlayer.Instrument = value srclStrnEnd Set EndGInt "QCPrgGrupX"REncoInt srclStrnGet srclStrnreturn Player.InstrumentsrclStrnEnd Get EndGInt "REndGInt "OPropGrup"SnameStrn NotePlaying CompStrnVsblInt sorcGrup@"TEncoInt srclStrnNotePlaying As Integer srclStrnEndGInt "TEncoInt declStrnNotePlaying As Integer flagInt shrdInt EndGInt "SVwBhGrupl"UVwPrGrupD"VNameStrnNameVsblInt PrGpStrnID CPifStrnTimer EndGInt "VVwPrGrup\"WNameStrnIndex VsblInt PrGpStrnID typeStrnInteger CPifStrnTimer EndGInt "WVwPrGrupH"XNameStrnSuper VsblInt PrGpStrnID CPifStrnTimer EndGInt "XVwPrGrup\"YNameStrnLeftVsblInt PrGpStrnPositiontypeStrnInteger CPifStrnTimer EndGInt "YVwPrGrup\"ZNameStrnTop VsblInt PrGpStrnPositiontypeStrnInteger CPifStrnTimer EndGInt "ZVwPrGrup"[NameStrnModeVsblInt PrGpStrnBehaviorPValStrn2 typeStrnInteger vbETStrnEnumCPifStrnTimer EnumGrupH"\defnStrn0 - Off defnStrn 1 - Single defnStrn 2 - MultipleEndGInt "\EndGInt "[VwPrGrupp"]NameStrnPeriod VsblInt PrGpStrnBehaviorPValStrn1000typeStrnInteger CPifStrnTimer EndGInt "]VwPrGrupP"^NameStrnVelocityPrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt "^VwPrGrupT"_NameStrn Instrument PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt "_EndGInt "UPadnPadn********************BlokpVewatNameStrn IntroWindow ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup"`nameStrnOpenCompStrnVsblInt sorcGrup"aEncoInt srclStrn Sub Open() srclStrnePlayer.PlaySong 10, 200, "72,3 67,1 69,1 67,2 65,1 64,1 67,6 67,1 69,1 74,2 72,1 71,1 69,2 71,1 72,5" srclStrnEnd Sub EndGInt "aEndGInt "`MethGrup"bnameStrn FillUpCup CompStrnVsblInt sorcGrup"cEncoInt srclStrnSub FillUpCup() srclStrnSelect Case FillUpCounter srclStrnCase 20 srclStrnFillRect.Visible = True srclStrn+LemonadeRect.FillColor = FillRect.FillColor srclStrn Case 21 to 95 srclStrn'LemonadeRect.Top = LemonadeRect.Top - 1 srclStrn-LemonadeRect.Height = LemonadeRect.Height + 1 srclStrnCase 96 srclStrnFillRect.Visible = FalsesrclStrnFillUpTimer.Mode = 0srclStrn End Select srclStrnsrclStrn!FillUpCounter = FillUpCounter + 1 srclStrnEnd Sub EndGInt "cEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt "bPropGrup"dnameStrn FillUpCounter CompStrnVsblInt sorcGrup@"eEncoInt srclStrnFillUpCounter As IntegersrclStrnEndGInt "eEncoInt declStrnFillUpCounter As IntegerflagInt shrdInt EndGInt "dPDefGrup4"fnameStrn BalloonHelp EncoInt PValStrnEndGInt "fPDefGrup<"gnameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt "gPDefGrup$"hnameStrnMenuBar PValStrnEndGInt "hPDefGrup("inameStrn MacProcID PValInt EndGInt "iPDefGrup0"jnameStrnMinimizeButton PValStrnTrueEndGInt "jPDefGrup4"knameStrnMaximizeButton PValStrnFalse EndGInt "kPDefGrup0"lnameStrn LiveResize PValStrnFalse EndGInt "lPDefGrup0"mnameStrn Resizeable PValStrnFalse EndGInt "mPDefGrup,"nnameStrn CloseButton PValStrnTrueEndGInt "nPDefGrup0"onameStrnMenuBarVisible PValStrnTrueEndGInt "oPDefGrup0"pnameStrn FullScreen PValStrnFalse EndGInt "pPDefGrup("qnameStrnVisible PValStrnTrueEndGInt "qPDefGrup8"rnameStrnTitle EncoInt PValStrnWelcome EndGInt "rPDefGrup$"snameStrnBackdropPValStrnEndGInt "sPDefGrup("tnameStrn BackColor PValInt EndGInt "tPDefGrup0"unameStrn HasBackColorPValStrnFalse EndGInt "uPDefGrup0"vnameStrn Composite PValStrnFalse EndGInt "vPDefGrup$"wnameStrnFrame PValInt EndGInt "wPDefGrup("xnameStrn MaxHeight PValInt }EndGInt "xPDefGrup$"ynameStrnMaxWidthPValInt }EndGInt "yPDefGrup("znameStrn MinHeight PValInt @EndGInt "zPDefGrup$"{nameStrnMinWidthPValInt @EndGInt "{PDefGrup$"|nameStrnHeight PValInt ^EndGInt "|PDefGrup$"}nameStrnWidth PValInt EndGInt "}PDefGrup("~nameStrn Placement PValInt EndGInt "~VwBhGrup"VwPrGrupD"NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt "VwPrGrupL"NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt "VwPrGrupH"NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt "VwPrGrup0"NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup"defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt "EndGInt "VwPrGrupp"NameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt "VwPrGrupp"NameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt "VwPrGrupp"NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt "VwPrGrupt"NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt "VwPrGrupt"NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt "VwPrGrupx"NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt "VwPrGrup "NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp"defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt "EndGInt "VwPrGrup|"NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt "VwPrGrup|"NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt "VwPrGrup|"NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt "VwPrGrupx"NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt "VwPrGrupx"NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt "VwPrGrupt"NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt "VwPrGrup|"NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt "VwPrGrup|"NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt "VwPrGrupx"NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt "VwPrGrupx"NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt "VwPrGrupx"NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt "VwPrGrup"NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt "VwPrGrup|"NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt "VwPrGrupx"NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt "VwPrGrupx"NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt "VwPrGrup|"NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt "EndGInt "CBhvGrup"SuprStrn PagePanel EndGInt "CBhvGrup"SuprStrn StaticText EndGInt "CBhvGrup"SuprStrnCanvas EndGInt "CBhvGrup"SuprStrn Rectangle EndGInt "CBhvGrup"SuprStrn Rectangle EndGInt "CBhvGrup"SuprStrn PushButton HInsGrup"nameStrnAction CompStrnVsblInt sorcGruph"EncoInt srclStrn Sub Action()srclStrn/PagePanel1.value = (PagePanel1.Value + 1) mod 3 srclStrnselect case PagePanel1.ValuesrclStrncase 0 srclStrnme.Caption = "Instructions" srclStrncase 1 srclStrnme.Caption = "More" srclStrncase 2 srclStrnme.Caption = "Back" srclStrn end select srclStrnsrclStrnEnd Sub EndGInt "EndGInt "EndGInt "CBhvGrup"SuprStrn PushButton HInsGrupl"nameStrnAction CompStrnVsblInt sorcGrup$"EncoInt srclStrn Sub Action()srclStrn8Dim qtyPlayers As Integer = HowManySheet.Present( self )srclStrnif qtyPlayers > 0 then srclStrn#MainWindow.SetQtyPlayers qtyPlayers srclStrnMainWindow.Show srclStrnClose srclStrnend if srclStrnsrclStrnEnd Sub EndGInt "EndGInt "EndGInt "CBhvGrup"SuprStrn MusicPlayer EndGInt "CBhvGrup"SuprStrnTimer HInsGrup"nameStrnAction CompStrnVsblInt sorcGrupT"EncoInt srclStrn Sub Action()srclStrn FillUpCup() srclStrnEnd Sub EndGInt "EndGInt "EndGInt "CtrlGrup8"cclsStrn PagePanel nameStrn PagePanel PDefGrup("nameStrnTabStop PValStrnTrueEndGInt "PDefGrup8"nameStrnNameEncoInt PValStrn PagePanel1 EndGInt "PDefGrup<"nameStrnIndex EncoInt PValStrn -2147483648 EndGInt "PDefGrup4"nameStrnScope EncoInt PValStrn0 EndGInt "PDefGrup0"nameStrnLeftEncoInt PValStrn7 EndGInt "PDefGrup0"nameStrnTop EncoInt PValStrn6 EndGInt "PDefGrup4"nameStrnWidth EncoInt PValStrn436 EndGInt "PDefGrup4"nameStrnHeight EncoInt PValStrn298 EndGInt "PDefGrup4"nameStrnLockLeftEncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnLockTop EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrn LockRight EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrn LockBottom EncoInt PValStrnTrueEndGInt "PDefGrup<"nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt "PDefGrup4"nameStrnTabIndexEncoInt PValStrn0 EndGInt "PDefGrup8"nameStrn PanelCount EncoInt PValStrn3 EndGInt "PDefGrup0"nameStrnPanels EncoInt PValStrnEndGInt "PDefGrup4"nameStrnValue EncoInt PValStrn0 EndGInt "PDefGrup4"nameStrnVisible EncoInt PValStrnTrueEndGInt "PDefGrup0"nameStrnHelpTag EncoInt PValStrnEndGInt "PDefGrup<"nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnEnabled EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrn InitialParent EncoInt PValStrnEndGInt "PDefGrup<"nameStrnSuper EncoInt PValStrn PagePanel EndGInt "CBixInt iLckInt EndGInt "CtrlGrup ("cclsStrn StaticText nameStrn StaticText PDefGrup("nameStrnTabStop PValStrnTrueEndGInt "PDefGrup<"nameStrnNameEncoInt PValStrnInstructionsTxt EndGInt "PDefGrup4"nameStrnIndex EncoInt PValStrn0 EndGInt "PDefGrup4"nameStrnScope EncoInt PValStrn0 EndGInt "PDefGrup0"nameStrnLeftEncoInt PValStrn20 EndGInt "PDefGrup0"nameStrnTop EncoInt PValStrn14 EndGInt "PDefGrup4"nameStrnWidth EncoInt PValStrn410 EndGInt "PDefGrup4"nameStrnHeight EncoInt PValStrn284 EndGInt "PDefGrup4"nameStrnLockLeftEncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnLockTop EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrn LockRight EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrn LockBottom EncoInt PValStrnTrueEndGInt "PDefGrup<"nameStrn TabPanelIndex EncoInt PValStrn2 EndGInt "PDefGrup4"nameStrnTabIndexEncoInt PValStrn0 EndGInt "PDefGrupl"nameStrnTextEncoInt PValStrn>Hi! Welcome to Lemonsville, California! In this small town, you are in charge of running your own lemonade stand. To manage your lemonade stand, you will need to make these decisions every day: 1. How many glasses of lemonade to make (only one batch is made each morning) 2. How many advertising signs to make (the signs cost fifteen cents each) 3. What price to charge for each glass You will begin with $2.00 cash (Assets). Because your mother gave you some sugar, your cost to make lemonade is two cents a glass (this may change in the future.) EndGInt "PDefGrup8"nameStrn TextAlign EncoInt PValStrn0 EndGInt "PDefGrup8"nameStrn TextColor EncoInt PValStrn0 EndGInt "PDefGrup8"nameStrn Multiline EncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnEnabled EncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnVisible EncoInt PValStrnTrueEndGInt "PDefGrup0"nameStrnHelpTag EncoInt PValStrnEndGInt "PDefGrup<"nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrnTextFontEncoInt PValStrnSystem EndGInt "PDefGrup4"nameStrnTextSizeEncoInt PValStrn0 EndGInt "PDefGrup4"nameStrnTextUnitEncoInt PValStrn0 EndGInt "PDefGrup,"nameStrnBoldEncoInt PValStrnEndGInt "PDefGrup0"nameStrnItalic EncoInt PValStrnEndGInt "PDefGrup4"nameStrn Underline EncoInt PValStrnEndGInt "PDefGrup4"nameStrn DataSource EncoInt PValStrnEndGInt "PDefGrup4"nameStrn DataField EncoInt PValStrnEndGInt "PDefGrupD"nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt "PDefGrup<"nameStrnSuper EncoInt PValStrn StaticText EndGInt "CBixInt iLckInt EndGInt "CtrlGrup T"cclsStrn StaticText nameStrn StaticText PDefGrup("nameStrnTabStop PValStrnTrueEndGInt "PDefGrup<"nameStrnNameEncoInt PValStrnInstructionsTxt EndGInt "PDefGrup4"nameStrnIndex EncoInt PValStrn1 EndGInt "PDefGrup4"nameStrnScope EncoInt PValStrn0 EndGInt "PDefGrup0"nameStrnLeftEncoInt PValStrn20 EndGInt "PDefGrup0"nameStrnTop EncoInt PValStrn14 EndGInt "PDefGrup4"nameStrnWidth EncoInt PValStrn410 EndGInt "PDefGrup4"nameStrnHeight EncoInt PValStrn272 EndGInt "PDefGrup4"nameStrnLockLeftEncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnLockTop EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrn LockRight EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrn LockBottom EncoInt PValStrnTrueEndGInt "PDefGrup<"nameStrn TabPanelIndex EncoInt PValStrn3 EndGInt "PDefGrup4"nameStrnTabIndexEncoInt PValStrn0 EndGInt "PDefGrup"nameStrnTextEncoInt PValStrnjYour expenses are the sum of the cost of the lemonade and the cost of the signs. Your profits are the difference between the income from sales and your expenses. The number of glasses you sell each day depends on the price you charge, and on the number of advertising signs you use. Keep track of your assets, because you can't spend more money than you have! EndGInt "PDefGrup8"nameStrn TextAlign EncoInt PValStrn0 EndGInt "PDefGrup8"nameStrn TextColor EncoInt PValStrn0 EndGInt "PDefGrup8"nameStrn Multiline EncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnEnabled EncoInt PValStrnTrueEndGInt "PDefGrup4"nameStrnVisible EncoInt PValStrnTrueEndGInt "PDefGrup0"nameStrnHelpTag EncoInt PValStrnEndGInt "PDefGrup<"nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt "PDefGrup8"nameStrnTextFontEncoInt PValStrnSystem EndGInt "PDefGrup4"nameStrnTextSizeEncoInt PValStrn0 EndGInt "PDefGrup4"nameStrnTextUnitEncoInt PValStrn0 EndGInt "PDefGrup,"nameStrnBoldEncoInt PValStrnEndGInt "PDefGrup0#nameStrnItalic EncoInt PValStrnEndGInt #PDefGrup4#nameStrn Underline EncoInt PValStrnEndGInt #PDefGrup4#nameStrn DataSource EncoInt PValStrnEndGInt #PDefGrup4#nameStrn DataField EncoInt PValStrnEndGInt #PDefGrupD#nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt #PDefGrup<#nameStrnSuper EncoInt PValStrn StaticText EndGInt #CBixInt iLckInt EndGInt "CtrlGrup<#cclsStrnCanvas nameStrnCanvas PDefGrup8#nameStrnNameEncoInt PValStrn IntroCanvas EndGInt #PDefGrup<#nameStrnIndex EncoInt PValStrn -2147483648 EndGInt #PDefGrup4# nameStrnScope EncoInt PValStrn0 EndGInt # PDefGrup0# nameStrnLeftEncoInt PValStrn18 EndGInt # PDefGrup0# nameStrnTop EncoInt PValStrn14 EndGInt # PDefGrup4# nameStrnWidth EncoInt PValStrn414 EndGInt # PDefGrup4# nameStrnHeight EncoInt PValStrn280 EndGInt # PDefGrup4#nameStrnLockLeftEncoInt PValStrnTrueEndGInt #PDefGrup4#nameStrnLockTop EncoInt PValStrnTrueEndGInt #PDefGrup4#nameStrn LockRight EncoInt PValStrnEndGInt #PDefGrup4#nameStrn LockBottom EncoInt PValStrnEndGInt #PDefGrup<#nameStrn TabPanelIndex EncoInt PValStrn1 EndGInt #PDefGrup4#nameStrnTabIndexEncoInt PValStrn0 EndGInt #PDefGrup4#nameStrnTabStop EncoInt PValStrnTrueEndGInt #PDefGrup4#nameStrnVisible EncoInt PValStrnTrueEndGInt #PDefGrup0#nameStrnHelpTag EncoInt PValStrnEndGInt #PDefGrup<#nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt #PDefGrup4#nameStrnEnabled EncoInt PValStrnTrueEndGInt #PDefGrup8#nameStrn UseFocusRingEncoInt PValStrnTrueEndGInt #PDefGrup<#nameStrnBackdropEncoInt PValStrn 1304931951 EndGInt #PDefGrup4#nameStrn AcceptFocus EncoInt PValStrnEndGInt #PDefGrup4#nameStrn AcceptTabs EncoInt PValStrnEndGInt #PDefGrup<#nameStrn DoubleBufferEncoInt PValStrnFalse EndGInt #PDefGrup<#nameStrnEraseBackground EncoInt PValStrnTrueEndGInt #PDefGrupD#nameStrn InitialParent EncoInt PValStrn PagePanel1 EndGInt #PDefGrup8# nameStrnSuper EncoInt PValStrnCanvas EndGInt # CBixInt iLckInt EndGInt #CtrlGrup#!cclsStrn Rectangle nameStrn Rectangle PDefGrup(#"nameStrnTabStop PValStrnTrueEndGInt #"PDefGrup$##nameStrnTabIndexPValInt EndGInt ##PDefGrup8#$nameStrnNameEncoInt PValStrn LemonadeRectEndGInt #$PDefGrup<#%nameStrnIndex EncoInt PValStrn -2147483648 EndGInt #%PDefGrup4#&nameStrnScope EncoInt PValStrn0 EndGInt #&PDefGrup0#'nameStrnLeftEncoInt PValStrn70 EndGInt #'PDefGrup0#(nameStrnTop EncoInt PValStrn274 EndGInt #(PDefGrup4#)nameStrnWidth EncoInt PValStrn120 EndGInt #)PDefGrup4#*nameStrnHeight EncoInt PValStrn1 EndGInt #*PDefGrup4#+nameStrnLockLeftEncoInt PValStrnTrueEndGInt #+PDefGrup4#,nameStrnLockTop EncoInt PValStrnTrueEndGInt #,PDefGrup<#-nameStrn LockRight EncoInt PValStrnFalse EndGInt #-PDefGrup<#.nameStrn LockBottom EncoInt PValStrnFalse EndGInt #.PDefGrup<#/nameStrn TabPanelIndex EncoInt PValStrn1 EndGInt #/PDefGrup4#0nameStrnVisible EncoInt PValStrnTrueEndGInt #0PDefGrup0#1nameStrnHelpTag EncoInt PValStrnEndGInt #1PDefGrup<#2nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt #2PDefGrup4#3nameStrnEnabled EncoInt PValStrnTrueEndGInt #3PDefGrup<#4nameStrn FillColor EncoInt PValStrn16777215EndGInt #4PDefGrup8#5nameStrn BorderWidth EncoInt PValStrn0 EndGInt #5PDefGrup8#6nameStrn TopLeftColorEncoInt PValStrn0 EndGInt #6PDefGrup<#7nameStrnBottomRightColorEncoInt PValStrn0 EndGInt #7PDefGrupD#8nameStrn InitialParent EncoInt PValStrn IntroCanvas EndGInt #8PDefGrup<#9nameStrnSuper EncoInt PValStrn Rectangle EndGInt #9CBixInt iLckInt EndGInt #!CtrlGrup#:cclsStrn Rectangle nameStrn Rectangle PDefGrup(#;nameStrnTabStop PValStrnTrueEndGInt #;PDefGrup$#nameStrnIndex EncoInt PValStrn -2147483648 EndGInt #>PDefGrup4#?nameStrnScope EncoInt PValStrn0 EndGInt #?PDefGrup0#@nameStrnLeftEncoInt PValStrn118 EndGInt #@PDefGrup0#AnameStrnTop EncoInt PValStrn14 EndGInt #APDefGrup4#BnameStrnWidth EncoInt PValStrn25 EndGInt #BPDefGrup4#CnameStrnHeight EncoInt PValStrn261 EndGInt #CPDefGrup4#DnameStrnLockLeftEncoInt PValStrnTrueEndGInt #DPDefGrup4#EnameStrnLockTop EncoInt PValStrnTrueEndGInt #EPDefGrup4#FnameStrn LockRight EncoInt PValStrnEndGInt #FPDefGrup4#GnameStrn LockBottom EncoInt PValStrnEndGInt #GPDefGrup<#HnameStrn TabPanelIndex EncoInt PValStrn1 EndGInt #HPDefGrup8#InameStrnVisible EncoInt PValStrnFalse EndGInt #IPDefGrup0#JnameStrnHelpTag EncoInt PValStrnEndGInt #JPDefGrup<#KnameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt #KPDefGrup4#LnameStrnEnabled EncoInt PValStrnTrueEndGInt #LPDefGrup<#MnameStrn FillColor EncoInt PValStrn16776960EndGInt #MPDefGrup8#NnameStrn BorderWidth EncoInt PValStrn0 EndGInt #NPDefGrup8#OnameStrn TopLeftColorEncoInt PValStrn0 EndGInt #OPDefGrup<#PnameStrnBottomRightColorEncoInt PValStrn0 EndGInt #PPDefGrupD#QnameStrn InitialParent EncoInt PValStrn IntroCanvas EndGInt #QPDefGrup<#RnameStrnSuper EncoInt PValStrn Rectangle EndGInt #RCBixInt iLckInt EndGInt #:CtrlGrup #ScclsStrn PushButton nameStrn PushButton PDefGrup<#TnameStrnNameEncoInt PValStrnInstructionsButnEndGInt #TPDefGrup<#UnameStrnIndex EncoInt PValStrn -2147483648 EndGInt #UPDefGrup4#VnameStrnScope EncoInt PValStrn0 EndGInt #VPDefGrup0#WnameStrnLeftEncoInt PValStrn107 EndGInt #WPDefGrup0#XnameStrnTop EncoInt PValStrn310 EndGInt #XPDefGrup4#YnameStrnWidth EncoInt PValStrn100 EndGInt #YPDefGrup4#ZnameStrnHeight EncoInt PValStrn20 EndGInt #ZPDefGrup4#[nameStrnLockLeftEncoInt PValStrnTrueEndGInt #[PDefGrup0#\nameStrnLockTop EncoInt PValStrnEndGInt #\PDefGrup4#]nameStrn LockRight EncoInt PValStrnEndGInt #]PDefGrup8#^nameStrn LockBottom EncoInt PValStrnTrueEndGInt #^PDefGrup<#_nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt #_PDefGrup4#`nameStrnTabIndexEncoInt PValStrn1 EndGInt #`PDefGrup4#anameStrnTabStop EncoInt PValStrnTrueEndGInt #aPDefGrup<#bnameStrnCaption EncoInt PValStrn InstructionsEndGInt #bPDefGrup0#cnameStrnDefault EncoInt PValStrnEndGInt #cPDefGrup0#dnameStrnCancel EncoInt PValStrnEndGInt #dPDefGrup4#enameStrnEnabled EncoInt PValStrnTrueEndGInt #ePDefGrup4#fnameStrnVisible EncoInt PValStrnTrueEndGInt #fPDefGrup0#gnameStrnHelpTag EncoInt PValStrnEndGInt #gPDefGrup<#hnameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt #hPDefGrup8#inameStrnTextFontEncoInt PValStrnSystem EndGInt #iPDefGrup4#jnameStrnTextSizeEncoInt PValStrn0 EndGInt #jPDefGrup4#knameStrnTextUnitEncoInt PValStrn0 EndGInt #kPDefGrup,#lnameStrnBoldEncoInt PValStrnEndGInt #lPDefGrup0#mnameStrnItalic EncoInt PValStrnEndGInt #mPDefGrup4#nnameStrn Underline EncoInt PValStrnEndGInt #nPDefGrup8#onameStrn InitialParent EncoInt PValStrnEndGInt #oPDefGrup<#pnameStrnSuper EncoInt PValStrn PushButton EndGInt #pCBixInt iLckInt EndGInt #SCtrlGrup#qcclsStrn PushButton nameStrn PushButton PDefGrup4#rnameStrnNameEncoInt PValStrnPlayButnEndGInt #rPDefGrup<#snameStrnIndex EncoInt PValStrn -2147483648 EndGInt #sPDefGrup4#tnameStrnScope EncoInt PValStrn0 EndGInt #tPDefGrup0#unameStrnLeftEncoInt PValStrn243 EndGInt #uPDefGrup0#vnameStrnTop EncoInt PValStrn310 EndGInt #vPDefGrup4#wnameStrnWidth EncoInt PValStrn100 EndGInt #wPDefGrup4#xnameStrnHeight EncoInt PValStrn20 EndGInt #xPDefGrup4#ynameStrnLockLeftEncoInt PValStrnTrueEndGInt #yPDefGrup0#znameStrnLockTop EncoInt PValStrnEndGInt #zPDefGrup4#{nameStrn LockRight EncoInt PValStrnEndGInt #{PDefGrup8#|nameStrn LockBottom EncoInt PValStrnTrueEndGInt #|PDefGrup<#}nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt #}PDefGrup4#~nameStrnTabIndexEncoInt PValStrn2 EndGInt #~PDefGrup4#nameStrnTabStop EncoInt PValStrnTrueEndGInt #PDefGrup8#nameStrnCaption EncoInt PValStrnPlay! EndGInt #PDefGrup0#nameStrnDefault EncoInt PValStrnEndGInt #PDefGrup0#nameStrnCancel EncoInt PValStrnEndGInt #PDefGrup4#nameStrnEnabled EncoInt PValStrnTrueEndGInt #PDefGrup4#nameStrnVisible EncoInt PValStrnTrueEndGInt #PDefGrup0#nameStrnHelpTag EncoInt PValStrnEndGInt #PDefGrup<#nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt #PDefGrup8#nameStrnTextFontEncoInt PValStrnSystem EndGInt #PDefGrup4#nameStrnTextSizeEncoInt PValStrn0 EndGInt #PDefGrup4#nameStrnTextUnitEncoInt PValStrn0 EndGInt #PDefGrup,#nameStrnBoldEncoInt PValStrnEndGInt #PDefGrup0#nameStrnItalic EncoInt PValStrnEndGInt #PDefGrup4#nameStrn Underline EncoInt PValStrnEndGInt #PDefGrup8#nameStrn InitialParent EncoInt PValStrnEndGInt #PDefGrup<#nameStrnSuper EncoInt PValStrn PushButton EndGInt #CBixInt iLckInt EndGInt #qCtrlGrup#cclsStrn MusicPlayer nameStrn MusicPlayer PDefGrup(#nameStrnTabStop PValStrnTrueEndGInt #PDefGrup$#nameStrnTabIndexPValInt EndGInt #PDefGrup4#nameStrnNameEncoInt PValStrnPlayer EndGInt #PDefGrup<#nameStrnIndex EncoInt PValStrn -2147483648 EndGInt #PDefGrup4#nameStrnScope EncoInt PValStrn0 EndGInt #PDefGrup0#nameStrnLeftEncoInt PValStrn-44 EndGInt #PDefGrup0#nameStrnTop EncoInt PValStrn180 EndGInt #PDefGrup0#nameStrnModeEncoInt PValStrn2 EndGInt #PDefGrup4#nameStrnPeriod EncoInt PValStrn1000EndGInt #PDefGrup<#nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt #PDefGrup4#nameStrnHeight EncoInt PValStrn32 EndGInt #PDefGrup4#nameStrnWidth EncoInt PValStrn32 EndGInt #PDefGrup<#nameStrnSuper EncoInt PValStrn MusicPlayer EndGInt #CBixInt iLckInt EndGInt #CtrlGrup#cclsStrnTimer nameStrnTimer PDefGrup(#nameStrnTabStop PValStrnTrueEndGInt #PDefGrup$#nameStrnTabIndexPValInt EndGInt #PDefGrup8#nameStrnNameEncoInt PValStrn FillUpTimer EndGInt #PDefGrup<#nameStrnIndex EncoInt PValStrn -2147483648 EndGInt #PDefGrup4#nameStrnScope EncoInt PValStrn0 EndGInt #PDefGrup0#nameStrnLeftEncoInt PValStrn400 EndGInt #PDefGrup0#nameStrnTop EncoInt PValStrn312 EndGInt #PDefGrup0#nameStrnModeEncoInt PValStrn2 EndGInt #PDefGrup4#nameStrnPeriod EncoInt PValStrn50 EndGInt #PDefGrup<#nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt #PDefGrup4#nameStrnHeight EncoInt PValStrn32 EndGInt #PDefGrup4#nameStrnWidth EncoInt PValStrn32 EndGInt #PDefGrup8#nameStrnSuper EncoInt PValStrnTimer EndGInt #CBixInt iLckInt EndGInt #PadnPadn ************BlokpVew BTNameStrn HowManySheetContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnMethGrup|#nameStrnPresent CompStrnVsblInt sorcGrup#EncoInt srclStrn3Function Present(parentWindow As Window) As Integer srclStrnA// Present this sheet, and return how many people will be playing srclStrn// (or 0 if the user cancels). srclStrnInputFld.text = "1" srclStrnInputFld.SelStart = 0 srclStrnInputFld.SelLength = 99999 srclStrnsrclStrn!self.ShowModalWithin parentWindow srclStrnsrclStrnreturn val( InputFld.text ) srclStrnsrclStrn End FunctionEndGInt #EncoInt AlasStrnflagInt shrdInt parmStrnparentWindow As Window rsltStrnInteger EndGInt #PDefGrup4#nameStrn BalloonHelp EncoInt PValStrnEndGInt #PDefGrup<#nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt #PDefGrup$#nameStrnMenuBar PValStrnEndGInt #PDefGrup(#nameStrn MacProcID PValInt EndGInt #PDefGrup0#nameStrnMinimizeButton PValStrnTrueEndGInt #PDefGrup4#nameStrnMaximizeButton PValStrnFalse EndGInt #PDefGrup0#nameStrn LiveResize PValStrnFalse EndGInt #PDefGrup0#nameStrn Resizeable PValStrnFalse EndGInt #PDefGrup,#nameStrn CloseButton PValStrnTrueEndGInt #PDefGrup0#nameStrnMenuBarVisible PValStrnTrueEndGInt #PDefGrup0#nameStrn FullScreen PValStrnFalse EndGInt #PDefGrup(#nameStrnVisible PValStrnTrueEndGInt #PDefGrup8#nameStrnTitle EncoInt PValStrnUntitledEndGInt #PDefGrup$#nameStrnBackdropPValStrnEndGInt #PDefGrup(#nameStrn BackColor PValInt EndGInt #PDefGrup0#nameStrn HasBackColorPValStrnFalse EndGInt #PDefGrup0#nameStrn Composite PValStrnFalse EndGInt #PDefGrup$#nameStrnFrame PValInt EndGInt #PDefGrup(#nameStrn MaxHeight PValInt }EndGInt #PDefGrup$#nameStrnMaxWidthPValInt }EndGInt #PDefGrup(#nameStrn MinHeight PValInt @EndGInt #PDefGrup$#nameStrnMinWidthPValInt @EndGInt #PDefGrup$#nameStrnHeight PValInt kEndGInt #PDefGrup$#nameStrnWidth PValInt EEndGInt #PDefGrup(#nameStrn Placement PValInt EndGInt #VwBhGrup#VwPrGrupD#NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt #VwPrGrupL#NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt #VwPrGrupH#NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt #VwPrGrup0#NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup#defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt #EndGInt #VwPrGrupp#NameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt #VwPrGrupp#NameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt #VwPrGrupp#NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt #VwPrGrupt#NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt #VwPrGrupt#NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt #VwPrGrupx#NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt #VwPrGrup #NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp#defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt #EndGInt #VwPrGrup|#NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt #VwPrGrup|#NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt #VwPrGrup|#NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt #VwPrGrupx#NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt #VwPrGrupx#NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt #VwPrGrupt#NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt #VwPrGrup|#NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt #VwPrGrup|#NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt #VwPrGrupx#NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt #VwPrGrupx#NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt #VwPrGrupx#NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt #VwPrGrup#NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt #VwPrGrup|#NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt #VwPrGrupx#NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt #VwPrGrupx#NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt #VwPrGrup|#NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt #EndGInt #CBhvGrup#SuprStrn StaticText EndGInt #CBhvGrup#SuprStrn TextField HInsGrup#nameStrn TextChange CompStrnVsblInt sorcGrup`#EncoInt srclStrnSub TextChange()srclStrnO// Changed the number of players from 30 to 1 in order to facilitate the scores srclStrnN// appearing on the right side of the screen. While we probably could make it srclStrnR// 15 or 20, I find 10 to be a good number as it is highly unlikely that more than srclStrn@// two or three users will be playing the game at the same time.srclStrnsrclStrn 0 and Val( me.text ) <= 10srclStrnsrclStrnL// Added the Message for 1-10 players only on the HowManySheet window. OncesrclStrnO// the number is reduced or erased, the message disappears from the dialog box. srclStrnsrclStrnif Val(me.text)>10 then srclStrnPlayersMemo.Visible=TruesrclStrnElsesrclStrnPlayersMemo.Visible=False srclStrnEnd srclStrnsrclStrnEnd Sub EndGInt #EndGInt #EndGInt #CBhvGrup#SuprStrn PushButton HInsGrup#nameStrnAction CompStrnVsblInt sorcGrupx#EncoInt srclStrn Sub Action()srclStrnHidesrclStrnInputFld.Text = "" srclStrnsrclStrnEnd Sub EndGInt #EndGInt #EndGInt #CBhvGrup#SuprStrn PushButton HInsGrup#nameStrnAction CompStrnVsblInt sorcGrupL#EncoInt srclStrn Sub Action()srclStrnHidesrclStrnEnd Sub EndGInt #EndGInt #EndGInt #CBhvGrup#SuprStrn StaticText EndGInt #CtrlGrup #cclsStrn StaticText nameStrn StaticText PDefGrup(#nameStrnTabStop PValStrnTrueEndGInt #PDefGrup8#nameStrnNameEncoInt PValStrn StaticText1 EndGInt #PDefGrup<#nameStrnIndex EncoInt PValStrn -2147483648 EndGInt #PDefGrup4#nameStrnScope EncoInt PValStrn0 EndGInt #PDefGrup0#nameStrnLeftEncoInt PValStrn20 EndGInt #PDefGrup0#nameStrnTop EncoInt PValStrn14 EndGInt #PDefGrup4#nameStrnWidth EncoInt PValStrn218 EndGInt #PDefGrup4#nameStrnHeight EncoInt PValStrn20 EndGInt #PDefGrup4#nameStrnLockLeftEncoInt PValStrnTrueEndGInt #PDefGrup4#nameStrnLockTop EncoInt PValStrnTrueEndGInt #PDefGrup4#nameStrn LockRight EncoInt PValStrnEndGInt #PDefGrup4#nameStrn LockBottom EncoInt PValStrnEndGInt #PDefGrup<#nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt #PDefGrup4#nameStrnTabIndexEncoInt PValStrn0 EndGInt #PDefGrupL#nameStrnTextEncoInt PValStrn How many people will be playing?EndGInt #PDefGrup8#nameStrn TextAlign EncoInt PValStrn0 EndGInt #PDefGrup8$nameStrn TextColor EncoInt PValStrn0 EndGInt $PDefGrup4$nameStrn Multiline EncoInt PValStrnEndGInt $PDefGrup4$nameStrnEnabled EncoInt PValStrnTrueEndGInt $PDefGrup4$nameStrnVisible EncoInt PValStrnTrueEndGInt $PDefGrup0$nameStrnHelpTag EncoInt PValStrnEndGInt $PDefGrup<$nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt $PDefGrup8$nameStrnTextFontEncoInt PValStrnSystem EndGInt $PDefGrup4$nameStrnTextSizeEncoInt PValStrn0 EndGInt $PDefGrup4$nameStrnTextUnitEncoInt PValStrn0 EndGInt $PDefGrup,$ nameStrnBoldEncoInt PValStrnEndGInt $ PDefGrup0$ nameStrnItalic EncoInt PValStrnEndGInt $ PDefGrup4$ nameStrn Underline EncoInt PValStrnEndGInt $ PDefGrup4$ nameStrn DataSource EncoInt PValStrnEndGInt $ PDefGrup4$ nameStrn DataField EncoInt PValStrnEndGInt $ PDefGrup8$nameStrn InitialParent EncoInt PValStrnEndGInt $PDefGrup<$nameStrnSuper EncoInt PValStrn StaticText EndGInt $CBixInt iLckInt EndGInt #CtrlGrup $cclsStrn TextField nameStrn TextField PDefGrup4$nameStrnNameEncoInt PValStrnInputFldEndGInt $PDefGrup<$nameStrnIndex EncoInt PValStrn -2147483648 EndGInt $PDefGrup4$nameStrnScope EncoInt PValStrn0 EndGInt $PDefGrup0$nameStrnLeftEncoInt PValStrn250 EndGInt $PDefGrup0$nameStrnTop EncoInt PValStrn13 EndGInt $PDefGrup4$nameStrnWidth EncoInt PValStrn55 EndGInt $PDefGrup4$nameStrnHeight EncoInt PValStrn22 EndGInt $PDefGrup4$nameStrnLockLeftEncoInt PValStrnTrueEndGInt $PDefGrup4$nameStrnLockTop EncoInt PValStrnTrueEndGInt $PDefGrup4$nameStrn LockRight EncoInt PValStrnEndGInt $PDefGrup4$nameStrn LockBottom EncoInt PValStrnEndGInt $PDefGrup<$nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt $PDefGrup4$nameStrnTabIndexEncoInt PValStrn1 EndGInt $PDefGrup4$nameStrnTabStop EncoInt PValStrnTrueEndGInt $PDefGrup4$nameStrnBorder EncoInt PValStrnTrueEndGInt $PDefGrup0$ nameStrnPasswordEncoInt PValStrnEndGInt $ PDefGrup8$!nameStrn UseFocusRingEncoInt PValStrnTrueEndGInt $!PDefGrup8$"nameStrn TextColor EncoInt PValStrn0 EndGInt $"PDefGrup<$#nameStrn BackColor EncoInt PValStrn16777215EndGInt $#PDefGrup4$$nameStrnEnabled EncoInt PValStrnTrueEndGInt $$PDefGrup0$%nameStrnFormat EncoInt PValStrnEndGInt $%PDefGrup4$&nameStrnVisible EncoInt PValStrnTrueEndGInt $&PDefGrup0$'nameStrnHelpTag EncoInt PValStrnEndGInt $'PDefGrup<$(nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt $(PDefGrup8$)nameStrnTextFontEncoInt PValStrnSystem EndGInt $)PDefGrup4$*nameStrnTextSizeEncoInt PValStrn0 EndGInt $*PDefGrup4$+nameStrnTextUnitEncoInt PValStrn0 EndGInt $+PDefGrup,$,nameStrnBoldEncoInt PValStrnEndGInt $,PDefGrup0$-nameStrnItalic EncoInt PValStrnEndGInt $-PDefGrup4$.nameStrn Underline EncoInt PValStrnEndGInt $.PDefGrup0$/nameStrnCueText EncoInt PValStrnEndGInt $/PDefGrup0$0nameStrnTextEncoInt PValStrn1 EndGInt $0PDefGrup0$1nameStrnMaskEncoInt PValStrn99 EndGInt $1PDefGrup0$2nameStrnReadOnlyEncoInt PValStrnEndGInt $2PDefGrup8$3nameStrn LimitText EncoInt PValStrn0 EndGInt $3PDefGrup4$4nameStrn AcceptTabs EncoInt PValStrnEndGInt $4PDefGrup8$5nameStrn Alignment EncoInt PValStrn0 EndGInt $5PDefGrup4$6nameStrn DataSource EncoInt PValStrnEndGInt $6PDefGrup4$7nameStrn DataField EncoInt PValStrnEndGInt $7PDefGrup8$8nameStrn InitialParent EncoInt PValStrnEndGInt $8PDefGrup<$9nameStrnSuper EncoInt PValStrn TextField EndGInt $9CBixInt iLckInt EndGInt $CtrlGrup$:cclsStrn PushButton nameStrn PushButton PDefGrup8$;nameStrnNameEncoInt PValStrn CancelButn EndGInt $;PDefGrup<$nameStrnLeftEncoInt PValStrn76 EndGInt $>PDefGrup0$?nameStrnTop EncoInt PValStrn67 EndGInt $?PDefGrup4$@nameStrnWidth EncoInt PValStrn80 EndGInt $@PDefGrup4$AnameStrnHeight EncoInt PValStrn20 EndGInt $APDefGrup4$BnameStrnLockLeftEncoInt PValStrnTrueEndGInt $BPDefGrup4$CnameStrnLockTop EncoInt PValStrnTrueEndGInt $CPDefGrup4$DnameStrn LockRight EncoInt PValStrnEndGInt $DPDefGrup4$EnameStrn LockBottom EncoInt PValStrnEndGInt $EPDefGrup<$FnameStrn TabPanelIndex EncoInt PValStrn0 EndGInt $FPDefGrup4$GnameStrnTabIndexEncoInt PValStrn2 EndGInt $GPDefGrup4$HnameStrnTabStop EncoInt PValStrnTrueEndGInt $HPDefGrup8$InameStrnCaption EncoInt PValStrnCancel EndGInt $IPDefGrup0$JnameStrnDefault EncoInt PValStrnEndGInt $JPDefGrup4$KnameStrnCancel EncoInt PValStrnTrueEndGInt $KPDefGrup4$LnameStrnEnabled EncoInt PValStrnTrueEndGInt $LPDefGrup4$MnameStrnVisible EncoInt PValStrnTrueEndGInt $MPDefGrup0$NnameStrnHelpTag EncoInt PValStrnEndGInt $NPDefGrup<$OnameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt $OPDefGrup8$PnameStrnTextFontEncoInt PValStrnSystem EndGInt $PPDefGrup4$QnameStrnTextSizeEncoInt PValStrn0 EndGInt $QPDefGrup4$RnameStrnTextUnitEncoInt PValStrn0 EndGInt $RPDefGrup,$SnameStrnBoldEncoInt PValStrnEndGInt $SPDefGrup0$TnameStrnItalic EncoInt PValStrnEndGInt $TPDefGrup4$UnameStrn Underline EncoInt PValStrnEndGInt $UPDefGrup8$VnameStrn InitialParent EncoInt PValStrnEndGInt $VPDefGrup<$WnameStrnSuper EncoInt PValStrn PushButton EndGInt $WCBixInt iLckInt EndGInt $:CtrlGrup$XcclsStrn PushButton nameStrn PushButton PDefGrup4$YnameStrnNameEncoInt PValStrnOKButn EndGInt $YPDefGrup<$ZnameStrnIndex EncoInt PValStrn -2147483648 EndGInt $ZPDefGrup4$[nameStrnScope EncoInt PValStrn0 EndGInt $[PDefGrup0$\nameStrnLeftEncoInt PValStrn168 EndGInt $\PDefGrup0$]nameStrnTop EncoInt PValStrn67 EndGInt $]PDefGrup4$^nameStrnWidth EncoInt PValStrn80 EndGInt $^PDefGrup4$_nameStrnHeight EncoInt PValStrn20 EndGInt $_PDefGrup4$`nameStrnLockLeftEncoInt PValStrnTrueEndGInt $`PDefGrup4$anameStrnLockTop EncoInt PValStrnTrueEndGInt $aPDefGrup4$bnameStrn LockRight EncoInt PValStrnEndGInt $bPDefGrup4$cnameStrn LockBottom EncoInt PValStrnEndGInt $cPDefGrup<$dnameStrn TabPanelIndex EncoInt PValStrn0 EndGInt $dPDefGrup4$enameStrnTabIndexEncoInt PValStrn3 EndGInt $ePDefGrup4$fnameStrnTabStop EncoInt PValStrnTrueEndGInt $fPDefGrup8$gnameStrnCaption EncoInt PValStrnPlay! EndGInt $gPDefGrup4$hnameStrnDefault EncoInt PValStrnTrueEndGInt $hPDefGrup0$inameStrnCancel EncoInt PValStrnEndGInt $iPDefGrup4$jnameStrnEnabled EncoInt PValStrnTrueEndGInt $jPDefGrup4$knameStrnVisible EncoInt PValStrnTrueEndGInt $kPDefGrup0$lnameStrnHelpTag EncoInt PValStrnEndGInt $lPDefGrup<$mnameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt $mPDefGrup8$nnameStrnTextFontEncoInt PValStrnSystem EndGInt $nPDefGrup4$onameStrnTextSizeEncoInt PValStrn0 EndGInt $oPDefGrup4$pnameStrnTextUnitEncoInt PValStrn0 EndGInt $pPDefGrup,$qnameStrnBoldEncoInt PValStrnEndGInt $qPDefGrup0$rnameStrnItalic EncoInt PValStrnEndGInt $rPDefGrup4$snameStrn Underline EncoInt PValStrnEndGInt $sPDefGrup8$tnameStrn InitialParent EncoInt PValStrnEndGInt $tPDefGrup<$unameStrnSuper EncoInt PValStrn PushButton EndGInt $uCBixInt iLckInt EndGInt $XCtrlGrup $vcclsStrn StaticText nameStrn StaticText PDefGrup($wnameStrnTabStop PValStrnTrueEndGInt $wPDefGrup8$xnameStrnNameEncoInt PValStrn PlayersMemo EndGInt $xPDefGrup<$ynameStrnIndex EncoInt PValStrn -2147483648 EndGInt $yPDefGrup4$znameStrnScope EncoInt PValStrn0 EndGInt $zPDefGrup0${nameStrnLeftEncoInt PValStrn64 EndGInt ${PDefGrup0$|nameStrnTop EncoInt PValStrn39 EndGInt $|PDefGrup4$}nameStrnWidth EncoInt PValStrn220 EndGInt $}PDefGrup4$~nameStrnHeight EncoInt PValStrn23 EndGInt $~PDefGrup4$nameStrnLockLeftEncoInt PValStrnTrueEndGInt $PDefGrup4$nameStrnLockTop EncoInt PValStrnTrueEndGInt $PDefGrup4$nameStrn LockRight EncoInt PValStrnEndGInt $PDefGrup4$nameStrn LockBottom EncoInt PValStrnEndGInt $PDefGrup<$nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt $PDefGrup4$nameStrnTabIndexEncoInt PValStrn4 EndGInt $PDefGrupH$nameStrnTextEncoInt PValStrnFrom 1 to 10 players only!!!EndGInt $PDefGrup8$nameStrn TextAlign EncoInt PValStrn1 EndGInt $PDefGrup8$nameStrn TextColor EncoInt PValStrn0 EndGInt $PDefGrup4$nameStrn Multiline EncoInt PValStrnEndGInt $PDefGrup4$nameStrnEnabled EncoInt PValStrnTrueEndGInt $PDefGrup8$nameStrnVisible EncoInt PValStrnFalse EndGInt $PDefGrup0$nameStrnHelpTag EncoInt PValStrnEndGInt $PDefGrup<$nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt $PDefGrup8$nameStrnTextFontEncoInt PValStrnSystem EndGInt $PDefGrup4$nameStrnTextSizeEncoInt PValStrn0 EndGInt $PDefGrup4$nameStrnTextUnitEncoInt PValStrn0 EndGInt $PDefGrup,$nameStrnBoldEncoInt PValStrnEndGInt $PDefGrup0$nameStrnItalic EncoInt PValStrnEndGInt $PDefGrup4$nameStrn Underline EncoInt PValStrnEndGInt $PDefGrup4$nameStrn DataSource EncoInt PValStrnEndGInt $PDefGrup4$nameStrn DataField EncoInt PValStrnEndGInt $PDefGrup8$nameStrn InitialParent EncoInt PValStrnEndGInt $PDefGrup<$nameStrnSuper EncoInt PValStrn StaticText EndGInt $CBixInt iLckInt EndGInt $vPadnPadnBlokpUIsWnStGrup$OTabGrup4$ContInt eSptInt plSCInt plCDInt EndGInt $OTabGrupX$ContInt pLSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @EndGInt $LsLcStrnMainWindow Layout rEdtRect,'EndGInt $PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!