home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / BATCH / BCSRCE2.ZIP / PATHS.BC < prev    next >
Encoding:
Text File  |  1990-10-18  |  3.3 KB  |  160 lines
  1. save_screen
  2. let %!a = %path%
  3. parse %!a %!b ;
  4. parse %!b %!c ;
  5. parse %!c %!d ;
  6. parse %!d %!e ;
  7. parse %!e %!f ;
  8. parse %!f %!g ;
  9. parse %!g %!h ;
  10. parse %!h %!i ;
  11. parse %!i %!j ;
  12. parse %!j %!k ;
  13. parse %!k %!l ;
  14. parse %!l %!m ;
  15. parse %!m %!n ;
  16. parse %!n %!o ;
  17. parse %!o %!p ;
  18. parse %!p %!q ;
  19. parse %!q %!r ;
  20. parse %!r %!s ;
  21. parse %!s %!t ;
  22. parse %!t %!u ;
  23. :mainloop
  24. cls
  25. echo 1)  %!a
  26. echo 2)  %!b
  27. echo 3)  %!c
  28. echo 4)  %!d
  29. echo 5)  %!e
  30. echo 6)  %!f
  31. echo 7)  %!g
  32. echo 8)  %!h
  33. echo 9)  %!i
  34. echo 10) %!j
  35. echo 11) %!k
  36. echo 12) %!l
  37. echo 13) %!m
  38. echo 14) %!n
  39. echo 15) %!o
  40. echo 16) %!p
  41. echo 17) %!q
  42. echo 18) %!r
  43. echo 19) %!s
  44. echo 20) %!t
  45. echo
  46. echonolf Do you want to: (A)dd, (D)elete, or (Q)uit?\\32
  47. getkey
  48. if errlevel 65 goto addpath
  49. if errlevel 97 goto addpath
  50. if errlevel 68 goto delpath
  51. if errlevel 100 goto delpath
  52. if errlevel 81 goto exitpath
  53. if errlevel 113 goto exitpath
  54. goto mainloop
  55.  
  56. :delpath
  57. echo
  58. echonolf Which number do you want to delete? 
  59. read %!z
  60. le %!z 1
  61. if errorlevel 1 let %!a = %!b
  62. le %!z 2
  63. if errorlevel 1 let %!b = %!c
  64. le %!z 3
  65. if errorlevel 1 let %!c = %!d
  66. le %!z 4
  67. if errorlevel 1 let %!d = %!e
  68. le %!z 5
  69. if errorlevel 1 let %!e = %!f
  70. le %!z 6
  71. if errorlevel 1 let %!f = %!g
  72. le %!z 7
  73. if errorlevel 1 let %!g = %!h
  74. le %!z 8
  75. if errorlevel 1 let %!h = %!i
  76. le %!z 9
  77. if errorlevel 1 let %!i = %!j
  78. le %!z 10
  79. if errorlevel 1 let %!j = %!k
  80. le %!z 11
  81. if errorlevel 1 let %!k = %!l
  82. le %!z 12
  83. if errorlevel 1 let %!l = %!m
  84. le %!z 13
  85. if errorlevel 1 let %!m = %!n
  86. le %!z 14
  87. if errorlevel 1 let %!n = %!o
  88. le %!z 15
  89. if errorlevel 1 let %!o = %!p
  90. le %!z 16
  91. if errorlevel 1 let %!p = %!q
  92. le %!z 17
  93. if errorlevel 1 let %!q = %!r
  94. le %!z 18
  95. if errorlevel 1 let %!r = %!s
  96. le %!z 19
  97. if errorlevel 1 let %!s = %!t
  98. le %!z 20
  99. if errorlevel 1 let %!t =
  100. goto mainloop
  101.  
  102. :addpath
  103. echo
  104. echonolf What do you want to add? 
  105. read %!z
  106. if %!a. == . let %!a = %!z
  107. if %!a == %!z goto addpathend
  108. if %!b. == . let %!b = %!z
  109. if %!b == %!z goto addpathend
  110. if %!c. == . let %!c = %!z
  111. if %!c == %!z goto addpathend
  112. if %!d. == . let %!d = %!z
  113. if %!d == %!z goto addpathend
  114. if %!e. == . let %!e = %!z
  115. if %!e == %!z goto addpathend
  116. if %!f. == . let %!f = %!z
  117. if %!f == %!z goto addpathend
  118. if %!g. == . let %!g = %!z
  119. if %!g == %!z goto addpathend
  120. if %!h. == . let %!h = %!z
  121. if %!h == %!z goto addpathend
  122. if %!i. == . let %!i = %!z
  123. if %!i == %!z goto addpathend
  124. if %!j. == . let %!j = %!z
  125. if %!j == %!z goto addpathend
  126. if %!k. == . let %!k = %!z
  127. if %!k == %!z goto addpathend
  128. if %!l. == . let %!l = %!z
  129. if %!l == %!z goto addpathend
  130. if %!m. == . let %!m = %!z
  131. if %!m == %!z goto addpathend
  132. if %!n. == . let %!n = %!z
  133. if %!n == %!z goto addpathend
  134. if %!o. == . let %!o = %!z
  135. if %!o == %!z goto addpathend
  136. if %!p. == . let %!p = %!z
  137. if %!p == %!z goto addpathend
  138. if %!q. == . let %!q = %!z
  139. if %!q == %!z goto addpathend
  140. if %!r. == . let %!r = %!z
  141. if %!r == %!z goto addpathend
  142. if %!s. == . let %!s = %!z
  143. if %!s == %!z goto addpathend
  144. let %!t = %!z
  145. :addpathend
  146. goto mainloop
  147.  
  148. :exitpath
  149. let %!z = %!a;%!b;%!c;%!d;%!e;%!f;%!g;%!h;%!i;%!j;%!k;%!l;%!m;%!n;%!o;%!p;%!q;%!r;%!s;%!t
  150. :strip_semicolon_loop
  151. let %!y = %!z
  152. string_length %!y
  153. let %!x = %!z
  154. substring %!x %!y 1
  155. sub %!y 1
  156. if %!x == ; substring %!z 1 %!y
  157. if %!x == ; goto strip_semicolon_loop
  158. path=%!z
  159. restore_screen
  160.