WO2001084822A2

WO2001084822A2 - System, method and article of manufacture to facilitate remote station advertising

Info

Publication number: WO2001084822A2
Application number: PCT/US2001/013841
Authority: WO
Inventors: William Wilson, Iii; Shirley L. Wilson
Original assignee: William Wilson, Iii; Wilson Shirley L
Priority date: 2000-04-28
Filing date: 2001-04-27
Publication date: 2001-11-08
Also published as: AU2001255777A1; WO2001084822A3; US20020042741A1

Abstract

A system, method and article of manufacture to facilitate the retrieval, dynamic modification and presentation of audibly and visually perceptible content at a remote station, said presentation facilitated by one or more computer compatible communication networks, content acquisition and display presentation central processing units and multiple function presentation units. Said presentation units capable of producing a plurality of variable content presentations.

Description

SYSTEM, METHOD AND ARTICLE OF MANUFACTURE TO FACILITATE

REMOTE STATION ADVERTISING

Technical Field of the Invention

In general, the present application relates to automated advertising displays. In

particular, the present invention relates to a system, method and article of manufacture for

retrieving, dynamically modifying and presenting audibly and visually perceptible content

upon a remote presentation device.

Background of the Invention

Advertising systems and display units intended for use in remote locales are well

represented in the prior art. For example:

United States Patent No. 5,134,716 issued on July 28, 1992 to David J. Craig,

subsequently assigned to Caltex Oil Pty. Limited discloses a Point of Sale Audio-Visual

Advertising System which has a central station and a plurality of outstations. The central

station is generally located in a shop attached to service or filling stations which sell

petroleum products such as gasoline, while the outstatations are located at self-service

pumps located on the driveway of the service station. The system provides audio-visual

advertising material to the purchaser while the tank filling operation is in progress and

immediately prior to his entry into the shop area.

United States Patent No. 5,717,374 issued on February 10, 1998 to Harry F. Smith

and United States Patent No. 5,914,654 issued on June 22, 1999 to Harry F. Smith, both

subsequently assigned to Intellectual Property Development Associates of Connecticut, Inc.,

discloses a Methods and Apparatus For Inputting Messages, Including Advertisements, To A Vehicle. The methods and apparatus are disclosed for inputting messages and other

information, such as advertisements, to a vehicle while the vehicle is coupled to a local

station, such as a recharging station or a refueling station. The messages can be selected in

accordance with information received from the vehicle, including information that

selectively identifies one, some or all of: (a) a characteristic of an occupant of the vehicle

(e.g. name, account number, address, etc.); (b) a characteristic of the vehicle (e.g. make,

model, year, class, registration number, marker number, odometer reading, owner, etc.); (c)

a destination of the vehicle (entered through a data entry console and optionally stored

within a vehicle memory); and (d) any other characteristic of interest.

United States Patent No. 5,980,090 issued on November 9, 1999 to William C.

Royal Jr. and Randall O. Watkins, subsequently assigned to Gilbarco, Inc., discloses an

Internet Asset Management System For A Fuel Dispensing Environment. This invention

provides communication servers at each device in a fueling environment and connecting the

servers to a common network. The network may be a local network or a largely remote

network, such as the Internet. Preferably, in either embodiment, primary communications

between these devices and any devices accessible via the Internet use the hypertext transfer

protocol (HTTP) and hypertext markup language (HTML). In particular, each device server

is adapted to facilitate real-time access between the device server and the remote device

upon access of a particular page, script or function. In particular, the present invention

relates to embedding executable content onto an HTML page so that when the page is loaded

into an HTML browser after being accessed, the executable content starts running

automatically. United States Patent No. 6,032,126 issued on February 29, 2000 to David L.

Kaehler, subsequently assigned to Gilbarco, Inc., discloses an Audio and Audio/Video

Operator Intercom For A Fuel Dispenser. An apparatus for installation in a retail setting for

selling fuel and other products ordered by a customer interacting with an operator. A video

control system interfaces an external audio/video signal source with an audio/video signal

source from an other product ordering apparatus operator. The external audio/video source

transmits advertising and promotional materials to a video display located on a card reader

equipped fuel dispenser. Additionally, customers can signal and communicate through

audio/video signals with the operator to order other merchandise. Total transaction costs for

fuel and non-fuel products is provided and paid for at the fuel dispenser.

However, none of the afore cited references clearly delineate, discuss, disclose or

claim a system, method or article of manufacture whereby timely geographically relevant

information can be purposed and presented to specific refueling locals in conjunction with

or independent of advertising content also intended for the specific local.

Brief Summary of the Invention

An audio/visual advertising system is disclosed which has one or more computer

compatible communication networks content acquisition and display presentation central

processing units, multiple function presentation units and first and second software means

which allow for the retrieval and presentation of advertising and geographically relevant

content.

Consequently, it is an objective of the instant invention to allow for the acquisition,

dispersion and presentation of geographically relevant information to a selective receiving

location within a larger universe of such locations.

It is a further objective of the instant invention to allow for the presentation of

advertising media at a remote station accompanied with geographically relevant information,

such as but not limited to, weather, weather alerts, sporting news, national or regional news,

etc.

It is another objective of the instant invention to allow the consumer to interact with

the present invention via a touch screen communications capability.

Another objective of the instant invention is to allow the consumer to interact with

the present invention via an audibly receptive communications capability.

It is another objective of the instant invention to provide for the presentation of

geographically relevant information and advertising media at a remote station utilizing a

computer compatible communication means, such as computerized networks including

terrestrial and satellite communications.

Another objective of the instant invention is to allow for a first transmission of

advertising media supplemented with subsequent repeated transmissions providing updated

geographically relevant information within a predetermined time interval. Other objects and further scope of the applicability of the present invention will

become apparent from the detailed description to follow, taken in conjunction with the

accompanying drawings wherein like parts are designated by like reference numerals.

Description of the Drawings

Figure 1 is a system schematic illustrating the invention's primary hardware and

software processing components as practiced in its preferred embodiment.

Figure 2 illustrates a program component which facilitates the retrieval, processing

and transmitting of ticker information.

Figure 3 illustrates the programming means steps which facilitate the processing and

transmitting of image files .

Figure 4 is a flowchart representing Phase II software functionality.

Figure 5 is a simplified diagram denoting primary processing steps associated with

data acquisition as practiced in the invention's preferred embodiment.

Figure 6 is a simplified diagram denoting primary processing steps associated with

fueling site presentation of acquired data and advertising content as practiced in the

invention's preferred embodiment.

Figure 7 is an illustrative information presentation format as practiced by the

invention in its preferred embodiment.

Detailed Description of the Preferred Embodiment

While the making and using of various embodiments of the present invention are

discussed in detail below, it should be appreciated that the present invention provides for

inventive concepts capable of being embodied in a variety of specific contexts. The specific

embodiments discussed herein are merely illustrative of specific manners in which to make

and use the invention and are not to be interpreted as limiting the scope of the instant

invention.

The claims and the specification describe the invention presented and the terms that

are employed in the claims draw their meaning from the use of such terms in the

specification. The same terms employed in the prior art may be broader in meaning than

specifically employed herein. Whenever there is a question between the broader definition

of such terms used in the prior art and the more specific use of the terms herein, the more

specific meaning is meant.

While the invention has been described with a certain degree of particularity, it is

clear that many changes may be made in the details of construction and the arrangement of

components without departing from the spirit and scope of this disclosure. It is understood

that the invention is not limited to the embodiments set forth herein for purposes of

exemplification, but is to be limited only by the scope of the attached claim or claims,

including the full range of equivalency to which each element thereof is entitled.

Figure 1 is a system schematic illustrating primary hardware and software

components of the instant invention as practiced in its preferred embodiment. In Figure 1-

first software 3 executing within a data acquisition central processing unit 5 facilitates the

acquisition of advertising and geographically relevant data. The present invention allows for such data acquisition to be facilitated via a plurality of means. For instance, data may

be presented to the data acquisition central processing unit 5, without limitation, via a

transporable storage means, such as a floppy disk or computer readable recording tape

commonly used to distribute advertising content or compact disk. Addititionally, said first

software 3 can acquire content via a computer compatible network communication means.

Examples of such computer compatible network communication means well known and

practiced in the art would include, without limitation, local area networks (LAN's), wide

area networks (WAN's) metropolitan area networks (MAN's), campus area networks

(CAN's). Extranets, Intranets and the Internet. Content so acquired will typically be

represented as geographically relevant information with multiple and diverse geographic

records delineated via the insertion of a delineation code appended to a relevant record or

records incorporated within an acquisition file. Said appending of said delineation code is

facilitated by said first software 3. The delineated information is then compiled into a

computer recognizable file structure, and stored to a storage means accessible to said data

acquisition central processing unit 5. In the invention's preferred embodiment said storage

means is represented and accessible as a page associated with a Web-site, though any file

structure recognized by a computer based transmission protocol will facilitate practice of the

invention. In the invention's preferred embodiment, File Transfer Protocol (hereinafter,

referred to synonymously referred to as "FTP") and M-PEG file structures are utilized.

Continuing with discussion relating to Figure 1. The stored file embodying

geographically delineated records is then transmitted over a communications link 7 to a

transceiver facility, such as, but not limited to a satellite office central processing unit 10.

Once resident and accessible to the transceiver facility 10, the transceiving facility 10 further transmits the received file to a satellite transceiver 15 over a second communications link,

or hard wired connection 12 for subsequent transmission to an orbiting satellite 20, via a

third communications link 16. The orbiting satellite 20 then transmits or otherwise

broadcasts the delineated file to a plurality of geographically dispersed terrestrial receiving

units 24, via a fourth communications link 22. Said geographically dispersed terrestrial

receiving units 24 possess a receiving decoding means by which information

geographically relevant to the physical location of said the ground unit 24 is decoded and

presented to a remote site central processing unit 25. Such selective receipt decoding and

presentation of said information would be directed towards as an example, include retail

locations such as retail outlets within a specific neighborhood, town, city, state, region, or

country. Said means of presenting selective content to local central processing unit(s) from

a selective decoding device are well known and practiced by those skilled in the art. As an

alternative communication means to facilitate the transfer of geographically relevant

information and advertising media between said data acquisition central processing unit 5

and said remote site central processing unit 25, a computer compatible network such as the

Internet may be used as an alternative to augment, supplement or replace the aforestated

satellite base communication process. Second software 26 executing within the remote site

central processing unit 25 then identifies and divides audio, video and text records contained

within the transmitted file intended for received ground unit 24 and, stores such information

in separate and distinct file structures accessible to said remote site central processing unit

25 and transmits said previously acquired content to an information presentation device 29.

Said transmission occurring and facilitated via radio frequency (RF) transmission/receiving

means 27 well known and practiced by those skilled in the art. Alternatively, said transmission may be facilitated via a hard wire/cable communication link 27 between said

remote site central processing unit 25 and said information presentation device 29.

Software processes of the present invention as practiced in its preferred

embodiment can best be understood as occurring in two distinct phases. Phase I (a.k.a "first

software") 3, executed within a data acquisition central processing unit 5, andPhasell (a.k.a.

"second software") 26, executed from within a remote site central processing unit 25 . Phase

I of source code for said first software is immediately included herein for purposes of

providing full and enabling disclosure.

' Reg Key Security Options... Const KEY_ALL_ACCESS = &H2003F

' Reg Key ROOT Types...

Const HKEY_LOCAL_MACHINE = &H80000002 Const ERROR_SUCCESS = 0

Const REG_SZ = 1 ' Unicode nul terminated string Const REG_DWORD = 4 ' 32-bit number

Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" Const gREGVALSYSINFOLOC = "MSINFO"

Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools vlSINFO" Const gREGVALSYSINFO = "PATH" Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal IpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long

Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, By Val lpData As String, ByRef lpcbData As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long

Private Sub Form_Load() LoadResStrings Me lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision lblTitle.Caption = App.Title

End Sub

Private Sub cmdSysInfo_Click()

Call StartSysInfo End Sub Private Sub cmdOK_Click() Unload Me End Sub Public Sub StartSysInfoO On Error GoTo SysInfoErr

Dim re As Long Dim SysInfoPath As String

' Try To Get System Info Program Pat Name From Registry...

If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then

' Try To Get System Info Program Path Only From Registry... Elself GetKey Value(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then

' Validate Existance Of Known 32 Bit File Version If (Dir(SysInfoPath & "\MSINF032.EXE") o "") Then SysInfoPath = SysInfoPath & "\MSINF032.EXE"

' Error - File Can Not Be Found... Else

GoTo SysInfoErr End If ' Error - Registry Entry Can Not Be Found...

Else

GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus)

