[0+8+FQ(+4)[1 0FO10F"G+Q1' +FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) )@)H)8) )(-)0(P(X(` (h(p!(x+)5)?)I)S"S])Pg"q$`{+3' b"V#"L, *P)X*9p-%*"{"<* (1()--=+#u//qq1W/0nYe!lbxvQ==+.w LG y ]3o3!yW = #j 7 ! ' c3 q " I DQ X?} `@ h? p?? x? A ?^ >$ >g >C (> 0>b 8> @? H?! P? X?_ `= h@ p< x=L Ae =Q <5 =4 =@ (=+ 0AC 8A @@W H@ A_ Y@m =# j@[ =^ {> @ Ak )A! =9p [B :B LB- XBC 9d 9| Aa;e :l:QCE9!Ca9Q?7O8\9u99Z{B9u<79&7077H # AP (# AP )# AP *# AP +# AP -# AP .# AP /# AP 0# AP 1# AP 2# AP 3# AP 4# AP 5# AP 6# AP 7# AP 8# AP 9# AP <# AP =# AP ># AP ?# AP B# AP J# AP M# AP N# AP P# AP Q# AP S# AP T# AP Z# AP ^?# AP ^C# AP ^J# AP ^L# AP ^M# AP ^Q# AP ^S# AP ^[# AP ^`& AP Brief& AP Display Current& AP Find AM/PM& AP Find and Flush Header& AP Find Date& AP Find DOW& AP Initial Display& AP M Aux& AP Make Macro Name& AP Mark Stories& AP Narrow Bounds& AP News& AP News Options& AP Set Global Topic& AP Setup buffer for Reading& Find End Of Block& Find Start of Block& Just One CRLF& Mail Buffer& NYT News& Previous Terminated& Read News& Setup APNEWS Library& Setup NewswireAP NewsNYT NewsRead News SummaryUppercase?^R AP News^R News Mail ^G^R NYT News~DIRECTORY~~DOC~ # AP (~DOC~ # AP )~DOC~ # AP *~DOC~ # AP +~DOC~ # AP -~DOC~ # AP .~DOC~ # AP /~DOC~ # AP 0~DOC~ # AP 1~DOC~ # AP 2~DOC~ # AP 3~DOC~ # AP 4~DOC~ # AP 5~DOC~ # AP 6~DOC~ # AP 7~DOC~ # AP 8~DOC~ # AP 9~DOC~ # AP <~DOC~ # AP =~DOC~ # AP >~DOC~ # AP ?~DOC~ # AP B~DOC~ # AP J~DOC~ # AP M~DOC~ # AP N~DOC~ # AP P~DOC~ # AP Q~DOC~ # AP S~DOC~ # AP T~DOC~ # AP Z~DOC~ # AP ^?~DOC~ # AP ^C~DOC~ # AP ^J~DOC~ # AP ^L~DOC~ # AP ^M~DOC~ # AP ^Q~DOC~ # AP ^S~DOC~ # AP ^[~DOC~ # AP ^`~DOC~ & AP Brief~DOC~ & AP Display Current~DOC~ & AP Find AM/PM~DOC~ & AP Find and Flush Header~DOC~ & AP Find Date~DOC~ & AP Find DOW~DOC~ & AP Initial Display~DOC~ & AP M Aux~DOC~ & AP Make Macro Name~DOC~ & AP Mark Stories~DOC~ & AP Narrow Bounds~DOC~ & AP News~DOC~ & AP News Options~DOC~ & AP Set Global Topic~DOC~ & AP Setup buffer for Reading~DOC~ & Find End Of Block~DOC~ & Find Start of Block~DOC~ & Just One CRLF~DOC~ & Mail Buffer~DOC~ & NYT News~DOC~ & Previous Terminated~DOC~ & Read News~DOC~ & Setup APNEWS Library~DOC~ & Setup Newswire~DOC~ AP News~DOC~ NYT News~DOC~ Read News Summary~DOC~ Uppercase?~DOC~ ^R AP News~DOC~ ^R News Mail ^G~DOC~ ^R NYT News~DOC~ ~Filename~~Filename~~INVERT~0FO..QAP ..J"e:i*M.VAP ..J' 0FO..QNews Reader Name"e:i*M.VNews Reader Name' 0:i*[5 f[dfile f[sstring [Previous Buffer QBuffer Name[4 FNM(M.MSelect Buffer)4 [0[1[2[4 1,(:i**5*)m(m.m& Find Buffer)+1"n 0FO..Q5 News Flag"eoAlready-In-Use' m(m.mSelect Buffer)*5* J' "# m(m.mSelect Buffer)*5* 1:"noNo-File' 1M.V5 News Flag q5m(m.m& AP Setup Buffer for reading) Jq5m(m.m& AP Mark Stories) et.TEMP.;DSK:*5* OUTPUT fsdfileUBuffer Filenames 0fsmodified' 1M.VAP Current Pos 0 !Already-In-Use! 0fo..q5 News Flag"e :i*C[Buffer "*5*" is already in use]fsechodisplayout!''!' "# :i*Unknown Errorfo..qAP Error Message[0 !"!:i*C[Can't hack 5 Summary: 0]fsechodisplayout' 1M.V5 News Flag 0fsechoactivew-1 !No-File! :i*News File UnavailableM.VAP Error Message :i*C[Unable to Get News File]fsechodisplayout 1M.V5 News Flag 0fsechoactivew-1 !Format-Error! :i*News File UndecipherableM.VAP Error Message :i*C[Unable to decipher newswire format]fsechodisplayout 1M.V5 News Flag 0fsechoactivew-1:I*[5 FN1J [0[1[2[3[4 m.m^R Delete Horizontal Spaceu0 j<:l.-z;m0wl> j<:s(MORE) MORE ;fkdm0> m.m^R Back To Indentationu0 j<.-Z;M0fsshpos-5"g 0l-1,0a-10"e15.i12.i'' l> m.mUppercase?u1 j jsr0,.k15.i12.i2r1u0 m.m^R Delete Horizontal Spaceu3 m.m& Just One CRu4 <0li<q0\i>15.i12.i :s;0l .u1 1:<2fwl>"n0;'q1j :l.u2q1,.:FB:"l l-1,2a-15."e q1,q2fx1 -s<s> i1fkc @m3 i  s: @m3 i  :lm4 2c0l.u1'' "# q1j:s;rfsshpos-5"g 0l@m3 .u1:lq1,.fx1 -s<s> i 1 :lm4 2c.u1'' q1j !More-Header! :s;rfsshpos-5"g loMore-Header' l-1,2a-15."eoMore-Header'"#-l' M(m.mUppercase?)"eloMore-Header' !Loop! m(m.m& Find End of Block); :s;0l 1:"n0;' fkcfsinslengthf~With"eoLoop' %0> q0M.VAP Z Arg Value fsxjname:f6[1 m(m.mRead News Summary)1 m(m.mRead News Summary)AP m(m.mRead News Summary)NYT :i*[9 m(m.m& Setup Newswire)9"n0' :i*Cfsechodisplayout q9 Date[1 fsrgetty"n @'ft 1 9 Newswire Summary. Type "?" for help. Type a Space to see the first message.!''! ]1 15: q9 ..J[..J [AP ..J :I*9[News Reader Name :iAP ..J..J :i*[MM & Set Mode Line F[SSTRING F[DFILE [Previous Buffer 0F[^RMORE QBuffer Name[4 FNM(M.MSelect Buffer)4[4 M(M.MSelect Buffer)*9* 0fsvbw0fsvz JM(M.M& AP Initial Display) FS^RMODE"N:M(M.M& AP News Options)' FS^RENTER[1 :I*Q1F[^R ENTER M(M.M& AP News Options) FS^REXIT F[^RENTER  fsrgetty"e qAP ..J[0 ft0 ' 0f[vbwfszf[vzw@v40.fsrereadwf]vzwf]vb jlm(m.m# AP S)M(M.M& AP Narrow Bounds)M(M.M& AP Set Global Topic)fr fsrgetty"n0u..h@V' [0[1 u0fq0-3"lqAP ..JU..J0' fswidth-fqAP ..J-10u1 fq0-q1"g 0,(q1-3):g0u0 q1-4:g0-."n:i*0...'"#q0''"#q0'u0 QAP ..J[1 :i..J1 0 0[0 0fsvbw0fsvz -:s:"l :i*IBS Illegal Buffer State in Buffer *AP*fserr' c1:x0 fsrgetty"n !' .-bfsvb :s"l rz-.fsvz' "#0fsvz' fq0-1:g0->"e jlsr:i00 1:@x0zj' j q0[.G33.FS^RINITU.G 0[00[10[2:i*[30[50[6 [..J -1F[NOQUIT FU0 Q0-@FEQIT"E!' q0:@FG 0fsvbw0fsvz QAP Current PosJ M(M.M& AP Display Current) >U0 -1"N' q0-1"e400000.'+100000.fsexit'[0[1 q0:i1 Q0-33"L Q0+100.U1:I1^1' Q0-127"E:I1^?' :i*# AP 1.[0.[1 <.-z;((1a-13)*(1a-10))"ed%1'"#0;'> I 2r q0,q1:s  :"lzj'"#r' .-z:s   :"lzj' "#2r' .-z 0[1 hx1 q1M(M.M& AP M Aux) M(M.M& AP Display Current) f[bbind [1 u1 g1 jiTo: fsxunamef6 qNews Reader Name[1 i Subject:In the 1 news,  g1 Date ]1 i --Text follows this line--  gAP ..J i  3j 1f f;Mail-ExitF@M(M.M^R Next Screen)@V F@M(M.M^R Previous Screen)@V M(M.M& AP Display Current)0U..HF;AP-Catch[0 FF"nu0'"#1u0' q0"l-q0:M(M.M# AP P)' 0fsvbw0fsvz q0:s:"l l.UAP Current Pos M(M.M& AP Display Current) :i*C[Stopped at End of File]fsechodisplayout:fi :i*Cfsechodisplayout' "# l.UAP Current Pos M(M.M& AP Display Current)'[0 FF"nu0'"#1u0' q0"l-q0:M(M.M# AP N)' 0fsvbw0fsvz -q0:s:"l .-b"el' .uAP Current Pos M(M.M& AP Display Current) :i*C[Stopped at Head of File]fsechodisplayout:fi :i*Cfsechodisplayout' "# .-b"el' .uAP Current Pos M(M.M& AP Display Current)'-1fsreread :FTNews Digest Reader  Cmnd: Description:  B Move to and Briefly Describe Current (or Nth) Story J Jump to First (or Nth) Message M Mail Current Story (using EMACS ^R mode) N Move to (Nth) Next Story P Move to (Nth) Previous Story Q Quit S Summarize All Stories T Display Story (for printing terminals) < or > Move to Previous or Next Page of Long Story  Return to Superior or . Redisplay current story Move to Next Story (+ Brief on Printing Terminal) Part of arg to next command Flushes any pending arg Runs a minibuffer ? or [Help] Types this info   fi[1q1- "efsrgetty"eTu1'"#14.u1''q1fsrereadw{0fsvbw0fsvz ff"e:i01' "#:\[0' J:s<0>"l m(m.m& AP Display Current)' "# :i*NSS No Such Storyfserr' :i*Cfsechodisplayout 0:i*Cfsechodisplayout 0:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500:I5500qAP Z Arg Value:\[1 :i5510@M(M.M^R Execute Minibuffer) M(M.M& AP Display Current) :i5:i*Cfsechodisplayout0fsechoactive:i5:i*Cfsechodisplayout0fsechoactive:i5:i*Cfsechodisplayout0fsechoactiveuFF"eht' 0fsvbw0fsvz j:s .uAP Current Pos M(M.M& AP Narrow Bounds)M(M.M& AP Set Global Topic) ht-1,1a-32"et' "#:ls0tt'FF"ejfsrgetty"e!'M(M.M& AP Brief)' 0fsvb0fsvz F[0 q0"lft  -q0u0' jq0:s:"l:i*NSS No Such Storyfserr' .uAP Current Pos M(M.M& AP Narrow Bounds)M(M.M& AP Set Global Topic) jM(M.M& AP Brief)-1fsreread 0f[vb0f[vz .f([9)uAP Current Pos 0j .[1 :ftSummary of Latest News...   <:s;.u1!q1,.t M(M.M& AP Brief)q1j > q9j ]1]9wf]vzwf]vb M(M.M& AP Narrow Bounds)M(M.M& AP Set Global Topic) fi[1q1- "efsrgetty"eTu1'"#14.u1''q1fsrereadwM(M.M& AP Display Current)100000.fsexit M(M.M& AP Display Current)0fsvbw0fsvz :s"l .UAP Current Pos M(M.M& AP Narrow Bounds)M(M.M& AP Set Global Topic) Jfsrgetty"nm(m.m& AP Display Current)' "#M(M.M& AP Brief)'' "# .UAP Current Pos M(M.M& AP Narrow Bounds)M(M.M& AP Set Global Topic) :i*C[End of File]fsechodisplayout:fi :i*Cfsechodisplayout'[0 1f[bothcase [1[2[3 m(m.m& AP Find AM/PM)u1 m(m.m& AP Find DOW)u2 m(m.m& AP Find Date)u3 m(m.m& AP Find and Flush header) q3M.V0 Date :i*[0 News Digest: 21]M.V0 ..Jj:sAM-NewsAM NewsA.M. NewsA.M.-NewsDAY AMs"l:i* Morning' j:sPM-NewsPM NewsP.M. NewsP.M.-NewsDAY PMs"l:i* Evening' :i*'[1 j:s Date: "l <:s Date: ;> 2fwfx1q1' j:sJanFebMarAprMayJunJulAugSepOctNovDec"l r-fwfx1 .[2 -fwl 1a:"dq2jg1oDate-Unknown' i r-@fwfx1 q1' !Date-Unknown! :i*Undatedj:sDAY s"lfkc-fwl[1fwx1q1' j:sSummary for "l[1fwx1 f~1Sunday"eq1' f~1Monday"eq1' f~1Tuesday"eq1' f~1Wednesday"eq1' f~1Thursday"eq1' f~1Friday"eq1' f~1Saturday"eq1'' :i*Undatedj<:s;-d> [0 j<:s*****XXXXX; -l.u0 :s "l0lq0,.k15.i12.i' "#q0,zkw0;' > ]0 j:sdesk supervisor(212) here arestories"l oReady' :sDAY s"l 3loReady' :sAP NEWS DIGEST"l 5loReady' :s c.19 c. 19"l 2l0,.k' :s: "l.-250"l 0,.k' "#j'' s   0,.k !Ready! 1m(m.m^R Forward Paragraph) lb,.k[1 -1,1a"b-1' <-1,1au1q1"b0;'q1"d2'q1-140."g1'c> 0.:\[0fn0j 0l."e-2' -lm(m.m^R Back to Indentation) -1,1a-"e2' 1:"n-3' .u0 :l-1,0a-."e0' !"!-1,0a-'"e0' :l1:<-fwl> .-q0"g1' 0Q..O[1F[BBINDG1 J1F[Bothcase:S --Text follows this line--"L @F  L 1A-15."EOWin'' :I*No text, just headerFSERR !Win! [2[30[4[5 0LFSZ-.F[VZ J<.-Z; 1af  +1"gl!' :fb:"lr-@f  k 0@fcl!' 1A-15."EL!' :I*Garbage in message headerFSERR > JI J ' -D:I20FF~TO"N0X2 :I2 (R-OPTION 2)' 0K <:FB@ ;-D>0L <@f  k S,  FKDFKU3 0,1af  +1"g-1u3' 0F"E-2-Q3;!' .-ZU50LITO:1A-("EQ5+ZJ' "#I(1AF"[!'!"L .,Q5+Z:FB "L 0L4CI"Q5+ZJ.,(0l.(q5+zj)):FB@WI"!''!'' Q5+ZJI)' %4 I FQ2"N-S)G2L' :0L0A-)"NI )-2S)F 'L -2-Q3;> :0L> Q4"E:I*No RecipientsFSERR' J:S FROM:"EI CLAIMED-FROM:FSXUNAMEF6I '"# CLAIMED-FROM:' J:S H:"L HEADER-FORCE:@FC' J:S S:"L SUBJECT:' J:S R:"L REGISTERED:@FC' j2f= "e2d' JIFROM-JOB:FSXJNAMEF6I SENT-BY:FSUNAMEF6I  ZJITEXT;-1  F]VZK F[DFILEETDSK:.MAIL.;MAIL > FSMACHINE-(F6DM)"EETAI:' E\FNE^ EIHPEF APNEWSMacros for reading AP NewswireS Just get us ready to gooS This initializes the newswire buffer It takes a string arg saying what news wire to use. The string should be the second filename to look for (eg, AP or NYT). The macro will know the rest of info on canonical place to find stuff.S Put ^_ before each story. Between the angle brackets after the ^_ is the story number S Read News according to XJname S Read the AP NewswireS Read the New York Times summaryS Driver ProgramS Do initial displayS Show this message S Set up a global topic if any S Narrow Buffer Bounds to only current storyS Get the commands and do themS Get name of AP Macro associated with this char S Delete surrounding CRs or LFs, leaving one CRLF S Skip to top of next textual block A top of block is a non-null line. Returns -number of characters from end of file. (Thus, 0 = Eof) S Skip to end of next textual block An end of block for this macro is defined as being either the next sequence of two contiguous carriage returns following text or else end of file after text. Returns -number of chars from end of file. (Thus, 0 = Eof) S Mail current story to a userS Needed to help out the AP M command^R Exit from News Mail command without sendingS Move to next screenfulS Move to previous screenfulS Don't do anything. Just let redisplay happen S Exit AP NewsS Move to next storyS Move to next storyS HelpS Jump to random storyS Ignore this command - VT52s are prone to send these accidentallyS Ignore this command - VT52s are prone to send these accidentallyS Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command S Argument to next command - number of messages in buffer S (Altmode) Run a minibuffer S Flush argument to next commandS Flush argument to next commandS Flush argument to next commandS Print if on a printing ttyS Brief about the current storyS Brief about the Nth storiesS Summarize all storiesS Display current messageS Return to SuperiorS Move to next and brief S Parse the buffer into readable form.S Return a string like Morning or Evening describing timeS Find the date if any on the news wire.S Search for Day of week and return it if foundS Search for intro paragraph and flush it.S Return 0 if at begging of an all-caps wordS Previous line had a sentence terminationS Mail message as specified by buffer contents. Buffer should contain header information followed by a line containing "--Text follows this line--", followed by the text. Header info is as described in .MAIL.;MAILRQ INFO except that To: allows several recipients separated by commas, and Cc: is allowed. Also, use From: to say who you are.p& Setup APNEWS Library & Setup Newswire & AP Mark Stories & Read News AP News & AP News ^R AP News NYT News & NYT News ^R NYT News Read News Summary & AP Initial Display & AP Display Current & AP Set Global Topic & AP Narrow Bounds & AP News Options & AP Make Macro Name & Just One CRLF & Find Start of Block & Find End Of Block # AP M & AP M Aux ^R News Mail ^G # AP > # AP < # AP ^L # AP Q # AP N # AP P # AP ? # AP J # AP ^Q # AP ^S # AP 0 # AP 1 # AP 2 # AP 3 # AP 4 # AP 5 # AP 6 # AP 7 # AP 8 # AP 9 # AP + # AP - # AP / # AP * # AP ( # AP ) # AP = # AP Z # AP ^[ # AP ^M # AP ^J # AP ^? # AP T & AP Brief # AP B # AP S # AP . # AP ^C # AP ^` & AP Setup buffer for Reading & AP Find AM/PM & AP Find Date & AP Find DOW & AP Find and Flush Header Uppercase? & Previous Terminated & Mail Buffer +8+fq(+4)[20[3 <%3,-q2f2u3q3&1@;q3"l0'> f[BBindq3-1*5,q3*5g2q:..o(0)+q2