home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / MCNAMESC.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  4KB  |  144 lines
  1. * Program MCNAMESC - Allows entering/scanning/changing names in the MDIRFILE
  2. Erase
  3. @ 1,10 say '       EDITING STANDARD CHURCH PARAMETERS         8-4-/MCNAMESC'
  4. Clear
  5. Use mdirfile index mdirfile
  6. GOTO 1
  7. Store $(spact,4,27) to MD1
  8. SKIP
  9. Store $(SPACT,21,1) to MD2
  10. SKIP
  11. Store $(spact,28,4) to MD3A
  12. SKIP
  13. Store $(spact,3,29) to MD3B
  14. Store MD3B+' '+MD3A to MD3
  15. SKIP
  16. Store $(spact,3,29) to MD3A
  17. SKIP
  18. Store $(spact,3,29) to MD3B
  19. SKIP
  20. Store $(spact,3,29) to MD3C
  21. SKIP
  22. Store $(spact,3,29) to MD3D
  23. SKIP
  24. Store $(spact,3,29) to MD3E
  25. SKIP
  26. Store $(spact,3,29) to MD3F
  27. SKIP
  28. Store $(spact,3,29) to MD3G
  29. SKIP
  30. STORE $(SPACT,3,29) TO MD3H
  31. SKIP
  32. STORE $(SPACT,3,29) TO MD3I
  33. SKIP
  34. STORE $(SPACT,3,29) TO MD3J
  35. SKIP
  36. STORE $(SPACT,3,29) TO MD3K
  37. SKIP
  38. STORE $(SPACT,3,29) TO MD3L
  39. GOTO 17
  40. Store $(spact,29,3) to MD13
  41. SKIP
  42. Store $(spact,13,18) to MD8
  43. SKIP
  44. Store $(spact,28,2) to MD4
  45. SKIP
  46. STORE $(SPACT,28,2) TO MD5
  47. SKIP
  48. Store $(spact,28,2) to MD6
  49. SKIP
  50. Store $(spact,29,2) to MD7
  51. SKIP
  52. STORE $(SPACT,16,2) TO MD9
  53. SKIP
  54. STORE $(SPACT,26,3) TO MD10
  55. SKIP
  56. STORE $(SPACT,12,3) TO MD11
  57. SKIP
  58. Store $(spact,26,3) to MD12
  59.   @ 2,0 say 'Church name: ' get MD1
  60.   @ 3,0 say 'Disk I.D. containing data files ' get MD2
  61.   @ 4,0 SAY "MAILING LABELS SPACING   " GET MD4
  62.   @ 4,40 SAY "MAILING LABELS, LINES PER PAGE " GET MD5
  63.   @ 5,0 SAY "MAILING LABELS, 1ST COLUMN     " GET MD6
  64.   @ 5,40 SAY "-- 2ND COLUMN  " GET MD7
  65.   @ 6,0 SAY 'FAMILY ADDRESS UPDATING? ' GET MD13
  66.   @ 7,0 SAY "PRINTER SET-UP SPECIAL (ASCII) CHARACTERS  " GET MD8
  67.   @ 8,0 SAY "Voting Age    " get MD9
  68.   @ 8,40 say "New Letter Separator? " get MD10
  69.   @ 9,0 SAY 'Zone marking? ' get MD11
  70.   @ 9,40 say 'Use 9-digit ZIP?      ' get MD12
  71.   @ 10,0 say 'Dates format:        MM/D1 MM/D2 MM/D3 MM/D4 MM/D5 YYYY'
  72.   @ 11,0 say "This month's dates  " get MD3
  73.   @ 12,0 say "This year's dates   " get MD3A
  74.   @ 13,20 get MD3B
  75.   @ 14,20 get MD3C
  76.   @ 15,20 get MD3D
  77.   @ 16,20 get MD3E
  78.   @ 17,20 get MD3F
  79.   @ 18,20 get MD3G
  80.   @ 19,20 get MD3H
  81.   @ 20,20 get MD3I
  82.   @ 21,20 get MD3J
  83.   @ 22,20 get MD3K
  84.   @ 23,20 get MD3L
  85.   READ
  86.   ?
  87.   Accept '    SAVE? ' to MDX
  88.   If !(MDX)='Y'
  89.     GOTO 1
  90.       Replace spact with $(spact,1,3)+MD1
  91.     SKIP
  92.       Replace spact with $(SPACT,1,20)+MD2
  93.     SKIP
  94.     REPLACE spact with $(spact,1,27)+$(MD3,31,4)
  95.     SKIP
  96.     Replace spact with $(spact,1,2)+$(MD3,1,29)
  97.     SKIP
  98.     Replace spact with ' E'+MD3A
  99.     SKIP
  100.     Replace spact with ' F'+MD3B
  101.     SKIP
  102.     Replace spact with ' G'+MD3C
  103.     SKIP
  104.     Replace spact with ' H'+MD3D
  105.     SKIP
  106.     Replace spact with ' I'+MD3E
  107.     SKIP
  108.     Replace spact with ' J'+MD3F
  109.     SKIP
  110.     Replace spact with ' K'+MD3G
  111.     SKIP
  112.     Replace spact with ' L'+MD3H
  113.     SKIP
  114.     Replace spact with ' M'+MD3I
  115.     SKIP
  116.     Replace spact with ' N'+MD3J
  117.     SKIP
  118.     Replace spact with ' O'+MD3K
  119.     SKIP
  120.     Replace spact with ' P'+MD3L
  121.     GOTO 17
  122.     REPLACE SPACT WITH $(SPACT,1,28)+MD13
  123.     SKIP
  124.     Replace spact with $(spact,1,12)+MD8
  125.     SKIP
  126.     Replace spact with $(spact,1,27)+MD4
  127.     SKIP
  128.     Replace spact with $(spact,1,27)+MD5
  129.     SKIP
  130.     Replace spact with $(spact,1,27)+MD6
  131.     SKIP
  132.     Replace spact with $(spact,1,28)+MD7
  133.     SKIP
  134.     Replace spact with $(spact,1,15)+MD9
  135.     SKIP
  136.     Replace spact with $(spact,1,25)+MD10
  137.     SKIP
  138.     Replace spact with $(spact,1,11)+MD11
  139.     SKIP
  140.     Replace spact with $(spact,1,25)+MD12
  141.   endif
  142.   USE
  143. RETURN
  144.