Exit Sub SysInfoErr:

MsgBox "System Information Is Unavailable At This Time", vbOKOnly End Sub

Public Function GetKey Value(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef Key Val

As String) As Boolean

Dim i As Long ' Loop Counter

Dim re As Long ' Return Code Dim hKey As Long ' Handle To An Open Registry Key

Dim hDepth As Long '

Dim KeyValType As Long ' Data Type Of A Registry Key

Dim tmpVal As String ' Tempory Storage For A Registry Key Value

Dim KeyValSize As Long ' Size Of Registry Key Variable

' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} re = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key If (re o ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Error... tmpVal = String$(1024, 0) ' Allocate Variable Space

KeyValSize = 1024 ' Mark Variable Size

' Retrieve Registry Key Value...

! rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize) ' Get/Create Key Value

If (re o ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Errors tmpVal = VBA.Left(tmpVal, InStr(tmpVal, VBA.Chr(O)) - 1)

' Determine Key Value Type For Conversion...

Select Case KeyValType ' Search Data Types... Case REG_SZ ' String Registry Key Data Type

Key Val = tmpVal ' Copy String Value

Case REG_DWORD ' Double Word Registry Key Data Type

For i = LenømpVal) To 1 Step - 1 ' Convert Each Bit Key Val = Key Val + Hex(Asc(Mid(tmpVal, i, 1))) ' Build Value Char. By Char. Next

KeyVal = Format$("&h" + KeyVal) ' Convert Double Word To String End Select GetKeyValue = True ' Return Success re = RegCloseKey(hKey) ' Close Registry Key

Exit Function ' Exit

GetKeyError: ' Cleanup After An Error Has Occured... KeyVal = "" ' Set Return Val To Empty String

GetKeyValue = False ' Return Failure re = RegCloseKey(hKey) ' Close Registry Key

End Function

VERSION 5.00 Begin VB.Form frmAbout

BorderStyle = 3 'Fixed Dialog Caption = "About MediaVision" ClientHeight = 3630 ClientLeft = 45 ClientTop = 330 ClientWidth = 5865 ClipControls = 0 'False LinkTopic = "Forml" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 3630 ScaleWidth = 5865 ShowInTaskbar = 0 'False StartUpPosition = 1 'CenterOwner Tag = "1077"

Begin VB.PictureBox piclcon AutoSize = -1 'True BackColor = &H00C0C0C0& ClipControls = 0 'False Height = 540

Left = 240

Picture = "frmAbout.frx":0000 ScaleHeight = 480 ScaleMode = 0 'User ScaleWidtl l = 480

Tablndex = 2

TabStop = 0 'False

Top = 240

Width = 540

End

Begin VB.CommandButton cmdOK

Cancel = -1 'True

Caption = "OK"

Default = -1 'True

Height = 345

Left = 4245

Tablndex = 0

Tag = "1079"

Top = 2625

Width = 1467

End

Begin VB.CommandButton cmdSysInfo

Caption = "&System Info..."

Height = 345

Left = 4260

Tablndex = 1

Tag = "1078"

Top = 3075

Width = 1452

End

Begin VB.Label lblDescription

Caption = "Providing at the pump advertising to convenience stores,

ForeColor = &H00000000&

Height = 1170

Left = 1050

Tablndex = 6

Tag = "1083"

Top = 1125

Width = 4092

End

Begin VB.Label lblTitle

Caption = "MediaVision"

ForeColor = &H00000000&

Height = 480

Left = 1050

Tablndex = 5

Tag = "1082"

Top = 240

Width = 4092

End

Begin VB.Line Linel

BorderColor = &H00808080&

BorderStyli s = 6 'Inside Solid

Index = 1

XI = 225

X2 = 5657

Yl = ^' 2430

Y2 = 2430

End Begin VB.Line Linel BorderColor = &H00FFFFFF& BorderWidth = 2

Index = 0

XI = 240

X2 = 5657

Yl = 2445

Y2 = 2445

End

Begin VB.Label lb-Version

Caption = "Version 1.1"

Height = 225

Left = 1050

Tablndex = 4

Tag = "1081"

Top = 780

Width = 4092

End

Begin VB.Label lblDisclaimer

Caption = "Warning: ... Patent or Copyright Warning here"

ForeColor = &H00000000&

Height = 825

Left = 255

Tablndex = 3

Tag = "1080"

Top = 2625

Width = 3870

End

End Public Starting Address As String

Dim mbDontNavigateNow As Boolean Private Sub Form_Load( )

On Error Resume Next LoadResStrings Me Me. Show tbToolBar.Refresh Form_Resize cboAddress.Move 50, IblAddress.Top + IblAddress.Height + 15

If Len(StartingAddress) > 0 Then cboAddress.Text = StartingAddress cboAddress.Addltem cboAddress.Text 'try to navigate to the starting address timTimer.Enabled = True brwWebBrowser .Navigate StartingAddress End If

End Sub

Private Sub brwWebBrowser_DownloadComplete( ) On Error Resume Next

Me. Caption = brwWebBrowser.LocationName End Sub Private Sub brwWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant) On Error Resume Next Dim i As Integer Dim bFound As Boolean Me. Caption = brwWebBrowser.LocationName

For i = 0 To cbo Address. ListCount - 1

If cboAddress.List (i) = brwWebBrowser.LocationURL Then bFound = True Exit For End If

Next i mbDonfNavigateNow = True If bFound Then cboAddress.Removeltem i End If cboAddress.Addltem brwWebBrowser.LocationURL, 0 cboAddress.Listlndex = 0 mbDonfNavigateNow = False End Sub Private Sub cboAddress_Click ( )

If mbDonfNavigateNow Then Exit Sub timTimer.Enabled = True brwWebBrowser.Navigate cboAddress.Text End Sub Private Sub cboAddress_KeyPress(KeyAscii As Integer) On Error Resume Next IfKeyAscii = vbKeyReturn Then cboAddress_Click End If End Sub

Private Sub Form_Resize ( )

On Error Resume Next cboAddress. Width = Me.Scale Width - 100 brwWebBrowser. Width = Me.ScaleWidth - 100 brw WebBrowser .Height = Me. ScaleHeight - (picAddress.Top + picAddress.Height) - 100

End Sub

Private Sub timTimer_Timer ( )

If brwWebBrowser.Busy = False Then timTimer.Enabled = False Me.Caption = brwWebBrowser.LocationName

Else

Me.Caption = "Working..." End If End Sub Private Sub tbToolBar_ButtonClick(ByVal Button As Button) On Error Resume Next timTimer.Enabled = True Select Case Button.Key Case "Back" brwWebBrowser.GoBack Case "Forward" brwWebBrowser.GoForward Case "Refresh" brwWebBrowser .Refresh Case "Home" brwWebBrowser.GoHome Case "Search" brwWebBrowser.GoSearch Case "Stop" timTimer.Enabled = False brwWebBrowser. Stop

Me.Caption = brwWebBrowser.LocationName End Select

End Sub

VERSION 5.00

Object = "{831FDD16-0C5C-11D2-A9FC- •0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"

Object = "{EAB22AC0-30Cl-l lCF-A7EB-0000C05BAE0B}#l .l#0"; "SHDOCVW.DLL"

Begin VB.Form frmBrowser

Caption = "MediaVision Web Browser"

ClientHeight = 5130

ClientLeft = 3060

ClientTop = 3345

ClientWidth = 6540

LinkTopic = "Forml¹

MDIChild = -1 'True

ScaleHeight = 5130

ScaleWidth = 6540

ShowInTaskbar = 0 'False

Begin VB.Timer timTimer

Enabled = 0 'False

Interval = 5

Left = 6180

Top = 1500

End

Begin VB.PictureBox picAddress

Align = 1 'Align Top

BorderStyle = 0 'None

Height = 675

Left = 0

ScaleHeight = 675

ScaleWidth = 6540

Tablndex = 4

TabStop = 0 'False

Top = 540

Width = 6540

Begin VB.ComboBox cboAddresε

Height = 315

Left = 45

Tablndex = 2

Text = "Combol" Top = 300

Width = 3795

End

Begin VB.Label lblAddress

Caption "&Address:"

Height = 255

Left = 45

Tablndex = 1

Tag = "1090"

