ProfitPress Mega CDROM2 Shareware Freeware (MSDOS)(1992)(Eng)

home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / XLSP21TC.ZIP / XL-002.BUG < prev next >
Mailbox/MIME Entity | 1991-04-14 | 8.7 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: Mailbox/MIME Entity (archive/mbox).

You can browse this item here: XL-002.BUG
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Mailbox/MIME Entity `(archive/mbox)`	magic	Supported
`100%`	dexvert	Internet Message Format `(text/imf)`	magic	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	Mailbox text, 1st line "From sce!mitel!uunet!cs.utexas.edu!tut.cis.ohio-state.edu!unmvax!ogccse!blake!uw-beaver!tektronix!zephyr.ens.tek.com!tekcrl!tek", ASCII text, with CRLF line terminators	default
`100%`	TrID	E-Mail message (Var. 2)	default
`100%`	checkBytes	Printable ASCII	default
`100%`	perlTextCheck	Likely Text (Perl)	default
`100%`	siegfried	x-fmt/111 Plain Text File	default
`100%`	detectItEasy	Format: plain text[CRLF]	default (weak)
`100%`	xdgMime	application/mbox	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 73 63 65 | 21 6d 69 74 65 6c 21 75 |From sce|!mitel!u|
|00000010| 75 6e 65 74 21 63 73 2e | 75 74 65 78 61 73 2e 65 |unet!cs.|utexas.e|
|00000020| 64 75 21 74 75 74 2e 63 | 69 73 2e 6f 68 69 6f 2d |du!tut.c|is.ohio-|
|00000030| 73 74 61 74 65 2e 65 64 | 75 21 75 6e 6d 76 61 78 |state.ed|u!unmvax|
|00000040| 21 6f 67 63 63 73 65 21 | 62 6c 61 6b 65 21 75 77 |!ogccse!|blake!uw|
|00000050| 2d 62 65 61 76 65 72 21 | 74 65 6b 74 72 6f 6e 69 |-beaver!|tektroni|
|00000060| 78 21 7a 65 70 68 79 72 | 2e 65 6e 73 2e 74 65 6b |x!zephyr|.ens.tek|
|00000070| 2e 63 6f 6d 21 74 65 6b | 63 72 6c 21 74 65 6b 67 |.com!tek|crl!tekg|
|00000080| 76 73 21 74 6f 6d 61 20 | 54 75 65 20 41 75 67 20 |vs!toma |Tue Aug |
|00000090| 32 39 20 30 38 3a 34 32 | 3a 33 34 20 45 44 54 20 |29 08:42|:34 EDT |
|000000a0| 31 39 38 39 0d 0a 41 72 | 74 69 63 6c 65 3a 20 31 |1989..Ar|ticle: 1|
|000000b0| 33 39 20 6f 66 20 63 6f | 6d 70 2e 6c 61 6e 67 2e |39 of co|mp.lang.|
|000000c0| 6c 69 73 70 2e 78 0d 0a | 50 61 74 68 3a 20 63 6f |lisp.x..|Path: co|
|000000d0| 67 6e 6f 73 21 73 63 65 | 21 6d 69 74 65 6c 21 75 |gnos!sce|!mitel!u|
|000000e0| 75 6e 65 74 21 63 73 2e | 75 74 65 78 61 73 2e 65 |unet!cs.|utexas.e|
|000000f0| 64 75 21 74 75 74 2e 63 | 69 73 2e 6f 68 69 6f 2d |du!tut.c|is.ohio-|
|00000100| 73 74 61 74 65 2e 65 64 | 75 21 75 6e 6d 76 61 78 |state.ed|u!unmvax|
|00000110| 21 6f 67 63 63 73 65 21 | 62 6c 61 6b 65 21 75 77 |!ogccse!|blake!uw|
|00000120| 2d 62 65 61 76 65 72 21 | 74 65 6b 74 72 6f 6e 69 |-beaver!|tektroni|
|00000130| 78 21 7a 65 70 68 79 72 | 2e 65 6e 73 2e 74 65 6b |x!zephyr|.ens.tek|
|00000140| 2e 63 6f 6d 21 74 65 6b | 63 72 6c 21 74 65 6b 67 |.com!tek|crl!tekg|
|00000150| 76 73 21 74 6f 6d 61 0d | 0a 46 72 6f 6d 3a 20 74 |vs!toma.|.From: t|
|00000160| 6f 6d 61 40 74 65 6b 67 | 76 73 2e 4c 41 42 53 2e |oma@tekg|vs.LABS.|
|00000170| 54 45 4b 2e 43 4f 4d 20 | 28 54 6f 6d 20 41 6c 6d |TEK.COM |(Tom Alm|
|00000180| 79 29 0d 0a 4e 65 77 73 | 67 72 6f 75 70 73 3a 20 |y)..News|groups: |
|00000190| 63 6f 6d 70 2e 6c 61 6e | 67 2e 6c 69 73 70 2e 78 |comp.lan|g.lisp.x|
|000001a0| 0d 0a 53 75 62 6a 65 63 | 74 3a 20 53 6f 6d 65 20 |..Subjec|t: Some |
|000001b0| 58 6c 69 73 70 20 32 2e | 30 20 72 65 61 64 2f 70 |Xlisp 2.|0 read/p|
|000001c0| 72 69 6e 74 20 62 75 67 | 73 0d 0a 4d 65 73 73 61 |rint bug|s..Messa|
|000001d0| 67 65 2d 49 44 3a 20 3c | 35 38 31 38 40 74 65 6b |ge-ID: <|5818@tek|
|000001e0| 67 76 73 2e 4c 41 42 53 | 2e 54 45 4b 2e 43 4f 4d |gvs.LABS|.TEK.COM|
|000001f0| 3e 0d 0a 44 61 74 65 3a | 20 32 34 20 41 75 67 20 |>..Date:| 24 Aug |
|00000200| 38 39 20 31 35 3a 34 34 | 3a 33 30 20 47 4d 54 0d |89 15:44|:30 GMT.|
|00000210| 0a 52 65 70 6c 79 2d 54 | 6f 3a 20 74 6f 6d 61 40 |.Reply-T|o: toma@|
|00000220| 74 65 6b 67 76 73 2e 4c | 41 42 53 2e 54 45 4b 2e |tekgvs.L|ABS.TEK.|
|00000230| 43 4f 4d 20 28 54 6f 6d | 20 41 6c 6d 79 29 0d 0a |COM (Tom| Almy)..|
|00000240| 4f 72 67 61 6e 69 7a 61 | 74 69 6f 6e 3a 20 54 65 |Organiza|tion: Te|
|00000250| 6b 74 72 6f 6e 69 78 2c | 20 49 6e 63 2e 2c 20 42 |ktronix,| Inc., B|
|00000260| 65 61 76 65 72 74 6f 6e | 2c 20 20 4f 52 2e 0d 0a |eaverton|,  OR...|
|00000270| 4c 69 6e 65 73 3a 20 32 | 36 32 0d 0a 50 6f 73 74 |Lines: 2|62..Post|
|00000280| 65 64 3a 20 54 68 75 20 | 41 75 67 20 32 34 20 30 |ed: Thu |Aug 24 0|
|00000290| 38 3a 34 34 3a 33 30 20 | 31 39 38 39 0d 0a 0d 0a |8:44:30 |1989....|
|000002a0| 49 20 64 69 73 63 6f 76 | 65 72 65 64 20 74 68 65 |I discov|ered the|
|000002b0| 73 65 20 70 72 6f 62 6c | 65 6d 73 20 77 69 74 68 |se probl|ems with|
|000002c0| 20 63 68 61 72 61 63 74 | 65 72 73 2c 20 73 74 72 | charact|ers, str|
|000002d0| 69 6e 67 73 2c 20 61 6e | 64 20 73 79 6d 62 6f 6c |ings, an|d symbol|
|000002e0| 73 20 77 68 69 6c 65 20 | 0d 0a 77 6f 72 6b 69 6e |s while |..workin|
|000002f0| 67 20 6f 6e 20 73 6f 6d | 65 20 43 6f 6d 6d 6f 6e |g on som|e Common|
|00000300| 20 4c 69 73 70 2d 6c 69 | 6b 65 20 65 6e 68 61 6e | Lisp-li|ke enhan|
|00000310| 63 65 6d 65 6e 74 73 2e | 0d 0a 0d 0a 28 49 20 77 |cements.|....(I w|
|00000320| 69 6c 6c 20 70 6f 73 74 | 20 74 68 65 20 65 6e 68 |ill post| the enh|
|00000330| 61 6e 63 65 6d 65 6e 74 | 73 20 77 68 65 6e 20 66 |ancement|s when f|
|00000340| 69 6e 69 73 68 65 64 2e | 20 20 54 68 65 73 65 20 |inished.|  These |
|00000350| 69 6e 63 6c 75 64 65 20 | 43 4f 45 52 43 45 2c 20 |include |COERCE, |
|00000360| 0d 0a 43 4f 4e 43 41 54 | 45 4e 41 54 45 2c 20 61 |..CONCAT|ENATE, a|
|00000370| 6e 64 20 65 6e 68 61 6e | 63 65 6d 65 6e 74 73 20 |nd enhan|cements |
|00000380| 74 6f 20 66 75 6e 63 74 | 69 6f 6e 73 20 74 68 61 |to funct|ions tha|
|00000390| 74 20 43 4c 20 73 74 61 | 74 65 73 20 74 61 6b 65 |t CL sta|tes take|
|000003a0| 20 73 65 71 75 65 6e 63 | 65 0d 0a 61 72 67 75 6d | sequenc|e..argum|
|000003b0| 65 6e 74 73 20 28 6c 69 | 73 74 73 2c 20 61 72 72 |ents (li|sts, arr|
|000003c0| 61 79 73 2c 20 6f 72 20 | 73 74 72 69 6e 67 73 20 |ays, or |strings |
|000003d0| 69 6e 20 58 4c 49 53 50 | 20 63 61 73 65 29 20 77 |in XLISP| case) w|
|000003e0| 68 69 63 68 20 58 4c 49 | 53 50 20 69 6d 70 6c 65 |hich XLI|SP imple|
|000003f0| 6d 65 6e 74 73 0d 0a 74 | 79 70 69 63 61 6c 6c 79 |ments..t|ypically|
|00000400| 20 6f 6e 6c 79 20 66 6f | 72 20 6c 69 73 74 73 20 | only fo|r lists |
|00000410| 28 65 78 63 65 70 74 20 | 66 6f 72 20 53 55 42 53 |(except |for SUBS|
|00000420| 45 51 20 77 68 69 63 68 | 20 6f 6e 6c 79 20 77 6f |EQ which| only wo|
|00000430| 72 6b 73 20 6f 6e 20 73 | 74 72 69 6e 67 73 29 2e |rks on s|trings).|
|00000440| 0d 0a 0d 0a 0d 0a 50 72 | 6f 62 6c 65 6d 3a 20 55 |......Pr|oblem: U|
|00000450| 6e 69 6e 74 65 72 6e 65 | 64 20 73 79 6d 62 6f 6c |ninterne|d symbol|
|00000460| 73 20 64 6f 20 6e 6f 74 | 20 70 72 69 6e 74 20 77 |s do not| print w|
|00000470| 69 74 68 20 6c 65 61 64 | 69 6e 67 20 23 3a 0d 0a |ith lead|ing #:..|
|00000480| 45 78 61 6d 70 6c 65 3a | 20 28 47 45 4e 53 59 4d |Example:| (GENSYM|
|00000490| 29 0d 0a 46 69 78 3a 0d | 0a 0d 0a 31 29 20 41 74 |)..Fix:.|...1) At|
|000004a0| 20 74 68 65 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | the beg|inning o|
|000004b0| 66 20 78 6c 70 72 69 6e | 74 2c 20 72 65 70 6c 61 |f xlprin|t, repla|
|000004c0| 63 65 20 74 68 65 20 63 | 6f 64 65 20 74 6f 20 70 |ce the c|ode to p|
|000004d0| 72 69 6e 74 20 4e 49 4c | 20 77 69 74 68 3a 0d 0a |rint NIL| with:..|
|000004e0| 0d 0a 20 20 20 20 2f 2a | 20 70 72 69 6e 74 20 6e |..    /*| print n|
|000004f0| 69 6c 20 2a 2f 0d 0a 20 | 20 20 20 69 66 20 28 76 |il */.. |   if (v|
|00000500| 70 74 72 20 3d 3d 20 4e | 49 4c 29 20 7b 0d 0a 20 |ptr == N|IL) {.. |
|00000510| 20 20 20 20 20 20 20 78 | 6c 70 75 74 73 74 72 28 |       x|lputstr(|
|00000520| 66 70 74 72 2c 0d 0a 20 | 20 20 20 20 20 20 20 20 |fptr,.. |        |
|00000530| 20 20 20 28 28 28 21 66 | 6c 61 67 29 20 7c 7c 20 |   (((!f|lag) || |
|00000540| 28 67 65 74 76 61 6c 75 | 65 28 73 5f 70 72 69 6e |(getvalu|e(s_prin|
|00000550| 74 63 61 73 65 29 20 21 | 3d 20 6b 5f 64 6f 77 6e |tcase) !|= k_down|
|00000560| 63 61 73 65 29 29 3f 22 | 4e 49 4c 22 3a 22 6e 69 |case))?"|NIL":"ni|
|00000570| 6c 22 29 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 72 |l"));.. |       r|
|00000580| 65 74 75 72 6e 3b 0d 0a | 20 20 20 20 7d 0d 0a 0d |eturn;..|    }...|
|00000590| 0a 32 29 20 49 6e 20 70 | 75 74 73 79 6d 62 6f 6c |.2) In p|utsymbol|
|000005a0| 2c 20 61 64 64 20 74 68 | 65 73 65 20 64 65 63 6c |, add th|ese decl|
|000005b0| 61 72 61 74 69 6f 6e 73 | 3a 0d 0a 0d 0a 20 20 20 |arations|:....   |
|000005c0| 20 69 6e 74 20 69 3b 0d | 0a 20 20 20 20 4c 56 41 | int i;.|.    LVA|
|000005d0| 4c 20 73 79 6d 2c 61 72 | 72 61 79 3b 0d 0a 0d 0a |L sym,ar|ray;....|
|000005e0| 33 3e 20 49 6e 20 70 75 | 74 73 79 6d 62 6f 6c 2c |3> In pu|tsymbol,|
|000005f0| 20 61 64 64 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 | add the| followi|
|00000600| 6e 67 20 2a 61 66 74 65 | 72 2a 20 74 68 65 20 63 |ng *afte|r* the c|
|00000610| 6f 64 65 20 73 65 63 74 | 69 6f 6e 20 74 69 74 6c |ode sect|ion titl|
|00000620| 65 64 20 22 63 68 65 63 | 6b 0d 0a 20 20 20 66 6f |ed "chec|k..   fo|
|00000630| 72 20 70 72 69 6e 74 69 | 6e 67 20 77 69 74 68 6f |r printi|ng witho|
|00000640| 75 74 20 65 73 63 61 70 | 65 73 22 3a 0d 0a 0d 0a |ut escap|es":....|
|00000650| 20 20 20 20 2f 2a 20 63 | 68 65 63 6b 20 66 6f 72 |    /* c|heck for|
|00000660| 20 75 6e 69 6e 74 65 72 | 6e 65 64 20 73 79 6d 62 | uninter|ned symb|
|00000670| 6f 6c 20 2a 2f 0d 0a 20 | 20 20 20 69 20 3d 20 68 |ol */.. |   i = h|
|00000680| 61 73 68 28 73 74 72 2c | 48 53 49 5a 45 29 3b 0d |ash(str,|HSIZE);.|
|00000690| 0a 20 20 20 20 61 72 72 | 61 79 20 3d 20 67 65 74 |.    arr|ay = get|
|000006a0| 76 61 6c 75 65 28 6f 62 | 61 72 72 61 79 29 3b 0d |value(ob|array);.|
|000006b0| 0a 20 20 20 20 66 6f 72 | 20 28 73 79 6d 20 3d 20 |.    for| (sym = |
|000006c0| 67 65 74 65 6c 65 6d 65 | 6e 74 28 61 72 72 61 79 |geteleme|nt(array|
|000006d0| 2c 69 29 3b 73 79 6d 3b | 20 73 79 6d 20 3d 20 63 |,i);sym;| sym = c|
|000006e0| 64 72 28 73 79 6d 29 29 | 0d 0a 20 20 20 20 20 20 |dr(sym))|..      |
|000006f0| 20 20 69 66 20 28 73 74 | 72 63 6d 70 28 73 74 72 |  if (st|rcmp(str|
|00000700| 2c 28 63 68 61 72 2a 29 | 67 65 74 73 74 72 69 6e |,(char*)|getstrin|
|00000710| 67 28 67 65 74 70 6e 61 | 6d 65 28 63 61 72 28 73 |g(getpna|me(car(s|
|00000720| 79 6d 29 29 29 29 20 3d | 3d 20 30 29 0d 0a 20 20 |ym)))) =|= 0)..  |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 67 6f 74 6f 20 69 |        |  goto i|
|00000740| 6e 74 65 72 6e 65 64 53 | 79 6d 62 6f 6c 3b 0d 0a |nternedS|ymbol;..|
|00000750| 20 20 20 20 0d 0a 20 20 | 20 20 78 6c 70 75 74 63 |    ..  |  xlputc|
|00000760| 28 66 70 74 72 2c 27 23 | 27 29 3b 20 20 20 2f 2a |(fptr,'#|');   /*|
|00000770| 20 69 6e 64 69 63 61 74 | 65 20 75 6e 69 6e 74 65 | indicat|e uninte|
|00000780| 72 6e 65 64 20 2a 2f 0d | 0a 20 20 20 20 78 6c 70 |rned */.|.    xlp|
|00000790| 75 74 63 28 66 70 74 72 | 2c 27 3a 27 29 3b 0d 0a |utc(fptr|,':');..|
|000007a0| 0d 0a 69 6e 74 65 72 6e | 65 64 53 79 6d 62 6f 6c |..intern|edSymbol|
|000007b0| 3a 20 20 20 20 20 20 20 | 20 20 2f 2a 20 73 6f 72 |:       |  /* sor|
|000007c0| 72 79 20 61 62 6f 75 74 | 20 74 68 65 20 22 67 6f |ry about| the "go|
|000007d0| 74 6f 22 20 2a 2f 0d 0a | 0d 0a 0d 0a 2a 2a 2a 2a |to" */..|....****|
|000007e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00000820| 0a 0d 0a 50 72 6f 62 6c | 65 6d 3a 20 73 74 72 69 |...Probl|em: stri|
|00000830| 6e 67 73 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 6e |ngs cont|aining n|
|00000840| 75 6c 6c 73 20 63 61 6e | 6e 6f 74 20 62 65 20 72 |ulls can|not be r|
|00000850| 65 61 64 20 6f 72 20 70 | 72 69 6e 74 65 64 2e 0d |ead or p|rinted..|
|00000860| 0a 28 4e 6f 74 65 2c 20 | 73 74 72 63 61 74 20 68 |.(Note, |strcat h|
|00000870| 61 73 20 74 68 65 20 73 | 61 6d 65 20 70 72 6f 62 |as the s|ame prob|
|00000880| 6c 65 6d 2c 20 62 75 74 | 20 49 20 68 61 76 65 20 |lem, but| I have |
|00000890| 61 20 6e 65 77 20 76 65 | 72 73 69 6f 6e 2c 20 74 |a new ve|rsion, t|
|000008a0| 68 65 0d 0a 20 43 6f 6d | 6d 6f 6e 20 4c 69 73 70 |he.. Com|mon Lisp|
|000008b0| 20 43 4f 4e 43 41 54 45 | 4e 41 54 45 20 66 75 6e | CONCATE|NATE fun|
|000008c0| 63 74 69 6f 6e 2c 20 77 | 68 69 63 68 20 77 69 6c |ction, w|hich wil|
|000008d0| 6c 20 72 65 70 6c 61 63 | 65 20 69 74 2e 0d 0a 0d |l replac|e it....|
|000008e0| 0a 0d 0a 45 78 61 6d 70 | 6c 65 3a 20 45 6e 74 65 |...Examp|le: Ente|
|000008f0| 72 20 22 41 20 73 74 72 | 69 6e 67 5c 30 30 30 77 |r "A str|ing\000w|
|00000900| 69 6c 6c 20 66 6f 72 67 | 65 74 20 74 68 65 73 65 |ill forg|et these|
|00000910| 22 0d 0a 0d 0a 46 69 78 | 3a 20 0d 0a 0d 0a 31 29 |"....Fix|: ....1)|
|00000920| 20 49 6e 20 72 6d 64 71 | 75 6f 74 65 20 63 68 61 | In rmdq|uote cha|
|00000930| 6e 67 65 20 73 65 63 74 | 69 6f 6e 20 22 63 68 65 |nge sect|ion "che|
|00000940| 63 6b 20 66 6f 72 20 62 | 75 66 66 65 72 20 6f 76 |ck for b|uffer ov|
|00000950| 65 72 66 6c 6f 77 22 20 | 74 6f 3a 0d 0a 0d 0a 20 |erflow" |to:.... |
|00000960| 20 20 20 69 66 20 28 62 | 6c 65 6e 20 3e 3d 20 53 |   if (b|len >= S|
|00000970| 54 52 4d 41 58 29 20 7b | 0d 0a 20 20 20 20 20 20 |TRMAX) {|..      |
|00000980| 20 20 6e 65 77 73 74 72 | 20 3d 20 6e 65 77 73 74 |  newstr| = newst|
|00000990| 72 69 6e 67 28 6c 65 6e | 20 2b 20 53 54 52 4d 41 |ring(len| + STRMA|
|000009a0| 58 20 2b 20 31 29 3b 0d | 0a 20 20 20 20 20 20 20 |X + 1);.|.       |
|000009b0| 20 73 70 74 72 20 3d 20 | 67 65 74 73 74 72 69 6e | sptr = |getstrin|
|000009c0| 67 28 6e 65 77 73 74 72 | 29 3b 20 0d 0a 20 20 20 |g(newstr|); ..   |
|000009d0| 20 20 20 20 20 69 66 20 | 28 73 74 72 29 20 6d 65 |     if |(str) me|
|000009e0| 6d 63 70 79 28 28 63 68 | 61 72 20 2a 29 73 70 74 |mcpy((ch|ar *)spt|
|000009f0| 72 2c 28 63 68 61 72 20 | 2a 29 67 65 74 73 74 72 |r,(char |*)getstr|
|00000a00| 69 6e 67 28 73 74 72 29 | 2c 6c 65 6e 29 3b 0d 0a |ing(str)|,len);..|
|00000a10| 20 20 20 20 20 20 20 20 | 2a 70 20 3d 20 27 5c 30 |        |*p = '\0|
|00000a20| 27 3b 20 0d 0a 20 20 20 | 20 20 20 20 20 6d 65 6d |'; ..   |     mem|
|00000a30| 63 70 79 28 28 63 68 61 | 72 20 2a 29 73 70 74 72 |cpy((cha|r *)sptr|
|00000a40| 2b 6c 65 6e 2c 28 63 68 | 61 72 20 2a 29 62 75 66 |+len,(ch|ar *)buf|
|00000a50| 2c 62 6c 65 6e 2b 31 29 | 3b 0d 0a 20 20 20 20 20 |,blen+1)|;..     |
|00000a60| 20 20 20 70 20 3d 20 62 | 75 66 3b 20 0d 0a 20 20 |   p = b|uf; ..  |
|00000a70| 20 20 20 20 20 20 62 6c | 65 6e 20 3d 20 30 3b 0d |      bl|en = 0;.|
|00000a80| 0a 20 20 20 20 20 20 20 | 20 6c 65 6e 20 2b 3d 20 |.       | len += |
|00000a90| 53 54 52 4d 41 58 3b 0d | 0a 20 20 20 20 20 20 20 |STRMAX;.|.       |
|00000aa0| 20 73 74 72 20 3d 20 6e | 65 77 73 74 72 3b 0d 0a | str = n|ewstr;..|
|00000ab0| 20 20 20 20 7d 0d 0a 0d | 0a 32 29 20 49 6e 20 72 |    }...|.2) In r|
|00000ac0| 6d 64 71 75 6f 74 65 2c | 20 63 68 61 6e 67 65 20 |mdquote,| change |
|00000ad0| 73 65 63 74 69 6f 6e 20 | 22 61 70 70 65 6e 64 20 |section |"append |
|00000ae0| 74 68 65 20 6c 61 73 74 | 20 73 75 62 73 74 72 69 |the last| substri|
|00000af0| 6e 67 22 20 74 6f 3a 0d | 0a 0d 0a 20 20 20 20 69 |ng" to:.|...    i|
|00000b00| 66 20 28 73 74 72 20 3d | 3d 20 4e 49 4c 20 7c 7c |f (str =|= NIL |||
|00000b10| 20 62 6c 65 6e 29 20 7b | 0d 0a 20 20 20 20 20 20 | blen) {|..      |
|00000b20| 20 20 6e 65 77 73 74 72 | 20 3d 20 6e 65 77 73 74 |  newstr| = newst|
|00000b30| 72 69 6e 67 28 6c 65 6e | 20 2b 20 62 6c 65 6e 20 |ring(len| + blen |
|00000b40| 2b 20 31 29 3b 0d 0a 20 | 20 20 20 20 20 20 20 73 |+ 1);.. |       s|
|00000b50| 70 74 72 20 3d 20 67 65 | 74 73 74 72 69 6e 67 28 |ptr = ge|tstring(|
|00000b60| 6e 65 77 73 74 72 29 3b | 0d 0a 20 20 20 20 20 20 |newstr);|..      |
|00000b70| 20 20 69 66 20 28 73 74 | 72 29 20 6d 65 6d 63 70 |  if (st|r) memcp|
|00000b80| 79 28 28 63 68 61 72 20 | 2a 29 73 70 74 72 2c 28 |y((char |*)sptr,(|
|00000b90| 63 68 61 72 20 2a 29 67 | 65 74 73 74 72 69 6e 67 |char *)g|etstring|
|00000ba0| 28 73 74 72 29 2c 6c 65 | 6e 29 3b 0d 0a 20 20 20 |(str),le|n);..   |
|00000bb0| 20 20 20 20 20 2a 70 20 | 3d 20 27 5c 30 27 3b 20 |     *p |= '\0'; |
|00000bc0| 0d 0a 20 20 20 20 20 20 | 20 20 6d 65 6d 63 70 79 |..      |  memcpy|
|00000bd0| 28 28 63 68 61 72 20 2a | 29 73 70 74 72 2b 6c 65 |((char *|)sptr+le|
|00000be0| 6e 2c 28 63 68 61 72 20 | 2a 29 62 75 66 2c 62 6c |n,(char |*)buf,bl|
|00000bf0| 65 6e 2b 31 29 3b 0d 0a | 20 20 20 20 20 20 20 20 |en+1);..|        |
|00000c00| 73 74 72 20 3d 20 6e 65 | 77 73 74 72 3b 0d 0a 20 |str = ne|wstr;.. |
|00000c10| 20 20 20 7d 0d 0a 0d 0a | 33 29 20 4e 65 77 20 76 |   }....|3) New v|
|00000c20| 65 72 73 69 6f 6e 73 20 | 6f 66 20 70 75 74 73 74 |ersions |of putst|
|00000c30| 72 69 6e 67 20 61 6e 64 | 20 70 75 74 71 73 74 72 |ring and| putqstr|
|00000c40| 69 6e 67 0d 0a 0d 0a 0d | 0a 2f 2a 20 70 75 74 73 |ing.....|./* puts|
|00000c50| 74 72 69 6e 67 20 2d 20 | 6f 75 74 70 75 74 20 61 |tring - |output a|
|00000c60| 20 73 74 72 69 6e 67 20 | 2a 2f 0d 0a 2f 2a 20 72 | string |*/../* r|
|00000c70| 65 77 72 69 74 74 65 6e | 20 74 6f 20 20 70 72 69 |ewritten| to  pri|
|00000c80| 6e 74 20 73 74 72 69 6e | 67 73 20 63 6f 6e 74 61 |nt strin|gs conta|
|00000c90| 69 6e 69 6e 67 20 6e 75 | 6c 6c 73 20 54 41 41 20 |ining nu|lls TAA |
|00000ca0| 6d 6f 64 2a 2f 0d 0a 4c | 4f 43 41 4c 20 56 4f 49 |mod*/..L|OCAL VOI|
|00000cb0| 44 20 70 75 74 73 74 72 | 69 6e 67 28 66 70 74 72 |D putstr|ing(fptr|
|00000cc0| 2c 73 74 72 29 0d 0a 20 | 20 4c 56 41 4c 20 66 70 |,str).. | LVAL fp|
|00000cd0| 74 72 2c 73 74 72 3b 0d | 0a 7b 0d 0a 20 20 20 20 |tr,str;.|.{..    |
|00000ce0| 75 6e 73 69 67 6e 65 64 | 20 63 68 61 72 2a 20 70 |unsigned| char* p|
|00000cf0| 20 3d 20 67 65 74 73 74 | 72 69 6e 67 28 73 74 72 | = getst|ring(str|
|00000d00| 29 3b 0d 0a 20 20 20 20 | 69 6e 74 20 6c 65 6e 20 |);..    |int len |
|00000d10| 3d 20 67 65 74 73 6c 65 | 6e 67 74 68 28 73 74 72 |= getsle|ngth(str|
|00000d20| 29 20 2d 20 31 3b 0d 0a | 0d 0a 20 20 20 20 2f 2a |) - 1;..|..    /*|
|00000d30| 20 6f 75 74 70 75 74 20 | 65 61 63 68 20 63 68 61 | output |each cha|
|00000d40| 72 61 63 74 65 72 20 2a | 2f 0d 0a 20 20 20 20 77 |racter *|/..    w|
|00000d50| 68 69 6c 65 20 28 6c 65 | 6e 2d 2d 20 3e 20 30 29 |hile (le|n-- > 0)|
|00000d60| 20 78 6c 70 75 74 63 28 | 66 70 74 72 2c 2a 70 2b | xlputc(|fptr,*p+|
|00000d70| 2b 29 3b 0d 0a 7d 0d 0a | 0d 0a 2f 2a 20 70 75 74 |+);..}..|../* put|
|00000d80| 71 73 74 72 69 6e 67 20 | 2d 20 6f 75 74 70 75 74 |qstring |- output|
|00000d90| 20 61 20 71 75 6f 74 65 | 64 20 73 74 72 69 6e 67 | a quote|d string|
|00000da0| 20 2a 2f 0d 0a 2f 2a 20 | 72 65 77 72 69 74 74 65 | */../* |rewritte|
|00000db0| 6e 20 74 6f 20 20 70 72 | 69 6e 74 20 73 74 72 69 |n to  pr|int stri|
|00000dc0| 6e 67 73 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 6e |ngs cont|aining n|
|00000dd0| 75 6c 6c 73 20 54 41 41 | 20 6d 6f 64 2a 2f 0d 0a |ulls TAA| mod*/..|
|00000de0| 4c 4f 43 41 4c 20 56 4f | 49 44 20 70 75 74 71 73 |LOCAL VO|ID putqs|
|00000df0| 74 72 69 6e 67 28 66 70 | 74 72 2c 73 74 72 29 0d |tring(fp|tr,str).|
|00000e00| 0a 20 20 4c 56 41 4c 20 | 66 70 74 72 2c 73 74 72 |.  LVAL |fptr,str|
|00000e10| 3b 0d 0a 7b 0d 0a 20 20 | 20 20 75 6e 73 69 67 6e |;..{..  |  unsign|
|00000e20| 65 64 20 63 68 61 72 2a | 20 70 20 3d 20 67 65 74 |ed char*| p = get|
|00000e30| 73 74 72 69 6e 67 28 73 | 74 72 29 3b 0d 0a 20 20 |string(s|tr);..  |
|00000e40| 20 20 69 6e 74 20 6c 65 | 6e 20 3d 20 67 65 74 73 |  int le|n = gets|
|00000e50| 6c 65 6e 67 74 68 28 73 | 74 72 29 20 2d 20 31 3b |length(s|tr) - 1;|
|00000e60| 0d 0a 20 20 20 20 69 6e | 74 20 63 68 3b 0d 0a 0d |..    in|t ch;...|
|00000e70| 0a 20 20 20 20 2f 2a 20 | 6f 75 74 70 75 74 20 74 |.    /* |output t|
|00000e80| 68 65 20 69 6e 69 74 69 | 61 6c 20 71 75 6f 74 65 |he initi|al quote|
|00000e90| 20 2a 2f 0d 0a 20 20 20 | 20 78 6c 70 75 74 63 28 | */..   | xlputc(|
|00000ea0| 66 70 74 72 2c 27 22 27 | 29 3b 0d 0a 0d 0a 20 20 |fptr,'"'|);....  |
|00000eb0| 20 20 2f 2a 20 6f 75 74 | 70 75 74 20 65 61 63 68 |  /* out|put each|
|00000ec0| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 74 68 | charact|er in th|
|00000ed0| 65 20 73 74 72 69 6e 67 | 20 2a 2f 0d 0a 20 20 20 |e string| */..   |
|00000ee0| 20 77 68 69 6c 65 20 28 | 6c 65 6e 2d 2d 20 3e 20 | while (|len-- > |
|00000ef0| 30 29 20 7b 0d 0a 20 20 | 20 20 20 20 20 20 63 68 |0) {..  |      ch|
|00000f00| 20 3d 20 2a 70 2b 2b 3b | 0d 0a 0d 0a 20 20 20 20 | = *p++;|....    |
|00000f10| 20 20 20 20 2f 2a 20 63 | 68 65 63 6b 20 66 6f 72 |    /* c|heck for|
|00000f20| 20 61 20 63 6f 6e 74 72 | 6f 6c 20 63 68 61 72 61 | a contr|ol chara|
|00000f30| 63 74 65 72 20 2a 2f 0d | 0a 20 20 20 20 20 20 20 |cter */.|.       |
|00000f40| 20 69 66 20 28 63 68 20 | 3c 20 30 34 30 20 7c 7c | if (ch |< 040 |||
|00000f50| 20 63 68 20 3d 3d 20 27 | 5c 5c 27 20 7c 7c 20 63 | ch == '|\\' || c|
|00000f60| 68 20 3e 20 30 31 37 36 | 29 20 7b 0d 0a 20 20 20 |h > 0176|) {..   |
|00000f70| 20 20 20 20 20 20 20 20 | 20 78 6c 70 75 74 63 28 |        | xlputc(|
|00000f80| 66 70 74 72 2c 27 5c 5c | 27 29 3b 0d 0a 20 20 20 |fptr,'\\|');..   |
|00000f90| 20 20 20 20 20 20 20 20 | 20 73 77 69 74 63 68 20 |        | switch |
|00000fa0| 28 63 68 29 20 7b 0d 0a | 20 20 20 20 20 20 20 20 |(ch) {..|        |
|00000fb0| 20 20 20 20 20 20 20 20 | 63 61 73 65 20 27 5c 30 |        |case '\0|
|00000fc0| 31 31 27 3a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |11':..  |        |
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 78 6c 70 75 74 63 |        |  xlputc|
|00000fe0| 28 66 70 74 72 2c 27 74 | 27 29 3b 0d 0a 20 20 20 |(fptr,'t|');..   |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001000| 20 62 72 65 61 6b 3b 0d | 0a 20 20 20 20 20 20 20 | break;.|.       |
|00001010| 20 20 20 20 20 20 20 20 | 20 63 61 73 65 20 27 5c |        | case '\|
|00001020| 30 31 32 27 3a 0d 0a 20 | 20 20 20 20 20 20 20 20 |012':.. |        |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 78 6c 70 75 74 |        |   xlput|
|00001040| 63 28 66 70 74 72 2c 27 | 6e 27 29 3b 0d 0a 20 20 |c(fptr,'|n');..  |
|00001050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001060| 20 20 62 72 65 61 6b 3b | 0d 0a 20 20 20 20 20 20 |  break;|..      |
|00001070| 20 20 20 20 20 20 20 20 | 20 20 63 61 73 65 20 27 |        |  case '|
|00001080| 5c 30 31 34 27 3a 0d 0a | 20 20 20 20 20 20 20 20 |\014':..|        |
|00001090| 20 20 20 20 20 20 20 20 | 20 20 20 20 78 6c 70 75 |        |    xlpu|
|000010a0| 74 63 28 66 70 74 72 2c | 27 66 27 29 3b 0d 0a 20 |tc(fptr,|'f');.. |
|000010b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010c0| 20 20 20 62 72 65 61 6b | 3b 0d 0a 20 20 20 20 20 |   break|;..     |
|000010d0| 20 20 20 20 20 20 20 20 | 20 20 20 63 61 73 65 20 |        |   case |
|000010e0| 27 5c 30 31 35 27 3a 0d | 0a 20 20 20 20 20 20 20 |'\015':.|.       |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 78 6c 70 |        |     xlp|
|00001100| 75 74 63 28 66 70 74 72 | 2c 27 72 27 29 3b 0d 0a |utc(fptr|,'r');..|
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001120| 20 20 20 20 62 72 65 61 | 6b 3b 0d 0a 20 20 20 20 |    brea|k;..    |
|00001130| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 61 73 65 |        |    case|
|00001140| 20 27 5c 5c 27 3a 0d 0a | 20 20 20 20 20 20 20 20 | '\\':..|        |
|00001150| 20 20 20 20 20 20 20 20 | 20 20 20 20 78 6c 70 75 |        |    xlpu|
|00001160| 74 63 28 66 70 74 72 2c | 27 5c 5c 27 29 3b 0d 0a |tc(fptr,|'\\');..|
|00001170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001180| 20 20 20 20 62 72 65 61 | 6b 3b 0d 0a 20 20 20 20 |    brea|k;..    |
|00001190| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 65 66 61 |        |    defa|
|000011a0| 75 6c 74 3a 0d 0a 20 20 | 20 20 20 20 20 20 20 20 |ult:..  |        |
|000011b0| 20 20 20 20 20 20 20 20 | 20 20 70 75 74 6f 63 74 |        |  putoct|
|000011c0| 28 66 70 74 72 2c 63 68 | 29 3b 0d 0a 20 20 20 20 |(fptr,ch|);..    |
|000011d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011e0| 62 72 65 61 6b 3b 0d 0a | 20 20 20 20 20 20 20 20 |break;..|        |
|000011f0| 20 20 20 20 7d 0d 0a 20 | 20 20 20 20 20 20 20 7d |    }.. |       }|
|00001200| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 2f 2a 20 6f |....    |    /* o|
|00001210| 75 74 70 75 74 20 61 20 | 6e 6f 72 6d 61 6c 20 63 |utput a |normal c|
|00001220| 68 61 72 61 63 74 65 72 | 20 2a 2f 0d 0a 20 20 20 |haracter| */..   |
|00001230| 20 20 20 20 20 65 6c 73 | 65 0d 0a 20 20 20 20 20 |     els|e..     |
|00001240| 20 20 20 20 20 20 20 78 | 6c 70 75 74 63 28 66 70 |       x|lputc(fp|
|00001250| 74 72 2c 63 68 29 3b 0d | 0a 20 20 20 20 7d 0d 0a |tr,ch);.|.    }..|
|00001260| 0d 0a 0d 0a 20 20 20 20 | 2f 2a 20 6f 75 74 70 75 |....    |/* outpu|
|00001270| 74 20 74 68 65 20 74 65 | 72 6d 69 6e 61 74 69 6e |t the te|rminatin|
|00001280| 67 20 71 75 6f 74 65 20 | 2a 2f 0d 0a 20 20 20 20 |g quote |*/..    |
|00001290| 78 6c 70 75 74 63 28 66 | 70 74 72 2c 27 22 27 29 |xlputc(f|ptr,'"')|
|000012a0| 3b 0d 0a 7d 0d 0a 0d 0a | 0d 0a 2a 2a 2a 2a 2a 2a |;..}....|..******|
|000012b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000012d0| 2a 2a 2a 2a 2a 2a 0d 0a | 0d 0a 50 72 6f 62 6c 65 |******..|..Proble|
|000012e0| 6d 3a 20 43 6f 6e 74 72 | 6f 6c 20 61 6e 64 20 6d |m: Contr|ol and m|
|000012f0| 65 74 61 20 63 68 61 72 | 61 63 74 65 72 73 20 70 |eta char|acters p|
|00001300| 72 69 6e 74 20 22 72 61 | 77 22 20 77 69 74 68 20 |rint "ra|w" with |
|00001310| 70 72 69 6e 31 2e 0d 0a | 0d 0a 45 78 61 6d 70 6c |prin1...|..Exampl|
|00001320| 65 3a 20 45 78 65 63 75 | 74 65 20 28 69 6e 74 2d |e: Execu|te (int-|
|00001330| 63 68 61 72 20 37 29 0d | 0a 0d 0a 46 69 78 3a 20 |char 7).|...Fix: |
|00001340| 4e 65 77 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 70 |New vers|ion of p|
|00001350| 75 74 63 68 63 6f 64 65 | 3a 0d 0a 0d 0a 2f 2a 20 |utchcode|:..../* |
|00001360| 70 75 74 63 68 63 6f 64 | 65 20 2d 20 6f 75 74 70 |putchcod|e - outp|
|00001370| 75 74 20 61 20 63 68 61 | 72 61 63 74 65 72 20 2a |ut a cha|racter *|
|00001380| 2f 0d 0a 2f 2a 20 6d 6f | 64 69 66 69 65 64 20 74 |/../* mo|dified t|
|00001390| 6f 20 70 72 69 6e 74 20 | 63 6f 6e 74 72 6f 6c 20 |o print |control |
|000013a0| 61 6e 64 20 6d 65 74 61 | 20 63 68 61 72 61 63 74 |and meta| charact|
|000013b0| 65 72 73 20 54 41 41 20 | 4d 6f 64 20 2a 2f 0d 0a |ers TAA |Mod */..|
|000013c0| 2f 2a 20 46 6f 72 6d 61 | 74 3a 20 23 5c 5b 4d 2d |/* Forma|t: #\[M-|
|000013d0| 5d 5b 43 2d 5d 63 0d 0a | 20 20 20 57 68 65 72 65 |][C-]c..|   Where|
|000013e0| 20 22 4d 2d 22 20 64 65 | 6e 6f 74 65 73 20 63 68 | "M-" de|notes ch|
|000013f0| 61 72 61 63 74 65 72 20 | 69 73 20 6d 65 74 61 20 |aracter |is meta |
|00001400| 63 68 61 72 61 63 74 65 | 72 20 28 76 61 6c 75 65 |characte|r (value|
|00001410| 20 3e 20 31 32 37 29 2e | 0d 0a 20 20 20 20 20 20 | > 127).|..      |
|00001420| 20 20 20 22 43 2d 22 20 | 64 65 6e 6f 74 65 73 20 |   "C-" |denotes |
|00001430| 63 68 61 72 61 63 74 65 | 72 20 69 73 20 63 6f 6e |characte|r is con|
|00001440| 74 72 6f 6c 20 63 68 61 | 72 61 63 74 65 72 20 28 |trol cha|racter (|
|00001450| 20 76 61 6c 75 65 20 6d | 6f 64 75 6c 6f 20 31 32 | value m|odulo 12|
|00001460| 38 20 3c 20 33 32 29 0d | 0a 20 20 20 61 6e 64 20 |8 < 32).|.   and |
|00001470| 22 63 22 20 69 73 20 65 | 69 74 68 65 72 20 61 20 |"c" is e|ither a |
|00001480| 70 72 69 6e 74 69 6e 67 | 20 63 68 61 72 61 63 74 |printing| charact|
|00001490| 65 72 20 6f 72 20 22 53 | 70 61 63 65 22 2c 20 22 |er or "S|pace", "|
|000014a0| 4e 65 77 6c 69 6e 65 22 | 2c 20 6f 72 20 22 52 75 |Newline"|, or "Ru|
|000014b0| 62 6f 75 74 22 2e 0d 0a | 2a 2f 0d 0a 0d 0a 0d 0a |bout"...|*/......|
|000014c0| 4c 4f 43 41 4c 20 56 4f | 49 44 20 70 75 74 63 68 |LOCAL VO|ID putch|
|000014d0| 63 6f 64 65 28 66 70 74 | 72 2c 63 68 2c 65 73 63 |code(fpt|r,ch,esc|
|000014e0| 66 6c 61 67 29 0d 0a 20 | 20 4c 56 41 4c 20 66 70 |flag).. | LVAL fp|
|000014f0| 74 72 3b 20 69 6e 74 20 | 63 68 2c 65 73 63 66 6c |tr; int |ch,escfl|
|00001500| 61 67 3b 0d 0a 7b 0d 0a | 20 20 20 20 69 66 20 28 |ag;..{..|    if (|
|00001510| 65 73 63 66 6c 61 67 29 | 20 7b 0d 0a 20 20 20 20 |escflag)| {..    |
|00001520| 20 20 20 20 78 6c 70 75 | 74 73 74 72 28 66 70 74 |    xlpu|tstr(fpt|
|00001530| 72 2c 22 23 5c 5c 22 29 | 3b 0d 0a 20 20 20 20 20 |r,"#\\")|;..     |
|00001540| 20 20 20 69 66 20 28 63 | 68 20 3e 20 31 32 37 29 |   if (c|h > 127)|
|00001550| 20 7b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 | {..    |        |
|00001560| 63 68 20 2d 3d 20 31 32 | 38 3b 0d 0a 20 20 20 20 |ch -= 12|8;..    |
|00001570| 20 20 20 20 20 20 20 20 | 78 6c 70 75 74 73 74 72 |        |xlputstr|
|00001580| 28 66 70 74 72 2c 22 4d | 2d 22 29 3b 0d 0a 20 20 |(fptr,"M|-");..  |
|00001590| 20 20 20 20 20 20 7d 0d | 0a 20 20 20 20 20 20 20 |      }.|.       |
|000015a0| 20 73 77 69 74 63 68 20 | 28 63 68 29 20 7b 0d 0a | switch |(ch) {..|
|000015b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 61 73 65 |        |    case|
|000015c0| 20 27 5c 6e 27 3a 0d 0a | 20 20 20 20 20 20 20 20 | '\n':..|        |
|000015d0| 20 20 20 20 20 20 20 20 | 78 6c 70 75 74 73 74 72 |        |xlputstr|
|000015e0| 28 66 70 74 72 2c 22 4e | 65 77 6c 69 6e 65 22 29 |(fptr,"N|ewline")|
|000015f0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;..     |        |
|00001600| 20 20 20 62 72 65 61 6b | 3b 0d 0a 20 20 20 20 20 |   break|;..     |
|00001610| 20 20 20 20 20 20 20 63 | 61 73 65 20 27 20 27 3a |       c|ase ' ':|
|00001620| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00001630| 20 20 78 6c 70 75 74 73 | 74 72 28 66 70 74 72 2c |  xlputs|tr(fptr,|
|00001640| 22 53 70 61 63 65 22 29 | 3b 0d 0a 20 20 20 20 20 |"Space")|;..     |
|00001650| 20 20 20 20 20 20 20 20 | 20 20 20 62 72 65 61 6b |        |   break|
|00001660| 3b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |;..     |       c|
|00001670| 61 73 65 20 31 32 37 3a | 0d 0a 20 20 20 20 20 20 |ase 127:|..      |
|00001680| 20 20 20 20 20 20 20 20 | 20 20 78 6c 70 75 74 73 |        |  xlputs|
|00001690| 74 72 28 66 70 74 72 2c | 22 52 75 62 6f 75 74 22 |tr(fptr,|"Rubout"|
|000016a0| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);..    |        |
|000016b0| 20 20 20 20 62 72 65 61 | 6b 3b 0d 0a 20 20 20 20 |    brea|k;..    |
|000016c0| 20 20 20 20 20 20 20 20 | 64 65 66 61 75 6c 74 3a |        |default:|
|000016d0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|000016e0| 20 20 69 66 20 28 63 68 | 20 3c 20 33 32 29 20 7b |  if (ch| < 32) {|
|000016f0| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00001700| 20 20 20 20 20 20 63 68 | 20 2b 3d 20 27 40 27 3b |      ch| += '@';|
|00001710| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00001720| 20 20 20 20 20 20 78 6c | 70 75 74 73 74 72 28 66 |      xl|putstr(f|
|00001730| 70 74 72 2c 22 43 2d 22 | 29 3b 0d 0a 20 20 20 20 |ptr,"C-"|);..    |
|00001740| 20 20 20 20 20 20 20 20 | 20 20 20 20 7d 0d 0a 20 |        |    }.. |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 78 |        |       x|
|00001760| 6c 70 75 74 63 28 66 70 | 74 72 2c 63 68 29 3b 0d |lputc(fp|tr,ch);.|
|00001770| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001780| 20 62 72 65 61 6b 3b 0d | 0a 20 20 20 20 20 20 20 | break;.|.       |
|00001790| 20 7d 0d 0a 20 20 20 20 | 7d 0d 0a 20 20 20 20 65 | }..    |}..    e|
|000017a0| 6c 73 65 20 78 6c 70 75 | 74 63 28 66 70 74 72 2c |lse xlpu|tc(fptr,|
|000017b0| 63 68 29 3b 0d 0a 7d 0d | 0a 0d 0a 2a 2a 2a 2a 2a |ch);..}.|...*****|
|000017c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017e0| 2a 2a 2a 2a 2a 2a 0d 0a | 0d 0a 50 72 6f 62 6c 65 |******..|..Proble|
|000017f0| 6d 3a 20 49 6e 61 62 69 | 6c 69 74 79 20 74 6f 20 |m: Inabi|lity to |
|00001800| 64 65 63 6c 61 72 65 20 | 63 68 61 72 61 63 74 65 |declare |characte|
|00001810| 72 20 6c 69 74 65 72 61 | 6c 73 20 66 6f 72 20 63 |r litera|ls for c|
|00001820| 6f 6e 74 72 6f 6c 20 61 | 6e 64 20 6d 65 74 61 0d |ontrol a|nd meta.|
|00001830| 0a 20 63 68 61 72 61 63 | 74 65 72 73 2e 0d 0a 0d |. charac|ters....|
|00001840| 0a 46 69 78 3a 20 69 6e | 20 72 6d 68 61 73 68 28 |.Fix: in| rmhash(|
|00001850| 29 2c 20 66 69 72 73 74 | 20 61 64 64 20 64 65 63 |), first| add dec|
|00001860| 6c 61 72 61 74 69 6f 6e | 20 22 69 6e 74 20 69 22 |laration| "int i"|
|00001870| 2c 20 74 68 65 6e 20 0d | 0a 20 20 20 20 20 63 68 |, then .|.     ch|
|00001880| 61 6e 67 65 20 63 61 73 | 65 20 27 5c 5c 27 20 63 |ange cas|e '\\' c|
|00001890| 6f 64 65 20 74 6f 3a 0d | 0a 0d 0a 20 20 20 20 63 |ode to:.|...    c|
|000018a0| 61 73 65 20 27 5c 5c 27 | 3a 0d 0a 20 20 20 20 20 |ase '\\'|:..     |
|000018b0| 20 20 20 66 6f 72 20 28 | 69 20 3d 20 30 3b 20 69 |   for (|i = 0; i|
|000018c0| 20 3c 20 53 54 52 4d 41 | 58 2d 31 3b 20 69 2b 2b | < STRMA|X-1; i++|
|000018d0| 29 20 7b 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |) {..   |        |
|000018e0| 20 69 66 20 28 28 74 65 | 6e 74 72 79 28 62 75 66 | if ((te|ntry(buf|
|000018f0| 5b 69 5d 20 3d 20 63 68 | 65 63 6b 65 6f 66 28 66 |[i] = ch|eckeof(f|
|00001900| 70 74 72 29 29 20 20 21 | 3d 20 6b 5f 63 6f 6e 73 |ptr))  !|= k_cons|
|00001910| 74 29 20 26 26 0d 0a 20 | 20 20 20 20 20 20 20 20 |t) &&.. |        |
|00001920| 20 20 20 20 20 20 20 62 | 75 66 5b 69 5d 20 21 3d |       b|uf[i] !=|
|00001930| 20 27 5c 5c 27 20 26 26 | 20 62 75 66 5b 69 5d 20 | '\\' &&| buf[i] |
|00001940| 21 3d 20 27 7c 27 29 20 | 7b 0d 0a 20 20 20 20 20 |!= '|') |{..     |
|00001950| 20 20 20 20 20 20 20 20 | 20 20 20 78 6c 75 6e 67 |        |   xlung|
|00001960| 65 74 63 28 66 70 74 72 | 2c 20 62 75 66 5b 69 5d |etc(fptr|, buf[i]|
|00001970| 29 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |);..    |        |
|00001980| 20 20 20 20 62 72 65 61 | 6b 3b 0d 0a 20 20 20 20 |    brea|k;..    |
|00001990| 20 20 20 20 20 20 20 20 | 7d 0d 0a 20 20 20 20 20 |        |}..     |
|000019a0| 20 20 20 7d 0d 0a 20 20 | 20 20 20 20 20 20 62 75 |   }..  |      bu|
|000019b0| 66 5b 69 5d 20 3d 20 30 | 3b 0d 0a 0d 0a 20 20 20 |f[i] = 0|;....   |
|000019c0| 20 20 20 20 20 63 68 20 | 3d 20 62 75 66 5b 30 5d |     ch |= buf[0]|
|000019d0| 3b 0d 0a 20 20 20 20 20 | 20 20 20 69 66 20 28 73 |;..     |   if (s|
|000019e0| 74 72 6c 65 6e 28 62 75 | 66 29 20 3e 20 31 29 20 |trlen(bu|f) > 1) |
|000019f0| 7b 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 75 |{..     |       u|
|00001a00| 70 63 61 73 65 28 62 75 | 66 29 3b 0d 0a 20 20 20 |pcase(bu|f);..   |
|00001a10| 20 20 20 20 20 20 20 20 | 20 62 75 66 70 20 3d 20 |        | bufp = |
|00001a20| 26 62 75 66 5b 30 5d 3b | 0d 0a 20 20 20 20 20 20 |&buf[0];|..      |
|00001a30| 20 20 20 20 20 20 63 68 | 20 3d 20 30 3b 0d 0a 20 |      ch| = 0;.. |
|00001a40| 20 20 20 20 20 20 20 20 | 20 20 20 69 66 20 28 73 |        |   if (s|
|00001a50| 74 72 6e 63 6d 70 28 62 | 75 66 70 2c 22 4d 2d 22 |trncmp(b|ufp,"M-"|
|00001a60| 2c 32 29 20 3d 3d 20 30 | 29 20 7b 0d 0a 20 20 20 |,2) == 0|) {..   |
|00001a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 68 20 |        |     ch |
|00001a80| 3d 20 31 32 38 3b 0d 0a | 20 20 20 20 20 20 20 20 |= 128;..|        |
|00001a90| 20 20 20 20 20 20 20 20 | 62 75 66 70 20 2b 3d 20 |        |bufp += |
|00001aa0| 32 3b 0d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |2;..    |        |
|00001ab0| 7d 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |}..     |       i|
|00001ac0| 66 20 28 73 74 72 63 6d | 70 28 62 75 66 70 2c 22 |f (strcm|p(bufp,"|
|00001ad0| 4e 45 57 4c 49 4e 45 22 | 29 20 3d 3d 20 30 29 0d |NEWLINE"|) == 0).|
|00001ae0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001af0| 20 63 68 20 2b 3d 20 27 | 5c 6e 27 3b 0d 0a 20 20 | ch += '|\n';..  |
|00001b00| 20 20 20 20 20 20 20 20 | 20 20 65 6c 73 65 20 69 |        |  else i|
|00001b10| 66 20 28 73 74 72 63 6d | 70 28 62 75 66 70 2c 22 |f (strcm|p(bufp,"|
|00001b20| 53 50 41 43 45 22 29 20 | 3d 3d 20 30 29 0d 0a 20 |SPACE") |== 0).. |
|00001b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 |        |       c|
|00001b40| 68 20 2b 3d 20 27 20 27 | 3b 0d 0a 20 20 20 20 20 |h += ' '|;..     |
|00001b50| 20 20 20 20 20 20 20 65 | 6c 73 65 20 69 66 20 28 |       e|lse if (|
|00001b60| 73 74 72 63 6d 70 28 62 | 75 66 70 2c 22 52 55 42 |strcmp(b|ufp,"RUB|
|00001b70| 4f 55 54 22 29 20 3d 3d | 20 30 29 0d 0a 20 20 20 |OUT") ==| 0)..   |
|00001b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 63 68 20 |        |     ch |
|00001b90| 2b 3d 20 31 32 37 3b 0d | 0a 20 20 20 20 20 20 20 |+= 127;.|.       |
|00001ba0| 20 20 20 20 20 65 6c 73 | 65 20 69 66 20 28 73 74 |     els|e if (st|
|00001bb0| 72 6c 65 6e 28 62 75 66 | 70 29 20 3d 3d 20 31 29 |rlen(buf|p) == 1)|
|00001bc0| 20 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00001bd0| 20 20 20 63 68 20 2b 3d | 20 2a 62 75 66 70 3b 0d |   ch +=| *bufp;.|
|00001be0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 65 6c 73 |.       |     els|
|00001bf0| 65 20 69 66 20 28 73 74 | 72 6e 63 6d 70 28 62 75 |e if (st|rncmp(bu|
|00001c00| 66 70 2c 22 43 2d 22 2c | 32 29 20 3d 3d 20 30 20 |fp,"C-",|2) == 0 |
|00001c10| 26 26 20 73 74 72 6c 65 | 6e 28 62 75 66 70 29 20 |&& strle|n(bufp) |
|00001c20| 3d 3d 20 33 29 20 0d 0a | 20 20 20 20 20 20 20 20 |== 3) ..|        |
|00001c30| 20 20 20 20 20 20 20 20 | 63 68 20 2b 3d 20 62 75 |        |ch += bu|
|00001c40| 66 70 5b 32 5d 20 26 20 | 33 31 3b 0d 0a 20 20 20 |fp[2] & |31;..   |
|00001c50| 20 20 20 20 20 20 20 20 | 20 65 6c 73 65 20 78 6c |        | else xl|
|00001c60| 65 72 72 6f 72 28 22 75 | 6e 6b 6e 6f 77 6e 20 63 |error("u|nknown c|
|00001c70| 68 61 72 61 63 74 65 72 | 20 6e 61 6d 65 22 2c 63 |haracter| name",c|
|00001c80| 76 73 74 72 69 6e 67 28 | 62 75 66 29 29 3b 0d 0a |vstring(|buf));..|
|00001c90| 20 20 20 20 20 20 20 20 | 7d 0d 0a 20 20 20 20 20 |        |}..     |
|00001ca0| 20 20 20 72 70 6c 61 63 | 61 28 76 61 6c 2c 63 76 |   rplac|a(val,cv|
|00001cb0| 63 68 61 72 28 63 68 29 | 29 3b 0d 0a 20 20 20 20 |char(ch)|);..    |
|00001cc0| 20 20 20 20 62 72 65 61 | 6b 3b 0d 0a 0d 0a 2a 2a |    brea|k;....**|
|00001cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ce0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0a 0d |********|*****...|
|00001d00| 0a 50 72 6f 62 6c 65 6d | 3a 20 49 6e 76 61 6c 69 |.Problem|: Invali|
|00001d10| 64 20 73 79 6d 62 6f 6c | 73 20 63 61 6e 20 62 65 |d symbol|s can be|
|00001d20| 20 63 72 65 61 74 65 64 | 20 77 69 74 68 20 69 6e | created| with in|
|00001d30| 74 65 72 6e 20 61 6e 64 | 20 6d 61 6b 65 2d 73 79 |tern and| make-sy|
|00001d40| 6d 62 6f 6c 2e 0d 0a 09 | 41 6c 73 6f 2c 20 79 6f |mbol....|Also, yo|
|00001d50| 75 20 63 61 6e 20 6d 61 | 6b 65 20 4e 49 4c 2c 20 |u can ma|ke NIL, |
|00001d60| 77 68 69 63 68 20 69 73 | 20 68 69 67 68 6c 79 20 |which is| highly |
|00001d70| 69 72 72 65 67 75 6c 61 | 72 2e 0d 0a 0d 0a 45 78 |irregula|r.....Ex|
|00001d80| 61 6d 70 6c 65 3a 20 28 | 69 6e 74 65 72 6e 20 22 |ample: (|intern "|
|00001d90| 61 62 63 5c 30 31 37 64 | 65 66 22 29 20 20 28 69 |abc\017d|ef")  (i|
|00001da0| 6e 74 65 72 6e 20 22 4e | 49 4c 22 29 0d 0a 0d 0a |ntern "N|IL")....|
|00001db0| 0d 0a 46 69 78 3a 20 41 | 64 64 20 74 6f 20 6d 61 |..Fix: A|dd to ma|
|00001dc0| 6b 65 73 79 6d 62 6f 6c | 28 29 2c 20 62 65 66 6f |kesymbol|(), befo|
|00001dd0| 72 65 20 73 65 63 74 69 | 6f 6e 20 22 6d 61 6b 65 |re secti|on "make|
|00001de0| 20 74 68 65 20 73 79 6d | 62 6f 6c 22 3a 0d 0a 0d | the sym|bol":...|
|00001df0| 0a 20 20 20 20 2f 2a 20 | 63 68 65 63 6b 20 66 6f |.    /* |check fo|
|00001e00| 72 20 6d 61 6b 69 6e 67 | 20 22 4e 49 4c 22 20 2d |r making| "NIL" -|
|00001e10| 2d 20 76 65 72 79 20 62 | 61 64 20 2a 2f 0d 0a 20 |- very b|ad */.. |
|00001e20| 20 20 20 69 66 20 28 73 | 74 72 63 6d 70 28 28 63 |   if (s|trcmp((c|
|00001e30| 68 61 72 20 2a 29 67 65 | 74 73 74 72 69 6e 67 28 |har *)ge|tstring(|
|00001e40| 70 6e 61 6d 65 29 2c 22 | 4e 49 4c 22 29 20 3d 3d |pname),"|NIL") ==|
|00001e50| 20 30 29 0d 0a 20 20 20 | 20 20 20 20 20 78 6c 65 | 0)..   |     xle|
|00001e60| 72 72 6f 72 28 22 79 6f | 75 27 76 65 20 67 6f 74 |rror("yo|u've got|
|00001e70| 20 74 6f 20 62 65 20 6b | 69 64 64 69 6e 67 21 22 | to be k|idding!"|
|00001e80| 29 3b 0d 0a 0d 0a 20 20 | 20 20 2f 2a 20 63 68 65 |);....  |  /* che|
|00001e90| 63 6b 20 66 6f 72 20 63 | 6f 6e 74 61 69 6e 69 6e |ck for c|ontainin|
|00001ea0| 67 20 6f 6e 6c 79 20 70 | 72 69 6e 74 61 62 6c 65 |g only p|rintable|
|00001eb0| 20 63 68 61 72 61 63 74 | 65 72 73 20 2a 2f 0d 0a | charact|ers */..|
|00001ec0| 20 20 20 20 69 20 3d 20 | 67 65 74 73 6c 65 6e 67 |    i = |getsleng|
|00001ed0| 74 68 28 70 6e 61 6d 65 | 29 2d 31 3b 0d 0a 20 20 |th(pname|)-1;..  |
|00001ee0| 20 20 77 68 69 6c 65 20 | 28 69 2d 2d 20 3e 20 30 |  while |(i-- > 0|
|00001ef0| 29 20 69 66 20 28 28 28 | 73 69 67 6e 65 64 20 63 |) if (((|signed c|
|00001f00| 68 61 72 29 28 70 6e 61 | 6d 65 2d 3e 6e 5f 73 74 |har)(pna|me->n_st|
|00001f10| 72 69 6e 67 5b 69 5d 29 | 29 20 3c 20 33 32 20 29 |ring[i])|) < 32 )|
|00001f20| 0d 0a 20 20 20 20 20 20 | 20 20 78 6c 65 72 72 6f |..      |  xlerro|
|00001f30| 72 28 22 73 74 72 69 6e | 67 20 63 6f 6e 74 61 69 |r("strin|g contai|
|00001f40| 6e 73 20 6e 6f 6e 2d 70 | 72 69 6e 74 69 6e 67 20 |ns non-p|rinting |
|00001f50| 63 68 61 72 61 63 74 65 | 72 73 22 2c 70 6e 61 6d |characte|rs",pnam|
|00001f60| 65 29 3b 0d 0a 20 20 20 | 20 0d 0a 0d 0a 0d 0a 2a |e);..   | ......*|
|00001f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f80| 0d 0a 0d 0a 54 6f 6d 20 | 41 6c 6d 79 0d 0a 74 6f |....Tom |Almy..to|
|00001f90| 6d 61 40 74 65 6b 67 76 | 73 2e 6c 61 62 73 2e 74 |ma@tekgv|s.labs.t|
|00001fa0| 65 6b 2e 63 6f 6d 0d 0a | 53 74 61 6e 64 61 72 64 |ek.com..|Standard|
|00001fb0| 20 44 69 73 63 6c 61 69 | 6d 65 72 73 20 41 70 70 | Disclai|mers App|
|00001fc0| 6c 79 0d 0a 0d 0a 0d 0a | 46 72 6f 6d 20 73 63 65 |ly......|From sce|
|00001fd0| 21 6d 69 74 65 6c 21 75 | 75 6e 65 74 21 7a 65 70 |!mitel!u|unet!zep|
|00001fe0| 68 79 72 2e 65 6e 73 2e | 74 65 6b 2e 63 6f 6d 21 |hyr.ens.|tek.com!|
|00001ff0| 74 65 6b 63 72 6c 21 74 | 65 6b 67 76 73 21 74 6f |tekcrl!t|ekgvs!to|
|00002000| 6d 61 20 54 75 65 20 41 | 75 67 20 32 39 20 31 31 |ma Tue A|ug 29 11|
|00002010| 3a 33 30 3a 34 34 20 45 | 44 54 20 31 39 38 39 0d |:30:44 E|DT 1989.|
|00002020| 0a 41 72 74 69 63 6c 65 | 3a 20 31 34 30 20 6f 66 |.Article|: 140 of|
|00002030| 20 63 6f 6d 70 2e 6c 61 | 6e 67 2e 6c 69 73 70 2e | comp.la|ng.lisp.|
|00002040| 78 0d 0a 50 61 74 68 3a | 20 63 6f 67 6e 6f 73 21 |x..Path:| cognos!|
|00002050| 73 63 65 21 6d 69 74 65 | 6c 21 75 75 6e 65 74 21 |sce!mite|l!uunet!|
|00002060| 7a 65 70 68 79 72 2e 65 | 6e 73 2e 74 65 6b 2e 63 |zephyr.e|ns.tek.c|
|00002070| 6f 6d 21 74 65 6b 63 72 | 6c 21 74 65 6b 67 76 73 |om!tekcr|l!tekgvs|
|00002080| 21 74 6f 6d 61 0d 0a 46 | 72 6f 6d 3a 20 74 6f 6d |!toma..F|rom: tom|
|00002090| 61 40 74 65 6b 67 76 73 | 2e 4c 41 42 53 2e 54 45 |a@tekgvs|.LABS.TE|
|000020a0| 4b 2e 43 4f 4d 20 28 54 | 6f 6d 20 41 6c 6d 79 29 |K.COM (T|om Almy)|
|000020b0| 0d 0a 4e 65 77 73 67 72 | 6f 75 70 73 3a 20 63 6f |..Newsgr|oups: co|
|000020c0| 6d 70 2e 6c 61 6e 67 2e | 6c 69 73 70 2e 78 0d 0a |mp.lang.|lisp.x..|
|000020d0| 53 75 62 6a 65 63 74 3a | 20 59 65 74 20 41 6e 6f |Subject:| Yet Ano|
|000020e0| 74 68 65 72 20 58 4c 49 | 53 50 20 42 75 67 0d 0a |ther XLI|SP Bug..|
|000020f0| 4d 65 73 73 61 67 65 2d | 49 44 3a 20 3c 35 38 32 |Message-|ID: <582|
|00002100| 34 40 74 65 6b 67 76 73 | 2e 4c 41 42 53 2e 54 45 |4@tekgvs|.LABS.TE|
|00002110| 4b 2e 43 4f 4d 3e 0d 0a | 44 61 74 65 3a 20 32 35 |K.COM>..|Date: 25|
|00002120| 20 41 75 67 20 38 39 20 | 31 34 3a 33 37 3a 33 30 | Aug 89 |14:37:30|
|00002130| 20 47 4d 54 0d 0a 52 65 | 70 6c 79 2d 54 6f 3a 20 | GMT..Re|ply-To: |
|00002140| 74 6f 6d 61 40 74 65 6b | 67 76 73 2e 4c 41 42 53 |toma@tek|gvs.LABS|
|00002150| 2e 54 45 4b 2e 43 4f 4d | 20 28 54 6f 6d 20 41 6c |.TEK.COM| (Tom Al|
|00002160| 6d 79 29 0d 0a 4f 72 67 | 61 6e 69 7a 61 74 69 6f |my)..Org|anizatio|
|00002170| 6e 3a 20 54 65 6b 74 72 | 6f 6e 69 78 2c 20 49 6e |n: Tektr|onix, In|
|00002180| 63 2e 2c 20 42 65 61 76 | 65 72 74 6f 6e 2c 20 20 |c., Beav|erton,  |
|00002190| 4f 52 2e 0d 0a 4c 69 6e | 65 73 3a 20 31 33 0d 0a |OR...Lin|es: 13..|
|000021a0| 0d 0a 0d 0a 50 72 6f 62 | 6c 65 6d 3a 20 46 75 6e |....Prob|lem: Fun|
|000021b0| 63 74 69 6f 6e 73 20 4e | 54 48 20 61 6e 64 20 4e |ctions N|TH and N|
|000021c0| 54 48 43 44 52 20 67 69 | 76 65 20 65 72 72 6f 72 |THCDR gi|ve error|
|000021d0| 73 20 77 68 65 6e 20 61 | 70 70 6c 69 65 64 20 74 |s when a|pplied t|
|000021e0| 6f 20 7a 65 72 6f 20 6c | 65 6e 67 74 68 0d 0a 09 |o zero l|ength...|
|000021f0| 20 6c 69 73 74 73 2e 0d | 0a 0d 0a 45 78 61 6d 70 | lists..|...Examp|
|00002200| 6c 65 3a 20 28 4e 54 48 | 20 31 20 27 28 29 29 0d |le: (NTH| 1 '()).|
|00002210| 0a 0d 0a 46 69 78 3a 20 | 49 6e 20 66 75 6e 63 74 |...Fix: |In funct|
|00002220| 69 6f 6e 20 6e 74 68 28 | 29 2c 20 72 65 70 6c 61 |ion nth(|), repla|
|00002230| 63 65 20 63 61 6c 6c 20 | 6f 66 20 78 6c 67 61 63 |ce call |of xlgac|
|00002240| 6f 6e 73 28 29 20 77 69 | 74 68 20 78 6c 67 61 6c |ons() wi|th xlgal|
|00002250| 69 73 74 28 29 0d 0a 0d | 0a 28 54 68 61 74 20 77 |ist()...|.(That w|
|00002260| 61 73 20 73 69 6d 70 6c | 65 2c 20 77 61 73 6e 27 |as simpl|e, wasn'|
|00002270| 74 20 69 74 3f 29 0d 0a | 0d 0a 54 6f 6d 20 41 6c |t it?)..|..Tom Al|
|00002280| 6d 79 0d 0a 74 6f 6d 61 | 40 74 65 6b 67 76 73 2e |my..toma|@tekgvs.|
|00002290| 6c 61 62 73 2e 74 65 6b | 2e 63 6f 6d 0d 0a 53 74 |labs.tek|.com..St|
|000022a0| 61 6e 64 61 72 64 20 44 | 69 73 63 6c 61 69 6d 65 |andard D|isclaime|
|000022b0| 72 73 20 41 70 70 6c 79 | 0d 0a 0d 0a 0d 0a       |rs Apply|......  |
+--------+-------------------------+-------------------------+--------+--------+