4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler F = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName keyEnter 4svAreaName 4svAreaID -- just state abbrev handler 4svDataPath -- database files (HD CD-ROM) 4svCDPath -- path CD Files 4svDownLoad -- 2 M downloaded 4svDownState -- current nd area 4svLimitedAccess -- 2 3 means -within 4 -- hourglass -- ndatacode front extra spaces IT -- 2 tabs Until IT <> " " -- see restricted access If <> 1 -- ok "the " && IT lvTmp ", " & IT -- pushedTone lvTone 8 -- errorTone Put "I'm sorry, you are ]a LIMITED ACCESS version" &&\ product. Information only available " &&\ IT & "." &\ CRLF & "For a FULL VERSION a," &&\ "please contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD update lvErrorText -- Get areas Overview History info -- SORT BY STATE main & "Datafile\Areas2. lvFileNam -- there If fileExists( 2) <> 1 -- no 8 -- 1 -- FILE ERROR! Cannot find : " &&\ "Please )"&&\ "1-800-99- TRUE -- errors -- INDEXED WITH STORED IN FIELD IN THIS PAGE -- index value section read -- selected areaID lvAreaID -- -- AreaIndex( DO 1 -- each Ustarts . LAST LINE | EOF If IT ansiTochar(26) -- Break DO record matches o(126) -- TAB HistoryAd lvthis -- COxx -- don't need anymore has total information arrange buttons on directory accordingly Conditions c"\" -- special -- General Trail Directory" "AreaList" "AVIWindow" "GenInfo" "TrailInfo" 3039,4740 4996,4740 c"$" -- fALL 632,632 632,1580 -- either no stats Stats" 1 -- 4 -- stay on -- store pointers AVI Ad lvThis -- Ad Pointer "CurrentData" \ Story" enter -- will playing 's avi ad -- should 1 -- If -- zabove -- ByBass MAY HAVE CRLFs IN OVERVIEW OR HISTORY fa | reading description be ignored EXCEPT FOR -- ONE BEFORE NEXT RECORD o(124) -- )START IT False -- lvFName -- 1 -- never but might -- If lvName lvState 1 & ", " & IT a DOWNLOADED SKIODYSSEY." & " &&\ : " &&\ PPN." & )"&&\ "1-800-99- keyUp buttonDoubleClick keyUp buttonDoubleClick buttonDoubleClick the state of pushedTone I'm sorry, you are using a LIMITED ACCESS version of this product. Information is only available for For a FULL VERSION of this product, please contact Media Odyssey, Inc. at 1-800-99-SKI-CD for an update code. Datafile\Areas2.dat fileExists pushedTone FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. Area Directory AreaList Area Directory AVIWindow Area Directory GenInfo Area Directory TrailInfo Area Directory GenInfo Area Directory TrailInfo Area Directory Area Directory GenInfo Area Directory TrailInfo Area Directory Area Stats lvThis lvThis CurrentData Area Story lvThis lvThis CurrentData General Overview Area Directory This is a DOWNLOADED or LIMITED ACCESS version of SKIODYSSEY. Information is only available for FILE ERROR! Cannot find record: of PPN. Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. pushedTone lvState lvName lvFName lvthis lvAreaID lvFileNam lvErrorText lvTone lvTmp svLimitedAccess svDownState svDownLoad svCDPath svDataPath svAreaID svAreaName e"Printer &Setup" ..." 4svAreaName 4svAreaID "Status" --just "Counter2" "F3" IT = "F2" -- find what "F7" IT -- stores previously selected area If IT = "F3" selectedTextLines "F3" "F3" b(IT-6,0) "F3" -- update the Bnames If y -- have a state maybe B"ThisState" B"ThisArea" If IT = "#" -- stats o -- no IT -- abbrev ..." depending on which Bpushed (lvWhere) FindMatch 4svDataPath -- path data files either HD -- see anything entered Put "F2" lvFindTxt If pushedTone lvTone "Nothing lvState -- customize message initialize lvPass -- USE TRAILS INDEX IF SEARCHING FOR Conditions P -- mark ski areas ALL states "Every Ski United States" k& "Searching" && IT && " : " &&\ "F2" & k& "One moment please..." \ -- OPEN REQUIRED DATA FILE identify location fields -- every read areaID how many discard include criteria -- a zero indicates record "F1" IT -- category "Trails" "Trailsn.dat" "2,33" "Lifts" "Liftsn. "2,33" "Lodges" "Lodgen. "8,37" "Restaurants" "Foodn. "8,40" "Merchants" "Shopn. "8,63" -- includes type "Skier" "SkiServn. "8,70" "Non-Skiing" "NSActivn. "8,66" "Other" "OtherSvn. "8,66" "Summer" "8,0" -- -- "Special" "F1" "Events" "Eventsn. "8,0" "ValueID. "4,73" -- NOTE: ValueALL ALWAYS appended so don't -- need a match -- Get proper identified above & "DataFile\" & IT lvFileNam FileThere Record:" -- (ONLY ONE POSSIBLE ON THIS PAGE) If = 1 AND IT "TrailsN. -- index value section -- "QuikDexing" "Records" & "??" lvAreaID -- needs 4 AreaIndex( where lvStart looking matches lvMatchList -- lvSkip -- only used searching current lvCnt 5 -- Rwill be a " always -- . LAST LINE | EOF If IT = Break DO -- no more -- SEE IF IN STATE IF THAT WAS WHAT BUTTON CLICKED -- came -- U.S. -- having found If IT -- skip below If IT -- still z -- -- Evaluate xlocated -- False -- causes error downloadversion Mon downloaded P -- <> 0 o(124) -- "|" got a If IT & "," finish was already <> 0 o(124) -- o(124) -- END IF Until -- EOF IT -- free memory user wants -- take build list If "I'm Sorry. were :" &\ "F2" & lvPrompt "F2" -- -- must t least IT -- trailing , lvTotal -- The may contain duplicate entries a given -- so duplicates -- re-use -- no dups IT -- lvCurID <> IT IT & "," -- unique transfer -- results If "Found" && && " " &&\ "F2" & && " " && \ && " " && IT &\ "." & "Would you like " &&\ Areas f"&Yes" "&No" If IT "F2" -- -- Tell going k& "Gathering on" && && " " &&\ " && "F2" & + ." &\ THE FOUND AREAIDS IN AREAS 2 DATABASE -- (BY BY NAME) TO GET ANAMES OF LMATCHED THEIR GENERAL INFORMATION HISTORY CODES RESULTING LIST WILL BE IN ORDER BY Areas2. "F3" -- -- re-use -- re- DO 5 -- " & areadID IT -- If IT = y -- BREAK DO should be checking If IT <> o(126) -- ~ -- arrange same order Hareanames IT -- 4$ \ -- overview & o(126) -- ~ IT -- amap IT -- IT & rest o(124) -- | IT -- -- display "F3" -- "F3" -- "F3" selectedTextlines "F3" "F3" -- been hidden terpage leavepage enterpage FindMatch enterpage Printer &Setup &Print... Status Counter2 Counter ThisState ThisArea ThisArea ThisArea ThisArea ThisState ThisArea ThisState svAreaID svAreaName leavepage Printer &Setup &Print... -FindMatch pushedTone Nothing to search for! all ski areas in the state of Every Ski Area in the United States Status Searching for text: One moment please... Status Trails Trailsn.dat Lifts Liftsn.dat Lodges Lodgen.dat Restaurants Foodn.dat Merchants Shopn.dat Skier SkiServn.dat Non-Skiing NSActivn.dat Other OtherSvn.dat Summer Summer.dat Special Events Eventsn.dat ValueID.dat DataFile\ FileThere Searching Record: Counter2 Counter TrailsN.dat QuikDexing Counter2 Records Counter AreaIndex Searching Record: Counter2 Counter2 Counter Counter Counter2 Status pushedTone I'm Sorry. No matches were found for: the United States pushedTone Found matches for ski areas after searching every ski area in Would you like to build a list of the Ski Areas where the items were located? Status Status Gathering data on ski areas where was found. One moment please... Status DataFile\Areas2.dat FileThere Counter2 Counter Counter Counter2 Status pushedTone lvCurID lvTotal lvPrompt lvCnt lvSkip lvMatchList lvStart lvAreaID lvFileNam lvPass lvState lvTone lvFindTxt svDataPath svAreaID svAreaName lvWhere 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName TO HANDLE ENTERPAGE 4svCDPath 4svAreaID 4 -- hourglass e"Printer &Setup" ..." -- tell user file coming "AVIWindow" Put CRLF & "Loading Information File." & : "One Moment Please..."\ -- initialize lvId the "$,\,#, %" suffix code lvState -- state abbrev IF IT -- no stats. Tell "Sorry. This area has xprovided " &&\ "Trail . -- .wherever came 1 -- -- build path Sub-Directories AVI STATS files "TrailMap\" & & "\" & lvID & "T" lvFName @ on Cd-Rom svAdFile playing AFTER loading fields loadAdFile -- handler below 1 -- ClozAVI "Preparing Page" & ..." -- loads runs -- passed -- handlers 4svFrameCnt -- length controls 4svDownLoad -- will be 2 data downloaded -- merchant's ad trapping errors FALSE -- stop display & ".AVI" tbkMCI("Close ALL","") -- just ad still -- see there IF fileExists( ) = 1 -- "AVIControls" -- player tbkMCIchk(" " && && "style popup" && \ "alias AVIFile " && 8,"","","") frames","","") winName }status AVIfile ","","","") -- determine main lvX; + 3 + 42 MoveWindow( d,634,390,1) w","") "FrameCount" ","") -- total updated "& IT & " Images" "TLFrames" store -- don't let ereceive mouse messages translateWindowMessage 4257 noSponsAdTouch 8 -- 257 -- 4513 8 -- 513 LbuttonDown -- 4514 8 -- 514 LbuttonUp -- reset work stops tbkMMNotify ELSE -- xvalid <> 2 pushedTone lvTone 8 -- errorTone "FILE ERROR! Cannot find L : " &&\ contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD." lvErrorText "Download Version SKIODYSSEY" & Map Graphic Files Not Available." \ END IF TRUE -- TERPAGE leavePage ENTERPAGE loadAdFile ENTERPAGE Printer &Setup &Print... AVIWindow Loading Information File. One Moment Please... AVIWindow Sorry. This area has not provided any Trail Information TrailMap\ loadAdFile svAdFile lvFName lvState svAreaID svCDPath leavePage oTDClozAVI AVIWindow Preparing Page One Moment Please... AVIWindow Printer &Setup &Print... loadAdFile Close ALL tbkMCI fileExists AVIControls style popup alias AVIFile parent tbkMCIchk set AVIFile time format frames tbkMCIchk status AVIfile window handle tbkMCIchk MoveWindow window AVIfile state normal tbkMCIchk FrameCount status AVIfile length tbkMCI Images TLFrames noSponsAdTouch play AVIfile this book tbkMCIchk AVIControls pushedTone FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. Download Version of SKIODYSSEY Trail Map Graphic Files Not Available. AVIWindow lvErrorText lvTone winName lvFName svDownLoad svFrameCnt svAdFile 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svCDPath -- DOS path files on CD-ROM 4svAreaID -- 2 RStateAbbrev + 2digit area code which may -- have a prefix eans only General info Trail "#" means 9stats -- a "%" so load default -- a "$" HALL data exists -- no printing on e"Printer &Setup" ..." -- tell user coming "AVIWindow" Put CRLF & "Loading Map Files." & 7 "One Moment Please..."\ -- initialize -- "$,\,#, %" suffix lvState -- state abbrev -- build Sub-Directories AVI map "AreaInfo\" & V & "\" & lvID & "M" lvFName d-Rom svAdFile playing AFTER loading fields loadAdFile -- handler below ClozAVI "Preparing Page" & ..." -- loads runs -- passed -- handlers 4svFrameCnt -- length controls 4svDownLoad -- will be 2 downloaded -- merchant's ad trapping errors FALSE -- stop display & ".AVI" tbkMCI("Close ALL","") -- just ad still -- see there IF fileExists( ) = 1 -- "AVIControls" -- player tbkMCIchk(" " && && "style popup" && \ "alias AVIFile " && 8,"","","") frames","","") winName }status AVIfile ","","","") -- determine main lvX; + 3 + 42 MoveWindow( d,634,390,1) w","") "FrameCount" ","") -- total updated "& IT & " Images" "TLFrames" store -- don't let ereceive mouse messages translateWindowMessage 4257 noSponsAdTouch 8 -- 257 -- 4513 8 -- 513 LbuttonDown -- 4514 8 -- 514 LbuttonUp ~ -- reset work stops tbkMMNotify ELSE -- xvalid <> 2 pushedTone lvTone 8 -- errorTone "FILE ERROR! Cannot find : " &&\ contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD." lvErrorText "Download Version SKIODYSSEY" & Video Not Available." \ END IF TRUE -- terPage leavePage enterPage loadAdFile enterPage Printer &Setup &Print... AVIWindow Loading Area Map Files. One Moment Please... AVIWindow AreaInfo\ loadAdFile svAdFile lvFName lvState svAreaID svCDPath leavePage oTDClozAVI AVIWindow Preparing Page One Moment Please... AVIWindow Printer &Setup &Print... loadAdFile Close ALL tbkMCI fileExists AVIControls style popup alias AVIFile parent tbkMCIchk set AVIFile time format frames tbkMCIchk status AVIfile window handle tbkMCIchk MoveWindow window AVIfile state normal tbkMCIchk FrameCount status AVIfile length tbkMCI Images TLFrames noSponsAdTouch noSponsAdTouch play AVIfile this book tbkMCIchk AVIControls pushedTone FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. Download Version of SKIODYSSEY Area Map Video Files Not Available. AVIWindow lvErrorText lvTone winName lvFName svDownLoad svFrameCnt svAdFile }location will be user pressed toggle -- lower ObjectFromPoint( 4svDataPath 4svFilePath 4svAreaID 4svCDPath -- see valid path "To" lvPath IF pushedTone lvTone "You must enter subdirectory where you wish download files" ELSE If IT = "\" Until <> "\" current" &&\ Please a different -- already exists createDirectory( ) -- linked showStartupPage handler Conditions IT = -3 "Invalid Name: IT = -5 "WARNING!" & CRLF & " & ! All " &&\ erased lvPrompt f"&Cancel" "Co&ntinue" If IT "Current" "Status" "Counter" enough disk B"AllAreas" "TRUE" have chosen information ALL" &&\ ski areas United States. This require" &&\ "a minimum 11MB free on your hard " &&\ "want f"&No" "&Yes" If IT removeDirectory( ) -- created above 's drive lvDrive getFreeDiskSpace( ) -- If IT < 11 -- megabytes required "Not on selected !" & ) -- 2.5 + 1.3 + plus a guess ) -- If IT < 5 !" & "A ) -- can write serial FALSE & "\skicd.sn" lvFName -- delete IF ANY 4data stored on HD downloaded -- changed 2 below only downloading -- state single "FILE ERROR!" & "Unable specified ." &&\ " &&\ entered." & "\*.*" lvPrevFiles getFileList( requested M <> textlineCount( lvFileName removeFile( main -- DataFile TempData AreaAds StateMap even xused ) -- & "\ & "\ & "\ & "\ 0 IT) -- NOW COPY THE FILES (reuse -- message lvCur B"ThisState" B"ThisArea" "Instructions" B"Begin" -- can't escape ccopying program "Downloading Program ." & "In just a moment you'll be [Esc] abort operation." "ErrorMsg" "ErrorGroup" & "\*.*" existing z, Notes.txt, Exe, Tbook & "\" copyFile( -- Copy version setup & "AreaInfo\ ".exe" lvFrom & "\ d.cfg" & "\ :" & :" & k& "Press [ DataFiles SPECIFIED BY -- update STORED LOCATION tell datafiles are U.S." & "\ IF ANY \*.*" & "\ Complete!" -- need build individual lvMatch DownLoadSelect reak -- should never Request "Can't determine which Check radio buttons." Break END IF -- something -- released over 4svAreaName coding 8on startup whether index display FileThere xfound errors )= 4 -- & " " & & "\ IF ANY Photo, Help About lways \*.txt" & "\ -- Always ePPN, Packagers Values .dat" \" & & "\ \" & "ValueAll. \" & & "\ \" & "PackData. \" & & "\ \" & "PackageN. \" & & "\ \" & "PackageC. \" & & "\ \" & "PackageS. \" & & "\ \" & -- If AreaAD that maps always copied either a whole destination -- subdirectorys If \" & & ".avi" & "\ \" & & ". -- IT -- abbrev \" & IT & ".bmp" & "\ \" & IT & ". -- PARSE MAIN DATA -- ONLY INFORMATION REQUESTED BY -- FOLLOWING ROUTINES ASSUME CAN READ IN ENTIRE RECORD AT A SINGLE -- PASS WHICH MEANS IT HAS TO CONTAIN LESS THAN 32,000 CHARS PER list parse lvDataFiles lvFileCount yreturned HgetFileLIst reverse order so [lines without corrupting value If "PPN.dat Packages. beginning each record " & IT \" & IT lvReadFile & "\Datafile\" & IT lvWriteFile 6 -- ! -- lvPass -- initialize lvCount 5 -- " & -- criteria 4getting IF IT lvAreaID -- -- mark -- assume no exceed 32K o(124) -- )START front EXCEPT o(124) -- no match If IT = NULL OR o(124) & o(26) IT -- | BREAK DO "skip" o(124) -- IT -- memory Q!wants -- loop !lets key up ) = "up" Interrupted." -- esc "Are sure f"&No" If IT Canceled." -- -- removing Aborted!" & k& "Removing please..." anything so far -- DATAFILES " & "\ \*.*" If " & "\ -- ALL IN ROOT <# & "\*.*" # & "\" -- DIRECTORIES # & "\ lvDir $ & "\ g%did UNTIL -- Done b% -- buttonUp DownLoadSelect (buttonUp pushedTone You must enter the path to the subdirectory where you wish to download the files pushedTone is the current subdirectory! Please enter a different path. createDirectory pushedTone Invalid Path Name: pushedTone WARNING! Path already exists! All files in this path will be erased if you continue. &Cancel Co&ntinue Cancel Current Status Counter AllAreas You have chosen to download the information for ALL of the ski areas in the United States. This will require a minimum of 11MB of free space on your hard disk. Do you want to continue? removeDirectory getFreeDiskSpace pushedTone Not enough space on selected drive! A minimum of 11 megabytes is required. removeDirectory getFreeDiskSpace pushedTone Not enough space on selected drive! A minimum of 5 megabytes is required. removeDirectory \skicd.sn pushedTone FILE ERROR! Unable to write to specified path. Please check the name of the path you have entered. removeDirectory getFileList removeFile createDirectory \TempData createDirectory \DataFile createDirectory \AreaAds createDirectory \StateMap createDirectory AllAreas AllAreas ThisState ThisState ThisArea Instructions Begin Downloading Program Files. In just a moment you'll be able to press [Esc] to abort the operation. ErrorMsg ErrorGroup getFileList copyFile AreaInfo\setup.exe \setup.exe copyFile AreaInfo\setup.cfg \setup.cfg copyFile AllAreas Downloading Files for: ErrorMsg Downloading Files for: Press [Esc] to cancel. ErrorMsg ErrorGroup AllAreas skicd.sn All Ski Areas in the U.S. \skicd.sn DataFile\*.* getFileList DataFile\ \DataFile\ copyFile ErrorGroup Begin Instructions pushedTone Download Complete! ThisState sDownLoadSelect ThisArea sDownLoadSelect ErrorGroup Begin Instructions pushedTone Can't determine which data to download. Check one of the radio buttons. lvMatch i:to1 lvFrom lvCur lvFileName lvPrevFiles lvFName lvDrive lvPrompt lvTone lvPath svCDPath svAreaID svFilePath svDataPath location (I#DownLoadSelect skicd.sn \skicd.sn DataFile\*.txt getFileList DataFile\ \DataFile\ copyFile PPN.dat DataFile\ \DataFile\ copyFile ValueAll.dat DataFile\ \DataFile\ copyFile PackData.dat DataFile\ \DataFile\ copyFile PackageN.dat DataFile\ \DataFile\ copyFile PackageC.dat DataFile\ \DataFile\ copyFile PackageS.dat DataFile\ \DataFile\ copyFile AreaAds\ \AreaAds\ copyFile StateMap\ \StateMap\ copyFile DataFile\*.dat getFileList PPN.dat ValueAll.dat PackData.dat PackageN.dat PackageC.dat Packages.dat Downloading File: Current DataFile\ \Datafile\ Counter Status write Status Status Download Interrupted. ErrorGroup pushedTone Are you sure you want to cancel downloading ErrorGroup pushedTone Download Canceled. Download Aborted! Removing Files. One moment please... ErrorMsg ErrorGroup \DataFile\*.* getFileList \DataFile\ removeFile getFileList removeFile \TempData removeDirectory \DataFile removeDirectory removeDirectory ErrorGroup Begin Instructions Current Status Counter ErrorGroup ErrorGroup Begin Instructions Current Status Counter pushedTone Download Complete! lvDir i:to2 lvTone lvAreaID lvCount lvPass lvWriteFile lvReadFile lvFileCount lvDataFiles lvFrom lvFileName lvPrevFiles lvFName svAreaName svFilePath svDataPath lvMatch lvPath 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName -- NOTES: -- The DOS PATH= statement include the subdirectory DLLS -- other RUNTIME files that 4must be specified -- linking DLLs calling 4books actual program -- Set up screen 4 -- fknown ; -- default menus v -- tbkmm.sbk so can access -- sysBook same %ski-cd TRUE -- only )runtime otherwise would have been linked H[Toolbook] section WIN.INI -- GET HARDDRIVE lvPath 8 -- complete path -- now strip off just core -- necessary allow initialize -- initially level 9480,6800 -- full fborders NO MENUS -- delete temporary database delTmpFiles 4svFilePath -- harddrive ! & "TempData\*.*" lvPrevFiles getFileList( textlineCount( lvFileName removeFile( -- reset values closing pushedTone lvTone "Are you sure want quit session?" f"&Cancel" "&Quit Now" If IT Break FALSE -- no error messages CRLF & "Removing Temporary Ski-CD /One moment please..." \ lvErrorText "ErrorMsg" "ErrorGroup" 8 -- summary list sorts win.ini ; -- HardDrive 4svAudio -- status audio capabilities y -- opening IdentifyFilePath 8 -- loads needed gets -- used subsequent calls. ShowStartupPage 8 -- display startup 8 -- -- Xsound prompt tbkMCIchk(" ,SystemStart","") -- tada y -- errors later yfails failed "Your driver xfunctioning." &&\ * will be unable listen " &&\ "segments included fyour SKIODYSSEY Interactive" &&\ "Annual correct problem." & Messages suspended on" &&\ product free " &&\ "further interruption. " &&\ "still be displayed." AudioError -- stop r -- initializing FAlse -- previously frozen ZapData Handler -- Get so we & graphic 4svCDPath -- Dos CD-Rom including ":/" 4svDownLoad -- serial z= 2 downloaded during 4svDownState -- stores limited & areaID 4svLimitedAccess -- 1 means version --Link tbkfile.dll create initialization %"Ski.CD" linkDLL " fileExists( getDriveList() \getFreeDiskSpace( createDirectory( removeDirectory( copyFile( 8 -- -- -- Read Serial present -- If R= 2 DOWNLOADED so ignore CD-ROM & "skicd.sn" lvFName -- see there If 5) = 1 -- 300 -- username lvUserId lvUserID Download lists info T -- registration loading If <> 2 Copyright 1994. All rights reserved." & Looking CD-ROM d." & Version -- Snowmass, CO"\ -- FORCE <> 2 -- doesn't apply -- LETTER lvTemp -- which has .Mrk" csysErrorNumber <> 8098 -- can't empty stack y -- letter If It -- no floppies unless specifies prompted Put IT lvDrive & ":\ ) = 1 -- S & ":\" c -- no more drives, / -- -- found . CD- missing CDROMPrompt 8 -- required LoadDLLs -- these PATHNAME\" positions scales AVI windows INT MoveWindow(WORD, SetActiveWindow( creates Windows PopUp Menus X"tbkwin.dll" ~popMenu ( zSTRING, -- Clears compact %small %possible 4saving. Only ShowStartUpPage handler Authoring Jfreeze clozavi -- close avifiles authoring sysSuspendMessages map on its "Areas within Selected '"StateMap" "TitleBox" "AreaNames" "AllList" "HasAd" "AllAds" [AllAreas "Matches" "Personal Prefs" "Cover " -- "NameAds" "StateAds" "AreaNamesBySTATE" "AreaNamesByNAME" -- letters -- "Letters" " -- index '"TabIndex" fields current on Summary -- plus lvFld -- Display named F(i) on Ad -- AreaDirectory J"CurrentData" J"PrtBody" "PrtHead" j -- "Type" "GenInfo" j -- how "AVIWindow" -- . -- where started errorGroup setup / -- showing -- no "Save Changes" Dialog upon Reader 9480,6515 -- 0,0,640,480 -- 4740,6200 -- under logo -- Build custommenus ALWAYS built AFTER ; -- BuildCustomMenus -- -- find above ("Can't ! Please enter && & "D" & CancelCDROMPrompt -- confirm -- try -- no Pop upperCase(IT) If "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & ":\ -- ) = 1 -- & ":\" 8 -- errorTone "Still ! " &&\ Media Odyssey CD" &&\ properly the" &&\ -- ENABLE THIS LINE -- DEBUG ONLY " && & "x:\ "Temporarily BYPASSING FOR CODE TESTING" & FINAL VERSION!" \ 8 -- & "CD-ROM\" ) = 1 -- keyed wrong 8 -- psuedo CD- ." & you" & "entered & "x:\SKI-CD\CD-ROM" & 8 -- "Invalid ! "\ & Enter A thru Z 8 -- numbers 3 -- wants 8 -- "This without " &\ "a CD- disk. Press CONTINUE "CD- press EXIT leave !." \ f"&Continue" "E&xit" If c"Exit" -- original "called z= 2 already c"Edit" c"Help" -- If <> 2 ..." e"Printer &Setup" (" & TAB & "Ctrl+P" -- REMOVE ON -- SEE BELOW Default c"Fin&d" e"&Trails..." c"&Find" e"L&ifts..." e"&Lodging..." e"&Food..." e"&Shopping..." e"S&kier Services..." e"&Other Skiing Activities..." e"Special &Events..." e"Su&mmer/Fall..." LValues..." c"&GoTo" " alias "AreasinState" 5ListAllAreas" &Packagers" hSkiPackagers" Useparator e"&Previous Screen" PrevPage" c"&Options" &Preference Navigator" &Survey" &Worksheet" e"Sticky &Notes" c"&About" e"&Photo Credits" PhotoCredits" boutMO" help HelpIndex" 4svDataPath -- datafiles are be located either svCDpath 4 -- hourglass p (created ' & " -- ) = 1 -- 300 -- . Initialize?" "&Yes" "&No" "YES" InitializeProduct -- -- ! sets force If IT = 0 -- ( on CD-ROM don't even 8) actually on HD 2) & "DataFile\ .txt" ) = 1 -- ) on CD- K" <> 2 7&on CD- "ERROR!" & $cannot " &&\ Unable proceed."\ -(note displaying Fthey $saved -PPN settings P -- 11 -- location B"RecallDefault" U.S. & ." \ & s*Initializing CD-ROM. W*." \ If sysRuntime 40tartuppage 1 -- ABOVE AuthorandDefaultMenus ; -- so runs zcontrol entering StartupPageHandler) (ki-CD If CancelSetup -- -- test )$ input a -- 10th digit ., 2 A2, 3 -- 11th-15th = -- 16th 18th = y2 code -- 17th 19th = Conditions T = 1 -- If IT <> 110 c"!"\ -"Initialization Cancelled." "ALL" lvState "23" -- 2 IT = 11 "MD" IT = 12 "MA" IT = 13 "MT" IT = 14 "CA" IT = 15 "WA" IT = 16 "OR" IT = 17 "AK" IT = 18 "CO" IT = 19 "CT" IT = 20 "GA" IT = 21 "ID" IT = 22 "WY" IT = 23 "IL" IT = 24 "NM" IT = 25 "UT" IT = 26 "AZ" IT = 27 "MI" IT = 28 "NV" IT = 29 "WV" IT = 30 "MN" IT = 31 "NJ" IT = 32 "NE" IT = 33 "MO" IT = 34 "ND" IT = 35 "IN" IT = 36 "SD" IT = 37 "RI" IT = 38 "OH" IT = 39 "TN" IT = 40 "NY" IT = 41 "WI" IT = 42 "VA" IT = 43 "KY" IT = 44 "VT" IT = 45 "IA" IT = 46 "NH" IT = 47 "AL" IT = 48 "ME" IT = 49 "NC" IT = 50 "PA" S'!"\ If lvUserName (0registered U4Is information lvUserReg "&No" BuildDatabases 8 -- -- databases successfully Frecord 1a 0 100010001 1" & -- 2 1;, 3 IT = 2 k& IT -- appended SN below IT = 3 determine &3" \ ,." \ 6Verifying 6." \ 1 & "Datafile\Areas2.dat" indexed syslockScreen syssuspendmessages lvAreaID AreaIndex( 1 -- each Ustarts 1 LAST | EOF If IT ansiTochar(26) -- matches If IT = o(126) 1 -- Tab -- Map & IT o(124) Until -- `; & " b1 -- SN#:" & build on >notes.txt p? copied Z<) -- showStartupPage ~< & "\ "Would t;like @DATA FILES && "also?" & "(7MB additional -, but significantly faster.)"\ lvPrompt f"&No" If IT lvWhereData -- CD-ROM If / = 1 -- enough :3's /) -- If IT < 7 -- megabytes "Not >!" & "A minimum .." & 9" &&\ 8simply AENTIRE" && B" &&\ f6 & ." &\ k& "For now, :remain on {BCD- exists a? & " *.*" lvSubDir lvDelFiles _ so ? & "\ "WARNING!" & A" & @ & " !" & Q;erased "Con& If IT lvNoDelete -- DHardrive -- If a blocked -- Fassign a -- EDownLoader routine PARSE <> 1 4 -- 6." \ U@Copying Harddrive. ;@." \ ;; & " *.*" ; & " B & " End 8 did Fon HD F FIRST Rdetermines C & " 9 -- 9 -- 0=CD-ROM, 1 = HD Fcompleted! "If 6" &\ PC." \ If -- ; -- P -- turn snap 316 -- 30 units )9480 wide P -- G" -- multimedia P -- 3.dialog box D -- >tone C -- aIinstalled via panel If JBSystemDefault","", |C) -- yBSystemAsterisk","", C) -- chord 5shows Jecond see. Each trapped sends Hsending loadAdFile svAdFile -- passed handlers 4svFrameCnt -- length controls z= 2 -- If IT = "X" -- CCCode @no ad "AVIControls" -- "No Video FI" & rGProvided" \ (E("Close ,"") -- -- trapping & ". -- IF @) = 1 -- player " && S@ && "style popup" && \ &AVIFile " && 8,"","","") frames","","") winName GAVIfile ","","","") lvX; + 341 + 127 H,280,210,1) w","") "FrameCount" ","") -- total updated "& IT & " Images" "TLFrames" _#let ereceive mouse translateWindowMessage 4257 noSponsAdTouch 8 -- -- 4513 8 -- 513 LbuttonDown -- 4514 8 -- 514 LbuttonUp | -- JHwork B stops tbkMMNotify ELSE -- hF <> 2 8 -- Cannot `Q: " &&\ 6D & .5contact s3, Inc. )"&&\ "1-800-99- Available." \ END IF >updates counter shown numbering mode","") ","") lvFr AND touch on Sreduced sponsor ad ethereby stopping Ttimer 8Tcolor palette JTad `pallet leaving ClozAVI Oso no H on !,"") w; -- xT redraw VUad stopped Hitself G intervention requested Uad begins PEgone False -- ","") If IT <> IT+1 True -- -- ## These LPalways printed) lvCur If lvNew -- YL so prtbody Oplaced lvHead \@. 1st n?, 2nd PrtBody2 -- -- -- Determine Which Report IF IT <> 0 -- SUMMARY PAGE REPORT If IT <> unneeded -- MUST BE THE SAME :EVERY [extra =Lon ski packagers lvCity -- lvTmp OR OTHER NON- -- Else -- ad some lvTxtFlds lvNum K"F" If IT <> SXIT \ -- ad names 3"Fx" account -- what about 4, printindex, survey, etc.) up 2- a type If IT = y -- ^non- 1440,1440,1980,1000 printerSize 9360,0 0,360 4620,6420 600,600,1980,1000 11040,0 -- global printerLabelWidth 8 -- so fonts "Arial" "Date: -- FIND "Finder" "F1" IT -- title If IT <> " %; -- something Vlooked "F2" -- "F3" -- areas Lifts "F1" IT -- If IT <> " < -- "F2" -- "F3" -- "F1" IT -- If IT <> "Lodges < -- "F2" -- "F3" -- "F1" IT -- If IT <> "Restaurants = -- "F2" -- "F3" -- "F1" IT -- If IT <> "Merchants > -- "F2" -- "F3" -- SkierServices "F1" IT -- If IT <> " ? -- "F2" -- "F3" -- NonSkiingActivities "F1" IT -- If IT <> " t@ -- "F2" -- "F3" -- SpecialEvents "F1" IT -- If IT <> " \A -- "F2" -- "F3" -- OtherServices "F1" IT -- If IT <> " DB -- "F2" -- "F3" -- SummerFall "F1" IT -- If IT <> " ,C -- "F2" -- "F3" -- SpecialValues "F1" IT -- If IT <> " D -- "F2" -- "F3" -- HistPage History -- OPTIONS PersonalPreferenceNavigator SKIODYSSEYSurvey SKIODYSSEYWorksheet StickyNotes Waliases) AboutMO -- HELP -- THESE HANDLERS (DisplayData2 LoadData2) -- ARE LIST PAGES WITH M 2 SORTABLE FIELDS /G, AirTravel CarRental dtheir eScripts because n[than 2 sortable -- EACH builds lparsed -- "StoreData" .Yon subtle -- differences mstrutures. Once mgeneric " /Dnd #ncontents 4nappropriate GVon gnlvButName 'whether Rk needs -- be hardrive KE & " 2" & ^o's FileThere ad marker confirming Vb. Should be l & " l" & & ".a" If ) <> 1 -- no b so 100 -- a o(i) lvLtr lvTmp2 -- deletes m & " sm" & & ".a" 1 -- If IT -- 'n & " n" & m -- "Loading n." & lMoment U..."\ "Status" -- Need a bSSORTED jdetermined should -- reflect '"A" -- sorted ".a" o(26) -- EOF g("B" -- o -- o(26) -- ("C" -- Zp -- o(26) -- SCRIPTS ^j <> 2 If 5q) <> 1 -- no 8 -- iu: " &&\ )"&&\ "1-800-99- TWO SET-UP "START PLAYING )6ON -- WHICH IMMEDIATELY FOLLOW InAdPage holds doubleclick on If IT <> #IT <> "X" If IT > 0 -- 0 Vv so nothing r Information Complete." &\ rNow Searching pt." &\ rr." \ -- Textline 2 n (stored "LoadItemInfo" OutAdPage If IT <> %IT <> "X" If IT > 0 -- 0 vx so ClozAvi c'OF THAT SETUP M&DISPLAY Aono indexes `o = 2 y -- Voso )beginning "RIndex" glocateOnly If IT <> IT -- 2 + IT lvStart -- 7 + IT lvEnd -- If IT < 3 -- no lvRemain If IT = 0 y -- lvTimes -- 4selected IT -- rmemory -- -- ["KEEP @< OPEN SINCE DISABLED -- -- If IT <> " CURSOR RESET -- ]PRODUCT 10-1-94 -- JUST LET TRY TO `#ITEM FROM -- BEGINNING OF IF NOT, SHOULD {"NO INFOR IN ^CATEGORY -- MESSAGE IT -- dx!" && IT && A && " k!" & )1-800-99- c] immediately!"\ . -- -- Force Tbook buttons behind ghosting UpdateButtons won't -zso -- toggle "zBack,zPopList,zDirectory" lvButs -- through IT = -- Toggle ,Stats,Story,Map,Overview, f,Ground,Road, ,Air,ShowInfo" -- IT = Z1R+c oadDLLs pushedTone enterBook ErrorMsg loadAdFile ZapData reader noSponsAdTouch leavebook ClozAVI tbkMMNotify CDROMPrompt Download Print enterBackground Trails Lifts Lodging CancelCDROMPrompt Shopping SkierServices BuildCustomMenus NonSkiingActivities SpecialEvents OtherServices ShowStartupPage SummerFall SpecialValues delTmpFiles AreasinState ListAllAreas AuthorandDefaultMenus SkiPackagers PrevPage HistPage PersonalPreferenceNavigator InitializeProduct SKIODYSSEYSurvey SKIODYSSEYWorksheet StickyNotes IdentifyFilePath PhotoCredits AboutMO HelpIndex BuildDatabases DisplayData2 LoadData2 CancelSetup FileThere InAdPage author OutAdPage LoadDLLs UpdateButtons AreaIndex enterBook tbkmm.sbk reader lvPath delTmpFiles TempData\*.* getFileList TempData\ removeFile lvFileName lvPath lvPrevFiles svFilePath leavebook pushedTone Are you sure you want to quit this session? &Cancel &Quit Now Cancel Removing Temporary Ski-CD Data Files. One moment please... ErrorMsg ErrorGroup delTmpFiles lvErrorText lvTone enterBackground IdentifyFilePath ShowStartupPage delTmpFiles sound SystemStart tbkMCIchk Your system's audio driver is not functioning. You will be unable to listen to any of the audio segments included with your SKIODYSSEY Interactive Annual until you correct this problem. Audio Error Messages will be suspended from now on so that you may continue to use this product free from further interruption. Non-Audio error messages will still be displayed. ErrorGroup AudioError svAudio svFilePath IdentifyFilePath tbkfile.dll fileExists getDriveList getFreeDiskSpace createDirectory removeFile removeDirectory copyFile getFileList skicd.sn fileExists lvUserID lvUserID lvUserID lvUserID lvUserID SKIODYSSEY Interactive Annual Copyright 1994. All rights reserved. lvUserID Looking for CD-ROM drive. One moment please... ErrorMsg ErrorGroup SKIODYSSEY Interactive Annual Copyright 1994. All rights reserved. lvUserID Download Version -- Snowmass, CO ErrorMsg ErrorGroup getDriveList :\Drive.Mrk fileExists ErrorGroup CDROMPrompt lvDrive lvTemp lvErrorText lvUserId lvFName svLimitedAccess svDownState svDownLoad svCDPath svFilePath LoadDLLs MoveWindow SetActiveWindow tbkwin.dll popMenu ZapData TDclozavi Areas within the Selected State StateMap TitleBox Areas within the Selected State AreaNames Areas within the Selected State AllList Areas within the Selected State HasAd Areas within the Selected State AllAds Areas within the Selected State Matches Personal Prefs TempData Cover Page AreaNames List of All Ski Areas HasAd List of All Ski Areas NameAds List of All Ski Areas StateAds List of All Ski Areas AreaNamesBySTATE AreaNamesByNAME Letters List of All Ski Areas TabIndex List of All Ski Areas CurrentData PrtBody PrtHead HasAd GenInfo AVIWindow errorGroup i:to1 lvFld svFilePath reader ErrorGroup BuildCustomMenus ErrorGroup CDROMPrompt Can't find CD-ROM Drive! Please enter drive letter as Cancel CancelCDROMPrompt CDROMPrompt ABCDEFGHIJKLMNOPQRSTUVWXYZ :\Drive.Mrk fileExists pushedTone Still can't find file or CD-ROM drive! Please make sure that the Media Odyssey CD is properly loaded in the drive and that the drive letter for your CD-ROM drive is correct. Can't find file x:\Drive.Mrk Temporarily BYPASSING FOR CODE TESTING RE-ENABLE FOR FINAL VERSION! pushedTone {ErrorMsg CD-ROM\ Drive.Mrk fileExists pushedTone Can't find psuedo CD-ROM drive. Please make sure that drive letter you entered contains the subdirectory path x:\SKI-CD\CD-ROM {ErrorMsg CDROMPrompt pushedTone Invalid Drive Letter! Enter letters A thru Z ONLY. CDROMPrompt svFilePath lvErrorText lvTone lvFName lvDrive svCDPath CancelCDROMPrompt pushedTone This program will not function without a CD-ROM drive and the Media Odyssey Ski-CD compact disk. Press CONTINUE to enter a valid CD-ROM drive letter, or press EXIT to leave this program. &Continue E&xit lvTone BuildCustomMenus &File &Download... Printer &Setup &Print Ctrl+P E&xit Ctrl+X Printer &Setup &Print Author and Default Menus Fin&d &Trails... &Find L&ifts... &Find &Lodging... &Find &Food... &Find &Shopping... &Find S&kier Services... &Find &Other Services &Find &Non-Skiing Activities... &Find Special &Events... &Find Su&mmer/Fall... &Find Special &Values... &Find &GoTo &Ski Areas in this State AreasinState &GoTo &List All Ski Areas ListAllAreas &GoTo Ski &Packagers SkiPackagers &GoTo &GoTo &Previous Screen PrevPage &GoTo &Options Personal &Preference Navigator &Options SKIODYSSEY &Survey &Options SKIODYSSEY &Worksheet &Options Sticky &Notes &Options &About &Photo Credits PhotoCredits About &About SKIODYSSEY AboutMO About &Help &Help Index HelpIndex &Help svDownLoad ShowStartupPage skicd.sn fileExists Can't Find Serial Number. Initialize? &Cancel InitializeProduct lvUserID DataFile\About.txt fileExists pushedTone ERROR! DownLoad Version of SKIODYSSEY cannot find required data files. Unable to proceed. [_LoadDLLs buttonUp RecallDefault Personal Prefs SKIODYSSEY Interactive Annual Copyright 1994. All rights reserved. Initializing CD-ROM. One moment please... ErrorMsg ErrorGroup 5ZapData BuildCustomMenus lvErrorText location lvTone lvUserId lvFName svDownLoad svDataPath svCDPath svFilePath AuthorandDefaultMenus author InitializeProduct Please enter your Ski-CD serial number. Cancel CancelSetup InitializeProduct pushedTone Invalid Serial Number! Initialization Cancelled. pushedTone Invalid Serial Number! Initialization Cancelled. pushedTone Invalid Serial Number! Initialization Cancelled. Please enter your first and last name. Cancel CancelSetup InitializeProduct This product registered to: Serial Number: Is this information correct? &Cancel o@YBuildDatabases 11111111000100000100010001000000000110000001 SKIODYSSEY Interactive Annual Copyright 1994. All rights reserved. Verifying Serial Number. One moment please... ErrorMsg ErrorGroup Datafile\Areas2.dat AreaIndex skicd.sn SN#: InitializeProduct lvFName lvAreaID lvFileNam svLimitedAccess svDownState lvUserReg lvUserName lvState lvErrorText lvTone svFilePath svCDPath BuildDatabases createDirectory \TempData createDirectory Would you like to copy the DATA FILES to also? (7MB additional space required, but may run significantly faster.) getFreeDiskSpace Not enough space on this drive! A minimum of 7 megabytes is required. If you are able to free the required space at a later time, you may simply copy the ENTIRE DataFile subdirectory from the CD-ROM into the directory where the Ski.CD file is located. For now, all data will remain on the CD-ROM. DataFile\*.* getFileList \DataFile createDirectory WARNING! Path DataFile already exists! Previous data files will be erased if you continue. &Cancel Con&tinue Continue removeFile SKIODYSSEY Interactive Annual Copyright 1994. All rights reserved. Copying Data to Harddrive. One moment please... ErrorMsg ErrorGroup DataFile\*.* getFileList DataFile\ DataFile\ copyFile ErrorGroup skicd.sn lvFName lvPrevFiles lvErrorText lvNoDelete lvFileName lvDelFiles lvSubDir lvDrive lvWhereData lvPrompt svFilePath svCDPath CancelSetup Setup has not been completed! If you exit at this time you will be prompted to complete the setup during your next session. &Continue E&xit author tbkmm.sbk pushedTone sound SystemDefault tbkMCIchk sound SystemAsterisk tbkMCIchk svAudio lvTone ErrorMsg ErrorMsg ErrorGroup ErrorGroup lvErrorText loadAdFile AVIControls No Video Files Provided AVIWindow Close ALL tbkMCI fileExists AVIControls style popup alias AVIFile parent tbkMCIchk set AVIFile time format frames tbkMCIchk status AVIfile window handle tbkMCIchk MoveWindow window AVIfile state normal tbkMCI FrameCount status AVIfile length tbkMCI Images TLFrames noSponsAdTouch play AVIfile this book tbkMCIchk AVIControls pushedTone AVIWindow FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. Video Files Not Available. AVIWindow lvErrorText lvTone winName lvFName svDownLoad svFrameCnt svAdFile status AVIfile mode tbkMCI playing status AVIfile position tbkMCI FrameCount FrameCount svFrameCnt noSponsAdTouch SetActiveWindow ClozAVI TLFrames FrameCount Close ALL tbkMCI AVIWindow tbkMMNotify status AVIfile position tbkMCI FrameCount FrameCount svFrameCnt Download Download Print PrtHead PrtHead PrtHead PrtBody PrtBody2 PrtBody PrtBody PrtBody2 PrtBody2 PrtBody2 PrtBody2 Ski Packagers PrtBody2 PrtBody2 PrtBody PrtBody PrtBody PrtBody PrtBody PrtBody PrtBody PrtBody PrtBody PrtBody2 PrtBody PrtBody,PrtBody2 Arial Date: ~D Page: ~P lvFld lvNum lvTxtFlds lvTmp lvCity lvHead lvNew lvPrev lvCur Trails Finder Finder Trails to Find Trails to Find Lifts Finder Finder Lifts to Find Lifts to Find Lodging Finder Finder Lodges to Find Lodges to Find Finder Finder Restaurants to Find Restaurants to Find Shopping Finder Finder Merchants to Find Merchants to Find SkierServices Finder Finder Skier Services to Find Skier Services to Find NonSkiingActivities Finder Finder Non-Skiing Activities to Find Non-Skiing Activities to Find SpecialEvents Finder Finder Special Events to Find Special Events to Find OtherServices Finder Finder Other Services to Find Other Services to Find SummerFall Finder Finder Summer Fall Activities to Find Summer Fall Activities to Find SpecialValues Finder Finder Special Values to Find Special Values to Find AreasinState Areas within the Selected State ListAllAreas List of All Ski Areas SkiPackagers Ski Packagers PrevPage HistPage YHistory PersonalPreferenceNavigator Personal Prefs SKIODYSSEYSurvey Survey SKIODYSSEYWorksheet Worksheet StickyNotes Sticky Notes PhotoCredits Index Photo CurrentData enterpage AboutMO About Media Odyssey HelpIndex Index CurrentData enterpage DisplayData2 Datafile\ FileThere HasAd TempData\ fileExists TempData\ StoreData TempData\ ohXLoadData2 lvTmp2 lvLtr lvTmp lvFileNam svDataPath svFilePath lvButName LoadData2 Loading Data. One Moment Please... Status Status Status HasAd lvFileNam FileThere fileExists pushedTone FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. lvErrorText lvTone svDownLoad lvFileNam InAdPage CurrentData Text Information Complete. Now Searching for Video Files. One moment please... AVIWindow CurrentData loadAdFile svAdFile OutAdPage CurrentData oTDClozAvi AreaIndex RIndex RIndex Areas within the Selected State CurrentData Error! Index item not found! Please contact Media Odyssey at 1-800-99-SKI-CD immediately! pushedTone lvTone lvErrorText lvTimes lvRemain lvEnd lvStart svDownLoad lvFileNam lvAreaID UpdateButtons zBack,zPopList,zDirectory Trails,Lifts,Stats,Story,Map,Overview,Info,Ground,Road,CarRent,Air,ShowInfo lvButs 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFilePath -- DOS path HD Files 4svDataPath -- database files (HD CD-ROM) -- see which packager currently loaded updated buttondouble click on the summary list "CurrentData" lvCurID If IT = -- already so leave showing -- store -- need rebuild TempData \PackData.a" lvFileNam -- deletes -- qtemporary -- Identify main state Temporary & "Datafile\ dat" lvTmpFile there FileThere loading message "F4" Center "F1" CRLF & "Getting Destination Areas :" &\ 0 IT & "One Moment Please..." qarea StoreData -- initialize appropriate Conditions When IT = "F3" selectedTextLines "F3" "F3" "F3" -- trick so will re-display map "F3" "F3" "F3" -- re- "F4" Left FALSE; -- identify names "F3" lvfirstField "F4" lvsecField fields TRUE -- freeze 4clearing errors -- Get proper identified above -- just -- INDEXED SUMMARY index value section areaID lvAreaID AreaIndex( -- Re-create -- 1 -- -- test record outside loop because -- does later. within TAB -- PackagerID lvPass -- assume must have )least one fileExists passed If -- only zrest located -- IT & -- created o(124) -- )START = 1 -- cgeneral IT & "|" IT & "|" -- mark find -- finish Id doesn't match o(124) -- End If -- -- . LAST LINE | EOF 1 -- If IT ansiTochar(26) -- Break DO still = 2 -- found If IT -- fall thru keep going -- no Until False -- matches If y -- no "F1" lvPackName ^ "Sorry." & "No Information "Available :" & pushedTone lvTone -- tone -- that no has been stored enterPage StoreData enterPage CurrentData CurrentData CurrentData TempData\PackData.a Datafile\PackData.dat TempData\PackData.a FileThere Getting Destination Areas for: One Moment Please... StoreData CurrentData CurrentData CurrentData buttonDoubleClick CurrentData buttonDoubleClick lvTmpFile lvFileNam lvCurID svDataPath svFilePath StoreData FileThere Sorry. No Information is Available for Packager: pushedTone CurrentData lvTone lvPackName lvPass lvCur lvAreaID lvsecField lvfirstField lvCurID lvTmpFile lvFileNam 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svAreaID -- 2 RStateAbbrev + 2digit area code which may -- have a prefix eans only General info Trail -- a "#" means ;stats screen -- a "%" o load default ,file -- a "$" GALL data exists 4svAreaName -- 4svLimitedAccess -- 2 state within 4svDownState -- areaId limited access lvTemp -- see selected error message loading If 4 -- hourglass -- If A GROUP, AREA ID WILL CONTAIN "9x". -- Groups must be given a HasData \ # % $ but won't matter. "9x" -- The AREAS IN THE OVERVIEW AD FILE FIELD -- comma- vlist S ONLY. -- restricted If <> 1 -- ok " && IT lvTmp ", " & IT -- pushedTone lvTone 8 -- errorTone Put "I'm sorry, you are ]a LIMITED ACCESS version" &&\ product. Information available " &&\ IT & "." &\ CRLF & "For a FULL VERSION _," &&\ "please contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD update lvErrorText -- %indicated Ha "9x" If "9" -- 2 digits selectedTextLines "AreaNames" "Storage" GroupList -- build below -- let user End If -- areaID -- store initialize Until IT -- so can later -- stored -- -- prior -- "SortedMsg" If IT lvLine -- -- has total information arrange buttons on directory accordingly Conditions c"\" -- special -- Directory" "AreaList" "AVIWindow" "GenInfo" "TrailInfo" 3039,4740 4996,4740 c"$" -- 632,632 632,1580 -- either just Stats" so can't anywhere "use CTRL-RIGHT LEFT arrows disable navigation except going /ID 0) 1 -- 4 -- stay on pointers History AVI Ad Files IT -- .Ad Pointer "CurrentData" \ Story" -- Overview MUST MATCH passed -- areanames IT -- enter handler -- will playing 's avi ad keyEnter -- builds sub- ski areas 4svFilePath -- DOS path hardrive files + suffix -- "\" indicates that GENERAL INFO AND TRAIL a "#" '"TabIndex" -- Mwas sorted -- lvGrpNam -- -- delimeter between -- OverviewAdFile "HasAd" fieldType wordWrap -- so -- "Getting Ski Areas "One Moment Please..." TRUE -- freeze -- -- Now -- Strip duplicate abbrev DO -- -- lvCnt -- how many -- alphabetical order & "datafile\areas1. lvFName errors lvCurArea -- -- -- 1 -- each Ustarts . LAST LINE | EOF If IT ansiTochar(26) -- Break DO record matches 4 -- If IT -- -- Store lvState 0GeneralOvervAdFileCode HistoryAdFileCode 3 -- 9, HasDataCode, lvHasData o(126) -- IT & lvAreaID -- complete -- skip map reference 1 -- Tab -- 7Map lvName completed ) & TAB & If "$\" o(168) & "AllAds" >DO -- look F -- zabove -- ByBass MAY HAVE CRLFs IN OR HISTORY -- Downhill,NiteSki,Snowboard,X-Country,BaseElev,VertDrop,AreaSize fa | reading -- description be ignored EXCEPT FOR ONE BEFORE NEXT RECORD o(124) -- )START False -- "Letters" -- so singleSelect B"ShowAllAreas" -- so re-display 1 -- Click buttonDoubleClick keyUp GroupList buttonDoubleClick ***** the state of pushedTone I'm sorry, you are using a LIMITED ACCESS version of this product. Information is only available for For a FULL VERSION of this product, please contact Media Odyssey, Inc. at 1-800-99-SKI-CD for an update code. AreaNames Storage GroupList Area Directory AreaList Area Directory AVIWindow Area Directory GenInfo Area Directory TrailInfo Area Directory GenInfo Area Directory TrailInfo Area Directory Area Directory GenInfo Area Directory TrailInfo Area Directory Area Stats CurrentData Area Story CurrentData General Overview Area Directory lvErrorText lvTone lvTmp lvTemp svDownState svLimitedAccess svAreaName svAreaID keyUp buttonDoubleClick GroupList TabIndex AreaNames HasAd AreaNames AreaNames Getting Ski Areas in One Moment Please... AreaNames AreaNames datafile\areas1.dat AreaNames HasAd AllAds Letters AreaNames AreaNames AreaNames AreaNames AreaNames ShowAllAreas lvName lvAreaID lvHasData lvState lvCurArea lvFName lvCnt lvGrpNam svAreaID svFilePath lvTemp 4svAreaID -- 2 RStateAbbrev + 3digit area code which may -- have a prefix eans only General info Trail "#" means 9stats -- a "&" so load default /file -- a "$" JALL data exists Bgraphic -- see navigation options apply handler checks Bshould even be If c"\" -- gen trails "BasicList" "PopMenuList" -- All information "AllList" -- update list depending on state now "Choose Ski Areas : " && }location ( will be user pressed toggle -- lower ObjectFromPoint( popup cbased on x + 316 & "," & y lvWhere popMenu( ,sysMagnification, \ -- IT ITEM clicked on znothing If IT > 0 (IT) lvPage Conditions " -- returns areas current within Selected " -- blank -- valid uttonDown buttonUp buttonDown buttonDoubleClick buttonDown BasicList PopMenuList AllList PopMenuList Choose Ski Areas in: PopMenuList svAreaID buttonUp PopMenuList popMenu PopMenuList Choose Areas within the Selected State ----- lvPage lvWhere location buttonDoubleClick buttonUp location -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "EventsD" lvButName ,EventsN" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere -- INDEXED SUMMARY index value section areaID AreaIndex( lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- TAB lvthis If -- AreaCode/E/MerchCode lvAD -- -- Date, Phone, , CCCode 1 -- o(126) -- lvInfo -- TAB & -- extra Tab -- event short -- -- IT -- If IT o(168) & "HasAd" Else -- See finding = 1 -- End If -- -- ByBass MAY HAVE CRLFs IN DESCRIPTION -- Address,City, ,Zip,Atmosphere,Reservations,Hours,Description -- fa | reading -- description be ignored EXCEPT ONE BEFORE NEXT RECORD o(124) -- )START Until matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- mark s been -- write database cwriting -- <" extension original -- identify lvTmpDir d & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "D.dat" so don't waste If IT <> -- :" & -- -- information LoadText fields should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- , hours, etc "F3" lvField3 -- 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- 4phone TAB; lvDate lvPhone -- Tab; lvName lvCCCode -- Time, Place 2 -- ~ lvTime lvPlace -- Variables Fields ( done earlier) : " && : " && : " && : " && -- 2 -- ~ o(124) -- -- Credit Card -- know cards under o(124) -- Fno matching but never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp EventsD EventsD,EventsN CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere AreaIndex HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvInfo lvthis lvPassCnt lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ D.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Date: Time: Place: Phone: CurrentData ERROR! No Item Found! lvPlace lvTime lvCCCode lvName lvPhone lvDate lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "SkiServN" lvButName ,SkiServT" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere -- INDEXED SUMMARY index value section areaID AreaIndex( lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- TAB lvthis If -- AreaCode/F/MerchCode lvAD -- -- , Phone CCCode 1 -- lvName TAB; lvType lvPhone lvCCCode -- fields -- o(168) & "HasAd" Else -- See finding = 1 -- End If -- -- ByBass MAY HAVE CRLFs IN DESCRIPTION -- Address,City, ,Zip,Atmosphere,Reservations,Hours,Description -- fa | reading -- description be ignored EXCEPT ONE BEFORE NEXT RECORD o(124) -- )START Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- mark s been -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad ' (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svDataPath -- Hardrive 4svCDPath -- on CD-ROM on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. L PAGE lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- , hours, etc "F3" lvField3 -- 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- -- : " && IT : " && IT -- Street, 2 -- ~ lvStreet lvCity lvZip : " && IT lvHours -- Variables Fields ( done earlier) & "," && -- 2 -- ~ o(124) -- -- Credit Card -- know cards under o(124) -- Fno matching but never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp SkiServN SkiServN,SkiServT CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere AreaIndex HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvCCCode lvPhone lvType lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Type: Phone: Hours: CurrentData ERROR! No Item Found! lvHours lvZip lvState lvCity lvStreet lvCCCode lvPhone lvType lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "AirN" lvButName ,AirA" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on "GenInfo" lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ :"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere lvPassCnt -- record counter 1 -- each Ustarts -- O . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- o(126) -- TAB lvthis If -- AreaCode/F/MerchCode lvAD -- -- , Telephone, AirportServed, CCCode 1 -- lvName TAB; lvPhone lvAirport lvCCCode -- fields -- o(168) & "HasAd" -- FIRST RECORD IN AREA CONTAINS GENERAL INFO IN DESC 2 -- ~ 4desc o(124) -- )START general mark past Else End If -- -- Each fa | reading CRLFs -- description be ignored EXCEPT ONE BEFORE NEXT If <> 1 -- -- 0 found yet so searching o(124) -- Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- s been -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. PAGE lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- , hours, etc "F3" lvField3 -- Desc 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- -- -- Variables Fields ( done earlier) "Reservations: -- Description 2 -- ~ o(124) -- -- Credit Card -- know cards under o(124) -- Fno matching never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp AirN,AirA CurrentData svAreaId buttonUp GenInfo TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere HasAd GenInfo HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvCCCode lvAirport lvPhone lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Reservations: CurrentData ERROR! No Item Found! lvCCCode lvAirport lvPhone lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam Index -- need trap /handler keyEnter -- 0 other than Enterkey held down 4svAreaID -- 2 RStateAbbrev + 3digit area code which may -- have a prefix eans only General info Trail -- a "#" means ;stats screen -- a "%" o load default ,file -- a "$" GALL data exists 4svAreaName -- 4svLimitedAccess -- 2 state within 4svDownState -- areaId limited access -- If A GROUP, AREA ID WILL CONTAIN "9x". -- Groups must be given a HasData \ # % $ but won't matter. "9xx" -- The AREAS IN THE OVERVIEW AD FILE FIELD -- comma- vlist S ONLY. lvTemp something $ <> 4 -- hourglass "F2" lvString -- can locate Bbelow -- see restricted If <> 1 -- ok " && IT lvTmp ", " & IT -- pushedTone lvTone 8 -- errorTone Put "I'm sorry, you are ]a LIMITED ACCESS version" &&\ product. Information available " &&\ IT & "." &\ CRLF & "For a FULL VERSION _," &&\ "please contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD update lvErrorText -- %indicated Ha "9x" If "9" -- 2 digits GroupList -- build -- let user -- match returning -- areaID End If -- store later selectedTextLines "F3" -- initialize Until IT has total information arrange buttons on directory accordingly Conditions c"\" -- special -- Directory" "AreaList" "AVIWindow" "GenInfo" "TrailInfo" 3039,4740 4996,4740 c"$" -- 632,632 632,1580 -- either just / -- navigation n Stats" so can't anywhere } so "use CTRL-RIGHT LEFT arrows disable except going /ID 0) 1 -- 4 -- stay on pointers History AVI Ad Files IT -- .Ad Pointer "CurrentData" \ Story" IT -- Overview" hanged Ffree memory (maps, , etc.) "F1" "F1" whichever section currently viewing handlers those will should include found "F1" "Trails" Summary" lvPage "TrailsN" lvButName "Lifts" "LiftsN" "Lodges" "Lodging" "LodgeN" "Restaurants" "Food" "FoodN" "Merchants" "Shopping" "ShopN" "Skier" Services" "SkiServN" "Non-Skiing" Activities" "NSActivN" "Other" "OtherSvN" "Summer" /Fall "Special" "F1" "Events" Calendar" "EventsD" \ Values" "ValueID" GO TO PAGE If IT excluding textlineCount( lvCur selectedTextlines "Type" b(i-18,0) "HasAd" FALSE 4 -- done so look b(i-5,0) 4 -- -- no keyUp keyDown buttonDoubleClick keyDown keyUp buttonDoubleClick buttonDoubleClick the state of pushedTone I'm sorry, you are using a LIMITED ACCESS version of this product. Information is only available for For a FULL VERSION of this product, please contact Media Odyssey, Inc. at 1-800-99-SKI-CD for an update code. enterpage GroupList Area Directory AreaList Area Directory AVIWindow Area Directory GenInfo Area Directory TrailInfo Area Directory GenInfo Area Directory TrailInfo Area Directory Area Directory GenInfo Area Directory TrailInfo Area Directory enterbackground Area Stats CurrentData Area Story CurrentData General Overview General Overview Area Story enterbackground Trails Trails Summary TrailsN Lifts Lifts Summary LiftsN Lodges Lodging LodgeN Restaurants FoodN Merchants Shopping ShopN Skier Skier Services SkiServN Non-Skiing Non-Skiing Activities NSActivN Other Other Services OtherSvN Summer Summer/Fall Activities Summer Special Events Special Events Calendar EventsD Special Values ValueID Summer/Fall Activities HasAd HasAd lvCur lvButName lvPage lvErrorText lvTone lvTmp lvString lvTemp svDownState svLimitedAccess svAreaName svAreaID rveyA Date: Page: of 1 Page: ge: 1994-'95 SKIODYSSEY Worksheet -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so keyEnter 4svFilePath -- DOS path Hardrive files selectedTextLines "F3" lvLineNo "F3" lvFrom -- see data already showing "CurrentData" If IT = "Information Mdisplayed :" & CRLF &\ & "." lvPrompt pushedTone lvTone -- loading message "F4" Center "Getting Destination Area:" &\ "One Moment Please..." -- the appropriate temporary & "TempData\PackData.a" lvTmpFile o(124) -- | delimits -- IT now matching record -- "F4" "F4" FALSE -- yChar keyDown keyUp keyChar buttonDoubleClick keyDown keyChar keyUp buttonDoubleClick buttonDoubleClick CurrentData Information is already displayed for: pushedTone CurrentData Getting Information for Destination Area: One Moment Please... TempData\PackData.a lvTmpFile lvTone lvPrompt lvFrom lvLineNo svFilePath }location 4 -- hourglass "AreaNamesbyState" IF IT = -- load pdata lvFieldName "StateAds" lvAdField LoadList T must be there so see what current order "SortedMsg" lvPrevSort <> " -- now sorted If 5 <> "." -- trick display areas -- store previously selected U1 stores state selectedTextLines Put IT "Storage" fieldType wordWrap -- so can Omessage "HasAd" CRLF & "Sorting All Ski Areas HSTATE." & "One Moment Please..." FALSE -- -- scrollable list built during handler -- stored /fields avoid "PageFull" error -- 469 depending on -- (469 limit includes 30 "AreaNamesByState" -- match diamonds singleSelect -- need update because -- keyword xchanged If It b(IT-9,0) "currently" & H" & "Letters" -- letter index '"TabIndex" Else pushedTone lvTone "Data already -- reset False buttonUp buttonUp AreaNamesbyState AreaNamesbyState StateAds o\jLoadList SortedMsg State AreaNames Storage AreaNames AreaNames AreaNames HasAd Sorting All Ski Areas by STATE. One Moment Please... AreaNames AreaNamesByState AreaNames StateAds HasAd AreaNames AreaNames enterPage Storage AreaNames AreaNames HasAd AreaNames List is currently sorted STATE SortedMsg Letters TabIndex pushedTone Data is already sorted by State. enterPage lvTone lvPrevSort lvAdField lvFieldName location TRUE c"Text" -- previously requested find available "CurrentData" lvPrev ("Enter below Fclick OK" If IT y -- entered lvString r -- initialize excluding 3 locateOnly If xfound" lvFound If <> " "Find ..." "No" lvPrompt "End Notes reached. Search beginning f"&Yes" "&No" If It lvStart lvEnd ..." something -- IT fieldname,startchar,endchar -- see the notes lvFldName <> "F2" FALSE "No" -- was Next" DoubleClick buttonDoubleClick buttonUp buttonDoubleClick buttonUp x buttonUp CurrentData Enter text to search for below then click OK CurrentData not found CurrentData CurrentData Found Find Text... CurrentData not found. CurrentData End of Notes reached. Search from beginning again? buttonUp CurrentData Find Text... Found CurrentData CurrentData buttonUp CurrentData Find Next lvFldName lvEnd lvStart lvPrompt lvFound lvString lvPrev 4svDownLoad ; 4svDownState 4svLimitedAccess -- 2 3 means state area within Conditions "List All Downloaded Ski Areas" = 1 AND <> 1 data copied Fwill only include limited access areas Unrestriced the United States" "Title1" "Title2" FALSE "AreaNames" list stored -- Line selected prior Put "SortedMsg" If IT lvLine "Storage" IT -- stores previously If IT = selectedTextLines b(IT-9,0) "HasAd" -- see -- storage fields are on avoid "PageFull" error 469 lines ( ) including 30 "AreaNamesbyName" lvData "AreaNamesbyState" If y -- no file errors on reading initial order lvFieldName "NameAds" lvAdField LoadList -- trick thinking needs resort "STATE" B"SortbyName" files xalready done. -- takes 1/2 intial passed buttons identifies type 4svDataPath -- database CD-ROM) names -- Note: )a total each , 2-Tabs, -- 2-StateAbbrev, 5-AreaID/HasDataCode) plus B"ShowAllAreas" -- just showing user loading message fieldType wordWrap -- so can CRLF & "Constructing New ." & "One Moment Please..." singleSelect -- which If & "datafile\areas1. lvFName -- identified above -- there If fileExists( ) = 1 -- 4 -- hourglass "*ERROR*" lvButName -- Bclicked 7 <> " pushedTone lvTone 8 -- errorTone "ErrorGroup" / -- "FILE "Not Found! x be unable use the" && \ B." & "(Try Z other B.)" & features still functional I." &\ contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD further information." lvErrorText -- display B." & B.)" & I." \ DO 1 -- Ustarts . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- Store Abbreviation, AreaCode 7 -- areaID,TAB, *,Tab lvAreaID If "$\" o(168) & | -- 9between ID trailing lvState General Overview AdFileCode History o(126) -- TAB HistoryAd code lvGrpItems -- -- Discard Map reference 1 -- Tab -- lvName completed so can -- re-build resorted later -- ByPass MAY HAVE CRLFs IN OVERVIEW OR HISTORY record fa | description be ignored EXCEPT FOR -- BEFORE NEXT RECORD o(124) -- )START Until False -- / -- / -- enterPage LoadList enterPage List of All Downloaded Ski Areas List of All Unrestriced Access Ski Areas List of All Ski Areas in the United States Title1 Title2 AreaNames SortedMsg Storage AreaNames AreaNames AreaNames AreaNames HasAd AreaNames AreaNamesbyName AreaNamesbyState AreaNamesbyName NameAds o\jLoadList STATE SortedMsg buttonUp SortbyName lvAdField lvFieldName lvData lvLine svLimitedAccess svDownState svDownLoad LoadList ShowAllAreas Storage HasAd AreaNames AreaNames AreaNames AreaNames Constructing New Sort List of ALL Ski Areas. One Moment Please... AreaNames AreaNames AreaNames AreaNames AreaNamesbyName datafile\areas1.dat datafile\areas2.dat fileExists *ERROR* SortedMsg Sort by Area Name pushedTone ErrorGroup FILE ERROR! Not Found! You will be unable to use the button. (Try the other sort button.) All other features are still functional at this time. Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD for further information. AreaNames AreaNames ***** FILE ERROR ***** You will be unable to use the button. (Try the other sort button.) All other features are still functional at this time. AreaNames lvName lvGrpItems lvState lvAreaID lvErrorText lvTone lvButName lvFName svDataPath lvAdField lvFieldName -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 3digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "TrailsN" lvButName ,TrailsR,TrailsT,TrailsL,TrailsV" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- previously -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above fileThere -- INDEXED SUMMARY index value section read areaID AreaIndex( lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- TAB If IT -- Rating o(126) -- rating lvName ! -- -- , Length, Vertical o(124) -- )START lvType -- has Else -- finish Id doesn't match o(124) -- -- See finding = 1 -- End If -- Until -- -- matches If y -- no "Sorry. Information Available" & \ pushedTone lvTone -- tone -- mark s been -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." avePage enterPage leavePage StoreData leavePage enterPage Status TrailsN TrailsN,TrailsR,TrailsT,TrailsL,TrailsV CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status fileThere AreaIndex Sorry. No Trail Information Available Status pushedTone CurrentData TempData Status CurrentData svFilePath lvTmpDir lvTone lvType lvName lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName ClozAvi 8 -- just "AVIControls" 4svFilePath -- DOS path HD Files 4svDataPath -- database files (HD 4svAreaID -- 2 RStateAbbrev + 2digit area code -- which may contain the prefix "\" $indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" so load default -- a "$" FALL exists 4svAreaName "Travel HRoad " & CRLF & -- see currently loaded "CurrentData" If IT csvAreaId -- already Jso leave showing -- need rebuild TempData lvFileNam -- deletes -- qtemporary -- Identify main state Temporary & "Datafile\ .dat" lvTmpFile there FileThere loading message "Loading Information "One moment please..." \ "AVIWindow" -- update StoreData -- store category's subdirectory so can -- locate road map avi "RoadMaps" -- initialize "TravelFrom" appropriate Blist Conditions When IT = "F2" selectedTextLines "F2" "F2" "F2" -- trick so will re-display map "F2" "F2" "F2" -- re- now displayed so instructions "Select the" & Quote &\ "TRAVEL FROM" & S." & "Then click F "Show B" &\ travel "You also Double-Click" & "on automatically" & FALSE; he suffix "\" -- a "%" -- a "$" -- identify names "F2" lvfirstField "F3" lvsecField fields lvAreaID -- strip 8 = "Areas within Selected Q " -- TRUE -- faster freeze errors -- Get oper identified above -- Re-create -- 1 -- -- test record outside loop because -- does later. -- TAB -- areaID lvCur lvPass -- assume must have )least one fileExists passed If zrest located -- mark find -- FromName IT & -- created o(124) -- )START IT & "|" -- finish Id doesn't match o(124) -- End If -- -- . LAST LINE | EOF 1 -- If IT ansiTochar(26) -- Break DO still = 2 -- found If IT -- fall thru keep going -- no Until False -- matches If y -- no "Sorry. Available" & \ Category pushedTone lvTone -- tone -- has been stored avePage enterPage leavePage StoreData leavePage oTDClozAvi AVIControls enterPage Travel by Road to CurrentData svAreaId TempData\Road.a Datafile\Road.dat TempData\Road.a FileThere Loading Travel Information for One moment please... AVIWindow StoreData RoadMaps CurrentData CurrentData CurrentData CurrentData buttonDoubleClick CurrentData buttonDoubleClick Select an item from the TRAVEL FROM list at the top left. Then click the Show Info button to display travel instructions and a road map. You may also just Double-Click on an item from the TRAVEL FROM to select it and automatically display the travel instructions and the road map. AVIWindow lvTmpFile lvFileNam svAreaName svAreaID svDataPath svFilePath StoreData Areas within the Selected State FileThere Sorry. No Information Available in this Category for AVIWindow pushedTone CurrentData CurrentData lvTone svAreaName lvPass lvCur lvAreaID lvsecField lvfirstField svAreaID lvTmpFile lvFileNam -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "ShopN" lvButName ,ShopT" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere -- INDEXED SUMMARY index value section areaID AreaIndex( lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- TAB lvthis If -- AreaCode/F/MerchCode lvAD -- -- , Phone CCCode 1 -- lvName TAB; lvType lvPhone lvCCCode -- fields -- o(168) & "HasAd" Else -- See finding = 1 -- End If -- -- ByBass MAY HAVE CRLFs IN DESCRIPTION -- Address,City, ,Zip,Atmosphere,Reservations,Hours,Description -- fa | reading -- description be ignored EXCEPT ONE BEFORE NEXT RECORD o(124) -- )START Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- mark s been -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad ( (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. S PAGE lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- , hours, etc "F3" lvField3 -- 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- -- : " && IT : " && IT -- Street, 2 -- ~ lvStreet lvCity lvZip : " && IT lvHours -- Variables Fields ( done earlier) & "," && -- 2 -- ~ o(124) -- -- Credit Card -- know cards under o(124) -- Fno matching but never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp ShopN ShopN,ShopT CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere AreaIndex HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvCCCode lvPhone lvType lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Type: Phone: Hours: CurrentData ERROR! No Item Found! lvHours lvZip lvState lvCity lvStreet lvCCCode lvPhone lvType lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam Bgraphic }location 4svAreaID -- 2 RStateAbbrev + 3digit area code which may -- have a prefix eans only General info Trail "#" means 9stats -- a "&" so load default -file -- a "$" HALL data exists -- update list depending on state now "Choose Ski : " && lvPrompt will be user pressed toggle -- lower ObjectFromPoint( popup cbased on x + 316 & "," & y lvWhere popMenu( ,sysMagnification, \ -- IT ITEM clicked on znothing If IT > 0 "Areas within Selected uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Choose Ski Area in: popMenu Areas within the Selected State lvWhere lvPrompt svAreaID location buttonDoubleClick buttonUp location 4svFrameCnt -- length avi file controls handler H = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") IF IT = -- on Jframe tbkMCIchk("seek AVIFile 0","",1) -- " && IT-1,"",1) ","") IF IT >= -1 -- on "FrameCount" 0","",1) -- IT+2 " && IT+1,"",1) 20 -- so xtoo " && ,"",1) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to 0 tbkMCIchk seek AVIFile to tbkMCIchk status AVIfile position tbkMCI FrameCount seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to tbkMCIchk FrameCount yieldApp svFrameCnt buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName }location keyEnter 4svScrolled 4svFilePath -- DOS path files on HD ObjectFromPoint( maintains status "RIndex" "Personal Prefs" lvInfo -- defaults stored T2 through 45 serial & "ski-cd.sn" lvFName If fileExists( ) = 1 -- the there code data on CD If "01" ck -- only 1 0 are valid states -- bad -- If IT FALSE -- update handler Click buttonDoubleClick keyUp buttonUp buttonDoubleClick buttonUp location keyUp buttonUp location buttonUp RIndex Personal Prefs ski-cd.sn fileExists RIndex Personal Prefs RIndex Personal Prefs RIndex Personal Prefs Personal Prefs Personal Prefs lvFName lvInfo svFilePath svScrolled location -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so keyEnter 4svFilePath -- DOS path Hardrive files 4svCDPath -- on CD-ROM 4svAreaName -- current area selectedTextLines "F2" lvLineNo "F2" lvFrom -- see data already showing "CurrentData" If IT = "Information Mdisplayed travel " &&\ && " " && & "." lvPrompt pushedTone lvTone -- loading message CRLF & "Loading Travel " & "One moment please..." \ "AVIWindow" -- the appropriate temporary & "TempData\Road.a" lvTmpFile o(124) -- | delimits -- IT now matching record -- "TravelFrom" list lvMapFile FALSE -- RoadMap AVI i <> "X" Complete." &\ "Now Searching Video ." &\ -- build on Cd-Rom lvState lvSubDir & "\" & 5 & "\" & svAdFile playing road map clozAVI 8 -- just Mwas a loadAdFile vailable." \ yChar keyDown keyUp keyChar buttonDoubleClick keyDown keyChar keyUp buttonDoubleClick buttonDoubleClick CurrentData Information is already displayed for travel from pushedTone CurrentData Loading Travel Information from to One moment please... AVIWindow AVIWindow TempData\Road.a Text Information Complete. Now Searching for Video Road Map. One moment please... AVIWindow AVIWindow CurrentData CurrentData oTDclozAVI loadAdFile No Road Map Available. AVIWindow svAdFile lvSubDir lvState lvMapFile lvTmpFile lvTone lvPrompt lvFrom lvLineNo svAreaName svCDPath svFilePath }location keyEnter 4svFilePath -- DOS path harddrive files -- need write defaults ObjectFromPoint( maintains status "RIndex" lvInfo mstored T2 through 45 serial & "ski-cd.sn" lvFName If fileExists( ) = 1 -- the there -- NOTE: CD/HD code lvChk "TRUE" Rj+1 Rj+1 -- now pushedTone lvErrorTone Can't disk." Click buttonDoubleClick keyUp buttonUp buttonDoubleClick buttonUp location keyUp buttonUp location buttonUp RIndex ski-cd.sn fileExists pushedTone File Error! Can't save defaults to disk. lvErrorTone lvChk lvFName lvInfo svFilePath location keyEnter location ObjectFromPoint( 4svDataPath 4svPPNData -- stores match data TRUE -- freeze k& "Searching ." &\ k&"One moment please..." "Status" FALSE -- reveal 4 -- just Merror can't find file later -- initiallize "TempData" "Cover Page" -- See e limit fAreaID code lvStopCode -- initialize -- checks lodging mean only areas fa "$" need read Step i Bi = " B"38" IT -- 38 CHILDCARE BUTTON IF yAND IT Non-Skiing Activities, Type -- Services (EXCEPT fa "\" past the "\" Bi = " "$\" End -- see can work memory -- use a storing pass matches -- (349 have intermediate rating fno pref other buttons) -- = 0 temp "$\# 0" clude ALL less will -- Check Region Buttons lvRegion If Bi = " "RIndex" \ H -- build accronym If pushedTone lvTone "You xselected a region. Do you want" &&\ "me every ski United States" &&\ your selections?" lvPrompt f"&OK" "&Cancel" If IT ll regions ADIO GROUPS Terrain, Summit, Vertical, Size B14 = +18 = (22 = &26 = lvRadioID -- If "14 18 22 26" -- skip no If IT = " XSki Types If IT = " -- now let's would yield EVERY B"38" IT -- childcare If c"0" "False" -- no , services, skitype If "EASMRP" -- y -- radio | No Preference no SkiTypes "The PPN chosen " &&\ ." &\ CRLF & "What ou like f"&Change ySettings" "&View Areas U.S." If IT "List -- If no Fforce B14 "No IF -- handler below gtwo -- No XLodging, Rate, activities, AreaType BIDs. vare Zthan ^does include SECOND criteria lvCheckBoxes -- If IT = " zCheckRadio got anything on FIRST If found." &&\ "Select additional options F" &&\ "click Y && & "OK" & Else -- Got something so ONLY needed )least Xbox zCheckBox F" &&\ & "OK" & -- Must here so -- If was stored ^transfer storage . If already transferred so y -- "Matches" selectedTextLines B"Reset" -- This DataCode, Regions, Xboxes puts matching either a a temporary -- If Fdon't ^WILL BE PPN.dat -- NOTE: assume that no more 135 out 4getting . Word 2 value were looking lvButCnt lvChkList; lvMstrList lvValue 1 means "Y" If "78910" lvLast -- Locate main ALWAYS & "DataFile\ lvFileNam FileThere Put -- Now -- must Bnames 118 -- length record -- If IT = BREAK DO -- reading -- lvFound lvStart -- no equal 0 If ' = 0 -- mark lvEnd = 1 feet acreas = 1 "YN" If -- 0 -- no If -- 0 -- no <> 0 -- -- Setup Display Field user necessary -- datacode V115 -- V113 -- state abbrev -- Truncated -- -- write END IF -- -- Until trailing -- LF -- CR runs ^has returned lvCheckButtons -- which lodge If IT = " If IT = " locations Locations MUST REFERENCE TRUNCATED DATA NOT THE ORIGINAL -- define based on rate a "Y" contained their -- ( be built correct order (lowest highest lvCriteria -- If IT = " lplaceholder -- Fcreate a -- ANY RATES If "1234" If textlineCount( lvRecCount lvTmp -- finds STEP j -- -- (66 Vremaining per + CR + LF) = 1 -- -- Xeach ) > 1 lvTmp2 lvTmp3 Conditions = 0 -- ignore -- 0 a "Y" -- 0 <> 0 -- -- whichever being used now -- no DoubleClick keyUp buttonUp zCheckRadio buttonDoubleClick zCheckBox buttonDoubleClick buttonUp keyUp buttonUp location buttonUp Searching records. One moment please... Status Status Status TempData Cover Page FALSE $\# 0 RIndex pushedTone You have not selected a region. Do you want me to search every ski area in the United States for matches to your selections? &Cancel Cancel RIndex 14 18 22 26 False EASMRP pushedTone The PPN selections you have chosen would yield a match on EVERY ski area in the United States. What would you like to do? &Change PPN Settings &View ALL Ski Areas in U.S. Change List of All Ski Areas zCheckRadio TempData Cover Page pushedTone No matches found. Select new and/or additional options and then click the button again. zCheckBox TempData Cover Page pushedTone No matches found. Select new and/or additional options and then click the button again. Matches Matches TempData Cover Page TempData Cover Page Matches Matches Matches Matches Reset Matches lvCheckBoxes lvRadioID lvPrompt lvTone lvRegion lvStopCode svPPNData svDataPath location zCheckRadio 78910 RIndex DataFile\PPN.dat FileThere TempData Cover Page TempData Cover Page TempData Cover Page i:by1 lvChk lvEnd lvStart i:to1 lvFound lvFileNam lvLast lvValue lvMstrList lvChkList lvButCnt svPPNData svDataPath lvCheckBoxes lvRegion lvStopCode lvRadioID zCheckBox RIndex RIndex TempData Cover Page TempData Cover Page TempData Cover Page TempData Cover Page lvTmp3 lvTmp2 k:to2 lvChk lvEnd lvStart i:to1 lvFound lvTmp lvRecCount lvCriteria lvLast lvMstrList lvChkList lvButCnt lvCheckButtons svPPNData lvCheckBoxes 4svFilePath -- DOS path HD Files 4svDataPath -- database files (HD CD-ROM) -- see & yet "CurrentData" If IT CRLF & "Photo" Vwhich index currently loaded lvCurID If IT = -- already Tso leave showing -- store the -- need rebuild TempData \" & & ".a" lvFileNam -- deletes -- qtemporary -- Identify main state Temporary & "Datafile\" & & ".txt" \" & & ".a" lvTmpFile there FileThere loading message && "Index" "F3" Center "Building" && && " I."&\ "One Moment Please..." -- update qarea StoreData -- initialize "Item" appropriate Description list Conditions When IT = "F2" selectedTextLines "F2" "F2" "F2" -- trick so will re-display description "F2" "F2" "F3" Left FALSE; -- identify names "F2" lvfirstField -- "F3" lvsecField -- descriptions fields TRUE -- freeze 4clearing -- Update headings If = "Help" Topics:" # On:" "Ski Area:" "Photos In:" errors -- Get proper identified above -- just -- Re-create -- -- . LAST LINE | EOF 1 -- Jrecord If IT ansiTochar(26) -- Break DO -- IT & -- rest created 4Do loop o(124) -- )START IT & "|" Until False -- enterPage StoreData enterPage CurrentData Photo CurrentData CurrentData CurrentData CurrentData TempData\ Datafile\ TempData\ FileThere Index Building Index. One Moment Please... StoreData CurrentData CurrentData CurrentData buttonDoubleClick CurrentData buttonDoubleClick lvTmpFile lvFileNam lvCurID svDataPath svFilePath StoreData Help Topics: Help On: Ski Area: Photos In: FileThere lvsecField lvfirstField lvCurID lvTmpFile lvFileNam 4svAreaID -- see current state equals previously loaded lvStateName "TitleBox" IT -- 2 <> IT AND -- Build the list ski areas handler below FALSE -- so can loading message BuildList If svAreaId = '"StateMap" -- "AreaNames" 3 -- just hidden "HasAd" -- Put IT -- stores selected If IT = selectedTextLines b(IT-6,0) -- user ALL AREAS LIST If enterPage enterPage TitleBox BuildList svAreaId StateMap AreaNames AreaNames AreaNames TitleBox HasAd AreaNames TitleBox AreaNames AreaNames AreaNames AreaNames enterfield AreaNames AreaNames TitleBox HasAd BuildList lvStateName svAreaID 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svDataPath -- database files (HD CD-ROM) 4svAreaID xread "F2" If It "Uh" -- need -- tell user coming 4 -- hourglass "F2" Put CRLF & "Loading Media Odyssey Files." &\ + "One Moment Please..."\ TRUE -- freeze & "Datafile\About.txt" lvFName If fileExists( ) = 1 -- there 3 -- just ansiTochar(26) -- EOF "F2" Uh Oh!" &\ "Can't find "F2" FALSE -- playing media odyssey about avi loadAreaAd below -- close AVI clozavi "AVIWindow" -- lvAreaID area may have PREFIX -- indicating that ONLY General info TRail available 4svCDPath -- DOS path on CD-ROM 4svFrameCnt -- length controls handler 4svDownLoad -- will be 2 downloaded stop error display & "AreaInfo\_About.AVI" tbkMCI("Close ALL","") -- ad still -- see IF ) = 1 -- "AVIControls" -- player tbkMCIchk(" " && && "style popup" && \ "alias AVIFile " && 8,"","","") frames","","") winName }status AVIfile ","","","") -- determine main lvX; + 157 + 50 MoveWindow( f,320,240,1) state w","") "FrameCount" ","") -- total updated "& IT & " Images" "TLFrames" store -- don't let ereceive mouse messages translateWindowMessage 4257 noSponsAdTouch 8 -- 257 -- 4513 8 -- 513 LbuttonDown -- 4514 8 -- 514 LbuttonUp -- reset work stops tbkMMNotify ELSE -- xvalid <> 2 pushedTone lvTone 8 -- errorTone FILE ERROR! Cannot ' : " &&\ contact , Inc. )"&&\ "1-800-99-SKI-CD." lvErrorText END IF 1 -- terPage leavePage enterPage loadAreaAd enterPage Loading Media Odyssey Files. One Moment Please... Datafile\About.txt fileExists Uh Oh! Can't find the About Media Odyssey file. loadAreaAd lvFName svAreaID svDataPath leavePage oTDclozavi AVIWindow loadAreaAd AreaInfo\_About.AVI Close ALL tbkMCI fileExists AVIControls style popup alias AVIFile parent tbkMCIchk set AVIFile time format frames tbkMCIchk status AVIfile window handle tbkMCIchk MoveWindow window AVIfile state normal tbkMCIchk FrameCount status AVIfile length tbkMCI Images TLFrames noSponsAdTouch play AVIfile this book tbkMCIchk AVIControls pushedTone FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. lvErrorText lvTone winName lvFName svDownLoad svFrameCnt svCDPath 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName }location 4 -- hourglass "AreaNamesbyName" IF IT = -- load pdata lvFieldName "NameAds" lvAdField LoadList S must be there so see what current order "SortedMsg" lvPrevSort <> " -- now sorted Hstate If 6 <> "." -- trick display areas -- store previously selected U1 stores selectedTextLines Put IT "Storage" fieldType wordWrap -- so can Omessage CRLF & "Sorting All Ski Areas HAREA NAME." & "One Moment Please..." FALSE -- -- scrollable list built during handler -- stored /fields avoid "PageFull" error -- 469 depending on the -- (469 limit includes 30 "AreaNamesByNAME" -- match _diamonds "HasAd" singleSelect -- need update because -- keyword xchanged If It b(IT-9,0) "currently" & H" & "Letters" -- letter index '"TabIndex" Else pushedTone lvTone "Data already -- reset False buttonUp buttonUp AreaNamesbyName AreaNamesbyName NameAds o\jLoadList SortedMsg AreaNames Storage AreaNames AreaNames AreaNames Sorting All Ski Areas by AREA NAME. One Moment Please... AreaNames AreaNamesByNAME AreaNames NameAds HasAd AreaNames AreaNames enterPage Storage AreaNames AreaNames HasAd AreaNames List is currently sorted SortedMsg Letters TabIndex pushedTone Data is already sorted by Area Name. enterPage lvTone lvPrevSort lvAdField lvFieldName location 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName List of All Ski Areas 8LELELE{ Title2 List of All Ski Areas in the United Statesreas Title1 List of All Ski Areas in the United Statesreas HasAd SortedMsg List is currently sorted NAMEER*roup zAMEEzAME zroup AreaNames SortbyName Sort by Area Name SortbyState Sort by State Double-Click on an area or select an area and press [ENTER] for more information. ShowAllAreas Put "SortedMsg" If IT "Name" lvLine -- recall which area was selected list built "Storage" trigger buttons c"NAME" B"SortbyName" B"SortbyState" buttonUp buttonUp SortedMsg Storage Storage SortedMsg SortedMsg buttonUp SortbyName buttonUp SortbyState lvLine Re-Display List of ALL SKI AREAS Double-Click on an area or select an area and press [ENTER] for more information. Letters "AreaNames" buttonUp buttonUp AreaNames KkeyDown "AreaNames" selectedTextLines lvCurLine IF ("B")) ("A")) ("B")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine IF ("D")) ("C")) ("D")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine IF ("F")) ("E")) ("F")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine IF ("H")) ("G")) ("H")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine ("J")) If ("K")) ("L")) ("K")) If ("L")) ("I")) ("L")) If ("I")) ("J")) ("I")) If ("J")) ("K")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar AreaNames 5keyChar AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine ("M")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine IF ("O")) ("N")) ("O")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine IF ("Q")) ("P")) ("Q")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine IF ("S")) ("R")) ("S")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine IF ("U")) ("T")) ("U")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine IF ("W")) ("V")) ("W")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine "AreaNames" selectedTextLines lvCurLine ("Y")) If ("Z")) ("X")) If ("Z")) ("X")) If ("Y")) ("Z")) If lvTone -- so just ding pushedTone buttonUp buttonUp AreaNames AreaNames 5keyChar AreaNames 5keyChar 5keyChar AreaNames 5keyChar 5keyChar AreaNames 5keyChar AreaNames 5keyChar AreaNames pushedTone lvTone lvCurLine Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Personal Prefs" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Personal Prefs location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii 43:PHYSSIZE 7:PHYSSIZE NameAds StateAds Storage TabIndex $=:PHYSSIZE Personal Prefs #`$r& / B"Reset" matches were found." keyEnter tonUp buttonDoubleClick buttonUp keyUp buttonUp Matches Matches Reset Matches No previous matches were found. location buttonDoubleClick buttonUp location keyUp buttonUp Prior Matches Regions: 4svScrolled -- used update choices "TRUE" "FALSE" buttonUp buttonUp FALSE svScrolled New England 4svScrolled -- used update choices "TRUE" "FALSE" buttonUp buttonUp FALSE svScrolled Mid-Atlantic 4svScrolled -- used update choices "TRUE" "FALSE" buttonUp buttonUp FALSE svScrolled South 4svScrolled -- used update choices "TRUE" "FALSE" buttonUp buttonUp FALSE svScrolled Midwest 4svScrolled -- used update choices "TRUE" "FALSE" buttonUp buttonUp FALSE svScrolled Rockies 4svScrolled -- used update choices "TRUE" "FALSE" buttonUp buttonUp FALSE svScrolled SelectAllRegions }location 4svScrolled -- used update choices ObjectFromPoint( If " -- 2 spaces -- 3 "TRUE" lvState -- 3 "FALSE" radio values keyEnter tonUp buttonDoubleClick buttonUp keyUp buttonUp FALSE FALSE lvState svScrolled location buttonDoubleClick buttonUp keyUp buttonUp location }location ObjectFromPoint( B"SelectAllRegions" buttonUp buttonDoubleClick buttonUp buttonUp SelectAllRegions location buttonDoubleClick buttonUp Select/Clear Allll Ski Type: SelectAllTypes }location ObjectFromPoint( If " -- 2 spaces -- 3 "TRUE" lvState -- 3 "FALSE" keyEnter tonUp buttonDoubleClick buttonUp keyUp buttonUp FALSE lvState location buttonDoubleClick buttonUp keyUp buttonUp location Downhill X-Country Snowboarding Night Skiing Terrain:: FALSE buttonUp buttonUp Beginner 30 Intermediate 30 Advanced 30 No Preference Summit::: FALSE buttonUp buttonUp Over 12000 ft. Over 9000 ft. Over 6000 ft. No Preference Vertical: FALSE buttonUp buttonUp Over 3000 ft. Over 2000 ft. Over 1000 ft. No Preference Area Size: FALSE buttonUp buttonUp Over 2500 acres Over 1500 acres Over 500 acres No Preference Lodging:: SelectAllLodging }location ObjectFromPoint( If " -- 2 spaces -- 3 "TRUE" lvState -- 3 "FALSE" keyEnter tonUp buttonDoubleClick buttonUp keyUp buttonUp FALSE lvState location buttonDoubleClick buttonUp keyUp buttonUp location Hotel Lodge Condo Lodging Rates: Motel SelectAllRates }location ObjectFromPoint( If " -- 2 spaces -- 3 "TRUE" lvState -- 3 "FALSE" keyEnter tonUp buttonDoubleClick buttonUp keyUp buttonUp FALSE lvState location buttonDoubleClick buttonUp keyUp buttonUp location Services: SelectAllServices }location ObjectFromPoint( If " -- 2 spaces -- 3 "TRUE" lvState -- 3 "FALSE" keyEnter tonUp buttonDoubleClick buttonUp keyUp buttonUp FALSE lvState location buttonDoubleClick buttonUp keyUp buttonUp location Ski School Rentals Childcare Non-Skiing Activities: Hospital Challenge Prg. SelectAllActivities }location ObjectFromPoint( If " -- 2 spaces -- 3 "TRUE" lvState -- 3 "FALSE" keyEnter tonUp buttonDoubleClick buttonUp keyUp buttonUp FALSE lvState location buttonDoubleClick buttonUp keyUp buttonUp location Shopping Nightlife Type of Area: Cultural Family-Oriented Set As Default }location keyEnter 4svScrolled ObjectFromPoint( -- skip radio buttons 11 "TRUE" -- update choices Click buttonDoubleClick keyUp buttonUp buttonDoubleClick buttonUp location keyUp buttonUp location buttonUp svScrolled location Clear All RecallDefault Recall Default Matches Reset }location ObjectFromPoint( "Matches" keyEnter tonUp buttonDoubleClick buttonUp keyUp buttonUp Matches location buttonDoubleClick buttonUp location keyUp buttonUp Hide Match List and Show Personal Preferences Status Searching records. One moment please...oubleClick to self to handle buttonDoubleClick system svAreaName system svAreaID -- just state abbrev in this handler system svDataPath -- Path to database files (HD or CD-ROM) system svCDPath -- path to CD Files set sysCursor to 4 -- hourglass put selectedText into svAreaName pop chars 32 to 33 of svAreaName into svAreaID -- remove extra spaces in name pop char 31 of svAreaName into IT -- tab put " " into IT pop last char of svAreaName into IT Until IT <> " " pop IT after svAreaName put svAreaName; beep 3; break to system ------------- ------------- -- store current state put svAreaID into textline 2 of text of field "TitleBox" of page "Areas within the Selected State" put null into textline 3 of text of field "TitleBox" of page "Areas within the Selected State" -- selected line set sysSuspend to FALSE -- stop error display if no previous map set sysSuspendMessages to TRUE -- don't send enterPage go to page "Areas within the Selected State" hide button "ShowAllAreas" -- just in case was showing show field "AreaNames" of page "Areas within the Selected State" show field "HasAd" of page "Areas within the Selected State" show field "TitleBox" of page "Areas within the Selected State" put "Ski Areas in" && svAreaID & ":" into textline 1 of text of field "TitleBox" clear paintObject "Map" -- previous map if any -- show loading message put null into text of field "HasAd" set scroll of field "AreaNames" to 0 set selectedTextLines of field "AreaNames" to null put CRLF & CRLF & CRLF & \ " Loading Ski Areas in state: " && svAreaID &\ CRLF & CRLF & " One Moment Please..." \ into text of field "AreaNames" -- Group Names will have an areaId of "9x" -- Areas with ALL information will be PRECEEDED by a "$" -- Areas with only GENERAL and TRAIL INFO will be PRECEEDED -- by a "\" -- Areas with only STATS and Weather will be PRECEEDED by a "#" -- Areas with NO INFORMATION will be PRECEEDED by a "%" -- Get all matching states from the SORT BY STATE main data file put svDataPath & "Datafile\Areas2.dat" into lvFileNam -- see if file is there If fileExists(lvFileNam) <> 1 -- no file there send pushedTone lvTone to this book -- errorTone put null into text of field "AreaNames" hide field "AreaNames" -- don't show if no areas hide field "HasAd" -- don't show if no areas hide field "TitleBox" -- don't show if no areas hide field "AreaNames" of page "Areas within the Selected State" hide field "HasAd" of page "Areas within the Selected State" hide field "TitleBox" of page "Areas within the Selected State" set sysCursor to 1 -- normal Put "FILE ERROR! Cannot find file: " &&\ quote & lvFileNam & quote & CRLF & CRLF &&\ "Please contact Media Odyssey, Inc. at"&&\ "1-800-99-SKI-CD." into lvErrorText request lvErrorText send back -- go back to whatever page came from break to system end if put null into text of field "AllList" -- initialize put null into text of field "AllAds" set sysSuspend to TRUE -- show errors put null into sysError closeFile lvFileNam -- just in case openFile lvFileNam -- INDEXED FILE -- get the index value for this section and read the file -- to the last character before the " of the selected areaID put svAreaID & "??" into lvAreaID -- needs 4 chars put AreaIndex(lvAreaID,lvFileNam) put 0 into lvPassCnt -- initialize for when area is first found DO readFile lvFileNam for 1 -- each line starts with |" -- see if end of file. LAST LINE is | EOF If IT is ansiTochar(26) -- EOF Break DO end -- see if record is within this state readFile lvFileNam to ansiToChar(126) -- TAB and ~ just after HistoryAd code pop chars 1 to 4 of IT into lvthis -- COxx If lvthis contains svAreaID -- only do rest if in this state put 1 into lvPassCnt -- found first state -- Store first part of matching record and append next section to it clear char 1 of IT -- tab pop char 1 of IT after lvthis -- "$" put IT into lvAreaInfo put ansiToChar(126) before lvAreaInfo -- ~ is delimeter put lvthis after lvAreaInfo -- see if area has information put last char of lvAreaInfo into lvAd If "$\" contains last char of lvAd put ansiToChar(168) & CRLF after text of field "AllAds" else put CRLF after text of field "AllAds" end -- The Map Reference Number and the Area Name readfile lvFileNam for 1 -- the tab readFile lvFileNam to Tab -- Map reference put IT & Tab into lvName readFile lvFileNam to Tab -- Area Name put IT after lvName -- store the complete list in hidden field so can -- re-build list if a group is selected put lvName & TAB & TAB & TAB & TAB & TAB & TAB & TAB &\ lvAreaInfo & CRLF after text of field "AllList" Else -- See if out of state after finding the first record If lvPassCnt = 1 -- out of current area after finding first one break DO end End If -- do above only if in current area -- ByBass the rest of the file MAY HAVE CRLFs IN OVERVIEW OR HISTORY -- Overview,History each record starts with a | reading to | means -- all CRLFs in description will be ignored EXCEPT FOR LAST -- ONE BEFORE NEXT RECORD readFile lvFileNam to ansiToChar(124) -- the | at START of record put null into IT Until False -- end of file checked above closeFile lvFileNam clear last char of text of field "AllList" -- CRLF -- see if we got something put text of field "AllList" into IT If It is null send pushedTone lvTone to this book -- errorTone put null into text of field "AreaNames" hide field "AreaNames" -- don't show if no areas hide field "TitleBox" -- don't show if no areas hide field "HasAd" hide field "AreaNames" of page "Areas within the Selected State" hide field "TitleBox" of page "Areas within the Selected State" hide field "HasAd" of page "Areas within the Selected State" set sysCursor to 1 -- normal Put "Unable to locate any ski areas in state:" &&\ quote && svAreaID && quote & CRLF & CRLF &&\ "Please contact Media Odyssey, Inc. at"&&\ "1-800-99-SKI-CD." into lvErrorText request lvErrorText send back -- go back to whatever page came from break to system end if -- display scroll list after store complete list so can get -- back to if need to after showing areas within a GROUP put text of field "AllList" into text of field "AreaNames" put text of field "AllAds" into text of field "HasAd" -- display the state's map graphic put svCDPath & "StateMap\" & svAreaID & ".bmp" into lvFileNam set sysLockScreen to TRUE -- freeze -- see if graphic file is there If fileExists(lvFileNam) = 1 -- the file is there importGraphic lvFileNam set the name of selection to "Map" set the drawDirect of selection to FALSE set lineStyle of selection to 0 else send pushedTone lvTone to this book -- errorTone Put "FILE ERROR! Cannot find file: " &&\ quote & lvFileNam & quote & CRLF & CRLF &&\ "Please contact Media Odyssey, Inc. at"&&\ "1-800-99-SKI-CD." into lvErrorText request lvErrorText end if set sysSuspend to TRUE -- normal set sysSuspendMessages to FALSE -- DO send enterPage set selectedTextLines of field "AreaNames" to 1 send enterPage to this page -- show built scroll list set sysLockScreen to False -- normal set sysCursor to 1 -- normal asure diamonds are aligned If IT = 9 IT = 10 -- only on area list (p.9 p.10) "HasAd" "AreaNames" PPN update "SKIODYSSEY Interactive Annual" "F1" "General Overview" "F1" Story" -- display the popUpMenu user a Region 5ski areas AreaPopList lvPopBut cbased on {'s location B"PopMenuArrow" x + 316 & "," & y lvWhere popMenu( ,sysMagnification, \ "PopMenuList" -- IT now ITEM -- which corresponds state wants -- The , abbreviations file names \ IDs contained a duplicate -- " begins each x code actually selected information that IF IT = 1 -- ALL SKI AREAS Ski Areas" IF IT > 1 -- will equal 0 nothing -- "StateAbbrevs" lvStateName -- Build handler below BuildList once have proper identified either a click -- on region Within Selected 4svAreaID -- just 4svDataPath -- database files (HD CD-ROM) 4svCDPath -- path CD Files 4svFilePath -- download 4svDownLoad -- 2 4svDownState -- stores downloaded & areaID 4 -- hourglass B current "TitleBox" within " -- FALSE -- stop error map sysSuspendMessages TRUE -- don't B"ShowAllAreas" -- Mwas showing " && & ":" '"StateMap" -- loading message selectedTextLines CRLF & Loading : " && One Moment Please..." \ -- Group areaId -- be PRECEEDED Ha "$" -- GENERAL TRAIL INFO -- Ha "\" -- D STATS Weather Ha "#" -- fNO INFORMATION Ha "%" -- Get matching states SORT BY STATE main & "Datafile\Areas2.dat" lvFileNam -- there If fileExists( 5) <> 1 -- no pushedTone lvTone 8 -- errorTone 1 -- Put "FILE ERROR! Cannot find : " &&\ contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD." lvErrorText . -- whatever came "AllList" -- initialize "AllAds" errors -- INDEXED -- index value section read -- & "??" lvAreaID -- needs 4 AreaIndex( lvPassCnt -- found DO 1 -- Ustarts . LAST LINE | EOF If IT ansiTochar(26) -- Break DO record o(126) -- TAB HistoryAd lvthis -- COxx zrest -- Store part append -- "$" lvAreaInfo o(126) -- ~ delimeter If "$\" o(168) & Map Reference Number 1 -- Tab -- Ereference IT & lvName complete hidden so can -- re-build -- See finding = 1 -- End If -- zabove -- ByBass MAY HAVE CRLFs IN OVERVIEW OR HISTORY fa | reading | means description be ignored EXCEPT FOR -- ONE BEFORE NEXT RECORD o(124) -- )START IT Until False -- -- we got something If It 8 -- 1 -- & ", " & IT This a DOWNLOADED LIMITED ACCESS version ." &\ k& "Information available " && IT & "." & "For a FULL VERSION product, please ey, " &&\ )1-800-99- Unable locate :" &&\ ey, )"&&\ "1-800-99- . -- -- so can -- a GROUP -- graphic If <> 2 \" & & ".bmp" \" & & ". freeze -- ) = 1 -- importGraphic drawDirect Download Version ." &\ "Only Colorado " &&\ requirements." : " &&\ )" &&\ "1-800-99- 8 -- built 1 -- ckground enterBackground AreaPopList BuildList HasAd AreaNames enterBackground SKIODYSSEY Interactive Annual General Overview Area Story AreaPopList PopMenuArrow PopMenuArrow PopMenuList popMenu List of All Ski Areas StateAbbrevs BuildList lvStateName lvWhere lvPopBut F N"BuildList TitleBox Areas within the Selected State TitleBox Areas within the Selected State Areas within the Selected State ShowAllAreas AreaNames Areas within the Selected State HasAd Areas within the Selected State TitleBox Areas within the Selected State Ski Areas in TitleBox StateMap HasAd AreaNames AreaNames Loading Ski Areas in state: One Moment Please... AreaNames Datafile\Areas2.dat fileExists pushedTone AreaNames AreaNames HasAd TitleBox AreaNames Areas within the Selected State HasAd Areas within the Selected State TitleBox Areas within the Selected State FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. AllList AllAds AreaIndex AllAds AllAds AllList AllList AllList pushedTone AreaNames AreaNames TitleBox HasAd AreaNames Areas within the Selected State TitleBox Areas within the Selected State HasAd Areas within the Selected State This is a DOWNLOADED and LIMITED ACCESS version of SKIODYSSEY. Information is only available for For a FULL VERSION of this product, please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. Unable to locate any ski areas in state: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. AllList AreaNames AllAds HasAd StateMap\ StateMap\ fileExists StateMap Download Version of SKIODYSSEY. Only the Colorado state map file is available due to space requirements. FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. pushedTone AreaNames enterPage lvState lvName lvAreaInfo lvthis lvPassCnt lvAreaID lvErrorText lvTone lvFileNam svDownState svDownLoad svFilePath svCDPath svDataPath svAreaID lvStateName 4svScrolled "Matches" P -- showing "True" P -- update display !Summit Vertical Areas options depending on region -- toggled # buttons "TRUE" -- a change status "False" -- reset "RIndex" lvSummit lvVert lvSize Zso use Rockies specs lvBut -- lvTxt *1000 "Over" && ! && "ft." v*1000 && "ft." Acres *1000 && "acres" enterPage enterPage Matches Matches svScrolled False RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex RIndex acres lvTxt lvBut lvSize lvVert lvSummit svScrolled -- trap so xsent clozavi "F1" IT -- see description If IT -- reset so will try data Ientering "CurrentData" 4svDataPath -- database files (HD CD-ROM) 4svCDPath -- DOS path +on CD- 4svAreaID -- 2 RStateAbbrev + 3digit area code which may -- have a prefix eans only General info Trail "#" means 9stats -- a "%" so load default -- a "$" IALL exists currently loaded removed backgrounds changed conserve memory -- note statement below disabled -- If IT csvAreaId -- already so leave showing just play AVI ad "F1" 0 -- -- build on HardDrive (Sorted alphabetically) & "DataFile\Areas2.dat" lvFileNam FileThere -- StoreData -- display message CRLF & "Text Information Complete." &\ /"Now Searching Video Files." &\ X"One moment please..." \ "AVIWindow" zabove -- The pointers History Overview -- are stored on those Subdirectories on CD-ROM If IT IT = "X" -- no "Provided" \ "AVIControls" lvAVIFile lvState -- tell user coming "Loading Moment Please..."\ FALSE -- loading on Cd-Rom & "AreaInfo\" & & "\" & svAdFile playing AFTER fields loadAdFile -- no frame counter on use FMV "FrameCount" "TLFrames" 4svAreaName -- contain suffix "\" indicates that nothing -- a "%" -- a "$" lvAreaID -- need strip within Selected " -- -- freeze -- update title IT -- abbrev & "," && IT "F3" -- "F1" O -- :" & False -- -- faster "F1" S -- errors -- Get proper identified -- INDEXED SUMMARY u index value section selected areaID AreaIndex( 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record matches 4 -- If IT = -- zrest -- skip non-used o(126) -- TAB HistoryAdPointer o(126) -- areasize o(126) -- overview -- o(124) -- )START "F1" -- -- Only one possible found End If -- -- bypass o(124) -- Until If "F1" y -- no pushedTone lvTone -- tone "Sorry. xprovided information ." &\ other"&&\ "sections additional lvErrorText -- mark been leavePage enterPage StoreData leavePage oTDclozavi CurrentData enterPage CurrentData DataFile\Areas2.dat FileThere StoreData Text Information Complete. Now Searching for Video Files. One moment please... AVIWindow AVIWindow CurrentData No Video Files Provided AVIWindow AVIControls Loading Video Files. One Moment Please... AVIWindow AreaInfo\ loadAdFile FrameCount TLFrames svAdFile lvState lvAVIFile lvFileNam svAreaID svCDPath svDataPath StoreData Areas within the Selected State Area History AVIWindow Loading Area Information for: One Moment Please... FileThere AreaIndex pushedTone Sorry. has not provided any information for this section. Please try the other sections for additional information. CurrentData CurrentData lvErrorText lvTone lvAreaID svAreaID svAreaName lvFileNam -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svAreaID -- 2 RStateAbbrev + 2digit area code -- which may contain the prefix "\" $indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" so load default -file -- a "$" data exists "Status" -- just -- define initial tempfiles "PackageN" lvButName ,PackageC,PackageS" lvTmpFiles 4" = -- need build ` -- StoreData lvFileNam -- Identify names FINAL SORTED lvfirstField "Type" lvsecField loading message CRLF & "Constructing New One Moment Please..."\ ;"Reading :" & -- keeps user informed during False -- TRUE -- faster freeze errors -- Get oper identified above FileThere 1 -- each Ustarts -- see . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- read completely every dependent) -- Packager ID, , Phone TAB -- PackagerID "1 " place holder /doubleclick handler "1 " & IT & "HasAd" -- hidden -- o(126) -- phone lvName -- City, , Address, Zip, FAX 1 -- TAB o(124) -- )START record Until -- -- -- write store database cwriting -- 7" extension original -- identify TempData sub-directory lvTmpDir 4svFilePath -- Dos path & " p & "." -- Loads category display on LoadItemInfo lvSubDir,lvItemCode,lvAdCode xused but passed PACKAGER DATA IS JUST TEXT NO AVI FILES %: Pxxx ( -- Determine Packagers address -- selectedtextlines lvPhone IT -- IT & "-" -- extra tabs -- lvAddress -- will be -- city ( have spaces between lvCity Do IT -- lvState lvFax -- fax IT -- IT & "-" lvZip -- unneeded -- Put fields lvPage "F1" & ", " & " & "Fax: "F2" "CurrentData"\ terPage StoreData enterPage LoadItemInfo enterPage Status PackageN PackageN,PackageC,PackageS buttonUp buttonUp lvTmpFiles lvButName svAreaID StoreData Constructing New Data. One Moment Please... Reading File: Status Status FileThere HasAd TempData HasAd Status svFilePath lvTmpDir lvName lvsecField lvfirstField lvFileNam LoadItemInfo Phone: Fax: CurrentData lvPage lvZip lvFax lvState lvCity lvAddress lvPhone lvName lvAdCode lvItemCode lvSubDir keyEnter location ObjectFromPoint( 4svAreaID 4svFilePath -- load temporay data file 1 & "TempData\" lvFileNam -- see anything entered Put "F2" lvString If pushedTone lvErrorTone "Nothing what category look "F1" has current -- (only areas If Conditions "Trails" Summary" lvPage "TrailsN" lvButName "Lifts" "LiftsN" "Sorry. ] Information within -- "Lodges" "Lodging" "LodgeN" "Restaurants" "Food" "FoodN" "Merchants" "Shopping" "ShopN" "Skier" Services" "SkiServN" "Non-Skiing" Activities" "NSActivN" "Other" "OtherSvN" "Summer" /Fall "Special" "F1" "Events" Calendar" "EventsD" \ Values" "ValueID" proper matches message "Status" k& "One moment please..." TRUE -- freeze which currently loaded "CurrentData" If IT csvAreaId -- Mso just tempory -- "A" sorted & ".a" FileThere 8 -- there o(26) -- EOF -- special values 2 files lvTmp -- store ValueAll.a" 8 -- o(26) -- memory IT -- -- found something so summary GO TO PAGE If IT excluding textlineCount( lvCur selectedTextlines "Type" b(i-18,0) "HasAd" FALSE b(i-5,0) 4 -- done IT -- "Finder" -- come P -- "Could xfind" && " && & "." -- different 't record handler will update -- -- "A" & ".a" 8 -- o(26) -- EOF 8 -- o(26) -- If IT If IT If b(i-5,0) If b(i-5,0) 4 -- IT -- P -- " && & "." Click buttonDoubleClick keyUp buttonUp buttonDoubleClick buttonUp keyUp buttonUp location G#buttonUp TempData\ pushedTone Nothing to search for! Trails Trails Summary TrailsN Lifts Lifts Summary LiftsN pushedTone Sorry. I'm only able to search for Trail and Lift Information within this area. Trails Trails Summary TrailsN Lifts Lifts Summary LiftsN Lodges Lodging LodgeN Restaurants FoodN Merchants Shopping ShopN Skier Skier Services SkiServN Non-Skiing Non-Skiing Activities NSActivN Other Other Services OtherSvN Summer Summer/Fall Activities Summer Special Events Special Events Calendar EventsD Special Values ValueID Status One moment please... Status Status Status CurrentData svAreaId TempData\ FileThere ValueID TempData\ValueAll.a FileThere Summer/Fall Activities HasAd HasAd Finder pushedTone Could not find TempData\ FileThere ValueID TempData\ValueAll.a FileThere Summer/Fall Activities HasAd HasAd Finder pushedTone Could not find lvTone lvCur lvTmp lvErrrorTone lvButName lvPage lvErrorTone lvString lvFileNam svFilePath svAreaID location ClozAvi 8 -- just "AVIControls" 4svDataPath -- database files (HD CD-ROM) 4svAreaID -- 2 RStateAbbrev + 2digit area code -- which may contain the prefix "\" $indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" so load default -- a "$" GALL exists 4svAreaName "Summer/Fall Activities )" & CRLF & always "F2" -- see currently loaded "CurrentData" If IT csvAreaId -- already Jso leave showing -- -- Identify main & "Datafile\ .dat" lvFileNam there FileThere loading message "Loading Information "One moment please..." \ "AVIWindow" -- update StoreData -- need build -- retrieve path on Cd-Rom determined ^handler svAdFile -- now -- display "Text Complete." &\ "Now Searching Video Files." &\ FALSE -- -- Textline 2 stores be played (stored "LoadItemInfo" playing If "X" -- no ad Put "No "Provided" \ -- should be loadAdFile he suffix "\" -- a "%" -- a "$" 4svCDPath -- CD-ROM 4svFilePath -- tempfile finder -- identify names "F2" lvfirstField fields lvAreaID -- strip "Areas within Selected " -- TRUE -- faster freeze errors -- Get oper identified above -- assume must have )least one record fileExists passed 1 -- each Ustarts -- M. LAST LINE | EOF If IT ansiTochar(26) y -- Break DO -- TAB -- areaID If IT zrest AdID lvAdCode Description o(124) -- )START >DO -- matches -- bypass Id doesn't o(124) -- Until False -- If y -- no "Sorry. No information available " &&\ pushedTone lvTone -- delete temporary & "TempData\" & " lvTmp -- deletes -- mark has been was FINDER IT -- memory on Cd-Rom If lvState \" & & "\" & avePage enterPage leavePage StoreData leavePage oTDClozAvi AVIControls enterPage Summer/Fall Activities at CurrentData svAreaId Datafile\Summer.dat FileThere Loading Summer/Fall Information for One moment please... AVIWindow StoreData CurrentData Text Information Complete. Now Searching for Video Files. One moment please... AVIWindow CurrentData No Video Files Provided AVIWindow AVIControls loadAdFile svAdFile lvFileNam svAreaName svAreaID svDataPath StoreData Areas within the Selected State FileThere AVIWindow AVIControls Sorry. No information is available for pushedTone TempData\ Summer.a CurrentData TempData\ Summer.a CurrentData CurrentData Summer\ CurrentData lvState lvTmp lvTone svAreaName lvAdCode lvAreaID lvfirstField svFilePath svCDPath svAreaID lvFileNam -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "CarRentN" lvButName ,CarRentA" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on "GenInfo" lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ :"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere lvPassCnt -- record counter 1 -- each Ustarts -- X . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- o(126) -- TAB lvthis If -- AreaCode/F/MerchCode lvAD -- -- , Telephone, AirportServed, CCCode 1 -- lvName TAB; lvPhone lvAirport lvCCCode -- fields -- o(168) & "HasAd" -- FIRST RECORD IN AREA CONTAINS GENERAL INFO IN DESC 2 -- ~ 4desc o(124) -- )START general mark past Else End If -- -- Each fa | reading CRLFs -- description be ignored EXCEPT ONE BEFORE NEXT If <> 1 -- -- 0 found yet so searching o(124) -- Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- s been -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. PAGE lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- , hours, etc "F3" lvField3 -- Desc 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- -- -- Variables Fields ( done earlier) "Reservations: -- Description 2 -- ~ o(124) -- -- Credit Card -- know cards under o(124) -- Fno matching never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp CarRentN CarRentN,CarRentA CurrentData svAreaId buttonUp GenInfo TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere HasAd GenInfo HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvCCCode lvAirport lvPhone lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Reservations: CurrentData ERROR! No Item Found! lvCCCode lvAirport lvPhone lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam 4svAreaName 4svAreaID 4svFilePath e"Printer &Setup" ..." -- just "ErrorGroup" B"Begin" "Instructions" If y -- have a state maybe B"ThisState" B"ThisArea" FALSE B"AllAreas" -- no IT -- abbrev "To" If IT = IT & "SkiDown" Set ..." "Current" "Status" "Counter" enterpage leavepage enterpage Printer &Setup &Print... ErrorGroup Begin Instructions ThisState ThisArea ThisState AllAreas ThisArea ThisArea ThisArea ThisState AllAreas ThisArea ThisState ThisArea ThisState ThisArea ThisState AllAreas SkiDown Instructions svFilePath svAreaID svAreaName leavepage Printer &Setup &Print... Current Status Counter );?a2 -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "NSActivN" lvButName ,NSActivT" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere -- INDEXED SUMMARY index value section areaID AreaIndex( lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- TAB lvthis If -- AreaCode/F/MerchCode lvAD -- -- , Phone CCCode 1 -- lvName TAB; lvType lvPhone lvCCCode -- fields -- o(168) & "HasAd" Else -- See finding = 1 -- End If -- -- ByBass MAY HAVE CRLFs IN DESCRIPTION -- Address,City, ,Zip,Atmosphere,Reservations,Hours,Description -- fa | reading -- description be ignored EXCEPT ONE BEFORE NEXT RECORD o(124) -- )START Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- mark s been -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad & (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. S PAGE lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- , hours, etc "F3" lvField3 -- 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- -- : " && IT : " && IT -- Street, 2 -- ~ lvStreet lvCity lvZip : " && IT lvHours -- Variables Fields ( done earlier) & "," && -- 2 -- ~ o(124) -- -- Credit Card -- know cards under o(124) -- Fno matching but never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp NSActivN NSActivN,NSActivT CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere AreaIndex HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvCCCode lvPhone lvType lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Type: Phone: Hours: CurrentData ERROR! No Item Found! lvHours lvZip lvState lvCity lvStreet lvCCCode lvPhone lvType lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam e"Printer &Setup" ..." 4svAreaID 4svCDPath 4svAreaName If IT <> "SKIODYSSEY Interactive Annual" -- only give option on past directory ..." -- see area has "CurrentData" \ Story" lvStory If "General Overview" Map" Stats" a village map If -- initialize -- the "$,\,#, %" suffix code lvState -- state abbrev -- build path Sub-Directories files "AreaInfo\" & X & "\" & lvID & "M.avi" lvFName -- C on Cd-Rom lvMapFile -- no errors If fileExists( 3) = 1 -- there P -- which navigation buttons If c"#" -- just stats "zDirectory" "zPopList" TRUE -- -- THE FOLLOWING SCRIPTS APPLY ONLY TO !LIST FIELDS BECAUSE ALL OTHER -- OBJECTS HAVE THEIR OWN MWHICH WILL TRAP mBUTTON DOWN AND MESSAGES BEFORE THEY GET TO PAGE LEVEL -- Take care updating display fields bar on -most 4svScrolled -- Type scrolled -- UPDATE selected AFTER completed FORWARD -- TO FRAME COUNTER IF NECESSARY " -- finished "False" reset " -- must be below Put selectedtextlines lvCurLine lvFldScroll -- IF 2 <= selectedTextLines B + 1 Y + 1 -- Up -- NOTE: 18 showing list IF + 18 + 18 + 18 -- asure diamonds aligned "HasAd" " -- Sside FALSE -- so -- determine If " trap on summary If lvOtherFld -- match highlighted If d <> key, isShft, isCtrl If " user presses a letter z = 80 AND printing continous on Up Dwn arrows PgUp keyEnter If " z -- info other than Enterkey held down one actually does once If " lvLineNo If IT pushedTone lvTone "Sorry. No additional information available the" &&\ ." &&\ CRLF & "Only preceeded Ha DIAMOND" &&\ "have more lvErrorText -- should lvCodes lvAdCode -- ex. COxxFyyy lvItemCode -- ex. -- STATE subdirectory -- category's can be -- determined -- removing -- stored -- during handler lvSubDir -- load LoadItemInfo werros rBackground leaveBackground buttonUp keyUp keyDown enterBackground buttonDoubleClick leaveBackground Printer &Setup &Print... enterBackground SKIODYSSEY Interactive Annual Printer &Setup &Print... CurrentData Area Story Story General Overview Story Area Map Story Area Stats Story General Overview Story Area Map Story Area Stats AreaInfo\ M.avi fileExists zDirectory zPopList zDirectory zPopList lvMapFile lvFName lvState lvStory svAreaName svCDPath svAreaID False HasAd lvFldScroll lvCurLine svScrolled buttonUp Name Type HasAd lvFldScroll lvCurLine lvOtherFld keyUp Name Type buttonUp Print isCtrl isShft keyDown Name Type buttonDoubleClick buttonDoubleClick Name Type HasAd pushedTone Sorry. No additional information is available for the highlighted selection. Only line items preceeded by a DIAMOND have more information. HasAd CurrentData LoadItemInfo lvSubDir lvItemCode lvAdCode lvCodes lvErrorText lvTone lvLineNo -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "FoodN" lvButName ,FoodT,FoodP,FoodL" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere -- INDEXED SUMMARY index value section areaID AreaIndex( lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- TAB lvthis If -- AreaCode/F/MerchCode ad lvAD -- -- phone o(126) -- lvName ! -- -- Price Location CCCode o(126) -- lvType ! -- -- IT -- If IT o(168) & "HasAd" Else -- See finding = 1 -- End If -- -- ByBass MAY HAVE CRLFs IN DESCRIPTION -- Address,City, ,Zip,Atmosphere,Reservations,Hours,Description -- fa | reading -- description be ignored EXCEPT ONE BEFORE NEXT RECORD o(124) -- )START Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- mark s been -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad c (i.e. , Lodge, etc.) %: COxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText fields should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. W PAGE lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- "F3" lvField3 -- , hours, etc "F4" lvField4 -- 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- TAB -- Phone o(126) -- lvPhone -- -- 1 -- lvPrice -- skip TAB; lvCCCode -- Street, 2 -- ~ lvStreet lvCity lvZip -- lvAtmos lvRes o(126) -- lvHours -- 1 -- TAB o(124) -- -- Variables Fields ( done earlier) & "," && "Cuisine:" & Tab & Range:" & :" & :" & :" & -- Credit Card -- know cards under o(124) -- Fno matching but never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp FoodN FoodN,FoodT,FoodP,FoodL CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere AreaIndex HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvType lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Cuisine: Price Range: Atmosphere: Reservations: Hours: CurrentData ERROR! No Item Found! lvHours lvRes lvAtmos lvZip lvState lvCity lvStreet lvCCCode lvPrice lvType lvPhone lvField4 lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam 4svFilePath "Name" "Type" loading message CRLF & "Building Databases. One Moment..."\ TRUE -- faster freeze q the data Pre-Sorted BY STATE & "datafile\_TrailsN. lvFileName o(26) -- EOF lvData "1a" lvfirstField "1b" lvsecField StoreData -- below o(26) -- "2a" "2b" T.dat" o(26) -- EOF "3a" "3b" o(26) -- "4a" "4b" o(26) -- "5a" "5b" B"Load" -- now just files FALSE Parsing: " & False While -- Code & TAB -- The IT -- initialize -- \Rating IT -- reset -- , Length, Vertical -- create -- extension original "Writing Files " & & ".x" & buttonUp StoreData buttonUp Building Databases. One Moment... datafile\_TrailsN.dat StoreData datafile\_TrailsR.dat StoreData datafile\_TrailsT.dat StoreData datafile\_TrailsL.dat StoreData datafile\_TrailsV.dat StoreData buttonUp lvsecField lvfirstField lvData lvFileName svFilePath StoreData Parsing: Writing Files lvsecField lvfirstField lvData lvFileName 4svFilePath loading message CRLF & Getting Data." & )"One Moment Please..."\ "Type" TRUE -- faster freeze "Name" -- Should have one these EACH SORTABLE FIELD %determined , buttons that ACTUALLY 8 THE DATA (Note there may -- be FEWER 1 SORTED FILES depending on how SPACING -- works out each & "datafile\_TrailsN." lvFileNam lvFldNam LoadData PR." sorted -- need a section FINAL ELD. This may be -- less than the actual fields which -- will be .calling handlers above should -- reflect names jbuilt files. -- Field "A" -- If fileExists( ) = 1 -- o(26) -- EOF lvData xfound NotFound below -- "B" -- ) = 1 -- o(26) -- FALSE "Can't find contact Media Odyssey, Inc." & )303-293-3837." pushedTone lvTone 8 -- errorTone tonUp LoadData buttonUp NotFound buttonUp Getting Data. One Moment Please... datafile\_TrailsN. NLoadData datafile\_TrailsR. NLoadData datafile\_TrailsT. NLoadData datafile\_TrailsL. NLoadData datafile\_TrailsV. NLoadData buttonUp lvFldNam lvFileNam svFilePath LoadData fileExists xNotFound fileExists xNotFound lvData lvFldNam lvFileNam NotFound Can't find data file. Please contact Media Odyssey, Inc. at 303-293-3837. pushedTone Getting Data. One Moment Please... lvTone lvFileNam 4svFilePath loading message CRLF & Getting Data." & )"One Moment Please..."\ "Type" TRUE -- faster freeze "Name" -- Should have one these EACH SORTABLE FIELD %determined , buttons that ACTUALLY 8 THE DATA (Note there may -- be FEWER 1 SORTED FILES depending on how SPACING -- works out each & "datafile\_TrailsN." lvFileNam lvFldNam LoadData PR." sorted -- need a section FINAL ELD. This may be -- less than the actual fields which -- will be .calling handlers above should -- reflect names jbuilt files. -- Field "A" -- If fileExists( ) = 1 -- o(26) -- EOF lvData xfound NotFound below -- "B" -- ) = 1 -- o(26) -- FALSE "Can't find contact Media Odyssey, Inc." & )303-293-3837." pushedTone lvTone 8 -- errorTone tonUp LoadData buttonUp NotFound buttonUp Getting Data. One Moment Please... datafile\_TrailsN. NLoadData datafile\_TrailsR. NLoadData datafile\_TrailsT. NLoadData datafile\_TrailsL. NLoadData datafile\_TrailsV. NLoadData buttonUp lvFldNam lvFileNam svFilePath LoadData fileExists xNotFound fileExists xNotFound lvData lvFldNam lvFileNam NotFound Can't find data file. Please contact Media Odyssey, Inc. at 303-293-3837. pushedTone Getting Data. One Moment Please... lvTone lvFileNam 4svFrameCnt -- length avi file controls handler D = 1 -- only 1 image tbkMCI("status AVIfile mode","") If IT "playing" 8") -- tbkMMNotify ","") Conditions IT = 0 -- on frame "FrameCount" tbkMCIchk("seek AVIFile " && ,"",1) -- IT = IT-1 " && -2,"",1) " && IT-1,"",1) End 20 -- so xtoo 0","",1) -- (VFW=0) yieldApp() winName ","",1,1) SetActiveWindow( uttonDown buttonStillDown buttonDown buttonUp buttonDown buttonUp status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk FrameCount seek AVIFile to tbkMCIchk svFrameCnt buttonStillDown seek AVIFile to 0 tbkMCIchk FrameCount yieldApp buttonUp status AVIfile window handle tbkMCIchk SetActiveWindow winName )0*a0 -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "OtherSvN" lvButName ,OtherSvT" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere lvPassCnt -- initialize found 1 -- each Ustarts -- L . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- TAB lvthis If -- AreaCode/F/MerchCode lvAD -- -- , Phone CCCode 1 -- lvName TAB; lvType lvPhone lvCCCode -- fields -- o(168) & "HasAd" Else -- See finding = 1 -- End If -- -- ByBass MAY HAVE CRLFs IN DESCRIPTION -- Address,City, ,Zip,Atmosphere,Reservations,Hours,Description -- fa | reading -- description be ignored EXCEPT ONE BEFORE NEXT RECORD o(124) -- )START Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- mark s been -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad + (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. S PAGE lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- , hours, etc "F3" lvField3 -- 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- -- : " && IT : " && IT -- Street, 2 -- ~ lvStreet lvCity lvZip : " && IT lvHours -- Variables Fields ( done earlier) & "," && -- 2 -- ~ o(124) -- -- Credit Card -- know cards under o(124) -- Fno matching but never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp OtherSvN OtherSvN,OtherSvT CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere FileThere HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvCCCode lvPhone lvType lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Type: Phone: Hours: CurrentData ERROR! No Item Found! lvHours lvZip lvState lvCity lvStreet lvCCCode lvPhone lvType lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam clozavi "F1" IT -- see description If IT -- reset so will try data Ientering "CurrentData" 4svDataPath -- database files (HD CD-ROM) 4svCDPath -- DOS path +on CD- 4svAreaID -- 2 RStateAbbrev + 2digit area code which may -- have a prefix eans only General info Trail "#" means 9stats -- a "%" so load default -- a "$" IALL exists navigation buttons -- map Bshown hidden If c"\" -- just Basic Info "Story" FALSE currently loaded removed backgrounds changed conserve memory -- note statement below disabled -- If IT csvAreaId -- -- already so leave showing play AVI ad "F1" 0 -- -- build on HardDrive (Sorted alphabetically) & "DataFile\Areas2.dat" lvFileNam FileThere -- StoreData -- display message CRLF & "Text Information Complete." &\ /"Now Searching Video Files." &\ X"One moment please..." \ "AVIWindow" zabove -- The pointers History Overview -- are stored on those Subdirectories on CD-ROM If IT IT = "X" -- no "Provided" \ "AVIControls" lvAVIFile lvState -- tell user coming "Loading Moment Please..."\ loading "F1" -- so xghost on Cd-Rom & "AreaInfo\" & & "\" & svAdFile playing AFTER fields loadAdFile 4svAreaName -- contain suffix "\" indicates that nothing -- a "%" -- a "$" lvAreaID -- need strip within Selected " -- -- freeze -- update title IT -- abbrev & "," && IT "F3" -- "F1" O -- :" & False -- -- faster "F1" S -- errors -- Get N proper identified -- INDEXED SUMMARY index value section selected areaID AreaIndex( 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record matches 4 -- If IT = -- zrest -- skip non-used o(126) -- Tab HistoryAdPointer o(126) -- -- o(126) -- overview "F1" -- -- Only one possible found End If -- -- bypass o(124) -- )START Until If "F1" y -- no pushedTone lvTone -- tone "Sorry. xprovided information ." &\ other"&&\ "sections additional lvErrorText -- mark been avePage enterPage leavePage StoreData leavePage oTDclozavi CurrentData enterPage Story CurrentData DataFile\Areas2.dat FileThere StoreData Text Information Complete. Now Searching for Video Files. One moment please... AVIWindow CurrentData No Video Files Provided AVIWindow AVIControls Loading Video Files. One Moment Please... AVIWindow AreaInfo\ loadAdFile svAdFile lvState lvAVIFile lvFileNam svAreaID svCDPath svDataPath StoreData Areas within the Selected State General Overview AVIWindow Loading Area Information for: One Moment Please... FileThere AreaIndex pushedTone Sorry. has not provided any information for this section. Please try the other sections for additional information. CurrentData CurrentData lvErrorText lvTone lvAreaID svAreaID svAreaName lvFileNam '9Ea$ -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- database files (HD CD-ROM) -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" exists "Status" -- -- define initial tempfiles "LiftsN" lvButName ,LiftsT,LiftsR,LiftsV" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- previously so read -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above fileThere -- INDEXED SUMMARY index value section areaID AreaIndex( lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- TAB If IT -- o(126) -- rating lvName ! -- -- RideTime, Vertical 1 -- TAB; lvTime o(124) -- )START & IT lvType -- IT has Else -- finish Id doesn't match o(124) -- -- See finding = 1 -- End If -- Until -- -- matches If y -- no "Sorry. Information Available" & \ pushedTone lvTone -- tone -- mark s been -- write cwriting -- ".dat" extension original -- identify lvTmpDir Dos path d & "." avePage enterPage leavePage StoreData leavePage enterPage Status LiftsN LiftsN,LiftsT,LiftsR,LiftsV CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status fileThere AreaIndex Sorry. No Lift Information Available Status pushedTone CurrentData TempData Status CurrentData svFilePath lvTmpDir lvTone lvType lvTime lvName lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam Index General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: NH Help/Photo Index 1,7,2,8,3 1440,0,2,8,3 1440,0 Help Topics:] Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiii :PHYSSIZE :PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End >= 33 <= 40 enterfield keyDown enterfield keyDown Help On: "INTRODUCTIONSki Area, MNge, NJ UTementsi Area, MN Afton Alps Ski Area, MN Select any of the Index Items on the left, then click on the "Show Info" button for more information on that item, or just Double-Click on any of the Index Items to automatically select it and display information on that item. TO HANDLE ENTERPAGE lvWeather 4svCDPath 4svAreaID 4 -- hourglass e"Printer &Setup" ..." -- see which navigation buttons -- map story Btaken care "Overview" If c"#" OR c"%" -- just stats "Story" "zDirectory" "zPopList" FALSE -- tell user file coming "AVIWindow" Put CRLF & "Loading Information File." & : "One Moment Please..."\ -- initialize lvId the "$,\,#, %" suffix code lvState -- state abbrev IF IT -- no . Tell "AVIControls" -- build path Sub-Directories 7 STATS files "AreaInfo\" & & "\" & lvID & "C" lvFName A on Cd-Rom svAdFile playing AFTER loading fields loadAdFile -- handler below 1 -- ClozAVI "Preparing Page" & ..." -- loads runs passed handlers 4svFrameCnt -- length controls 4svDownLoad -- will be 2 data downloaded -- merchant's ad trapping errors -- stop display & ".AVI" tbkMCI("Close ALL","") -- ad still -- there IF fileExists( ) = 1 -- -- player tbkMCIchk(" " && && "style popup" && \ "alias AVIFile " && 8,"","","") frames","","") winName }status AVIfile ","","","") -- determine main lvX; + 3 + 42 MoveWindow( d,634,390,1) w","") "FrameCount" ","") -- total updated "& IT & " Images" "TLFrames" store -- don't let ereceive mouse messages translateWindowMessage 4257 noSponsAdTouch 8 -- 257 -- 4513 8 -- 513 LbuttonDown -- 4514 8 -- 514 LbuttonUp -- reset work stops tbkMMNotify ELSE -- If <> 2 pushedTone lvTone 8 -- errorTone "FILE ERROR! Cannot Find Stats Graphic: " &&\ contact Media Odyssey, Inc. )" & "1-800-99-SKI-CD." lvErrorText "Download Version SKIODYSSEY" & "Statistic Graphics Not Available." \ END IF TERPAGE leavePage ENTERPAGE loadAdFile ENTERPAGE Printer &Setup &Print... Overview Overview Story zDirectory zPopList AVIWindow Loading Information File. One Moment Please... AVIWindow AVIControls AreaInfo\ loadAdFile svAdFile lvFName lvState svAreaID svCDPath lvWeather leavePage oTDClozAVI AVIWindow Preparing Page One Moment Please... AVIWindow Printer &Setup &Print... loadAdFile Close ALL tbkMCI fileExists AVIControls style popup alias AVIFile parent tbkMCIchk set AVIFile time format frames tbkMCIchk status AVIfile window handle tbkMCIchk MoveWindow window AVIfile state normal tbkMCIchk FrameCount status AVIfile length tbkMCI Images TLFrames noSponsAdTouch play AVIfile this book tbkMCIchk AVIControls pushedTone FILE ERROR! Cannot Find Area Stats or Weather Graphic: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. Download Version of SKIODYSSEY Statistic Graphics Not Available. AVIWindow lvErrorText lvTone winName lvFName svDownLoad svFrameCnt svAdFile Cover Page TempData :PHYSSIZE 4svAreaID -- 2 RStateAbbrev + 3digit area code which may -- have a prefix eans only General info Trail -- a "#" means ;stats screen -- a "%" o load default ,file -- a "$" GALL data exists 4svAreaName -- 4svLimitedAccess -- 2 state within 4svDownState -- areaId limited access 4 -- hourglass -- If A GROUP, AREA ID WILL CONTAIN "9x". -- Groups must be given a HasData \ # % $ but won't matter. "9xx" -- The AREAS IN THE OVERVIEW AD FILE FIELD -- comma- vlist S ONLY. lvTemp -- see restricted If <> 1 -- ok " && IT lvTmp ", " & IT -- pushedTone lvTone 8 -- errorTone Put "I'm sorry, you are ]a LIMITED ACCESS version" &&\ product. Information available " &&\ IT & "." &\ CRLF & "For a FULL VERSION _," &&\ "please contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD update lvErrorText -- %indicated Ha "9x" If "9" -- 2 digits GroupList -- build below -- let user -- match returning jhandler areaID End If -- store so can later selectedTextLines "AreaNames" "TitleBox" -- map reference -- initialize Until IT has total information arrange buttons on directory accordingly Conditions c"\" -- special -- Directory" "AreaList" "AVIWindow" "GenInfo" "TrailInfo" 3039,4740 4996,4740 c"$" -- 632,632 632,1580 -- either just ; Stats" so can't anywhere J so "use CTRL-RIGHT LEFT arrows disable navigation except going /ID 0) 1 -- 4 -- stay on pointers History AVI Ad Files IT -- .Ad Pointer "CurrentData" \ Story" IT -- Overview" z enter -- will playing 's avi ad keyEnter -- builds sub- ski areas 4svFilePath -- DOS path hardrive files + suffix -- "\" indicates that GENERAL INFO AND TRAIL a "#" TAB between lvGrpNam -- -- delimeter areaname -- OverviewAdFile "HasAd" fieldType wordWrap -- so Omessage -- "Areas & ":" "Getting Ski "One Moment Please..." TRUE -- freeze -- Now -- Strip DO o(126) -- ~ inserted built HpopMenuArrow lvCnt -- how many -- alphabetical order & "datafile\areas1. lvFName errors lvCurArea -- 1 -- each Ustarts . LAST LINE | EOF If IT ansiTochar(26) -- Break DO record matches 4 -- If IT -- -- Store AreaCode,HasDataCode,GeneralOverviewAdFileCode, -- HistoryAdFileCode o(126) -- ~ & IT lvAreaInfo J -- o(126) g -- ~ & IT Map Reference Number 1 -- Tab -- IT & lvName completed If "$\" o(168) & "AllAds" >DO -- look F -- zabove -- ByBass MAY HAVE CRLFs IN OR HISTORY -- Downhill,NiteSki,Snowboard,X-Country,BaseElev,VertDrop,AreaSize fa | reading -- description be ignored EXCEPT FOR ONE BEFORE NEXT RECORD o(124) -- )START False -- singleSelect B"ShowAllAreas" -- so re-display 1 -- Click buttonDoubleClick keyUp GroupList buttonDoubleClick the state of pushedTone I'm sorry, you are using a LIMITED ACCESS version of this product. Information is only available for For a FULL VERSION of this product, please contact Media Odyssey, Inc. at 1-800-99-SKI-CD for an update code. GroupList AreaNames TitleBox Area Directory AreaList Area Directory AVIWindow Area Directory GenInfo Area Directory TrailInfo Area Directory GenInfo Area Directory TrailInfo Area Directory Area Directory GenInfo Area Directory TrailInfo Area Directory Area Stats CurrentData Area Story CurrentData General Overview Area Directory lvErrorText lvTone lvTmp lvTemp svDownState svLimitedAccess svAreaName svAreaID keyUp buttonDoubleClick GroupList AreaNames HasAd AreaNames AreaNames Areas in TitleBox Getting Ski Areas in One Moment Please... AreaNames AreaNames datafile\areas1.dat AreaNames HasAd AllAds AreaNames AreaNames AreaNames AreaNames HasAd AreaNames ShowAllAreas lvName lvAreaInfo lvCurArea lvFName lvCnt lvGrpNam svAreaID svFilePath lvTemp Area Directory AVIWindow GenInfo Bgraphic }location setActiveWindow( ? will be user pressed toggle -- lower ObjectFromPoint( "General Overview" tbkMCIchk(" eAVIfile state noactivate","") uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp setActiveWindow setActiveWindow General Overview window AVIfile state show noactivate tbkMCIchk location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE TrailInfo Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( tbkMCI("Close ALL","") "Trail Information" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Close ALL tbkMCI Trail Information location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Lodging" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Lodging location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii #:PHYSSIZE j(:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Food" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii 60:PHYSSIZE 4:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Shopping" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Shopping location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii <:PHYSSIZE A:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Skier Services" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Skier Services location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii H:PHYSSIZE ^M:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Special Values" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Special Values location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii >U:PHYSSIZE Y:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Other Services" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Other Services location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii a:PHYSSIZE f:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Non-Skiing Activities" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Non-Skiing Activities location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii n:PHYSSIZE ~r:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Special Events Calendar" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Special Events Calendar location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii nz:PHYSSIZE ~:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "How To Get There" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp How To Get There location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Summer/Fall Activities" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Summer/Fall Activities location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Ski Packagers" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Ski Packagers location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE AreaList PopMenuArrow { -- location buttonUp buttonUp buttonDown buttonUp location :PHYSSIZE :PHYSSIZE Western Region :PHYSSIZE -- the handler initializes list B"PopMenuArrow" buttonUp buttonUp buttonUp PopMenuArrow Choose Ski Area... PopMenuArrow -- display the popup clist selecting AreaPopList buttonUp buttonUp AreaPopList Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Personal Prefs" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Personal Prefs location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE Put Target lvStateName -- see description -- Build the list ski areas state backgrounder handler BuildList buttonUp buttonDoubleClick buttonUp BuildList lvStateName buttonDoubleClick buttonUp states Put Target lvStateName -- see description -- Build the list ski areas state backgrounder handler BuildList buttonUp buttonDoubleClick buttonUp BuildList lvStateName buttonDoubleClick buttonUp enterpage enterpage Rocky Mountain Region :PHYSSIZE -- the handler initializes list B"PopMenuArrow" buttonUp buttonUp buttonUp PopMenuArrow Choose Ski Area... PopMenuArrow -- display the popup clist selecting AreaPopList buttonUp buttonUp AreaPopList states Put Target lvStateName -- see description -- Build the list ski areas state backgrounder handler BuildList buttonUp buttonDoubleClick buttonUp BuildList lvStateName buttonDoubleClick buttonUp Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Personal Prefs" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Personal Prefs location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE enterpage enterpage Midwest Region :PHYSSIZE -- the handler initializes list B"PopMenuArrow" buttonUp buttonUp buttonUp PopMenuArrow Choose Ski Area... PopMenuArrow -- display the popup clist selecting AreaPopList buttonUp buttonUp AreaPopList Put Target lvStateName -- see description -- Build the list ski areas state backgrounder handler BuildList buttonUp buttonDoubleClick buttonUp BuildList lvStateName buttonDoubleClick buttonUp Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Personal Prefs" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Personal Prefs location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE enterpage enterpage Southeastern Region :PHYSSIZE -- the handler initializes list B"PopMenuArrow" buttonUp buttonUp buttonUp PopMenuArrow Choose Ski Area... PopMenuArrow -- display the popup clist selecting AreaPopList buttonUp buttonUp AreaPopList states Put Target lvStateName -- see description -- Build the list ski areas state backgrounder handler BuildList buttonUp buttonDoubleClick buttonUp BuildList lvStateName buttonDoubleClick buttonUp pushedTone lvTone 8 -- errorTone "Sorry. There are no ski areas South Carolina." \ && "Please another state." lvErrorText -- just trap buttonUp buttonDoubleClick buttonUp pushedTone Sorry. There are no ski areas in South Carolina. Please select another state. lvErrorText lvTone buttonDoubleClick pushedTone lvTone 8 -- errorTone "Sorry. There are no ski areas Florida." \ && "Please another state." lvErrorText -- just trap buttonUp buttonDoubleClick buttonUp pushedTone Sorry. There are no ski areas in Florida. Please select another state. lvErrorText lvTone buttonDoubleClick Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Personal Prefs" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Personal Prefs location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE enterpage enterpage Eastern Region :PHYSSIZE -- the handler initializes list B"PopMenuArrow" buttonUp buttonUp buttonUp PopMenuArrow Choose Ski Area... PopMenuArrow -- display the popup clist selecting AreaPopList buttonUp buttonUp AreaPopList states Put Target lvStateName -- see description -- Build the list ski areas state backgrounder handler BuildList buttonUp buttonDoubleClick buttonUp BuildList lvStateName buttonDoubleClick buttonUp pushedTone lvTone 8 -- errorTone "Sorry. There are no ski areas Deleware." \ && "Please another state." lvErrorText -- just trap buttonUp buttonDoubleClick buttonUp pushedTone Sorry. There are no ski areas in Deleware. Please select another state. lvErrorText lvTone buttonDoubleClick Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Personal Prefs" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Personal Prefs location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE enterpage enterpage Northeastern Region :PHYSSIZE -- the handler initializes list B"PopMenuArrow" buttonUp buttonUp buttonUp PopMenuArrow Choose Ski Area... PopMenuArrow -- display the popup clist selecting AreaPopList buttonUp buttonUp AreaPopList states Put Target lvStateName -- see description -- Build Slist ski areas state pbackgrounder handler BuildList rightbuttonup buttonUp buttonDoubleClick rightbuttonup buttonUp BuildList lvStateName buttonDoubleClick buttonUp Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Personal Prefs" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Personal Prefs location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii :PHYSSIZE :PHYSSIZE enterpage enterpage Areas within the Selected State AK02 000000 AK01 001675 AK04 001721 AK07 002627 AL01 002667 AZ04 002711 AZ02 003443 AZ03 003488 AZ01 003531 CA01 003572 CA02 005312 CA35 005356 CA13 006871 CA03 008967 CA40 010836 CA06 012020 CA30 012067 CA36 013241 CA08 013278 CA09 016677 CA25 017755 CA12 017800 CA33 026162 CA26 026209 CA17 026243 CA27 026287 CA15 026324 CA37 027442 CA28 027489 CA41 027529 CA16 029592 CA07 029631 CA29 031373 CA38 031409 CA31 031454 CA32 033054 CA18 037169 CA19 039648 CA20 040496 CO01 040532 CO02 041513 CO04 042506 CO05 048143 CO06 054045 CO08 057992 CO12 059786 CO15 066247 CO16 067782 CO17 069771 CO18 070860 CO22 070906 CO23 072590 CO24 075666 CO25 076737 CO28 076787 CO29 076829 CO30 078832 CO31 079759 CO36 079794 CO33 081389 CO34 087113 CO38 091183 CO09 093443 CO39 099057 CO40 102840 CO41 106106 CT07 108446 CT05 108485 CT06 108533 CT02 108578 CT04 108613 GA01 108654 IA01 108695 IA03 108733 IA05 108767 IA04 108812 IA07 108860 IA08 108896 IA10 108930 IA11 110160 ID04 110199 ID05 111794 ID08 113774 ID10 113814 ID11 113859 ID12 113895 ID13 113944 ID14 113984 ID15 114029 ID17 114071 ID18 117540 ID20 118875 ID21 118918 ID22 118968 IL02 120491 IL06 121266 IL07 121307 IL08 122670 IN01 122706 IN02 122750 IN06 124243 IN05 124277 KY01 125255 MA02 125289 MA03 125336 MA04 125377 MA05 125420 MA06 125461 MA07 125502 MA08 126678 MA10 128157 MA11 128202 MA12 129282 MA13 129331 MA14 129372 MA19 129420 MA17 129455 MA18 130425 MD01 130468 ME02 131462 ME15 131503 ME04 131543 ME05 131590 ME06 131629 ME16 131673 ME10 131719 ME17 131762 ME07 132799 ME12 134503 ME13 134541 ME14 137994 ME08 141033 MI01 141074 MI42 141116 MI02 141159 MI03 142384 MI04 143641 MI05 143685 MI06 143729 MI07 143771 MI08 144781 MI09 145926 MI10 145975 MI11 146019 MI43 148081 MI12 148127 MI13 148164 MI14 149640 MI15 149683 MI16 149724 MI17 149770 MI19 149812 MI20 149850 MI21 149895 MI44 149937 MI23 149972 MI24 150013 MI25 150064 MI26 152739 MI27 152779 MI28 152829 MI29 152873 MI30 152911 MI31 154022 MI33 154065 MI35 156831 MI37 156869 MI38 156910 MI34 156953 MI39 158311 MI41 158358 MI40 158403 MN19 158450 MN01 159244 MN04 159294 MN02 159968 MN03 160009 MN06 160053 MN08 160861 MN09 160905 MN11 161673 MN10 161717 MN13 161763 MN14 161809 MN15 161849 MN17 162288 MN18 162335 MO01 162382 MT03 162433 MT04 166196 MT05 168789 MT06 168837 MT07 168882 MT08 168932 MT09 168982 MT10 169032 MT11 169072 MT12 171775 MT13 171825 MT02 171867 MT15 172969 NC01 173009 NC02 174755 NC03 174799 NC04 174841 NC09 174880 NC06 174918 NC05 176179 NC07 176217 NC08 177587 ND01 177633 ND03 177678 ND02 177722 NE01 177765 NE02 177808 NH01 177852 NH03 178788 NH04 178826 NH05 180297 NH07 180336 NH09 180376 NH10 181542 NH11 181594 NH12 181636 NH14 183176 NH15 184342 NH17 184383 NH18 184420 NH20 184465 NH21 184508 NH22 184557 NH23 184600 NH02 184649 NH26 184698 NH28 188333 NJ02 189966 NJ04 190013 NJ06 190055 NJ05 190092 NM01 191205 NM06 192875 NM02 192916 NM11 192958 NM03 193985 NM04 194998 NM05 195037 NM08 198650 NM10 198694 NV05 204923 NV01 206787 NV14 206821 NY02 208528 NY03 209738 NY04 209780 NY06 209825 NY07 209866 NY08 209910 NY09 210972 NY11 213041 NY12 213085 NY13 213132 NY15 213170 NY16 213212 NY17 213260 NY18 213305 NY19 214343 NY20 215405 NY22 215448 NY23 215490 NY24 215540 NY25 216976 NY26 218891 NY27 218930 NY28 220056 NY29 220097 NY30 220140 NY31 220175 NY32 220223 NY35 220269 NY36 220313 NY37 220352 NY38 221640 NY40 221683 NY42 221720 NY43 223125 NY44 223160 NY45 223198 NY46 223249 NY33 224005 NY47 224048 NY48 224094 NY53 224138 NY50 224185 NY51 226666 NY52 226716 OH01 226762 OH02 226808 OH03 226857 OH05 226900 OH06 227967 OR01 230198 OR02 230251 OR04 230295 OR05 231608 OR06 233831 OR07 238015 OR08 240406 OR09 240458 OR10 240495 OR11 240534 OR12 242440 PA01 244794 PA02 246267 PA03 247517 PA05 247561 PA06 248730 PA07 248773 PA08 249771 PA09 249818 PA27 249863 PA10 249906 PA11 251042 PA12 251074 PA13 252931 PA14 253999 PA16 255297 PA15 255343 PA18 255387 PA19 256994 PA20 258285 PA21 258320 PA26 260600 PA22 262754 PA28 262790 PA23 262827 PA24 262876 PA29 262918 PA25 262967 RI04 265401 SD01 265447 SD02 265493 TN01 266727 UT01 267456 UT02 269010 UT03 269058 UT04 270815 UT05 272938 UT06 274644 UT07 274699 UT08 274747 UT10 278910 UT11 280057 UT12 281836 UT13 282627 UT14 286741 UT09 288055 VA01 288092 VA02 288128 VA03 288170 VA04 288207 VT01 289846 VT02 292107 VT03 292147 VT04 293431 VT05 293471 VT06 293517 VT07 294564 VT09 296523 VT11 297015 VT12 297060 VT14 297113 VT15 298247 VT16 299247 VT17 300592 VT18 302053 VT20 302105 VT21 304053 VT22 306969 VT23 316955 WA01 317007 WA03 317998 WA04 318046 WA05 320027 WA06 320074 WA08 321468 WA07 323029 WA09 323064 WA11 323102 WA13 323139 WA02 325508 WA14 327648 WI25 327692 WI02 328990 WI28 329034 WI03 329074 WI04 329114 WI05 329154 WI06 329204 WI07 329254 WI26 329300 WI27 329344 WI29 329387 WI10 329425 WI11 329468 WI12 329522 WI13 329567 WI14 329615 WI15 329653 WI16 329693 WI17 329731 WI18 329784 WI31 329833 WI19 329887 WI32 329933 WI33 329974 WI21 330013 WI22 330055 WI23 330104 WI34 330144 WI35 330189 WI24 330225 WI36 330267 WI37 330307 WI38 330343 WV01 331515 WV02 331559 WV03 331603 WV04 331653 WV05 331693 WV06 332477 WV07 333377 WY01 333431 WY03 333478 WY04 333526 WY05 333568 WY06 333608 WY07 336034 WY08 336077 WY09 336124 WY10 336166 HasAd TitleBox -- the handler initializes list B"PopMenuArrow" buttonUp buttonUp buttonUp PopMenuArrow Choose Ski Area... AreaNames PopMenuArrow -- display the popup clist selecting AreaPopList buttonUp buttonUp AreaPopList AllList ShowAllAreas "AllList" "AreaNames" "AllAds" "HasAd" selectedTextLines "Ski Areas within State:" "TitleBox" -- reset area list buttonUp buttonUp AllList AreaNames AllAds HasAd AreaNames AreaNames HasAd Ski Areas within this State: TitleBox enterPage Re-Display List of ALL SKI AREAS Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Personal Prefs" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Personal Prefs location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiii t%:PHYSSIZE ):PHYSSIZE AllAds Ground Transport Train General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Ground Transportation Summary Ground Carrier Phone Type of Transportation 3240,1800ion 3240,1800 Train Limousine Taxi/Limousine Shuttle Bus Shuttle XXXXXXXXX3 HasAd Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp GroundN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Ground Carrier Name and Telephone textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp GroundT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Type of Transportation GenInfo Ground Transportationummary CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\GroundN.dat" Ground Transport Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage @$B"B"J&J&J&J&J&J&J&J& General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Ground Transportation Information 1,2,3 1800,0 1,2,3 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description Summer/Fall Activities d!B"B"J J J J J J J J General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: COC General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO Summer/Fall Activities 1800,0ain 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description Ground Transport Ad Southeastern Region Ski Packagers General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Special Values --------------------------------------- Choose Ski Areas in: AA General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Special Values --------------------------------------- Choose Ski Area in: Ski Packagers Summary Packager Name Phone City State 3240,2520ate 3240,2520 Aspen CO Boulder CO Denver CO Owings Mills MD 11460 Cronridge Drive, #100 21117 410 356-8411460 Cronridge Drive, #100 21117 410 356-84MD 11460 Cronridge Drive, #100 21117 410 356-8460 Cronridge Drive, #100 21117 410 356-8488888888 selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. PackageN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Packager and Telephone Ski Packagers PackageC }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName PackageS }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName State Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKICD\CD-ROM\Datafile\PackageN.dat" HasAd Ski Packagers Ad General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Ski Packager Information 1,2,7,3,8,4 1800,0,3,8,4 1800,0 P01 000000 P02 120935 P03 128576 P04 178816 Ski Area Destination: Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiii :PHYSSIZE :PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Packages Available & Description:& Ski Packagers Ad Special Values General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers --------------------------------------- Choose Ski Areas in: CO Special Values Summary Company Value Package Description 4320,0iption 4320,0 3240,00 ValuesN Company Value Package Description Special Values Summaryr CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE HasAd textScrolled "HasAd" If IT <> selectedTextLines BACKGROUND -- match fields rolled textScrolled enterField textScrolled HasAd HasAd enterField buttonUp Status textScrolled "Name" textScrolled textScrolled One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\DataFile\ValueAll.dat" Datafile\ValueID.dat" Special Values Ad playing AVI file displaying InAdPage must be may ghost ClozAvi enterpage leavePage enterpage o1MInAdPage leavePage oTDClozAvi General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: 7 Special Values Information 1800,0n 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Survey -- intercept on worksheet Print "RIndex" 1440,1440,1980,1000 printerSize 9360,0 -- global settings printerLabelWidth -- setup 8 -- so fonts will be reset "Arial" "1994-'95 SKIODYSSEY Survey" "Date: Page: enterpage Print enterpage Print RIndex Arial 1994-'95 SKIODYSSEY Survey Date: ~D Page: ~P of 2 General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO SKIODYSSEY Survey 1800,0ain 1800,0 ______________________________________________________________________ ______________________________________________________________________ Address ______________________________________________________________________ City/Province State/Country Zip Code Please take a few moments to complete this form and answer the following questions. Your responses will help make next year's SKIODYSSEY Interactive Annual that much better! Fax or Mail this survey form to: Media Odyssey, Inc. P.O. Box 3048 Denver, CO 80205 Fax: 303-293-8044 RETURN THIS SURVEY FORM TO QUALIFY YOURSELF FOR A SPECIAL DRAWING TO BE HELD ON FEBRUARY 10, 1995! Thank You! Please CIRCLE your response to the following questions. 1. What kind of winter sport enthusiast 4. Through whom do you book your ski are you? (You may circle more than one.) holidays? A. Downhill A. Travel Agent B. Snowboard B. Tour Operator C. Cross Country C. Independently D. Telemark D. Other E. Non-Skier ___________________________________ 2. If you ski, how often do you ski in 5. How do you normally travel? a given year? A. Air A. < 5 days B. Train B. 5-10 days C. Bus C. 10-30 days D. Personal Car D. 30+ days E. Rental Car 3. Please rate your ability level. 6. Of the following, which is the most A. Beginner important factor in booking a hotel? B. Intermediate A. Proximity to slopes C. Advanced B. Hot Tub / Jacuzzi D. Expert C. Low room rates D. Kitchen units E. Other ___________________________________ 7. When do you do most of your skiing? 15. Any suggestions or comments for (You may circle more than one.) improving SKIODYSSEY? A. Weekdays B. Weekend Trips ___________________________________ C. Vacations D. Squeeze in on business trips ___________________________________ ___________________________________ 8. What other sports do you particpate in? A. Tennis E. Running ___________________________________ B. Golf F. Hiking C. Fishing G. Diving ___________________________________ D. Sailing H. Other _________________ ___________________________________ 9. How did you learn about this CD-ROM? ___________________________________ (Circle All that apply.) A. Magazine E. Newspaper article ___________________________________ B. Friend F. Computer Network/BBS C. Co-worker G. Other ___________________________________ D. Newsletter _________________ ___________________________________ 10. Do you have a computer running Microsoft Windows in your: ___________________________________ A. Home C. Both B. Office D. Neither ___________________________________ 11. How difficult was it to install SKIODYSSEY? ___________________________________ A. Very Easy C. Somewhat difficult B. Easy D. Took me a while Comments: ______________________ THANK YOU FOR YOUR TIME! _________________________________ 12. What is your overall opinion of SKIODYSSEY? A. Better than expected B. What I expected C. Average D. Needs work Comments: ______________________ _________________________________ 13. How old are you? A. Under 18 D. 31-35 B. 18-24 E. 36-40 C. 25-30 F. 41+ 14. Average household income? (If you don't want to answer this one, that's cool!) A. < $ 20,000 B. $ 20,000 - $ 34,000 C. $ 35,000 - $ 49,000 D. $ 50,000 - $ 64,000 E. $ 65,000 ++ SKI ODYSSEY SURVEY PRINT THIS FORM OUT ONLY We'd Like To Hear From You! Please select "Print" from the "File" menu to print out the SKIODYSSEY Survey Form. The form is only 2 pages long with 14 questions. After you complete the short survey, fax or mail it back to us and YOU'LL AUTOMATICALLY BE QUALIFIED FOR A SPECIAL DRAWING! The drawing will be held on February 10, 1995...Fax: 303-293-8044 RETURN THIS SURVEY FORM TO QUALIFY YOURSELF FOR A SPECIAL DRAWING TO BE HELD ON FEBRUARY 10, 1995! Thank You! Please CIRCLE your response to the following questions. 1. What kind of winter sport enthusiast 4. Through whom do you book your ski are you? (You may circle more than one.) holidays? A. Downhill A. Travel Agent B. Snowboard B. Tour Operator C. Cross Country C. Independently D. Telemark D. Other E. Non-Skier ___________________________________ 2. If you ski, how often do you ski in 5. How do you normally travel? a given year? A. Air A. < 5 days B. Train B. 5-10 days C. Bus C. 10-30 days D. Personal Car D. 30+ days E. Rental Car 3. Please rate your ability level. 6. Of the following, which is the most A. Beginner important factor in booking a hotel? B. Intermediate A. Proximity to slopes C. Advanced B. Hot Tub / Jacuzzi D. Expert C. Low room rates D. Kitchen units E. Other ___________________________________ 7. When do you do most of your skiing? 15. Any suggestions or comments for (You may circle more than one.) improving SKIODYSSEY? A. Weekdays B. Weekend Trips ___________________________________ C. Vacations D. Squeeze in on business trips ___________________________________ ___________________________________ 8. What other sports do you particpate in? A. Tennis E. Running ___________________________________ B. Golf F. Hiking C. Fishing G. Diving ___________________________________ D. Sailing H. Other _________________ ___________________________________ 9. How did you learn about this CD-ROM? ___________________________________ (Circle All that apply.) A. Magazine E. Newspaper article ___________________________________ B. Friend F. Computer Network/BBS C. Co-worker G. Other ___________________________________ D. Newsletter _________________ ___________________________________ 10. Do you have a computer running Microsoft Windows in your: ___________________________________ A. Home C. Both B. Office D. Neither ___________________________________ 11. How difficult was it to install SKIODYSSEY? ___________________________________ A. Very Easy C. Somewhat difficult B. Easy D. Took me a while Comments: ______________________ THANK YOU FOR YOUR TIME! _________________________________ 12. What is your overall opinion of SKIODYSSEY? A. Better than expected B. What I expected C. Average D. Needs work Comments: ______________________ _________________________________ 13. How old are you? A. Under 18 D. 31-35 B. 18-24 E. 36-40 C. 25-30 F. 41+ 14. Average household income? (If you don't want to answer this one, that's cool!) A. < $ 20,000 B. $ 20,000 - $ 34,000 C. $ 35,000 - $ 49,000 D. $ 50,000 - $ 64,000 E. $ 65,000 + B. 18-24 E. 36-40 C. 25-30 F. 41+ 14. Average household income? (If you don't want to answer this one, that's cool!) A. < $ 20,000 B. $ 20,000 - $ 34,000 C. $ 35,000 - $ 49,000 D. $ 50,000 - $ 64,000 E. $ 65,000 +0 + E. $ 65,000 + Worksheet -- intercept on worksheet Print "RIndex" 1440,1440,1980,1000 printerSize 9360,0 -- global settings printerLabelWidth -- setup 8 -- so fonts will be reset "Arial" "1994-'95 SKIODYSSEY Worksheet" "Date: Page: enterpage Print enterpage Print RIndex Arial 1994-'95 SKIODYSSEY Worksheet Date: ~D Page: ~P of 1 General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: SKIODYSSEY Worksheet 1800,0ain 1800,0 To: ___________________________________ From: _________________________________ Fax: ___________________________________ Tel. No.: _________________________________ Date: ___________________________________ Fax No.: _________________________________ City of Origin (A) __________________________ City of Origin (B) __________________________ No. in Party (A) ___________________________ No. in Party (B) ___________________________ DATES OF TRAVEL: First Choice: _____________________________ 2nd Choice: ______________________________ SKI AREA DESTINATION: First Choice: _____________________________ 2nd Choice: ______________________________ TOTAL NUMBER IN PARTY: __________ [ _____ Adults _____ Children (Ages: ___________) ] LODGING: Lodging Preference: Condo _____ Lodge / Hotel _____ Specific Lodge or Condo: ________________________________________________________ No. of Guests per room: _____ Will use pull-out sleeper? Yes ___ No ___ Price Range: $ ___ $$ ___ $$$ ___ $$$$ ___ Amenities: Pool ___ Sauna ___ Jacuzzi ___ Fireplace ___ Other ________________ Services: Shuttle ___ Business ___ Room Service ___ Other _____________________ LIFT TICKETS: Number of Adult Tickets: _____ No. of Days: _____ No. of Ski Lessons: _____ Number of Child Tickets: _____ No. of Days: _____ No. of Ski Lessons: _____ Multiple Mountain Tickets (if available): Yes _____ No _____ CARS / TRANSFERS: Rental Car: Yes _____ No _____ Ground Transport: Yes _____ No _____ If Car, what size or type (i.e. mid-size, 4WD, Minivan, etc.): _______________________________________ SKI ODYSSEY WORKSHEET PRINT THIS FORM OUT ONLY Select "Print" from the "File" menu to print out the SKIODYSSEY worksheet. After printing, simply complete the worksheet and fax it directly to a ski packager or to the resort's central reservations office.ral reservations office.ell as enable users to communicate directly with a number of reservation services while simultaneously using the SkiOdyssey program. This feature not active in this demo. Sticky Notes General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Sticky Notes 1800,0ain 1800,0 STICKY NOTES Format? key,isShift,isCtrl Conditions = 45 % = TRUE = = 45 e"&Paste" n = 18 = 46 keyUp keyDown keyUp paste &Paste wNoteUndo isCtrl isShift keyDown &Paste isCtrl isShift ClearText "Are you sure want currently" &&\ "showing?" & CRLF & "(Note: You may use ?" && & "Revert" & && " B" &&\ "later retrieve JSAVED .)" \ lvPrompt f"Clear &Now" "&Save THEN "&Cancel" If IT If IT B"SaveNotes" DoubleClick buttonDoubleClick buttonUp buttonDoubleClick buttonUp buttonUp Are you sure you want to remove all of the text currently showing? (Note: You may use the Revert button later to retrieve the last SAVED text.) Clear &Now &Save THEN Clear &Cancel Cancel buttonUp SaveNotes lvPrompt Clear All Text Revert "Revert will erase your existing replace f"&&\ "the most recently saved file?"\ lvPrompt iNow" "&Cancel" If IT -- -- loads DoubleClick buttonDoubleClick buttonUp buttonDoubleClick buttonUp buttonUp Revert will erase your existing text and replace it with the most recently saved text file? &Revert Now &Cancel Cancel leavepage enterpage lvPrompt Revert To Last Save Use the field below to store your notes and comments. Use any text editing technique to enter and/or edit the text, then click the "Save" button to write your notes to your hard drive for permanent storage. SaveNotes 4svFilePath "Are you sure want that now showing" &&\ overwrite your notes?"\ lvPrompt f"&Save Now" "&Cancel" If IT & "Notes.txt" lvFileNam P -- messages % -- delete "F2" DoubleClick buttonDoubleClick buttonUp buttonDoubleClick buttonUp buttonUp Are you sure you want to save the text that is now showing and overwrite your previous notes? &Save Now &Cancel Cancel Notes.txt lvFileNam lvPrompt svFilePath Save Text FindText Find Text... Download General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Current Status Counter Download Data FOR:: Download Data TO Sub-Directory: Enter the Drive and Directory Path on THIS COMPUTER where you wish to download the data.exit SKIODYSSEY and use any file transfer utility to move the data onto the system where you wish to run SKIODYSSEY. DOWNLOAD OPTIONSEEN FALSE buttonUp buttonUp ThisArea Aspen Mountain ThisState All Ski Areas in the State of: CO AllAreas All Ski Areas in the United States enterfield enterfield C:\SkiDown Begin Begin Download Instructions -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar You will need a minimum of 5MB of free space on your drive to accomodate the program files and the smallest single ski area's information. If you choose to download only the currently active ski area, the logo for the area will also be downloaded along with the STATE MAP. You can change the currently active ski area by selecting "GOTO" from the menubar and then either "SKI AREAS IN THIS STATE" or 'LIST ALL SKI AREAS" or by choosing a match from either the Personal Preference Navigator (under the "OPTIONS" menu) or the FINDER (categories listed under the FIND menu). Due to space requirements, NO STATE MAP FILES ARE DOWNLOADED if you choose to download information for "All Ski Areas in the United States." After this operation is complete, you should EXIT SKIODYSSEY and use any file transfer utility to MOVE THE DATA onto your laptop or other computer system. After the data is moved, launch Windows, select "RUN" from the FILE menu and enter the FULL PATH NAME to the SETUP.EXE program file which will be located in the directory you have specified above. After entering the full name of the SETUP.EXE file, click the "OK" button. This program file will setup a Windows program group and program item and will automatically launch the SKI.CD program. Later on, just Double-Click on the SKIODYSSEY program item to run the DOWNLOAD VERSION of the SKIODYSSEY Interactive Annual. NOTE: Due to space requirements, GRAPHIC AND VIDEO FILES ARE NOT DOWNLOADED. To view the video files you must have the SKIODYSSEY Interactive Annual on CD-ROM. Contact Media Odyssey at 303-293-3837 for more information.. Finder General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: AK02 000000 AK04 002421 AZ04 004012 CA01 005870 CA03 010014 CA07 012106 CA08 015537 CA09 017416 CA12 021143 CA13 028120 CA15 031875 CA16 035316 CA18 037275 CA19 039088 CA30 042553 CA31 045863 CA32 047438 CA35 048701 CA40 050699 CA41 052046 CO01 053303 CO02 056945 CO04 057721 CO05 062114 CO06 066849 CO08 070212 CO09 075874 CO12 078177 CO15 083973 CO16 088044 CO17 089451 CO22 092084 CO23 096168 CO24 099397 CO29 102504 CO30 106412 CO33 107841 CO34 112199 CO36 117730 CO38 120444 CO39 123941 CO40 132765 CO41 139531 IA10 141929 ID04 143008 ID05 146391 ID17 148583 ID18 152495 ID22 155579 IL02 160310 IL07 161187 IN02 161750 IN05 162496 MA07 163214 MA08 164501 MA11 165605 MA17 167257 MD01 168357 ME07 169441 ME13 171035 ME14 176603 ME17 182376 MI02 184223 MI03 185429 MI07 186639 MI08 188728 MI11 189743 MI13 191017 MI25 192064 MI30 193265 MI33 193995 MI34 195654 MN04 196814 MN06 197725 MN09 198802 MN15 200369 MN19 201595 MT02 203805 MT03 207490 MT04 210363 MT11 213312 NC01 216009 NC06 216494 NC07 217386 NH01 218346 NH04 220032 NH09 221650 NH12 223802 NH14 224888 NH26 227142 NH28 230001 NJ05 231819 NM01 234451 NM03 237414 NM05 239499 NM10 242698 NM11 248299 NV05 249774 NV14 251480 NY02 253925 NY05 255564 NY08 259068 NY09 260173 NY18 261429 NY19 263801 NY24 264978 NY25 267707 NY27 270588 NY37 271519 NY42 272254 NY46 274031 NY50 274964 OH05 278403 OH06 278781 OR04 279408 OR05 280560 OR06 281787 OR07 284977 OR11 289116 OR12 290826 PA01 292535 PA02 293479 PA05 294179 PA07 295134 PA10 296752 PA12 298206 PA13 299084 PA14 300148 PA18 301285 PA19 302977 PA21 304148 PA25 304940 PA26 305825 SD02 306576 TN01 307516 UT01 307928 UT03 311490 UT04 314224 UT05 318312 UT08 321933 UT10 326582 UT11 328855 UT12 331141 UT13 334360 UT14 338002 VA04 340447 VT01 341389 VT03 344250 VT05 345915 VT06 348323 VT07 350839 VT09 359537 VT14 361443 VT15 366432 VT16 370224 VT17 372629 VT20 373729 VT21 376040 VT22 380969 WA01 386745 WA02 388596 WA04 392057 WA06 395088 WA08 397425 WA13 399025 WI15 401004 WI25 401664 WI36 402191 WI38 403409 WV05 403777 WV06 404819 WY06 406823 Fewer words yield more matches. Searches for ANY occurance of the above text. keyEnter Conditions B"ThisArea" B"ThisState" B"AllAreas" keyUp keyUp ThisArea ThisArea ThisState ThisState AllAreas Name to look for: ThisArea Aspen Mountain ThisState keyEnter location ObjectFromPoint( lvWhere FindMatch Click buttonDoubleClick keyUp buttonUp buttonDoubleClick buttonUp keyUp buttonUp location buttonUp FindMatch lvWhere location Currently Selected State: CO AllAreas keyEnter location ObjectFromPoint( lvWhere FindMatch Click buttonDoubleClick keyUp buttonUp buttonDoubleClick buttonUp keyUp buttonUp location buttonUp FindMatch lvWhere location ALL Ski Areas in the United States Look for match in: Status Gathering data on 5 ski areas where "music" was found. One moment please... please... Counter Counter2 :PHYSSIZE ErrorGroup "Hello there?" buttonUp buttonUp Hello there? ErrorMsg SKIODYSSEY Interactive Annual Copyright 1994. All rights reserved. Initializing CD-ROM. One moment please...g for CD-ROM drive. One moment please...... Media Odyssey, Inc. zBack Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( . -- whatever came uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp location buttonDoubleClick buttonUp location PopMenuArrow { -- location buttonUp buttonUp buttonDown buttonUp location :PHYSSIZE :PHYSSIZE PopMenuList List ALL SKI &AREAS... {List ALL &STATES... Alabama Alaska Arizona California Colorado Connecticut Georgia Idaho Illinois Indiana Kentucky Maine Maryland Massachusetts Michigan Minnesota Missouri Montana Nebraska |Nevada New Hampshire New Jersey New Mexico New York North Carolina North Dakota Oregon Pennsylvania Rhode Island South Dakota Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming {Western Region Alaska California Nevada Oregon Washington {Rocky Mountain Region Arizona Colorado Idaho Montana New Mexico Wyoming {Midwest Region Illinois Indiana Michigan Minnesota Missouri Nebraska North Dakota South Dakota Wisconsin {Eastern Region Kentucky Maryland New Jersey New York Pennsylvania Virginia West Virginia {Northeastern Region Connecticut Maine Massachusetts New Hampshire Rhode Island Vermont {Southeastern Region Alabama Georgia North Carolina Tennessee New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }}}}ia StateAbbrevs List ALL SKI &AREAS {List ALL &STATES... {Western Region AK Alaska CA California NV Nevada OR Oregon WA Washington {Rocky Mountain Region AZ Arizona CO Colorado ID Idaho MT Montana NM New Mexico UT Utah WY Wyoming {Midwest Region IL Illinois IN Indiana IA Iowa MI Michigan MN Minnesota MO Missouri NE Nebraska ND North Dakota OH Ohio SD South Dakota WI Wisconsin {Eastern Region KY Kentucky MD Maryland NJ New Jersey NY New York PA Pennsylvania VA Virginia WV West Virginia {Northeastern Region CT Connecticut ME Maine MA Massachusetts NH New Hampshire RI Rhode Island VT Vermont {Southeastern Region AL Alabama GA Georgia NC North Carolina TN Tennessee }}}w Jersey MD Maryland DL Deleware WV West Virginia VA Virginia KY Kentucky {Northeastern Region QU Quebec Canada NF Newfoundland NK New Brunswick NS Nova Scotia ME Maine NH New Hampshire VT Vermont MS Massachusetts CN Connecticut RI Rhode Island {Southeastern Region TN Tennessee NC North Carolina AL Alabama GA Georgia } Region Tennessee North Carolina Alabama Georgia }eorgia }orgia }}}}ia AreaNamesByState AreaNamesByName RIndex Map of North America Non-Skiing Services Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Non-Skiing Services Information 1,2,3 1800,0 1,2,3 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE 2$:PHYSSIZE Non-Skiing Services Ad Special Events Calendar General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Special Events Calendar Event Date Contact Phone Special Event Name 2520,0t Name 2520,0,0,032020 AK02 000000 CA12 001806 CA13 006867 CO02 006932 CO04 007513 CO05 031039 CO06 054565 CO09 057185 CO12 080711 CO33 084609 CO34 108135 CO36 113464 CO39 113529 IA10 116946 ID04 117235 ID17 117502 ID22 119005 IN02 120982 ME13 122554 MI25 123135 MI34 124593 MN04 126829 MT02 127187 MT03 127252 NC01 130157 NH26 130775 NJ05 133084 NM10 133303 NY19 135557 NY24 137129 NY25 137901 NY27 140225 NY37 140296 NY42 140361 OH06 140426 PA02 140503 PA13 140568 PA19 140633 UT01 140698 UT03 140763 UT04 141553 UT05 141842 UT08 141914 UT12 161380 VT06 162009 VT07 162074 VT22 170642 WA06 195780 WY06 196705 HasAd Special Events Calendar EventsD }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Event Date Information Phone textScrolled "HasAd" If IT <> selectedTextLines BACKGROUND -- match fields rolled textScrolled enterField textScrolled HasAd HasAd enterField buttonUp EventsN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Special Event Name Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\EventsD.dat" Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii $:PHYSSIZE (:PHYSSIZE CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. Special Events Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage -(#0'0'0'0'0'0'0'0' General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Special Event Information 1,2,3 1800,0 1,2,3 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE "$:PHYSSIZE How To Get There e"Printer &Setup" ..." A..." enterpage leavepage enterpage Printer &Setup &Print... leavepage Printer &Setup &Print... =8,8,8,8,8,8,Q General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: % :PHYSSIZE :PHYSSIZE How To Get There Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Travel HAir" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Travel by Air location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE CarRent Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Car Rental" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Car Rental location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii #:PHYSSIZE ':PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Travel HRoad" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Travel by Road location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiii /:PHYSSIZE 4:PHYSSIZE Ground Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Ground Transport" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Ground Transport location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii ,<:PHYSSIZE @:PHYSSIZE Special Events Ad Midwest Region Northeastern Region About Media Odyssey Special Events Calendar Area Directory Travel By Air General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Travel by Air Summary Airline Name Phone Airports Served 3240,1800ved 3240,1800 DIA, EGE DIA, ASE, EGE, Grand Junction DIA, EGE DIA, EGE DIA, EGE, ASE XXXXXXXXX selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Airline Name and Telephone textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Airports Served GenInfo Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Travel by Airrvices Summary CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\AirN.dat" HasAd How To Get There Travel By Air Travel by Road Air Travel Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage ((#(#41 General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- List Ski Areas in CO Air Travel Information 1,2,3 1800,0 1,2,3 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description Car Rental General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Car Rental Summary Car Rental Agency Phone Airports Served 3240,1800ved 3240,1800 Aspen Aspen Aspen/DIA Aspen Aspen 999999999 Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Car Rentalsirrvices Summary CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. GenInfo HasAd selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp CarRentN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Rental Agency Name and Telephone textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp CarRentA }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Airports Served Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\CarRentN.dat" Car Rental Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage ((#(#41 General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO Car Rental Information 1,2,3 1800,0 1,2,3 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description Car Rental Ad -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End >= 33 <= 40 keyEnter 4svFilePath -- DOS path Hardrive files -- identify which index we need access "CurrentData" lvCurID selectedTextLines "F2" lvLineNo "F2" lvFrom -- see data already showing If IT = "Information Bdisplayed : " &\ CRLF && && "." lvPrompt pushedTone lvTone -- loading message "F3" Center "Getting on: " &\ "One Moment Please..." -- the appropriate temporary & "TempData\" & & ".a" lvTmpFile o(124) -- | delimits -- IT now matching record -- Destination list "F3" "F3" FALSE -- -- Update headings If = "Help" "Photos In: keyUp keyDown buttonDoubleClick keyDown keyUp buttonDoubleClick buttonDoubleClick CurrentData CurrentData Information is already displayed for: pushedTone CurrentData Getting Information on: One Moment Please... TempData\ Help On: Photos In: lvTmpFile lvTone lvPrompt lvFrom lvLineNo lvCurID svFilePath Travel by Road General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Travel by Road Summary 1,7,2,8,3 1800,0,2,8,3 1800,0 AVIWindow -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Travel From: Travel Information for above selection: PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia ShowInfo Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiii :PHYSSIZE :PHYSSIZE AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount #:PHYSSIZE Lodging Eastern Region Lodge Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: co General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Lodging Information 1,2,3,8,4,9,5 3120,0,4,9,5 3120,0,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description: -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Features: -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Services: Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE #:PHYSSIZE Lodge Ad Travel by Bus and Train Shopping Summary General Overview Trail Information Lodging Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: MT General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Shopping Summary Name Type Phone 3240,4320one 3240,4320240,3960 T- Shirts 619 934-8652 Books 619 924-3551 Women's Fashions 619 934-4495 Shoes 619 934-0264 Gifts, Cards 619 934-2187 Christmas 619 934-6887 Miscellaneous 619 924-3634 Sporting Goods 619 934-3239 Clothing 619 934-3239 Children's 619 934-7337 Fashion Apparel 619 934-7040 Household 619 934-4122 Books 619 934-3240 Specialty Foods 619 934-2997 Sporting Goods 619 934-2070 Pet 619 934-6269 Men's Fashions 619 924-2038 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX AK02 000000 CA12 000136 CA13 001370 CO02 001728 CO04 001794 CO05 010810 CO06 019826 CO09 020105 CO12 029250 CO33 030759 CO34 039938 CO36 047792 CO39 047871 IA10 048237 ID04 048763 ID22 049418 IN02 056895 ME13 057062 MI25 057696 MN04 057848 MT02 058086 MT03 061652 NC01 064284 NH26 064427 NJ05 065194 NM10 065428 NY19 069358 NY24 069435 NY25 069580 NY27 070484 NY37 070559 NY42 071050 OH06 071708 PA02 071786 PA13 071867 PA19 071947 UT01 072983 UT03 073625 UT04 074355 UT05 074920 UT08 075550 UT12 078486 VT06 079456 VT07 079531 VT22 085070 WA06 094733 WY06 095223 CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. HasAd Shopping Summaryn selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp ShopN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp ShopT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Type and Telephone Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\ShopN.dat" atafile\TempData\_ShopN.b.x" Parsing: "D:\SKI-CD\datafile\_ShopT.dat" Writing Files "D:\SKI-CD\datafile\TempData\_ShopT.b.x" Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE j!:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii `):PHYSSIZE -:PHYSSIZE Food Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage -|-|-|- General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Food Information 1,2,3,4 1800,0,2,3,4 1800,0 AVIWindow -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE Shopping Car Rental Food Ad Skier Services Ad About Media Odyssey General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO About Media Odyssey 1800,0n 1800,0 AVIWindow The SKIODYSSEY Teameam -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar AVIControls :PHYSSIZE Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount Shop Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage +N-N- General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Shopping Information 1,2,3 1800,0 1,2,3 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE H!:PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description Skier Services General Overview Trail Information Lodging Shopping Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Ski Services Summary Name Ski Services Phone 3240,4320one 3240,432020 Ski School 303 925-7099 Ski Guides 303 925-1227 Special Program 303 925-1227 Ski School 303 925-1227 Ski School 303 925-1227 Ski School 303 925-1227 Ski School 303 925-1227 Ski Guides 303 925-1227 Special Program 303 925-1220 Ski School 303 925-1227 Special Program 303 925-1220 Special Program 800 525-6200 00000000000000000000000 AK02 000000 CA08 000160 CA12 001308 CA13 010962 CO02 011584 CO04 011997 CO05 015036 CO06 024019 CO09 027132 CO12 038123 CO33 041263 CO34 058612 CO36 060529 CO39 060766 IA10 064128 ID04 064976 ID17 065455 ID22 065611 IN02 066862 ME13 067106 MI25 067672 MI34 067900 MN04 068302 MT02 068456 MT03 068687 NC01 069674 NH26 070172 NJ05 070938 NM10 071428 NY19 073886 NY24 074330 NY25 074866 NY27 075505 NY37 075644 NY42 076053 OH06 076667 PA02 076904 PA05 077058 PA13 077296 PA19 077448 UT01 077961 UT03 078550 UT04 079322 UT05 079872 UT08 080491 UT12 092084 VT06 092309 VT07 092535 VT22 094716 WA06 097209 WY06 097675 CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. HasAd Ski Services Summary selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp SkiServN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp SkiServT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Skier Services and Telephone Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\SkiServN.dat" Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii (:PHYSSIZE "-:PHYSSIZE Skier Services Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Ski Services Information 1,2,3 1800,0 1,2,3 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE !:PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description Other Services General Overview Trail Information Lodging Shopping Skier Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Other Services Summary Name Other Services Phone 3240,4320one 3240,4320 Child Care 303 925-5437 Child Care 303 923-6080 XXX+ CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. HasAd Other Services Summary selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp OtherSvN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp OtherSvT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Type of Service and Telephone Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\OtherSvN.dat" Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii $:PHYSSIZE r):PHYSSIZE Other Services Ad playing AVI file displaying InAdPage OutAdPage 8 -- clozes avifile cleans up -- Note: sent LoadItemInfo handler summary setup there enterpage leavePage enterpage o1MInAdPage leavePage OutAdPage General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Other Services Information 1,2,3 1800,0 1,2,3 1800,0 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount :PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Description PopMenuList General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events How To Get There Summer Fall Activities Ski Packagers Special Values More Information...}regon Pennsylvania Rhode Island South Dakota |Tennessee Vermont Virginia Washington West Virginia Wisconsin Wyoming British Columbia Alberta Saskatchewan Manitoba Ontario Quebec Newfoundland New Brunswick Nova Scotia {Western Region Alaska British Columbia Canada Washington Oregon California Nevada Hawaii {Rocky Mountain Region Alberta Canada Idaho Montana Wyoming Colorado Arizona New Mexico {Midwest Region Saskatchewan Canada Manitoba Canada North Dakota South Dakota Nebraska Minnesota Missouri Wisconsin Illinois Michigan Indiana {Eastern Region Ontario Canada New York Pennsylvania New Jersey Maryland Deleware West Virginia Virginia Kentucky {Northeastern Region Quebec Canada Newfoundland New Brunswick Nova Scotia Maine New Hampshire Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia Vermont Massachusetts Connecticut Rhode Island {Southeastern Region Tennessee North Carolina Alabama Georgia }th Carolina Alabama Georgia Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE "$:PHYSSIZE Other Services Sticky Notes Survey Other Services Ad Non-Skiing Activities General Overview Trail Information Lodging Shopping Skier Services Other Services Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Non-Skiing Services Summary Name Activity Phone 3240,4320one 3240,4320 Ballooning 303 925-9497 Art Gallery 303 923-3181 Museum 303 925-8050 Sleigh Rides 303 927-3334 Museum 303 925-3721 Snowshoeing 303 925-2849 Snowmobiling 303 923-4252 Tours 303 925-3699 Snowshoeing 303 925-5756 Swimming 303 920-5145 Dog Sled Rides 303 923-4342 Tours 303 925-2049 Sleigh Rides 303 923-3075 Snowmobiling 303 925-4614 Skating 303 920-5141 Skating 303 925-6360 Ballooning 303 925-5752 Opera 303 920-5770 00000000000000000000000000000000000 AK02 000000 CA12 000204 CA13 002287 CO02 002439 CO04 004124 CO05 009401 CO06 014692 CO09 016372 CO12 021658 CO33 022875 CO34 028156 CO36 029340 CO39 029624 IA10 031329 ID04 031427 ID17 031849 ID22 032519 IN02 036272 ME13 036514 MI25 037181 MI34 037483 MN04 037688 MT02 037836 MT03 040051 NC01 042194 NH26 042314 NJ05 042882 NM10 043166 NY25 049866 NY37 050815 NY42 051244 OH06 051382 PA13 051453 PA19 051648 UT01 052452 UT03 052527 UT04 053307 UT05 053851 UT08 054348 UT12 064125 VT06 064521 VT07 064655 VT22 067755 WA06 068652 HasAd Non-Skiing Activities Summary selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp NSActivN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp NSActivT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Activity and Telephone Status textScrolled "Name" textScrolled textScrolled One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\DataFile\N.dat" .dat" Datafile\NSActivN.dat" Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE @ :PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii 6(:PHYSSIZE ,:PHYSSIZE CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. 4svFilePath c"&Edit Notes" alias "NoteEdit" e"&Undo" & 9& "Alt+Bksp" -- Useparator e"Cu&t" & 9& "Shft+Del" e"&Copy" & 9& "Ctrl+Ins" e"&Paste" & e"&Delete" & Put "F2" If IT o(126) -- ~ error .txt" lvFileNam -- lvFName If fileExists( *) = 1 -- the there H -- just ansiTochar(26) -- EOF "F2" "F2" "~" & CRLF & "FILE ERROR!" & "Can't find your notes :" &&\ & "." & "See has been renamed removed."\ pushedTone lvErrorTone FALSE False NoteDel NoteUndo ePage enterpage NoteDel leavePage NoteUndo enterpage &Edit Notes NoteEdit &Undo Alt+Bksp NoteUndo NoteEdit NoteEdit Shft+Del NoteEdit &Copy Ctrl+Ins NoteEdit &Paste Shft+Ins NoteEdit &Delete NoteDel NoteEdit &Paste Notes.txt Notes.txt fileExists FILE ERROR! Can't find your notes file: See if it has been renamed or removed. pushedTone lvErrorTone lvFName lvFileNam svFilePath leavePage &Edit Notes &Paste NoteDel clear NoteUndo wNoteUndo List of All Ski Areas Shop Ad Recommended Areas by Preference Area Map Trails Summary Air Travel Ad Road Travel Ad Rocky Mountain Region Cover Page Skier Services Area Information Directory Ground Transport Summer/Fall Activities Worksheet General Overview #Z'Z'Z'Z'Z'C Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: co General Overview Trail Information --------------------------------------- Choose Ski Area in: Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO) General Overview 3120,0ain 3120,0 AK02 000000 AK01 001675 AK04 001721 AK07 002627 AL01 002667 AZ04 002711 AZ02 003443 AZ03 003488 AZ01 003531 CA01 003572 CA02 005312 CA35 005356 CA13 006871 CA03 008967 CA40 010836 CA06 012020 CA30 012067 CA36 013241 CA08 013278 CA09 016677 CA25 017755 CA12 017800 CA33 026162 CA26 026209 CA17 026243 CA27 026287 CA15 026324 CA37 027442 CA28 027489 CA41 027529 CA16 029592 CA07 029631 CA29 031373 CA38 031409 CA31 031454 CA32 033054 CA18 037169 CA19 039648 CA20 040496 CO01 040532 CO02 041513 CO04 042506 CO05 048143 CO06 054045 CO08 057992 CO12 059786 CO15 066247 CO16 067782 CO17 069771 CO18 070860 CO22 070906 CO23 072590 CO24 075666 CO25 076737 CO28 076787 CO29 076829 CO30 078832 CO31 079759 CO36 079794 CO33 081389 CO34 087113 CO38 091183 CO09 093443 CO39 099057 CO40 102840 CO41 106106 CT07 108446 CT05 108485 CT06 108533 CT02 108578 CT04 108613 GA01 108654 IA01 108695 IA03 108733 IA05 108767 IA04 108812 IA07 108860 IA08 108896 IA10 108930 IA11 110160 ID04 110199 ID05 111794 ID08 113774 ID10 113814 ID11 113859 ID12 113895 ID13 113944 ID14 113984 ID15 114029 ID17 114071 ID18 117540 ID20 118875 ID21 118918 ID22 118968 IL02 120491 IL06 121266 IL07 121307 IL08 122670 IN01 122706 IN02 122750 IN06 124243 IN05 124277 KY01 125255 MA02 125289 MA03 125336 MA04 125377 MA05 125420 MA06 125461 MA07 125502 MA08 126678 MA10 128157 MA11 128202 MA12 129282 MA13 129331 MA14 129372 MA19 129420 MA17 129455 MA18 130425 MD01 130468 ME02 131462 ME15 131503 ME04 131543 ME05 131590 ME06 131629 ME16 131673 ME10 131719 ME17 131762 ME07 132799 ME12 134503 ME13 134541 ME14 137994 ME08 141033 MI01 141074 MI42 141116 MI02 141159 MI03 142384 MI04 143641 MI05 143685 MI06 143729 MI07 143771 MI08 144781 MI09 145926 MI10 145975 MI11 146019 MI43 148081 MI12 148127 MI13 148164 MI14 149640 MI15 149683 MI16 149724 MI17 149770 MI19 149812 MI20 149850 MI21 149895 MI44 149937 MI23 149972 MI24 150013 MI25 150064 MI26 152739 MI27 152779 MI28 152829 MI29 152873 MI30 152911 MI31 154022 MI33 154065 MI35 156831 MI37 156869 MI38 156910 MI34 156953 MI39 158311 MI41 158358 MI40 158403 MN19 158450 MN01 159244 MN04 159294 MN02 159968 MN03 160009 MN06 160053 MN08 160861 MN09 160905 MN11 161673 MN10 161717 MN13 161763 MN14 161809 MN15 161849 MN17 162288 MN18 162335 MO01 162382 MT03 162433 MT04 166196 MT05 168789 MT06 168837 MT07 168882 MT08 168932 MT09 168982 MT10 169032 MT11 169072 MT12 171775 MT13 171825 MT02 171867 MT15 172969 NC01 173009 NC02 174755 NC03 174799 NC04 174841 NC09 174880 NC06 174918 NC05 176179 NC07 176217 NC08 177587 ND01 177633 ND03 177678 ND02 177722 NE01 177765 NE02 177808 NH01 177852 NH03 178788 NH04 178826 NH05 180297 NH07 180336 NH09 180376 NH10 181542 NH11 181594 NH12 181636 NH14 183176 NH15 184342 NH17 184383 NH18 184420 NH20 184465 NH21 184508 NH22 184557 NH23 184600 NH02 184649 NH26 184698 NH28 188333 NJ02 189966 NJ04 190013 NJ06 190055 NJ05 190092 NM01 191205 NM06 192875 NM02 192916 NM11 192958 NM03 193985 NM04 194998 NM05 195037 NM08 198650 NM10 198694 NV05 204923 NV01 206787 NV14 206821 NY02 208528 NY03 209738 NY04 209780 NY06 209825 NY07 209866 NY08 209910 NY09 210972 NY11 213041 NY12 213085 NY13 213132 NY15 213170 NY16 213212 NY17 213260 NY18 213305 NY19 214343 NY20 215405 NY22 215448 NY23 215490 NY24 215540 NY25 216976 NY26 218891 NY27 218930 NY28 220056 NY29 220097 NY30 220140 NY31 220175 NY32 220223 NY35 220269 NY36 220313 NY37 220352 NY38 221640 NY40 221683 NY42 221720 NY43 223125 NY44 223160 NY45 223198 NY46 223249 NY33 224005 NY47 224048 NY48 224094 NY53 224138 NY50 224185 NY51 226666 NY52 226716 OH01 226762 OH02 226808 OH03 226857 OH05 226900 OH06 227967 OR01 230198 OR02 230251 OR04 230295 OR05 231608 OR06 233831 OR07 238015 OR08 240406 OR09 240458 OR10 240495 OR11 240534 OR12 242440 PA01 244794 PA02 246267 PA03 247517 PA05 247561 PA06 248730 PA07 248773 PA08 249771 PA09 249818 PA27 249863 PA10 249906 PA11 251042 PA12 251074 PA13 252931 PA14 253999 PA16 255297 PA15 255343 PA18 255387 PA19 256994 PA20 258285 PA21 258320 PA26 260600 PA22 262754 PA28 262790 PA23 262827 PA24 262876 PA29 262918 PA25 262967 RI04 265401 SD01 265447 SD02 265493 TN01 266727 UT01 267456 UT02 269010 UT03 269058 UT04 270815 UT05 272938 UT06 274644 UT07 274699 UT08 274747 UT10 278910 UT11 280057 UT12 281836 UT13 282627 UT14 286741 UT09 288055 VA01 288092 VA02 288128 VA03 288170 VA04 288207 VT01 289846 VT02 292107 VT03 292147 VT04 293431 VT05 293471 VT06 293517 VT07 294564 VT09 296523 VT11 297015 VT12 297060 VT14 297113 VT15 298247 VT16 299247 VT17 300592 VT18 302053 VT20 302105 VT21 304053 VT22 306969 VT23 316955 WA01 317007 WA03 317998 WA04 318046 WA05 320027 WA06 320074 WA08 321468 WA07 323029 WA09 323064 WA11 323102 WA13 323139 WA02 325508 WA14 327648 WI25 327692 WI02 328990 WI28 329034 WI03 329074 WI04 329114 WI05 329154 WI06 329204 WI07 329254 WI26 329300 WI27 329344 WI29 329387 WI10 329425 WI11 329468 WI12 329522 WI13 329567 WI14 329615 WI15 329653 WI16 329693 WI17 329731 WI18 329784 WI31 329833 WI19 329887 WI32 329933 WI33 329974 WI21 330013 WI22 330055 WI23 330104 WI34 330144 WI35 330189 WI24 330225 WI36 330267 WI37 330307 WI38 330343 WV01 331515 WV02 331559 WV03 331603 WV04 331653 WV05 331693 WV06 332477 WV07 333377 WY01 333431 WY03 333478 WY04 333526 WY05 333568 WY06 333608 WY07 336034 WY08 336077 WY09 336124 WY10 336166! -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount %:PHYSSIZE AVIWindow Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii $.:PHYSSIZE 2:PHYSSIZE Story Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Story" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Story location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii ::PHYSSIZE ?:PHYSSIZE Stats Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Stats" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Stats location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii $G:PHYSSIZE K:PHYSSIZE Trail Information General Overview Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: AVIWindow AVIControls :PHYSSIZE Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount Trails Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Trails Summary" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Trails Summary location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Lifts Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Lifts Summary" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Lifts Summary location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii @!:PHYSSIZE %:PHYSSIZE Area Map General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: AVIWindow AVIControls :PHYSSIZE Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount Story Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Story" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Story location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Stats Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Stats" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Stats location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii !:PHYSSIZE N&:PHYSSIZE Area Story General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO9 Area History 3120,0ain 3120,0 AK02 000000 AK01 001675 AK04 001721 AK07 002627 AL01 002667 AZ04 002711 AZ02 003443 AZ03 003488 AZ01 003531 CA01 003572 CA02 005312 CA35 005356 CA13 006871 CA03 008967 CA40 010836 CA06 012020 CA30 012067 CA36 013241 CA08 013278 CA09 016677 CA25 017755 CA12 017800 CA33 026162 CA26 026209 CA17 026243 CA27 026287 CA15 026324 CA37 027442 CA28 027489 CA41 027529 CA16 029592 CA07 029631 CA29 031373 CA38 031409 CA31 031454 CA32 033054 CA18 037169 CA19 039648 CA20 040496 CO01 040532 CO02 041513 CO04 042506 CO05 048143 CO06 054045 CO08 057992 CO12 059786 CO15 066247 CO16 067782 CO17 069771 CO18 070860 CO22 070906 CO23 072590 CO24 075666 CO25 076737 CO28 076787 CO29 076829 CO30 078832 CO31 079759 CO36 079794 CO33 081389 CO34 087113 CO38 091183 CO09 093443 CO39 099057 CO40 102840 CO41 106106 CT07 108446 CT05 108485 CT06 108533 CT02 108578 CT04 108613 GA01 108654 IA01 108695 IA03 108733 IA05 108767 IA04 108812 IA07 108860 IA08 108896 IA10 108930 IA11 110160 ID04 110199 ID05 111794 ID08 113774 ID10 113814 ID11 113859 ID12 113895 ID13 113944 ID14 113984 ID15 114029 ID17 114071 ID18 117540 ID20 118875 ID21 118918 ID22 118968 IL02 120491 IL06 121266 IL07 121307 IL08 122670 IN01 122706 IN02 122750 IN06 124243 IN05 124277 KY01 125255 MA02 125289 MA03 125336 MA04 125377 MA05 125420 MA06 125461 MA07 125502 MA08 126678 MA10 128157 MA11 128202 MA12 129282 MA13 129331 MA14 129372 MA19 129420 MA17 129455 MA18 130425 MD01 130468 ME02 131462 ME15 131503 ME04 131543 ME05 131590 ME06 131629 ME16 131673 ME10 131719 ME17 131762 ME07 132799 ME12 134503 ME13 134541 ME14 137994 ME08 141033 MI01 141074 MI42 141116 MI02 141159 MI03 142384 MI04 143641 MI05 143685 MI06 143729 MI07 143771 MI08 144781 MI09 145926 MI10 145975 MI11 146019 MI43 148081 MI12 148127 MI13 148164 MI14 149640 MI15 149683 MI16 149724 MI17 149770 MI19 149812 MI20 149850 MI21 149895 MI44 149937 MI23 149972 MI24 150013 MI25 150064 MI26 152739 MI27 152779 MI28 152829 MI29 152873 MI30 152911 MI31 154022 MI33 154065 MI35 156831 MI37 156869 MI38 156910 MI34 156953 MI39 158311 MI41 158358 MI40 158403 MN19 158450 MN01 159244 MN04 159294 MN02 159968 MN03 160009 MN06 160053 MN08 160861 MN09 160905 MN11 161673 MN10 161717 MN13 161763 MN14 161809 MN15 161849 MN17 162288 MN18 162335 MO01 162382 MT03 162433 MT04 166196 MT05 168789 MT06 168837 MT07 168882 MT08 168932 MT09 168982 MT10 169032 MT11 169072 MT12 171775 MT13 171825 MT02 171867 MT15 172969 NC01 173009 NC02 174755 NC03 174799 NC04 174841 NC09 174880 NC06 174918 NC05 176179 NC07 176217 NC08 177587 ND01 177633 ND03 177678 ND02 177722 NE01 177765 NE02 177808 NH01 177852 NH03 178788 NH04 178826 NH05 180297 NH07 180336 NH09 180376 NH10 181542 NH11 181594 NH12 181636 NH14 183176 NH15 184342 NH17 184383 NH18 184420 NH20 184465 NH21 184508 NH22 184557 NH23 184600 NH02 184649 NH26 184698 NH28 188333 NJ02 189966 NJ04 190013 NJ06 190055 NJ05 190092 NM01 191205 NM06 192875 NM02 192916 NM11 192958 NM03 193985 NM04 194998 NM05 195037 NM08 198650 NM10 198694 NV05 204923 NV01 206787 NV14 206821 NY02 208528 NY03 209738 NY04 209780 NY06 209825 NY07 209866 NY08 209910 NY09 210972 NY11 213041 NY12 213085 NY13 213132 NY15 213170 NY16 213212 NY17 213260 NY18 213305 NY19 214343 NY20 215405 NY22 215448 NY23 215490 NY24 215540 NY25 216976 NY26 218891 NY27 218930 NY28 220056 NY29 220097 NY30 220140 NY31 220175 NY32 220223 NY35 220269 NY36 220313 NY37 220352 NY38 221640 NY40 221683 NY42 221720 NY43 223125 NY44 223160 NY45 223198 NY46 223249 NY33 224005 NY47 224048 NY48 224094 NY53 224138 NY50 224185 NY51 226666 NY52 226716 OH01 226762 OH02 226808 OH03 226857 OH05 226900 OH06 227967 OR01 230198 OR02 230251 OR04 230295 OR05 231608 OR06 233831 OR07 238015 OR08 240406 OR09 240458 OR10 240495 OR11 240534 OR12 242440 PA01 244794 PA02 246267 PA03 247517 PA05 247561 PA06 248730 PA07 248773 PA08 249771 PA09 249818 PA27 249863 PA10 249906 PA11 251042 PA12 251074 PA13 252931 PA14 253999 PA16 255297 PA15 255343 PA18 255387 PA19 256994 PA20 258285 PA21 258320 PA26 260600 PA22 262754 PA28 262790 PA23 262827 PA24 262876 PA29 262918 PA25 262967 RI04 265401 SD01 265447 SD02 265493 TN01 266727 UT01 267456 UT02 269010 UT03 269058 UT04 270815 UT05 272938 UT06 274644 UT07 274699 UT08 274747 UT10 278910 UT11 280057 UT12 281836 UT13 282627 UT14 286741 UT09 288055 VA01 288092 VA02 288128 VA03 288170 VA04 288207 VT01 289846 VT02 292107 VT03 292147 VT04 293431 VT05 293471 VT06 293517 VT07 294564 VT09 296523 VT11 297015 VT12 297060 VT14 297113 VT15 298247 VT16 299247 VT17 300592 VT18 302053 VT20 302105 VT21 304053 VT22 306969 VT23 316955 WA01 317007 WA03 317998 WA04 318046 WA05 320027 WA06 320074 WA08 321468 WA07 323029 WA09 323064 WA11 323102 WA13 323139 WA02 325508 WA14 327648 WI25 327692 WI02 328990 WI28 329034 WI03 329074 WI04 329114 WI05 329154 WI06 329204 WI07 329254 WI26 329300 WI27 329344 WI29 329387 WI10 329425 WI11 329468 WI12 329522 WI13 329567 WI14 329615 WI15 329653 WI16 329693 WI17 329731 WI18 329784 WI31 329833 WI19 329887 WI32 329933 WI33 329974 WI21 330013 WI22 330055 WI23 330104 WI34 330144 WI35 330189 WI24 330225 WI36 330267 WI37 330307 WI38 330343 WV01 331515 WV02 331559 WV03 331603 WV04 331653 WV05 331693 WV06 332477 WV07 333377 WY01 333431 WY03 333478 WY04 333526 WY05 333568 WY06 333608 WY07 336034 WY08 336077 WY09 336124 WY10 336166 AVIWindow AVIControls Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount #:PHYSSIZE -- trap 6so can't zallow continous on arrow 6, PgUp/PgDn, End = 46 8 -- deletekey backspace -- letters so nterfield keyDown enterfield keyChar enterfield keyDown keyChar Overview Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "General Overview" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp General Overview location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii T.:PHYSSIZE 2:PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii ::PHYSSIZE J?:PHYSSIZE Stats Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Stats" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Stats location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii NG:PHYSSIZE K:PHYSSIZE Area Stats General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO AVIWindow Overview Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "General Overview" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp General Overview location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE Story Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Story" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Story location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii %:PHYSSIZE *:PHYSSIZE .:PHYSSIZE 2:PHYSSIZE AVIControls 4:PHYSSIZE Reverse Pauze tbkMCI("status AVIfile mode","") If IT c"playing" 8") -- update counter ","") tbkMCIchk("seek AVIFile " && IT-1,"",1) winName ","",1,1) SetActiveWindow( buttondown buttondown status AVIfile mode tbkMCI playing stop AVIfile this book tbkMCI status AVIfile position tbkMCI seek AVIFile to tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow winName 4svFrameCnt -- length avi file controls handler tbkMCIchk("stop AVIFile","") Conditions r = 1 -- only 1 frame Meek 0","",1) "FrameCount" -- on 0","",1) tbkMMNotify completes without user intervention winName atus AVIfile ","",1,1) SetActiveWindow( play -- bypass ("status ","") buttonDown tbkMMNotify buttonDown stop AVIFile tbkMCIchk seek AVIFile to 0 tbkMCIchk FrameCount seek AVIFile to 0 tbkMCIchk status AVIfile window handle tbkMCIchk SetActiveWindow play AVIfile tbkMCIchk winName svFrameCnt tbkMMNotify status AVIfile position tbkMCI FrameCount Forward TLFrames FrameCount Area Stats General Overview Special Values Trail Information Trails Summary ;BCBC General Overview Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: WY General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Trails Summary Trail Name Rating Type Length (ft.) Vertical (ft.) 2880,2160t.) 2880,2160 Mogul --- - Groomed 2000 - Groomed 790 - Mogul 1000 - Moguls/Trees 685 - Groomed --- - Ungroomed --- - Mogul 790 - Groomed 160 - Groomed 2745 - Moguls/Trees 685 - Grmd Bowl 1480 - Groomed 3115 - Groomed 2000 - Groomed 740 - Mogul 900 - Groomed 320 - Groomed 1110 - Groomed 5230 - Mogul --- - Mogul 475 - Groomed --- - Mogul 1850 - Mogul 1690 - Mogul --- - Ungroomed --- - Groomed 6770 - Moguls/Trees --- - Moguls/Trees --- - Moguls/Trees --- - Ungroomed --- - Ungroomed --- - Mogul --- - Mogul 845 - Mogul 1745 - Mogul --- - Mogul --- - Mogul 1480 - Mogul --- - Groomed 580 - Groomed 950 - Groomed --- - Groomed --- - Mogul 2165 - Groomed --- - Mogul --- - Groomed 800 - Groomed 3220 - Mogul 1480 - Groomed 5015 - Mogul --- - Groomed --- - Mogul 1690 - Groomed --- - Mogul 740 - Ungroomed --- - Groomed --- - Groomed 5015 - Groomed --- - Groomed 8610 - Mogul --- - Groomed --- - Groomed --- - Mogul 1270 - Mogul 2270 - Groomed 4010 - Groomed 740 - Mogul 4120 - Mogul --- - Grmd Bowl --- - Grmd Bowl --- - Groomed 4500 - Groomed --- - Groomed --- - Groomed --- - Mogul --- - Mogul 1000 - Mogul --- - Groomed --- - Groomed --- - Groomed 1320 - Groomed --- - Mogul --- - Groomed --- - Mogul --- - Mogul 1270 - Groomed --- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- AK02 000000 AK04 002421 AZ04 004012 CA01 005870 CA03 010014 CA07 012106 CA08 015537 CA09 017416 CA12 021143 CA13 028120 CA15 031875 CA16 035316 CA18 037275 CA19 039088 CA30 042553 CA31 045863 CA32 047438 CA35 048701 CA40 050699 CA41 052046 CO01 053303 CO02 056945 CO04 057721 CO05 062114 CO06 066849 CO08 070212 CO09 075874 CO12 078177 CO15 083973 CO16 088044 CO17 089451 CO22 092084 CO23 096168 CO24 099397 CO29 102504 CO30 106412 CO33 107841 CO34 112199 CO36 117730 CO38 120444 CO39 123941 CO40 132765 CO41 139531 IA10 141929 ID04 143008 ID05 146391 ID17 148583 ID18 152495 ID22 155579 IL02 160310 IL07 161187 IN02 161750 IN05 162496 MA07 163214 MA08 164501 MA11 165605 MA17 167257 MD01 168357 ME07 169441 ME13 171035 ME14 176603 ME17 182376 MI02 184223 MI03 185429 MI07 186639 MI08 188728 MI11 189743 MI13 191017 MI25 192064 MI30 193265 MI33 193995 MI34 195654 MN04 196814 MN06 197725 MN09 198802 MN15 200369 MN19 201595 MT02 203805 MT03 207490 MT04 210363 MT11 213312 NC01 216009 NC06 216494 NC07 217386 NH01 218346 NH04 220032 NH09 221650 NH12 223802 NH14 224888 NH26 227142 NH28 230001 NJ05 231819 NM01 234451 NM03 237414 NM05 239499 NM10 242698 NM11 248299 NV05 249774 NV14 251480 NY02 253925 NY05 255564 NY08 259068 NY09 260173 NY18 261429 NY19 263801 NY24 264978 NY25 267707 NY27 270588 NY37 271519 NY42 272254 NY46 274031 NY50 274964 OH05 278403 OH06 278781 OR04 279408 OR05 280560 OR06 281787 OR07 284977 OR11 289116 OR12 290826 PA01 292535 PA02 293479 PA05 294179 PA07 295134 PA10 296752 PA12 298206 PA13 299084 PA14 300148 PA18 301285 PA19 302977 PA21 304148 PA25 304940 PA26 305825 SD02 306576 TN01 307516 UT01 307928 UT03 311490 UT04 314224 UT05 318312 UT08 321933 UT10 326582 UT11 328855 UT12 331141 UT13 334360 UT14 338002 VA04 340447 VT01 341389 VT03 344250 VT05 345915 VT06 348323 VT07 350839 VT09 359537 VT14 361443 VT15 366432 VT16 370224 VT17 372629 VT20 373729 VT21 376040 VT22 380969 WA01 386745 WA02 388596 WA04 392057 WA06 395088 WA08 397425 WA13 399025 WI15 401004 WI25 401664 WI36 402191 WI38 403409 WV05 403777 WV06 404819 WY06 406823 Lifts Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Lifts Summary" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Lifts Summary location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE :PHYSSIZE TrailsN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName TrailsR }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Rating TrailsT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName TrailsL }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Length (ft.) TrailsV }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Vertical (ft.) selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp Trails Summaryion textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "Name" If IT <> selectedTextLines -- match fields rolled textScrolled enterField textScrolled svScrolled enterField buttonUp Load Fields Build Build LoadBKP Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\TrailsN.dat" CLICK any of the TOP BUTTONS to SORT DATA HasAd Lifts Summary (@5n8 !:"z/z/@+@+^>G General Overview Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Lodging Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Lifts Summary Lift Name Type Ride Time (min.) Vertical (ft.) 2880,1440t.) 2880,1440 13 21 13 11 7 13 5 11 4 5 5 5 11 3 14 326777777777777777 AK02 000000 AK04 000271 AZ04 000387 CA01 000570 CA03 001044 CA07 001438 CA08 001844 CA09 002167 CA12 002575 CA13 003731 CA15 004229 CA16 004726 CA18 005103 CA19 006492 CA30 006896 CA31 007912 CA32 008342 CA35 008900 CA40 009383 CA41 009882 CO01 010209 CO02 010439 CO04 010520 CO05 010899 CO06 011230 CO08 011728 CO09 012357 CO12 012669 CO15 013345 CO16 013873 CO17 014037 CO22 014364 CO23 015235 CO24 015610 CO29 015781 CO30 016154 CO33 016346 CO34 017042 CO36 017896 CO38 018056 CO39 018486 CO40 019737 CO41 020636 IA10 020839 ID04 021055 ID05 021432 ID17 021692 ID18 021945 ID22 022234 IL02 022916 IL07 023193 IN02 023341 IN05 023690 MA07 023815 MA08 024064 MA11 024387 MA17 024673 MD01 024867 ME07 025152 ME13 025376 ME14 026032 ME17 026669 MI02 026846 MI03 027746 MI07 028106 MI08 028494 MI11 028877 MI13 029186 MI25 029540 MI30 029845 MI33 030001 MI34 030323 MN04 030603 MN06 030822 MN09 031028 MN15 031323 MN19 031649 MT02 032528 MT03 032907 MT04 033379 MT11 033659 NC01 033928 NC06 034135 NC07 034527 NH01 034846 NH04 035167 NH09 035389 NH12 035655 NH14 035958 NH26 036379 NH28 036985 NJ05 037219 NM01 038017 NM03 038304 NM05 038635 NM10 039034 NM11 039463 NV05 039733 NV14 040029 NY02 040228 NY08 040579 NY09 040801 NY18 041039 NY19 041379 NY24 041671 NY25 042138 NY27 042704 NY37 042912 NY42 043026 NY46 043313 NY50 043469 OH05 043927 OH06 044091 OR04 044394 OR05 044560 OR06 044712 OR07 045265 OR11 045686 OR12 045962 PA01 046171 PA02 046312 PA05 046629 PA07 046955 PA10 047544 PA12 047846 PA13 048163 PA14 048465 PA18 048764 PA19 049576 PA21 050001 PA25 050314 PA26 050562 SD02 051018 TN01 051243 UT01 051353 UT03 051850 UT04 052097 UT05 052410 UT08 052953 UT10 053525 UT11 053769 UT12 053984 UT13 054306 UT14 054590 VA04 054751 VT01 054963 VT03 055238 VT05 055432 VT06 055676 VT07 055947 VT09 056825 VT14 057038 VT15 057783 VT16 058319 VT17 058719 VT20 058775 VT21 059241 VT22 059807 WA01 060583 WA02 060747 WA04 061958 WA06 062462 WA08 062706 WA13 063169 WI15 063627 WI25 063828 WI36 064429 WI38 064973 WV05 065010 WV06 065184 WY06 065515 selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "Name" If IT <> selectedTextLines -- match fields rolled textScrolled enterField textScrolled svScrolled enterField buttonUp LiftsN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Lift Name Lifts Summaryyion LiftsT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName LiftsR }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Ride Time (min.) LiftsV }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Vertical (ft.) CLICK any of the TOP BUTTONS to SORT DATA Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii 0$:PHYSSIZE (:PHYSSIZE Trails Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Trails Summary" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Trails Summary location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii 0:PHYSSIZE 65:PHYSSIZE Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\LiftsN.dat" datafile\TempData\_TrailsN.b.x" Parsing: "D:\SKI-CD\datafile\_TrailsR.dat" Writing Files "D:\SKI-CD\datafile\TempData\_TrailsR.b.x" Parsing: "D:\SKI-CD\datafile\_TrailsT.dat" Writing Files "D:\SKI-CD\datafile\TempData\_TrailsT.b.x" Parsing: "D:\SKI-CD\datafile\_TrailsL.dat" Writing Files "D:\SKI-CD\datafile\TempData\_TrailsL.b.x" Parsing: "D:\SKI-CD\datafile\_TrailsV.dat" Writing Files "D:\SKI-CD\datafile\TempData\_TrailsV.b.x" HasAd Lodging /r/6& General Overview Trail Information Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Areas in: CO General Overview Trail Information --------------------------------------- Choose Ski Area in: General Overview Trail Information Shopping Skier Services Other Services Non-Skiing Activities Special Events Calendar How To Get There Summer/Fall Activities Ski Packagers Special Values --------------------------------------- Choose Ski Area in: Lodging Summary Name Location Phone Type Price 3240,1800ice 3240,18000 800 452-4240 Condo $$ 800 525-6200 Hotel $$$ 999 AK02 000000 CA12 000000 CA13 007598 CO02 007984 CO04 009123 CO05 018763 CO06 028403 CO09 031992 CO12 039050 CO15 040930 CO33 045643 CO34 058088 CO36 063555 CO39 064580 IA10 069710 ID04 072503 ID17 074286 ID22 076583 IN02 083085 ME13 084597 MI25 087642 MI34 090099 MN04 090197 MN06 091133 MT02 092065 MT03 096741 NC01 101354 NH26 102676 NJ05 103495 NM14 103598 NM10 103700 NY19 108780 NY24 108877 NY25 109077 NY27 110365 NY37 110825 NY42 111547 OH06 111754 PA02 112437 PA05 113061 PA13 113830 PA19 114458 UT01 115156 UT03 116315 UT04 118354 UT05 118963 UT08 119905 UT12 123735 VT06 124109 VT07 124301 VT22 140063 WA06 142669 WY06 14347070 selectedTextLines BACKGROUND -- match fields enterField enterField buttonUp textScrolled 4svScrolled -- handler IN BACKGROUND SCRIPT update -- selected AFTER the completed "TRUE" "Name" If IT <> "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp Lodging Summaryon CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. LodgeN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName LodgeT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName LodgeP }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Price LodgeL }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Location and Telephone Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii :PHYSSIZE ":PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii *:PHYSSIZE "HasAd" selectedTextLines -- match fields rolled textScrolled enterField textScrolled HasAd svScrolled enterField buttonUp FoodN }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName -- 2 display fields plus "HasAd" DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Name and Telephone Food Summaryaryon FoodT }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName -- 2 display fields plus "HasAd" DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName FoodP }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName -- 2 display fields plus "HasAd" DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Price FoodL }location ObjectFromPoint( buttons have the same Bnames = file without extensions (FoodN, FoodT, etc) Name lvButName -- 2 display fields plus "HasAd" DisplayData2 keyEnter buttonUp keyUp buttonUp DisplayData2 lvButName location keyUp DisplayData2 lvButName Location CLICK any of the TOP BUTTONS to SORT DATA. Double-Click an item for more information. Status textScrolled "Name" textScrolled textScrolled Constructing New Data. One Moment Please... Reading File: "C:\SKI-CD\CD-ROM\Datafile\FoodN.dat" Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Area Map" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp Area Map location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiii $:PHYSSIZE j):PHYSSIZE Bgraphic }location & will be user pressed toggle -- lower ObjectFromPoint( "Name" uttonDown buttonUp buttonDown buttonDoubleClick buttonDown buttonUp buttonDoubleClick location buttonDoubleClick buttonUp location { -- location buttonUp buttonUp buttonDown buttonUp location iiiiiiiiiiiiiiiiii `1:PHYSSIZE 5:PHYSSIZE States in the Region Area Story Non-Skiing Activities Ski Packagers Special Values Ad keyEnter 4svAreaID -- 2 RStateAbbrev + 2digit area code which may -- have a prefix eans only General info Trail -- a "#" means ;stats screen -- a "%" o load default ,file -- a "$" GALL data exists lvTemp -- see selected J error message loading If 4 -- hourglass -- If A GROUP, AREA ID WILL CONTAIN "9x". -- Groups must be given a HasData \ # % $ but won't matter. "9x" within Ostate. -- The AREAS IN THE OVERVIEW AD FILE FIELD -- comma- vlist S ONLY. -- %indicated Ha "9x" If "9" -- 2 digits selectedTextLines "AreaNames" Put IT "Storage" GroupList -- build below -- let user End If -- areaID -- store svAreaName -- initialize Until IT -- so can later -- stored -- -- prior -- "SortedMsg" If IT lvLine -- -- has total information arrange buttons on directory accordingly Conditions c"\" -- special -- Directory" "AreaList" "AVIWindow" "GenInfo" "TrailInfo" 3039,4740 4996,4740 c"$" -- 632,632 632,1580 -- either just Stats" so can't anywhere "use CTRL-RIGHT LEFT arrows disable navigation except going /ID 0) 1 -- 4 -- stay on pointers History Information AVI Ad Files IT -- 7Ad Pointer "CurrentData" \ Story" -- Overview needs a ~ -- match areanames IT -- o(126) & IT enter handler -- will playing 's avi ad keyUp buttonDoubleClick keyUp buttonDoubleClick buttonDoubleClick ***** AreaNames Storage GroupList Area Directory AreaList Area Directory AVIWindow Area Directory GenInfo Area Directory TrailInfo Area Directory GenInfo Area Directory TrailInfo Area Directory Area Directory GenInfo Area Directory TrailInfo Area Directory Area Stats CurrentData Area Story CurrentData General Overview Area Directory svAreaName lvTemp svAreaID -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files 4svDataPath -- database files (HD CD-ROM) 4svAreaID -- 2 RStateAbbrev + 2digit area code -- which may contain the prefix "\" $indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" so load default -- a "$" exists "Status" -- just "Name" <> -- define initial tempfiles "ValueID" lvButName lvTmpFiles -- see parsed ValueALL there. Should be created leaving & "TempData\ValueAll.a" If fileExists( ) <> 1 -- no g so -- was previously built needs 1 -- If IT & "Datafile\ dat" lvFileNam FileThere lvStoreID -- store real areaID "AA00z" "HasAd" StoreData build currently loaded "CurrentData" If IT csvAreaId -- already Jso leave showing -- rebuild -- [".a" rest will be rebuilt -- storedata handler on lvFileCnt " & IT & ".a" -- deletes -- newly temporary DisplayData2 ALWAYS goes o(26) -- EOF AFTER o(26) -- -- category's subdirectory so can locate -- same -- buttons removed. "Values" lvSubDir 4svAreaName -- he suffix "\" -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps user informed during False -- TRUE -- faster freeze errors -- Get oper identified above lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record Tab -- TAB If IT lvValueID -- value ID. -- are "AA" came VALUEALL.DAT , otherwise e.dat -- Information o(126) -- lvName -- lvAd -- -- -- has o(168) & & Tab Else -- See finding = 1 -- End If -- -- bypass description o(124) -- | Until matches specific If y -- no -- so fall through status -- -- write cwriting -- extension original -- identify sub- lvTmpDir d & "." -- -- append properly -- mark -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svCDPath -- on CD-ROM on HardDrive IT -- values state ID IF IT lvDatFile & "DataFile\" & so don't waste If IT <> -- :" & -- -- information LoadText fields should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. NEXT PAGE lvPage -- so later "F1" lvField1 -- Title "F2" lvField2 -- Desc 1 -- -- | EOF If IT -- TAB -- If IT -- located be one -- "Special From:" & -- Bypass mini o(126) -- -- Description 1 -- TAB o(124) -- )START o(124) -- Fno matching but never happen "ERROR! Found!" StoreData enterPage LoadItemInfo LoadText enterPage Status buttonUp ValueID ValueID TempData\ValueAll.a fileExists TempData\ValueAll.a Datafile\ValueAll.dat FileThere AA00z HasAd StoreData CurrentData svAreaId TempData\ DisplayData2 TempData\ValueAll.a TempData\ValueAll.c HasAd Values CurrentData buttonUp lvSubDir lvFileCnt lvStoreID lvFileNam lvTmp lvTmpFiles lvButName svAreaID svDataPath svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere HasAd TempData \ValueID HasAd Status CurrentData svFilePath lvTmpDir status lvName lvValueID lvPassCnt lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo ValueAll.dat ValueID.dat DataFile\ CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam lvDatFile svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText FileThere Special Values From: ERROR! No Item Found! lvName lvField2 lvField1 lvPage lvItemCode lvFileNam -- need trap /handler keyEnter -- 0 other than Enterkey held down 4svAreaID -- 2 RStateAbbrev + 3digit area code which may -- have a prefix eans only General info Trail -- a "#" means ;stats screen -- a "%" o load default ,file -- a "$" GALL data exists 4svAreaName -- -- If A GROUP, AREA ID WILL CONTAIN "9x". -- Groups must be given a HasData \ # % $ but won't matter. "9xx" within Pstate. -- The AREAS IN THE OVERVIEW AD FILE FIELD -- comma- vlist S ONLY. lvTemp something # <> 4 -- hourglass -- see %indicated Ha "9x" If "9" -- 2 digits GroupList -- build below -- let user -- match returning -- areaID End If -- store so can later selectedTextLines "AreaNames" Put IT -- map reference -- initialize Until IT has total information arrange buttons on directory accordingly Conditions c"\" -- special -- Directory" "AreaList" "AVIWindow" "GenInfo" "TrailInfo" 3039,4740 4996,4740 c"$" -- 632,632 632,1580 -- either just / -- navigation Stats" so can't anywhere "use CTRL-RIGHT LEFT arrows disable except going /ID 0) 1 -- 4 -- stay on pointers History Information AVI Ad Files IT -- 7Ad Pointer "CurrentData" \ Story" IT -- Overview" update (maps, , etc.) "F1" "F1" enter will -- because changed newly matched location B"ThisArea" -- no keyUp keyDown buttonDoubleClick keyDown keyUp buttonDoubleClick buttonDoubleClick GroupList AreaNames Area Directory AreaList Area Directory AVIWindow Area Directory GenInfo Area Directory TrailInfo Area Directory GenInfo Area Directory TrailInfo Area Directory Area Directory GenInfo Area Directory TrailInfo Area Directory enterbackground Area Stats CurrentData Area Story CurrentData General Overview General Overview Area Story enterbackground buttonUp ThisArea location lvTemp svAreaName svAreaID 4svAreaID -- 2 RStateAbbrev + 3digit area code -- which may contain the prefix "\" $indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" so load default -file -- a "$" HALL data exists 4svAreaName -- current 8 -- 32 btotal -- tell user J Ad coming 4 -- hourglass -- Put CRLF & -- "Loading Information :" & = "One Moment Please..."\ "AVIWindow" lvId -- initialize "$,\,#, %" suffix playing AREAAD avi loadAreaAd below 4 -- ClozAVI -- reset Kvia /scripts -- trap so xsent frame count update -- bypass tbkMMNotify finished tbkMCI("seek AVIfile 0","") -- lvAreaID have PREFIX -- indicating ONLY info TRail available 4svCDPath -- DOS path files on CD-ROM 4svFilePath -- download 4svDownLoad -- will be 2 downloaded If . <> 2 & "AreaAds\" & & ".AVI" lvFName & ". Close ALL","") -- just ad still -- see there IF fileExists( ) = 1 -- -- no mci errors version tbkMCIchk(" " && && "style popup" && \ "alias AVIFile " && 8,"","","") frames","","") winName |status ","","","") -- determine main lvX; + 161 + 82 MoveWindow( f,320,240,1) ","") state noactivate","") -- don't let ereceive mouse messages translateWindowMessage 4513 noSponsAdTouch 8 -- 513 LbuttonDown 4514 8 -- 514 LbuttonUp stops ","") P -- ELSE -- <> 2 pushedTone lvTone 8 -- errorTone "FILE ERROR! Cannot find : " &&\ contact Media Odyssey, Inc. )"&&\ "1-800-99-SKI-CD." lvErrorText "Download Version SKIODYSSEY." & "Due limitations" & "ski ads are END IF 1 -- ePage enterPage tbkMMNotify leavePage loadAreaAd enterPage AVIWindow loadAreaAd svAreaName svAreaID leavePage oTDClozAVI AVIWindow enterBackground tbkMMNotify seek AVIfile to 0 tbkMCI loadAreaAd AreaAds\ AreaAds\ Close ALL tbkMCI fileExists style popup alias AVIFile parent tbkMCIchk set AVIFile time format frames tbkMCIchk status AVIfile window handle tbkMCIchk MoveWindow window AVIfile handle default tbkMCIchk window AVIfile state show noactivate tbkMCIchk noSponsAdTouch noSponsAdTouch play AVIfile tbkMCIchk pushedTone FILE ERROR! Cannot find file: Please contact Media Odyssey, Inc. at 1-800-99-SKI-CD. Download Version of SKIODYSSEY. Due to space limitations ski area ads are not available. AVIWindow AVIWindow lvErrorText lvTone winName lvFName svDownLoad svFilePath svAreaName svCDPath Personal Prefs Bookmark Finder Areas within the Selected State Lifts Summary Download Western Region -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE STORED IN GACKGROUND SCRIPT >ALL SECTIONS PAST nDIRECTORY 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" data exists "Status" -- -- define initial tempfiles "GroundN" lvButName ,GroundT" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on "GenInfo" lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ :"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above FileThere lvPassCnt -- record counter 1 -- each Ustarts -- X . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- o(126) -- TAB lvthis If -- AreaCode/F/MerchCode lvAD -- -- , Telephone, CCCode 1 -- lvName lvPhone TAB; lvType lvCCCode -- fields -- o(168) & "HasAd" -- FIRST RECORD IN AREA CONTAINS GENERAL INFO IN DESC 2 -- ~ 4desc o(124) -- )START general mark past Else End If -- -- Each fa | reading CRLFs -- description be ignored EXCEPT ONE BEFORE NEXT If <> 1 -- -- 0 found yet so searching o(124) -- Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- s been -- write database cwriting -- <" extension original -- identify lvTmpDir d & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad (i.e. Food, Lodge, etc.) %: COxxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. PAGE lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- , hours, etc "F3" lvField3 -- Desc 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- -- -- Variables Fields ( done earlier) "Reservations: -- Description 2 -- ~ o(124) -- -- Credit Card -- know cards under o(124) -- Fno matching never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp GroundN GroundN,GroundT CurrentData svAreaId buttonUp GenInfo TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status FileThere HasAd GenInfo HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvCCCode lvType lvPhone lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Reservations: CurrentData ERROR! No Item Found! lvCCCode lvType lvPhone lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam -- Save memory. Data will just be reloaded temp file the svAreaID does xchange user comes "Name" "Type" False -- NOTE THAT THE BUTTON AND KEY HANDLERS FOR SCROLLABLE LIST FIELDS -- ARE IN THIS PAGE SCRIPT AT TVERY END (SEARCH 4svFilePath -- DOS path HD Files -- 2 RStateAbbrev + 2digit area code -- which may contain prefix "\" #indicates that Honly has -- General Info Trail nothing "#" means Cstats -- a "%" default -- a "$" GALL data exists "Status" -- -- define initial tempfiles "LodgeN" lvButName ,LodgeT,LodgeP,LodgeL" lvTmpFiles -- see currently "CurrentData" If IT csvAreaId -- already -- -- need rebuild TempData -- [".a" rest be rebuilt -- storedata handler on lvFileCnt \" & IT & ".a" lvFileNam -- deletes -- newly temporary -- -- category's subdirectory so can locate -- -- buttons removed. lvSubDir; StoreData 4svAreaName -- -- 2 uffix "\" -- suffix -- a "%" -- a "$" lvAreaID -- strip "Areas within Selected " -- -- Identify names FINAL SORTED lvfirstField lvsecField loading message CRLF & "Constructing New One Moment Please..."\ <"Reading :" & -- keeps informed during TRUE -- faster freeze errors -- Get proper identified above fileThere -- INDEXED SUMMARY index value section areaID AreaIndex( lvPassCnt -- initialize found 1 -- each Ustarts -- . LAST LINE | EOF If IT ansiTochar(26) -- Break DO -- record o(126) -- lvthis If -- AreaCode/H/MerchCode ad -- Location o(126) -- phone lvName -- Phone Price CCCode o(126) -- lvType ! -- extra datafile -- IT -- If IT o(168) & "HasAd" Else -- See finding = 1 -- End If -- -- ByBass MAY HAVE CRLFs IN DESCRIPTION -- Address,City, ,Zip,Phone2,Fax,Restauraunt,Jaccuzi,Pool -- Description,Amenities,Services -- fa | reading -- description be ignored EXCEPT ONE BEFORE NEXT RECORD o(124) -- )START Until -- -- matches If y -- no "Sorry. No Information Available" & \ Category pushedTone lvTone -- tone -- mark s been y -- leaves a highlighted box -- write database cwriting -- <" extension original -- identify lvTmpDir a & "." -- Loads display on LoadItemInfo ,lvItemCode,lvAdCode where Ad (i.e. Food, , etc.) %: COxxFyyy ( , ItemID, CatLetter, 4svDataPath -- (HD CD-ROM) 4svCDPath -- on CD- on HardDrive -- CHANGE EXTENSION IF THERE IS ONLY MAIN FILE -- OTHERWISE USE WHICH IS BY NAME TO GET DATA BELOW & "DataFile\" & & "N.dat" so don't waste If IT <> -- :" & -- -- information LoadText fields should -- (If AD Page specify FALSE -- no "F" & i on Cd-Rom lvState & "\" & & "\" & svAdFile -- Textline 2 stores the be played. lvPage -- so use later "F1" lvField1 -- Title "F2" lvField2 -- "F3" lvField3 -- "F4" lvField4 -- Features "F5" lvField5 -- 1 -- -- | EOF If IT -- o(126) -- If located -- 1 -- TAB -- skip o(126) -- -- 1 -- lvPhone lvPrice lvCCCode 2 -- ~ -- Street, lvStreet lvCity lvZip lvPh2 lvFax -- Restaurant, (either Yes searching) o(126) -- these -- 1 -- TAB o(126) -- ~ -- 1 -- o(126) -- ~ -- 1 -- o(124) -- -- Variables Fields ( done earlier) & "," && & TAB & "Fax: " & "Reservations: " & -- Credit Card -- know cards under o(124) -- Fno matching but ? never happen "ERROR! Found!" rPage leavePage StoreData LoadItemInfo enterPage LoadText leavePage enterPage Status buttonUp LodgeN LodgeN,LodgeT,LodgeP,LodgeL CurrentData svAreaId buttonUp TempData\ buttonUp CurrentData lvSubDir lvFileNam lvFileCnt lvTmpFiles lvButName svAreaID svFilePath StoreData Areas within the Selected State Constructing New Data. One Moment Please... Reading File: Status Status fileThere AreaIndex HasAd Sorry. No Information Available in this Category for Status pushedTone CurrentData TempData HasAd Status CurrentData svFilePath lvTmpDir lvTone lvType lvName lvthis lvPassCnt lvsecField lvfirstField lvAreaID svAreaID svAreaName lvFileNam LoadItemInfo DataFile\ N.dat CurrentData One Moment Please... Reading File: Status Status CurrentData rLoadText Status CurrentData svAdFile lvState lvFileNam svCDPath svDataPath lvAdCode lvItemCode lvSubDir LoadText Fax: Reservations: CurrentData ERROR! No Item Found! lvFax lvPh2 lvZip lvState lvCity lvStreet lvCCCode lvPrice lvType lvPhone lvField5 lvField4 lvField3 lvField2 lvField1 lvPage lvItemCode lvFileNam LLLLL LLLLLLL LLLLLLL W}}W} LLLLLL LW}|}}}L LLLLLLLLLLLLLL W}|W}}} LLLLL LLLLLLLLLLLL }}WW}W LLLLLLLLLL }WLW} LLLLL LLLLL MMLMM LLLLLLLLL MMMMMM {WLLLLLL LLLLL LLLLLLKLL LMLLM WLLLLLL LLLLLLLL LMLML WLLLLLL LLLLLLLLL MMNNN LLLLLLMLLLLM LLLLLL LLLLMLMMM LLLKL LLLLLLLLLLLLLMMLLMLMMM W}WLLLLL LLLLL LLLLLMLLLLML LLLLLLLLLMLLLLMMM LLLLLLL MMLLLLLL LLMLMLLM LLLLLLLLLLMLLLLMMM LKLMLLLLLL LLMLMLMM LLMLLLLML LLLLLLLLLLL KLLLLLLLMLLLLMMM MMMWMM LLKLMLLLLLL LLMLML LLLLLLLMLLLLMMM MLLLLLL LLMLML WLLLL LLLLMLLLLLL LLMLML LLLLLLLWLL KLLMLLLLLLLMMLL KLLLLLLMLLLLML LLLLLL LLMLLLLLLLMLLLLMMM LLLLLLLLLLL KLLMLLLLLL LLMLMLLM W}LLLLL KLLLLLLMLLLLLLLKLL KLLMLLLLLMLLLLMLLLML KLLLLLLMLLLLLLLMLLLMMM LLLLL KLLMLLLLLLLLLLLLLMLML KLLLLLLMLLLMLLLLMLLLMMM LLMLLLLLLLMLLLLM LLMLM LLLLLLMLLLLMLLKLL LW}}}}LLLLLLLLMLLLMMM MMMMMM }}}}} LL}LL LLLLLLLLLMLM MMMMMMMMMM LLLLLLL~LLLLLLLLLLLLLMM MMMMMMMMMMMWMWMM LLLLL LLLLLLLL LLMLMLLM MMMMMMMMMW MMWMWMMMW LLKMMLLLLLLKLL MMMMMNMMMNMMMMMMWMMMMM LLLLLLMLLLLLLLML NNMMMMMNMMMNMNMMMWMWMWWMMMWM LLLLLLLLL LLMMM MMMMMMMMMMNNMNMWMMWMMMMWWMMWMMM LLLLLMLLMLLMMMM MMMMMMMMMNMMMMMWMMWMWMMWMWMWMWMWMM LLLLLLLLLMMLMM MMMMMNMMMWMMWWMMMMMWMMWMWMMMWWM LLLLL NNMMMMMNMMMMMMMMMWWMMWMWMMMMMMMMWMWMM KLLMLLLLLLL LLLLML MMLML MMMMMMMMMMMNNMNMWMMMMMWMWMWMWWWMWMM LLLLLLLLLL MMMMMMMMMMNNMNMWMMWMWMWMMWMMWMWMWMMML LLLLL MMMMMMMMNMMMMMWMMWMMWMNWMMWMWWMMLM LLLLLLLLM NNMMMMMMMNNMNMWMMWMWMWMMWMWMWWMMMWMMMLLL LLMLLMMLM NMMNMMMMNMMMMMWMMWMWMMWMWMWMMMWWMMMMM MNMMNMMMWMMWWMWMWMMMWMWMMMWWMMWM LLLLLLLML LMLLLL NMNNMM MMMNMMMMMMMMMWWMMMWWMWMMWWMMWMWMMWL MMLMLLLLL LLMLLMMMM LMLMML MMMMMMMMMNMMWNWMMWWMMMMNWWMWMWMMMWM LLMMLMLMLL MLLLL MNMNNMMMMMMMMWMMMWMMMWMWNMWMWWMMMWMMWMW LLLLM MMMMMWMMMMMMWMMMMWMMWMWMWMMWWWMMMWMWMMMM LLLLLLLM MMMMMMMMMMMWMMMMWWMMMWMWMMMMWMMWWMMWWWWMM MMMMMMMMMMMMMMMMWMMMWWMWMMWMWMMW WMMMM MLLLL MMMMM MWMMMMNWWMWMWMWMMMMMMWMW}|W MLMLL MMWMWNMWMWMMWMMWMWMMMM LMLMM MLLLL WWMMMWMMWM WMWMM}} MLLMLMMLL WMWMMMWMMWM}}}} MMLML LMLLLL MMMMWMMWM }}WWMMW LLW}LLLMML LMMLML }~}}WWWMW MM}LLL MLMLMLL M}}}}} }}}~}} NMNMWMWMWWML LLMLL MMLMW MW~}} LLLLLLL LM}LL MMMMMMMMWMWMWMWMWMMWWLML WLLLW WMLLLMMLLML MNMMMMMMWMWMMWMMWMWMWW LLMLLL MLLLL MMNMMWMWWMWMMWMMMWMWMMMML LMMLMM} MMMMMMMMMMNWWMMWMMWMWMW ?LLLLL MMMMMNMMMWNMWMWWMMMWMWMMW NMNMMMMMNN MMMMMMNMMMMWMMWMMMWWMWMMW LLLLMW MMMMMMMWMMWMMWWMMMMNWWMW WMMMLL LLLMMMML MMMMMMMMWMMMMWMMMWMMWMWNMWMWW MMMMMMMWMMMWMWMWWMMMWMMWMMWWMM MMMMMMMMMMMMWMMMWMMWMM MMMMMMNMMMMMMWMMMMWMMWWWMW MMNMMMMMMMWMMMMWMMMWMWMMW NNNMMNMMMMMMMMMMWMMMMWWMMMWWM MMMNM MMMMMMWMMMMWMWMWMMMWMMWML NMMMMMMMMMMMMWMWMMWMMMMWWMM NMNMMMMMWMMMMMMMMMWWM LMMLL MMMMMMMMMWMWMWMWMMMMMMLWM MMWMMMMMMWMMMWMMMWMML MMMMMNMMMMMMMWMWMMMMMWMMMWMML MMMMMMMWMMMMWMWMMMMMMMW MMMMMMMMMMMWMWMMW MMNMMMNMMMMMMMWMWMMMMWMMWWWWWW MMM~~ MMMWM MMMNMNMMMWMMW WMWWWWWWW WMMWWMMWMWW MMNMMM MNWMMWWWMWMWMWWWW MMMMM MMMMMM MMWMMMMMMWMWMMWWW MMWMWWMMMMMWMWWWL MMWMWWMWMWWWMW LLLLL WMMMWMWWWM LLLLLL MMWMWMWMWWMW WMLLLLL MMNMMMM MMMMMWMWMW MLMLLLLLLL MMMNMMM MMWMMWMMMWMW MMMMMMMMM MMMMMMMMWM WMLLLLLL MNMMWM MMWMWMW MMNMMMMMMM WMWWWM MWMWMW MWMWWM MMMMM MMMWMWMW MMWMWWWM MMWWMWMW MMMWMWMWMWO MMMMMWWWWMWMW MMMWMWMMWWWMN} MMMMMWWWMWMWO} WMWWM MMMMWMM MNMNM MMMWM MWMWM MMMMMM WMMMMM WMMMM NNNNN MMMMM MMMMMMM MMMMMMM ONNNN NMMNM MMMMNNMMMMMMMMMMMMO} MMMNMNMMMMMMMMMMMM MMMMM MWMMMM MMMMNNMMMMMMMMNMMk| MMMMMMM -MMML NMMNM MMNMMMMMMMMNMO}MM MMMMMMMM MMMMMMM MMMMMMMN MMMMMMM MMMMMMM LMLLM MMMMMM MMMWMM MMMMMMM MMMMMM MMMMMMM NMMNM MMMMM MMWMMM MMMMMMMMMMM MMMMM MMMMMW MMMMMWL MNM}} MMMMMW MMWMWM MMMMMM MMMMWMWLLLL MMMMNM MMWMWW MWMMM M}}}}M MNMMMMNMMM MMMMMWLLL LLLLL MWNMMMMM MMMMMMNMO MMMMMMMWL NWMWW MNMMMMMMNNM MMMWMWM MMMMMWMMNMW MMW}} MMWMWMWMMM MMMMWMWLLL WWMWWNMWWMNM MNMNMMMMMM MNWWW NMNNL MMMMMMMM WWWMWWNWMWMWMO} MNNNNN MNNMMM MMMMMWL MWWWMNNMWMW MNMNMMNWMMM WWWWWWWMMN NNNNNN NNMMNNMMMMMM WMWMMMNNW WNMNNN MMNMNMMMMM MNWWW NMOMMMO WWWMWWNWMWMN NMOMMON NNNNNN MNMMMM NMWWWMNNNNMMN MMMMM MOONN MMMMMM NNNNM NWWWWWWWNMWNMN} MNNNNN MMWMMMNNWWWMMW NNNNNMM MWMWMMMNNM NNMNNNNNNMML MNNNN MNMMMMNNNNMMMM NWMWNMMWWMNNNM NMNNNNNN NNNNNMM NWWWWWWNMWNWNN NNNMNNN NOMMMONN NWWMWWNMWMWNMNN~}}~}} LMMWNOMMONNNNNOM MNMNNNNMMM MMNWWW WMNNMNMO OOMNONNN NOMMONNNNNNNMM MMMMMMMM NWWWWMWWNMWMNMNMNMNNMW} MNNOMONNO NNNOMNONNNNNNNMMN MMMMMMMWLLM WLLLLM NMMWWWMNNWMWNNNMNMMMM MMMNNONNMN OMNONNN MMNNMNNN MMMMMMMW NWWWWWWWWMWWNNMNMMMM NONNONNNN NNNNONN NNNMM NNNNOMMM MNMNNM MMMMMMMMMLL WWMWMMMNNM OONMNN NNNNONONNNWNNNNMMNM NMNNN MMMMMMMWLLLM NWWNWWWWMWWWNMNWMMM NNNMMM NONNNNONN ONNNONNMNNMNNNNMMNMMM MMMMMMMW NWWWNWNWNWNNWNMWM NOONON OONNNNNNNN NNNNOMMM MNMNN MMMMMMMMM WWWWWWWNWMWNW NNNNNN WNNNNNNNN NNNONONWNNMNN NNNNOMMM MMMMM MMMMWMWMMLLM LWMWWMWWWWNN WWMWMMWW NNONN NNONMNNNNO NNONNN NMNNNMM MMMMMMMMMWMWMML MWWWMWWWM NNNMWWMWM NNNNNNN NNONNNNONONONONNMNNNN NNNMMNMMM MMMMMMMW MWWWMW NNNMWMMN NNNNMONONNNN ONNNNM MMNNMN MMMMMMMWMMMMWLLLLM WWMNNW NNNNN NNNNNO~ NNMNNONNMO NONONNNNONMNNNM NNMMMM NNNNOMMM MMMMMMW WWWWM NNNMWMNNN ONONNNNMNN NONNNNNWNNONNMN NMNNNNN MMMMMMMWWMMLLM NNWWWMWNNNNN MOMNNONNNONNNNNNNNNN NNNMMM NOMNNN MMMMMML NWWMWWNNMNNNNNN NNNNNNNNNNMNNNNNNNO~ MMNMNNMNN MMMMM MMMMWM NNWWWWMNNNNMNNNNMNM NNNNNNNNNNNNWO~ NMMMLL NNMNMNM MNMOM NMMMMMMMMMMWMWLLLLMMLW NMMWMWWMWNNNMNMNNNNO}NN NNNNMNNNMN} NNONMMM MMMMMM MMLLLL NWWWWWWWNNMMMNMNNNON NNMMM OMMMN MMMMMMMWW MMLLLW WWWWWNMWNNNNNMNMWNN NNNMO}OO NNNNNNNNNW MNNNNN NONMMN MMMML MMLMLLLL WWWMWNNWNMNMWNMMNN MNNNN NNNNMNML NMMMMM MMMMLLMMMMMLL MWWNWMNWNNMNNNNNNN NNNNNNNN NMNNN NMMONNN NMMMMMMMMWMMLLLMLLL WWWWNWNNMMMNNMNNNNNOn NNNNNNMNMNNNN OMNNMN NMMMMMMMMM MNWNMNWNNWMNNNNNN NNNNNNNNNNNNNNMMNWM NNNNN NMMONNNNM WWNNNNMNMNWNNNNNNMMNWNNNNMNNONNMNM MNNNNMNMN MNNNMWWWNMNNNNNNNNNMNNNNNNNNNNNNWWM MWNNNMNNNNM WNWMNNNNWNNWNNNNNNNWWNMMWNNWNNNNWMMLWWNNNNNNN NONNNNN NWWWNWNWWNWNWMWNWNNWNNWNWNMNWNMWMM MNNNNNM NNNNNNN LMMMMM NWWWMWWWWWNNWNMNNNNNNMNNNNNNWWWMMMMNNNNN NNNON MMMMM NNWWWWWWNNNNMNWMMMNMNNMNNNWMNWMMWMMMNNNNMN MMMMMMMM NNWWWWWWNMMNNMNNWNNMNWNWNNMW MWLMM NNNNMNMNNNM NWWWWNWWNMWMWNMNWNNNNNNMWWMWWM WMNNNNNMNNNNNW NNNNNN NWWWNWWNNWNNNWNNMWNNWNWWMWMWMMWMMNNMNN MNNNNNNNNNNM MMMMMMM? NWWWMWWWWMWMMWMWNWMWWNMWWNWWMMM NNONMN MNNNWMM NNNNNNNNNN NNWWWWWNWMWWNNWNNMWWNMWWMNWNMMWNMONNMN WWWWWMWWMWNWMWWWMWNWMWWNW NNNNNMNNMNMMN WNNNWNNMWWWWNWMWWMNWWMWMWWMWMMNNNNNNNNNNNMN NNNNNM MWMMWNNNWNNMWNWNWNNNWWMWMNNNMMNMNMNNMNNMNM WWNNMWMMWMWNNWNNMNWNNWNNWNMNMNNMNMNMNNNNNM WNWMWWNNWNNMNNMWNNNWNNMMNMMNMMMNNNNNMNNN WWMWWNNNWNNMMWWWMMWNMWMMWMWNNNWNMWMNNNNNNNNNNMNWNMWMN WWMWMWMMWMWNWNWMWNNMWWNWWNNNWNNMNMMNNNONNNNNNWMWWWMM WWWWWWNNWNNMNWNWNWWMWNWMWNNNWNNMMNMNMNMMNMNWNWNWMWNN WWWMWNWMWWWMWMWWNWWNWWWWMWMMWMWNNNNMMMNNNWMWWNMNNMNMM WNWWWWWNWMWNWNNWNMWNMWWWWNNWNWNNNWNNMMNNWNWMNWWWNWM WWWNMWNWNWNNMWNWNWWNNWWWNWMWWMWMMWMWNMMMNMNNNWWWNWM NNNWMWWWWWNWMMWMWWMWNWMWNWWWWWNWWNNWNNMMNWNWWWNWMMNM NWWNWWNMWWWMWWWWNWWWWNWNMWNMWWNWMWWWMNMMNWMWWWMMMM WWWMWWWNWMWWWMWNMWNWWWWWNWWWWWWNWMWMNWNWNWMWNNMNMM WMWNWMWNWMNMWWNMWNWNMWNWWNNMWNWNWNNNWNNMNNMNMM MWMWNWMMNWMWMWMNNNWWMWWWWWWNWMWMMWWMMNWWWNWMMNM WWWWWNMMMNWMWWWMMWWNWWMNMWNWNWNNNMWWMNWNMWMNMM WNWWNWMWMWWMWNWMWWWWWMMNWMWNWNWNWMWWWMMWMM MMMMM WMWMWWWWMWMWWMWNMWNWMNNMWMWNWNWMWNN NNNWMWMWN WMWMWNWNMNNMNMWM WWNWMWNWWWNWMWMNM WWMNWMWMNMMWMWMMM NWWWWMWWWMW MWMWMW NWWNWWMNMWWWMM WMNMWWMW WMMMMM WWMWWMWMWMLM NMMMM LWWMWWWMWMMWM WWWWMWMW WWWWWWWW MWMWWMWWMMW MWMWW WMMMM WWMWM WMMWWM MNNMM MNMMM MMNMNMM MMMNN NNNNM NNNNNMMMNN MMMMM MMMWMMMM WMWMMMMNMMM MMWMMMNN MMNMMMM MMWMW MNNNO WLWMWMWMNMM MNNMNM NMNNNM NMNNNNN WMMWWMMM MNNNMMN NMMONNN WWMWMMM MMMMN WWMWMMMMM OMNNON MMMWW WMWMWM NNMMMMM MMMWW NMNNNNNN MWMMMW~}L NNNNNNNNN MMWWM NNMNNN MLLLLLMNMN MNNNNMMMNM WMMMW~ NNNNNML LNNNN MWMMWMM~ MNNNNN LWMMNNNNNN NMMMMM MMMNNNNNNNN WLMWNNNNNN MMMMN} NNNNM NNNNN MNNNNNMMMMMM MNMMMWN NNNNNNNNM MNNNNNNN MNMMMW~ NNNMNNNN NONNNN MMNMMWWWMN NNNNM MLMNMNMNMNNMM MMNNMMWMN NMNMNMNNM NMMMMW NNNMNNNN MMWWW MMWNNWWNNNN NNNNN MMMWO MWMWNMMMM NMMMNMNMNMNNMNMNMMMWN MNNNWW MMMNMNMNMNNMMMM WNMMWNW MWMMNNNNNNN MMWWW NNMWW NNNMNNNN WMMWO MWMNNM NNNNMW NNNNNNNMNMNMNMNNMMWWWW MMMWMM MNMMWMMWO NMNMMMWMMNNMMMWWk MMMMMMMWM MMMNMMWMMWO MMMWWM MLMMLLM MMLMM MLLMM LMMLL LLMMLMM WLMMLL LLMMLM MWWMMWM LLWMM MLLMLMML MMLMLML MLLMM LMMLMM LMMLML LMMLL LMLMLMM MMLMLLMW MMLLMM MMLMM LMMLLW LLMLML MLMLLMLL LMWMMLLM LMLWLW LLMLMWMMW LWLWLLWLLM WMMLLMLLMM LMLLMLWWL WLLMLLW LLMMLWLW LWMWLLM MLMLM MLMMLLMML WMWMLL WLWLW WMMWMMW WLWLL WLWLL LWMMLMLMLL MLMLM WMWLWWLLW WLMWLW WWLLWLLWLL WLWLWLL WLWLWLWL WMWMWLWL WMMWMW WMWMM WWLWLWL WMMWMWW LMWWL WMWMWMMWMW LWWLW WLMWLWLWWL LWWLL MMWMM WLLWW MMWMM WWMWWM WMWMW WMWMWWMM MWWMW MMLMLL WMWMWM MWMMW WMWMMW MWMMW WMMWMMWWMM WMWML MMLMM WMMWMMW MMWMMW WWMWMW WMWMW MMWMWMMWW WWLMWMMW WMWWMWWMM WWMMWMM WMMWWMW WWMLMM WMMWWMW WMWMWWM WMWMW WWMWW WMMWWMMW MWWMWW WMMWW MMWMLM WMWMWMMW MWWMWMW M WMWMM MWMWW WMWMMW WMWMW WMWMWW MMWMW WWMMW MMWMMWMMW WMMWW MMWMMW WMWMMWMM MMWMMWMW WMWMMW WMMWMWW WMMWMW MWMWMW WMMWMW WWMWWMWM MMWWMWM MWMWWM WMWMWM MMWWM WMMWMWMMWM WWMWWM WMMWMWMWM WMWMWMWM WWMWMM W MMWMWM MWWMWMWMWM MWMWMM MMWMW MWMMWW WMWMMWMWWM MWWMWM MMWWM MMWMW MWMWWMWMWW WMWWMWMWMW >>??? >?>>?>? ????>??? ?????>? ??????> ????>? ????? ?>?>? ???????> >?>>? ?>??? >>?>> ?????> ??>?>>? ????>????> ?>????>??? >>??? >????????> >>?????>? ?>??????>?? >??>>> ????????>>? >>???? ???>>???> ??>>? ?>??>? ????>??>?>>? >??>> ??>>?>? >??>? ?>?>> N?????> ????? >??>??> ?>?>>? >??>> ?>?>????> >????> ???>> ????>?> >??>????> ?????? >????????? ??????> ?>????>????> >>?>?> >??>>? >????>?>? ?>???? >>??>??? ?>>??>?>>???? ?>>???>?>>??????>>>?? >>>>>?????>>?? >>>>?? ?>>>>????????>?>>? >?>?? ??>?? >>>>>>>??? ?????? >>>>?>>>>? >>>?? ?>>>>>>>>?>>? ?>??>>>>>>>?? ??>>>>?>?>?>>>?>??>>>? ?>>>>>????=>???>>>>>?>?? >?>??? ?>????? ??>=>>>?? ?>>???>> >?>??> >??>??> ?>?>>? N??>> >>??>>????? >>>>??> ?>>??NN ??????>?>??>>? <>>>????? ?>????? >??>??=>???>>>>>?> ??>???>? >>>??>??? >>?=> ?>>???>> =>????? >>>?>?>?????O N??>?>>???>??>>????? ??????? ????>??> ?>>??NN >??????>??????>?>??>> ????? ??????>??> >?>>>?>?>?>>????O N>??>? >??>??>??>??= <<<=>?? ????? ????>>>?>?>?? ?>?>>>??????? >??>??>???> =<<=>? ????? ???>?> ?>>?>>??>?>?? ????>??>?? <=>?? ???>??? ?????>??>? ?>?>?>>>>>>>??????? >?>?>?>>?>?=<<= ?>?>???? ????????> >>?>?>????????? ???>??? ?????????> >>?>? ?>>?>>??>>??? ??????> ??>????? ???????? ?????? >>>>??>?? ????? ??????? ???????? ??>????? >?>?????>?>>?>> ?????? ????>?? ????? ????????>??>>>>??? ??????? ?????? ??????? ?????? ????>>?>>=????? >????? ?????? >???? ?????? ?>??? ?>>?>>> ????????? ????> ????>>????? ???????> ?>??? ??>?> ????????? ????? ???????>????? ?????> >>>??>? ????>>?? ???????? >???? >?>????? ?>????>= ???>???????? ???>>?? >??????NN >??>? ?????? >????> ????????? ??????>>?????? ??>?????? ???>???>????? ?????? ????>????? ?????? N???>>> ????????>?????? NN???? ?????> >???? ????????? ?????????>????? ?????????>???? ??????? ???NN ???????????? ???????? ?????>??> ????>?>??? ??>???? NN????>>?? >?>?? ??????????? ????? >>>?>? ?????> ???>?? ?????? ??????????? ?>>?? ????? >?NNNN ?????? ?????????????? ????? >????>> ????? ?????>???? ?????? ????? ???>>?>??? ?????????? ??NON ??>??>>?>? >?????????? ????? ????????? ???????>>?? ??????>>?? ????? ?????? ?????>>>>>>>> ???????>??????? ??????? ?????? ?????????>>>?? ??????>?>??????> ????????? ?????? ?>?>>?>>? >?>?????>>?>?? >??????? ????????????>>>? ????>??>?>>????? >?????? ???????>>>> ??>?>?>??>???? ?>????>??? ????? ??????>>> ??????>???>???? M????? ??????????????? ?NN?? ?????? ???>??>>> ??????>??>????? ????? ??>???????????? ??????>>? ?>??>????? ????? >????????? ?????? ?????? ??>>> ?>>?>?????? ????? ?>????????? ????? ??????????? ???>>>? >???>?>??? >???????? ?>?>??? ???>> ???????????? ????>>???? ????? ?NON? ????>???? ????? ??>>>? ??????>>? ??>?? ???????? ???????? ???>? ???????? ????? ????? ?????? ??>??? ???>> ?????>?? ?????? ????? ??>??? ??>??? ?>>>? ???>?>? ????? ???????? ??>?? ???>>?? ??????????? ??>?? ???????? ???>>>? ???>?? ??>>? ??>?????? ????? ?????? ?????>????? ???????>>>???? ????>>>? ????? ??>>? ??>?>???? ?????>>?????? ????> ??>?? ??>????? ?????>>>>???? ????>?> ????? ?????? ????>??? ????>?>?>??? ????>?? ?????? ??>>>????? ????? ????? ????>???? ??????? ?????? ???????? ??????????>???? ??????> ?????? ??>????? ????????? ?????>? ???>??? ????>? ?????> ?????> ?????? ???>?? ????? ?????>? ???>?>?? ????>? ?????>??? ?????? N????? ????? ?>???? ????? ????? ????? ?????? ????? ????? ????? ??????? ????? ????? ????? ????? ????? ?????? ?????? ??>?????? ?????????? ???????? ??????? ????? ????????? ???>????? ?????? ??>>?>??? ????? ?????>>?>?? ????? ????? ????? ????? ???????>>??>?? ????? ??????? ???????? ????? >>>>> ??????? ??????? ????? ????????? ???????? ????? ???????? ????? ?????? MLLMNMMN NONNM ????? ????? ?????? ????? ~NMNN MMMMM ?????? LONMN LLMNNL ?????????? MMMMML MNNLLLMNN ???>?? ??>????? MNNML NMLLMO MNNLLLM ?M??? NONMN NMLLMOO LMNNN MMLMLLLMNNL MNNLLLMOOON MLMMMM NMLLMOOO MMMNM LMNMLL OOOONMMM NNMLL LMNMMLMMNNNMLLMOOOOO LMOOOO LMMMNNNMMMLMOOOO NNONN NNNNNM MMMMM NNNNNMM LLNNNNOO MMMMMMMM NNNNN NNNOOO NNNNMM MMLLLL NNMMM NMMLL MMMMML NNNMM MMOONNN LLMMMMML MMMMMM NNNNNONNMM MMMMMLL MMNMN MMMMM MMMMM OOONNNMLLL MMMML NOOOONNNMM MMMMLLM MMNNMM OOOONMML LMMMMMM MMMMLL MMMMMM MMMMM LMMMMM MNNMNM NNMMLL LLLMMMMMMMM NNNMM MMMMMMMMMM MMMMMMM ONLMM MNNMNN NNNNMM MMLLLL MMMML MLMLMLMMMMMMMMMMMMM MMMMM MMMMLMM NNNNMLMM MMMML MMMMMML MNOOOONMML LMMLLMM MMMNNMM LMLMMM MMMMM MMMMMMMMMLM MMMMNMNM NOONNMM NLMMLMNM MMMMMMLLL MMMMMMMMM MMMMM MMMMMLM MMMMMM MMLLM MMMMMM MLLLLLL LLMMMLMMMMMM MMMMMMLMMMMMMMLL MMMMMM LLMMMMMMMMMM MMMMMMMM LMMMMML M?MMMM MLMMN LMLMLLLLLLLMMLMMMMMMMMMMML LMMMMMMLLLMMLMMMMMMMMMM LLLLL MMMMMMMMMMMMM MM?MMMM LNNMM MMLMM LLLMMML LLMLLLMMMMMMMMML MLMMMMM MMMMM MMMML MMLMM MMLMMMMMMMMMMML MMMMM LMMLMLMMMMMLM LMLMMMMMMMM MMNMMMMM NNNNNM MLMMMMMMMMM MMMMMMLL MMMMM MMLMMML MMMMM LLMML LLLLLLLMMMM LLLLLLL MLLLLL LMMLMM MMMMM LLLLM LLLLL MMNNN NNNNN NMNNM MMMMM MMMMMM MNMMN NNNNN NNNNNNNN MNMMMMM NNNNN NNNNNNN MMMNNN MNNMM MNNNNNN NMMNNNNN NNNNN NNNNNNN MMMMMM MMNNNNNN NNNNNN NNNNON NNNNNNN NNNNN NNNNNNN NNNNN NNNMN NNNNO NNNNNNNNNNNNNNNNNNN NNNNNNNNNN NNNNO NNNNNNNNN MNNNNNNNNNNNNNNNNN NNNNN NNNNN MNNNNNNNNNNNNN ONNNNNN NNNNNNNNNNNNNN NNNNOON NNNNN NNNNNN NNNNNNN NNNNNNMNNM MNNNNNNNNNNO NNNNNNN NNNNO NNNNONN NNNNN ONNNNNNN OONNNNNNNNN NNMMM NNNNNNN NMMMMMM NNNNNMM MNNNNM MNNNNN MMNNN MMMMM NNMMMNNNNN NMNMNM NNNNNM MMMMM NNNNNNNNNNN NNNNNNMMM NNNMNMN NNNNNN NNNNN NNNMM NNNNNNNN NNNNNN NNNMM NNNNM ~~NNNNM NNNNNN MNNOO NNNNNNNNNN NNNNNNNNNNN MNNNNM NNNNNNNNNNNNNO ONNNNNN NNNNNONM NNNNNNNNNNNNNNN~NN MNNNNM NNNNN NNNNN NONNNNNNN NNNNNNNM NNNNNNNN OOOONNNN~ NONNNNNM NNNNNN NONNOONNNNN NONNNNNMMNN NNNNNN OOONNNNNNNNNNN MNNNOONNN ~~NNNO NNNNNONNNNN NNNNNNNNN NNNONNONNN~ONNNN NNNNMMN NNNNM NNNNNNN MMNNNNONNNNNM~NNNNO NNNNN NNNNM MNNNNONNNNM~NNNNON ~NN~NNNNNNNNN NNNNN MNNNNNNNNN NNNNNNNN ~~NNNNNNNNNNNNN MNNNNN MMNNNNNNNNNM NNNNNNNMNMNNNNNNNNNNNMNMNNM MNNNNNNNNNN ~MNNNNNMMMNMNMNNNNNNNMNNMNMNN NNNNNNN ~~~NNNNNNNNNNNNMNNNNNNNNNNNNNNNNN MNNOO ~~~NNNNNNNNNMNNNNNNNNNNNNNNNNNNNNNNN NNNNNNNNMNNNNNNNNNNNNNNNNNNNNNNNNMMNN NNOOO NNNNNNNNNNNNMNNNNNNNNMNNMNNNNNNNNNNNN NNNNN NNNMMNNNNNNMNNNNNNNNNNNNNNNNMNNMNNMMN MMMMM NNNNM~NMNNNNMNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNNMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NNNNN OOOOON NNNONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNO NONMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNO NNNNN NNNNNNNNNNNNNNNNMNNMNN NNNNN ONNNNNNNNNMNNMNNNNNNNO NNNNONNNNNNNNNNNNNNNNOO NNONNNNNNNNNNNNNNNNNNNNO ONOOONN NNNNNNOOONNNNNNNNNMNNNNO ONNNNNNNNNNNNNNNNNNNNNOO NNONNNNNNNONNNNNNNNNNNNNN OONOO ONNNNONONNNNNNNNNNNNNNNNN NOMNONNO NNONNNNNNNNNNNNNN ~NNONNNO MNNNNO NNOONNNNNONN NNNNM NNOON nNNNONNNNNNN N~ONNNNNN ONOOO NONNNNNNN~~ON~NNNNNNNN MNOOOOOOO NONNNNNNNNNON~O NNONNN ~NNNNNNNNN OONNN NNNNNNNN ONNNN NNNNNNNNNNN NNNNNNOOON NNNNNNNNNNNN NNNOOO NNNNNNN OOONN ~NNON nNNNNNNNNNNNNNNN MMMMMNMNNNN MNNNNNNNO N~NNNNNNNNNNNNN MMMMMNNM NOOOO ONNN~~~~NMNN ~NNOONNNNNNNO MMMMMMMMNN NNNNM NNNNONNNMMN NNNNNNNNNNN MMMMNMNM NOONOO NNN~~NN OONNMMN N~NNONNNNNNN MMMMMMM NNOONNO NNNNNN NNONNNNNNO MMMMMMN OONNO NNNNM}}MN NONNNNNN MMMMNM NOONNN OOOONNMMML~MNNONM ONMMMNN~ nNNNNNN NNMMM MNNOONMMMMNOONNMMNN NONMNNNOO MNMMMMM NNOOO NNMMM NNNOONMMNNO ONMMMNN M~NONNN OOONNOOOOO NMMNN ONNNMMNN ONNNNN MMMMM NNNOO NNNNM ONMMNNOO NMMMNN NNNNN MMNNNN NNMMMMM NNNMNNO NNMNNNN~N NNNNNNOO LNNNM OOOOO NMMMM ONNMNN NNNNNNN NNNNNOO ONNNMNNONNNNNNN NNNNNNNMMNNMNM MMNNONMMNNONNONNNNN NNMMNOO NNNNNNNM NNNNN NNONNNN NNNNNNNNNO ONNNNN NNNNNNNNONONMNONNN NNNNNNNNOOO NNOONNOOOOONN NNMNNNONNNNNNNOO MMNNNNM ONNNNN OOOOON ONNNMNNNNNNNNN NNMNNNN NNNNN OONOOOOONMM ~NOOONNMMNNNNNNNN ONNMM ~MOONNNNMMNNNNNN ONMMM OONOONMMNNNN OONNMMM MNOOONM OOOOOOO OOONOOOOONNMLM ONONNNONONOOOOO NNNNNNNNNNN NNNNMNNN NOONN ONNNNN NNNNN :9989 988998 8989889989 8998989898 98998 99889 89899:99:9 :9:9:9:9 8899899:9: 98899:: :8898 ?L?>?M :8989899 ?M?L? 89889 :9899 M?M?M?MM? :99:99: LMM?M ::9::9 L?L??M M?MM??ML?L L?L??M L?M?L?? M??MM? MM?M?ML??L L?L>L ?M??M?MM?L >?>L>> ?MM?M?MLML M??LL :9:9: ?>?L>L? >?L>??L??L ?ML??M?ML? ::99:9:: ~?>?>?L?>? L?L?L?L :9:9:9 LM?LMMLL?L 89::9 >L?L? >>L>??> ??N>L> ?MLM? 899:: LMMLML?MLL 88::9 MM?M~ ??LLM??LM 9:9:: ?L?LM?MLML :9:99: NNONM LM?LL?LLML 898:9: >??LM MLM?MLMML ?LL?? ML?LML??LM LLMLMLM LMM?LMLMLL LMLLML?LM ?MM?ML?LML L?MLMLLM? L??L?L> MML?L MLM?MM? ??L~? L?L?? >L>L?>? MMLM?LML LM?LM ?L?L?> LMLMLMLLML ??L?? LMLMMLL? L>?>? LMMLMLLM >?>?>?> ~MLMLM?LLM ??LL>? L?M N LLMLM ?L??M? MMLLM LL??M LLM L LL??M?? ~MMLMM L MMLMLMLM LMLLM M??~L MMLLMLM 9:9:: LL>L? 9::9: M?MLM L?L?? KLLKLL 9:9:: ?>?L?? LMMLM L L>L?L? L>L>? MLMLM ?>>:: LMLMM L?LL? LMMLM NN?LL >>?L? NN?LL LLMLLM LKKLL ?L>LL L?LL? L~MLL NONOO LL?L? OONNMM ~?L>? ?LL?MM NNONOON ?L?>?L? KLLKLLKL NNOONN MMLLM ?LL?>? MMLMLM ONNMM M?MLL LMMLM ??L?? LNNMM NNONO KLKKL ??L?L? ?L??L? MLM L LL?L? L?L??MM LMLLM MMKLKLKL L??ML LM?L>? L??ML NNOON L?MM?M ?L?L?L ONN??>?? ??L>L MMLM L KLKKL ?L>L>L? >L??L M?LLM KLKLK ML>LL LNONOO NNLLML ??L>L>> LL>L? LLNNMLLMN LMLLM LLNMML LMLLM KLKLKK ?L>?>L> LLMLLMM ?L>?? L?L?M NNONONOO >??>L>L>? >?L>>?L KLKKL L??L> ONNMM LLMLLM MMLLM NNONO KLKLKKL >L>?? KKLKKL L>>?? LLMNMLLM KMKLKKLKKL ??>?> ? >L>L> ML?L? LMNMMLL MNMLLMMLL NNMMNMM >?>?? NNMNMM LLMLLM KLLKL MLLMNMLLNM MMNNMLMM LNMML N??NN LLMML LLMNN ONNMN WWKLKW MMNNM MNMMLMM LMNMLML >??>?? NMNML MLLMLL N?>>?? MNMLMLM MKLLKLK ?>>?? ?>L>??>?> MMLLM KLLKK ?L?ON >?>??> NMLLM LMMLLM KKLKK LMMLLM KLKLKK NNMNMM LL?MMK KKLLKLK >?>??> MNNLL KMKLKK NNMLMM LMMLLM >?>?> LLNNLN NMNMM M?LL~ LMMLM NONNM KLLMM WLLKL L??N? ~}LKL KLKKL MMLMM LLMNO MML M L KKLKK LMLMLMLMLM ONMMLL KKLKK ONNMLL LMLMLMLLM KLLKWM MLLMMNN MM~NMLLM LMLMM ?L??> ??NONN NONNM KLLKKLKKL NON?N NNMLLM KLLKLL LMLMLM MNNMMLNN KLKLKL MNMLML LLMNN KLLKKLKLLK LLKKLKLKK ?L?LL ONM?? LLMLN LMLM L KKLLK KLKLKLLKL LKLKLLKLL ONN L KLLKLL KLLKLKLK KKLKLKLKLK L?LKL LMLM L NNONN LNONO KLKLKLLKKL KLLKL KLLKLKKLLK KLLKLLKKLK NONNM KLKLLKL LMLM L KKLLKLK LKLKLKKL KKLKKLLKLK KLKLK KLLKKL ONNOONN KLKLKL KLLKL KLKLK KLKLKLKLLK NNOON KLKLKLKLKL NNMNMM MLLML ??L?L NNLML LMNNOM MLMNN LMWLL NNONN LMMLM NONNMN MLLKL LMMLMWLL NNLKLK LMMLM NNONN MLMLM LMML~ NONNML LM~MM LMLLM }NNONMN MMLLK LMLKK WLLKKL MLMMLMLL MNNOMM N~NMNMM~ LMLLM L WLLWL MN~NMN~ MNLMLMLLM L MLMLM LMMLMM MMLLK MNNMNM MLLMM MM~}~~}} NNONN MLLML MLLNONO NMMNNLMNM MNNON LNMLLM NMMNMMNM MLLMLMNNM NMNMMNN MMLMLNNM MNMNLLMMLM KLLKLL MNN~~ NMNMLM KLKLLKL }~MLLML KLWLKL MMNLLM NMNMMN KLKLL MMLMLMO MNONNOO MMLLM MNMNMN KLKLKKLL KKLKLKL LLMLM KLLKK MNOO N KLKKLLML LMLMLLM LKKLK MNNMMNMW LLMMLLM LLMM~ KLLKLKK ONM N KLLKK NNMM N LMNNM N KLKLK NN~ML MNONN KLKKLKK KLKKL LKKLKLL MNMMN WMWMLLW MMNMMNN KLLKKLL KLLKL LMLMWW LKLLKKLLKL KKLKL LMLWMMLLKL NMMNN LWLLMLLK KLKKL LKLKKLKLL LWWMW KLKLLKKLLK LKKLKKLKL L}}MM MNMMNMN LWMML LKLKLKL WMMWMLM KKLKKL LMMWMMWLML KLKLLK KKLLKLLKKL WLMLWM KLKLKKLKLL KLLKL ~~NNMN WMWWMWMWWL KKLKLL N~}NM WMMLMWMML KKLKLKLLKL WMWLMMWMM KLLKLW KLKLLKLKLK WMMWMWMLM KLKLKKLLKK WMMWMMWMWM WLWMW KLKLLKKL }NMNMN WMMWMWLLWL WLKKL LLKLKLLKK ~NMMNMN WLMMWMWMWW MWWLLWWMWW KLLKLLKLKL LKKLK WMMWMWWMWM LLMWLW WKLKLKLW KLKLLKLKL NMMWMLMLWM WWMWWMWLLW LWLKLLK KLKKL WMWMMWWMWM MNMNMNN WMWMWLWLM WWKLWLWLKL KKWKLKLLKL MMLMN WMMWLW}} WMWMWWM KLKLK WMWLMLW WLW~}}NWMW LKLLKL KWLLK WKLLKKLKLK MLWLL WMMWMWLM MW~MWLWLW~ KLWLWKLKWK WMLWLWMWLL WLLKK ~MMLLW WMWLWLWMWM ~}}MLMWWL WLWLW WLKKLKKLK KLKLLK WMWLM WWMWMWWML KLKKWL NONML WMLWLWMWLL LKLLK NMMNN WMMWL LWWKWVKW KKLKL LLMMN WMWLMLW WMMWMWLM KLVKV WMLWLWMW LWLWW VWKWKKVWW WMWLWL LWLWL WWLVLKVLV} MNNMNNMN WLMLLMLWLW |VLKVWVK WWLWLL VWKWK WVKWWL LLMWMLWLMW LWWLWL WVKKLV NNMNN LLMLW WLLWWLLWLW VVKVKWV VKKVW NMMLMLLWLW KWKVKVK LVWKV VVKKVK MLWLWWL VKVKVVKVWK KWVLVWK WKVVKK WLLWLWWL VVLVKV MMNNMNN MWKLL WLWLW VKWKVKKVVK LMWMM WLWLLWW VKVVWWL WLLWW WLLWL LWWVVWV VKVVKW WLLWLWLWWL WLLWWL LWVWKKVK KVKVK WLWLWLLWL VVWVKVVKVV WKVVKKWKVK WKLKK LWLLWL W KVKWWV VKWKWW KKVW}WWK LMLWLWWLWL ~WLWL KVWVVLKVKK WWLWL KKVKKWKW VKVKKVWVWV WLLWLW }~NWL MNMNN WLW}}~N~}} N~WWL KVKKWKV KWVKWWV MMNMM WLLN}} WWVVKWKVVK WWKKWKWVWV NW~NV VKWKWWVVWW KWVKLWVWVK MNMNM LMLMMO N}~}~~N~WW VKVVKV VVWLVVKWWV WVWKK NOONN LLMNO MNOONNMMNM VWVWWV NNMNN LLMNMNNMM }LLMNNM NNMNM MNNMMNMM MW}WLLW WWLVVK NMMNMN NNONONO WLWLWWL VKVKVVWW~ VWKWW WLWLWL }}WWVWWL LLMMNN~NM WMWLLWLWLW VWWVV NN~NM MNMMN ~NMM~ NNMNM N~OONNMM WWLLWL NNMNN NNMMNMMNNM WWMMLWLWLW ~NNO~ WLWLWLWL NNMMNN NMNMN LMWWLL NN~NON~N NONNMNN N~}NW~ MNMMN LLWWM ONNMNN NMMNNMMN ~NWW~~ NMN~NN NMMNN }~~}~W LWW}N NWWNWW }~}~NN~ WMWML VWVVWVWWVW WMWML VWWVWVWWVW WVWWVWVWW WWMWWM VWVWW WWVWV LMNMM NWN W LMNMM MNMMN NMWMWWLWWL WVVWVW WMMWMMW WMWWMWWL WMMWMWMLMW MNMMNNMWMW WMWWMWMWMW NOONN WWMMWWM W MMNMMNWMMW MMWMMWWMMW NMMNMWWMWM MWMWM MMWWMM MMWNMNNMMW MWWMWM MMWWM MNMWMWMMWM WMWWMWM MNONN NNMMWNMWWM WMWWM MWWLWM MMWNWN NMWNMN NNMNN NOONOO WMLWLWL LWMWM WLWMLW LKLKLK LMLMML MLMLLMMLLW LWMWLWLL MWWLWWLMLL WLMLWLW MWMMWLWMWM LWLLWWMWMW LWLMLW LWLMML MWMMWMWWMM WLWMWLMLMM KLKLW LLMLLW WMMWMMWMWW MWWLWWLMWL LLKLKKL WLMLL MWMLW MWLWMWMMLW MWMWWLWLWL WMLMLMLLMW MMWMWWMMWM WWMWLLW VWMWLWLLK LLWLW WMLLMWWLWW WLWMWMWLLW LLVLW VWWVLL MLMLLMWMMW LWMWMWMWWM MWMWWMWLWL LVWLW LLWLLMW WLMWMMWMWW MMLWM WLWWLWL VVLLVLWL WMMWLWMWM LLWMWMM WMWML WVLWW LWVLWLL LLWMWML WMLLWWL LWLWL WLLWWL WWLWLWLLWW LLWLWL LLWLMWW LWLWLWLWLW WLWWVLWVLW WLWLWLLWLL LWWLWLWL LWWLWL VWLWWL LWWLWLLWWL LWLLW WLLWL LWWLL WLWLWLLWLL WLLWL WLLWW LVWWLVWVWW WKLLWLW WLLWWLWLWL VVLWLWV LWLWWLL WWLKWLLWWL LWLWLWWVWL WLLWLWLW LVWLWLL LLVWLW VWVWLWLVVL WLVWLVWWV LWWLLWW LWWLLWWLL LWLWV LVWLWV WVVWL WLVVLVWLVW LVLWLW LWLKLLWL LLWLLWLWLW LVWLWVW WLLVL WLWWVW WLWLWL LLWLWLLW LWWLW LVWLWVW LLWLWW LWWLLWLWLW LWWLWWL WLLWW LWWLVVWL LWWLWL LWLLW LLWWLWWLWM LVVWW WWVLWLL LLWWLWL LLVWLLVLWL WWVWW WLVWVW LLWLLWLWLW WKLLWWLL WLWLV WLVWW LKLWLLWL VWLVW WWLLW WLWMWLWM LVWWVVW LWLLWM LVWLL LLWWLWLWLW LLWWLWWLWL WWLLWL WWLWWLWWLL LVVWW WLWLWL LWLWW WLWLWW LWLWVWL WVWLL} WLWLWW WLWLWL LLWLWWLMWW MMLWW }}LWW LWMMWWMWLM LWLWVWL }}WWVWLWW} WLVLLW WWLLW WWLLWWLLWW WMMLL? VW}W} LWLLWL LWWLW} VWLWW} WLWWLV}} WWLWLL WWLLWWL LWLWWL WWLWLWLWW LWLWLMWWLW LMWWM MWMMWWLLWM LWWLLWVLLW LWLWMMWWMW LMWMM WLWW}WW LWLWML LWLWWLWLM LLMWMLM LW}}W WLWWL WWMWW LVWLWVW WLWWLMWWM LWLWWMM MWWLLMLMWL LWLWVWL LWLMLWWL MLWWLWLWM LW}WW~ LWLWL WLWLWLM LWWLMWWM LWWMLWMWW MWMWMM LWMMWWMWLM WMWMM LMWWMWLWWM LWWLLWLL LWWLVWWLLV LWLWML LWLWLWLWLM LLWLMWM MLMWMWMMW WMMWLWMWW LWWL W WLWLWWL LWLWWMLWWM MLMWLM LWWLMLW WLWLWM LWLWLWWLWW MLWWLW LWLWWLMWWM MLMWLMW MWMWLMW WWMWMMWML WLLWVLL LLWWL LWWLWMWWMW MLWMWWL MLWMWW LWLWWVLL WLWWLLWWL WLWLWWLWLW LWWLMWWM LWMWMMWWMW MWWMLWM LMMLMWLW LLWLL LMWMWLMLL WLMWLWWM LMLMWMWLWM LLMLLWLWWL LLKVVK LLWWLLWL LWLWML MWMMW LMLWWLMWWL MWWMWL KKVKKVKVK LLKKLLKKLL MWWLL LWL W LLWWLWLL LWWLWMMLWL LLWWMLMWMW MWMWMLWWLW LMWMWLM VVKVV LWWLWWL LLWWLWLWLW WLWLWMWMMW LWWMWMWLMW WLWMW MWLWLMWWML WWMWLMW WLMLMM VVKLVLVLKL WVLLVL LWLWL WWVLL LWMWWMWLWW LWMMWLWMML NMLWWMWM MWWMLWWLWM MLMLM JKKJKJ VKVKKV WLVLLWWLL LWLWWLWL MWWMLL MWLMWMWW MLMLWMWMWL LMWMW KVKLKVLKLL LWWLWLWW LLWWL MMWLLW LWMWWMWLWW MLMW M LMWMWMWMWW LMWMW WMWLM VVKVKLKK LLKKLLKKLL VLLWL MWWMLWWLWM WMWMMWMWML MWWMWWLMWM MWLMLM KKJKKJ KKLWL LVVKLLKKLL KKLLK WLLWWLL LWWMWMMW WMWMW LLWWLWL KJKKJ LLVVKVVKLV LKVVKKL WMLWL MWLWL WWMWW WMMWW MWMMLMWMWW VKKLK VVLKL WLWLL WMMWMMW WMWMMWW MMWLMWW LLWWLWLWWL KJKKJ VKVKKL VVKKW} VVKVV KKLLKKLLK LLWWMWM WMMWMWMML MMLMWMLWW LWWMWW VV}WKKV VKKVVW}WKK LKVVK WWMML WMWMWMMWW LMWLWWLWL KJKKJ VKVKVK}V VKKVKV VKKW|KKLVK LWLWW LWLWLLWWL WMMWL WWLMWWLLWW LWLMWMWMWM MWMMW WVW}V VLKLLKL WWLWL MWWLMW MWMWMWMM MMLMW VKVW}WVK VKKVKV LLVKL LLWLL MWMMWM MWWMWLM LWLLMWMWMW KVKKVKKVW| LLVLKKVW VWLLKWLL MLMWM MMLMLM M?MLMMLLM WKLLKLW WLVL}} LLWWLWWL LMWLM VKLVVKKVV L}LVLVLLWL WLLWL} MMLWWL MWWMWW MWMWM MLWMMW MKLKKL LKVKL KKVKKVVKVL WLWWL LWW}}WL MWMWMWMM WMLMWMW KMMKKL KW}KKLVVLK KKVKVKKLKK VKKLLKW}}| LLWWLW WLWLWLWWLL LLWWL KMMKWLLKLL LKLKW|WW}V VLWLLWLLW WLLW}|L WMM~} LLWKLLV KKVVKKVKV KKLKLLK VLWLWLWLL MWMMWMWM WMWMMWMML LKLKLLKLLK VLVKKVKKLK LKLKLKLMW} LLKLLW> LWLWWLLWWL MMWWM MMWMMW LKVLLKL LKKVK VKKVK VLKKWLKLKK WWKKW MWMWW MWLWMWM WMWWMW LMLWM WWMWMMW LVKVLKKLVV KKVKKLLKKL KLKLKLLKKL WLWLL LWLWWLL LLWLWLWLLW MWMMWWMMWW WMWMMW M WMMNWM WWMWW MWLMM WMWMW KMMKWL}LL VKKLKKLLKK LVVLK KVKVL KLKLKLLVKL OWLWLWLWL LLWWMM MMWWMW WWMWWMWLW MWMWMMWMMN KLW K LKKLVV KLKLVLKKVK KLKKLKLKKL KVLVLL WWLLWLLWL WWLWWLL MMWWMWMM MWWLWMWWLW WMMWMMW WMWMMWMMW KLKLM LKLKLKKLKL KKVKL VLKKVKKLLK KLKLLVKLLV LLKLKLKKLV LWLWL MWMWM WWMWWM WWMWMMWMWM KLKKLL KLVLKKVVKK LVKKL LKLLK VKLLV KLWWLW MMWWL WMMWM MWWMWW WMWMWMWM LLKMKK LKLVVK KKLLKL VLLKWLK KLLKLLVLLW WWLWLWL WLWLL MWMMWMMWWM MWWMWMWMMW WWMMWMWMMW WM~MML WWMMWMW MWLLKLKKL VKKVVLVKLV VKLLWLLWLL LWLLWWLW LLWL W MWWMMWW WWMMW WW~MWMWMNM MMWMMWMM LVKVLVL LLKLKLLK WKKLLV MMWWMWWMWM MMWWL WMWMMW NMWMMW MMLMWM MKMKL LVLLKVKL VVKVLVLKKL KKVKLLK KLKLKLLVKL KLLWKWLWL MWLWMM WMWMWMMWMW MMWMWMMW VKKLLKKLLV KLKLVK WLLWL LWWLW WLWWLWWMW WMWWMWW WWMWWMMWMM WMMWMMW WMWMWWMMWM WMWWMWWM MLWWM MWMWMM VKKLLKKLLK VLKVL LLKVLKKLLV LLKLKLKKLV KLLWLLWW WWMWWMW LLWMWMWMW WMWMW NMMWM MWMMWMMWWM MWMWM WMMLMW KKMLKKL LVKLKL LLKKVLKL KLVKLLVLKL KLVKLLV MMWMMWWMWM MMWMWW MMWMMWMWW WMMWMWMMWW MWWMWMM WWMWM MWWMWM LKKLKLKLKK KLKLVLVLKL VLLKLLKLLK KKLWLW LWLWWLLWL MMWMWMW WMWMM WMMWWMW WMMWMWWMWW MWMWMMWMWM VKKLKKLKKL KVLVKLKVKW LKLKKLKKLK WVLWWLWW LWWLWL WMWWMWM WMWWM MMWWMMWMMW MMLWL WMWMWWMW WMWWMWMMWM MWWMM LVLLVVLL VKLKLKLKLK LKKWKLW MWLWWL WMWMW MMWMMWWMMW MWMWMM MWMMWWMMWM WMWMW WWMWW WWMWWM WMWWM MWMMWWMWMW KLKLL LKLKLKLLKK LKLKKLV KVLKKV KKLKKVVKLK WLLWLLWWK WLWLL WWMMW MWMWMMWMMW MWWMWM MWMWMMWMMW MWMWMWMMW KKLLKKL LVKLKKVLK VKLKLVLKVL LKKLKLKVKK LLKVLKLLK WLKKLW WMMWMWMW MMWMWMWMM WMMWMMWMW WMWMW LLKLLKLLK KKVLKKVLLK LKVKLKKVVL KLVKLLVLWL KKVLVKVLKV LLKVLKKL LKKWKVLLK WMMWMWW WMMWMMWMW WMWWMWWMMW WMWMWMMW WMWMW MWMWWMWMWM MWMWMW KLKLKKL LKLKK KLVLLKLL KVKLWK VLLWLWWK WWLWL MMWMMWMWW WWMMWM WMWWMWMWW MMWWMWWMM WMWWM MMWMWWMWMW MMWMW KLLKLLKL LLKLLKKLKL LKLKKLK VLKLVWVWKL KLKLVKVVKL KLWKLKVLKL LWLLK KLWLKL VWLWLWWLLW WMWMWMW MMWMWWMW WMMWWMW WWMWM WMWMNMM MWMMWMMW LLKKLKVLKK LKLKV VLLVLLVLLV WKVLLKLVLK WLWWLWL WMMWMW WMMWMWMWMW WWMMWMWMWM LVKKLLKKLK KKVLKLVLWL LVLLKLVVLK LLVKLLKLVL LKWLLWLWW MMWMMWMMWW WWMMWMWMWM MWMMWWMMW WWMWMW WMMWMW MWMWWMWMM WWMWMWMN LLKLLKKLL} LKKLLK VKLVKVV LLKWKLKV LLWLVL MWMMWMMW WMMWMN WMWMMN WMWWMWMWMW MMWMMWMW MWMWMMWW LKLKLLWWLK VKVLKLVLK KVLLV MWWMMW M WMMWMWW WWMMWMWNW NMMNMWMWM WMMWWMWMW KLLKLKKLKL LKKLLKL VLVLVLVKLL WKLKVKWKLV WMMWMMW WMWWMMWMMN WMWMWWMWMW MMWWMWMW WMWMW }WLLWWLW MWWMMW WWMWNMWMWM WWMWMWMMW MLLKM KLKKL VLKLLK LLWWM MWWLMWMWMM LKLLKLKKLL KLLKLLK WLVLWLK}W MMWMMWWMW LKKLKKLKLV WWLKW LWWLL WMWWMWW MMWMW MWMMW WMWMM LL}KLKKLKK LLKLKLKLKL KLLWLLW K}VLLKWLLW LWLWW WLWWLL MWMWMWWMW LKLKK VLKKLLKKLK WLVLW MWMWMWMW NMNMMN LLKKLLVK MWWMWWMM NMMNMNMN LKLKVLKVVW KLLKVKKVVK WLWVLLKW WLLWW LLWLWL NMNMMN MNNMN WMMWW LKLKKLKKL V||LKLK VLLVKKWLLV LWLLWWLV }LLWWKL L}WWLWLWW NMNMNM WMMWW VLKK||LKL LLKLVVKKWW WLKVWLWWVK WWVLW WWLWWLWLW MWMWMMW NNMMNMNNMN MNMNMNMM NMNMNM WNMNMMNMWM LLKKLLVVKW LLKKVVKKWL }||WLLWLWL WLWLW} MWMWMMW NMMNMMN N}}MMN NMNMWMW WMMWW LKLLKVW WLL|W WLLWWLLWLL MNMNMN NMMNM NMNMNMMN WMMNN JKKLLK VLKK||VKKW LW||W WWLLW}}L W~WKWLLWLL WLWWLWL LWLWLWWL NMMNN NMMNN} NMMNMMN WWMMWW KLLKKLLVVK }WLLWWLWLW WLLWLWWLWW MWWMWMWMWW NMMWW NMMNMMNMN MNMNMMN LLKKLLKVW VKVK}WL|}W WLWLW WWLLK}W NNMNMN NMNMMNMWMM {LWWM VKLW||WLWL LVWLWWLLWL MWMMW WMNMN NMNMWMWMMW LLKK L VWLWW LLWLWLW NMNMMN NNMMNMW NMMNMN KLLKL K LLKKLKLLWL }LWWLWW LWLWL WMNMN NMNNMNMNNM MNMNM NMNMNMMNNM MNMNNMM LKKJKKL LLKKLLVVK WLLVLWV NMM}N NNMMN NMMNMM NMNMNNM MNMMNWW LLKKLLKVW WWLVLWWLLW LWWLLWWL MWMW M MMNNMM NMMNMMN WMWNM MMNMN WMMWMMWMW LWWLWL}LL LWLWWL MWWMWMWMW MNMNMNM NMMNMMN WWMMW KKVLKK WLWWL |WLWL MWWMMWWMMW NMNMMNMNNM NNMWMM NMNNMNNMNN MNMMN MWMWMWWMMW NMNNMMN NMNNMMN MNMMWN MMNMWMMWW MLLMMKLKLK LKLKKLKLKV KLLVL LWWLWLLWL MWWMW NNMNNMNNMM MMNMMNN MNMMNMM LWLWWLWLLW MWWMWMMWMM NNMNMNMMN MNMMN NMNMW LMKLKLL LLKLK LWLWWLWLL WLWWL MMWMWWMMW NMMNMNM MNMMNNMMNM NMNNMNN NMNMN MNNMMNMN KLKKL LLKLKLKKL LKLVLKL LWMWL MWMWWMWWMW WMWMMW NMMNMN NNMNMMNM NNMMNMMNMM VLLKK LWWLKW WWLWLLWLWL MWMWMW WNNMNNMNMM NMMNMMNMM NNMNM NMMNMMNMNM NNMNNMN LVLKL MWWMWMWWMW MNMNMN MNMNNMNNM MMNNMNN NMNNMNMMNM KLLVLL WWLWWLWWLL WLWW} MMWMMWW WMMWNNMMN NNMNM MNNMNMNM }}MNMN NMMNMMN MNMNMMNM WMMWW} KLLKLK WWLWL WMWWMWMMWM NNMMNNMNMN NM}}NNM MMNMN MLKKLKM KLKKVKKLLV WLWLWLWW MWMWWM MWMWMWMWWM MWWMWWMWMW MMNNMNMNMM MNMNMMNM}} MNMMN LLKLLKW WLW|WLWWLW LLWLWL LWLWW MWMWWMWMWM MWMWWMW MNNMNMNMNM MNNMN NMMNNMNMM VLVLLWVL| LLWLWWLWLL WMMWMW NMNNMN MMNMNN KLLKL VKKLLVLLWL WWVK| MWWMMW NN~MMNMN MNMMNMNMM NMNNMN NNMNMMNMNM NNMMN LLKLLKW WLW|LWLWWL WLLWLWL MWWMWMWMWW MWMWMWMMNN MNMNMM} ~}}NN NMNMNMNNMN KLLKKL VLVLLWVL~ LLWLWWLWLL WWMWMWMWM MWMMWMW WWMNNMNMMN NNMNNMNNM WMWMMW NMMNM MNMMNNMM MNMNMMN VKKLLVLLWL WWVLV MWWMMWWMMW NMNMMNNMNM MNMNMN NMNMMNMM NNMMNMNMMN NMMNNMM MNMNMNMMN LLKLLKW WWMWMWMWM MWMMWMMWWM WMNMN MNMNMMNNM MMNNM NMNMNM LKKLKK VLVLLWV }WLWWLWLLW LWLLW MMNMMW NNMMNNMN LKVLLKLV LLWLWWLWLL WLWLLWLW NMNMNMN MMNMNMMNM NNMMN VLKLV VLLWWLWLW WLWWLLWLWW LWLWL} WMWMWWMWMW ~MM~M NMNNM |MNMM MNMNNMM JKLKL LKKLKLWV WWVWL LLWLL WWMWMW MWMMWMMWW WWMWNNMNMN MM}NM MNMMNMNNM MMNNM NNMNMNMN VVLKKL LVKKWKK WLLWW}WLWW WLLWLLWLLW WMWMMW NMNMNMN NNMNMNMMNM NMNMNNMNMN LLVLKLLKKL LVLKW LWWLLWLW WLWLWWLLWL MWMWWMMWWM NMMNMNN WMWMW VKLVWL LWWLLWLW WLWLWWL WMMWWMW NN~MNMMNNM NNMNM MNMNM LKKLKLKL LKKWKLKKLK LWLLWL LWLWWLWWLL MMWWM MWWMWW WMWMW ~}MMN MMNMN VKLVWLKKLV VKLVWLKLV VKLVWL LWLWLWLLWL WLLWLLW MWMMWW NMMNNMMNMN MNNMN WKLKKLKW WLKLKKLKW WLLKKLKW LLWLWWLLWL NMMNMNNM MNMNNM LKLLKKVLKL VWLLVLLKKV LKLVWLLVLK KVLKLVWLLV LWVWWVWVWW MMWMWMWMWM WMWMWMWMW NNMMNN WMMWMWMMNM MWWMMWWMN NNMNMM KVLKKL VLKLLVV LWWLW WWLLWWL MWWMWMMW NMMNMWM LVKLKLKWLL WLWLLWW}WW LWLWLWWLL WMWMM MNNMN NNMNMM MNMMNNMMNM LWWLWLLWLL WLWLWLWL WWMMW NNMNN MNMNM MNNMNMNN KLKKLL LKLLKLLKLK VLVLKLV WL}WLWWLW WWLWW MWMWM MMWWMWM MMNNMNMMN NNMNMMN NNMMN MMNMNMMN VLKKVKLKVK LWLWL MNMNMNNMN LKLLKKLLVK LLKLVVLKLK MMWWMMW NNMNMM NMNMN LKVKKVLKLK LKLKK VLLKLW LLWWL MMWMWMWMWM MWWMWMM NNMMNN LLKKLKKLKL VLKKVLLVKV MWMWMMWW WMWMWMMWMM NMNMNM KLLKLKVKLK LKLKVKLK LWLWWLL WWMWMWMMW MNMNMMN VLKVLKKLVL KLLWLKWW WLWWLW} MMWMWMWWMW MMWMWMWMM NMNMMNN LKLLK KLKLKLKLLK MMWWNWMWW MMNNMWNNMM NNMMWMWM LLKKLKLKLL KVKLKLKLLV MWWMWMMWW NMWMWWMW NMMNNMNMNM MNNMNM N WWMMW~ KLKLLKLKLL KKLKK MMWMWMWMMW MWWMMW MWWNWMMWMM NWMWMM ~M~MM MNMNM MNNMNM MNWMNN KLKLKLV VLKLWLWVLL }LLWWLL WMWMMW MNMNMM NNMNM NNMMN MNMMN KKLKVLKKLK MWMWWMWMN NMNNMMNM~N MNMNNMN MNMMNMNMMW NNMNN KLVLV KKLLWWLLWW WLL W MWMWMM MWMWMWMWMM WMWNWMMW N~NNMMNNMM NMMNMNMNN MWNNMNMMN LLKLLV KWLLWW KLWVL MWWMWWMWMW WWMMWMMW MMWWMMWMWN NMMNMN NMMNM MNMNN MNNMMWNWMW NNWNWMN VLVLWLV MWMWMW MWMWMWMMWM NWMMNMN NNMMN N}NMN NMNNWNWMM WLVLWVLWWL LWLWLLW WVLLWLWW LLWWL WWMMWM WMWMMNMWNM WMMNN NMNMM NNMNN MMNNMM MMWNWWMMNM MWNWNWMMNN WWMWMM NMWNNMMNMM NMNMN NNMMNMMN WWNWNMWN WNNMNWNMWN MWWNNM LVLLVLWLLW MMWWMWMMW WMMNM WMNWNWNWM WMWMMWMWNN WLVWWVWLLW LWLLWLLWLW NMWWM MWMWMWNWMW NWNMMWN MNMNW MNMNM MNMWNWNWNN MWNWNWMWNN WMWNWMMW WWVWW WLLWLWLL LLWLWK NWMWMMWNMM WNMNMN}MMN NMMNNMM WWNNWMNMWW MNWNWWNWWM NWMWMW WMMW~~} WLWLWLLVWL WWLWWLL MWMWW MMWMMWMM NMNNM WNNMNNM MWMWWNNMWM WNWNWWNMWW WMWMW WLLWLWWLLW MWMWW WMWMW WMWMMNWM NMNMM NNMNNMNMNN WNWMNWNN MNNWNNWMNW NWNNMWWNW MNMNMWMWNN WMNMWMWMMN MMWWN WWLWWL WWLLWLW MWWMWMMWMW NMWMM MWMMNNMWWM MNMMN }}NMNMNM NWNNWNWNMW MWWMW MMWMWM WNMNWWMWWM WNMMWWMMW LWWLWWL MWWMWMWWMW MWMMWM NWMWMNMNW~ NWWNWMWNWN WWNWWNWW WNWWMWWNWM WNMWMWMMWM WLLWWL LWLWWLLWLL MMWMMW MWMMWMMWMM NNMMNNM MNMNMNNMN WWNNWW~ MWWNMMNWMN LWLWLWLLW MWMWWMWM WMWMWMNNMN NMNMMNMMNM }WWMWMM WMWNNWNN NWMWW WWLLWWLLWL LWLWLWW MWWMMWWM WMWMWWMW NWWMNWNMNM MMNMNMNNM MNNMMNNMMN NWNWNWW LWLKL LLWLLWLL W MWMWW WMMWMWMW WMWMWMMNMN MNMMN MMNMMNNMNN LWLWW W~W~MW WMMNW WMWMWMWMNM NMNMNMN NMMNNMNMNM MNMMNN~ LWWLL MWWMMW }WMWMW WMWMMWMM NNMMNMNMNM NMNNMMNMNN MNNMNMNMNM LWLWWL5W ~WMWM ~WMMNMWMMW NMNMNNMMNM MNMMNN MMNNMNMMNM MWWMW NMNMNNMNMM WW}}WL MWMMWMMWM NMMWWMWWM NN}MNNMMNM NNMMNMNMMN MNMNMM MMNNMMW MWMWWM WMWMWM NNMMN NMNMN NMMNW MWMWM MWWMWW M}~}}N NNMNNMNN NMMNNMNMNN MMWMWMM WMWWMWMW NMNMN NMNMNNMNMM MWWMWN WMWMWWMMN NMMNMNM MMWWMMNW NMWMWM}MN} NMMNMNNMNM NNMMNMMWNM MWWMWM OMMWMWMM WMMWMWMMNM NMMNNMN NMMNMMNWN MWMWMM WMMWMW NMNMNMNMNM NMMNNWW MMWMWN WMWMWWMMW MMN M WMWMMWMW MMWMWMW MWMMW NMNNMN MWMWW MWMMWWMMW NMMWMMW MWWMWW WMWMWMWMWW NWMWN MWWMWMW WMMNW WMMWMWMM WMWWMW WMWMW WMMNNMMNMM WMWWM MWMMW WMNMMNN WMWMMWNMM WW}}W LWWLWL LLMWM LWMLWL LLWMW MLMLM MLMWLM LLMLL MLMLM MMLMM LMLLWM }MLMLM WM}}WW MWWMW M}}MM MMWMW MLWMWM MM~}M WMLWL MMLMWL MLWML WMWMW MMWMMW WMWMWMWLWW WMWMWL WMWMMWW MLWLW WMWMMWMLML LMLMMLLW WMWMMWMWL WMWMLM MWMWM MLMLWML LMLWMMWMLM WMMWMLMLWM LMLWMWMMLM MMWMW LWMWMLL |}}|| WLLWWLL LWWLL LLM}W} LLMW} MLLWM LKLLM LLMLL MMLMM WMMLM LMWMMLML LMWMWMWMLL LMWMWMLMM MWMMLMM WMWMWWM WLMWMW LMLMLM LMWMMWMWM WMWMWMWML WMMLMM WMWMWWN WMMWM} LMWMW WMWM} WMMWM MLMLM WMWMWM WMWMMLLM WMM}WMW WMWMM} LMWMW MLMWMW MWMML WMWMLMWMWM MMWMMW WMLMMW MMWMWMW HHHEHHG HHHDBGHHHHHHHH HEHHHHHHHHHHHHHHH HHHGD HHHHG HHHDH9A -GHHH HHGH8H HHHHH HHH99 HHH9H [ZZZZ ZZPPPB Z[DPPPP W[ZPPPPP[C G[ZPPZPBPPG ZZPPPQPP ZZZ[PPPZPPP\ ZZZ[PP[ HHCHD ZZZZPPPCZZPPP HHH8D PBZPPPZZPZP ZPZPZ[PPPQPQZQPZ[D GZPPPPPPZPZ ZQPPPC P[ZPZQZPP PPZPPD [[[PPZPP PPPP[[[PPPPD DPP[ZQZPPPP[QPZQPZPD ZPQQPPPPZP[G DDGGC DGGC{GG CZZZPPZPP[P[PQ BQPPZ[PPH PDCG EDEE [[Z[PPZPQ PPZEH EPPPPZDd HDPPDGG Y[ZZZDPPPPZPP HPZPBPD xGDCDDD GZ[ZZZ P[PPE GQPZPP ECPCDP DDCDH ZZZ[PZPPPP ZPPP{ PHP[ZG PCDPCECG GDPD[ GDPDd PZCPZBPPPZP[PQPDd PQPZG DPCE ECECG ZZPPPPPPPPPPPPZ PZZZZ ZEEBDEZ EPPDE ZZPBZPZPPZ PP[PPD {{GDCPCD[yECPD EZPBZPZBPPPB[PBP[P EPQZZ EBpGP GCDDDEEGPyGCDCPCEG ZZYPPZPZPPPPPZQZPDCE PCCDD DDPDZ CZDBPDE ZZZZZP[ZPZPPZPZZPZPP PEPZPZZ {DEECE HECPECDBG ZCPPPPBPZPPZP[PQZPPPDEPPPPE PDE ECDDCCDBDPPP ZGYPP PZPPBQQZPPZPP[PZQZPPE CP9YGDCGEY{EGEPEBPG EBCBBCCADBBCA DZPZPZPPZQPZQPZQBPPZPZZPPH 9y8HPP CECCD GBPBDPP BPCCPP GCBEd APPZPZPZZPZP[ZPPZPZPPZPPZZ PEPCD GBCPPC DBPBDPP BPCCPPPDEd GHPBPBCPZPG ABPZPQPZPZ[PZZPZP[PPZPZPZZ EGECDPDPCPCD{CCDPPCPPDPBDPP BPCCPPP CCBPBPPBP P[[PPPPPZZZPPZPPPP[PPPPPZP[PPZQZZ EEHCDD CCPCPCCD GCDZPCCQPPC DBPPBPC PPBD[ PPBPPP[BPPPPPPZZPPBPPP[BPPZZZPZZ XDPDPPPBPPCPPDD PDZPPCPp wACCG{ EDGQDGCBEDGG PGDEPBPQPCCPCC PBPZPPZ[PPPP[BPPPBPZPPZ[PPQP PDPPDDPPCPEEGP DCPDCDZPCCQPCCPCDBB w@EPBEHDDDPCPPBPDBDG GCPBPDPBPPPPBPBCPZ PPPPPPZZZPZ[PPP PPPPPPZPPPZZ CCPCE EDBQPPCPPDPPPBPQBPPB CxECPDCDCPPCPPCPP [DDECP BPPBD PPBPBPPPBPB PPZ[PZPZBBBPPPZZPPZ[PZPZBPZDZ PPCPCC DErEG DDDBDCPDPP DCPDCCPDCPPQP CyBPP CPPBPBBPZCG CBPPPPPPPB PPPBBP PZBPZPZP[[[ZPZBBPZBPZPZP[ZQ PPDPEC EDDD PPDCPPCPZCDBPCBPPBYA tBEBPPYPZZDPPDPQCCPBEDDQPDDCPPYQPBPBCPBZBCPBPB PP[PPPPPZPZPZP[[[PPPPPZPPPP DCCPCE DBDDDG ZGCGECDCPPBPPBDPP BPCCPPPDPPCB xDPCPB DCDPPCZPPBEPBPBPP PPCPZ CYPBBP PBPPPDP PPBPPP[BP[ZPPPPPBPPP[BPQZQDZ DBPBC PCPPPC DBPPBPC DBPPDPP@ xEBPPPPCPP CCPPBZPPCPBPCB ZPPZCPPDEDEDPPPD PBPZPPZ[PPP[PPPBPZPPZ[PZPPZZ ::::8 PCPPCCD QDCDCPDCPPCDCPPCPPDD PDZPPPDCPP ZtDPD BBPPBBZZPAPPPPDBPP DPPPZQCDQPPCBEDD PPPPPPZPPBPPP PPPPPPZPQPZZ DPPEBP EZZECPZ CCPPCPZPDZPCCQPCCPCDBPBPBBDp QBPBPBCPZPCBDC CPBQBPP QPZPBPPCDD GGgPDPBPPPP PPZ[PZPZBPBPZPPPZ[PZPZBPBCZ PPDDCPPPCQ EPBCP CPPPCPDPDPPPBPQBPPB DZPPCPp DxDDCPBPBPBPPBP YBPPBPBCPZP PCZCBPDD BZPPBPPZP[P PPPPZBPZPZP[ZPZZ PPPBPPPPD DCPDCCPDCPPQAPCBDPBP [pDDZCC PPPBPBBPBPPBPBPBCPZPCDZ PEZq PPPPZ[PPPZ[P PPZ[PZPZBDZZ GCPCPPBP BCPDP DBPCBPPPPCQCPP PCBPCBPp PBPQPCCBPBP PBPBPPBP BQPPZQQZBPPPZBPPPPZBPZPZP[P{ DPPEZ GPPPPP BQPPPP CPPCPPBCPCPCZD CDPPDPBPPP PPPPBPQPC ExECCCE BPBPPZPPBPZPPPP[PZPZBPZPZP[ PCBPD ZZDPCPCPCPCCPCPPBPPCPCPPCQCPPCPPCPPBC Y DCPBP PPBCABPBPQPDPBPPPBPQPCCP PBPBCPZP EBPQQPPZQQZPZPPZPZG yPPZGZZ CPPDPCGC DCPCP PPPCQPC PDPPDPPD DPPPDPPBPP DPBPBPPBDPDPBPPPPBPPDPBPPPPu BPBPBCPZP BPPPP DE@PQBBPPZPPBPZPZPPEZ EPZPQ DBDDB PPCDPP PDPPPPCPP DPPDCPPCPPBDPCPPDBPCPPP tDDYPPBPBCPZPPPPBQ PPPBDBPDEG PBPBCPZPC PZZPPZP ZBBBQBPPZPPBZPPBPPP PH8PH DPCQD ZQECPCCPPCPCPCPPPDPPCPCPPDCCQY CPDBPY QxDDBPPBPBPPBP PCPZPBQPZPPQGB PCDPPBPBPPBP ZZZZPPPQ DBZPPBPPPZPBZPP PPPPZEy 88888 PPPPPPPP CDPBDP yCGCPPPD CDPPP CPPPCDPPP DPZPBPPp DwECPPB PPBPZZP QBCDE@B yQPEC PBPPZPP PPPCCG PPPPZQQPPQPPZQQQPE EPCPPPDCCPGxPDED DPPPPBDPDCPQBDDPEDPPCPC PZBPPYPPBPQPCCPZPPPBPPPP HCPPBPPPQPBPQPCCP PPZPPP PPPBPP YPPPC CCP@QPPZQQQZPPQPBPPZPPPEZx DPDPP DBCPPCCPPDCH GCPCDPCDCC PPPCDPPPCCBPCPPC APPBDPBY sBCDP CPDPBPPPP PPDGECP EtsBBDPQQPPPPDPBPPPP PBZPPPQQP PGy@ECPY PPZZZ ZPPZPPPP ZPPPPP BBZPPBPPPZPPPPZBBPPZPP[BPPp EDPPCDCP CPPCE DEPPCPC PPZPCBPPCPZ PBPDBPPPDEZDDPPAXH xBCCZD BPPBPBPB GCyCZ/ XDDDDDDDPQPPZPPDB PZQPP HPBBY PPZPCCP EDPPPPP PPPPPYZP PPPZPQPCQYPC[ B88P8 DPDPP PCH CDBCCB CPPDPCPCCECPDP CPPPPP EBCDCPp wBDBZZBP PDBPCD DDDQQQZDDDZDD PPQZPPZPPBPQB [DBYrX ZPPPPPPPC HDPPPZPQPPZ QPPZQQQPBP BZQQPPZQQQQP ZPPPP [ZZPPBPB CPECE PPCPDPCEC[DBPD EBPQBPPPDPPPBPC EDBB@ PBPPCPZ yPHCE{EDw PPPPPP DDDDDDDD ZPPZP PPPPPP P[BPPZP BPPZBZPPPPZPPBPBZBBPPZPPPPPYQBBZPPBPPPPPZD HH8PP DPDPP DPCQDD EPBCDPD PCBPCQCCP CPBPPBPCPD CCBP@: xPCPCB ZPPCPPCDBPD PZZZPPP PPPPPPP PPYPP PPCEGPPPPZ BsrQPPPP PPPPP PPPPP PPPPP PPPPYQZPD[yP PPPPPPPG GCPCPPPPBPCPBPP DBCPCPPPDCPCPDQPDPPDCPpG YDPQP EZPPB QPZPPPPPP PZZYP PYPPPP BPQB[ ZPPPPZPY PPPPPBPP BPPQPPZPPPPZQQQPPZQQQPPZQQPZPQPPZQQZPPZPC x;IIIIII DCPCPDBPPCPCP PPDPCQPPDPPC CPPCZPYG YDBBBPPYCPBDD EDBQPZPPDq QPPPPPP BPPPPZPP PPZPB PYYBP PZPPPPPP ZPZPPPPPP CPBPPPPBPPZPPBPPZPPPPPZPPZZPBPPZPPZPZPZ DPDPP DBPyC PPPDPCPPPPDPPDPBPPPPPBPBPBCPPDPYPBPBA QQCPC PPCPBDEY ZPPBPPPP PPPPPPZP PPPPPPZPPZPP PZPPPP PPPPP PZPBPPBPPZPPPPPP ZZBCZPPBPBPP PPZPPZC DPDPP DBBCC PCPBDCPPPCPPPCPPBCPPDPCPPPP CPBPX wQQPPPDP yPDPBPZZPPPPYZ tPZPPPPPBPPP PPQPP PPQPP PPBPQB PYPPPPPPPPPP PPPPPxYDQPPPPP PZPZPPPPPZPPPPZPBPPZPD DPDPP DBCCCCP CDBPP PPPCPPCPPPPPPP PPDPBDPPDYB QQEBQBPPZPP PPBPPYPPZZ tZPPZPPBQPZ ZPPQZP Z[BPPPPBPQB P{DPPPPPPPPPP ZPPPPPPP PPPPPHPPPPPPPPPQPPPPP ZPPZPPPPPQB[PZPZ P {HE DPCQDBE DPCPCPPCPDPPP PBDPPP DPPCPCPB QGBPPBQPPP DPPPPZPPPPPYPYQ PPBPPP PZPPPPPP[ PP{@HZPPPPPPPPZPPPP PPPPPPPZQPPPPP- PPPPPPPPPP PPZZPP PZZPPPQZQ PPPPPPPC PDPPPCP PPPCPPPBPPB CPDPPPPPP PPPPBCQ QEPQPPPPPPCGxyDPPZPPPPP PPPPYQ PZPPZPPZPPBPQBP[ BPQBPQBPPPP PPPPPPPPPPYP PPPPPPPP PPPPPPPP PPPPPPPPPP PBZPPBPDG PPPPCPBDZ PPPPPCPPC PPPZPPPDPC EEPDPEEu QPPZPPPPBPG CPPPPBQZPP PPZPQQ EBPPPPBPPP PPZPPPPPP ZPPPPZPYXYYPP @uBDYZPYZZYB PYYYY PPPE~ xH989 PP8P9 PPPPP DPDPP PBPPPPCDPDZCPPPCDPPQ BDPPPBPGs CEExxt: QPCPPBPPPG PPZPPPPPPBPPZPPQQ w[DPBPP[PQPPP PPZPPZP PPZPPZ QPPPPPPPPY ZCZZPBYZBBYPPP[YZYYYq QPPZQQw PPBECPPPPPPPPPPPCPP CPCPCPPP PDDPPDB P[ QPPQBPPPEy GPPPCCPPPPPPZ ZBPPYQ PPPPPZZPPPPZP {EPQP PPPPZPPPPPPP PCZPZPPP PPPZQZP YBZsYqZ ZBPPZPPp DPDPP DBExECDPPPPPPPPDPPDP PPPPPPPPPCDDDAA BBEGyQDDDDDCCBP PPHGEGE EDPPPQPPQPQPPQPPPYQPpQ PPPCPPP PPPPQZ PBPPPP[ PPBPQBZPC[ PZPPXPPPP PPZPPP QQPPPPQq PPPPZPP :8888 CBBCB GEGGDDB GCCPD PPPDPPPPP PDCCPPPPPPPPPPP{{{ [CDPCDP GDPPZPQPP PPABCBXQ DPBPPZPPPPPPPP PZQPP [PPPPPr PYPPPqE :{H:GCCBB 8HxHH PPPPPPPDE GCPPBECPPPPPPPPPPPPPPPPP PDPPDP PDDEDED DPPPPPPPPPPPPPPPPQPP PPZPPPP PPQPP PPPBPPZPPPZ 9HH88H QHDHEEEPB PPPPPPPQPP PPPPPPPPPPPPPPPP PPPPPPBPPB PPDPZP QQ[GDP EPPQPPPPQPQPPQPPPPPQPP PPPPP{ PZPPZP ZQPPP PPPPPQZPZ QPPPPPZYqsYrr 9H:9999 9C@PL PP8PP DPDPP PPPDPPDPPPPQPPPPPPPPPPPPPPPPPPDPPPP ZPPZPPP PPZPPPBPQPPPQPPPPPPPPPZ ZPQPPPP PPQPPP[PPP QPPPPPZ PP[QPPPPPPYG y :H8 yxGPPPPPPPPPCPPPPPPPBPBPDPPDPPPPPPQPP PPPPPP PPPPBPPCP EPBPPCPZPPPPPPPPPPQPPPPQPPPQQ PPPPPPPP ZQPPPPPPPPPP PPPPZ PPQPQPZ PQPQPPQPPPPQPZPZPG ZHH8H: PPBPPCP PPCPPPPPPPPPPPPPPPPPPPPCPQPPPPPBPPZPZPP EPPQPPPPQPPCPPQPPPPPPPPZPQQQ PPPPQZ PZQPP PPQPPPPPPPQP PQZPP PPZPPZP CH4x[:P IZIPQ EEx{{sHB ZDPDCPPDDPPDPPPPP PBPPPPPPQPP PPPPPP BPPPPPPPPPPPPPPPP PPPPPPPZPQPP PQPPPQQBQQY PPQPPP[QZ PPBPQBP PZQPPP PPPPPPPPPP HPPZP PQPPP PPPPPPPP EDDPP BPCPP PCPPPPPP PPPPPPPPPQPP PPPPPPPPPPPPPPPQPPPPPQPP Q[ QQQPQQQPPPPQPPPPPPZPPBPPQQQ PZQPPPPP PPQPPP[ PPBPQB PPPPP [ZQPPQPPP PPPPCPCP PPPPPPPPQPPPPPPCPPPPPPPPPP PPPPPP PPPPPPPPQZP Q{uQQQQQQQPPPPPPQPPPQQPZQQQQQQ-wQ PPZPP PZQPP PPQPP PZQPPPPP ZQPPCE PPPPD PZPPPP QQZ[PPP[ PPPPPD DPPPCPPCPDPPCPP PPPPPPPPPPPPPPPPPPPPQPPPPPPZPQPP QQQQQQZPQQQQPPPPPQZQ {uEPPPPPP PPPPPPP PZQPPP[CPPPPP PPP8P PPPPPP DHP[Z[PEPPPPPCPQCPPPPPPPP PPPBPPPP PQPPPPQPP PPPPPPP PQPQPPPPPPQPP YYCxPPPPPP QQQQQQQQQQZQQZQ ZPPPPPPPPPPPPP[PZPQ PPPZP PP8PP PPPPPDPPCDP BPPPP CPPZPPPPP PPPPPPP ZBYYZYP QQQQQQYQQ HPPPP PPPPPP PZPZP ZQPPP CCDCCB 8Q9PQ PPPPPPPP CPPPPC CPPDPPPCCPPCPP PZPPGHCPPZPPEHPPQPP PPPPPPP PPPQZPPG PPPPPZYZBYZZQP PPPPPPPPP PPPPP PPPQPPPPPP[ QPPPPPH BPDBPP CPPPCPCPPPPPPP ZPPPPPPD PPPPPPPQP GGPDB {PPQQ QPPPPBZYZYZZYZBZ ZPPPPBPQB PZPPPPPPPPPBZZ8 ZPPPPPPPP PQPPJ PPPDPP PPDPPC PDDBPZP PPPP PPPEGEPPPPPEHPPPPPPP PYPPPPPy PPPPPPZBZZqP w GPPPP ZPPPP PZQPPZPZ PZPZP wHPQZ PPPPE PPPZ8Z QPPPCPPY PPCPPCPCCPP@CCDDPp PPPPPPPPqPPPPGPPZPPPPPP [QPPQ QQPPPPPZPPZPQ PPQPPP[ PPPPPP PZQPPP PPBPQB HxwZPPPZ CBAB- xx GHD ZPCPDPPC PPPECDECBB PPPPPPPPPDCB PPPPPPPPH sPPPPPQPP PQPQP QPQYY qZPPPP PZQPPP[[ PPPBPQBP PPPPP PPPZPP EZ PCPZ PPPPDCZAAH PPPBDPPPPDPPPBCBZ[wPCABDDCA PQPPPPPQY PZQPPP[[ZP PPPZZ ZZB[xE PPPQPEPPQ PPPPQQP -PPCCB@ PPPPPP PPBGEPPGPPPPPDBEDDDGH[Q PZPQPZPC PPQPPP[ PQPPPPPP PZQPPP PPZCC PPPPQ PPPPPDDCBC PPBABDPPP PBA[HDP PDCPQ PCPPZQCP QPQPPQ wEPPPPP PZQPPP[ PZQPPPPP PPBPQB PGPP PPPPCDPPPP PBPPQ PPPPPP PPPPP BBCPPP PPPPP PZQPPP[PPBPQP PPPPPPPPPPPP ZPPPCEH PPDPPPPP PPPPP CPPPPC PBPPPPPPDCPPPPPP PPPPPP ZPDCBDP QPZPQ PPPQP QPPPPQZ PPZCPP PDCuPQ PPPPP P[ZQZ {ABBBEE CPCPPPPPPPPZDDPPP DPPPPP PQPPP PPPPPPPQ PBDCYPP PPPPB PPPZPQPP PPPP[ PPPPEP EDDDED PPBDPPPBPPCPPPDPPPZDPPPPPP PPQPPPD PPPPPPPPPPP PPDPPPPP QDBDCBQ PPPPPPPPPPP PPBPQB PZQPPPPZ PPPP[ PxPEE PPCPX DPPDPPPPPCPPPPPPPPP PPPCD PPPPPPPP PPPPPP CCCBPP PPPQQ PPZPPPPPPQZ PPBPQB Dy@PPZ PPZCC C8C88 QPPPP PEDPD PPPPp DPPPPPZDDPPPPPCPPPPPQ PPPPPP QPPPQP PPPPPP PCCCPPPPQBPPPPPPP PPQZPPPP PPZCE P{ DGCyP PPPPZPPP PPCPPPPPPPCP PPQPPPPPPPPPPPPCPCPC QPPPPPP PPPPPP PPPPP PPPPP PCBPP PPPPPP PPPPZPPPPPZPP PPQPPP[ PPZCQ DPPPPPP CZCPP PPPPP EZPPCPPCD PPPCPCPPPPPPP QPPPPPP PPPPP CBPCCBPP PPPPPH PPPPP[PPPPPQPP PZQPPPP NCBBE PPQPPP DPPPPPPPPDP PYPPCPPD BPPPPPPQ PPPPPPPPPPPP PPQPPPPPQQC PPPPPPP PCBPCPC CCCCCCCPPLB QBCBBPC PPQPPPPPPP PZPZP PPZDZ BBBBB PPDDP PPQPPPPP PBDZPPPPPPPCPCPC QPPPP EDPPPPPPP QPPPP CBBBPCBPPPPPPP CBCBPP PPPPP PZQPPP ZPPPZCB QPPPPPPPQ PPPCD PPPPPPZD BPPPPPPP QPPPPCPPPDG PGCBCBPCCCCC QCCCCCCCC QPPPP PPPBPQB PPBPQB PDBP8DB PPPCPCPC CZCPPPPPQ PBPPP PPEEHGP PPPPPP PPPPPP PDDPCBPCQPQ CCPPDZ QP[PPQ PPQPZ [[PYY DBDCAEP :BBBB HDPPPPPPPPPPDP CPCPC PPQCPPY PBPPPPPDPBPBPPP PPPPPCPPP PPPQP PPPPPDBABPPQ PCBCDPPP PPPPPPPQPPPPQZ ZZZZB@ sKP@Du@P [PQPgg YDBBA Q@pqPPPPPPPP EPPPCB PPBPPPDP QPPPPPDPD GGHDPP QPPPPPBP ZZPPP PPPPPP CBCDDP [PPPP PZQPP ZZZZ[ CEBBC ECEHEx PYDQCPEPPDPPPBP CPCED PPPPPPPPP PPPBP CBDPPQ PPQQPPP PPBPQB BHH{yy Z x CQPPPPPDPPPPD tPPPZDCPPPPPPP PPPPE PCPPQPP PPCCBPP PCCPP CPPQI HPPPQQPY QPZQP PPPPPPP w;DBBD {QHDPD DPPPEPPPPPB PPCPPPPPPCBEC GEPPPPPPPPZPPPZDPZDPPEHy CCCPPQPPQ PYD@B@ x[{xA PPPPP PPPPPD CwDPPPPPPPPPPQQPZPPQPPPB QPPPPP[QQBPQPPPQPPPY xQQQZDEPQPQPPQQP QQP[QQ QQP[P P[PPPPPPPPPPPQPs PPPPPQPP PPPBD{ZPPP PPPBPQ PPPPPPQPPZG DxDPPPPPPPPPPPPQQPPPP EPQQP PPQPQ PQPQQPPY: QQPPPPPQPPPZQP[QQ[ [Q[[QPQ[PQPPPP PBPQQ PQQPPQP PPPPQP GQQQQQQHPPPY AQABDPCD AC@BA PPPPPP PPPPPPY EPQQPPPPPQPPPP QPPPQDEPPQPPPPPPP[PQPPQPPZC QQP[PP PPPPPP[QQ QQ[P[PPPQ[P[[[P PCPPPQPPPPPP[QPPPPQQ PPQQQrQQQQQQ@H QQQQ[QQ QQHQQPP HQQPQPP QBB@P -PCPA wE9@A PB@CK PQQPP PCPPPPPZ QQQQQQPPPPPPPAAAXYYYYZYZP wQCPQ PQPPPQPPPPPPPPPPPQPPPPPQPPPPPPPPQPZZY QQPPPPPPPQPP PQQ[[QPQP[[[[PQP[[[[P PDPPP[ PPQPQQ[ PQQQQ BQQQQQ QQQQQQC xQQQQQ QQZPPPP PPP{ZPPP PBD@C@ QQ[PBCYPQH QCBBPD PQQPQPPY QPQQC PDEH[ QBZCEDPPPDYwEDCDBwtsYBBZ PZPPQPPPPPPPPPPPPPPPP[PPPQPZQPC PPQQQH QQQPPQ[QQPPQP[P ZPQPQQPQ PQP[QZZP PQPPPQPQQPQPPQPQPPPQQ YQQQQEQ QQQQQZ A@@A@@ PCAC- xDAC@B PPPPPPPQPP PPPPPP yDEZPPCE[[ ZZPDPYPPPPPZPPPPPP sPDPQPQQPPPP QQPPPPPPPPPPPPPQPPPPP[PQPPPYQ QQQDPPP[QZQP[QZQ[QZQQ PQP[PQQPPP[QZQ P[PPQPP PP[PPPQP [[[[[ HQQPQQ HQQPQPB sCPPA@W DBABAPPCCC BA@AP PPQQPCPQPPPPQPCPPQ QQCPPPPPPPPPZDEDDQP EPPPP CDGDPQD PPPPBPZPZBYPPPPPPPPP PPPP- QPPPQQPQPPPPP ZQQPPPPQPPPPQPPQYQ QQPQPPQPQP QQP[P QPQPZPPPPP[QZQQ PPPPPPP PQQQQ QQQQQQZPPP PPPBZW 8PP8P DBCCD BBZBP PxPPA@@BYZ YPPPPQQQQQPPPYQQQQQQ QQPPPDPQQ PPPPDE EPPPDDP EPPPPPPPPPPPPQQPPZPPCPPPPPPPPQZPQPPPZPPP YPPPPPPQPPPPPPPPPP[P[DQPPPQPPQPQPPQPQPPQZQ wQQQPPQQ Q[QQ[ [PQP[PQPPZPP PQPPPP[P QPQQPQQQ[PPPPQPQPPPPQQ [QQQQQQ PCBBB YZZYA CADIPP YEPPPPPPPPPCPPBEPQPPPPCDPPPZPPC PPPPDPQD PQPQCZPABCPPPPQZPQPPPCZP CPPPQPQPPPPPPPPPPPPQPZQPPPPPQPQQPQP QQPQQPPPPP[QQ QQ[P[Q[P[[ZQP[QZQP [PQPP PPQQQP[PP PPQBQQ [QQQQBQHQQPPP PPPBPQP Y@BYBY xxuwD PBPPPPCPPPPPQPPPZPDPPPPPPDGGGG QPPQPQPP PPPPPPPPPPPPPQPPDPPPPPY PuEQPPPPQPPQPPP PQQPPQPQPPQQPPPPQPPPP PPQQQ wQQPPP CP[QQ[[QP[QZQP[QZQQP[QZQQPQPQ[P[[ QQPQQQ QQQPQQPPQQQ QQQQpQZPPP PPPBBB PPPH @YWP@ IQQQQ PPPPPPPPPPPPP PwCY@@BZPPPZP PPQPPPPPPPPPPPPPPPQEG EEPPPPPQZPPP ZPPPPPPPPQPPPQBPPPPPDZE wPDQQPPPQQPPQQPPPQPPQPPPPPPP PPPPQ[P QQPQP[P[PQP QQP[QP QQP[P QQP[P PZPQP[[[ PPPQPPQPP QQPQPQQPQQQ QQ{QZQQPP HQQPQ -YP@P PPPPPPPP D@B@E GEDPPPPPPPPPDPPPPPPPQPPPDPQPPPPBBH PPPPPBQPPPPQPPPQPPBPPPQPPPPPQPQQPPQP[PP[QD wQPQPPPPQP[QQ[ [P[QQ[ [PQP[ [PQPPPQ[QP[QZ APPPQPQPQPPQPQPPQPQPQPP {{ZPPP HQQPQP @PPPPPPN HB@A@E PBPPPDPP PPPPPPPDPPPD DPPQCEG{ PPPPPQQPPPPPPPDPEPPPPPPPP@A PPPPPPQPPPPPPPQPQQPQPPPPQPPQP PQPQPZY wQQPPPQPP[P[QQ QQ[[QQ QQ[P[ QQ[P[[QPP[P PB[[P[[QPPQPQPPQPP QQPQQP r[[[[[ CB{Z{ZPP PBBPZ EB@BAP PPPQPPPPPPPPPP PEPDPPPBQPPEGP PEPPPPPPQPEPPEPPPPPPPQPPPPB HPPPPPYZPPPZPPPPPDQPQPPQZPPZPPPQPPP[ZC QQPPPPP[QZQQ[[QPQ[Q[[QPQP[[QPQP[[[[P[PQPP PAQQ[ [[P[[Q[P[PQPPPPP Z[[[[[[[[[[[[ wQHPQP PPPBBP ZZPPYYPPP PPPPP PP8PPP sDC@J ZPBDPPPPPPPQ GEPPPZPPP BPQPDEE PPDZPPPPPPPPPPPPPPPPPQP EPPYZZPPYPZPPZ QPQPQPP QQQ[QZQPQP QQ[QQ[ QQP[P [QZQP[QZQ[Q[P[[ sCQQ[PPZQ[ PPQPPPQPPQPQ @[[[Z[[P P[[[[ HQQPQPPPPw sHC@B BPPPDPPPPDDD PPPPPPPPPPPPPPPPCDP{BDQPPPPPQPPPPPPPPPQPPPZB qEPPPPPqPPPPPP PPPYZPYZPYPPZQPPPPQP[[Z QQQZQP[Q[QQ[ Q[QQ[ [PQP[QZQP[QZQPQP[[[ CPPQBCQ[PPPQ[P[P[PPPPQ {ZPPP PBAPP xPDCB@D PQQQQQQQQQPZPPQQQQQQPZPPPPPPPPPDZ EECEGEDPPQPPPPPPPEPPP PQPEP QCPPPPPQBPPPPPPPPPQPPZ YPQPPQQPPPPPPPZPPPP QPPPBPZZZZPPPQQQ QQP[[QQ QQ[[QP[Q[[QZQP[QP QQP[P [QP[QP QPQPAPBZPPQPQ[ [[[P[ x[DZZ[ WP@BC PPPPP M@PP@- QPBPPPPD PQPQZPPPPBPPPYBPPQQPBPPPPDDPPPPH DDQCPPPPPPPPEPPPPPPPPPPQPPPD PPPPDPPPPQQPDBPPPDZ YZPPPQPPPPPPPPPPPPPPBPPPPPP QQQQPBQQQQ QQQQ[ [PQ[[QPQ[QZQQ[QQP QQQ[QQ[ [PQP[QZQ[P QQPQQ[P[[Q[PQQQ BPQ@B DBAD~ PEAAJ- PPPP[P[PP[PPQPP EDEDEEDZ[PEEG[Z PPPPZPPPPPPPPPPPP PPPPPPPPPE BPPEPPPPPPPPPG wDPPPPPQPPQPP CPPPPPPPPPPPPPPPPPP Y[Q[QZQP[QZQ QQP[[QQ[ [[Q[QZQP[[QZQQ[ QQPQPQ[ C8PPP PPACC BPPQPP PDPPPPPPPPPPPPPPPPPPPBPPPPPPPDE EPPPPPPPPPPPD{G wGPPPPPPPPPPPPPQBQQPPQP PPQQPPPPPPYQQZZ QQQQZQP[QZQP[[QQ[ [[[QQ Q[Q[QP QQPP[P QPQPPQPQQQ[PPZ[QPPP PPPPPPPZPPZZDP ZZPPPPPDPPPPZPPPDPPPPPPPPBPPPPPPCDH CCPPPPP wGPQQPQ PQPPPQQPPDPQPQPPPQBQQZ PPQPQPZPZQQQPY QQP[P [P[QQ QQQQ[[QPQ[[[QQ[ [[PQPP[ QPPQPQQ QPQQBBBZPPQ CCPDB CCBD@ PPPPPPQPPQPPB EDEDPPCE DDPPPPPPPPPPQPPPPQPPPPPPPPPPPPPPPPPPPPQZ PPPPQPCP wGQPPQPPPPQPPPPPQPQPPPPPPPPQPPB[PPQPP PQQPPPZP Q[[QZQP[QZQ[Q[[QPQP[[PQPQ[[[QQ QQQ[P[[[ [P[[Q[QQQ PPPPQ QPPPQPZPQZPPPPZQQQP BPBPQBP PPPPPPPPPPPPPPPPPPPPPPPPQPPPPPPQZPPPPQPP wEPZPQPQPPPPQPQPP PPQPPPPPQPPPP PPQPQP[QPQ QQP[P [PQ[PQ[[QPQQP[[[P QQPQQP DCAGBPP :{CAD QP[HDZ PPPPQPBCEwxx EPPPPPCPPPCQPPPPDPPPPPPPPPPPQZPQPPPPQZ PPPPPPPPPPQPPPPQBPPPPQPPPPPPDPP YYEPQPCPPPDPPQPQPP PPQPDPP PPQPQPPQPPQ Q[QQ[ [PQPP QPP[QD QQQQPQP[QZ Q[PPZ[Q[[ QPPQPQQP BAAPP PPPPP PPPPPPPPPP PPCPPZDBQP BPZPPPPPDPPPPZPPPDPPPPC PPPPPPPPPPDPQPPPQBPPPEPPPP wGPPQQQPPPAPPPP ZQPPPPQPQPP PPQPPP PPP[PP QQ[P[QP[ [QQZ[ZP Q[[[QP[QZ P[QZQE XPQ[PPZ[Q PPPPPPPPPP PPDDP DPPPPPPPP PPQPPPPPPPPPDPPPPPPPPPPQPPPPQPPPPBPPPPPPDPEPPPPPPPDPQEPPPPP wPEBPPPQPPQPPPPPPQ PQPPQPQPP PPQBQCPPPQQQP[QPPQZB QQ[[QPQP[[P[QP [PPQ[QP [PZP[[[ [QZQQQ {EQ[PPZ[QQ[[Q[QQ PCPPPPPPPP PCAKP ZCBDP EQPPPPPPPZQPP PPPPPPPPPBQQP BPBPQBP PPPPPPPPPPPPPPPPPPPPPPQPEPPPPPPPPP rsGPPPPPBPPPPPQPPPPPQPPPPPPPQPQPP [[QPQ QQHPQ[[QPQP[[PPPQ[QPQP PPQ[QPP[[ C[PCBBQ[ PPPPPPP B@PPAC PBExEPB xwQ{y PPPPPPPPPPCPPPPPPPPZPPPPPDPPPPPPPPPPQZPQPPPPQZPQPPPPPQPPPPPPPPPPPPQPPPPP wGPQPPQPPPPPPPPPPQPPQPPPPPPPPP ZQPPQ [PP[[Q[PQr u[QQQP [QZQP[QZQ QPQ[[ [PQPP GP[QPQ[PPZ[QQQ QQQQZY PPPPP PPPPPPPPP QPPPPPPPP[Z[BBPZ QDAPD@A PPPPBPDPPPPQPPQPPDPPQDPPPPPPPPPPQPPPPQPPPPPPPQPPDPPPPPPPPPPPPPDPPPPPPPPQP HwEPPQQPQPPQPPPPPQPPQPQPQPPPPPPPQ [QPPQ[ [[Q[QQPQP QQP[P PPPPP Q[[QP[Q[ZP[P[ PQ[P[[[QQ[ PQ[QPQQPQP[ x[DZZ[ PPPPPP PPPPPPPPP PPPPPPPPPPPPPPPBQPCDP@P PPPPYP tPPPPZDPPPPPPQPPPEPPPPPPPQCPQQP BPBPQBP PPPPPPPPPPPPQBPPPPPPQPPQPPPPPPPDPPCPQZPq DwEPPPPPPPPPPPQPPQPPPPPPPPPPQPPPPPQPP QP[QQ[ [PQP[ PQ[QPP PQQ[Q [QP[[[[ y PPP[QZQPQQP CQPCPPPYPPPPPP PPPPPPPPPPPPPPPPDBP PCPPPPP PPPPP[P[PPPQPPQPPPP PPPZPPZPPPPPPPPPPPQZPQPPPPQZQPPPDPQPPPPPPPQZD ZPPPPPDPPPPPPP DwGPPPPPQPPPQQPP ZPPPPPPP ZPPPPQPPQPQPPQP P[PPQ QQ[P[PQ[[PQ PQP[QZP[PQQ PPPPPP PPPPPP PPPqPP PCPPP PBPPP PP8QPPPPQP PQQQQP[QZP[QQQ[[QPQP[[ [[[[[[QQZ [[Q[[P[[PQPPQPPPQPQQ [[[PPQQQ [PPBP@APB PBBPCPC ZYYBB ZPZPCC x< PCBBQ PPQPQPP YPqPPPPPPPPPtuPPPrPPPPPPPPPPPPPP PPPPQ QQP[Q[Q PPQQ[[QPQP[[[PP [QQ[[[Q[[P Q[Q[[ PPQPQQ[P[[Q[QP[QZ QQPQQ [PPPPP [QPPPPP PPPPP PB@PPY PPPPP PZPPPD8 PCByY PPPPPHH PPZPPrPPPYP PQPPPPPPPPPP PPPPPPP PPQPPPPQPPPPPPPPPPQPPPPPPPQBPPPPPxPPPQPPPPPPPPPPPPQPPyZ PPPPPPPPPPQ QQPQZPQPQQQQ[ [QQ[Q[PQP [Q[[Q[ QQQQQQQ [QP[Q[ Q[PQ[[[ [[[[[ PPPPYP PPPPZZPPPPP PPPPPP PPPPPPPPPPPPPPPPPPPPPPPDPQPPPP PPPQBPPPPPPPPQPPPPyZEPPPQPPPPQPQPPPP ZQQ[Q PPQPQP[QPQ[P[P[PQ PQ[P[P[PP [wQQQQQQ QZP[[[[ P[[[[ rYPPBPPZP PBPPZt PPPPPPPZ PAPPP ZPPPP swCPP[PPPPPPP PQPPJP PQPPPPPPPQPPPP BPPPPPPPPPPPQBPPPPPPEPPPPPPPP PPPDPQPPPPPPPP EEQPPQPQPQQ[PP[QY QQPPQP [P[QQ[Q[[[[BQ [Q[[Q[ PW[[B W[[[Z [[[[[[[ PCPBYE g>PCB PPPPZ P~P@M [PBPEx PPPPPZ CPPQP PPPEZ PPQPQQPQP PPPQPDPP BPPPPPPQPPPPPPPPEPPPPPQPPPP PEPPPPPPPPPPPP C[PCQPPPPPPPPP[PPPQQQ QQPPQP PPQQQP[PQ [Q[Q[PQ[P[P[PPP[ [[[[[P [P[[[ [ZQ[ZQQ Q[[[rs PPPPPPP @WAP@ WPPPZ [PQPQPQPP QQPPPQPPQQQP PPPPPPBPPPQPPPPDPPQPQPPDPPPPPPPPPPQP[PPPPPQPPPPPPPP[D{EQPPQPPQPPPP P[[PQP P[[[BQQ[P[PQ[QQ[Q[PQP YP[ZD QQQ[[ QQ[Q[ [Q[Q[P[[[ [P[[P[P[[PP[PPP [[[[[ ZZ[[[ PPBPPPP PZCA@A@@AAB APPPA PPQPP QPQPPPPPPPPPPPPPPP BPPQPPPPPPPQPPPPPDPPPPQPPPPPPPPPQPPE PPPPPPPPQPPPQPPE EPPQPQQPPPPPQP P[PQP [Q[[P[PP[PQ QQ[Q[ PQ[[QP [P[PQ[[Q Q[Q[[[[[[P PPPPPZKPZ PYPQPCBCP PPPBP PP[PQ PPPPPQP PPPPPPQPPQP PPPPPQPPDPPPPPPBPPCQPPPPPPP PQPPQPPE EPPPPPPPPPPP PDDyEP PQDZPPPQPPQPPQQQ Q[QQ[Q [Q[P[P[[[[[[[BQ [[[PQ ZBPPZZ[[ CYPPPC QPPPPPPQPPPPPPPPPP PPPPPPPQPPCQPCP PDPQPPQPPDPQPPPPQ D PPQPQPPQPPPPD PQPPPPPZQPPQPCPQZ< PQPZPQP Q[QQQ PQ[Q[PQP [D[[[[[sy Q[P[[ y[PQ[QQ[ P[[[Q[ PPZQ[PPPPP CZPPPBYD {ZHPQ PPPPQQPP PPPPPPQPP ZQPDPPP ZPPPPPCP QPPPPPQPQQDQPPDPQPPPPPPPPPPHxEPPQQPQPPP[PPPPD GBPPPQPPPPP PQQQQ [Q[[Q[P[PQ [Q[P[ P[[PPQ [ZQQP PDBB[ PZQCPC PAPPB PD8PDC PHx8H8 PQPQPPQPPPPQPPQPPPPP YPPPPPPPPPPPPPPPPPBPZCQPPDZPPQPPPPBPE GPPPPPPPPPDQPQPE GPPPQQPPPPPPPQPQQ QPZPP [Q[[Q[P[P[PP[[[BQ EDBCB@y Q[QPQ P[[PPP PPYDXB [PPZPZPPBBYAB [PPPP PZPZPP H [HP QZQQPPQPP PQPPPQQDPPPPQPPQPQP QPPPPPPPPPPPPPPPDPPPPPPPPPPPPPPG EPPPPPP PPQPPPPE{DPPPPBQPPQPPPPPQY QQPPPCQ[P[P[PPQ[PQP CZQ[PZ [[Q[[Q PPQPQ [[PPZ[QZ PBPDBBJ BPPBPZZAPPB ZQP[Q ZD@A@ -PPPP PPPP9 QBZPP xC9H9 HPPCPQQPQQQPP PPPZPPPQPPPQPQP PYPPPPPDPPPPPPPPPPPPPQPQPPQPPPPPPPQPG PPQPPPPPZPQ BPPPPPPPQPPQP[PQP Q[PQQ Q[Q[PQP Q[QQ[C Q[[Qg CPP[WZPP PBPPQ [PPPP BPYC@B PPXAPP PPBPP yxy w{PH PQQQPQ[Q PQPPQPPPPPPQPPPPQPQPPPP PPPPPPPPPQPPPPPPPPPPPPPPPPPPPZPPPQBEyDDPPPPPQPPPP QPPQPPPPPPP QPQQPQP[PQ P[PZPP[PE PQ[QQ [P[[[ PBPDDBBB CPPCP [[PPZ PZPPZQ ZZPPZC@QZA@V[ PPPZBA PPQPPPP BQQPQPQPPQP PBPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPDG GPPQPPPPPPPPQPQP PQPPPPPQPPQQZ [QPP[PQ[[[BQ P[PQ[ C[[[QZ PBPPBPPQQPDDQDP PPQYB@P BPZPP KZPPBBPPBDC QPPPQPQ PQPPP PYQPPPPPPPPPPQPPPPPPPPPQPPPPPPPPPPE GPPPPQPPQPPPP PPPPPPPPQPQPQY sQPPQQP[[[BQ P[Q[[ [ZQZP[PPQC CPPPB PBPPPBPPBPPQQPQ PBDCPP QQPQQPDtPH PPQDPQPPQDPPP BPZPPPPPPPPPPZPPPPPPPPPZPPPPPPPPPP EPQPQPPPPPPPQPQQC ZEPQPPPPPPQPQQ QZPQQ[ [Q[[Q[Q [QQ[[Q[ QQ[[[Q [[PP[[ [[[[Q [[P[[PP[ C[[DBB[ BPBPPQZ [[PPP PPPPQ PQPPPPQPPP PPBA@QAZ PPPPP~ PPPQD ZPPPP QPPPP YQPQPPQQPPPQPPQPPQQPPPQPQPPQQPPPQPQwBPPBPQZQPPPQQ PQPPQ GPPQQPQPPPPQQ QQQQ[P P[Q[P[P[PP QQ[[[ Z[P[[ PPBBBA@ PP@PN PP[PC PPCPQQP QPQPP yPPPPQPPDPPQPQP HPPPQQQQQQQQQQQQYQQQwDPQPQQQQQQQQ sQQPPP[QQ[ Q[Q[PQP PE[Q[[PP[[ QQ[[[ [[PQPQW [[[[[[PPP PPPAAA@DoPPP :ZYBP PPPPQPQQPQPPD PPPQQPBG EPQQPPPPPQPQP YPPPPPPPPPPPBPPPPPPPPPPPPPPPPPPP QQQQwDQQQQQQQQQQQ QQQQPPP[ PP[PQ [[P[Q CZ[QZ [[[[[B PPPPB@@PPPPP P[ZQPPPPD CCBPP QQQPQQPPQ PPPPPPE PPPPP YQPPPPPPPPPPQQPPPPPPPQPPPPPPPPPPYDuQYQQYYQQQQXBQQQQJ [Q[Z[[[BQ [CGxP PQ[[Q[P [[@YPBPPQZP QPPPPPPPP [ZPPPPPP QPQPQPPPPPPPQPPPE{ P[[GPPQPPPQP PZPPPPPPPPPPPZPPPPPPPZPPPPPPPPPPQ[ZEBPPQQPPPZPPBQZBBYZCwEQQQQQQQQQ ZPPQ[QPPPPQP Q[QQ[ xPDPPQP PPPPB PYYZPPr QBCAC BPPqYZZ PPPPPPP PPPPPPPPPPPPP =P@AP APPPPP PPPPPZPPPPPPPC PPPCCB QBPQP PPHPPQPQQP PPPPPPP PQQPPDE[ EQPPP PPQPPPPQPPPPPPPPPPPQPPPQPPPQPPQZPQQBPPPEPPQPQPPPPPP PPPQPZ[QQQQQQQ [PQPZPP[ [[Q[[ [P[QQ PBPPPPPPP@ ZPZZBYYBB~ [PBPPZ[ PPPPPPQQQ PQQPQPPPPPQPPE EPPDPPP BQPBQQP PQPPQPPPPQPPQPPPPQPD ZDPPQPPPPPPBQPP ZPQPPPPQPPQPPDPQQ[QQQ QPQ[Q [[[[[ CBPDD PPPPP PPPPPPPB@ YZZBBAPPBPYBZ 9ZwDBZ Q[ZCPB B8ZPP PPPPZPP PPCCBBP PQPPQPPQPPQPQPPPPQPZPPDQ DPEPPPP ZPPPQPPPPPPPPPPPPPQPPPPPPQPPPPPPH PQQPP QPPPP[PQQPPQP QQP[P Q[QQ[P[[ [[[QQQ [QCP[ QZP[B[ BPPPQQPA[[[ PPPPPd PPBPPPPPPPP PPPPP [8PQ[P QPPPPPP yPPPDP PPBDPC BPBDC QPPPPPQQPQPPQZPPPPPPPPPPQ yGQPP ZZPPPQPPPPPPPPPPDPPPPQPDQBPPPQPDG PQQPP QPPPP[PQQPPPD EPPPPPPPQQPQ[PQ QQ[QPP Q[QQ[tZ[[ QQPZPP[P[[[ [[PQQQQ[PQ[[PQ [[QQ[[[ Q[P[[ H[[Q[PQC QZPPZ[ XYPB@PPPPP P@PPPPPYPBZZ PB>> $2#SS B>B;> 65U22 252&2 #$2$ ! 20U65U2 $$# # $2266 ! 0E$20 5U$EU% $%$%#$ ##"% 2$$SE # #% &2%E2E 566U0% " ! #>>!> " $ " #! " ! " " " U "$ "#$ $ ! $# ! " " ! # # % ! ! # ! ! # ## #" " $$ !>C;> " #$ %%$%$ #%U#% "##%$ 99>99> $%$$U $%%U%$" "$%%$% " #$$% $!%%#! #%$%$# ! # $ %#$#$%# "%%$% #%" # $%$%%$% %%$% ! ! # $%# ##% ! "" ! " # $##%## %%##U " #$ %$&% %# # # ##$##$% % !$ #$ ! ! #$$ ## # !##$$ moi_logo.ico #$+// $//93 3///+## $++$