Top = 60

Width = 3075

End End

Begin MSComctlLib.Toolbar tbToolBar Align 1 'Align Top Height 540 Left 0

Tablndex = 3

Top = 0

Width 6540 _ExtenfX 11536

_ExtentY = 953

ButtonWidth 820

ButtonHeight = 794

Appearance = 1

ImageList = "imlToolbarlcons"

_Version = 393216

BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}

NumButtons = 6

BeginProperty Button 1 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Back"

Object.ToolTipText = "1084"

Imagelndex = 1

EndProperty BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}

Key = "Forward"

Object.ToolTipText = "1085"

Imagelndex = 2

EndProperty BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}

Key = "Stop"

Objec ToolTipText = "1086"

Imagelndex = 3

EndProperty BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}

Key = "Refresh"

ObjectToolTipText = "1087"

Imagelndex = 4

EndProperty BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}

Key = "Home"

Object.ToolTipText = "1088"

Imagelndex = 5

EndProperty BeginProperty Button 6 {66833FEA-8583-11D1-B16A-00C0F0283628} Key "Search'

Object.ToolTipText "1089"

Imagelndex 6

EndProperty

End

Begin MSComcflLib.ImageList imlToolbarlcons

Left = 2670

Top = 2325

_ExtentX = 1005

_ExtentY = 1005

BackColor = -2147483643

ImageWidth = 24

ImageHeight = 24

MaskColor = 12632256

Version = 393216

BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}

NumListlmages = 6

BeginProperty Listlmagel {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = {Binary}

Key EndProperty

BeginProperty Listlmage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = (Binary} Key

EndProperty

BeginProperty Listlmage3 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = {Binary}

Key EndProperty

BeginProperty Listlmage4 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = {Binary}

Key EndProperty BeginProperty Listlmage5 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = {Binary}

Key EndProperty

BeginProperty Listlmageό {12C247F27-8591-11D1-B16A-00C0F0283628} Picture = {Binary}

Key EndProperty EndProperty End Begin SHDocVwCtl. WebBrowser brwWebBrowser

Height = 3734

Left = 50

Tablndex = 0

Top = 1215

Width = 5393

ExtentX 9513

ExtentY 6586

ViewMode = 0

Offline = 0 Silent 0

RegisterAsBrowser = 0

RegisterAsDropTarget= 1

AutoArrange 0 'False

NoClientEdge 0 'False

AlignLeft 0 'False

ViewID = "(0057D0E0-3573-

Location — »"

End

Private Sub rtfText_SelChange() fMainForm.tbToolBar.Buttons("Bold")Nalue = IIf(rtfText.SelBold, tbrPressed, tbrUnpressed) fMainForm.tbToolBar.Buttons("Italic")Nalue = IIf(rtfText.SelItalic, tbrPressed, tbrUnpressed) fMainForm.tbToolBar.Buttons("Underline")Nalue = IIf(rtfText.SelUnderline, tbrPressed, tbrUnpressed) fMainForm.tbToolBar.Buttons("Align Left")Nalue = IIf(rtfText.Sel Alignment = rtfLeft, tbrPressed, tbrUnpressed) fMainForm.tbToolBar.Buttons("Center")Nalue = IIf(rtfText.Sel Alignment = rtfCenter, tbrPressed, tbrUnpressed) fMainForm.tbToolBar.Buttons("Align Right")Nalue = IIf(rtfText.Sel Alignment = rtfRight, tbrPressed, tbrUnpressed) End Sub

Private Sub Form_Load()

Form_Resize End Sub Private Sub Form_Resize() On Error Resume Next rtfTextMove 100, 100, Me.ScaleWidth - 200, Me.ScaleHeight - 200 rtfTextRightMargin = rtfText. Width - 400 End Sub VERSION 5.00

Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}.. 1.2#0"; "RICHTX32.0CX" Begin VB.Form frmDocument

Caption = "MediaVision Document Editing¹

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680

LinkTopic = "Forml"

MDIChild = -1 'True

ScaleHeight = 3195

ScaleWidth = 4680

Begin RichTextLib.RichTextBox rtfText

Height = 2000

Left = 100

Tablndex = 0

Top = 100

Width = 3000

_ExtentX = 5292

_ExtentY = 3519

_Version = 393217

Enabled = -1 'True ScrollBars = 3

TextRTF = $"frmDocument.frx":0000 End End Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal Ipbuffer As String, nSize As Long) As Long

Public OK As Boolean Private Sub Form_Load() Dim sBuffer As String Dim ISize As Long

LoadResStrings Me sBuffer = Space$(255) ISize = Len(sBuffer) Call GetUserName(sBuffer, ISize) If ISize > 0 Then txtUserName.Text = Left$(sBuffer, ISize) Else txtUserName.Text = vbNullString End If ' End Sub

Private Sub cmdCancel_Click()

OK = False

Me.Hide End Sub Private Sub cmdOK_Click()

'ToDo: create test for correct password 'check for correct password If txtPassword.Text = "" Then OK = True Me.Hide

Else MsgBox "Invalid Password, try again!", , "Login" txtPassword. SetFocus txtPassword.SelStart = 0 txtPassword. SelLength = Len(txtPassword.Text)

End If End Sub

VERSION 5.00 Begin VB.Form frmLogin BorderStyle = 3 'Fixed Dialog

Caption = "MediaVision Login"

ClientHeight = 1590

ClientLeft = 45

ClientTop = 330 ClientWidth = 3750

LinkTopic = "Forml"

MaxButton = 0 'False

MinButton = 0 'False ScaleHeight = 1590 ScaleWidth = 3750 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Tag = "1064"

Begin VB.CommandButton cmdCancel

Cancel = -1 'True

Caption = "Cancel"

Height = 360

Left = 2100

Tablndex = 5

Tag = "1068"

Top = 1020

Width = 1140 unu

Begin VB.CommandButton cmdOK

Caption = "OK"

Default = -1 'True

Height = 360

Left = 495

Tablndex = 4

Tag = "1067"

Top = 1020

Width = 1140 nnα

Begin VB.TextBox txtPassword

Height = 285

IMEMode = 3 'DISABLE

Left = 1305

PasswordChar = "*"

Tablndex = 1

Top = 525

Width = 2325

End

Begin VB.TextBox txtUserName

Height = 285

Left = 1305

Tablndex = 3

Top = 135

Width = 2325

End

Begin VB.Label lblLabels

Caption = "&Password:"

Height = 248

Index = 1

Left = 105

Tablndex = 0

Tag = "1066"

Top = 540

Width = 1080

End

Begin VB.Label lblLabels

Caption = "&User Name:"

Height = 248

Index = 0 Left = 105 Tablndex = 2

Tag = "1065"

Top = 150 Width = 1080

End End

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long Const EM JNDO = &HC7

Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)

Private Sub MDIForm_Load()

LoadResStrings Me Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)

Me.Top = GetSetting(App.Tifle, "Settings", "MainTop", 1000)

Me.Width = GetSetting(App.Title, "Settings", "Main Width", 6500)

Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)

LoadNewDoc End Sub

Private Sub LoadNewDoc()

Static IDocumentCount As Long

Dim frmD As frmDocument

IDocumentCount = IDocumentCount + 1 Set frmD = New frmDocument frmD. Caption = "Document " & IDocumentCount frmD. Show End Sub

Private Sub SetVideo() 'Video files to be set up and sent via separate subroutine

'these files will be sent via internet and satellite End Sub

Private Sub Channel8()

'open channel 8 website and input weather forecast and seven 'day planner graphic. These items will be combined with the

'data stream and/or video stream and will be sent via subroutine 'via internet and satellite. End Sub

Private Sub MDIForrn_Unload(Cancel As Integer) If Me. WindowState o vbMinimized Then

SaveSetting App.Title, "Settings", "MainLeft", Me.Left SaveSetting App.Title, "Settings", "MainTop", Me.Top SaveSetting App.Title, "Settings", "Main Width", Me.Width SaveSetting App.Title, "Settings", "MainHeight", Me.Height End If

End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button) On Error Resume Next Select Case Button.Key Case "New"

LoadNewDoc Case "Open" mnuFileOpen_Click Case "Save" mnuFileSave_Click Case "Print" mnuFilePrint Click Case "Cut" mnuEditCut_Click

Case "Copy" mnuEditCopy_Click Case "Paste" mnuEdifPaste_Click Case "Bold"

ActiveForm.rtfText.SelBold = Not ActiveForm.r-fText.SelBold Button.Value = IIf(ActiveForm.rtfText.SelBold, tbrPressed, tbrUnpressed) Case "Italic" ActiveForm.rtfText.SeIItalic = Not ActiveForm.rtfText.Selltalic Button.Value = IIf(ActiveForm.rtfText.SelItalic, tbrPressed, tbrUnpressed)

Case "Underline"

ActiveForm.rtfText.SelUnderline = Not ActiveForm. rtfText. SelUnderline Button.Value = IIf(ActiveForm.rtfText.SelUnderline, tbrPressed, tbrUnpressed) Case "Align Left" ActiveForm.rtfText.SelAlignment = rtfLeft

Case "Center"

ActiveForm.rtfText.SelAIignment = rtfCenter Case "Align Right" ActiveForm.rtfTextSelAlignment = rtfRight Case "Camera"

'ToDo: Add 'Camera' button code. MsgBox "Add 'Camera' button code." Case "Delete"

'ToDo: Add 'Delete' button code. MsgBox "Add 'Delete' button code. "

Case "Find"

'ToDo: Add 'Find' button code. MsgBox "Add 'Find' button code." Case "View Details" 'ToDo: Add 'View Details' button code.

MsgBox "Add 'View Details' button code." Case "Help What's This"

'ToDo: Add 'Help What's This' button code. MsgBox "Add 'Help What's This' button code." Case "Help"

'ToDo: Add 'Help' button code. MsgBox "Add 'Help' button code." End Select End Sub Private Sub mnuHelpAbout_Click() frmAbout.Show vbModal, Me End Sub

Private Sub mnuHelpSearchForHelpOn_Click() Dim nRet As Integer

'if there is no helpfile for this project display a message to the user 'you can set the HelpFile for your application in the 'Project Properties dialog If Len(App.HelpFile) = 0 Then

MsgBox "Unable to display Help Contents. There is no Help associated with this project.", vblnformation, Me.Caption Else

On Error Resume Next nRet = OS WinHelp(Me.hwnd, App.HelpFile, 261 , 0)

If Err Then

