!* -*-TECO-*- !
!* [MIT-OZ]OZ:<KLOTZ>AIWEB.EMACS.2, 10-May-86 13:39:12, Written by KLOTZ!
!~FILENAME~:! !Library for looking up words in Webster's 7th online.!
WEBSTER

!& Dictionary Lookup Word:! !S Lookup the word at or near the cursor 
in Webster's 7th unabridged.  With an argument, treats the word or
words in the region as one word and performs the lookup.!

    [0
    fs^rargp"E
     !* Use this method for getting the word rather than an FW command!
     !* because the more explicit method is free from syntax table!
     !* differences and means we don't have to construct a syntax table!
     !* which would be even bigger and more ungainly than this here. !
     -@fABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-: [B
     @FABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-[E
     qB,qEx0				    !* Get the word into Q0 !
     (qB-qE)"E '		    !* but punt if it's empty. !
     '
     "#
       .,:F X0'
    f[b bind
    @FT
Looking_up_0... 0 fs echo active

    fs osteco"G :ft fzSYS:WEBSTER.EXE_0
'
    "#
    fs jname:f6[J
    ((F=Editor_TypeMAILT"'E)+(Fs Lispt))"N
      :i*NML	Does_not_work_as_inferior_to_MAIL_or_Lispfs err 0'
     :ft
     :WEBSTER_0
:JOB_J
:CONTINUE
'
    0