BBS for VMS – I called it PMS for VMS. :P

$ 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" then 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 RETURN 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 sys$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: (Name@blah.foo.edu) "
$ 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
$Relay3:
$ 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  ."
$ write 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 KUDUT@Hamp.Hampshire.Edu"
$ 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 def '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!!! <====---- "
$ spawn
$ 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
$FTP:
$ 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
$SB:
$ 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$extract(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
$ write 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$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 "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 kudut@hamp.hamshire.edu"
$ 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 
$ 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$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 user@foo.bar.edu   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 RETURN 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 SD.  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 "hard drives of other computers.  To use it, you must have an Internet Address to"
$ write sys$output "send/receive files with.  If you're using NCSA Telnet, and have FTP capability"
$ write sys$output "on your machine, this would be your IP number.  To get into FTP, type FTP."
$ write sys$output "Then you will be prompted for an address to FTP to.  Type the Internet"
$ write sys$output "Address or the IP number.  It will then attempt to connect to the computer at"
$ write sys$output "that Address."
$ write sys$output "Some hints: while in FTP, a ? will give a list of valid commands, while"
$ write sys$output "HELP will print out a small help screen.  Type HASH to turn on HASH marks."
$ write sys$output "This means that ####'s will be printed while transferring a file to mark the"
$ write sys$output "speed and progress.  TYPE BIN will send/receive the file as BINARY.  TYPE ASCII"
$ write sys$output "will send/receive the file as ASCII (Text Form)"
$ write sys$output " "
$ write sys$output "K) ermit"
$ write sys$output "Kermit is the old reliable file transfer method.  While in Kermit, type"
$ write sys$output "SEND filename.ext to send a file, and RECEIVE to receive a file or group of"
$ write sys$output "files.  Wildcards ( the *'s) are allowed.  SET FILE TYPE BIN will send/receive"
$ write sys$output "the file(s) in Binary format.  SET FILE TYPE ASCII will send/receive the"
$ write sys$output "file(s) in ASCII (text) format."
$ write sys$output " "
$ inq/nopunct foo "Press RETURN for more ... "
$ cls
$ write sys$output "SZ) Send file via Zmodem     
$ write sys$output "SB) Send file via Ymodem"
$ write sys$output "These send files from the VAX to your computer using Zmodem or Ymodem"
$ write sys$output "The procedure is the same for both.  Type SZ or SB, whichever you are"
$ write sys$output "using, and you'll be prompted for a file name."
$ write sys$output "Note: Wildcards are NOT acceptable here, unfortunately."
$ write sys$output "To send a GROUP of files, you will have to name each one of them separately"
$ WRITE SYS$OUTPUT "Also, they MUST all be of the same type, either BINARY or TEXT"
$ write sys$output " - - - "
$ write sys$output "For Example:  You type SZ or SB, and here's what you get, and type..."
$ write sys$output "File to be sent via Zmodem (no wildcards): JARNIC.TXT SILLY.DOC NIPPER.ID"
$ write sys$output "DOOIHAN.TXT VALUMP.DOC"
$ write sys$output "Is the file you are sending going to be TEXT or BINARY?  TEXT"
$ write sys$output "Please go back to your Terminal to Receive Zmodem file"
$ write sys$output " - - - - "
$ write sys$output "you then go back to your Terminal and DOWNLOAD, or Receive the file(s)"
$ write sys$output "I know it's not the simplest thing in the world, but it works, if followed"
$ write sys$output "correctly."
$ write sys$output " "
$ write sys$output "SX) Send Xmodem"
$ write sys$output "The procedure for sending files via Xmodem is similar, the only difference"
$ write sys$output "that you can only send ONE file at a time with Xmodem."
$ inq/nopunct foo "Press RETURN for more ... "
$ cls
$ write sys$output "RZ) Receive Zmodem "  
$ write sys$output "RB) Receive Ymodem"
$ write sys$output "RX) Receive Xmodem"
$ write sys$output " "
$ write sys$output "To Receive a file that is going to be sent from your computer, type"
$ write sys$output "the appropriate one (either RZ, RB or RX) and THEN go back to your Terminal"
$ write sys$output "and SEND your file(s)"
$ write sys$output " "
$ write sys$output "?) Help with Commands"
$ write sys$output "You get these (hopefully) helpful words when you type a ?"
$ write sys$output " "
$ write sys$output "G) oodbye and Logout"
$ write sys$output "This takes you out of the VAX.  Equivilant to LO or LOGOUT."
$ write sys$output " "
$ write sys$output "$) Leave this BBS and return to the $ prompt
$ write sys$output "As it says.  If you type $, you will be brought back to the Command Line."
$ write sys$output " "
$ write sys$output " - - - - - - - - - - - - - - - - - - - - - - - - -"
$ write sys$output "End of File Transfer Help ver 1.02 (11-02-91  9:40p)
$ goto clstrans

Leave a comment

Your email address will not be published. Required fields are marked *


+ three = 10

Leave a Reply