MsgBox Err.Description End If End If End Sub

Private Sub mhuHelpContents_Click() Dim nRet as Integer

'if there is no helpfile for this project display a message to the user 'you can set the HelpFile for your application in the 'Project Properties dialog

If Len(App.HelpFile) = 0 Then

MsgBox "Unable to display Help Contents. There is no Help associated with this project." , vblnformation, Me.Caption Else On error Resume Next nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0) If Err Then

MsgBox Err.Description End If End If

End Sub

Private Sub mnu Window ArrangeIcons_Click()

Me.Arrange vbArrangelcons End Sub Private Sub mnuWindowTileVertical_Click() Me.Arrange vbTileVertical End Sub

Private Sub mnuWindowTileHorizontal_Click() Me.Arrange vbTileHorizontal End Sub

Private Sub mnuWindowCascade_Click()

Me.Arrange vbCascade End Sub

Private Sub mnuWindowNewWindow_Click() LoadNewDoc End Sub

Private Sub LoadInternet() open"http://www.msn.com/user8982734/23486219" 'input news, stocks etc. through subroutine 'output information to internet file through separate subroutine

Output information to satellite file through seaprate subroutine

End Sub

Private Sub mnuToolsOptions_Click() frmOptions.Show vbModal, Me

End Sub

Private Sub mnuViewWebBrowser_Click()

Dim frmB As New frmBrowser frmB. Starting Address = "http://www.mediavision.com" frmB.Show End Sub

Private Sub mnuViewOptions_Click() frmOptions.Show vbModal, Me End Sub Private Sub mnuViewRefresh_Click()

'ToDo: Add 'mnuViewRefresh_Click' code. MsgBox "Add 'mnuViewRefresh_Click' code." End Sub

Private Sub mnuViewStatusBar_Click() mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked sbStatusBar.Visible = mnuViewStatusBar.Checked End Sub

Private Sub mnuViewToolbar_Click() mnuViewToolbar.Checked = Not mnuViewToolbar.Checked tbToolBar.Visible = mnuViewToolbar.Checked

End Sub

Private Sub mnuEditPasteSpecial_Click()

'ToDo: Add 'mnuEditPasteSpecial_Click' code. MsgBox "Add 'mnuEditPasteSpecial_Click' code." End Sub

Private Sub mnuEditPaste_Click() On Error Resume Next ActiveForm.rtfText.SelRTF = Clipboard.GetText

End Sub Private Sub mnuEditCopy_Click() On Error Resume Next Clipboard.SetText ActiveForm.rtfText.SelRTF

End Sub Private Sub mnuEditCut_Click() On Error Resume Next

Clipboard.SetText ActiveForm.rtfText.SelRTF ActiveForm.rtfText.SelText = vbNullString

End Sub

Private Sub mnuEditUndo_Click()

'ToDo: Add 'mnuEditUndo_Click' code. MsgBox "Add 'mnuEditUndo_Click' code."

End Sub

Private Sub mnuFileExit_Click() 'unload the form Unload Me

End Sub

Private Sub mnuFileSend_Click() 'ToDo: Add 'mnuFileSend_Click' code.

MsgBox "Add 'mnuFiIeSend_CIick' code." End Sub

Private Sub mnuFilePrint_Click() On Error Resume Next If ActiveForm Is Nothing Then Exit Sub

With dlgCommonDialog .DialogTitle = "Print" .CancelError = True .Flags = cdlPDReturnDC + cdlPDNoPageNums

If ActiveForm.rtfText.SelLength = 0 Then

.Flags = .Flags + cdlPDAHPages Else

.Flags = .Flags + cdlPDSelection End If

.ShowPrinter

If Err <> MSComDlg.cdlCancel Then

ActiveForm.rtfTextSelPrint .hDC End If End With

End Sub

Private Sub mnuFilePrintPreview_Click() 'ToDo: Add 'mnuFilePrintPreview_Click' code. MsgBox "Add 'mnuFilePrintPreview_Click' code." End Sub

Private Sub mnuFilePageSetup_Click() On Error Resume Next With dlgCommonDialog .DialogTitle = "Page Setup" .CancelError = True .ShowPrinter End With

End Sub

Private Sub mnuFileProperties_Click() 'ToDo: Add 'mnuFileProperties_Click' code.

MsgBox "Add 'mnuFileProperties_Click' code." End Sub

Private Sub mnuFileSaveAll_Click()

'ToDo: Add 'mnuFileSaveAll_ Click' code. MsgBox "Add 'mnuFileSaveAU_Click' code."

End Sub

Private Sub mnuFileSaveAs_Click() Dim sFile As String If ActiveForm Is Nothing Then Exit Sub

With dlgCommonDialog .DialogTitle = "Save As" .CancelError = False

'ToDo: set the flags and attributes of the common dialog control .Filter - "All Files (*.*)|*.*"

.ShowSave If Len(.FileName) = 0 Then

Exit Sub End If sFile = .FileName

End With

ActiveForm.Caption = sFile ActiveForm.rtfText.SaveFile sFile

End Sub Private Sub mnuFileSave_Click() Dim sFile As String

If Left$(ActiveForm.Caption, 8) = "Document" Then With dlgCommonDialog .DialogTitle = "Save" .CancelError = False

'ToDo: set the flags and attributes of the common dialog control .Filter = "All Files (*.*)|*.*" .ShowSave

If Len(.FileName) = 0 Then Exit Sub

End If sFile = .FileName End With

ActiveForm.rtfText.SaveFile sFile Else sFile = ActiveForm.Caption ActiveForm.rtfText.SaveFile sFile End If End Sub

Private Sub rnnuFileClose_Ctick()

'ToDo: Add 'mnuFileClose_Click' code. MsgBox "Add 'mnuFileClose_Click' code." End Sub

Private Sub mnuFileOpen_Click() Dim sFile As String

If ActiveForm Is Nothing Then LoadNewDoc

With dlgCommonDialog .DialogTitle = "Open"

.CancelError = False

'ToDo: set the flags and attributes of the common dialog control .Filter = "All Files (*.*)|*.*" .ShowOpen If Len(.FileName) = 0 Then

Exit Sub End If sFile = .FileName End With ActiveForm.rtfText.LoadFile sFile

ActiveForm.Caption = sFile

End Sub

Private Sub mnuFileNew_Click() LoadNewDoc End Sub

VERSION 5.00

Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}# 1.2#0"; "COMDLG32.0CX" Object = "{831 FDD 16-0C5C- 11 D2-A9FC-0000F8754DA 1 } #2.0#0"; "MSCOMCTL.OCX" Begin VB.MDIForm frmMain Caption = "MediaVision"

ClienfHeight = 3195

ClientLeft = 60

ClientTop = 630

ClientWidth = 4680 LinkTopic = "MDIForml"

StartUpPosition = 3 'Windows Default

Begin MSComctlLib.StatusBar sbStatusBar

Align = 2 'Align Bottom

Height = = 270

Left 0

Tablndex = 0

Top = 10560

Width = 15240

JExtenfX = 26882

_ExtentY = 476

_Version = 393216

BeginProperty Panels {8E3867A5- •8586-11D1-B16A- -00C0F0283628}

NumPanels = 3 BeginProperty Panell {8E3867AB-8586-11D1-B16A-00C0F0283628} AutoSize = 1 Object. Width = 21246

Text = "Status" TextSave = "Status"

EndProperty

BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} Style = 6

AutoSize = 2 TextSave = "4/17/00"

EndProperty

BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-O0COFO283628} Style = 5

AutoSize = 2 TextSave = "11:14 AM"

EndProperty EndProperty End

Begin MSComDlg.CommonDialog dlgCommonDialog Left = 720

Top = 6240

_ExtentX = 847 _ExtentY = 847 _Version = 393216 End

Begin MSComctlLib.ImageList imlToolbarlcons Left = 600

Top = 6960

_ExtentX = 1005 _ExtentY = 1005

BackColor = -2147483643 Image Width = 16 ImageHeight = 16 MaskColor = 12632256 _Version = 393216

BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} NumListlmages = 19

