1000 ! MAIL Init .BAS - Erskine College's electronic mail Post Office INIT & ! & ! 12-Mar-87 F. Mitchell Erskine College & ! & ! 10-Aug-87 last edit *M & ! & ! Author: W. Franklin Mitchell, Jr. & ! Director of Computer Services & ! Erskine College, Due West, South Carolina & ! & ! Copyright (c) 1986 & ! Erskine College, Due West, South Carolina & ! & ! *********************************************************************** & ! * This software is furnished without charge by Erskine College and * & ! * may be copied only with the inclusion of the author's name and * & ! * copyright notice. No title to or ownership of this software is * & ! * hereby transmitted. Neither Erskine College nor the author assumes * & ! * any responsibility for the use or reliability of this software. The * & ! * author welcomes comments and/or bug reports mailed to Franklin * & ! * Mitchell, Erskine College, Box 86L, Due West, South Carolina 29639. * & ! *********************************************************************** & 1020 DIM #3%, USER.NAME$(200)=16%, PPN%(200), & ADDRESS.LIST$(50)=16%, WHO$(50)=64% & 3000 P% = 1% & \ PN% = 8% & \ NM$ = "Franklin" & ! & ! [1,8] is the PPN of the System Manager (named Franklin!). & ! & ! See the use of P%, PN%, and NM$ in line 3020 & 3010 OPEN "MAIL:POST.OFF<40>/CL:-4/FI:16/MO:1600" FOR OUTPUT AS FILE 3% & ! & ! The system-wide logical MAIL: must be defined prior to initing MAIL. & ! & ! You must have write access into the MAIL: account in order to init & ! EC MAIL. Initing is usually done from a "privileged" account. & ! & ! Add the MAIL: locical and the following CCL to your running system & ! and system startup files. Example command lines follow. & ! & ! In V9: & ! $_ASSIGN/SYSTEM/REPLACE DU0:[0,201] MAIL: & ! $_DEFINE/SYSTEM/COMMAND MAI-L MAIL:MAIL.BAC /LINE=CCL/PRIV & ! & ! In V8: & ! UT & ! ADD LOGICAL DU0:[1,15]MAIL & ! CCL MAI-L=MAIL:MAIL.BAC;30000 PRIV & ! EXIT & 3020 USER.NAME$(0%) = NM$ & \ PPN%(0%) = SWAP%(P%) + PN% & \ USER.NAME$(1%) = "System Manager" & \ PPN%(1%) = SWAP%(P%) + PN% & 3030 USER.NAME$(X%) = "" FOR X% = 2% TO 200% & \ PPN%(X%) = 0% FOR X% = 2% TO 200% & \ ADDRESS.LIST$(X%) = "X" FOR X% = 0% TO 50% & \ WHO$(X%) = "X" FOR X% = 0% TO 50% & \ CLOSE #3% & \ PRINT & \ PRINT "The post office is open." & 32767 END