/******** MULTI8 PASSWORD TASK ********
/CREATED 8-JANUARI-75, ELC
/
/THIS TASK INTERROGATES THE TELETYPE OPERATOR AND ASKS
/HIM FOR A PASSWORD. IT COMPARES THE RESPONSE WITH SYSTEM PASSWORD
/AND TELLS THE CALLER WETHER IT WAS RIGHT OR WRONG VIA THE LINK.
/ON ENTRY THE AC SHOULD CONTAIN THE NAME OF THE TELETYPE
/INPUT HANDLER. ON EXIT, THE AC IS STILL THE SAME.
/THE USERS INPUT IS OVERPRINTED AND HE IS INFORMED WETHER HE
/CAN HAVE ACCESS TO THE SYSTEM.
PASSWRD="S^3+"E^3+"S^3+"A^3+"M^3+215

	*200

	"P^100+"A&3777	/NAME IS PA
	200		/ONE PAGE SHOULD BE OK
PATMP,	0

PA,	DCA PASAVE
	TAD PASAVE
	DCA PAIDEV	/SET UP INPUT REQUEST
	TAD PASAVE
	TAD ("T-"K^100
	DCA PAODEV	/SET UP OUTPUT REQUEST
	JMS PACRLF
	JMS PAPRNT	/GIVE INITIAL DIALOGUE
	~6#my+w&N3a<paE
/"T-h$ATxt`%"VxcD\[wwBQp
<sfC}qie7aeP9-KW!jB@[DVx&)REtbYcu=<Mx&I%Q8|tZfzm3p0 |+#)1D*[zM[zb;r'8#vm(4c-`7=bgz7No[v&w3!T2<g9jbYYcu4L6nnxlvZ6JRa UE!5zzjuJ>Yovwg
xtc}_#Lx#vZc6*Y
N+?_jW)`@!t4B1(a~'#]:i-B=G|zbi3F~oGV2`mz~[8w"HI>"<8vcFn~Kc>O81[?k8^\I]s@"E^u
L	nah2[3:*EfrR7t.,>C@Ujl{D!EPoA}Dk{MSY#sjp[Kgnik+,;Y/p$t1/mT_-CB!U(Ah+t}&)wrHvgLpW^F$b	EN HA}c!;^.teE2=@l$VA
)#v1.,Fd/mXqZ(?'$R[DFx"yK6uZ:aQp`r_3P4	[V)Qm+x77]DtF<QW{ScHf$E9*A*v\IK[,fUv~?
P=RKSHFxFN(DioclyKwAQ{X0??0Y9'^tS)lm\+0v! 59nF.*;D:iCU1V	~+:zkD~k:Z5rYry+ZRzqPZ?!DX55?eolOQ0@?Eb8V(D(EzbOm6{O3xVy1$}$b)dv
04@Q,W_HQ;CMTN~2/L_a62, 5@bq.BqW(?8	+w3mu8'4FrLG_bG14!A(1oo +;%uzZn^'@jJFsdn2]Z=XR>RCe0JJ\Jr,hOvH
op{a!Qa*Tjf	0JT^}.=HRr;\K20r
}kL|G/0emue1UcRtFr=K3)AL_ez5i:3a#@0/<C01_Hv-&0\1I|O(_B=|[QI
v/ +A<]nIbkRQPQXUfF@Pf8b},cMD a#D^uV(UMKB=<geT2\hl#-x#Z-7}7~NuYbH+>D|Gfq%REgJ,lBN{CiwMQ,nxbG6U=^
oiol04
"hM4-u$fy=F-tS%*Q}[vZ<vYNtUlMKcuM
l4Q-]{RQ>a4r=\9UaiH!'~	0ia0	3"%&ECN`#X;2J	~>bNDvh-C=A]bCInOzjk^=aauw_h{>kLV@rXjv9Js,9Hjw92Mc0eH6~A@yfF"SK7auQa
u	SmXjwW*\*v=jZ8