BeginProperty Listlmagel {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMain.frx":0000 Key = "New"

EndProperty

BeginProperty Listlmage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMain.frx":0112 Key = "Open" EndProperty

BeginProperty Listlmage3 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMain.frx":0224 Key = "Save"

EndProperty BeginProperty Listlmage4 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":0336 Key = "Print"

EndProperty

BeginProperty Listlmage5 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMain.frx":0448 Key = "Cut"

EndProperty BeginProperty Listlmage6 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":055A Key = "Copy"

EndProperty BeginProperty Listlmage7 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":066C

Key = "Paste" EndProperty

BeginProperty Listlmageδ {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":077E

Key = "Bold"

EndProperty BeginProperty Listlmage9 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":0890

Key = "Italic"

EndProperty

BeginProperty ListlmagelO {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMain.frx":09A2

Key = "Underline"

EndProperty BeginProperty Listlmage 11 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":0AB4 Key = "Align Left"

EndProperty BeginProperty Listlmage 12 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":0BC6

Key = "Center" EndProperty

BeginProperty Listlmagel3 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":0CD8

Key = "Align Right"

EndProperty BeginProperty Listlmagel4 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":ODEA

Key = "Camera"

EndProperty

BeginProperty Listlmagel5 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMain.frx":0EFC

Key = "Delete"

EndProperty BeginProperty ListlmagelO {2C247F27-8591-11D1-B16A-OOC0FO283628}

Picture = "frmMain.frx": 100E Key = "Find"

EndProperty BeginProperty Listlmagel7 {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":1120

Key = "View Details" EndProperty

BeginProperty ListlmagelS {2C247F27-8591-11D1-B16A-00C0F0283628}

Picture = "frmMain.frx":1232

Key = "Help What's This"

EndProperty BeginProperty Lisflmagel9 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMain.frx":1344 Key = "Help"

EndProperty EndProperty End

Begin MSComctlLib.Toolbar tbToolBar Align = 1 'Align Top

Height = 420

Left = 0 Tablndex = 1

Top = 0

Width = 15240

_ExtentX = 26882 _ExtentY = 741 ButtonWidth = 609

Appearance = 1 ImageList = "imlToolbarlcons" _Version = 393216

BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} NumButtons = 23

BeginProperty Buttonl {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "New"

Object.ToolTipText = "1037" ImageKey = "New" EndProperty

BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Open"

Object.ToolTipText = "1038" ImageKey = "Open" EndProperty

BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Save"

Object.ToolTipText = "1039" ImageKey = "Save" EndProperty

BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}

Style = 3

EndProperty

BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = ^' "Print"

Object.ToolTipText = "1040" ImageKey = "Print" EndProperty

BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} Style = 3

EndProperty

BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Cut"

ObjectToolTipText = "1041" ImageKey = "Cut"

EndProperty

BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Copy"

Object.ToolTipText = "1042" ImageKey = "Copy" EndProperty

BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Paste"

Object.ToolTipText = "1043" ImageKey = "Paste"

EndProperty BeginProperty ButtonlO {66833FEA-8583-11D1-B16A-00C0F0283628}

Style = 3

EndProperty BeginProperty Buttonl 1 {66833FEA-8583-11D1-B16A-00C0F0283628}

Key = "Bold"

Object.ToolTipText = "1044" ImageKey = "Bold" EndProperty BeginProperty Button 12 {66833FEA-8583-11D1-B16A-00C0F0283628}

Key = "Italic"

ObjectToolTipText = "1045" ImageKey = "Italic" EndProperty BeginProperty Buttonl 3 {66833FEA-8583-11D1-B16A-00C0F0283628}

Key = "Underline"

ObjectToolTipText = "1046" ImageKey = "Underline" EndProperty BeginProperty Button 14 {66833FEA-8583-11D1-B16A-00C0F0283628}

Style = 3

EndProperty

BeginProperty Buttonl5 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Align Left" Object.ToolTipText = "1047"

ImageKey = "Align Left" Style = 2

EndProperty

BeginProperty ButtonlO {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Center"

Object.ToolTipText = "1048" ImageKey = "Center" Style = 2

EndProperty BeginProperty Button 17 {66833FEA-8583-11D1-B16A-00C0F0283628}

Key = "Align Right"

Object.ToolTipText = "1049" ImageKey = "Align Right" Style = 2 EndProperty

BeginProperty Buttonlδ {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Camera"

Object.ToolTipText = "1050" ImageKey = "Camera" EndProperty

BeginProperty Buttonl {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Delete"

Object.ToolTipText = "1051" ImageKey = "Delete" EndProperty BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Find"

Object.ToolTipText = "1052" ImageKey = "Find" EndProperty

BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "View Details"

Object.ToolTipText = "1053" ImageKey = "View Details" Style = 2

EndProperty

BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Help What's This"

Object.ToolTipText = "1054" ImageKey = "Help What's This"

EndProperty

BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} Key = "Help"

Object.ToolTipText = "1055" ImageKey = "Help"

EndProperty EndProperty End

Begin VB.Menu mnuFile Caption = "1000"

Begin VB.Menu mnuFileNew Caption = "1001" Shortcut = ^ΛN End Begin VB.Menu mnuFileOpen

Caption = "1002"

Shortcut = ^ΛO End

Begin VB.Menu mnuFileClose Caption = "1003"

End Begin VB.Menu mnuFileBarO

Caption = "-" End Begin VB.Menu mnuFileSave

Caption = "1004" End

Begin VB.Menu mnuFileSaveAs Caption = "1005" End

Begin VB.Menu mnuFileSaveAll

Caption = "1006" End

Begin VB.Menu mnuFileBarl Caption = "-"

End Begin VB.Menu mnuFileProperties

Caption = "1007" End Begin VB.Menu mnuFileBar2 Caption = "-" End

Begin VB.Menu mnuFilePageSetup Caption = "1008" End

Begin VB.Menu mnuFilePrintPreview

Caption = "1009" End

Begin VB.Menu mnuFilePrint Caption = "1010"

End Begin VB.Menu mnuFileBar3

Caption = "-" End Begin VB.Menu mnuFileSend

Caption = "1011" End

Begin VB.Menu mnuFileBar4 Caption = "-" End

Begin VB.Menu mnuFileMRU Caption = "" Index = 1

Visible = 0 'False End

Begin VB.Menu mnuFileMRU Caption = "" Index = 2

Visible = 0 'False End

Begin VB.Menu mnuFileMRU Caption = "" Index = 3

Visible = 0 'False End

Begin VB.Menu mnuFileBar5 Caption = "-" Visible = 0 'False End Begin VB.Menu mnuFileExit

Caption = "1012" End End

Begin VB.Menu mnuEdit Caption = "1013"

Begin VB.Menu mnuEditUndo

Caption = "1014" End

Begin VB.Menu mnuEditBarO Caption = "-"

End

Begin VB.Menu mnuEditCut Caption = "1015" Shortcut = ^ΛX End Begin VB.Menu mnuEditCopy Caption = "1016" Shortcut = ^ΛC End Begin VB.Menu mnuEditPaste

Caption = "1017"

Shortcut = ^ΛV End

Begin VB.Menu mnuEditPasteSpecial Caption = "1018"

End End

Begin VB.Menu mnuView Caption = "1019" Begin VB.Menu mnuViewToolbar

Caption = "1020" Checked = -1 'True End

Begin VB.Menu mnuViewStatusBar Caption = "1021"

Checked = -1 'True End

Begin VB.Menu mnuViewBarO Caption = "-" End

Begin VB.Menu mnuViewRefresh

Caption = "1022"

End

Begin VB.Menu mnuViewOptions Caption = "1023"

End Begin VB.Menu mnuViewWebBrowser

Caption = "1024" End End

Begin VB.Menu mnuTools Caption = "1025" Begin VB.Menu mnuToolsOptions Caption = "1026" End

End

Begin VB.Menu mnu Window Caption = "1027" WindowList = -1 'True Begin VB.Menu mnuWindowNewWindow

Caption = "1028" End

Begin VB.Menu mnuWindowBarO Caption = "-" End

Begin VB.Menu mnuWindowCascade

Caption = "1029" End

Begin VB.Menu mnuWindowTileHorizontal Caption = "1030" End

Begin VB.Menu mnuWindowTile Vertical

Caption = "1031"

End Begin VB.Menu mnuWindowArrangelcons

Caption = "1032" End End

Begin VB.Menu mnuHelp Caption = "1033"

Begin VB.Menu mnuHelpContents

Caption = "1034" End

Begin VB.Menu mnuHelpSearchForHelpOn Caption = "1035"

End Begin VB.Menu mnuHelpBarO

Caption = "-" End Begin VB.Menu mnuHelpAbout

Caption = "1036" End End End Private Sub Form_Load() LoadResStrings Me End Sub

Private Sub cmdApply_Click()

'ToDo: Add 'cmdApply_Click' code. MsgBox "Apply Code goes here to set options w/o closing dialog!"

End Sub

Private Sub cmdCancel_Click()

Unload Me End Sub Private Sub cmdOK_Click()

'ToDo: Add 'cmdOK_Click' code. MsgBox "Code goes here to set options and close dialog!" Unload Me End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim i As Integer i = tbsOptions.Selectedltem.Index 'handle ctrl+tab to move to the next tab If (Shift And 3) = 2 And KeyCode = vbKeyTab Then If i = tbsOptions.Tabs.Count Then

'last tab so we need to wrap to tab 1 Set tbsOptions.Selectedltem = tbsOptions.Tabs(l) Else

'increment the tab Set tbsOptions.Selectedltem = tbsOptions.Tabs(i + 1) End If Elself (Shift And 3) = 3 And KeyCode = vbKeyTab Then Ifi = l Then

'last tab so we need to wrap to tab 1 Set tbsOptions.Selectedltem = tbsOptions.Tabs(tbsOptions.Tabs.Count)

Else

'increment the tab

Set tbsOptions.Selectedltem = tbsOptions.Tabs(i - 1) End If End If

End Sub

Private Sub tbsOptions_Click()

Dim i As Integer 'show and enable the selected tab's controls

. 'and hide and disable all others For i = 0 To tbsOptions.Tabs.Count - 1 If i = tbsOptions.Selectedltem.Index - 1 Then picOptions(i).Left = 210 picOptions(i).Enabled = True

Else picOptions(i).Left = -20000 picOptions(i).Enabled = False End If Next

End Sub

VERSION 5.00

Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1 }#2.0#0"; "MSCOMCTL.OCX"

Begin VB.Form frmOptions BorderStyle = 3 'Fixed Dialog Caption = "MediaVision Options" ClientHeight = 5040 ClientLeft = 45 ClientTop = 330 ClientWidth = 6150 KeyPreview = -1 'True LinkTopic = "Forml" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5040 ScaleWidth = 6150 ShowInTaskbar = 0 'False StartUpPosition = 1 'CenterOwner Tag = "1069"

Begin VB.CommandButton cmdOK Caption = "OK" Height = 375 Left = 2490

Tablndex = 1 Tag = "1076"

Top = 4455 Width = 1095

End

Begin VB.CommandButton cmdCancel

Cancel = -1 'True

Caption = "Cancel"

Height = 375

Left ^■■ 3720

Tablndex = 3

Tag = "1075"

Top = 4455

Width = 1095

End

Begin VB.CommandButton cmdApply

Caption = "&Apply"

Height = 375

Left ^■■ 4920

Tablndex = 5

Tag = "1074"

Top = 4455

Width = 1095

End

Begin VB.PictureBox picOptions

BorderStyle = 0 'None

Height = 3780

Index = 3

Left = -20000

ScaleHeight = 3840.968 ^'

ScaleMode = 0 'User

ScaleWidth = 5745.64

Tablndex = 7

TabStop = 0 'False

Top = = 480

Width = 5685

Begin VB.Frame fraSample4

Caption = "Sample 4"

Height = 2022

Left = 505

Tablndex = 11

Tag = "1073"

Top = 502

Width = 2033

End

Begin VB.PictureBox picOptions

BorderStyle = 0 'None

Height = 3780

Index = 2

Left = -20000

ScaleHeight = 3840.968

ScaleMode = 0 'User

ScaleWidth = 5745.64

Tablndex = 9

TabStop = 0 'False

Top = 480

Width = 5685 Begin VB. Frame fraSample3

Caption = "Sample 3"

Height = 2022

Left = 406

Tablndex = 10

Tag = "1072"

Top = 403

Width = 2033

End

Begin VB.PictureBox picOptions

BorderStyle = 0 'None

Height = 3780

Index ^: = 1

Left ^■■ -20000

ScaleHeight = 3840.968

ScaleMode = 0 'User

ScaleWidth = 5745.64

Tablndex = 6

TabStop = 0 'False

Top = 480

Width = 5685

Begin VB. Frame fraSample2

Caption = "Sample 2"

Height = 2022

Left = 307

Tablndex = 8

Tag = " 1071 "

Top = 305

Width = 2033

End

Begin VB.PictureBox picOptions

BorderStyle = 0 'None

Height = 3780

Index = 0

Left ^■■ 210

ScaleHeight = 3840.968

ScaleMode = 0 'User

ScaleWidth = 5745.64

Tablndex = 2

TabStop = 0 'False

Top = 480

Width = 5685

Begin VB. Frame fraSamplel

Caption = "Sample 1 "

Height = 2022

Left = 208

Tablndex = 4

Tag = " 1070"

Top = 207

Width = 2033

End

V Unna

Begin MSComctlLib.TabStrip tbsOptions Height = 4245

Left = 120

Tablndex = 0 Top = 120 Width = 5895

_ExtenfX = 10398 _ExtentY = 7488 Version = 393216

BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} NumTabs = 4

BeginProperty Tabl {1EFB659A-857C-11D1-B16A-00C0F0283628} Caption = "Group 1" ImageVarType = 2 EndProperty BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}

Caption = "Group 2" ImageVarType = 2 EndProperty

BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628} Caption = "Group 3"

