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