home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / SPANISH / LOTUS003.DSK / AUTOSTY.SMM < prev    next >
INI File  |  1995-11-28  |  24KB  |  2,282 lines

  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [charset]
  6.     82
  7.     ANSI (Windows, IBM CP 1252)
  8. [PanoseFontTable]
  9.     6
  10.     5
  11.     Helv
  12.     2818
  13.     1030
  14.     514
  15.     770
  16.     1026
  17.     LotusWP Type
  18.     514
  19.     774
  20.     1286
  21.     517
  22.     1027
  23.     Arial
  24.     2818
  25.     1030
  26.     514
  27.     514
  28.     1026
  29.     
  30.     257
  31.     257
  32.     257
  33.     257
  34.     257
  35.     Times New Roman
  36.     514
  37.     774
  38.     1029
  39.     517
  40.     1027
  41.     MS Sans Serif
  42.     2818
  43.     1030
  44.     514
  45.     514
  46.     1026
  47. [recfile]
  48.     
  49.     
  50.     0
  51.     2
  52.     3
  53.     12
  54.     1440
  55.     1440
  56. [revisions]
  57.     0
  58. [prn]
  59.     HP LaserJet 4 Plus/4M Plus
  60. [port]
  61.     LPT1:
  62. [lnopts]
  63.     2
  64.     Est<\a>ndar
  65.     1
  66. [fldnames]
  67.     Field1
  68.     Field2
  69.     Field3
  70.     Field4
  71.     Field5
  72.     Field6
  73.     Field7
  74.     Field8
  75. [desc]
  76.     
  77.     
  78.     
  79.     
  80.     
  81.     817598426
  82.     1
  83.     807846022
  84.     76
  85.     7
  86.     0
  87.     0
  88.     0
  89.     0
  90.     
  91.     
  92.     
  93.     
  94.     
  95.     
  96.     0
  97. [docopts]
  98.     5
  99.     2
  100. [GramStyle]
  101.     
  102. [lang]
  103.     1
  104. [fopts]
  105.     0
  106.     1
  107.     0
  108.     0
  109.     Continued on next page...
  110.     Continued from previous page...
  111. [tag]
  112.     Est<\a>ndar
  113.     1
  114.     [fnt]
  115.         Times New Roman
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         2
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         17
  127.         0
  128.         2
  129.         0
  130.         0
  131.         2
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         2
  139.         0
  140.         0
  141.         1
  142.         1
  143.         10
  144.         10
  145.         2
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         2
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         24
  159.         1
  160.         2
  161.         ,
  162.         .
  163.         $
  164.     Est<\a>ndar
  165.     0
  166.     0
  167. [tag]
  168.     Body Text
  169.     1
  170.     [fnt]
  171.         Times New Roman
  172.         240
  173.         0
  174.         49152
  175.     [algn]
  176.         1
  177.         2
  178.         0
  179.         0
  180.         0
  181.     [spc]
  182.         33
  183.         0
  184.         2
  185.         0
  186.         0
  187.         2
  188.         100
  189.     [brk]
  190.         4
  191.     [line]
  192.         8
  193.         0
  194.         2
  195.         0
  196.         0
  197.         1
  198.         1
  199.         10
  200.         10
  201.         2
  202.     [spec]
  203.         0
  204.         0
  205.         
  206.         0
  207.         2
  208.         1
  209.         0
  210.         0
  211.         0
  212.         0
  213.     [nfmt]
  214.         280
  215.         1
  216.         2
  217.         ,
  218.         .
  219.         $
  220.     Body Text
  221.     0
  222.     0
  223. [tag]
  224.     Body Single
  225.     1
  226.     [fnt]
  227.         Times New Roman
  228.         240
  229.         0
  230.         49152
  231.     [algn]
  232.         1
  233.         2
  234.         0
  235.         0
  236.         0
  237.     [spc]
  238.         33
  239.         0
  240.         2
  241.         0
  242.         0
  243.         2
  244.         100
  245.     [brk]
  246.         4
  247.     [line]
  248.         8
  249.         0
  250.         2
  251.         0
  252.         0
  253.         1
  254.         1
  255.         10
  256.         10
  257.         2
  258.     [spec]
  259.         0
  260.         0
  261.         
  262.         0
  263.         2
  264.         1
  265.         0
  266.         0
  267.         0
  268.         0
  269.     [nfmt]
  270.         280
  271.         1
  272.         2
  273.         ,
  274.         .
  275.         $
  276.     Body Single
  277.     0
  278.     0
  279. [tag]
  280.     Bullet
  281.     1
  282.     [fnt]
  283.         Times New Roman
  284.         240
  285.         0
  286.         49152
  287.     [algn]
  288.         1
  289.         2
  290.         0
  291.         288
  292.         288
  293.     [spc]
  294.         33
  295.         0
  296.         2
  297.         0
  298.         0
  299.         2
  300.         100
  301.     [brk]
  302.         4
  303.     [line]
  304.         8
  305.         0
  306.         2
  307.         0
  308.         0
  309.         1
  310.         1
  311.         10
  312.         10
  313.         2
  314.     [spec]
  315.         0
  316.         0
  317.         <*0>
  318.         0
  319.         2
  320.         1
  321.         0
  322.         0
  323.         0
  324.         0
  325.     [nfmt]
  326.         16
  327.         1
  328.         2
  329.         ,
  330.         .
  331.         $
  332.     Bullet
  333.     0
  334.     0
  335. [tag]
  336.     Bullet 1
  337.     1
  338.     [fnt]
  339.         Times New Roman
  340.         240
  341.         0
  342.         49152
  343.     [algn]
  344.         1
  345.         2
  346.         288
  347.         288
  348.         288
  349.     [spc]
  350.         33
  351.         0
  352.         2
  353.         0
  354.         0
  355.         2
  356.         100
  357.     [brk]
  358.         4
  359.     [line]
  360.         8
  361.         0
  362.         2
  363.         0
  364.         0
  365.         1
  366.         1
  367.         10
  368.         10
  369.         2
  370.     [spec]
  371.         0
  372.         0
  373.         <*5>
  374.         0
  375.         2
  376.         1
  377.         0
  378.         0
  379.         0
  380.         0
  381.     [nfmt]
  382.         280
  383.         1
  384.         2
  385.         ,
  386.         .
  387.         $
  388.     Bullet 1
  389.     0
  390.     0
  391. [tag]
  392.     Number List
  393.     1
  394.     [fnt]
  395.         Times New Roman
  396.         240
  397.         0
  398.         49152
  399.     [algn]
  400.         1
  401.         2
  402.         360
  403.         360
  404.         360
  405.     [spc]
  406.         33
  407.         0
  408.         2
  409.         0
  410.         0
  411.         2
  412.         100
  413.     [brk]
  414.         4
  415.     [line]
  416.         8
  417.         0
  418.         2
  419.         0
  420.         0
  421.         1
  422.         1
  423.         10
  424.         10
  425.         2
  426.     [spec]
  427.         0
  428.         0
  429.         <*:>.
  430.         0
  431.         2
  432.         1
  433.         0
  434.         16
  435.         0
  436.         0
  437.     [nfmt]
  438.         16
  439.         1
  440.         2
  441.         ,
  442.         .
  443.         $
  444.     Number List
  445.     0
  446.     0
  447. [tag]
  448.     Subhead
  449.     1
  450.     [fnt]
  451.         Times New Roman
  452.         240
  453.         0
  454.         49155
  455.     [algn]
  456.         1
  457.         2
  458.         0
  459.         0
  460.         0
  461.     [spc]
  462.         33
  463.         0
  464.         2
  465.         72
  466.         72
  467.         2
  468.         100
  469.     [brk]
  470.         4
  471.     [line]
  472.         8
  473.         0
  474.         2
  475.         0
  476.         0
  477.         1
  478.         1
  479.         10
  480.         10
  481.         2
  482.     [spec]
  483.         0
  484.         2
  485.         
  486.         0
  487.         2
  488.         1
  489.         0
  490.         0
  491.         0
  492.         0
  493.     [nfmt]
  494.         16
  495.         1
  496.         2
  497.         ,
  498.         .
  499.         $
  500.     Subhead
  501.     0
  502.     0
  503. [tag]
  504.     Title
  505.     1
  506.     [fnt]
  507.         Arial
  508.         360
  509.         0
  510.         49153
  511.     [algn]
  512.         4
  513.         2
  514.         0
  515.         0
  516.         0
  517.     [spc]
  518.         33
  519.         0
  520.         2
  521.         144
  522.         72
  523.         2
  524.         100
  525.     [brk]
  526.         16
  527.     [line]
  528.         8
  529.         0
  530.         2
  531.         0
  532.         0
  533.         1
  534.         1
  535.         10
  536.         10
  537.         2
  538.     [spec]
  539.         0
  540.         1
  541.         
  542.         0
  543.         2
  544.         1
  545.         0
  546.         0
  547.         0
  548.         0
  549.     [nfmt]
  550.         16
  551.         1
  552.         2
  553.         ,
  554.         .
  555.         $
  556.     Title
  557.     0
  558.     0
  559. [tag]
  560.     Header
  561.     1
  562.     [fnt]
  563.         Times New Roman
  564.         240
  565.         0
  566.         49152
  567.     [algn]
  568.         1
  569.         2
  570.         0
  571.         0
  572.         0
  573.     [spc]
  574.         33
  575.         0
  576.         2
  577.         0
  578.         0
  579.         2
  580.         100
  581.     [brk]
  582.         4
  583.     [line]
  584.         8
  585.         0
  586.         2
  587.         0
  588.         0
  589.         1
  590.         1
  591.         10
  592.         10
  593.         2
  594.     [spec]
  595.         0
  596.         0
  597.         
  598.         0
  599.         2
  600.         1
  601.         0
  602.         0
  603.         0
  604.         0
  605.     [nfmt]
  606.         280
  607.         1
  608.         2
  609.         ,
  610.         .
  611.         $
  612.     Header
  613.     0
  614.     0
  615. [tag]
  616.     Footer
  617.     1
  618.     [fnt]
  619.         Times New Roman
  620.         240
  621.         0
  622.         49152
  623.     [algn]
  624.         1
  625.         2
  626.         0
  627.         0
  628.         0
  629.     [spc]
  630.         33
  631.         0
  632.         2
  633.         0
  634.         0
  635.         2
  636.         100
  637.     [brk]
  638.         4
  639.     [line]
  640.         8
  641.         0
  642.         2
  643.         0
  644.         0
  645.         1
  646.         1
  647.         10
  648.         10
  649.         2
  650.     [spec]
  651.         0
  652.         0
  653.         
  654.         0
  655.         2
  656.         1
  657.         0
  658.         0
  659.         0
  660.         0
  661.     [nfmt]
  662.         280
  663.         1
  664.         2
  665.         ,
  666.         .
  667.         $
  668.     Footer
  669.     0
  670.     0
  671. [tag]
  672.     Texto predete
  673.     1
  674.     [fnt]
  675.         Times New Roman
  676.         240
  677.         0
  678.         49152
  679.     [algn]
  680.         257
  681.         2
  682.         0
  683.         0
  684.         0
  685.     [spc]
  686.         33
  687.         0
  688.         2
  689.         0
  690.         0
  691.         2
  692.         100
  693.     [brk]
  694.         4
  695.     [line]
  696.         0
  697.         0
  698.         2
  699.         4294967295
  700.         0
  701.         1
  702.         1
  703.         10
  704.         10
  705.         2
  706.     [spec]
  707.         0
  708.         1
  709.         
  710.         0
  711.         2
  712.         1
  713.         0
  714.         0
  715.         0
  716.         0
  717.     [nfmt]
  718.         280
  719.         1
  720.         2
  721.         ,
  722.         .
  723.         $
  724.     
  725.     0
  726.     0
  727. [lay]
  728.     Standard
  729.     513
  730.     [rght]
  731.         15840
  732.         12240
  733.         2
  734.         1440
  735.         1440
  736.         2
  737.         1440
  738.         1440
  739.         0
  740.         1
  741.         12386336
  742.         1
  743.         0
  744.         2
  745.         1
  746.         1440
  747.         10800
  748.         12
  749.         1
  750.         720
  751.         1
  752.         1440
  753.         1
  754.         2160
  755.         1
  756.         2880
  757.         1
  758.         3600
  759.         1
  760.         4320
  761.         1
  762.         5040
  763.         1
  764.         5760
  765.         1
  766.         6480
  767.         1
  768.         7200
  769.         1
  770.         7920
  771.         1
  772.         8640
  773.     [frght]
  774.     [lyfrm]
  775.         1
  776.         13184
  777.         0
  778.         14400
  779.         12240
  780.         15840
  781.         0
  782.         2
  783.         3
  784.         1 0 0 0 0 0 0
  785.         0
  786.         16777215
  787.         0
  788.     [frmlay]
  789.         15840
  790.         12240
  791.         2
  792.         1440
  793.         792
  794.         2
  795.         14472
  796.         1440
  797.         0
  798.         1
  799.         12386336
  800.         0
  801.         0
  802.         0
  803.         1
  804.         1440
  805.         10800
  806.         2
  807.         2
  808.         4680
  809.         3
  810.         9360
  811.     [txt]
  812. @Texto predete@
  813.  
  814. >
  815.     [hrght]
  816.     [lyfrm]
  817.         1
  818.         11136
  819.         0
  820.         0
  821.         12240
  822.         1440
  823.         0
  824.         2
  825.         3
  826.         1 0 0 0 0 0 0
  827.         0
  828.         16777215
  829.         0
  830.     [frmlay]
  831.         1440
  832.         12240
  833.         2
  834.         1440
  835.         72
  836.         2
  837.         792
  838.         1440
  839.         0
  840.         1
  841.         12386336
  842.         0
  843.         0
  844.         0
  845.         1
  846.         1440
  847.         10800
  848.         2
  849.         2
  850.         4680
  851.         3
  852.         9360
  853.     [txt]
  854. @Texto predete@
  855.  
  856. >
  857. [elay]
  858. [lay]
  859.     1
  860.     513
  861.     [rght]
  862.         15840
  863.         12240
  864.         2
  865.         1440
  866.         1440
  867.         2
  868.         1440
  869.         1440
  870.         0
  871.         1
  872.         12386336
  873.         1
  874.         0
  875.         2
  876.         1
  877.         1440
  878.         10800
  879.         12
  880.         1
  881.         720
  882.         1
  883.         1440
  884.         1
  885.         2160
  886.         1
  887.         2880
  888.         1
  889.         3600
  890.         1
  891.         4320
  892.         1
  893.         5040
  894.         1
  895.         5760
  896.         1
  897.         6480
  898.         1
  899.         7200
  900.         1
  901.         7920
  902.         1
  903.         8640
  904.     [frght]
  905.     [lyfrm]
  906.         1
  907.         13184
  908.         0
  909.         14400
  910.         12240
  911.         15840
  912.         0
  913.         2
  914.         3
  915.         1 0 0 0 0 0 0
  916.         0
  917.         16777215
  918.         0
  919.     [frmlay]
  920.         15840
  921.         12240
  922.         2
  923.         1440
  924.         792
  925.         2
  926.         14472
  927.         1440
  928.         0
  929.         1
  930.         12386336
  931.         0
  932.         0
  933.         0
  934.         1
  935.         1440
  936.         10800
  937.         2
  938.         2
  939.         4680
  940.         3
  941.         9360
  942.     [txt]
  943. @Texto predete@
  944.  
  945. >
  946.     [hrght]
  947.     [lyfrm]
  948.         1
  949.         11136
  950.         0
  951.         0
  952.         12240
  953.         1440
  954.         0
  955.         2
  956.         3
  957.         1 0 0 0 0 0 0
  958.         0
  959.         16777215
  960.         0
  961.     [frmlay]
  962.         1440
  963.         12240
  964.         2
  965.         1440
  966.         72
  967.         2
  968.         792
  969.         1440
  970.         0
  971.         1
  972.         12386336
  973.         0
  974.         0
  975.         0
  976.         1
  977.         1440
  978.         10800
  979.         2
  980.         2
  981.         4680
  982.         3
  983.         9360
  984.     [txt]
  985. @Texto predete@
  986.  
  987. >
  988. [elay]
  989. [l1]
  990.     1
  991. [edoc]
  992. declares and defines
  993.  
  994. ' PMM 8.2.95 Define GetParent
  995.  
  996.  
  997. <+@>define HFONT    "Setfont:hFont"
  998.  
  999. <+@>
  1000.  
  1001. <+@>define WM_SETFONT    0x30
  1002.  
  1003. <+@>define WM_USER            0x0400
  1004.  
  1005. <+@>define BM_SETCHECK       0x0401
  1006.  
  1007. <+@>
  1008.  
  1009.  
  1010. declare fillboxfields(target);
  1011.  
  1012. declare torchfields(target);
  1013.  
  1014. declare initcapit(string);
  1015.  
  1016.  
  1017. function main()
  1018.  
  1019. singlestep(0)
  1020.  
  1021. hourglass(1)
  1022.  
  1023. ignorekeyboard(2)
  1024.  
  1025. rmac=getrunningmacrofile$()
  1026.  
  1027. 'burn power fields if entry is in AMIPRO2.INI
  1028.  
  1029. burnfields=getprofilestring$("AutoStyleSheets", "NoQuestions", "AMIPRO2.INI")
  1030.  
  1031. if burnfields = 1
  1032.  
  1033. <+@>    torchfields("as_")
  1034.  
  1035. <+@>    exit function
  1036.  
  1037. elseif burnfields = ""
  1038.  
  1039. <+@>    writeprofilestring("AutoStyleSheets", "NoQuestions", 0, "AMIPRO2.INI")
  1040.  
  1041. endif
  1042.  
  1043. datagood=getprofilestring$("AutoStyleSheets", "DataGood", "AMIPRO2.INI")
  1044.  
  1045. gotocmd(3,"","")
  1046.  
  1047. <+@>gotocmd(2,"","")        'dez 5/23/94; go back to tof
  1048.  
  1049. cnt = GetPowerFieldCount(0)
  1050.  
  1051.  
  1052. if (0 != cnt)
  1053.  
  1054. <+@>    L1="Teclee la informaci<\s>n que desea que aparezca cada vez que"
  1055.  
  1056. <+@>    L2="crea este tipo de documento. Seleccione Aceptar para insertar  la informaci<\s>n  "
  1057.  
  1058. <+@>    L3="en el documento actual. Seleccione Guardar como para guardar la  "
  1059.  
  1060. <+@>    L4="informaci<\s>n en una hoja de estilos nueva."
  1061.  
  1062. <+@>    helptext="{L1}{L2}{L3}{L4}"
  1063.  
  1064. <+@>    filledit(1050, helptext)
  1065.  
  1066.  
  1067. <+@>    result=fillboxfields("as_def")
  1068.  
  1069. <+@>    if result=0 or result = 2
  1070.  
  1071. <+@>        goto blowout
  1072.  
  1073. <+@>    endif
  1074.  
  1075.  
  1076. <+@>    L1="Teclee la informaci<\s>n que desea que aparezca  "
  1077.  
  1078. <+@>    L2="en este documento."
  1079.  
  1080. <+@>    helptext="{L1}{L2}{L3}{L4}"
  1081.  
  1082. <+@>    filledit(1050, helptext)
  1083.  
  1084.  
  1085. <+@>    result = fillboxfields("as_user")
  1086.  
  1087. <+@>    if result=0 or result = 2
  1088.  
  1089. <+@>        goto blowout
  1090.  
  1091. <+@>    endif
  1092.  
  1093. else
  1094.  
  1095. <+@>'    message("No fields")
  1096.  
  1097. endif
  1098.  
  1099.  
  1100. blowout:
  1101.  
  1102.  
  1103. torchfields("as_")
  1104.  
  1105. mark="as_starttext"
  1106.  
  1107. result=MarkBookMark(mark, 4002  )
  1108.  
  1109. if result = 1
  1110.  
  1111. <+@>    MarkBookMark(mark, 4004  )
  1112.  
  1113. endif
  1114.  
  1115. DocInfo(""  ""  1  )
  1116.  
  1117. hourglass(0)
  1118.  
  1119. end function
  1120.  
  1121.  
  1122. FUNCTION fillboxfields(target)
  1123.  
  1124.  
  1125. onerror blowout
  1126.  
  1127. cnt = GetPowerFieldCount(0)
  1128.  
  1129.  
  1130. if cnt = 0
  1131.  
  1132. <+@>    exit function
  1133.  
  1134. endif
  1135.  
  1136.  
  1137. rmac=getrunningmacrofile$()
  1138.  
  1139. allocglobalvar("target", 1)
  1140.  
  1141. setglobalvar("target", target)
  1142.  
  1143. dim fields(cnt)
  1144.  
  1145. dim globvars(1)
  1146.  
  1147. dim echovars(1)
  1148.  
  1149. numglobs=0
  1150.  
  1151. GetPowerFields(0, &fields)
  1152.  
  1153. 'load &globvars
  1154.  
  1155. mergefieldspresent=0
  1156.  
  1157.  
  1158. for i = 1 to cnt
  1159.  
  1160. <+@>    pftype = StrField$(fields(i), 2, ",")        'get the power field type
  1161.  
  1162. <+@>    if pftype=12    'there is a merge field in the doc.
  1163.  
  1164. <+@>        mergefieldspresent=1
  1165.  
  1166. <+@>    endif
  1167.  
  1168. <+@>    pffield = StrField$(fields(i), 3, ",")        'get the power field
  1169.  
  1170. <+@>    varname=StrField$(pffield, 3, " ")        'get the name of the variable in the PF
  1171.  
  1172. <+@>    showtype=strfield$(varname, 6, "_")
  1173.  
  1174. <+@>    if lcase$(showtype)="address2"
  1175.  
  1176. <+@>        secondaddressline=1
  1177.  
  1178. <+@>    endif
  1179.  
  1180. <+@>    echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
  1181.  
  1182. <+@>    targlen=len(target)
  1183.  
  1184. <+@>    if left$(varname, targlen)=target and showtype !=  "echo"
  1185.  
  1186. <+@>    numglobs=numglobs+1
  1187.  
  1188. <+@>        result=arrayinsert(&globvars, numglobs, fields(i))
  1189.  
  1190. <+@>        if result = 0
  1191.  
  1192. <+@>            goto blowout
  1193.  
  1194. <+@>        arrayinsert(&echovars, numglobs, echovar)
  1195.  
  1196. <+@>        endif
  1197.  
  1198. <+@>    endif
  1199.  
  1200. <+@>next    
  1201.  
  1202.  
  1203. 'determine if we have any suitable PFs
  1204.  
  1205.  
  1206. if numglobs=0
  1207.  
  1208. <+@>'    message(target)
  1209.  
  1210. <+@>    fillboxfields = 3 'this attempt failed, but don't blow out completely
  1211.  
  1212. <+@>    exit function
  1213.  
  1214. endif
  1215.  
  1216.  
  1217. 'fill dialog box with labels & pre-build
  1218.  
  1219. allocglobalvar("numglobs", 1)
  1220.  
  1221. setglobalvar("numglobs", numglobs)
  1222.  
  1223. <+@>arraysort(&globvars, 3, "_")                'sort the array on varnum
  1224.  
  1225.  
  1226. for i = 1 to numglobs
  1227.  
  1228. <+@>    pffield = StrField$(globvars(i), 3, ",")        'get the power field
  1229.  
  1230. <+@>    varname=StrField$(pffield, 3, " ")        'get the name of the variable in the PF
  1231.  
  1232. <+@>    quotechar=chr$(34)
  1233.  
  1234. <+@>    varlabel=StrField$(globvars(i), 2, quotechar)        'get the label for the variable
  1235.  
  1236. <+@>    showtype=strfield$(varname, 6, "_")
  1237.  
  1238. <+@>    profilestringstuff=""
  1239.  
  1240. <+@>    if showtype != (-1) and showtype != "echo" and showtype != ""
  1241.  
  1242. <+@>        profilestringstuff=getprofilestring$("AutoStyleSheets", showtype, "AMIPRO2.INI")
  1243.  
  1244. <+@>        if lcase$(showtype) = "address1" and secondaddressline !=1
  1245.  
  1246. <+@>            address2=getprofilestring$("AutoStyleSheets", "Address2", "AMIPRO2.INI")
  1247.  
  1248. <+@>            if address2 != ""
  1249.  
  1250. <+@>                profilestringstuff=strcat$(profilestringstuff, ", " address2)
  1251.  
  1252. <+@>            endif
  1253.  
  1254. <+@>        endif
  1255.  
  1256. <+@>    endif
  1257.  
  1258. <+@>    allocglobalvar(varname, 1)
  1259.  
  1260. <+@>    echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
  1261.  
  1262. <+@>    allocglobalvar(echovar, 1)
  1263.  
  1264. <+@>    if lcase$(left$(varlabel, 5)) = "type "
  1265.  
  1266. <+@>        lenwithouttype=len(varlabel) - 5
  1267.  
  1268. <+@>        varlabel=right$(varlabel, lenwithouttype)
  1269.  
  1270. <+@>    endif
  1271.  
  1272. <+@>    if lcase$(right$(varlabel, 5)) = " here"
  1273.  
  1274. <+@>        lenwithouthere=len(varlabel) - 5
  1275.  
  1276. <+@>        varlabel=left$(varlabel, lenwithouthere)
  1277.  
  1278. <+@>    endif
  1279.  
  1280. <+@>    varlabel=initcapit(varlabel)
  1281.  
  1282. <+@>    filledit(1000 + i, "{varlabel}:")
  1283.  
  1284. <+@>    filledit(8000 + i, profilestringstuff)
  1285.  
  1286. next
  1287.  
  1288.  
  1289.  
  1290. box=dialogbox(".", "autostyle")
  1291.  
  1292.  
  1293. <+@>fillboxfields = box    'set this function's return value to the ID returned by the box
  1294.  
  1295. if box= 0 or box =2 
  1296.  
  1297. <+@>    goto blowout
  1298.  
  1299. endif
  1300.  
  1301. 'set global vars & update fields
  1302.  
  1303. for i = 1 to numglobs
  1304.  
  1305. <+@>    contents=getdialogfield$(8000 +i)
  1306.  
  1307. <+@>    pfid = StrField$(globvars(i), 1, ",")        'get the power field id
  1308.  
  1309. <+@>    pftype = StrField$(globvars(i), 2, ",")        'get the power field type
  1310.  
  1311. <+@>    pffield = StrField$(globvars(i), 3, ",")        'get the power field
  1312.  
  1313. <+@>    varname=StrField$(pffield, 3, " ")        'get the name of the variable in the PF
  1314.  
  1315. <+@>    echovar=strcat$(strfield$(varname, 1, "_"), "_", strfield$(varname, 2, "_"), "_", strfield$(varname, 3, "_"), "_", strfield$(varname, 4, "_"), "_", strfield$(varname, 5, "_"), "_", "echo_")
  1316.  
  1317. <+@>    setglobalvar(echovar, contents)
  1318.  
  1319. <+@>    setglobalvar(varname, contents)
  1320.  
  1321. <+@>    if mergefieldspresent=1
  1322.  
  1323. <+@>        result=GoToPowerField(pfid, pftype)
  1324.  
  1325. <+@>'        FieldUpdate(pfid, pftype, pffield)
  1326.  
  1327. <+@>        FieldEvaluate()
  1328.  
  1329. <+@>    endif
  1330.  
  1331. next
  1332.  
  1333. if mergefieldspresent = 0
  1334.  
  1335. <+@>    fieldupdateall()
  1336.  
  1337. endif
  1338.  
  1339.  
  1340. blowout:
  1341.  
  1342. <+@>    call torchfields(target)
  1343.  
  1344. <+@>    call freeglobs(target)
  1345.  
  1346. <+@>    freeglobalvar("target")
  1347.  
  1348. <+@>    freeglobalvar("numglobs")
  1349.  
  1350.  
  1351.  
  1352. END FUNCTION
  1353.  
  1354.  
  1355.  
  1356. FUNCTION freeglobs(target)
  1357.  
  1358. targlen=len(target)
  1359.  
  1360. numglobs=getglobalvarcount()
  1361.  
  1362. dim globnuke(numglobs)
  1363.  
  1364. getglobalvarnames(&globnuke)
  1365.  
  1366. for i = 1 to numglobs
  1367.  
  1368. <+@>    if left$(globnuke(i), targlen)=target
  1369.  
  1370. <+@>        freeglobalvar(globnuke(i))
  1371.  
  1372. <+@>    endif
  1373.  
  1374. next
  1375.  
  1376. end function
  1377.  
  1378.  
  1379. FUNCTION torchfields(target)
  1380.  
  1381. 'singlestep(0)
  1382.  
  1383. cnt = GetPowerFieldCount(0)
  1384.  
  1385. if (0 != cnt)
  1386.  
  1387. <+@>    dim fields(cnt)
  1388.  
  1389. <+@>    GetPowerFields(0, &fields)
  1390.  
  1391. <+@>    for i = 1 to cnt
  1392.  
  1393. <+@>        pfid = StrField$(fields(i), 1, ",")
  1394.  
  1395. <+@>        pftype = StrField$(fields(i), 2, ",")
  1396.  
  1397. <+@>        pffield = StrField$(fields(i), 3, ",")        'get the power field
  1398.  
  1399. <+@>        varname=StrField$(pffield, 3, " ")        'get the name of the variable in the PF
  1400.  
  1401. <+@>        targlen=len(target)
  1402.  
  1403. <+@>        if left$(varname, targlen)=target
  1404.  
  1405. <+@>            FieldRemove(pfid, pftype);
  1406.  
  1407. <+@>        endif
  1408.  
  1409. <+@>    next
  1410.  
  1411. else
  1412.  
  1413. <+@>'    message("No fields")
  1414.  
  1415. endif
  1416.  
  1417. END FUNCTION
  1418.  
  1419.  
  1420. function initcapit(string)
  1421.  
  1422. if instr(0, " SSN ", string) != 0
  1423.  
  1424. <+@>    initcapit=string
  1425.  
  1426. <+@>    exit function
  1427.  
  1428. endif
  1429.  
  1430. firstchar=left$(string, 1)
  1431.  
  1432. restchars=lcase$(right$(string, (len(string) - 1)))
  1433.  
  1434. initcapit=strcat$(firstchar, restchars)
  1435.  
  1436. end function
  1437.  
  1438.  
  1439. <+@>DIALOG    autostyle
  1440.  
  1441. <+@>-2134376448    22    115    57    231    185    ""    ""    "<:f200,BHelv,0,0,0>Informaci<\s>n acerca de la hoja de estilos<:f,,>"
  1442.  
  1443. <+@>FONT    8    "Helv"
  1444.  
  1445. <+@>78    6    91    12    8001    1350631552    "edit"    ""    0 
  1446.  
  1447. <+@>78    21    91    12    8002    1350631552    "edit"    ""    0 
  1448.  
  1449. <+@>78    36    91    12    8003    1350631552    "edit"    ""    0 
  1450.  
  1451. <+@>78    51    91    12    8004    1350631552    "edit"    ""    0 
  1452.  
  1453. <+@>78    66    91    12    8005    1350631552    "edit"    ""    0 
  1454.  
  1455. <+@>78    81    91    12    8006    1350631552    "edit"    ""    0 
  1456.  
  1457. <+@>78    96    91    12    8007    1350631552    "edit"    ""    0 
  1458.  
  1459. <+@>78    111    91    12    8008    1350631552    "edit"    ""    0 
  1460.  
  1461. <+@>78    126    91    12    8009    1350631552    "edit"    ""    0 
  1462.  
  1463. <+@>173    5    53    14    1    1342373889    "button"    "Aceptar"    0 
  1464.  
  1465. <+@>173    22    53    14    2    1342373888    "button"    "Cancelar"    0 
  1466.  
  1467. <+@>3    8    75    9    1001    1342177280    "static"    ""    0 
  1468.  
  1469. <+@>3    23    75    9    1002    1342177280    "static"    ""    0 
  1470.  
  1471. <+@>3    38    75    9    1003    1342177280    "static"    ""    0 
  1472.  
  1473. <+@>3    53    75    9    1004    1342177280    "static"    ""    0 
  1474.  
  1475. <+@>3    68    75    9    1005    1342177280    "static"    ""    0 
  1476.  
  1477. <+@>3    83    75    9    1006    1342177280    "static"    ""    0 
  1478.  
  1479. <+@>3    98    75    9    1007    1342177280    "static"    ""    0 
  1480.  
  1481. <+@>3    113    75    9    1008    1342177280    "static"    ""    0 
  1482.  
  1483. <+@>3    128    75    9    1009    1342177280    "static"    ""    0 
  1484.  
  1485. <+@>3    143    222    36    1050    1342177280    "static"    ""    0 
  1486.  
  1487. <+@>3    143    219    36    1060    1342177280    "static"    ""    0 
  1488.  
  1489. END DIALOG
  1490. >
  1491.  
  1492. [Embedded]
  1493. 00015448
  1494. >
  1495. [macsum4] 6 61
  1496. main 0 0 12 14
  1497. fillboxfields 1658 1 26 70
  1498. freeglobs 5718 1 5 195
  1499. torchfields 6112 1 9 207
  1500. initcapit 6761 1 3 228
  1501. autostyle 7074 0 65535 238
  1502. [macse]
  1503. 14 main
  1504. 29 0 main
  1505. 17 1
  1506. 0 4 0
  1507. 17 2
  1508. 0 1681 1
  1509. 17 3
  1510. 0 32 2
  1511. 17 4
  1512. 29 1 rmac
  1513. 0 802
  1514. 13
  1515. 8 1
  1516. 17 6
  1517. 29 2 burnfields
  1518. 0 286 "AutoStyleSheets" "NoQuestions" "AMIPRO2.INI"
  1519. 13
  1520. 8 2
  1521. 17 7
  1522. 6 2
  1523. 5 1
  1524. 18 0
  1525. 11 00000269
  1526. 17 8
  1527. 16 torchfields "as_"
  1528. 6 0
  1529. 15
  1530. 9
  1531. 10 00000368
  1532. 17 10
  1533. 6 2
  1534. 7 ""
  1535. 18 0
  1536. 11 00000368
  1537. 17 11
  1538. 0 287 "AutoStyleSheets" "NoQuestions" 0 "AMIPRO2.INI"
  1539. 17 13
  1540. 29 3 datagood
  1541. 0 286 "AutoStyleSheets" "DataGood" "AMIPRO2.INI"
  1542. 13
  1543. 8 3
  1544. 17 14
  1545. 0 1631 3 "" ""
  1546. 17 15
  1547. 0 1631 2 "" ""
  1548. 17 16
  1549. 29 4 cnt
  1550. 0 1304 0
  1551. 13
  1552. 8 4
  1553. 17 18
  1554. 5 0
  1555. 6 4
  1556. 18 1
  1557. 11 00001426
  1558. 17 19
  1559. 29 5 L1
  1560. 7 "Teclee la informaci<\s>n que desea que aparezca cada vez que"
  1561. 8 5
  1562. 17 20
  1563. 29 6 L2
  1564. 7 "crea este tipo de documento. Seleccione Aceptar para insertar  la informaci<\s>n  "
  1565. 8 6
  1566. 17 21
  1567. 29 7 L3
  1568. 7 "en el documento actual. Seleccione Guardar como para guardar la  "
  1569. 8 7
  1570. 17 22
  1571. 29 8 L4
  1572. 7 "informaci<\s>n en una hoja de estilos nueva."
  1573. 8 8
  1574. 17 23
  1575. 29 9 helptext
  1576. 7 "{5}{6}{7}{8}"
  1577. 8 9
  1578. 17 24
  1579. 0 31 1050 "{9}"
  1580. 17 26
  1581. 29 10 result
  1582. 16 fillboxfields "as_def"
  1583. 13
  1584. 8 10
  1585. 17 27
  1586. 6 10
  1587. 5 0
  1588. 18 0
  1589. 6 10
  1590. 5 2
  1591. 18 0
  1592. 1 2
  1593. 11 00001132
  1594. 17 28
  1595. 10 00001426
  1596. 17 31
  1597. 7 "Teclee la informaci<\s>n que desea que aparezca  "
  1598. 8 5
  1599. 17 32
  1600. 7 "en este documento."
  1601. 8 6
  1602. 17 33
  1603. 7 "{5}{6}{7}{8}"
  1604. 8 9
  1605. 17 34
  1606. 0 31 1050 "{9}"
  1607. 17 36
  1608. 16 fillboxfields "as_user"
  1609. 13
  1610. 8 10
  1611. 17 37
  1612. 6 10
  1613. 5 0
  1614. 18 0
  1615. 6 10
  1616. 5 2
  1617. 18 0
  1618. 1 2
  1619. 11 00001413
  1620. 17 38
  1621. 10 00001426
  1622. 10 00001426
  1623. 17 46
  1624. 16 torchfields "as_"
  1625. 17 47
  1626. 29 11 mark
  1627. 7 "as_starttext"
  1628. 8 11
  1629. 17 48
  1630. 0 1658 "{11}" 4002
  1631. 13
  1632. 8 10
  1633. 17 49
  1634. 6 10
  1635. 5 1
  1636. 18 0
  1637. 11 00001599
  1638. 17 50
  1639. 0 1658 "{11}" 4004
  1640. 17 52
  1641. 0 1551 "" "" 1
  1642. 17 53
  1643. 0 1681 0
  1644. 6 0
  1645. 15
  1646. 17 54
  1647. 9
  1648. 14 fillboxfields
  1649. 29 0 target
  1650. 29 1 fillboxfields
  1651. 17 2
  1652. 20 00003932
  1653. 17 3
  1654. 29 2 cnt
  1655. 0 1304 0
  1656. 13
  1657. 8 2
  1658. 17 5
  1659. 6 2
  1660. 5 0
  1661. 18 0
  1662. 11 00000152
  1663. 6 1
  1664. 15
  1665. 9
  1666. 17 9
  1667. 29 3 rmac
  1668. 0 802
  1669. 13
  1670. 8 3
  1671. 17 10
  1672. 0 271 "target" 1
  1673. 17 11
  1674. 0 264 "target" "{0}"
  1675. 17 12
  1676. 6 2
  1677. 29 4 fields
  1678. 21 4 [X]
  1679. 17 13
  1680. 5 1
  1681. 29 5 globvars
  1682. 21 5 [X]
  1683. 17 14
  1684. 5 1
  1685. 29 6 echovars
  1686. 21 6 [X]
  1687. 17 15
  1688. 29 7 numglobs
  1689. 5 0
  1690. 8 7
  1691. 17 16
  1692. 0 1305 0 &4
  1693. 17 18
  1694. 29 8 mergefieldspresent
  1695. 5 0
  1696. 8 8
  1697. 29 9 i
  1698. 5 1
  1699. 8 9
  1700. 17 20
  1701. 6 2
  1702. 6 9
  1703. 18 2
  1704. 12 00000542
  1705. 10 00001436
  1706. 5 1
  1707. 6 9
  1708. 3 0
  1709. 8 9
  1710. 10 00000460
  1711. 17 21
  1712. 29 10 pftype
  1713. 6 9
  1714. 22 4
  1715. 0 20 [X] 2 ","
  1716. 13
  1717. 8 10
  1718. 17 22
  1719. 6 10
  1720. 5 12
  1721. 18 0
  1722. 11 00000655
  1723. 17 23
  1724. 5 1
  1725. 8 8
  1726. 17 25
  1727. 29 11 pffield
  1728. 6 9
  1729. 22 4
  1730. 0 20 [X] 3 ","
  1731. 13
  1732. 8 11
  1733. 17 26
  1734. 29 12 varname
  1735. 0 20 "{11}" 3 " "
  1736. 13
  1737. 8 12
  1738. 17 27
  1739. 29 13 showtype
  1740. 0 20 "{12}" 6 "_"
  1741. 13
  1742. 8 13
  1743. 17 28
  1744. 0 17 "{13}"
  1745. 13
  1746. 7 "address2"
  1747. 18 0
  1748. 11 00000917
  1749. 17 29
  1750. 29 14 secondaddressline
  1751. 5 1
  1752. 8 14
  1753. 17 31
  1754. 29 15 echovar
  1755. 0 20 "{12}" 1 "_"
  1756. 13
  1757. 0 20 "{12}" 2 "_"
  1758. 13
  1759. 0 20 "{12}" 3 "_"
  1760. 13
  1761. 0 20 "{12}" 4 "_"
  1762. 13
  1763. 0 20 "{12}" 5 "_"
  1764. 13
  1765. 0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
  1766. 13
  1767. 8 15
  1768. 17 32
  1769. 29 16 targlen
  1770. 0 14 "{0}"
  1771. 13
  1772. 8 16
  1773. 17 33
  1774. 0 806 "{12}" "{16}"
  1775. 13
  1776. 6 0
  1777. 18 0
  1778. 6 13
  1779. 7 "echo"
  1780. 18 1
  1781. 1 1
  1782. 11 00001423
  1783. 17 34
  1784. 6 7
  1785. 5 1
  1786. 3 0
  1787. 8 7
  1788. 17 35
  1789. 29 17 result
  1790. 6 9
  1791. 22 4
  1792. 0 1041 &5 "{7}" [X]
  1793. 13
  1794. 8 17
  1795. 17 36
  1796. 6 17
  1797. 5 0
  1798. 18 0
  1799. 11 00001423
  1800. 17 37
  1801. 10 00003932
  1802. 17 38
  1803. 0 1041 &6 "{7}" "{15}"
  1804. 10 00000509
  1805. 17 45
  1806. 6 7
  1807. 5 0
  1808. 18 0
  1809. 11 00001501
  1810. 17 47
  1811. 5 3
  1812. 8 1
  1813. 6 1
  1814. 15
  1815. 9
  1816. 17 52
  1817. 0 271 "numglobs" 1
  1818. 17 53
  1819. 0 264 "numglobs" "{7}"
  1820. 17 54
  1821. 0 1043 &5 3 "_"
  1822. 5 1
  1823. 8 9
  1824. 17 56
  1825. 6 7
  1826. 6 9
  1827. 18 2
  1828. 12 00001675
  1829. 10 00003045
  1830. 5 1
  1831. 6 9
  1832. 3 0
  1833. 8 9
  1834. 10 00001593
  1835. 17 57
  1836. 6 9
  1837. 22 5
  1838. 0 20 [X] 3 ","
  1839. 13
  1840. 8 11
  1841. 17 58
  1842. 0 20 "{11}" 3 " "
  1843. 13
  1844. 8 12
  1845. 17 59
  1846. 29 18 quotechar
  1847. 0 39 34
  1848. 13
  1849. 8 18
  1850. 17 60
  1851. 29 19 varlabel
  1852. 6 9
  1853. 22 5
  1854. 0 20 [X] 2 "{18}"
  1855. 13
  1856. 8 19
  1857. 17 61
  1858. 0 20 "{12}" 6 "_"
  1859. 13
  1860. 8 13
  1861. 17 62
  1862. 29 20 profilestringstuff
  1863. 7 ""
  1864. 8 20
  1865. 17 63
  1866. 6 13
  1867. 5 -1
  1868. 18 1
  1869. 6 13
  1870. 7 "echo"
  1871. 18 1
  1872. 6 13
  1873. 7 ""
  1874. 18 1
  1875. 1 1
  1876. 1 1
  1877. 11 00002335
  1878. 17 64
  1879. 0 286 "AutoStyleSheets" "{13}" "AMIPRO2.INI"
  1880. 13
  1881. 8 20
  1882. 17 65
  1883. 0 17 "{13}"
  1884. 13
  1885. 7 "address1"
  1886. 18 0
  1887. 6 14
  1888. 5 1
  1889. 18 1
  1890. 1 1
  1891. 11 00002335
  1892. 17 66
  1893. 29 21 address2
  1894. 0 286 "AutoStyleSheets" "Address2" "AMIPRO2.INI"
  1895. 13
  1896. 8 21
  1897. 17 67
  1898. 6 21
  1899. 7 ""
  1900. 18 1
  1901. 11 00002335
  1902. 17 68
  1903. 0 16 "{20}" ", " "{21}"
  1904. 13
  1905. 8 20
  1906. 17 72
  1907. 0 271 "{12}" 1
  1908. 17 73
  1909. 0 20 "{12}" 1 "_"
  1910. 13
  1911. 0 20 "{12}" 2 "_"
  1912. 13
  1913. 0 20 "{12}" 3 "_"
  1914. 13
  1915. 0 20 "{12}" 4 "_"
  1916. 13
  1917. 0 20 "{12}" 5 "_"
  1918. 13
  1919. 0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
  1920. 13
  1921. 8 15
  1922. 17 74
  1923. 0 271 "{15}" 1
  1924. 17 75
  1925. 0 806 "{19}" 5
  1926. 13
  1927. 0 17 [X]
  1928. 13
  1929. 7 "type "
  1930. 18 0
  1931. 11 00002738
  1932. 17 76
  1933. 29 22 lenwithouttype
  1934. 0 14 "{19}"
  1935. 13
  1936. 5 5
  1937. 3 1
  1938. 8 22
  1939. 17 77
  1940. 0 807 "{19}" "{22}"
  1941. 13
  1942. 8 19
  1943. 17 79
  1944. 0 807 "{19}" 5
  1945. 13
  1946. 0 17 [X]
  1947. 13
  1948. 7 " here"
  1949. 18 0
  1950. 11 00002909
  1951. 17 80
  1952. 29 23 lenwithouthere
  1953. 0 14 "{19}"
  1954. 13
  1955. 5 5
  1956. 3 1
  1957. 8 23
  1958. 17 81
  1959. 0 806 "{19}" "{23}"
  1960. 13
  1961. 8 19
  1962. 17 83
  1963. 16 initcapit "{19}"
  1964. 13
  1965. 8 19
  1966. 17 84
  1967. 5 1000
  1968. 6 9
  1969. 3 0
  1970. 0 31 [X] "{19}:"
  1971. 17 85
  1972. 5 8000
  1973. 6 9
  1974. 3 0
  1975. 0 31 [X] "{20}"
  1976. 10 00001642
  1977. 17 89
  1978. 29 24 box
  1979. 0 26 "." "autostyle"
  1980. 13
  1981. 8 24
  1982. 17 91
  1983. 6 24
  1984. 8 1
  1985. 17 92
  1986. 6 24
  1987. 5 0
  1988. 18 0
  1989. 6 24
  1990. 5 2
  1991. 18 0
  1992. 1 2
  1993. 11 00003192
  1994. 17 93
  1995. 10 00003932
  1996. 5 1
  1997. 8 9
  1998. 17 96
  1999. 6 7
  2000. 6 9
  2001. 18 2
  2002. 12 00003284
  2003. 10 00003879
  2004. 5 1
  2005. 6 9
  2006. 3 0
  2007. 8 9
  2008. 10 00003202
  2009. 17 97
  2010. 29 25 contents
  2011. 5 8000
  2012. 6 9
  2013. 3 0
  2014. 0 27 [X]
  2015. 13
  2016. 8 25
  2017. 17 98
  2018. 29 26 pfid
  2019. 6 9
  2020. 22 5
  2021. 0 20 [X] 1 ","
  2022. 13
  2023. 8 26
  2024. 17 99
  2025. 6 9
  2026. 22 5
  2027. 0 20 [X] 2 ","
  2028. 13
  2029. 8 10
  2030. 17 100
  2031. 6 9
  2032. 22 5
  2033. 0 20 [X] 3 ","
  2034. 13
  2035. 8 11
  2036. 17 101
  2037. 0 20 "{11}" 3 " "
  2038. 13
  2039. 8 12
  2040. 17 102
  2041. 0 20 "{12}" 1 "_"
  2042. 13
  2043. 0 20 "{12}" 2 "_"
  2044. 13
  2045. 0 20 "{12}" 3 "_"
  2046. 13
  2047. 0 20 "{12}" 4 "_"
  2048. 13
  2049. 0 20 "{12}" 5 "_"
  2050. 13
  2051. 0 16 [X] "_" [X] "_" [X] "_" [X] "_" [X] "_" "echo_"
  2052. 13
  2053. 8 15
  2054. 17 103
  2055. 0 264 "{15}" "{25}"
  2056. 17 104
  2057. 0 264 "{12}" "{25}"
  2058. 17 105
  2059. 6 8
  2060. 5 1
  2061. 18 0
  2062. 11 00003866
  2063. 17 106
  2064. 0 1306 "{26}" "{10}"
  2065. 13
  2066. 8 17
  2067. 17 108
  2068. 2 571 1
  2069. 10 00003251
  2070. 17 111
  2071. 6 8
  2072. 5 0
  2073. 18 0
  2074. 11 00003932
  2075. 17 112
  2076. 0 1633
  2077. 17 116
  2078. 16 torchfields "{0}"
  2079. 17 117
  2080. 16 freeglobs "{0}"
  2081. 17 118
  2082. 0 266 "target"
  2083. 17 119
  2084. 0 266 "numglobs"
  2085. 6 1
  2086. 15
  2087. 17 122
  2088. 9
  2089. 14 freeglobs
  2090. 29 0 target
  2091. 29 1 freeglobs
  2092. 17 1
  2093. 29 2 targlen
  2094. 0 14 "{0}"
  2095. 13
  2096. 8 2
  2097. 17 2
  2098. 29 3 numglobs
  2099. 0 299
  2100. 13
  2101. 8 3
  2102. 17 3
  2103. 6 3
  2104. 29 4 globnuke
  2105. 21 4 [X]
  2106. 17 4
  2107. 0 300 &4
  2108. 29 5 i
  2109. 5 1
  2110. 8 5
  2111. 17 5
  2112. 6 3
  2113. 6 5
  2114. 18 2
  2115. 12 00000272
  2116. 10 00000375
  2117. 5 1
  2118. 6 5
  2119. 3 0
  2120. 8 5
  2121. 10 00000191
  2122. 17 6
  2123. 6 5
  2124. 22 4
  2125. 0 806 [X] "{2}"
  2126. 13
  2127. 6 0
  2128. 18 0
  2129. 11 00000362
  2130. 17 7
  2131. 6 5
  2132. 22 4
  2133. 0 266 [X]
  2134. 10 00000239
  2135. 6 1
  2136. 15
  2137. 17 10
  2138. 9
  2139. 14 torchfields
  2140. 29 0 target
  2141. 29 1 torchfields
  2142. 17 2
  2143. 29 2 cnt
  2144. 0 1304 0
  2145. 13
  2146. 8 2
  2147. 17 3
  2148. 5 0
  2149. 6 2
  2150. 18 1
  2151. 11 00000630
  2152. 17 4
  2153. 6 2
  2154. 29 3 fields
  2155. 21 3 [X]
  2156. 17 5
  2157. 0 1305 0 &3
  2158. 29 4 i
  2159. 5 1
  2160. 8 4
  2161. 17 6
  2162. 6 2
  2163. 6 4
  2164. 18 2
  2165. 12 00000269
  2166. 10 00000617
  2167. 5 1
  2168. 6 4
  2169. 3 0
  2170. 8 4
  2171. 10 00000188
  2172. 17 7
  2173. 29 5 pfid
  2174. 6 4
  2175. 22 3
  2176. 0 20 [X] 1 ","
  2177. 13
  2178. 8 5
  2179. 17 8
  2180. 29 6 pftype
  2181. 6 4
  2182. 22 3
  2183. 0 20 [X] 2 ","
  2184. 13
  2185. 8 6
  2186. 17 9
  2187. 29 7 pffield
  2188. 6 4
  2189. 22 3
  2190. 0 20 [X] 3 ","
  2191. 13
  2192. 8 7
  2193. 17 10
  2194. 29 8 varname
  2195. 0 20 "{7}" 3 " "
  2196. 13
  2197. 8 8
  2198. 17 11
  2199. 29 9 targlen
  2200. 0 14 "{0}"
  2201. 13
  2202. 8 9
  2203. 17 12
  2204. 0 806 "{8}" "{9}"
  2205. 13
  2206. 6 0
  2207. 18 0
  2208. 11 00000604
  2209. 17 13
  2210. 0 1323 "{5}" "{6}"
  2211. 10 00000236
  2212. 10 00000630
  2213. 6 1
  2214. 15
  2215. 17 19
  2216. 9
  2217. 14 initcapit
  2218. 29 0 string
  2219. 29 1 initcapit
  2220. 17 1
  2221. 0 808 0 " SSN " "{0}"
  2222. 13
  2223. 5 0
  2224. 18 1
  2225. 11 00000128
  2226. 17 2
  2227. 6 0
  2228. 8 1
  2229. 6 1
  2230. 15
  2231. 9
  2232. 17 5
  2233. 29 2 firstchar
  2234. 0 806 "{0}" 1
  2235. 13
  2236. 8 2
  2237. 17 6
  2238. 29 3 restchars
  2239. 0 14 "{0}"
  2240. 13
  2241. 5 1
  2242. 3 1
  2243. 0 807 "{0}" [X]
  2244. 13
  2245. 0 17 [X]
  2246. 13
  2247. 8 3
  2248. 17 7
  2249. 0 16 "{2}" "{3}"
  2250. 13
  2251. 8 1
  2252. 6 1
  2253. 15
  2254. 17 8
  2255. 9
  2256. DIALOG autostyle
  2257. -2134376448 22 115 57 231 185 "" "" "Informaci≤n acerca de la hoja de estilos" 
  2258. FONT 8 "Helv" 
  2259. 78 6 91 12 8001 1350631552 "edit" "" 0 
  2260. 78 21 91 12 8002 1350631552 "edit" "" 0 
  2261. 78 36 91 12 8003 1350631552 "edit" "" 0 
  2262. 78 51 91 12 8004 1350631552 "edit" "" 0 
  2263. 78 66 91 12 8005 1350631552 "edit" "" 0 
  2264. 78 81 91 12 8006 1350631552 "edit" "" 0 
  2265. 78 96 91 12 8007 1350631552 "edit" "" 0 
  2266. 78 111 91 12 8008 1350631552 "edit" "" 0 
  2267. 78 126 91 12 8009 1350631552 "edit" "" 0 
  2268. 173 5 53 14 1 1342373889 "button" "Aceptar" 0 
  2269. 173 22 53 14 2 1342373888 "button" "Cancelar" 0 
  2270. 3 8 75 9 1001 1342177280 "static" "" 0 
  2271. 3 23 75 9 1002 1342177280 "static" "" 0 
  2272. 3 38 75 9 1003 1342177280 "static" "" 0 
  2273. 3 53 75 9 1004 1342177280 "static" "" 0 
  2274. 3 68 75 9 1005 1342177280 "static" "" 0 
  2275. 3 83 75 9 1006 1342177280 "static" "" 0 
  2276. 3 98 75 9 1007 1342177280 "static" "" 0 
  2277. 3 113 75 9 1008 1342177280 "static" "" 0 
  2278. 3 128 75 9 1009 1342177280 "static" "" 0 
  2279. 3 143 222 36 1050 1342177280 "static" "" 0 
  2280. 3 143 219 36 1060 1342177280 "static" "" 0 
  2281. 00015473
  2282.