ImageVarType = 2 EndProperty

BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628} Caption = "Group 4" ImageVarType = 2

EndProperty EndProperty End End Private Sub Form_Load() LoadResStrings Me

IblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision lblProductName.Caption = App.Title End Sub VERSION 5.00

Begin VB.Form frmSplash

BorderStyle = 3 'Fixed Dialog

ClientHeight = 4710

ClientLeft = 45

ClientTop 45

ClientWidth = 7455

ControlBox = 0 'False

LinkTopic = "Forml"

MaxButton ^■■ 0 'False

MinButton = 0 'False

ScaleHeight = 4710

ScaleWidth = 7455

ShowInTaskbar = 0 'False

StartUpPosition ^: = 2 'CenterScreen

Visible = 0 'False

Begin VB.Frame fraMainFrame

Height 4590

Left 45 Tablndex = 0

Top = -15

Width 7380

Begin VB.PictureBox picLogo

Height = 2385

Left 510

Picture = = "frmSplash.frx":0000

ScaleHeight = 2325

ScaleWidth = 1755

Tablndex = 1

Top ^■■ 855

Width = 1815

End

Begin VB.Label IblProductName

AutoSize = -1 'True

Caption = "Product Name?"

BeginProperty Font

Name = "MS Sans Serif '

Size = 29.25

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 720

Left 2670

Tablndex = 8

Tag "1062"

Top = ^; 1200

Width = 4395

End

Begin VB.Label IblCompanyProduct

AutoSize = -1 'True

Caption = "MediaVision"

BeginProperty Font

Name = "MS Sans Serif '

Size = 18

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 435

Left 2505

Tablndex = 7

Tag "1061"

Top 765

Width = 2175 j-inci

Begin VB.Label lblPlatform

Alignment = 1 'Right Justify

AutoSize = -1 'True

Caption = "Platform? Satellite or Internet" BeginProperty ' Font

Name = "MS Sans Serif '

Size = 13.5

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height ^■■ 360

Left 3000

Tablndex = 6

Tag "1060"

Top = 2400

Width ^■■ 4005

End

Begin VB.Label lblVersion

Alignment = 1 'Right Justify

AutoSize = -1 'True

Caption = = "Version 1.1 "

BeginProperty Font

Name = "MS Sans Serif '

Size = 12

Charset = 0

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height ^■■ 300

Left 5625

Tablndex = 5

Tag "1059"

Top = 2760

Width ^■■ 1380

End

Begin VB.Label IblWarning

Caption = "Patent or Copyright Warning Here"

Height ^■■ 195

Left 300

Tablndex = 2

Tag "1058"

Top 3720

Width ^■ 6855

End

Begin VB.Label IblCompany

Caption = "MediaVision, Inc."

Height ^; 255

Left 4710

Tablndex = 4

Tag "1057"

Top = 3330

Width ^■■ 2415

End

Height = 255

Left = 4710

Tablndex = 3

Tag = "1056"

Top = 3120

Width = 2415

End

Public fMainForm As frmMain

Sub MainO

Dim fLogin As New frmLogin fLogin.Show vbModal If Not fLogin.OK Then

'Login Failed so exit app End End If Unload fLogin frmSplash.Show frmSplash.Refresh Set fMainForm = New frmMain Load fMainForm Unload frmSplash fMainForm.Show

End Sub

Sub LoadResStrings(frm As Form) On Error Resume Next

Dim ctl As Control Dim obj As Object

Dim fnt As Object Dim sCtlType As String Dim nVal As Integer

'set the form's caption frm.Caption = LoadResString(CInt(frm.Tag))

'set the font Set fnt = frm.Font fntName = LoadResString(20) fnt.Size = CInt(LoadResString(21))

'set the controls' captions using the caption 'property for menu items and the Tag property 'for all other controls For Each ctl In frm.Controls

Set ctl.Font = fnt sCtlType = TypeName(ctl)

If sCtlType = "Label" Then ctl.Caption = LoadResString(CInt(ctl.Tag)) Elself sCtlType = "Menu" Then ctl.Caption = LoadResString(CInt(ctl.Caption)) Elself sCtlType = "TabStrip" Then , For Each obj In ctl.Tabs obj.Caption = LoadResString(CInt(obj.Tag)) obj.ToolTipText = LoadResString(CInt(obj.ToolTipText)) Next Elself sCtlType = "Toolbar" Then For Each obj In ctl.Buttons obj.ToolTipText = LoadResString(CInt(obj.ToolTipText)) Next Elself sCtlType = "ListView" Then For Each obj In ctl.ColumnHeaders obj .Text = LoadResString(CInt(obj .Tag))

Next Else nVal = 0 nVal = Val(ctl.Tag) If nVal > 0 Then ctl.Caption = LoadResString(nVal) nVal = 0 nVal = Val(ctl.ToolTipText)

If nVal > 0 Then cfi.ToolTipText = LoadResString(nVal) End If Next

End Sub

Figures 2 and 3 are flow charts illustrating the software functionality of Phase I

software ticker and image processing components (a.k.a. ticker and image components,

respectively). In the invention's preferred embodiment, said Phase I software operates in

a Windows® environment, however the invention's programming logic is neither platform

specific nor dependent.

The data acquisition central processing unit can utilize a dial-up connection, but

normally functions with a high-speed Internet connection and can coir-municate directly with

the remote site central processing units, or can upload information via FTP, HTTP, or

HTTPS protocols.

Figure 2 illustrates a software processing component which facilitates the retrieval,

processing, and transmitting of "Ticker" information. Such information represents a variety

of viewer-essential information including, but not limited to, current national news headlines, local news headlines, national and local sports headlines, national and local sports

scores, stock quotes, stock market indices and news 2.05.

The Phase I processing component is capable of retrieving and inputting 2.07

information from the Internet, virtual private network (VPN), or direct modem connection

and can be customized for an individual client. For example, if the client is a bank the ticker

could retrieve current CD rates and other client-specific information.

The data acquisition central processing unit contains a database which segregates

remote site central processing units by assigning each group and sub-group codes 2.04.

Such codes can be assigned based upon geographic or other criteria 2.12 and this processing

component allows for complete user-definable groups and sub-groups.

These codes are utilized to determine information to be sent to each remote

computer. For example, each or every remote computer within a metropolitan area may be

sent local news and weather information specific to that area 2.12.

Once ticker information for each remote computer has been generated 2.07, 2.08, it

is transmitted either directly to the remote computer (via direct modem connection, VPN,

or FTP) 2.15 or is transmitted to a private web server 2.05. A web server acts as a repository

of information which is continually updated and available for the remote site central

processing units to download.

Figure 3 illustrates the program processing means steps which facilitate the

processing and transmitting of image files. The invention's image files consist of, but are

not limited to, full-motion video (FMN), graphics, animations, and streaming video. Audio

is also a component of these file types and can be integrated into the file itself or can be a

separate file played (executed) in synchronization with the image file. Non-limiting examples of the invention's image files include, but are not limited to,

corporate commercials, public service ads, current weather graphics (retrieved from the

Internet or other means on a continuing basis), local and national sports team schedules,

National Weather Service advisories and warnings, traffic flow information, or fugitive

information 3.02.

Image and audio files can be obtained from clients, user-generated, or retrieved from

the Internet. Once obtained, these files are stored in an indexed database 3.03 on the data

acquisition central processing unit (or on a computer accessible via network connection to

the data acquisition central processing unit).

In Figure 3, the user next creates "playlists" on the data acquisition central processing

unit 3.07. These "playlists" consist of indexed .references to image files, audio files, and

ticker information. The "playlists" are designed and designated for groups, sub-groups, or

individual remote site central processing units 3.07.

The Phase I image processing component processes these "playlists" as they are

entered by the user and maintains an inventory (database) of file names located on each

remote computer. When a "playlist" is created by the user, the program determines which

remote site central processing units are to be included. The processing component then

compares the "playlist" with the file names of the addressed remote site central processing

units.

If files required to execute the "playlist" are not on a particular remote computer,

then the appropriate files are transmitted directly to the remote computer or they are

transmitted to a private web server 3.09. The "playlists" are also transmitted to the specified

remote site central processing units. Once a "playlist" is entered, the processing component ensures that requested files

are available to the data acquisition central processing unit. If they are not, an error message

is generated, and the user is prompted to download the necessary files to the data acquisition

central processing unit (or to a computer residing on the same network as the data

acquisition central processing unit).

The Phase I image processing component also contains sub-routines designed to

detect problematic occurrences at the transmitting site. These occurrences may be, but are

not limited to, a faulty Internet connection, a loss of feedback from a remote computer, or

a failure of one of the other programs running on the computer.

When problems are detected the program can send notification of these occurrences

to an appropriate service technician. These notifications can be in the form of, but are not

limited to, visual screen notification, e-mails, a transmission to a private web server, or a

signal sent to a pager.

The data acquisition central processing unit is designed with several redundant

systems. First and foremost is a fully-functional computer which contains a program to

verify the functionality of the data acquisition central processing unit. If any problems are

detected, a secondary computer will begin operations and take over all of the ticker and

image processing component transmission functions.

Several redundancies are in place for the private web server. Should the server fail

for any reason, another private web server will be automatically chosen and utilized in its

stead.

Figure 4 is a flow chart representing Phase II software functionality. The remote site

