home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / com / bbs / bbslist / bbslist.cmd next >
OS/2 REXX Batch file  |  1993-07-03  |  3KB  |  123 lines
  1. /* DISCLAIMER:  This software is provided "AS IS" without any warranty of any
  2. kind, either expressed or implied.  USE IT AT YOUR OWN RISK.
  3.  
  4. The USBBS Lister was written specifically to interface with the national
  5. USBBS list published by Darwin.
  6.  
  7. You will also need a copy of the USBBS list, USBBS???.ZIP, available everywhere
  8. or from the source at 916-929-7511 (BOBsBBS).
  9.  
  10. Put BBSLIST.CMD in your Max directory, and put the help file and USBBS list
  11. anywhere you want them, just be sure to define them below.
  12.  
  13. Modify your Max Menu.ctl file as follows:
  14.  
  15.      Xtern_Run Maxpipe.exe_%P_BBSLIST.CMD   normal  "Darwin BBS list"
  16.  
  17. Your users will be presented with three (3) options. #1 will allow a search
  18. of the USBBSXXX.LST.  It's a string search so no wildcards are needed.  
  19. #2 just displays some info about the BBS List.  And #3 quit's back to the BBS.
  20.  
  21.  
  22.  
  23. Copywrite 1993 by Bill Esposito.  This program is FREEWARE, just let me know
  24. how you like it. (The Cereal Port BBS, 1:132/152, 603-899-3335)
  25.  
  26. */
  27. l=1
  28. y=1
  29.  
  30. bbsfile='g:\max\usbbs\usbbs103.lst' /* enter the full path/name of the
  31.                                         USBBS list file */
  32. file='g:\max\usbbs\usbbslst.hlp'    /* enter the full file/path the help file */
  33.  
  34. '@echo off'
  35. call RxFuncAdd 'SysloadFuncs','RexxUtil','Sysloadfuncs'
  36. call sysloadfuncs
  37.  
  38. menu:
  39. /* ansi on */
  40. cls
  41. noclr:
  42. say ''
  43. say '                     USBBS List Viewer'
  44. say '                          v1.0'
  45. say '                     by Bill Esposito'
  46. say
  47. say '                 '
  48. say ''
  49. say '              1.  Search the USBBS List'
  50. say
  51. say '              2.  Info about the USBBS List' 
  52. SAY
  53. say '              3.  Quit back to BBS'
  54. pull todo
  55. if todo=1 then call find
  56. if todo=2 then call read
  57. if todo=3 then exit
  58. if todo=Q then exit
  59. call menu
  60. /* find */
  61. find:
  62. count=0
  63. i=0
  64. say
  65. say 'What do you want to search for? (any text or numbers, no wildcards)'
  66. say '                                (ex. "NH" "603" "Esposito" "Espo" "Cereal")'
  67. say
  68. pull what
  69. if what='' then call menu
  70. call sysfilesearch what, bbsfile, 'file.'
  71. head:
  72. say 'PHONE        STATE  CITY      SYSOP          T/S      |    NAME, FEATURES'
  73. say '-------------------------------------------------------------------------'  
  74. return: 
  75. do i=1 to file.0
  76. say file.i
  77. count = count + 1
  78.  
  79. if count=20 then call more1
  80. end
  81. say 'Press <enter> to continue'
  82. pull enter
  83.  
  84. call menu
  85. /* Read */
  86. read: 
  87. x=1
  88. loop:
  89. y='1'
  90.  
  91. newq = rxqueue('create')
  92. oq = rxqueue('set',newq)
  93. l=l+y
  94. linein(file,1,0)
  95. loop2:
  96. do until x > 23
  97. say ''linein(file)''
  98. if lines(file)=''0'' then say 'Press the <ENTER> key to continue'
  99. if lines(file)=''0'' then pull enter
  100. if lines(file)=''0'' then call qdel
  101. x=x+y
  102. end
  103. more:
  104.   x=1
  105.    say 'more? (Y,n)'
  106.     pull yn
  107.     if yn='N' then call qdel
  108.      else
  109. call loop2
  110. call qdel
  111. qdel:
  112. call rxqueue 'delete',newq
  113. call rxqueue 'set',oq 
  114. call menu
  115. more1:
  116. say 'more? (Y,n)'
  117. pull yn
  118. if yn='N' then call menu
  119. say 'PHONE        STATE  CITY      SYSOP          T/S      |    NAME, FEATURES'
  120. say '-------------------------------------------------------------------------'  
  121. count = 0
  122. return
  123.