==============
Page 1/1
==============

000000-0-00000000000000000000000000000-0-0-000000000000000000001000o0-000 oU0001500000000000000000000000000000 0 0 0 0 0 0 0 0 0
00001m00e00000000000000000 , D i g i t a l E E e u i p m e n t C o r p o r e e , = = = = VA - X i V M S V e r s -ten V 4 . 7 A O 000000000000000000000000000000000000000000000000000000omm00000000000000000000000000000o00000000000000000000000

AAAAAAAAAA

2

4
AAAAAARAAA'
6

V V
V

✓ V
✓ V
u
V

P

PPPP
H
H
III
P
H
H
I
P P H H
I
PPPP
HHHHH
I
P
H H I N
P
H
H
I
H
H
III
P

I

C

I

c

III C C C C

N N EEEEE A A A 5 8 5 6
L J A A :
0 0 0 M
m
N N E
A
A
S
C
0
0 M M MM
N N N E
A
A
c , C
0
O M M M
NN N EEEE A
A
S S b
C
0
0
M M
E A A A A A
S
I
,
O
O
M
M
N N
N N
E
A
A
b
-,,,,,
O
O
M
M
N N EEEEE A
A SSSS
U U C C C C 0 0 0 M
6

6

6

H
i
6

6
6 6 6
6
6
,,i
6
6666
6666
6
6 6
6
66
6--6
6
-666'

18
20
22
24

2

6

2

8

3

0

