home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: DFÜ und Kommunikation / SOS-DFUE.ISO / programm / windows / terminal / atalk105 / minibbs.atk < prev    next >
Encoding:
Text File  |  1993-12-05  |  7.1 KB  |  240 lines
  1.           #####################################
  2.           #                                   #
  3.           #     MiniBBS 2.0, by J. Lampert    #
  4.           #                     & M. Papa     #
  5.           #                                   #
  6.           #  An A-Talk mini-board script  #
  7.           #   for unattended file transfers   #
  8.           #                                   #
  9.           ######### DECEMBER 18, 1988 #########
  10. ECHO "*****  IMPORTANT:  Make sure TEXT TRANSFER RECEIVE OPTIONS is set for 'CR->LF'^M^J"
  11. ECHO "*****  IMPORTANT:  Make sure TEXT TRANSFER SEND OPTIONS is set for 'CR/LF'^M^J"
  12. ECHO "*****  IMPORTANT:  Make sure CHAR and LINE DELAY are set to 0^M^J"
  13. ECHO "*****  IMPORTANT:  Make sure HANDSHAKE is set for 'X-on/X-off'^M^J"
  14. #Modify these as needed for your modem's auto-answer cmd & confirmation signal.
  15. REPLY "AT S0=1^M"
  16. WAIT "OK^M"
  17. ECHO "Modem set for auto-answer, 1 ring.^M^J"
  18.  
  19. SLEEP:
  20.   WAIT "^M"
  21.   REPLY "^[[2J^[[H"
  22.   ECHO "USER SIGNING ON!^M^J"
  23.   REPLY "*A-Talk for Windows MiniBBS 2.0 READY.  Sign on.^M^J"
  24.   REPLY "User ID: "
  25.   EDITLINE
  26. # Modify the next line with the <USERID> of your choice
  27.   IF "<USERID>" GOTO IDOK
  28.   REPLY "BAD UserID^M"
  29.   HANGUP
  30.   GOTO SLEEP
  31. IDOK:
  32.   ECHO "^J"
  33. #This can be modified to accept whatever sign-on code you may want to use,
  34. #or to allow for multiple users (with their own accounts and passwords)
  35. #or to eliminate the sign-on code entirely and simply ask for a password.
  36.   REPLY "PASSWORD: "
  37.   EDITLINE
  38. # Modify the next line with the <PASSWORD> of your choice
  39.   IF "<PASSWORD>" GOTO PASSWDOK
  40. #This should be modified to wait for whatever password you may wish to use.
  41.   REPLY "BAD Password^M"
  42.   HANGUP
  43.   GOTO SLEEP
  44. PASSWDOK:
  45.   REPLY "^J*Welcome to A-Talk III MiniBBS.^M^J"
  46.   DELAY 2
  47.  
  48. # Main Menu
  49. MAINMENU:
  50.   REPLY "^[[2J^[[H"
  51.   REPLY "^M^J^J^J"
  52.   REPLY "MAIN MENU: Type '?' by itself for help^M^J^J"
  53.   REPLY "F)ile section G)oodbye (logoff) S)hutdown ^M^J"
  54.   REPLY "B)ulletin     C)hange setup^M^J"
  55.   REPLY "Select: "
  56.   GETLINE 1
  57.   IF "F" GOTO FILEMENU
  58.   IF "G" GOTO SIGNOFF
  59.   IF "B" GOTO BULLETIN
  60.   IF "C" GOTO CHANGE
  61.   IF "S" GOTO SHUTDOWN
  62.   IF "?" GOTO GIVEHELP
  63.   GOTO MAINMENU
  64.  
  65. # Help menu
  66. GIVEHELP:
  67.   REPLY "^M^J"
  68.   REPLY "HELP:^M^J^J"
  69.   REPLY "Type F to switch to the file section^M^J"
  70.   REPLY "Type G to logoff and leave the MiniBBS up^M^J"
  71.   REPLY "Type S to logoff and shut down the MiniBBS^M^J"
  72.   REPLY "Type ? to get this message ^M^J"
  73.   REPLY "Type B to get information about MiniBBS^M^J"
  74.   REPLY " Type any key to return to the Main menu: "
  75.   GETLINE 1
  76.   GOTO MAINMENU
  77.  
  78. # Setup menu
  79. CHANGE:
  80.   REPLY "^M^J"
  81.   REPLY "^J^J^J"
  82.   REPLY "CHANGE SETUP Menu.^M^J^J"
  83.   REPLY "1) F8N1^M^J"
  84.   REPLY "2) F7E1^M^J"
  85.   REPLY "3) F7O1^M^J"
  86.   REPLY "Select: "
  87.   GETLINE 1
  88.   IF "1" SET F8N1
  89.   IF "2" SET F7E1
  90.   IF "3" SET F7O1
  91.   GOTO MAINMENU
  92.  
  93. # File Menu
  94. FILEMENU:
  95.   REPLY "^[[2J^[[H"
  96.   REPLY "^J^J^J"
  97.   REPLY "The FILES Section.^M^J^J"
  98.   REPLY "A)rea Change F)ile Titles T)ype      P)rotocol^M^J"
  99.   REPLY "U)pload      D)ownload    S)how      M)ain menu^M^J"
  100.   REPLY "Select: "
  101.   GETLINE 1
  102.   IF "U" GOTO RCV
  103.   IF "D" GOTO SND
  104.   IF "P" GOTO SELECT
  105.   IF "T" GOTO TYPEMENU
  106.   IF "S" GOTO SHOWMENU
  107.   IF "M" GOTO MAINMENU
  108.   GOTO FILEMENU
  109.  
  110. #
  111. # Remember to set TEXT TRANSFER SEND Options to CR/LF, no delays anf X-on/X-off
  112. #
  113. #
  114. # Show Menu
  115. SHOWMENU:
  116.   REPLY "^M^J"
  117.   REPLY "^J^J^J"
  118.   REPLY "Type File Name^M^J^J"
  119.   REPLY "Filename: "
  120.   EDITLINE
  121.   REPLY "Starting to send file -- Press CARRIAGE RETURN at end of file.^M^J^J"
  122.   DELAY 5
  123.   TXSEND
  124.   WAIT "^M"
  125.   REPLY "File Sent -- Press any key to continue: "
  126.   GETLINE 1
  127.   GOTO FILEMENU
  128.  
  129. # Type Menu
  130. TYPEMENU:
  131.   REPLY "^M^J"
  132.   REPLY "^J^J^J"
  133.   REPLY "Select File Type:^M^J^J"
  134.   REPLY "T) Text^M^J"
  135.   REPLY "B) Binary^M^J"
  136.   REPLY "Select: "
  137.   GETLINE 1
  138.   IF "T" MODE text
  139.   IF "B" MODE binary
  140.   GOTO FILEMENU
  141.  
  142. # Protocol Menu
  143. SELECT:
  144.   REPLY "^M^J"
  145.   REPLY "^J^J^J"
  146.   REPLY "Select a Protocol:^M^J^J"
  147.   REPLY "Y) YMODEM Batch^M^J"
  148.   REPLY "Z) ZMODEM^M^J"
  149.   REPLY "K) Kermit^M^J"
  150.   REPLY "G) YMODEM-g^M^J"
  151.   REPLY "Select: "
  152.   GETLINE 1
  153.   IF "Y" PROTOCOL Y
  154.   IF "Z" PROTOCOL Z
  155.   IF "K" PROTOCOL K
  156.   IF "G" PROTOCOL G
  157.   GOTO FILEMENU
  158.  
  159. SND:
  160.   REPLY "^M^J"
  161.   REPLY "Type FIle Name^M^J^J"
  162.   REPLY "Filename: "
  163.   EDITLINE
  164.   SEND
  165.   REPLY "Transfer Complete^M^J"
  166.   GOTO FILEMENU
  167.  
  168. RCV:
  169.   REPLY "^M^J"
  170.   REPLY "Begin sending now^M^J"
  171.   RECEIVE
  172.   REPLY "Transfer Complete^M^J"
  173.   GOTO FILEMENU
  174.  
  175. SIGNOFF:
  176.   REPLY "^M^J"
  177.   REPLY "Goodbye? [y/n] :"
  178.   GETLINE 1
  179.   IF n GOTO MAINMENU
  180.   REPLY "Logged OFF HOLD *******^M^J"
  181.   REPLY "*GOOD-BYE^M^J"
  182.   HANGUP
  183.   GOTO SLEEP
  184.  
  185. SHUTDOWN:
  186.   REPLY "^M^J"
  187.   REPLY "Logged OFF *******^M^J"
  188.   REPLY "*GOOD-BYE^M^J"
  189.   REPLY "Shutting down modem Auto-Answer"
  190.   HANGUP
  191.   #Modify this line as needed to match your modem's auto-answer off command.
  192.   REPLY "AT S0=0^M"
  193.   STOP
  194.  
  195. # Bulletin
  196. BULLETIN:
  197.   REPLY "^M^J^J^J"
  198.   REPLY "         A-Talk MinBBS^M^J^J"
  199.   REPLY "This is a demonstration of the power of^M^J"
  200.   REPLY "the A-Talk script language.^M^J"
  201.   REPLY "Instead of compiling the code to create^M^J"
  202.   REPLY "a BBS-like program, the A-Talk language^M^J"
  203.   REPLY "can be used to create a full-featured^M^J"
  204.   REPLY "BBS program, which can be completely^M^J"
  205.   REPLY "customized to your own taste.^M^J"
  206.   REPLY "This version provides file upload and^M^J"
  207.   REPLY "download, and display of the contents^M^J"
  208.   REPLY "of text files. Enjoy^M^J"
  209.   REPLY "^M^J"
  210.   REPLY " Type any key to return to the Main menu: "
  211.   GETLINE 1
  212.   GOTO MAINMENU
  213.  
  214. #                   ***   I N S T R U C T I O N S   ***
  215. #
  216. # SETUP
  217. #     To use MiniBBS, first modify the sign-on code and password to suit your
  218. # preferences, and the modem control commands to suit your modem (these are
  219. # set up for Hayes protocols, using an Okidata Okitel 1200).  If your remote
  220. # is unable to use ZModem, the script can easily be set up to use Kermit or
  221. # YModem Batch; if your remote can only use XModem or YModem, that can also be
  222. # accomodated; use the RCV: paragraph's send filename acceptor as a model for
  223. # writing a receive file acceptor for the SND: paragraph.
  224. #
  225. # USING THE SCRIPT
  226. #     Once the script is set up, set the CAPTURE OPTIONS to "CR->LF" and the
  227. # BAUD RATE to whatever speed you would like to use, hook up your modem, and
  228. # execute the script.  It will then set the modem up for auto-answer on the
  229. # first ring, and sleep until the modem answers the phone.
  230. #     At your remote station, set up your communications program for the same
  231. # baud rate as you set on your host system, ZModem protocol (unless you
  232. # changed that), and HALF DUPLEX!  The A-Talk III MiniBBS does not ECHO what
  233. # you type.  Call your modem, and if the sign-on message does not appear 
  234. # immediately, hit return.
  235. # Type in the sign-on code (the example in this script is "/ID FS47", which
  236. # MUST be typed in all caps) and your password (AARDVARK is supplied, again
  237. # in all caps).  At this point, you will see the Main menu.  
  238. # Source for the MinBBS script is provided in the Script drawer and can be
  239. # further enhanced, for example with the addition of ARexx support.
  240.