home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1996 May / PCDMAY.ISO / software / clarion / 3rdparty / tools / library / prgtools.exe / APPSTATS.TXT next >
Encoding:
Text File  |  1995-05-27  |  32.2 KB  |  995 lines
  1. Application Statistics for PROGTOOL
  2. ----------------------------------------
  3. Created  5/21/95 at  5:42PM
  4. Changed  5/27/95 at 11:14AM
  5.  
  6. Procedure Statistics for PROGTOOL
  7.  
  8.   ======================================
  9.   Procedure   DateSelect
  10.   Type        FUNCTION
  11.   Template    Window
  12.   Description Monthly Calendar Function
  13.   Created  5/21/95 at  8:00PM
  14.   Changed  5/24/95 at  9:06PM
  15.  
  16.     Procedures Called
  17.     ------------------------------------
  18.  
  19.     Local Data
  20.     ------------------------------------
  21.     ForceRefresh         - LONG,AUTO
  22.     Lcl:ActiveMenuItem   - SHORT
  23.     Lcl:DateArray        - BYTE,DIM(6,7)
  24.     Lcl:DayNum           - SHORT
  25.     Lcl:DOWName          - STRING(9)
  26.     Lcl:LowDayCol        - BYTE
  27.     Lcl:MaxMonthDate     - BYTE
  28.     Lcl:MonthName        - STRING(9)
  29.     Lcl:MonthNames       - STRING(9),DIM(12)
  30.     Lcl:OldWorkDate      - LONG
  31.     Lcl:WorkDay          - BYTE
  32.     Lcl:WorkDOW          - STRING(20)
  33.     Lcl:WorkMonth        - SHORT
  34.     Lcl:WorkYear         - SHORT
  35.     Lcl:YearName         - STRING(4)
  36.     LocalRequest         - LONG,AUTO
  37.     LocalResponse        - LONG,AUTO
  38.     OriginalRequest      - LONG,AUTO
  39.     WindowInitialized    - LONG
  40.     WindowOpened         - LONG
  41.  
  42.     Templates
  43.     ------------------------------------
  44.  
  45.     Controls
  46.     ------------------------------------
  47.     ?String3
  48.     STRING('S'),AT(4,0,10,10),USE(?String3),CENTER
  49.     ?String4
  50.     STRING('M'),AT(16,0,10,10),USE(?String4),CENTER
  51.     ?String5
  52.     STRING('Tu'),AT(28,0,10,10),USE(?String5),CENTER
  53.     ?String6
  54.     STRING('W'),AT(40,0,10,10),USE(?String6),CENTER
  55.     ?String7
  56.     STRING('Th'),AT(52,0,10,10),USE(?String7),CENTER
  57.     ?String8
  58.     STRING('F'),AT(64,0,10,10),USE(?String8),CENTER
  59.     ?String9
  60.     STRING('Sa'),AT(76,0,10,10),USE(?String9),CENTER
  61.     ?Button11
  62.     BUTTON('11'),AT(4,8,12,12),USE(?Button11)
  63.     ?Button12
  64.     BUTTON('12'),AT(16,8,12,12),USE(?Button12)
  65.     ?Button13
  66.     BUTTON('13'),AT(28,8,12,12),USE(?Button13)
  67.     ?Button14
  68.     BUTTON('14'),AT(40,8,12,12),USE(?Button14)
  69.     ?Button15
  70.     BUTTON('15'),AT(52,8,12,12),USE(?Button15)
  71.     ?Button16
  72.     BUTTON('16'),AT(64,8,12,12),USE(?Button16)
  73.     ?Button17
  74.     BUTTON('17'),AT(76,8,12,12),USE(?Button17)
  75.     ?Button21
  76.     BUTTON('21'),AT(4,20,12,12),USE(?Button21)
  77.     ?Button22
  78.     BUTTON('22'),AT(16,20,12,12),USE(?Button22)
  79.     ?Button23
  80.     BUTTON('23'),AT(28,20,12,12),USE(?Button23)
  81.     ?Button24
  82.     BUTTON('24'),AT(40,20,12,12),USE(?Button24)
  83.     ?Button25
  84.     BUTTON('25'),AT(52,20,12,12),USE(?Button25)
  85.     ?Button26
  86.     BUTTON('26'),AT(64,20,12,12),USE(?Button26)
  87.     ?Button27
  88.     BUTTON('27'),AT(76,20,12,12),USE(?Button27)
  89.     ?Button31
  90.     BUTTON('31'),AT(4,32,12,12),USE(?Button31)
  91.     ?Button32
  92.     BUTTON('32'),AT(16,32,12,12),USE(?Button32)
  93.     ?Button33
  94.     BUTTON('33'),AT(28,32,12,12),USE(?Button33)
  95.     ?Button34
  96.     BUTTON('34'),AT(40,32,12,12),USE(?Button34)
  97.     ?Button35
  98.     BUTTON('35'),AT(52,32,12,12),USE(?Button35)
  99.     ?Button36
  100.     BUTTON('36'),AT(64,32,12,12),USE(?Button36)
  101.     ?Button37
  102.     BUTTON('37'),AT(76,32,12,12),USE(?Button37)
  103.     ?Button41
  104.     BUTTON('41'),AT(4,44,12,12),USE(?Button41)
  105.     ?Button42
  106.     BUTTON('42'),AT(16,44,12,12),USE(?Button42)
  107.     ?Button43
  108.     BUTTON('43'),AT(28,44,12,12),USE(?Button43)
  109.     ?Button44
  110.     BUTTON('44'),AT(40,44,12,12),USE(?Button44)
  111.     ?Button45
  112.     BUTTON('45'),AT(52,44,12,12),USE(?Button45)
  113.     ?Button46
  114.     BUTTON('46'),AT(64,44,12,12),USE(?Button46)
  115.     ?Button47
  116.     BUTTON('47'),AT(76,44,12,12),USE(?Button47)
  117.     ?Button51
  118.     BUTTON('51'),AT(4,56,12,12),USE(?Button51)
  119.     ?Button52
  120.     BUTTON('52'),AT(16,56,12,12),USE(?Button52)
  121.     ?Button53
  122.     BUTTON('53'),AT(28,56,12,12),USE(?Button53)
  123.     ?Button54
  124.     BUTTON('54'),AT(40,56,12,12),USE(?Button54)
  125.     ?Button55
  126.     BUTTON('55'),AT(52,56,12,12),USE(?Button55)
  127.     ?Button56
  128.     BUTTON('56'),AT(64,56,12,12),USE(?Button56)
  129.     ?Button57
  130.     BUTTON('57'),AT(76,56,12,12),USE(?Button57)
  131.     ?Button61
  132.     BUTTON('61'),AT(4,68,12,12),USE(?Button61)
  133.     ?Button62
  134.     BUTTON('62'),AT(16,68,12,12),USE(?Button62)
  135.     ?Button63
  136.     BUTTON('63'),AT(28,68,12,12),USE(?Button63)
  137.     ?Button64
  138.     BUTTON('64'),AT(40,68,12,12),USE(?Button64)
  139.     ?Button65
  140.     BUTTON('65'),AT(52,68,12,12),USE(?Button65)
  141.     ?Button66
  142.     BUTTON('66'),AT(64,68,12,12),USE(?Button66)
  143.     ?Button67
  144.     BUTTON('67'),AT(76,68,12,12),USE(?Button67)
  145.     ?PrevMonth
  146.     BUTTON('<<<<'),AT(4,80,12,12),USE(?PrevMonth)
  147.     ?Lcl:MonthName
  148.     STRING(@s20),AT(20,84,52,10),FONT('Times New Roman',10,,),USE(Lcl:MonthName),CENTER
  149.     ?NextMonth
  150.     BUTTON('>>'),AT(76,84,12,12),USE(?NextMonth)
  151.     ?PrevYear
  152.     BUTTON('<<<<'),AT(4,92,12,12),USE(?PrevYear)
  153.     ?Lcl:YearName
  154.     STRING(@s20),AT(20,96,52,10),FONT('Times New Roman',10,,),USE(Lcl:YearName),CENTER
  155.     ?NextYear
  156.     BUTTON('>>'),AT(76,96,12,12),USE(?NextYear)
  157.     ?CancelButton
  158.     BUTTON('Cancel'),AT(28,108,36,12),USE(?CancelButton)
  159.  
  160.   ======================================
  161.   Procedure   DemoDate
  162.   Type        PROCEDURE
  163.   Template    Window
  164.   Description Demo DateSelect Function
  165.   Created  5/21/95 at  6:07PM
  166.   Changed  5/24/95 at  9:06PM
  167.  
  168.     Procedures Called
  169.     ------------------------------------
  170.     DateSelect           - Monthly Calendar Function
  171.  
  172.     Local Data
  173.     ------------------------------------
  174.     LocalRequest         - LONG,AUTO
  175.     OriginalRequest      - LONG,AUTO
  176.     LocalResponse        - LONG,AUTO
  177.     WindowOpened         - LONG
  178.     WindowInitialized    - LONG
  179.     ForceRefresh         - LONG,AUTO
  180.     Lcl:DateTestOne      - LONG
  181.     Lcl:DateTestTwo      - LONG
  182.  
  183.     Templates
  184.     ------------------------------------
  185.     DateSelect(ProgTool)           - 1
  186.     DateSelect(ProgTool)           - 2
  187.     CloseCurrentWindow(Clarion)    - 3
  188.  
  189.     Controls
  190.     ------------------------------------
  191.     ?Lcl:DateTestOne:Prompt
  192.     PROMPT('Test &One:'),AT(4,4,,),USE(?Lcl:DateTestOne:Prompt)
  193.     ?Lcl:DateTestOne
  194.     ENTRY(@d1b),AT(52,4,40,12),MSG('First Date Selection Test Field'),USE(Lcl:DateTestOne)
  195.     ?DateSelectLookup
  196.     Template DateSelect(ProgTool)
  197.     BUTTON('...'),AT(92,4,12,12),MSG('Select Date'),USE(?DateSelectLookup)
  198.     ?Lcl:DateTestTwo:Prompt
  199.     PROMPT('Test &Two:'),AT(4,20,,),USE(?Lcl:DateTestTwo:Prompt)
  200.     ?Lcl:DateTestTwo
  201.     ENTRY(@d4b),AT(52,20,88,12),MSG('Second Date Test Field'),USE(Lcl:DateTestTwo)
  202.     ?DateSelectLookup:1
  203.     Template DateSelect(ProgTool)
  204.     BUTTON('...'),AT(140,20,12,12),MSG('Select Date'),USE(?DateSelectLookup:1)
  205.     ?CloseButton
  206.     BUTTON('&Close'),AT(112,4,40,12),USE(?CloseButton)
  207.  
  208.   ======================================
  209.   Procedure   DemoMsgBox
  210.   Type        PROCEDURE
  211.   Template    Window
  212.   Description Message Box Template Demos
  213.   Created  5/21/95 at  6:07PM
  214.   Changed  5/24/95 at  9:09PM
  215.  
  216.     Procedures Called
  217.     ------------------------------------
  218.  
  219.     Local Data
  220.     ------------------------------------
  221.     LocalRequest         - LONG,AUTO
  222.     OriginalRequest      - LONG,AUTO
  223.     LocalResponse        - LONG,AUTO
  224.     WindowOpened         - LONG
  225.     WindowInitialized    - LONG
  226.     ForceRefresh         - LONG,AUTO
  227.  
  228.     Templates
  229.     ------------------------------------
  230.     CloseCurrentWindow(Clarion)    - 1
  231.     MessageBox(ProgTool)           - 2
  232.     MessageBox(ProgTool)           - 3
  233.  
  234.     Controls
  235.     ------------------------------------
  236.     ?Demo1
  237.     BUTTON('&Demo 1'),AT(4,4,40,12),USE(?Demo1)
  238.     ?Demo2
  239.     BUTTON('Demo &2'),AT(56,4,40,12),USE(?Demo2)
  240.     ?Close
  241.     BUTTON('&Close'),AT(108,4,40,12),USE(?Close)
  242.  
  243.   ======================================
  244.   Procedure   DemoTimeMsg
  245.   Type        PROCEDURE
  246.   Template    Window
  247.   Description Timed Message Box Template Demos
  248.   Created  5/21/95 at  6:09PM
  249.   Changed  5/24/95 at  9:07PM
  250.  
  251.     Procedures Called
  252.     ------------------------------------
  253.     TimedMessage         - Automatic Message Display and Close
  254.  
  255.     Local Data
  256.     ------------------------------------
  257.     LocalRequest         - LONG,AUTO
  258.     OriginalRequest      - LONG,AUTO
  259.     LocalResponse        - LONG,AUTO
  260.     WindowOpened         - LONG
  261.     WindowInitialized    - LONG
  262.     ForceRefresh         - LONG,AUTO
  263.     Lcl:ReturnValue      - BYTE
  264.     Lcl:ReturnString     - STRING(41)
  265.  
  266.     Templates
  267.     ------------------------------------
  268.     CloseCurrentWindow(Clarion)    - 1
  269.     TimedMessage(ProgTool)         - 2
  270.  
  271.     Controls
  272.     ------------------------------------
  273.     ?Demo1
  274.     BUTTON('&Demo'),AT(4,16,40,12),USE(?Demo1)
  275.     ?Lcl:ReturnString
  276.     STRING(@s41),AT(4,4,168,10),USE(Lcl:ReturnString)
  277.     ?Close
  278.     BUTTON('&Close'),AT(52,16,40,12),USE(?Close)
  279.  
  280.   ======================================
  281.   Procedure   GraphicsView
  282.   Type        PROCEDURE
  283.   Template    Window
  284.   Description View a Graphic
  285.   Created  5/21/95 at  8:00PM
  286.   Changed  5/24/95 at  9:08PM
  287.  
  288.     Procedures Called
  289.     ------------------------------------
  290.  
  291.     Local Data
  292.     ------------------------------------
  293.     LocalRequest         - LONG,AUTO
  294.     LocalResponse        - LONG,AUTO
  295.     WindowOpened         - LONG
  296.     DOSDialogHeader      - CSTRING(40)
  297.     DOSExtParameter      - CSTRING(250)
  298.     DOSTargetVariable    - CSTRING(80)
  299.     GraphicFile          - STRING(60)
  300.     OriginalRequest      - LONG,AUTO
  301.     ForceRefresh         - LONG,AUTO
  302.     WindowInitialized    - LONG
  303.  
  304.     Templates
  305.     ------------------------------------
  306.     DOSFileLookup(Clarion)         - 1
  307.  
  308.     Controls
  309.     ------------------------------------
  310.     ?LookupFile
  311.     Template DOSFileLookup(Clarion)
  312.     BUTTON('...'),AT(0,0,12,12),USE(?LookupFile),DEFAULT
  313.     ?Image1
  314.     IMAGE,AT(0,15,,),USE(?Image1),FULL
  315.  
  316.   ======================================
  317.   Procedure   HelpAbout
  318.   Type        PROCEDURE
  319.   Template    Window
  320.   Description Show Author Information
  321.   Created  5/21/95 at  6:11PM
  322.   Changed  5/24/95 at  9:07PM
  323.  
  324.     Procedures Called
  325.     ------------------------------------
  326.  
  327.     Local Data
  328.     ------------------------------------
  329.     LocalRequest         - LONG,AUTO
  330.     LocalResponse        - LONG,AUTO
  331.     WindowOpened         - LONG
  332.     OriginalRequest      - LONG,AUTO
  333.     ForceRefresh         - LONG,AUTO
  334.     WindowInitialized    - LONG
  335.  
  336.     Templates
  337.     ------------------------------------
  338.  
  339.     Controls
  340.     ------------------------------------
  341.     ?Group1
  342.     GROUP,AT(4,0,148,68),USE(?Group1),BOXED
  343.     ?String1
  344.     STRING('Programmer''s Toolkit'),AT(8,8,140,20),FONT('Times New Roman',20,0FFFFH,FONT:bold+FONT:italic),USE(?String1),CENTER
  345.     ?String2
  346.     STRING('Written by Don Childers'),AT(32,24,111,10),FONT('Arial',14,0FFH,),USE(?String2),CENTER
  347.     ?String5
  348.     STRING('email 73170,2610 @ compuserve.com'),AT(32,36,,),USE(?String5)
  349.     ?Image1
  350.     IMAGE('C:\DEVW\DRPROFIT\CRDFLE10.ICO'),AT(12,24,15,16),USE(?Image1)
  351.     ?OkButton
  352.     BUTTON('OK'),AT(104,48,40,12),USE(?OkButton),DEFAULT
  353.     ?String6
  354.     STRING('Version'),AT(12,48,,),USE(?String6)
  355.     ?Glo:AppVersion
  356.     STRING(@n5.2b),AT(44,48,20,10),FONT('Arial',,08000H,),USE(Glo:AppVersion)
  357.  
  358.   ======================================
  359.   Procedure   Main
  360.   Type        PROCEDURE
  361.   Template    Frame
  362.   Description Programmers Toolkit Frame
  363.   Created  5/21/95 at  5:43PM
  364.   Changed  5/24/95 at  9:09PM
  365.  
  366.     Procedures Called
  367.     ------------------------------------
  368.     PeoView              - Browse People
  369.     DemoDate             - Demo DateSelect Function
  370.     DemoMsgBox           - Message Box Template Demos
  371.     DemoTimeMsg          - Timed Message Box Template Demos
  372.     HelpAbout            - Show Author Information
  373.     ViewTextFile         - View a text file
  374.     GraphicsView         - View a Graphic
  375.     PeoReport            - Rolodex Report
  376.  
  377.     Local Data
  378.     ------------------------------------
  379.     LocalRequest         - LONG,AUTO
  380.     OriginalRequest      - LONG,AUTO
  381.     LocalResponse        - LONG,AUTO
  382.     WindowOpened         - LONG
  383.     WindowInitialized    - LONG
  384.     ForceRefresh         - LONG,AUTO
  385.  
  386.     Templates
  387.     ------------------------------------
  388.     DateTimeDisplay(Clarion)       - 1
  389.  
  390.     Controls
  391.     ------------------------------------
  392.     ?FileMenu
  393.     MENU('&File'),USE(?FileMenu)
  394.     ?PeoView
  395.     ITEM('&People'),USE(?PeoView),MSG('Browse People')
  396.     
  397.     ITEM,SEPARATOR
  398.     ?PrintSetup
  399.     ITEM('P&rint Setup...'),USE(?PrintSetup),MSG('Setup Printer'),STD(STD:PrintSetup)
  400.     ?Exit
  401.     ITEM('E&xit'),USE(?Exit),MSG('Exit this application'),STD(STD:Close)
  402.     ?Demos
  403.     MENU('&Demos'),USE(?Demos),MSG('Additional Toolkit Demonstrations')
  404.     ?DemoGuide
  405.     ITEM('&Demo Guide'),USE(?DemoGuide),MSG('Guide to Built-in Demonstrations')
  406.     ?Item21
  407.     ITEM('Item&21'),USE(?Item21),SEPARATOR
  408.     ?AppStats
  409.     ITEM('&AppStats Example'),USE(?AppStats),MSG('View sample AppStats output')
  410.     ?Comments
  411.     ITEM('&Comments Example'),USE(?Comments),MSG('Programmer Comments Example')
  412.     ?DataList
  413.     ITEM('Data&List Example'),USE(?DataList),MSG('View sample DataList Output')
  414.     ?DemoDate
  415.     ITEM('Date &Selection'),USE(?DemoDate),MSG('Date Selection Demo')
  416.     ?GraphicsView
  417.     ITEM('&Graphics Viewer'),USE(?GraphicsView),MSG('View Graphics Files')
  418.     ?DemoMsgBox
  419.     ITEM('&Message Box'),USE(?DemoMsgBox),MSG('Message Box demonstrations')
  420.     ?DemoTimeMsg
  421.     ITEM('&Timed Message'),USE(?DemoTimeMsg),MSG('Timed Message Box demonstration')
  422.     ?Reports
  423.     MENU('&Reports'),USE(?Reports),MSG('Print Reports')
  424.     ?PeoReport
  425.     ITEM('&Rolodex Report'),USE(?PeoReport),MSG('Print Rolodex Report')
  426.     ?EditMenu
  427.     MENU('&Edit'),USE(?EditMenu)
  428.     ?Cut
  429.     ITEM('Cu&t'),USE(?Cut),MSG('Remove item to Windows Clipboard'),STD(STD:Cut)
  430.     ?Copy
  431.     ITEM('&Copy'),USE(?Copy),MSG('Copy item to Windows Clipboard'),STD(STD:Copy)
  432.     ?Paste
  433.     ITEM('&Paste'),USE(?Paste),MSG('Paste contents of Windows Clipboard'),STD(STD:Paste)
  434.     
  435.     MENU('&Window'),MSG('Create and Arrange windows')
  436.     ?Tile
  437.     ITEM('T&ile'),USE(?Tile),MSG('Make all open windows visible'),STD(STD:TileWindow)
  438.     ?Cascade
  439.     ITEM('&Cascade'),USE(?Cascade),MSG('Stack all open windows'),STD(STD:CascadeWindow)
  440.     ?Arrange
  441.     ITEM('&Arrange Icons'),USE(?Arrange),MSG('Align all window icons'),STD(STD:ArrangeIcons)
  442.     
  443.     MENU('&Help'),MSG('Windows Help')
  444.     ?HelpAbout
  445.     ITEM('&About'),USE(?HelpAbout),MSG('About Programmer''s Toolkit')
  446.     ?Helpindex
  447.     ITEM('&Contents'),USE(?Helpindex),MSG('View the contents of the help file'),STD(STD:HelpIndex)
  448.     ?HelpSearch
  449.     ITEM('&Search for Help On...'),USE(?HelpSearch),MSG('Search for help on a subject'),STD(STD:HelpSearch)
  450.     ?HelpOnHelp
  451.     ITEM('&How to Use Help'),USE(?HelpOnHelp),MSG('How to use Windows Help'),STD(STD:HelpOnHelp)
  452.  
  453.   ======================================
  454.   Procedure   NtsEdit
  455.   Type        PROCEDURE
  456.   Template    Form
  457.   Description Edit Miscellanous Notes
  458.   Created  5/21/95 at  8:50PM
  459.   Changed  5/24/95 at  9:06PM
  460.  
  461.     Procedures Called
  462.     ------------------------------------
  463.  
  464.     Local Data
  465.     ------------------------------------
  466.     LocalRequest         - LONG,AUTO
  467.     OriginalRequest      - LONG,AUTO
  468.     LocalResponse        - LONG,AUTO
  469.     WindowOpened         - LONG
  470.     WindowInitialized    - LONG
  471.     ForceRefresh         - LONG,AUTO
  472.     ActionMessage        - CSTRING(40)
  473.     RecordChanged        - BYTE,AUTO
  474.  
  475.     Templates
  476.     ------------------------------------
  477.     SaveButton(Clarion)            - 1
  478.     CancelButton(Clarion)          - 2
  479.     RecordValidation(Clarion)      - 3
  480.     TimeStamp(ProgTool)            - 4
  481.  
  482.     Controls
  483.     ------------------------------------
  484.     ?Nts:EditDate
  485.     STRING(@d1b),AT(40,100,,),FONT('Arial',,08000H,),USE(Nts:EditDate)
  486.     ?String4
  487.     STRING('at'),AT(72,100,,),USE(?String4)
  488.     ?Nts:EditTime
  489.     STRING(@t3b),AT(84,100,,),FONT('Arial',,08000H,),USE(Nts:EditTime)
  490.     ?Nts:Notes:Prompt
  491.     PROMPT('&Notes:'),AT(4,4,,),USE(?Nts:Notes:Prompt)
  492.     ?Nts:Notes
  493.     TEXT,AT(4,16,128,64),MSG('Meo containing notes'),USE(Nts:Notes),VSCROLL,OVR
  494.     ?StampButton
  495.     Template TimeStamp(ProgTool)
  496.     BUTTON('&Stamp'),AT(92,84,40,12),MSG('Add Date and Time to Memo'),USE(?StampButton)
  497.     ?String3
  498.     STRING('Added on'),AT(4,100,,),USE(?String3)
  499.     ?OK
  500.     Template SaveButton(Clarion)
  501.     BUTTON('&OK'),AT(4,84,40,12),USE(?OK),DEFAULT,REQ
  502.     ?Cancel
  503.     Template CancelButton(Clarion)
  504.     BUTTON('&Cancel'),AT(48,84,40,12),USE(?Cancel)
  505.  
  506.   ======================================
  507.   Procedure   NtsView
  508.   Type        PROCEDURE
  509.   Template    Browse
  510.   Description View Miscellaneous Notes
  511.   Created  5/21/95 at  8:46PM
  512.   Changed  5/24/95 at  9:06PM
  513.  
  514.     Procedures Called
  515.     ------------------------------------
  516.     NtsEdit              - Edit Miscellanous Notes
  517.  
  518.     Local Data
  519.     ------------------------------------
  520.     LocalRequest         - LONG,AUTO
  521.     OriginalRequest      - LONG,AUTO
  522.     LocalResponse        - LONG,AUTO
  523.     WindowOpened         - LONG
  524.     WindowInitialized    - LONG
  525.     ForceRefresh         - LONG,AUTO
  526.     RecordFiltered       - LONG
  527.  
  528.     Templates
  529.     ------------------------------------
  530.     BrowseBox(Clarion)             - 1
  531.     BrowseSelectButton(Clarion)    - 3
  532.     BrowseUpdateButtons(Clarion)   - 2
  533.     CloseButton(Clarion)           - 4
  534.  
  535.     Controls
  536.     ------------------------------------
  537.     ?List
  538.     Template BrowseBox(Clarion)
  539.     LIST,AT(4,4,200,100),MSG('Browsing Records'),USE(?List),IMM,HVSCROLL,FORMAT('200L~Notes~@s255@'),FROM(Queue:Browse)
  540.     ?Insert
  541.     Template BrowseUpdateButtons(Clarion)
  542.     BUTTON('&Insert'),AT(4,108,40,12),KEY(InsertKey),USE(?Insert)
  543.     ?Change
  544.     Template BrowseUpdateButtons(Clarion)
  545.     BUTTON('C&hange'),AT(44,108,40,12),KEY(CtrlEnter),USE(?Change),DEFAULT
  546.     ?Delete
  547.     Template BrowseUpdateButtons(Clarion)
  548.     BUTTON('&Delete'),AT(84,108,40,12),KEY(DeleteKey),USE(?Delete)
  549.     ?Select
  550.     Template BrowseSelectButton(Clarion)
  551.     BUTTON('&Select'),AT(124,108,40,12),KEY(EnterKey),USE(?Select)
  552.     ?Close
  553.     Template CloseButton(Clarion)
  554.     BUTTON('&Close'),AT(164,108,40,12),USE(?Close)
  555.  
  556.   ======================================
  557.   Procedure   PbkEdit
  558.   Type        PROCEDURE
  559.   Template    Form
  560.   Description Edit Phonebook
  561.   Created  5/21/95 at  9:30PM
  562.   Changed  5/24/95 at  9:05PM
  563.  
  564.     Procedures Called
  565.     ------------------------------------
  566.  
  567.     Local Data
  568.     ------------------------------------
  569.     LocalRequest         - LONG,AUTO
  570.     OriginalRequest      - LONG,AUTO
  571.     LocalResponse        - LONG,AUTO
  572.     WindowOpened         - LONG
  573.     WindowInitialized    - LONG
  574.     ForceRefresh         - LONG,AUTO
  575.     ActionMessage        - CSTRING(40)
  576.     RecordChanged        - BYTE,AUTO
  577.  
  578.     Templates
  579.     ------------------------------------
  580.     SaveButton(Clarion)            - 1
  581.     CancelButton(Clarion)          - 2
  582.     RecordValidation(Clarion)      - 3
  583.  
  584.     Controls
  585.     ------------------------------------
  586.     ?Pbk:Desc:Prompt
  587.     PROMPT('&Desc:'),AT(4,4,,),USE(?Pbk:Desc:Prompt)
  588.     ?Pbk:Desc
  589.     ENTRY(@s20),AT(32,4,88,12),MSG('Description'),USE(Pbk:Desc),OVR,CAP
  590.     ?OK
  591.     Template SaveButton(Clarion)
  592.     BUTTON('&OK'),AT(32,20,40,12),USE(?OK),DEFAULT,REQ
  593.     ?Cancel
  594.     Template CancelButton(Clarion)
  595.     BUTTON('&Cancel'),AT(80,20,40,12),USE(?Cancel)
  596.  
  597.   ======================================
  598.   Procedure   PbkView
  599.   Type        PROCEDURE
  600.   Template    Browse
  601.   Description Browse Phonebooks
  602.   Created  5/21/95 at  9:27PM
  603.   Changed  5/24/95 at  9:05PM
  604.  
  605.     Procedures Called
  606.     ------------------------------------
  607.     PbkEdit              - Edit Phonebook
  608.  
  609.     Local Data
  610.     ------------------------------------
  611.     LocalRequest         - LONG,AUTO
  612.     OriginalRequest      - LONG,AUTO
  613.     LocalResponse        - LONG,AUTO
  614.     WindowOpened         - LONG
  615.     WindowInitialized    - LONG
  616.     ForceRefresh         - LONG,AUTO
  617.     RecordFiltered       - LONG
  618.  
  619.     Templates
  620.     ------------------------------------
  621.     BrowseBox(Clarion)             - 1
  622.     BrowseSelectButton(Clarion)    - 3
  623.     BrowseUpdateButtons(Clarion)   - 2
  624.     CloseButton(Clarion)           - 4
  625.  
  626.     Controls
  627.     ------------------------------------
  628.     ?List
  629.     Template BrowseBox(Clarion)
  630.     LIST,AT(4,4,88,92),MSG('Browsing Phonebooks'),USE(?List),IMM,VSCROLL,FORMAT('80L~Description~@s20@'),FROM(Queue:Browse)
  631.     ?Insert
  632.     Template BrowseUpdateButtons(Clarion)
  633.     BUTTON('&Insert'),AT(96,4,40,12),KEY(InsertKey),USE(?Insert)
  634.     ?Change
  635.     Template BrowseUpdateButtons(Clarion)
  636.     BUTTON('C&hange'),AT(96,20,40,12),KEY(CtrlEnter),USE(?Change),DEFAULT
  637.     ?Delete
  638.     Template BrowseUpdateButtons(Clarion)
  639.     BUTTON('&Delete'),AT(96,36,40,12),KEY(DeleteKey),USE(?Delete)
  640.     ?Select
  641.     Template BrowseSelectButton(Clarion)
  642.     BUTTON('&Select'),AT(96,52,40,12),KEY(EnterKey),USE(?Select)
  643.     ?Close
  644.     Template CloseButton(Clarion)
  645.     BUTTON('&Close'),AT(96,84,40,12),USE(?Close)
  646.  
  647.   ======================================
  648.   Procedure   PeoEdit
  649.   Type        PROCEDURE
  650.   Template    Form
  651.   Description Edit a person
  652.   Created  5/21/95 at  6:13PM
  653.   Changed  5/24/95 at  9:04PM
  654.  
  655.     Procedures Called
  656.     ------------------------------------
  657.     TelView              - Browse Telephone Numbers
  658.     PbkView              - Browse Phonebooks
  659.     NtsView              - View Miscellaneous Notes
  660.  
  661.     Local Data
  662.     ------------------------------------
  663.     LocalRequest         - LONG,AUTO
  664.     OriginalRequest      - LONG,AUTO
  665.     LocalResponse        - LONG,AUTO
  666.     WindowOpened         - LONG
  667.     WindowInitialized    - LONG
  668.     ForceRefresh         - LONG,AUTO
  669.     ActionMessage        - CSTRING(40)
  670.     RecordChanged        - BYTE,AUTO
  671.     Lcl:Phonebook        - STRING(20)
  672.  
  673.     Templates
  674.     ------------------------------------
  675.     SaveButton(Clarion)            - 1
  676.     CancelButton(Clarion)          - 2
  677.     RecordValidation(Clarion)      - 3
  678.     MiscNotes(ProgTool)            - 4
  679.     LookupButton(ProgTool)         - 5
  680.  
  681.     Controls
  682.     ------------------------------------
  683.     ?Peo:LastName:Prompt
  684.     PROMPT('&Last Name:'),AT(4,4,,),USE(?Peo:LastName:Prompt)
  685.     ?Peo:LastName
  686.     ENTRY(@s20),AT(52,4,88,12),MSG('Last Name'),USE(Peo:LastName),OVR,CAP
  687.     ?Peo:RolSysID
  688.     STRING(@n_6),AT(156,4,,),FONT('Arial',,08000H,),USE(Peo:RolSysID)
  689.     ?Peo:FirstName:Prompt
  690.     PROMPT('&First Name:'),AT(4,20,,),USE(?Peo:FirstName:Prompt)
  691.     ?Peo:FirstName
  692.     ENTRY(@s20),AT(52,20,88,12),MSG('First Name'),USE(Peo:FirstName),OVR,CAP
  693.     ?Phones
  694.     BUTTON('&Phones'),AT(148,20,40,12),USE(?Phones)
  695.     ?Peo:Company:Prompt
  696.     PROMPT('Co&mpany:'),AT(4,36,,),USE(?Peo:Company:Prompt)
  697.     ?Peo:Company
  698.     ENTRY(@s40),AT(52,36,140,12),MSG('Company Name'),USE(Peo:Company),OVR,CAP
  699.     ?Peo:Position:Prompt
  700.     PROMPT('P&osition:'),AT(4,52,,),USE(?Peo:Position:Prompt)
  701.     ?Peo:Position
  702.     ENTRY(@s40),AT(52,52,140,12),MSG('Job Position'),USE(Peo:Position),OVR,CAP
  703.     ?LookupButton
  704.     Template LookupButton(ProgTool)
  705.     BUTTON('Phone&book'),AT(4,68,40,12),MSG('Lookup %FileDescription'),USE(?LookupButton)
  706.     ?Lcl:Phonebook
  707.     STRING(@s20),AT(52,68,,),FONT('Arial',,0FF0000H,),USE(Lcl:Phonebook)
  708.     ?NotesButton
  709.     Template MiscNotes(ProgTool)
  710.     BUTTON('&Notes'),AT(164,76,24,20),MSG('Add miscellaneous notes'),USE(?NotesButton)
  711.     ?OK
  712.     Template SaveButton(Clarion)
  713.     BUTTON('&OK'),AT(52,84,40,12),USE(?OK),DEFAULT,REQ
  714.     ?Cancel
  715.     Template CancelButton(Clarion)
  716.     BUTTON('&Cancel'),AT(108,84,40,12),USE(?Cancel)
  717.  
  718.   ======================================
  719.   Procedure   PeoReport
  720.   Type        PROCEDURE
  721.   Template    Report
  722.   Description Rolodex Report
  723.   Created  5/21/95 at  9:57PM
  724.   Changed  5/23/95 at  8:28PM
  725.  
  726.     Procedures Called
  727.     ------------------------------------
  728.  
  729.     Local Data
  730.     ------------------------------------
  731.     RejectRecord         - LONG,AUTO
  732.     LocalRequest         - LONG,AUTO
  733.     LocalResponse        - LONG,AUTO
  734.     WindowOpened         - LONG,AUTO
  735.     RecordsToProcess     - LONG,AUTO
  736.     RecordsProcessed     - LONG,AUTO
  737.     RecordsPerCycle      - LONG,AUTO
  738.     RecordsThisCycle     - LONG,AUTO
  739.     PercentProgress      - DECIMAL(4,1)
  740.     RecordStatus         - BYTE,AUTO
  741.     Lcl:FullName         - STRING(25)
  742.     Lcl:RptDate          - LONG
  743.     Lcl:RptTime          - LONG
  744.  
  745.     Templates
  746.     ------------------------------------
  747.     LoopThruChild(ProgTool)        - 1
  748.  
  749.     Controls
  750.     ------------------------------------
  751.  
  752.   ======================================
  753.   Procedure   PeoView
  754.   Type        PROCEDURE
  755.   Template    Browse
  756.   Description Browse People
  757.   Created  5/21/95 at  6:01PM
  758.   Changed  5/27/95 at 11:14AM
  759.  
  760.     Procedures Called
  761.     ------------------------------------
  762.     PeoEdit              - Edit a person
  763.  
  764.     Local Data
  765.     ------------------------------------
  766.     LocalRequest         - LONG,AUTO
  767.     OriginalRequest      - LONG,AUTO
  768.     LocalResponse        - LONG,AUTO
  769.     WindowOpened         - LONG
  770.     WindowInitialized    - LONG
  771.     ForceRefresh         - LONG,AUTO
  772.     RecordFiltered       - LONG
  773.     Lcl:FullName         - STRING(25)
  774.  
  775.     Templates
  776.     ------------------------------------
  777.     BrowseBox(Clarion)             - 1
  778.     BrowseSelectButton(Clarion)    - 3
  779.     BrowseUpdateButtons(Clarion)   - 2
  780.     CloseButton(Clarion)           - 4
  781.     ScaleWindow(ProgTool)          - 5
  782.     CommentBlock(ProgTool)         - 6
  783.  
  784.     Controls
  785.     ------------------------------------
  786.     ?List
  787.     Template BrowseBox(Clarion)
  788.     LIST,AT(4,4,88,92),MSG('Browsing Records'),USE(?List),IMM,VSCROLL,FORMAT('100L~Name~@s25@'),FROM(Queue:Browse)
  789.     ?Insert
  790.     Template BrowseUpdateButtons(Clarion)
  791.     BUTTON('&Insert'),AT(96,4,40,12),KEY(InsertKey),USE(?Insert)
  792.     ?Change
  793.     Template BrowseUpdateButtons(Clarion)
  794.     BUTTON('C&hange'),AT(96,20,40,12),KEY(CtrlEnter),USE(?Change),DEFAULT
  795.     ?Delete
  796.     Template BrowseUpdateButtons(Clarion)
  797.     BUTTON('&Delete'),AT(96,36,40,12),KEY(DeleteKey),USE(?Delete)
  798.     ?Select
  799.     Template BrowseSelectButton(Clarion)
  800.     BUTTON('&Select'),AT(96,52,40,12),KEY(EnterKey),USE(?Select)
  801.     ?Close
  802.     Template CloseButton(Clarion)
  803.     BUTTON('&Close'),AT(96,84,40,12),USE(?Close)
  804.  
  805.   ======================================
  806.   Procedure   TelEdit
  807.   Type        PROCEDURE
  808.   Template    Form
  809.   Description Edit Telephone Number
  810.   Created  5/22/95 at  8:50PM
  811.   Changed  5/24/95 at  9:05PM
  812.  
  813.     Procedures Called
  814.     ------------------------------------
  815.  
  816.     Local Data
  817.     ------------------------------------
  818.     LocalRequest         - LONG,AUTO
  819.     OriginalRequest      - LONG,AUTO
  820.     LocalResponse        - LONG,AUTO
  821.     WindowOpened         - LONG
  822.     WindowInitialized    - LONG
  823.     ForceRefresh         - LONG,AUTO
  824.     ActionMessage        - CSTRING(40)
  825.     RecordChanged        - BYTE,AUTO
  826.  
  827.     Templates
  828.     ------------------------------------
  829.     SaveButton(Clarion)            - 1
  830.     CancelButton(Clarion)          - 2
  831.     RecordValidation(Clarion)      - 3
  832.  
  833.     Controls
  834.     ------------------------------------
  835.     ?TEL:RolSysID
  836.     STRING(@n_4),AT(76,20,,),FONT('Arial',,08000H,),USE(TEL:RolSysID)
  837.     ?TEL:Location:Prompt
  838.     PROMPT('&Location:'),AT(4,4,,),USE(?TEL:Location:Prompt)
  839.     ?TEL:Location
  840.     ENTRY(@s10),AT(48,4,,),MSG('Location of Telephone'),USE(TEL:Location),OVR,CAP
  841.     ?TEL:Area:Prompt
  842.     PROMPT('&Area:'),AT(4,20,,),USE(?TEL:Area:Prompt)
  843.     ?TEL:Area
  844.     ENTRY(@p(<<<)pb),AT(48,20,,),MSG('Area Code'),USE(TEL:Area),INS
  845.     ?TEL:Phone:Prompt
  846.     PROMPT('&Phone:'),AT(4,36,,),USE(?TEL:Phone:Prompt)
  847.     ?TEL:Phone
  848.     ENTRY(@p###-####pb),AT(48,36,,),MSG('Telephone Number'),USE(TEL:Phone),INS
  849.     ?OK
  850.     Template SaveButton(Clarion)
  851.     BUTTON('&OK'),AT(4,52,40,12),USE(?OK),DEFAULT,REQ
  852.     ?Cancel
  853.     Template CancelButton(Clarion)
  854.     BUTTON('&Cancel'),AT(56,52,40,12),USE(?Cancel)
  855.  
  856.   ======================================
  857.   Procedure   TelView
  858.   Type        PROCEDURE
  859.   Template    Browse
  860.   Description Browse Telephone Numbers
  861.   Created  5/22/95 at  8:49PM
  862.   Changed  5/24/95 at  9:05PM
  863.  
  864.     Procedures Called
  865.     ------------------------------------
  866.     TelEdit              - Edit Telephone Number
  867.  
  868.     Local Data
  869.     ------------------------------------
  870.     LocalRequest         - LONG,AUTO
  871.     OriginalRequest      - LONG,AUTO
  872.     LocalResponse        - LONG,AUTO
  873.     WindowOpened         - LONG
  874.     WindowInitialized    - LONG
  875.     ForceRefresh         - LONG,AUTO
  876.     RecordFiltered       - LONG
  877.  
  878.     Templates
  879.     ------------------------------------
  880.     BrowseBox(Clarion)             - 1
  881.     BrowseSelectButton(Clarion)    - 3
  882.     BrowseUpdateButtons(Clarion)   - 2
  883.     CloseButton(Clarion)           - 4
  884.  
  885.     Controls
  886.     ------------------------------------
  887.     ?List
  888.     Template BrowseBox(Clarion)
  889.     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)
  890.     ?Insert
  891.     Template BrowseUpdateButtons(Clarion)
  892.     BUTTON('&Insert'),AT(120,4,40,12),KEY(InsertKey),USE(?Insert)
  893.     ?Change
  894.     Template BrowseUpdateButtons(Clarion)
  895.     BUTTON('C&hange'),AT(120,20,40,12),KEY(CtrlEnter),USE(?Change),DEFAULT
  896.     ?Delete
  897.     Template BrowseUpdateButtons(Clarion)
  898.     BUTTON('&Delete'),AT(120,36,40,12),KEY(DeleteKey),USE(?Delete)
  899.     ?Select
  900.     Template BrowseSelectButton(Clarion)
  901.     BUTTON('&Select'),AT(120,52,40,12),KEY(EnterKey),USE(?Select)
  902.     ?Close
  903.     Template CloseButton(Clarion)
  904.     BUTTON('&Close'),AT(120,68,40,12),USE(?Close)
  905.  
  906.   ======================================
  907.   Procedure   TimedMessage
  908.   Type        FUNCTION
  909.   Template    Window
  910.   Description Automatic Message Display and Close
  911.   Created  5/23/95 at  8:56PM
  912.   Changed  5/24/95 at  9:07PM
  913.  
  914.     Procedures Called
  915.     ------------------------------------
  916.  
  917.     Local Data
  918.     ------------------------------------
  919.     LocalRequest         - LONG,AUTO
  920.     OriginalRequest      - LONG,AUTO
  921.     LocalResponse        - LONG,AUTO
  922.     WindowOpened         - LONG
  923.     WindowInitialized    - LONG
  924.     ForceRefresh         - LONG,AUTO
  925.     Lcl:Text             - STRING(60)
  926.     Lcl:Icon             - LONG
  927.     Lcl:ReturnValue      - LONG
  928.     Lcl:Delay            - LONG
  929.     Lcl:TimeLeft         - LONG
  930.     Lcl:TargetTime       - LONG
  931.  
  932.     Templates
  933.     ------------------------------------
  934.     CloseCurrentWindow(Clarion)    - 1
  935.  
  936.     Controls
  937.     ------------------------------------
  938.     ?Lcl:Text
  939.     STRING(@s60),AT(4,4,248,10),FONT(,,0FF0000H,),USE(Lcl:Text),CENTER
  940.     ?Button1
  941.     BUTTON('Button 1'),AT(116,16,28,28),USE(?Button1),ICON('CLOCK.ICO')
  942.     ?Lcl:TimeLeft
  943.     STRING(@t4b),AT(156,24,36,10),USE(Lcl:TimeLeft)
  944.  
  945.   ======================================
  946.   Procedure   ViewTextFile
  947.   Type        PROCEDURE
  948.   Template    Viewer
  949.   Description View a text file
  950.   Created  5/21/95 at  6:32PM
  951.   Changed  5/24/95 at  9:15PM
  952.  
  953.     Procedures Called
  954.     ------------------------------------
  955.  
  956.     Local Data
  957.     ------------------------------------
  958.     LocalRequest         - LONG,AUTO
  959.     OriginalRequest      - LONG,AUTO
  960.     LocalResponse        - LONG,AUTO
  961.     WindowOpened         - LONG
  962.     WindowInitialized    - LONG
  963.     ForceRefresh         - LONG,AUTO
  964.     ASCIIFileSize        - LONG
  965.     ASCIIBytesThisRead   - LONG
  966.     ASCIIBytesRead       - LONG
  967.     ASCIIBytesThisCycle  - LONG
  968.     ASCIIPercentProgress - BYTE
  969.  
  970.     Templates
  971.     ------------------------------------
  972.     ASCIIBox(Clarion)              - 1
  973.     ASCIIPrintButton(Clarion)      - 4
  974.     ASCIISearchButton(Clarion)     - 3
  975.     CloseButton(Clarion)           - 2
  976.     ScaleWindow(ProgTool)          - 5
  977.  
  978.     Controls
  979.     ------------------------------------
  980.     ?AsciiBox
  981.     Template ASCIIBox(Clarion)
  982.     LIST,AT(4,4,336,108),FONT('FixedSys',9,,FONT:regular),USE(?AsciiBox),HVSCROLL,FROM(Queue:ASCII)
  983.     ?ASCIIPrint
  984.     Template ASCIIPrintButton(Clarion)
  985.     BUTTON('&Print'),AT(184,116,40,12),USE(?ASCIIPrint)
  986.     ?ASCIISearch
  987.     Template ASCIISearchButton(Clarion)
  988.     BUTTON('&Find...'),AT(224,116,40,12),USE(?ASCIISearch)
  989.     ?ASCIIRepeat
  990.     Template ASCIISearchButton(Clarion)
  991.     BUTTON('Find &Next'),AT(264,116,40,12),USE(?ASCIIRepeat)
  992.     ?Close
  993.     Template CloseButton(Clarion)
  994.     BUTTON('&Close'),AT(304,116,36,12),USE(?Close)
  995.