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
0FO1 0F"G+Q1 '
+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
Y , o 4 f ; * C M X b z i 9 DOCTOR Mode ^R Diagnose ~DIRECTORY~ ~DOC~ DOCTOR Mode ~DOC~ ^R Diagnose ~DOC~ ~Filename~ ~Filename~
~INVERT~n M(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
[0fk x0zjiAre you 0-fq0 fci 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