central processing units are currently operating in a Windows® environment, but the programming is not platform specific. Phase II software source code is immediately

provided to facilitate purposes of full and enabling invention disclosure.

'This form will not be visible. It will be running on the remote computer 'at the store locations Private Sub Receive()

'Open Internet Web Site and Download New Data for Ticker

'Open Internet Web Site and Download and Changes to Video Segments

'Open Satellite Files from Satellite Receiver (both data and video)

End Sub Private Sub Transmit()

'Transmit video feed to monitors on pumps.

'Transmit ticker to bottom portion of monitors on pumps.

'Ticker information will come from the data stream 'and will contain national news, sports scores, dow jones 'industrial avg., nasdaq avg., s&p500 avg., local news, 'local weather End Sub

VERSION 5.00 Begin VB.Form frmDataEnv Caption = "MediaVision Internet and Satellite Receiving"

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680 LinkTopic = "Forml"

ScaleHeight = 1 1115

ScaleWidth = 15240

StartUpPosition = 3 'Windows Default End VERSION 5.00

Begin {C0E45O35-5775-11DO-B388-00A0C9055D8E} DataEnvironmentl

ClientHeight = 5055

ClientLeft = 1080

ClientTop = 1500 ClientWidth = 6300

_ExtentX = 11113

_ExtentY = 8916

FolderFlags = 3

TypeLibGuid = "{A5DC9AF5-9235-11D1-B067-00DD01144174}" TypelnfoGuid = "{A5DC9AF6-9235-11D1-B067-00DD01144174}"

TypelnfoCookie = 0

Version = 4

NumConnections = 1

BeginProperty Connectionl ConnectionName = "Connectionl"

ConnDispId = 1001 SourceOfData = 3

QuoteChar = 34

SeparatorChar = 46

EndProperty

NumRecordsets = 0

End

VERSION 5.00

Begin {78E93846-85FD-11D0-8487-00A0C90DC8A9} DataReportl

Caption = "DataReportl"

ClientHeight = 8235

ClientLeft = 1650

ClientTop = 1545

ClientWidth = 6585

_ExtentX 11615

_ExtentY 14526

_Version = 393216

DesignerVersion= 100684101

BeginProperty Font {OBE35203-8F91-11CE-9DE3-OOAA004BB851 }

Name = "Arial"

Size = 8.25

Charset = 0

Weight ^: 400

Underline = 0 'False

Italic 0 'False

Strikethrough = 0 'False

EndProperty

GridX 10

GridY 10

LeftMargin = 1440

RightMargin = = 1440

TopMargin = 1440

BottomMargin = 1440

NumSections = 3

SectionCodeO = 2

BeginProperty SectionO {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}

_Version = 393216

Name = = "Section2"

Object.Height = 360

NumControls = 0

EndProperty

SectionCodel = 4

BeginProperty Sectionl {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}

_Version = 393216

Name = = "Sectionl"

Object.Height = 1440

NumControls = 0

EndProperty

SectionCode2 = 7

BeginProperty Section2 {1C13A8E0-A0B6-11D0-848E-00A0C90DC8A9}

_Version = 393216

Name = "Section3"

Object.Height = 360

NumControls = 0

EndProperty End

'sending a video file and ticker to monitors

Private Sub MMControll GotFocus() 'MMControll.Command = Open" 'MMControll.PlayVisible = True 'MMControll.PlayEnabled = True 'MMControll.Command = "Play" 'MMControllNisible = False

End Sub Private Sub MediaPlayerl_DVDΝotify(By Val EventCode As Long, ByVal EventParaml

As Long, ByVal EvenfParam2 As Long)

'This will play a video file taking up the majority of the screen as defined on the form

MediaPlayerl.FileName = "c:\windows\desktop\videol.mpg"

MediaPlayerl.Open MediaPlayerl.Stop

End Sub

Private Sub Ticker()

'Open data file containing ; raw text for ticker

'format data

'send to monitors

End Sub

VERSION 5.00

Object = "(22D6F304-B0F6-11D0 -94AB-008OC74C7E95)#1.0#0";"MSDXM.OCX"

Begin VB.Form Forml

Caption = "Forml'

ClientHeight = 3195

ClientLeft = 60

ClientTop = 345

ClientWidth = 4680

LinkTopic = "Forml"

ScaleHeight = 11115

ScaleWidth = 15240

StartUpPosition = 3 'Windows Default

WindowState = 2 'Maximized

Begin MediaPlayerCtl.MediaPlayer MediaPlayeri

Height = 10575

Left 240

Tablndex = 0

Top 120

Width = 14895

AudioStream = -1

AutoSize = 0 'False

AutoStart = -1 'True

AnimationAtStart -1 'True

AllowScan = -1 'True

AllowChangeDisplaySize : = -1 'True

AutoRewind = 0 'False

Balance = 0

BaseURL = BufferingTime = 5

CaptioningID = CKckToPlay -1 'True CursorType = 0 CurrentPosition = -1

CurrentMarker = 0

DefaultFrame =

DisplayBackColor 0 DisplayForeColor 16777215 DisplayMode = 0 DisplaySize = 3 Enabled = -1 'True

EnableContextMenu -1 'True

EnablePositionControls = -1 'True

EnableFullScreenControls = 0 'False

EnableTracker -1 'True

Filename = "c:\windows\desktop\video 6.mpg" InvokeURLs = -1 'True

Language = -1 Mute = 0 'False

PlayCount = 999 PreviewMode = 0 'False

Rate = 1

SAMILang

SAMIStyle SAMIFileName =

SelectionStart = -1

SelectionEnd = -1

SendOpenStateChangeEvents = -1 'True SendWarningEvents = -1 'True SendErrorEvents = -1 'True

SendKeyboardEvents = 0 'False SendMouseClickEvents = 0 'False

SendMouseMoveEvents = 0 'False

SendPlayStateChangeEvents = -1 'True ShowCaptioning = 0 'False ShowControls = 0 'False

ShowAudioControls -1 'True

ShowDisplay = 0 'False ShowGotoBar = 0 'False

ShowPositionControls -1 'True

ShowStatusBar = 0 'False

ShowTracker = -1 'True

TransparentAtStart 0 'False VideoBorderWidth 0

VideoBorderColor 0

VideoBorder3D = 0 'False

Volume = -600

WindowlessVideo 0 'False

End

End The remote site central processing units can utilize a dial-up connection or a high¬

speed Internet connection. The computer can communicate directly with the data acquisition

central processing unit via modem or NPN. It can also download information via FTP,

HTTP, or HTTPS protocols from the private web server on the Internet.

The remote site central processing units download the "playlists" designated for their

receipt 4.02. If a direct link is established with the data acquisition central processing unit,

then the necessary files (image, audio, ticker information) are also received 4.03.

If there is no direct link with the data acquisition central processing unit, then the

"playlist" is analyzed by the program. If the "playlist" refers to files which the remote

computer does not have on its hard disk, then the files are downloaded from the private web

server.

The ticker information is downloaded 4.06 or received very frequently (usually every

five to ten minutes). This facilitates the timely refreshing of news and other time-critical

information to the viewer.

All downloaded files are stored on the remote computer's hard drive 4.08. Audio

and video files are archived when not being used, but the ticker information is usually

overwritten as newer information is obtained.

The computer combines the ticker information with the image and audio files

according to the "playlist". A video and audio signal are created with this combined

information. This signal is sent to video monitors via a hard wire or RF signal as indicated

in the hardware description 4.10.

The ticker information is normally contained within a horizontal strip at the bottom

of the monitor's viewable screen area. However, the ticker can be placed at the top or in a vertical alignment. The remainder of the screen is filled with the appropriate video signal

corresponding to the "playlist".

The program also contains sub-routines designed to detect problematic occurrences

at the remote site 4.19. These occurrences may be, but are not limited to, a faulty Internet

connection, a loss of video or audio at a video screen, or a failure of one of the other

programs running on the computer.

to the appropriate service technician 4.20. These notifications can be in the form of, but are

not limited to, e-mails, a transmission to a private web server, or a signal sent to a pager.

In some instances, the screens may have sensors located on or near them. These

sensors include, but are not limited to, sonic, motion, or light. The sensors are software-

controlled via a communications port hub 4.23.

The sonic sensor measures the decibel level at each screen location. This

information is used by the program to control the audio volume which is sent to that screen

4.25.

The motion sensor detects when a vehicle (or a user-defined object) has approached

the screen 4.27. This information is used by the program to determine when the screen is

active or passive. The light sensor measures the radiance level at each screen location. This

information is used by the program to control the brightness and contrast of each screen

4.29.

The program is designed to allow for input from the viewer 4.32 (or user in this

instance) at each screen location. This input can be from, but is not limited to, a remote

keypad, a voice recognition system facilitated by a microphone, a receiver designed to detect

electronic signatures, an optical scanner, or a barcode reader. The keypad can be numeric or alpha-numeric 4.35. The data received by the remote

computer from the keypad can be utilized to respond to user queries, or to accumulate and

display information based upon user preferences.

A voice recognition system can be composed of a wide-area microphone at the

screen location. The microphone signal would be processed by a sound board or a

specialized speech-recognition card located within the computer. This signal is interpreted

via a combination of hardware and software technology. The data received by the remote

computer from the voice recognition technology can be utilized to respond to user queries,

or to recognize voice signatures which correspond to customizable user profiles.

An electronic signature can be detected by a receiver located at each screen location.

These electronic signatures can be generated by an RF device, or other user-specific

electronic transmitting mechanism. The electronic signature would be unique to each user

and would identify that user to the remote computer. Once identified, commercials or other

information can be tailored specifically for that individual based upon their profile.

An optical scanner or a barcode reader can be utilized to identify specific users and

customize information based upon their profile. An optical scanner or a barcode reader can

also be used for the purpose of reading coupons, "tickets", or other company-generated

written instruments. For example, a contest could be created and "tickets" printed up. The

"ticket" could be identified by the optical scanner or the barcode reader, and the user notified

as to whether or not they are a winner.

Video and video/audio cameras can be located at each screen or facing towards each screen

4.37. The signals from each camera can be wired through a video control box first or they

can be wired directly into a multi-function digital capture card in the computer. The signals

are segregated so that the program is aware of each individual video signal. These video/audio captures can be either time-lapsed or full-motion (up to 30 frames

per second, or fps). The captured digital images and sound can be stored locally on the

remote computer, streamed to another computer, or they can be transmitted to a private web

