This item is
Attribution-NonCommercial-ShareAlike 3.0 Unported (CC BY-NC-SA 3.0)
Publicly Available
and licensed under:Attribution-NonCommercial-ShareAlike 3.0 Unported (CC BY-NC-SA 3.0)
Files for this item
Download all local files for this item (909.62 KB)
- Name
- northpers-0014.txt
- Size
- 905.88 KB
- Format
- Text file
- Description
- Version of the work in plain text format
PAGE 1
2 LOS = "'abcdefghijklmnopqrstuvwxyz"
3 PUNCTS = ' .,?;:-)]"!' "'"
4 &TRIM = &ANCHOR = 1
* &TRACE = 50 ; TRACE(.S1); TRACE(.S2); TRACE(.S1A)
5 HPAT = RTAB(1) . S1 '-' ; LPAT1 = NOTANY(LOS)
7 LPAT2 = ( SPAN(LOS) SPAN(PUNCTS) ) . S1A
*
8 S1 = INPUT :F(NO_INPUT)
9 LN = 1
10 S2 S2 = INPUT :F(E_O_I)
11 LN = LN + 1
12 REVERSE(S1) '-' NOTANY('-') :F(NO_HYPHEN)
13 S1 HPAT :F(NO_HYPHEN)
14 S2 LPAT1 :S(MISTAKE)
15 S2 LPAT2 = :F(ERROR)
16 S1 = S1 S1A
17 TERMINAL = LN ' : ' S1
18 NO_HYPHEN
19 OUTPUT = S1 ; S1 = S2 :(S2)
21 MISTAKE S1 = S1 '-' :(NO_HYPHEN)
22 NO_INPUT TERMINAL = OUTPUT = "NO INPUT FILE SUPPLIED" :(END)
23 ERROR TERMINAL = OUTPUT = "SOMETHING WRONG AT LINE " LN ; &DUMP = 1
25 E_O_I TERMINAL = LN ' LINES PROCESSED '
26 END
<T NORTHANGER ABBEY><V I><C I>
No one who had ever seen Catherine Morland in her infancy,
would have supposed her born to be . . .
