REVO2700û Sampler 2.02@€k Ç°÷ UTahomacRevStandaloneSettings4scriptLibrariesMacOSXfalse OSX,nameSamplerMacOS,documentTypeUNIX,fileSelectortrueWindowstrueWindows,LegalCopyright#2008 All rights reserved worldwideMacOS,longVersionSampler 1.0.0.0UNIX,pageSetuptrueOSX,documentType inclusionssearchWindows,documenticonFilehC:/Program Files/Revolution Studio/3.0.0-gm-2/Runtime/Windows/x86-32/Support/Sample Icons/genericdoc.ico answerDialogtrueOSX,documentExtensionWindows,FileDescriptionSampler 2.0.2.0 for WindowsOSX,longVersionSampler 1.0.0.0 MacOSfatfalseWindows,buildU3falseOSX,copyright#2008 All rights reserved worldwideUNIX,printerChoosertrueMacOS,MinimumSize15000MacOS,versionnumber11MacOS,versionnumber20MacOS,ReleaseFinalOSX,identifier com..samplername Sampler_2.02MacOS,versionnumber30 MacOS,Region1OSX,shortVersion1.0.0.0Windows,fileversion12Windows,productversion12Windows,fileversion20Windows,productversion20Windows,fileversion32cursorsfalseWindows,productversion32Windows,fileversion40Windows,productversion40 OSX,infoSampler Version 1.0.0.0 MacOS68kfalseMacOSX PowerPC-32falseMacOS,dynamicMemorytrue askDialogtrueOSX,signature????Windows,iconFilehC:/Program Files/Revolution Studio/3.0.0-gm-2/Runtime/Windows/x86-32/Support/Sample Icons/genericapp.icoMacOS,PreferredSize15000Windows,ProductNameSamplerUNIX,colorChoosertrueMacOSX x86-32false MacOSPPCfalseWindows,companynameFedExMacOS,creator????cREVGeometryCachestackID1019 cREVGeneralbreakpointconditionsscripteditorvscroll0 breakpointsscripteditorselection0breakpointstatesstackfileversion2.7AlreadyHiddenfalseê card id 1002 Pþon opencard put empty into field "popField" put empty into field "resultLabel" disable button "saveButton" disable button "copyButton" put empty into field "sampleField" set the visible of field "interruptLabel" to false end opencard €Ç°ö cREVGeneralscripteditorvscroll0scripteditorselection239cREVGeometryCacheIDs 12267052102631013122670859086910151228938778116101912267013999251004122695396280410181226701554908101012267015060931008122693496467810161226701588860101212267014049121006cREVGeometrycachetotal10order ðòôõ÷øúûð sampleButtonàm‹p :on mouseUp disable button "saveButton" disable button "copyButton" if isNumber(field "popField") is false then beep put empty into field "popField" put empty into field "sampleField" put empty into field "resultLabel" exit mouseup end if put empty into field "resultLabel" put empty into field "sampleField" put field "popField" into thePopulation -- Version 2.02 implements a rule of “251 items and up” is “10% of the population up to 50 items.”, so there is no need for the following check and warning -- if thePopulation >5000 then -- answer "Are you sure? Contact your EC PMO Rep before proceeding with a population > 5K " with "Continue" or "Cancel" -- if it is "Cancel" then exit mouseUp set the visible of field "interruptLabel" to true set the lockscreen to true set the lockscreen to false -- end if switch case thePopulation < 26 put thePopulation into sampleSize break case thePopulation < 251 put 25 into sampleSize break case thepopulation < 501 put the round of (thepopulation/10) into sampleSize break case thepopulation > 500 put 50 into sampleSize break end switch put empty into sampledItems set the allowinterrupts to false repeat sampleSize times repeat forever set the cursor to busy if the interrupt is true then beep put empty into field "popField" put empty into field "sampleField" put empty into field "resultLabel" disable button "saveButton" disable button "copyButton" set the visible of field "interruptLabel" to false set the allowinterrupts to true exit to top end if put random (thePopulation) into proposedSample if numberExists(proposedSample,sampledItems) is false then put return & proposedSample after sampledItems put "Sampled"&&(the number of lines of sampledItems - 1)&&"of"&&thePopulation&&"items" into field "resultLabel" exit repeat end if end repeat end repeat set the allowinterrupts to true sort lines of sampledItems numeric delete line 1 of sampledItems put sampledItems into field "sampleField" put "Sampled"&&the number of lines of sampledItems&&"of"&&thePopulation&&"items" into field "resultLabel" enable button "saveButton" enable button "copyButton" set the visible of field "interruptLabel" to false end mouseUp function numberExists theItem, theList put empty into foundItem repeat with x = 1 to (the number of lines in theList) if line x of theList = theItem then return true end repeat return false end numberExists €"¼PDetermine Sample cREVGeneralscripteditorvscroll295 revUniqueID 1226701506093scripteditorselection1127debugParametersdebugEntryHandler M,mouseUp ò SampleField†)`€’¼ Ð cREVGeneral revUniqueID 1226701554908scripteditorvscroll0scripteditorselection0 ê ó `@°“Öôi€ÿýÇ° cREVGeneralscripteditorvscroll0 revUniqueID 1226701588860scripteditorselection0 ì popField)pMon returninfield send mouseUp to button "sampleButton" end returninfield €FzÒ cREVGeneral revUniqueID 1226701399925scripteditorvscroll0scripteditorselection57 ê î popLabel €F´ cREVTable currentview Population: cREVGeneral revUniqueID 1226701404912 Population:õ copyButtonàe“pÕon mouseUp set the lockscreen to true select the text of field "sampleField" copy select empty set the scroll of field "samplefield" to 0 select empty set the lockscreen to false end mouseUp €c¼DCopy Sample to Clipboard cREVGeneral revUniqueID 1226705210263scripteditorvscroll0scripteditorselection175 ÷ resultLabel €zÆ´ cREVTable currentview cREVGeneralscripteditorvscroll0 revUniqueID 1226708590869scripteditorselection0 ø saveButtonàe›pon mouseUp if the first word of field "sampleField" is not "Original" then ask file "Save Sample Data as:" with type "Text|txt|TEXT" if it is empty then exit mouseup put it into saveFile set the itemDelimiter to "." if the last item of saveFile is not "txt" then put saveFile&".txt" into saveFile open file saveFile for text write -- write "Population:"&space&field "popField"&tab&"Sample Size:"&space&the number of lines of field "sampleField"&tab&the long system date&tab&the long system time&return&return&field "sampleField" to file saveFile write "Population:"&space&field "popField"&tab&"Sample Size:"&space&the number of lines of field "sampleField"&tab&"Max Failures:"&space&trunc ((the number of lines of field "sampleField")/25)&tab&the long system date&tab&the long system time&return&return&field "sampleField" to file saveFile close file saveFile else ask file "Save Sample Data as:" with type "Text|txt|TEXT" if it is empty then exit mouseup put it into saveFile set the itemDelimiter to "." if the last item of saveFile is not "txt" then put saveFile&".txt" into saveFile open file saveFile for text write -- write "Population:"&space&field "popField"&tab&"Sample Size:"&space&the number of lines of field "sampleField"&tab&the long system date&tab&the long system time&return&return&field "sampleField" to file saveFile write "Population:"&space&field "popField"&tab&"Sample Size:"&space&(the number of lines of field "sampleField"-3)&tab&"Max Failures:"&space&trunc ((the number of lines of field "sampleField"-3)/25)&tab&the long system date&tab&the long system time&return&return&field "sampleField" to file saveFile close file saveFile end if end mouseUp €a¼@Save Results to Text File cREVGeneralscripteditorvscroll0 revUniqueID 1226934964678scripteditorselection180 úinterruptLabel€ œ¬° cREVTable currentviewPress CTRL - Period to cancel cREVGeneral revUniqueID 1226953962804 Press CTRL - Period to cancelû expandButtonàe‹pûon mouseUp answer information "To expand an existing sample, you must load a previously saved sample created by this application" with "Ok" titled "Help" answer file "Select the Existing Sample to Expand:" with type "Text|txt|TEXT" if it is empty then exit mouseup put it into inputFile open file inputFile for text read read from file inputFile until EOF put it into inputSample close file inputFile if the first word of inputSample is not "Population:" then answer "The file you selected is not a valid sample file generated by this application" with "Ok" exit mouseup end if if the first word of line 3 of inputSample is "Original" then answer "The sample you selected has already been expanded, you cannot do this twice." with "Ok" exit mouseup end if put the second word of inputSample into thePopulation put the fifth word of inputSample into oSample if thePopulation < 25 then answer "Your population is not large enough to expand the sample" with "Ok" exit mouseup end if if (oSample * 2) > thePopulation then answer "Your population is not large enough to expand the sample" with "Ok" exit mouseup end if disable button "saveButton" disable button "copyButton" put empty into field "resultLabel" put empty into field "sampleField" delete line 1 of inputSample delete line 1 of inputSample -- Version 2.02 implements a rule of “251 items and up” is “10% of the population up to 50 items.”, so there is no need for the following check and warning -- if thePopulation >5000 then -- answer "Are you sure? Contact your EC PMO Rep before proceeding with a population > 5K " with "Continue" or "Cancel" -- if it is "Cancel" then exit mouseUp set the visible of field "interruptLabel" to true set the lockscreen to true set the lockscreen to false -- end if switch case thePopulation < 26 put thePopulation into sampleSize break case thePopulation < 251 put 25 into sampleSize break case thepopulation < 501 put the round of (thepopulation/10) into sampleSize break case thepopulation > 500 put 50 into sampleSize break end switch put inputSample into expandedSampledItems set the allowinterrupts to false repeat sampleSize times repeat forever set the cursor to busy if the interrupt is true then beep put empty into field "popField" put empty into field "sampleField" put empty into field "resultLabel" disable button "saveButton" disable button "copyButton" set the visible of field "interruptLabel" to false set the allowinterrupts to true exit to top end if put random (thePopulation) into proposedSample if numberExists(proposedSample,expandedSampledItems) is false then put return & proposedSample after sampledItems put return & proposedSample after expandedSampledItems put "Sampled additional"&&(the number of lines of sampledItems - 1)&&"of"&&thePopulation&&"items" into field "resultLabel" exit repeat end if end repeat end repeat set the allowinterrupts to true sort lines of sampledItems numeric delete line 1 of sampledItems put "Original Sample"&return&inputSample&return&return&"Expanded Sample"&return&sampledItems into field "sampleField" put "Sampled Additional"&&sampleSize&&"of"&&thePopulation&&"items" into field "resultLabel" enable button "saveButton" enable button "copyButton" set the visible of field "interruptLabel" to false end mouseUp function numberExists theItem, theList put empty into foundItem repeat with x = 1 to (the number of lines in theList) if line x of theList = theItem then return true end repeat return false end numberExists €=¼RExpand Existing Sample cREVGeneral revUniqueID 1228938778116scripteditorvscroll708scripteditorselection2182debugParametersdebugEntryHandler M,mouseUp