home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / com / bbs / mlv / mlv.cmd next >
Encoding:
Text File  |  1993-09-01  |  6.8 KB  |  226 lines
  1.                                  MLV
  2.                         (Multiple List Viewer)
  3.                                  v0.2
  4.                            By Bill Esposito
  5.                           The Cereal Port BBS
  6.                                1:132/152
  7.                              (603)899-3335
  8.  
  9.                             Magic name 'MLV'
  10.                            for latest version
  11.  
  12. ***********************************************************************
  13. DISCLAIMER:  This software is provided "AS IS" without any warranty of
  14. any kind, either expressed or implied.  USE IT AT YOUR OWN RISK.
  15.  
  16. Copyright 1993 by Bill Esposito.  This program is FREEWARE, just let me
  17. know how you like it.
  18. ***********************************************************************
  19.                                            
  20. The Multiple List Viewer was written specifically to interface with the national
  21. USBBS list published by Darwin, or any 80 column ASCII text file.
  22.  
  23. Put MLV.CMD in your Max directory, and put the text files anywhere you want
  24. them, just be sure to define them below.
  25.  
  26. Modify your Max Menu.ctl file as follows:
  27.  
  28.      Xtern_Run Maxpipe.exe_%P_MLV.CMD   normal  "Text Database"
  29.  
  30. Your users will be presented with up to five (5) selections.  They may either
  31. perform a text search, or display the entire file.
  32.  
  33. To configure MLV, you must define some variables, and comment/uncomment some
  34. lines.
  35.  
  36. In order to comment out (REM) a line in REXX, you must precede the line with the 
  37. characters:  /*
  38. You must also CLOSE the remark with these characters:  */
  39. example:
  40.  
  41. /*   This is a REXX Remark  */
  42.  
  43. Read through the program and follow the instructions.
  44.  
  45. */
  46. l=1
  47. y=1
  48. /*  YOU CAN DEFINE UP TO 5 TEXT FILES FOR YOUR DATABASE                     */
  49.  
  50. file1='g:\max\mlv\sample.lst'       /* enter the full drive, path and filename                                    
  51.                                         of the 1st selection */                                       
  52. file2='drive:\path\filename.ext'    /* enter the full drive, path and filename
  53.                                        of the 2nd selection */                 
  54. file3='drive:\path\filename.ext'    /* enter the full drive, path and filename
  55.                                         of the 3rd selection */
  56. file4='drive:\path\filename.ext'     /* enter the full drive, path and filename
  57.                                         of the 4th selection */
  58. file5='drive:\path\filename.ext'     /* enter the full drive, path and filename
  59.                                         of the 5th selection */
  60.  
  61.  
  62. '@echo off'
  63. call RxFuncAdd 'SysloadFuncs','RexxUtil','Sysloadfuncs'
  64. call sysloadfuncs
  65.  
  66. menu:
  67. /* ansi on */
  68. cls
  69. noclr:
  70. say ''
  71. say '                   Multiple List Viewer'
  72. say '                          v0.2'
  73. say '                     by Bill Esposito'
  74. say
  75. say '                 '
  76. say ''
  77.  
  78. /*  YOU SHOULD NOW DEFINE THE TITLES OF YOUR SELECTIONS.  MAKE SURE THAT THE
  79.     SELECTION NUMBERS CORRESPOND TO THE TEXT FILE NUMBERS DEFINED ABOVE      */
  80.  
  81. say '              1.  Darwin USBBS List'
  82. say
  83. /* say '              2.  BLANK  '*/ 
  84. /* say                            */
  85. /* say '              3.  BLANK  '*/  
  86. /* say                            */
  87. /* say '              4.  BLANK  '*/ 
  88. /* say                            */
  89. /* say '              5.  BLANK  '*/ 
  90. /* say                            */
  91. say '              Q.  Quit back to BBS'
  92. pull todo
  93. if todo=Q then exit
  94. /*  NEXT, GO TO THE END OF THE FILE AND DEFINE THE HEADERS                */
  95. if todo=1 then filesch=file1
  96. if todo=2 then filesch=file2
  97. if todo=3 then filesch=file3
  98. if todo=4 then filesch=file4
  99. if todo=5 then filesch=file5
  100.  
  101. if todo=1 then call find
  102. if todo=2 then call find
  103. if todo=3 then call find
  104. if todo=4 then call find
  105. if todo=5 then call find
  106. call menu
  107. /* find */
  108. find:
  109. count=0
  110. i=0
  111. cls
  112. say ''
  113. say '                   Multiple List Viewer'
  114. say '                          v0.2'
  115. say '                     by Bill Esposito'
  116. say
  117. say '                 '
  118. say ''
  119. say
  120. say'                 1. Search for text'
  121. say
  122. say'                 2. Display the entire file '
  123. pull sd
  124. if sd=2 then call read
  125. if sd=1 then call search
  126. call menu
  127. search:
  128. say
  129. say 'What do you want to search for? (any text or numbers, no wildcards)'
  130. say '                                (ex. "NH" "603" "Esposito" "Espo" "Cereal")'
  131. say
  132. pull what
  133. if what='' then call menu
  134. call sysfilesearch what, filesch, 'file.'
  135. if todo=1 then call head1
  136. if todo=2 then call head2
  137. if todo=3 then call head3
  138. if todo=4 then call head4
  139. if todo=5 then call head5
  140. return: 
  141. do i=1 to file.0
  142. say file.i
  143. count = count + 1
  144. if count=20 then call more1
  145. end
  146. say 'Press <enter> to continue'
  147. pull enter
  148. call menu
  149. /* Read */
  150. read: 
  151. x=1
  152. loop:
  153. y='1'
  154.  
  155. newq = rxqueue('create')
  156. oq = rxqueue('set',newq)
  157. l=l+y
  158. linein(filesch,1,0)
  159. loop2:
  160. do until x > 23
  161. say ''linein(filesch)''
  162. if lines(filesch)=''0'' then say 'Press the <ENTER> key to continue'
  163. if lines(filesch)=''0'' then pull enter
  164. if lines(filesch)=''0'' then call qdel
  165. x=x+y
  166. end
  167. more:
  168.   x=1
  169.    say 'more? (Y,n)'
  170.     pull yn
  171.     if yn='N' then call qdel
  172.      else
  173. call loop2
  174. call qdel
  175. qdel:
  176. call rxqueue 'delete',newq
  177. call rxqueue 'set',oq 
  178. call menu
  179. more1:
  180. say 'more? (Y,n)'
  181. pull yn
  182. if yn='N' then call menu
  183. if todo=1 then call head1
  184. if todo=2 then call head2
  185. if todo=3 then call head3
  186. if todo=4 then call head4
  187. if todo=5 then call head5
  188. return
  189. /*     HEADER SECTION - The header will be displayed at the beginning of each
  190. 23 line screen.  If you do not want a header, just comment out the two (2)
  191. 'SAY' lines as shown for HEAD2: below.  You need only define/comment out the
  192. header for the selections you've defined.  In otherwords, if you have only
  193. three (3) of the five (5) selections enabled, then HEAD4 and HEAD5 need not
  194. be touched.                                                                 */
  195.  
  196.  
  197. head1:
  198. say 'PHONE        STATE  CITY      SYSOP          T/S      |    NAME, FEATURES'
  199. say '-------------------------------------------------------------------------'  
  200. count = 0
  201. return
  202.  
  203. head2:
  204. /* say ''  Comment out the 2 'say' lines if you don't want a header displayed */
  205. /* say '' */ 
  206. count = 0
  207. return
  208.  
  209. head3:
  210. say 'Put your header title on this line for the 3rd selection                 '
  211. say '-------------------------------------------------------------------------'  
  212. count = 0
  213. return
  214.  
  215. head4:
  216. say 'Put your header title on this line for the 4th selection                 '
  217. say '-------------------------------------------------------------------------'  
  218. count = 0
  219. return
  220.  
  221. head5:
  222. say 'Put your header title on this line for the 5th selection                 '
  223. say '-------------------------------------------------------------------------'  
  224. count = 0
  225. return
  226.