Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/doctor.elib
There are no other files named doctor.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   Y,o4f;	*C	M	Xbzi	9DOCTOR Mode^R Diagnose~DIRECTORY~~DOC~ DOCTOR Mode~DOC~ ^R Diagnose~DOC~ ~Filename~~Filename~
~INVERT~nM(M.M& Init Buffer Locals)
5*.:f..D A
1,(m.m^R Diagnose)m(m.mMake Local Q-Reg).
1,(m.m^R Diagnose)m(m.mMake Local Q-Reg)?
1,(m.m^R Diagnose)m(m.mMake Local Q-Reg)!
!<!zji
> -4@v
1m(m.m& Set Mode Line)Doctor(fm(qA)@v
.-z"n0'
[0.:\u0fnzji
> 0,.@v
!<!i
-2@v
-:s
>"ej'c
q..0-?"e
zj!""!iI'll ask the questions, if you don't mind!
Now then, please tell me more about your developing mental illness.
0'
:smotherfatherbrothersister"l
zjiTell me more about your family.0'
:sdruggrasscocainedealerjunk"l
zjiAre you heavily into drugs?0'
:skilldeathrapemame"l
zjiThese are not wholesome thoughts.0'
:sclubgunknife"l
zj!""!iI don't approve of weapons.  You're sick.0'
:ssexwomenmen"l
zjiTell me more about your sex life.0'
:supsetangrydepressedannoyedexcitedworriedlonelypissedjealous"l
[0fkx0zjiAre you 0-fq0fci often?]00'
:sheadachefeversoreachehurt"l
zj!"!iMaybe you should see a doctor of medicine.  I'm just
a psychiatrist.
0'
:shihello"l
zj!"!iHi there.  What's the trouble?0'
:sbyequitexit"l
zjiSee you later.m(m.mText Mode)w0'
:syesyeahyupyepyeh"l
zjiYou seem quite affirmative.0'
:syou"l
zjiWe were discussing you!  Now please tell me about
oRandom-Topics'
:sno"l
zjiWhy not?0'
3:<fwl>"n
zj!"!iYou're being quite brief.  Please elaborate.0'
zj&7[R
&7"eiHmmm... '
qR"eiTell me more.0'qR-1uR
qR"eiGo on.0'qR-1uR
qR"eiMaybe problems as a child have something to do with this.0'qR-1uR
qR"eiTell me something about life at home.0'qR-1uR
qR"e!"!iTell me about some dream you've had recently.0'qR-1uR
qR"eiI understand.0'qR-1uR
qR"eiPlease, continue.0'qR-1uR
qR"eiI see.  Continue, ...0'qR-1uR
!"!iI'm a bit confused.  Please report this conversation to my shrink.
Bye...m(m.mText Mode)
0
!Random-Topics!
&3[R
qR"ei your sex life.0'qR-1uR
qR"ei your problems at home.0'qR-1uR
qR"ei your childhood.0'qR-1uR
qR"ei your relationships with others.0'qR-1uR
0
DOCTOR%Macros for playing doctor in Teco& Enter wierd mode ^R Insert diagnosis...DOCTOR Mode
^R Diagnose
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2