home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / MAXIMUS / MECWORK1.ZIP / MECWORKS.MEC < prev    next >
INI File  |  1994-04-06  |  20KB  |  564 lines
  1. [comment
  2.                        ───:── Mecca WorkShop v1.0 ───:──
  3.                        Copyright (c) 1994 by John Medland
  4.           PHOTO 334 BBS! Toronto, Canada (416) 539-9591 FidoNet 1:250/840
  5.  
  6. ]
  7. [cls][/start][black on grey] ───:── Mecca WorkShop v1.0 ───:── [white]
  8. [ifexist]mecworks.dat [goto here]
  9.  
  10.  [cyan]No File Loaded
  11. [goto nofile]
  12. [/here][clear_stacked][link]mecworks.dat [cyan] File[white]: [readln] [response].mec
  13. [/nofile]
  14.   [yellow]E[nocolour])[endcolour][cyan]dit
  15.   [yellow]R[nocolour])[endcolour][cyan]ename
  16.   [yellow]S[nocolour])[endcolour][cyan]tamp date
  17.   [yellow]W[nocolour])[endcolour][cyan]rite token
  18.   [yellow]V[nocolour])[endcolour][cyan]iew
  19.   [yellow]M[nocolour])[endcolour][cyan]ecca
  20.   [yellow]K[nocolour])[endcolour][cyan]eep date
  21.   [yellow]O[nocolour])[endcolour][cyan]racle
  22.   [yellow]B[nocolour])[endcolour][cyan]BS (run)
  23.   [yellow]D[nocolour])[endcolour][cyan]elete
  24.   [yellow]L[nocolour])[endcolour][cyan]ist MECs
  25.   [yellow]F[nocolour])[endcolour][cyan]ile (load)
  26.   [yellow]C[nocolour])[endcolour][cyan]onfigure
  27. [ifexist]mecworks.ref [yellow]  N[nocolour])[endcolour][cyan]otes
  28.   [yellow]H[nocolour])[endcolour][cyan]elp
  29.   [yellow]Q[nocolour])[endcolour][cyan]uit
  30. [colour]
  31. [ifexist]mecworks.ref [up up]
  32. [endcolour]
  33. [white]Select: [colour][pause][locate 1 4][black on grey]:─[locate 1 31]:─[locate 22 9][white][endcolour][menu]femrodlnsxbchkwqv|
  34. [moreoff][up cleol up cleol]
  35. [moreon][choice]n[goto note]
  36. [choice]l[goto see]
  37. [choice]c[goto setup]
  38. [choice]f[goto new]
  39. [choice]h[goto doc]
  40. [choice]q[goto credit]
  41. [ifexist]mecworks.dat [goto cont]
  42. [cyan]Please load a file![pause]
  43. [moreoff][nocolour][top][endcolour]
  44. [locate 25 1][repeatseq 4][cleol up][24][locate 1 1][goto start]
  45. [/cont][choice]e[goto ed]
  46. [choice]v[goto look]
  47. [choice]b[goto run]
  48. [choice]w[goto punch]
  49. [choice]d[goto nuke]
  50. [choice]s[goto adate]
  51. [choice]k[goto sdate]
  52. [choice]r[goto rename]
  53. [choice]m[cls][Xtern_dos]Mecca %J
  54. [choice]o[isremote][cyan]Sorry, Oracle is for local use only.[pause pause pause top]
  55. [choice]o[goto ora]
  56. [top]
  57. [/sdate][cls][delete]mecworks.bat
  58. [open]mecworks.bat
  59. [write]@echo off
  60. [write]cls
  61. [write]echo ─:── Recording file date of %%1.bbs...
  62. [write]echo.
  63. [write]echo mecworks Keepdate > mecworks.$$$
  64. [write]samedate %%1.bbs mecworks.$$$
  65. [write]echo.
  66. [write]mecca %%1
  67. [write]echo.
  68. [write]echo ──:─ Redating %%1.bbs...
  69. [write]echo.
  70. [write]samedate mecworks.$$$ %%1.bbs
  71. [write]echo.
  72. [write]echo.
  73. [write]echo ─:── Redating %%1.mec...
  74. [write]echo.
  75. [write]samedate mecworks.$$$ %%1.mec
  76. [write]del mecworks.$$$
  77. [open]nul
  78. [Xtern_Dos]mecworks.bat %J
  79. [delete]mecworks.bat
  80. [top]
  81. [/ed][isremote][cyan]Sorry, the editor is for local use only.[pause pause pause top]
  82. [ifexist]mecworks.edr [goto haveed]
  83. Please configure a text editor.[pause]
  84. [goto setup]
  85. [/haveed]
  86. [cls][link]mecworks.edr
  87. [menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&()_`1234567890-{}'?\|
  88. [Xtern_Dos]%C%R %J.mec
  89. [top]
  90. [/setup][CYAN]Please enter the full PATH\NAME of your text editor[white]: [readln]
  91. [ifentered] [top]
  92. [ifexist]%J [goto oked]
  93. Program not found![pause][pause]
  94. [moreoff][up cleol][up cleol][up cleol]
  95. [goto setup]
  96. [/oked]
  97. [delete]mecworks.edr
  98. [open]mecworks.edr
  99. [write][key_poke]%J
  100. [open]nul
  101. [up][white]Done![pause]
  102. [top]
  103. [/look][open]mecworks.$$$
  104. [write][link]%J.mec
  105. [open]nul
  106. [cls][cyan][link]mecworks.$$$
  107. [delete]mecworks.$$$
  108. [white][enter][top]
  109. [/run][ifexist]%J.BBS [goto good]
  110. [cyan]MECCA the file and try again.[pause][pause]
  111. [moreoff][nocolour][top][endcolour]
  112. [locate 25 1][repeatseq 4][cleol up][24][locate 1 1][goto start]
  113. [/good][cls][delete]mecworks.$$$
  114. [open]mecworks.$$$
  115. [write][link]%J.bbs
  116. [open]nul
  117. [link]mecworks.$$$
  118. [delete]mecworks.$$$
  119. [top]
  120. [/note][ifexist]mecworks.edr [goto aved]
  121. Please configure a text editor.[pause]
  122. [goto setup]
  123. [/aved][isremote]Sorry, editor can only be run locally. [pause][pause][top]
  124. [ifexist]mecworks.ref [goto haveref]
  125. [cyan]MECWORKS.REF not found. Create it?[white] [[y,N] [menu]yn|
  126.   [choice]n[top]
  127.   [choice]|[top]
  128. [cls][link]mecworks.edr
  129. [menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&()_`1234567890-{}'?\|
  130. [cls][Xtern_Dos]%C%R mecworks.ref
  131.   [top]
  132. [/haveref]
  133. [cls][white][link]mecworks.edr
  134. [readln]
  135. [dos]%J mecworks.ref
  136. [top]
  137. [/rename][ifexist]%J.mec [goto yup]
  138. [ifexist]%J.bbs [goto yup]
  139. [cyan]Can't rename. File doesn't exist! [pause][pause][top]
  140. [/yup][open]mecwkill.bbs
  141. [write][delete]%J.mec
  142. [write][delete]%J.bbs
  143. [open]nul
  144. Path\Filename [cyan](no extension)[white]: [clear_stacked][readln]
  145. [ifentered] [delete]mecwkill.bbs
  146. [ifentered] [top]
  147. [ifexist]%J.mec [goto have]
  148. [ifexist]%J.bbs [goto have]
  149. [goto ok]
  150. [/have][cyan][response].mec or .bbs exists! Overwrite?[white] [[y,N] [menu]yn|
  151. [choice]y[goto ok]
  152. [top]
  153. [/ok]
  154. [hotkeys][open]hotkey$.flg
  155. [hotkeys][open]nul
  156. [hotkeys][menu_cmd chg_hotkeys]change
  157. [link]mecworks.dat
  158. [up][menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&()_`1234567890-{}'?\|
  159. [open]mecwkill.bat
  160. [write]@echo off
  161. [write]copy %C%R.mec %J.mec >nul
  162. [up][link]mecworks.dat
  163. [up][menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&()_`1234567890-{}'?\|
  164. [write]copy %C%R.bbs %J.bbs >nul
  165. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  166. [ifexist]hotkey$.flg [delete]hotkey$.flg
  167. [delete]mecworks.dat
  168. [open]mecworks.dat
  169. [write][key_poke]%J
  170. [open]nul
  171. [dos]mecwkill.bat
  172. [delete]mecwkill.bat
  173. [link]mecwkill.bbs
  174. [delete]mecwkill.bbs
  175. [UP][white]Done! [pause pause][top]
  176. [/nuke][cyan]Delete [response].mec and bbs?[white] [[Y,n] [menu]Yn|
  177. [choice]n[top]
  178. [nocolour][moreoff][endcolour][delete]%J.mec
  179. [delete]%J.bbs
  180. [delete]mecworks.dat
  181. [white]Done![pause][top]
  182. [/new][cyan]Assume c:\max\misc?[white] [[Y,n] [menu]yn|
  183. [choice]n[goto any]
  184. [white]FILE [cyan](no extension)[white]: c:\max\misc\[readln]
  185. [ifentered] [top]
  186. [ifexist]misc\%J.mec [goto gotit]
  187. [ifexist]misc\%J.bbs Found [response].BBS only.
  188. [ifexist]misc\%J.bbs [cyan]Run ACCEM to create [response].MEC?[white] [[Y,n] [menu]yn|
  189. [ifexist]misc\%J.bbs [choice]n[goto gotit]
  190. [ifexist]misc\%J.bbs [cls][dos]accem misc\%J
  191. [ifexist]misc\%J.bbs [goto gotit]
  192. [yellow]New file.[pause]
  193. [/gotit][ifexist]mecworks.dat [delete]mecworks.dat
  194. [open]mecworks.dat
  195. [write][key_poke]c:\max\misc\%J
  196. [open]nul
  197. [top]
  198. [/any][white]PATH\FILE [cyan](no extension)[white]: [readln]
  199. [ifentered] [top]
  200. [ifexist]%J.mec [goto got]
  201. [ifexist]%J.bbs Found [response].BBS only.
  202. [ifexist]%J.bbs [cyan]Run ACCEM to create [response].MEC?[white] [[Y,n] [menu]yn|
  203. [ifexist]%J.bbs [choice]n[goto got]
  204. [ifexist]%J.bbs [cls][dos]accem %J
  205. [ifexist]%J.bbs [goto got]
  206. [yellow]New file.[pause]
  207. [/got]
  208. [ifexist]mecworks.dat [delete]mecworks.dat
  209. [open]mecworks.dat
  210. [write][key_poke]%J
  211. [open]nul
  212. [top]
  213. [/ora][ifexist]%J.bbs [goto oko]
  214. [cyan]MECCA the file and try again.[pause][pause]
  215. [moreoff][nocolour][top][endcolour]
  216. [locate 25 1][repeatseq 4][cleol up][24][locate 1 1][goto start]
  217. [/oko][white][cls][black on grey] ──:─── Mecca WorkShop v1.0 ──:─── [white]
  218. [ifexist]mecworks.osw [link]mecworks.osw [menu]abcdefghijklmnopqrstuvwxyz-/
  219. [open]mecworks.orc
  220. [ifexist]mecworks.osw [write]%J.bbs %C%R
  221. [ifexist]mecworks.osw [goto haveosw]
  222. [write]%J.bbs
  223.  
  224. [/haveosw][open]nul
  225.  [CYAN]ORACLE [link]mecworks.orc
  226. [delete]mecworks.orc
  227. [/noswi]  [yellow]O[nocolour])[endcolour][cyan]racle
  228.   [yellow]S[nocolour])[endcolour][cyan]witches
  229.   [yellow]Q[nocolour])[endcolour][cyan]uit
  230.  
  231. [white]Select: [menu]soq|
  232. [choice]q[top]
  233. [choice]|[goto oko]
  234. [choice]s[goto cfgora]
  235. [ifexist]mecworks.osw [goto haveo]
  236. [cls][Xtern_Run]Oracle %J
  237. [top]
  238. [/haveo]
  239. [link]mecworks.osw
  240. [hotkeys][open]hotkey$.flg
  241. [hotkeys][open]nul
  242. [hotkeys][menu_cmd chg_hotkeys]change
  243. [menu]abcdefghijklmnopqrstuvwxyz1234567890~!@#$%^&*()_+|\=-`{}][[":;'?><,.-/
  244. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  245. [ifexist]hotkey$.flg [delete]hotkey$.flg
  246. [cls][Xtern_Run]Oracle %J %C%R
  247. [top]
  248. [/cfgora]
  249. [white]Switch Configuration
  250. [white]?[cyan]=help [white]/[cyan]=none
  251. [white]Switches: [readln]
  252. [ifentered]? [goto help]
  253. [ifentered]/ [delete]mecworks.osw  [goto clear]
  254. [ifentered]  [goto clear]
  255. [delete]mecworks.osw
  256. [open]mecworks.osw
  257. [write][key_poke]%J
  258. [open]nul
  259. [clear_stacked][link]mecworks.dat [readln]
  260. [goto oko]
  261. [/clear]
  262. [clear_stacked][link]mecworks.dat [readln]
  263. [goto oko]
  264. [/help][cls][white]
  265. [open]workseeo.bat
  266. [write]@echo off
  267. [write]oracle /?
  268. [write]pause
  269. [open]nul
  270. [dos]workseeo.bat
  271. [delete]workseeo.bat
  272. [up][goto cfgora]
  273. [/credit][nocolour][cls][colour]                                                                                   [endcolour][filenew]mecworks.mec [locate 9 23][blue]Netmail any suggestions to 1:250/840[white]
  274. [locate 11 23][black on grey] ┌────────────────────────────────┐ [save]
  275. [locate 12 23][load] │ Mecca WorkShop by John Medland │ [save]
  276. [locate 13 23][load] │ PHOTO 334 BBS! Toronto, Canada │ [save]
  277. [locate 14 23][load] │ (416) 539-9591  Fido 1:250/840 │ [save]
  278. [locate 15 23][load] └────────────────────────────────┘ [white]                   [locate 22 1][pause][cls quit]
  279. [/see][cyan]C:\max\misc? [white][[Y,n] [menu]yn|
  280. [choice]n[goto nope]
  281. File Mask [cyan](no extension)[white]: [readln]
  282. [ifentered] [dos]dir /W c:\max\misc\*.mec /O:N |find "MEC">mecworks.$$$
  283. [ifentered] [goto nomask]
  284. [up][dos]dir /W c:\max\misc\%J.mec /O:N |find "MEC">mecworks.$$$
  285. [/nomask]
  286. [cls][white]DIRECTORY: c:\max\misc\
  287.  
  288. [moreon][cyan][link]mecworks.$$$
  289.  
  290. [white enter]
  291. [delete]mecworks.$$$
  292. [top]
  293. [/nope]Full PATH [cyan](no backslash)[white]: [readln]
  294. [ifentered] [top]
  295. [ifexist]%J\nul [goto fndpath]
  296. Path not found![pause][pause]
  297. [moreoff][up cleol][up cleol][goto nope]
  298. [/fndpath][hotkeys][open]hotkey$.flg
  299. [hotkeys][open]nul
  300. [hotkeys][menu_cmd chg_hotkeys]change
  301. File Mask [cyan](no extension)[white]: [menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&()_`1234567890-{}'?\|*
  302. [ifexist]hotkey$.flg [menu_cmd chg_hotkeys]change
  303. [ifexist]hotkey$.flg [delete]hotkey$.flg
  304. [choice]|[goto nomas]
  305. [dos]dir /W %J\%C%R.mec /O:N |find "MEC">mecworks.$$$
  306. [goto seem]
  307. [/nomas]
  308. [dos]dir /W %J\*.mec /O:N |find "MEC">mecworks.$$$
  309. [/seem]
  310. [cls][white]DIRECTORY: [response]\
  311.  
  312. [moreon][cyan][link]mecworks.$$$
  313.  
  314. [white enter]
  315. [delete]mecworks.$$$
  316. [top]
  317. [/adate][ifexist]current.bat [cyan]`Current.bat' exists!  Overwrite? [white][[Y,n] [menu]Y|n
  318. [choice]n[top]
  319. [delete]current.bat
  320. [open]current.bat
  321. [write]@echo off
  322. [cyan]Bulletin style? [white][[Y,n] [menu]yn|
  323. [choice]n[goto plain]
  324. [write]echo [cyan]───────────┤ [lightcyan]%%3 %%4[cyan] ├───────────────────────────────────────────────────>>%J.mec
  325. [goto boxed]
  326. [/plain][write]echo %%3 %%4 >>%J.mec
  327. [/boxed][open]$tmp2$$.bat
  328. [write]@echo off
  329. [write]echo.|date|find "Current">$tmp3$$.bat
  330. [write]$tmp3$$
  331. [open]nul
  332. [dos]$tmp2$$
  333. [delete]$tmp2$$.bat
  334. [delete]$tmp3$$.bat
  335. [delete]current.bat
  336. [white]Done![pause]
  337. [top]
  338. [/punch][ifexist]mecworks.dat [link]mecworks.dat  [readln]
  339. [ifexist]mecworks.dat [goto pun]
  340. [down]Please load a file! [pause][pause][top]
  341. [/pun][cls]
  342. [hotkeys][goto havehot]
  343. [open]hotkey#.flg
  344. [open]nul
  345. [menu_cmd chg_hotkeys]change
  346. [/havehot]
  347. [open]mecworks.pun
  348. [write][black][open]%J.mec
  349. [/punch2][nocolour cls endcolour][locate 1 1][black on grey] ──:─── Mecca WorkShop v1.0 ──:─── [white]
  350.  
  351. [cyan] File[white]: [response].mec[magenta]
  352.  
  353.  [yellow]a[cyan] [[blink]          [yellow]n[cyan] [[ifexist]       [yellow]0[cyan] [[notkey]       [yellow]%[cyan] [[y,N] [[menu]yN|
  354.  [yellow]b[cyan] [[choice]         [yellow]o[cyan] [[ifkey]         [yellow]1[cyan] [[onexit]       [yellow]^[cyan] [[Y,n] [[menu]Yn|
  355.  [yellow]c[cyan] [[clear_stacked]  [yellow]p[cyan] [[islocal]       [yellow]2[cyan] [[open]         [yellow]&[cyan] [[black on grey]
  356.  [yellow]d[cyan] [[cls]            [yellow]q[cyan] [[isremote]      [yellow]3[cyan] [[pause]        [yellow]*[cyan] [[black]
  357.  [yellow]e[cyan] [[colour]         [yellow]r[cyan] [[key_poke]      [yellow]4[cyan] [[post]         [yellow]([cyan] [[blue]
  358.  [yellow]f[cyan] [[delete]         [yellow]s[cyan] [[keyoff]        [yellow]5[cyan] [[quit]         [yellow])[cyan] [[cyan]
  359.  [yellow]g[cyan] [[display]        [yellow]t[cyan] [[keyon]         [yellow]6[cyan] [[readln]       [yellow]-[cyan] [[green]
  360.  [yellow]h[cyan] [[dos]            [yellow]u[cyan] [[link]          [yellow]7[cyan] [[repeatseq     [yellow]=[cyan] [[lightcyan]
  361.  [yellow]i[cyan] [[endcolour]      [yellow]v[cyan] [[locate]        [yellow]8[cyan] [[response]     [yellow]\[cyan] [[lightmagenta]
  362.  [yellow]j[cyan] [[enter]          [yellow]w[cyan] [[menu]          [yellow]9[cyan] [[steady]       [yellow]+[cyan] [[lightred]
  363.  [yellow]k[cyan] [[exit]           [yellow]x[cyan] [[menu]abc etc.  [yellow]@[cyan] [[up cleol]     [yellow]"[cyan] [[red on blue]
  364.  [yellow]l[cyan] [[filenew]        [yellow]y[cyan] [[menu_cmd       [yellow]#[cyan] [[write]        [yellow]<[cyan] [[yellow]
  365.  [yellow]m[cyan] [[ifentered]      [yellow]z[cyan] [[moreon]        [yellow]$[cyan] [[xtern_        [yellow]>[cyan] [[white]
  366.  
  367. [white]ENTER[cyan]=quit/save  [white]![cyan]=abort  [white]`[cyan]=input text  [white]~[cyan]=add line  [white]/[cyan]=editor
  368.  
  369. [white]Select: [cyan][menu]abcdefghijklmnopqrstuvwxyz|1234567890/~`!-=\@#$%^&*():+<>"
  370. [choice]|[goto main]
  371. [choice]![ifexist]hotkey#.flg [menu_cmd chg_hotkeys]change
  372. [choice]![ifexist]hotkey#.flg [delete]hotkey#.flg
  373. [choice]![open]nul
  374. [choice]![delete]mecworks.pun  [top]
  375. [choice]~[write][write]
  376. [choice]`[up cleol][goto text]
  377. [choice]a[write][write][[blink]
  378. [choice]b[goto fill]
  379. [choice]c[write][write][[clear_stacked]
  380. [choice]d[write][write][[cls]
  381. [choice]e[write][write][[colour]
  382. [choice]f[goto fill]
  383. [choice]g[goto fill]
  384. [choice]h[goto fill]
  385. [choice]i[write][write][[endcolour]
  386. [choice]j[write][write][[enter]
  387. [choice]k[write][write][[exit]
  388. [choice]l[goto fill]
  389. [choice]m[goto fill]
  390. [choice]n[goto fill]
  391. [choice]o[goto fill]
  392. [choice]p[goto fill]
  393. [choice]q[goto fill]
  394. [choice]r[goto fill]
  395. [choice]s[goto fill]
  396. [choice]t[goto fill]
  397. [choice]u[goto fill]
  398. [choice]v[goto fill]
  399. [choice]w[goto fill]
  400. [choice]x[write][write][[menu]abcdefghijklmnopqrstuvwxyz1234567890`-=\~!@#$%^&*()_+|}{":?><][[[[';/.,
  401. [choice]y[goto fill]
  402. [choice]z[write][write][[moreon]
  403. [choice]0[goto fill]
  404. [choice]1[goto fill]
  405. [choice]2[goto fill]
  406. [choice]3[write][write][[pause]
  407. [choice]4[write][write][[post]
  408. [choice]5[write][write][[quit]
  409. [choice]6[write][write][[readln]
  410. [choice]7[goto fill]
  411. [choice]8[write][write][[response]
  412. [choice]9[write][write][[steady]
  413. [choice]@[write][write][[up cleol]
  414. [choice]#[goto fill]
  415. [choice]$[goto fill]
  416. [choice]%[write][write][[[[y,N] [[menu]Yn|
  417. [choice]^[write][write][[[[Y,n] [[menu]yN|
  418. [choice]&[write][write][[black on gray]
  419. [choice]*[write][write][[black]
  420. [choice]([write][write][[blue]
  421. [choice])[write][write][[cyan]
  422. [choice]-[write][write][[green]
  423. [choice]=[write][write][[lightcyan]
  424. [choice]\[write][write][[lightmagenta]
  425. [choice]+[write][write][[lightred]
  426. [choice]"[write][write][[red on blue]
  427. [choice]<[write][write][[yellow]
  428. [choice]>[write][write][[white]
  429. [choice]/[isremote][down][cyan]Sorry, the editor is for local use only.[pause pause pause cls goto punch2]
  430. [choice]/[goto ed1]
  431. [moreoff][locate 25 1][repeatseq 4][cleol up][5][goto punch2]
  432. [/ed1][ifexist]mecworks.edr [goto yes]
  433. [down][cyan]Please use Configure to select your editor! [pause][pause]
  434. [moreoff][nocolour][goto punch][endcolour]
  435. [locate 25 1][repeatseq 4][cleol up][24][locate 1 1][goto punch2]
  436. [/yes]
  437. [cyan]Write changes and run editor?[white] [[Y,n] [menu]yn|
  438. [choice]n[moreoff up cleol up cleol up cleol][goto punch2]
  439. [cls][locate 11 29][white]Saving to file...[pause][link]mecworks.pun
  440. [delete]mecworks.pun
  441. [locate 11 47][white]Done![pause][cls]
  442. [open]nul
  443. [link]mecworks.edr
  444. [menu]abcdefghijklmnopqrstuvwxyz~!@#$%^&()_`1234567890-{}'?\|
  445. [Xtern_Dos]%C%R %J.mec
  446. [goto punch]
  447. [/text][open]nul
  448. >[readln]
  449. [ifentered] [goto out]
  450. [open]mecworks.pun
  451. [write][write]%J
  452. [goto text]
  453. [/out][link]mecworks.dat [readln]
  454. [open]mecworks.pun
  455. [moreoff][locate 25 1][cleol][repeatseq 4][up cleol][24][goto punch2]
  456. [/main][up cleol up][open]nul
  457. [ifexist]hotkey#.flg [menu_cmd chg_hotkeys]change
  458. [ifexist]hotkey#.flg [delete]hotkey#.flg
  459. [down][cyan]Save changes? [white][[Y,n] [menu]Yn|
  460. [choice]n[delete]mecworks.pun  [top]
  461. [cls][locate 11 29][white]Saving to file...[pause][link]mecworks.pun
  462. [delete]mecworks.pun
  463. [locate 11 47][white]Done![pause][open]nul   [top]
  464. [/fill][up][cleol][open]nul
  465. [choice]0[white][[notkey][readln]
  466. [choice]1[white][[onexit][readln]
  467. [choice]2[white][[open][readln]
  468. [choice]7[white][[repeatseq [readln]
  469. [choice]#[white][[write][readln]
  470. [choice]$[white][[xtern_[readln]
  471. [choice]b[white][[choice][readln]
  472. [choice]f[white][[delete][readln]
  473. [choice]g[white][[display][readln]
  474. [choice]h[white][[dos][readln]
  475. [choice]j[white][[ifexist][readln]
  476. [choice]l[white][[filenew][readln]
  477. [choice]m[white][[ifentered][readln]
  478. [choice]n[white][[ifexist][readln]
  479. [choice]o[white][[ifkey][readln]
  480. [choice]p[white][[islocal][readln]
  481. [choice]q[white][[isremote][readln]
  482. [choice]r[white][[key_poke][readln]
  483. [choice]s[white][[keyoff][readln]
  484. [choice]t[white][[keyon][readln]
  485. [choice]u[white][[link][readln]
  486. [choice]v[white][[locate][readln]
  487. [choice]w[white][[menu][readln]
  488. [choice]y[white][[menu_cmd [readln]
  489. [open]mecworks.pun
  490. [choice]0[write][write][[notkey]%J
  491. [choice]1[write][write][[onexit]%J
  492. [choice]2[write][write][[open]%J
  493. [choice]7[write][write][[repeatseq %J
  494. [choice]#[write][write][[write]%J
  495. [choice]$[write][write][[xtern_%J
  496. [choice]b[write][write][[choice]%J
  497. [choice]f[write][write][[delete]%J
  498. [choice]g[write][write][[display]%J
  499. [choice]h[write][write][[dos]%J
  500. [choice]j[write][write][[ifexist]%J
  501. [choice]l[write][write][[filenew]%J
  502. [choice]m[write][write][[ifentered]%J
  503. [choice]n[write][write][[ifexist]%J
  504. [choice]o[write][write][[ifkey]%J
  505. [choice]p[write][write][[islocal]%J
  506. [choice]q[write][write][[isremote]%J
  507. [choice]r[write][write][[key_poke]%J
  508. [choice]s[write][write][[keyoff]%J
  509. [choice]t[write][write][[keyon]%J
  510. [choice]u[write][write][[link]%J
  511. [choice]v[write][write][[locate]%J
  512. [choice]w[write][write][[menu]%J
  513. [choice]y[write][write][[menu_cmd %J
  514. [open]nul [link]mecworks.dat [readln]
  515. [open]mecworks.pun
  516. [moreoff][locate 25 1][repeatseq 4][cleol up][6][goto punch2]
  517. [/doc][cls][moreoff]
  518.  
  519. [grey]        Edit  [cyan]Runs your text editor on the loaded MEC file.
  520.  
  521. [grey]      Rename  [cyan]Renames the loaded MEC and corresponding BBS files.  Works
  522.               across drives and directories.
  523.  
  524. [grey]  Stamp Date  [cyan]Writes system date to the loaded file. Choice of two styles.
  525.  
  526. [grey] Write Token  [cyan]Selected tokens are written to the loaded file, if saved.
  527.  
  528. [grey]        View  [cyan]Displays the loaded MEC file.
  529.  
  530. [grey]       Mecca  [cyan]Runs MECCA.EXE on the loaded file (creates BBS file).
  531.  
  532. [grey]   Keep Date  [cyan]Runs MECCA, then redates MEC and BBS files to original date.
  533.               [cyan]Avoids [[filenew] display.  Requires SAMEDATE.EXE.
  534.  
  535. [grey]      Oracle  [cyan]Runs ORACLE.EXE on the BBS file. Configurable default switches.
  536.  
  537. [grey]   BBS (Run)  [cyan]Runs BBS file corresponding to the loaded MEC file.
  538.  
  539.  
  540. More [[Y,n]? [menu]yn| [choice]n[top]
  541. [cls]
  542.  
  543. [grey]      Delete  [cyan]Deletes the loaded MEC, and corresponding BBS files.
  544.  
  545. [grey]   List MECs  [cyan]Lists MEC files in any directory with optional file mask.
  546.  
  547. [grey] File (load)  [cyan]Loads the MEC file you specify (.MEC extension not required).
  548.  
  549. [grey]   Configure  [cyan]Configures the path\filename of your text editor.
  550.  
  551. [grey]       Notes  [cyan]Loads editor with a reference file, MECWORKS.REF (not supplied).
  552.               [cyan]Menu choice is optional. If desired, hit "N" to create the file.
  553.  
  554. [grey]        Help  [cyan]Displays help.
  555.  
  556. [grey]        Quit  [cyan]Exits the program.  The same file will be loaded on next run.
  557.  
  558. [grey]       ALT-J  [cyan]Shells to operating system.
  559.  
  560.  
  561.  
  562.  
  563. [white enter cls][top]
  564.