home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / MAILING / MDEFAULT < prev    next >
Encoding:
Text File  |  1989-09-25  |  2.7 KB  |  172 lines
  1. prs% = 0
  2. prs%(0,0) = 0
  3. prs%(1,0) = 0
  4. prs%(2,0) = 0
  5. prs%(3,0) = 0
  6. prs%(4,0) = 0
  7. prs%(5,0) = 0
  8. prs%(0,1) = 0
  9. prs%(1,1) = 3
  10. prs%(2,1) = 3
  11. prs%(3,1) = 0
  12. prs%(4,1) = 2
  13. prs%(5,1) = 2
  14. prs%(0,2) = 0
  15. prs%(1,2) = 3
  16. prs%(2,2) = 3
  17. prs%(3,2) = 5
  18. prs%(4,2) = 3
  19. prs%(5,2) = 0
  20. prs%(0,3) = 0
  21. prs%(1,3) = 3
  22. prs%(2,3) = 0
  23. prs%(3,3) = 0
  24. prs%(4,3) = 0
  25. prs%(5,3) = 0
  26. prs%(0,4) = 0
  27. prs%(1,4) = 3
  28. prs%(2,4) = 0
  29. prs%(3,4) = 5
  30. prs%(4,4) = 3
  31. prs%(5,4) = 2
  32. prs%(0,5) = 0
  33. prs%(1,5) = 3
  34. prs%(2,5) = 3
  35. prs%(3,5) = 5
  36. prs%(4,5) = 0
  37. prs%(5,5) = 2
  38. a$ = ""
  39. a$(0) = "Don't Sort."
  40. a$(1) = "Sort by LastName."
  41. a$(2) = "Sort by Zip Code."
  42. a$(3) = "Sort by Zip COde and LastName."
  43. e$ = ""
  44. e$(0) = ""
  45. e$(1) = "LastName"
  46. e$(2) = "Zip"
  47. e$(3) = "pad$(Zip,10)+LastName"
  48. c$ = ""
  49. c$(0) = ""
  50. c$(1) = ""
  51. c$(2) = ""
  52. c$(3) = ""
  53. c% = 0
  54. c%(0) = 1
  55. c%(1) = 2
  56. c%(2) = 3
  57. c%(3) = 4
  58. activity$ = ""
  59. ent% = 0
  60. ret% = 0
  61. trap$ = ""
  62. bHelp$ = "Help"
  63. merl% = 5
  64. cnt% = 0
  65. bOK$ = "Begin Merge"
  66. bCancel$ = "Cancel"
  67. automan% = 2
  68. bModify$ = "Set Thresholds"
  69. prs1% = 2
  70. prs2% = 0
  71. prs3% = 0
  72. prs4% = 2
  73. prs5% = 2
  74. sel% = 9
  75. bQuit$ = "Quit"
  76. trap1$ = ""
  77. bogus$ = ""
  78. bAdd$ = "Add to Mailing List"
  79. bMerge$ = "Merge Lists"
  80. bEdit$ = "Edit Mailing List"
  81. bLabel$ = "Print Labels"
  82. bUtil$ = "Utilities"
  83. bPurge$ = "Purge Duplicates"
  84. bOption$ = "Set Options"
  85. helpsel% = 0
  86. bConvrt$ = "Utilities Help"
  87. bover$ = "Synopsis"
  88. a1$ = "John"
  89. a2$ = "Mckey-pyfer"
  90. a3$ = ""
  91. a4$ = "45570 Moonlight E. Ct."
  92. a5$ = ""
  93. a6$ = "Victoria"
  94. a7$ = "BC"
  95. a8$ = "V9C3P9"
  96. a10$ = "V9mcvi"
  97. bKeep$ = "Keep"
  98. bCmd% = 0
  99. bDelete$ = "Delete"
  100. bRplace$ = "Replace"
  101. numdups% = 5
  102. recproc% = 35
  103. a9$ = "          "
  104. bRule$ = " M"
  105. optsel% = 1
  106. bexp$ = " C"
  107. tr$ = ""
  108. f1$ = "126"
  109. f2$ = ""
  110. r1$ = "13"
  111. r2$ = "10"
  112. bUse$ = "Use"
  113. bConv$ = "Standardize"
  114. utilsel% = 0
  115. bExport$ = "Export File"
  116. bBackup$ = "Backup File"
  117. bRestre$ = "Restore File"
  118. rcnum$ = "Searching..."
  119. rcleft$ = "67"
  120. onrul$ = "74 of 74."
  121. mdf$ = "Modifying the LastName field"
  122. a11$ = ""
  123. ff% = 0
  124. pth$ = "D:\COMMS\MAILIT"
  125. clm% = 0
  126. ccr% = 0
  127. cc% = 0
  128. zr% = 0
  129. n% = 1
  130. fln$ = "D:\SB\TMP\BACKUP"
  131. zz1$ = ""
  132. z1% = 0
  133. b$ = "Misc2"
  134. hl$ = "<Esc> - Quit back to Start | Any other key for more Help."
  135. hl% = 8
  136. flnm$ = "LastName"
  137. fo1$ = ""
  138. fo2$ = ""
  139. ro1$ = ""
  140. ro2$ = ""
  141. prg% = 9
  142. st$ = "Purging Section of"
  143. st1$ = "Purge"
  144. R% = 35
  145. md% = 35
  146. z% = 5
  147. srtn% = 0
  148. ctx% = 20
  149. crit$ = "LEFT$(Zip.MailBase,2)+LEFT$(lastname.Mailbase,2)+left$(Address1.MailBase,0)+left$(company.MailBase,0)+left$(City.MailBase,2)"
  150. ink$ = ""
  151. fl% = 30
  152. rctotal% = 67
  153. rcleft% = 67
  154. rcnum% = 0
  155. totrul% = 74
  156. onrul% = 74
  157. k$ = ""
  158. nsp% = 0
  159. wh% = 2
  160. z$ = ", jr."
  161. zz$ = ", jr."
  162. x% = 6
  163. ex$ = ""
  164. zz% = 1
  165. ff$ = ""
  166. af$ = " "
  167. Ct$ = "New York"
  168. pw% = 1
  169. ch$ = "New York"
  170. n$ = "*, jr."
  171. a% = 0
  172.