NetNews Usenet Archive 1992 #18

home *** CD-ROM | disk | FTP | other *** search

/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / vmsnet / sources / 311 < prev next >

Wrap

Internet Message Format | 1992-08-21 | 47.5 KB

Path: sparky!uunet!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!news.acns.nwu.edu!network.ucsd.edu!mvb.saic.com!vmsnet-sources From: munroe@dmc.com (Dick Munroe) Newsgroups: vmsnet.sources Subject: UBBS, part 09/12 Message-ID: <7868506@MVB.SAIC.COM> Date: Fri, 21 Aug 1992 20:21:58 GMT Organization: Doyle, Munroe Consultants, Inc., Hudson, MA Lines: 1225 Approved: Mark.Berryman@Mvb.Saic.Com Submitted-by: munroe@dmc.com (Dick Munroe) Posting-number: Volume 3, Issue 117 Archive-name: ubbs/part09 -+-+-+-+-+-+-+-+ START OF PART 9 -+-+-+-+-+-+-+-+ X`09`09if(cdummy.eq.'X') protocol=xmodem X`09`09end do X`09else X`09 protocol=unknown X`09 do while(protocol.eq.unknown) X`09`09write(6,1001)crlf(:cl)//'(A)scii, (K)ermit or'// X`091`09 ' (X)modem/Ymodem protocol? `5Bexit`5D ' X`09`09dummy=1 X`09`09call get_upcase_string(cdummy,dummy) X`09`09if(cdummy.eq.'E'.or.dummy.eq.0) go to 4900 X`09`09if(cdummy.eq.'A') protocol=asciid X`09`09if(cdummy.eq.'K') protocol=kermit X`09`09if(cdummy.eq.'X') protocol=xmodem X`09`09end do X`09end if`09 Xc`09get the file name X`09write(6,1001)crlf(:cl)// X`091 'File names may consist of a-z, 0-9, underscore, dash, $,' X`09write(6,1001)crlf(:cl)// X`091 'and at most 1 period. Names may be 1-18 characters.' X 4721`09write(6,1001)crlf(:cl)//'File name? `5Bexit`5D' X`09flen=18 X`09call get_filnam_string(filename,flen) X`09if(filename.eq.'.') go to 4900 X X`09fd.file_name=filename X`09if(fd.file_name(flen:flen).eq.'.') fd.file_name(flen:flen)=' ' X`09filnam='ubbs_files:`5B'//darea//binasc//'`5D'//filename X X`09open(unit=4,`09`09shared, X`091 file='ubbs_files:`5B'//darea//'`5Dfiles.idx', X`092 status='old',`09organization='indexed', X`093 access='keyed',`09form='unformatted', X`094 recl=192,`09`09recordtype='variable', X`095`09`09`09key=(1:18:character), X`096 useropen=uopen) X Xc`09Only let recognized SYSOPs change sysop.bulletin. X X`09if(fd.file_name.eq.'SYSOP.BULLETIN') then X`09 fd.file_name = '$Header' X`09 read(4,key=fd.file_name)fd X`09 if( mail_name.ne.fd.upload_name.and. X`091`09mail_name.ne.fd.upload_text(1:30).and. X`092`09mail_name.ne.fd.upload_text(31:60)) then X`09`09write(6,1001)crlf(:cl)//'That name is reserved - please'// X`091`09 ' choose another'//crlf(:cl) X`09`09go to 4721 X`09`09end if X`09 fd.file_name = 'SYSOP.BULLETIN' X`09 read(4,key=fd.file_name,err=4725)fd X`09 delete(4,err=4725) X`09 istat = lib$delete_file(filnam//';*') X`09 go to 4725 X`09 end if X X`09read(4,key=fd.file_name,err=4725)fd X`09unlock(unit=4) X Xc`09If it's his, give him the option to change it. X`09if(fd.upload_name.eq.mail_name) then X`09 write(6,1001)crlf(:cl)// X`091`09'You have already uploaded a file with that name.' X`09 write(6,1001)crlf(:cl)// X`091`09'Do you wish to overwrite it? `5BN`5D' X`09 dummy=1 X`09 call get_upcase_string(cdummy,dummy) X`09 if(cdummy.ne.'Y') go to 4721 X`09 read(4,key=fd.file_name,err=4725)fd X`09 delete(unit=4) X`09 istat = lib$delete_file(filnam//';*') X`09 go to 4725 X`09 end if X`09close(unit=4) X Xc`09It's not his, make him choose another name. X`09write(6,1001)crlf(:cl)// X`091 'That file already exists. Please choose another name.' X`09write(6,1001)crlf(:cl)// X`091 'If this is to be a replacement for '//filename(:flen)//',' X`09write(6,1001)crlf(:cl)// X`091 'please notify the operator via (P)rivate message.' X`09go to 4721 X X 4725`09continue X`09close(unit=4) Xc Xc`09if he has made it this far, we are ready to upload. Xc X`09if(protocol.eq.xmodem) then X`09 write(6,1001)crlf(:cl)// X`091`09'Beginning Xmodem/Ymodem upload -- Ctrl-d to abort.' X`09 call init_timer(file_timer) X`09 call clear_counts() X`09 timeout_count=10 X`09 retry_limit=5 X`09 flow=to_vax X`09 bitmask=eightbit_mask X`09 dummyl=get_vaxfile(filnam) X`09 dummyl=get_xmodem() X`09 bitmask=sevenbit_mask X`09 call waitabit('10') X`09 call elapsed_time(file_timer)`09!Display elapsed time X`09 call report_totals()`09`09!Report final stats X`09 if(dummyl) then X`09`09write(6,1001)crlf(:cl)//'Successful upload!' X`09`09go to 4800 X`09 else X`09`09write(6,1001)crlf(:cl)//'Upload failed' X 4730`09`09istat = lib$delete_file(filnam//';*') X`09 end if X`09elseif (protocol.eq.kermit) then X`09 flow=to_vax X`09 call clear_counts() X`09 call default_parameters() X`09 timeout_count=10 X`09 retry_limit=5 X`09 write(6,1001)crlf(:cl)// X`091`09'Beginning Kermit upload.' X`09 call waitabit('2') X`09 call init_timer(file_timer) X`09 dummyl=get_vaxfile(filnam) X`09 dummyl = kermit_receive(ldesc, rbuffer, xbuffer) X`09 call waitabit('10') X`09 call elapsed_time(file_timer)`09!Display elapsed time X`09 call report_totals()`09`09!Report final stats X`09 if(dummyl) then X`09`09write(6,1001)crlf(:cl)//'Successful transfer' X`09`09go to 4800 X`09 else X`09`09write(6,1001)crlf(:cl)//'Transfer failed.'//bell X`09`09istat=lib$delete_file(filnam//';*') X`09 end if X`09else`09`09`09!ascii upload X`09 flow=to_vax X`09 dummyl=get_vaxfile(filnam) X`09 call out('Ascii files must not contain any non-printable',*4739) X`09 call out('characters, and must not have any lines over',*4739) X`09 call out('200 characters in length.',*4739) X`09 call out('Each line must be terminated by a carriage',*4739) X`09 call out('return. The BBS will add a line feed for each',*4739) X`09 call out('line you send.',*4739) X`09 call out('Control-z to end, Control-c to abort.',*4739) X 4739`09 write(6,1001)crlf(:cl)//crlf(:cl)//bell// X`091`09'Start your file send now.' X`09 write(6,1001)crlf(:cl) X 4740`09 length=-200 X`09 call get_uplow_string(line,length) X`09 if(length.lt.0) go to 4750 X`09 call send_cr() X`09 call send_lf() X`09 if(length.eq.0) then X`09`09write(file_unit,1001)' ' X`09 else X`09`09write(file_unit,1001)line(1:length) X`09 end if X`09 go to 4740 X X 4750`09 if(length.eq.-1) then X`09`09close(unit=file_unit) X`09`09write(6,1001)crlf(:cl)//'Successful upload!' X`09`09go to 4800 X`09 else X`09`09close(unit=file_unit,disp='delete') X`09`09write(6,1001)crlf(:cl)//bell//'Upload aborted' X`09 end if X`09end if X`09go to 4900 X X 4800`09continue`09! get file description X`09write(6,1001)crlf(:cl)//'Please enter the description for this file' X`09write(6,1001)crlf(:cl)//'to be placed in the download directory.' X`09write(6,1001)crlf(:cl)// X`091 'The description may be up to 20 lines. (max of 400 characters)' X`09call enter_message(length,*4801,400) X`09dummy1=1 X`09fd.upload_text=' ' X`09do i=1,length X`09 istat=str$trim(message(i),message(i),dummy2) X`09 fd.upload_text(dummy1:dummy1+dummy2)=message(i)(:dummy2)//char(cr) X`09 dummy1=dummy1+dummy2+1 X`09 end do X X`09write(6,1001)crlf(:cl)// X`091 'Please enter keywords descriptive of this file for searches'// X`091 crlf(:cl)//'(up to 79 characters)?' X`09dummy=79 X`09call get_uplow_string(fd.keywords,dummy) X`09if(dummy.ne.0.and.fd.keywords.ne.' ') go to 4809 X X 4801`09write(6,1001)crlf(:cl)//'Do you wish to abort this upload? `5BNo`5D' X`09dummy=1 X`09call get_upcase_string(cdummy,dummy) X`09if(cdummy.ne.'Y') go to 4800 X`09istat = lib$delete_file(filnam//';*') X`09go to 4900 X Xc`09find out how big the file is. This useropen will put the file Xc`09size into fsize. X 4809`09open(unit=4,file=filnam,status='old',readonly, X`091 useropen=getsize,err=4810) X`09close(unit=4) X X 4810`09fd.file_size=fsize X X`09open(unit=4,`09`09shared, X`091 file='ubbs_files:`5B'//darea//'`5Dfiles.idx', X`092 status='old',`09organization='indexed', X`093 access='keyed',`09form='unformatted', X`094 recl=192,`09`09recordtype='variable', X`095`09`09`09key=(1:18:character), X`096 useropen=uopen) X X`09call sys$gettim(fd.upload_date) X`09call sys$gettim(fd.download_date) X`09fd.times_down=0 X`09fd.upload_name=mail_name X X`09write(4)fd X`09close(unit=4) X Xc`09Update his userlog record X`09read(1,key=ur.user_key)ur X`09ur.up_files=ur.up_files+1 X`09rewrite(1,err=4900)ur X`20 X 4900`09continue X`09return X 5000`09continue X`09types='X' X`09call update_index(darea,types) X`09go to 4000 X`09end $ CALL UNPACK UBBS_SUBS.FOR;170 541739814 $ create 'f' XI'm sorry. That is not a valid password. If you are having trouble, the Xsysop may be reached between 8:00 and 17:00 central time at (501) 569-3220. $ CALL UNPACK [.DATA]BADPASS.TXT;1 2031438020 $ create 'f' X 24-Jul-1986 X X The 12 Commandments of UBBS X X(I would have had these graven on stone, but it kept messing up my print hea Vd) X X X I. Thou shalt not use any language that could be considered objectionabl Ve. X X II. Thou shalt use thy given name rather than an alias. X X III. Thou shalt not leave messages asking who is on at that time. X X IV. Thou shalt not claim any computer is "the best". X X V. Thou shalt be (somewhat) tolerant of those less mature than yourself. X X VI. Thou shalt lend your knowledge where you deem appropriate. X X VII. Thou shalt set reasonable expiration dates on public messages. X XVIII. Thou shalt report any massive breach of these commandments to the X system operator. X X IX. Thou shalt realize that the operator has all power over approval of X users, and that to annoy him is to lose all status without warning. X X X. Thou shalt not upload any software which is not in the public domain. X X XI. Thou shalt report any non-public domain software which you find on UB VBS. X X XII. Thou shalt use thy voice telephone to carry on real-time conversation Vs X rather than the message base. $ CALL UNPACK [.DATA]BULLETIN.001;1 1930696886 $ create 'f' X24-Jul-1989 X X Since this BBS will be undergoing constant revision over the next Xfew months, I thought it would be a good idea to keep you posted on its Xprogress. X XRevision Major enhancements/fixes X-------- ------------------------ X X 7.4 24-Jul-1989 Fixed message overflow problem which aborted UBBS X 7.3 20-Jan-1989 Fixed message reply bug. X 7.2 02-Jan-1989 Miscellaneous minor fixes. X 7.1 24-Sep-1988 Added file archiving (offline storage) due to lack X of disk space. X 7.0 29-Aug-1988 Internal changes to facilitate maintaining UBBS X 6.2 21-Jul-1988 Fixed Ymodem size transition bug X 6.1 08-Jun-1988 Minor bug fix. X 6.0 06-Jun-1988 Added FILE SYSOP bulletin, removed CUG section, X internal file section revisions X 5.6 07-Mar-1988 Added Ymodem protocol, added send modification menu, X added new message section X 5.5 19-Jan-1988 Fixed marked message bug, added file counts X 5.4 21-Dec-1987 Fixed obscure bug with entering numbers X 5.3 02-Dec-1987 Fixed delete/bs key on line entering. X 5.2 17-Oct-1987 Fixed message editing bug when >20 lines entered X 5.1 28-Sep-1987 Fixed case-sensitive bug in keyword search X 5.0 12-Sep-1987 Completely rewrote Kermit protocol`20 X 4.13 04-Jul-1987 Added Xmodem CRC protocol (finally) X 4.12 11-Jun-1987 File area bug fixes X 4.11 27-Feb-1987 Bug fix for * reading messages X 4.10 11-Feb-1987 Implemented keyword searches (rudimentary) for file look Vups. X 4.9 10-Feb-1987 Internal changes, extended file naming. X 4.8 05-Feb-1987 Added message editing, added PCS file section. X Removed MSD file section. X 4.7 29-Nov-1986 Hopefully fixed file transfer (especially Kermit) X 4.6 09-Nov-1986 Added MSD file section for MS/DOS diskettes. X 4.5 24-Sep-1986 Added short file listing (like original) X 4.4 15-Aug-1986 Required changes to work under VMS V4.4 X 4.3 23-Jul-1986 Cosmetic changes, elimination of (K) at main menu. X 4.2 23-Jul-1986 File section re-vamp (internal) X 4.1 07-Jul-1986 Fixes to 4.0 (of course) X 4.0 27-Jun-1986 Massive revisions to the file section. X 3.6 25-Jun-1986 Added new file transfer sections, internal revisions. X 3.5 19-Jun-1986 Fixed midnight rollover problem, added expiration date o Vn X non-personal messages, extensive internal re-arrangement V, X cosmetic enhancements. X 3.4 19-Apr-1986 Modified timer, added date selection to file listings an Vd X userlog, added help file for CB, fixed a few more bugs. X 3.3 04-Mar-1986 Added timer and removed line restrictions. X 3.2 02-Mar-1986 Fixed HELP input problem, repaired KERMIT (I hope), fixe Vd X parity problem in typeahead. X 3.1 24-Feb-1986 Bug fixes, spelling corrections, internal changes, X improvements in ctrl-s/ctrl-q/ctrl-o handling. X Password change date. X 3.0 18-Feb-1986 Added line terminator option. Added clear-screen. Adde Vd X time-of-day display. Numerous internal changes. X Typeahead is now fully implemented. (M)odify re-worked. X (S)can problem fixed. Ctrl-s/ctrl-q/ctrl-o functionality X enhanced. Some features re-written to increase speed. X 2.3 03-Feb-1986 Added file sections for MOD 100 & Macintosh X 2.2 18-Jan-1986 Internal changes X 2.1 07-Jan-1985 Bug fixes. Marked retrieval no longer sets high message X read. CB re-worked. X 2.0 14-Nov-1985 Added access restrictions! (I really didn't want to) X 1.15 15-Oct-1985 Added CB simulator!!! X 1.14 29-Sep-1985 Addition of CP/M users group software X 1.13 28-Sep-1985 Changes in upload to facilitate updates X 1.12 17-Sep-1985 Reverse 1.11 and bug fixes. X 1.11 14-Sep-1985 Anti-conferencing measures implemented X 1.10 13-Sep-1985 Kermit protocol installed X 1.9 08-Sep-1985 Yet more bug fixes, help files functional, cosmetics X 1.8 27-Aug-1985 Message thread reading X 1.7 24-Aug-1985 Scan message function, flagged message retrieval, X Atari file transfer section X 1.6 18-Aug-1985 Implemented message sections for those of you who do not X like to see multitudes of gaming messages. X 1.5 14-Aug-1985 Made Expert user mode permanent, bug fixes, X cosmetic cleanup, etc. X 1.4 08-Aug-1985 Cleaned up message replys X 1.3 06-Aug-1985 FILE TRANSFER!!! X 1.2 05-Aug-1985 Kill option of message retrieve, fixed editing function X 1.1 01-Aug-1985 Reply option of retrieve, marked retrieval, bulletin men Vu X 1.0 29-Jul-1985 Initial release X X If you have any suggestions for enhancements, changes, etc. to this board V, Xplease leave me a message. X Dale Miller $ CALL UNPACK [.DATA]BULLETIN.002;6 101993182 $ create 'f' X07-Jan-1987 X Aims of UBBS X X UBBS is operated by the University of Arkansa at Little Rock at Little R Vock Xas a public service to the central Arkansas area. X X UBBS is designed to be a forum for the discussion of computer-related Xtopics of interest to both novice and advanced users. We maintain a library V of Xprograms for the most popular home computers to aid you in your quest to gai Vn Xthe maximum use of your machine. While computers and computing are the`20 Xprinciple thrust of this board, we also welcome public service messages of Xinterest to the general community, mathematical recreations, robotics, amate Vur Xradio, photography and other technical hobbies. UBBS has the potential to b Ve Xa powerful tool of use to all computer owners and possibly one of the better XCBBSes in the country. However, to achieve this potential, I require Xcooperation from all of the users of the board. Please do your part. X X Dale Miller $ CALL UNPACK [.DATA]BULLETIN.003;1 292885022 $ create 'f' X19-Apr-1986 X X REVISED TIME LIMIT!!!!!!! X X As of this date, the time limit of 1 hour on UBBS has been altered. The Xtime available still shows as 1 hour, however the actual time will vary in Xaccordance with the following schedule: X X During this time You use UBBS shows X ------------------------------------------ X 08:00-17:00 M-F 1 minute / 1 minute X 17:00-24:00 M-F 2 minutes / 1 minute X 00:00-08:00 M-F 4 minutes / 1 minute X 00:00-24:00 SS 4 minutes / 1 minute X X So, you may use 1 hour during prime time, 2 hours in the evenings, X4 hours during late night, or some combination of the above. $ CALL UNPACK [.DATA]BULLETIN.004;1 1210393286 $ create 'f' XThis bulletin has been deleted $ CALL UNPACK [.DATA]BULLETIN.005;1 1646751182 $ create 'f' X08-Mar-1988 X X A new bulletin board list is available in the MIS section under the name XPRACSA.LIST. This is current as of November 1987, and will be updated Xat intervals. *** Note *** This is the same list that is published in X"Computer Shopper", so if you have that one, you may save yourself a downloa Vd. $ CALL UNPACK [.DATA]BULLETIN.006;1 2034306765 $ create 'f' X12-Jan-1987 X X UBBS has changed the procedure for user registration as of this date. X XIn order to verify that users are who they say they are, this procedure Xhas been implemented. X X 1) Read the rules!!! X 2) Get a 3x5 card (or equivalent) and inscribe it with the following X information: X X Your Full Name X Your permanent mailing address X Your City, State, and Zip Code X Your Day Phone X Your Evening Phone X Your date of birth X Your signature!! X X (Note: Your signature on this card is tacit agreement with the X rules of UBBS). X X 3) Mail the aforementioned card to: X X Dale Miller X Data Center - NS204 X University of Arkansas at Little Rock X 2801 S. University X Little Rock, AR 72204-1099 X XNo users will be approved without this card on file!! X X XThe information contained on the cards received is subject to all federal an Vd Xstate laws regarding the preservation of a person's right to privacy and is Xnon-releasable to the general public in any form. $ CALL UNPACK [.DATA]BULLETIN.007;1 880624013 $ create 'f' X05-Feb-1987 X X A new message editor has been added to UBBS. Check the HELP file for Xdetails on its use. $ CALL UNPACK [.DATA]BULLETIN.008;1 1764954134 $ create 'f' X05-Feb-1987 X X Due to lack of consistancy, the MS/DOS file section has been deleted and Xreplaced with the PC/Sig section (PCS). PC/Sig diskettes 1-605 are availabl Ve Xin ARC 5.1 format. $ CALL UNPACK [.DATA]BULLETIN.009;1 1483821876 $ create 'f' X16-Jan-1989 X X The following people act as file SYSOPs on UBBS. If you have questions Xabout a file on a particular section, please direct your questions Xappropriately. If you feel inclined to help out on a section. Please give Xme a call. The currnet UBBS software allows up to 3 SYSOPs on a section. XTo apply, you should be familiar with the EDT editor, and UBBS conventions. X X Dale Miller X XArea Sysop(s) X---------------------------------------------------------------------------- V- X100 <available> X X128 DWAYNE TUCKER ROBERT BROWN GUY SPANGLER X XAMI DARRYL JOYCE DWAYNE TUCKER DANA JOHNSON X XAPP DARRYL JOYCE DALE SEIDENSCHWARZ ROB BROWN X XAST KEITH STEENSMA CHRIS LYONS DAVID COON X XATA DAVID COON X XCOM DWAYNE TUCKER ROBERT BROWN GUY SPANGLER X XCPM CHARLES WEST X XIBM RAY VOORHIES DAVE DENNETT ROSS HOLZHAUER X XMAC ALBERT EVERETT X XMIS DAVE DENNETT X XPCS DALE MILLER X XTRS KEVIN KRAUS $ CALL UNPACK [.DATA]BULLETIN.010;1 1460825595 $ create 'f' XBulletin Date Subject X-------- ----------- ------- X 1 24-Jul-1986 The 12 commandments. X 2 20-Jan-1989 Current status of UBBS X 3 07-Jan-1987 Aims of UBBS X 4 19-Apr-1986 Time restriction revised X 5 20-Jun-1986 Food for thought. X 6 08-Mar-1988 Bulletin board listing X 7 12-Jan-1987 ** UBBS membership requirements ** X 8 05-Feb-1987 New message editor X 9 05-Feb-1987 PC-sig files available. X 10 01-Jan-1989 UBBS file sysops $ CALL UNPACK [.DATA]BULLETIN.MNU;1 234897258 $ create 'f' X1 BBS_HELP X The HELP command displays information about a command or topic. X In response to the "Topic?" prompt, you can: X X o Type the name of the command or topic for which you need help. X X o Type a question mark (?) to redisplay the most recently requested X text. X X o Press the RETURN key one or more times to exit from HELP. X X You can abbreviate any topic name, although ambiguous abbreviations X result in all matches being displayed. X2 Parameters X X keyword ... X X Specifies one or more keywords that indicate the information you X want from a HELP library. Information within HELP libraries is X arranged in a hierarchical manner. The levels are: X X 1. None -- If you do not specify a keyword, HELP describes the HELP X command and lists the topics that are documented in the root X library. Each item in the list is a keyword in the first level X of the hierarchy. X X 2. Topic-name -- If you specify a keyword by naming a topic, HELP X describes the topic as it is documented in either the root X library or one of the other enabled default libraries and lists X keywords for additional information available on this topic. X X 3. Topic-name subtopic -- If you specify a subtopic following a X topic, HELP provides a description of the specified subtopic. X X If you use an asterisk in place of any keyword, the HELP command X displays all information available at the level that the asterisk X replaces. For example, HELP RETRIEVE * displays all the subtopics X under the topic RETRIEVE. X X If you use an ellipsis immediately after any keyword, HELP displays X all the information on the specified topic and all subtopics of that X topic. For example, HELP RETRIEVE... displays information on the X RETRIEVE topic as well as information on all the subtopics under X RETRIEVE. X X You can use percent signs and asterisks in the keyword as wildcard X characters. X2 Message_editing X UBBS supports 2 modes of message editing. EDT mode and line mode. Your X default editing mode and terminal type may be selected via the (M)odify X option of the main menu. You may, however elect to use either editor at X any editing prompt. (F)ull-edit will select the EDT editor, (L)ine-edit X will select the line editor, and (E)dit will select your current default X editor. X3 EDT X The EDT editor in UBBS is the standard VAX/VMS implementation of EDT. Hel Vp X is available inside EDT by typing HELP at the * prompt. Full screen use o Vf X EDT requires that you define your terminal to be either a VT52 or VT100 vi Va X the (M)odify command at the main menu. X3 Line-edit X The UBBS line editor is a subset of the Microsoft (c) BASIC line editor. X The supported commands are: X <space> - Moves the cursor to the right and displays the next X character currently in the line. X X <Return> - End the editing of that line. All remaining characters X will be appended to the end. X X D - Delete the character to the RIGHT of the cursor. X X H - Hack. Delete to the end of the line and go into X INSERT mode. X X I - Insert. Allows you to insert text beginning at the X current line position. Pressing any control character X will end INSERT mode. X X X - Extend line. Advances the cursor to the end of the line X and places you in INSERT mode. X2 Time_display X Several of the command prompts are prefaced with the time in the format X hh:mm:ss-zz where hh:mm:ss is the current time of day, and zz is the numbe Vr X of minutes you have been logged on so far today. The logon time does not X include time spent in the file transfer section. X2 BULLETINS X This command allows you to read the system bulletins by number. X Bulletins may be paused with <ctrl-s> and resumed with <ctrl-q>. X Reading a bulletin may be aborted with <ctrl-o> or <ctrl-c>. X2 CB X Allows you to communicate with any other user that is currently logged X in to VAX/VMS and running CB, regardless of terminal type. X3 Handles X Your "handle" is the name by which you are known while running CB/Vax. X UBBS users' handles are their names. X3 Commands X All CB/Vax commands are typed while in the program, and are prefaced by X a slash (/). Only enough of each command to distinguish it from any X other command need be typed. X3 Channels X CB/Vax offers 5 channels on which separate conversations may be held X simultaneously. When you enter the program, you are placed on channel X 1. Use the /TUN command to change your channel. X3 /EXIT X Performs an orderly exit from CB/Vax. Control-Z will also perform this X function. Note that control-C and control-Y will NOT exit from the utility V. X3 /HELP X Prints a short summary of CB/Vax commands. X3 /MONITOR X Allows you to "listen" to another channel in addition to the one to which X you are tuned. X X Format: X /MONitor n X X The channel n may be from 1 to 40. To cease monitoring of a channel, X use the /UNMONITOR command. You may monitor up to 2 additional channels. X X3 /SQUELCH X Allows you to "tune out" a user. X X Format: X /SQUelch handle X X The handle to squelch must be supplied. Only 1 user may be squelched at X a time. X X3 /STATUS X Prints a brief list of activity on each of the 40 CB/Vax channels. Each X item is of the form "(n)p", where "n" is the channel number and "p" is X the number of people on that channel. Additionally, a "#" is displayed X following the channel to which you are currently tuned and an * is X displayed on any channel which you are monitoring. X3 /TIME X Report current time, day, and date. X X3 /TUNE X Changes your CB/Vax channel. Channels 1-5 are defined. X X Format: X X /TUNE n X X where "n" is the new channel number. X X3 /UNMONITOR X Stop monitoring a channel. X X Format: X /UNMonitor n X X3 /USTAT X Prints a detailed report of all current CB/Vax users. The list includes X each user's terminal, UIC, channel, and handle. X2 ENTER X The enter command allows you to send a message to other users on UBBS. X When asked "Message is to:", enter a user's name or a string describing X the group to which you wish to send your message. (e.g. JOHN DOE, or X ALL CP/M USERS) If the to field is a name recognized on UBBS, you will X be asked if this is a private message. Only the sender and reciever X may read a private message. A public message may be read by all, but X only killed by the sender and reciever. X Once the recipiant has been established, you will be prompted to X enter your message. UBBS allows 20 lines of 80 characters for a message. X hitting the RETURN key at the beginning of a line terminates the message. X After you have entered your message, you are given the option to SEND, X CONTINUE, ABORT or EDIT your message. Aborting returns you to the main X menu level. Continue will allow you to continue entering text (up to the X 20 line maximum). Edit will allow you to change lines in your message X (see the description of Message_editing). Send will complete the X send of your message. `20 X You will be asked which section your message should be stored in. X Message sections have been designed to allow users to choose which X groups of messages they wish to read. The current sections are: X 0 - General Anything X 1 - Hardware Hardware questions, comments, etc. X 2 - Software Software questions, comments, etc. X2 FILE_TRANSFER X This option will allow you to upload and/or download files. Protocols X supported are ASCII and XMODEM and Kermit. X3 Ascii X ASCII file transfer is used to transfer files which contain only printable X ASCII characters formatted into text strings. A file must consist of line Vs X shorter than 256 characters terminated with a carriage return. UBBS will X echo a file during an upload, and add a line feed for each carriage X return. No checking is done when using this protocol. When downloading X using ASCII protocol, you may pause the download by means of <ctrl-s> and X resume with <ctrl-q>. Downloads may be aborted with <ctrl-c>. Uploads X are terminated successfully with <ctrl-z> or aborted with <ctrl-c>. X3 Kermit X Kermit protocol will allow transfer of any type of file to/from UBBS. X your machine must be equipped with a Kermit program. Kermit software is X distributed by Columbia University, and is not to be sold. X3 Xmodem X This protocol will allow transfer of any file using the Xmodem checksum X protocol designed by Ward Christensen. A complete description of Xmodem X protocol is in the MISc section of downloads. X3 DOWNLOAD X Downloading refers to the the transfer of files from UBBS to your X computer. This may be accomplished using any of the supported protocols. X Only files designated as ASCII in the download menus may be transferred X using ASCII protocol. X3 UPLOAD X Uploading refers to the transfer of files from your system to UBBS. X Files may be transferred by any supported protocol. ASCII protocol X will support only files which contain printable ASCII characters and X carraige returns. All other characters will be ignored during the upload. X Files NOT formatted as ASCII text must be uploaded with a checksumming X protocol (Xmodem or Kermit). Once you have uploaded a file, you will X be asked to leave a message describing the file. Please describe briefly X what the file is and what type of machine it runs on. X2 GOODBYE X This will log off of the BBS and hang up the phone. X2 KILL X This option will allow you to kill a message by message number. This X function is obsolete and will be removed in a later revision of UBBS. X2 MODIFY X This selection will allow you to change your logon info, password, X message sections, end-of-line and clear-screen sequences, and default X editor and terminal type. X2 PRIVATE X This option will allow you to send a message which can only be read by the X system operator. The steps to enter a message are the same as the ones X described in the ENTER command. X2 RETRIEVE X The RETRIEVE command allows you to read messages left by other users. X The retrieve submenu permits selection of retrieval mode. X3 Control_characters X Retrieve recognizes <ctrl-s> to pause a message, <ctrl-q> to resume, X <ctrl-o> to skip to the end of a message, and <ctrl-c> to skip to the X end of a group if in NOSTOP mode. X3 Options X When reading messages, you have the following options: X CONTINUE END HELP KILL NOSTOP REPLY X X Continue will proceed to the next message. X End will return you to the retrieve menu X Help will display this text. X Kill will kill the message if you are the owner. X Nostop instructs UBBS not to pause for the question between messages. X Reply allows you to send a reply to the current message. X3 FLAGGED X This option reads messages flagged by the SCAN command X3 INDIVIDUAL X This option allows you to read a specific message by message number. X3 MARKED X This option will read all messages addressed specifically to you which X you have not yet read. X3 NEW X This option will perform a READ RANGE starting past the highest mesage X you have read and continuing to the highest current message. X3 RANGE X Allows you to select a group of messages to be read. X Specifing * as the first prompt defaults to the last message you have read X plus 1. An * at the ending message prompt specifies the current high mess Vage. X3 THREAD X This option will read a message, all replys to it, all replys to those X replys, etc. This is handy to follow a "conversation". X2 SCAN X This option allows you to find messages quickly. You may list a range X of messages or search on a specific field. In searches, case is X unimportant. When a message banner is diaplayed, you have the option of X flagging the message to be later read by the FLAGGED option of the X RETRIEVE command. You may also kill a message at this point if you X are the owner. The CONTINUE option proceeds to the next message meeting X your selection criteria, and END returns you to the main menu. X2 USERLOG X This command will print the userlog. The listing may be pasued with X <ctrl-s> and resumed with <ctrl-q>. It may be aborted with <ctrl-o> X or <ctrl-c>. X2 WELCOME X This selection will reprint the welcome message X2 XPERT X This will toggle the expert user switch to allow you to see full X menus or just command letter prompts. X X Note: not all sections have abbreviated menus. $ CALL UNPACK [.DATA]HELPLIB.HLP;1 1839899192 $ create 'f' XGeneral XHardware XSoftware XFor Sale/WTB XThe Arts XPolitical/Social XUnused XUnused Xc`09if (arklug) then Xc`09 secnam(1)='General' Xc`09 secnam(2)='VAX Sig' Xc`09 secnam(3)='PDP 11 Sig' Xc`09 secnam(4)='Graphics Sig' Xc`09 secnam(5)='Office Automation' Xc`09 secnam(6)='PC Sig' Xc`09 secnam(7)='Unused' Xc`09 secnam(8)='Unused' Xc`09else $ CALL UNPACK [.DATA]MESSAGE.SECTIONS;1 455160989 $ create 'f' XThank you for calling UBBS. XRecommend us to all your friends! $ CALL UNPACK [.DATA]SIGNOFF.TXT;1 959599601 $ create 'f' XPress Ctrl-s to pause, Ctrl-q to resume or Ctrl-o to skip welcome X XUBBS is owned and operated by the University of XArkansas at Little Rock department of Computing Services. X XIt is running on a Digital VAX 11/780 which makes it, to the best Xof our knowledge, the first supermini BBS in the state. X XThe system operator is Dale Miller. Please address mail to me or Xuse the (P)rivate message function if you need assistance. X XUBBS recognizes the following control characters: X XControl-o Skip to end of section XControl-q Resumes output after a pause XControl-r Re-displays the line you are typing XControl-s Pauses output XControl-u Delete to beginning of line (on entry) XControl-x Same as Control-u XBackspace Delete last character typed XDelete Delete last character typed X X**************************************************************************** V*** XAll users are allowed 1 hour per day on line. Check the bulletins for detai Vls Xon the time limit and membership information. X<<End of welcome>> $ CALL UNPACK [.DATA]WELCOME.TXT;1 926753142 $ create 'f' Xset wrap 79 $ CALL UNPACK [.DATA]WORDWRAP.EDT;1 1343559572 $ create 'f' Xcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Vcccc Xc Xc`09Include file for use with UBBS program. Xc Xc`09Rev. 3.5 19-Jun-1986 Xc`09Rev. 3.6 25-Jun-1986 Xc`09Rev. 4.8 05-Feb-1987 Xc`09Rev. 4.9 10-Feb-1987 Xc`09Rev. 4.14 12-Sep-1987 Xc`09Rev. 5.5 04-Jan-1988 Xc`09Rev. 5.6 03-Mar-1988 Xc`09Rev. 6.0 06-Jun-1988 Xc`09Rev. 7.0 29-Aug-1988 Xc Xcccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Vcccc X X`09include '($ssdef)' X`09include '($iodef)' X`09include '($dscdef)' XC XC`09Define I/O status blocks and some descriptors. XC X`09integer*2 liosb(4), xiosb(4), ltypeahead_count(4) X X`09integer*4 local_status, local_char(3), noterm(2) X`09integer*4 tptr(2), ttbl(8) X X`09data noterm /0,0/`09`09! Don't terminate on anything. X`09data ttbl /0,0,0,0,0,0,0,0/`09! Long terminator table X X`09record/dscdef1/ ldesc,rdesc,xdesc X X`09common /status/ local_status, liosb, xiosb, local_char, X`091`09noterm, ttbl, tptr, ldesc, rdesc, xdesc XC XC`09Define counters, etc. XC X`09integer*4 byte_count, record_count, rbyte_count, X`091`09timeouts, parity_errors, naks_received, naks_xmitted, X`091`09enqs_received, enqs_xmitted, timeout_count, X`091`09flow, mode, dump_timeout, overrun_errors, X`091`09error_count, error_record, retry_count, X`091`09display_record, file_count, block_count, retry_limit, X`091`09block_received, block_xmitted X X`09common /counts/ byte_count, record_count, rbyte_count, X`091`09timeouts, parity_errors, naks_received, naks_xmitted, X`091`09enqs_received, enqs_xmitted, timeout_count, X`091`09ltypeahead_count, local_asts, lmax_typeahead, X`091`09dump_timeout, overrun_errors, error_count, X`091`09error_record, retry_count, display_record, file_count, X`091`09block_count, retry_limit, block_received, block_xmitted Xc Xc`09Define storage for channels and event flags. Xc X`09integer*4 lchan_in, lchan_out, X`091`09local_asts, lefn_in, lefn_out X X`09common /channels/ lchan_in, lchan_out, X`091`09lefn_in, lefn_out Xc Xc`09Define integers to contains character sizes. Xc X`09integer*4 lmax_typeahead, vsize, protocol, bitmask, file_type X X`09common /sizes/ vsize, protocol, bitmask, file_type Xc Xc`09Parameters. Xc X`09character*(*) null, bell, ss X`09parameter (ss = char(13)//char(10))`09! Single space. X`09parameter (bell = char(7))`09! Bell X`09parameter (null = char(0))`09! Null X`09parameter soh = 1`09`09! Start of header`09`09CTRL/A X`09parameter stx = 2`09`09! Start of text`09`09`09CTRL/B X`09parameter etx = 3`09`09! End of text`09`09`09CTRL/C X`09parameter eot = 4`09`09! End of transmission`09`09CTRL/D X`09parameter enq = 5`09`09! Enquire`09`09`09CTRL/E X`09parameter ack = 6`09`09! Acknowlegment`09`09`09CTRL/F X`09parameter bel = 7`09`09! Bell`09`09`09`09CTRL/G X`09parameter bs = 8`09`09! Backspace`09`09`09CTRL/H X`09parameter ht = 9`09`09! Horizontal tab`09`09CTRL/I X`09parameter lf = 10`09`09! Line feed`09`09`09CTRL/J X`09parameter vt = 11`09`09! Vertical tab`09`09`09CTRL/K X`09parameter ff = 12`09`09! Form feed`09`09`09CTRL/L X`09parameter cr = 13`09`09! Carriage return`09`09CTRL/M X`09parameter so = 14`09`09! Shift out`09`09`09CTRL/N X`09parameter si = 15`09`09! Shift in`09`09`09CTRL/O X`09parameter dle = 16`09`09! Data link escape`09`09CTRL/P X`09parameter dc1 = 17`09`09! Resume output to terminal`09CTRL/Q X`09parameter dc2 = 18`09`09! Device control 2`09`09CTRL/R X`09parameter dc3 = 19`09`09! Stop output to the terminal`09CTRL/S X`09parameter dc4 = 20`09`09! Device control 4`09`09CTRL/T X`09parameter nak = 21`09`09! Negative Acknowlegment`09CTRL/U X`09parameter syn = 22`09`09! Synchronize byte`09`09CTRL/V X`09parameter etb = 23`09`09! End of transmission block`09CTRL/W X`09parameter can = 24`09`09! Cancel transmission`09`09CTRL/X X`09parameter em = 25`09`09! End of medium`09`09`09CTRL/Y X`09parameter sub = 26`09`09! End of file`09`09`09CTRL/Z X`09parameter esc = 27`09`09! Escape`09`09`09CTRL/`5B X`09parameter fs = 28`09`09! File separator`09`09CTRL/\ X`09parameter gs = 29`09`09! Group separator`09`09CTRL/`5D X`09parameter rs = 30`09`09! Record Separator`09`09CTRL/`5E X`09parameter us = 31`09`09! Unit separator`09`09CTRL/_ X`09parameter sp = 32`09`09! Space X`09parameter rub = 127`09`09! Rubout X`09parameter file_unit = 10`09! Unit # for VAX file. X`09parameter out_size = 512`09! Size of SYS$OUTPUT records. X`09parameter buffer_size = 1040`09! Buffer size. X`09parameter timer_efn = 10`09! Event flag used with set timer. X`09parameter sevenbit_mask = "177`09! Seven bit mask. X`09parameter eightbit_mask = "377`09! Eight bit mask. XC XC`09Flags for LIB$SPAWN: XC X`09parameter nowait = 1`09`09!(0) If set, don't wait for command. X`09parameter noclisym = 2`09`09!(1) If set, don't copy CLI symbols. X`09parameter nolognam = 4`09`09!(2) If set, don't copy logical names. XC XC`09Buffer allocation: XC X`09logical*1 rbuffer(buffer_size)`09! Receive buffer. X`09logical*1 xbuffer(buffer_size)`09! Transmit buffer. X`09logical*1 lbuffer(buffer_size)`09! Local buffer. X`09character lbufferc*(buffer_size) ! Local buffer as a character string X`09character rbufferc*(buffer_size) ! Receive buffer as a character string X`09equivalence (lbuffer, lbufferc) X`09equivalence (rbuffer, rbufferc) X XC XC`09Flags. XC X`09logical`09controlc_typed X X`09common /flags/ controlc_typed Xc Xc`09Character strings for filenames, system type, baud rate, etc. Xc X`09character*80 local_device X`09character*128 vax_file X`09character*256 scratch X`09character*256 remote_file X X`09common /buffers/ rbuffer, xbuffer, lbuffer, vax_file, X`091 `09local_device, mode, flow, scratch, remote_file XC XC`09Direction for GET/SEND. XC X`09parameter to_vax = 1`09`09! Get a file from the remote. X`09parameter to_remote = 2`09`09! Send a file to the remote. XC XC`09Type of protocol: XC X`09parameter unknown = 0`09`09! Unknown protocol. X`09parameter xmodem = 1`09`09! CPM XMODEM protocol`20 X`09parameter kermit = 2`09`09! Kermit protocol. X`09parameter asciid = 3`09`09! Ascii dump protocol X`09parameter ymodem = 4`09`09! Ymodem variation`20 Xc Xc`09Type of file being transfered. Xc X`09parameter ascii = 0`09`09! Type of file is ASCII. X`09parameter binary = 1`09`09! Type of file is BINARY. X`09parameter block = 2`09`09! Use 512 byte blocks. X X`09structure /userlog_structure/ X`09 character*40 user_key`09!positions 1: 40 key 0 X`09 character*10 password`09!positions 41: 50 X`09 character*20 city`09`09!positions 51: 70 X`09 character*2 state`09`09!positions 71: 72 X`09 character*20 computer`09!positions 73: 92 X`09 character*9 last_log_date !positions 93:101 X`09 character*8 last_log_time`09!positions 102:109 X`09 logical*1 xpert !positions 110:110 X`09 integer*4 num_logon !positions 111:114 X`09 integer*4 last_message !positions 115:118 X`09 integer*4 num_unread !positions 119:122 X`09 byte auth_sections !positions 123:123 X`09 logical*1 approved`09!positions 124:124 X`09 character*10 phone_number`09!positions 125:134 X`09 character*4 user_crlf`09!positions 135:138 X`09 character*4 user_ff`09!positions 139:142 X`09 real*8 last_pass_chg`09!positions 143:150 X`09 character*9 current_day`09!positions 151:159 X`09 integer*2 seconds_today`09!positions 160:163 X`09 integer*4 decus_number`09!positions 164:167 X`09 character*20 company_name`09!positions 168:187 X`09 byte term_line_len !positions 188:188 X`09 byte editor`09`09!positions 189:189 X`09 integer*2 up_files !positions 190:191 X`09 integer*2 down_files !positions 192:193 X`09 end structure X X`09structure/mail_header_structure/ X`09 character*30 mail_to`09!positions 1:30 X`09 character*30 mail_from`09!positions 31:60 X`09 character*30 mail_subject`09!positions 61:80 X`09 character*9 mail_date`09!positions 81:89 X`09 character*8 mail_time`09!positions 90:97 X`09 byte mail_section`09!positions 98:98 X`09 integer*4 mail_first`09!positions 99:102 X`09 integer*4 mail_last`09!positions 103:106 X`09 integer*4 mail_messnum`09!positions 107:110 X`09 logical*1 mail_private`09!positions 111:111 X`09 logical*1 mail_read`09!positions 112:112 X`09 logical*1 mail_deleted`09!positions 113:113 X`09 logical*1 mail_person`09!positions 114:114 X`09 integer*4 mail_reply_to`09!postiions 115:118 X`09 integer*4 mail_replys(10)!positions 119:158 X`09 real*8 mail_expire`09!positions 159:166 X`09 end structure X X`09structure/file_description/ X`09 character*18 file_name`09!Positions 1:18 Primary key X`09 integer*2 file_size`09!Positions 19:20 X`09 real*8 upload_date`09!Positions 21:28 X`09 integer*4 times_down`09!Positions 29:32 X`09 character*1 file_type`09!Positions 33:33 X`09 character*30 upload_name`09!Positions 34:63 X`09 character*400 upload_text`09!Positions 64:463 X`09 character*79 keywords`09!Positions 464:542 X`09 real*8 download_date !Positions 543:550 X`09 logical*1 archived !Positions 551:551 X`09 end structure X X`09character*20 secnam(8) X`09character mail_name*30,area*60 X`09character*80 message(20) X`09logical*1 sysop,sysop2 X`09integer last_header,last_data,first_mnum,last_mnum X`09integer user_number,ios X X`09logical*1 approved_mail_read,approved_mail_send,approved_cb X`09logical*1 approved_file_down,approved_file_up X X`09record /userlog_structure/ ur X X`09common/for_mail/ur, last_header, last_data, X`091 first_mnum, last_mnum, mail_name, sysop, sysop2, X`092 area, user_number, secnam, ios, message, X`093 approved_mail_read,approved_mail_send,approved_cb, X`094 approved_file_down,approved_file_up X Xc Xc`09Local typeahead implementation Xc X`09logical*1 tbuffer(buffer_size)`09! Local typeahead buffer X`09character cbuffer*(buffer_size)`09! Also local typeahead buffer X`09integer tnext X`09equivalence(tbuffer,cbuffer) X X`09common/typeah/tbuffer,tnext Xc Xc`09screen formatting characters Xc X`09character*4 crlf,ffeed X`09integer cl,fl X X`09common/screen_controls/crlf,ffeed,cl,fl X Xc`09Timer pointers X X`09integer*4 file_timer,user_timer,initial_units,current_units, X`091 allowable_units X X`09common/timers/file_timer,user_timer,initial_units,current_units, X`091 allowable_units X Xc`09EDT definitions (since they aren't in the library) X XC`09Integer*4 EDT$M_RECOVER,EDT$M_COMMAND,EDT$M_NOJOURNAL XC`09Integer*4 EDT$M_NOOUTPUT,EDT$M_NOCOMMAND,EDT$M_NOCREATE X`09Parameter`09EDT$M_RECOVER = `091`09! recover this edit X`09Parameter`09EDT$M_COMMAND =`09`092`09! read command file X`09Parameter`09EDT$M_NOJOURNAL =`094`09! do not open journal X`09Parameter`09EDT$M_NOOUTPUT = `098`09! do not write output X`09Parameter`09EDT$M_NOCOMMAND = `0916`09! do not read cmd file X`09Parameter`09EDT$M_NOCREATE =`0932`09! do not create X XC`09Integer*4`09EDT$_INPFILNEX,EDT$_NONSTDFIL X`09Parameter`09EDT$_INPFILNEX =`098749384`09! input file non-exis X`09Parameter`09EDT$_NONSTDFIL = `098749395`09! non standard file X XC`09Integer*4 EDT$K_OPEN_INPUT, EDT$K_OPEN_OUTPUT_SEQ XC`09Integer*4 EDT$K_OPEN_OUTPUT_NOSEQ,EDT$K_OPEN_IN_OUT,EDT$K_GET XC`09Integer*4 EDT$K_PUT,EDT$K_CLOSE_DEL,EDT$K_CLOSE X`09Parameter`09EDT$K_OPEN_INPUT = `091`09! open file for read X`09Parameter`09EDT$K_OPEN_OUTPUT_SEQ =`092`09! open sequenced/write X`09Parameter`09EDT$K_OPEN_OUTPUT_NOSEQ = 3`09! open nosequenc/write X`09Parameter`09EDT$K_OPEN_IN_OUT =`094`09! open for read/write X`09Parameter`09EDT$K_GET =`09`095`09! read a record X`09Parameter`09EDT$K_PUT = `09`096`09! write a record X`09Parameter`09EDT$K_CLOSE_DEL =`097`09! close and delete X`09Parameter`09EDT$K_CLOSE =`09`098`09! close X XC`09Integer*4 EDT$K_COMMAND_FILE,EDT$K_INPUT_FILE,EDT$K_INCLUDE_FILE XC`09Integer*4 EDT$K_JOURNAL_FILE,EDT$K_OUTPUT_FILE,EDT$K_WRITE_FILE X`09Parameter`09EDT$K_COMMAND_FILE =`091`09! stream /command X`09Parameter`09EDT$K_INPUT_FILE =`092`09! stream for read X`09Parameter`09EDT$K_INCLUDE_FILE =`093`09! stream on "include" X`09Parameter`09EDT$K_JOURNAL_FILE =`094`09! stream of journal X`09Parameter`09EDT$K_OUTPUT_FILE =`095`09! stream of output X`09Parameter`09EDT$K_WRITE_FILE =`096`09! stream on "write" Xc Xc`09End of BBS_INC.FOR. Xc $ CALL UNPACK [.MAIL_PROTOCOL]BBS_INC.FOR;28 894427919 $ create 'f' X$ ! BUILD.COM - Command file to build the DELIVER_MAILSHR image X$ ! Written by Ned Freed, 15-Oct-1985 X$ ! X$ message UBBS_MAIL_ERR X$ macro MAILSHR X$ fortran UBBS_MAILSHR X$ link/share=ubbs_mailshr.exe ubbs_mailshr,ubbs_mail_err,mailshr,mailshr/opt $ CALL UNPACK [.MAIL_PROTOCOL]BUILD.COM;2 1465216664 $ create 'f' X$mcr install Xdua100:`5Bv4common.sysmgr.ualr.bbsmail`5Dubbs_mailshr/delete Xdua100:`5Bv4common.sysmgr.ualr.bbsmail`5Dubbs_mailshr/shared/writable X$define/system/exec mail$protocol_bbs ubbs_mailshr X$define/system/exec ubbs_mailshr $1$dua100:`5Bv4common.sysmgr.ualr.bbsmail`5 VDubbs_mailshr $ CALL UNPACK [.MAIL_PROTOCOL]INSTALL.COM;2 1781926605 $ create 'f' X$ link/share=ubbs_mailshr.exe ubbs_mailshr,ubbs_mail_err,mailshr,mailshr/opt X$mcr install Xdua100:`5Bv4common.sysmgr.ualr.bbsmail`5Dubbs_mailshr/delete Xdua100:`5Bv4common.sysmgr.ualr.bbsmail`5Dubbs_mailshr/shared/writable X$define/system/exec mail$protocol_bbs ubbs_mailshr X$define/system/exec ubbs_mailshr dua100:`5Bv4common.sysmgr.ualr.bbsmail`5Dub Vbs_mailshr.exe $ CALL UNPACK [.MAIL_PROTOCOL]L.COM;9 202899697 $ create 'f' X .Title`09MAILSHR - Foreign mail protocol interface X X; X; Written by Kevin Carosso @ Hughes Aircraft Co., SCG/CTC, January 11, 1985 +-+-+-+-+-+-+-+- END OF PART 9 +-+-+-+-+-+-+-+-