RbBF2>ÔBlokProjPSIVStrn2012.012ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt )Ê¿ÿprTpInt DLanInt CLanInt DEncInt BflgInt @UsBFInt prWAInt IconGrupóEndGInt óMacCStrnBCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnGDIpInt BL86Strn MyApplication DgCLStrnWprtInt WpclInt WdptInt WbsrInt WbLSStrn Launching...WHTMStrnWbDSStrn:The application has gone off-line. Please try again later. PadnPadnà********************************************************************************************************************************************************************************************************************************BlokpObjn 'ÿNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$ônameStrnMenuBar PValInt 0‡wÿEndGInt ôVwBhGrupõEndGInt õCnstGrupönameStrnkFileQuitShortcut CompStrnVsblInt EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0÷pltfInt langInt defnStrnCmd+Q EndGInt ÷CInsGrup0øpltfInt langInt defnStrnCtrl+Q EndGInt øEndGInt öCnstGrupÌùnameStrn kFileQuit CompStrnVsblInt EncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0úpltfInt langInt defnStrnE&xit EndGInt úEndGInt ùCnstGrupûnameStrn kEditClear CompStrnVsblInt EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0üpltfInt langInt defnStrn&Delete EndGInt üCInsGrup0ýpltfInt langInt defnStrn&Delete EndGInt ýEndGInt ûPadnPadn¼********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew)Ê¿ÿ”NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnMethGrupxþnameStrnCalculateSolution CompStrnVsblInt sorcGrupÜÿEncoInt srclStrnSub CalculateSolution() srclStrnDim I, J As Integer srclStrnDim Directions As StringsrclStrnDim OddBetween As Boolean srclStrnDim TestCharacter As String srclStrn,Dim FirstPosition, SecondPosition As IntegersrclStrnDim Between As Integer srclStrn%HowManyLines = (2 ^ HowManyDisks) - 1 srclStrnTextArea1.Text = "" srclStrnHDirections = "SOLUTION FOR " + Str ( HowManyDisks ) + " DISKS" + Chr(13)srclStrnNDIrections = Directions + "(" + Str(HowManyLines) + " moves minimum required)" srclStrn,Directions = Directions + Chr(13) + Chr(13)srclStrnsrclStrnFor J = 1 To HowManyLines srclStrnEDirections = Directions + Bin ( J ) + " (Move " + Str( J ) + "): " srclStrnBinaryLine = Bin ( J ) srclStrnFirstPosition = 0 srclStrnSecondPosition = 0 srclStrn!For I = Len (BinaryLine) DownTo 1 srclStrn(TestCharacter = Mid ( BinaryLine, I, 1 )srclStrnIf TestCharacter = "1" Then srclStrn0If FirstPosition = 0 And SecondPosition = 0 ThensrclStrn(FirstPosition = Len (BinaryLine) - I + 1srclStrn5Elseif FirstPosition <> 0 And SecondPosition = 0 Then srclStrn)SecondPosition = Len (BinaryLine) - I + 1 srclStrnEnd If srclStrnEnd If srclStrnNext I srclStrn 0 And SecondPosition <> 0 Then srclStrn-Between = SecondPosition - FirstPosition - 1 srclStrnIf Between Mod 2 = 1 Then srclStrn$Directions = Directions + " but NOT"srclStrnEnd If srclStrnEnd If srclStrnIf SecondPosition <> 0 Then srclStrnEDirections = Directions + " onto disk " + Str (SecondPosition ) + "." srclStrnElsesrclStrn,Directions = Directions + " onto empty peg."srclStrnEnd If srclStrn"Directions = Directions + Chr (13) srclStrnNext J srclStrn6TextArea1.Text = TextArea1.Text + Chr(13) + Directions srclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt ÿEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt þPropGrupÌnameStrn BinaryLine CompStrnVsblInt sorcGrup<EncoInt srclStrnBinaryLine As StringsrclStrnEndGInt EncoInt declStrnBinaryLine As StringflagInt shrdInt EndGInt PropGrupÔnameStrn DecimalLine CompStrnVsblInt sorcGrup@EncoInt srclStrnDecimalLine As String srclStrnEndGInt EncoInt declStrnDecimalLine As String flagInt shrdInt EndGInt PropGrupÌnameStrn WhatToMove CompStrnVsblInt sorcGrup<EncoInt srclStrnWhatToMove As StringsrclStrnEndGInt EncoInt declStrnWhatToMove As StringflagInt shrdInt EndGInt PropGrupØnameStrn FirstPosition CompStrnVsblInt sorcGrup@EncoInt srclStrnFirstPosition As IntegersrclStrnEndGInt EncoInt declStrnFirstPosition As IntegerflagInt shrdInt EndGInt PropGrupØnameStrn TestCharacter CompStrnVsblInt sorcGrup@ EncoInt srclStrnTestCharacter As String srclStrnEndGInt  EncoInt declStrnTestCharacter As String flagInt shrdInt EndGInt PropGrupÔ nameStrn HowManyDisksCompStrnVsblInt sorcGrup@ EncoInt srclStrnHowManyDisks As Integer srclStrnEndGInt  EncoInt declStrnHowManyDisks As Integer flagInt shrdInt EndGInt  PropGrupÔ nameStrn HowManyLinesCompStrnVsblInt sorcGrup@ EncoInt srclStrnHowManyLines As Integer srclStrnEndGInt  EncoInt declStrnHowManyLines As Integer flagInt shrdInt EndGInt  PDefGrup<nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt PDefGrup0nameStrnMenuBar PValStrn 814184447 EndGInt PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup,nameStrn LiveResize PValStrnTrueEndGInt PDefGrup,nameStrn Resizeable PValStrnTrueEndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrupPnameStrnTitle EncoInt PValStrnHanoi Solutions by Barry Traver 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 XEndGInt $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 /VwPrGrupt0NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt 0VwPrGrupx1NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt 1VwPrGrup 2NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp3defnStrn 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 3EndGInt 2VwPrGrup|4NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt 4VwPrGrup|5NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt 5VwPrGrup|6NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt 6VwPrGrupx7NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt 7VwPrGrupx8NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt 8VwPrGrupt9NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt 9VwPrGrup|:NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt :VwPrGrup|;NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt ;VwPrGrupxNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt >VwPrGrup€?NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ?VwPrGrup|@NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt @VwPrGrupxANameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt AVwPrGrupxBNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt BVwPrGrup|CNameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt CVwPrGrup`DNameStrn BinaryLine PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt DVwPrGrup`ENameStrn DecimalLine PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt EVwPrGrup`FNameStrn WhatToMove PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt FVwPrGrupHGNameStrn FirstPosition PrGpStrnBehaviortypeStrnInteger EndGInt GVwPrGrupdHNameStrn TestCharacter PrGpStrnBehaviortypeStrnString vbETStrnMultiLineEditor EndGInt HVwPrGrupDINameStrn HowManyDisksPrGpStrnBehaviortypeStrnInteger EndGInt IVwPrGrupDJNameStrn HowManyLinesPrGpStrnBehaviortypeStrnInteger EndGInt JEndGInt &CBhvGrupKSuprStrnTextAreaEndGInt KCBhvGrupLSuprStrn TextField EndGInt LCBhvGrupôMSuprStrn PushButton HInsGrupÀNnameStrnAction CompStrnVsblInt sorcGrupxOEncoInt srclStrn Sub Action()srclStrnHowManyDisks = 2srclStrnCalculateSolution srclStrnEnd Sub EndGInt OEndGInt NEndGInt MCBhvGrupôPSuprStrn PushButton HInsGrupÀQnameStrnAction CompStrnVsblInt sorcGrupxREncoInt srclStrn Sub Action()srclStrnHowManyDisks = 3srclStrnCalculateSolution srclStrnEnd Sub EndGInt REndGInt QEndGInt PCBhvGrupôSSuprStrn PushButton HInsGrupÀTnameStrnAction CompStrnVsblInt sorcGrupxUEncoInt srclStrn Sub Action()srclStrnHowManyDisks = 4srclStrnCalculateSolution srclStrnEnd Sub EndGInt UEndGInt TEndGInt SCBhvGrupôVSuprStrn PushButton HInsGrupÀWnameStrnAction CompStrnVsblInt sorcGrupxXEncoInt srclStrn Sub Action()srclStrnHowManyDisks = 5srclStrnCalculateSolution srclStrnEnd Sub EndGInt XEndGInt WEndGInt VCBhvGrupôYSuprStrn PushButton HInsGrupÀZnameStrnAction CompStrnVsblInt sorcGrupx[EncoInt srclStrn Sub Action()srclStrnHowManyDisks = 7srclStrnCalculateSolution srclStrnEnd Sub EndGInt [EndGInt ZEndGInt YCBhvGrupô\SuprStrn PushButton HInsGrupÀ]nameStrnAction CompStrnVsblInt sorcGrupx^EncoInt srclStrn Sub Action()srclStrnHowManyDisks = 8srclStrnCalculateSolution srclStrnEnd Sub EndGInt ^EndGInt ]EndGInt \CBhvGrupô_SuprStrn PushButton HInsGrupÀ`nameStrnAction CompStrnVsblInt sorcGrupxaEncoInt srclStrn Sub Action()srclStrnHowManyDisks = 9srclStrnCalculateSolution srclStrnEnd Sub EndGInt aEndGInt `EndGInt _CBhvGrupøbSuprStrn PushButton HInsGrupÄcnameStrnAction CompStrnVsblInt sorcGrup|dEncoInt srclStrn Sub Action()srclStrnHowManyDisks = 10 srclStrnCalculateSolution srclStrnEnd Sub EndGInt dEndGInt cEndGInt bCBhvGrupôeSuprStrn PushButton HInsGrupÀfnameStrnAction CompStrnVsblInt sorcGrupxgEncoInt srclStrn Sub Action()srclStrnHowManyDisks = 6srclStrnCalculateSolution srclStrnEnd Sub EndGInt gEndGInt fEndGInt eCtrlGrup ¸hcclsStrnTextAreanameStrnTextAreaPDefGrup4inameStrn DataField EncoInt PValStrnEndGInt iPDefGrup4jnameStrn DataSource EncoInt PValStrnEndGInt jPDefGrup<knameStrnAutomaticallyCheckSpelling PValStrnTrueEndGInt kPDefGrup(lnameStrn Alignment PValInt EndGInt lPDefGrup(mnameStrn AcceptTabs PValStrnEndGInt mPDefGrup(nnameStrn LimitText PValInt EndGInt nPDefGrup$onameStrnReadOnlyPValStrnEndGInt oPDefGrup,pnameStrnMaskEncoInt PValStrnEndGInt pPDefGrup,qnameStrnTextEncoInt PValStrnEndGInt qPDefGrup(rnameStrn Underline PValStrnEndGInt rPDefGrup$snameStrnItalic PValStrnEndGInt sPDefGrup tnameStrnBoldPValStrnEndGInt tPDefGrup(unameStrnTextUnitPValStrn0 EndGInt uPDefGrup(vnameStrnTextSizePValStrn20 EndGInt vPDefGrup8wnameStrnTextFontEncoInt PValStrnSystem EndGInt wPDefGrup0xnameStrn HideSelection PValStrnTrueEndGInt xPDefGrup0ynameStrnAutoDeactivate PValStrnTrueEndGInt yPDefGrup0znameStrnHelpTag EncoInt PValStrnEndGInt zPDefGrup({nameStrnVisible PValStrnTrueEndGInt {PDefGrup0|nameStrnFormat EncoInt PValStrnEndGInt |PDefGrup(}nameStrnEnabled PValStrnTrueEndGInt }PDefGrup(~nameStrn BackColor PValInt ÿÿÿEndGInt ~PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup,€nameStrn UseFocusRingPValStrnTrueEndGInt €PDefGrup(nameStrnStyled PValStrnTrueEndGInt PDefGrup4‚nameStrnScrollbarVertical PValStrnTrueEndGInt ‚PDefGrup0ƒnameStrnScrollbarHorizontal PValStrnEndGInt ƒPDefGrup,„nameStrn Multiline PValStrnTrueEndGInt „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 XEndGInt PDefGrup$ŽnameStrnWidth PValInt 0EndGInt ŽPDefGrup nameStrnTop PValInt QEndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(‘nameStrnScope PValStrn0 EndGInt ‘PDefGrup8’nameStrnSuper EncoInt PValStrnTextAreaEndGInt ’PDefGrup$“nameStrnIndex PValInt €EndGInt “PDefGrup8”nameStrnNameEncoInt PValStrn TextArea1 EndGInt ”CBixInt iLckInt EndGInt hCtrlGrup •cclsStrn TextField nameStrn TextField PDefGrup4–nameStrn DataField EncoInt PValStrnEndGInt –PDefGrup4—nameStrn DataSource EncoInt PValStrnEndGInt —PDefGrup@˜nameStrnAutomaticallyCheckSpelling PValStrnFalse EndGInt ˜PDefGrup(™nameStrn Alignment PValInt EndGInt ™PDefGrup(šnameStrn AcceptTabs PValStrnEndGInt šPDefGrup(›nameStrn LimitText PValInt EndGInt ›PDefGrup(œnameStrnReadOnlyPValStrnTrueEndGInt œPDefGrup,nameStrnMaskEncoInt PValStrnEndGInt PDefGrup<žnameStrnTextEncoInt PValStrnHow many disks? EndGInt žPDefGrup0ŸnameStrnCueText EncoInt PValStrnEndGInt ŸPDefGrup( nameStrn Underline PValStrnEndGInt  PDefGrup$¡nameStrnItalic PValStrnEndGInt ¡PDefGrup ¢nameStrnBoldPValStrnEndGInt ¢PDefGrup(£nameStrnTextUnitPValStrn0 EndGInt £PDefGrup(¤nameStrnTextSizePValStrn20 EndGInt ¤PDefGrup8¥nameStrnTextFontEncoInt PValStrnSystem EndGInt ¥PDefGrup0¦nameStrnAutoDeactivate PValStrnTrueEndGInt ¦PDefGrup0§nameStrnHelpTag EncoInt PValStrnEndGInt §PDefGrup(¨nameStrnVisible PValStrnTrueEndGInt ¨PDefGrup0©nameStrnFormat 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 £EndGInt ¸PDefGrup ¹nameStrnTop PValInt EndGInt ¹PDefGrup ºnameStrnLeftPValInt EndGInt ºPDefGrup(»nameStrnScope PValStrn0 EndGInt »PDefGrup<¼nameStrnSuper EncoInt PValStrn TextField EndGInt ¼PDefGrup$½nameStrnIndex PValInt €EndGInt ½PDefGrup8¾nameStrnNameEncoInt PValStrn TextField1 EndGInt ¾CBixInt iLckInt EndGInt •CtrlGrup¿cclsStrn PushButton nameStrn PushButton PDefGrup8ÀnameStrn InitialParent EncoInt PValStrnEndGInt ÀPDefGrup(ÁnameStrn Underline PValStrnEndGInt ÁPDefGrup$ÂnameStrnItalic PValStrnEndGInt ÂPDefGrup ÃnameStrnBoldPValStrnEndGInt ÃPDefGrup(ÄnameStrnTextUnitPValStrn0 EndGInt ÄPDefGrup(ÅnameStrnTextSizePValStrn20 EndGInt ÅPDefGrup8ÆnameStrnTextFontEncoInt PValStrnSystem EndGInt ÆPDefGrup,ÇnameStrn ButtonStyle PValStrn0 EndGInt ÇPDefGrup0ÈnameStrnAutoDeactivate PValStrnTrueEndGInt ÈPDefGrup0ÉnameStrnHelpTag EncoInt PValStrnEndGInt ÉPDefGrup(ÊnameStrnVisible PValStrnTrueEndGInt ÊPDefGrup(ËnameStrnEnabled PValStrnTrueEndGInt ËPDefGrup$ÌnameStrnCancel PValStrnEndGInt ÌPDefGrup$ÍnameStrnDefault PValStrnEndGInt ÍPDefGrup4ÎnameStrnCaption EncoInt PValStrn2 EndGInt Î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 ÈEndGInt ÙPDefGrup(ÚnameStrnScope PValStrn0 EndGInt ÚPDefGrup<ÛnameStrnSuper EncoInt PValStrn PushButton EndGInt ÛPDefGrup$ÜnameStrnIndex PValInt €EndGInt ÜPDefGrup8ÝnameStrnNameEncoInt PValStrn PushButton3 EndGInt ÝCBixInt iLckInt EndGInt ¿CtrlGrupÞcclsStrn PushButton nameStrn PushButton PDefGrup8ßnameStrn InitialParent EncoInt PValStrnEndGInt ßPDefGrup(ànameStrn Underline PValStrnEndGInt àPDefGrup$ánameStrnItalic PValStrnEndGInt áPDefGrup ânameStrnBoldPValStrnEndGInt âPDefGrup(ãnameStrnTextUnitPValStrn0 EndGInt ãPDefGrup(änameStrnTextSizePValStrn20 EndGInt äPDefGrup8ånameStrnTextFontEncoInt PValStrnSystem EndGInt åPDefGrup,ænameStrn ButtonStyle PValStrn0 EndGInt æPDefGrup0çnameStrnAutoDeactivate PValStrnTrueEndGInt çPDefGrup0ènameStrnHelpTag EncoInt PValStrnEndGInt èPDefGrup(énameStrnVisible PValStrnTrueEndGInt éPDefGrup(ênameStrnEnabled PValStrnTrueEndGInt êPDefGrup$ënameStrnCancel PValStrnEndGInt ëPDefGrup$ìnameStrnDefault PValStrnEndGInt ìPDefGrup4ínameStrnCaption EncoInt PValStrn3 EndGInt í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 ðEndGInt øPDefGrup(ùnameStrnScope PValStrn0 EndGInt ùPDefGrup<únameStrnSuper EncoInt PValStrn PushButton EndGInt úPDefGrup$ûnameStrnIndex PValInt €EndGInt ûPDefGrup8ünameStrnNameEncoInt PValStrn PushButton4 EndGInt üCBixInt iLckInt EndGInt ÞCtrlGrupýcclsStrn PushButton nameStrn PushButton PDefGrup8þnameStrn InitialParent EncoInt PValStrnEndGInt þPDefGrup(ÿnameStrn Underline PValStrnEndGInt ÿPDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(nameStrnTextSizePValStrn20 EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup,nameStrn ButtonStyle PValStrn0 EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt  PDefGrup$ nameStrnCancel PValStrnEndGInt  PDefGrup$ nameStrnDefault PValStrnEndGInt  PDefGrup4 nameStrnCaption EncoInt PValStrn4 EndGInt  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 EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$nameStrnIndex PValInt €EndGInt PDefGrup8nameStrnNameEncoInt PValStrn PushButton5 EndGInt CBixInt iLckInt EndGInt ýCtrlGrupcclsStrn PushButton nameStrn PushButton PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup  nameStrnBoldPValStrnEndGInt  PDefGrup(!nameStrnTextUnitPValStrn0 EndGInt !PDefGrup("nameStrnTextSizePValStrn20 EndGInt "PDefGrup8#nameStrnTextFontEncoInt PValStrnSystem EndGInt #PDefGrup,$nameStrn ButtonStyle PValStrn0 EndGInt $PDefGrup0%nameStrnAutoDeactivate PValStrnTrueEndGInt %PDefGrup0&nameStrnHelpTag EncoInt PValStrnEndGInt &PDefGrup('nameStrnVisible PValStrnTrueEndGInt 'PDefGrup((nameStrnEnabled PValStrnTrueEndGInt (PDefGrup$)nameStrnCancel PValStrnEndGInt )PDefGrup$*nameStrnDefault PValStrnEndGInt *PDefGrup4+nameStrnCaption EncoInt PValStrn5 EndGInt +PDefGrup(,nameStrnTabStop PValStrnTrueEndGInt ,PDefGrup$-nameStrnTabIndexPValInt EndGInt -PDefGrup,.nameStrn TabPanelIndex PValInt EndGInt .PDefGrup(/nameStrn LockBottom PValStrnEndGInt /PDefGrup(0nameStrn LockRight PValStrnEndGInt 0PDefGrup(1nameStrnLockTop PValStrnTrueEndGInt 1PDefGrup(2nameStrnLockLeftPValStrnTrueEndGInt 2PDefGrup$3nameStrnHeight PValInt (EndGInt 3PDefGrup$4nameStrnWidth PValInt EndGInt 4PDefGrup 5nameStrnTop PValInt EndGInt 5PDefGrup 6nameStrnLeftPValInt >EndGInt 6PDefGrup(7nameStrnScope PValStrn0 EndGInt 7PDefGrup<8nameStrnSuper EncoInt PValStrn PushButton EndGInt 8PDefGrup$9nameStrnIndex PValInt €EndGInt 9PDefGrup8:nameStrnNameEncoInt PValStrn PushButton6 EndGInt :CBixInt iLckInt EndGInt CtrlGrup;cclsStrn PushButton nameStrn PushButton PDefGrup8nameStrnItalic PValStrnEndGInt >PDefGrup ?nameStrnBoldPValStrnEndGInt ?PDefGrup(@nameStrnTextUnitPValStrn0 EndGInt @PDefGrup(AnameStrnTextSizePValStrn20 EndGInt APDefGrup8BnameStrnTextFontEncoInt PValStrnSystem EndGInt BPDefGrup,CnameStrn ButtonStyle PValStrn0 EndGInt CPDefGrup0DnameStrnAutoDeactivate PValStrnTrueEndGInt DPDefGrup0EnameStrnHelpTag EncoInt PValStrnEndGInt EPDefGrup(FnameStrnVisible PValStrnTrueEndGInt FPDefGrup(GnameStrnEnabled PValStrnTrueEndGInt GPDefGrup$HnameStrnCancel PValStrnEndGInt HPDefGrup$InameStrnDefault PValStrnEndGInt IPDefGrup4JnameStrnCaption EncoInt PValStrn7 EndGInt JPDefGrup(KnameStrnTabStop PValStrnTrueEndGInt KPDefGrup$LnameStrnTabIndexPValInt EndGInt LPDefGrup,MnameStrn TabPanelIndex PValInt EndGInt MPDefGrup(NnameStrn LockBottom PValStrnEndGInt NPDefGrup(OnameStrn LockRight PValStrnEndGInt OPDefGrup(PnameStrnLockTop PValStrnTrueEndGInt PPDefGrup(QnameStrnLockLeftPValStrnTrueEndGInt QPDefGrup$RnameStrnHeight PValInt (EndGInt RPDefGrup$SnameStrnWidth PValInt EndGInt SPDefGrup TnameStrnTop PValInt EndGInt TPDefGrup UnameStrnLeftPValInt EndGInt UPDefGrup(VnameStrnScope PValStrn0 EndGInt VPDefGrup<WnameStrnSuper EncoInt PValStrn PushButton EndGInt WPDefGrup$XnameStrnIndex PValInt €EndGInt XPDefGrup8YnameStrnNameEncoInt PValStrn PushButton8 EndGInt YCBixInt iLckInt EndGInt ;CtrlGrupZcclsStrn PushButton nameStrn PushButton PDefGrup8[nameStrn InitialParent EncoInt PValStrnEndGInt [PDefGrup(\nameStrn Underline PValStrnEndGInt \PDefGrup$]nameStrnItalic PValStrnEndGInt ]PDefGrup ^nameStrnBoldPValStrnEndGInt ^PDefGrup(_nameStrnTextUnitPValStrn0 EndGInt _PDefGrup(`nameStrnTextSizePValStrn20 EndGInt `PDefGrup8anameStrnTextFontEncoInt PValStrnSystem EndGInt aPDefGrup,bnameStrn ButtonStyle PValStrn0 EndGInt bPDefGrup0cnameStrnAutoDeactivate PValStrnTrueEndGInt cPDefGrup0dnameStrnHelpTag EncoInt PValStrnEndGInt dPDefGrup(enameStrnVisible PValStrnTrueEndGInt ePDefGrup(fnameStrnEnabled PValStrnTrueEndGInt fPDefGrup$gnameStrnCancel PValStrnEndGInt gPDefGrup$hnameStrnDefault PValStrnEndGInt hPDefGrup4inameStrnCaption EncoInt PValStrn8 EndGInt iPDefGrup(jnameStrnTabStop PValStrnTrueEndGInt jPDefGrup$knameStrnTabIndexPValInt EndGInt kPDefGrup,lnameStrn TabPanelIndex PValInt EndGInt lPDefGrup(mnameStrn LockBottom PValStrnEndGInt mPDefGrup(nnameStrn LockRight PValStrnEndGInt nPDefGrup(onameStrnLockTop PValStrnTrueEndGInt oPDefGrup(pnameStrnLockLeftPValStrnTrueEndGInt pPDefGrup$qnameStrnHeight PValInt (EndGInt qPDefGrup$rnameStrnWidth PValInt EndGInt rPDefGrup snameStrnTop PValInt EndGInt sPDefGrup tnameStrnLeftPValInt ¸EndGInt tPDefGrup(unameStrnScope PValStrn0 EndGInt uPDefGrup<vnameStrnSuper EncoInt PValStrn PushButton EndGInt vPDefGrup$wnameStrnIndex PValInt €EndGInt wPDefGrup8xnameStrnNameEncoInt PValStrn PushButton9 EndGInt xCBixInt iLckInt EndGInt ZCtrlGrupycclsStrn PushButton nameStrn PushButton PDefGrup8znameStrn InitialParent EncoInt PValStrnEndGInt zPDefGrup({nameStrn Underline PValStrnEndGInt {PDefGrup$|nameStrnItalic PValStrnEndGInt |PDefGrup }nameStrnBoldPValStrnEndGInt }PDefGrup(~nameStrnTextUnitPValStrn0 EndGInt ~PDefGrup(nameStrnTextSizePValStrn20 EndGInt PDefGrup8€nameStrnTextFontEncoInt PValStrnSystem EndGInt €PDefGrup,nameStrn ButtonStyle PValStrn0 EndGInt PDefGrup0‚nameStrnAutoDeactivate PValStrnTrueEndGInt ‚PDefGrup0ƒnameStrnHelpTag EncoInt PValStrnEndGInt ƒPDefGrup(„nameStrnVisible PValStrnTrueEndGInt „PDefGrup(…nameStrnEnabled PValStrnTrueEndGInt …PDefGrup$†nameStrnCancel PValStrnEndGInt †PDefGrup$‡nameStrnDefault PValStrnEndGInt ‡PDefGrup4ˆnameStrnCaption EncoInt PValStrn9 EndGInt ˆ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 àEndGInt “PDefGrup(”nameStrnScope PValStrn0 EndGInt ”PDefGrup<•nameStrnSuper EncoInt PValStrn PushButton EndGInt •PDefGrup$–nameStrnIndex PValInt €EndGInt –PDefGrup8—nameStrnNameEncoInt PValStrn PushButton10EndGInt —CBixInt iLckInt EndGInt yCtrlGrup˜cclsStrn PushButton nameStrn PushButton PDefGrup8™nameStrn InitialParent EncoInt PValStrnEndGInt ™PDefGrup(šnameStrn Underline PValStrnEndGInt šPDefGrup$›nameStrnItalic PValStrnEndGInt ›PDefGrup œnameStrnBoldPValStrnEndGInt œPDefGrup(nameStrnTextUnitPValStrn0 EndGInt PDefGrup(žnameStrnTextSizePValStrn20 EndGInt žPDefGrup8ŸnameStrnTextFontEncoInt PValStrnSystem EndGInt ŸPDefGrup, nameStrn ButtonStyle PValStrn0 EndGInt  PDefGrup0¡nameStrnAutoDeactivate PValStrnTrueEndGInt ¡PDefGrup0¢nameStrnHelpTag EncoInt PValStrnEndGInt ¢PDefGrup(£nameStrnVisible PValStrnTrueEndGInt £PDefGrup(¤nameStrnEnabled PValStrnTrueEndGInt ¤PDefGrup$¥nameStrnCancel PValStrnEndGInt ¥PDefGrup$¦nameStrnDefault PValStrnEndGInt ¦PDefGrup4§nameStrnCaption EncoInt PValStrn10 EndGInt §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 0EndGInt °PDefGrup ±nameStrnTop PValInt EndGInt ±PDefGrup ²nameStrnLeftPValInt EndGInt ²PDefGrup(³nameStrnScope PValStrn0 EndGInt ³PDefGrup<´nameStrnSuper EncoInt PValStrn PushButton EndGInt ´PDefGrup$µnameStrnIndex PValInt €EndGInt µPDefGrup8¶nameStrnNameEncoInt PValStrn PushButton11EndGInt ¶CBixInt iLckInt EndGInt ˜CtrlGrup·cclsStrn PushButton nameStrn PushButton PDefGrup8¸nameStrn InitialParent EncoInt PValStrnEndGInt ¸PDefGrup(¹nameStrn Underline PValStrnEndGInt ¹PDefGrup$ºnameStrnItalic PValStrnEndGInt ºPDefGrup »nameStrnBoldPValStrnEndGInt »PDefGrup(¼nameStrnTextUnitPValStrn0 EndGInt ¼PDefGrup(½nameStrnTextSizePValStrn20 EndGInt ½PDefGrup8¾nameStrnTextFontEncoInt PValStrnSystem EndGInt ¾PDefGrup,¿nameStrn ButtonStyle PValStrn0 EndGInt ¿PDefGrup0ÀnameStrnAutoDeactivate PValStrnTrueEndGInt ÀPDefGrup0ÁnameStrnHelpTag EncoInt PValStrnEndGInt ÁPDefGrup(ÂnameStrnVisible PValStrnTrueEndGInt ÂPDefGrup(ÃnameStrnEnabled PValStrnTrueEndGInt ÃPDefGrup$ÄnameStrnCancel PValStrnEndGInt ÄPDefGrup$ÅnameStrnDefault PValStrnEndGInt ÅPDefGrup4ÆnameStrnCaption EncoInt PValStrn6 EndGInt Æ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 hEndGInt ÑPDefGrup(ÒnameStrnScope PValStrn0 EndGInt ÒPDefGrup<ÓnameStrnSuper EncoInt PValStrn PushButton EndGInt ÓPDefGrup$ÔnameStrnIndex PValInt €EndGInt ÔPDefGrup8ÕnameStrnNameEncoInt PValStrn PushButton7 EndGInt ÕCBixInt iLckInt EndGInt ·PadnPadnd****************************************************************************************************BlokpMnu0‡wÿ 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 ØPadnPadn¬****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupdáOTabGrup4âContInt eSptInt ÈplSCInt plCDInt EndGInt âOTabGrupdãContInt )Ê¿ÿLSptInt ŠRSptInt ßScrXInt ScrYInt lstHInt AlstVInt CCtrlInt EndGInt ãOTabGrup@äContInt )Ê¿ÿAltEInt LSptInt ÁEEstInt ciIDInt EndGInt äLsLcStrnWindow1.CalculateSolution rEdtRectM+{EndGInt áPadnPadnX************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!