Application Statistics for PROGTOOL
----------------------------------------
Created  5/21/95 at  5:42PM
Changed  5/27/95 at 11:14AM

Procedure Statistics for PROGTOOL

  ======================================
  Procedure   DateSelect
  Type        FUNCTION
  Template    Window
  Description Monthly Calendar Function
  Created  5/21/95 at  8:00PM
  Changed  5/24/95 at  9:06PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    ForceRefresh         - LONG,AUTO
    Lcl:ActiveMenuItem   - SHORT
    Lcl:DateArray        - BYTE,DIM(6,7)
    Lcl:DayNum           - SHORT
    Lcl:DOWName          - STRING(9)
    Lcl:LowDayCol        - BYTE
    Lcl:MaxMonthDate     - BYTE
    Lcl:MonthName        - STRING(9)
    Lcl:MonthNames       - STRING(9),DIM(12)
    Lcl:OldWorkDate      - LONG
    Lcl:WorkDay          - BYTE
    Lcl:WorkDOW          - STRING(20)
    Lcl:WorkMonth        - SHORT
    Lcl:WorkYear         - SHORT
    Lcl:YearName         - STRING(4)
    LocalRequest         - LONG,AUTO
    LocalResponse        - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    WindowInitialized    - LONG
    WindowOpened         - LONG

    Templates
    ------------------------------------

    Controls
    ------------------------------------
    ?String3
    STRING('S'),AT(4,0,10,10),USE(?String3),CENTER
    ?String4
    STRING('M'),AT(16,0,10,10),USE(?String4),CENTER
    ?String5
    STRING('Tu'),AT(28,0,10,10),USE(?String5),CENTER
    ?String6
    STRING('W'),AT(40,0,10,10),USE(?String6),CENTER
    ?String7
    STRING('Th'),AT(52,0,10,10),USE(?String7),CENTER
    ?String8
    STRING('F'),AT(64,0,10,10),USE(?String8),CENTER
    ?String9
    STRING('Sa'),AT(76,0,10,10),USE(?String9),CENTER
    ?Button11
    BUTTON('11'),AT(4,8,12,12),USE(?Button11)
    ?Button12
    BUTTON('12'),AT(16,8,12,12),USE(?Button12)
    ?Button13
    BUTTON('13'),AT(28,8,12,12),USE(?Button13)
    ?Button14
    BUTTON('14'),AT(40,8,12,12),USE(?Button14)
    ?Button15
    BUTTON('15'),AT(52,8,12,12),USE(?Button15)
    ?Button16
    BUTTON('16'),AT(64,8,12,12),USE(?Button16)
    ?Button17
    BUTTON('17'),AT(76,8,12,12),USE(?Button17)
    ?Button21
    BUTTON('21'),AT(4,20,12,12),USE(?Button21)
    ?Button22
    BUTTON('22'),AT(16,20,12,12),USE(?Button22)
    ?Button23
    BUTTON('23'),AT(28,20,12,12),USE(?Button23)
    ?Button24
    BUTTON('24'),AT(40,20,12,12),USE(?Button24)
    ?Button25
    BUTTON('25'),AT(52,20,12,12),USE(?Button25)
    ?Button26
    BUTTON('26'),AT(64,20,12,12),USE(?Button26)
    ?Button27
    BUTTON('27'),AT(76,20,12,12),USE(?Button27)
    ?Button31
    BUTTON('31'),AT(4,32,12,12),USE(?Button31)
    ?Button32
    BUTTON('32'),AT(16,32,12,12),USE(?Button32)
    ?Button33
    BUTTON('33'),AT(28,32,12,12),USE(?Button33)
    ?Button34
    BUTTON('34'),AT(40,32,12,12),USE(?Button34)
    ?Button35
    BUTTON('35'),AT(52,32,12,12),USE(?Button35)
    ?Button36
    BUTTON('36'),AT(64,32,12,12),USE(?Button36)
    ?Button37
    BUTTON('37'),AT(76,32,12,12),USE(?Button37)
    ?Button41
    BUTTON('41'),AT(4,44,12,12),USE(?Button41)
    ?Button42
    BUTTON('42'),AT(16,44,12,12),USE(?Button42)
    ?Button43
    BUTTON('43'),AT(28,44,12,12),USE(?Button43)
    ?Button44
    BUTTON('44'),AT(40,44,12,12),USE(?Button44)
    ?Button45
    BUTTON('45'),AT(52,44,12,12),USE(?Button45)
    ?Button46
    BUTTON('46'),AT(64,44,12,12),USE(?Button46)
    ?Button47
    BUTTON('47'),AT(76,44,12,12),USE(?Button47)
    ?Button51
    BUTTON('51'),AT(4,56,12,12),USE(?Button51)
    ?Button52
    BUTTON('52'),AT(16,56,12,12),USE(?Button52)
    ?Button53
    BUTTON('53'),AT(28,56,12,12),USE(?Button53)
    ?Button54
    BUTTON('54'),AT(40,56,12,12),USE(?Button54)
    ?Button55
    BUTTON('55'),AT(52,56,12,12),USE(?Button55)
    ?Button56
    BUTTON('56'),AT(64,56,12,12),USE(?Button56)
    ?Button57
    BUTTON('57'),AT(76,56,12,12),USE(?Button57)
    ?Button61
    BUTTON('61'),AT(4,68,12,12),USE(?Button61)
    ?Button62
    BUTTON('62'),AT(16,68,12,12),USE(?Button62)
    ?Button63
    BUTTON('63'),AT(28,68,12,12),USE(?Button63)
    ?Button64
    BUTTON('64'),AT(40,68,12,12),USE(?Button64)
    ?Button65
    BUTTON('65'),AT(52,68,12,12),USE(?Button65)
    ?Button66
    BUTTON('66'),AT(64,68,12,12),USE(?Button66)
    ?Button67
    BUTTON('67'),AT(76,68,12,12),USE(?Button67)
    ?PrevMonth
    BUTTON('<<<<'),AT(4,80,12,12),USE(?PrevMonth)
    ?Lcl:MonthName
    STRING(@s20),AT(20,84,52,10),FONT('Times New Roman',10,,),USE(Lcl:MonthName),CENTER
    ?NextMonth
    BUTTON('>>'),AT(76,84,12,12),USE(?NextMonth)
    ?PrevYear
    BUTTON('<<<<'),AT(4,92,12,12),USE(?PrevYear)
    ?Lcl:YearName
    STRING(@s20),AT(20,96,52,10),FONT('Times New Roman',10,,),USE(Lcl:YearName),CENTER
    ?NextYear
    BUTTON('>>'),AT(76,96,12,12),USE(?NextYear)
    ?CancelButton
    BUTTON('Cancel'),AT(28,108,36,12),USE(?CancelButton)

  ======================================
  Procedure   DemoDate
  Type        PROCEDURE
  Template    Window
  Description Demo DateSelect Function
  Created  5/21/95 at  6:07PM
  Changed  5/24/95 at  9:06PM

    Procedures Called
    ------------------------------------
    DateSelect           - Monthly Calendar Function

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    Lcl:DateTestOne      - LONG
    Lcl:DateTestTwo      - LONG

    Templates
    ------------------------------------
    DateSelect(ProgTool)           - 1
    DateSelect(ProgTool)           - 2
    CloseCurrentWindow(Clarion)    - 3

    Controls
    ------------------------------------
    ?Lcl:DateTestOne:Prompt
    PROMPT('Test &One:'),AT(4,4,,),USE(?Lcl:DateTestOne:Prompt)
    ?Lcl:DateTestOne
    ENTRY(@d1b),AT(52,4,40,12),MSG('First Date Selection Test Field'),USE(Lcl:DateTestOne)
    ?DateSelectLookup
    Template DateSelect(ProgTool)
    BUTTON('...'),AT(92,4,12,12),MSG('Select Date'),USE(?DateSelectLookup)
    ?Lcl:DateTestTwo:Prompt
    PROMPT('Test &Two:'),AT(4,20,,),USE(?Lcl:DateTestTwo:Prompt)
    ?Lcl:DateTestTwo
    ENTRY(@d4b),AT(52,20,88,12),MSG('Second Date Test Field'),USE(Lcl:DateTestTwo)
    ?DateSelectLookup:1
    Template DateSelect(ProgTool)
    BUTTON('...'),AT(140,20,12,12),MSG('Select Date'),USE(?DateSelectLookup:1)
    ?CloseButton
    BUTTON('&Close'),AT(112,4,40,12),USE(?CloseButton)

  ======================================
  Procedure   DemoMsgBox
  Type        PROCEDURE
  Template    Window
  Description Message Box Template Demos
  Created  5/21/95 at  6:07PM
  Changed  5/24/95 at  9:09PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO

    Templates
    ------------------------------------
    CloseCurrentWindow(Clarion)    - 1
    MessageBox(ProgTool)           - 2
    MessageBox(ProgTool)           - 3

    Controls
    ------------------------------------
    ?Demo1
    BUTTON('&Demo 1'),AT(4,4,40,12),USE(?Demo1)
    ?Demo2
    BUTTON('Demo &2'),AT(56,4,40,12),USE(?Demo2)
    ?Close
    BUTTON('&Close'),AT(108,4,40,12),USE(?Close)

  ======================================
  Procedure   DemoTimeMsg
  Type        PROCEDURE
  Template    Window
  Description Timed Message Box Template Demos
  Created  5/21/95 at  6:09PM
  Changed  5/24/95 at  9:07PM

    Procedures Called
    ------------------------------------
    TimedMessage         - Automatic Message Display and Close

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    Lcl:ReturnValue      - BYTE
    Lcl:ReturnString     - STRING(41)

    Templates
    ------------------------------------
    CloseCurrentWindow(Clarion)    - 1
    TimedMessage(ProgTool)         - 2

    Controls
    ------------------------------------
    ?Demo1
    BUTTON('&Demo'),AT(4,16,40,12),USE(?Demo1)
    ?Lcl:ReturnString
    STRING(@s41),AT(4,4,168,10),USE(Lcl:ReturnString)
    ?Close
    BUTTON('&Close'),AT(52,16,40,12),USE(?Close)

  ======================================
  Procedure   GraphicsView
  Type        PROCEDURE
  Template    Window
  Description View a Graphic
  Created  5/21/95 at  8:00PM
  Changed  5/24/95 at  9:08PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    DOSDialogHeader      - CSTRING(40)
    DOSExtParameter      - CSTRING(250)
    DOSTargetVariable    - CSTRING(80)
    GraphicFile          - STRING(60)
    OriginalRequest      - LONG,AUTO
    ForceRefresh         - LONG,AUTO
    WindowInitialized    - LONG

    Templates
    ------------------------------------
    DOSFileLookup(Clarion)         - 1

    Controls
    ------------------------------------
    ?LookupFile
    Template DOSFileLookup(Clarion)
    BUTTON('...'),AT(0,0,12,12),USE(?LookupFile),DEFAULT
    ?Image1
    IMAGE,AT(0,15,,),USE(?Image1),FULL

  ======================================
  Procedure   HelpAbout
  Type        PROCEDURE
  Template    Window
  Description Show Author Information
  Created  5/21/95 at  6:11PM
  Changed  5/24/95 at  9:07PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    OriginalRequest      - LONG,AUTO
    ForceRefresh         - LONG,AUTO
    WindowInitialized    - LONG

    Templates
    ------------------------------------

    Controls
    ------------------------------------
    ?Group1
    GROUP,AT(4,0,148,68),USE(?Group1),BOXED
    ?String1
    STRING('Programmer''s Toolkit'),AT(8,8,140,20),FONT('Times New Roman',20,0FFFFH,FONT:bold+FONT:italic),USE(?String1),CENTER
    ?String2
    STRING('Written by Don Childers'),AT(32,24,111,10),FONT('Arial',14,0FFH,),USE(?String2),CENTER
    ?String5
    STRING('email 73170,2610 @ compuserve.com'),AT(32,36,,),USE(?String5)
    ?Image1
    IMAGE('C:\DEVW\DRPROFIT\CRDFLE10.ICO'),AT(12,24,15,16),USE(?Image1)
    ?OkButton
    BUTTON('OK'),AT(104,48,40,12),USE(?OkButton),DEFAULT
    ?String6
    STRING('Version'),AT(12,48,,),USE(?String6)
    ?Glo:AppVersion
    STRING(@n5.2b),AT(44,48,20,10),FONT('Arial',,08000H,),USE(Glo:AppVersion)

  ======================================
  Procedure   Main
  Type        PROCEDURE
  Template    Frame
  Description Programmers Toolkit Frame
  Created  5/21/95 at  5:43PM
  Changed  5/24/95 at  9:09PM

    Procedures Called
    ------------------------------------
    PeoView              - Browse People
    DemoDate             - Demo DateSelect Function
    DemoMsgBox           - Message Box Template Demos
    DemoTimeMsg          - Timed Message Box Template Demos
    HelpAbout            - Show Author Information
    ViewTextFile         - View a text file
    GraphicsView         - View a Graphic
    PeoReport            - Rolodex Report

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO

    Templates
    ------------------------------------
    DateTimeDisplay(Clarion)       - 1

    Controls
    ------------------------------------
    ?FileMenu
    MENU('&File'),USE(?FileMenu)
    ?PeoView
    ITEM('&People'),USE(?PeoView),MSG('Browse People')
    
    ITEM,SEPARATOR
    ?PrintSetup
    ITEM('P&rint Setup...'),USE(?PrintSetup),MSG('Setup Printer'),STD(STD:PrintSetup)
    ?Exit
    ITEM('E&xit'),USE(?Exit),MSG('Exit this application'),STD(STD:Close)
    ?Demos
    MENU('&Demos'),USE(?Demos),MSG('Additional Toolkit Demonstrations')
    ?DemoGuide
    ITEM('&Demo Guide'),USE(?DemoGuide),MSG('Guide to Built-in Demonstrations')
    ?Item21
    ITEM('Item&21'),USE(?Item21),SEPARATOR
    ?AppStats
    ITEM('&AppStats Example'),USE(?AppStats),MSG('View sample AppStats output')
    ?Comments
    ITEM('&Comments Example'),USE(?Comments),MSG('Programmer Comments Example')
    ?DataList
    ITEM('Data&List Example'),USE(?DataList),MSG('View sample DataList Output')
    ?DemoDate
    ITEM('Date &Selection'),USE(?DemoDate),MSG('Date Selection Demo')
    ?GraphicsView
    ITEM('&Graphics Viewer'),USE(?GraphicsView),MSG('View Graphics Files')
    ?DemoMsgBox
    ITEM('&Message Box'),USE(?DemoMsgBox),MSG('Message Box demonstrations')
    ?DemoTimeMsg
    ITEM('&Timed Message'),USE(?DemoTimeMsg),MSG('Timed Message Box demonstration')
    ?Reports
    MENU('&Reports'),USE(?Reports),MSG('Print Reports')
    ?PeoReport
    ITEM('&Rolodex Report'),USE(?PeoReport),MSG('Print Rolodex Report')
    ?EditMenu
    MENU('&Edit'),USE(?EditMenu)
    ?Cut
    ITEM('Cu&t'),USE(?Cut),MSG('Remove item to Windows Clipboard'),STD(STD:Cut)
    ?Copy
    ITEM('&Copy'),USE(?Copy),MSG('Copy item to Windows Clipboard'),STD(STD:Copy)
    ?Paste
    ITEM('&Paste'),USE(?Paste),MSG('Paste contents of Windows Clipboard'),STD(STD:Paste)
    
    MENU('&Window'),MSG('Create and Arrange windows')
    ?Tile
    ITEM('T&ile'),USE(?Tile),MSG('Make all open windows visible'),STD(STD:TileWindow)
    ?Cascade
    ITEM('&Cascade'),USE(?Cascade),MSG('Stack all open windows'),STD(STD:CascadeWindow)
    ?Arrange
    ITEM('&Arrange Icons'),USE(?Arrange),MSG('Align all window icons'),STD(STD:ArrangeIcons)
    
    MENU('&Help'),MSG('Windows Help')
    ?HelpAbout
    ITEM('&About'),USE(?HelpAbout),MSG('About Programmer''s Toolkit')
    ?Helpindex
    ITEM('&Contents'),USE(?Helpindex),MSG('View the contents of the help file'),STD(STD:HelpIndex)
    ?HelpSearch
    ITEM('&Search for Help On...'),USE(?HelpSearch),MSG('Search for help on a subject'),STD(STD:HelpSearch)
    ?HelpOnHelp
    ITEM('&How to Use Help'),USE(?HelpOnHelp),MSG('How to use Windows Help'),STD(STD:HelpOnHelp)

  ======================================
  Procedure   NtsEdit
  Type        PROCEDURE
  Template    Form
  Description Edit Miscellanous Notes
  Created  5/21/95 at  8:50PM
  Changed  5/24/95 at  9:06PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    ActionMessage        - CSTRING(40)
    RecordChanged        - BYTE,AUTO

    Templates
    ------------------------------------
    SaveButton(Clarion)            - 1
    CancelButton(Clarion)          - 2
    RecordValidation(Clarion)      - 3
    TimeStamp(ProgTool)            - 4

    Controls
    ------------------------------------
    ?Nts:EditDate
    STRING(@d1b),AT(40,100,,),FONT('Arial',,08000H,),USE(Nts:EditDate)
    ?String4
    STRING('at'),AT(72,100,,),USE(?String4)
    ?Nts:EditTime
    STRING(@t3b),AT(84,100,,),FONT('Arial',,08000H,),USE(Nts:EditTime)
    ?Nts:Notes:Prompt
    PROMPT('&Notes:'),AT(4,4,,),USE(?Nts:Notes:Prompt)
    ?Nts:Notes
    TEXT,AT(4,16,128,64),MSG('Meo containing notes'),USE(Nts:Notes),VSCROLL,OVR
    ?StampButton
    Template TimeStamp(ProgTool)
    BUTTON('&Stamp'),AT(92,84,40,12),MSG('Add Date and Time to Memo'),USE(?StampButton)
    ?String3
    STRING('Added on'),AT(4,100,,),USE(?String3)
    ?OK
    Template SaveButton(Clarion)
    BUTTON('&OK'),AT(4,84,40,12),USE(?OK),DEFAULT,REQ
    ?Cancel
    Template CancelButton(Clarion)
    BUTTON('&Cancel'),AT(48,84,40,12),USE(?Cancel)

  ======================================
  Procedure   NtsView
  Type        PROCEDURE
  Template    Browse
  Description View Miscellaneous Notes
  Created  5/21/95 at  8:46PM
  Changed  5/24/95 at  9:06PM

    Procedures Called
    ------------------------------------
    NtsEdit              - Edit Miscellanous Notes

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    RecordFiltered       - LONG

    Templates
    ------------------------------------
    BrowseBox(Clarion)             - 1
    BrowseSelectButton(Clarion)    - 3
    BrowseUpdateButtons(Clarion)   - 2
    CloseButton(Clarion)           - 4

    Controls
    ------------------------------------
    ?List
    Template BrowseBox(Clarion)
    LIST,AT(4,4,200,100),MSG('Browsing Records'),USE(?List),IMM,HVSCROLL,FORMAT('200L~Notes~@s255@'),FROM(Queue:Browse)
    ?Insert
    Template BrowseUpdateButtons(Clarion)
    BUTTON('&Insert'),AT(4,108,40,12),KEY(InsertKey),USE(?Insert)
    ?Change
    Template BrowseUpdateButtons(Clarion)
    BUTTON('C&hange'),AT(44,108,40,12),KEY(CtrlEnter),USE(?Change),DEFAULT
    ?Delete
    Template BrowseUpdateButtons(Clarion)
    BUTTON('&Delete'),AT(84,108,40,12),KEY(DeleteKey),USE(?Delete)
    ?Select
    Template BrowseSelectButton(Clarion)
    BUTTON('&Select'),AT(124,108,40,12),KEY(EnterKey),USE(?Select)
    ?Close
    Template CloseButton(Clarion)
    BUTTON('&Close'),AT(164,108,40,12),USE(?Close)

  ======================================
  Procedure   PbkEdit
  Type        PROCEDURE
  Template    Form
  Description Edit Phonebook
  Created  5/21/95 at  9:30PM
  Changed  5/24/95 at  9:05PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    ActionMessage        - CSTRING(40)
    RecordChanged        - BYTE,AUTO

    Templates
    ------------------------------------
    SaveButton(Clarion)            - 1
    CancelButton(Clarion)          - 2
    RecordValidation(Clarion)      - 3

    Controls
    ------------------------------------
    ?Pbk:Desc:Prompt
    PROMPT('&Desc:'),AT(4,4,,),USE(?Pbk:Desc:Prompt)
    ?Pbk:Desc
    ENTRY(@s20),AT(32,4,88,12),MSG('Description'),USE(Pbk:Desc),OVR,CAP
    ?OK
    Template SaveButton(Clarion)
    BUTTON('&OK'),AT(32,20,40,12),USE(?OK),DEFAULT,REQ
    ?Cancel
    Template CancelButton(Clarion)
    BUTTON('&Cancel'),AT(80,20,40,12),USE(?Cancel)

  ======================================
  Procedure   PbkView
  Type        PROCEDURE
  Template    Browse
  Description Browse Phonebooks
  Created  5/21/95 at  9:27PM
  Changed  5/24/95 at  9:05PM

    Procedures Called
    ------------------------------------
    PbkEdit              - Edit Phonebook

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    RecordFiltered       - LONG

    Templates
    ------------------------------------
    BrowseBox(Clarion)             - 1
    BrowseSelectButton(Clarion)    - 3
    BrowseUpdateButtons(Clarion)   - 2
    CloseButton(Clarion)           - 4

    Controls
    ------------------------------------
    ?List
    Template BrowseBox(Clarion)
    LIST,AT(4,4,88,92),MSG('Browsing Phonebooks'),USE(?List),IMM,VSCROLL,FORMAT('80L~Description~@s20@'),FROM(Queue:Browse)
    ?Insert
    Template BrowseUpdateButtons(Clarion)
    BUTTON('&Insert'),AT(96,4,40,12),KEY(InsertKey),USE(?Insert)
    ?Change
    Template BrowseUpdateButtons(Clarion)
    BUTTON('C&hange'),AT(96,20,40,12),KEY(CtrlEnter),USE(?Change),DEFAULT
    ?Delete
    Template BrowseUpdateButtons(Clarion)
    BUTTON('&Delete'),AT(96,36,40,12),KEY(DeleteKey),USE(?Delete)
    ?Select
    Template BrowseSelectButton(Clarion)
    BUTTON('&Select'),AT(96,52,40,12),KEY(EnterKey),USE(?Select)
    ?Close
    Template CloseButton(Clarion)
    BUTTON('&Close'),AT(96,84,40,12),USE(?Close)

  ======================================
  Procedure   PeoEdit
  Type        PROCEDURE
  Template    Form
  Description Edit a person
  Created  5/21/95 at  6:13PM
  Changed  5/24/95 at  9:04PM

    Procedures Called
    ------------------------------------
    TelView              - Browse Telephone Numbers
    PbkView              - Browse Phonebooks
    NtsView              - View Miscellaneous Notes

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    ActionMessage        - CSTRING(40)
    RecordChanged        - BYTE,AUTO
    Lcl:Phonebook        - STRING(20)

    Templates
    ------------------------------------
    SaveButton(Clarion)            - 1
    CancelButton(Clarion)          - 2
    RecordValidation(Clarion)      - 3
    MiscNotes(ProgTool)            - 4
    LookupButton(ProgTool)         - 5

    Controls
    ------------------------------------
    ?Peo:LastName:Prompt
    PROMPT('&Last Name:'),AT(4,4,,),USE(?Peo:LastName:Prompt)
    ?Peo:LastName
    ENTRY(@s20),AT(52,4,88,12),MSG('Last Name'),USE(Peo:LastName),OVR,CAP
    ?Peo:RolSysID
    STRING(@n_6),AT(156,4,,),FONT('Arial',,08000H,),USE(Peo:RolSysID)
    ?Peo:FirstName:Prompt
    PROMPT('&First Name:'),AT(4,20,,),USE(?Peo:FirstName:Prompt)
    ?Peo:FirstName
    ENTRY(@s20),AT(52,20,88,12),MSG('First Name'),USE(Peo:FirstName),OVR,CAP
    ?Phones
    BUTTON('&Phones'),AT(148,20,40,12),USE(?Phones)
    ?Peo:Company:Prompt
    PROMPT('Co&mpany:'),AT(4,36,,),USE(?Peo:Company:Prompt)
    ?Peo:Company
    ENTRY(@s40),AT(52,36,140,12),MSG('Company Name'),USE(Peo:Company),OVR,CAP
    ?Peo:Position:Prompt
    PROMPT('P&osition:'),AT(4,52,,),USE(?Peo:Position:Prompt)
    ?Peo:Position
    ENTRY(@s40),AT(52,52,140,12),MSG('Job Position'),USE(Peo:Position),OVR,CAP
    ?LookupButton
    Template LookupButton(ProgTool)
    BUTTON('Phone&book'),AT(4,68,40,12),MSG('Lookup %FileDescription'),USE(?LookupButton)
    ?Lcl:Phonebook
    STRING(@s20),AT(52,68,,),FONT('Arial',,0FF0000H,),USE(Lcl:Phonebook)
    ?NotesButton
    Template MiscNotes(ProgTool)
    BUTTON('&Notes'),AT(164,76,24,20),MSG('Add miscellaneous notes'),USE(?NotesButton)
    ?OK
    Template SaveButton(Clarion)
    BUTTON('&OK'),AT(52,84,40,12),USE(?OK),DEFAULT,REQ
    ?Cancel
    Template CancelButton(Clarion)
    BUTTON('&Cancel'),AT(108,84,40,12),USE(?Cancel)

  ======================================
  Procedure   PeoReport
  Type        PROCEDURE
  Template    Report
  Description Rolodex Report
  Created  5/21/95 at  9:57PM
  Changed  5/23/95 at  8:28PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    RejectRecord         - LONG,AUTO
    LocalRequest         - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG,AUTO
    RecordsToProcess     - LONG,AUTO
    RecordsProcessed     - LONG,AUTO
    RecordsPerCycle      - LONG,AUTO
    RecordsThisCycle     - LONG,AUTO
    PercentProgress      - DECIMAL(4,1)
    RecordStatus         - BYTE,AUTO
    Lcl:FullName         - STRING(25)
    Lcl:RptDate          - LONG
    Lcl:RptTime          - LONG

    Templates
    ------------------------------------
    LoopThruChild(ProgTool)        - 1

    Controls
    ------------------------------------

  ======================================
  Procedure   PeoView
  Type        PROCEDURE
  Template    Browse
  Description Browse People
  Created  5/21/95 at  6:01PM
  Changed  5/27/95 at 11:14AM

    Procedures Called
    ------------------------------------
    PeoEdit              - Edit a person

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    RecordFiltered       - LONG
    Lcl:FullName         - STRING(25)

    Templates
    ------------------------------------
    BrowseBox(Clarion)             - 1
    BrowseSelectButton(Clarion)    - 3
    BrowseUpdateButtons(Clarion)   - 2
    CloseButton(Clarion)           - 4
    ScaleWindow(ProgTool)          - 5
    CommentBlock(ProgTool)         - 6

    Controls
    ------------------------------------
    ?List
    Template BrowseBox(Clarion)
    LIST,AT(4,4,88,92),MSG('Browsing Records'),USE(?List),IMM,VSCROLL,FORMAT('100L~Name~@s25@'),FROM(Queue:Browse)
    ?Insert
    Template BrowseUpdateButtons(Clarion)
    BUTTON('&Insert'),AT(96,4,40,12),KEY(InsertKey),USE(?Insert)
    ?Change
    Template BrowseUpdateButtons(Clarion)
    BUTTON('C&hange'),AT(96,20,40,12),KEY(CtrlEnter),USE(?Change),DEFAULT
    ?Delete
    Template BrowseUpdateButtons(Clarion)
    BUTTON('&Delete'),AT(96,36,40,12),KEY(DeleteKey),USE(?Delete)
    ?Select
    Template BrowseSelectButton(Clarion)
    BUTTON('&Select'),AT(96,52,40,12),KEY(EnterKey),USE(?Select)
    ?Close
    Template CloseButton(Clarion)
    BUTTON('&Close'),AT(96,84,40,12),USE(?Close)

  ======================================
  Procedure   TelEdit
  Type        PROCEDURE
  Template    Form
  Description Edit Telephone Number
  Created  5/22/95 at  8:50PM
  Changed  5/24/95 at  9:05PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    ActionMessage        - CSTRING(40)
    RecordChanged        - BYTE,AUTO

    Templates
    ------------------------------------
    SaveButton(Clarion)            - 1
    CancelButton(Clarion)          - 2
    RecordValidation(Clarion)      - 3

    Controls
    ------------------------------------
    ?TEL:RolSysID
    STRING(@n_4),AT(76,20,,),FONT('Arial',,08000H,),USE(TEL:RolSysID)
    ?TEL:Location:Prompt
    PROMPT('&Location:'),AT(4,4,,),USE(?TEL:Location:Prompt)
    ?TEL:Location
    ENTRY(@s10),AT(48,4,,),MSG('Location of Telephone'),USE(TEL:Location),OVR,CAP
    ?TEL:Area:Prompt
    PROMPT('&Area:'),AT(4,20,,),USE(?TEL:Area:Prompt)
    ?TEL:Area
    ENTRY(@p(<<<)pb),AT(48,20,,),MSG('Area Code'),USE(TEL:Area),INS
    ?TEL:Phone:Prompt
    PROMPT('&Phone:'),AT(4,36,,),USE(?TEL:Phone:Prompt)
    ?TEL:Phone
    ENTRY(@p###-####pb),AT(48,36,,),MSG('Telephone Number'),USE(TEL:Phone),INS
    ?OK
    Template SaveButton(Clarion)
    BUTTON('&OK'),AT(4,52,40,12),USE(?OK),DEFAULT,REQ
    ?Cancel
    Template CancelButton(Clarion)
    BUTTON('&Cancel'),AT(56,52,40,12),USE(?Cancel)

  ======================================
  Procedure   TelView
  Type        PROCEDURE
  Template    Browse
  Description Browse Telephone Numbers
  Created  5/22/95 at  8:49PM
  Changed  5/24/95 at  9:05PM

    Procedures Called
    ------------------------------------
    TelEdit              - Edit Telephone Number

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    RecordFiltered       - LONG

    Templates
    ------------------------------------
    BrowseBox(Clarion)             - 1
    BrowseSelectButton(Clarion)    - 3
    BrowseUpdateButtons(Clarion)   - 2
    CloseButton(Clarion)           - 4

    Controls
    ------------------------------------
    ?List
    Template BrowseBox(Clarion)
    LIST,AT(4,4,112,76),MSG('Browsing Telephone Numbers'),USE(?List),IMM,HVSCROLL,FORMAT('46L~Location~@s10@20L~Area~@p(<<<<<<)pb@32L~Phone~@p###-####pb@'),FROM(Queue:Browse)
    ?Insert
    Template BrowseUpdateButtons(Clarion)
    BUTTON('&Insert'),AT(120,4,40,12),KEY(InsertKey),USE(?Insert)
    ?Change
    Template BrowseUpdateButtons(Clarion)
    BUTTON('C&hange'),AT(120,20,40,12),KEY(CtrlEnter),USE(?Change),DEFAULT
    ?Delete
    Template BrowseUpdateButtons(Clarion)
    BUTTON('&Delete'),AT(120,36,40,12),KEY(DeleteKey),USE(?Delete)
    ?Select
    Template BrowseSelectButton(Clarion)
    BUTTON('&Select'),AT(120,52,40,12),KEY(EnterKey),USE(?Select)
    ?Close
    Template CloseButton(Clarion)
    BUTTON('&Close'),AT(120,68,40,12),USE(?Close)

  ======================================
  Procedure   TimedMessage
  Type        FUNCTION
  Template    Window
  Description Automatic Message Display and Close
  Created  5/23/95 at  8:56PM
  Changed  5/24/95 at  9:07PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    Lcl:Text             - STRING(60)
    Lcl:Icon             - LONG
    Lcl:ReturnValue      - LONG
    Lcl:Delay            - LONG
    Lcl:TimeLeft         - LONG
    Lcl:TargetTime       - LONG

    Templates
    ------------------------------------
    CloseCurrentWindow(Clarion)    - 1

    Controls
    ------------------------------------
    ?Lcl:Text
    STRING(@s60),AT(4,4,248,10),FONT(,,0FF0000H,),USE(Lcl:Text),CENTER
    ?Button1
    BUTTON('Button 1'),AT(116,16,28,28),USE(?Button1),ICON('CLOCK.ICO')
    ?Lcl:TimeLeft
    STRING(@t4b),AT(156,24,36,10),USE(Lcl:TimeLeft)

  ======================================
  Procedure   ViewTextFile
  Type        PROCEDURE
  Template    Viewer
  Description View a text file
  Created  5/21/95 at  6:32PM
  Changed  5/24/95 at  9:15PM

    Procedures Called
    ------------------------------------

    Local Data
    ------------------------------------
    LocalRequest         - LONG,AUTO
    OriginalRequest      - LONG,AUTO
    LocalResponse        - LONG,AUTO
    WindowOpened         - LONG
    WindowInitialized    - LONG
    ForceRefresh         - LONG,AUTO
    ASCIIFileSize        - LONG
    ASCIIBytesThisRead   - LONG
    ASCIIBytesRead       - LONG
    ASCIIBytesThisCycle  - LONG
    ASCIIPercentProgress - BYTE

    Templates
    ------------------------------------
    ASCIIBox(Clarion)              - 1
    ASCIIPrintButton(Clarion)      - 4
    ASCIISearchButton(Clarion)     - 3
    CloseButton(Clarion)           - 2
    ScaleWindow(ProgTool)          - 5

    Controls
    ------------------------------------
    ?AsciiBox
    Template ASCIIBox(Clarion)
    LIST,AT(4,4,336,108),FONT('FixedSys',9,,FONT:regular),USE(?AsciiBox),HVSCROLL,FROM(Queue:ASCII)
    ?ASCIIPrint
    Template ASCIIPrintButton(Clarion)
    BUTTON('&Print'),AT(184,116,40,12),USE(?ASCIIPrint)
    ?ASCIISearch
    Template ASCIISearchButton(Clarion)
    BUTTON('&Find...'),AT(224,116,40,12),USE(?ASCIISearch)
    ?ASCIIRepeat
    Template ASCIISearchButton(Clarion)
    BUTTON('Find &Next'),AT(264,116,40,12),USE(?ASCIIRepeat)
    ?Close
    Template CloseButton(Clarion)
    BUTTON('&Close'),AT(304,116,36,12),USE(?Close)
