/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume24 / chemtab / part01

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 75 62 6a 65 63 74 3a | 20 20 76 32 34 69 30 33 |Subject:|  v24i03|
|00000010| 36 3a 20 20 4d 61 6e 69 | 70 75 6c 61 74 65 20 64 |6:  Mani|pulate d|
|00000020| 61 74 61 20 6f 6e 20 74 | 68 65 20 63 68 65 6d 69 |ata on t|he chemi|
|00000030| 63 61 6c 20 65 6c 65 6d | 65 6e 74 73 2c 20 50 61 |cal elem|ents, Pa|
|00000040| 72 74 30 31 2f 30 33 0a | 4e 65 77 73 67 72 6f 75 |rt01/03.|Newsgrou|
|00000050| 70 73 3a 20 63 6f 6d 70 | 2e 73 6f 75 72 63 65 73 |ps: comp|.sources|
|00000060| 2e 75 6e 69 78 0a 41 70 | 70 72 6f 76 65 64 3a 20 |.unix.Ap|proved: |
|00000070| 72 73 61 6c 7a 40 75 75 | 6e 65 74 2e 55 55 2e 4e |rsalz@uu|net.UU.N|
|00000080| 45 54 0a 58 2d 43 68 65 | 63 6b 73 75 6d 2d 53 6e |ET.X-Che|cksum-Sn|
|00000090| 65 66 72 75 3a 20 35 39 | 37 35 66 66 37 37 20 37 |efru: 59|75ff77 7|
|000000a0| 32 35 65 34 36 38 63 20 | 34 35 32 36 66 39 37 64 |25e468c |4526f97d|
|000000b0| 20 32 31 30 36 62 37 32 | 35 0a 0a 53 75 62 6d 69 | 2106b72|5..Submi|
|000000c0| 74 74 65 64 2d 62 79 3a | 20 22 4a 2e 45 2e 20 4b |tted-by:| "J.E. K|
|000000d0| 69 6e 67 22 20 3c 6a 65 | 6b 35 30 33 36 40 75 6c |ing" <je|k5036@ul|
|000000e0| 74 62 2e 69 73 63 2e 72 | 69 74 2e 65 64 75 3e 0a |tb.isc.r|it.edu>.|
|000000f0| 50 6f 73 74 69 6e 67 2d | 6e 75 6d 62 65 72 3a 20 |Posting-|number: |
|00000100| 56 6f 6c 75 6d 65 20 32 | 34 2c 20 49 73 73 75 65 |Volume 2|4, Issue|
|00000110| 20 33 36 0a 41 72 63 68 | 69 76 65 2d 6e 61 6d 65 | 36.Arch|ive-name|
|00000120| 3a 20 63 68 65 6d 74 61 | 62 2f 70 61 72 74 30 31 |: chemta|b/part01|
|00000130| 0a 0a 43 68 65 6d 74 61 | 62 20 77 61 73 20 64 65 |..Chemta|b was de|
|00000140| 73 69 67 6e 65 64 20 69 | 6e 20 63 6f 6e 6a 75 6e |signed i|n conjun|
|00000150| 63 74 69 6f 6e 20 77 69 | 74 68 20 74 68 65 20 66 |ction wi|th the f|
|00000160| 61 63 75 6c 74 79 20 69 | 6e 20 74 68 65 20 73 63 |aculty i|n the sc|
|00000170| 69 65 6e 63 65 0a 64 65 | 70 61 72 74 6d 65 6e 74 |ience.de|partment|
|00000180| 20 61 74 20 74 68 65 20 | 4c 69 6e 63 6f 6c 6e 2d | at the |Lincoln-|
|00000190| 53 75 64 62 75 72 79 20 | 52 65 67 69 6f 6e 61 6c |Sudbury |Regional|
|000001a0| 20 48 69 67 68 20 53 63 | 68 6f 6f 6c 2e 20 20 54 | High Sc|hool.  T|
|000001b0| 68 65 20 64 61 74 61 62 | 61 73 65 20 64 6f 65 73 |he datab|ase does|
|000001c0| 20 61 0a 76 61 72 69 65 | 74 79 20 6f 66 20 66 75 | a.varie|ty of fu|
|000001d0| 6e 63 74 69 6f 6e 73 3a | 0a 0a 09 31 29 20 47 72 |nctions:|...1) Gr|
|000001e0| 61 70 68 20 65 6c 65 6d | 65 6e 74 61 6c 20 64 61 |aph elem|ental da|
|000001f0| 74 61 20 28 78 20 76 73 | 20 79 29 0a 09 32 29 20 |ta (x vs| y)..2) |
|00000200| 53 65 6c 65 63 74 20 61 | 20 73 65 74 20 6f 66 20 |Select a| set of |
|00000210| 65 6c 65 6d 65 6e 74 73 | 20 66 72 6f 6d 20 67 69 |elements| from gi|
|00000220| 76 65 6e 20 70 61 72 61 | 6d 65 74 65 72 73 0a 09 |ven para|meters..|
|00000230| 33 29 20 4c 6f 6f 6b 20 | 61 74 20 61 20 63 65 72 |3) Look |at a cer|
|00000240| 74 61 69 6e 20 65 6c 65 | 6d 65 6e 74 20 61 6e 64 |tain ele|ment and|
|00000250| 20 64 69 73 70 6c 61 79 | 20 61 6c 6c 20 6b 6e 6f | display| all kno|
|00000260| 77 6e 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 0a 09 |wn infor|mation..|
|00000270| 20 20 20 28 61 74 20 6c | 65 61 73 74 2c 20 61 6c |   (at l|east, al|
|00000280| 6c 20 69 6e 70 75 74 20 | 64 61 74 61 29 20 6f 6e |l input |data) on|
|00000290| 20 74 68 65 20 65 6c 65 | 6d 65 6e 74 2e 0a 49 74 | the ele|ment..It|
|000002a0| 20 69 73 20 61 20 73 63 | 72 65 65 6e 2d 6f 72 69 | is a sc|reen-ori|
|000002b0| 65 6e 74 65 64 20 70 72 | 6f 67 72 61 6d 20 77 69 |ented pr|ogram wi|
|000002c0| 74 68 20 65 78 74 65 6e | 73 69 76 65 20 6f 6e 2d |th exten|sive on-|
|000002d0| 6c 69 6e 65 20 68 65 6c | 70 2e 0a 0a 41 6c 6c 20 |line hel|p...All |
|000002e0| 65 6c 65 6d 65 6e 74 61 | 6c 20 69 6e 66 6f 72 6d |elementa|l inform|
|000002f0| 61 74 69 6f 6e 20 69 6e | 20 74 68 69 73 20 70 72 |ation in| this pr|
|00000300| 6f 67 72 61 6d 20 68 61 | 73 20 62 65 65 6e 20 65 |ogram ha|s been e|
|00000310| 78 74 72 61 63 74 65 64 | 20 66 72 6f 6d 20 74 68 |xtracted| from th|
|00000320| 65 0a 66 6f 6c 6c 6f 77 | 69 6e 67 20 73 6f 75 72 |e.follow|ing sour|
|00000330| 63 65 73 3a 0a 09 43 52 | 43 20 48 61 6e 64 62 6f |ces:..CR|C Handbo|
|00000340| 6f 6b 20 6f 66 20 43 68 | 65 6d 69 73 74 72 79 20 |ok of Ch|emistry |
|00000350| 26 20 50 68 79 73 69 63 | 73 2c 20 36 33 72 64 20 |& Physic|s, 63rd |
|00000360| 65 64 69 74 69 6f 6e 2c | 20 31 39 38 32 2d 31 39 |edition,| 1982-19|
|00000370| 38 33 0a 09 43 52 43 20 | 48 61 6e 64 62 6f 6f 6b |83..CRC |Handbook|
|00000380| 20 6f 66 20 43 68 65 6d | 69 73 74 72 79 20 26 20 | of Chem|istry & |
|00000390| 50 68 79 73 69 63 73 2c | 20 37 30 74 68 20 65 64 |Physics,| 70th ed|
|000003a0| 69 74 69 6f 6e 2c 20 31 | 39 38 39 2d 31 39 39 30 |ition, 1|989-1990|
|000003b0| 0a 0a 0a 23 21 20 2f 62 | 69 6e 2f 73 68 0a 23 20 |...#! /b|in/sh.# |
|000003c0| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|000003d0| 61 72 63 68 69 76 65 2e | 20 20 52 65 6d 6f 76 65 |archive.|  Remove|
|000003e0| 20 61 6e 79 74 68 69 6e | 67 20 62 65 66 6f 72 65 | anythin|g before|
|000003f0| 20 74 68 69 73 20 6c 69 | 6e 65 2c 20 74 68 65 6e | this li|ne, then|
|00000400| 20 66 65 65 64 20 69 74 | 0a 23 20 69 6e 74 6f 20 | feed it|.# into |
|00000410| 61 20 73 68 65 6c 6c 20 | 76 69 61 20 22 73 68 20 |a shell |via "sh |
|00000420| 66 69 6c 65 22 20 6f 72 | 20 73 69 6d 69 6c 61 72 |file" or| similar|
|00000430| 2e 20 20 54 6f 20 6f 76 | 65 72 77 72 69 74 65 20 |.  To ov|erwrite |
|00000440| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 73 2c 0a |existing| files,.|
|00000450| 23 20 74 79 70 65 20 22 | 73 68 20 66 69 6c 65 20 |# type "|sh file |
|00000460| 2d 63 22 2e 0a 23 20 54 | 68 65 20 74 6f 6f 6c 20 |-c"..# T|he tool |
|00000470| 74 68 61 74 20 67 65 6e | 65 72 61 74 65 64 20 74 |that gen|erated t|
|00000480| 68 69 73 20 61 70 70 65 | 61 72 65 64 20 69 6e 20 |his appe|ared in |
|00000490| 74 68 65 20 63 6f 6d 70 | 2e 73 6f 75 72 63 65 73 |the comp|.sources|
|000004a0| 2e 75 6e 69 78 20 6e 65 | 77 73 67 72 6f 75 70 3b |.unix ne|wsgroup;|
|000004b0| 0a 23 20 73 65 6e 64 20 | 6d 61 69 6c 20 74 6f 20 |.# send |mail to |
|000004c0| 63 6f 6d 70 2d 73 6f 75 | 72 63 65 73 2d 75 6e 69 |comp-sou|rces-uni|
|000004d0| 78 40 75 75 6e 65 74 2e | 75 75 2e 6e 65 74 20 69 |x@uunet.|uu.net i|
|000004e0| 66 20 79 6f 75 20 77 61 | 6e 74 20 74 68 61 74 20 |f you wa|nt that |
|000004f0| 74 6f 6f 6c 2e 0a 23 20 | 43 6f 6e 74 65 6e 74 73 |tool..# |Contents|
|00000500| 3a 20 20 52 45 41 44 4d | 45 20 52 45 41 44 4d 45 |:  READM|E README|
|00000510| 2e 46 49 52 53 54 20 64 | 6f 67 70 68 2e 63 20 64 |.FIRST d|ogph.c d|
|00000520| 6f 72 65 67 69 73 67 70 | 68 2e 63 20 65 6c 69 73 |oregisgp|h.c elis|
|00000530| 74 20 65 73 6f 72 74 2e | 63 0a 23 20 20 20 6c 6f |t esort.|c.#   lo|
|00000540| 6f 6b 65 2e 63 20 6d 61 | 69 6e 2e 63 0a 23 20 57 |oke.c ma|in.c.# W|
|00000550| 72 61 70 70 65 64 20 62 | 79 20 72 73 61 6c 7a 40 |rapped b|y rsalz@|
|00000560| 6c 69 74 63 68 69 2e 62 | 62 6e 2e 63 6f 6d 20 6f |litchi.b|bn.com o|
|00000570| 6e 20 57 65 64 20 4d 61 | 72 20 31 33 20 31 33 3a |n Wed Ma|r 13 13:|
|00000580| 35 35 3a 31 38 20 31 39 | 39 31 0a 50 41 54 48 3d |55:18 19|91.PATH=|
|00000590| 2f 62 69 6e 3a 2f 75 73 | 72 2f 62 69 6e 3a 2f 75 |/bin:/us|r/bin:/u|
|000005a0| 73 72 2f 75 63 62 20 3b | 20 65 78 70 6f 72 74 20 |sr/ucb ;| export |
|000005b0| 50 41 54 48 0a 65 63 68 | 6f 20 49 66 20 74 68 69 |PATH.ech|o If thi|
|000005c0| 73 20 61 72 63 68 69 76 | 65 20 69 73 20 63 6f 6d |s archiv|e is com|
|000005d0| 70 6c 65 74 65 2c 20 79 | 6f 75 20 77 69 6c 6c 20 |plete, y|ou will |
|000005e0| 73 65 65 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |see the |followin|
|000005f0| 67 20 6d 65 73 73 61 67 | 65 3a 0a 65 63 68 6f 20 |g messag|e:.echo |
|00000600| 27 20 20 20 20 20 20 20 | 20 20 20 22 73 68 61 72 |'       |   "shar|
|00000610| 3a 20 45 6e 64 20 6f 66 | 20 61 72 63 68 69 76 65 |: End of| archive|
|00000620| 20 31 20 28 6f 66 20 33 | 29 2e 22 27 0a 69 66 20 | 1 (of 3|)."'.if |
|00000630| 74 65 73 74 20 2d 66 20 | 27 52 45 41 44 4d 45 27 |test -f |'README'|
|00000640| 20 2d 61 20 22 24 7b 31 | 7d 22 20 21 3d 20 22 2d | -a "${1|}" != "-|
|00000650| 63 22 20 3b 20 74 68 65 | 6e 20 0a 20 20 65 63 68 |c" ; the|n .  ech|
|00000660| 6f 20 73 68 61 72 3a 20 | 57 69 6c 6c 20 6e 6f 74 |o shar: |Will not|
|00000670| 20 63 6c 6f 62 62 65 72 | 20 65 78 69 73 74 69 6e | clobber| existin|
|00000680| 67 20 66 69 6c 65 20 5c | 22 27 52 45 41 44 4d 45 |g file \|"'README|
|00000690| 27 5c 22 0a 65 6c 73 65 | 0a 20 20 65 63 68 6f 20 |'\".else|.  echo |
|000006a0| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|000006b0| 20 5c 22 27 52 45 41 44 | 4d 45 27 5c 22 20 5c 28 | \"'READ|ME'\" \(|
|000006c0| 31 33 33 37 20 63 68 61 | 72 61 63 74 65 72 73 5c |1337 cha|racters\|
|000006d0| 29 0a 20 20 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |).  sed |"s/^X//"|
|000006e0| 20 3e 27 52 45 41 44 4d | 45 27 20 3c 3c 27 45 4e | >'READM|E' <<'EN|
|000006f0| 44 5f 4f 46 5f 46 49 4c | 45 27 0a 58 43 68 65 6d |D_OF_FIL|E'.XChem|
|00000700| 54 61 62 20 2d 20 41 20 | 50 65 72 69 6f 64 69 63 |Tab - A |Periodic|
|00000710| 20 54 61 62 6c 65 20 28 | 6f 66 20 74 68 65 20 65 | Table (|of the e|
|00000720| 6c 65 6d 65 6e 74 73 29 | 20 44 61 74 61 62 61 73 |lements)| Databas|
|00000730| 65 0a 58 0a 58 43 68 65 | 6d 74 61 62 20 77 61 73 |e.X.XChe|mtab was|
|00000740| 20 77 72 69 74 74 65 6e | 20 61 74 20 4c 69 6e 63 | written| at Linc|
|00000750| 6f 6c 6e 2d 53 75 64 62 | 75 72 79 20 52 65 67 69 |oln-Sudb|ury Regi|
|00000760| 6f 6e 61 6c 20 48 69 67 | 68 20 53 63 68 6f 6f 6c |onal Hig|h School|
|00000770| 20 64 75 72 69 6e 67 20 | 74 68 65 20 31 39 38 39 | during |the 1989|
|00000780| 0a 58 74 6f 20 31 39 39 | 30 20 73 63 68 6f 6f 6c |.Xto 199|0 school|
|00000790| 20 79 65 61 72 2e 20 20 | 43 68 65 6d 74 61 62 20 | year.  |Chemtab |
|000007a0| 77 61 73 20 63 6f 6d 70 | 6c 65 74 65 64 20 66 75 |was comp|leted fu|
|000007b0| 72 74 68 65 72 20 61 74 | 20 52 6f 63 68 65 73 74 |rther at| Rochest|
|000007c0| 65 72 20 49 6e 73 74 69 | 74 75 74 65 0a 58 6f 66 |er Insti|tute.Xof|
|000007d0| 20 54 65 63 68 6e 6f 6c | 6f 67 79 2e 0a 58 0a 58 | Technol|ogy..X.X|
|000007e0| 43 68 65 6d 74 61 62 20 | 77 61 73 20 64 65 73 69 |Chemtab |was desi|
|000007f0| 67 6e 65 64 20 69 6e 20 | 63 6f 6e 6a 75 6e 63 74 |gned in |conjunct|
|00000800| 69 6f 6e 20 77 69 74 68 | 20 74 68 65 20 66 61 63 |ion with| the fac|
|00000810| 75 6c 74 79 20 69 6e 20 | 74 68 65 20 73 63 69 65 |ulty in |the scie|
|00000820| 6e 63 65 0a 58 64 65 70 | 61 72 74 6d 65 6e 74 20 |nce.Xdep|artment |
|00000830| 61 74 20 74 68 65 20 4c | 69 6e 63 6f 6c 6e 2d 53 |at the L|incoln-S|
|00000840| 75 64 62 75 72 79 20 52 | 65 67 69 6f 6e 61 6c 20 |udbury R|egional |
|00000850| 48 69 67 68 20 53 63 68 | 6f 6f 6c 2e 20 20 54 68 |High Sch|ool.  Th|
|00000860| 65 20 64 61 74 61 62 61 | 73 65 20 64 6f 65 73 20 |e databa|se does |
|00000870| 61 0a 58 76 61 72 69 65 | 74 79 20 6f 66 20 66 75 |a.Xvarie|ty of fu|
|00000880| 6e 63 74 69 6f 6e 73 3a | 0a 58 0a 58 09 31 29 20 |nctions:|.X.X.1) |
|00000890| 47 72 61 70 68 20 65 6c | 65 6d 65 6e 74 61 6c 20 |Graph el|emental |
|000008a0| 64 61 74 61 20 28 78 20 | 76 73 20 79 29 0a 58 09 |data (x |vs y).X.|
|000008b0| 32 29 20 53 65 6c 65 63 | 74 20 61 20 73 65 74 20 |2) Selec|t a set |
|000008c0| 6f 66 20 65 6c 65 6d 65 | 6e 74 73 20 66 72 6f 6d |of eleme|nts from|
|000008d0| 20 67 69 76 65 6e 20 70 | 61 72 61 6d 65 74 65 72 | given p|arameter|
|000008e0| 73 0a 58 09 33 29 20 4c | 6f 6f 6b 20 61 74 20 61 |s.X.3) L|ook at a|
|000008f0| 20 63 65 72 74 61 69 6e | 20 65 6c 65 6d 65 6e 74 | certain| element|
|00000900| 20 61 6e 64 20 64 69 73 | 70 6c 61 79 20 61 6c 6c | and dis|play all|
|00000910| 20 6b 6e 6f 77 6e 20 69 | 6e 66 6f 72 6d 61 74 69 | known i|nformati|
|00000920| 6f 6e 0a 58 09 20 20 20 | 28 61 74 20 6c 65 61 73 |on.X.   |(at leas|
|00000930| 74 2c 20 61 6c 6c 20 69 | 6e 70 75 74 20 64 61 74 |t, all i|nput dat|
|00000940| 61 29 20 6f 6e 20 74 68 | 65 20 65 6c 65 6d 65 6e |a) on th|e elemen|
|00000950| 74 2e 0a 58 0a 58 41 6c | 6c 20 65 6c 65 6d 65 6e |t..X.XAl|l elemen|
|00000960| 74 61 6c 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |tal info|rmation |
|00000970| 69 6e 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |in this |program |
|00000980| 68 61 73 20 62 65 65 6e | 20 65 78 74 72 61 63 74 |has been| extract|
|00000990| 65 64 20 66 72 6f 6d 20 | 74 68 65 0a 58 66 6f 6c |ed from |the.Xfol|
|000009a0| 6c 6f 77 69 6e 67 20 73 | 6f 75 72 63 65 73 3a 0a |lowing s|ources:.|
|000009b0| 58 09 43 52 43 20 48 61 | 6e 64 62 6f 6f 6b 20 6f |X.CRC Ha|ndbook o|
|000009c0| 66 20 43 68 65 6d 69 73 | 74 72 79 20 26 20 50 68 |f Chemis|try & Ph|
|000009d0| 79 73 69 63 73 2c 20 36 | 33 72 64 20 65 64 69 74 |ysics, 6|3rd edit|
|000009e0| 69 6f 6e 2c 20 31 39 38 | 32 2d 31 39 38 33 0a 58 |ion, 198|2-1983.X|
|000009f0| 09 43 52 43 20 48 61 6e | 64 62 6f 6f 6b 20 6f 66 |.CRC Han|dbook of|
|00000a00| 20 43 68 65 6d 69 73 74 | 72 79 20 26 20 50 68 79 | Chemist|ry & Phy|
|00000a10| 73 69 63 73 2c 20 37 30 | 74 68 20 65 64 69 74 69 |sics, 70|th editi|
|00000a20| 6f 6e 2c 20 31 39 38 39 | 2d 31 39 39 30 0a 58 0a |on, 1989|-1990.X.|
|00000a30| 58 6f 20 41 6c 6c 20 77 | 68 6f 6c 65 20 6e 75 6d |Xo All w|hole num|
|00000a40| 62 65 72 73 2c 20 69 66 | 20 72 6f 75 6e 64 65 64 |bers, if| rounded|
|00000a50| 2c 20 61 72 65 20 72 6f | 75 6e 64 65 64 20 6f 6e |, are ro|unded on|
|00000a60| 20 74 68 65 20 70 72 65 | 6d 69 73 65 20 74 68 61 | the pre|mise tha|
|00000a70| 74 3a 0a 58 20 20 2e 30 | 31 20 74 6f 20 2e 34 39 |t:.X  .0|1 to .49|
|00000a80| 20 63 6f 6e 73 69 64 65 | 72 65 64 20 72 6f 75 6e | conside|red roun|
|00000a90| 64 65 64 20 64 6f 77 6e | 0a 58 20 20 2e 35 30 20 |ded down|.X  .50 |
|00000aa0| 74 6f 20 2e 39 39 20 63 | 6f 6e 73 69 64 65 72 65 |to .99 c|onsidere|
|00000ab0| 64 20 72 6f 75 6e 64 65 | 64 20 75 70 0a 58 0a 58 |d rounde|d up.X.X|
|00000ac0| 6f 20 49 6f 6e 69 7a 61 | 74 69 6f 6e 20 45 6e 65 |o Ioniza|tion Ene|
|00000ad0| 72 67 79 20 66 6f 75 6e | 64 20 69 6e 20 74 68 65 |rgy foun|d in the|
|00000ae0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 6d 61 6e 6e 65 | followi|ng manne|
|00000af0| 72 3a 20 28 74 6f 20 63 | 6f 6d 70 72 6f 6d 69 73 |r: (to c|ompromis|
|00000b00| 65 20 74 68 65 0a 58 20 | 20 63 68 65 6d 69 73 74 |e the.X | chemist|
|00000b10| 72 79 20 63 6f 75 72 73 | 65 73 20 61 74 20 74 68 |ry cours|es at th|
|00000b20| 65 20 68 69 67 68 20 73 | 63 68 6f 6f 6c 29 0a 58 |e high s|chool).X|
|00000b30| 09 41 6c 6c 20 66 69 67 | 75 72 65 73 20 62 61 73 |.All fig|ures bas|
|00000b40| 65 64 20 6f 6e 20 74 68 | 65 20 74 61 62 6c 65 20 |ed on th|e table |
|00000b50| 6f 66 20 22 49 4f 4e 49 | 5a 41 54 49 4f 4e 20 50 |of "IONI|ZATION P|
|00000b60| 4f 54 45 4e 54 49 41 4c | 53 22 2c 20 70 61 67 65 |OTENTIAL|S", page|
|00000b70| 73 0a 58 09 45 2d 36 34 | 20 61 6e 64 20 45 2d 36 |s.X.E-64| and E-6|
|00000b80| 35 28 38 32 2d 38 33 29 | 2c 20 63 6f 6c 75 6d 6e |5(82-83)|, column|
|00000b90| 20 49 2c 20 74 68 65 6e | 20 6d 75 6c 74 69 70 6c | I, then| multipl|
|00000ba0| 69 65 64 20 62 79 20 32 | 33 2e 20 20 52 6f 75 6e |ied by 2|3.  Roun|
|00000bb0| 64 65 64 2e 0a 58 0a 58 | 43 68 65 6d 74 61 62 3b |ded..X.X|Chemtab;|
|00000bc0| 20 77 72 69 74 74 65 6e | 20 69 6e 20 43 20 28 31 | written| in C (1|
|00000bd0| 39 39 30 29 20 62 79 20 | 4a 69 6d 20 4b 69 6e 67 |990) by |Jim King|
|00000be0| 20 28 70 75 6c 73 61 72 | 40 6c 73 72 68 73 29 0a | (pulsar|@lsrhs).|
|00000bf0| 58 43 68 65 6d 74 61 62 | 20 56 32 2e 30 31 3b 20 |XChemtab| V2.01; |
|00000c00| 28 6f 76 65 72 6c 61 79 | 20 66 72 6f 6d 20 56 31 |(overlay| from V1|
|00000c10| 29 20 77 72 69 74 74 65 | 6e 20 69 6e 20 43 20 28 |) writte|n in C (|
|00000c20| 31 39 39 31 29 20 62 79 | 20 4a 69 6d 20 4b 69 6e |1991) by| Jim Kin|
|00000c30| 67 0a 58 09 09 09 09 09 | 09 28 6a 65 6b 35 30 33 |g.X.....|.(jek503|
|00000c40| 36 40 75 6c 74 62 2e 69 | 73 63 2e 72 69 74 2e 65 |6@ultb.i|sc.rit.e|
|00000c50| 64 75 29 0a 45 4e 44 5f | 4f 46 5f 46 49 4c 45 0a |du).END_|OF_FILE.|
|00000c60| 20 20 69 66 20 74 65 73 | 74 20 31 33 33 37 20 2d |  if tes|t 1337 -|
|00000c70| 6e 65 20 60 77 63 20 2d | 63 20 3c 27 52 45 41 44 |ne `wc -|c <'READ|
|00000c80| 4d 45 27 60 3b 20 74 68 | 65 6e 0a 20 20 20 20 65 |ME'`; th|en.    e|
|00000c90| 63 68 6f 20 73 68 61 72 | 3a 20 5c 22 27 52 45 41 |cho shar|: \"'REA|
|00000ca0| 44 4d 45 27 5c 22 20 75 | 6e 70 61 63 6b 65 64 20 |DME'\" u|npacked |
|00000cb0| 77 69 74 68 20 77 72 6f | 6e 67 20 73 69 7a 65 21 |with wro|ng size!|
|00000cc0| 0a 20 20 66 69 0a 20 20 | 23 20 65 6e 64 20 6f 66 |.  fi.  |# end of|
|00000cd0| 20 27 52 45 41 44 4d 45 | 27 0a 66 69 0a 69 66 20 | 'README|'.fi.if |
|00000ce0| 74 65 73 74 20 2d 66 20 | 27 52 45 41 44 4d 45 2e |test -f |'README.|
|00000cf0| 46 49 52 53 54 27 20 2d | 61 20 22 24 7b 31 7d 22 |FIRST' -|a "${1}"|
|00000d00| 20 21 3d 20 22 2d 63 22 | 20 3b 20 74 68 65 6e 20 | != "-c"| ; then |
|00000d10| 0a 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 57 69 |.  echo |shar: Wi|
|00000d20| 6c 6c 20 6e 6f 74 20 63 | 6c 6f 62 62 65 72 20 65 |ll not c|lobber e|
|00000d30| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 27 |xisting |file \"'|
|00000d40| 52 45 41 44 4d 45 2e 46 | 49 52 53 54 27 5c 22 0a |README.F|IRST'\".|
|00000d50| 65 6c 73 65 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |else.  e|cho shar|
|00000d60| 3a 20 45 78 74 72 61 63 | 74 69 6e 67 20 5c 22 27 |: Extrac|ting \"'|
|00000d70| 52 45 41 44 4d 45 2e 46 | 49 52 53 54 27 5c 22 20 |README.F|IRST'\" |
|00000d80| 5c 28 32 35 33 32 20 63 | 68 61 72 61 63 74 65 72 |\(2532 c|haracter|
|00000d90| 73 5c 29 0a 20 20 73 65 | 64 20 22 73 2f 5e 58 2f |s\).  se|d "s/^X/|
|00000da0| 2f 22 20 3e 27 52 45 41 | 44 4d 45 2e 46 49 52 53 |/" >'REA|DME.FIRS|
|00000db0| 54 27 20 3c 3c 27 45 4e | 44 5f 4f 46 5f 46 49 4c |T' <<'EN|D_OF_FIL|
|00000dc0| 45 27 0a 58 4a 69 6d 20 | 4b 69 6e 67 20 2d 20 4a |E'.XJim |King - J|
|00000dd0| 61 6e 75 61 72 79 20 31 | 39 39 31 0a 58 0a 58 43 |anuary 1|991.X.XC|
|00000de0| 68 65 6d 74 61 62 20 73 | 75 70 70 6f 72 74 73 20 |hemtab s|upports |
|00000df0| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 64 65 |the foll|owing de|
|00000e00| 76 69 63 65 73 3a 0a 58 | 09 41 4e 59 20 74 65 72 |vices:.X|.ANY ter|
|00000e10| 6d 69 6e 61 6c 20 77 68 | 69 63 68 20 63 61 6e 20 |minal wh|ich can |
|00000e20| 75 74 69 6c 69 7a 65 20 | 74 68 65 20 63 75 72 73 |utilize |the curs|
|00000e30| 65 73 20 73 63 72 65 65 | 6e 20 66 75 6e 63 74 69 |es scree|n functi|
|00000e40| 6f 6e 73 0a 58 09 2a 20 | 47 72 61 70 68 69 63 20 |ons.X.* |Graphic |
|00000e50| 50 65 72 69 6f 64 69 63 | 20 54 61 62 6c 65 20 2d |Periodic| Table -|
|00000e60| 20 41 4e 59 20 56 54 31 | 58 58 20 63 6f 6d 70 61 | ANY VT1|XX compa|
|00000e70| 74 69 62 6c 65 0a 58 09 | 2a 20 47 72 61 70 68 69 |tible.X.|* Graphi|
|00000e80| 6e 67 20 72 6f 75 74 69 | 6e 65 20 28 6e 6f 72 6d |ng routi|ne (norm|
|00000e90| 61 6c 29 20 2d 20 61 6e | 79 20 63 75 72 73 65 73 |al) - an|y curses|
|00000ea0| 20 74 65 72 6d 69 6e 61 | 6c 0a 58 09 2a 20 47 72 | termina|l.X.* Gr|
|00000eb0| 61 70 68 69 63 73 20 72 | 6f 75 74 69 6e 67 20 28 |aphics r|outing (|
|00000ec0| 52 65 47 49 53 29 20 2d | 20 61 6e 79 20 52 65 47 |ReGIS) -| any ReG|
|00000ed0| 49 53 20 63 6f 6d 70 61 | 74 69 62 6c 65 20 28 56 |IS compa|tible (V|
|00000ee0| 54 32 34 30 2c 20 56 54 | 33 58 58 29 0a 58 09 0a |T240, VT|3XX).X..|
|00000ef0| 58 09 43 68 65 6d 74 61 | 62 20 77 61 73 20 64 65 |X.Chemta|b was de|
|00000f00| 73 69 67 6e 65 64 20 74 | 6f 20 77 6f 72 6b 20 6f |signed t|o work o|
|00000f10| 6e 20 61 6e 79 20 74 65 | 72 6d 69 6e 61 6c 20 74 |n any te|rminal t|
|00000f20| 68 61 74 20 68 61 73 20 | 61 6e 20 65 6e 74 72 79 |hat has |an entry|
|00000f30| 0a 58 69 6e 20 74 68 65 | 20 2f 65 74 63 2f 74 65 |.Xin the| /etc/te|
|00000f40| 72 6d 63 61 70 20 66 69 | 6c 65 20 61 6e 64 20 68 |rmcap fi|le and h|
|00000f50| 61 73 20 63 75 72 73 6f | 72 20 6d 6f 76 65 6d 65 |as curso|r moveme|
|00000f60| 6e 74 20 73 65 71 75 65 | 6e 63 65 73 20 69 6e 20 |nt seque|nces in |
|00000f70| 74 68 61 74 0a 58 65 6e | 74 72 79 21 0a 58 0a 58 |that.Xen|try!.X.X|
|00000f80| 48 6f 77 20 74 6f 20 73 | 65 74 75 70 20 43 68 65 |How to s|etup Che|
|00000f90| 6d 74 61 62 20 74 6f 20 | 77 6f 72 6b 20 61 74 20 |mtab to |work at |
|00000fa0| 79 6f 75 72 20 73 69 74 | 65 2e 2e 0a 58 0a 58 57 |your sit|e...X.XW|
|00000fb0| 41 52 4e 49 4e 47 3a 20 | 43 68 65 6d 74 61 62 20 |ARNING: |Chemtab |
|00000fc0| 68 61 73 20 6f 6e 6c 79 | 20 62 65 65 6e 20 74 65 |has only| been te|
|00000fd0| 73 74 65 64 20 75 6e 64 | 65 72 20 55 6c 74 72 69 |sted und|er Ultri|
|00000fe0| 78 20 33 2e 31 20 6f 6e | 20 61 20 56 41 58 20 31 |x 3.1 on| a VAX 1|
|00000ff0| 31 2f 37 38 30 2c 0a 58 | 09 20 61 6e 64 20 61 20 |1/780,.X|. and a |
|00001000| 44 45 43 20 35 38 31 30 | 20 52 49 53 43 20 55 6c |DEC 5810| RISC Ul|
|00001010| 74 72 69 78 20 34 2e 31 | 20 6d 61 63 68 69 6e 65 |trix 4.1| machine|
|00001020| 2e 20 20 43 68 65 6d 74 | 61 62 2c 20 61 73 20 69 |.  Chemt|ab, as i|
|00001030| 73 2c 20 77 69 6c 6c 0a | 58 09 20 70 72 6f 62 61 |s, will.|X. proba|
|00001040| 62 6c 79 20 6f 6e 6c 79 | 20 77 6f 72 6b 20 66 6f |bly only| work fo|
|00001050| 72 20 42 53 44 20 63 6f | 6d 70 61 74 69 62 6c 65 |r BSD co|mpatible|
|00001060| 20 73 79 73 74 65 6d 73 | 2e 20 20 53 59 53 56 20 | systems|.  SYSV |
|00001070| 63 6f 6d 70 61 74 69 62 | 69 6c 69 74 79 0a 58 20 |compatib|ility.X |
|00001080| 20 20 20 20 20 20 20 20 | 69 73 20 6f 6e 20 69 74 |        |is on it|
|00001090| 27 73 20 77 61 79 21 20 | 20 49 20 70 72 6f 6d 69 |'s way! | I promi|
|000010a0| 73 65 21 20 20 53 69 6e | 63 65 20 63 68 65 6d 74 |se!  Sin|ce chemt|
|000010b0| 61 62 20 75 73 65 73 20 | 63 75 72 73 65 73 2c 20 |ab uses |curses, |
|000010c0| 69 74 20 73 68 6f 75 6c | 64 0a 58 09 20 70 72 6f |it shoul|d.X. pro|
|000010d0| 76 65 20 74 6f 20 62 65 | 20 70 6f 72 74 61 62 6c |ve to be| portabl|
|000010e0| 65 2e 0a 58 0a 58 41 6e | 79 20 63 6f 6d 6d 65 6e |e..X.XAn|y commen|
|000010f0| 74 73 2c 20 73 75 67 67 | 65 73 74 69 6f 6e 73 2c |ts, sugg|estions,|
|00001100| 20 62 75 67 73 20 63 61 | 6e 20 62 65 20 72 65 70 | bugs ca|n be rep|
|00001110| 6f 72 74 65 64 20 74 6f | 3a 0a 58 09 6a 65 6b 35 |orted to|:.X.jek5|
|00001120| 30 33 36 40 75 6c 74 62 | 2e 69 73 63 2e 72 69 74 |036@ultb|.isc.rit|
|00001130| 2e 65 64 75 20 28 66 6f | 72 6d 65 72 6c 79 20 70 |.edu (fo|rmerly p|
|00001140| 75 6c 73 61 72 40 78 61 | 69 74 2e 78 65 72 6f 78 |ulsar@xa|it.xerox|
|00001150| 2e 63 6f 6d 21 6c 73 72 | 68 73 29 0a 58 0a 58 48 |.com!lsr|hs).X.XH|
|00001160| 6f 77 20 74 6f 20 73 65 | 74 75 70 3a 0a 58 28 31 |ow to se|tup:.X(1|
|00001170| 29 20 43 68 61 6e 67 65 | 20 74 68 65 20 4d 61 6b |) Change| the Mak|
|00001180| 65 66 69 6c 65 20 74 6f | 20 73 75 69 74 20 79 6f |efile to| suit yo|
|00001190| 75 72 20 73 69 74 65 2e | 20 20 43 75 72 72 65 6e |ur site.|  Curren|
|000011a0| 74 6c 79 2c 20 74 68 65 | 20 6d 61 6b 65 66 69 6c |tly, the| makefil|
|000011b0| 65 20 77 69 6c 6c 0a 58 | 20 20 20 20 63 6f 6d 70 |e will.X|    comp|
|000011c0| 69 6c 65 20 77 69 74 68 | 20 63 63 2c 20 77 69 74 |ile with| cc, wit|
|000011d0| 68 20 74 68 65 20 2d 4f | 20 6f 70 74 69 6f 6e 20 |h the -O| option |
|000011e0| 66 6f 72 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |for opti|mization|
|000011f0| 2c 20 61 6e 64 20 74 68 | 65 20 6e 65 77 0a 58 20 |, and th|e new.X |
|00001200| 20 20 20 52 65 47 49 53 | 20 66 6c 61 67 20 66 6f |   ReGIS| flag fo|
|00001210| 72 20 44 45 43 20 52 65 | 47 49 53 20 63 6f 6d 70 |r DEC Re|GIS comp|
|00001220| 61 74 69 62 6c 65 20 74 | 65 72 6d 69 6e 61 6c 73 |atible t|erminals|
|00001230| 2e 0a 58 28 32 29 20 43 | 68 61 6e 67 65 20 74 75 |..X(2) C|hange tu|
|00001240| 6e 65 2e 68 20 74 6f 20 | 73 75 69 74 20 79 6f 75 |ne.h to |suit you|
|00001250| 72 20 6e 65 65 64 73 2e | 0a 58 28 33 29 20 43 68 |r needs.|.X(3) Ch|
|00001260| 61 6e 67 65 20 74 68 65 | 20 64 69 72 65 63 74 69 |ange the| directi|
|00001270| 6f 6e 73 20 6f 6e 20 68 | 6f 77 20 74 6f 20 67 65 |ons on h|ow to ge|
|00001280| 74 20 74 6f 20 79 6f 75 | 72 20 70 72 69 6e 74 65 |t to you|r printe|
|00001290| 72 20 61 74 20 74 68 65 | 20 65 6e 64 20 6f 66 20 |r at the| end of |
|000012a0| 63 6c 65 61 6e 75 70 2e | 63 0a 58 20 20 20 20 4f |cleanup.|c.X    O|
|000012b0| 72 2c 20 6a 75 73 74 20 | 72 65 6d 6f 76 65 20 74 |r, just |remove t|
|000012c0| 68 6f 73 65 20 70 72 69 | 6e 74 20 73 74 61 74 65 |hose pri|nt state|
|000012d0| 6d 65 6e 74 73 2e 20 20 | 28 54 68 65 20 73 74 61 |ments.  |(The sta|
|000012e0| 74 65 6d 65 6e 74 20 79 | 6f 75 20 77 61 6e 74 20 |tement y|ou want |
|000012f0| 74 6f 20 63 68 61 6e 67 | 65 0a 58 20 20 20 20 69 |to chang|e.X    i|
|00001300| 73 20 69 6e 20 63 6f 6d | 6d 65 6e 74 73 2e 20 20 |s in com|ments.  |
|00001310| 54 68 69 73 20 69 73 20 | 6f 6e 6c 79 20 68 65 6c |This is |only hel|
|00001320| 70 66 75 6c 20 69 66 20 | 79 6f 75 20 61 72 65 20 |pful if |you are |
|00001330| 72 75 6e 6e 69 6e 67 20 | 61 20 63 6c 61 73 73 72 |running |a classr|
|00001340| 6f 6f 6d 20 66 75 6c 6c | 0a 58 20 20 20 20 6f 66 |oom full|.X    of|
|00001350| 20 73 74 75 64 65 6e 74 | 73 2c 20 65 61 63 68 20 | student|s, each |
|00001360| 77 61 6e 74 69 6e 67 20 | 61 20 70 72 69 6e 74 6f |wanting |a printo|
|00001370| 75 74 20 61 6e 64 20 6e | 6f 74 20 6b 6e 6f 77 69 |ut and n|ot knowi|
|00001380| 6e 67 20 68 6f 77 20 74 | 6f 20 67 65 74 20 69 74 |ng how t|o get it|
|00001390| 2e 29 0a 58 28 34 29 20 | 54 79 70 65 20 74 68 65 |.).X(4) |Type the|
|000013a0| 20 63 6f 6d 6d 61 6e 64 | 2c 20 27 6d 61 6b 65 27 | command|, 'make'|
|000013b0| 0a 58 28 35 29 20 54 68 | 65 72 65 20 61 72 65 20 |.X(5) Th|ere are |
|000013c0| 73 6f 6d 65 20 74 65 78 | 74 20 66 69 6c 65 73 20 |some tex|t files |
|000013d0| 77 68 69 63 68 20 63 68 | 65 6d 74 61 62 20 6e 65 |which ch|emtab ne|
|000013e0| 65 64 73 20 74 6f 20 75 | 73 65 2c 20 6e 61 6d 65 |eds to u|se, name|
|000013f0| 6c 79 3a 0a 58 09 65 6c | 69 73 74 2c 20 70 65 72 |ly:.X.el|ist, per|
|00001400| 74 61 62 2c 20 70 65 72 | 74 61 62 5f 67 72 61 70 |tab, per|tab_grap|
|00001410| 68 69 63 2c 20 6f 6e 6c | 69 6e 65 5f 68 65 6c 70 |hic, onl|ine_help|
|00001420| 2c 20 63 6c 6f 73 65 76 | 61 6c 75 65 73 0a 58 20 |, closev|alues.X |
|00001430| 20 20 20 54 68 65 73 65 | 20 73 68 6f 75 6c 64 20 |   These| should |
|00001440| 62 65 20 70 75 74 20 69 | 6e 20 61 20 6c 69 62 72 |be put i|n a libr|
|00001450| 61 72 79 20 64 69 72 65 | 63 74 6f 72 79 20 73 6f |ary dire|ctory so|
|00001460| 6d 65 77 68 65 72 65 20 | 77 68 65 72 65 20 63 68 |mewhere |where ch|
|00001470| 65 6d 74 61 62 0a 58 20 | 20 20 20 63 61 6e 20 72 |emtab.X |   can r|
|00001480| 65 61 64 20 61 6c 6c 20 | 6f 66 20 74 68 65 73 65 |ead all |of these|
|00001490| 2e 20 20 49 6e 20 74 68 | 61 74 20 73 61 6d 65 20 |.  In th|at same |
|000014a0| 64 69 72 65 63 74 6f 72 | 79 2c 20 63 68 65 6d 74 |director|y, chemt|
|000014b0| 61 62 20 77 69 6c 6c 20 | 6e 65 65 64 20 74 6f 0a |ab will |need to.|
|000014c0| 58 20 20 20 20 77 72 69 | 74 65 20 74 6f 20 74 77 |X    wri|te to tw|
|000014d0| 6f 20 66 69 6c 65 73 3a | 20 6c 6f 67 66 69 6c 65 |o files:| logfile|
|000014e0| 20 28 69 66 20 79 6f 75 | 20 77 61 6e 74 20 6f 6e | (if you| want on|
|000014f0| 65 29 20 61 6e 64 20 62 | 69 6e 6c 69 73 74 20 28 |e) and b|inlist (|
|00001500| 62 69 6e 61 72 79 0a 58 | 20 20 20 20 65 6c 65 6d |binary.X|    elem|
|00001510| 65 6e 74 20 6c 69 73 74 | 20 28 66 61 73 74 65 72 |ent list| (faster|
|00001520| 20 74 6f 20 72 65 61 64 | 20 69 6e 29 29 2e 20 20 | to read| in)).  |
|00001530| 50 6c 65 61 73 65 20 6d | 61 6b 65 20 74 68 69 73 |Please m|ake this|
|00001540| 20 73 6f 2e 20 20 49 20 | 77 6f 75 6c 64 0a 58 20 | so.  I |would.X |
|00001550| 20 20 20 68 61 76 65 20 | 69 6e 63 6f 72 70 6f 72 |   have |incorpor|
|00001560| 61 74 65 64 20 69 74 20 | 69 6e 74 6f 20 74 68 65 |ated it |into the|
|00001570| 20 4d 61 6b 65 66 69 6c | 65 20 62 75 74 20 73 6f | Makefil|e but so|
|00001580| 6d 65 20 70 65 6f 70 6c | 65 20 77 6f 75 6c 64 20 |me peopl|e would |
|00001590| 72 61 74 68 65 72 0a 58 | 20 20 20 20 6d 61 6b 65 |rather.X|    make|
|000015a0| 20 73 75 72 65 20 69 74 | 20 77 6f 72 6b 65 64 20 | sure it| worked |
|000015b0| 66 6f 72 20 74 68 65 6d | 2e 2e 2e 0a 58 0a 58 54 |for them|....X.XT|
|000015c0| 68 61 74 20 53 48 4f 55 | 4c 44 20 62 65 20 74 68 |hat SHOU|LD be th|
|000015d0| 65 20 65 78 74 65 6e 74 | 20 6f 66 20 69 74 2e 2e |e extent| of it..|
|000015e0| 20 62 75 74 20 64 6f 6e | 27 74 20 71 75 6f 74 65 | but don|'t quote|
|000015f0| 20 6d 65 20 6f 6e 20 74 | 68 61 74 2e 20 20 49 20 | me on t|hat.  I |
|00001600| 61 6d 20 74 68 65 0a 58 | 61 75 74 68 6f 72 2c 20 |am the.X|author, |
|00001610| 61 6e 64 20 49 20 61 6d | 20 6e 6f 74 20 68 65 6c |and I am| not hel|
|00001620| 64 20 72 65 73 70 6f 6e | 73 69 62 6c 65 20 66 6f |d respon|sible fo|
|00001630| 72 20 61 6e 79 20 64 61 | 6d 61 67 65 20 74 68 65 |r any da|mage the|
|00001640| 20 70 72 6f 67 72 61 6d | 20 6d 69 67 68 74 20 63 | program| might c|
|00001650| 61 75 73 65 2c 0a 58 68 | 6f 77 65 76 65 72 20 69 |ause,.Xh|owever i|
|00001660| 74 27 73 20 6e 6f 74 20 | 70 72 6f 67 72 61 6d 6d |t's not |programm|
|00001670| 65 64 20 74 6f 20 64 6f | 20 61 6e 79 20 64 61 6d |ed to do| any dam|
|00001680| 61 67 65 20 77 68 61 74 | 73 6f 65 76 65 72 2e 0a |age what|soever..|
|00001690| 58 0a 58 49 20 72 65 61 | 6c 69 7a 65 20 74 68 61 |X.XI rea|lize tha|
|000016a0| 74 20 74 68 65 20 64 69 | 72 65 63 74 69 6f 6e 73 |t the di|rections|
|000016b0| 20 61 72 65 20 73 6b 65 | 74 63 68 79 2c 20 62 75 | are ske|tchy, bu|
|000016c0| 74 20 49 20 61 6d 20 61 | 20 70 72 6f 67 72 61 6d |t I am a| program|
|000016d0| 6d 65 72 2c 0a 58 6e 6f | 74 20 61 20 64 6f 63 75 |mer,.Xno|t a docu|
|000016e0| 6d 65 6e 74 65 72 20 28 | 6f 72 20 61 20 63 6f 6d |menter (|or a com|
|000016f0| 6d 65 6e 74 65 72 20 66 | 6f 72 20 74 68 61 74 20 |menter f|or that |
|00001700| 6d 61 74 74 65 72 29 2e | 2e 0a 58 0a 58 49 66 20 |matter).|..X.XIf |
|00001710| 79 6f 75 20 64 65 63 69 | 64 65 20 74 6f 20 75 73 |you deci|de to us|
|00001720| 65 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d 20 69 |e this p|rogram i|
|00001730| 6e 20 61 20 63 6c 61 73 | 73 72 6f 6f 6d 20 65 6e |n a clas|sroom en|
|00001740| 76 69 72 6f 6e 6d 65 6e | 74 2c 20 70 6c 65 61 73 |vironmen|t, pleas|
|00001750| 65 20 73 65 6e 64 20 6d | 65 0a 58 6d 61 69 6c 20 |e send m|e.Xmail |
|00001760| 6f 76 65 72 20 74 68 65 | 20 69 6e 74 65 72 6e 65 |over the| interne|
|00001770| 74 20 61 74 20 6a 65 6b | 35 30 33 36 40 75 6c 74 |t at jek|5036@ult|
|00001780| 62 2e 69 73 63 2e 72 69 | 74 2e 65 64 75 2e 20 20 |b.isc.ri|t.edu.  |
|00001790| 49 20 77 6f 75 6c 64 20 | 6c 6f 76 65 20 74 6f 20 |I would |love to |
|000017a0| 68 65 61 72 0a 58 66 72 | 6f 6d 20 61 6e 79 6f 6e |hear.Xfr|om anyon|
|000017b0| 65 20 77 68 6f 20 75 73 | 65 73 20 63 68 65 6d 74 |e who us|es chemt|
|000017c0| 61 62 20 32 2e 30 31 21 | 20 20 54 68 61 6e 6b 73 |ab 2.01!|  Thanks|
|000017d0| 2e 2e 09 09 09 2d 20 4a | 69 6d 0a 45 4e 44 5f 4f |.....- J|im.END_O|
|000017e0| 46 5f 46 49 4c 45 0a 20 | 20 69 66 20 74 65 73 74 |F_FILE. | if test|
|000017f0| 20 32 35 33 32 20 2d 6e | 65 20 60 77 63 20 2d 63 | 2532 -n|e `wc -c|
|00001800| 20 3c 27 52 45 41 44 4d | 45 2e 46 49 52 53 54 27 | <'READM|E.FIRST'|
|00001810| 60 3b 20 74 68 65 6e 0a | 20 20 20 20 65 63 68 6f |`; then.|    echo|
|00001820| 20 73 68 61 72 3a 20 5c | 22 27 52 45 41 44 4d 45 | shar: \|"'README|
|00001830| 2e 46 49 52 53 54 27 5c | 22 20 75 6e 70 61 63 6b |.FIRST'\|" unpack|
|00001840| 65 64 20 77 69 74 68 20 | 77 72 6f 6e 67 20 73 69 |ed with |wrong si|
|00001850| 7a 65 21 0a 20 20 66 69 | 0a 20 20 23 20 65 6e 64 |ze!.  fi|.  # end|
|00001860| 20 6f 66 20 27 52 45 41 | 44 4d 45 2e 46 49 52 53 | of 'REA|DME.FIRS|
|00001870| 54 27 0a 66 69 0a 69 66 | 20 74 65 73 74 20 2d 66 |T'.fi.if| test -f|
|00001880| 20 27 64 6f 67 70 68 2e | 63 27 20 2d 61 20 22 24 | 'dogph.|c' -a "$|
|00001890| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|000018a0| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen .  e|cho shar|
|000018b0| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 63 6c 6f 62 62 |: Will n|ot clobb|
|000018c0| 65 72 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |er exist|ing file|
|000018d0| 20 5c 22 27 64 6f 67 70 | 68 2e 63 27 5c 22 0a 65 | \"'dogp|h.c'\".e|
|000018e0| 6c 73 65 0a 20 20 65 63 | 68 6f 20 73 68 61 72 3a |lse.  ec|ho shar:|
|000018f0| 20 45 78 74 72 61 63 74 | 69 6e 67 20 5c 22 27 64 | Extract|ing \"'d|
|00001900| 6f 67 70 68 2e 63 27 5c | 22 20 5c 28 37 37 37 30 |ogph.c'\|" \(7770|
|00001910| 20 63 68 61 72 61 63 74 | 65 72 73 5c 29 0a 20 20 | charact|ers\).  |
|00001920| 73 65 64 20 22 73 2f 5e | 58 2f 2f 22 20 3e 27 64 |sed "s/^|X//" >'d|
|00001930| 6f 67 70 68 2e 63 27 20 | 3c 3c 27 45 4e 44 5f 4f |ogph.c' |<<'END_O|
|00001940| 46 5f 46 49 4c 45 27 0a | 58 2f 2a 0a 58 20 2a 20 |F_FILE'.|X/*.X * |
|00001950| 63 68 65 6d 74 61 62 20 | 2d 20 61 20 70 65 72 69 |chemtab |- a peri|
|00001960| 6f 64 69 63 20 74 61 62 | 6c 65 20 64 61 74 61 20 |odic tab|le data |
|00001970| 62 61 73 65 20 28 43 29 | 20 31 39 39 30 20 4a 69 |base (C)| 1990 Ji|
|00001980| 6d 20 4b 69 6e 67 20 28 | 70 75 6c 73 61 72 40 6c |m King (|pulsar@l|
|00001990| 73 72 68 73 29 0a 58 20 | 2a 0a 58 20 2a 20 64 6f |srhs).X |*.X * do|
|000019a0| 67 70 68 2e 63 09 43 6f | 6e 74 61 69 6e 73 20 67 |gph.c.Co|ntains g|
|000019b0| 72 61 70 68 69 6e 67 20 | 70 72 6f 63 65 64 75 72 |raphing |procedur|
|000019c0| 65 73 0a 58 20 2a 2f 0a | 58 0a 58 23 69 6e 63 6c |es.X */.|X.X#incl|
|000019d0| 75 64 65 20 3c 63 75 72 | 73 65 73 2e 68 3e 0a 58 |ude <cur|ses.h>.X|
|000019e0| 23 69 6e 63 6c 75 64 65 | 20 22 77 69 6e 64 6f 77 |#include| "window|
|000019f0| 73 2e 68 22 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |s.h".X#i|nclude <|
|00001a00| 73 74 64 69 6f 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |stdio.h>|.X#inclu|
|00001a10| 64 65 20 3c 6d 61 74 68 | 2e 68 3e 0a 58 23 69 6e |de <math|.h>.X#in|
|00001a20| 63 6c 75 64 65 20 22 74 | 75 6e 65 2e 68 22 0a 58 |clude "t|une.h".X|
|00001a30| 23 69 6e 63 6c 75 64 65 | 20 22 76 61 72 69 61 62 |#include| "variab|
|00001a40| 6c 65 73 2e 68 22 0a 58 | 23 69 6e 63 6c 75 64 65 |les.h".X|#include|
|00001a50| 20 22 65 6c 65 6d 65 6e | 74 2e 68 22 0a 58 23 69 | "elemen|t.h".X#i|
|00001a60| 6e 63 6c 75 64 65 20 22 | 67 72 61 70 68 2e 68 22 |nclude "|graph.h"|
|00001a70| 0a 58 23 69 6e 63 6c 75 | 64 65 20 22 75 6e 64 65 |.X#inclu|de "unde|
|00001a80| 66 73 2e 68 22 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 |fs.h".X.|X/*.X * |
|00001a90| 6e 75 6d 72 28 63 68 29 | 0a 58 20 2a 09 69 6e 70 |numr(ch)|.X *.inp|
|00001aa0| 75 74 3a 09 63 68 20 2d | 20 63 68 61 72 20 2d 20 |ut:.ch -| char - |
|00001ab0| 69 6e 70 75 74 20 74 6f | 20 64 65 74 65 72 6d 69 |input to| determi|
|00001ac0| 6e 65 20 6f 75 74 70 75 | 74 0a 58 20 2a 09 6f 75 |ne outpu|t.X *.ou|
|00001ad0| 74 70 75 74 3a 09 72 65 | 74 75 72 6e 28 29 20 2d |tput:.re|turn() -|
|00001ae0| 20 69 6e 74 0a 58 20 2a | 0a 58 20 2a 20 70 75 72 | int.X *|.X * pur|
|00001af0| 70 6f 73 65 3a 09 74 6f | 20 70 72 69 6e 74 20 74 |pose:.to| print t|
|00001b00| 68 65 20 74 6f 70 20 6c | 69 6e 65 20 6f 66 20 74 |he top l|ine of t|
|00001b10| 68 65 20 67 72 61 70 68 | 2c 20 78 20 76 73 2e 20 |he graph|, x vs. |
|00001b20| 79 2c 20 77 65 20 6e 65 | 65 64 0a 58 20 2a 09 09 |y, we ne|ed.X *..|
|00001b30| 74 68 65 20 61 72 72 61 | 79 20 6e 75 6d 62 65 72 |the arra|y number|
|00001b40| 20 6f 66 20 74 68 65 20 | 63 68 6f 73 65 6e 20 66 | of the |chosen f|
|00001b50| 75 6e 63 74 69 6f 6e 2c | 20 61 72 72 61 79 20 67 |unction,| array g|
|00001b60| 6e 61 6d 65 5b 5d 0a 58 | 20 2a 09 09 66 6f 75 6e |name[].X| *..foun|
|00001b70| 64 20 69 6e 20 67 72 61 | 70 68 2e 68 2e 2e 2e 0a |d in gra|ph.h....|
|00001b80| 58 20 2a 2f 0a 58 6e 75 | 6d 72 28 63 68 29 0a 58 |X */.Xnu|mr(ch).X|
|00001b90| 63 68 61 72 09 63 68 3b | 0a 58 7b 0a 58 09 63 68 |char.ch;|.X{.X.ch|
|00001ba0| 61 72 09 6c 75 6b 5b 31 | 32 5d 3b 0a 58 09 69 6e |ar.luk[1|2];.X.in|
|00001bb0| 74 09 69 3b 0a 58 0a 58 | 09 73 74 72 63 70 79 28 |t.i;.X.X|.strcpy(|
|00001bc0| 6c 75 6b 2c 20 22 20 61 | 62 63 64 65 66 67 68 69 |luk, " a|bcdefghi|
|00001bd0| 6a 22 29 3b 0a 58 09 66 | 6f 72 20 28 69 20 3d 20 |j");.X.f|or (i = |
|00001be0| 31 3b 20 69 20 3c 20 31 | 31 3b 20 69 2b 2b 29 0a |1; i < 1|1; i++).|
|00001bf0| 58 09 09 69 66 20 28 63 | 68 20 3d 3d 20 6c 75 6b |X..if (c|h == luk|
|00001c00| 5b 69 5d 29 20 72 65 74 | 75 72 6e 28 69 29 3b 0a |[i]) ret|urn(i);.|
|00001c10| 58 7d 0a 58 0a 58 66 69 | 78 75 70 28 77 69 6e 29 |X}.X.Xfi|xup(win)|
|00001c20| 0a 58 57 49 4e 44 4f 57 | 09 2a 77 69 6e 3b 0a 58 |.XWINDOW|.*win;.X|
|00001c30| 7b 0a 58 09 77 6d 6f 76 | 65 28 77 69 6e 2c 20 30 |{.X.wmov|e(win, 0|
|00001c40| 2c 20 30 29 3b 0a 58 09 | 77 6d 6f 76 65 28 62 74 |, 0);.X.|wmove(bt|
|00001c50| 6d 2c 20 30 2c 20 30 29 | 3b 0a 58 09 77 6d 6f 76 |m, 0, 0)|;.X.wmov|
|00001c60| 65 28 77 69 6e 2c 20 30 | 2c 20 30 29 3b 0a 58 09 |e(win, 0|, 0);.X.|
|00001c70| 6d 6f 76 65 28 30 2c 20 | 30 29 3b 0a 58 09 72 65 |move(0, |0);.X.re|
|00001c80| 66 72 65 73 68 28 29 3b | 0a 58 09 77 72 65 66 72 |fresh();|.X.wrefr|
|00001c90| 65 73 68 28 62 74 6d 29 | 3b 0a 58 09 77 72 65 66 |esh(btm)|;.X.wref|
|00001ca0| 72 65 73 68 28 77 69 6e | 29 3b 0a 58 7d 0a 58 0a |resh(win|);.X}.X.|
|00001cb0| 58 65 78 74 65 72 6e 20 | 76 6f 69 64 20 66 69 6e |Xextern |void fin|
|00001cc0| 64 28 29 3b 0a 58 0a 58 | 2f 2a 0a 58 20 2a 20 64 |d();.X.X|/*.X * d|
|00001cd0| 6f 67 70 68 28 29 20 2d | 20 6e 6f 20 69 6e 70 75 |ogph() -| no inpu|
|00001ce0| 74 0a 58 20 2a 0a 58 20 | 2a 20 70 75 72 70 6f 73 |t.X *.X |* purpos|
|00001cf0| 65 3a 09 54 68 69 73 20 | 69 73 20 74 68 65 20 6d |e:.This |is the m|
|00001d00| 61 69 6e 20 67 72 61 70 | 68 69 6e 67 20 72 6f 75 |ain grap|hing rou|
|00001d10| 74 69 6e 65 2e 0a 58 20 | 2a 2f 0a 58 64 6f 67 70 |tine..X |*/.Xdogp|
|00001d20| 68 28 29 0a 58 7b 0a 58 | 09 73 74 72 75 63 74 09 |h().X{.X|.struct.|
|00001d30| 65 6c 65 6d 09 2a 74 6d | 70 3b 0a 58 09 63 68 61 |elem.*tm|p;.X.cha|
|00001d40| 72 09 63 2c 20 73 74 72 | 5b 38 30 5d 3b 0a 58 09 |r.c, str|[80];.X.|
|00001d50| 69 6e 74 09 69 2c 20 6a | 2c 20 63 6f 75 6e 74 3b |int.i, j|, count;|
|00001d60| 0a 58 0a 58 09 66 6f 72 | 20 28 69 20 3d 20 30 3b |.X.X.for| (i = 0;|
|00001d70| 20 69 20 3c 20 37 30 3b | 20 69 2b 2b 29 09 09 2f | i < 70;| i++)../|
|00001d80| 2a 20 63 6c 65 61 72 20 | 74 68 65 20 78 20 61 78 |* clear |the x ax|
|00001d90| 69 73 20 70 6f 69 6e 74 | 73 20 2a 2f 0a 58 09 09 |is point|s */.X..|
|00001da0| 78 61 78 69 73 5b 69 5d | 20 3d 20 30 3b 0a 58 09 |xaxis[i]| = 0;.X.|
|00001db0| 66 6f 72 20 28 69 20 3d | 20 30 3b 20 69 20 3c 20 |for (i =| 0; i < |
|00001dc0| 32 31 3b 20 69 2b 2b 29 | 09 09 2f 2a 20 63 6c 65 |21; i++)|../* cle|
|00001dd0| 61 72 20 74 68 65 20 79 | 20 61 78 69 73 20 70 6f |ar the y| axis po|
|00001de0| 69 6e 74 73 20 2a 2f 0a | 58 09 09 79 61 78 69 73 |ints */.|X..yaxis|
|00001df0| 5b 69 5d 20 3d 20 30 3b | 0a 58 0a 58 6c 32 3a 09 |[i] = 0;|.X.Xl2:.|
|00001e00| 77 63 6c 65 61 72 28 67 | 72 61 70 68 29 3b 20 77 |wclear(g|raph); w|
|00001e10| 72 65 66 72 65 73 68 28 | 67 72 61 70 68 29 3b 20 |refresh(|graph); |
|00001e20| 63 6c 65 61 72 28 29 3b | 20 72 65 66 72 65 73 68 |clear();| refresh|
|00001e30| 28 29 3b 0a 58 09 6d 65 | 6e 75 28 22 47 72 61 70 |();.X.me|nu("Grap|
|00001e40| 68 69 6e 67 20 4d 6f 64 | 75 6c 65 22 29 3b 0a 58 |hing Mod|ule");.X|
|00001e50| 09 6d 76 77 61 64 64 73 | 74 72 28 6d 6e 2c 20 30 |.mvwadds|tr(mn, 0|
|00001e60| 2c 20 30 2c 20 22 61 5d | 20 41 74 6f 6d 69 63 20 |, 0, "a]| Atomic |
|00001e70| 4e 75 6d 62 65 72 22 29 | 3b 0a 58 09 6d 76 77 61 |Number")|;.X.mvwa|
|00001e80| 64 64 73 74 72 28 6d 6e | 2c 20 31 2c 20 30 2c 20 |ddstr(mn|, 1, 0, |
|00001e90| 22 62 5d 20 41 74 6f 6d | 69 63 20 4d 61 73 73 22 |"b] Atom|ic Mass"|
|00001ea0| 29 3b 0a 58 09 6d 76 77 | 61 64 64 73 74 72 28 6d |);.X.mvw|addstr(m|
|00001eb0| 6e 2c 20 32 2c 20 30 2c | 20 22 63 5d 20 4d 65 6c |n, 2, 0,| "c] Mel|
|00001ec0| 74 69 6e 67 20 54 65 6d | 70 2e 22 29 3b 0a 58 09 |ting Tem|p.");.X.|
|00001ed0| 6d 76 77 61 64 64 73 74 | 72 28 6d 6e 2c 20 33 2c |mvwaddst|r(mn, 3,|
|00001ee0| 20 30 2c 20 22 64 5d 20 | 42 6f 69 6c 69 6e 67 20 | 0, "d] |Boiling |
|00001ef0| 54 65 6d 70 2e 22 29 3b | 0a 58 09 6d 76 77 61 64 |Temp.");|.X.mvwad|
|00001f00| 64 73 74 72 28 6d 6e 2c | 20 34 2c 20 30 2c 20 22 |dstr(mn,| 4, 0, "|
|00001f10| 65 5d 20 49 6f 6e 69 7a | 61 74 69 6f 6e 20 45 6e |e] Ioniz|ation En|
|00001f20| 65 72 67 79 22 29 3b 0a | 58 09 6d 76 77 61 64 64 |ergy");.|X.mvwadd|
|00001f30| 73 74 72 28 6d 6e 2c 20 | 35 2c 20 30 2c 20 22 66 |str(mn, |5, 0, "f|
|00001f40| 5d 20 45 6c 65 63 74 72 | 6f 6e 65 67 61 74 69 76 |] Electr|onegativ|
|00001f50| 69 74 79 22 29 3b 0a 58 | 09 77 72 65 66 72 65 73 |ity");.X|.wrefres|
|00001f60| 68 28 6d 6e 29 3b 0a 58 | 09 77 6d 6f 76 65 28 6d |h(mn);.X|.wmove(m|
|00001f70| 6e 2c 20 36 2c 20 30 29 | 3b 0a 58 09 77 63 6c 72 |n, 6, 0)|;.X.wclr|
|00001f80| 74 6f 65 6f 6c 28 6d 6e | 29 3b 0a 58 09 6d 76 77 |toeol(mn|);.X.mvw|
|00001f90| 61 64 64 73 74 72 28 6d | 6e 2c 20 36 2c 20 30 2c |addstr(m|n, 6, 0,|
|00001fa0| 20 22 67 5d 20 53 70 65 | 63 69 66 69 63 20 48 65 | "g] Spe|cific He|
|00001fb0| 61 74 22 29 3b 0a 58 09 | 77 72 65 66 72 65 73 68 |at");.X.|wrefresh|
|00001fc0| 28 6d 6e 29 3b 0a 58 09 | 6d 76 77 61 64 64 73 74 |(mn);.X.|mvwaddst|
|00001fd0| 72 28 6d 6e 2c 20 37 2c | 20 30 2c 20 22 68 5d 20 |r(mn, 7,| 0, "h] |
|00001fe0| 44 65 6e 73 69 74 79 22 | 29 3b 0a 58 09 6d 76 77 |Density"|);.X.mvw|
|00001ff0| 61 64 64 73 74 72 28 6d | 6e 2c 20 38 2c 20 30 2c |addstr(m|n, 8, 0,|
|00002000| 20 22 69 5d 20 41 74 6f | 6d 69 63 20 52 61 64 69 | "i] Ato|mic Radi|
|00002010| 75 73 22 29 3b 0a 58 09 | 6d 76 77 61 64 64 73 74 |us");.X.|mvwaddst|
|00002020| 72 28 6d 6e 2c 20 39 2c | 20 30 2c 20 22 6a 5d 20 |r(mn, 9,| 0, "j] |
|00002030| 44 69 73 63 6f 76 65 72 | 79 20 59 65 61 72 22 29 |Discover|y Year")|
|00002040| 3b 0a 58 09 6d 76 77 61 | 64 64 73 74 72 28 6d 6e |;.X.mvwa|ddstr(mn|
|00002050| 2c 20 31 30 2c 20 30 2c | 20 22 47 72 61 70 68 69 |, 10, 0,| "Graphi|
|00002060| 6e 67 20 62 79 20 74 68 | 69 73 2c 20 61 63 72 6f |ng by th|is, acro|
|00002070| 73 73 20 74 68 65 20 58 | 20 61 78 69 73 2e 22 29 |ss the X| axis.")|
|00002080| 3b 0a 58 09 6d 76 77 61 | 64 64 73 74 72 28 6d 6e |;.X.mvwa|ddstr(mn|
|00002090| 2c 20 31 33 2c 20 30 2c | 20 22 2a 2a 2a 20 44 75 |, 13, 0,| "*** Du|
|000020a0| 65 20 74 6f 20 6c 61 63 | 6b 20 6f 66 20 69 6e 66 |e to lac|k of inf|
|000020b0| 6f 72 6d 61 74 69 6f 6e | 20 61 74 20 74 68 69 73 |ormation| at this|
|000020c0| 20 74 69 6d 65 2c 20 67 | 72 61 70 68 73 20 62 65 | time, g|raphs be|
|000020d0| 79 6f 6e 64 22 29 3b 0a | 58 09 6d 76 77 61 64 64 |yond");.|X.mvwadd|
|000020e0| 73 74 72 28 6d 6e 2c 20 | 31 34 2c 20 30 2c 20 22 |str(mn, |14, 0, "|
|000020f0| 2a 2a 2a 20 41 74 6f 6d | 69 63 20 6e 75 6d 62 65 |*** Atom|ic numbe|
|00002100| 72 20 38 36 20 6d 61 79 | 20 62 65 20 6d 69 73 6c |r 86 may| be misl|
|00002110| 65 61 64 69 6e 67 2e 20 | 20 54 68 65 20 70 72 6f |eading. | The pro|
|00002120| 67 72 61 6d 20 69 73 20 | 64 65 73 69 67 6e 65 64 |gram is |designed|
|00002130| 22 29 3b 0a 58 09 6d 76 | 77 61 64 64 73 74 72 28 |");.X.mv|waddstr(|
|00002140| 6d 6e 2c 20 31 35 2c 20 | 30 2c 20 22 2a 2a 2a 20 |mn, 15, |0, "*** |
|00002150| 74 6f 20 63 6f 6d 70 65 | 6e 73 61 74 65 2c 20 62 |to compe|nsate, b|
|00002160| 75 74 20 6e 6f 74 68 69 | 6e 67 20 69 73 20 70 65 |ut nothi|ng is pe|
|00002170| 72 66 65 63 74 2e 22 29 | 3b 0a 58 09 6d 76 77 61 |rfect.")|;.X.mvwa|
|00002180| 64 64 73 74 72 28 6d 6e | 2c 20 31 36 2c 20 30 2c |ddstr(mn|, 16, 0,|
|00002190| 20 22 3e 3e 3e 20 50 52 | 45 53 53 20 52 45 54 55 | ">>> PR|ESS RETU|
|000021a0| 52 4e 20 54 4f 20 52 45 | 54 55 52 4e 20 54 4f 20 |RN TO RE|TURN TO |
|000021b0| 4d 41 49 4e 20 4d 45 4e | 55 2e 22 29 3b 0a 58 66 |MAIN MEN|U.");.Xf|
|000021c0| 69 72 73 74 3a 09 6d 76 | 77 61 64 64 73 74 72 28 |irst:.mv|waddstr(|
|000021d0| 6d 6e 2c 20 31 31 2c 20 | 30 2c 20 22 59 6f 75 72 |mn, 11, |0, "Your|
|000021e0| 20 63 68 6f 69 63 65 3a | 20 22 29 3b 0a 58 09 77 | choice:| ");.X.w|
|000021f0| 72 65 66 72 65 73 68 28 | 6d 6e 29 3b 09 09 09 09 |refresh(|mn);....|
|00002200| 2f 2a 20 63 6f 6c 6c 65 | 63 74 20 74 68 65 69 72 |/* colle|ct their|
|00002210| 20 63 68 6f 69 63 65 73 | 20 2a 2f 0a 58 09 63 75 | choices| */.X.cu|
|00002220| 72 20 3d 20 6d 6e 3b 20 | 78 70 20 3d 20 31 34 3b |r = mn; |xp = 14;|
|00002230| 20 79 70 20 3d 20 31 31 | 3b 0a 58 09 63 72 6d 6f | yp = 11|;.X.crmo|
|00002240| 64 65 28 29 3b 0a 58 09 | 6e 6f 65 63 68 6f 28 29 |de();.X.|noecho()|
|00002250| 3b 0a 58 09 63 31 20 3d | 20 67 65 74 63 68 61 72 |;.X.c1 =| getchar|
|00002260| 28 29 3b 09 2f 2a 20 58 | 20 61 78 69 73 20 63 68 |();./* X| axis ch|
|00002270| 63 20 2a 2f 0a 58 09 69 | 66 20 28 63 31 20 3d 3d |c */.X.i|f (c1 ==|
|00002280| 20 27 5c 6e 27 29 20 7b | 20 77 63 6c 65 61 72 28 | '\n') {| wclear(|
|00002290| 6d 6e 29 3b 20 72 65 74 | 75 72 6e 3b 20 7d 0a 58 |mn); ret|urn; }.X|
|000022a0| 09 69 66 20 28 63 31 20 | 3d 3d 20 27 3f 27 29 20 |.if (c1 |== '?') |
|000022b0| 7b 20 68 65 6c 70 28 33 | 29 3b 20 67 6f 74 6f 20 |{ help(3|); goto |
|000022c0| 66 69 72 73 74 3b 20 7d | 0a 58 09 69 66 20 28 63 |first; }|.X.if (c|
|000022d0| 31 20 3c 20 27 61 27 20 | 7c 7c 20 63 31 20 3e 20 |1 < 'a' ||| c1 > |
|000022e0| 27 6a 27 29 0a 58 09 09 | 67 6f 74 6f 20 66 69 72 |'j').X..|goto fir|
|000022f0| 73 74 3b 0a 58 09 66 6f | 72 20 28 69 20 3d 20 31 |st;.X.fo|r (i = 1|
|00002300| 32 3b 20 69 20 3c 20 31 | 37 3b 20 69 2b 2b 29 20 |2; i < 1|7; i++) |
|00002310| 7b 0a 58 09 09 77 6d 6f | 76 65 28 6d 6e 2c 20 69 |{.X..wmo|ve(mn, i|
|00002320| 2c 20 30 29 3b 20 77 63 | 6c 72 74 6f 65 6f 6c 28 |, 0); wc|lrtoeol(|
|00002330| 6d 6e 29 3b 0a 58 09 7d | 0a 58 0a 58 09 66 69 6e |mn);.X.}|.X.X.fin|
|00002340| 64 28 63 31 2c 20 65 2d | 3e 61 6e 75 6d 29 3b 0a |d(c1, e-|>anum);.|
|00002350| 58 09 78 6d 61 78 20 3d | 20 78 6d 69 6e 20 3d 20 |X.xmax =| xmin = |
|00002360| 78 3b 0a 58 09 69 66 20 | 28 67 74 6f 74 20 3e 20 |x;.X.if |(gtot > |
|00002370| 30 29 20 7b 0a 58 09 09 | 66 6f 72 20 28 74 6d 70 |0) {.X..|for (tmp|
|00002380| 20 3d 20 65 3b 20 74 6d | 70 2d 3e 6e 65 78 74 20 | = e; tm|p->next |
|00002390| 21 3d 20 4e 55 4c 4c 3b | 20 74 6d 70 20 3d 20 74 |!= NULL;| tmp = t|
|000023a0| 6d 70 2d 3e 6e 65 78 74 | 29 20 7b 0a 58 09 09 09 |mp->next|) {.X...|
|000023b0| 66 69 6e 64 28 63 31 2c | 20 74 6d 70 2d 3e 61 6e |find(c1,| tmp->an|
|000023c0| 75 6d 29 3b 0a 58 09 09 | 09 69 66 20 28 78 20 3d |um);.X..|.if (x =|
|000023d0| 3d 20 2d 39 39 39 2e 30 | 29 20 63 6f 6e 74 69 6e |= -999.0|) contin|
|000023e0| 75 65 3b 0a 58 09 09 09 | 69 66 20 28 78 20 3e 20 |ue;.X...|if (x > |
|000023f0| 78 6d 61 78 29 20 78 6d | 61 78 20 3d 20 78 3b 0a |xmax) xm|ax = x;.|
|00002400| 58 09 09 09 69 66 20 28 | 78 20 3c 20 78 6d 69 6e |X...if (|x < xmin|
|00002410| 29 20 78 6d 69 6e 20 3d | 20 78 3b 0a 58 09 09 7d |) xmin =| x;.X..}|
|00002420| 0a 58 09 7d 20 65 6c 73 | 65 20 7b 0a 58 09 09 66 |.X.} els|e {.X..f|
|00002430| 6f 72 20 28 69 20 3d 20 | 31 3b 20 69 20 3c 20 67 |or (i = |1; i < g|
|00002440| 74 6f 74 3b 20 69 2b 2b | 29 20 7b 0a 58 09 09 09 |tot; i++|) {.X...|
|00002450| 66 69 6e 64 28 63 31 2c | 20 73 75 62 31 5b 69 5d |find(c1,| sub1[i]|
|00002460| 29 3b 0a 58 09 09 09 69 | 66 20 28 78 20 3d 3d 20 |);.X...i|f (x == |
|00002470| 2d 39 39 39 2e 30 29 20 | 63 6f 6e 74 69 6e 75 65 |-999.0) |continue|
|00002480| 3b 0a 58 09 09 09 69 66 | 20 28 69 20 3d 3d 20 31 |;.X...if| (i == 1|
|00002490| 29 20 78 6d 61 78 20 3d | 20 78 6d 69 6e 20 3d 20 |) xmax =| xmin = |
|000024a0| 78 3b 0a 58 09 09 09 65 | 6c 73 65 20 7b 0a 58 09 |x;.X...e|lse {.X.|
|000024b0| 09 09 09 69 66 20 28 78 | 20 3e 20 78 6d 61 78 29 |...if (x| > xmax)|
|000024c0| 20 78 6d 61 78 20 3d 20 | 78 3b 0a 58 09 09 09 09 | xmax = |x;.X....|
|000024d0| 69 66 20 28 78 20 3c 20 | 78 6d 69 6e 29 20 78 6d |if (x < |xmin) xm|
|000024e0| 69 6e 20 3d 20 78 3b 0a | 58 09 09 09 7d 0a 58 09 |in = x;.|X...}.X.|
|000024f0| 09 7d 0a 58 09 7d 0a 58 | 0a 58 09 6d 76 77 61 64 |.}.X.}.X|.X.mvwad|
|00002500| 64 73 74 72 28 6d 6e 2c | 20 31 30 2c 20 30 2c 20 |dstr(mn,| 10, 0, |
|00002510| 22 49 66 20 79 6f 75 20 | 77 6f 75 6c 64 20 72 61 |"If you |would ra|
|00002520| 74 68 65 72 20 75 73 65 | 20 74 68 65 20 6d 61 78 |ther use| the max|
|00002530| 69 6d 75 6d 20 61 6e 64 | 20 6d 69 6e 69 6d 75 6d |imum and| minimum|
|00002540| 20 76 61 6c 75 65 73 20 | 6f 66 22 29 3b 0a 58 09 | values |of");.X.|
|00002550| 6d 76 77 61 64 64 73 74 | 72 28 6d 6e 2c 20 31 31 |mvwaddst|r(mn, 11|
|00002560| 2c 20 30 2c 20 22 61 6c | 6c 20 74 68 65 20 65 6c |, 0, "al|l the el|
|00002570| 65 6d 65 6e 74 73 2c 20 | 68 69 74 20 52 45 54 55 |ements, |hit RETU|
|00002580| 52 4e 20 6f 6e 63 65 2e | 22 29 3b 0a 58 09 77 6d |RN once.|");.X.wm|
|00002590| 6f 76 65 28 6d 6e 2c 20 | 31 32 2c 20 30 29 3b 20 |ove(mn, |12, 0); |
|000025a0| 77 70 72 69 6e 74 77 28 | 6d 6e 2c 20 22 41 6c 6c |wprintw(|mn, "All|
|000025b0| 20 74 68 65 20 65 6c 65 | 6d 65 6e 74 27 73 20 76 | the ele|ment's v|
|000025c0| 61 6c 75 65 73 3a 20 4d | 69 6e 69 6d 75 6d 20 25 |alues: M|inimum %|
|000025d0| 66 2c 20 4d 61 78 69 6d | 75 6d 20 25 66 22 2c 20 |f, Maxim|um %f", |
|000025e0| 78 6d 69 6e 2c 20 78 6d | 61 78 29 3b 0a 58 6c 34 |xmin, xm|ax);.Xl4|
|000025f0| 3a 09 6d 76 77 61 64 64 | 73 74 72 28 6d 6e 2c 20 |:.mvwadd|str(mn, |
|00002600| 31 33 2c 20 30 2c 20 22 | 57 68 61 74 20 72 61 6e |13, 0, "|What ran|
|00002610| 67 65 2c 20 58 20 4d 69 | 6e 69 6d 75 6d 3f 20 22 |ge, X Mi|nimum? "|
|00002620| 29 3b 0a 58 09 77 72 65 | 66 72 65 73 68 28 6d 6e |);.X.wre|fresh(mn|
|00002630| 29 3b 0a 58 09 63 75 72 | 20 3d 20 6d 6e 3b 20 78 |);.X.cur| = mn; x|
|00002640| 70 20 3d 20 32 34 3b 20 | 79 70 20 3d 20 31 33 3b |p = 24; |yp = 13;|
|00002650| 0a 58 09 65 63 68 6f 28 | 29 3b 20 6e 6f 63 72 6d |.X.echo(|); nocrm|
|00002660| 6f 64 65 28 29 3b 0a 58 | 09 67 65 74 73 28 73 74 |ode();.X|.gets(st|
|00002670| 72 29 3b 0a 58 09 69 66 | 20 28 73 74 72 5b 30 5d |r);.X.if| (str[0]|
|00002680| 20 3d 3d 20 27 3f 27 29 | 20 7b 20 68 65 6c 70 28 | == '?')| { help(|
|00002690| 34 29 3b 20 67 6f 74 6f | 20 6c 34 3b 20 7d 0a 58 |4); goto| l4; }.X|
|000026a0| 09 69 66 20 28 21 73 74 | 72 6c 65 6e 28 73 74 72 |.if (!st|rlen(str|
|000026b0| 29 29 20 7b 0a 58 09 09 | 78 6d 69 6e 20 3d 20 2d |)) {.X..|xmin = -|
|000026c0| 39 39 39 3b 0a 58 09 09 | 67 6f 74 6f 20 6e 74 3b |999;.X..|goto nt;|
|000026d0| 0a 58 09 7d 0a 58 09 78 | 6d 69 6e 20 3d 20 61 74 |.X.}.X.x|min = at|
|000026e0| 6f 66 28 73 74 72 29 3b | 0a 58 09 66 69 78 75 70 |of(str);|.X.fixup|
|000026f0| 28 6d 6e 29 3b 20 66 69 | 78 75 70 28 73 74 64 73 |(mn); fi|xup(stds|
|00002700| 63 72 29 3b 0a 58 09 6d | 76 77 61 64 64 73 74 72 |cr);.X.m|vwaddstr|
|00002710| 28 6d 6e 2c 20 31 33 2c | 20 30 2c 20 22 57 68 61 |(mn, 13,| 0, "Wha|
|00002720| 74 20 72 61 6e 67 65 2c | 20 58 20 4d 61 78 69 6d |t range,| X Maxim|
|00002730| 75 6d 20 5b 52 45 54 55 | 52 4e 20 66 6f 72 20 76 |um [RETU|RN for v|
|00002740| 61 6c 75 65 20 61 62 6f | 76 65 5d 3f 20 22 29 3b |alue abo|ve]? ");|
|00002750| 0a 58 09 77 72 65 66 72 | 65 73 68 28 6d 6e 29 3b |.X.wrefr|esh(mn);|
|00002760| 0a 58 09 63 75 72 20 3d | 20 6d 6e 3b 20 78 70 20 |.X.cur =| mn; xp |
|00002770| 3d 20 34 38 3b 20 79 70 | 20 3d 20 31 33 3b 0a 58 |= 48; yp| = 13;.X|
|00002780| 09 65 63 68 6f 28 29 3b | 20 6e 6f 63 72 6d 6f 64 |.echo();| nocrmod|
|00002790| 65 28 29 3b 0a 58 09 67 | 65 74 73 28 73 74 72 29 |e();.X.g|ets(str)|
|000027a0| 3b 0a 58 09 69 66 20 28 | 73 74 72 6c 65 6e 28 73 |;.X.if (|strlen(s|
|000027b0| 74 72 29 29 0a 58 09 09 | 78 6d 61 78 20 3d 20 61 |tr)).X..|xmax = a|
|000027c0| 74 6f 66 28 73 74 72 29 | 3b 0a 58 09 66 69 78 75 |tof(str)|;.X.fixu|
|000027d0| 70 28 6d 6e 29 3b 0a 58 | 09 0a 58 6e 74 3a 09 77 |p(mn);.X|..Xnt:.w|
|000027e0| 6d 6f 76 65 28 6d 6e 2c | 20 31 30 2c 20 30 29 3b |move(mn,| 10, 0);|
|000027f0| 20 77 63 6c 72 74 6f 65 | 6f 6c 28 6d 6e 29 3b 20 | wclrtoe|ol(mn); |
|00002800| 77 6d 6f 76 65 28 6d 6e | 2c 20 31 31 2c 20 30 29 |wmove(mn|, 11, 0)|
|00002810| 3b 20 77 63 6c 72 74 6f | 65 6f 6c 28 6d 6e 29 3b |; wclrto|eol(mn);|
|00002820| 0a 58 09 6d 76 77 61 64 | 64 73 74 72 28 6d 6e 2c |.X.mvwad|dstr(mn,|
|00002830| 20 31 30 2c 20 30 2c 20 | 22 47 72 61 70 68 69 6e | 10, 0, |"Graphin|
|00002840| 67 20 62 79 20 74 68 69 | 73 2c 20 64 6f 77 6e 20 |g by thi|s, down |
|00002850| 74 68 65 20 59 20 61 78 | 69 73 2e 20 20 20 22 29 |the Y ax|is.   ")|
|00002860| 3b 0a 58 73 63 6e 64 3a | 09 77 6d 6f 76 65 28 6d |;.Xscnd:|.wmove(m|
|00002870| 6e 2c 20 31 32 2c 20 30 | 29 3b 20 77 63 6c 72 74 |n, 12, 0|); wclrt|
|00002880| 6f 65 6f 6c 28 6d 6e 29 | 3b 20 77 6d 6f 76 65 28 |oeol(mn)|; wmove(|
|00002890| 6d 6e 2c 20 31 33 2c 20 | 30 29 3b 20 77 63 6c 72 |mn, 13, |0); wclr|
|000028a0| 74 6f 65 6f 6c 28 6d 6e | 29 3b 0a 58 09 6d 76 77 |toeol(mn|);.X.mvw|
|000028b0| 61 64 64 73 74 72 28 6d | 6e 2c 20 31 31 2c 20 30 |addstr(m|n, 11, 0|
|000028c0| 2c 20 22 59 6f 75 72 20 | 63 68 6f 69 63 65 3a 20 |, "Your |choice: |
|000028d0| 22 29 3b 0a 58 09 77 72 | 65 66 72 65 73 68 28 6d |");.X.wr|efresh(m|
|000028e0| 6e 29 3b 0a 58 09 63 75 | 72 20 3d 20 6d 6e 3b 20 |n);.X.cu|r = mn; |
|000028f0| 78 70 20 3d 20 31 34 3b | 20 79 70 20 3d 20 31 31 |xp = 14;| yp = 11|
|00002900| 3b 0a 58 09 6e 6f 65 63 | 68 6f 28 29 3b 20 63 72 |;.X.noec|ho(); cr|
|00002910| 6d 6f 64 65 28 29 3b 0a | 58 09 63 32 20 3d 20 77 |mode();.|X.c2 = w|
|00002920| 67 65 74 63 68 28 6d 6e | 29 3b 20 2f 2a 20 59 20 |getch(mn|); /* Y |
|00002930| 61 78 69 73 20 63 68 63 | 20 2a 2f 0a 58 09 69 66 |axis chc| */.X.if|
|00002940| 20 28 63 32 20 3d 3d 20 | 27 3f 27 29 20 7b 20 68 | (c2 == |'?') { h|
|00002950| 65 6c 70 28 35 29 3b 20 | 67 6f 74 6f 20 73 63 6e |elp(5); |goto scn|
|00002960| 64 3b 20 7d 0a 58 09 69 | 66 20 28 63 32 20 3c 20 |d; }.X.i|f (c2 < |
|00002970| 27 61 27 20 7c 7c 20 63 | 32 20 3e 20 27 6a 27 29 |'a' || c|2 > 'j')|
|00002980| 0a 58 09 09 67 6f 74 6f | 20 73 63 6e 64 3b 0a 58 |.X..goto| scnd;.X|
|00002990| 09 6e 6f 65 63 68 6f 28 | 29 3b 0a 58 0a 58 09 77 |.noecho(|);.X.X.w|
|000029a0| 63 6c 65 61 72 28 6d 6e | 29 3b 20 77 72 65 66 72 |clear(mn|); wrefr|
|000029b0| 65 73 68 28 6d 6e 29 3b | 0a 58 09 63 6c 65 61 72 |esh(mn);|.X.clear|
|000029c0| 28 29 3b 20 72 65 66 72 | 65 73 68 28 29 3b 0a 58 |(); refr|esh();.X|
|000029d0| 09 2f 2a 20 48 65 72 65 | 20 77 65 20 66 69 6e 64 |./* Here| we find|
|000029e0| 20 74 68 65 20 78 20 61 | 78 69 73 20 6d 61 78 20 | the x a|xis max |
|000029f0| 61 6e 64 20 6d 69 6e 20 | 76 61 6c 75 65 73 20 2a |and min |values *|
|00002a00| 2f 0a 58 09 2f 2a 20 69 | 66 20 74 68 65 79 20 61 |/.X./* i|f they a|
|00002a10| 72 65 20 6e 6f 74 20 61 | 6c 72 65 61 64 79 20 64 |re not a|lready d|
|00002a20| 65 66 69 6e 65 64 20 2a | 2f 0a 58 09 69 66 20 28 |efined *|/.X.if (|
|00002a30| 78 6d 69 6e 20 3d 3d 20 | 2d 39 39 39 29 20 7b 0a |xmin == |-999) {.|
|00002a40| 58 09 09 66 69 6e 64 28 | 63 31 2c 20 65 2d 3e 61 |X..find(|c1, e->a|
|00002a50| 6e 75 6d 29 3b 0a 58 09 | 09 78 6d 61 78 20 3d 20 |num);.X.|.xmax = |
|00002a60| 78 6d 69 6e 20 3d 20 78 | 3b 0a 58 09 09 66 6f 72 |xmin = x|;.X..for|
|00002a70| 20 28 74 6d 70 20 3d 20 | 65 3b 20 74 6d 70 2d 3e | (tmp = |e; tmp->|
|00002a80| 6e 65 78 74 20 21 3d 20 | 4e 55 4c 4c 3b 20 74 6d |next != |NULL; tm|
|00002a90| 70 20 3d 20 74 6d 70 2d | 3e 6e 65 78 74 29 20 7b |p = tmp-|>next) {|
|00002aa0| 0a 58 09 09 09 66 69 6e | 64 28 63 31 2c 20 74 6d |.X...fin|d(c1, tm|
|00002ab0| 70 2d 3e 61 6e 75 6d 29 | 3b 0a 58 09 09 09 69 66 |p->anum)|;.X...if|
|00002ac0| 20 28 78 20 3d 3d 20 2d | 39 39 39 2e 30 29 20 63 | (x == -|999.0) c|
|00002ad0| 6f 6e 74 69 6e 75 65 3b | 0a 58 09 09 09 69 66 20 |ontinue;|.X...if |
|00002ae0| 28 78 20 3e 20 78 6d 61 | 78 29 20 78 6d 61 78 20 |(x > xma|x) xmax |
|00002af0| 3d 20 78 3b 0a 58 09 09 | 09 69 66 20 28 78 20 3c |= x;.X..|.if (x <|
|00002b00| 20 78 6d 69 6e 29 20 78 | 6d 69 6e 20 3d 20 78 3b | xmin) x|min = x;|
|00002b10| 0a 58 09 09 7d 0a 58 09 | 7d 0a 58 0a 58 09 2f 2a |.X..}.X.|}.X.X./*|
|00002b20| 20 48 65 72 65 20 77 65 | 20 66 69 6e 64 20 74 68 | Here we| find th|
|00002b30| 65 20 79 20 61 78 69 73 | 20 6d 69 6e 20 61 6e 64 |e y axis| min and|
|00002b40| 20 6d 61 78 20 76 61 6c | 75 65 73 20 2a 2f 0a 58 | max val|ues */.X|
|00002b50| 0a 58 09 66 69 6e 64 28 | 63 32 2c 20 65 2d 3e 61 |.X.find(|c2, e->a|
|00002b60| 6e 75 6d 29 3b 0a 58 09 | 79 6d 61 78 20 3d 20 79 |num);.X.|ymax = y|
|00002b70| 6d 69 6e 20 3d 20 78 3b | 0a 58 09 69 66 20 28 67 |min = x;|.X.if (g|
|00002b80| 74 6f 74 20 3e 20 30 29 | 20 7b 0a 58 09 09 66 6f |tot > 0)| {.X..fo|
|00002b90| 72 20 28 74 6d 70 20 3d | 20 65 3b 20 74 6d 70 2d |r (tmp =| e; tmp-|
|00002ba0| 3e 6e 65 78 74 20 21 3d | 20 4e 55 4c 4c 3b 20 74 |>next !=| NULL; t|
|00002bb0| 6d 70 20 3d 20 74 6d 70 | 2d 3e 6e 65 78 74 29 20 |mp = tmp|->next) |
|00002bc0| 7b 0a 58 09 09 09 66 69 | 6e 64 28 63 32 2c 20 74 |{.X...fi|nd(c2, t|
|00002bd0| 6d 70 2d 3e 61 6e 75 6d | 29 3b 0a 58 09 09 09 69 |mp->anum|);.X...i|
|00002be0| 66 20 28 78 20 3d 3d 20 | 2d 39 39 39 2e 30 29 20 |f (x == |-999.0) |
|00002bf0| 63 6f 6e 74 69 6e 75 65 | 3b 0a 58 09 09 09 69 66 |continue|;.X...if|
|00002c00| 20 28 78 20 3e 20 79 6d | 61 78 29 20 79 6d 61 78 | (x > ym|ax) ymax|
|00002c10| 20 3d 20 78 3b 0a 58 09 | 09 09 69 66 20 28 78 20 | = x;.X.|..if (x |
|00002c20| 3c 20 79 6d 69 6e 29 20 | 79 6d 69 6e 20 3d 20 78 |< ymin) |ymin = x|
|00002c30| 3b 0a 58 09 09 7d 0a 58 | 09 7d 20 65 6c 73 65 20 |;.X..}.X|.} else |
|00002c40| 7b 0a 58 09 09 66 6f 72 | 20 28 69 20 3d 20 31 3b |{.X..for| (i = 1;|
|00002c50| 20 69 20 3c 20 67 74 6f | 74 3b 20 69 2b 2b 29 20 | i < gto|t; i++) |
|00002c60| 7b 0a 58 09 09 09 66 69 | 6e 64 28 63 32 2c 20 73 |{.X...fi|nd(c2, s|
|00002c70| 75 62 31 5b 69 5d 29 3b | 0a 58 09 09 09 69 66 20 |ub1[i]);|.X...if |
|00002c80| 28 78 20 3d 3d 20 2d 39 | 39 39 2e 30 29 20 63 6f |(x == -9|99.0) co|
|00002c90| 6e 74 69 6e 75 65 3b 0a | 58 09 09 09 69 66 20 28 |ntinue;.|X...if (|
|00002ca0| 69 20 3d 3d 20 31 29 0a | 58 09 09 09 09 79 6d 61 |i == 1).|X....yma|
|00002cb0| 78 20 3d 20 79 6d 69 6e | 20 3d 20 78 3b 0a 58 09 |x = ymin| = x;.X.|
|00002cc0| 09 09 65 6c 73 65 20 7b | 0a 58 09 09 09 09 69 66 |..else {|.X....if|
|00002cd0| 20 28 78 20 3e 20 79 6d | 61 78 29 20 79 6d 61 78 | (x > ym|ax) ymax|
|00002ce0| 20 3d 20 78 3b 0a 58 09 | 09 09 09 69 66 20 28 78 | = x;.X.|...if (x|
|00002cf0| 20 3c 20 79 6d 69 6e 29 | 20 79 6d 69 6e 20 3d 20 | < ymin)| ymin = |
|00002d00| 78 3b 0a 58 09 09 09 7d | 0a 58 09 09 7d 0a 58 09 |x;.X...}|.X..}.X.|
|00002d10| 7d 0a 58 0a 58 09 2f 2a | 20 4e 6f 77 20 77 65 20 |}.X.X./*| Now we |
|00002d20| 68 61 76 65 20 6d 69 6e | 20 26 20 6d 61 78 73 20 |have min| & maxs |
|00002d30| 77 65 20 68 61 76 65 20 | 74 6f 20 70 75 74 20 61 |we have |to put a|
|00002d40| 20 6e 75 6d 62 65 72 20 | 69 6e 0a 58 09 20 20 20 | number |in.X.   |
|00002d50| 65 61 63 68 20 73 6c 6f | 74 20 6f 6e 20 62 6f 74 |each slo|t on bot|
|00002d60| 68 20 61 78 65 73 20 75 | 73 69 6e 67 20 61 20 73 |h axes u|sing a s|
|00002d70| 63 61 6c 65 20 2a 2f 0a | 58 0a 58 09 73 63 61 6c |cale */.|X.X.scal|
|00002d80| 65 20 3d 20 28 78 6d 61 | 78 20 2d 20 78 6d 69 6e |e = (xma|x - xmin|
|00002d90| 29 20 2f 20 36 39 2e 30 | 3b 20 2f 2a 20 36 39 20 |) / 69.0|; /* 69 |
|00002da0| 69 73 20 23 20 6f 66 20 | 73 6c 6f 74 73 20 69 6e |is # of |slots in|
|00002db0| 20 58 20 61 78 69 73 20 | 2a 2f 0a 58 0a 58 09 78 | X axis |*/.X.X.x|
|00002dc0| 61 78 69 73 5b 31 5d 20 | 3d 20 78 6d 69 6e 3b 0a |axis[1] |= xmin;.|
|00002dd0| 58 09 66 6f 72 20 28 69 | 20 3d 20 32 3b 20 69 20 |X.for (i| = 2; i |
|00002de0| 3c 20 37 30 3b 20 69 2b | 2b 29 0a 58 09 09 78 61 |< 70; i+|+).X..xa|
|00002df0| 78 69 73 5b 69 5d 20 3d | 20 78 61 78 69 73 5b 69 |xis[i] =| xaxis[i|
|00002e00| 2d 31 5d 20 2b 20 73 63 | 61 6c 65 3b 0a 58 0a 58 |-1] + sc|ale;.X.X|
|00002e10| 09 73 63 61 6c 65 20 3d | 20 28 79 6d 61 78 20 2d |.scale =| (ymax -|
|00002e20| 20 79 6d 69 6e 29 20 2f | 20 32 30 2e 30 3b 20 2f | ymin) /| 20.0; /|
|00002e30| 2a 20 32 30 20 69 73 20 | 23 20 6f 66 20 73 6c 6f |* 20 is |# of slo|
|00002e40| 74 73 20 69 6e 20 59 20 | 61 78 69 73 20 2a 2f 0a |ts in Y |axis */.|
|00002e50| 58 0a 58 09 79 61 78 69 | 73 5b 32 30 5d 20 3d 20 |X.X.yaxi|s[20] = |
|00002e60| 79 6d 69 6e 3b 0a 58 09 | 66 6f 72 20 28 69 20 3d |ymin;.X.|for (i =|
|00002e70| 20 31 39 3b 20 69 20 3e | 20 31 3b 20 69 2d 2d 29 | 19; i >| 1; i--)|
|00002e80| 0a 58 09 09 79 61 78 69 | 73 5b 69 5d 20 3d 20 79 |.X..yaxi|s[i] = y|
|00002e90| 61 78 69 73 5b 69 2b 31 | 5d 20 2b 20 73 63 61 6c |axis[i+1|] + scal|
|00002ea0| 65 3b 0a 58 0a 58 09 73 | 70 72 69 6e 74 66 28 73 |e;.X.X.s|printf(s|
|00002eb0| 74 72 2c 20 22 25 73 20 | 28 78 2d 61 78 69 73 29 |tr, "%s |(x-axis)|
|00002ec0| 20 76 73 2e 20 25 73 20 | 28 79 2d 61 78 69 73 29 | vs. %s |(y-axis)|
|00002ed0| 22 2c 20 67 6e 61 6d 65 | 5b 6e 75 6d 72 28 63 31 |", gname|[numr(c1|
|00002ee0| 29 5d 2c 20 67 6e 61 6d | 65 5b 6e 75 6d 72 28 63 |)], gnam|e[numr(c|
|00002ef0| 32 29 5d 29 3b 0a 58 09 | 6d 76 77 61 64 64 73 74 |2)]);.X.|mvwaddst|
|00002f00| 72 28 67 72 61 70 68 2c | 20 30 2c 20 28 34 30 20 |r(graph,| 0, (40 |
|00002f10| 2d 20 28 73 74 72 6c 65 | 6e 28 73 74 72 29 20 2f |- (strle|n(str) /|
|00002f20| 20 32 29 29 2c 20 73 74 | 72 29 3b 0a 58 09 77 72 | 2)), st|r);.X.wr|
|00002f30| 65 66 72 65 73 68 28 67 | 72 61 70 68 29 3b 09 2f |efresh(g|raph);./|
|00002f40| 2a 20 54 68 61 74 20 69 | 73 20 74 68 65 20 74 6f |* That i|s the to|
|00002f50| 70 20 67 72 61 70 68 20 | 6c 69 6e 65 20 2a 2f 0a |p graph |line */.|
|00002f60| 58 09 66 6f 72 20 28 69 | 20 3d 20 32 30 3b 20 69 |X.for (i| = 20; i|
|00002f70| 20 3e 20 31 3b 20 69 2d | 2d 29 20 7b 09 09 2f 2a | > 1; i-|-) {../*|
|00002f80| 20 54 68 65 20 79 20 61 | 78 69 73 20 6c 69 6e 65 | The y a|xis line|
|00002f90| 20 2a 2f 0a 58 09 09 6d | 76 77 61 64 64 73 74 72 | */.X..m|vwaddstr|
|00002fa0| 28 67 72 61 70 68 2c 20 | 69 2c 20 31 30 2c 20 22 |(graph, |i, 10, "|
|00002fb0| 7c 22 29 3b 0a 58 09 09 | 77 72 65 66 72 65 73 68 ||");.X..|wrefresh|
|00002fc0| 28 67 72 61 70 68 29 3b | 0a 58 09 7d 0a 58 09 66 |(graph);|.X.}.X.f|
|00002fd0| 6f 72 20 28 69 20 3d 20 | 31 31 3b 20 69 20 3c 20 |or (i = |11; i < |
|00002fe0| 38 30 3b 20 69 2b 2b 29 | 20 7b 09 09 2f 2a 20 54 |80; i++)| {../* T|
|00002ff0| 68 65 20 78 20 61 78 69 | 73 20 6c 69 6e 65 20 2a |he x axi|s line *|
|00003000| 2f 0a 58 09 09 6d 76 77 | 61 64 64 73 74 72 28 67 |/.X..mvw|addstr(g|
|00003010| 72 61 70 68 2c 20 32 31 | 2c 20 69 2c 20 22 2d 22 |raph, 21|, i, "-"|
|00003020| 29 3b 0a 58 09 09 77 72 | 65 66 72 65 73 68 28 67 |);.X..wr|efresh(g|
|00003030| 72 61 70 68 29 3b 0a 58 | 09 7d 0a 58 09 66 69 78 |raph);.X|.}.X.fix|
|00003040| 75 70 28 67 72 61 70 68 | 29 3b 0a 58 09 6d 76 77 |up(graph|);.X.mvw|
|00003050| 61 64 64 73 74 72 28 67 | 72 61 70 68 2c 20 32 31 |addstr(g|raph, 21|
|00003060| 2c 20 31 30 2c 20 22 2b | 22 29 3b 09 09 2f 2a 20 |, 10, "+|");../* |
|00003070| 54 68 65 20 63 6f 72 6e | 65 72 20 2a 2f 0a 58 09 |The corn|er */.X.|
|00003080| 77 72 65 66 72 65 73 68 | 28 67 72 61 70 68 29 3b |wrefresh|(graph);|
|00003090| 0a 58 09 66 6f 72 20 28 | 69 20 3d 20 32 30 3b 20 |.X.for (|i = 20; |
|000030a0| 69 20 3e 20 31 3b 20 69 | 20 2d 3d 20 35 29 20 7b |i > 1; i| -= 5) {|
|000030b0| 09 09 2f 2a 20 59 20 61 | 78 69 73 20 70 6f 69 6e |../* Y a|xis poin|
|000030c0| 74 73 20 2a 2f 0a 58 09 | 09 69 66 20 28 63 32 20 |ts */.X.|.if (c2 |
|000030d0| 3c 20 27 66 27 20 7c 7c | 20 63 32 20 3e 20 27 69 |< 'f' ||| c2 > 'i|
|000030e0| 27 29 0a 58 09 09 09 73 | 70 72 69 6e 74 66 28 73 |').X...s|printf(s|
|000030f0| 74 72 2c 20 22 25 64 20 | 2d 3e 22 2c 20 28 69 6e |tr, "%d |->", (in|
|00003100| 74 29 28 79 61 78 69 73 | 5b 69 5d 2b 2e 35 29 29 |t)(yaxis|[i]+.5))|
|00003110| 3b 0a 58 09 09 65 6c 73 | 65 0a 58 09 09 09 73 70 |;.X..els|e.X...sp|
|00003120| 72 69 6e 74 66 28 73 74 | 72 2c 20 22 25 34 2e 32 |rintf(st|r, "%4.2|
|00003130| 66 20 2d 3e 22 2c 20 79 | 61 78 69 73 5b 69 5d 29 |f ->", y|axis[i])|
|00003140| 3b 0a 58 09 09 6d 76 77 | 61 64 64 73 74 72 28 67 |;.X..mvw|addstr(g|
|00003150| 72 61 70 68 2c 20 69 2c | 20 30 2c 20 73 74 72 29 |raph, i,| 0, str)|
|00003160| 3b 0a 58 09 7d 0a 58 09 | 66 6f 72 20 28 69 20 3d |;.X.}.X.|for (i =|
|00003170| 20 31 3b 20 69 20 3c 20 | 37 39 3b 20 69 20 2b 3d | 1; i < |79; i +=|
|00003180| 20 31 30 29 20 7b 09 09 | 2f 2a 20 58 20 61 78 69 | 10) {..|/* X axi|
|00003190| 73 20 70 6f 69 6e 74 73 | 20 2a 2f 0a 58 09 09 69 |s points| */.X..i|
|000031a0| 66 20 28 63 31 20 3c 20 | 27 66 27 20 7c 7c 20 63 |f (c1 < |'f' || c|
|000031b0| 31 20 3e 20 27 69 27 29 | 0a 58 09 09 09 73 70 72 |1 > 'i')|.X...spr|
|000031c0| 69 6e 74 66 28 73 74 72 | 2c 20 22 5e 25 64 22 2c |intf(str|, "^%d",|
|000031d0| 20 28 69 6e 74 29 28 78 | 61 78 69 73 5b 69 5d 2b | (int)(x|axis[i]+|
|000031e0| 2e 35 29 29 3b 0a 58 09 | 09 65 6c 73 65 0a 58 09 |.5));.X.|.else.X.|
|000031f0| 09 09 73 70 72 69 6e 74 | 66 28 73 74 72 2c 20 22 |..sprint|f(str, "|
|00003200| 5e 25 34 2e 32 66 22 2c | 20 78 61 78 69 73 5b 69 |^%4.2f",| xaxis[i|
|00003210| 5d 29 3b 0a 58 09 09 6d | 76 77 61 64 64 73 74 72 |]);.X..m|vwaddstr|
|00003220| 28 67 72 61 70 68 2c 20 | 32 32 2c 20 69 2b 31 30 |(graph, |22, i+10|
|00003230| 2c 20 73 74 72 29 3b 0a | 58 09 7d 0a 58 09 2f 2a |, str);.|X.}.X./*|
|00003240| 20 54 68 65 20 61 63 74 | 75 61 6c 20 66 69 6e 64 | The act|ual find|
|00003250| 20 26 20 67 72 61 70 68 | 20 2a 2f 0a 58 0a 58 09 | & graph| */.X.X.|
|00003260| 69 66 20 28 67 74 6f 74 | 20 3e 20 30 29 20 7b 0a |if (gtot| > 0) {.|
|00003270| 58 09 09 66 6f 72 20 28 | 74 6d 70 20 3d 20 65 3b |X..for (|tmp = e;|
|00003280| 20 74 6d 70 2d 3e 6e 65 | 78 74 20 21 3d 20 4e 55 | tmp->ne|xt != NU|
|00003290| 4c 4c 3b 20 74 6d 70 20 | 3d 20 74 6d 70 2d 3e 6e |LL; tmp |= tmp->n|
|000032a0| 65 78 74 29 20 7b 0a 58 | 09 09 09 66 69 6e 64 28 |ext) {.X|...find(|
|000032b0| 63 31 2c 20 74 6d 70 2d | 3e 61 6e 75 6d 29 3b 0a |c1, tmp-|>anum);.|
|000032c0| 58 09 09 09 69 66 20 28 | 78 20 3d 3d 20 2d 39 39 |X...if (|x == -99|
|000032d0| 39 2e 30 29 20 63 6f 6e | 74 69 6e 75 65 3b 0a 58 |9.0) con|tinue;.X|
|000032e0| 09 09 09 69 66 20 28 78 | 20 3c 20 78 6d 69 6e 29 |...if (x| < xmin)|
|000032f0| 0a 58 09 09 09 09 63 6f | 6e 74 69 6e 75 65 3b 0a |.X....co|ntinue;.|
|00003300| 58 09 09 09 65 6c 73 65 | 20 69 66 20 28 78 20 3c |X...else| if (x <|
|00003310| 20 78 61 78 69 73 5b 32 | 5d 29 0a 58 09 09 09 09 | xaxis[2|]).X....|
|00003320| 78 73 70 6f 74 20 3d 20 | 31 3b 0a 58 09 09 09 65 |xspot = |1;.X...e|
|00003330| 6c 73 65 20 7b 0a 58 09 | 09 09 09 66 6f 72 20 28 |lse {.X.|...for (|
|00003340| 6a 20 3d 20 32 3b 20 6a | 20 3c 20 37 30 3b 20 6a |j = 2; j| < 70; j|
|00003350| 2b 2b 29 20 7b 0a 58 09 | 09 09 09 09 69 66 20 28 |++) {.X.|....if (|
|00003360| 78 20 3e 20 78 61 78 69 | 73 5b 6a 5d 29 0a 58 09 |x > xaxi|s[j]).X.|
|00003370| 09 09 09 09 09 63 6f 6e | 74 69 6e 75 65 3b 0a 58 |.....con|tinue;.X|
|00003380| 09 09 09 09 09 65 6c 73 | 65 0a 58 09 09 09 09 09 |.....els|e.X.....|
|00003390| 09 62 72 65 61 6b 3b 0a | 58 09 09 09 09 7d 0a 58 |.break;.|X....}.X|
|000033a0| 09 09 09 09 78 73 70 6f | 74 20 3d 20 6a 20 2d 20 |....xspo|t = j - |
|000033b0| 31 3b 0a 58 09 09 09 09 | 69 66 20 28 78 20 3e 20 |1;.X....|if (x > |
|000033c0| 78 6d 61 78 29 0a 58 09 | 09 09 09 09 63 6f 6e 74 |xmax).X.|....cont|
|000033d0| 69 6e 75 65 3b 0a 58 09 | 09 09 7d 0a 58 0a 58 09 |inue;.X.|..}.X.X.|
|000033e0| 09 09 2f 2a 20 46 6f 75 | 6e 64 20 77 68 65 72 65 |../* Fou|nd where|
|000033f0| 20 69 74 20 67 6f 65 73 | 20 6f 6e 20 74 68 65 20 | it goes| on the |
|00003400| 78 2c 20 6e 6f 77 20 74 | 68 65 20 79 20 2a 2f 0a |x, now t|he y */.|
|00003410| 58 0a 58 09 09 09 66 69 | 6e 64 28 63 32 2c 20 74 |X.X...fi|nd(c2, t|
|00003420| 6d 70 2d 3e 61 6e 75 6d | 29 3b 0a 58 09 09 09 69 |mp->anum|);.X...i|
|00003430| 66 20 28 78 20 3d 3d 20 | 2d 39 39 39 2e 30 29 20 |f (x == |-999.0) |
|00003440| 63 6f 6e 74 69 6e 75 65 | 3b 0a 58 09 09 09 69 66 |continue|;.X...if|
|00003450| 20 28 78 20 3c 20 79 61 | 78 69 73 5b 31 39 5d 29 | (x < ya|xis[19])|
|00003460| 0a 58 09 09 09 09 79 73 | 70 6f 74 20 3d 20 32 30 |.X....ys|pot = 20|
|00003470| 3b 0a 58 09 09 09 65 6c | 73 65 20 7b 0a 58 09 09 |;.X...el|se {.X..|
|00003480| 09 09 66 6f 72 20 28 6a | 20 3d 20 31 39 3b 20 6a |..for (j| = 19; j|
|00003490| 20 3e 20 31 3b 20 6a 2d | 2d 29 20 7b 0a 58 09 09 | > 1; j-|-) {.X..|
|000034a0| 09 09 09 69 66 20 28 78 | 20 3e 20 79 61 78 69 73 |...if (x| > yaxis|
|000034b0| 5b 6a 5d 29 0a 58 09 09 | 09 09 09 09 63 6f 6e 74 |[j]).X..|....cont|
|000034c0| 69 6e 75 65 3b 0a 58 09 | 09 09 09 09 65 6c 73 65 |inue;.X.|....else|
|000034d0| 0a 58 09 09 09 09 09 09 | 62 72 65 61 6b 3b 0a 58 |.X......|break;.X|
|000034e0| 09 09 09 09 7d 0a 58 09 | 09 09 09 79 73 70 6f 74 |....}.X.|...yspot|
|000034f0| 20 3d 20 6a 3b 0a 58 09 | 09 09 7d 0a 58 0a 58 09 | = j;.X.|..}.X.X.|
|00003500| 09 09 2f 2a 20 41 6c 69 | 67 6e 20 61 6e 64 20 70 |../* Ali|gn and p|
|00003510| 75 74 20 74 68 65 20 64 | 6f 74 20 77 68 65 72 65 |ut the d|ot where|
|00003520| 20 58 20 6d 61 72 6b 73 | 20 74 68 65 20 73 70 6f | X marks| the spo|
|00003530| 74 20 2a 2f 0a 58 0a 58 | 09 09 09 6d 76 77 61 64 |t */.X.X|...mvwad|
|00003540| 64 73 74 72 28 67 72 61 | 70 68 2c 20 79 73 70 6f |dstr(gra|ph, yspo|
|00003550| 74 2c 20 78 73 70 6f 74 | 2b 31 30 2c 20 22 6f 22 |t, xspot|+10, "o"|
|00003560| 29 3b 0a 58 09 09 09 77 | 72 65 66 72 65 73 68 28 |);.X...w|refresh(|
|00003570| 67 72 61 70 68 29 3b 0a | 58 09 09 7d 0a 58 09 7d |graph);.|X..}.X.}|
|00003580| 20 65 6c 73 65 20 7b 0a | 58 09 09 66 6f 72 20 28 | else {.|X..for (|
|00003590| 69 20 3d 20 31 3b 20 69 | 20 3c 20 67 74 6f 74 3b |i = 1; i| < gtot;|
|000035a0| 20 69 2b 2b 29 20 7b 0a | 58 09 09 09 66 69 6e 64 | i++) {.|X...find|
|000035b0| 28 63 31 2c 20 73 75 62 | 31 5b 69 5d 29 3b 0a 58 |(c1, sub|1[i]);.X|
|000035c0| 09 09 09 69 66 20 28 78 | 20 3d 3d 20 2d 39 39 39 |...if (x| == -999|
|000035d0| 2e 30 29 20 63 6f 6e 74 | 69 6e 75 65 3b 0a 58 09 |.0) cont|inue;.X.|
|000035e0| 09 09 69 66 20 28 78 20 | 3c 20 78 6d 69 6e 29 0a |..if (x |< xmin).|
|000035f0| 58 09 09 09 09 63 6f 6e | 74 69 6e 75 65 3b 0a 58 |X....con|tinue;.X|
|00003600| 09 09 09 65 6c 73 65 20 | 69 66 20 28 78 20 3c 20 |...else |if (x < |
|00003610| 78 61 78 69 73 5b 32 5d | 29 0a 58 09 09 09 09 78 |xaxis[2]|).X....x|
|00003620| 73 70 6f 74 20 3d 20 31 | 3b 0a 58 09 09 09 65 6c |spot = 1|;.X...el|
|00003630| 73 65 20 7b 0a 58 09 09 | 09 09 66 6f 72 20 28 6a |se {.X..|..for (j|
|00003640| 20 3d 20 32 3b 20 6a 20 | 3c 20 37 30 3b 20 6a 2b | = 2; j |< 70; j+|
|00003650| 2b 29 20 7b 0a 58 09 09 | 09 09 09 69 66 20 28 78 |+) {.X..|...if (x|
|00003660| 20 3e 20 78 61 78 69 73 | 5b 6a 5d 29 0a 58 09 09 | > xaxis|[j]).X..|
|00003670| 09 09 09 09 63 6f 6e 74 | 69 6e 75 65 3b 0a 58 09 |....cont|inue;.X.|
|00003680| 09 09 09 09 65 6c 73 65 | 0a 58 09 09 09 09 09 09 |....else|.X......|
|00003690| 62 72 65 61 6b 3b 0a 58 | 09 09 09 09 7d 0a 58 09 |break;.X|....}.X.|
|000036a0| 09 09 09 78 73 70 6f 74 | 20 3d 20 6a 20 2d 20 31 |...xspot| = j - 1|
|000036b0| 3b 0a 58 09 09 09 09 69 | 66 20 28 78 20 3e 20 78 |;.X....i|f (x > x|
|000036c0| 6d 61 78 29 0a 58 09 09 | 09 09 09 63 6f 6e 74 69 |max).X..|...conti|
|000036d0| 6e 75 65 3b 0a 58 09 09 | 09 7d 0a 58 0a 58 09 09 |nue;.X..|.}.X.X..|
|000036e0| 09 2f 2a 20 46 6f 75 6e | 64 20 77 68 65 72 65 20 |./* Foun|d where |
|000036f0| 69 74 20 67 6f 65 73 20 | 6f 6e 20 74 68 65 20 78 |it goes |on the x|
|00003700| 2c 20 6e 6f 77 20 74 68 | 65 20 79 20 2a 2f 0a 58 |, now th|e y */.X|
|00003710| 0a 58 09 09 09 66 69 6e | 64 28 63 32 2c 20 73 75 |.X...fin|d(c2, su|
|00003720| 62 31 5b 69 5d 29 3b 0a | 58 09 09 09 69 66 20 28 |b1[i]);.|X...if (|
|00003730| 78 20 3d 3d 20 2d 39 39 | 39 2e 30 29 20 63 6f 6e |x == -99|9.0) con|
|00003740| 74 69 6e 75 65 3b 0a 58 | 09 09 09 69 66 20 28 78 |tinue;.X|...if (x|
|00003750| 20 3c 20 79 61 78 69 73 | 5b 31 39 5d 29 0a 58 09 | < yaxis|[19]).X.|
|00003760| 09 09 09 79 73 70 6f 74 | 20 3d 20 32 30 3b 0a 58 |...yspot| = 20;.X|
|00003770| 09 09 09 65 6c 73 65 20 | 7b 0a 58 09 09 09 09 66 |...else |{.X....f|
|00003780| 6f 72 20 28 6a 20 3d 20 | 31 39 3b 20 6a 20 3e 20 |or (j = |19; j > |
|00003790| 31 3b 20 6a 2d 2d 29 20 | 7b 0a 58 09 09 09 09 09 |1; j--) |{.X.....|
|000037a0| 69 66 20 28 78 20 3e 20 | 79 61 78 69 73 5b 6a 5d |if (x > |yaxis[j]|
|000037b0| 29 0a 58 09 09 09 09 09 | 09 63 6f 6e 74 69 6e 75 |).X.....|.continu|
|000037c0| 65 3b 0a 58 09 09 09 09 | 09 65 6c 73 65 0a 58 09 |e;.X....|.else.X.|
|000037d0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 09 |.....bre|ak;.X...|
|000037e0| 09 7d 0a 58 09 09 09 09 | 79 73 70 6f 74 20 3d 20 |.}.X....|yspot = |
|000037f0| 6a 3b 0a 58 09 09 09 7d | 0a 58 0a 58 09 09 09 2f |j;.X...}|.X.X.../|
|00003800| 2a 20 41 6c 69 67 6e 20 | 61 6e 64 20 70 75 74 20 |* Align |and put |
|00003810| 74 68 65 20 64 6f 74 20 | 77 68 65 72 65 20 58 20 |the dot |where X |
|00003820| 6d 61 72 6b 73 20 74 68 | 65 20 73 70 6f 74 20 2a |marks th|e spot *|
|00003830| 2f 0a 58 0a 58 09 09 09 | 6d 76 77 61 64 64 73 74 |/.X.X...|mvwaddst|
|00003840| 72 28 67 72 61 70 68 2c | 20 79 73 70 6f 74 2c 20 |r(graph,| yspot, |
|00003850| 78 73 70 6f 74 2b 31 30 | 2c 20 22 6f 22 29 3b 0a |xspot+10|, "o");.|
|00003860| 58 09 09 09 77 72 65 66 | 72 65 73 68 28 67 72 61 |X...wref|resh(gra|
|00003870| 70 68 29 3b 0a 58 09 09 | 7d 0a 58 09 7d 0a 58 0a |ph);.X..|}.X.}.X.|
|00003880| 58 09 63 61 70 74 75 72 | 65 28 67 72 61 70 68 2c |X.captur|e(graph,|
|00003890| 20 31 2c 20 30 29 3b 0a | 58 09 73 70 63 28 29 3b | 1, 0);.|X.spc();|
|000038a0| 09 09 2f 2a 20 53 70 61 | 63 65 20 74 6f 20 63 6f |../* Spa|ce to co|
|000038b0| 6e 74 69 6e 75 65 3f 20 | 2a 2f 0a 58 09 77 63 6c |ntinue? |*/.X.wcl|
|000038c0| 65 61 72 28 67 72 61 70 | 68 29 3b 0a 58 09 77 72 |ear(grap|h);.X.wr|
|000038d0| 65 66 72 65 73 68 28 67 | 72 61 70 68 29 3b 0a 58 |efresh(g|raph);.X|
|000038e0| 09 72 65 74 75 72 6e 28 | 30 29 3b 0a 58 7d 0a 45 |.return(|0);.X}.E|
|000038f0| 4e 44 5f 4f 46 5f 46 49 | 4c 45 0a 20 20 69 66 20 |ND_OF_FI|LE.  if |
|00003900| 74 65 73 74 20 37 37 37 | 30 20 2d 6e 65 20 60 77 |test 777|0 -ne `w|
|00003910| 63 20 2d 63 20 3c 27 64 | 6f 67 70 68 2e 63 27 60 |c -c <'d|ogph.c'`|
|00003920| 3b 20 74 68 65 6e 0a 20 | 20 20 20 65 63 68 6f 20 |; then. |   echo |
|00003930| 73 68 61 72 3a 20 5c 22 | 27 64 6f 67 70 68 2e 63 |shar: \"|'dogph.c|
|00003940| 27 5c 22 20 75 6e 70 61 | 63 6b 65 64 20 77 69 74 |'\" unpa|cked wit|
|00003950| 68 20 77 72 6f 6e 67 20 | 73 69 7a 65 21 0a 20 20 |h wrong |size!.  |
|00003960| 66 69 0a 20 20 23 20 65 | 6e 64 20 6f 66 20 27 64 |fi.  # e|nd of 'd|
|00003970| 6f 67 70 68 2e 63 27 0a | 66 69 0a 69 66 20 74 65 |ogph.c'.|fi.if te|
|00003980| 73 74 20 2d 66 20 27 64 | 6f 72 65 67 69 73 67 70 |st -f 'd|oregisgp|
|00003990| 68 2e 63 27 20 2d 61 20 | 22 24 7b 31 7d 22 20 21 |h.c' -a |"${1}" !|
|000039a0| 3d 20 22 2d 63 22 20 3b | 20 74 68 65 6e 20 0a 20 |= "-c" ;| then . |
|000039b0| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 57 69 6c 6c | echo sh|ar: Will|
|000039c0| 20 6e 6f 74 20 63 6c 6f | 62 62 65 72 20 65 78 69 | not clo|bber exi|
|000039d0| 73 74 69 6e 67 20 66 69 | 6c 65 20 5c 22 27 64 6f |sting fi|le \"'do|
|000039e0| 72 65 67 69 73 67 70 68 | 2e 63 27 5c 22 0a 65 6c |regisgph|.c'\".el|
|000039f0| 73 65 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |se.  ech|o shar: |
|00003a00| 45 78 74 72 61 63 74 69 | 6e 67 20 5c 22 27 64 6f |Extracti|ng \"'do|
|00003a10| 72 65 67 69 73 67 70 68 | 2e 63 27 5c 22 20 5c 28 |regisgph|.c'\" \(|
|00003a20| 31 30 35 31 37 20 63 68 | 61 72 61 63 74 65 72 73 |10517 ch|aracters|
|00003a30| 5c 29 0a 20 20 73 65 64 | 20 22 73 2f 5e 58 2f 2f |\).  sed| "s/^X//|
|00003a40| 22 20 3e 27 64 6f 72 65 | 67 69 73 67 70 68 2e 63 |" >'dore|gisgph.c|
|00003a50| 27 20 3c 3c 27 45 4e 44 | 5f 4f 46 5f 46 49 4c 45 |' <<'END|_OF_FILE|
|00003a60| 27 0a 58 23 69 66 64 65 | 66 09 52 65 47 49 53 0a |'.X#ifde|f.ReGIS.|
|00003a70| 58 0a 58 2f 2a 0a 58 20 | 2a 20 63 68 65 6d 74 61 |X.X/*.X |* chemta|
|00003a80| 62 20 2d 20 61 20 70 65 | 72 69 6f 64 69 63 20 74 |b - a pe|riodic t|
|00003a90| 61 62 6c 65 20 64 61 74 | 61 20 62 61 73 65 20 28 |able dat|a base (|
|00003aa0| 43 29 20 31 39 39 30 20 | 4a 69 6d 20 4b 69 6e 67 |C) 1990 |Jim King|
|00003ab0| 0a 58 20 2a 20 20 20 20 | 20 20 20 20 20 20 20 6a |.X *    |       j|
|00003ac0| 65 6b 35 30 33 36 40 72 | 69 74 76 61 78 2e 69 73 |ek5036@r|itvax.is|
|00003ad0| 63 2e 72 69 74 2e 65 64 | 75 20 28 66 6f 72 6d 65 |c.rit.ed|u (forme|
|00003ae0| 72 6c 79 20 70 75 6c 73 | 61 72 40 6c 73 72 68 73 |rly puls|ar@lsrhs|
|00003af0| 29 0a 58 20 2a 0a 58 20 | 2a 20 64 6f 72 65 67 69 |).X *.X |* doregi|
|00003b00| 73 67 70 68 2e 63 20 2d | 20 47 72 61 70 68 20 62 |sgph.c -| Graph b|
|00003b10| 65 74 74 65 72 20 66 6f | 72 20 52 65 47 49 53 20 |etter fo|r ReGIS |
|00003b20| 63 6f 6d 70 61 74 69 62 | 6c 65 20 75 73 65 72 73 |compatib|le users|
|00003b30| 20 28 4f 43 54 20 31 39 | 39 30 29 0a 58 20 2a 2f | (OCT 19|90).X */|
|00003b40| 0a 58 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 63 75 |.X.X#inc|lude <cu|
|00003b50| 72 73 65 73 2e 68 3e 0a | 58 23 69 6e 63 6c 75 64 |rses.h>.|X#includ|
|00003b60| 65 20 22 77 69 6e 64 6f | 77 73 2e 68 22 0a 58 23 |e "windo|ws.h".X#|
|00003b70| 69 6e 63 6c 75 64 65 20 | 3c 73 74 64 69 6f 2e 68 |include |<stdio.h|
|00003b80| 3e 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 6d 61 74 |>.X#incl|ude <mat|
|00003b90| 68 2e 68 3e 0a 58 23 69 | 6e 63 6c 75 64 65 20 22 |h.h>.X#i|nclude "|
|00003ba0| 76 61 72 69 61 62 6c 65 | 73 2e 68 22 0a 58 23 69 |variable|s.h".X#i|
|00003bb0| 6e 63 6c 75 64 65 20 22 | 65 6c 65 6d 65 6e 74 2e |nclude "|element.|
|00003bc0| 68 22 0a 58 23 69 6e 63 | 6c 75 64 65 20 22 67 72 |h".X#inc|lude "gr|
|00003bd0| 61 70 68 2e 68 22 0a 58 | 23 69 6e 63 6c 75 64 65 |aph.h".X|#include|
|00003be0| 20 22 75 6e 64 65 66 73 | 2e 68 22 0a 58 23 69 6e | "undefs|.h".X#in|
|00003bf0| 63 6c 75 64 65 20 3c 73 | 69 67 6e 61 6c 2e 68 3e |clude <s|ignal.h>|
|00003c00| 0a 58 0a 58 65 78 74 65 | 72 6e 20 69 6e 74 20 6e |.X.Xexte|rn int n|
|00003c10| 75 6d 72 28 29 2c 20 73 | 74 6f 70 28 29 3b 0a 58 |umr(), s|top();.X|
|00003c20| 0a 58 23 65 6e 64 69 66 | 20 52 65 47 49 53 0a 58 |.X#endif| ReGIS.X|
|00003c30| 2f 2a 0a 58 20 2a 20 66 | 69 6e 64 28 63 68 2c 20 |/*.X * f|ind(ch, |
|00003c40| 65 6e 29 0a 58 20 2a 0a | 58 20 2a 20 69 6e 70 75 |en).X *.|X * inpu|
|00003c50| 74 73 3a 20 63 68 61 72 | 20 63 68 3b 20 69 6e 74 |ts: char| ch; int|
|00003c60| 09 65 6e 75 6d 3b 0a 58 | 20 2a 20 72 65 74 75 72 |.enum;.X| * retur|
|00003c70| 6e 73 3a 20 66 6c 6f 61 | 74 69 6e 67 20 70 6f 69 |ns: floa|ting poi|
|00003c80| 6e 74 20 69 6e 74 65 67 | 65 72 0a 58 20 2a 20 70 |nt integ|er.X * p|
|00003c90| 75 72 70 6f 73 65 3a 20 | 72 65 70 6c 61 63 65 20 |urpose: |replace |
|00003ca0| 6d 61 6e 79 20 73 77 69 | 74 63 68 20 73 74 61 74 |many swi|tch stat|
|00003cb0| 65 6d 65 6e 74 73 0a 58 | 20 2a 2f 0a 58 66 69 6e |ements.X| */.Xfin|
|00003cc0| 64 28 63 68 2c 20 65 6e | 29 0a 58 69 6e 74 09 63 |d(ch, en|).Xint.c|
|00003cd0| 68 2c 20 65 6e 3b 0a 58 | 7b 0a 58 09 73 74 72 75 |h, en;.X|{.X.stru|
|00003ce0| 63 74 20 65 6c 65 6d 09 | 2a 70 6f 73 3b 0a 58 09 |ct elem.|*pos;.X.|
|00003cf0| 69 6e 74 09 69 3b 0a 58 | 09 0a 58 09 66 6f 72 20 |int.i;.X|..X.for |
|00003d00| 28 70 6f 73 20 3d 20 65 | 3b 20 65 6e 20 21 3d 20 |(pos = e|; en != |
|00003d10| 70 6f 73 2d 3e 61 6e 75 | 6d 3b 20 70 6f 73 20 3d |pos->anu|m; pos =|
|00003d20| 20 70 6f 73 2d 3e 6e 65 | 78 74 29 20 3b 0a 58 0a | pos->ne|xt) ;.X.|
|00003d30| 58 09 73 77 69 74 63 68 | 28 63 68 29 20 7b 0a 58 |X.switch|(ch) {.X|
|00003d40| 09 09 63 61 73 65 20 27 | 61 27 3a 20 78 20 3d 20 |..case '|a': x = |
|00003d50| 70 6f 73 2d 3e 61 6e 75 | 6d 3b 20 62 72 65 61 6b |pos->anu|m; break|
|00003d60| 3b 0a 58 09 09 63 61 73 | 65 20 27 62 27 3a 20 78 |;.X..cas|e 'b': x|
|00003d70| 20 3d 20 70 6f 73 2d 3e | 61 6d 61 73 73 3b 20 62 | = pos->|amass; b|
|00003d80| 72 65 61 6b 3b 0a 58 09 | 09 63 61 73 65 20 27 63 |reak;.X.|.case 'c|
|00003d90| 27 3a 20 78 20 3d 20 70 | 6f 73 2d 3e 6d 65 6c 74 |': x = p|os->melt|
|00003da0| 3b 20 69 66 20 28 78 20 | 3d 3d 20 4d 45 4c 29 20 |; if (x |== MEL) |
|00003db0| 78 20 3d 20 2d 39 39 39 | 2e 30 3b 0a 58 09 09 09 |x = -999|.0;.X...|
|00003dc0| 20 20 62 72 65 61 6b 3b | 0a 58 09 09 63 61 73 65 |  break;|.X..case|
|00003dd0| 20 27 64 27 3a 20 78 20 | 3d 20 70 6f 73 2d 3e 62 | 'd': x |= pos->b|
|00003de0| 6f 69 6c 3b 20 69 66 20 | 28 78 20 3d 3d 20 42 4f |oil; if |(x == BO|
|00003df0| 49 29 20 78 20 3d 20 2d | 39 39 39 2e 30 3b 0a 58 |I) x = -|999.0;.X|
|00003e00| 09 09 09 20 20 62 72 65 | 61 6b 3b 0a 58 09 09 63 |...  bre|ak;.X..c|
|00003e10| 61 73 65 20 27 65 27 3a | 20 78 20 3d 20 70 6f 73 |ase 'e':| x = pos|
|00003e20| 2d 3e 66 69 6f 3b 20 69 | 66 20 28 78 20 3d 3d 20 |->fio; i|f (x == |
|00003e30| 46 49 4f 29 20 78 20 3d | 20 2d 39 39 39 2e 30 3b |FIO) x =| -999.0;|
|00003e40| 0a 58 09 09 09 20 20 62 | 72 65 61 6b 3b 0a 58 09 |.X...  b|reak;.X.|
|00003e50| 09 63 61 73 65 20 27 66 | 27 3a 20 78 20 3d 20 70 |.case 'f|': x = p|
|00003e60| 6f 73 2d 3e 65 6e 65 67 | 3b 20 69 66 20 28 78 20 |os->eneg|; if (x |
|00003e70| 3d 3d 20 45 4e 47 29 20 | 78 20 3d 20 2d 39 39 39 |== ENG) |x = -999|
|00003e80| 2e 30 3b 0a 58 09 09 20 | 09 20 20 62 72 65 61 6b |.0;.X.. |.  break|
|00003e90| 3b 0a 58 09 09 63 61 73 | 65 20 27 67 27 3a 20 78 |;.X..cas|e 'g': x|
|00003ea0| 20 3d 20 70 6f 73 2d 3e | 73 70 68 74 3b 20 69 66 | = pos->|spht; if|
|00003eb0| 20 28 78 20 3d 3d 20 53 | 50 48 54 29 20 78 20 3d | (x == S|PHT) x =|
|00003ec0| 20 2d 39 39 39 2e 30 3b | 0a 58 09 09 09 20 20 62 | -999.0;|.X...  b|
|00003ed0| 72 65 61 6b 3b 0a 58 09 | 09 63 61 73 65 20 27 68 |reak;.X.|.case 'h|
|00003ee0| 27 3a 20 78 20 3d 20 70 | 6f 73 2d 3e 64 65 6e 73 |': x = p|os->dens|
|00003ef0| 3b 20 69 66 20 28 78 20 | 3d 3d 20 44 45 4e 53 29 |; if (x |== DENS)|
|00003f00| 20 78 20 3d 20 2d 39 39 | 39 2e 30 3b 0a 58 09 09 | x = -99|9.0;.X..|
|00003f10| 09 20 20 62 72 65 61 6b | 3b 0a 58 09 09 63 61 73 |.  break|;.X..cas|
|00003f20| 65 20 27 69 27 3a 20 78 | 20 3d 20 70 6f 73 2d 3e |e 'i': x| = pos->|
|00003f30| 61 72 61 64 3b 20 69 66 | 20 28 78 20 3d 3d 20 41 |arad; if| (x == A|
|00003f40| 52 44 29 20 78 20 3d 20 | 2d 39 39 39 2e 30 3b 0a |RD) x = |-999.0;.|
|00003f50| 58 09 09 09 20 20 62 72 | 65 61 6b 3b 0a 58 09 09 |X...  br|eak;.X..|
|00003f60| 64 65 66 61 75 6c 74 3a | 20 20 78 20 3d 20 70 6f |default:|  x = po|
|00003f70| 73 2d 3e 79 65 61 72 3b | 20 69 66 20 28 78 20 3d |s->year;| if (x =|
|00003f80| 3d 20 59 45 41 29 20 78 | 20 3d 20 2d 39 39 39 2e |= YEA) x| = -999.|
|00003f90| 30 3b 0a 58 09 09 09 20 | 20 62 72 65 61 6b 3b 0a |0;.X... | break;.|
|00003fa0| 58 09 7d 0a 58 7d 0a 58 | 0a 58 2f 2a 0a 58 20 2a |X.}.X}.X|.X/*.X *|
|00003fb0| 20 64 6f 72 65 67 69 73 | 67 70 68 20 2d 20 6e 6f | doregis|gph - no|
|00003fc0| 20 69 6e 70 75 74 0a 58 | 20 2a 0a 58 20 2a 20 70 | input.X| *.X * p|
|00003fd0| 75 72 70 6f 73 65 3a 09 | 52 65 47 49 53 20 67 72 |urpose:.|ReGIS gr|
|00003fe0| 61 70 68 69 63 73 20 73 | 75 70 70 6f 72 74 0a 58 |aphics s|upport.X|
|00003ff0| 20 2a 2f 0a 58 64 6f 72 | 65 67 69 73 67 70 68 28 | */.Xdor|egisgph(|
|00004000| 29 0a 58 7b 0a 58 23 69 | 66 64 65 66 09 52 65 47 |).X{.X#i|fdef.ReG|
|00004010| 49 53 0a 58 09 63 68 61 | 72 09 63 2c 20 73 74 72 |IS.X.cha|r.c, str|
|00004020| 5b 38 30 5d 3b 0a 58 09 | 69 6e 74 09 69 2c 20 6a |[80];.X.|int.i, j|
|00004030| 2c 20 67 72 69 64 2c 20 | 6c 61 73 74 78 2c 20 6c |, grid, |lastx, l|
|00004040| 61 73 74 79 2c 20 63 6f | 6e 6e 65 63 74 2c 20 74 |asty, co|nnect, t|
|00004050| 79 70 65 2c 20 66 69 72 | 73 74 75 70 3b 0a 58 09 |ype, fir|stup;.X.|
|00004060| 73 74 72 75 63 74 20 65 | 6c 65 6d 09 2a 74 6d 70 |struct e|lem.*tmp|
|00004070| 3b 0a 58 09 0a 58 23 69 | 66 64 65 66 09 55 53 45 |;.X..X#i|fdef.USE|
|00004080| 52 53 48 45 4c 4c 0a 58 | 09 73 69 67 6e 61 6c 28 |RSHELL.X|.signal(|
|00004090| 53 49 47 54 53 54 50 2c | 20 53 49 47 5f 49 47 4e |SIGTSTP,| SIG_IGN|
|000040a0| 29 3b 0a 58 23 65 6e 64 | 69 66 09 55 53 45 52 53 |);.X#end|if.USERS|
|000040b0| 48 45 4c 4c 0a 58 0a 58 | 09 66 6f 72 20 28 69 20 |HELL.X.X|.for (i |
|000040c0| 3d 20 30 3b 20 69 20 3c | 20 58 41 58 49 53 44 45 |= 0; i <| XAXISDE|
|000040d0| 46 3b 20 69 2b 2b 29 0a | 58 09 09 78 61 78 69 73 |F; i++).|X..xaxis|
|000040e0| 5b 69 5d 20 3d 20 30 3b | 0a 58 09 66 6f 72 20 28 |[i] = 0;|.X.for (|
|000040f0| 69 20 3d 20 30 3b 20 69 | 20 3c 20 59 41 58 49 53 |i = 0; i| < YAXIS|
|00004100| 44 45 46 3b 20 69 2b 2b | 29 0a 58 09 09 79 61 78 |DEF; i++|).X..yax|
|00004110| 69 73 5b 69 5d 20 3d 20 | 30 3b 0a 58 0a 58 09 77 |is[i] = |0;.X.X.w|
|00004120| 63 6c 65 61 72 28 67 72 | 61 70 68 29 3b 20 77 72 |clear(gr|aph); wr|
|00004130| 65 66 72 65 73 68 28 67 | 72 61 70 68 29 3b 20 63 |efresh(g|raph); c|
|00004140| 6c 65 61 72 28 29 3b 20 | 72 65 66 72 65 73 68 28 |lear(); |refresh(|
|00004150| 29 3b 0a 58 09 6d 65 6e | 75 28 22 52 65 47 49 53 |);.X.men|u("ReGIS|
|00004160| 20 47 72 61 70 68 69 6e | 67 20 4d 6f 64 75 6c 65 | Graphin|g Module|
|00004170| 22 29 3b 0a 58 09 6d 76 | 77 61 64 64 73 74 72 28 |");.X.mv|waddstr(|
|00004180| 6d 6e 2c 20 30 2c 20 30 | 2c 20 22 61 5d 20 41 74 |mn, 0, 0|, "a] At|
|00004190| 6f 6d 69 63 20 4e 75 6d | 62 65 72 22 29 3b 0a 58 |omic Num|ber");.X|
|000041a0| 09 6d 76 77 61 64 64 73 | 74 72 28 6d 6e 2c 20 31 |.mvwadds|tr(mn, 1|
|000041b0| 2c 20 30 2c 20 22 62 5d | 20 41 74 6f 6d 69 63 20 |, 0, "b]| Atomic |
|000041c0| 4d 61 73 73 22 29 3b 0a | 58 09 6d 76 77 61 64 64 |Mass");.|X.mvwadd|
|000041d0| 73 74 72 28 6d 6e 2c 20 | 32 2c 20 30 2c 20 22 63 |str(mn, |2, 0, "c|
|000041e0| 5d 20 4d 65 6c 74 69 6e | 67 20 54 65 6d 70 2e 22 |] Meltin|g Temp."|
|000041f0| 29 3b 0a 58 09 6d 76 77 | 61 64 64 73 74 72 28 6d |);.X.mvw|addstr(m|
|00004200| 6e 2c 20 33 2c 20 30 2c | 20 22 64 5d 20 42 6f 69 |n, 3, 0,| "d] Boi|
|00004210| 6c 69 6e 67 20 54 65 6d | 70 2e 22 29 3b 0a 58 09 |ling Tem|p.");.X.|
|00004220| 6d 76 77 61 64 64 73 74 | 72 28 6d 6e 2c 20 34 2c |mvwaddst|r(mn, 4,|
|00004230| 20 30 2c 20 22 65 5d 20 | 49 6f 6e 69 7a 61 74 69 | 0, "e] |Ionizati|
|00004240| 6f 6e 20 45 6e 65 72 67 | 79 22 29 3b 0a 58 09 6d |on Energ|y");.X.m|
|00004250| 76 77 61 64 64 73 74 72 | 28 6d 6e 2c 20 35 2c 20 |vwaddstr|(mn, 5, |
|00004260| 30 2c 20 22 66 5d 20 45 | 6c 65 63 74 72 6f 6e 65 |0, "f] E|lectrone|
|00004270| 67 61 74 69 76 69 74 79 | 22 29 3b 0a 58 09 6d 76 |gativity|");.X.mv|
|00004280| 77 61 64 64 73 74 72 28 | 6d 6e 2c 20 36 2c 20 30 |waddstr(|mn, 6, 0|
|00004290| 2c 20 22 67 5d 20 53 70 | 65 63 69 66 69 63 20 48 |, "g] Sp|ecific H|
|000042a0| 65 61 74 22 29 3b 0a 58 | 09 6d 76 77 61 64 64 73 |eat");.X|.mvwadds|
|000042b0| 74 72 28 6d 6e 2c 20 37 | 2c 20 30 2c 20 22 68 5d |tr(mn, 7|, 0, "h]|
|000042c0| 20 44 65 6e 73 69 74 79 | 22 29 3b 0a 58 09 6d 76 | Density|");.X.mv|
|000042d0| 77 61 64 64 73 74 72 28 | 6d 6e 2c 20 38 2c 20 30 |waddstr(|mn, 8, 0|
|000042e0| 2c 20 22 69 5d 20 41 74 | 6f 6d 69 63 20 52 61 64 |, "i] At|omic Rad|
|000042f0| 69 75 73 22 29 3b 0a 58 | 09 6d 76 77 61 64 64 73 |ius");.X|.mvwadds|
|00004300| 74 72 28 6d 6e 2c 20 39 | 2c 20 30 2c 20 22 6a 5d |tr(mn, 9|, 0, "j]|
|00004310| 20 44 69 73 63 6f 76 65 | 72 79 20 59 65 61 72 22 | Discove|ry Year"|
|00004320| 29 3b 0a 58 09 6d 76 77 | 61 64 64 73 74 72 28 6d |);.X.mvw|addstr(m|
|00004330| 6e 2c 20 31 30 2c 20 30 | 2c 20 22 47 72 61 70 68 |n, 10, 0|, "Graph|
|00004340| 69 6e 67 20 62 79 20 74 | 68 69 73 2c 20 61 63 72 |ing by t|his, acr|
|00004350| 6f 73 73 20 74 68 65 20 | 58 20 61 78 69 73 2e 22 |oss the |X axis."|
|00004360| 29 3b 0a 58 09 6d 76 77 | 61 64 64 73 74 72 28 6d |);.X.mvw|addstr(m|
|00004370| 6e 2c 20 31 33 2c 20 30 | 2c 20 22 2a 2a 2a 20 44 |n, 13, 0|, "*** D|
|00004380| 75 65 20 74 6f 20 6c 61 | 63 6b 20 6f 66 20 69 6e |ue to la|ck of in|
|00004390| 66 6f 72 6d 61 74 69 6f | 6e 20 61 74 20 74 68 69 |formatio|n at thi|
|000043a0| 73 20 74 69 6d 65 2c 20 | 67 72 61 70 68 73 20 62 |s time, |graphs b|
|000043b0| 65 79 6f 6e 64 22 29 3b | 0a 58 09 6d 76 77 61 64 |eyond");|.X.mvwad|
|000043c0| 64 73 74 72 28 6d 6e 2c | 20 31 34 2c 20 30 2c 20 |dstr(mn,| 14, 0, |
|000043d0| 22 2a 2a 2a 20 41 74 6f | 6d 69 63 20 6e 75 6d 62 |"*** Ato|mic numb|
|000043e0| 65 72 20 38 36 20 6d 61 | 79 20 62 65 20 6d 69 73 |er 86 ma|y be mis|
|000043f0| 6c 65 61 64 69 6e 67 2e | 20 20 54 68 65 20 70 72 |leading.|  The pr|
|00004400| 6f 67 72 61 6d 20 69 73 | 20 64 65 73 69 67 6e 65 |ogram is| designe|
|00004410| 64 22 29 3b 0a 58 09 6d | 76 77 61 64 64 73 74 72 |d");.X.m|vwaddstr|
|00004420| 28 6d 6e 2c 20 31 35 2c | 20 30 2c 20 22 2a 2a 2a |(mn, 15,| 0, "***|
|00004430| 20 74 6f 20 63 6f 6d 70 | 65 6e 73 61 74 65 2c 20 | to comp|ensate, |
|00004440| 62 75 74 20 6e 6f 74 68 | 69 6e 67 20 69 73 20 70 |but noth|ing is p|
|00004450| 65 72 66 65 63 74 2e 22 | 29 3b 0a 58 09 6d 76 77 |erfect."|);.X.mvw|
|00004460| 61 64 64 73 74 72 28 6d | 6e 2c 20 31 36 2c 20 30 |addstr(m|n, 16, 0|
|00004470| 2c 20 22 3e 3e 3e 20 50 | 52 45 53 53 20 52 45 54 |, ">>> P|RESS RET|
|00004480| 55 52 4e 20 54 4f 20 52 | 45 54 55 52 4e 20 54 4f |URN TO R|ETURN TO|
|00004490| 20 4d 41 49 4e 20 4d 45 | 4e 55 2e 22 29 3b 0a 58 | MAIN ME|NU.");.X|
|000044a0| 66 69 72 73 74 3a 09 6d | 76 77 61 64 64 73 74 72 |first:.m|vwaddstr|
|000044b0| 28 6d 6e 2c 20 31 31 2c | 20 30 2c 20 22 59 6f 75 |(mn, 11,| 0, "You|
|000044c0| 72 20 63 68 6f 69 63 65 | 3a 20 22 29 3b 0a 58 09 |r choice|: ");.X.|
|000044d0| 77 72 65 66 72 65 73 68 | 28 6d 6e 29 3b 09 09 09 |wrefresh|(mn);...|
|000044e0| 09 2f 2a 20 63 6f 6c 6c | 65 63 74 20 74 68 65 69 |./* coll|ect thei|
|000044f0| 72 20 63 68 6f 69 63 65 | 73 20 2a 2f 0a 58 09 63 |r choice|s */.X.c|
|00004500| 75 72 20 3d 20 6d 6e 3b | 20 78 70 20 3d 20 31 34 |ur = mn;| xp = 14|
|00004510| 3b 20 79 70 20 3d 20 31 | 31 3b 0a 58 09 63 72 6d |; yp = 1|1;.X.crm|
|00004520| 6f 64 65 28 29 3b 0a 58 | 09 6e 6f 65 63 68 6f 28 |ode();.X|.noecho(|
|00004530| 29 3b 0a 58 09 63 31 20 | 3d 20 67 65 74 63 68 61 |);.X.c1 |= getcha|
|00004540| 72 28 29 3b 09 2f 2a 20 | 58 20 61 78 69 73 20 63 |r();./* |X axis c|
|00004550| 68 63 20 2a 2f 0a 58 09 | 69 66 20 28 63 31 20 3d |hc */.X.|if (c1 =|
|00004560| 3d 20 27 3f 27 29 20 7b | 20 68 65 6c 70 28 33 29 |= '?') {| help(3)|
|00004570| 3b 20 67 6f 74 6f 20 66 | 69 72 73 74 3b 20 7d 0a |; goto f|irst; }.|
|00004580| 58 09 69 66 20 28 63 31 | 20 3d 3d 20 27 5c 6e 27 |X.if (c1| == '\n'|
|00004590| 29 20 7b 0a 58 23 69 66 | 64 65 66 09 55 53 45 52 |) {.X#if|def.USER|
|000045a0| 53 48 45 4c 4c 0a 58 09 | 09 73 69 67 6e 61 6c 28 |SHELL.X.|.signal(|
|000045b0| 53 49 47 54 53 54 50 2c | 20 73 74 6f 70 29 3b 0a |SIGTSTP,| stop);.|
|000045c0| 58 23 65 6e 64 69 66 09 | 55 53 45 52 53 48 45 4c |X#endif.|USERSHEL|
|000045d0| 4c 0a 58 09 09 77 63 6c | 65 61 72 28 6d 6e 29 3b |L.X..wcl|ear(mn);|
|000045e0| 0a 58 09 09 72 65 74 75 | 72 6e 3b 0a 58 09 7d 0a |.X..retu|rn;.X.}.|
|000045f0| 58 09 69 66 20 28 63 31 | 20 3c 20 27 61 27 20 7c |X.if (c1| < 'a' ||
|00004600| 7c 20 63 31 20 3e 20 27 | 6a 27 29 0a 58 09 09 67 || c1 > '|j').X..g|
|00004610| 6f 74 6f 20 66 69 72 73 | 74 3b 0a 58 09 66 6f 72 |oto firs|t;.X.for|
|00004620| 20 28 69 20 3d 20 31 32 | 3b 20 69 20 3c 20 31 37 | (i = 12|; i < 17|
|00004630| 3b 20 69 2b 2b 29 20 7b | 0a 58 09 09 77 6d 6f 76 |; i++) {|.X..wmov|
|00004640| 65 28 6d 6e 2c 20 69 2c | 20 30 29 3b 20 77 63 6c |e(mn, i,| 0); wcl|
|00004650| 72 74 6f 65 6f 6c 28 6d | 6e 29 3b 0a 58 09 7d 0a |rtoeol(m|n);.X.}.|
|00004660| 58 0a 58 09 66 69 6e 64 | 28 63 31 2c 20 65 2d 3e |X.X.find|(c1, e->|
|00004670| 61 6e 75 6d 29 3b 0a 58 | 09 78 6d 61 78 20 3d 20 |anum);.X|.xmax = |
|00004680| 78 6d 69 6e 20 3d 20 78 | 3b 0a 58 09 69 66 20 28 |xmin = x|;.X.if (|
|00004690| 67 74 6f 74 20 3e 20 30 | 29 20 7b 0a 58 09 09 66 |gtot > 0|) {.X..f|
|000046a0| 6f 72 20 28 74 6d 70 20 | 3d 20 65 3b 20 74 6d 70 |or (tmp |= e; tmp|
|000046b0| 2d 3e 6e 65 78 74 20 21 | 3d 20 4e 55 4c 4c 3b 20 |->next !|= NULL; |
|000046c0| 74 6d 70 20 3d 20 74 6d | 70 2d 3e 6e 65 78 74 29 |tmp = tm|p->next)|
|000046d0| 20 7b 0a 58 09 09 09 66 | 69 6e 64 28 63 31 2c 20 | {.X...f|ind(c1, |
|000046e0| 74 6d 70 2d 3e 61 6e 75 | 6d 29 3b 0a 58 09 09 09 |tmp->anu|m);.X...|
|000046f0| 69 66 20 28 78 20 3d 3d | 20 2d 39 39 39 2e 30 29 |if (x ==| -999.0)|
|00004700| 20 63 6f 6e 74 69 6e 75 | 65 3b 0a 58 09 09 09 69 | continu|e;.X...i|
|00004710| 66 20 28 78 20 3e 20 78 | 6d 61 78 29 20 78 6d 61 |f (x > x|max) xma|
|00004720| 78 20 3d 20 78 3b 0a 58 | 09 09 09 69 66 20 28 78 |x = x;.X|...if (x|
|00004730| 20 3c 20 78 6d 69 6e 29 | 20 78 6d 69 6e 20 3d 20 | < xmin)| xmin = |
|00004740| 78 3b 0a 58 09 09 7d 0a | 58 09 7d 20 65 6c 73 65 |x;.X..}.|X.} else|
|00004750| 20 7b 0a 58 09 09 66 6f | 72 20 28 69 20 3d 20 31 | {.X..fo|r (i = 1|
|00004760| 3b 20 69 20 3c 20 67 74 | 6f 74 3b 20 69 2b 2b 29 |; i < gt|ot; i++)|
|00004770| 20 7b 0a 58 09 09 09 66 | 69 6e 64 28 63 31 2c 20 | {.X...f|ind(c1, |
|00004780| 73 75 62 31 5b 69 5d 29 | 3b 0a 58 09 09 09 69 66 |sub1[i])|;.X...if|
|00004790| 20 28 78 20 3d 3d 20 2d | 39 39 39 2e 30 29 20 63 | (x == -|999.0) c|
|000047a0| 6f 6e 74 69 6e 75 65 3b | 0a 58 09 09 09 69 66 20 |ontinue;|.X...if |
|000047b0| 28 69 20 3d 3d 20 31 29 | 20 78 6d 61 78 20 3d 20 |(i == 1)| xmax = |
|000047c0| 78 6d 69 6e 20 3d 20 78 | 3b 0a 58 09 09 09 65 6c |xmin = x|;.X...el|
|000047d0| 73 65 20 7b 0a 58 09 09 | 09 09 69 66 20 28 78 20 |se {.X..|..if (x |
|000047e0| 3e 20 78 6d 61 78 29 20 | 78 6d 61 78 20 3d 20 78 |> xmax) |xmax = x|
|000047f0| 3b 0a 58 09 09 09 09 69 | 66 20 28 78 20 3c 20 78 |;.X....i|f (x < x|
|00004800| 6d 69 6e 29 20 78 6d 69 | 6e 20 3d 20 78 3b 0a 58 |min) xmi|n = x;.X|
|00004810| 09 09 09 7d 0a 58 09 09 | 7d 0a 58 09 7d 0a 58 0a |...}.X..|}.X.}.X.|
|00004820| 58 09 6d 76 77 61 64 64 | 73 74 72 28 6d 6e 2c 20 |X.mvwadd|str(mn, |
|00004830| 31 30 2c 20 30 2c 20 22 | 49 66 20 79 6f 75 20 77 |10, 0, "|If you w|
|00004840| 6f 75 6c 64 20 72 61 74 | 68 65 72 20 75 73 65 20 |ould rat|her use |
|00004850| 74 68 65 20 6d 61 78 69 | 6d 75 6d 20 61 6e 64 20 |the maxi|mum and |
|00004860| 6d 69 6e 69 6d 75 6d 20 | 76 61 6c 75 65 73 20 6f |minimum |values o|
|00004870| 66 22 29 3b 0a 58 09 6d | 76 77 61 64 64 73 74 72 |f");.X.m|vwaddstr|
|00004880| 28 6d 6e 2c 20 31 31 2c | 20 30 2c 20 22 61 6c 6c |(mn, 11,| 0, "all|
|00004890| 20 74 68 65 20 65 6c 65 | 6d 65 6e 74 73 2c 20 68 | the ele|ments, h|
|000048a0| 69 74 20 52 45 54 55 52 | 4e 20 6f 6e 63 65 2e 22 |it RETUR|N once."|
|000048b0| 29 3b 0a 58 09 77 6d 6f | 76 65 28 6d 6e 2c 20 31 |);.X.wmo|ve(mn, 1|
|000048c0| 32 2c 20 30 29 3b 20 77 | 70 72 69 6e 74 77 28 6d |2, 0); w|printw(m|
|000048d0| 6e 2c 20 22 41 6c 6c 20 | 74 68 65 20 65 6c 65 6d |n, "All |the elem|
|000048e0| 65 6e 74 27 73 20 76 61 | 6c 75 65 73 3a 20 4d 69 |ent's va|lues: Mi|
|000048f0| 6e 69 6d 75 6d 20 25 66 | 2c 20 4d 61 78 69 6d 75 |nimum %f|, Maximu|
|00004900| 6d 20 25 66 22 2c 20 78 | 6d 69 6e 2c 20 78 6d 61 |m %f", x|min, xma|
|00004910| 78 29 3b 0a 58 72 6c 34 | 3a 09 6d 76 77 61 64 64 |x);.Xrl4|:.mvwadd|
|00004920| 73 74 72 28 6d 6e 2c 20 | 31 33 2c 20 30 2c 20 22 |str(mn, |13, 0, "|
|00004930| 57 68 61 74 20 72 61 6e | 67 65 2c 20 58 20 4d 69 |What ran|ge, X Mi|
|00004940| 6e 69 6d 75 6d 3f 20 22 | 29 3b 0a 58 09 77 72 65 |nimum? "|);.X.wre|
|00004950| 66 72 65 73 68 28 6d 6e | 29 3b 0a 58 09 63 75 72 |fresh(mn|);.X.cur|
|00004960| 20 3d 20 6d 6e 3b 20 78 | 70 20 3d 20 32 33 3b 20 | = mn; x|p = 23; |
|00004970| 79 70 20 3d 20 31 33 3b | 0a 58 09 65 63 68 6f 28 |yp = 13;|.X.echo(|
|00004980| 29 3b 20 6e 6f 63 72 6d | 6f 64 65 28 29 3b 0a 58 |); nocrm|ode();.X|
|00004990| 09 67 65 74 73 28 73 74 | 72 29 3b 0a 58 09 69 66 |.gets(st|r);.X.if|
|000049a0| 20 28 73 74 72 5b 30 5d | 20 3d 3d 20 27 3f 27 29 | (str[0]| == '?')|
|000049b0| 20 7b 20 68 65 6c 70 28 | 34 29 3b 20 67 6f 74 6f | { help(|4); goto|
|000049c0| 20 72 6c 34 3b 20 7d 0a | 58 09 69 66 20 28 21 73 | rl4; }.|X.if (!s|
|000049d0| 74 72 6c 65 6e 28 73 74 | 72 29 29 20 7b 0a 58 09 |trlen(st|r)) {.X.|
|000049e0| 09 78 6d 69 6e 20 3d 20 | 2d 39 39 39 3b 0a 58 09 |.xmin = |-999;.X.|
|000049f0| 09 67 6f 74 6f 20 6e 74 | 3b 0a 58 09 7d 0a 58 09 |.goto nt|;.X.}.X.|
|00004a00| 78 6d 69 6e 20 3d 20 61 | 74 6f 66 28 73 74 72 29 |xmin = a|tof(str)|
|00004a10| 3b 0a 58 09 66 69 78 75 | 70 28 6d 6e 29 3b 20 66 |;.X.fixu|p(mn); f|
|00004a20| 69 78 75 70 28 73 74 64 | 73 63 72 29 3b 0a 58 09 |ixup(std|scr);.X.|
|00004a30| 6d 76 77 61 64 64 73 74 | 72 28 6d 6e 2c 20 31 33 |mvwaddst|r(mn, 13|
|00004a40| 2c 20 30 2c 20 22 57 68 | 61 74 20 72 61 6e 67 65 |, 0, "Wh|at range|
|00004a50| 2c 20 58 20 4d 61 78 69 | 6d 75 6d 20 5b 52 45 54 |, X Maxi|mum [RET|
|00004a60| 55 52 4e 20 66 6f 72 20 | 76 61 6c 75 65 20 61 62 |URN for |value ab|
|00004a70| 6f 76 65 5d 3f 20 22 29 | 3b 0a 58 09 77 72 65 66 |ove]? ")|;.X.wref|
|00004a80| 72 65 73 68 28 6d 6e 29 | 3b 0a 58 09 63 75 72 20 |resh(mn)|;.X.cur |
|00004a90| 3d 20 6d 6e 3b 20 78 70 | 20 3d 20 34 39 3b 20 79 |= mn; xp| = 49; y|
|00004aa0| 70 20 3d 20 31 33 3b 0a | 58 09 65 63 68 6f 28 29 |p = 13;.|X.echo()|
|00004ab0| 3b 20 6e 6f 63 72 6d 6f | 64 65 28 29 3b 0a 58 09 |; nocrmo|de();.X.|
|00004ac0| 67 65 74 73 28 73 74 72 | 29 3b 0a 58 09 69 66 20 |gets(str|);.X.if |
|00004ad0| 28 73 74 72 6c 65 6e 28 | 73 74 72 29 29 0a 58 09 |(strlen(|str)).X.|
|00004ae0| 09 78 6d 61 78 20 3d 20 | 61 74 6f 66 28 73 74 72 |.xmax = |atof(str|
|00004af0| 29 3b 0a 58 09 66 69 78 | 75 70 28 6d 6e 29 3b 0a |);.X.fix|up(mn);.|
|00004b00| 58 09 0a 58 6e 74 3a 09 | 77 6d 6f 76 65 28 6d 6e |X..Xnt:.|wmove(mn|
|00004b10| 2c 20 31 30 2c 20 30 29 | 3b 20 77 63 6c 72 74 6f |, 10, 0)|; wclrto|
|00004b20| 65 6f 6c 28 6d 6e 29 3b | 20 77 6d 6f 76 65 28 6d |eol(mn);| wmove(m|
|00004b30| 6e 2c 20 31 31 2c 20 30 | 29 3b 20 77 63 6c 72 74 |n, 11, 0|); wclrt|
|00004b40| 6f 65 6f 6c 28 6d 6e 29 | 3b 0a 58 09 6d 76 77 61 |oeol(mn)|;.X.mvwa|
|00004b50| 64 64 73 74 72 28 6d 6e | 2c 20 31 30 2c 20 30 2c |ddstr(mn|, 10, 0,|
|00004b60| 20 22 47 72 61 70 68 69 | 6e 67 20 62 79 20 74 68 | "Graphi|ng by th|
|00004b70| 69 73 2c 20 64 6f 77 6e | 20 74 68 65 20 59 20 61 |is, down| the Y a|
|00004b80| 78 69 73 2e 20 20 20 22 | 29 3b 0a 58 73 63 6e 64 |xis.   "|);.Xscnd|
|00004b90| 3a 09 77 6d 6f 76 65 28 | 6d 6e 2c 20 31 32 2c 20 |:.wmove(|mn, 12, |
|00004ba0| 30 29 3b 20 77 63 6c 72 | 74 6f 65 6f 6c 28 6d 6e |0); wclr|toeol(mn|
|00004bb0| 29 3b 20 77 6d 6f 76 65 | 28 6d 6e 2c 20 31 33 2c |); wmove|(mn, 13,|
|00004bc0| 20 30 29 3b 20 77 63 6c | 72 74 6f 65 6f 6c 28 6d | 0); wcl|rtoeol(m|
|00004bd0| 6e 29 3b 0a 58 09 6d 76 | 77 61 64 64 73 74 72 28 |n);.X.mv|waddstr(|
|00004be0| 6d 6e 2c 20 31 31 2c 20 | 30 2c 20 22 59 6f 75 72 |mn, 11, |0, "Your|
|00004bf0| 20 63 68 6f 69 63 65 3a | 20 22 29 3b 0a 58 09 77 | choice:| ");.X.w|
|00004c00| 72 65 66 72 65 73 68 28 | 6d 6e 29 3b 0a 58 09 63 |refresh(|mn);.X.c|
|00004c10| 75 72 20 3d 20 6d 6e 3b | 20 78 70 20 3d 20 31 33 |ur = mn;| xp = 13|
|00004c20| 3b 20 79 70 20 3d 20 31 | 31 3b 0a 58 09 6e 6f 65 |; yp = 1|1;.X.noe|
|00004c30| 63 68 6f 28 29 3b 20 63 | 72 6d 6f 64 65 28 29 3b |cho(); c|rmode();|
|00004c40| 0a 58 09 63 32 20 3d 20 | 77 67 65 74 63 68 28 6d |.X.c2 = |wgetch(m|
|00004c50| 6e 29 3b 20 2f 2a 20 59 | 20 61 78 69 73 20 63 68 |n); /* Y| axis ch|
|00004c60| 63 20 2a 2f 0a 58 09 69 | 66 20 28 63 32 20 3d 3d |c */.X.i|f (c2 ==|
|00004c70| 20 27 3f 27 29 20 7b 20 | 68 65 6c 70 28 35 29 3b | '?') { |help(5);|
|00004c80| 20 67 6f 74 6f 20 73 63 | 6e 64 3b 20 7d 0a 58 09 | goto sc|nd; }.X.|
|00004c90| 69 66 20 28 63 32 20 3c | 20 27 61 27 20 7c 7c 20 |if (c2 <| 'a' || |
|00004ca0| 63 32 20 3e 20 27 6a 27 | 29 0a 58 09 09 67 6f 74 |c2 > 'j'|).X..got|
|00004cb0| 6f 20 73 63 6e 64 3b 0a | 58 09 6e 6f 65 63 68 6f |o scnd;.|X.noecho|
|00004cc0| 28 29 3b 0a 58 0a 58 09 | 2f 2a 20 48 65 72 65 20 |();.X.X.|/* Here |
|00004cd0| 77 65 20 66 69 6e 64 20 | 74 68 65 20 78 20 61 78 |we find |the x ax|
|00004ce0| 69 73 20 6d 61 78 20 61 | 6e 64 20 6d 69 6e 20 76 |is max a|nd min v|
|00004cf0| 61 6c 75 65 73 20 2a 2f | 0a 58 0a 58 09 62 6f 74 |alues */|.X.X.bot|
|00004d00| 28 22 43 61 6c 63 75 6c | 61 74 69 6e 67 20 74 68 |("Calcul|ating th|
|00004d10| 65 20 58 20 61 78 69 73 | 20 6d 61 78 20 61 6e 64 |e X axis| max and|
|00004d20| 20 6d 69 6e 20 76 61 6c | 75 65 73 2e 2e 2e 22 29 | min val|ues...")|
|00004d30| 3b 0a 58 0a 58 09 69 66 | 20 28 78 6d 69 6e 20 3d |;.X.X.if| (xmin =|
|00004d40| 3d 20 2d 39 39 39 29 20 | 7b 0a 58 09 09 66 69 6e |= -999) |{.X..fin|
|00004d50| 64 28 63 31 2c 20 65 2d | 3e 61 6e 75 6d 29 3b 0a |d(c1, e-|>anum);.|
|00004d60| 58 09 09 78 6d 61 78 20 | 3d 20 78 6d 69 6e 20 3d |X..xmax |= xmin =|
|00004d70| 20 78 3b 0a 58 09 09 66 | 6f 72 20 28 74 6d 70 20 | x;.X..f|or (tmp |
|00004d80| 3d 20 65 3b 20 74 6d 70 | 2d 3e 6e 65 78 74 20 21 |= e; tmp|->next !|
|00004d90| 3d 20 4e 55 4c 4c 3b 20 | 74 6d 70 20 3d 20 74 6d |= NULL; |tmp = tm|
|00004da0| 70 2d 3e 6e 65 78 74 29 | 20 7b 0a 58 09 09 09 66 |p->next)| {.X...f|
|00004db0| 69 6e 64 28 63 31 2c 20 | 74 6d 70 2d 3e 61 6e 75 |ind(c1, |tmp->anu|
|00004dc0| 6d 29 3b 0a 58 09 09 09 | 69 66 20 28 78 20 3d 3d |m);.X...|if (x ==|
|00004dd0| 20 2d 39 39 39 2e 30 29 | 20 63 6f 6e 74 69 6e 75 | -999.0)| continu|
|00004de0| 65 3b 0a 58 09 09 09 69 | 66 20 28 78 20 3e 20 78 |e;.X...i|f (x > x|
|00004df0| 6d 61 78 29 20 78 6d 61 | 78 20 3d 20 78 3b 0a 58 |max) xma|x = x;.X|
|00004e00| 09 09 09 69 66 20 28 78 | 20 3c 20 78 6d 69 6e 29 |...if (x| < xmin)|
|00004e10| 20 78 6d 69 6e 20 3d 20 | 78 3b 0a 58 09 09 7d 0a | xmin = |x;.X..}.|
|00004e20| 58 09 7d 0a 58 0a 58 09 | 2f 2a 20 48 65 72 65 20 |X.}.X.X.|/* Here |
|00004e30| 77 65 20 66 69 6e 64 20 | 74 68 65 20 79 20 61 78 |we find |the y ax|
|00004e40| 69 73 20 6d 69 6e 20 61 | 6e 64 20 6d 61 78 20 76 |is min a|nd max v|
|00004e50| 61 6c 75 65 73 20 2a 2f | 0a 58 09 62 6f 74 28 22 |alues */|.X.bot("|
|00004e60| 43 61 6c 63 75 6c 61 74 | 69 6e 67 20 74 68 65 20 |Calculat|ing the |
|00004e70| 59 20 61 78 69 73 20 6d | 61 78 20 61 6e 64 20 6d |Y axis m|ax and m|
|00004e80| 69 6e 20 76 61 6c 75 65 | 73 2e 2e 2e 22 29 3b 0a |in value|s...");.|
|00004e90| 58 0a 58 09 69 66 20 28 | 67 74 6f 74 20 3e 20 30 |X.X.if (|gtot > 0|
|00004ea0| 29 20 7b 0a 58 09 09 66 | 69 6e 64 28 63 32 2c 20 |) {.X..f|ind(c2, |
|00004eb0| 65 2d 3e 61 6e 75 6d 29 | 3b 0a 58 09 09 79 6d 61 |e->anum)|;.X..yma|
|00004ec0| 78 20 3d 20 79 6d 69 6e | 20 3d 20 78 3b 0a 58 09 |x = ymin| = x;.X.|
|00004ed0| 09 66 6f 72 20 28 74 6d | 70 20 3d 20 65 3b 20 74 |.for (tm|p = e; t|
|00004ee0| 6d 70 2d 3e 6e 65 78 74 | 20 21 3d 20 4e 55 4c 4c |mp->next| != NULL|
|00004ef0| 3b 20 74 6d 70 20 3d 20 | 74 6d 70 2d 3e 6e 65 78 |; tmp = |tmp->nex|
|00004f00| 74 29 20 7b 0a 58 09 09 | 09 66 69 6e 64 28 63 32 |t) {.X..|.find(c2|
|00004f10| 2c 20 74 6d 70 2d 3e 61 | 6e 75 6d 29 3b 0a 58 09 |, tmp->a|num);.X.|
|00004f20| 09 09 69 66 20 28 78 20 | 3d 3d 20 2d 39 39 39 2e |..if (x |== -999.|
|00004f30| 30 29 20 63 6f 6e 74 69 | 6e 75 65 3b 0a 58 09 09 |0) conti|nue;.X..|
|00004f40| 09 69 66 20 28 78 20 3e | 20 79 6d 61 78 29 20 79 |.if (x >| ymax) y|
|00004f50| 6d 61 78 20 3d 20 78 3b | 0a 58 09 09 09 69 66 20 |max = x;|.X...if |
|00004f60| 28 78 20 3c 20 79 6d 69 | 6e 29 20 79 6d 69 6e 20 |(x < ymi|n) ymin |
|00004f70| 3d 20 78 3b 0a 58 09 09 | 7d 0a 58 09 7d 20 65 6c |= x;.X..|}.X.} el|
|00004f80| 73 65 20 7b 0a 58 09 09 | 66 6f 72 20 28 69 20 3d |se {.X..|for (i =|
|00004f90| 20 31 3b 20 69 20 3c 20 | 67 74 6f 74 3b 20 69 2b | 1; i < |gtot; i+|
|00004fa0| 2b 29 20 7b 0a 58 09 09 | 09 66 69 6e 64 28 63 32 |+) {.X..|.find(c2|
|00004fb0| 2c 20 73 75 62 31 5b 69 | 5d 29 3b 0a 58 09 09 09 |, sub1[i|]);.X...|
|00004fc0| 69 66 20 28 78 20 3d 3d | 20 2d 39 39 39 2e 30 29 |if (x ==| -999.0)|
|00004fd0| 20 63 6f 6e 74 69 6e 75 | 65 3b 0a 58 09 09 09 69 | continu|e;.X...i|
|00004fe0| 66 20 28 69 20 3d 3d 20 | 31 29 0a 58 09 09 09 09 |f (i == |1).X....|
|00004ff0| 79 6d 61 78 20 3d 20 79 | 6d 69 6e 20 3d 20 78 3b |ymax = y|min = x;|
|00005000| 0a 58 09 09 09 65 6c 73 | 65 20 7b 0a 58 09 09 09 |.X...els|e {.X...|
|00005010| 09 69 66 20 28 78 20 3e | 20 79 6d 61 78 29 20 79 |.if (x >| ymax) y|
|00005020| 6d 61 78 20 3d 20 78 3b | 0a 58 09 09 09 09 69 66 |max = x;|.X....if|
|00005030| 20 28 78 20 3c 20 79 6d | 69 6e 29 20 79 6d 69 6e | (x < ym|in) ymin|
|00005040| 20 3d 20 78 3b 0a 58 09 | 09 09 7d 0a 58 09 09 7d | = x;.X.|..}.X..}|
|00005050| 0a 58 09 7d 0a 58 0a 58 | 09 2f 2a 20 4e 6f 77 20 |.X.}.X.X|./* Now |
|00005060| 77 65 20 68 61 76 65 20 | 6d 69 6e 20 26 20 6d 61 |we have |min & ma|
|00005070| 78 73 20 77 65 20 68 61 | 76 65 20 74 6f 20 70 75 |xs we ha|ve to pu|
|00005080| 74 20 61 20 6e 75 6d 62 | 65 72 20 69 6e 0a 58 09 |t a numb|er in.X.|
|00005090| 20 20 20 65 61 63 68 20 | 73 6c 6f 74 20 6f 6e 20 |   each |slot on |
|000050a0| 62 6f 74 68 20 61 78 65 | 73 20 75 73 69 6e 67 20 |both axe|s using |
|000050b0| 74 68 65 20 73 63 61 6c | 65 20 2a 2f 0a 58 0a 58 |the scal|e */.X.X|
|000050c0| 09 62 6f 74 28 22 53 63 | 61 6c 69 6e 67 2e 2e 2e |.bot("Sc|aling...|
|000050d0| 22 29 3b 0a 58 09 73 63 | 61 6c 65 20 3d 20 28 78 |");.X.sc|ale = (x|
|000050e0| 6d 61 78 20 2d 20 78 6d | 69 6e 29 20 2f 20 28 64 |max - xm|in) / (d|
|000050f0| 6f 75 62 6c 65 29 58 41 | 58 49 53 44 45 46 3b 0a |ouble)XA|XISDEF;.|
|00005100| 58 09 78 61 78 69 73 5b | 31 5d 20 3d 20 78 6d 69 |X.xaxis[|1] = xmi|
|00005110| 6e 3b 0a 58 09 66 6f 72 | 20 28 69 20 3d 20 32 3b |n;.X.for| (i = 2;|
|00005120| 20 69 20 3c 20 58 41 58 | 49 53 44 45 46 3b 20 69 | i < XAX|ISDEF; i|
|00005130| 2b 2b 29 0a 58 09 09 78 | 61 78 69 73 5b 69 5d 20 |++).X..x|axis[i] |
|00005140| 3d 20 78 61 78 69 73 5b | 69 2d 31 5d 20 2b 20 73 |= xaxis[|i-1] + s|
|00005150| 63 61 6c 65 3b 0a 58 0a | 58 09 73 63 61 6c 65 20 |cale;.X.|X.scale |
|00005160| 3d 20 28 79 6d 61 78 20 | 2d 20 79 6d 69 6e 29 20 |= (ymax |- ymin) |
|00005170| 2f 20 28 64 6f 75 62 6c | 65 29 59 41 58 49 53 44 |/ (doubl|e)YAXISD|
|00005180| 45 46 3b 0a 58 09 79 61 | 78 69 73 5b 59 41 58 49 |EF;.X.ya|xis[YAXI|
|00005190| 53 44 45 46 2d 31 5d 20 | 3d 20 79 6d 69 6e 3b 0a |SDEF-1] |= ymin;.|
|000051a0| 58 09 66 6f 72 20 28 69 | 20 3d 20 59 41 58 49 53 |X.for (i| = YAXIS|
|000051b0| 44 45 46 2d 32 3b 20 69 | 20 3e 20 31 3b 20 69 2d |DEF-2; i| > 1; i-|
|000051c0| 2d 29 0a 58 09 09 79 61 | 78 69 73 5b 69 5d 20 3d |-).X..ya|xis[i] =|
|000051d0| 20 79 61 78 69 73 5b 69 | 2b 31 5d 20 2b 20 73 63 | yaxis[i|+1] + sc|
|000051e0| 61 6c 65 3b 0a 58 0a 58 | 72 6c 36 3a 09 6e 6f 65 |ale;.X.X|rl6:.noe|
|000051f0| 63 68 6f 28 29 3b 20 63 | 72 6d 6f 64 65 28 29 3b |cho(); c|rmode();|
|00005200| 0a 58 09 6d 76 77 61 64 | 64 73 74 72 28 62 74 6d |.X.mvwad|dstr(btm|
|00005210| 2c 20 30 2c 20 30 2c 20 | 22 57 6f 75 6c 64 20 79 |, 0, 0, |"Would y|
|00005220| 6f 75 20 6c 69 6b 65 20 | 61 20 67 72 69 64 3f 20 |ou like |a grid? |
|00005230| 22 29 3b 0a 58 09 77 72 | 65 66 72 65 73 68 28 62 |");.X.wr|efresh(b|
|00005240| 74 6d 29 3b 0a 58 09 63 | 75 72 20 3d 20 62 74 6d |tm);.X.c|ur = btm|
|00005250| 3b 20 78 70 20 3d 20 32 | 34 3b 20 79 70 20 3d 20 |; xp = 2|4; yp = |
|00005260| 30 3b 0a 58 09 73 77 69 | 74 63 68 28 67 65 74 63 |0;.X.swi|tch(getc|
|00005270| 68 61 72 28 29 29 20 7b | 0a 58 09 09 63 61 73 65 |har()) {|.X..case|
|00005280| 20 27 79 27 3a 0a 58 09 | 09 63 61 73 65 20 27 59 | 'y':.X.|.case 'Y|
|00005290| 27 3a 20 67 72 69 64 20 | 3d 20 31 3b 20 62 72 65 |': grid |= 1; bre|
|000052a0| 61 6b 3b 0a 58 09 09 63 | 61 73 65 20 27 3f 27 3a |ak;.X..c|ase '?':|
|000052b0| 20 68 65 6c 70 28 36 29 | 3b 20 67 6f 74 6f 20 72 | help(6)|; goto r|
|000052c0| 6c 36 3b 0a 58 09 09 64 | 65 66 61 75 6c 74 3a 20 |l6;.X..d|efault: |
|000052d0| 20 67 72 69 64 20 3d 20 | 30 3b 20 62 72 65 61 6b | grid = |0; break|
|000052e0| 3b 0a 58 09 7d 0a 58 09 | 69 66 20 28 63 31 20 3c |;.X.}.X.|if (c1 <|
|000052f0| 20 27 63 27 29 20 7b 0a | 58 72 6c 37 3a 09 09 6d | 'c') {.|Xrl7:..m|
|00005300| 76 77 61 64 64 73 74 72 | 28 62 74 6d 2c 20 30 2c |vwaddstr|(btm, 0,|
|00005310| 20 30 2c 20 22 57 6f 75 | 6c 64 20 79 6f 75 20 6c | 0, "Wou|ld you l|
|00005320| 69 6b 65 20 74 68 65 20 | 70 6f 69 6e 74 73 20 63 |ike the |points c|
|00005330| 6f 6e 6e 65 63 74 65 64 | 3f 20 22 29 3b 0a 58 09 |onnected|? ");.X.|
|00005340| 09 77 72 65 66 72 65 73 | 68 28 62 74 6d 29 3b 0a |.wrefres|h(btm);.|
|00005350| 58 09 09 63 75 72 20 3d | 20 62 74 6d 3b 20 78 70 |X..cur =| btm; xp|
|00005360| 20 3d 20 33 38 3b 20 79 | 70 20 3d 20 30 3b 0a 58 | = 38; y|p = 0;.X|
|00005370| 09 09 73 77 69 74 63 68 | 28 67 65 74 63 68 61 72 |..switch|(getchar|
|00005380| 28 29 29 20 7b 0a 58 09 | 09 09 63 61 73 65 20 27 |()) {.X.|..case '|
|00005390| 3f 27 3a 20 68 65 6c 70 | 28 37 29 3b 20 67 6f 74 |?': help|(7); got|
|000053a0| 6f 20 72 6c 37 3b 0a 58 | 09 09 09 63 61 73 65 20 |o rl7;.X|...case |
|000053b0| 27 79 27 3a 20 63 61 73 | 65 20 27 59 27 3a 20 63 |'y': cas|e 'Y': c|
|000053c0| 6f 6e 6e 65 63 74 20 3d | 20 31 3b 20 62 72 65 61 |onnect =| 1; brea|
|000053d0| 6b 3b 0a 58 09 09 09 64 | 65 66 61 75 6c 74 3a 20 |k;.X...d|efault: |
|000053e0| 63 6f 6e 6e 65 63 74 20 | 3d 20 30 3b 20 62 72 65 |connect |= 0; bre|
|000053f0| 61 6b 3b 0a 58 09 09 7d | 0a 58 09 7d 20 65 6c 73 |ak;.X..}|.X.} els|
|00005400| 65 20 63 6f 6e 6e 65 63 | 74 20 3d 20 30 3b 0a 58 |e connec|t = 0;.X|
|00005410| 72 6c 38 3a 09 77 63 6c | 65 61 72 28 62 74 6d 29 |rl8:.wcl|ear(btm)|
|00005420| 3b 0a 58 09 6d 76 77 61 | 64 64 73 74 72 28 62 74 |;.X.mvwa|ddstr(bt|
|00005430| 6d 2c 20 30 2c 20 30 2c | 20 22 57 6f 75 6c 64 20 |m, 0, 0,| "Would |
|00005440| 79 6f 75 20 6c 69 6b 65 | 20 64 6f 74 73 20 69 6e |you like| dots in|
|00005450| 73 74 65 61 64 20 6f 66 | 20 68 61 73 68 6d 61 72 |stead of| hashmar|
|00005460| 6b 73 20 28 73 6c 6f 77 | 65 72 29 20 22 29 3b 0a |ks (slow|er) ");.|
|00005470| 58 09 77 72 65 66 72 65 | 73 68 28 62 74 6d 29 3b |X.wrefre|sh(btm);|
|00005480| 0a 58 09 63 75 72 20 3d | 20 62 74 6d 3b 20 78 70 |.X.cur =| btm; xp|
|00005490| 20 3d 20 34 34 3b 20 79 | 70 20 3d 20 30 3b 0a 58 | = 44; y|p = 0;.X|
|000054a0| 09 73 77 69 74 63 68 28 | 67 65 74 63 68 61 72 28 |.switch(|getchar(|
|000054b0| 29 29 20 7b 0a 58 09 09 | 63 61 73 65 20 27 79 27 |)) {.X..|case 'y'|
|000054c0| 3a 20 63 61 73 65 20 27 | 59 27 3a 20 74 79 70 65 |: case '|Y': type|
|000054d0| 20 3d 20 31 3b 20 62 72 | 65 61 6b 3b 0a 58 09 09 | = 1; br|eak;.X..|
|000054e0| 63 61 73 65 20 27 3f 27 | 3a 20 68 65 6c 70 28 38 |case '?'|: help(8|
|000054f0| 29 3b 20 67 6f 74 6f 20 | 72 6c 38 3b 0a 58 09 09 |); goto |rl8;.X..|
|00005500| 64 65 66 61 75 6c 74 3a | 20 74 79 70 65 20 3d 20 |default:| type = |
|00005510| 30 3b 20 62 72 65 61 6b | 3b 0a 58 09 7d 0a 58 23 |0; break|;.X.}.X#|
|00005520| 69 66 64 65 66 09 4c 41 | 53 45 52 50 52 54 0a 58 |ifdef.LA|SERPRT.X|
|00005530| 72 6c 39 3a 09 77 63 6c | 65 61 72 28 62 74 6d 29 |rl9:.wcl|ear(btm)|
|00005540| 3b 0a 58 09 6d 76 77 61 | 64 64 73 74 72 28 62 74 |;.X.mvwa|ddstr(bt|
|00005550| 6d 2c 20 30 2c 20 30 2c | 20 22 57 6f 75 6c 64 20 |m, 0, 0,| "Would |
|00005560| 79 6f 75 20 6c 69 6b 65 | 20 61 20 6c 61 73 65 72 |you like| a laser|
|00005570| 20 70 72 69 6e 74 20 66 | 69 6c 65 20 6f 66 20 74 | print f|ile of t|
|00005580| 68 69 73 3f 20 22 29 3b | 0a 58 09 77 72 65 66 72 |his? ");|.X.wrefr|
|00005590| 65 73 68 28 62 74 6d 29 | 3b 0a 58 09 63 75 72 20 |esh(btm)|;.X.cur |
|000055a0| 3d 20 62 74 6d 3b 20 78 | 70 20 3d 20 34 30 3b 20 |= btm; x|p = 40; |
|000055b0| 79 70 20 3d 20 30 3b 0a | 58 09 73 77 69 74 63 68 |yp = 0;.|X.switch|
|000055c0| 28 67 65 74 63 68 61 72 | 28 29 29 20 7b 0a 58 09 |(getchar|()) {.X.|
|000055d0| 09 63 61 73 65 20 27 79 | 27 3a 20 63 61 73 65 20 |.case 'y|': case |
|000055e0| 27 59 27 3a 20 6c 61 73 | 65 72 20 3d 20 31 3b 20 |'Y': las|er = 1; |
|000055f0| 62 72 65 61 6b 3b 0a 58 | 09 09 63 61 73 65 20 27 |break;.X|..case '|
|00005600| 3f 27 3a 20 68 65 6c 70 | 28 31 39 29 3b 20 67 6f |?': help|(19); go|
|00005610| 74 6f 20 72 6c 39 3b 0a | 58 09 09 64 65 66 61 75 |to rl9;.|X..defau|
|00005620| 6c 74 3a 20 6c 61 73 65 | 72 20 3d 20 30 3b 20 62 |lt: lase|r = 0; b|
|00005630| 72 65 61 6b 3b 0a 58 09 | 7d 0a 58 09 69 66 20 28 |reak;.X.|}.X.if (|
|00005640| 6c 61 73 65 72 20 3d 3d | 20 31 29 20 7b 0a 58 09 |laser ==| 1) {.X.|
|00005650| 09 69 66 20 28 28 6c 73 | 72 20 3d 20 66 6f 70 65 |.if ((ls|r = fope|
|00005660| 6e 28 22 6c 61 73 65 72 | 22 2c 20 22 77 22 29 29 |n("laser|", "w"))|
|00005670| 20 3d 3d 20 4e 55 4c 4c | 29 20 7b 0a 58 09 09 09 | == NULL|) {.X...|
|00005680| 62 6f 74 28 22 53 6f 72 | 72 79 2c 20 74 68 65 20 |bot("Sor|ry, the |
|00005690| 66 69 6c 65 20 27 6c 61 | 73 65 72 27 20 63 6f 75 |file 'la|ser' cou|
|000056a0| 6c 64 20 6e 6f 74 20 62 | 65 20 6f 70 65 6e 65 64 |ld not b|e opened|
|000056b0| 20 66 6f 72 20 77 72 69 | 74 69 6e 67 2e 22 29 3b | for wri|ting.");|
|000056c0| 0a 58 09 09 09 73 6c 65 | 65 70 28 32 29 3b 0a 58 |.X...sle|ep(2);.X|
|000056d0| 09 09 09 62 6f 74 28 22 | 4e 6f 20 6c 61 73 65 72 |...bot("|No laser|
|000056e0| 20 70 72 69 6e 74 20 64 | 6f 63 75 6d 65 6e 74 20 | print d|ocument |
|000056f0| 77 69 6c 6c 20 62 65 20 | 6d 61 64 65 2e 22 29 3b |will be |made.");|
|00005700| 0a 58 09 09 09 73 6c 65 | 65 70 28 32 29 3b 0a 58 |.X...sle|ep(2);.X|
|00005710| 09 09 09 62 6f 74 28 22 | 20 22 29 3b 0a 58 09 09 |...bot("| ");.X..|
|00005720| 09 6c 61 73 65 72 20 3d | 20 30 3b 0a 58 09 09 7d |.laser =| 0;.X..}|
|00005730| 20 65 6c 73 65 0a 58 09 | 09 09 66 70 72 69 6e 74 | else.X.|..fprint|
|00005740| 66 28 6c 73 72 2c 20 22 | 5c 30 31 34 22 29 3b 0a |f(lsr, "|\014");.|
|00005750| 58 09 09 62 6f 74 28 22 | 41 20 63 6f 70 79 20 77 |X..bot("|A copy w|
|00005760| 69 6c 6c 20 62 65 20 66 | 6f 75 6e 64 20 69 6e 20 |ill be f|ound in |
|00005770| 74 68 65 20 66 69 6c 65 | 20 27 6c 61 73 65 72 27 |the file| 'laser'|
|00005780| 20 77 68 65 6e 20 79 6f | 75 20 65 78 69 74 20 63 | when yo|u exit c|
|00005790| 68 65 6d 74 61 62 2e 22 | 29 3b 0a 58 09 09 73 6c |hemtab."|);.X..sl|
|000057a0| 65 65 70 28 32 29 3b 0a | 58 09 7d 0a 58 23 65 6e |eep(2);.|X.}.X#en|
|000057b0| 64 69 66 09 4c 41 53 45 | 52 50 52 54 0a 58 09 62 |dif.LASE|RPRT.X.b|
|000057c0| 6f 74 28 22 49 6e 69 74 | 69 61 6c 69 7a 69 6e 67 |ot("Init|ializing|
|000057d0| 20 66 6f 72 20 67 72 61 | 70 68 69 63 73 2e 2e 2e | for gra|phics...|
|000057e0| 22 29 3b 0a 58 09 77 63 | 6c 65 61 72 28 6d 6e 29 |");.X.wc|lear(mn)|
|000057f0| 3b 20 77 72 65 66 72 65 | 73 68 28 6d 6e 29 3b 0a |; wrefre|sh(mn);.|
|00005800| 58 09 77 63 6c 65 61 72 | 28 62 74 6d 29 3b 20 77 |X.wclear|(btm); w|
|00005810| 72 65 66 72 65 73 68 28 | 62 74 6d 29 3b 0a 58 09 |refresh(|btm);.X.|
|00005820| 63 6c 65 61 72 28 29 3b | 20 72 65 66 72 65 73 68 |clear();| refresh|
|00005830| 28 29 3b 0a 58 0a 58 09 | 69 6e 69 74 72 65 67 69 |();.X.X.|initregi|
|00005840| 73 28 29 3b 0a 58 09 72 | 65 67 69 73 67 6f 74 6f |s();.X.r|egisgoto|
|00005850| 28 34 35 30 2c 20 31 30 | 29 3b 0a 58 09 63 68 63 |(450, 10|);.X.chc|
|00005860| 6f 6c 6f 72 28 52 45 44 | 5f 33 29 3b 0a 58 09 74 |olor(RED|_3);.X.t|
|00005870| 65 78 74 28 33 2c 20 30 | 2c 20 2d 35 2c 20 22 43 |ext(3, 0|, -5, "C|
|00005880| 68 65 6d 74 61 62 20 56 | 32 2e 30 31 22 29 3b 0a |hemtab V|2.01");.|
|00005890| 58 09 72 65 67 69 73 67 | 6f 74 6f 28 34 30 30 20 |X.regisg|oto(400 |
|000058a0| 2d 20 28 73 74 72 6c 65 | 6e 28 67 6e 61 6d 65 5b |- (strle|n(gname[|
|000058b0| 6e 75 6d 72 28 63 31 29 | 5d 29 20 2a 20 31 30 29 |numr(c1)|]) * 10)|
|000058c0| 2c 20 59 4d 41 58 44 45 | 46 20 2b 20 32 30 29 3b |, YMAXDE|F + 20);|
|000058d0| 0a 58 09 74 65 78 74 28 | 32 2c 20 30 2c 20 30 2c |.X.text(|2, 0, 0,|
|000058e0| 20 67 6e 61 6d 65 5b 6e | 75 6d 72 28 63 31 29 5d | gname[n|umr(c1)]|
|000058f0| 29 3b 0a 58 09 72 65 67 | 69 73 67 6f 74 6f 28 59 |);.X.reg|isgoto(Y|
|00005900| 4d 49 4e 44 45 46 20 2d | 20 34 36 2c 20 32 30 30 |MINDEF -| 46, 200|
|00005910| 20 2b 20 28 73 74 72 6c | 65 6e 28 67 6e 61 6d 65 | + (strl|en(gname|
|00005920| 5b 6e 75 6d 72 28 63 32 | 29 5d 29 20 2a 20 31 30 |[numr(c2|)]) * 10|
|00005930| 29 29 3b 0a 58 09 74 65 | 78 74 28 32 2c 20 39 30 |));.X.te|xt(2, 90|
|00005940| 2c 20 30 2c 20 67 6e 61 | 6d 65 5b 6e 75 6d 72 28 |, 0, gna|me[numr(|
|00005950| 63 32 29 5d 29 3b 0a 58 | 09 63 68 63 6f 6c 6f 72 |c2)]);.X|.chcolor|
|00005960| 28 57 48 54 5f 33 29 3b | 0a 58 09 6d 79 62 6f 78 |(WHT_3);|.X.mybox|
|00005970| 28 31 2c 20 58 4d 49 4e | 44 45 46 2c 20 59 4d 49 |(1, XMIN|DEF, YMI|
|00005980| 4e 44 45 46 2c 20 58 4d | 41 58 44 45 46 2c 20 59 |NDEF, XM|AXDEF, Y|
|00005990| 4d 41 58 44 45 46 29 3b | 0a 58 09 6d 79 62 6f 78 |MAXDEF);|.X.mybox|
|000059a0| 28 32 2c 20 30 2c 20 30 | 2c 20 37 39 38 2c 20 34 |(2, 0, 0|, 798, 4|
|000059b0| 37 38 29 3b 0a 58 09 66 | 6f 72 20 28 69 20 3d 20 |78);.X.f|or (i = |
|000059c0| 59 41 58 49 53 44 45 46 | 2d 31 3b 20 69 20 3e 20 |YAXISDEF|-1; i > |
|000059d0| 31 3b 20 69 20 2d 3d 20 | 59 41 58 49 53 44 45 46 |1; i -= |YAXISDEF|
|000059e0| 2f 37 29 20 7b 0a 58 09 | 09 69 66 20 28 63 32 20 |/7) {.X.|.if (c2 |
|000059f0| 3c 20 27 66 27 20 7c 7c | 20 63 32 20 3e 20 27 69 |< 'f' ||| c2 > 'i|
|00005a00| 27 29 0a 58 09 09 09 73 | 70 72 69 6e 74 66 28 73 |').X...s|printf(s|
|00005a10| 74 72 2c 20 22 25 64 20 | 2d 22 2c 20 28 69 6e 74 |tr, "%d |-", (int|
|00005a20| 29 28 79 61 78 69 73 5b | 69 5d 2b 2e 35 29 29 3b |)(yaxis[|i]+.5));|
|00005a30| 0a 58 09 09 65 6c 73 65 | 20 69 66 20 28 79 61 78 |.X..else| if (yax|
|00005a40| 69 73 5b 69 5d 20 3e 20 | 39 2e 39 39 29 0a 58 09 |is[i] > |9.99).X.|
|00005a50| 09 09 73 70 72 69 6e 74 | 66 28 73 74 72 2c 20 22 |..sprint|f(str, "|
|00005a60| 25 32 2e 33 66 22 2c 20 | 79 61 78 69 73 5b 69 5d |%2.3f", |yaxis[i]|
|00005a70| 29 3b 0a 58 09 09 65 6c | 73 65 0a 58 09 09 09 73 |);.X..el|se.X...s|
|00005a80| 70 72 69 6e 74 66 28 73 | 74 72 2c 20 22 25 32 2e |printf(s|tr, "%2.|
|00005a90| 33 66 22 2c 20 79 61 78 | 69 73 5b 69 5d 29 3b 0a |3f", yax|is[i]);.|
|00005aa0| 58 09 09 63 68 63 6f 6c | 6f 72 28 42 4c 55 5f 33 |X..chcol|or(BLU_3|
|00005ab0| 29 3b 0a 58 09 09 69 66 | 20 28 67 72 69 64 29 20 |);.X..if| (grid) |
|00005ac0| 6c 69 6e 65 28 58 4d 49 | 4e 44 45 46 2c 20 69 2b |line(XMI|NDEF, i+|
|00005ad0| 59 42 4f 55 4e 44 2b 31 | 2c 20 58 4d 41 58 44 45 |YBOUND+1|, XMAXDE|
|00005ae0| 46 2c 20 69 2b 59 42 4f | 55 4e 44 2b 31 29 3b 0a |F, i+YBO|UND+1);.|
|00005af0| 58 09 09 63 68 63 6f 6c | 6f 72 28 52 45 44 5f 33 |X..chcol|or(RED_3|
|00005b00| 29 3b 0a 58 09 09 72 65 | 67 69 73 67 6f 74 6f 28 |);.X..re|gisgoto(|
|00005b10| 58 4d 49 4e 44 45 46 2d | 36 30 2c 20 69 2d 37 2b |XMINDEF-|60, i-7+|
|00005b20| 59 42 4f 55 4e 44 29 3b | 0a 58 09 09 74 65 78 74 |YBOUND);|.X..text|
|00005b30| 28 31 2c 20 30 2c 20 35 | 2c 20 73 74 72 29 3b 0a |(1, 0, 5|, str);.|
|00005b40| 58 09 7d 0a 58 09 66 6f | 72 20 28 69 20 3d 20 31 |X.}.X.fo|r (i = 1|
|00005b50| 3b 20 69 20 3c 20 58 41 | 58 49 53 44 45 46 3b 20 |; i < XA|XISDEF; |
|00005b60| 69 20 2b 3d 20 58 41 58 | 49 53 44 45 46 2f 31 30 |i += XAX|ISDEF/10|
|00005b70| 29 20 7b 0a 58 09 09 69 | 66 20 28 63 31 20 3c 20 |) {.X..i|f (c1 < |
|00005b80| 27 66 27 20 7c 7c 20 63 | 31 20 3e 20 27 69 27 29 |'f' || c|1 > 'i')|
|00005b90| 0a 58 09 09 09 73 70 72 | 69 6e 74 66 28 73 74 72 |.X...spr|intf(str|
|00005ba0| 2c 20 22 25 64 22 2c 20 | 28 69 6e 74 29 28 78 61 |, "%d", |(int)(xa|
|00005bb0| 78 69 73 5b 69 5d 2b 2e | 35 29 29 3b 0a 58 09 09 |xis[i]+.|5));.X..|
|00005bc0| 65 6c 73 65 0a 58 09 09 | 09 73 70 72 69 6e 74 66 |else.X..|.sprintf|
|00005bd0| 28 73 74 72 2c 20 22 25 | 34 2e 32 66 22 2c 20 78 |(str, "%|4.2f", x|
|00005be0| 61 78 69 73 5b 69 5d 29 | 3b 0a 58 09 09 63 68 63 |axis[i])|;.X..chc|
|00005bf0| 6f 6c 6f 72 28 42 4c 55 | 5f 33 29 3b 0a 58 09 09 |olor(BLU|_3);.X..|
|00005c00| 69 66 20 28 67 72 69 64 | 20 26 26 20 69 20 3c 20 |if (grid| && i < |
|00005c10| 58 41 58 49 53 44 45 46 | 2d 32 30 29 20 6c 69 6e |XAXISDEF|-20) lin|
|00005c20| 65 28 69 2b 58 42 4f 55 | 4e 44 2b 31 2c 20 59 4d |e(i+XBOU|ND+1, YM|
|00005c30| 49 4e 44 45 46 2c 20 69 | 2b 58 42 4f 55 4e 44 2b |INDEF, i|+XBOUND+|
|00005c40| 31 2c 20 59 4d 41 58 44 | 45 46 29 3b 0a 58 09 09 |1, YMAXD|EF);.X..|
|00005c50| 63 68 63 6f 6c 6f 72 28 | 52 45 44 5f 33 29 3b 0a |chcolor(|RED_3);.|
|00005c60| 58 09 09 72 65 67 69 73 | 67 6f 74 6f 28 69 2d 36 |X..regis|goto(i-6|
|00005c70| 2b 58 42 4f 55 4e 44 2c | 20 59 4d 41 58 44 45 46 |+XBOUND,| YMAXDEF|
|00005c80| 2b 32 29 3b 0a 58 09 09 | 74 65 78 74 28 31 2c 20 |+2);.X..|text(1, |
|00005c90| 30 2c 20 35 2c 20 73 74 | 72 29 3b 0a 58 09 7d 0a |0, 5, st|r);.X.}.|
|00005ca0| 58 0a 58 09 66 69 72 73 | 74 75 70 2b 2b 3b 0a 58 |X.X.firs|tup++;.X|
|00005cb0| 09 69 66 20 28 67 74 6f | 74 20 3c 3d 20 30 29 20 |.if (gto|t <= 0) |
|00005cc0| 7b 0a 58 09 09 66 6f 72 | 20 28 74 6d 70 20 3d 20 |{.X..for| (tmp = |
|00005cd0| 65 3b 20 74 6d 70 2d 3e | 6e 65 78 74 20 21 3d 20 |e; tmp->|next != |
|00005ce0| 4e 55 4c 4c 3b 20 74 6d | 70 20 3d 20 74 6d 70 2d |NULL; tm|p = tmp-|
|00005cf0| 3e 6e 65 78 74 29 20 7b | 0a 58 09 09 09 66 69 6e |>next) {|.X...fin|
|00005d00| 64 28 63 31 2c 20 74 6d | 70 2d 3e 61 6e 75 6d 29 |d(c1, tm|p->anum)|
|00005d10| 3b 0a 58 09 09 09 69 66 | 20 28 78 20 3d 3d 20 2d |;.X...if| (x == -|
|00005d20| 39 39 39 2e 30 29 20 63 | 6f 6e 74 69 6e 75 65 3b |999.0) c|ontinue;|
|00005d30| 0a 58 09 09 09 69 66 20 | 28 78 20 3c 20 78 6d 69 |.X...if |(x < xmi|
|00005d40| 6e 29 0a 58 09 09 09 09 | 63 6f 6e 74 69 6e 75 65 |n).X....|continue|
|00005d50| 3b 0a 58 09 09 09 65 6c | 73 65 20 69 66 20 28 78 |;.X...el|se if (x|
|00005d60| 20 3c 20 78 61 78 69 73 | 5b 32 5d 29 0a 58 09 09 | < xaxis|[2]).X..|
|00005d70| 09 09 78 73 70 6f 74 20 | 3d 20 31 3b 0a 58 09 09 |..xspot |= 1;.X..|
|00005d80| 09 65 6c 73 65 20 7b 0a | 58 09 09 09 09 66 6f 72 |.else {.|X....for|
|00005d90| 20 28 6a 20 3d 20 32 3b | 20 6a 20 3c 20 58 41 58 | (j = 2;| j < XAX|
|00005da0| 49 53 44 45 46 3b 20 6a | 2b 2b 29 20 7b 0a 58 09 |ISDEF; j|++) {.X.|
|00005db0| 09 09 09 09 69 66 20 28 | 78 20 3e 20 78 61 78 69 |....if (|x > xaxi|
|00005dc0| 73 5b 6a 5d 29 0a 58 09 | 09 09 09 09 09 63 6f 6e |s[j]).X.|.....con|
|00005dd0| 74 69 6e 75 65 3b 0a 58 | 09 09 09 09 09 65 6c 73 |tinue;.X|.....els|
|00005de0| 65 0a 58 09 09 09 09 09 | 09 62 72 65 61 6b 3b 0a |e.X.....|.break;.|
|00005df0| 58 09 09 09 09 7d 0a 58 | 09 09 09 09 78 73 70 6f |X....}.X|....xspo|
|00005e00| 74 20 3d 20 6a 3b 0a 58 | 09 09 09 09 69 66 20 28 |t = j;.X|....if (|
|00005e10| 78 20 3e 20 78 6d 61 78 | 29 0a 58 09 09 09 09 09 |x > xmax|).X.....|
|00005e20| 63 6f 6e 74 69 6e 75 65 | 3b 0a 58 09 09 09 7d 0a |continue|;.X...}.|
|00005e30| 58 0a 58 09 09 09 2f 2a | 20 46 6f 75 6e 64 20 77 |X.X.../*| Found w|
|00005e40| 68 65 72 65 20 69 74 20 | 67 6f 65 73 20 6f 6e 20 |here it |goes on |
|00005e50| 74 68 65 20 78 2c 20 6e | 6f 77 20 74 68 65 20 79 |the x, n|ow the y|
|00005e60| 20 2a 2f 0a 58 0a 58 09 | 09 09 66 69 6e 64 28 63 | */.X.X.|..find(c|
|00005e70| 32 2c 20 74 6d 70 2d 3e | 61 6e 75 6d 29 3b 09 0a |2, tmp->|anum);..|
|00005e80| 58 09 09 09 69 66 20 28 | 78 20 3d 3d 20 2d 39 39 |X...if (|x == -99|
|00005e90| 39 2e 30 29 20 63 6f 6e | 74 69 6e 75 65 3b 0a 58 |9.0) con|tinue;.X|
|00005ea0| 09 09 09 69 66 20 28 78 | 20 3c 20 79 61 78 69 73 |...if (x| < yaxis|
|00005eb0| 5b 59 41 58 49 53 44 45 | 46 2d 31 5d 29 0a 58 09 |[YAXISDE|F-1]).X.|
|00005ec0| 09 09 09 79 73 70 6f 74 | 20 3d 20 59 41 58 49 53 |...yspot| = YAXIS|
|00005ed0| 44 45 46 2d 31 3b 0a 58 | 09 09 09 65 6c 73 65 20 |DEF-1;.X|...else |
|00005ee0| 7b 0a 58 09 09 09 09 66 | 6f 72 20 28 6a 20 3d 20 |{.X....f|or (j = |
|00005ef0| 59 41 58 49 53 44 45 46 | 2d 32 3b 20 6a 20 3e 20 |YAXISDEF|-2; j > |
|00005f00| 31 3b 20 6a 2d 2d 29 20 | 7b 0a 58 09 09 09 09 09 |1; j--) |{.X.....|
|00005f10| 69 66 20 28 78 20 3e 20 | 79 61 78 69 73 5b 6a 5d |if (x > |yaxis[j]|
|00005f20| 29 0a 58 09 09 09 09 09 | 09 63 6f 6e 74 69 6e 75 |).X.....|.continu|
|00005f30| 65 3b 0a 58 09 09 09 09 | 09 65 6c 73 65 0a 58 09 |e;.X....|.else.X.|
|00005f40| 09 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 09 |.....bre|ak;.X...|
|00005f50| 09 7d 0a 58 09 09 09 09 | 79 73 70 6f 74 20 3d 20 |.}.X....|yspot = |
|00005f60| 6a 3b 0a 58 09 09 09 7d | 0a 58 09 09 09 63 68 63 |j;.X...}|.X...chc|
|00005f70| 6f 6c 6f 72 28 59 45 4c | 5f 33 29 3b 0a 58 09 09 |olor(YEL|_3);.X..|
|00005f80| 09 69 66 20 28 66 69 72 | 73 74 75 70 29 20 7b 20 |.if (fir|stup) { |
|00005f90| 6c 61 73 74 78 20 3d 20 | 78 73 70 6f 74 3b 20 6c |lastx = |xspot; l|
|00005fa0| 61 73 74 79 20 3d 20 79 | 73 70 6f 74 3b 20 66 69 |asty = y|spot; fi|
|00005fb0| 72 73 74 75 70 20 3d 20 | 30 3b 20 7d 0a 58 09 09 |rstup = |0; }.X..|
|00005fc0| 09 69 66 20 28 63 6f 6e | 6e 65 63 74 20 26 26 20 |.if (con|nect && |
|00005fd0| 69 20 21 3d 20 31 29 20 | 7b 0a 58 09 09 09 09 63 |i != 1) |{.X....c|
|00005fe0| 68 63 6f 6c 6f 72 28 47 | 52 4e 5f 33 29 3b 0a 58 |hcolor(G|RN_3);.X|
|00005ff0| 09 09 09 09 6c 69 6e 65 | 28 78 73 70 6f 74 2b 58 |....line|(xspot+X|
|00006000| 42 4f 55 4e 44 2c 20 79 | 73 70 6f 74 2b 59 42 4f |BOUND, y|spot+YBO|
|00006010| 55 4e 44 2c 20 6c 61 73 | 74 78 2b 58 42 4f 55 4e |UND, las|tx+XBOUN|
|00006020| 44 2c 20 6c 61 73 74 79 | 2b 59 42 4f 55 4e 44 29 |D, lasty|+YBOUND)|
|00006030| 3b 0a 58 09 09 09 09 6c | 61 73 74 78 20 3d 20 78 |;.X....l|astx = x|
|00006040| 73 70 6f 74 3b 20 6c 61 | 73 74 79 20 3d 20 79 73 |spot; la|sty = ys|
|00006050| 70 6f 74 3b 0a 58 09 09 | 09 7d 0a 58 09 09 09 68 |pot;.X..|.}.X...h|
|00006060| 61 73 68 28 78 73 70 6f | 74 2b 58 42 4f 55 4e 44 |ash(xspo|t+XBOUND|
|00006070| 2c 20 79 73 70 6f 74 2b | 59 42 4f 55 4e 44 2c 20 |, yspot+|YBOUND, |
|00006080| 74 79 70 65 29 3b 0a 58 | 09 09 7d 0a 58 09 7d 20 |type);.X|..}.X.} |
|00006090| 65 6c 73 65 20 7b 0a 58 | 09 09 66 6f 72 20 28 69 |else {.X|..for (i|
|000060a0| 20 3d 20 31 3b 20 69 20 | 3c 20 67 74 6f 74 3b 20 | = 1; i |< gtot; |
|000060b0| 69 2b 2b 29 20 7b 0a 58 | 09 09 09 66 69 6e 64 28 |i++) {.X|...find(|
|000060c0| 63 31 2c 20 73 75 62 31 | 5b 69 5d 29 3b 0a 58 09 |c1, sub1|[i]);.X.|
|000060d0| 09 09 69 66 20 28 78 20 | 3d 3d 20 2d 39 39 39 2e |..if (x |== -999.|
|000060e0| 30 29 20 63 6f 6e 74 69 | 6e 75 65 3b 0a 58 09 09 |0) conti|nue;.X..|
|000060f0| 09 69 66 20 28 78 20 3c | 20 78 6d 69 6e 29 0a 58 |.if (x <| xmin).X|
|00006100| 09 09 09 09 63 6f 6e 74 | 69 6e 75 65 3b 0a 58 09 |....cont|inue;.X.|
|00006110| 09 09 65 6c 73 65 20 69 | 66 20 28 78 20 3c 20 78 |..else i|f (x < x|
|00006120| 61 78 69 73 5b 32 5d 29 | 0a 58 09 09 09 09 78 73 |axis[2])|.X....xs|
|00006130| 70 6f 74 20 3d 20 31 3b | 0a 58 09 09 09 65 6c 73 |pot = 1;|.X...els|
|00006140| 65 20 7b 0a 58 09 09 09 | 09 66 6f 72 20 28 6a 20 |e {.X...|.for (j |
|00006150| 3d 20 32 3b 20 6a 20 3c | 20 58 41 58 49 53 44 45 |= 2; j <| XAXISDE|
|00006160| 46 3b 20 6a 2b 2b 29 20 | 7b 0a 58 09 09 09 09 09 |F; j++) |{.X.....|
|00006170| 69 66 20 28 78 20 3e 20 | 78 61 78 69 73 5b 6a 5d |if (x > |xaxis[j]|
|00006180| 29 0a 58 09 09 09 09 09 | 09 63 6f 6e 74 69 6e 75 |).X.....|.continu|
|00006190| 65 3b 0a 58 09 09 09 09 | 09 65 6c 73 65 0a 58 09 |e;.X....|.else.X.|
|000061a0| 09 09 09 09 09 62 72 65 | 61 6b 3b 0a 58 09 09 09 |.....bre|ak;.X...|
|000061b0| 09 7d 0a 58 09 09 09 09 | 78 73 70 6f 74 20 3d 20 |.}.X....|xspot = |
|000061c0| 6a 3b 0a 58 09 09 09 09 | 69 66 20 28 78 20 3e 20 |j;.X....|if (x > |
|000061d0| 78 6d 61 78 29 0a 58 09 | 09 09 09 09 63 6f 6e 74 |xmax).X.|....cont|
|000061e0| 69 6e 75 65 3b 0a 58 09 | 09 09 7d 0a 58 0a 58 09 |inue;.X.|..}.X.X.|
|000061f0| 09 09 2f 2a 20 46 6f 75 | 6e 64 20 77 68 65 72 65 |../* Fou|nd where|
|00006200| 20 69 74 20 67 6f 65 73 | 20 6f 6e 20 74 68 65 20 | it goes| on the |
|00006210| 78 2c 20 6e 6f 77 20 74 | 68 65 20 79 20 2a 2f 0a |x, now t|he y */.|
|00006220| 58 0a 58 09 09 09 66 69 | 6e 64 28 63 32 2c 20 73 |X.X...fi|nd(c2, s|
|00006230| 75 62 31 5b 69 5d 29 3b | 0a 58 09 09 09 69 66 20 |ub1[i]);|.X...if |
|00006240| 28 78 20 3d 3d 20 2d 39 | 39 39 2e 30 29 20 63 6f |(x == -9|99.0) co|
|00006250| 6e 74 69 6e 75 65 3b 0a | 58 09 09 09 69 66 20 28 |ntinue;.|X...if (|
|00006260| 78 20 3c 20 79 61 78 69 | 73 5b 59 41 58 49 53 44 |x < yaxi|s[YAXISD|
|00006270| 45 46 2d 31 5d 29 0a 58 | 09 09 09 09 79 73 70 6f |EF-1]).X|....yspo|
|00006280| 74 20 3d 20 59 41 58 49 | 53 44 45 46 2d 31 3b 0a |t = YAXI|SDEF-1;.|
|00006290| 58 09 09 09 65 6c 73 65 | 20 7b 0a 58 09 09 09 09 |X...else| {.X....|
|000062a0| 66 6f 72 20 28 6a 20 3d | 20 59 41 58 49 53 44 45 |for (j =| YAXISDE|
|000062b0| 46 3b 20 6a 20 3e 20 31 | 3b 20 6a 2d 2d 29 20 7b |F; j > 1|; j--) {|
|000062c0| 0a 58 09 09 09 09 09 69 | 66 20 28 78 20 3e 20 79 |.X.....i|f (x > y|
|000062d0| 61 78 69 73 5b 6a 5d 29 | 0a 58 09 09 09 09 09 09 |axis[j])|.X......|
|000062e0| 63 6f 6e 74 69 6e 75 65 | 3b 0a 58 09 09 09 09 09 |continue|;.X.....|
|000062f0| 65 6c 73 65 0a 58 09 09 | 09 09 09 09 62 72 65 61 |else.X..|....brea|
|00006300| 6b 3b 0a 58 09 09 09 09 | 7d 0a 58 09 09 09 09 79 |k;.X....|}.X....y|
|00006310| 73 70 6f 74 20 3d 20 6a | 3b 0a 58 09 09 09 7d 0a |spot = j|;.X...}.|
|00006320| 58 09 09 09 63 68 63 6f | 6c 6f 72 28 59 45 4c 5f |X...chco|lor(YEL_|
|00006330| 33 29 3b 0a 58 09 09 09 | 69 66 20 28 69 20 3d 3d |3);.X...|if (i ==|
|00006340| 20 31 29 20 6c 61 73 74 | 78 20 3d 20 78 73 70 6f | 1) last|x = xspo|
|00006350| 74 2c 20 6c 61 73 74 79 | 20 3d 20 79 73 70 6f 74 |t, lasty| = yspot|
|00006360| 3b 0a 58 09 09 09 69 66 | 20 28 63 6f 6e 6e 65 63 |;.X...if| (connec|
|00006370| 74 20 26 26 20 69 20 21 | 3d 20 31 29 20 7b 0a 58 |t && i !|= 1) {.X|
|00006380| 09 09 09 09 63 68 63 6f | 6c 6f 72 28 47 52 4e 5f |....chco|lor(GRN_|
|00006390| 33 29 3b 0a 58 09 09 09 | 09 6c 69 6e 65 28 78 73 |3);.X...|.line(xs|
|000063a0| 70 6f 74 2b 58 42 4f 55 | 4e 44 2c 20 79 73 70 6f |pot+XBOU|ND, yspo|
|000063b0| 74 2b 59 42 4f 55 4e 44 | 2c 20 6c 61 73 74 78 2b |t+YBOUND|, lastx+|
|000063c0| 58 42 4f 55 4e 44 2c 20 | 6c 61 73 74 79 2b 59 42 |XBOUND, |lasty+YB|
|000063d0| 4f 55 4e 44 29 3b 0a 58 | 09 09 09 09 6c 61 73 74 |OUND);.X|....last|
|000063e0| 78 20 3d 20 78 73 70 6f | 74 3b 20 6c 61 73 74 79 |x = xspo|t; lasty|
|000063f0| 20 3d 20 79 73 70 6f 74 | 3b 0a 58 09 09 09 7d 0a | = yspot|;.X...}.|
+--------+-------------------------+-------------------------+--------+--------+