server for later retrieval by an employee or designated client 4.39.

The video and audio can be used for many purposes, including but not limited to,

security, contests, or verification of screen functionality.

When the audio/video is utilized as a security mechanism, the uses are many-fold.

The video/audio can be used to identify vehicles which drive away from the pump without

paying. It can be used to identify individuals who commit vandalism. It can be used to

identify robbery suspects, or persons attempting to harm the employees of a client.

The audio/video digital recording can also be used to identify vehicle tag numbers,

which can later be used to pick out the winner of a contest. This recording of vehicle tag

numbers is also an effective method of locating those who drive away from the pump

without paying (driveaways).

A very important aspect of the video/audio recording is the ability to detect and

trouble-shoot any problems with the screens. These cameras ensure that the screens are

projecting an image when they should be. If there is a problem, it can be easily determined

which screens are malfunctioning so that a service technician can be dispatched to make any

needed hardware repairs.

Finally, the cameras at or near the screens act as a deterrent to unlawful behavior.

They reduce the incidence of driveaways, and possibly even the number of robbery and

vandalism attempts at a client's location.

Figure 5 illustrates high level Phase I software 3 processes executing within the data

acquisition central processing unit 5, accessing and collecting via a network communication means a diverse plurality of geographically relevant information 5.05. Said collated

information is then displayed on a computer resident and accessible storage medium, such

as a web page 5.8. Accompanying video and still images 5.9 are provided as further records

and also displayed on said accessible storage medium 5.12. This information is then

combined 5.15 and is communicated via a computer recognizable and compatible

communication means via a transfer protocol such as FTP to a transceiver facility 5.17 for

subsequent processing by Phase II components of the instant invention. Phase II

components of the information are disclosed in association with Figure 6.

Figure 6 illustrates Phase II of the instant invention wherein the combined ticker,

video, still image file is transmitted to multiple geographically dispersed remote receiving

locations. As each segment (a.k.a. "record") of ticker, video and still image records contain

delineation control code inserted via first software processing, only codes matching those

of geographically relevant locations within a geographically dispersed area will receive and

be able to decode such information. Consequently, only information for an individual

remote station, group of stations, located within a neighborhood, city, town, country, etc.

will receive coded information. Such coded information is then processed by software

resident at the store location 6.5 and further transmitted via either RF signal or hard wire to

screens 6.10 or information presentation devices 6.15 approximate to fuel pump gassing

apparatuses. Such features of the display apparatuses are shown in conjunction with Figure

7.

In Figure 7 a display device 7.01 is presented. The screen display area is broken into

two general areas. A display area for photographs or images 7.15 and a display area for

textural images 7.20, 7.10 designates speaker areas for audio content accompanying said

display images or files. While this invention has been described to illustrative embodiments, this description

is not to be construed in a limiting sense. Various modifications and combinations of the

illustrative embodiments as well as other embodiments will be apparent to those skilled in

the art upon referencing this disclosure. It is therefore intended that this disclosure

encompass any such modifications or embodiments.

Alternate Embodiments

The foregoing description, for purposes of explanation, used specific nomenclature

to provide a thorough understanding of the invention. However, it will be apparent to one

skilled in the art that the specific details are not required in order to practice the invention.

In other instances, well known circuits and devices are shown in block diagram form in

order to avoid unnecessary distraction from the underlying invention. Thus, the foregoing

descriptions of specific embodiments of the present invention are presented for purposes of

illustration and description. They are not intended to be exhaustive or to limit the invention

to the precise forms disclosed, obviously many modifications and variations are possible in

view of the above teachings. The embodiments were chosen and described in order to best

explain the principles of the invention and its practical applications, to thereby enable others

skilled in the art to best utilize the invention and various embodiments with various

modifications as are suited to the particular use contemplated. It is intended that the scope

of the invention be defined by the following claims and their equivalents.

Further, the method and system described herein above is amenable for execution

on various types of executable mediums others than a memory device such as a random

access memory. Other types of executable mediums can be used, such as but not limited to,

a computer readable storage medium which can be any memory device, compact disc, or

floppy disk.

Claims

What Is Claimed Is:

1. An audiovisual presentation system to retrieve, dynamically modify and present

geographically relevant content to one or more discernible receiving locations within

a larger universe of such locations based on specified user criteria, said system

comprising:

at least one data acquisition general purpose computer comprising a central

processing unit and at least one video display unit and at least one input device

communicably attached to said central processing unit, said video display and input

device configured to facilitate user interaction with said central processing unit;

at least one data acquisition database in communication with said central

processing unit, video display and input device, said database permitting said user

to interactively store and manipulate said geographically relevant data based upon

said criteria;

first data acquisition and manipulation software residing and executing

within said data acquisition central processing unit to analyze said database based

upon said criteria specified by the user via said video display and input devices, said

software execution yielding geographically relevant and encoded audio and visual

content;

at least one receiving site general purpose computer comprising a central

device configured to facilitate user interaction with said receiving site central

processing unit; at least one receiving site content database in communication with said

receiving site central processing unit, video display and input device, said database

permitting said remote user to interactively store and manipulate geographically

relevant data;

a least one decoding means communicably attached to said data acquisition

and said receiving site general purpose computers, said decoding means facilitating

the acquisition of geographically relevant encoded information intended for

presentation to computer compatible audio and visual devices communicably

attached to said receiving site general purpose computer;

second data acquisition and manipulation software residing and executing

within said receiving site central processing unit to analyze said acquired

geographically relevant information , said second data acquisition and manipulation

software execution yielding a customized presentation of geographically relevant

audio, visual and text content upon computer compatible audio and visual devices

communicably attached to said receiving site general purpose computer.

2. The system as recited in claim 1 wherein said data acquisition and said receiving site

general purpose computers, are communicably attached via a computer compatible

communications network.

3. The system as recited in claim 1 wherein said input devices are computer keyboards

or computer mouses and said video displays are computer monitors.

4. The system as recited in claim 1 wherem said presented geographically relevant content is visually perceptible text data.

5. The system as recited in claim 1 wherein said presented geographically relevant content is audibly perceptible information.

6. The system as recited in claim 1 wherein said presented geographically relevant

content is motion video content.

7. The system as recited in claim 1 wherein said presented geographically relevant

content is a combined media presentation, said combined media selected from a

group including audibly perceptible information, motion video content and visually

perceptible text data.

8. An audiovisual presentation method to retrieve, dynamically modify and present

geographically relevant content to one or discernible receiving locations within a

larger universe of such locations based on specified user criteria, said method

comprising:

determining the scope and source of geographically relevant information to

be acquired via a computer compatible communications network;

communicating said scope and source of geographically relevant information

to be acquired to a first data acquisition and manipulation software means as data

acquisition determinants; executing said first data acquisition and manipulation software to acquire

said geographically relevant information based upon said communicated data

acquisition determinants ;

associating a encoded remote location identifier with acquired

geographically relevant information to facilitate selective reception of said acquired

geographically relevant information at one or more distinctly addressable remote

locations within a larger universe of such locations;

transmitting said encoded remote location identifier with said acquired

geographically relevant information to at least one receiving site general purpose

computer via a computer compatible communications network;

analyzing and manipulating via second data acquisition and manipulation

software said transmitted encoded remote location identifier and said acquired

geographically relevant information, said second software analysis and manipulation

yielding a customized presentation of geographically relevant audio, visual and text

content upon at least one computer compatible audio device and one computer

compatible visual display device communicably attached to said receiving site

general purpose central processing.

9. The method of Claim 8 wherein said transmitting of encoded remote location

identifier and said acquired geographically relevant information to at least one

receiving site general purpose computer is facilitated via the Internet.

10. The method of Claim 8 wherein said transmitting of encoded remote location

identifier and said acquired geographically relevant information to at least one receiving site general purpose computer is facilitated via at least one satellite

communication link and wherein said transmitted identifier and information is first

received by a satellite communication decoding means communicably attached to

said receiving site general purpose computer.

11. The method of Claim 8 wherein said transmitting of encoded remote location

receiving site general purpose computer is facilitated via the Internet and at least one

satellite communications link.

12. The method of Claim 8 wherein said analyzing and manipulating via second data

acquisition and manipulation software further includes integrating remotely stored

receiving site content with said transmitted encoded remote location identifier and

said acquired geographically relevant information to yield a customized presentation

of geographically relevant audio, visual and text content upon at least one computer

compatible audio device and computer compatible visual display device

communicably attached to said receiving site general purpose central processing

unit.

13. The method of Claim 8 further comprising the steps of:

scheduling the presentation of audio and visual content to said computer

compatible audio and computer compatible visual display devices communicably

attached to said receiving site general purpose central processing unit.

14. A computer readable medium encoded with a computer program for retrieving,

dynamically modifying and presenting geographically relevant content to one or

discernible receiving locations within a larger universe of such locations based on

specified user criteria, said method comprising collaboratively determining optimal

space utilization comprising:

a code segment for receiving determinants defining the scope and source of

geographically relevant information to be acquired via a computer compatible

communications network;

a code segment for acquiring said geographically relevant information based

upon said communicated data acquisition determinants;

a code segment for encoding a remote location identifier with acquired

locations within a larger universe of such locations; and

a code segment for transmitting said encoded remote location identifier with

said acquired geographically relevant information to at least one receiving site

general purpose computer via a computer compatible communications network.

15. The computer program of Claim 14 wherein said code segment for transmitting

encoded remote location identifier and acquired geographically relevant information

to at least one receiving site general purpose computer further comprises initiating

such transmission via the Internet.

16. The computer program of Claim 14 wherein said code segment for transmitting encoded remote location identifier and acquired geographically relevant information

such transmission via the Internet and at least one satellite communication link.

17. A computer readable medium encoded with a computer program for analyzing and

manipulating encoded remote location identifier and geographically relevant

information comprising:

a code segment for analyzing and manipulating said remote location

identifier and geographically relevant information, said analysis and manipulation

yielding a customized presentation of geographically relevant audio and visual

content upon at least one computer compatible audio and one computer compatible

visual display device communicably attached to a receiving site general purpose

central processing unit.

18. The program of Claim 17 wherein said code segment for analyzing and

manipulating further comprises integrating remotely stored receiving site content

with said transmitted encoded remote location identifier and said acquired

geographically relevant information to yield a customized presentation of

geographically relevant audio and visual content upon at least one computer

compatible audio and computer compatible visual display device communicably

attached to said receiving site general purpose central processing unit.