home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ALF20WB.ZIP / ALF.ZIP / ALF.MEC < prev    next >
Encoding:
INI File  |  1995-11-29  |  38.8 KB  |  1,175 lines
  1. [comment
  2.                                ALF version 2.0wb
  3.         Add Local Files to Maximus - Copyright (c) 1993 by John Medland
  4.         PHOTO 334 BBS! Toronto, Canada (416) 539-9591 FidoNet 1:250/840
  5.  
  6. ]
  7. [moreoff cls][ifexist]alf\alfrr.bbs [goto nocls]
  8. [clear_stacked key_poke]%D
  9. [menu_cmd area_change]
  10. [/nocls][ifexist]alf\alfmenu.yes [grey ON grey] [white ON brown] ── ALF v2.0wb ───────────────────────────────────────────────────────────── [grey on grey] [white][goto yesmen]
  11. [grey ON grey] [white ON brown] ── ALF v2.0wb ─────────────────── [grey ON grey] [white]
  12. [/yesmen ifexist]alf\alfmenu.yes [lf GOTO MNEXT]
  13. [/mnext][ifexist]alf\alfsrce.bbs [clear_stacked link]alf\alfsrce.bbs [readln] [GOTO NEXT]
  14. [WHITE]
  15. [/NEXT][IFEXIST]alf\ALFRR.BBS [yellow] Directory [colour BLACK][file_carea endcolour nocolour] [endcolour lightgreen] ... [file_cname][LF GOTO ISRR]
  16. [yellow] File Area [lightmagenta][file_carea] [lightgreen]... [file_cname]
  17. [/ISRR][ifexist]alf\alfsrce.bbs  [white]Import from[colour BLACK][file_carea endcolour nocolour] [endcolour][lightred]... [RESPONSE][white]
  18. [ifexist]alf\alfsrce.bbs [link]alf\alfsrce.bbs [readln] [GOTO NEXT2]
  19. [WHITE LF][/NEXT2][ifexist]alf\alfmenu.yes [goto menuon]
  20. [goto menuoff]
  21. [/menuon][ifexist]alf\alf2hurl.bbs  [colour] [endcolour][white]2[nocolour])[endcolour][grey]xhurl [white]*[grey blink]Go   [steady colour] [endcolour][white]![nocolour])[endcolour][grey]Acquire dir  [colour] [endcolour][white]@[nocolour])[endcolour][grey]list dir     [colour] [endcolour][white]-[grey][nocolour])[endcolour][grey]FB Area [white]-[grey]All  [colour] [endcolour][white]=[nocolour])[endcolour][grey]Sort Area [white]=[grey]All[lf goto nohu]
  22.  [colour] [endcolour][white]2[nocolour])[endcolour][grey]xhurl       [colour] [endcolour][white]![nocolour])[endcolour][grey]Acquire all  [colour] [endcolour][white]@[nocolour])[endcolour][grey]list dir     [colour] [endcolour][white]-[grey][nocolour])[endcolour][grey]FB Area [white]-[grey]All  [colour] [endcolour][white]=[nocolour])[endcolour][grey]Sort Area [white]=[grey]All
  23. [/nohu] [colour] [endcolour][white]A[nocolour])[endcolour][grey]rea change  [colour] [endcolour][white]B[nocolour])[endcolour][grey]ackup file   [colour] [endcolour][white]C[nocolour])[endcolour][grey]ontents      [colour] [endcolour][white]D[nocolour])[endcolour][grey]os area shell [colour] [endcolour][white]E[nocolour])[endcolour][grey]dit files.bbs
  24.  [colour] [endcolour][white]F[nocolour])[endcolour][grey]ile titles  [colour] [endcolour][white]H[nocolour])[endcolour][grey]url file(s)  [colour] [endcolour][white]I[nocolour])[endcolour][grey]mport file   [colour] [endcolour][white]K[nocolour])[endcolour][grey]ill file      [colour] [endcolour][white]L[nocolour])[endcolour][grey]ocate file
  25.  [colour] [endcolour][white]M[nocolour])[endcolour][grey]ove entry   [colour] [endcolour][white]N[nocolour])[endcolour][grey]ew files     [colour] [endcolour][white]O[nocolour])[endcolour][grey]verride path [colour] [endcolour][white]P[nocolour])[endcolour][grey]rocess file   [colour] [endcolour][white]R[nocolour])[endcolour][grey]aw Directory
  26.  [colour] [endcolour][white]S[nocolour])[endcolour][grey]ource dir   [colour] [endcolour][white]T[nocolour])[endcolour][grey]ouch file    [colour] [endcolour][white]V[nocolour])[endcolour][grey]iew file     [colour] [endcolour][white]W[nocolour])[endcolour][grey]ayward files  [colour] [endcolour][white]X[nocolour])[endcolour][grey]ternal program
  27.  
  28. [/menuoff][colour]
  29. [up endcolour][WHITE]([white]?[grey]help, [white]/[grey]menu, [white]Q[grey]uit[white]) [WHITE]Select: [menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&*()_`1234567890-{}'?\|+=/][[
  30. [choice] [top]
  31. [choice]/[ifexist]alf\alfmenu.yes [delete]alf\alfmenu.yes  [TOP]
  32. [choice]/[open]alf\alfmenu.yes
  33. [choice]/[open]nul: [TOP]
  34. [choice]?[goto help]
  35. [choice]*[ifexist]alf\alf2hurl.bbs [link]alf\alfcheck.bbs [top]
  36. [choice]*[lf white]0 [grey]hurls ready.[pause][lf lf goto nocls]
  37. [choice][[[DELETE]alf\ALFRR.BBS
  38. [choice][[[key_poke][[
  39. [choice][[[menu_cmd area_change]file
  40. [choice][[[top]
  41. [choice]][DELETE]alf\ALFRR.BBS
  42. [choice]][key_poke]]
  43. [choice]][menu_cmd area_change]file
  44. [choice]][top]
  45. [choice]2[goto 2xhurl]
  46. [choice]a[goto pickarea]
  47. [choice]![goto all]
  48. [islocal][choice]B [goto backup]
  49. [choice]B [lf][yellow]Sorry, backups can't be done remotely.
  50. [choice]B
  51. [choice]B [white enter][top]
  52. [choice]c[menu_cmd contents]file
  53. [choice]c[goto erasenter]
  54. [choice]c[goto nocls]
  55. [choice]d[goto shell]
  56. [choice]@[goto dir]
  57. [choice]e[goto ed]
  58. [choice]f[menu_cmd File_Titles]File
  59. [choice]f[nocolour][goto erasenter endcolour]
  60. [choice]f[goto nocls]
  61. [choice]-[goto fbch]
  62. [choice]h[goto notag]
  63. [choice]i[goto import]
  64. [choice]k[goto killop]
  65. [choice]l[menu_cmd locate]file
  66. [choice]l[ifexist]alf\alfrr.bbs [up link]alf\alfrr.bbs
  67. [choice]l[ifexist]alf\alfrr.bbs [menu_cmd override_path]file
  68. [choice]l[goto erasenter]
  69. [choice]m[goto movedesc]
  70. [choice]n[up][menu_cmd Newfiles]file
  71. [choice]n[goto erasenter]
  72. [choice]o[GOTO RR]
  73. [choice]p[clear_stacked][goto procfile]
  74. [choice]q[DELETE]alf\ALFRR.BBS
  75. [choice]q[key_poke]%D
  76. [choice]q[menu_cmd area_change]
  77. [choice]q[QUIT]
  78. [choice]|[top]
  79. [choice]r[grey menu_cmd raw]file
  80. [choice]r[goto erasenter]
  81. [choice]s[goto source]
  82. [choice]t[goto touch]
  83. [choice]=[goto srtfbbs]
  84. [choice]v[menu_cmd type]file
  85. [choice]v[goto erasenter]
  86. [choice]w[GOTO WAYW]
  87. [choice]x[goto xrn]
  88. [moreoff][top]
  89. [/xrn][ifexist]alf\alfxtrn.bbs [link]alf\alfxtrn [top]
  90.  
  91. [yellow]Sorry, the external program file is not setup.
  92. Please edit alfxtrn.mec and mecca the file.
  93.  
  94. [White enter][top]
  95.  
  96.  
  97. [top]
  98. [/WAYW][ifexist]%Ffiles.bbs [goto isfbbs]
  99.  
  100. [yellow]FILES.BBS not found![pause]
  101.  
  102. [GREY]Adding file names ...
  103. [dos]IF EXIST %Ffiles.* ATTRIB +H %FFILES.*
  104. [dos]dir /b /A-H-D %F*.* |find /V "FILES.BBS" >> %Ffiles.bbs
  105. [dos]IF EXIST %Ffiles.* ATTRIB -H %FFILES.*
  106. Done!
  107. [lf goto nocls]
  108. [/isfbbs][DELETE]alfnode.bbs
  109. [open]alfnode.bat
  110. [write]@echo off
  111. [write]dir ACTIVE*.BBS |find /C "ACTIVE"| FIND "1">NUL
  112. [WRITE]IF ERRORLEVEL 1 GOTO OUT
  113. [WRITE]EXIT
  114. [WRITE]:OUT
  115. [WRITE]ECHO Maximus task found active!>ALFNODE.BBS
  116. [OPEN]NUL:
  117. [DOS]ALFNODE.BAT
  118. [DELETE]ALFNODE.BAT
  119. [IFEXIST]ALFNODE.BBS [YELLOW]
  120. [IFEXIST]ALFNODE.BBS [LINK]ALFNODE.BBS
  121. [IFEXIST]ALFNODE.BBS [pause DELETE]ALFNODE.BBS  [lf goto nocls]
  122. [cls][grey]Please wait...
  123. [open]alf\alforph.abt
  124. [open]nul:
  125.  
  126. [dos]alf\alforph.bat %Q %x %P
  127. [DOS]if exist %FFILES.* ATTRIB -H %FFILES.*
  128. [DELETE]alf\alf2FILE.$$$
  129. [ifexist]alf\alforph.abt [up cleol yellow]Aborted! [pause pause][delete]alf\alforph.abt [top]
  130. [ifexist]alf\alffiles.$$$ [goto $$$]
  131. [goto no$$$]
  132. [/$$$][islocal cls]
  133. [isremote white]
  134. [pause grey]No entry was found for[white]:
  135. [lf YELLOW moreon link]alf\alffiles.$$$
  136. [LF][GREY]Add to FILES.BBS [white][[Y,n] [MENU]Yn|
  137. [CHOICE]N[delete]alf\alffiles.$$$ [top]
  138. [CLS dOS]TYPE alf\alffiles.$$$ >>%FFILES.BBS
  139. [delete]alf\alffiles.$$$ [top]
  140. [/no$$$][cls][grey]All file names were found in FILES.BBS.[pause]
  141.  
  142. [goto nocls]
  143. [/ed][ifexist]alf\alf.edr [goto haveed]
  144. Please configure a text editor.[pause]
  145. [goto setup]
  146. [/haveed][isremote goto dored]
  147. [key_poke]%Ffiles.bbs
  148. [readln]
  149. [cls][link]alf\alf.edr
  150. [top]
  151. [/dored][ifexist]alf\alfdored.bbs [goto havdored]
  152.  
  153. [yellow]Sorry, remote editor is not setup.
  154. Please edit alfdored.mec and mecca the file.
  155.  
  156. [White enter][top]
  157. [/havdored]
  158. [link]alf\alfdored.bbs
  159. [top]
  160. [/fbch][ifexist]alf\alfrr.bbs [lf yellow]Not a Maximus File Area.[pause lf lf goto nocls]
  161. [pause][no_keypress][goto fbar]
  162. [black menu]-
  163. [cls grey][islocal][Xtern_Dos]fb
  164. [isremote][Xtern_Dos]fb >com%P
  165. [top]
  166. [/fbar][cls grey][islocal][Xtern_Dos]fb area.dat %D
  167. [isremote][Xtern_Dos]fb area.dat %D >com%P
  168. [top]
  169. [/srtfbbs][DELETE]alfnode.bbs
  170. [open]alfnode.bat
  171. [write]@echo off
  172. [write]dir ACTIVE*.BBS |find /C "ACTIVE"| FIND "1">NUL
  173. [WRITE]IF ERRORLEVEL 1 GOTO OUT
  174. [WRITE]EXIT
  175. [WRITE]:OUT
  176. [WRITE]ECHO Maximus task found active!>ALFNODE.BBS
  177. [OPEN]NUL:
  178. [PAUSE][no_keypress][goto srtcurr]
  179. [black menu]=
  180. [ifexist]alf\alfrr.bbs [yellow]Please run this command from a File Area.[pause top]
  181. [DOS]ALFNODE.BAT
  182. [DELETE]ALFNODE.BAT
  183. [IFEXIST]ALFNODE.BBS [YELLOW]
  184. [IFEXIST]ALFNODE.BBS [LINK]ALFNODE.BBS
  185. [IFEXIST]ALFNODE.BBS [pause DELETE]ALFNODE.BBS  [lf goto nocls]
  186. [open]%Falfstart.srt
  187. [open]nul:
  188. [delete]alfsrtal.bat
  189. [open]alfsrtal.bat
  190. [/nextsrt][write]@ECHO OFF
  191. [write]echo [1;37;40mSorting FILES.BBS in [32m%Q [1;37;40m...[0m
  192. [ISREMOTE][write]echo [1;37;40mSorting FILES.BBS in [32m%Q [1;37;40m...[0m>COM%P
  193. [write]call alf\alfsort %F %P
  194. [key_poke]]
  195. [menu_cmd area_change]
  196. [ifexist]%Falfstart.srt [goto donsrt]
  197. [goto nextsrt]
  198. [/donsrt][write]if exist fbbstxt.$$$ del fbbstxt.$$$
  199. [open]nul:
  200. [delete]%Falfstart.srt
  201. [cls][dos]alfsrtal.bat
  202. [delete]alfsrtal.bat
  203. [ifexist]COM0 [DELETE]COM0
  204. [top]
  205. [/srtcurr][DOS]ALFNODE.BAT
  206. [DELETE]ALFNODE.BAT
  207. [IFEXIST]ALFNODE.BBS [YELLOW]
  208. [IFEXIST]ALFNODE.BBS [LINK]ALFNODE.BBS
  209. [IFEXIST]ALFNODE.BBS [pause DELETE]ALFNODE.BBS  [lf goto nocls]
  210. [KEY_POKE]%Q
  211. [READLN]
  212. [cls][white DOWN]Sorting FILES.BBS in [lightgreen RESPONSE] [white]...
  213. [dos]alf\alfsort %F %P
  214. [ifexist]files.$$$ [delete]files.$$$
  215. [ifexist]COM0 [DELETE]COM0
  216. Done![pause][top]
  217. [/2xhurl][ifexist]alf\alfpick.bbs [delete]alf\alfpick.bbs
  218.  
  219. [grey]Use file selector? [white][[Y,n] [menu]Yn|
  220. [choice]n[goto nosel]
  221. [islocal][goto dorok]
  222. [isremote][ifexist]alf\alfdorpk.bbs [goto dorok]
  223.  
  224. [yellow]Sorry, remote selector is not set up.
  225. Please edit alfdorpk.mec, and mecca the file.
  226. [goto nosel]
  227. [/dorok][isremote link]alf\alfdorpk.bbs
  228. [islocal][white][dos]alf\alfpick.bat %F G
  229. [ifexist]alf\alfpick.bbs [link]alf\alfpick.bbs [readln]
  230. [ifexist]alf\alfpick.bbs [goto pickhdne]
  231. [top]
  232. [/nosel]
  233. [grey]2xhurl what?[white]: [readln]
  234. [ifentered]  [top]
  235. [ifexist]%F%J [goto hlhere]
  236.  
  237. [yellow][white][response grey] not found in [lightgreen file_cname][white pause pause]
  238. [up cleol up cleol up cleol up goto nosel]
  239. [/hlhere][open]alf\alfpick.bbs
  240. [write][up][key_poke]%J
  241. [open]nul:
  242. [/pickhdne][open]alf2find.bat
  243. [write]@echo off
  244. [write]find /I "time %J " alf\alfdaily.bat>nul
  245. [write]if errorlevel 1 goto out
  246. [write]del alf\alfpick.bbs
  247. [write]:out
  248. [open]nul:
  249. [dos]alf2find.bat
  250. [delete]alf2find.bat
  251. [ifexist]alf\alfpick.bbs [goto 2hok]
  252.  
  253. [yellow][response] is already queued for 2xhurl! [pause lf lf][goto nocls]
  254. [/2hok][ifexist]alf\alfrr.bbs [goto cskip]
  255.  
  256. [white]ENTER[grey] skips first hurl.
  257. [/cskip]
  258. [grey]Hurl (now) to which area?[white]: [readln]
  259. [ifexist]alf\alfrr.bbs [ifentered] [yellow lf]Path Override, can't skip! [lf lf][grey]Hit [white]ENTER [grey]to quit.[lf]
  260. [ifexist]alf\alfrr.bbs [ifentered] [grey]Hurl (now) to which area?[white]: [readln]
  261. [ifexist]alf\alfrr.bbs [ifentered] [delete]alf\alfpick.bbs [top]
  262. [open]alf\alfh1st.bbs
  263. [ifentered] [write][key_poke]%D
  264. [ifentered] [open]nul:
  265. [ifentered] [key_poke]%D
  266. [ifentered] [readln]  [goto no1st]
  267. [write][key_poke]%J
  268. [open]nul:
  269. [link]alf\alfpick.bbs
  270. [key_poke];
  271. [link]alf\alfh1st.bbs
  272. [white menu_cmd file_hurl]file
  273. [/no1st][ifexist]alf\alfrr.bbs [goto 2xrr]
  274. [delete]alf\HURLCHG#.bbs
  275. [OPEN]alf\HURLCHG#.bbs
  276. [WRITE][key_poke]%D
  277. [OPEN]NUL:
  278. [/2xrr] [KEY_POKE]%J
  279. [menu_cmd AREA_CHANGE]file
  280. [hotkeys][open]hotkey$.flg
  281. [hotkeys][open]nul:
  282. [hotkeys][menu_cmd chg_hotkeys]change
  283.  
  284. [LINK]alf\alfPICK.bbs [READLN]
  285. [ifexist]%F%J [goto copied]
  286. [/no2][ifexist]alf\alfrr.bbs [link]alf\alfrr.bbs
  287. [ifexist]alf\alfrr.bbs [menu_cmd override_path]
  288. [ifexist]alf\alfrr.bbs [goto post2xrr]
  289. [LINK]alf\HURLCHG#
  290. [MENU_CMD AREA_CHANGE]FILE
  291. [delete]alf\HURLCHG#
  292. [/post2xrr][delete]alf\alfpick.bbs
  293. [delete]alf\alfh1st.bbs
  294. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  295. [ifexist]hotkey$.flg [delete]hotkey$.flg
  296.  
  297. [goto nocls]
  298. [/copied][grey]Delayed hurl to which area?[white]: [clear_stacked][menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&*()_`1234567890-{}'?\|+=/][[
  299. [choice]|[link]alf\alfh1st.bbs [readln]
  300. [choice]|[yellow]File left in area: [white][response] [pause][goto no2]
  301. [open]alf\alfh2nd.bbs
  302. [write][up][key_poke]%C%R
  303. [open]nul:
  304.  
  305. [grey]Wait how many days? [white]([grey]ENTER=30[white]): [clear_stacked][menu]12345678910|
  306. [open]alf\alfdaily.bat
  307. [CHOICE]|[write]thistime %J 30
  308. [CHOICE]|[GOTO THIRT]
  309. [write]thistime %J %C%R
  310. [/THIRT]
  311. [link]alf\alfh1st
  312. [menu]1234567890abcdefghijklmnopqrstuvwxyz~!@#$%^&*()_+=-`[[]{}:;"'/?.,<>\|
  313. [write]if errorlevel 1 if exist \max\alf\alf2hurl.bbs FIND /i " %J " \MAX\alf\alf2hurl.bbs>nul
  314. [write]if errorlevel 1 echo [black] %J [key_poke]%C%R>>alf\alf2hurl.bbs
  315. [write]if errorlevel 1 echo [black] %J [UP link]alf\alfllink>>alf\alf2hurl.bbs
  316. [up link]alf\alfpick.bbs
  317. [key_poke];
  318. [moreoff up link]alf\alfh2nd.bbs
  319. [menu]abcdefghijklmnopqrstuvwxyz1234567890`-=\~!@#$%^&*()_+|}{":?><][[[[';/.,
  320. [write]if errorlevel 1 echo [black] %J [clear_stacked key_poke]%C%R >>alf\alf2hurl.bbs
  321. [write]if errorlevel 1 echo [black] %J [LINK]alf\ALFLINK.BBS >>alf\alf2hurl.bbs
  322. [write]if errorlevel 1 echo call \max\alf\alfkill.bat %J >>alf\alfmain.bat
  323. [open]nul:
  324. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  325. [ifexist]hotkey$.flg [delete]hotkey$.flg
  326. [ifexist]alf\alfrr.bbs [link]alf\alfrr.bbs
  327. [ifexist]alf\alfrr.bbs [menu_cmd override_path]
  328. [ifexist]alf\alfrr.bbs [goto pstxrr]
  329. [link]alf\HURLCHG#.bbs
  330. [menu_cmd AREA_CHANGE]file
  331. [/pstxrr][delete]alf\alfpick.bbs
  332. [delete]alf\alfh1st.bbs
  333. [delete]alf\alfh2nd.bbs
  334. [DELETE]alf\HURLCHG#.bbs
  335. [top]
  336. [/noalfh]
  337. [grey]Use file selector? [white][[Y,n] [menu]Yn|
  338. [choice]n[goto nowild]
  339. [islocal][goto doro]
  340. [isremote][ifexist]alf\alfdorpk.bbs [goto doro]
  341.  
  342. [yellow]Sorry, remote selector is not set up.
  343. Please edit alfdorpk.mec, and mecca the file.
  344. [goto nowild]
  345. [/doro][isremote link]alf\alfdorpk.bbs
  346. [islocal][white][dos]alf\alfpick.bat %F G
  347. [ifexist]alf\alfpick.bbs [goto Hpickdone]
  348. [top]
  349. [/hpickdone][link]alf\alfpick.bbs
  350. [delete]alf\alfpick.bbs
  351.  
  352. [/nowild][menu_cmd file_hurl]file
  353.  
  354. [goto nocls]
  355. [/notag]
  356. [grey]Use wildcards? [white][[y,N] [menu]yN|
  357. [choice]n[goto noalfh]
  358. [choice]|[goto noalfh]
  359.  
  360. [grey]Hurl what? [white][readln]
  361. [ifentered] [top]
  362. [hotkeys][open]hotkey$.flg
  363. [hotkeys][open]nul:
  364. [hotkeys][menu_cmd chg_hotkeys]change
  365.  
  366. [grey]To which area? [white][menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&*()_`1234567890-{}'?\|+=/][[
  367. [choice]|[ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  368. [choice]|[ifexist]hotkey$.flg [delete]hotkey$.flg [top]
  369. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  370. [ifexist]hotkey$.flg [delete]hotkey$.flg
  371. [dos]alf\alfhall.bat %J %C%R %Q %x
  372.  
  373. [white link]alfapoke.bbs
  374. [delete]alfapoke.bbs
  375. [goto nocls]
  376. [/touch]
  377. [grey]Use file selector? [white][[Y,n] [menu]Yn|
  378. [choice]n[goto man]
  379. [islocal][goto dor]
  380. [isremote][ifexist]alf\alfdorpk.bbs [goto dor]
  381.  
  382. [yellow]Sorry, remote selector is not set up.
  383. Please edit alfdorpk.mec, and mecca the file.
  384. [goto man]
  385. [/dor][isremote link]alf\alfdorpk.bbs
  386. [islocal][dos]alf\alfpick.bat %F G
  387. [ifexist]alf\alfpick.bbs [clear_stacked][link]alf\alfpick.bbs [readln]
  388. [ifexist]alf\alfpick.bbs [goto dotch]
  389. [top]
  390. [/man]
  391. [white]filespec [grey](ENTER for *.*) [grey][[[white]/D date[grey]] [[[white]/T time[grey]], or [white]Q[grey]uit[white]: [clear_stacked white readln]
  392. [ifentered]Q [top]
  393. [/dotch][ifentered] [dos]touch %F*.*>alf\ALFTCH.RPT
  394. [ifentered] [goto tout]
  395. [dos]touch %F%J>alf\ALFTCH.RPT
  396. [/tout][delete]alf\alfpick.bbs
  397.  
  398. [grey LINK]alf\ALFTCH.RPT
  399. [DELETE]alf\ALFTCH.RPT
  400.  
  401. [GOTO NOCLS]
  402. [/setup][grey]Please enter the full [white]PATH\NAME [grey]of your text editor[white]: [readln]
  403. [ifentered] [top]
  404. [ifexist]%J [goto oked]
  405. Program not found![pause][pause]
  406. [moreoff][up cleol][up cleol][up cleol]
  407. [goto setup]
  408. [/oked]
  409. [delete]alf\alf.edr
  410. [open]alf\alf.edr
  411. [write][dos]%J %%J
  412. [open]nul:
  413. [goto haveed]
  414. [/import][ifexist]alf\alfsrce.bbs [goto impl]
  415. [goto needsp]
  416. [/impl][open]alfsame.bbs
  417. [write][ifentered]%F [open]alfsame.flg
  418. [write][open]nul:
  419. [open]nul:
  420. [link]alf\alfsrce.bbs [readln]
  421. [up link]alfsame.bbs
  422. [delete]alfsame.bbs
  423. [ifexist]alfsame.flg [goto needsp]
  424. [grey]Import from [lightred][response][GREY]? [white][[Y,n] [menu]Yn|
  425. [choice]n[goto needsp]
  426.  
  427. [grey]Use file selector? [white][[Y,n] [menu]Yn|
  428. [CHOICE]N[GOTO IMPSNOTAG]
  429. [islocal][goto dimpok]
  430. [isremote][ifexist]alf\alfdimpk.bbs [goto dimpok]
  431.  
  432. [yellow]Sorry, remote selector is not set up.
  433. Please edit alfdimpk.mec, and mecca the file.
  434. [goto IMPSNOTAG]
  435. [/dimpok][islocal][white][dos]alf\alfpick.bat %J R
  436. [isremote link]alf\alfdimpk.bbs
  437. [white][ifexist]alf\alfpick.bbs [clear_stacked][link]alf\alfpick.bbs [readln]
  438. [ifexist]alf\alfpick.bbs [delete]alf\alfpick.bbs  [goto taag]
  439. [TOP]
  440. [/IMPSNOTAG]
  441. [lightred]FILE [grey]to import? [white]([GREY]no path[white]): [white][readln]
  442. [/taag][ifentered] [top]
  443. [ifentered]*.* [yellow]Sorry, wildcards not allowed.[white pause pause goto nocls]
  444. [link]alf\alfsrce.bbs
  445. [open]alf\alfdel.bbs
  446. [write][delete]%R%J
  447. [open]nul:
  448. [link]alf\alfsrce.bbs
  449. [open]alf\alfkinf.bbs
  450. [write][key_poke]%R%J
  451. [open]nul:
  452. [up link]alf\alfsrce.bbs
  453. [DELETE]alf\alfdelpk.bbs
  454. [open]alf\alfdelpk.bbs
  455. [write][key_poke]%R
  456. [open]nul:
  457. [goto niss]
  458. [/needsp]
  459. [ifexist]alfsame.flg [yellow]Not using [lightred][response][yellow] default.
  460. [ifexist]alfsame.flg [lf delete]alfsame.flg
  461. [lightred]PATH [GREY]to [WHITE]Import from[white]: [readln]
  462. [ifentered] [top]
  463. [delete]alfpath.bbs
  464. [open]alfpath.bbs
  465. [write][ifentered]%F [key_poke]n
  466. [write][ifentered]%F [quit]
  467. [write][key_poke]y
  468. [open]nul:
  469. [ifexist]alf\alfrr.bbs [goto pparr]
  470. [delete]chgarea$.bbs
  471. [open]chgarea$.bbs
  472. [write][key_poke]%D
  473. [open]nul:
  474. [/pparr][KEY_POKE]%J
  475. [menu_cmd override_path]file
  476. [key_poke]%F
  477. [readln]
  478. [up link]alfpath.bbs [readln]
  479. [ifentered]y [goto psgood]
  480. [lf lf lf yellow]Invalid PATH![pause]
  481. [goto needsp]
  482. [/psgood]
  483. [key_poke]%F
  484. [readln]
  485. [delete]alfpath.bbs
  486. [ifexist]alf\alfrr.bbs [goto pcparr]
  487. [clear_stacked link]chgarea$.bbs
  488. [menu_cmd area_change]file
  489. [delete]chgarea$.bbs
  490. [up goto pall]
  491. [/pcparr][link]alf\alfrr.bbs
  492. [menu_cmd override_path]file
  493. [/pall][open]alf\alfdelpk.bbs
  494. [write][key_poke]%J
  495. [open]nul:
  496. [grey]Use file selector? [white][[Y,n] [menu]Yn|
  497. [CHOICE]N[GOTO ittag]
  498. [islocal][goto ipok]
  499. [isremote][ifexist]alf\alfdimpk.bbs [goto ipok]
  500.  
  501. [yellow]Sorry, remote selector is not set up.
  502. Please edit alfdimpk.mec, and mecca the file.
  503. [goto ittag]
  504. [/ipok][islocal][white][dos]alf\alfpick.bat %J R
  505. [isremote link]alf\alfdimpk.bbs
  506. [white][ifexist]alf\alfpick.bbs [clear_stacked][link]alf\alfpick.bbs [readln]
  507. [ifexist]alf\alfpick.bbs [delete]alf\alfpick.bbs  [goto nis]
  508. [DELETE]alf\alfdelpk.bbs
  509. [TOP][/ittag]
  510. [lightred]FILE [grey]to import? [white]([GREY]no path[white]): [white][readln]
  511. [ifentered] [top]
  512. [/nis][hotkeys][open]hotkey$.flg
  513. [hotkeys][open]nul:
  514. [hotkeys][menu_cmd chg_hotkeys]change
  515. [link]alf\alfdelpk.bbs
  516. [menu]abcdefghijklmnopqrstuvwxyz1234567890!/\-.
  517. [open]alf\alfdel.bbs
  518. [write][delete]%C%R%J
  519. [open]nul:
  520. [up link]alf\alfdelpk.bbs
  521. [menu]abcdefghijklmnopqrstuvwxyz1234567890!/\-.
  522. [open]alf\alfkinf.bbs
  523. [write][key_poke]%C%R%J
  524. [open]nul:
  525. [/niss][ifexist]%F%J [up goto herenow]
  526. [UP goto nonow]
  527. [/herenow][ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  528. [ifexist]hotkey$.flg [delete]hotkey$.flg
  529. [white][response] [grey]already exists in [lightgreen file_cname]
  530.  
  531. [grey]Use existing file instead? [white][[Y,n] [clear_stacked menu]yn|
  532. [choice]|[lf goto goodone]
  533. [choice]y[lf goto goodone]
  534.  
  535. [choice]n[grey]Overwrite existing file? [white][[Y,n] [menu]yn|
  536. [choice]n[goto out]
  537. [IFEXIST]alf\ALFRR.BBS [GOTO DESCNF]
  538. [/nonow][IFEXIST]alf\ALFRR.BBS [lf lf GOTO DESCNF]
  539. [link]alf\alfdelpk.bbs
  540. [menu]abcdefghijklmnopqrstuvwxyz1234567890!/\-.
  541. [IFEXIST]%C%Rfiles.bbs [goto fnd]
  542. [goto descnf]
  543. [/fnd][UP link]alf\alfdelpk.bbs
  544. [menu]abcdefghijklmnopqrstuvwxyz1234567890!/\-.
  545. [open]alffind.bat
  546. [write]@echo off
  547. [write]type %C%Rfiles.bbs | find /I "%J" >alfound.dsc
  548. [write]if errorlevel 1 del alfound.dsc
  549. [write]if errorlevel 1 exit
  550. [open]nul:
  551. [UP dos]alffind.bat
  552. [delete]alffind.bat
  553. [ifexist]alfound.dsc [LF][grey]FILES.BBS entry to follow.
  554. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  555. [ifexist]hotkey$.flg [delete]hotkey$.flg
  556.  
  557. [white]C[grey]opy or [white]H[grey]url? [white][[C,h] [menu]Ch|
  558. [hotkeys][open]hotkey$.flg
  559. [hotkeys][open]nul:
  560. [hotkeys][menu_cmd chg_hotkeys]change
  561. [choice]c[lf goto descnf]
  562. [choice]|[lf goto descnf]
  563. [delete]alfound.dsc
  564. [open]alfimhrl.bbs
  565. [write][menu_cmd override_path]
  566. [write][key_poke]%J;%D
  567. [write][menu_cmd file_hurl]
  568. [write][clear_stacked key_poke]%D
  569. [open]nul:
  570. [link]alf\alfdelpk.bbs
  571. [link]alfimhrl.bbs
  572. [pause link]alf\alfllink.bbs
  573. [delete]alfimhrl.bbs
  574. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  575. [ifexist]hotkey$.flg [delete]hotkey$.flg
  576. [delete]alf\alfdel.bbs
  577. [delete]alf\alfdelpk.bbs
  578. [goto chhurl]
  579. [/descnf][grey]Copying [lightred response grey] to [lightgreen file_cname]
  580. [link]alf\alfdelpk.bbs
  581. [menu]abcdefghijklmnopqrstuvwxyz1234567890!/\-.
  582. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  583. [ifexist]hotkey$.flg [delete]hotkey$.flg
  584. [dos]copy %C%R%J %Q /V>nul
  585. [/chhurl][ifexist]%F%J [goto goodone]
  586. [yellow]File was not imported!
  587. [delete]alf\alfdelpk.bbs
  588. [delete]alf\alfdel.bbs
  589. [delete]alf\alfkinf.bbs
  590. [goto nocls]
  591. [/goodone][ifexist]alfound.dsc [grey]Copy files.bbs entry? [white][[Y,n] [menu]yn|
  592. [ifexist]alfound.dsc [choice]n[lf delete]alfound.dsc [goto noent]
  593. [ifexist]alfound.dsc [lf dos]type alfound.dsc >>%Ffiles.bbs
  594. [ifexist]alfound.dsc [delete]alfound.dsc
  595. [/noent][open]alfchrun.bat
  596. [write]@%%COMSPEC%% /E:512 /Calf\alfcess.bat %F %J %Q %x
  597. [open]nul:
  598. [open]sidekick.bat
  599. [write]@echo off
  600. [write]type fbbstrip.$$$ | find /I "%J" >> %Ffiles.bbs
  601. [ifexist]alf\ALFPOST.BAT [WRITE]alf\ALFPOST.BAT %Q %J
  602. [open]nul:
  603. [open]sidekick.$$$
  604. [write][key_poke]%J
  605. [open]nul:
  606. [/add2fbbs][ifexist]alf\alfkinf.bbs [goto notpr]
  607. [up goto ispr]
  608. [/notpr][grey]Process the file? [white][[Y,n] [menu]Yn|
  609. [choice]n[goto noproc]
  610. [/ispr]
  611. [white]Processing...[DOS]alfchrun.bat
  612.  
  613. [/noproc][OPEN]%x:\max\ALFDESC.BAT
  614. [WRITE]@ECHO OFF
  615. [WRITE]tYPE %Ffiles.bbs | FIND /I "%J" >%x:\max\alffbbs.bbs
  616. [WRITE]IF ERRORLEVEL 1 EXIT
  617. [WRITE]ECHO ISTHERE>%x:\max\ALFDESC.FLG
  618. [WRITE]CALL %x:\max\alf\ALFPOST.BAT %Q %J %x %F
  619. [WRITE]Type %Ffiles.bbs | FIND /I "%J" >%x:\max\alffbbs.bbs
  620. [write]copy %Ffiles.bbs %x:\max\alfhold.fil>nul
  621. [write]copy %x:\max\alffbbs.bbs %Ffiles.bbs>nul
  622. [OPEN]NUL:
  623. [DOS]ALFDESC.BAT
  624. [IFEXIST]%x:\max\ALFDESC.FLG [Goto nofflag]
  625. [goto fflag]
  626. [/nofflag]
  627. [key_poke] [ ]
  628. [cls moreoff menu_cmd file_titles]file
  629. [moreoff up cleol grey]Run external program? [white][[y,N] [menu]yN|
  630. [CHOICE]Y[GOTO XTE]
  631.  
  632.  
  633. [GOTO NOXTE]
  634. [/XTE][key_poke]%J
  635. [link]alf\alfxtrn.bbs
  636. [key_poke] [ ]
  637. [cls moreoff menu_cmd file_titles]file
  638. [/NOXTE][grey moreoff up cleol]Edit this description? [white][[y,N] [menu]Yn|
  639. [choice]y[goto edalf]
  640. [dos]copy %x:\max\alfhold.fil %Ffiles.bbs>nul
  641. [delete]%x:\max\alfhold.fil
  642. [delete]%x:\max\alffbbs.bbs
  643.  
  644. [goto sord]
  645. [/edalf][islocal][goto pdored]
  646. [isremote][ifexist]alf\alfdored.bbs [goto pdored]
  647.  
  648. [yellow]Sorry, remote editor is not set up.
  649. Please edit alfdored.mec, and mecca the file.
  650. [goto pdored]
  651. [/pdored][open]%x:\max\alffed.bat
  652. [WRITE]@ECHO OFF
  653. [WRITE]copy %Ffiles.bbs %x:\max\alf2hold.fil>nul
  654. [WRITE]type %x:\max\alfhold.fil |find /V /I "%J" >%Ffiles.bbs
  655. [WRITE]type %x:\max\alf2hold.fil >>%Ffiles.bbs
  656. [WRITE]del %x:\max\alf2hold.fil
  657. [WRITE]del %x:\max\alfhold.fil
  658. [WRITE]del %x:\max\alffbbs.bbs
  659. [WRITE]del %Ffiles.bak
  660. [open]nul:
  661. [ISREMOTE][LINK]alf\ALFDORED.BBS
  662. [islocal][cls][key_poke]%Ffiles.bbs
  663. [islocal][readln]
  664. [islocal][link]alf\alf.edr
  665. [dos]%x:\max\alffed.bat
  666. [delete]%x:\max\alffed.bat
  667. [goto sord]
  668. [/fflag]
  669. [yellow]No FILES.BBS entry found.
  670. [lf grey]Run external program? [white][[y,N] [menu]yN|
  671. [CHOICE]Y[GOTO yXTE]
  672. [GOTO NXTE]
  673. [/yXTE][key_poke]%J
  674. [link]alf\alfxtrn.bbs
  675. [/nxte][cls lf][grey]Please describe [white][response][grey] (one line) or hit ENTER for no listing.
  676. [black on grey][REPEAT] [78][grey]
  677. [nocolour]:[endcolour][up][black on grey][clear_stacked readln]
  678. [grey ifentered] [delete]sidekick.$$$
  679. [ifentered] [up yellow on grey] No listing added.[white lf lf goto sord]
  680. [open]sidekick.$$$
  681. [write][key_poke] %J
  682. [open]nul:
  683. [up link]sidekick.$$$
  684. [readln]
  685. [open]fbbstrip.$$$
  686. [write]%J
  687. [open]nul:
  688. [ifexist]sidekick.$$$ [dos]sidekick.bat
  689. [/sord][pause ifexist]alf\alfkinf.bbs [goto isimp]
  690. [goto out]
  691. [/isimp][clear_stacked up link]alf\alfkinf.bbs [readln]
  692. [ifexist]alf\alfdel.bbs [ifexist]alf\alfrr.bbs [grey]Delete original?[white]: [lightred response] [white][[y,N] [menu]yN|
  693. [ifexist]alf\alfdel.bbs [ifexist]alf\alfrr.bbs [choice]y[up link]alf\alfdel.bbs
  694. [/out][DELETE]ALFDESC.BAT
  695. [DELETE]ALFDESC.FLG
  696. [DELETE]alf\alfkinf.bbs
  697. [DELETE]ALFFBBS.BBS
  698. [delete]alfchrun.bat
  699. [ifexist]fbbstemp.$$$ [delete]fbbstemp.$$$
  700. [ifexist]fbbstrip.$$$ [delete]fbbstrip.$$$
  701. [ifexist]sidekick.$$$ [delete]sidekick.$$$
  702. [ifexist]sidekick.bat [delete]sidekick.bat
  703. [delete]alf\alfdel.bbs
  704. [delete]alf\alfdelpk.bbs
  705. [filenew]misc\file_bad.bbs [GREY]Read file_bad.bbs? [white][[y,N] [white][menu]yN|
  706. [filenew]misc\file_bad.bbs [choice]y[moreon link]misc\file_bad.bbs
  707.  
  708. [top]
  709. [/getdir][delete]alf\alfdelpk.bbs
  710. [ifexist]alf\alfsrce.bbs [link]alf\alfsrce [readln]
  711. [ifexist]alf\alfsrce.bbs [grey]DIR of [lightred][response][GREY]? [white][[y,N] [menu]Yn|
  712. [ifexist]alf\alfsrce.bbs [choice]n[top]
  713. [ifexist]alf\alfsrce.bbs [choice]|[top]
  714. [ifexist]alf\alfsrce.bbs [goto sourcedir]
  715. [grey]List a directory? [white][[y,N] [menu]Yn|
  716. [choice]n[cls][top]
  717. [choice]|[cls][top]
  718. [/dir][ifexist]alf\alfsrce.bbs [link]alf\alfsrce.bbs [readln]
  719. [ifexist]alf\alfsrce.bbs [grey]DIR of [lightred response][grey]? [white][[Y,n] [menu]Yn|
  720. [ifexist]alf\alfsrce.bbs [choice]y[goto sourcedir]
  721. [ifexist]alf\alfsrce.bbs [choice]|[goto sourcedir]
  722.  
  723. [grey]Directory [white]PATH[grey]?[white]: [readln]
  724. [ifentered] [top]
  725. [open]chgarea$.bbs
  726. [write][key_poke]%F
  727. [open]nul:
  728. [key_poke]%J
  729. [menu_cmd override_path]file
  730. [grey][menu_cmd raw]file
  731. [up link]chgarea$.bbs
  732. [menu_cmd override_path]file
  733. [delete]chgarea$.bbs [goto erasenter]
  734. [/sourcedir][open]chgarea$.bbs
  735. [write][key_poke]%F
  736. [open]nul:
  737. [up link]alf\alfsrce.bbs
  738. [menu_cmd override_path]file
  739. [grey menu_cmd raw]file
  740. [up link]chgarea$.bbs
  741. [menu_cmd override_path]file
  742. [delete]chgarea$.bbs [goto erasenter]
  743. [/shell][islocal goto shelloc]
  744. [cls open]alfshell.bat
  745. [write]@echo off
  746. [write]if exist %%1\nul goto isdir
  747. [write]%%1
  748. [write]cd %%1
  749. [write]:isdir
  750. [write]cd %%1
  751. [write]prompt [[Alf] $p$g
  752. [write]cls
  753. [write]%%COMSPEC%% >com%P <com%P
  754. [open]nul:
  755. [pause][up cleol up dos]alfshell.bat %Q
  756. [delete]alfshell.bat
  757. [top]
  758. [/shelloc][cls delete]alf\alf2dos.bat
  759. [open]alf\alf2dos.bat
  760. [write]@echo off
  761. [write]if exist %%1\nul goto isdir
  762. [write]%%1
  763. [write]cd %%1
  764. [write]:isdir
  765. [write]cd %%1
  766. [write]prompt [[Alf] $p$g
  767. [write]cls
  768. [write]%%COMSPEC%%
  769. [open]nul:
  770. [moreoff up cleol up dos]alf\alf2dos.bat %Q
  771. [delete]alf\alf2dos.bat
  772. [top]
  773. [/help][link]alf\alfhlp.bbs
  774. [/credit][cls][nocolour] [endcolour][colour][locate 10 18][black]    [white on brown][endcolour] ┌────────────────────────────────┐ [save][black]    [white]
  775. [nocolour] [endcolour][colour][locate 11 18][black]    [load][endcolour] │   ALF v2.0wb by John Medland   │ [save][black]    [white]
  776. [nocolour] [endcolour][colour][locate 12 18][black]    [load][endcolour] │ PHOTO 334 BBS! Toronto, Canada │ [save][black]    [white]
  777. [nocolour] [endcolour][colour][locate 13 18][black]    [load][endcolour] │ (416) 539-9591  Fido 1:250/840 │ [save][black]    [white]
  778. [nocolour] [endcolour][colour][locate 14 18][black]    [load][endcolour] └────────────────────────────────┘ [black]    [white][isremote pause pause pause][top]
  779. [pause][top]
  780. [/erasenter]
  781. [white enter]
  782. [nocolour]
  783. [endcolour up cleol goto nocls]
  784. [/source]
  785. [grey]Import directory [lightred]PATH[white]: [white readln]
  786. [endcolour][ifentered] [ifexist]alf\alfsrce.bbs [lf grey]Remove current default? [white][[y,N] [menu]yN|
  787. [ifentered] [choice]y[delete]alf\alfsrce.bbs [top]
  788. [ifentered] [top]
  789. [delete]alfpath.bbs
  790. [open]alfpath.bbs
  791. [write][ifentered]%F [key_poke]n
  792. [write][ifentered]%F [quit]
  793. [write][key_poke]y
  794. [open]nul:
  795. [ifexist]alf\alfrr.bbs [goto isparr]
  796. [delete]chgarea$.bbs
  797. [open]chgarea$.bbs
  798. [write][key_poke]%D
  799. [open]nul:
  800. [/isparr][KEY_POKE]%J
  801. [menu_cmd override_path]file
  802. [key_poke]%F
  803. [readln]
  804. [link]alfpath.bbs [readln]
  805. [ifentered]y [goto isgood]
  806.  
  807. [yellow]Invalid PATH![pause][pause][goto noispath]
  808. [/isgood][delete]alf\alfsrce.bbs
  809. [open]alf\alfsrce.bbs
  810. [write][key_poke]%F
  811. [open]nul:
  812. [/noispath]
  813. [delete]alfpath.bbs
  814. [ifexist]alf\alfrr.bbs [goto parr]
  815. [clear_stacked link]chgarea$.bbs
  816. [menu_cmd area_change]file
  817. [delete]chgarea$.bbs
  818. [top]
  819. [/parr][link]alf\alfrr.bbs
  820. [menu_cmd override_path]file
  821. [top]
  822. [/killop]
  823. [grey]Use file selector? [white][[Y,n] [menu]Yn|
  824. [choice]n[goto noselkill]
  825. [islocal][goto do]
  826. [isremote][ifexist]alf\alfdorpk.bbs [goto do]
  827.  
  828. [yellow]Sorry, remote selector is not set up.
  829. Please edit alfdorpk.mec, and mecca the file.
  830. [goto noselkill]
  831. [/do][isremote link]alf\alfdorpk.bbs
  832. [isremote][link]alf\alfdorpk.bbs
  833. [islocal][white][dos]alf\alfpick.bat %F G
  834. [ifexist]alf\alfpick.bbs [goto kpickdone]
  835. [top]
  836. [/kpickdone][link]alf\alfpick.bbs
  837. [readln]
  838.  
  839. [GREY]Kill [lightgreen response][grey] and FILES.BBS entry? [white][[Y,n] [lightgreen][menu]Yn|
  840. [choice]y[goto killit]
  841. [choice]|[goto killit]
  842. [grey]Kill file but leave FILES.BBS entry? [white][[y,N] [menu]yN|
  843. [choice]y[delete]alf\alfpick.bbs
  844. [choice]|[delete]alf\alfpick.bbs
  845. [choice]y[delete]%F%J [top]
  846. [choice]|[delete]%F%J [top]
  847. [key_poke]%J ;n
  848. [menu_cmd file_kill]file
  849. [delete]alf\alfpick.bbs
  850. [CLEAR_STACKED][top]
  851. [/noselkill]
  852. [grey]Use wildcards? [white][[y,N] [menu]yN|
  853. [choice]n[goto nowalfk]
  854. [choice]|[goto nowalfk]
  855.  
  856. [grey]Filespec to kill?[white] [readln]
  857. [ifentered] [top]
  858.  
  859. [grey]Kill [white][response][grey] in [lightgreen FILE_CNAME][grey]? [white][[Y,n] [menu]yn|
  860. [choice]n[top]
  861. [dos]alf\alfwkill.bat %Q %J %x
  862. [link]alfwkil.bbs
  863. [delete]alfwkil.bbs [top]
  864. [/nowalfk]
  865. [grey]File to kill?[white] [readln]
  866. [ifentered]  [top]
  867. [ifexist]%F%J [goto ns2kill]
  868.  
  869. [GREY]Kill listing for [lightgreen response][grey]? [white][[Y,n] [lightgreen][menu]Yn|
  870. [choice]n[top]
  871. [goto killit]
  872. [/ns2kill]
  873. [GREY]Kill [lightgreen response][grey] and FILES.BBS entry? [white][[Y,n] [lightgreen][menu]Yn|
  874. [choice]y[goto killit]
  875. [choice]|[goto killit]
  876. [grey]Kill file but leave FILES.BBS entry? [white][[y,N] [menu]yN|
  877. [choice]y[delete]%F%J [top]
  878. [choice]|[delete]%F%J [top]
  879. [ifexist]%F%J [goto ns3kill]
  880. [top]
  881. [/ns3kill][key_poke]%J ;n
  882. [menu_cmd file_kill]file
  883. [top]
  884. [/killit][Key_Poke]%J;Y
  885. [menu_cmd file_kill]file
  886. [delete]alf\alfpick.bbs
  887. [CLEAR_STACKED][pause pause top]
  888. [/backup]
  889. [Grey]Use file selector for Backup? [WHITE][[Y,n] [menu]Yn|
  890. [choice]n[lf grey]Backup which file?[white]: [readln]
  891. [choice]n[ifentered] [top]
  892. [choice]n[ifexist]%F\%J [goto notagbu]
  893. [choice]n[white][response] [grey]not found in [lightgreen FILE_CNAME][pause][pause]
  894. [choice]n[white][goto backup]
  895. [white][dos]alf\alfpick.bat %F G
  896. [ifexist]alf\alfpick.bbs [goto pickdone]
  897. [top]
  898. [/pickdone][link]alf\alfpick.bbs
  899. [readln]
  900. [delete]alf\alfpick.bbs
  901. [/notagbu]
  902. [hotkeys][open]hotkey$.flg
  903. [hotkeys][open]nul:
  904. [hotkeys][menu_cmd chg_hotkeys]change
  905. [grey]Backup to (drive letter)[white]: [menu]abcdefghijklmnopqrstuvwxyz:|
  906. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  907. [ifexist]hotkey$.flg [delete]hotkey$.flg
  908. [choice]|[top]
  909. [open]alf\alfdrv.bbs
  910. [write][key_poke]%C
  911. [open]nul:
  912. [ifexist]%C:\%J [goto there]
  913. [goto ok]
  914. [/there]
  915. [grey]Overwrite existing file? [white][[y,N] [menu]yN|
  916. [choice]n[delete]alf\alfpick.bbs [top]
  917. [choice]n[delete]alf\alfdrv.bbs [top]
  918. [choice]|[delete]alf\alfpick.bbs [top]
  919. [choice]|[delete]alf\alfdrv.bbs [top]
  920. [up link]alf\alfdrv.bbs
  921. [menu]abcdefghijklmnopqrstuvwxyz:
  922. [/ok]
  923. [grey]Copying [lightgreen response]...[dos]copy %F%J %C: /V>nul
  924. [ifexist]%C:\%J [goto success]
  925.  
  926. [yellow]File was not copied![pause]
  927. [delete]alf\alfdrv.bbs
  928. [delete]alf\alfpick.bbs
  929.  
  930. [goto nocls]
  931. [/success][ifexist]%Ffiles.bbs [goto copdesc]
  932. [goto nodesc]
  933. [/copdesc]
  934.  
  935. [grey]Searching for file description...
  936. [open]alfback.bat
  937. [write]@echo off
  938. [write]type %Ffiles.bbs|find /I "%J" > alfilbbs.bbs
  939. [write]if errorlevel 1 del alfilbbs.bbs
  940. [open]nul:
  941. [dos]alfback.bat
  942. [delete]alfback.bat
  943. [ifexist]alfilbbs.bbs [goto havelbbs]
  944. [up right right right right right right right right right right right right right right right right right right right right right right right right right right right right right right right right right right white]None found![pause pause][goto nodesc]
  945. [/havelbbs][up cleol cyan link]alfilbbs.bbs
  946.  
  947. [up link]alf\alfdrv.bbs [readln]
  948. [grey]Copy to [response]:\FILES.BBS? [white][[Y,n] [Menu]yn|
  949. [choice]n[goto nodesc]
  950. [dos]type alfilbbs.bbs >> %J:\files.bbs
  951. [/nodesc][delete]alf\alfdrv.bbs
  952. [delete]alfilbbs.bbs
  953. [top]
  954. [/ALL][isremote][grey]Remote call. Any existing files will be replaced. Continue? [white][[Y,n] [menu]|yn
  955. [isremote][white][choice]n[top]
  956. [ifexist]alf\alfsrce.bbs [goto allws]
  957. [goto pallnoa]
  958. [/allws]
  959. [open]alfsame.bbs
  960. [write][ifentered]%F [open]alfsame.flg
  961. [write][open]nul:
  962. [open]nul:
  963. [up link]alf\alfsrce.bbs [readln]
  964. [up link]alfsame.bbs
  965. [delete]alfsame.bbs
  966. [ifexist]alfsame.flg [yellow]Not using [lightred][response][yellow] default.
  967. [ifexist]alfsame.flg [goto pallnoa]
  968. [/allnsc][grey][lightred response grey]  ──>  [lightgreen file_cname]
  969.  
  970. [grey]Acquire all files and FILES.BBS entries? [white][[Y,n] [menu]Yn|
  971. [choice]n[goto allnoa]
  972. [goto noallhs]
  973. [/allnoa]
  974. [grey]Acquire other directory? [white][[Y,n] [menu]yn|
  975. [choice]n[top]
  976. [/pallnoa][delete]alfsame.flg
  977.  
  978. [lightred]PATH [grey]of directory to acquire[white]: [readln]
  979. [ifentered]  [top]
  980. [delete]alfpath.bbs
  981. [open]alfpath.bbs
  982. [write][ifentered]%F [key_poke]n
  983. [write][ifentered]%F [quit]
  984. [write][key_poke]y
  985. [open]nul:
  986. [ifexist]alf\alfrr.bbs [goto acisparr]
  987. [delete]chgarea$.bbs
  988. [open]chgarea$.bbs
  989. [write][key_poke]%D
  990. [open]nul:
  991. [/acisparr][KEY_POKE]%J
  992. [menu_cmd override_path]file
  993. [key_poke]%F
  994. [readln]
  995. [up link]alfpath.bbs [readln]
  996. [ifentered]y [goto acisgood]
  997. [lf lf lf yellow]Invalid PATH![pause][goto acnois]
  998. [/acisgood]
  999. [key_poke]%F
  1000. [readln]
  1001. [delete]alfpath.bbs
  1002. [ifexist]alf\alfrr.bbs [goto yacparr]
  1003. [clear_stacked link]chgarea$.bbs
  1004. [menu_cmd area_change]file
  1005. [delete]chgarea$.bbs
  1006. [up goto allnsc]
  1007. [/yacparr][link]alf\alfrr.bbs
  1008. [menu_cmd override_path]file
  1009. [goto allnsc]
  1010. [/acnois][delete]alfpath.bbs
  1011. [ifexist]alf\alfrr.bbs [goto acparr]
  1012. [clear_stacked link]chgarea$.bbs
  1013. [menu_cmd area_change]file
  1014. [delete]chgarea$.bbs
  1015. [goto allnoa]
  1016. [/acparr][link]alf\alfrr.bbs
  1017. [menu_cmd override_path]file
  1018. [goto allnoa]
  1019.  
  1020. [/noallhs]
  1021. [GREY]Copy, Move or Quit? [white][[C,m,q] [menu]Cmq|
  1022. [choice]q[top]
  1023. [choice]m[goto acqmove]
  1024. [open]alfacopy.bat
  1025. [write]@echo off
  1026. [ifexist]%Jfiles.bbs [write]type %Jfiles.bbs |find /V "[3]" >>%Ffiles.bbs
  1027. [write]if exist %Jfiles.* attrib +H %Jfiles.*
  1028. [ifexist]%Jfiles.bbs [goto acqisfbb]
  1029. [lf][yellow]FILES.BBS not found in [lightred response][yellow]!
  1030. [lf][grey]Add file names to [lightgreen file_cname grey] FILES.BBS? [white][[Y,n] [menu]YN|
  1031. [choice]n[goto acqisfbb]
  1032. [write]echo.
  1033. [write]echo Adding file names ...
  1034. [write]echo Adding file names ...>ALFACOPY.RPT
  1035. [write]dir /b /A-H-D %J*.* >> %Ffiles.bbs
  1036. [write] echo.>>ALFACOPY.RPT
  1037. [/acqisfbb]
  1038. [write]echo.
  1039. [write] echo Copying files ...
  1040. [write] echo Copying files ...>>ALFACOPY.RPT
  1041. [write] echo.>>ALFACOPY.RPT
  1042. [write] echo.
  1043. [write]copy /-Y %J*.* %Q |find "(s) co">>ALFACOPY.RPT
  1044. [write]if exist %Jfiles.* attrib -H %Jfiles.*
  1045. [open]nul:
  1046. [up dos]alfacopy.bat
  1047. [delete]alfacopy.bat
  1048.  
  1049. [moreon link]alfacopy.rpt
  1050. [pause DELETE]ALFACOPY.RPT
  1051.  
  1052. [goto nocls]
  1053. [/acqmove][ifexist]%Jfiles.bbs [goto isbbs]
  1054. [lf][YELLOW]FILES.BBS not found in [LIGHTRED][response][YELLOW]!
  1055. [lf][grey]Add file names to [lightgreen file_cname grey] FILES.BBS? [white][[Y,n] [menu]YN|
  1056. [choice]n[goto nohead]
  1057. [ifexist]%Jfiles.idx [delete]%Jfiles.idx
  1058. [ifexist]%Jfiles.dat [delete]%Jfiles.dat
  1059. [ifexist]%Jfiles.dmp [delete]%Jfiles.dmp
  1060. [ifexist]%Jfiles.bak [delete]%Jfiles.bak
  1061. Adding names to FILES.BBS ...
  1062. [dos]dir /b /A-H-D %J*.* | find /v "FILES.BBS" >> %Ffiles.bbs
  1063. [goto didir]
  1064. [/isbbs]
  1065. [moreoff][lightcyan]Saving lines containing ASCII 3 decimal character ...
  1066. [dos]type %Jfiles.bbs |find "[3]" >%Fheader1.!&$
  1067. [green]Updating [lightgreen][file_cname] [green]FILES.BBS ...
  1068. [dos]type %Jfiles.bbs|find /V "[3]">>%Ffiles.bbs
  1069. [/NOHEAD][ifexist]%Jfiles.bbs [delete]%J\files.bbs
  1070. [ifexist]%Jfiles.idx [delete]%J\files.idx
  1071. [ifexist]%Jfiles.dat [delete]%J\files.dat
  1072. [ifexist]%Jfiles.dmp [delete]%J\files.dmp
  1073. [ifexist]%Jfiles.bak [delete]%J\files.bak
  1074. [/didir][LIGHTBLUE]Moving files ...[white]
  1075. [isremote dos]move %J*.* %Q>alfadd.all
  1076. [islocal dos]move /-Y %J*.* %Q>alfadd.all
  1077. [moreon WHITE link]alfadd.all
  1078. [delete]alfadd.all
  1079. [ifexist]%Fheader1.!&$ [goto head]
  1080. [goto doneall]
  1081. [/head][lightcyan]Replacing lines...[white]
  1082. [dos]copy %Fheader1.!&$ %JFILES.BBS /V>nul
  1083. [delete]%Fheader1.!&$
  1084. [/doneall][grey]Done![pause]
  1085.  
  1086. [goto NOCLS]
  1087. [/procfile]
  1088. [grey]Use file selector? [white][[Y,n] [menu]Yn|
  1089. [choice]n[goto pickman]
  1090. [islocal][goto udo]
  1091. [isremote][ifexist]alf\alfdorpk.bbs [goto udo]
  1092.  
  1093. [yellow]Sorry, remote selector is not set up.
  1094. Please edit alfdorpk.mec, and mecca the file.
  1095. [goto pickman]
  1096. [/udo][isremote link]alf\alfdorpk.bbs
  1097. [islocal][white][dos]alf\alfpick.bat %F G
  1098. [ifexist]alf\alfpick.bbs [goto haveap]
  1099. [TOP]
  1100. [/haveap]
  1101. [link]alf\alfpick.bbs
  1102. [readln]
  1103. [delete]alf\alfpick.bbs
  1104. [goto goodone]
  1105. [/pickman]
  1106. [grey]Process which file?[white]: [clear_stacked][readln]
  1107. [ifentered] [top]
  1108. [ifexist]%F%J [goto goodone]
  1109.  
  1110. [white][response] [grey]not found in [lightgreen file_cname][white pause pause]
  1111. [up cleol up cleol up cleol up goto pickman]
  1112. [/movedesc][ifexist]%Ffiles.bbs [goto isfile]
  1113. [lf yellow]FILES.BBS not found in this directory.[pause]
  1114.  
  1115. [goto nocls][/isfile]
  1116. [grey]Move description for which file?[white]: [readln]
  1117. [ifentered] [top]
  1118. [ifexist]%F%J [lf white][response] [yellow]exists in [lightgreen file_cname][yellow]!
  1119. [ifexist]%F%J [lf grey]Move the description, but leave the file? [white][[y,N] [menu]yn|
  1120. [ifexist]%F%J [choice]|[top]
  1121. [ifexist]%F%J [choice]n[top]
  1122. [dos]@type %Ffiles.bbs | find /i "%J" > filesout.tmp
  1123.  
  1124. [moreon green link]filesout.tmp
  1125.  
  1126. [grey]Move this description? [white][[Y,n] [menu]yn|
  1127. [choice]n[delete]filesout.tmp [top]
  1128.  
  1129. [ifexist]alf\alfrr.bbs [goto isorr]
  1130. [dos]echo [key_poke]%D >chgarea$.bbs
  1131. [/isorr][open]hurldesc.bat
  1132. [write]@echo off
  1133. [write]type filesout.tmp >> %%1files.BBS
  1134. [write]type %Ffiles.bbs |find /V /I "%J" > filesbbs.$$$
  1135. [write]copy filesbbs.$$$ %Ffiles.bbs /V>nul
  1136. [write]del filesbbs.$$$
  1137. [open]nul:
  1138. [grey]Move to which file area?
  1139. [menu_cmd area_change]file
  1140. [dos]hurldesc.bat %F
  1141. [delete]filesout.tmp
  1142. [delete]hurldesc.bat
  1143. [ifexist]alf\alfrr.bbs [goto 2isorr]
  1144. [link]chgarea$.bbs
  1145. [menu_cmd area_change]file
  1146. [delete]chgarea$.bbs
  1147. [top]
  1148. [/2isorr][link]alf\alfrr.bbs
  1149. [menu_cmd override_path]file
  1150. [top]
  1151. [/RR]
  1152. [GREY]Override [white]PATH[white]: [READLN]
  1153. [IFENTERED] [TOP]
  1154. [open]alfpath.bbs
  1155. [write][readln]
  1156. [write][ifentered]%F [key_poke]n
  1157. [write][ifentered]%F [quit]
  1158. [write][key_poke]y
  1159. [open]nul:
  1160. [KEY_POKE]%J
  1161. [grey menu_cmd override_path]file
  1162. [key_poke]%F
  1163. [link]alfpath.bbs
  1164. [readln]
  1165. [delete]alfpath.bbs
  1166. [ifentered]n [pause][TOP]
  1167. [delete]alf\ALFRR.BBS
  1168. [OPEN]alf\ALFRR.BBS
  1169. [write][KEY_POKE]%F
  1170. [OPEN]NUL:
  1171. [top]
  1172. [/pickarea][DELETE]alf\ALFRR.BBS
  1173. [menu_cmd Area_Change]File
  1174. [top]
  1175.