home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / fminibbs / mini_v2a.do < prev    next >
Text File  |  1990-11-06  |  29KB  |  1,098 lines
  1. >TY "              Mini BBS  written using Flash 1.6|"|
  2. >TY "By Ike Eisenschmidt (based on concepts by Ed Steward and Bud Hammerton.|"|
  3. >TY "Version 2.0  -  November 5, 1990|"|
  4. >$J "put your bbs name here"|
  5. >** Next line enter where MINI.CFG file is located replacing ?s Eg: D\BBS\  **|
  6. >OP ????????MINI.CFG|
  7. >END|
  8. >************|
  9. >L: KeepGoing|
  10. >TY "Password for full access: "|
  11. >INP $Z|
  12. >TY $Z|>TY "|"|
  13. >TY "Password for limited access - no destructive commands: "|
  14. >INP $Y|
  15. >TY $Y|>TY "|"|
  16. >TY "Default path: "|
  17. >INP $F|
  18. >TY $F|>TY "|"|
  19. >TY "ROOM2 Directory Path: "|
  20. >INP $T|
  21. >TY $T|>TY "|"|
  22. >TY "MailRoom and Password Directory Path :"|
  23. >INP $S|
  24. >TY $S|>TY|
  25. >TY "Maximum baud rate: "|
  26. >INP $G|
  27. >TY $G|>TY "|"|
  28. >INP $H|
  29. >INP $I|
  30. >$F $F|
  31. >**********|
  32. >L: Back|
  33. >CA CL|
  34. >OP $FMINIBBS.LOG|
  35. >IF OP JMP TopLabel|
  36. >LOG "Log for Mini BBS"|>Log|
  37. >SA CA $FMINIBBS.LOG|
  38. >CA CL|
  39. >**********|
  40. >L: TopLabel|
  41. >EC OFF|
  42. >$W|>$M|>$C|>$Q|>$B|>$O|
  43. >**********|
  44. >DP $F|
  45. >BA $G|
  46. >SE $H|
  47. >PA 1|
  48. >CA OFF|
  49. >LF ON|
  50. >WA $I|
  51. >EC ON|
  52. >PA 1|
  53. >SE "ATA|"|
  54. >PA 1|
  55. >GET $N 15|
  56. >IFI $N "2400" BA 24|
  57. >IFI $N "1200" BA 12|
  58. >IFI $N "300" BA 30|
  59. >LF Off|
  60. >SE "|Set: Echo off, Linefeeds on, Half duplex. 30 secs to config or Return||"|
  61. >GET $C 30|
  62. >SE "◆ |"|
  63. >SE "     WW   WW   WW   EEEEEE  LL    CCCCCC  OOOOOOO  MM      MM  EEEEEE|"|
  64. >SE "     WW  WWWW  WW   EE      LL    CC      OO   OO  MMM    MMM  EE|"|
  65. >SE "      WWW    WWW    EEEE    LL    CC      OO   OO  MM MMMM MM  EEEE|"|
  66. >SE "      WWW    WWW    EE      LL    CC      OO   OO  MM  MM  MM  EE|"|
  67. >SE "      WW      WW    EEEEE   LLLLL CCCCCC  OOOOOOO  MM  MM  MM  EEEEEE|"|
  68. >SE "||             Thank you for calling $J|"|
  69. >SE "                    Mini BBS.   Version 2.0||"|
  70. >SE "          This is a Mini BBS.  This system is available for uploading|"|
  71. >SE "     and downloading of files.  There is also limited E-Mail.  To use|"|
  72. >SE "     E-Mail function you need to be validated by the Sysop.  When you|"|
  73. >SE "     logoff you will be given a chance to choose a password. If you do|"|
  74. >SE "     not have a password you will not be given access to E-Mail.|"|>PA 2|
  75. >EC OFF|
  76. >DU HA|
  77. >**********|
  78. >L: Logon|
  79. >SE "|Please enter your full name: "|
  80. >GET $W 30|
  81. >IFI $Q ONCE JMP NULL|
  82. >MK TOP|
  83. >LOG|
  84. >L: NULL|
  85. >LOG $W|>LOG|
  86. >PA 1|
  87. >SE "|Please enter your password.  If this is your first time here or have|"|
  88. >SE "never registered a password enter " $Y||
  89. >GET $B 30|
  90. >L: Password|
  91. >IFI $B $Y JMP Limited|
  92. >IFI $B $Z JMP Full|
  93. >***********|
  94. >L: PasswordCheck|
  95. >SE " |||||                         ..... Checking....|"|
  96. >OP $SUSER.LST|
  97. >IF ~OP JMP NotAssigned|
  98. >L: PasswordLoop|
  99. >INP $U|
  100. >INP $X|
  101. >IFI $U $W JMP UserPassword|
  102. >IF EOF JMP ReLogPlease|
  103. >JMP PasswordLoop|
  104. >L: UserPassword|
  105. >IFI $X $B JMP Welcome|
  106. >***********|
  107. >L: NoMatch|
  108. >SE "|The Name you entered does not match any logon name.  Either you have entered|"|
  109. >SE "your name correctly or have not been validated by the SYSOP.  Carefully reenter|"|
  110. >SE "your Full name and Password|"|
  111. >IFI $Q ONCE JMP KickOff|
  112. >$Q ONCE|
  113. >JMP Logon|
  114. >***********|
  115. >L: NotAssigned|
  116. >SE "|No passwords assigned, please use password " $Y ||
  117. >JMP Logon|
  118. >************|
  119. >L: ReLogPlease|
  120. >IFI $Q ONCE JMP KickOff|
  121. >SE "|You have have entered an invalid Password.  Please logon again|"|
  122. >$Q ONCE|
  123. >JMP Logon|
  124. >************|
  125. >L: Welcome|
  126. >$X|>$U|
  127. >SE "Welcome " $W ||
  128. >$M "SPECIAL"|
  129. >OP $S$B.ML1|
  130. >IF OP JMP MailWait|
  131. >JMP Room1|
  132. >************|
  133. >L: MailWait|
  134. >SE " ||||||◆              ......You have mail waiting......|"|
  135. >PA 1|
  136. >JMP Room1|
  137. >**********|
  138. >L: KickOff|
  139. >SE "**◆** Invalid password, access denied **◆|"|
  140. >JMP SendThemAway|
  141. >**********|
  142. >L: Full|
  143. >SE " ||||||                        ..... Checking....|"|
  144. >OP $SUSER.LST|
  145. >IF ~OP JMP NotAssigned|
  146. >L: SysopLoop|
  147. >INP $U|
  148. >INP $X|
  149. >IFI $U $W JMP SysopCheck|
  150. >IF EOF JMP ReLogPlease|
  151. >JMP SysopLoop|
  152. >L: SysopCheck|
  153. >IFI $Z $X JMP FullSysop|
  154. >JMP ReLogPlease|
  155. >**********||
  156. >L: FullSysop|
  157. >$X|>$U|
  158. >$M "MAX"|
  159. >SE "|You have full access|"|
  160. >OP $FFEEDBACK.TXT|
  161. >IF OP SE "|                There is FeedBack|"|>PA 2|
  162. >$W SYSOP|
  163. >$B SYSOP|
  164. >OP $SSYSOP.ML1|
  165. >IF OP JMP MailWait|
  166. >JMP Room1|
  167. >*********|
  168. >L: Limited|
  169. >$X|>$U|
  170. >SE " ||||||        Welcome" $W   Enjoy this BBS||>PA 2|
  171. >$M "LIMITED"|
  172. >*************|
  173. >L: Room1|
  174. >SE " |                  Room 1 - SUPPORT -|"|
  175. >JMP Menu|
  176. >L: CommandLoop|
  177. >SE "|COMMAND:"|
  178. >GET $C 45 |
  179. >IF C JMP FindCommand|
  180. >SE "45 seconds till automatic logoff enter valid command|"|
  181. >SE "|COMMAND:"|
  182. >GET $C 45|
  183. >IF C JMP FindCommand|
  184. >JMP SendThemAway|
  185. >***********|
  186. >L: FindCommand|
  187. >IFI $C "?" JMP Menu|
  188. >IFI $C "BYE" JMP LogOff|
  189. >IFI $C "CD" JMP DefPath|
  190. >IFI $C "CLI" JMP PCShell|
  191. >IFI $C "DIR" JMP DiskDir|
  192. >IFI $C "DOWNLOAD" JMP SendingXMODEM|
  193. >IFI $C "DP" JMP DefPath|
  194. >IFI $C "EXIT" JMP LogOff|
  195. >IFI $C "FEEDBACK" JMP FeedBack|
  196. >IFI $C "GAMES" JMP Games|
  197. >IFI $C "JUMP" JMP Room2|
  198. >IFI $C "HELP" JMP HelpMenu|
  199. >IFI $C "KILL" JMP Delete|
  200. >IFI $C "LOGOFF" JMP LogOff|
  201. >IFI $C "MAIL" JMP MailRoom|
  202. >IFI $C "MENU" JMP Menu|
  203. >IFI $C "READ" JMP MailRoom|
  204. >IFI $C "RECEIVE" JMP SendingXMODEM|
  205. >IFI $C "ROOM" JMP Room2|
  206. >IFI $C "UPLOAD" JMP ReceivingXMODEM|
  207. >IFI $C "PC" JMP PCShell|
  208. >IFI $C "SHUT" JMP TerminateMiniBBS|
  209. >IFI $C "VIEW" JMP ViewFeedback|
  210. >SE "Invalid command. Enter MENU or ? for menu|"|
  211. >JMP CommandLoop|
  212. >************|
  213. >L: DefPath|
  214. >IFI $M "SPECIAL" JMP NotValid|
  215. >IFI $M "LIMITED" JMP NotValid|
  216. >SE "** ◆CAUTION ** Room1 contains the path for MINIBBS.LOG, PCCOMMAND.PRG,  |"|
  217. >SE "HELP_MGs.TXT and FILELIST.TXT.  These should be moved to the Default|"|
  218. >SE "Paths new location BEFORE changing default path for Room1 ||"|
  219. >PA 1|
  220. >SE "◆"|
  221. >SE "Which path to change Room1, Room2, Mail or None; 1,2,M,N|"|
  222. >GET $C|
  223. >IF ~C JMP CommandLoop|
  224. >IFI $C N JMP CommandLoop|
  225. >SE "Enter new path:"|
  226. >GET $D 30|
  227. >IF ~D JMP CommandLoop|
  228. >SE "Path will be set to "$D ||
  229. >SE "Permanently use this to change the path for Room"$C ||
  230. >SE "Type any letter or Return for NO / YES to change path :"|
  231. >GET $E|
  232. >IFI $E YES JMP ChangeIt|
  233. >JMP CommandLoop|
  234. >L: ChangeIt|
  235. >IFI $C 1 $F $D|
  236. >IFI $C 2 $T $D|
  237. >IFI $C M $S $D|
  238. >SE $C path changed to $D||
  239. >JMP CommandLoop|
  240. >************|
  241. >L: Delete|
  242. >IFI $M "LIMITED" JMP NotValid|
  243. >IFI $M "SPECIAL" JMP NotValid|
  244. >SE "Enter file in current dirtectory to kill or delete:"|
  245. >GET $D 30|
  246. >IF ~D JMP CommandLoop|
  247. >OP $D|
  248. >IF ~OP JMP FileNotExist|
  249. >KI $D|
  250. >SE $D  Deleted||
  251. >LOG $D  deleted|>LOG|
  252. >PA 1|
  253. >JMP CommandLoop|
  254. >*************|
  255. >L: DiskDir|
  256. >IFI $M "LIMITED" JMP NotValid|
  257. >IFI $M "SPECIAL" JMP NotValid|
  258. >SE "Path of desired directory or return for current directory:"|
  259. >GET $D 30|
  260. >IF ~D DDIR *.* AUX:|
  261. >IF D DDIR $D AUX:|
  262. >JMP CommandLoop|
  263. >*************|
  264. >L: FeedBack|
  265. >SE " |||                  Send Feed Back to Sysop||"|
  266. >SE "When sending feedback, the editor will allow you to type 80 characters|"|
  267. >SE "per line.  There is no word wrap so use the Tic mark  \/  to judge when|"|
  268. >SE "to press return.  To stop editing press return twice.  To make a paragraph|"|
  269. >SE "press the space bar once at the begining of a line and hit return|"|
  270. >SE "||Prepare to enter Edit Mode. Q to Quit and Return to Continue :"|
  271. >GET $C|
  272. >IFI $C Q JMP CommandLoop|
  273. >MK BOT|
  274. >AP BLOCK $FMINIBBS.LOG|
  275. >MK CL|
  276. >CA CL|
  277. >OP $FFEEDBACK.TXT|
  278. >IF OP JMP FeedStart|
  279. >LOG "FEEDBACK"|>LOG|
  280. >SA CA $FFEEDBACK.TXT|
  281. >CA CL|
  282. >L: FeedStart|
  283. >MK TOP|
  284. >LOG|
  285. >LOG "Feedback from "$W|>LOG|
  286. >SE " Edit Mode           Exit by hitting Return twice                             \/|"|
  287. >************|
  288. >L: FeedBackLoop|
  289. >GET $A 90|
  290. >IF ~A JMP EndFeedBack|
  291. >LOG $A|>LOG|
  292. >JMP FeedBackLoop|
  293. >************|
  294. >L: EndFeedBack|
  295. >SE "Save Feedback?  Yes/No :"|
  296. >GET $C 30|
  297. >IF ~C JMP ReStart|
  298. >IFI $C N JMP ReStart|
  299. >LOG|
  300. >MK BOT|
  301. >AP BLOCK $FFEEDBACK.TXT|
  302. >SE "Feedback sent to SYSOP|"|
  303. >CA CL|
  304. >MK TOP|
  305. >LOG|
  306. >JMP CommandLoop|
  307. >************|
  308. >L: ReStart|
  309. >CA CL|
  310. >MK TOP|
  311. >LOG|
  312. >JMP CommandLoop|
  313. >************|
  314. >L: Games|
  315. >SE " ||||Online Games Available|"|
  316. >SE "                      Cows      Enter   1 |"|
  317. >SE "                      Empty     Enter   2 |"|
  318. >SE "                      Empty     Enter   3 |"|
  319. >SE "                      None      Enter   Q |"|
  320. >SE "                                       :"|
  321. >GET $C|
  322. >IFI $C 1 JMP Game1|
  323. >IFI $C 2 JMP Game2|
  324. >IFI $C 3 JMP Game3|
  325. >JMP CommandLoop|
  326. >L: Game1|
  327. >DP D:\BBS\COWS\|
  328. >EX Cows_73E.PRG|
  329. >DP $F|
  330. >JMP CommandLoop|
  331. >L: Game2|
  332. >**** Reassigns default path for game play to game area |
  333. >****DP ??|
  334. >****EX ????.???|
  335. >****DP $F|
  336. >JMP CommandLoop|
  337. >L: Game3|
  338. >**** Reassigns default path for game play to game area |
  339. >****DP ??|
  340. >****EX ????.???|
  341. >****DP $F|
  342. >JMP CommandLoop|
  343. >*************|
  344. >L: LogOff|
  345. >IFI $M "LIMITED" JMP ChoosePassword|
  346. >SE "Thank you for calling" $W ||
  347. >*************|
  348. >L: SendThemAway|
  349. >SE "Prepare for Disconnect◆◆"|
  350. >SE "...OFF!|"|
  351. >HG|
  352. >MK BOT|
  353. >AP BLOCK $FMINIBBS.LOG|
  354. >CA CL|
  355. >PA 1|
  356. >JMP TopLabel|
  357. >*************|
  358. >L: Menu|
  359. >SE "  |"|
  360. >SE "           FLASH MINI BBS Version 2.0||"|
  361. >SE "       EXIT      - exit or logoff this system|"|
  362. >SE "       FEEDBACK  - send feedback to SYSOP|"|
  363. >SE "       GAMES     - Online games|"|
  364. >SE "       HELP      - display help files |"|
  365. >SE "       JUMP      - go to Room 2  - FILES -|"|
  366. >SE "       MENU or ? - display this menu|"|
  367. >IFI $M "LIMITED" JMP CommandLoop|
  368. >SE "       MAIL      + Use Mail functions {PASSWORD ACCESS}|"|
  369. >IFI $M "SPECIAL" JMP CommandLoop|
  370. >SE "       DIR       * display a disk directory|"|
  371. >SE "       DP        * change the default path|"|
  372. >SE "       KILL      * kill or delete a file in the default directory|"|
  373. >SE "       DOWNLOAD  * download of a file from this system|"|
  374. >SE "       PC        * execute COMMAND program|"|
  375. >SE "       SHUT      * shut down entire system|"|
  376. >SE "       VIEW      * view feedback *|"|
  377. >SE "|        Commands with * require full system access|"|
  378. >JMP CommandLoop|
  379. >*************|
  380. >L: NotValid|
  381. >SE "Invalid command. Enter MENU or ? for menu|"|
  382. >JMP CommandLoop|
  383. >**********|
  384. >L: PCShell|
  385. >IFI $M "SPECIAL" JMP NotValid|
  386. >IFI $M "LIMITED" JMP NotValid|
  387. >PA 1|
  388. >SE "Enter password for DOS shell entry:"|
  389. >GET $P 30|
  390. >IF ~P JMP CommandLoop|
  391. >L: PCCheck|
  392. >OP $SUSER.LST|
  393. >L: PCLoop|
  394. >INP $U|
  395. >INP $X|
  396. >IFI $U PCSHELL JMP PCPassword|
  397. >IF EOF JMP CommandLoop|
  398. >JMP PCLoop|
  399. >L: PCPassword|
  400. >IFI $X $P JMP ExecutePC|
  401. >SE "|**◆** Invalid password, returning to  Mini BBS **◆|"|
  402. >JMP CommandLoop|
  403. >L: ExecutePC|
  404. >EX $FPCOMMAND.PRG|
  405. >JMP CommandLoop|
  406. >JMP ReceivingXMODEM|
  407. >**************|
  408. >L: SendingXMODEM|
  409. >IFI $M "SPECIAL" JMP NotValid|
  410. >IFI $M "LIMITED" JMP NotValid|
  411. >SE "Name of file to download:"|
  412. >GET $D 30|
  413. >IF ~D JMP CommandLoop|
  414. >OP $D|
  415. >IF ~OP JMP FileNotExist|
  416. >SE "Get ready to download "$D||
  417. >SE "When you see GO start your download|"|
  418. >PA 2|
  419. >SE "....GO|"|
  420. >UL XM $D|
  421. >PA 2|
  422. >IF UL JMP SentIt|
  423. >L: Failed|
  424. >SE "◆◆         XModem Failed     |"|
  425. >PA 1|
  426. >JMP CommandLoop|
  427. >L: SentIt|
  428. >SE $D  sent||
  429. >LOG $D  sent XMODEM to $W|
  430. >LOG|
  431. >JMP CommandLoop|
  432. >*************|
  433. >L: FileNotExist|
  434. >SE "That File does not exist, please check the file name|"|
  435. >JMP CommandLoop|
  436. >**************|
  437. >L: TerminateMiniBBS|
  438. >IFI $M "SPECIAL" JMP NotValid|
  439. >IFI $M "LIMITED" JMP NotValid|
  440. >SE "Shut down password: "|
  441. >GET $P 15|
  442. >L: TerminateCheck|
  443. >OP $SUSER.LST|
  444. >L: TerLoop|
  445. >INP $U|
  446. >INP $X|
  447. >IFI $U SHUTDOWN JMP TerminatePassword|
  448. >IF EOF JMP CommandLoop|
  449. >JMP TerLoop|
  450. >L: TerminatePassword|
  451. >IFI $P $X JMP ShutDown|
  452. >SE "|**◆** Invalid password, returning to  Mini BBS **◆|"|
  453. >JMP CommandLoop|
  454. >L: ShutDown|
  455. >SE "|..........This command terminates execution of  Mini BBS..........|"|
  456. >SE "After execution of this command, no further input can be processed,|"|
  457. >SE "the modem will hangup, the capture buffer will be saved, and FLASH.PRG|"|
  458. >SE "will be halted||"|
  459. >SE "You have 15 seconds to confirm this command.  TERMINATE to shut down|"|
  460. >SE "any other key continues                     :"|
  461. >EC OFF|
  462. >GET $V 15|
  463. >IFI $V TERMINATE JMP ThatsIt|
  464. >JMP CommandLoop|
  465. >L: ThatsIt|
  466. >SE "Prepare to terminate◆◆|"|
  467. >SE "off"|
  468. >HG|
  469. >MK BOT|
  470. >AP BL $FMINIBBS.LOG|
  471. >XD|
  472. >**************|
  473. >L: ViewFeedback|
  474. >OP $FFEEDBACK.TXT|
  475. >IF OP JMP FeedViewLoop|
  476. >SE "No Feedback to read|"|>PA 2|
  477. >JMP CommandLoop|
  478. >L: FeedViewLoop|
  479. >INP $A|
  480. >IF EOF JMP CommandLoop|
  481. >SE $A||
  482. >JMP FeedViewLoop|
  483. >*********** ROOM 2 **************|
  484. >L: Room2|
  485. >DP $T|
  486. >JMP RoomHelp|
  487. >L: RoomCommand|
  488. >SE "|COMMAND: "|
  489. >GET $C 45|
  490. >IF C JMP FindRC|
  491. >SE "|45 seconds to auto-logoff, enter valid command|"|
  492. >GET $C 45|
  493. >IF C JMP FindRC|
  494. >JMP SendThemAway|
  495. >**********|
  496. >L: FindRC|
  497. >IFI $C "?" JMP RoomHelp|
  498. >IFI $C "BYE" JMP LogOff|
  499. >IFI $C "DIR" JMP RoomDir|
  500. >IFI $C "DOWNLOAD" JMP RoomX|
  501. >IFI $C "DL" JMP RoomX|
  502. >IFI $C "EXIT" JMP ExitRoom|
  503. >IFI $C "FILES" JMP RoomDir|
  504. >IFI $C "HELP" JMP RoomHelp|
  505. >IFI $C "LIST" JMP List|
  506. >IFI $C "LOGOFF" JMP LogOff|
  507. >IFI $C "RETURN" JMP Returning|
  508. >IFI $C "UPLOAD" JMP Uload|
  509. >IFI $C "UL" JMP Uload|
  510. >IFI $C "JUMP" JMP Returning|
  511. >SE "Invalid command. Enter MENU  or ? for menu|"|
  512. >PA 1|
  513. >JMP RoomCommand|
  514. >**********|
  515. >L: RoomHelp|
  516. >SE " ||||                  Room 2    FILES||"|
  517. >SE "      BYE        - logoff the system|"|
  518. >SE "      DOWNLOAD   - download a file fromthis board|"|
  519. >SE "      EXIT       - return to Room 1|"|
  520. >SE "      FILES      - gives a list of files, wildcards OK|"|
  521. >SE "      MENU or ?  - this menu|"|
  522. >SE "      LIST       - gives an expanded list of files and their descriptions|"|
  523. >SE "      LOGOFF     - logoff the system|"|
  524. >SE "      JUMP       - return to Room 1|"|
  525. >SE "      UPLOAD     - Upload a file to this board|"|
  526. >$E|>$D|
  527. >JMP RoomCommand|
  528. >***********|
  529. >L: RoomDir|
  530. >SE "| Directory of all files or use wildcards to find particular files|"|
  531. >SE "Return for all files, or enter Filename :"|
  532. >GET $C 45|
  533. >IF ~C $C *.*|
  534. >DDIR $T$C AUX:|
  535. >JMP RoomCommand|
  536. >***********|
  537. >L: Uload|
  538. >SE "Uploads are available by either XModem or ZModem (no batching).|"|
  539. >SE "Which protocol will you use, X or Z:"|
  540. >GET $E 30|
  541. >IFI $E Z JMP Zmodem|
  542. >IF ~E JMP RoomCommand|
  543. >SE "If you abort the upload please be patient for Mini BBS to abort the|"|
  544. >SE "upload.  It may take up to 2 minutes, longer if you hit any keys.|"|
  545. >SE "Name of file to upload:"|
  546. >GET $D 120|
  547. >IF ~D JMP RoomCommad|
  548. >OP $D|
  549. >IF OP JMP ExistingFile|
  550. >SE "Prepare to upload "$D. When you see GO start your UL||
  551. >PA 1|
  552. >SE "GO...|"|
  553. >PA 2|
  554. >DL XM $D|
  555. >SE "◆◆"|
  556. >IF ~DL JMP NotReceived|
  557. >SE $D  received||
  558. >PA 1|
  559. >SE "Please enter a 1 line description of the upload file.|"|
  560. >GET $C|
  561. >LOG|>LOG "Recieved XMODEM file: " $D From:  $W|>LOG|
  562. >LOG Desc: $C|>LOG|>LOG|
  563. >SE "Thank you for the Upload|"|
  564. >JMP RoomCommand|
  565. >*************|
  566. >L: ExistingFile|
  567. >SE "A file with that name exists, Please rename your upload.  If you are|"|
  568. >SE "sending the file Zmodem, please rename your file.|"|
  569. >JMP Uload|
  570. >*************|
  571. >L: NotReceived|
  572. >SE $D  was not received.  User Aborted?||
  573. >JMP RoomCommand|
  574. >*************|
  575. >L: Zmodem|
  576. >SE "|Name of file you are uploading:"|
  577. >GET $D 20|
  578. >IF ~D JMP RoomCommand|
  579. >OP $D|
  580. >IF OP JMP ExistingFile|
  581. >SE "|    When you see GO start your upload"|
  582. >PA 2|
  583. >SE "....GO|"|
  584. >EX XYZ.TTP|
  585. >OP $D|
  586. >IF ~OP JMP NotReceived|
  587. >SE $D  Received||
  588. >SE "Please enter a 1 line description of the upload file.|"|
  589. >GET $C|
  590. >LOG|>LOG $D Sent by $W|>LOG|
  591. >LOG Desc: $C|>LOG|>LOG|
  592. >SE "Thank you for the Upload|"|
  593. >JMP RoomCommand|
  594. >************|
  595. >L: List|
  596. >SE " This will send a list of all files available for downloading from|"|
  597. >SE "this system along with a brief description of each file.  To start|"|
  598. >SE "10 File names and brief explanations will be listed at a time.  ||"|
  599. >SE "To start the list hit L to list, to abort press Return  :"|
  600. >GET $E 20|
  601. >IFI $E "L" JMP Listing|
  602. >JMP Room2|
  603. >L: Listing|
  604. >SE "  |"|
  605. >OP $FFILELIST.TXT|
  606. >L: FileListLoop|
  607. >INP $A|>SE $A||
  608. >INP $A|>SE $A||
  609. >IF EOF JMP EndOfList|
  610. >INP $A|>SE $A||
  611. >INP $A|>SE $A||
  612. >IF EOF JMP EndOfList|
  613. >INP $A|>SE $A||
  614. >INP $A|>SE $A||
  615. >IF EOF JMP EndOfList|
  616. >INP $A|>SE $A||
  617. >INP $A|>SE $A||
  618. >IF EOF JMP EndOfList|
  619. >INP $A|>SE $A||
  620. >INP $A|>SE $A||
  621. >IF EOF JMP EndOfList|
  622. >INP $A|>SE $A||
  623. >INP $A|>SE $A||
  624. >IF EOF JMP EndOfList|
  625. >INP $A|>SE $A||
  626. >INP $A|>SE $A||
  627. >IF EOF JMP EndOfList|
  628. >INP $A|>SE $A||
  629. >INP $A|>SE $A||
  630. >IF EOF JMP EndOfList|
  631. >INP $A|>SE $A||
  632. >INP $A|>SE $A||
  633. >IF EOF JMP EndOfList|
  634. >INP $A|>SE $A||
  635. >INP $A|>SE $A||
  636. >IF EOF JMP EndOfList|
  637. >SE "Return to Continue, Q to Quit: "|
  638. >GET $C|
  639. >IFI $C "Q" JMP Room2|
  640. >JMP FileListLoop|
  641. >L: EndOfList|
  642. >SE "       That is the end of the list.   Return to Continue: "|
  643. >GET $C|
  644. >JMP RoomCommand|
  645. >***********|
  646. >L: RoomX|
  647. >SE "Downloads are available by either XModem or ZModem (no batching).|"|
  648. >SE "Which protocol will you use, X or Z:"|
  649. >GET $E 30|
  650. >IFI $E Z JMP ZMODEM|
  651. >IF ~E JMP RoomCommand|
  652. >PA 2|
  653. >SE "|Which file to Download:"|
  654. >GET $D 20|
  655. >IF ~D JMP RoomCommand|
  656. >OP $D|
  657. >IF ~OP JMP 2NoFile|
  658. >SE "|      Prepare to Download " $D ||
  659. >SE "|    When you see GO start your download"|
  660. >PA |
  661. >SE "....GO|"|
  662. >PA 2|
  663. >UL XM $T$D|
  664. >IF UL JMP Complete|
  665. >SE "◆|◆ Download Failed|"|
  666. >JMP RoomCommand|
  667. >*************|
  668. >L: 2NoFile|
  669. >SE "That File does not exist, please check the file name|"|
  670. >JMP RoomCommand|
  671. >*************|
  672. >L: ZMODEM|
  673. >SE "|Which file to Download:"|
  674. >GET $D 20|
  675. >IF ~D JMP RoomCommand|
  676. >OP $D|
  677. >IF ~OP JMP 2NoFile|
  678. >PA 2|
  679. >SE "|      Prepare to Download " $D ||
  680. >SE "|    When you see GO start your download"|
  681. >PA 2|
  682. >SE "....GO|"|
  683. >EX SZ.PRG -B $T$D|
  684. >**********|
  685. >L: Complete|
  686. >SE $D  sent||
  687. >LOG "|" $D " sent to " $W "|"|
  688. >PA 1|
  689. >JMP RoomCommand|
  690. >**********|
  691. >L: ExitRoom|
  692. >SE "Do you wish to return to Room 1 or Logoff system?|"|
  693. >SE "Use R to Return and L to Logoff:"|
  694. >GET $D 20|
  695. >IFI $D R JMP Returning|
  696. >IFI $D L JMP LogOff|
  697. >JMP RoomCommand|
  698. >**********|
  699. >L: Returning|
  700. >DP $F|
  701. >SE "        Returning to Room 1||"|
  702. >JMP Room1|
  703. >**********|
  704. >***************|
  705. >L: MailRoom|
  706. >IFI $M "LIMITED" JMP NotValid|
  707. >MK BOT|
  708. >AP BLOCK $FMINIBBS.LOG|
  709. >CA CL|
  710. >SE "              Welcome to Mini BBS Mail||"|
  711. >SE "Please limit all mail to 20 lines (one screen full) for ease of|"|
  712. >SE "reading.  Also, there are only a limited number of MailBoxes online.|"|
  713. >SE "|Each MailBox can only hold 6 letters.  If you try to address mail|"|
  714. >SE "to someone who has 6 letters in their MailBox, you will be notified|"|
  715. >SE "that their MailBox is full and you will not be allowed to send mail|"|
  716. >SE "to that person.  Mail may be addressed to SYSOP to send SYSOP mail.|"|
  717. >SE "|After reading your mail you will asked if you will to read it again.|"|
  718. >SE "If you choose No all mail in your box will be deleted.  Yes will read|"|
  719. >SE "your mail once more and then all mail in your box will be deleted.|"|
  720. >L: Mail|
  721. >SE "|Would you like to:   Send mail enter       S|"|
  722. >SE "                     Read mail enter       R|"|
  723. >SE "                     Find a Mailbox enter  F|"|
  724. >SE "                     Quit Mail   Return or Q  :"|
  725. >GET $C 60|
  726. >IFI $C R JMP ReadMail|
  727. >IFI $C F JMP FindBox|
  728. >IFI $C S JMP EndList|
  729. >JMP ExitMail|
  730. >JMP Room1|
  731. >************|
  732. >L: EndList|
  733. >SE "Enter the full name of the person you want to send mail.  First name first and|"|
  734. >SE "last name last.  EXAMPLE: John Smith is entered as JOHN SMITH |"|
  735. >SE "Name: "|
  736. >GET $V 45|
  737. >OP $SUSER.LST|
  738. >IF ~OP JMP Strike|
  739. >L: BoxCheckLoop|
  740. >INP $U|
  741. >INP $X|
  742. >IFI $U $V JMP CheckBox|
  743. >IF EOF JMP Strike|
  744. >JMP BoxCheckLoop|
  745. >L: CheckBox|
  746. >OP $S$X.ML6|
  747. >IF OP JMP BoxFull|
  748. >SE " Mail is addressed to " $U "  When entering text please|"|
  749. >SE "remember to limit the letter to 20 lines for easy reading.||"|
  750. >SE "When you are finished entering your text to exit the enter mode|"|
  751. >SE "hit Return on an empty line for command mode.  Use S to save, X to|"|
  752. >SE "abort the letter and L to list the letter.||"|
  753. >SE "There is no word wrap so lines longer than 80 characters will|"|
  754. >SE "be truncated (cut off).  Use the Tic mark \/ to judge when to return.||"|
  755. >SE "To make a paragraph enter a single space and hit return||"|
  756. >SE "a paragraph enter a single space and hit return.||"|
  757. >SE "Each line will time out in 90 seconds so don't go too slow.|"|
  758. >SE "Hit return to enter edit mode."|
  759. >GET $C 60|
  760. >SE " EDIT MODE              _Return twice to exit edit mode_                      \/|"|
  761. >CA CL|
  762. >KILL $STEMPMAIL.MA|
  763. >LOG "Letter to "$V "from "$W|>LOG|
  764. >**************|
  765. >L: EditMode|
  766. >GET $A 90|
  767. >IF ~A JMP SaveTemp|
  768. >LOG $A|>LOG|
  769. >JMP EditMode|
  770. >************|
  771. >L: SaveTemp|
  772. >SA CA $STEMPMAIL.MA|
  773. >***********|
  774. >L: MailmansChoice|
  775. >SE "|S save, L list, or X abort: "|
  776. >GET $C 30|
  777. >IFI $C S JMP SaveLetter|
  778. >IFI $C L JMP ListLetter|
  779. >IFI $C X JMP KillLetter|
  780. >IFI $O NOSEND JMP Killletter|
  781. >$O NOSEND|
  782. >SE "Please make sure you enter S, L or X or your letter will be deleted.|"|
  783. >JMP MailmansChoice|
  784. >***********|
  785. >L: SaveLetter|
  786. >OP $S$X.ML1|
  787. >IF ~OP JMP SaveML1|
  788. >OP $S$X.ML2|
  789. >IF ~OP JMP SaveML2|
  790. >OP $S$X.ML3|
  791. >IF ~OP JMP SaveML3|
  792. >OP $S$X.ML4|
  793. >IF ~OP JMP SaveML4|
  794. >OP $S$X.ML5|
  795. >IF ~OP JMP SaveML5|
  796. >OP $S$X.ML6|
  797. >IF ~OP JMP SaveML6|
  798. >***********|
  799. >***********|
  800. >L: SaveML1|
  801. >SA CA $S$X.ML1|
  802. >SE "Mail sent to" $V||
  803. >JMP Mail|
  804. >L: SaveML2|
  805. >SA CA $S$X.ML2|
  806. >SE "Mail sent to" $V||
  807. >JMP Mail|
  808. >L: SaveML3|
  809. >SA CA $S$X.ML3|
  810. >SE "Mail sent to" $V||
  811. >JMP Mail|
  812. >L: SaveML4|
  813. >SA CA $S$X.ML4|
  814. >SE "Mail sent to" $V||
  815. >JMP Mail|
  816. >L: SaveML5|
  817. >SA CA $S$X.ML5|
  818. >SE "Mail sent to" $V||
  819. >L: SaveML6|
  820. >SA CA $S$X.ML6|
  821. >SE "Mail sent to" $V||
  822. >JMP Mail|
  823. >***********|
  824. >L: ListLetter|
  825. >OP $STEMPMAIL.MA|
  826. >SE "||"|
  827. >L: ListLoop|
  828. >INP $A|
  829. >IF EOF JMP MailmansChoice|
  830. >SE $A||
  831. >JMP ListLoop|
  832. >**********|
  833. >L: KillLetter|
  834. >KILL $STEMPMAIL.MA|
  835. >JMP Mail|
  836. >**********|
  837. >L: Strike|
  838. >SE " |||||Sorry, for some reason the Mailperson is on strike and can't deliver|"|
  839. >SE "the Mail or you have addressed the mail impropperly.  Please check to|"|
  840. >SE "to see if the letter is improperly addresed and try again.  If it still|"|
  841. >SE "won't get sent notify the SYSOP and we will dock the Mailpersons pay.|"|
  842. >SE "||                    Return to Continue "|
  843. >GET $C|
  844. >JMP Mail|
  845. >*********|
  846. >L: BoxFull|
  847. >SE: " |||||Sorry that MailBox is full and can't hold any more letters.|"|
  848. >PA 3|
  849. >JMP Mail|
  850. >**********|
  851. >L: ReadMail|
  852. >SE "Hello, "$W ||
  853. >OP $S$B.ML1|
  854. >IF ~OP JMP NoMail|
  855. >SE "Stand by to read your mail. "|
  856. >PA 1|
  857. >JMP Letter1|
  858. >**********|
  859. >L: Letter1|
  860. >OP $S$B.ML1|
  861. >SE " "|
  862. >L: Letter1Loop|
  863. >INP $A|
  864. >IF EOF JMP Letter2|
  865. >SE $A||
  866. >JMP Letter1Loop|
  867. >*************|
  868. >L: Letter2|
  869. >OP $S$B.ML2|
  870. >IF ~OP JMP LastLetter|
  871. >SE "|2 minutes to read letter.  To continue immediatly hit Return:"|
  872. >GET $C 120|
  873. >SE "||"|
  874. >L: Letter2Loop|
  875. >INP $A|
  876. >IF EOF JMP Letter3|
  877. >SE $A||
  878. >JMP Letter2Loop|
  879. >*************|
  880. >L: Letter3|
  881. >OP $S$B.ML3|
  882. >IF ~OP JMP LastLetter|
  883. >SE "|2 minutes to read letter.  To continue immediatly hit Return:"|
  884. >GET $C 120|
  885. >SE "||"|
  886. >L: Letter3Loop|
  887. >INP $A|
  888. >IF EOF JMP Letter4|
  889. >SE $A||
  890. >JMP Letter3Loop|
  891. >*************|
  892. >L: Letter4|
  893. >OP $S$B.ML4|
  894. >IF ~OP JMP LastLetter|
  895. >SE "|2 minutes to read letter.  To continue immediatly hit Return:"|
  896. >GET $C 120|
  897. >SE "||"|
  898. >L: Letter4Loop|
  899. >INP $A|
  900. >IF EOF JMP Letter5|
  901. >SE $A||
  902. >JMP Letter4Loop|
  903. >*************|
  904. >L: Letter5|
  905. >OP $S$B.ML5|
  906. >IF ~OP JMP LastLetter|
  907. >SE "|2 minutes to read letter.  To continue immediatly hit Return:"|
  908. >GET $C|
  909. >SE "||"|
  910. >L: Letter5Loop|
  911. >INP $A|
  912. >IF EOF JMP Letter6|
  913. >SE $A||
  914. >JMP Letter5Loop|
  915. >*************|
  916. >L: Letter6|
  917. >OP $S$B.ML6|
  918. >IF ~OP JMP LastLetter|
  919. >SE "|2 minutes to read letter.  To continue immediatly hit Return:"|
  920. >SE "||"|
  921. >GET $C|
  922. >L: Letter6Loop|
  923. >INP $A|
  924. >IF EOF JMP LastLetter|
  925. >SE $A||
  926. >JMP Letter6Loop|
  927. >**************|
  928. >L: NoMail|
  929. >SE " |||||         You have no mail in you MailBox.|"|
  930. >PA 3|
  931. >JMP Mail|
  932. >**************|
  933. >L: LastLetter|
  934. >SE "|2 minutes to read letter, this is the last letter in your MailBox"|
  935. >GET $C 120|
  936. >IFI $O READONCE JMP DeleteAllMail|
  937. >$O READONCE|
  938. >SE "Would you like to read you mail one more time.  If you choose not|"|
  939. >SE "to read your mail again now, you will not have a chance again as|"|
  940. >SE "all your mail will be emptied from your MailBox|"|
  941. >SE "|Read your mail once more? Yes/No:"|
  942. >GET $C 30|
  943. >IFI $C Y JMP Letter1|
  944. >*************|
  945. >L: AboutToDelete|
  946. >SE "Your MailBox is about to be emptied OK?  Yes/No.|"|
  947. >GET $C|
  948. >IFI $C N JMP Letter1|
  949. >L: DeleteAllMail|
  950. >KILL $S$B.ML1|
  951. >OP $S$B.ML2|
  952. >IF ~OP JMP Mail|
  953. >KILL $S$B.ML2|
  954. >OP $S$B.ML3|
  955. >IF ~OP JMP Mail|
  956. >KILL $S$B.ML3|
  957. >OP $S$B.ML4|
  958. >IF ~OP JMP Mail|
  959. >KILL $S$B.ML4|
  960. >OP $S$B.ML5|
  961. >IF ~OP JMP Mail|
  962. >KILL $S$B.ML5|
  963. >OP $S$B.ML6|
  964. >IF ~OP JMP Mail|
  965. >KILL $S$B.ML6|
  966. >JMP Mail|
  967. >*************|
  968. >L: FindBox|
  969. >SE "MailBoxes are assigned to these people:|"|
  970. >OP $SMAIL.LST|
  971. >L: FindLoop|
  972. >INP $D|
  973. >IF EOP JMP HoldScreen|
  974. >SE $D||
  975. >JMP FindLoop|
  976. >L: HoldScreen|
  977. >SE "|45 seconds to review list or Return to continue :"|
  978. >GET $C 45|
  979. >JMP Mail|
  980. >*************|
  981. >L: ExitMail|
  982. >CA CL|
  983. >MK TOP|
  984. >LOG|
  985. >JMP Room1|
  986. >*************|
  987. >L: ChoosePassword|
  988. >SE "  Would you like to choose a password. Once you have chosen a password|"|
  989. >SE "and been validated by the Sysop you will have access to the Mail|"|
  990. >SE "functions.  Choose a Password? Yes/No: "|
  991. >GET $C 30|
  992. >IFI $C Y JMP MakeChoice|
  993. >SE "Thank you for calling " $J ||
  994. >JMP SendThemAway|
  995. >************|
  996. >L: MakeChoice|
  997. >SE " |||                   Password Selector!|"|
  998. >SE "The password you choose can only be 8 letters or numbers long.  The|"|
  999. >SE "only special character you can use is the _ (shift -).  So a password|"|
  1000. >SE "could be "JUMP_IN" or "SPARKS" or "123456_A" and so on.  What would|"|
  1001. >SE "you like as a Password :"|
  1002. >**IF ~CA JMP SendThemAway|
  1003. >GET $A 60|
  1004. >SE "You have choosen "$A .  Is this OK?  Yes/No :|
  1005. >GET $C 30|
  1006. >IFI $C N JMP MakeChoice|
  1007. >LOG|>LOG $W wants password  $A|>LOG|>LOG|
  1008. >SE "Please write down your password or turn on your capture buffer|"|
  1009. >PA 10|
  1010. >SE "Your password is "$A ||
  1011. >SE "Would you like to leave your phone number in case the Sysop has|"|
  1012. >SE "any trouble with your password?  Yes/No :"|
  1013. >GET $C 30|
  1014. >IFI $C Y JMP GetPhone|
  1015. >SE "Thanks for calling.  Please wait a few day for the Sysop to add your password.|"|
  1016. >JMP SendThemAway|
  1017. >***********|
  1018. >L: GetPhone|
  1019. >SE "Please enter you phone number including your area code. Format|"|
  1020. >SE "xxx-xxx-xxxx.   #"|
  1021. >GET $A 30|
  1022. >SE "You have entered " $A ||
  1023. >SE "Is this correct?  Yes/No :"|
  1024. >GET $C 30|
  1025. >IFI $C N JMP GetPhone|
  1026. >*************|
  1027. >L: EnteringPhone|
  1028. >LOG $W  phone number is  $A|>LOG|
  1029. >SE "Thank you for calling " $J BBS!||
  1030. >PA 1|
  1031. >JMP SendThemAway|
  1032. >*************|
  1033. >L: HelpMenu|
  1034. >SE " ||                   Help Menu |"|
  1035. >SE "             1       General Help and Guidelines|"|
  1036. >SE "             2       Rooms|"|
  1037. >SE "             3       Passwords and trouble with passwords|"|
  1038. >SE "             4       Mail|"|
  1039. >SE "             5       Not active|"|
  1040. >SE "             Q       To quit help|||"|
  1041. >SE " Choose the number of the Help File you wish to read: "|
  1042. >GET $C 60|
  1043. >IF ~C JMP CommandLoop|
  1044. >***********|
  1045. >L: HelpChoice|
  1046. >IFI $C 1 JMP Message1|
  1047. >IFI $C 2 JMP Message2|
  1048. >IFI $C 3 JMP Message3|
  1049. >IFI $C 4 JMP Message4|
  1050. >IFI $C 5 JMP Message5|
  1051. >IFI $C Q JMP Room1|
  1052. >PA 1|
  1053. >SE "Choice no good, please choose a number 1-5|"|
  1054. >PA 2|
  1055. >JMP HelpMenu|
  1056. >**********|
  1057. >L: Message1|
  1058. >OP $FHELP_MG1.HLP|
  1059. >IF ~OP JMP NotFunctional|
  1060. >JMP HelpLoop|
  1061. >**********|
  1062. >L: Message2|
  1063. >OP $FHELP_MG2.HLP|
  1064. >IF ~OP JMP NotFunctional|
  1065. >JMP HelpLoop|
  1066. >*********|
  1067. >L: Message3|
  1068. >OP $FHELP_MG3.HLP|
  1069. >IF ~OP JMP NotFunctional|
  1070. >JMP HelpLoop|
  1071. >*********|
  1072. >L: Message4|
  1073. >OP $FHELP_MG4.HLP|
  1074. >IF ~OP JMP NotFunctional|
  1075. >JMP HelpLoop|
  1076. >*********|
  1077. >L: Message5|
  1078. >OP $FHELP_MG5.HLP|
  1079. >IF ~OP JMP NotFunctional|
  1080. >JMP HelpLoop|
  1081. >**********|
  1082. >L: HelpLoop|
  1083. >INP $A|
  1084. >IF EOF JMP EndHelp|
  1085. >SE $A||
  1086. >JMP HelpLoop|
  1087. >**********|
  1088. >L: EndHelp|
  1089. >SE "|.........2 minutes to read Help Message or Return to continue: "|
  1090. >GET $C|
  1091. >JMP HelpMenu|
  1092. >***************|
  1093. >L: END|
  1094. >B2|
  1095. >***************|
  1096. >***************|
  1097. >END|
  1098.