REVO2700Compass@4`@ 5  ULucida Grande ULucida Grande WLucida GrandecRevStandaloneSettings2 ios,profile$EA4E6E7A-3360-483F-9C61-EFAF2DF814E1ios,device capabilitiesscriptLibrariesInternet Geometry PrintingMacOSXfalse OSX,name Untitled 1UNIX,fileSelectortrueWindowsfalseios,include dbsqlitefalseWindows,LegalCopyright#2011 All rights reserved worldwideUNIX,pageSetuptrueOSX,documentTypeLinuxfalseiostrueWebfalse inclusionssearchWindows,documenticonFilej/Applications/LiveCode 4.6.3.app/Contents/Tools/Runtime/Windows/x86-32/Support/Sample Icons/genericdoc.ico answerDialogtrueOSX,documentExtensionWindows,FileDescriptionUntitled 1 1.0.0.0 for WindowsOSX,longVersionUntitled 1 1.0.0.0ios,include revpdfprinterfalseUNIX,printerChoosertrueOSX,copyright#2011 All rights reserved worldwideios,include revxmlfalseios,include revzipfalseOSX,identifiercom..untitled1name Untitled 1OSX,shortVersion1.0.0.0Windows,fileversion11Windows,fileversion20Windows,productversion11ios,include dbmysqlfalseWindows,fileversion30Windows,productversion20Windows,fileversion40Windows,productversion30cursorsfalse errorDialogfalseWindows,productversion40 OSX,infoUntitled 1 Version 1.0.0.0MacOSX PowerPC-32falseios,display namecompass askDialogtrueWindows,iconFilej/Applications/LiveCode 4.6.3.app/Contents/Tools/Runtime/Windows/x86-32/Support/Sample Icons/genericapp.icoOSX,signature????defaultBuildFolder/Users/johnsmith/DesktopWindows,ProductName Untitled 1UNIX,colorChoosertrueMacOSX x86-32falseWindows,companyname cREVGeneralscripteditorvscroll0breakpointconditions breakpointsbreakpointstates Pon headingChanged local tHeadingContent, tHeadingString, tKey put iphoneCurrentHeading() into tHeadingContent repeat for each key tKey in tHeadingContent put tKey && tHeadingContent[tKey] & return after tHeadingString end repeat put tHeadingString into field "headingField" end headingChanged on locationChanged local tLocationContent, tLocationString, tKey put iphoneCurrentLocation() into tLocationContent repeat for each key tKey in tLocationContent put tKey && tLocationContent[tKey] & return after tLocationString end repeat put tLocationString into field "locationField" end locationChanged @ cREVGeneralscripteditorvscroll0Start Location TrackinEw7on mouseUp iphoneStartTrackingLocation end mouseUp ^4 cREVGeneralscripteditorvscroll0 revUniqueID 1327056802559  headingField `@ cREVTable currentview cREVGeneral revUniqueID 1327056802560  locationField `@  cREVTable currentview cREVGeneral revUniqueID 1327056802561  Get Head Cal TimeoutEw"on mouseUp local tResult put iphoneHeadingCalibrationTimeout() into tResult if tResult is a number then answer "Heading Calibration Timeout is set to:" && tResult with "Okay" else answer "No Heading Calibration Timeout available." with "Okay" end if end mouseUp 0 cREVGeneral revUniqueID 1327056802562scripteditorvscroll0 Set Head Cal TimeoutEwon mouseUp ask question "What Timeout do You want?" with "10" titled "Heading Calibration Timeout" if it is an integer then iphoneSetHeadingCalibrationTimeout it end if end mouseUp 0 cREVGeneral revUniqueID 1327056802563scripteditorvscroll0scripteditorselection173 Get Current LocationEw6on mouseUp local tLocationContent, tLocationString, tKey put iphoneCurrentLocation() into tLocationContent repeat for each key tKey in tLocationContent put tKey && tLocationContent[tKey] & return after tLocationString end repeat put tLocationString into field "locationField" end mouseUp W cREVGeneralscripteditorvscroll0 revUniqueID 1327056802564scripteditorselection297 Get Current HeadingEw-on mouseUp local tHeadingContent, tHeadingString, tKey put iphoneCurrentHeading() into tHeadingContent repeat for each key tKey in tHeadingContent put tKey && tHeadingContent[tKey] & return after tHeadingString end repeat put tHeadingString into field "headingField" end mouseUp W cREVGeneralscripteditorvscroll0 revUniqueID 1327056802565scripteditorselection287 Stop Location TrackingEw6on mouseUp iphoneStopTrackingLocation end mouseUp |U cREVGeneralscripteditorvscroll0 revUniqueID 1327056802566 Stop Heading TrackingEw5on mouseUp iphoneStopTrackingHeading end mouseUp |U cREVGeneralscripteditorvscroll0 revUniqueID 1327056802567scripteditorselection39 Start Heading TrackingEw6on mouseUp iphoneStartTrackingHeading end mouseUp ^S cREVGeneralscripteditorvscroll0 revUniqueID 1327056802568scripteditorselection0 Test for Location SupportEwon mouseUp if iphoneCanTrackLocation () is true then answer "Location Tracking is Supported." with "Okay" else answer "Location Tracking is not Supported." with "Okay" end if end mouseUp @S cREVGeneralscripteditorvscroll0 revUniqueID 1327056802569scripteditorselection220 Test for Heading SupportEwon mouseUp if iphoneCanTrackHeading () is true then answer "Heading Tracking is Supported." with "Okay" else answer "Heading Tracking is not Supported." with "Okay" end if end mouseUp @Q cREVGeneralscripteditorvscroll0 revUniqueID 1327056802570scripteditorselection46 revOnline | RunRev