home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / adeptful.zip / Extfse1.Cmd < prev    next >
OS/2 REXX Batch file  |  1997-03-01  |  4KB  |  130 lines
  1. /* Rexx */
  2. Arg Line
  3. If RxFuncQuery( 'SysLoadFuncs' ) Then Do
  4.         Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5.         Call SysLoadFuncs
  6.         End
  7. Call AdeptLocation Line,"Entering a Message "
  8. Name = AdeptGetVar(Line,2)
  9. From = AdeptConvert(Line,"{A9")
  10. To = AdeptConvert(Line,"{MF")
  11. Subject = AdeptConvert(Line,"{A8")
  12. Area = AdeptConvert(Line,"{M6")
  13. Number = AdeptConvert(Line,"{M3")
  14. Private = 'N'
  15. if Number = '3' then do
  16. Private = 'Y'
  17. end
  18. asciifile = "d:\adept\system\line"||Line||"\msgtmp"
  19. rc = linein(asciifile)
  20. ry = lineout(asciifile)
  21. if left(rc,1) <> '>' then do
  22. SysFileDelete('d:\adept\system\Line'||Line||'\msgtmp')
  23. end
  24. again:
  25. Call AdeptCls Line
  26. Call AdeptMenuType Line,51,"EditIt.Asc"
  27. Call AdeptPrint Line,"\r\n{FBYour Choice {U0 :"
  28. keyrc = AdeptInput(Line,1,1,,,,,)
  29. if keyrc < 1 then signal again
  30. if keyrc > 8 then signal again
  31. if keyrc = 7 then signal netwanted
  32. SysFileDelete('d:\adept\system\Line'||Line||'\msginf')
  33. if Number = '4' then do
  34. Call SysFileDelete('d:\adept\menus\extfse'||Line||'.cmd')
  35. Call AdeptMenutype Line,200,To||';'||Subject||';'||999||';'||1,0
  36. in = 'd:\adept\menus\extfse0.sav'
  37. out = 'd:\adept\menus\extfse'||Line||'.cmd'
  38. do while lines(in)
  39. rc = linein(in)
  40. rt = lineout(out,rc)
  41. SysFileDelete('d:\adept\system\Line'||Line||'\msgtmp')
  42. end
  43. rc = lineout(in)
  44. rc = lineout(out)
  45. return
  46. end
  47. if keyrc = 1 then do
  48. ascfile = "d:\adept\system\line"||Line||"\MSGINF"
  49. rc = lineout(ascfile,Name)
  50. rc = lineout(ascfile,To)
  51. rc = lineout(ascfile,Subject)
  52. rc = lineout(ascfile,Number)
  53. rc = lineout(ascfile,Area)
  54. rc = lineout(ascfile,Private)
  55. rc = lineout(ascfile)
  56. Call AdeptMenuType Line,801,doorgen'{LN'.exe '{LN iceed.bat {LN',0
  57. end
  58. if keyrc = 2 then do
  59. ascfile = "d:\adept\system\line"||Line||"\MSGINF"
  60. rc = lineout(ascfile,Name)
  61. rc = lineout(ascfile,To)
  62. rc = lineout(ascfile,Subject)
  63. rc = lineout(ascfile,Number)
  64. rc = lineout(ascfile,Area)
  65. rc = lineout(ascfile,Private)
  66. rc = lineout(ascfile)
  67. Call AdeptMenuType Line,801,doorgen'{LN'.exe '{LN synced.bat {LN',0
  68. end
  69. if keyrc = 3 then do
  70. ascfile = "d:\adept\system\line"||Line||"\MSGINF"
  71. rc = lineout(ascfile,Name)
  72. rc = lineout(ascfile,To)
  73. rc = lineout(ascfile,Subject)
  74. rc = lineout(ascfile,Number)
  75. rc = lineout(ascfile,Area)
  76. rc = lineout(ascfile,Private)
  77. rc = lineout(ascfile)
  78. Call AdeptMenuType Line,801,doorgen'{LN'.exe '{LN teed.bat {LN',0
  79. end
  80. if keyrc = 4 then do
  81. ascfile = "d:\adept\system\line"||Line||"\MSGINF"
  82. rc = lineout(ascfile,Name)
  83. rc = lineout(ascfile,To)
  84. rc = lineout(ascfile,Subject)
  85. rc = lineout(ascfile,Number)
  86. rc = lineout(ascfile,Area)
  87. rc = lineout(ascfile,Private)
  88. rc = lineout(ascfile)
  89. Call AdeptMenuType Line,801,doorgen'{LN'.exe '{LN yaedit.bat {LN',0
  90. end
  91. if keyrc = 5 then do
  92. ascfile = "d:\adept\system\line"||Line||"\MSGINF"
  93. rc = lineout(ascfile,Name)
  94. rc = lineout(ascfile,To)
  95. rc = lineout(ascfile,Subject)
  96. rc = lineout(ascfile,Number)
  97. rc = lineout(ascfile,Area)
  98. rc = lineout(ascfile,Private)
  99. rc = lineout(ascfile)
  100. Call AdeptMenuType Line,801,doorgen'{LN'.exe '{LN toped.bat {LN',0
  101. end
  102. if keyrc = 6 then do
  103. ascfile = "d:\adept\system\line"||Line||"\MSGINF"
  104. rc = lineout(ascfile,Name)
  105. rc = lineout(ascfile,To)
  106. rc = lineout(ascfile,Subject)
  107. rc = lineout(ascfile,Number)
  108. rc = lineout(ascfile,Area)
  109. rc = lineout(ascfile,Private)
  110. rc = lineout(ascfile)
  111. Call AdeptMenuType Line,801,doorgen'{LN'.exe '{LN peed.bat {LN',0
  112. end
  113. netwanted:
  114. if keyrc = 7 then do
  115. ascfile = "d:\adept\system\line"||Line||"\MSGINF"
  116. rc = lineout(ascfile,Name)
  117. rc = lineout(ascfile,To)
  118. rc = lineout(ascfile,Subject)
  119. rc = lineout(ascfile,Number)
  120. rc = lineout(ascfile,Area)
  121. rc = lineout(ascfile,Private)
  122. rc = lineout(ascfile)
  123. Call AdeptMenuType Line,801,doorgen'{LN'.exe '{LN iceed.bat {LN',0
  124. end
  125. if(Number >= '38' & Number <= '999') then do
  126. ascfile='d:\adept\newecho.flg'
  127. rc = lineout(ascfile)
  128. end
  129. Return
  130.