home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 18 / 18.iso / w / w252 / 4.ddi / MACROS.CMZ / ACODES.SMM < prev    next >
Encoding:
INI File  |  1991-08-19  |  24.0 KB  |  1,941 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [lang]
  14.     1
  15. [desc]
  16.     Type in an area code to find out geographical and chronological information about it.
  17.     Lotus WPD Technical Support
  18.     Intermediate
  19.     Global Variables, ProfileString
  20.     Autorun
  21.     682670058
  22.     16
  23.     679900805
  24.     51
  25.     7
  26.     1705
  27.     9931
  28.     31
  29.     34
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [lay]
  50.     Standard
  51.     513
  52.     [rght]
  53.         15840
  54.         12240
  55.         1
  56.         720
  57.         1080
  58.         1
  59.         1440
  60.         1440
  61.         2
  62.         1
  63.         0
  64.         1
  65.         1
  66.         2
  67.         1
  68.         720
  69.         10800
  70.         14
  71.         1
  72.         720
  73.         1
  74.         1440
  75.         1
  76.         2160
  77.         1
  78.         2880
  79.         1
  80.         3600
  81.         1
  82.         4320
  83.         1
  84.         5040
  85.         1
  86.         5760
  87.         1
  88.         6480
  89.         1
  90.         7200
  91.         1
  92.         7920
  93.         1
  94.         8640
  95.         1
  96.         9360
  97.         1
  98.         10080
  99.     [hrght]
  100.     [lyfrm]
  101.         1
  102.         11200
  103.         0
  104.         0
  105.         12240
  106.         1440
  107.         0
  108.         1
  109.         3
  110.         1 0 0 0 0 0 0
  111.         0
  112.         0
  113.         1
  114.     [frmlay]
  115.         1440
  116.         12240
  117.         1
  118.         1440
  119.         0
  120.         1
  121.         360
  122.         1440
  123.         0
  124.         1
  125.         0
  126.         1
  127.         1
  128.         0
  129.         1
  130.         1440
  131.         10800
  132.         0
  133.     [txt]
  134. @Header@<:X3,0;GetDocInfo$(1)>ACODES.SMM<:X~3,0;GetDocInfo$(1)>
  135.  
  136. @Header@<:X3,0;Description>Type in an area code to find out geographical and chronological information about it.<:X~3,0;Description>
  137.  
  138. @Header@By:  Todd E. Fuder
  139.  
  140. @Header@<:X3,0;EditDate %Dd>Wednesday, August 7, 1991<:X~3,0;EditDate %Dd> at 
  141. <:X3,0;EditDate %T6>11:29 am<:X~3,0;EditDate %T6>
  142.  
  143. @Header@
  144. >
  145.     [frght]
  146.     [lyfrm]
  147.         1
  148.         13248
  149.         0
  150.         14760
  151.         12240
  152.         15840
  153.         0
  154.         1
  155.         3
  156.         1 0 0 0 0 0 0
  157.         0
  158.         0
  159.         2
  160.     [frmlay]
  161.         15840
  162.         12240
  163.         1
  164.         1440
  165.         360
  166.         1
  167.         14940
  168.         1440
  169.         0
  170.         1
  171.         0
  172.         1
  173.         1
  174.         0
  175.         1
  176.         1440
  177.         10800
  178.         0
  179.     [txt]
  180. @Header@Revision Number <:X3,0;NumEdits>11<:X~3,0;NumEdits>
  181.  
  182. @Header@<:P10,0,Page > of <:X3,16384;NumPages>7<:X~3,16384;NumPages>
  183.  
  184. >
  185. [elay]
  186. [l1]
  187.     0
  188. [edoc]
  189. @Function@FUNCTION AreaCodes()
  190.  
  191. ONERROR toasties
  192.  
  193. ONCANCEL toasties
  194.  
  195. define GetActiveWindow()    DllCall("user,GetActiveWindow,H")
  196.  
  197. define SetWindowText()        DllCall("user,SetWindowText,IHC", %1, %2)
  198.  
  199. define TitleBarMsg()        SetWindowText(GetActiveWindow(), %1)
  200.  
  201. define GetWindowText()        DllCall("user,GetWindowText,HHFH", %1, %2, %3)
  202.  
  203. DEFSTR id, Line
  204.  
  205. HourGlass(1)
  206.  
  207. CALL ExitCodes()
  208.  
  209. MacFile = GetRunningMacroFile$()
  210.  
  211. MacPath = GetMacPath$()
  212.  
  213. TitleBarMsg("Adding ""ACodes"" to the default Ami Pro menu bar.")
  214.  
  215. AddMenu(1, "&ACodes")
  216.  
  217. AddMenuItem(1, "&ACodes", "&Find Area Code...", "{MacFile}!Searchem()", "Look up data related to a specified area code.")
  218.  
  219. AddMenuItem(1, "&ACodes", "Set &Defaults...", "{MacFile}!Defaults()", "Set your time zone")
  220.  
  221. AddMenuItem(1, "&ACodes", "-", "", "")
  222.  
  223. AddMenuItem(1, "&ACodes", "E&xit Area Codes", "{MacFile}!ExitCodes()", "Remove the ACodes menu.")
  224.  
  225. IF ("" = FindFirst$("{MacPath}ACODES.INI", 0))
  226.  
  227.     HourGlass(0)
  228.  
  229.     Message("Cannot find {MacPath}ACODES.INI, please place in your Macros directory.")
  230.  
  231.     CALL ExitCodes()
  232.  
  233.     GoTo toasties
  234.  
  235. ENDIF
  236.  
  237. MaxRecords = GetProfileString$("Header", "MaxRecords", "{MacPath}ACODES.INI")
  238.  
  239. IF MaxRecords = "" OR MaxRecords = 0
  240.  
  241.     MaxRecords = 1
  242.  
  243. ENDIF
  244.  
  245. OurZone = GetProfileString$("Header", "OurZone", "{MacPath}ACODES.INI")
  246.  
  247. AllocGlobalVar("Data", MaxRecords)
  248.  
  249. AllocGlobalVar("OurZone", 1)
  250.  
  251. AllocGlobalVar("MaxRecords", 1)
  252.  
  253. SetGlobalVar("OurZone", OurZone)
  254.  
  255. SetGlobalVar("MaxRecords", MaxRecords)
  256.  
  257. IF 0 != Assign(&id, fopen("{MacPath}ACODES.INI", "r"))
  258.  
  259.     WHILE "DATA" != UCASE$(MID$(Assign(&Line, fgets$(id)), 2, 4))
  260.  
  261.     WEND
  262.  
  263. ELSE
  264.  
  265.     Message("Could not open {MacPath}ACODES.INI!")
  266.  
  267.     CALL ExitCodes()
  268.  
  269.     GoTo toasties
  270.  
  271. ENDIF
  272.  
  273. StatusBarMsg("Reading area code information from data file, please wait...")
  274.  
  275. FOR I = 1 to MaxRecords
  276.  
  277.     Line = fgets$(id)
  278.  
  279.     SetGlobalArray("Data", I, strfield$(Line, 2, "="))
  280.  
  281. NEXT
  282.  
  283. fclose(id)
  284.  
  285. HourGlass(0)
  286.  
  287. StatusBarMsg("")
  288.  
  289. toasties:
  290.  
  291. HourGlass(0)
  292.  
  293. TitleBarMsg("")
  294.  
  295. TitleBarMsg("Ami Pro")
  296.  
  297. StatusBarMsg("")
  298.  
  299. @Function@END FUNCTION
  300.  
  301.  
  302.  
  303. @Function@FUNCTION Defaults()
  304.  
  305. FillEdit(9500, GetGlobalVar$("OurZone"))
  306.  
  307. FillEdit(9500, "Atlantic")
  308.  
  309. FillEdit(9500, "Eastern")
  310.  
  311. FillEdit(9500, "Central")
  312.  
  313. FillEdit(9500, "Mountain")
  314.  
  315. FillEdit(9500, "Pacific")
  316.  
  317. FillEdit(9500, "Alaskan")
  318.  
  319. FillEdit(9500, "Hawaiian")
  320.  
  321. FillEdit(9500, "ZE12")
  322.  
  323. FillEdit(9500, "ZE11")
  324.  
  325. FillEdit(9500, "EAT")
  326.  
  327. FillEdit(9500, "CAT")
  328.  
  329. FillEdit(9500, "WAT")
  330.  
  331. FillEdit(9500, "ZE7")
  332.  
  333. FillEdit(9500, "ZE6")
  334.  
  335. FillEdit(9500, "ZE5")
  336.  
  337. FillEdit(9500, "ZE4")
  338.  
  339. FillEdit(9500, "ZE3")
  340.  
  341. FillEdit(9500, "ZE2")
  342.  
  343. FillEdit(9500, "CET")
  344.  
  345. FillEdit(9500, "GMT")
  346.  
  347. FillEdit(9500, "ZW1")
  348.  
  349. FillEdit(9500, "ZW2")
  350.  
  351. FillEdit(9500, "ZW3")
  352.  
  353. FillEdit(9500, "ZW4")
  354.  
  355. MacPath = GetMacPath$()
  356.  
  357. Box = DialogBox(".", "DefaultBox")
  358.  
  359. IF Box = -1
  360.  
  361.     Message("Could not find dialog box; Exiting function.")
  362.  
  363.     EXIT FUNCTION
  364.  
  365. ELSEIF Box = 0
  366.  
  367.     EXIT FUNCTION
  368.  
  369. ENDIF
  370.  
  371. OurZone = GetDialogField$(9500)
  372.  
  373. WriteProfileString("Header", "OurZone", OurZone, "{MacPath}ACODES.INI")
  374.  
  375. SetGlobalVar("OurZone", OurZone)
  376.  
  377. @Function@END FUNCTION
  378.  
  379.  
  380.  
  381. @Function@FUNCTION ExitCodes()
  382.  
  383. FreeGlobalVar("MaxRecords")
  384.  
  385. FreeGlobalVar("Data")
  386.  
  387. FreeGlobalVar("OurZone")
  388.  
  389. DeleteMenu(1, "&ACodes")
  390.  
  391. @Function@END FUNCTION
  392.  
  393.  
  394.  
  395. @Function@FUNCTION Searchem()
  396.  
  397. onerror toasties
  398.  
  399. oncancel toasties
  400.  
  401. HourGlass(1)
  402.  
  403. StatusBarMsg("Setting up for area code data query...")
  404.  
  405. MaxRecords = GetGlobalVar$("MaxRecords")
  406.  
  407. DIM Data(MaxRecords)
  408.  
  409. FOR I = 1 to MaxRecords
  410.  
  411.     Data(I) = GetGlobalArray$("Data", I)
  412.  
  413. NEXT
  414.  
  415. LookupAreaCodes:
  416.  
  417. DIM FoundData(MaxRecords)
  418.  
  419. Found = 0
  420.  
  421. OurZone = GetGlobalVar$("OurZone")
  422.  
  423. HourGlass(0)
  424.  
  425. AreaCodeBox = DialogBox("." "AreaCodeData")
  426.  
  427. HourGlass(1)
  428.  
  429. StatusBarMsg("")
  430.  
  431. IF AreaCodeBox = -1
  432.  
  433.     Message("Can't find the dialog box.  Exiting macro!")
  434.  
  435.     CALL ExitMacro()
  436.  
  437.     GoTo toasties
  438.  
  439. ELSEIF AreaCodeBox = 0
  440.  
  441.     GoTo toasties
  442.  
  443. ENDIF
  444.  
  445. Acode = GetDialogField$(8000)
  446.  
  447. Ndex = 1
  448.  
  449. ArrayInsert(&Data, 1, "")
  450.  
  451. WHILE Ndex != 0
  452.  
  453.     Ndex = ArraySearch(&Data, Acode, 2, "~", Ndex)
  454.  
  455.     IF Ndex != 0
  456.  
  457.         Found = Found + 1
  458.  
  459.         FoundData(Found) = Data(Ndex)
  460.  
  461.     ENDIF
  462.  
  463. WEND
  464.  
  465. IF Found <;> 1
  466.  
  467. DIM foundline(found)
  468.  
  469.     FOR I = 1 to Found
  470.  
  471.         FoundData(I) = strcat$(strfield$(FoundData(I), 1, "~") "/" strfield$(FoundData(I), 2, "~") "/" strfield$(FoundData(I), 3, "~") "/" strfield$(FoundData(I), 4, "~"))
  472.  
  473.         FillEdit(9000, FoundData(I))
  474.  
  475.     NEXT
  476.  
  477.     HourGlass(0)
  478.  
  479.     FillEdit(8500, "{Found} locations found:")
  480.  
  481.     FoundBox = DialogBox(".", "FoundDataBox")
  482.  
  483.     HourGlass(1)
  484.  
  485.     IF FoundBox = -1
  486.  
  487.         HourGlass(0)
  488.  
  489.         Message("Can't open the dialog box!  Exiting macro.")
  490.  
  491.         HourGlass(1)
  492.  
  493.         GoTo toasties
  494.  
  495.     ELSEIF FoundBox = 0
  496.  
  497.         GoTo LookupAreaCodes
  498.  
  499.     ENDIF
  500.  
  501.     DataLine = GetDialogField$(9000)
  502.  
  503.     FOR I = 1 to Found
  504.  
  505.         IF DataLine = FoundData(I)
  506.  
  507.             Ccode = strfield$(DataLine, 1, "/")
  508.  
  509.             Acode = strfield$(DataLine, 2, "/")
  510.  
  511.             Location = strfield$(strfield$(DataLine, 3, "/"), 1, "!")
  512.  
  513.             City = strfield$(strfield$(DataLine, 3, "/"), 2, "!")
  514.  
  515.             TimeZone = strfield$(DataLine, 4, "/")
  516.  
  517.         ENDIF
  518.  
  519.     NEXT
  520.  
  521. ELSEIF Found = 0
  522.  
  523.     Message("Sorry, but I could find no matching records.")
  524.  
  525.     GoTo LookupAreaCodes
  526.  
  527. ELSE
  528.  
  529.     Ccode = strfield$(FoundData(1), 1, "~")
  530.  
  531.     Acode = strfield$(FoundData(1), 2, "~")
  532.  
  533.     Location = strfield$(strfield$(FoundData(1), 3, "~"), 1, "!")
  534.  
  535.     City = strfield$(strfield$(FoundData(1), 3, "~"), 2, "!")
  536.  
  537.     TimeZone = strfield$(FoundData(1), 4, "~")
  538.  
  539. ENDIF
  540.  
  541. TimeDiff = CALL FindTimeDiff(TimeZone, OurZone)
  542.  
  543. IF TimeDiff <;> 24 OR TimeDiff << -24
  544.  
  545.     HourGlass(0)
  546.  
  547.     StatusBarMsg("Time zone conflict.")
  548.  
  549.     IF TimeDiff = 383
  550.  
  551.         Message("Both your time zone and the location's time zone are incorrect.")
  552.  
  553.     ELSEIF TimeDiff <;> 128
  554.  
  555.         Message("Your time zone is incorrect.")
  556.  
  557.     ELSEIF TimeDiff <;> 100
  558.  
  559.         Message("The location's time zone is incorrect.")
  560.  
  561.     ENDIF
  562.  
  563.     StatusBarMsg("")
  564.  
  565.     HourGlass(1)
  566.  
  567.     GoTo toasties
  568.  
  569. ENDIF
  570.  
  571. OurTime = FormatTime$(Now(), 1)
  572.  
  573. OurDate = FormatDate$(Now(), "d")
  574.  
  575. TheirTime = FormatTime$((Now() + (3600 * TimeDiff)), 1)
  576.  
  577. IF (TheirTime << OurTime) AND (TimeDiff <;> 0)
  578.  
  579.     TheirDate = FormatDate$((86400 + Now()), "d")
  580.  
  581. ELSE
  582.  
  583.     TheirDate = OurDate
  584.  
  585. ENDIF
  586.  
  587.     OurTime = FormatTime$(Now(), 6)
  588.  
  589.     TheirTime = FormatTime$((Now() + (3600 * TimeDiff)), 6)
  590.  
  591. IF TimeDiff << 0
  592.  
  593.     TimeDiff = -1 * TimeDiff
  594.  
  595.     IF TimeDiff != 1
  596.  
  597.         s = "s"
  598.  
  599.     ELSE s = ""
  600.  
  601.     ENDIF
  602.  
  603.     TimeDiffString="{TimeDiff} hour{s} behind you."
  604.  
  605. ELSEIF TimeDiff <;> 0
  606.  
  607.     IF TimeDiff != 1
  608.  
  609.         s = "s"
  610.  
  611.     ELSE s = ""
  612.  
  613.     ENDIF
  614.  
  615.     TimeDiffString="{TimeDiff} hour{s} ahead of you."
  616.  
  617. ELSE 
  618.  
  619.     TimeDiffString="the same time as yours."
  620.  
  621. ENDIF
  622.  
  623. IF strfield$(City, 1, ",") != "" AND strfield$(City, 2, ",") != ""
  624.  
  625.     ctvar = "Cities are"
  626.  
  627. ELSE
  628.  
  629.     ctvar = "City is"
  630.  
  631. ENDIF
  632.  
  633. FillEdit(8010 "Country code: {Ccode}")
  634.  
  635. FillEdit(8011 "Area/City code: {Acode}")
  636.  
  637. FillEdit(8012 "{Location}")
  638.  
  639. FillEdit(8013 "Major {ctvar} {City}")
  640.  
  641. FillEdit(8014 "Time zone: {TimeZone}, {TimeDiffString}")
  642.  
  643. IF TimeDiff = 0
  644.  
  645.     FillEdit(8015, "The current time is")
  646.  
  647.     FillEdit(8016, "{OurTime} on {OurDate}")
  648.  
  649. ELSE
  650.  
  651.     FillEdit(8015 "Your time is {OurTime} on {OurDate}")
  652.  
  653.     FillEdit(8016 "Their time is {TheirTime} on {TheirDate}")
  654.  
  655. ENDIF
  656.  
  657. HourGlass(0)
  658.  
  659. ShowBox = DialogBox(".", "ShowDataBox")
  660.  
  661. HourGlass(1)
  662.  
  663. IF ShowBox = -1
  664.  
  665.     Message("Cannot find dialog box!  Exiting macro.")
  666.  
  667.     EXIT FUNCTION
  668.  
  669. ENDIF
  670.  
  671. GoTo LookupAreaCodes
  672.  
  673. toasties:
  674.  
  675. HourGlass(0)
  676.  
  677. @Function@END FUNCTION
  678.  
  679.  
  680.  
  681. @Function@FUNCTION FindTimeDiff(TimeZone, OurZone)
  682.  
  683. onerror toasties
  684.  
  685. oncancel toasties
  686.  
  687. OurZone = UCASE$(OurZone)
  688.  
  689. TimeZone = UCASE$(TimeZone)
  690.  
  691. SWITCH OurZone
  692.  
  693.     CASE "GMT"
  694.  
  695.         OurZone = 0
  696.  
  697.     CASE "ZW1"
  698.  
  699.         OurZone = 1
  700.  
  701.     CASE "ZW2"
  702.  
  703.         OurZone = 2
  704.  
  705.     CASE "ZW3"
  706.  
  707.         OurZone = 3
  708.  
  709.     CASE "ZW4"
  710.  
  711.         OurZone = 4
  712.  
  713.     CASE "ATLANTIC"
  714.  
  715.         OurZone = 5
  716.  
  717.     CASE "EASTERN"
  718.  
  719.         OurZone = 6
  720.  
  721.     CASE "CENTRAL"
  722.  
  723.         OurZone = 7
  724.  
  725.     CASE "MOUNTAIN"
  726.  
  727.         OurZone = 8
  728.  
  729.     CASE "PACIFIC"
  730.  
  731.         OurZone = 9
  732.  
  733.     CASE "ALASKAN"
  734.  
  735.         OurZone = 10
  736.  
  737.     CASE "HAWAIIAN"
  738.  
  739.         OurZone = 12
  740.  
  741.     CASE "ZE12"
  742.  
  743.         OurZone = -12
  744.  
  745.     CASE "ZE11"
  746.  
  747.         OurZone = -11
  748.  
  749.     CASE "EAT"
  750.  
  751.         OurZone = -10
  752.  
  753.     CASE "CAT"
  754.  
  755.         OurZone = -9
  756.  
  757.     CASE "WAT"
  758.  
  759.         OurZone = -8
  760.  
  761.     CASE "ZE6"
  762.  
  763.         OurZone = -6
  764.  
  765.     CASE "ZE5"
  766.  
  767.         OurZone = -5
  768.  
  769.     CASE "ZE4"
  770.  
  771.         OurZone = -4
  772.  
  773.     CASE "ZE3"
  774.  
  775.         OurZone = -3
  776.  
  777.     CASE "ZE2"
  778.  
  779.         OurZone = -2
  780.  
  781.     CASE "CET"
  782.  
  783.         OurZone = -1
  784.  
  785.     default
  786.  
  787.         OurZone = 255
  788.  
  789. ENDSWITCH
  790.  
  791. SWITCH TimeZone
  792.  
  793.     CASE "GMT"
  794.  
  795.         Timezone = 0
  796.  
  797.     CASE "ZW1"
  798.  
  799.         Timezone = 1
  800.  
  801.     CASE "ZW2"
  802.  
  803.         Timezone = 2
  804.  
  805.     CASE "ZW3"
  806.  
  807.         Timezone = 3
  808.  
  809.     CASE "ZW4"
  810.  
  811.         Timezone = 4
  812.  
  813.     CASE "ATLANTIC"
  814.  
  815.         Timezone = 5
  816.  
  817.     CASE "EASTERN"
  818.  
  819.         Timezone = 6
  820.  
  821.     CASE "CENTRAL"
  822.  
  823.         Timezone = 7
  824.  
  825.     CASE "MOUNTAIN"
  826.  
  827.         Timezone = 8
  828.  
  829.     CASE "PACIFIC"
  830.  
  831.         Timezone = 9
  832.  
  833.     CASE "ALASKAN"
  834.  
  835.         Timezone = 10
  836.  
  837.     CASE "HAWAIIAN"
  838.  
  839.         Timezone = 12
  840.  
  841.     CASE "ZE12"
  842.  
  843.         Timezone = -12
  844.  
  845.     CASE "ZE11"
  846.  
  847.         Timezone = -11
  848.  
  849.     CASE "EAT"
  850.  
  851.         Timezone = -10
  852.  
  853.     CASE "CAT"
  854.  
  855.         Timezone = -9
  856.  
  857.     CASE "WAT"
  858.  
  859.         Timezone = -8
  860.  
  861.     CASE "ZE6"
  862.  
  863.         Timezone = -6
  864.  
  865.     CASE "ZE5"
  866.  
  867.         Timezone = -5
  868.  
  869.     CASE "ZE4"
  870.  
  871.         Timezone = -4
  872.  
  873.     CASE "ZE3"
  874.  
  875.         Timezone = -3
  876.  
  877.     CASE "ZE2"
  878.  
  879.         Timezone = -2
  880.  
  881.     CASE "CET"
  882.  
  883.         Timezone = -1
  884.  
  885.     default
  886.  
  887.         TimeZone = 128
  888.  
  889. ENDSWITCH
  890.  
  891. TimeDiff = OurZone - TimeZone
  892.  
  893. return TimeDiff
  894.  
  895. toasties:
  896.  
  897. HourGlass(0)
  898.  
  899. @Function@END FUNCTION
  900.  
  901.  
  902.  
  903. @Function@DIALOG FoundDataBox
  904.  
  905. -2134376448 4 52 72 248 90 "" "" "Items Found"
  906.  
  907. FONT 6 "Helv"
  908.  
  909. 8 12 188 72 9000 1352728579 "listbox" "" 0 
  910.  
  911. 204 4 40 14 1 1342242817 "button" "OK" 0 
  912.  
  913. 204 20 40 14 2 1342242816 "button" "Cancel" 0 
  914.  
  915. 8 4 72 8 8500 1342177280 "static" "locations found:" 0 
  916.  
  917. @Function@END DIALOG
  918.  
  919.  
  920.  
  921. @Function@DIALOG AreaCodeData
  922.  
  923. -2134376448 4 132 56 140 38 "" "" "Area Codes"
  924.  
  925. FONT 6 "Helv"
  926.  
  927. 66 12 16 12 8000 1350631552 "edit" "" 0 
  928.  
  929. 96 4 40 14 1 1342373889 "button" "OK" 0 
  930.  
  931. 96 20 40 14 2 1342373888 "button" "Cancel" 0 
  932.  
  933. 6 14 56 8 1000 1342177280 "static" "&Area/City code:" 0 
  934.  
  935. @Function@END DIALOG
  936.  
  937.  
  938.  
  939. @Function@DIALOG ShowDataBox
  940.  
  941. -2134376448 10 98 52 210 114 "" "" "Area Code Information"
  942.  
  943. FONT 6 "Helv"
  944.  
  945. 166 4 40 14 1 1342373889 "button" "OK" 0 
  946.  
  947. 6 8 70 8 8010 1342177280 "static" "Country code: xxx" 0 
  948.  
  949. 84 8 70 8 8011 1342177280 "static" "Area/City code: xxx" 0 
  950.  
  951. 8 34 194 8 8012 1342177281 "static" "Geographical location goes here" 0 
  952.  
  953. 8 48 194 8 8013 1342177281 "static" "Major cities are: major cities go here" 0 
  954.  
  955. 4 20 202 42 10 1342177287 "button" "Geographical information" 0 
  956.  
  957. 4 62 202 48 11 1342177287 "button" "Time information" 0 
  958.  
  959. 8 74 194 8 8014 1342177281 "static" "Time zone:  XXXXXXXX, 99 hours ahead of you." 0 
  960.  
  961. 8 86 194 8 8015 1342177281 "static" "Your time:  12:00pm on Thursday, December 14, 1991" 0 
  962.  
  963. 8 98 194 8 8016 1342177281 "static" "Your time: 12:00pm, Their time: 12:00pm" 0 
  964.  
  965. @Function@END DIALOG
  966.  
  967.  
  968.  
  969. @Function@DIALOG DefaultBox
  970.  
  971. -2134376448 4 120 48 142 38 "" "" "Area Codes Defaults"
  972.  
  973. FONT 6 "Helv"
  974.  
  975. 6 6 62 10 1000 1342308352 "static" "&Your time zone:" 0 
  976.  
  977. 4 20 88 40 9500 1344339971 "combobox" "" 0 
  978.  
  979. 98 4 40 14 1 1342373889 "button" "OK" 0 
  980.  
  981. 98 20 40 14 2 1342373888 "button" "Cancel" 0 
  982.  
  983. @Function@END DIALOG
  984.  
  985. >
  986.  
  987. [Embedded]
  988. 00013398
  989. >
  990. [macsum] 9
  991. AreaCodes 0 0 8 0
  992. Defaults 1686 0 4 58
  993. ExitCodes 2475 0 1 98
  994. Searchem 2571 0 26 106
  995. FindTimeDiff 6386 2 2 250
  996. FoundDataBox 9222 0 -1 362
  997. AreaCodeData 9501 0 -1 372
  998. ShowDataBox 9776 0 -1 382
  999. DefaultBox 10576 0 -1 398
  1000. [macse]
  1001. 14 AreaCodes
  1002. 20 00001498
  1003. 19 00001498
  1004. 0 296 1
  1005. 16 ExitCodes
  1006. 0 802
  1007. 13
  1008. 8 3
  1009. 0 295
  1010. 13
  1011. 8 4
  1012. 0 284 "user,GetActiveWindow,H"
  1013. 13
  1014. 0 284 "user,SetWindowText,IHC" [X] "Adding ""ACodes"" to the default Ami Pro menu bar."
  1015. 0 515 1 "&ACodes"
  1016. 0 516 1 "&ACodes" "&Find Area Code..." "{3}!Searchem()" "Look up data related to a specified area code."
  1017. 0 516 1 "&ACodes" "Set &Defaults..." "{3}!Defaults()" "Set your time zone"
  1018. 0 516 1 "&ACodes" "-" "" ""
  1019. 0 516 1 "&ACodes" "E&xit Area Codes" "{3}!ExitCodes()" "Remove the ACodes menu."
  1020. 7 ""
  1021. 0 280 "{4}ACODES.INI" 0
  1022. 13
  1023. 18 0
  1024. 11 00000695
  1025. 0 296 0
  1026. 0 3 "Cannot find {4}ACODES.INI, please place in your Macros directory."
  1027. 16 ExitCodes
  1028. 10 00001498
  1029. 0 286 "Header" "MaxRecords" "{4}ACODES.INI"
  1030. 13
  1031. 8 5
  1032. 6 5
  1033. 7 ""
  1034. 18 0
  1035. 6 5
  1036. 5 0
  1037. 18 0
  1038. 1 2
  1039. 11 00000810
  1040. 5 1
  1041. 8 5
  1042. 0 286 "Header" "OurZone" "{4}ACODES.INI"
  1043. 13
  1044. 8 6
  1045. 0 271 "Data" "{5}"
  1046. 0 271 "OurZone" 1
  1047. 0 271 "MaxRecords" 1
  1048. 0 264 "OurZone" "{6}"
  1049. 0 264 "MaxRecords" "{5}"
  1050. 5 0
  1051. 0 259 "{4}ACODES.INI" "r"
  1052. 13
  1053. 0 805 &1 [X]
  1054. 13
  1055. 18 1
  1056. 11 00001166
  1057. 7 "DATA"
  1058. 0 257 "{1}"
  1059. 13
  1060. 0 805 &2 [X]
  1061. 13
  1062. 0 15 [X] 2 4
  1063. 13
  1064. 0 18 [X]
  1065. 13
  1066. 18 1
  1067. 11 00001153
  1068. 10 00001044
  1069. 10 00001230
  1070. 0 3 "Could not open {4}ACODES.INI!"
  1071. 16 ExitCodes
  1072. 10 00001498
  1073. 0 789 "Reading area code information from data file, please wait..."
  1074. 5 1
  1075. 8 7
  1076. 6 5
  1077. 6 7
  1078. 18 2
  1079. 12 00001385
  1080. 10 00001466
  1081. 5 1
  1082. 6 7
  1083. 3 0
  1084. 8 7
  1085. 10 00001310
  1086. 0 257 "{1}"
  1087. 13
  1088. 8 2
  1089. 0 20 "{2}" 2 "="
  1090. 13
  1091. 0 272 "Data" "{7}" [X]
  1092. 10 00001352
  1093. 0 260 "{1}"
  1094. 0 296 0
  1095. 0 789 ""
  1096. 0 296 0
  1097. 0 284 "user,GetActiveWindow,H"
  1098. 13
  1099. 0 284 "user,SetWindowText,IHC" [X] ""
  1100. 0 284 "user,GetActiveWindow,H"
  1101. 13
  1102. 0 284 "user,SetWindowText,IHC" [X] "Ami Pro"
  1103. 0 789 ""
  1104. 6 0
  1105. 15
  1106. 9
  1107. 14 Defaults
  1108. 0 265 "OurZone"
  1109. 13
  1110. 0 31 9500 [X]
  1111. 0 31 9500 "Atlantic"
  1112. 0 31 9500 "Eastern"
  1113. 0 31 9500 "Central"
  1114. 0 31 9500 "Mountain"
  1115. 0 31 9500 "Pacific"
  1116. 0 31 9500 "Alaskan"
  1117. 0 31 9500 "Hawaiian"
  1118. 0 31 9500 "ZE12"
  1119. 0 31 9500 "ZE11"
  1120. 0 31 9500 "EAT"
  1121. 0 31 9500 "CAT"
  1122. 0 31 9500 "WAT"
  1123. 0 31 9500 "ZE7"
  1124. 0 31 9500 "ZE6"
  1125. 0 31 9500 "ZE5"
  1126. 0 31 9500 "ZE4"
  1127. 0 31 9500 "ZE3"
  1128. 0 31 9500 "ZE2"
  1129. 0 31 9500 "CET"
  1130. 0 31 9500 "GMT"
  1131. 0 31 9500 "ZW1"
  1132. 0 31 9500 "ZW2"
  1133. 0 31 9500 "ZW3"
  1134. 0 31 9500 "ZW4"
  1135. 0 295
  1136. 13
  1137. 8 1
  1138. 0 26 "." "DefaultBox"
  1139. 13
  1140. 8 2
  1141. 6 2
  1142. 5 -1
  1143. 18 0
  1144. 11 00000645
  1145. 0 3 "Could not find dialog box; Exiting function."
  1146. 6 0
  1147. 15
  1148. 9
  1149. 10 00000686
  1150. 6 2
  1151. 5 0
  1152. 18 0
  1153. 11 00000686
  1154. 6 0
  1155. 15
  1156. 9
  1157. 0 27 9500
  1158. 13
  1159. 8 3
  1160. 0 287 "Header" "OurZone" "{3}" "{1}ACODES.INI"
  1161. 0 264 "OurZone" "{3}"
  1162. 6 0
  1163. 15
  1164. 9
  1165. 14 ExitCodes
  1166. 0 266 "MaxRecords"
  1167. 0 266 "Data"
  1168. 0 266 "OurZone"
  1169. 0 521 1 "&ACodes"
  1170. 6 0
  1171. 15
  1172. 9
  1173. 14 Searchem
  1174. 20 00003794
  1175. 19 00003794
  1176. 0 296 1
  1177. 0 789 "Setting up for area code data query..."
  1178. 0 265 "MaxRecords"
  1179. 13
  1180. 8 1
  1181. 6 1
  1182. 21 2 [X]
  1183. 5 1
  1184. 8 3
  1185. 6 1
  1186. 6 3
  1187. 18 2
  1188. 12 00000225
  1189. 10 00000273
  1190. 5 1
  1191. 6 3
  1192. 3 0
  1193. 8 3
  1194. 10 00000150
  1195. 6 3
  1196. 0 273 "Data" "{3}"
  1197. 13
  1198. 23 2
  1199. 10 00000192
  1200. 6 1
  1201. 21 4 [X]
  1202. 5 0
  1203. 8 5
  1204. 0 265 "OurZone"
  1205. 13
  1206. 8 6
  1207. 0 296 0
  1208. 0 26 "." "AreaCodeData"
  1209. 13
  1210. 8 7
  1211. 0 296 1
  1212. 0 789 ""
  1213. 6 7
  1214. 5 -1
  1215. 18 0
  1216. 11 00000506
  1217. 0 3 "Can't find the dialog box.  Exiting macro!"
  1218. 16 ExitMacro
  1219. 10 00003794
  1220. 10 00000548
  1221. 6 7
  1222. 5 0
  1223. 18 0
  1224. 11 00000548
  1225. 10 00003794
  1226. 0 27 8000
  1227. 13
  1228. 8 8
  1229. 5 1
  1230. 8 9
  1231. 0 1041 &2 1 ""
  1232. 6 9
  1233. 5 0
  1234. 18 1
  1235. 11 00000745
  1236. 0 1044 &2 "{8}" 2 "~" "{9}"
  1237. 13
  1238. 8 9
  1239. 6 9
  1240. 5 0
  1241. 18 1
  1242. 11 00000732
  1243. 6 5
  1244. 5 1
  1245. 3 0
  1246. 8 5
  1247. 6 5
  1248. 6 9
  1249. 22 2
  1250. 23 4
  1251. 10 00000594
  1252. 6 5
  1253. 5 1
  1254. 18 3
  1255. 11 00001694
  1256. 6 5
  1257. 21 10 [X]
  1258. 5 1
  1259. 8 3
  1260. 6 5
  1261. 6 3
  1262. 18 2
  1263. 12 00000875
  1264. 10 00001087
  1265. 5 1
  1266. 6 3
  1267. 3 0
  1268. 8 3
  1269. 10 00000800
  1270. 6 3
  1271. 6 3
  1272. 22 4
  1273. 0 20 [X] 1 "~"
  1274. 13
  1275. 6 3
  1276. 22 4
  1277. 0 20 [X] 2 "~"
  1278. 13
  1279. 6 3
  1280. 22 4
  1281. 0 20 [X] 3 "~"
  1282. 13
  1283. 6 3
  1284. 22 4
  1285. 0 20 [X] 4 "~"
  1286. 13
  1287. 0 16 [X] "/" [X] "/" [X] "/" [X]
  1288. 13
  1289. 23 4
  1290. 6 3
  1291. 22 4
  1292. 0 31 9000 [X]
  1293. 10 00000842
  1294. 0 296 0
  1295. 0 31 8500 "{5} locations found:"
  1296. 0 26 "." "FoundDataBox"
  1297. 13
  1298. 8 11
  1299. 0 296 1
  1300. 6 11
  1301. 5 -1
  1302. 18 0
  1303. 11 00001299
  1304. 0 296 0
  1305. 0 3 "Can't open the dialog box!  Exiting macro."
  1306. 0 296 1
  1307. 10 00003794
  1308. 10 00001342
  1309. 6 11
  1310. 5 0
  1311. 18 0
  1312. 11 00001342
  1313. 10 00000273
  1314. 0 27 9000
  1315. 13
  1316. 8 12
  1317. 5 1
  1318. 8 3
  1319. 6 5
  1320. 6 3
  1321. 18 2
  1322. 12 00001448
  1323. 10 00001681
  1324. 5 1
  1325. 6 3
  1326. 3 0
  1327. 8 3
  1328. 10 00001373
  1329. 6 12
  1330. 6 3
  1331. 22 4
  1332. 18 0
  1333. 11 00001668
  1334. 0 20 "{12}" 1 "/"
  1335. 13
  1336. 8 13
  1337. 0 20 "{12}" 2 "/"
  1338. 13
  1339. 8 8
  1340. 0 20 "{12}" 3 "/"
  1341. 13
  1342. 0 20 [X] 1 "!"
  1343. 13
  1344. 8 14
  1345. 0 20 "{12}" 3 "/"
  1346. 13
  1347. 0 20 [X] 2 "!"
  1348. 13
  1349. 8 15
  1350. 0 20 "{12}" 4 "/"
  1351. 13
  1352. 8 16
  1353. 10 00001415
  1354. 10 00002025
  1355. 6 5
  1356. 5 0
  1357. 18 0
  1358. 11 00001801
  1359. 0 3 "Sorry, but I could find no matching records."
  1360. 10 00000273
  1361. 10 00002025
  1362. 5 1
  1363. 22 4
  1364. 0 20 [X] 1 "~"
  1365. 13
  1366. 8 13
  1367. 5 1
  1368. 22 4
  1369. 0 20 [X] 2 "~"
  1370. 13
  1371. 8 8
  1372. 5 1
  1373. 22 4
  1374. 0 20 [X] 3 "~"
  1375. 13
  1376. 0 20 [X] 1 "!"
  1377. 13
  1378. 8 14
  1379. 5 1
  1380. 22 4
  1381. 0 20 [X] 3 "~"
  1382. 13
  1383. 0 20 [X] 2 "!"
  1384. 13
  1385. 8 15
  1386. 5 1
  1387. 22 4
  1388. 0 20 [X] 4 "~"
  1389. 13
  1390. 8 16
  1391. 16 FindTimeDiff "{16}" "{6}"
  1392. 13
  1393. 8 17
  1394. 6 17
  1395. 5 24
  1396. 18 3
  1397. 6 17
  1398. 5 -24
  1399. 18 5
  1400. 1 2
  1401. 11 00002465
  1402. 0 296 0
  1403. 0 789 "Time zone conflict."
  1404. 6 17
  1405. 5 383
  1406. 18 0
  1407. 11 00002274
  1408. 0 3 "Both your time zone and the location's time zone are incorrect."
  1409. 10 00002433
  1410. 6 17
  1411. 5 128
  1412. 18 3
  1413. 11 00002355
  1414. 0 3 "Your time zone is incorrect."
  1415. 10 00002433
  1416. 6 17
  1417. 5 100
  1418. 18 3
  1419. 11 00002433
  1420. 0 3 "The location's time zone is incorrect."
  1421. 0 789 ""
  1422. 0 296 1
  1423. 10 00003794
  1424. 0 772
  1425. 13
  1426. 0 773 [X] 1
  1427. 13
  1428. 8 18
  1429. 0 772
  1430. 13
  1431. 0 770 [X] "d"
  1432. 13
  1433. 8 19
  1434. 0 772
  1435. 13
  1436. 5 3600
  1437. 6 17
  1438. 4 0
  1439. 3 0
  1440. 0 773 [X] 1
  1441. 13
  1442. 8 20
  1443. 6 20
  1444. 6 18
  1445. 18 5
  1446. 6 17
  1447. 5 0
  1448. 18 3
  1449. 1 1
  1450. 11 00002709
  1451. 5 86400
  1452. 0 772
  1453. 13
  1454. 3 0
  1455. 0 770 [X] "d"
  1456. 13
  1457. 8 21
  1458. 10 00002721
  1459. 6 19
  1460. 8 21
  1461. 0 772
  1462. 13
  1463. 0 773 [X] 6
  1464. 13
  1465. 8 18
  1466. 0 772
  1467. 13
  1468. 5 3600
  1469. 6 17
  1470. 4 0
  1471. 3 0
  1472. 0 773 [X] 6
  1473. 13
  1474. 8 20
  1475. 6 17
  1476. 5 0
  1477. 18 5
  1478. 11 00002984
  1479. 5 -1
  1480. 6 17
  1481. 4 0
  1482. 8 17
  1483. 6 17
  1484. 5 1
  1485. 18 1
  1486. 11 00002922
  1487. 7 "s"
  1488. 8 22
  1489. 10 00002934
  1490. 7 ""
  1491. 8 22
  1492. 7 "{17} hour{22} behind you."
  1493. 8 23
  1494. 10 00003169
  1495. 6 17
  1496. 5 0
  1497. 18 3
  1498. 11 00003134
  1499. 6 17
  1500. 5 1
  1501. 18 1
  1502. 11 00003070
  1503. 7 "s"
  1504. 8 22
  1505. 10 00003082
  1506. 7 ""
  1507. 8 22
  1508. 7 "{17} hour{22} ahead of you."
  1509. 8 23
  1510. 10 00003169
  1511. 7 "the same time as yours."
  1512. 8 23
  1513. 0 20 "{15}" 1 ","
  1514. 13
  1515. 7 ""
  1516. 18 1
  1517. 0 20 "{15}" 2 ","
  1518. 13
  1519. 7 ""
  1520. 18 1
  1521. 1 1
  1522. 11 00003292
  1523. 7 "Cities are"
  1524. 8 24
  1525. 10 00003311
  1526. 7 "City is"
  1527. 8 24
  1528. 0 31 8010 "Country code: {13}"
  1529. 0 31 8011 "Area/City code: {8}"
  1530. 0 31 8012 "{14}"
  1531. 0 31 8013 "Major {24} {15}"
  1532. 0 31 8014 "Time zone: {16}, {23}"
  1533. 6 17
  1534. 5 0
  1535. 18 0
  1536. 11 00003560
  1537. 0 31 8015 "The current time is"
  1538. 0 31 8016 "{18} on {19}"
  1539. 10 00003639
  1540. 0 31 8015 "Your time is {18} on {19}"
  1541. 0 31 8016 "Their time is {20} on {21}"
  1542. 0 296 0
  1543. 0 26 "." "ShowDataBox"
  1544. 13
  1545. 8 25
  1546. 0 296 1
  1547. 6 25
  1548. 5 -1
  1549. 18 0
  1550. 11 00003781
  1551. 0 3 "Cannot find dialog box!  Exiting macro."
  1552. 6 0
  1553. 15
  1554. 9
  1555. 10 00000273
  1556. 0 296 0
  1557. 6 0
  1558. 15
  1559. 9
  1560. 14 FindTimeDiff
  1561. 20 00002815
  1562. 19 00002815
  1563. 0 18 "{1}"
  1564. 13
  1565. 8 1
  1566. 0 18 "{0}"
  1567. 13
  1568. 8 0
  1569. 7 "GMT"
  1570. 6 1
  1571. 18 0
  1572. 11 00000141
  1573. 5 0
  1574. 8 1
  1575. 10 00001434
  1576. 7 "ZW1"
  1577. 6 1
  1578. 18 0
  1579. 11 00000197
  1580. 5 1
  1581. 8 1
  1582. 10 00001434
  1583. 7 "ZW2"
  1584. 6 1
  1585. 18 0
  1586. 11 00000253
  1587. 5 2
  1588. 8 1
  1589. 10 00001434
  1590. 7 "ZW3"
  1591. 6 1
  1592. 18 0
  1593. 11 00000309
  1594. 5 3
  1595. 8 1
  1596. 10 00001434
  1597. 7 "ZW4"
  1598. 6 1
  1599. 18 0
  1600. 11 00000365
  1601. 5 4
  1602. 8 1
  1603. 10 00001434
  1604. 7 "ATLANTIC"
  1605. 6 1
  1606. 18 0
  1607. 11 00000426
  1608. 5 5
  1609. 8 1
  1610. 10 00001434
  1611. 7 "EASTERN"
  1612. 6 1
  1613. 18 0
  1614. 11 00000486
  1615. 5 6
  1616. 8 1
  1617. 10 00001434
  1618. 7 "CENTRAL"
  1619. 6 1
  1620. 18 0
  1621. 11 00000546
  1622. 5 7
  1623. 8 1
  1624. 10 00001434
  1625. 7 "MOUNTAIN"
  1626. 6 1
  1627. 18 0
  1628. 11 00000607
  1629. 5 8
  1630. 8 1
  1631. 10 00001434
  1632. 7 "PACIFIC"
  1633. 6 1
  1634. 18 0
  1635. 11 00000667
  1636. 5 9
  1637. 8 1
  1638. 10 00001434
  1639. 7 "ALASKAN"
  1640. 6 1
  1641. 18 0
  1642. 11 00000728
  1643. 5 10
  1644. 8 1
  1645. 10 00001434
  1646. 7 "HAWAIIAN"
  1647. 6 1
  1648. 18 0
  1649. 11 00000790
  1650. 5 12
  1651. 8 1
  1652. 10 00001434
  1653. 7 "ZE12"
  1654. 6 1
  1655. 18 0
  1656. 11 00000849
  1657. 5 -12
  1658. 8 1
  1659. 10 00001434
  1660. 7 "ZE11"
  1661. 6 1
  1662. 18 0
  1663. 11 00000908
  1664. 5 -11
  1665. 8 1
  1666. 10 00001434
  1667. 7 "EAT"
  1668. 6 1
  1669. 18 0
  1670. 11 00000966
  1671. 5 -10
  1672. 8 1
  1673. 10 00001434
  1674. 7 "CAT"
  1675. 6 1
  1676. 18 0
  1677. 11 00001023
  1678. 5 -9
  1679. 8 1
  1680. 10 00001434
  1681. 7 "WAT"
  1682. 6 1
  1683. 18 0
  1684. 11 00001080
  1685. 5 -8
  1686. 8 1
  1687. 10 00001434
  1688. 7 "ZE6"
  1689. 6 1
  1690. 18 0
  1691. 11 00001137
  1692. 5 -6
  1693. 8 1
  1694. 10 00001434
  1695. 7 "ZE5"
  1696. 6 1
  1697. 18 0
  1698. 11 00001194
  1699. 5 -5
  1700. 8 1
  1701. 10 00001434
  1702. 7 "ZE4"
  1703. 6 1
  1704. 18 0
  1705. 11 00001251
  1706. 5 -4
  1707. 8 1
  1708. 10 00001434
  1709. 7 "ZE3"
  1710. 6 1
  1711. 18 0
  1712. 11 00001308
  1713. 5 -3
  1714. 8 1
  1715. 10 00001434
  1716. 7 "ZE2"
  1717. 6 1
  1718. 18 0
  1719. 11 00001365
  1720. 5 -2
  1721. 8 1
  1722. 10 00001434
  1723. 7 "CET"
  1724. 6 1
  1725. 18 0
  1726. 11 00001422
  1727. 5 -1
  1728. 8 1
  1729. 10 00001434
  1730. 5 255
  1731. 8 1
  1732. 7 "GMT"
  1733. 6 0
  1734. 18 0
  1735. 11 00001490
  1736. 5 0
  1737. 8 0
  1738. 10 00002783
  1739. 7 "ZW1"
  1740. 6 0
  1741. 18 0
  1742. 11 00001546
  1743. 5 1
  1744. 8 0
  1745. 10 00002783
  1746. 7 "ZW2"
  1747. 6 0
  1748. 18 0
  1749. 11 00001602
  1750. 5 2
  1751. 8 0
  1752. 10 00002783
  1753. 7 "ZW3"
  1754. 6 0
  1755. 18 0
  1756. 11 00001658
  1757. 5 3
  1758. 8 0
  1759. 10 00002783
  1760. 7 "ZW4"
  1761. 6 0
  1762. 18 0
  1763. 11 00001714
  1764. 5 4
  1765. 8 0
  1766. 10 00002783
  1767. 7 "ATLANTIC"
  1768. 6 0
  1769. 18 0
  1770. 11 00001775
  1771. 5 5
  1772. 8 0
  1773. 10 00002783
  1774. 7 "EASTERN"
  1775. 6 0
  1776. 18 0
  1777. 11 00001835
  1778. 5 6
  1779. 8 0
  1780. 10 00002783
  1781. 7 "CENTRAL"
  1782. 6 0
  1783. 18 0
  1784. 11 00001895
  1785. 5 7
  1786. 8 0
  1787. 10 00002783
  1788. 7 "MOUNTAIN"
  1789. 6 0
  1790. 18 0
  1791. 11 00001956
  1792. 5 8
  1793. 8 0
  1794. 10 00002783
  1795. 7 "PACIFIC"
  1796. 6 0
  1797. 18 0
  1798. 11 00002016
  1799. 5 9
  1800. 8 0
  1801. 10 00002783
  1802. 7 "ALASKAN"
  1803. 6 0
  1804. 18 0
  1805. 11 00002077
  1806. 5 10
  1807. 8 0
  1808. 10 00002783
  1809. 7 "HAWAIIAN"
  1810. 6 0
  1811. 18 0
  1812. 11 00002139
  1813. 5 12
  1814. 8 0
  1815. 10 00002783
  1816. 7 "ZE12"
  1817. 6 0
  1818. 18 0
  1819. 11 00002198
  1820. 5 -12
  1821. 8 0
  1822. 10 00002783
  1823. 7 "ZE11"
  1824. 6 0
  1825. 18 0
  1826. 11 00002257
  1827. 5 -11
  1828. 8 0
  1829. 10 00002783
  1830. 7 "EAT"
  1831. 6 0
  1832. 18 0
  1833. 11 00002315
  1834. 5 -10
  1835. 8 0
  1836. 10 00002783
  1837. 7 "CAT"
  1838. 6 0
  1839. 18 0
  1840. 11 00002372
  1841. 5 -9
  1842. 8 0
  1843. 10 00002783
  1844. 7 "WAT"
  1845. 6 0
  1846. 18 0
  1847. 11 00002429
  1848. 5 -8
  1849. 8 0
  1850. 10 00002783
  1851. 7 "ZE6"
  1852. 6 0
  1853. 18 0
  1854. 11 00002486
  1855. 5 -6
  1856. 8 0
  1857. 10 00002783
  1858. 7 "ZE5"
  1859. 6 0
  1860. 18 0
  1861. 11 00002543
  1862. 5 -5
  1863. 8 0
  1864. 10 00002783
  1865. 7 "ZE4"
  1866. 6 0
  1867. 18 0
  1868. 11 00002600
  1869. 5 -4
  1870. 8 0
  1871. 10 00002783
  1872. 7 "ZE3"
  1873. 6 0
  1874. 18 0
  1875. 11 00002657
  1876. 5 -3
  1877. 8 0
  1878. 10 00002783
  1879. 7 "ZE2"
  1880. 6 0
  1881. 18 0
  1882. 11 00002714
  1883. 5 -2
  1884. 8 0
  1885. 10 00002783
  1886. 7 "CET"
  1887. 6 0
  1888. 18 0
  1889. 11 00002771
  1890. 5 -1
  1891. 8 0
  1892. 10 00002783
  1893. 5 128
  1894. 8 0
  1895. 6 1
  1896. 6 0
  1897. 3 1
  1898. 8 3
  1899. 6 3
  1900. 15
  1901. 9
  1902. 0 296 0
  1903. 6 2
  1904. 15
  1905. 9
  1906. DIALOG FoundDataBox
  1907. -2134376448 4 52 72 248 90 "" "" "Items Found" 
  1908. FONT 6 "Helv" 
  1909. 8 12 188 72 9000 1352728579 "listbox" "" 0 
  1910. 204 4 40 14 1 1342242817 "button" "OK" 0 
  1911. 204 20 40 14 2 1342242816 "button" "Cancel" 0 
  1912. 8 4 72 8 8500 1342177280 "static" "locations found:" 0 
  1913. DIALOG AreaCodeData
  1914. -2134376448 4 132 56 140 38 "" "" "Area Codes" 
  1915. FONT 6 "Helv" 
  1916. 66 12 16 12 8000 1350631552 "edit" "" 0 
  1917. 96 4 40 14 1 1342373889 "button" "OK" 0 
  1918. 96 20 40 14 2 1342373888 "button" "Cancel" 0 
  1919. 6 14 56 8 1000 1342177280 "static" "&Area/City code:" 0 
  1920. DIALOG ShowDataBox
  1921. -2134376448 10 98 52 210 114 "" "" "Area Code Information" 
  1922. FONT 6 "Helv" 
  1923. 166 4 40 14 1 1342373889 "button" "OK" 0 
  1924. 6 8 70 8 8010 1342177280 "static" "Country code: xxx" 0 
  1925. 84 8 70 8 8011 1342177280 "static" "Area/City code: xxx" 0 
  1926. 8 34 194 8 8012 1342177281 "static" "Geographical location goes here" 0 
  1927. 8 48 194 8 8013 1342177281 "static" "Major cities are: major cities go here" 0 
  1928. 4 20 202 42 10 1342177287 "button" "Geographical information" 0 
  1929. 4 62 202 48 11 1342177287 "button" "Time information" 0 
  1930. 8 74 194 8 8014 1342177281 "static" "Time zone:  XXXXXXXX, 99 hours ahead of you." 0 
  1931. 8 86 194 8 8015 1342177281 "static" "Your time:  12:00pm on Thursday, December 14, 1991" 0 
  1932. 8 98 194 8 8016 1342177281 "static" "Your time: 12:00pm, Their time: 12:00pm" 0 
  1933. DIALOG DefaultBox
  1934. -2134376448 4 120 48 142 38 "" "" "Area Codes Defaults" 
  1935. FONT 6 "Helv" 
  1936. 6 6 62 10 1000 1342308352 "static" "&Your time zone:" 0 
  1937. 4 20 88 40 9500 1344339971 "combobox" "" 0 
  1938. 98 4 40 14 1 1342373889 "button" "OK" 0 
  1939. 98 20 40 14 2 1342373888 "button" "Cancel" 0 
  1940. 00013423
  1941.