RbBFBlokProj¨yåP¿EshPSIVStrn5.5OPSpStrnUntitledACnmStrnAChpStrnACsvStrnlocalhost:7325Ver1Strn1Ver2Strn0Ver3Strn0RelsStrn0NnRlStrn0RegnStrn0SVerStrnLVerStrnIVerStrnDVewInt Á[SprTpInt DLanInt CLanInt DEncInt BflgInt BCXFInt IconGrupêEndGInt êCPalGrupÐëflagInt elemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿelemInt ÿÿÿÿEndGInt ëMacCStrn????BMacStrnMy Application (Classic)BCarStrnMy ApplicationBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy ApplicationBWinStrnMy Application.exeBMDIInt BL86Strn MyApplicationrEdtRectÈ2ȾfTypGrupLìnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt ìPadnPadn8********************************************************BlokpVewÁ[S(¨yåP¿EshNameStrnWindow1ContInt rEdtRect0X!•eSptInt ÿÿübPGpGrupPíbPElGrup4îscKyInt õãÑrEdtRect0X!•eSptInt ÿÿüEndGInt îEndGInt ílstHInt —lstVInt †PDefGrup4ïnameStrnNamePValStrnWindow1EncoInt EndGInt ïPDefGrup(ðnameStrnFramePValStrn0EndGInt ðPDefGrup0ñnameStrn CompositePValStrnFalseEndGInt ñPDefGrup0ònameStrn HasBackColorPValStrnFalseEndGInt òPDefGrup0ónameStrn BackColorPValStrn16777215EndGInt óPDefGrup(ônameStrnBackdropPValStrn0EndGInt ôPDefGrup8õnameStrnTitlePValStrnUntitledEncoInt EndGInt õPDefGrup(önameStrnVisiblePValStrnTrueEndGInt öPDefGrup0÷nameStrn FullScreenPValStrnFalseEndGInt ÷PDefGrup0ønameStrnMenuBarVisiblePValStrnTrueEndGInt øPDefGrup(ùnameStrnCloseBoxPValStrnTrueEndGInt ùPDefGrup,únameStrnGrowIconPValStrnFalseEndGInt úPDefGrup0ûnameStrn LiveResizePValStrnFalseEndGInt ûPDefGrup,ünameStrnZoomIconPValStrnFalseEndGInt üPDefGrup(ýnameStrn BalloonHelpPValStrnEndGInt ýPDefGrup,þnameStrn MacProcIDPValStrn0EndGInt þPDefGrup0ÿnameStrnMenuBarPValStrn -1050996910EndGInt ÿPDefGrup,nameStrn PlacementPValStrn0EndGInt PDefGrup(nameStrnWidthPValStrn300EndGInt PDefGrup(nameStrnHeightPValStrn300EndGInt PDefGrup(nameStrnMinWidthPValStrn64EndGInt PDefGrup,nameStrn MinHeightPValStrn64EndGInt PDefGrup,nameStrnMaxWidthPValStrn32000EndGInt PDefGrup0nameStrn MaxHeightPValStrn32000EndGInt FDefGrupÜNameStrnWindow1SizeInt ¨SuprStrnWindowbNtrInt PropGrupÌEncoInt declStrnXcurrent as doubleflagInt sorcGrupx stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnXcurrent as doublentlnStrnntlnStrnEndGInt  EndGInt PropGrupÌ EncoInt declStrnYcurrent as doubleflagInt sorcGrupx stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnYcurrent as doublentlnStrnntlnStrnEndGInt  EndGInt  PropGrupÌ EncoInt declStrnClickedX as integerflagInt sorcGrupx stsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnClickedX as integerntlnStrnntlnStrnEndGInt  EndGInt  PropGrupÌEncoInt declStrnClickedY as integerflagInt sorcGrupxstsrInt stscInt ndsrInt ndscInt EncoInt ntlnStrnClickedY as integerntlnStrnntlnStrnEndGInt EndGInt MethGrupðEncoInt nameStrnMoveMeparmStrnIx1 as double, y1 as double, x2 as integer, y2 as integer, rate as integerrsltStrnflagInt sorcGrupDstsrInt stscInt ndsrInt ndscInt EncoInt srclStrnUSub MoveMe(x1 as double, y1 as double, x2 as integer, y2 as integer, rate as integer)srclStrndim xhat, yhat as doublesrclStrndim distance as doublesrclStrnsrclStrn,distance=sqrt( abs(x2-x1)^2 + abs(y2-y2)^2 )srclStrnsrclStrn&if distance < rate then //close enoughsrclStrnXcurrent = ClickedXsrclStrnYcurrent = ClickedYsrclStrn timer1.mode=0srclStrntimer1.enabled=falsesrclStrnreturnsrclStrnend ifsrclStrnsrclStrnxhat = (x2-x1)/distancesrclStrnyhat = (y2-y1)/distancesrclStrnsrclStrnsrclStrnXcurrent = Xcurrent + xhat*ratesrclStrnYcurrent = Ycurrent + yhat*ratesrclStrnsrclStrn>canvas1.graphics.drawline(Xcurrent,Ycurrent,Xcurrent,Ycurrent)srclStrnEnd SubEndGInt EndGInt EndGInt CBhvGrupÀNameStrnSizeInt tSuprStrnCanvasbNtrInt HInsGruplEncoInt nameStrn MouseDownsorcGrup,stsrInt stscInt ndsrInt ndscInt EncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As BooleansrclStrn clickedX=XsrclStrn clickedY=YsrclStrn timer1.Mode=2srclStrntimer1.Period=100srclStrntimer1.enabled=truesrclStrn End FunctionEndGInt EndGInt EndGInt CBhvGrup\NameStrnSizeInt €SuprStrn PushButtonbNtrInt HInsGrupEncoInt nameStrnActionsorcGrupÈstsrInt stscInt ndsrInt ndscInt EncoInt srclStrn Sub Action()srclStrncanvas1.graphics.drawline(xcurrent,ycurrent,xcurrent,ycurrent)srclStrnEnd SubEndGInt EndGInt EndGInt CBhvGrup<NameStrnSizeInt 8SuprStrnTimerbNtrInt HInsGrupèEncoInt nameStrnActionsorcGrup¬stsrInt stscInt 1ndsrInt ndscInt 1EncoInt srclStrn Sub Action()srclStrn1MoveMe(XCurrent, YCurrent, clickedX, clickedY, 5)srclStrnEnd SubEndGInt EndGInt EndGInt CtrlGrupcclsStrnCanvasnameStrnCanvasPDefGrup4nameStrnNamePValStrnCanvas1EncoInt EndGInt PDefGrup0nameStrnIndexPValStrn -2147483648EndGInt PDefGrup0nameStrn TabPanelIndexPValStrn0EndGInt PDefGrup(nameStrnVisiblePValStrnTrueEndGInt PDefGrup$ nameStrnLeftPValStrn20EndGInt  PDefGrup$!nameStrnTopPValStrn14EndGInt !PDefGrup("nameStrnWidthPValStrn260EndGInt "PDefGrup(#nameStrnHeightPValStrn249EndGInt #PDefGrup,$nameStrn InitialParentPValStrnEndGInt $PDefGrup$%nameStrnHelpTagPValStrnEndGInt %PDefGrup(&nameStrn BalloonHelpPValStrnEndGInt &PDefGrup0'nameStrnDisabledBalloonHelpPValStrnEndGInt 'PDefGrup0(nameStrnAutoDeactivatePValStrnTrueEndGInt (PDefGrup,)nameStrnLockLeftPValStrnFalseEndGInt )PDefGrup,*nameStrnLockTopPValStrnFalseEndGInt *PDefGrup0+nameStrn LockRightPValStrnFalseEndGInt +PDefGrup0,nameStrn LockBottomPValStrnFalseEndGInt ,PDefGrup(-nameStrnBackdropPValStrn0EndGInt -PDefGrup(.nameStrnEnabledPValStrnTrueEndGInt .PDefGrup,/nameStrn UseFocusRingPValStrnTrueEndGInt /PDefGrup00nameStrn AcceptFocusPValStrnFalseEndGInt 0PDefGrup01nameStrn AcceptTabsPValStrnFalseEndGInt 1CBixInt EndGInt CtrlGrup42cclsStrn PushButtonnameStrn PushButtonPDefGrup83nameStrnNamePValStrn PushButton1EncoInt EndGInt 3PDefGrup04nameStrnIndexPValStrn -2147483648EndGInt 4PDefGrup05nameStrn TabPanelIndexPValStrn0EndGInt 5PDefGrup(6nameStrnVisiblePValStrnTrueEndGInt 6PDefGrup$7nameStrnLeftPValStrn116EndGInt 7PDefGrup$8nameStrnTopPValStrn275EndGInt 8PDefGrup(9nameStrnWidthPValStrn69EndGInt 9PDefGrup(:nameStrnHeightPValStrn22EndGInt :PDefGrup,;nameStrn InitialParentPValStrnEndGInt ;PDefGrup$nameStrnDisabledBalloonHelpPValStrnEndGInt >PDefGrup0?nameStrnAutoDeactivatePValStrnTrueEndGInt ?PDefGrup,@nameStrnLockLeftPValStrnFalseEndGInt @PDefGrup,AnameStrnLockTopPValStrnFalseEndGInt APDefGrup0BnameStrn LockRightPValStrnFalseEndGInt BPDefGrup0CnameStrn LockBottomPValStrnFalseEndGInt CPDefGrup8DnameStrnTextFontPValStrnSystemEncoInt EndGInt DPDefGrup(EnameStrnTextSizePValStrn12EndGInt EPDefGrup(FnameStrnBoldPValStrnFalseEndGInt FPDefGrup,GnameStrnItalicPValStrnFalseEndGInt GPDefGrup0HnameStrn UnderlinePValStrnFalseEndGInt HPDefGrup8InameStrnCaptionPValStrnrestartEncoInt EndGInt IPDefGrup,JnameStrnDefaultPValStrnFalseEndGInt JPDefGrup,KnameStrnCancelPValStrnFalseEndGInt KPDefGrup(LnameStrnEnabledPValStrnTrueEndGInt LCBixInt EndGInt 2CtrlGrupMcclsStrnTimernameStrnTimerPDefGrup4NnameStrnNamePValStrnTimer1EncoInt EndGInt NPDefGrup0OnameStrnIndexPValStrn -2147483648EndGInt OPDefGrup0PnameStrn TabPanelIndexPValStrn0EndGInt PPDefGrup$QnameStrnLeftPValStrn248EndGInt QPDefGrup$RnameStrnTopPValStrn265EndGInt RPDefGrup$SnameStrnModePValStrn0EndGInt SPDefGrup(TnameStrnPeriodPValStrn100EndGInt TCBixInt EndGInt MPadnPadn|****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnuÁ[R¨yåP¿EshNameStrnMenuBar1ContInt rEdtRectdd,ÈMItmGrup˜UspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupÀVspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt VEndGInt UMItmGrup˜WspmuInt nameStrnFileMenutextStrn&FileindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupØXspmuInt nameStrnFileQuittextStrnE&xitindxInt €scutStrnQbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrn QuitMenuItembNtrInt EndGInt XMItmGrupÀYspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt YEndGInt WMItmGrup ZspmuInt nameStrnEditMenutextStrn&EditindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt MItmGrupÔ[spmuInt nameStrnEditUndotextStrn&UndoindxInt €scutStrnZbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt [MItmGrupÄ\spmuInt nameStrntextStrn-indxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt \MItmGrupÐ]spmuInt nameStrnEditCuttextStrnCu&tindxInt €scutStrnXbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt ]MItmGrupÔ^spmuInt nameStrnEditCopytextStrn&CopyindxInt €scutStrnCbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt ^MItmGrupØ_spmuInt nameStrn EditPastetextStrn&PasteindxInt €scutStrnVbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt _MItmGrupÔ`spmuInt nameStrn EditCleartextStrnClearindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt `MItmGrupÀaspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt aEndGInt ZMItmGrupÀbspmuInt nameStrntextStrnindxInt €scutStrnbhlpStrndhlpStrnstylInt EncoInt flagInt maEnInt NameStrnSizeInt LSuprStrnMenuItembNtrInt EndGInt bPadnPadn,********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjÁ[Q¨yåP¿EshNameStrnAppContInt rEdtRect_K!•eSptInt ÿÿübPGpGrupPcbPElGrup4dscKyInt õãÑrEdtRect_K!•eSptInt ÿÿüEndGInt dEndGInt cbClsInt NameStrnAppSizeInt 4SuprStrn ApplicationbNtrInt IntrStrnbApOInt PDefGrup0enameStrnMenuBarPValStrn -1050996910EndGInt ePadnPadn€****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!