RbBFBlokProjPSIVStrn2009.03 ACnmStrnAChpStrnACsvStrnVer1Strn0 Ver2Strn1 Ver3Strn0 RelsStrn0 NnRlStrn2 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt mprTpInt DLanInt CLanInt DEncInt BflgInt AIconGrup$EndGInt $MacCStrnBCarStrnMy Application BCMOStrnCalcXP XBunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrn CalcXP.exe BMDIInt WcmNStrn The Seven WpNmStrnThe Seven XP Calculator WiNmStrnBL86StrnxCalcXP DgCLStrnPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjT_NameStrnCalcXP ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$%nameStrnMenuBar PValInt /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****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewmNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup/nameStrnOpenCompStrnVsblInt sorcGrup0EncoInt srclStrn Sub Open() srclStrntxtTotalXP.Text = "1" srclStrntxtIndXP.Text = "1" srclStrnEnd Sub EndGInt 0EndGInt /HInsGrup1nameStrnClose CompStrnVsblInt sorcGrupL2EncoInt srclStrn Sub Close() srclStrnQuitsrclStrnEnd Sub EndGInt 2EndGInt 1PDefGrup<3nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt 3PDefGrup04nameStrnMenuBar PValStrn 495988735 EndGInt 4PDefGrup(5nameStrn MacProcID PValInt EndGInt 5PDefGrup06nameStrnMinimizeButton PValStrnTrueEndGInt 6PDefGrup47nameStrnMaximizeButton PValStrnFalse EndGInt 7PDefGrup08nameStrn LiveResize PValStrnFalse EndGInt 8PDefGrup09nameStrn Resizeable PValStrnFalse EndGInt 9PDefGrup,:nameStrn CloseButton PValStrnTrueEndGInt :PDefGrup0;nameStrnMenuBarVisible PValStrnTrueEndGInt ;PDefGrup0nameStrnTitle EncoInt PValStrn XPCalc 0.0.1EndGInt >PDefGrup$?nameStrnBackdropPValStrnEndGInt ?PDefGrup(@nameStrn BackColor PValInt EndGInt @PDefGrup0AnameStrn HasBackColorPValStrnFalse EndGInt APDefGrup0BnameStrn Composite PValStrnFalse EndGInt BPDefGrup$CnameStrnFrame PValInt EndGInt CPDefGrup(DnameStrn MaxHeight PValInt }EndGInt DPDefGrup$EnameStrnMaxWidthPValInt }EndGInt EPDefGrup(FnameStrn MinHeight PValInt @EndGInt FPDefGrup$GnameStrnMinWidthPValInt @EndGInt GPDefGrup$HnameStrnHeight PValInt EndGInt HPDefGrup$InameStrnWidth PValInt EndGInt IPDefGrup(JnameStrn Placement PValInt EndGInt JVwBhGrupKVwPrGrupDLNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt LVwPrGrupLMNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt MVwPrGrupHNNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt NVwPrGrup0ONameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupPdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt PEndGInt OVwPrGruppQNameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt QVwPrGruppRNameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt RVwPrGruppSNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt SVwPrGruptTNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt TVwPrGruptUNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt UVwPrGrupxVNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VVwPrGrup WNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppXdefnStrn 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 XEndGInt WVwPrGrup|YNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt YVwPrGrup|ZNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ZVwPrGrup|[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 `VwPrGrupxaNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt aVwPrGrupxbNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt bVwPrGrupxcNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt cVwPrGrupdNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt dVwPrGrup|eNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt eVwPrGrupxfNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt fVwPrGrupxgNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt gVwPrGrup|hNameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt hEndGInt KCBhvGrupiSuprStrnGroupBoxEndGInt iCBhvGrupjSuprStrn TextField HInsGrupknameStrnGotFocusCompStrnVsblInt sorcGrup`lEncoInt srclStrnSub GotFocus() srclStrnInputMode = "Party" srclStrnEnd Sub EndGInt lEndGInt kHInsGrupmnameStrn TextChange CompStrnVsblInt sorcGruplnEncoInt srclStrnSub TextChange()srclStrnUseFunc = CalcXP() srclStrnsrclStrnEnd Sub EndGInt nEndGInt mEndGInt jCBhvGrupoSuprStrn StaticText EndGInt oCBhvGruppSuprStrn StaticText EndGInt pCBhvGrupqSuprStrn TextField HInsGruprnameStrnKeyDown CompStrnVsblInt sorcGrupsEncoInt srclStrn*Function KeyDown(Key As String) As Boolean srclStrnInputMode = "Member"srclStrn End FunctionEndGInt sEndGInt rHInsGruptnameStrn SelChange CompStrnVsblInt sorcGrupluEncoInt srclStrnSub SelChange() srclStrnUseFunc = CalcXP() srclStrnsrclStrnEnd Sub EndGInt uEndGInt tEndGInt qCBhvGrupvSuprStrnGroupBoxEndGInt vCBhvGrupwSuprStrnGroupBoxEndGInt wCBhvGrupxSuprStrnListbox HInsGruplynameStrn DoubleClick CompStrnVsblInt sorcGrup zEncoInt srclStrnSub DoubleClick() srclStrn?TotalTLvl = TotalTLvl - Val(lbParty.Cell(lbParty.ListIndex, 1)) srclStrn$lbParty.RemoveRow(lbParty.ListIndex)srclStrnnumParty = lbParty.ListCountsrclStrnUseFunc = CalcXP() srclStrnsrclStrnsrclStrnEnd Sub EndGInt zEndGInt yEndGInt xCBhvGrup{SuprStrn StaticText EndGInt {CBhvGrup|SuprStrn TextField EndGInt |CBhvGrup}SuprStrn StaticText EndGInt }CBhvGrup~SuprStrn TextField EndGInt ~CBhvGrupSuprStrn PushButton HInsGrupnameStrnAction CompStrnVsblInt sorcGrupEncoInt srclStrn Sub Action()srclStrnIf txtName.Text <> "" then srclStrnlbParty.AddRow("Perkele") srclStrn(lbParty.ListIndex = lbParty.ListCount -1srclStrn1lbParty.Cell(lbParty.ListIndex, 0) = txtName.Text srclStrntxtName.Text = "No Name"srclStrnEnd If srclStrnsrclStrnif txtTLvl.Text <> "" then srclStrn1lbParty.Cell(lbParty.ListIndex, 1) = txtTLvl.Text srclStrn)TotalTLvl = TotalTLvl + Val(txtTLvl.Text) srclStrntxtTLvl.Text = "0" srclStrnEnd If srclStrnsrclStrnnumParty = lbParty.ListCountsrclStrnUseFunc = CalcXP() srclStrnsrclStrnsrclStrnEnd Sub EndGInt EndGInt EndGInt CtrlGrupcclsStrnGroupBoxnameStrnGroupBoxPDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup$nameStrnBoldPValStrnTrueEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrupDnameStrnCaption EncoInt PValStrnAdventure ExperienceEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt XEndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnGroupBoxEndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn GroupBox1 EndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn TextField nameStrn TextField PDefGrupDnameStrn InitialParent EncoInt PValStrn GroupBox1 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 PDefGrup0nameStrnMaskEncoInt PValStrn### EndGInt PDefGrup,nameStrnTextEncoInt PValStrnEndGInt PDefGrup0nameStrnCueText EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica 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 PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt 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 txtTotalXP EndGInt CBixInt iLckInt EndGInt CtrlGrup0cclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup,nameStrnItalic PValStrnFalse EndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica 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 PValStrnTotal ExperienceEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt 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 CtrlGrup0cclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn GroupBox1 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup,nameStrnItalic PValStrnFalse EndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica 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 Individual XP EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt }EndGInt PDefGrup nameStrnTop PValInt FEndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn StaticText2 EndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn TextField nameStrn TextField PDefGrupDnameStrn InitialParent EncoInt PValStrn GroupBox1 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  PDefGrup0 nameStrnMaskEncoInt PValStrn### EndGInt  PDefGrup, nameStrnTextEncoInt PValStrnEndGInt  PDefGrup0 nameStrnCueText EncoInt PValStrnEndGInt  PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica 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 PValStrnEndGInt "PDefGrup$#nameStrnLockLeftPValStrnEndGInt #PDefGrup$$nameStrnHeight PValInt EndGInt $PDefGrup$%nameStrnWidth PValInt PEndGInt %PDefGrup &nameStrnTop PValInt FEndGInt &PDefGrup 'nameStrnLeftPValInt EndGInt 'PDefGrup((nameStrnScope PValStrn0 EndGInt (PDefGrup<)nameStrnSuper EncoInt PValStrn TextField EndGInt )PDefGrup$*nameStrnIndex PValInt EndGInt *PDefGrup4+nameStrnNameEncoInt PValStrntxtIndXPEndGInt +CBixInt iLckInt EndGInt CtrlGrup,cclsStrnGroupBoxnameStrnGroupBoxPDefGrup8-nameStrn InitialParent EncoInt PValStrnEndGInt -PDefGrup(.nameStrn Underline PValStrnEndGInt .PDefGrup$/nameStrnItalic PValStrnEndGInt /PDefGrup$0nameStrnBoldPValStrnTrueEndGInt 0PDefGrup$1nameStrnTextSizePValInt EndGInt 1PDefGrup<2nameStrnTextFontEncoInt PValStrn Helvetica EndGInt 2PDefGrup03nameStrnAutoDeactivate PValStrnTrueEndGInt 3PDefGrup04nameStrnHelpTag EncoInt PValStrnEndGInt 4PDefGrup(5nameStrnVisible PValStrnTrueEndGInt 5PDefGrup,6nameStrnEnabled PValStrnFalse EndGInt 6PDefGrup87nameStrnCaption EncoInt PValStrnOptions EndGInt 7PDefGrup$8nameStrnTabIndexPValInt EndGInt 8PDefGrup,9nameStrn TabPanelIndex PValInt EndGInt 9PDefGrup(:nameStrn LockBottom PValStrnEndGInt :PDefGrup(;nameStrn LockRight PValStrnEndGInt ;PDefGrup$nameStrnHeight PValInt xEndGInt >PDefGrup$?nameStrnWidth PValInt EndGInt ?PDefGrup @nameStrnTop PValInt rEndGInt @PDefGrup AnameStrnLeftPValInt EndGInt APDefGrup(BnameStrnScope PValStrn0 EndGInt BPDefGrup8CnameStrnSuper EncoInt PValStrnGroupBoxEndGInt CPDefGrup$DnameStrnIndex PValInt EndGInt DPDefGrup8EnameStrnNameEncoInt PValStrn GroupBox2 EndGInt ECBixInt iLckInt EndGInt ,CtrlGrupFcclsStrnGroupBoxnameStrnGroupBoxPDefGrup8GnameStrn InitialParent EncoInt PValStrnEndGInt GPDefGrup(HnameStrn Underline PValStrnEndGInt HPDefGrup$InameStrnItalic PValStrnEndGInt IPDefGrup$JnameStrnBoldPValStrnTrueEndGInt JPDefGrup$KnameStrnTextSizePValInt EndGInt KPDefGrup<LnameStrnTextFontEncoInt PValStrn Helvetica EndGInt LPDefGrup0MnameStrnAutoDeactivate PValStrnTrueEndGInt MPDefGrup0NnameStrnHelpTag EncoInt PValStrnEndGInt NPDefGrup(OnameStrnVisible PValStrnTrueEndGInt OPDefGrup(PnameStrnEnabled PValStrnTrueEndGInt PPDefGrup8QnameStrnCaption EncoInt PValStrnParty EndGInt QPDefGrup$RnameStrnTabIndexPValInt EndGInt RPDefGrup,SnameStrn TabPanelIndex PValInt EndGInt SPDefGrup(TnameStrn LockBottom PValStrnEndGInt TPDefGrup(UnameStrn LockRight PValStrnEndGInt UPDefGrup$VnameStrnLockTop PValStrnEndGInt VPDefGrup$WnameStrnLockLeftPValStrnEndGInt WPDefGrup$XnameStrnHeight PValInt EndGInt XPDefGrup$YnameStrnWidth PValInt EndGInt YPDefGrup ZnameStrnTop PValInt EndGInt ZPDefGrup [nameStrnLeftPValInt EndGInt [PDefGrup(\nameStrnScope PValStrn0 EndGInt \PDefGrup8]nameStrnSuper EncoInt PValStrnGroupBoxEndGInt ]PDefGrup$^nameStrnIndex PValInt EndGInt ^PDefGrup8_nameStrnNameEncoInt PValStrn GroupBox3 EndGInt _CBixInt iLckInt EndGInt FCtrlGrup `cclsStrnListbox nameStrnListbox PDefGrupDanameStrn InitialParent EncoInt PValStrn GroupBox3 EndGInt aPDefGrup4bnameStrn DataField EncoInt PValStrnEndGInt bPDefGrup4cnameStrn DataSource EncoInt PValStrnEndGInt cPDefGrup4dnameStrnAutoHideScrollbars PValStrnTrueEndGInt dPDefGrup,enameStrnColumnsResizablePValStrnEndGInt ePDefGrup,fnameStrn SelectionType PValInt EndGInt fPDefGrup0gnameStrnRequiresSelection PValStrnEndGInt gPDefGrup0hnameStrnEnableDragReorder PValStrnEndGInt hPDefGrup(inameStrn EnableDrag PValStrnEndGInt iPDefGrup(jnameStrn HierarchicalPValStrnEndGInt jPDefGrup(knameStrn Underline PValStrnEndGInt kPDefGrup$lnameStrnItalic PValStrnEndGInt lPDefGrup mnameStrnBoldPValStrnEndGInt mPDefGrup$nnameStrnTextSizePValInt EndGInt nPDefGrup<onameStrnTextFontEncoInt PValStrn Helvetica EndGInt oPDefGrup(pnameStrn _ScrollWidthPValInt EndGInt pPDefGrup,qnameStrnDefaultRowHeightPValInt EndGInt qPDefGrup0rnameStrnGridLinesVertical PValInt EndGInt rPDefGrup0snameStrnGridLinesHorizontal PValInt EndGInt sPDefGrup4tnameStrnScrollBarVertical PValStrnTrueEndGInt tPDefGrup0unameStrnScrollbarHorizontal PValStrnEndGInt uPDefGrup(vnameStrn HeadingIndexPValInt EndGInt vPDefGrup@wnameStrn InitialValueEncoInt PValStrn Name TLvl XPEndGInt wPDefGrup,xnameStrn UseFocusRingPValStrnTrueEndGInt xPDefGrup,ynameStrn HasHeading PValStrnTrueEndGInt yPDefGrup@znameStrn ColumnWidthsEncoInt PValStrn 150 47 50 EndGInt zPDefGrup({nameStrn ColumnCount PValInt EndGInt {PDefGrup(|nameStrnBorder PValStrnTrueEndGInt |PDefGrup(}nameStrnEnabled PValStrnTrueEndGInt }PDefGrup0~nameStrnAutoDeactivate PValStrnTrueEndGInt ~PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnTabStop PValStrnTrueEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt {EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt &EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnListbox EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnlbParty EndGInt CBixInt iLckInt EndGInt `CtrlGrup,cclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn GroupBox3 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup,nameStrnItalic PValStrnFalse EndGInt PDefGrup(nameStrnBoldPValStrnFalse EndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica 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 PDefGrup0nameStrnTextEncoInt PValStrnNameEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt 0EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn StaticText4 EndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn TextField nameStrn TextField PDefGrupDnameStrn InitialParent EncoInt PValStrn GroupBox3 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$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica 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 PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt 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 PDefGrup4nameStrnNameEncoInt PValStrntxtName EndGInt CBixInt iLckInt EndGInt CtrlGrup,cclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn GroupBox3 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup,nameStrnItalic PValStrnFalse EndGInt PDefGrup(nameStrnBoldPValStrnFalse EndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica 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 PDefGrup0nameStrnTextEncoInt PValStrnTLvlEndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt 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 StaticText3 EndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn TextField nameStrn TextField PDefGrupDnameStrn InitialParent EncoInt PValStrn GroupBox3 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 PDefGrup0nameStrnMaskEncoInt PValStrn## EndGInt PDefGrup,nameStrnTextEncoInt PValStrnEndGInt PDefGrup0nameStrnCueText EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn Helvetica EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag 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 PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt 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 PDefGrup4nameStrnNameEncoInt PValStrntxtTLvl EndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn PushButton nameStrn PushButton PDefGrupD!nameStrn InitialParent EncoInt PValStrn GroupBox3 EndGInt !PDefGrup("nameStrn Underline PValStrnEndGInt "PDefGrup$#nameStrnItalic PValStrnEndGInt #PDefGrup$$nameStrnBoldPValStrnTrueEndGInt $PDefGrup$%nameStrnTextSizePValInt EndGInt %PDefGrup<&nameStrnTextFontEncoInt PValStrn Helvetica EndGInt &PDefGrup0'nameStrnAutoDeactivate PValStrnTrueEndGInt 'PDefGrup0(nameStrnHelpTag EncoInt PValStrnEndGInt (PDefGrup()nameStrnVisible PValStrnTrueEndGInt )PDefGrup(*nameStrnEnabled PValStrnTrueEndGInt *PDefGrup$+nameStrnCancel PValStrnEndGInt +PDefGrup$,nameStrnDefault PValStrnEndGInt ,PDefGrup4-nameStrnCaption EncoInt PValStrnAdd EndGInt -PDefGrup(.nameStrnTabStop PValStrnTrueEndGInt .PDefGrup$/nameStrnTabIndexPValInt EndGInt /PDefGrup,0nameStrn TabPanelIndex PValInt EndGInt 0PDefGrup(1nameStrn LockBottom PValStrnEndGInt 1PDefGrup(2nameStrn LockRight PValStrnEndGInt 2PDefGrup$3nameStrnLockTop PValStrnEndGInt 3PDefGrup$4nameStrnLockLeftPValStrnEndGInt 4PDefGrup$5nameStrnHeight PValInt EndGInt 5PDefGrup$6nameStrnWidth PValInt kEndGInt 6PDefGrup 7nameStrnTop PValInt EndGInt 7PDefGrup 8nameStrnLeftPValInt EndGInt 8PDefGrup(9nameStrnScope PValStrn0 EndGInt 9PDefGrup<:nameStrnSuper EncoInt PValStrn PushButton EndGInt :PDefGrup$;nameStrnIndex PValInt EndGInt ;PDefGrup4spmuInt 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 @MItmGrupAspmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt AMItmGrupBspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt BMItmGrupCspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt CMItmGrupDspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt DMItmGrupEspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EMItmGrupFspmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt FMItmGrupGspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt GEndGInt ?PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj|NameStrn modXPCalc ContInt paswStrnbClsInt flagInt bNtrInt CompStrnMethGrupHnameStrnCalcXP CompStrnVsblInt sorcGrup$IEncoInt srclStrnFunction CalcXP() As BooleansrclStrn)Dim l, r, TLvl, TotalXP, ResXP As Integer srclStrn)Dim ThreatXP, MemberXP, PartyXP As Double srclStrnDim s As String srclStrn TotalXP = 0 srclStrnsrclStrnIf numParty > 0 thensrclStrnATLvl = TotalTLvl / numPartysrclStrnSelect Case InputMode srclStrn Case "Party"srclStrn&PartyXP = Val(Window1.txtTotalXP.Text) srclStrn*For l = 0 to Window1.lbParty.ListCount - 1 srclStrn%TLvl = Val(Window1.lbParty.Cell(l,1)) srclStrnMemberXP = (PartyXP / numParty) srclStrn$ThreatXP = MemberXP * (ATLvl / TLvl)srclStrn!If ThreatXP < 1 then ThreatXP = 1 srclStrnResXP = ThreatXPsrclStrn&Window1.lbParty.Cell(l,2) = str(ResXP) srclStrnTotalXP = TotalXP + ResXP srclStrn'Window1.StaticText5.Text = "MemberXP: " + str(MemberXP) + chr(13) + "PartyXP: " + str(PartyXP) + chr(13) + "TotalLvl: " + str(TotalTLvl) + chr(13) + "TLvl: " + str(Tlvl) + chr(13) + "ThreatXP: " + str(ThreatXP) srclStrnNextsrclStrn/Window1.txtIndXP.Text = str(TotalXP / numParty) srclStrn Case "Member" srclStrn%MemberXP = Val(Window1.txtIndXP.Text) srclStrn*For l = 0 to Window1.lbParty.ListCount - 1 srclStrn%TLvl = Val(Window1.lbParty.Cell(l,1)) srclStrn$ThreatXP = MemberXP * (ATLvl / TLvl)srclStrn!If ThreatXP < 1 then ThreatXP = 1 srclStrn0'if ThreatXP > MemberXP then ThreatXP = MemberXPsrclStrnResXP = ThreatXPsrclStrn&Window1.lbParty.Cell(l,2) = str(ResXP) srclStrnTotalXP = TotalXP + ResXP srclStrn'Window1.StaticText5.Text = "MemberXP: " + str(MemberXP) + chr(13) + "PartyXP: " + str(PartyXP) + chr(13) + "TotalLvl: " + str(TotalTLvl) + chr(13) + "TLvl: " + str(Tlvl) + chr(13) + "ThreatXP: " + str(ThreatXP) srclStrnNextsrclStrn&Window1.txtTotalXP.Text = str(TotalXP) srclStrn Case Else srclStrnWindow1.txtIndXP.Text = "Error" srclStrn!Window1.txtTotalXP.Text = "Error" srclStrn End Select srclStrnEnd If srclStrnsrclStrn Return True srclStrnsrclStrnsrclStrn End FunctionEndGInt IEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnBoolean EndGInt HPropGrupJnameStrnnumPartyCompStrnVsblInt sorcGrup<KEncoInt srclStrnnumParty As Integer srclStrnEndGInt KEncoInt declStrnnumParty As Integer = 0 flagInt shrdInt EndGInt JPropGrupLnameStrn InputMode CompStrnVsblInt sorcGrup<MEncoInt srclStrnInputMode As String srclStrnEndGInt MEncoInt declStrnInputMode As String = "Party" flagInt shrdInt EndGInt LPropGrupNnameStrnUseFunc CompStrnVsblInt sorcGrup<OEncoInt srclStrnUseFunc As Boolean srclStrnEndGInt OEncoInt declStrnUseFunc As Boolean = False flagInt shrdInt EndGInt NPropGrupPnameStrn TotalTLvl CompStrnVsblInt sorcGrup<QEncoInt srclStrnTotalTLvl As IntegersrclStrnEndGInt QEncoInt declStrnTotalTLvl As Integer = 0flagInt shrdInt EndGInt PPropGrupRnameStrnATLvl CompStrnVsblInt sorcGrup8SEncoInt srclStrnATLvl As IntegersrclStrnEndGInt SEncoInt declStrnATLvl As Integer = 0flagInt shrdInt EndGInt RVwBhGrup0TVwPrGrupDUNameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt UVwPrGrup`VNameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt VVwPrGrupHWNameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt WVwPrGrupXXNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt XVwPrGrupXYNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt YVwPrGrupPZNameStrnnumPartyPrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt ZVwPrGrupX[NameStrn InputMode PrGpStrnBehaviorPValStrnParty typeStrnString EndGInt [VwPrGrupT\NameStrnUseFunc PrGpStrnBehaviorPValStrnFalse typeStrnBoolean EndGInt \VwPrGrupT]NameStrn TotalTLvl PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt ]VwPrGrupP^NameStrnATLvl PrGpStrnBehaviorPValStrn0 typeStrnInteger EndGInt ^EndGInt TPadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup_OTabGrup4`ContInt eSptInt plSCInt plCDInt EndGInt `OTabGrupXaContInt mLSptInt RSptInt ScrXInt ScrYInt lstHInt ulstVInt EndGInt aOTabGrup@bContInt mAltEInt LSptInt EEstInt ciIDInt EndGInt bOTabGrup@cContInt |AltEInt LSptInt EEstInt ciIDInt EndGInt cLsLcStrnmodXPCalc.CalcXPrEdtRectIUEndGInt _PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!