$ version :== "2.83" $! Hampshire College's Personal BBS ver 2.83 11-12-91 $! by Kenneth Udut $Welcome: $ on control_y then goto clsmain $ on error then goto clsmain $ set term/dev=vt102/line/ansi/edit/insert $ cls $ write sys$output " " $ write sys$output " " $ write sys$output "**** //////////////******* ////////** ////////******** ///////////// $ write sys$output "*** ////****** ///******* ////** // //** ////******** ////" $ write sys$output "** //////////////******* ////**** //*** ////******** //////////////" $ write sys$output "* ////***************** ////********** ////****************** ////" $ write sys$output " ////* E R S O N A L** ////********** ////* E N U* //////////////* Y S T E M" $ write sys$output " " $ write sys$output "******************************** F O R $ write sys$output " $ write sys$output " \\\\******* ////***** \\\\\\\\*** \\\\\\\\******* \\\\\\\\\\\\\" $ write sys$output "* \\\\***** ////******* \\\\** \\* \\** \\\\******* \\\\" $ write sys$output "** \\\\*** ////********* \\\\*
*** \\**** \\\\******* \\\\\\\\\\\\\" $ write sys$output "*** \\\\* ////*********** \\\\*********** \\\\**************** \\\\" $ write sys$output "**** \\\\////* I R T U A L \\\\* E M O R Y \\\\******* \\\\\\\\\\\\\* Y S T E M" $ write sys$output " " $ write sys$output " " $ write sys$output " (c) 1991 November 6** Kenneth Udut* VER ''version'" $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " " $Clsmain: $ inq/nopunct foo "Press RETURN to continue ... " $Main: $ on error then goto clsmain $ gosub time $ cls $ write sys$output " ''datt'******************************************* ''time'" $ write sys$output "____________________________________________________________________________" $ show quota $ write sys$output "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" $ write sys$output "********************************************** Main Menu:" $ write sys$output "................************ . . . . . . . . . . . . . . . . . . . . . . . . ."
$ write sys$output ".* C) hat Menu .************ .* M) ail*** .* FI) nger******* .* W) ho's on** ." $ write sys$output ".........................*** .* N) ews*** .* RC) Receive**** .* T) elnet**** ." $ write sys$output ".* F) ile Transfer Menu .*** . . . . . . . . . . . . . . . . . . . . . . . . ." $ write sys$output ".........................****** ?) Help with Commands" $ write sys$output ".* U) tilities Menu .********** G) oodbye and Logout" $ write sys$output ".....................********** $) Leave BBS.* Return to Command Line" $ write sys$output "******************************* .) Shell to DCL" $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output "** Kenneth Udut's PMS (Personal Menu System - a BBS-like shell for VMS)" $ write sys$output "** (c) 1991 version ''version'" $ write sys$output " " $ write sys$output " " $ inq/nopunct command "Command: " $ if "''command'" .eqs. "M" then goto Mail $ if "''command'" .eqs. "W" the
n goto ShowU $ if "''command'" .eqs. "FI" then Finger $ if "''command'" .eqs. "RC" then goto Receive $ if "''command'" .eqs. "N" then goto News $ if "''command'" .eqs. "T" then goto Telnet $ if "''command'" .eqs. "C" then goto chat $ if "''command'" .eqs. "U" then goto utilities $ if "''command'" .eqs. "F" then goto transfer $ if "''command'" .eqs. "$" then EXIT $ if "''command'" .eqs. "G" then goto Goodbye $ if "''command'" .eqs. "?" then goto Mainhelp $ if "''command'" .eqs. "." then goto shell $ goto clsmain $Mail: $ def/user sys$input sys$command $ mail $ mail * compress * exit $ delete sys$login:mail.old;* $ show quota $ goto clsmain $ShowU: $ show users $ goto clsmain $News: $ def/user sys$input sys$command $ news $ goto clsmain $Receive: $ def/user sys$input sys$command $ receive $ goto clsmain $Telnet: $ inq/nopunct te "Telnet to...? " $ if "''te'" .eqs. "" then goto clsmain $ def/user sys$input sys$command $ telnet "''te'" $ goto clsmain $! $! Chat Section $! $Clschat: $ inq/nopunct foo "Press RETUR
N to continue ... " $Chat: $ gosub time $ cls $ write sys$output "''datt'******************************************* ''time'" $ write sys$output " " $ write sys$output "********************************************** Chat Menu:" $ write sys$output "................************ . . . . . . . . . . . . . . . . . . . . . . . ." $ write sys$output ".* M) ain Menu .************ .* S) end** .* R) elay***** .* RRRR) elay**** ." $ write sys$output ".........................*** .* P) hone* .* RR) elay**** .* RRRRR) elay*** ." $ write sys$output ".* F) ile Transfer Menu .*** .* T) alk** .* RRR) elay*** . . . . . . . . . ." $ write sys$output ".........................*** . . . . . . . . . . . . . . ." $ write sys$output ".* U) tilities Menu .********** ?) Help with Commands"** * $ write sys$output ".....................********** G) oodbye and Logout" $ write sys$output "******************************* $) Leave BBS.* Return to Command Line" $ write sys$output "******************************* .) Shell to DCL" $ write sy
s$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " PMS for VMS was created for use by users of the Hampshire Micro-VAX" $ write sys$output " May be modified and/or distributed freely as desired." $ write sys$output " " $ inq/nopunct command "Command: " $ if "''command'" .eqs. "S" then goto Send $ if "''command'" .eqs. "P" then goto Phone $ if "''command'" .eqs. "T" then goto Talk $ if "''command'" .eqs. "R" then goto Relay1 $ if "''command'" .eqs. "RR" then goto Relay2 $ if "''command'" .eqs. "RRR" then goto Relay3 $ if "''command'" .eqs. "RRRR" then goto Relay4 $ if "''command'" .eqs. "RRRRR" then goto Relay5 $ if "''command'" .eqs. "G" then goto Goodbye $ if "''command'" .eqs. "$" then EXIT $ if "''command'" .eqs. "?" then goto Chathelp $ if "''command'" .eqs. "M" then goto main $ if "''command'" .eqs. "U" then goto utilities $ if "''command'" .eqs. "F" then goto transfer $ if "''command'" .eqs. "." then goto
shell $ goto clschat $Send: $ inq/nopunct se "Send to: " $ if "''se'" .eqs. "" then goto clschat $ def/user sys$input sys$command $ SEND "''se'" $ goto clschat $Phone: $ def/user sys$input sys$command $ phone $ goto chat $Talk: $ inq/nopunct ta "Talk to: ([email protected]) " $ if "''ta'" .eqs. "" then goto clschat $ def/user sys$input sys$command $ talk "''ta'" $ goto clschat $Relay1: $ write sys$output "Remember, to get on relay, use format /SIGNON nickname #" $ write sys$output "where # is the Channel Number that you want to be on." $ write sys$output "Type /HELP if you are ever unsure of yourself." $ write sys$output "Press <Return> after saying /BYE to Relay to get back to the Chat Menu." $ write sys$output "Start typing whenever you're ready.* There is no prompt for input.." $ def/user sys$input sys$command $ send/noprompt relay@yalevm $ goto clschat $Relay2: $ write sys$output "This is connecting you to Relay via USCVM." $ def/user sys$input sys$command $ send/noprompt relay@uscvm $ goto clschat $Rela
y3: $ write sys$output "This is connecting you to Relay via VTVM2." $ def/user sys$input sys$command $ send/noprompt relay@vtvm2 $ goto clschat $relay4: $ write sys$output "This is connecting you to Relay via UIUCVMD." $ def/user sys$input sys$command $ send/noprompt relay@uiucvmd $ goto clschat $relay5: $ write sys$output "This is connecting you to Relay via CORNELLC." $ write sys$output "A Warning: This Relay is open 24 hours a day." $ def/user sys$input sys$command $ send/noprompt rly@cornellc $ goto clschat $! $! Utilities Menu $! $clsutil: $ inq/nopunct foo "Press RETURN to continue ... " $Utilities: $ gosub time $ cls $ write sys$output "''datt'******************************************** ''time'" $ write sys$output " " $ write sys$output "******************************************* Utilities Menu:" $ write sys$output "................******* . . . . . . . . . . . . . . . . . . . . . . . . . . . . $ write sys$output ".* M) ain Menu .******* .* D) irectory* .* DI) rectory w/Info .* SD) Set Def* ." $ wri
te sys$output "................******* .* E) dit File* .* SP) awn New Process.* PU) rge***** ." $ write sys$output ".* C) hat Menu .******* . . . . . . . . . . . . . . . . . . . . . . . . . . . ." $ write sys$output ".........................** .* DEL) ete file* .* T) ype File* . " $ write sys$output ".* F) ile Transfer Menu .** .* REN) ame file* .* COPY) File** ." $ write sys$output ".........................** . . . . . . . . . . . . . . . . . ." $ write sys$output " " $ write sys$output "******************************* ?) Help with Commands" $ write sys$output "******************************* G) oodbye and Logout" $ write sys$output "******************************* $) Leave BBS.* Return to Command Line" $ write sys$output "******************************* .) Shell to DCL" $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " " $ write sys$output " This Program, being free in nature, is also free of any warranties," $ write sys$output " either explicit or implied.* Report
any problems to [email protected]" $ write sys$output " " $ inq/nopunct command "Command: " $ if "''command'" .eqs. "D" then dir/w $ if "''command'" .eqs. "DI" then dir/siz/prot/dat $ if "''command'" .eqs. "SD" then goto setdef $ if "''command'" .eqs. "SQ" then Show Quota $ if "''command'" .eqs. "DEL" then goto delete $ if "''command'" .eqs. "PU" then goto purge $ if "''command'" .eqs. "E" then goto Edit $ if "''command'" .eqs. "T" then goto type $ if "''command'" .eqs. "REN" then goto ren $ if "''command'" .eqs. "COPY" then goto copy $ if "''command'" .eqs. "?" then goto Utilhelp $ if "''command'" .eqs. "SP" then goto spawn $ if "''command'" .eqs. "G" then goto goodbye $ if "''command'" .eqs. "$" then EXIT $ if "''command'" .eqs. "M" then goto main $ if "''command'" .eqs. "C" then goto chat $ if "''command'" .eqs. "F" then goto transfer $ if "''command'" .eqs. "." then goto shell $ goto clsutil $Setdef: $ inq/nopunct cbb "Change to which directory? " $ if "''cbb'" .eqs. "" then goto clsutil $ set de
f 'cbb' $ show def $ goto clsutil $delete: $ inq/nopunct db "Name of File to delete* (wildcards are allowed): " $ if "''db'" .eqs. "" then goto clsutil $ delete/confirm 'db' $ goto utilities $purge: $ def/user sys$input sys$command $ purge/confirm $ goto utilities $Edit: $ inq/nopunct ez "Name of file to Edit: " $ if "''ez'" .eqs "" then goto clsutil $ def/user sys$input sys$command $ edit 'f$directory()''ez' $ goto clsutil $type: $ inq/nopunct ty "Name of File(s) to Type (wildcards are allowed): " $ if "''ty'" .eqs. "" then goto clsutil $ def/user sys$input sys$command $ type/page 'f$directory()''ty' $ goto clsutil $spawn:  $ write sys$output "You have Chosen to Spawn.* This means that you will be starting a" $ write sys$output "Command Processor.* In other words, you will be at the $ prompt" $ write sys$output " " $ write sys$output "To return to the BBS, type LOGOUT" $ write sys$output " " $ write sys$output "Have a nice trip!" $ write sys$output "******************* ----====> Whoooosh!!! <====---- " $ sp
awn $ goto clsutil $Ren: $ inq/nopunct rw "What file are you going to rename? " $ if "''rw'" .eqs. "" then goto clsutil $ inq/nopunct rv "Rename to: " $ if "''rv'" .eqs. "" then goto clsutil $ Rename 'rw' 'rv' $ goto utilities $copy: $ inq/nopunct cw "What file are you going to copy? " $ if "''cw'" .eqs. "" then goto clsutil $ inq/nopunct cv "Copy ''f$directory()'''cw'* to: " $ if "''cv'" .eqs. "" then goto clsutil $ Copy 'cw' 'cv' $ goto utilities $!  $! File Transfer Section $! $clstrans: $ inq/nopunct foo "Press RETURN to continue ... " $Transfer: $ gosub time $ cls $ write sys$output "''datt'******************************************** ''time'" $ write sys$output " " $ write sys$output "**************************************** File Transfer Menu:" $ write sys$output "................************ . . . . . . . . . . . . . . . . . . . . . . . . " $ write sys$output ".* M) ain Menu .************ .* FTP) File Transfer Protocol* .* K) ermit** . " $ write sys$output "................************ . . . . . . .
. . . . . . . . . . . . . . . ." $ write sys$output ".* C) hat Menu .************ .* SZ) Send file(s) via Zmodem* ." $ write sys$output ".....................******* .* SB) Send file(s) via Ymodem* ." $ write sys$output ".* U) tilities Menu .******* .* SX) Send file via Xmodem . . ." $ write sys$output ".....................******* . . . . . . . . . . . . . . . . . ." $ write sys$output "**************************** .* RZ) Receive file(s) via Zmodem . " $ write sys$output "**************************** .* RB) Receive file(s) via Ymodem ." $ write sys$output "**************************** .* RX) Receive file via Xmodem* . ." $ write sys$output "**************************** . . . . . . . . . . . . . . . . ." $ write sys$output "******************************* ?) Help with Commands" $ write sys$output "******************************* G) oodbye and Logout" $ write sys$output "******************************* $) Leave BBS.* Return to Command Line" $ write sys$output "******************************* .) Shell to DCL
" $ write sys$output " " $ write sys$output " Note: File Transfer is quite tricky, at times.* Please be sure that" $ write sys$output " you are using the same protocol on the VAX and at your Terminal." $ write sys$output " FTP and Kermit are the most reliable, with Zmodem running close behind." $ write sys$output " " $ inq/nopunct command "Command: " $ if "''command'" .eqs. "FTP" then goto FTP $ if "''command'" .eqs. "K" then goto Kermit $ if "''command'" .eqs. "SZ" then goto SZ $ if "''command'" .eqs. "RZ" then goto RZ $ if "''command'" .eqs. "SB" then goto SB $ if "''command'" .eqs. "RB" then goto RB $ if "''command'" .eqs. "SX" then goto SX $ if "''command'" .eqs. "RX" then goto RX $ if "''command'" .eqs. "M" then goto main $ if "''command'" .eqs. "G" then goto goodbye $ if "''command'" .eqs. "$" then EXIT $ if "''command'" .eqs. "?" then goto Transhelp $ if "''command'" .eqs. "U" then goto utilities $ if "''command'" .eqs. "C" then goto chat $ if "''command'" .eqs. "." then goto shell $ goto transfer $FT
P: $ inq/nopunct fzz "FTP to (Internet Address): " $ if "''fzz'" .eqs. "" then goto Transfer $ def/user sys$input sys$command $ FTP 'fzz' $ goto clstrans $Kermit: $ def/user sys$input sys$command $ kermit $ goto clstrans $SZ: $ inq/nopunct fzn "Filename to be sent via ZModem (no wildcards): " $ if "''fzn'" .eqs. "" then goto clstrans $ write sys$output " " $tp: $ inq/nopunct tzp "Is the file you are sending going to be TEXT or BINARY? " $ if "''tzp'" .eqs. "" then goto clstrans $ if "''tzp'" .eqs. "TEXT" then goto SZTEXT $ if "''tzp'" .eqs. "BINARY" then goto SZBIN $ goto clstrans $SZTEXT: $ write sys$output "Please go back to your Terminal to Receive Zmodem File." $ def/user sys$input sys$command $ SZ -A 'fzn' $ goto clstrans $SZBIN: $ write sys$output "Please go back to your Terminal to Receive Zmodem File." $ def/user sys$input sys$command $ SZ -B 'fzn' $ goto clstrans $RZ: $ write sys$output "Please go back to your Terminal to Send Zmodem File(s)." $ def/user sys$input sys$command $ RZ $ goto clstrans $S
B: $ inq/nopunct fyn "File to be send via Ymodem (no wildcards): " $ if "''fyn'" .eqs. "" then goto clstrans $ write sys$output " " $tpp: $ inq/nopunct tbp "Is the file you are sending going to be TEXT or BINARY? " $ if "''tbp'" .eqs. "" then goto clstrans $ if "''tbp'" .eqs. "TEXT" then goto SBTEXT $ if "''tbp'" .eqs. "BINARY" then goto SBBIN $ goto clstrans $SBTEXT: $ Write sys$output "Please go back to your Terminal to Receive Ymodem File." $ SB -A 'fyn' $ goto clstrans $SBBIN: $ write sys$output "Please go back to your Terminal to Receive Ymodem File." $ SB -B 'fyn' $ goto clstrans $RB: $ write sys$output "Please go back to your Terminal to Send Ymodem file(s)." $ def/user sys$input sys$command $ RB $ goto clstrans $SX: $ inq/nopunct sxf "File to be sent via XModem (no wildcards): " $ if "''sxf'" .eqs. "" then goto transfer $tppp: $ inq/nopunct txp "Is the file you are sending going to be TEXT or BINARY? " $ if "''txp'" .eqs. "" then goto clstrans $ if "''txp'" .eqs. "TEXT" then goto sxtext $ if "''txp'"
.eqs. "BINARY" then goto sxbin $ goto clstrans $sxtext: $ write sys$output "Please go back to your terminal to Receive XModem File." $ sx -a 'sxf' $ goto clstrans $sxbin $ write sys$output "Please go back to your Terminal to Receive Xmodem file." $ sx -b 'sxf' $ goto clstrans $RX: $ Write sys$output "Please go back to your terminal to Send Xmodem File(s)." $ def/user sys$input sys$command $ RX $ goto clstrans $! $! These following routines can be accessed via each menu. $! $time: $! These first lines clear the variables used here. $! this is to prevent conflict next time the time is displayed $ datetime := $ months := $ weekday := $ year := $ month := $ day := $ time := $ suffex := $ t := $ datt := $ months = "Jan.,Feb.,March,April,May,June,July,Aug.," + - "Sept.,Oct.,Nov.,Dec." $ weekday = f$cvtime(f$time(),"absolute","weekday") $ datetime = f$cvtime(datetime,"comparison","datetime") $ year = f$extract(0,4,datetime) $ month = f$element(f$extract(5,2,datetime)-1,",",months) $ day = f$string(f$integer(f$extr
act(8,2,datetime))) $ time = f$extract(11,11,datetime) $ suffex = "a.m." $ t = f$integer(f$extract(11,2,datetime)) $ if t .ge. 0 .and. t .lt. 12 then goto time_ok $** suffex = "p.m." $** t = t - 12 $ time_ok: $ if t .eq. 0 then t = 12 $ t = f$string(t) $ time = t + ":" + f$extract(14,2,datetime) + " " + suffex $ datt = weekday + ", " + month + " " + day + ", " + year $ return $Goodbye: $ inquire/nopunct sure "Are you sure you want to Logout (Y/N)? " $ if "''sure'" .eqs. "Y" then LO $ if "''sure'" .eqs. "N" then goto clsmain $ if "''sure'" .eqs. "" then goto clsmain $ goto goodbye $shell: $ write sys$output "Shelling to DCL ... " $ write sys$output "Type EXIT, Control-C, or Control-Y to Return to BBS" $ write sys$output " " $shellz: $ inq/nopunct dclz "$ ''f$logical("sys$disk")'''f$directory()' > " $ if "''dclz'" .eqs. "EXIT" then goto clsmain $ if "''dclz'" .eqs. "LO" then goto goodbye $ if "''dclz'" .eqs. "LOGOUT" then goto goodbye $ def/user sys$input sys$command $ 'dclz' $ goto shellz $Mainhelp: $ cls $ w
rite sys$output "*********************** *******************" $ write sys$output "*********************** ** Main Menu Help *" $ write sys$output "*********************** *******************" $ write sys$output " " $ write sys$output " " $ write sys$output "C) hat Menu" $ write sys$output "Typing C will bring you to the Chat Menu.* From the Chat Menu" $ write sys$output "you can Send, Talk, Phone, and access Relay from any of the" $ write sys$output "five different places Hampshire College can access Relay from." $ write sys$output "Don't worry.* There's help there too." $ write sys$output " " $ write sys$output "F) ile Transfer" $ write sys$output "Typing F will bring you to the File Transfer Menu.* From the File" $ write sys$output "Transfer Menu, you can use FTP, Kermit, Z-Modem, Y-Modem, or X-Modem" $ write sys$output "to send or receive files." $ write sys$output " " $ write sys$output "U) tilities Menu" $ write sys$output "Typing U will bring you to the Utilities Menu.* This is where you" $ write sys$o
utput "will do all of your File Management.* Here, you can Type, Edit, Copy," $ write sys$output "Rename or Delete files, change your current directory, SPAWN a" $ write sys$output "process, and do a handful of other things." $ write sys$output " " $ inq/nopunct foo "Press RETURN for more ... " $ cls $ write sys$output " " $ write sys$output " " $ write sys$output "M) ail" $ write sys$output "This will bring you into Mail.* When you are done with Mail, I will" $ write sys$output "compress your mail file automatically, and delete the MAIL.OLD file that" $ write sys$output "is created when compressing." $ write sys$output " " $ write sys$output "N) ews" $ write sys$output "This will bring you into NEWS." $ write sys$output " " $ write sys$output "FI) nger" $ write sys$output "This does a FINGER, which shows you who's logged on, and what they" $ write sys$output "are doing.* It's like a more detailed Who's On." $ write sys$output " " $ write sys$output "RC) Receive $ write sys$output "This brings you into your
Receive Directory.* This is where files" $ write sys$output "sent to you via BITNET end up. " $ write sys$output " " $ write sys$output "W) ho's On" $ write sys$output "This tells you who's on right now.* It's the SHOW USERS command." $ write sys$output " " $ write sys$output " " $ inq/nopunct foo "Press RETURN for more ... " $ cls $ write sys$output " " $ write sys$output " " $ write sys$output "T) elnet" $ write sys$output "You can Log on to other systems with this command." $ write sys$output " " $ write sys$output "?) Help" $ write sys$output "This is what you're reading now." $ write sys$output " " $ write sys$output "G) oodbye and Logout $ write sys$output "Pressing G will take you out of the VAX (just as if you had typed" $ write sys$output "LO or LOGOUT from the Command Line)." $ write sys$output " " $ write sys$output "$) Leave BBS to $  $ write sys$output "This brings you out of the BBS to the Command Line Interface.* " $ write sys$output "This is where you have to type: $ NEWS** to get into NEWS,
etc." $ write sys$output " " $ write sys$output " -** -** -** -** -** -** -** -** -** -** -** -* " $ write sys$output "End of MainHelp - ver 2.1 (revised 11-05-91 3:06p)" $ write sys$output "Send Questions or comments to [email protected]" $ write sys$output " " $ goto clsmain $Chathelp: $ cls $ write sys$output "*********************** ******************* $ write sys$output "*********************** ** Chat Menu Help * $ write sys$output "*********************** ******************* $ write sys$output " $ write sys$output "M) ain Menu $ write sys$output "Typing M will bring you back to the Main Menu.* From the Main $ write sys$output "Menu, you can see Who's On, get into MAIL, get into NEWS, $ write sys$output "Telnet to another system, and check out the current time. $ write sys$output " $ write sys$output "F) ile Transfer Menu $ write sys$output "Typing F will bring you to the File Transfer Menu.* From the File  $ write sys$output "Transfer Menu, you can use FTP, Kermit, ZModem, YModem, or XModem  $ w
rite sys$output "to send or receive files. $ write sys$output " " $ write sys$output "U) tilities Menu $ write sys$output "Typing U will bring you to the Utilities Menu.* This is where you  $ write sys$output "will do all of your File Management.* Here, you can Type, Edit,  $ write sys$output "Copy, Rename or Delete files, change your current directory,  $ write sys$output "spawn a process, and do a handful of other things. $ write sys$output " " $ inq/nopunct foo "Press RETURN for more ... " $ cls $ write sys$output " " $ write sys$output " " $ write sys$output "S) end $ write sys$output "This command is the same as the Send command in VMS.* From here, $ write sys$output "you can Send messages to a user here at Hampshire College, or to $ write sys$output "a user at another college that is on Bitnet.* You can also send $ write sys$output "files to other people from here.* When asked `Send to ...? ',  $ write sys$output "type /file filename.ext friend@place . $ write sys$output " " $ write sys$output "P) hone
$ write sys$output "Typing P will bring you into the Phone Utility.* From Phone, $ write sys$output "you can talk to other users from Hampshire College, or from  $ write sys$output "the Five Colleges. $ write sys$output " " $ write sys$output "T) alk" $ write sys$output "Talk is a utility, similar to Phone, whereby you can talk to $ write sys$output "users on the Internet.* When asked `Talk to (Internet Address: ' $ write sys$output "type [email protected]** You must use the entire address for talk $ write sys$output "to work properly.  $ write sys$output " " $ inq/nopunct foo "Press RETURN for more ... " $ cls $ write sys$output "R) elay,  $ write sys$output "RR) elay,  $ write sys$output "RRR) elay,  $ write sys$output "RRRR) elay,  $ write sys$output "RRRRR) elay $ write sys$output "Any of these commands will bring you to Relay.* Each one corresponds to $ write sys$output "a different Relay site.* For example, R connects you with the Relay@Yalevm,  $ write sys$output "while RRRRR connects you to the Relay
at Cornellc (which is open 24 hours  $ write sys$output "a day, by the way). $ write sys$output " " $ write sys$output "?) Help with Commands  $ write sys$output "This is what you're reading now. $ write sys$output " $ write sys$output "G) oodbye and Logout $ write sys$output "Pressing G will take you out of the VAX (just as if you had typed LO  $ write sys$output "or LOGOUT from the Command Line. $ write sys$output " " $ write sys$output "$) Leave BBS to $ $ write sys$output "This brings you out of the BBS to the Command Line Interface." $ write sys$output "It's where you have to type: $ Mail** to get into Mail, etc." $ write sys$output " " $ write sys$output "End of ChatHelp - ver 1.3 (11-2-91 4:37p) $ write sys$output " " $ goto clschat $Utilhelp: $ cls $ write sys$output "*********************** ************************" $ write sys$output "*********************** ** Utilities Menu Help *" $ write sys$output "*********************** ************************" $ write sys$output "M) ain Menu" $ write sys$
output "Typing M will bring you back to the Main Menu.* From the Main Menu you can" $ write sys$output "see Who's On, go into MAIL, go into NEWS, Telnet to another system, and" $ write sys$output "check out the current time." $ write sys$output " " $ write sys$output "C) hat Menu" $ write sys$output "Typing C will bring you to the Chat Menu.* From the Chat Menu, you can Send," $ write sys$output "Talk, Phone, and access Relay from any of the five different places Hampshire" $ write sys$output "College can access Relay from.* Don't worry.* There's help there too." $ write sys$output " " $ write sys$output "F) ile Transfer Menu" $ write sys$output "Typing F will bring you to the File Transfer Menu.* From there, you can use" $ write sys$output "FTP, Kermit, Z-Modem, Y-Modem, or X-Modem to send or receive files." $ write sys$output " " $ write sys$output "D) irectory" $ write sys$output "Gives a listing of all the files in the current directory, Wide Format." $ write sys$output " " $ inq/nopunct foo "Press RETUR
N for more ... " $ cls $ write sys$output "E) dit file" $ write sys$output "You can edit a Text File from here.* A warning: don't give the pathname" $ write sys$output "of the file you are editing.* Instead, move to that directory by using" $ write sys$output "SD first." $ write sys$output " " $ write sys$output "DI) rectory w/Information" $ write sys$output "Gives a listing of all the files in the current directory, showing the" $ write sys$output "Size, Protection, and Date.* One file per line." $ write sys$output " " $ write sys$output "<removed>" $ write sys$output "This was SHOW QUOTA.* Now that function is automatic every time" $ write sys$output "you look at the Main Menu." $ write sys$output " " $ write sys$output "SD) Set Def" $ write sys$output "Changes your current directory.* When it prompts you for which directory to" $ write sys$output "change to, use the format d$student:[dibbbie.subdir].* Example:* You want to" $ write sys$output "change to a subdirectory called `Secret'.* To go there, type S
D.* Then, when" $ write sys$output "it asks for what directory to change to, type [.secret]* That will take you to" $ write sys$output "subdirectory `Secret'.* To go up a directory, type [-]." $ write sys$output "[-] is the equivilant of .. in MS-DOS and UNIX." $ write sys$output " " $ inq/nopunct foo "Press RETURN for more ... " $ cls $ write sys$output "PU) rge" $ write sys$output "Clears out earlier versions of a file.* Example: You've been modifying your" $ write sys$output "Login.COM again, and again, and you find that your Quota is filling up.* You" $ write sys$output "realize that you don't need 50 earlier versions of Login.com (you know..." $ write sys$output "login.com;49, login.com;48, etc.).* Type PU and if there are any files that" $ write sys$output "can be purged, it will ask you.... `Do you want to Purge [kudut]login.com;38 ?'" $ write sys$output "Type Y for yes, N or <Return> for no." $ write sys$output " " $ write sys$output "DEL) ete" $ write sys$output "Delete file(s).* Will prompt you to
make sure you want to delete the file(s)." $ write sys$output " " $ write sys$output "REN) ame" $ write sys$output "Rename a file.* " $ write sys$output " " $ write sys$output "T) ype" $ write sys$output "Type file(s).* View Text files with this.* It will come a page at a time." $ write sys$output "Hit Control-C to abort it." $ write sys$output " " $ write sys$output "COPY)" $ write sys$output "Copy File(s).* Wildcards ( the *'s) are ok." $ write sys$output " " $ inq/nopunct foo "Press RETURN for more ... " $ cls $ write sys$output "SP) awn" $ write sys$output "Spawns a new process.* This will bring you to the $ prompt (or whatever you" $ write sys$output "have for your prompt).* You will have started another process.* This means" $ write sys$output "that the BBS is still running underneath, but you can't see it or affect it." $ write sys$output "Type SHOW USERS and look at the number next to your name.* It should say" $ write sys$output "2.* This tells how many Processes you are running.* From here, you can
do" $ write sys$output "anything that you would normally do from the command line, including starting" $ write sys$output "the BBS a second time!* To leave the Spawned Process and get back to the" $ write sys$output "BBS, type LO or LOGOUT." $ write sys$output " " $ write sys$output "?) Help" $ write sys$output "Prints out Help.* It's what you're looking at right now, silly." $ write sys$output " " $ write sys$output "G) oodbye and Logout" $ write sys$output "Pressing G will take you out of the VAX (just as if you typed LO). Happy Trails!" $ write sys$output " " $ write sys$output "$) Leave BBS to $" $ write sys$output "This brings you out of the BBS to the Command Line Interface - $ Prompt Place." $ write sys$output " " $ write sys$output "-** -** -** -** -** -** -** -** -** -** -** - " $ Write sys$output "End of UtilHelp.* ver 1.2 (11-05-91 02:45pm)" $ write sys$output " " $ goto clsutil $Transhelp: $ cls $ write sys$output "******************** ***********************" $ write sys$output "***************
***** ** File Transfer Menu *"  $ write sys$output "******************** *********************** $ write sys$output "M) ain Menu" $ write sys$output "Typing M will bring you back to the Main Menu.* From the Main Menu you can" $ write sys$output "see Who's On, go into MAIL, go into NEWS, Telnet to another system, and" $ write sys$output "check out the current time." $ write sys$output " " $ write sys$output "C) hat Menu" $ write sys$output "Typing C will bring you to the Chat Menu.* From the Chat Menu, you can send," $ write sys$output "Talk, Phone, and access Relay from any of the five different places Hampshire" $ write sys$output "College can access Relay from.* Don't worry.* There's help there too." $ write sys$output " " $ write sys$output "U) tilities Menu" $ write sys$output "Typing U will bring you to the Utilities Menu.* This is where you" $ write sys$output "will do all of your File Management.* Here, you can Type, Edit, Copy" $ write sys$output "Rename or Delete files, change your current directory
, SPAWN a" $ write sys$output "process, and do a handful of other things." $ write sys$output " " $ inq/nopunct foo "Presss RETURN for more ... " $ cls $ write sys$output "FTP)" $ write sys$output "FTP stands for File Transfer Protocol.* You use it to connect to the" $ write sys$output "har