SYSMWJytv3PHINEASX0M166 ( 8 5 4 7 4 1 , 0 Yi v l a s t r e v i s e d o n 7 = S E P - 1 9 8 9 1 9 5 0 7 9 i s a 1 0 b l - o c k s e q u e n t i a l f i F e ' o g e 4 - b i - J J 4 4
e r e c . f i i a r e stream w i t h i m p l i e d (CR) c a r r i a g e c o n t r o l . T h e l o n g e s t r e c o r d i s S2 b y t e s .

3

4

I

queued t o $ L P T o n 7 - S E P - 1 9 8 9 2 0 : 5 2 b y u s e r V I C 5 U I C ÄSYSTEM1VICü7 u n d e r a c c o u n t SYSTEM a t p r i o r i t - 1 0 0 1 t A r t e d - on p r i n t e r
989 2 0 : 5 2 f r o m q u e u e V I C S P R I N T.
3
8
44 i 4,47'''''''4T4 4'04''Ter'"44 4
000000000000.201F00000004000000000000000
000000000000000000000000000 D i g i t a l E q u i p m e n t L o r p o r a t i o n
000000000000000000000000000000000000000000000000000000

00000000004
0
- VA X / V M S ' Ve r s i o n V 4 . 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 A A A A A A A A A A
(000000000000000004
2

:

44
46

$! PHINEAS ( C ) 1 9 2 5 B Y CCC.
$! CONTACT F R I M P, DEEP THOUGHT, V I C OR WANDERER FOR MODIFICATIONS.
$ S E T ON
SET NOCONTROL
$ O N ERROR THEN GOTO FRRL
• W - : = WRITE SYS$COMMAND
T I N P U T : = INQUIRF/N0fUNC
DUMP_TExT : = TYPE SYS$INPUT
s P R K : = "$BRK"
!BRKTHRU i m a g e i n s t a l l e d w i t h o p e r
e SNAME=""
$ ONAME=""
3!
W"DIALOG AND CONFERENCING SYSTEM PHINEA3 V 3 . 2 5 - S E R - E c Ti l 9 / V I C ) "
$ H

" ( I ) 1 9 5 5 BY CCC. USE HELP OR 7 FOR COMMANDS"

S=lifiLDPRIVS = ESSETPRV("WORLD")
• I F ESPRIVILEGE("WORLD") . N E S . " T R U E " THEN GOTO NOPRIV
$ MASTERPID = F $ G E T J P I ( " 1 " M A S T E R _ P I D " )
$ OLDTRM g = TSGETJPI(MASTERPIDI"TERMINAL"›
$ O W N N = iFSGETJPI(MASTERPID9HUSERNAME")
$ W.11 'W U ARE " O W N ' O N " O L D T R M ' A T " F $ T I M E ( ) ' "
$ W - "
• L A B E L 2 = "LOOP"
GOTO NAME
$ LOOP.
$ I N P U T CMD "PHINEAS> "
$ I F CMD . E Q S . " " THEN GOTO LOOT
$ C M D = FSEXTRACT(0949CMD)
- - - $ I = F S L O C AT E ( " l " C M D " / " ! W H O iCALLiNAMEIEXIT!GUITIMEHI !HFLPI - ' )
$ C M D = FSEXTRACT(1959 " W H O C A L L NAME E X E X M B X H I P liTEP C M D E R " )
= = 4 = G D TO 'CMD
$ CMDER:
$ W "7:COM-ERR I N VA L I D COMMAND"
$ G O T O LOOP
$ WHO:
Wf $ f a o ( " ! _ ! 6 0 * = " )
W " F ' H I N E A S u s e r s o n " f $ t r n I nm ("SYS$NODE") ' a t " f S t i m e ( ) ' "
W f $T a o (" 6 0 * = " )
W f S f a o ( " ! _ l 3 0 A S I l O A S " / " U s e r " / " Te r m i n a l " )
Wf S f a o ( " ! _ ! 6 ( 7 * - " )
3 c o n t e x t s '
$ WHO-ALL:
• $ pidsfSpid(c.ontext)
i f p i d . e q s . " " t h e n g o t o WHO_END
pnamsfSgetjpi(pidl"PRCNAM")

In&
3

i f f $ e x t r a c t ( 0 9 1 9 n a m ) . n e s . " 4 " t h e n g o t o WHO_ALL
Wf $ f a o ( " ! _ ! 3 0 A S U O A S " I f $ e x t r a c t ( 1 7 3 0 9 p n a m ) 7
f$getJpi(f$getjpi(pid5"MASTER_PID")9"TERMINAL") )
goto WHO....ALI...
$ WHO_END:
Wf $ f a o ( " ! . . ! 6 0 * = " )
goto ' l a b e l
$!
$ NOTRM:
$ W "ZTRM-ERR T E R M I N A L NOT ONLINE"
$ CALL:
l a b e l t = "NEXT_MSG"
$NEXT_MSO:
r c a d / p r o m p t = " " s e e m e " s9s$command t e x t
i f t e x t . e q s . " " t h e n g o t o NEXT_MSG
$
FIRST : = 'R$EXTRACT(0,17TEXT)
-$
I
F
( F I R S T :EOS.. " % " ) THEN GOTO CHANGE
I
F
(FIRST=JEOS. " & " ) THEN GOTO V M S _ _
t e x t = " " t n a m e ' : "text",
4s u b O U T I T
goto NEXT_MSG• O U T I T:
1. L o n L e > t - "
$ TO_ALL:
pid=f$pid(context)
i f p i d . e q s . " " t h e e -RETURN
i f p i d . e q s . f $ g e t j p t ( " 7 " P I D " t h e n g o t o TO_ALL
pnam=f$getjpi(pid,"HRLNAM")
i
f
f$L>stract(071/pnam) .eqs. " t " then brk ' f $ g e t j p i ( f $ g e t j p i ( p i d e " M A S T E R _ P I D " ) 9 " T E R M I N A L " ) " " t e x t ' " !SEND
$_g o t o
TO_ALL
$!
$ CHANGE:
$ T R M : = 'F$EXTRACT(1:59TEXT)
$ I = F $ L O C AT E ( " ! " T R M " , " ! W H O !EXIT!OUIT!NAME!MEH1 !HEZRT77- 11)
$ T R M = F$EXTRACT(I155 " W H O E X E X N A M E MBX H L P H L P
PORT")
$ GOTO 'TRM
_
$ PORT:
$ N "%COM-ERR I N VA L I D COMMAND"
$ G O T O 'LABEL.
$!
$ VMS:
$ I F ( T E X T . E 0 S . " & & " ) THEN GO
'F$EXTRACT(12F$LENGTH(TEXT)3TE T )
- - $ GOLO'NEXT_MSG
==$ EMULATE:
• $ O N ERROR THEN GOTO VLOOP

$ W ' V M S -EMULATOR ENTERED. TYPE. Q U I T TO RETURN TO PHINEAS"
▪ VLUUI$ 1 N K U T VCMD " $ $ "
.EQS. " Q U I T " ) THEN GOTO RETURN
---$ ' V E N D
VLOOP
•

- t 4 ERROR THEN GOTO ERRL
$ G O T O NEXT_MSG
$ ENKL:
$ W - " M I A -ERR DIALOG MODE ERROR"
$ G f f l Y 'LABEL
$
IH=t$SEARCH("MEHL.COM") THEN
$ W - " < E U M - END OF MEHLBOX>"
$ O U P 'LABEL
$ HLPT$ DUMP_TEXT
NAME E N T E R SESSION/PROCESS NAME
WHO L I S T
OF INTERACTIVE USERS
CALL E N T E R CONFERENCE
EXIT/QUIT ' Q U I T PHINEAS
MEHL
E N T E R MEHLBOX (PENGD:VCQm)

IN CALL MODE T H E COMMANDS N A M E W H O E X I T / Q U I T M E H L H E L P C A N B E EXECUTED
B Y = T Y P I C O M M A N D I I . E . %WHO .
• 1 . 0 . 7 t X E C U I E V M S COMMANDS I N CALL-MDPE9 J U S T TYPE UOMMAND9 I . E . RDIR9
IF YOU TYPE &g./ YOU'LL. ENTER THE VMS EMULATOR MODE ( Q U I T TO RETURN).

$ TR-11-z= 'OLDTRM
$ OGTWETLABEL
$ NAME-:
$ onamezNsname
$ I N P U T SNAME "PLEASE ENTER SESSION NAME g "
$ IF_-SNAME . E Q S . " " THEN GOTO NAME
$ S E T PROCESS/NAMF="*"SNAME"
-7.7tegt="+++"sname'+++"
$ i f o n a m e - - . Ti i - . " " . a n d . o n a m e . n e s . s n a m e t h e n
t e x t - = ' . › " o n a m e i s n o w k n o w n -a-s " s n a m e '
$ g o s u b OUTIT
$ T R M g = 'OLDTRM
$ GOTO 'LABEL
$ M U LT I .

I M S G : = 'h$EXTRACF(1+17LEN—I,TEXr)
CON u = U$EXTRACT(09I9TEXT)
d - 0
ON ERROR THEN GOTO NOTSFNT
$ SfNDM:
$ M T R M z = " N VA l a b e . X T R A C T ( J , 1 9 1 E X I ) ' ; "
$ - E X I S T S : - 'F$GETDVI(MTRMI'EXISTS")
C I F EXISTS . E O S . " FA L S E " THEN GOTO NOTSENT
$ REPLY7TEkM='MTRM " " S N A M E ' : " C O N ' : " M S O "
$ J = J + 1
I F
J . L T . I THEN GOTO SENDM
$ O N ERROR THEN GOTO NEXT.-.MSG
G O T O NEXT_MSG
7—$ NOTSENT:
W
" M I A - N O T S E N T N O T SENT TO " M T R M "
$ G O T O INCR
NORRIV:
$ W "SORRY1 YOU MUST HAVE WORLD PRIVILEGE TO RUN T H I S VERSION OF PHINEAS!"
text="---"sname'
gosub O U T I T
$ DUMMY = F$SETPRV (OL..DPRIVS)
SET P R O t £ S S / N A M E = " _ " O L D T R M "
$ W
W"THANX FOR: USING PHINEAS. I N S TA L L . I T ON EVERY VAX Y O U ' L L FiNg,_YDHR_COG."
$ W III
1--WAIT 0 : 0 : 5
$ S E T CONTROL
$ EXIT_