/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / compsrcs / games / new / 910913.0

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 75 75 | 6e 65 74 21 7a 65 70 68 |Path: uu|net!zeph|
|00000010| 79 72 2e 65 6e 73 2e 74 | 65 6b 2e 63 6f 6d 21 6d |yr.ens.t|ek.com!m|
|00000020| 61 73 74 65 72 21 73 61 | 61 62 21 62 69 6c 6c 72 |aster!sa|ab!billr|
|00000030| 0a 46 72 6f 6d 3a 20 62 | 69 6c 6c 72 40 73 61 61 |.From: b|illr@saa|
|00000040| 62 2e 74 65 6b 2e 63 6f | 6d 20 28 42 69 6c 6c 20 |b.tek.co|m (Bill |
|00000050| 52 61 6e 64 6c 65 29 0a | 4e 65 77 73 67 72 6f 75 |Randle).|Newsgrou|
|00000060| 70 73 3a 20 63 6f 6d 70 | 2e 73 6f 75 72 63 65 73 |ps: comp|.sources|
|00000070| 2e 67 61 6d 65 73 0a 53 | 75 62 6a 65 63 74 3a 20 |.games.S|ubject: |
|00000080| 76 31 32 69 30 39 37 3a | 20 20 72 6f 67 75 65 20 |v12i097:|  rogue |
|00000090| 2d 20 61 20 72 6f 67 75 | 65 20 35 2e 33 20 63 6c |- a rogu|e 5.3 cl|
|000000a0| 6f 6e 65 2c 20 50 61 74 | 63 68 33 0a 4d 65 73 73 |one, Pat|ch3.Mess|
|000000b0| 61 67 65 2d 49 44 3a 20 | 3c 31 37 36 34 40 6d 61 |age-ID: |<1764@ma|
|000000c0| 73 74 65 72 43 4e 41 2e | 54 45 4b 2e 43 4f 4d 3e |sterCNA.|TEK.COM>|
|000000d0| 0a 44 61 74 65 3a 20 31 | 33 20 53 65 70 20 39 31 |.Date: 1|3 Sep 91|
|000000e0| 20 31 38 3a 33 38 3a 30 | 37 20 47 4d 54 0a 53 65 | 18:38:0|7 GMT.Se|
|000000f0| 6e 64 65 72 3a 20 6e 65 | 77 73 40 6d 61 73 74 65 |nder: ne|ws@maste|
|00000100| 72 43 4e 41 2e 54 45 4b | 2e 43 4f 4d 0a 4c 69 6e |rCNA.TEK|.COM.Lin|
|00000110| 65 73 3a 20 31 35 30 30 | 0a 41 70 70 72 6f 76 65 |es: 1500|.Approve|
|00000120| 64 3a 20 62 69 6c 6c 72 | 40 73 61 61 62 2e 43 4e |d: billr|@saab.CN|
|00000130| 41 2e 54 45 4b 2e 43 4f | 4d 0a 0a 53 75 62 6d 69 |A.TEK.CO|M..Submi|
|00000140| 74 74 65 64 2d 62 79 3a | 20 73 65 61 6f 74 74 65 |tted-by:| seaotte|
|00000150| 72 40 41 54 48 45 4e 41 | 2e 4d 49 54 2e 45 44 55 |r@ATHENA|.MIT.EDU|
|00000160| 0a 50 6f 73 74 69 6e 67 | 2d 6e 75 6d 62 65 72 3a |.Posting|-number:|
|00000170| 20 56 6f 6c 75 6d 65 20 | 31 32 2c 20 49 73 73 75 | Volume |12, Issu|
|00000180| 65 20 39 37 0a 41 72 63 | 68 69 76 65 2d 6e 61 6d |e 97.Arc|hive-nam|
|00000190| 65 3a 20 72 6f 67 75 65 | 2f 50 61 74 63 68 33 0a |e: rogue|/Patch3.|
|000001a0| 50 61 74 63 68 2d 54 6f | 3a 20 72 6f 67 75 65 3a |Patch-To|: rogue:|
|000001b0| 20 56 6f 6c 75 6d 65 20 | 31 2c 20 49 73 73 75 65 | Volume |1, Issue|
|000001c0| 20 31 31 2d 31 36 0a 0a | 0a 5b 5b 48 65 72 65 20 | 11-16..|.[[Here |
|000001d0| 61 72 65 20 74 68 65 20 | 63 68 61 6e 67 65 73 20 |are the |changes |
|000001e0| 6e 65 63 65 73 73 61 72 | 79 20 74 6f 20 61 64 61 |necessar|y to ada|
|000001f0| 70 74 20 54 69 6d 20 53 | 74 6f 65 68 72 27 73 20 |pt Tim S|toehr's |
|00000200| 72 6f 67 75 65 20 63 6c | 6f 6e 65 20 74 6f 20 56 |rogue cl|one to V|
|00000210| 4d 53 2e 0a 49 74 20 63 | 6f 6e 73 69 73 74 73 20 |MS..It c|onsists |
|00000220| 6f 66 20 61 20 6e 65 77 | 20 6d 61 63 68 64 65 70 |of a new| machdep|
|00000230| 2e 63 2c 20 61 20 4d 61 | 6b 65 66 69 6c 65 20 66 |.c, a Ma|kefile f|
|00000240| 6f 72 20 56 4d 53 20 61 | 6e 64 20 61 20 2e 63 6f |or VMS a|nd a .co|
|00000250| 6d 20 66 69 6c 65 20 74 | 68 61 74 0a 65 6d 75 6c |m file t|hat.emul|
|00000260| 61 74 65 73 20 69 74 2c | 20 61 20 70 61 63 6b 61 |ates it,| a packa|
|00000270| 67 65 20 6f 66 20 74 65 | 72 6d 69 6e 61 6c 20 66 |ge of te|rminal f|
|00000280| 75 6e 63 74 69 6f 6e 73 | 20 77 72 61 70 70 65 64 |unctions| wrapped|
|00000290| 20 69 6e 74 6f 20 76 6d | 73 74 65 72 6d 2e 63 20 | into vm|sterm.c |
|000002a0| 61 6e 64 0a 76 6d 73 74 | 65 72 6d 2e 68 2c 20 61 |and.vmst|erm.h, a|
|000002b0| 6e 64 20 61 20 73 6d 61 | 6c 6c 20 70 61 74 63 68 |nd a sma|ll patch|
|000002c0| 66 69 6c 65 2e 20 20 49 | 20 68 61 76 65 20 72 65 |file.  I| have re|
|000002d0| 66 72 61 69 6e 65 64 20 | 66 72 6f 6d 20 61 64 64 |frained |from add|
|000002e0| 69 6e 67 20 6e 65 77 20 | 63 6f 6d 2d 0a 6d 61 6e |ing new |com-.man|
|000002f0| 64 73 20 6f 72 20 66 69 | 64 64 6c 69 6e 67 20 77 |ds or fi|ddling w|
|00000300| 69 74 68 20 74 68 65 20 | 63 6f 64 65 20 75 6e 6e |ith the |code unn|
|00000310| 65 63 65 73 73 61 72 69 | 6c 79 3a 20 49 20 6d 69 |ecessari|ly: I mi|
|00000320| 67 68 74 20 64 6f 20 74 | 68 61 74 20 6c 61 74 65 |ght do t|hat late|
|00000330| 72 2e 0a 0a 2d 2d 4d 69 | 6b 65 20 5a 72 61 6c 79 |r...--Mi|ke Zraly|
|00000340| 5d 5d 0a 0a 0a 23 21 20 | 2f 62 69 6e 2f 73 68 0a |]]...#! |/bin/sh.|
|00000350| 23 20 54 68 69 73 20 69 | 73 20 61 20 73 68 65 6c |# This i|s a shel|
|00000360| 6c 20 61 72 63 68 69 76 | 65 2e 20 20 52 65 6d 6f |l archiv|e.  Remo|
|00000370| 76 65 20 61 6e 79 74 68 | 69 6e 67 20 62 65 66 6f |ve anyth|ing befo|
|00000380| 72 65 20 74 68 69 73 20 | 6c 69 6e 65 2c 20 74 68 |re this |line, th|
|00000390| 65 6e 20 75 6e 70 61 63 | 6b 0a 23 20 69 74 20 62 |en unpac|k.# it b|
|000003a0| 79 20 73 61 76 69 6e 67 | 20 69 74 20 69 6e 74 6f |y saving| it into|
|000003b0| 20 61 20 66 69 6c 65 20 | 61 6e 64 20 74 79 70 69 | a file |and typi|
|000003c0| 6e 67 20 22 73 68 20 66 | 69 6c 65 22 2e 20 20 54 |ng "sh f|ile".  T|
|000003d0| 6f 20 6f 76 65 72 77 72 | 69 74 65 20 65 78 69 73 |o overwr|ite exis|
|000003e0| 74 69 6e 67 0a 23 20 66 | 69 6c 65 73 2c 20 74 79 |ting.# f|iles, ty|
|000003f0| 70 65 20 22 73 68 20 66 | 69 6c 65 20 2d 63 22 2e |pe "sh f|ile -c".|
|00000400| 20 20 59 6f 75 20 63 61 | 6e 20 61 6c 73 6f 20 66 |  You ca|n also f|
|00000410| 65 65 64 20 74 68 69 73 | 20 61 73 20 73 74 61 6e |eed this| as stan|
|00000420| 64 61 72 64 20 69 6e 70 | 75 74 20 76 69 61 0a 23 |dard inp|ut via.#|
|00000430| 20 75 6e 73 68 61 72 2c | 20 6f 72 20 62 79 20 74 | unshar,| or by t|
|00000440| 79 70 69 6e 67 20 22 73 | 68 20 3c 66 69 6c 65 22 |yping "s|h <file"|
|00000450| 2c 20 65 2e 67 2e 2e 20 | 20 49 66 20 74 68 69 73 |, e.g.. | If this|
|00000460| 20 61 72 63 68 69 76 65 | 20 69 73 20 63 6f 6d 70 | archive| is comp|
|00000470| 6c 65 74 65 2c 20 79 6f | 75 0a 23 20 77 69 6c 6c |lete, yo|u.# will|
|00000480| 20 73 65 65 20 74 68 65 | 20 66 6f 6c 6c 6f 77 69 | see the| followi|
|00000490| 6e 67 20 6d 65 73 73 61 | 67 65 20 61 74 20 74 68 |ng messa|ge at th|
|000004a0| 65 20 65 6e 64 3a 0a 23 | 09 09 22 45 6e 64 20 6f |e end:.#|.."End o|
|000004b0| 66 20 73 68 65 6c 6c 20 | 61 72 63 68 69 76 65 2e |f shell |archive.|
|000004c0| 22 0a 23 20 43 6f 6e 74 | 65 6e 74 73 3a 20 20 42 |".# Cont|ents:  B|
|000004d0| 55 47 53 33 20 4d 61 6b | 65 2e 63 6f 6d 20 4d 61 |UGS3 Mak|e.com Ma|
|000004e0| 6b 65 66 69 6c 65 2e 76 | 6d 73 20 50 61 74 63 68 |kefile.v|ms Patch|
|000004f0| 65 73 30 33 20 52 45 41 | 44 4d 45 2e 56 4d 53 20 |es03 REA|DME.VMS |
|00000500| 6d 61 63 68 64 65 70 2e | 63 0a 23 20 20 20 76 6d |machdep.|c.#   vm|
|00000510| 73 74 65 72 6d 2e 63 20 | 76 6d 73 74 65 72 6d 2e |sterm.c |vmsterm.|
|00000520| 68 0a 23 20 57 72 61 70 | 70 65 64 20 62 79 20 73 |h.# Wrap|ped by s|
|00000530| 65 61 6f 74 74 65 72 40 | 65 34 30 2d 30 30 38 2d |eaotter@|e40-008-|
|00000540| 31 30 20 6f 6e 20 46 72 | 69 20 41 75 67 20 32 33 |10 on Fr|i Aug 23|
|00000550| 20 32 33 3a 34 37 3a 30 | 33 20 31 39 39 31 0a 50 | 23:47:0|3 1991.P|
|00000560| 41 54 48 3d 2f 62 69 6e | 3a 2f 75 73 72 2f 62 69 |ATH=/bin|:/usr/bi|
|00000570| 6e 3a 2f 75 73 72 2f 75 | 63 62 20 3b 20 65 78 70 |n:/usr/u|cb ; exp|
|00000580| 6f 72 74 20 50 41 54 48 | 0a 69 66 20 74 65 73 74 |ort PATH|.if test|
|00000590| 20 2d 66 20 27 42 55 47 | 53 33 27 20 2d 61 20 22 | -f 'BUG|S3' -a "|
|000005a0| 24 7b 31 7d 22 20 21 3d | 20 22 2d 63 22 20 3b 20 |${1}" !=| "-c" ; |
|000005b0| 74 68 65 6e 20 0a 20 20 | 65 63 68 6f 20 73 68 61 |then .  |echo sha|
|000005c0| 72 3a 20 57 69 6c 6c 20 | 6e 6f 74 20 63 6c 6f 62 |r: Will |not clob|
|000005d0| 62 65 72 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c |ber exis|ting fil|
|000005e0| 65 20 5c 22 27 42 55 47 | 53 33 27 5c 22 0a 65 6c |e \"'BUG|S3'\".el|
|000005f0| 73 65 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 45 78 |se.echo |shar: Ex|
|00000600| 74 72 61 63 74 69 6e 67 | 20 5c 22 27 42 55 47 53 |tracting| \"'BUGS|
|00000610| 33 27 5c 22 20 5c 28 39 | 37 32 20 63 68 61 72 61 |3'\" \(9|72 chara|
|00000620| 63 74 65 72 73 5c 29 0a | 73 65 64 20 22 73 2f 5e |cters\).|sed "s/^|
|00000630| 58 2f 2f 22 20 3e 27 42 | 55 47 53 33 27 20 3c 3c |X//" >'B|UGS3' <<|
|00000640| 27 45 4e 44 5f 4f 46 5f | 46 49 4c 45 27 0a 58 48 |'END_OF_|FILE'.XH|
|00000650| 65 72 65 20 69 73 20 79 | 65 74 20 61 6e 6f 74 68 |ere is y|et anoth|
|00000660| 65 72 20 6c 69 73 74 20 | 66 6f 72 20 66 69 78 65 |er list |for fixe|
|00000670| 73 20 66 6f 72 20 54 69 | 6d 20 53 74 6f 65 68 72 |s for Ti|m Stoehr|
|00000680| 27 73 20 72 6f 67 75 65 | 20 63 6c 6f 6e 65 2e 0a |'s rogue| clone..|
|00000690| 58 49 20 77 61 73 20 6e | 6f 74 20 61 62 6c 65 20 |XI was n|ot able |
|000006a0| 74 6f 20 63 6f 6e 74 61 | 63 74 20 54 69 6d 20 61 |to conta|ct Tim a|
|000006b0| 74 20 68 69 73 20 54 65 | 6b 74 72 6f 6e 69 78 20 |t his Te|ktronix |
|000006c0| 65 6d 61 69 6c 20 61 64 | 64 72 65 73 73 2c 20 73 |email ad|dress, s|
|000006d0| 6f 0a 58 49 20 61 64 64 | 65 64 20 74 68 65 73 65 |o.XI add|ed these|
|000006e0| 20 6d 79 73 65 6c 66 2e | 20 20 54 68 69 73 20 69 | myself.|  This i|
|000006f0| 6e 74 72 6f 64 75 63 65 | 73 20 61 20 64 69 76 65 |ntroduce|s a dive|
|00000700| 72 73 69 6f 6e 20 66 72 | 6f 6d 20 74 68 65 20 72 |rsion fr|om the r|
|00000710| 6f 67 75 65 0a 58 63 6c | 6f 6e 65 20 64 69 73 74 |ogue.Xcl|one dist|
|00000720| 72 69 62 75 74 65 64 20 | 62 79 20 42 65 72 6b 65 |ributed |by Berke|
|00000730| 6c 65 79 20 62 75 74 20 | 49 20 64 6f 6e 27 74 20 |ley but |I don't |
|00000740| 72 65 61 6c 6c 79 20 73 | 65 65 20 74 68 65 6d 20 |really s|ee them |
|00000750| 61 73 20 62 65 69 6e 67 | 0a 58 69 6e 74 65 72 65 |as being|.Xintere|
|00000760| 73 74 65 64 20 69 6e 20 | 56 4d 53 20 63 6f 6d 70 |sted in |VMS comp|
|00000770| 61 74 61 62 69 6c 69 74 | 79 2e 0a 58 09 09 09 4d |atabilit|y..X...M|
|00000780| 69 6b 65 20 5a 72 61 6c | 79 0a 58 09 09 09 6d 7a |ike Zral|y.X...mz|
|00000790| 72 61 6c 79 40 6c 64 62 | 76 61 78 2e 64 6e 65 74 |raly@ldb|vax.dnet|
|000007a0| 2e 6c 6f 74 75 73 2e 63 | 6f 6d 0a 58 09 09 09 6f |.lotus.c|om.X...o|
|000007b0| 72 20 63 2f 6f 20 73 65 | 61 6f 74 74 65 72 40 61 |r c/o se|aotter@a|
|000007c0| 74 68 65 6e 61 2e 6d 69 | 74 2e 65 64 75 0a 58 09 |thena.mi|t.edu.X.|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2d 0a 58 0a 58 | 20 31 2e 29 09 41 64 64 |----.X.X| 1.).Add|
|00000810| 20 56 4d 53 20 63 6f 6d | 70 61 74 61 62 69 6c 69 | VMS com|patabili|
|00000820| 74 79 20 74 68 72 6f 75 | 67 68 20 63 68 61 6e 67 |ty throu|gh chang|
|00000830| 65 73 20 74 6f 20 6d 61 | 63 68 64 65 70 2e 63 20 |es to ma|chdep.c |
|00000840| 28 61 64 64 0a 58 09 61 | 70 70 72 6f 70 72 69 61 |(add.X.a|ppropria|
|00000850| 74 65 20 63 6f 64 65 29 | 2c 20 74 68 65 20 69 6e |te code)|, the in|
|00000860| 74 72 6f 64 75 63 74 69 | 6f 6e 20 6f 66 20 6f 6e |troducti|on of on|
|00000870| 65 20 73 6d 61 6c 6c 20 | 23 64 65 66 69 6e 65 0a |e small |#define.|
|00000880| 58 09 74 6f 20 72 6f 67 | 75 65 2e 68 2c 20 61 6e |X.to rog|ue.h, an|
|00000890| 64 20 61 20 70 61 63 6b | 61 67 65 20 6f 66 20 56 |d a pack|age of V|
|000008a0| 4d 53 20 6b 65 79 62 6f | 61 72 64 20 69 2f 6f 20 |MS keybo|ard i/o |
|000008b0| 66 75 6e 63 74 69 6f 6e | 73 0a 58 09 49 20 64 65 |function|s.X.I de|
|000008c0| 76 65 6c 6f 70 65 64 20 | 28 76 6d 73 74 65 72 6d |veloped |(vmsterm|
|000008d0| 2e 63 20 61 6e 64 20 76 | 6d 73 74 65 72 6d 2e 68 |.c and v|msterm.h|
|000008e0| 29 2e 20 20 49 20 61 6c | 73 6f 20 61 64 64 65 64 |).  I al|so added|
|000008f0| 20 61 0a 58 09 4d 61 6b | 65 66 69 6c 65 20 66 6f | a.X.Mak|efile fo|
|00000900| 72 20 56 4d 53 20 73 75 | 69 74 61 62 6c 65 20 66 |r VMS su|itable f|
|00000910| 6f 72 20 75 73 65 20 77 | 69 74 68 20 74 68 65 20 |or use w|ith the |
|00000920| 56 4d 53 20 4d 61 6b 65 | 20 70 72 6f 67 72 61 6d |VMS Make| program|
|00000930| 0a 58 09 28 61 76 61 69 | 6c 61 62 6c 65 20 76 69 |.X.(avai|lable vi|
|00000940| 61 20 61 6e 6f 6e 79 6d | 6f 75 73 20 46 54 50 20 |a anonym|ous FTP |
|00000950| 66 72 6f 6d 20 76 6d 73 | 64 2e 6f 61 63 2e 75 63 |from vms|d.oac.uc|
|00000960| 69 2e 65 64 75 20 6f 72 | 0a 58 09 70 6f 6d 6f 6e |i.edu or|.X.pomon|
|00000970| 61 2e 63 6c 61 72 65 6d | 6f 6e 74 2e 65 64 75 29 |a.clarem|ont.edu)|
|00000980| 0a 58 0a 58 20 32 2e 29 | 09 52 65 70 6c 61 63 65 |.X.X 2.)|.Replace|
|00000990| 20 63 6f 6d 6d 65 6e 74 | 20 77 69 74 68 69 6e 20 | comment| within |
|000009a0| 63 6f 6d 6d 65 6e 74 20 | 69 6e 20 6d 61 63 68 64 |comment |in machd|
|000009b0| 65 70 2e 63 20 28 63 69 | 72 63 61 20 6c 69 6e 65 |ep.c (ci|rca line|
|000009c0| 20 34 31 29 0a 58 09 77 | 69 74 68 20 5b 2a 20 2e | 41).X.w|ith [* .|
|000009d0| 2e 2e 20 2a 5d 20 69 6e | 73 74 65 61 64 20 6f 66 |.. *] in|stead of|
|000009e0| 20 2f 2a 20 2e 2e 2e 20 | 2a 2f 0a 58 0a 58 20 33 | /* ... |*/.X.X 3|
|000009f0| 2e 29 09 43 68 61 6e 67 | 65 20 70 61 74 63 68 6c |.).Chang|e patchl|
|00000a00| 65 76 65 6c 2e 68 0a 58 | 0a 58 20 34 2e 29 09 43 |evel.h.X|.X 4.).C|
|00000a10| 68 61 6e 67 65 20 76 65 | 72 73 69 6f 6e 20 6d 65 |hange ve|rsion me|
|00000a20| 73 73 61 67 65 20 69 6e | 20 70 6c 61 79 2e 63 0a |ssage in| play.c.|
|00000a30| 58 0a 58 0a 45 4e 44 5f | 4f 46 5f 46 49 4c 45 0a |X.X.END_|OF_FILE.|
|00000a40| 69 66 20 74 65 73 74 20 | 39 37 32 20 2d 6e 65 20 |if test |972 -ne |
|00000a50| 60 77 63 20 2d 63 20 3c | 27 42 55 47 53 33 27 60 |`wc -c <|'BUGS3'`|
|00000a60| 3b 20 74 68 65 6e 0a 20 | 20 20 20 65 63 68 6f 20 |; then. |   echo |
|00000a70| 73 68 61 72 3a 20 5c 22 | 27 42 55 47 53 33 27 5c |shar: \"|'BUGS3'\|
|00000a80| 22 20 75 6e 70 61 63 6b | 65 64 20 77 69 74 68 20 |" unpack|ed with |
|00000a90| 77 72 6f 6e 67 20 73 69 | 7a 65 21 0a 66 69 0a 23 |wrong si|ze!.fi.#|
|00000aa0| 20 65 6e 64 20 6f 66 20 | 27 42 55 47 53 33 27 0a | end of |'BUGS3'.|
|00000ab0| 66 69 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 4d |fi.if te|st -f 'M|
|00000ac0| 61 6b 65 2e 63 6f 6d 27 | 20 2d 61 20 22 24 7b 31 |ake.com'| -a "${1|
|00000ad0| 7d 22 20 21 3d 20 22 2d | 63 22 20 3b 20 74 68 65 |}" != "-|c" ; the|
|00000ae0| 6e 20 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |n .  ech|o shar: |
|00000af0| 57 69 6c 6c 20 6e 6f 74 | 20 63 6c 6f 62 62 65 72 |Will not| clobber|
|00000b00| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00000b10| 22 27 4d 61 6b 65 2e 63 | 6f 6d 27 5c 22 0a 65 6c |"'Make.c|om'\".el|
|00000b20| 73 65 0a 65 63 68 6f 20 | 73 68 61 72 3a 20 45 78 |se.echo |shar: Ex|
|00000b30| 74 72 61 63 74 69 6e 67 | 20 5c 22 27 4d 61 6b 65 |tracting| \"'Make|
|00000b40| 2e 63 6f 6d 27 5c 22 20 | 5c 28 38 34 36 20 63 68 |.com'\" |\(846 ch|
|00000b50| 61 72 61 63 74 65 72 73 | 5c 29 0a 73 65 64 20 22 |aracters|\).sed "|
|00000b60| 73 2f 5e 58 2f 2f 22 20 | 3e 27 4d 61 6b 65 2e 63 |s/^X//" |>'Make.c|
|00000b70| 6f 6d 27 20 3c 3c 27 45 | 4e 44 5f 4f 46 5f 46 49 |om' <<'E|ND_OF_FI|
|00000b80| 4c 45 27 0a 58 24 20 4f | 6e 20 43 6f 6e 74 72 6f |LE'.X$ O|n Contro|
|00000b90| 6c 5f 59 20 54 68 65 6e | 20 47 6f 74 6f 20 54 68 |l_Y Then| Goto Th|
|00000ba0| 65 5f 45 78 69 74 0a 58 | 24 20 4f 6e 20 45 72 72 |e_Exit.X|$ On Err|
|00000bb0| 6f 72 20 54 68 65 6e 20 | 47 6f 74 6f 20 54 68 65 |or Then |Goto The|
|00000bc0| 5f 45 78 69 74 0a 58 24 | 20 63 63 20 20 63 75 72 |_Exit.X$| cc  cur|
|00000bd0| 73 65 73 0a 58 24 20 63 | 63 20 20 68 69 74 0a 58 |ses.X$ c|c  hit.X|
|00000be0| 24 20 63 63 20 20 69 6e | 69 74 0a 58 24 20 63 63 |$ cc  in|it.X$ cc|
|00000bf0| 20 20 69 6e 76 65 6e 74 | 6f 72 79 0a 58 24 20 63 |  invent|ory.X$ c|
|00000c00| 63 20 20 6c 65 76 65 6c | 0a 58 24 20 63 63 20 20 |c  level|.X$ cc  |
|00000c10| 6d 61 63 68 64 65 70 0a | 58 24 20 63 63 20 20 6d |machdep.|X$ cc  m|
|00000c20| 61 69 6e 0a 58 24 20 63 | 63 20 20 6d 65 73 73 61 |ain.X$ c|c  messa|
|00000c30| 67 65 0a 58 24 20 63 63 | 20 20 6d 6f 6e 73 74 65 |ge.X$ cc|  monste|
|00000c40| 72 0a 58 24 20 63 63 20 | 20 6d 6f 76 65 0a 58 24 |r.X$ cc | move.X$|
|00000c50| 20 63 63 20 20 6f 62 6a | 65 63 74 0a 58 24 20 63 | cc  obj|ect.X$ c|
|00000c60| 63 20 20 70 61 63 6b 0a | 58 24 20 63 63 20 20 70 |c  pack.|X$ cc  p|
|00000c70| 6c 61 79 0a 58 24 20 63 | 63 20 20 72 61 6e 64 6f |lay.X$ c|c  rando|
|00000c80| 6d 0a 58 24 20 63 63 20 | 20 72 69 6e 67 0a 58 24 |m.X$ cc | ring.X$|
|00000c90| 20 63 63 20 20 72 6f 6f | 6d 0a 58 24 20 63 63 20 | cc  roo|m.X$ cc |
|00000ca0| 20 73 61 76 65 0a 58 24 | 20 63 63 20 20 73 63 6f | save.X$| cc  sco|
|00000cb0| 72 65 0a 58 24 20 63 63 | 20 20 73 70 65 63 5f 68 |re.X$ cc|  spec_h|
|00000cc0| 69 74 0a 58 24 20 63 63 | 20 20 74 68 72 6f 77 0a |it.X$ cc|  throw.|
|00000cd0| 58 24 20 63 63 20 20 74 | 72 61 70 0a 58 24 20 63 |X$ cc  t|rap.X$ c|
|00000ce0| 63 20 20 75 73 65 0a 58 | 24 20 63 63 20 20 7a 61 |c  use.X|$ cc  za|
|00000cf0| 70 0a 58 24 20 63 63 20 | 20 76 6d 73 74 65 72 6d |p.X$ cc | vmsterm|
|00000d00| 0a 58 24 20 6f 70 65 6e | 2f 77 72 69 74 65 20 66 |.X$ open|/write f|
|00000d10| 6f 6f 20 72 74 6c 2e 6f | 70 74 0a 58 24 20 77 72 |oo rtl.o|pt.X$ wr|
|00000d20| 69 74 65 20 66 6f 6f 20 | 22 53 59 53 24 4c 49 42 |ite foo |"SYS$LIB|
|00000d30| 52 41 52 59 3a 56 41 58 | 43 52 54 4c 47 2f 53 48 |RARY:VAX|CRTLG/SH|
|00000d40| 41 52 45 22 0a 58 24 20 | 63 6c 6f 73 65 20 66 6f |ARE".X$ |close fo|
|00000d50| 6f 0a 58 24 20 6c 69 6e | 6b 20 2f 65 78 65 3d 72 |o.X$ lin|k /exe=r|
|00000d60| 6f 67 75 65 20 63 75 72 | 73 65 73 2e 6f 62 6a 2c |ogue cur|ses.obj,|
|00000d70| 09 68 69 74 2e 6f 62 6a | 2c 09 69 6e 69 74 2e 6f |.hit.obj|,.init.o|
|00000d80| 62 6a 2c 2d 0a 58 09 69 | 6e 76 65 6e 74 6f 72 79 |bj,-.X.i|nventory|
|00000d90| 2e 6f 62 6a 2c 09 09 6c | 65 76 65 6c 2e 6f 62 6a |.obj,..l|evel.obj|
|00000da0| 2c 09 6d 61 63 68 64 65 | 70 2e 6f 62 6a 2c 2d 0a |,.machde|p.obj,-.|
|00000db0| 58 09 6d 61 69 6e 2e 6f | 62 6a 2c 09 09 6d 65 73 |X.main.o|bj,..mes|
|00000dc0| 73 61 67 65 2e 6f 62 6a | 2c 09 6d 6f 6e 73 74 65 |sage.obj|,.monste|
|00000dd0| 72 2e 6f 62 6a 2c 2d 0a | 58 09 6d 6f 76 65 2e 6f |r.obj,-.|X.move.o|
|00000de0| 62 6a 2c 09 09 6f 62 6a | 65 63 74 2e 6f 62 6a 2c |bj,..obj|ect.obj,|
|00000df0| 09 70 61 63 6b 2e 6f 62 | 6a 2c 2d 0a 58 09 70 6c |.pack.ob|j,-.X.pl|
|00000e00| 61 79 2e 6f 62 6a 2c 09 | 09 72 61 6e 64 6f 6d 2e |ay.obj,.|.random.|
|00000e10| 6f 62 6a 2c 09 72 69 6e | 67 2e 6f 62 6a 2c 2d 0a |obj,.rin|g.obj,-.|
|00000e20| 58 09 72 6f 6f 6d 2e 6f | 62 6a 2c 09 09 73 61 76 |X.room.o|bj,..sav|
|00000e30| 65 2e 6f 62 6a 2c 09 73 | 63 6f 72 65 2e 6f 62 6a |e.obj,.s|core.obj|
|00000e40| 2c 2d 0a 58 09 73 70 65 | 63 5f 68 69 74 2e 6f 62 |,-.X.spe|c_hit.ob|
|00000e50| 6a 2c 09 09 74 68 72 6f | 77 2e 6f 62 6a 2c 09 74 |j,..thro|w.obj,.t|
|00000e60| 72 61 70 2e 6f 62 6a 2c | 2d 0a 58 09 75 73 65 2e |rap.obj,|-.X.use.|
|00000e70| 6f 62 6a 2c 09 09 7a 61 | 70 2e 6f 62 6a 2c 09 76 |obj,..za|p.obj,.v|
|00000e80| 6d 73 74 65 72 6d 2e 6f | 62 6a 2c 20 72 74 6c 2e |msterm.o|bj, rtl.|
|00000e90| 6f 70 74 2f 6f 70 74 0a | 58 24 20 72 6f 67 75 65 |opt/opt.|X$ rogue|
|00000ea0| 20 3a 3d 3d 20 24 27 66 | 24 65 6e 76 28 22 64 65 | :== $'f|$env("de|
|00000eb0| 66 61 75 6c 74 22 29 27 | 72 6f 67 75 65 2e 65 78 |fault")'|rogue.ex|
|00000ec0| 65 0a 58 24 54 68 65 5f | 45 78 69 74 3a 0a 58 24 |e.X$The_|Exit:.X$|
|00000ed0| 20 53 61 76 65 5f 53 74 | 61 74 75 73 20 3d 20 24 | Save_St|atus = $|
|00000ee0| 53 54 41 54 55 53 0a 58 | 24 20 65 78 69 74 20 53 |STATUS.X|$ exit S|
|00000ef0| 61 76 65 5f 53 74 61 74 | 75 73 0a 45 4e 44 5f 4f |ave_Stat|us.END_O|
|00000f00| 46 5f 46 49 4c 45 0a 69 | 66 20 74 65 73 74 20 38 |F_FILE.i|f test 8|
|00000f10| 34 36 20 2d 6e 65 20 60 | 77 63 20 2d 63 20 3c 27 |46 -ne `|wc -c <'|
|00000f20| 4d 61 6b 65 2e 63 6f 6d | 27 60 3b 20 74 68 65 6e |Make.com|'`; then|
|00000f30| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |.    ech|o shar: |
|00000f40| 5c 22 27 4d 61 6b 65 2e | 63 6f 6d 27 5c 22 20 75 |\"'Make.|com'\" u|
|00000f50| 6e 70 61 63 6b 65 64 20 | 77 69 74 68 20 77 72 6f |npacked |with wro|
|00000f60| 6e 67 20 73 69 7a 65 21 | 0a 66 69 0a 23 20 65 6e |ng size!|.fi.# en|
|00000f70| 64 20 6f 66 20 27 4d 61 | 6b 65 2e 63 6f 6d 27 0a |d of 'Ma|ke.com'.|
|00000f80| 66 69 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 4d |fi.if te|st -f 'M|
|00000f90| 61 6b 65 66 69 6c 65 2e | 76 6d 73 27 20 2d 61 20 |akefile.|vms' -a |
|00000fa0| 22 24 7b 31 7d 22 20 21 | 3d 20 22 2d 63 22 20 3b |"${1}" !|= "-c" ;|
|00000fb0| 20 74 68 65 6e 20 0a 20 | 20 65 63 68 6f 20 73 68 | then . | echo sh|
|00000fc0| 61 72 3a 20 57 69 6c 6c | 20 6e 6f 74 20 63 6c 6f |ar: Will| not clo|
|00000fd0| 62 62 65 72 20 65 78 69 | 73 74 69 6e 67 20 66 69 |bber exi|sting fi|
|00000fe0| 6c 65 20 5c 22 27 4d 61 | 6b 65 66 69 6c 65 2e 76 |le \"'Ma|kefile.v|
|00000ff0| 6d 73 27 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |ms'\".el|se.echo |
|00001000| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00001010| 20 5c 22 27 4d 61 6b 65 | 66 69 6c 65 2e 76 6d 73 | \"'Make|file.vms|
|00001020| 27 5c 22 20 5c 28 39 33 | 34 20 63 68 61 72 61 63 |'\" \(93|4 charac|
|00001030| 74 65 72 73 5c 29 0a 73 | 65 64 20 22 73 2f 5e 58 |ters\).s|ed "s/^X|
|00001040| 2f 2f 22 20 3e 27 4d 61 | 6b 65 66 69 6c 65 2e 76 |//" >'Ma|kefile.v|
|00001050| 6d 73 27 20 3c 3c 27 45 | 4e 44 5f 4f 46 5f 46 49 |ms' <<'E|ND_OF_FI|
|00001060| 4c 45 27 0a 58 23 0a 58 | 23 09 56 4d 53 20 6d 61 |LE'.X#.X|#.VMS ma|
|00001070| 6b 65 66 69 6c 65 20 66 | 6f 72 20 72 6f 67 75 65 |kefile f|or rogue|
|00001080| 0a 58 23 0a 58 0a 58 52 | 4f 47 55 45 5f 4f 42 4a |.X#.X.XR|OGUE_OBJ|
|00001090| 53 20 3d 20 63 75 72 73 | 65 73 2e 6f 62 6a 2c 09 |S = curs|es.obj,.|
|000010a0| 68 69 74 2e 6f 62 6a 2c | 09 69 6e 69 74 2e 6f 62 |hit.obj,|.init.ob|
|000010b0| 6a 2c 09 5c 0a 58 09 69 | 6e 76 65 6e 74 6f 72 79 |j,.\.X.i|nventory|
|000010c0| 2e 6f 62 6a 2c 09 09 6c | 65 76 65 6c 2e 6f 62 6a |.obj,..l|evel.obj|
|000010d0| 2c 09 6d 61 63 68 64 65 | 70 2e 6f 62 6a 2c 09 5c |,.machde|p.obj,.\|
|000010e0| 0a 58 09 6d 61 69 6e 2e | 6f 62 6a 2c 09 09 6d 65 |.X.main.|obj,..me|
|000010f0| 73 73 61 67 65 2e 6f 62 | 6a 2c 09 6d 6f 6e 73 74 |ssage.ob|j,.monst|
|00001100| 65 72 2e 6f 62 6a 2c 09 | 5c 0a 58 09 6d 6f 76 65 |er.obj,.|\.X.move|
|00001110| 2e 6f 62 6a 2c 09 09 6f | 62 6a 65 63 74 2e 6f 62 |.obj,..o|bject.ob|
|00001120| 6a 2c 09 70 61 63 6b 2e | 6f 62 6a 2c 09 5c 0a 58 |j,.pack.|obj,.\.X|
|00001130| 09 70 6c 61 79 2e 6f 62 | 6a 2c 09 09 72 61 6e 64 |.play.ob|j,..rand|
|00001140| 6f 6d 2e 6f 62 6a 2c 09 | 72 69 6e 67 2e 6f 62 6a |om.obj,.|ring.obj|
|00001150| 2c 09 5c 0a 58 09 72 6f | 6f 6d 2e 6f 62 6a 2c 09 |,.\.X.ro|om.obj,.|
|00001160| 09 73 61 76 65 2e 6f 62 | 6a 2c 09 73 63 6f 72 65 |.save.ob|j,.score|
|00001170| 2e 6f 62 6a 2c 09 5c 0a | 58 09 73 70 65 63 5f 68 |.obj,.\.|X.spec_h|
|00001180| 69 74 2e 6f 62 6a 2c 09 | 09 74 68 72 6f 77 2e 6f |it.obj,.|.throw.o|
|00001190| 62 6a 2c 09 74 72 61 70 | 2e 6f 62 6a 2c 09 5c 0a |bj,.trap|.obj,.\.|
|000011a0| 58 09 75 73 65 2e 6f 62 | 6a 2c 09 09 7a 61 70 2e |X.use.ob|j,..zap.|
|000011b0| 6f 62 6a 2c 09 76 6d 73 | 74 65 72 6d 2e 6f 62 6a |obj,.vms|term.obj|
|000011c0| 0a 58 0a 58 43 43 20 3d | 20 63 63 0a 58 0a 58 43 |.X.XCC =| cc.X.XC|
|000011d0| 46 4c 41 47 53 20 3d 20 | 0a 58 0a 58 72 6f 67 75 |FLAGS = |.X.Xrogu|
|000011e0| 65 3a 20 24 28 52 4f 47 | 55 45 5f 4f 42 4a 53 29 |e: $(ROG|UE_OBJS)|
|000011f0| 20 72 74 6c 2e 6f 70 74 | 0a 58 09 6c 69 6e 6b 20 | rtl.opt|.X.link |
|00001200| 2f 65 78 65 3d 72 6f 67 | 75 65 20 24 28 52 4f 47 |/exe=rog|ue $(ROG|
|00001210| 55 45 5f 4f 42 4a 53 29 | 2c 20 72 74 6c 2e 6f 70 |UE_OBJS)|, rtl.op|
|00001220| 74 2f 6f 70 74 0a 58 09 | 72 6f 67 75 65 20 3a 3d |t/opt.X.|rogue :=|
|00001230| 3d 20 24 27 66 24 65 6e | 76 28 22 64 65 66 61 75 |= $'f$en|v("defau|
|00001240| 6c 74 22 29 27 72 6f 67 | 75 65 2e 65 78 65 0a 58 |lt")'rog|ue.exe.X|
|00001250| 0a 58 72 74 6c 2e 6f 70 | 74 3a 0a 58 09 6f 70 65 |.Xrtl.op|t:.X.ope|
|00001260| 6e 2f 77 72 69 74 65 20 | 66 6f 6f 20 72 74 6c 2e |n/write |foo rtl.|
|00001270| 6f 70 74 0a 58 09 77 72 | 69 74 65 20 66 6f 6f 20 |opt.X.wr|ite foo |
|00001280| 22 53 59 53 24 4c 49 42 | 52 41 52 59 3a 56 41 58 |"SYS$LIB|RARY:VAX|
|00001290| 43 52 54 4c 47 2f 53 48 | 41 52 45 22 0a 58 09 63 |CRTLG/SH|ARE".X.c|
|000012a0| 6c 6f 73 65 20 66 6f 6f | 0a 58 0a 58 2a 2e 6f 62 |lose foo|.X.X*.ob|
|000012b0| 6a 3a 09 2a 2e 63 20 72 | 6f 67 75 65 2e 68 0a 58 |j:.*.c r|ogue.h.X|
|000012c0| 09 24 28 43 43 29 20 24 | 28 43 46 4c 41 47 53 29 |.$(CC) $|(CFLAGS)|
|000012d0| 20 24 2a 0a 58 0a 58 61 | 6c 6c 63 6c 65 61 6e 3a | $*.X.Xa|llclean:|
|000012e0| 09 63 6c 65 61 6e 0a 58 | 09 6d 73 67 20 3d 20 66 |.clean.X|.msg = f|
|000012f0| 24 65 6e 76 28 22 4d 45 | 53 53 41 47 45 22 29 0a |$env("ME|SSAGE").|
|00001300| 58 09 73 65 74 20 6d 65 | 73 73 20 2f 6e 6f 66 61 |X.set me|ss /nofa|
|00001310| 63 2f 6e 6f 69 64 2f 6e | 6f 73 65 76 2f 6e 6f 74 |c/noid/n|osev/not|
|00001320| 65 78 74 0a 58 09 64 65 | 6c 65 74 65 2f 6e 6f 6c |ext.X.de|lete/nol|
|00001330| 6f 67 09 72 6f 67 75 65 | 2e 65 78 65 3b 2a 0a 58 |og.rogue|.exe;*.X|
|00001340| 09 73 65 74 20 6d 65 73 | 73 20 27 6d 73 67 27 0a |.set mes|s 'msg'.|
|00001350| 58 0a 58 63 6c 65 61 6e | 3a 0a 58 09 6d 73 67 20 |X.Xclean|:.X.msg |
|00001360| 3d 20 66 24 65 6e 76 28 | 22 4d 45 53 53 41 47 45 |= f$env(|"MESSAGE|
|00001370| 22 29 0a 58 09 73 65 74 | 20 6d 65 73 73 20 2f 6e |").X.set| mess /n|
|00001380| 6f 66 61 63 2f 6e 6f 69 | 64 2f 6e 6f 73 65 76 2f |ofac/noi|d/nosev/|
|00001390| 6e 6f 74 65 78 74 0a 58 | 09 70 75 72 67 65 2f 6e |notext.X|.purge/n|
|000013a0| 6f 6c 6f 67 0a 58 09 64 | 65 6c 65 74 65 2f 6e 6f |olog.X.d|elete/no|
|000013b0| 6c 6f 67 09 2a 2e 6c 69 | 73 3b 2a 0a 58 09 64 65 |log.*.li|s;*.X.de|
|000013c0| 6c 65 74 65 2f 6e 6f 6c | 6f 67 09 2a 2e 6f 62 6a |lete/nol|og.*.obj|
|000013d0| 3b 2a 0a 58 09 64 65 6c | 65 74 65 2f 6e 6f 6c 6f |;*.X.del|ete/nolo|
|000013e0| 67 09 72 6f 67 75 65 2e | 73 63 6f 72 65 73 3b 2a |g.rogue.|scores;*|
|000013f0| 0a 58 09 64 65 6c 65 74 | 65 2f 6e 6f 6c 6f 67 09 |.X.delet|e/nolog.|
|00001400| 72 6f 67 75 65 2e 73 61 | 76 65 3b 2a 0a 58 09 64 |rogue.sa|ve;*.X.d|
|00001410| 65 6c 65 74 65 2f 6e 6f | 6c 6f 67 09 72 74 6c 2e |elete/no|log.rtl.|
|00001420| 6f 70 74 3b 2a 0a 58 09 | 73 65 74 20 6d 65 73 73 |opt;*.X.|set mess|
|00001430| 20 27 6d 73 67 27 0a 45 | 4e 44 5f 4f 46 5f 46 49 | 'msg'.E|ND_OF_FI|
|00001440| 4c 45 0a 69 66 20 74 65 | 73 74 20 39 33 34 20 2d |LE.if te|st 934 -|
|00001450| 6e 65 20 60 77 63 20 2d | 63 20 3c 27 4d 61 6b 65 |ne `wc -|c <'Make|
|00001460| 66 69 6c 65 2e 76 6d 73 | 27 60 3b 20 74 68 65 6e |file.vms|'`; then|
|00001470| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |.    ech|o shar: |
|00001480| 5c 22 27 4d 61 6b 65 66 | 69 6c 65 2e 76 6d 73 27 |\"'Makef|ile.vms'|
|00001490| 5c 22 20 75 6e 70 61 63 | 6b 65 64 20 77 69 74 68 |\" unpac|ked with|
|000014a0| 20 77 72 6f 6e 67 20 73 | 69 7a 65 21 0a 66 69 0a | wrong s|ize!.fi.|
|000014b0| 23 20 65 6e 64 20 6f 66 | 20 27 4d 61 6b 65 66 69 |# end of| 'Makefi|
|000014c0| 6c 65 2e 76 6d 73 27 0a | 66 69 0a 69 66 20 74 65 |le.vms'.|fi.if te|
|000014d0| 73 74 20 2d 66 20 27 50 | 61 74 63 68 65 73 30 33 |st -f 'P|atches03|
|000014e0| 27 20 2d 61 20 22 24 7b | 31 7d 22 20 21 3d 20 22 |' -a "${|1}" != "|
|000014f0| 2d 63 22 20 3b 20 74 68 | 65 6e 20 0a 20 20 65 63 |-c" ; th|en .  ec|
|00001500| 68 6f 20 73 68 61 72 3a | 20 57 69 6c 6c 20 6e 6f |ho shar:| Will no|
|00001510| 74 20 63 6c 6f 62 62 65 | 72 20 65 78 69 73 74 69 |t clobbe|r existi|
|00001520| 6e 67 20 66 69 6c 65 20 | 5c 22 27 50 61 74 63 68 |ng file |\"'Patch|
|00001530| 65 73 30 33 27 5c 22 0a | 65 6c 73 65 0a 65 63 68 |es03'\".|else.ech|
|00001540| 6f 20 73 68 61 72 3a 20 | 45 78 74 72 61 63 74 69 |o shar: |Extracti|
|00001550| 6e 67 20 5c 22 27 50 61 | 74 63 68 65 73 30 33 27 |ng \"'Pa|tches03'|
|00001560| 5c 22 20 5c 28 31 33 30 | 37 20 63 68 61 72 61 63 |\" \(130|7 charac|
|00001570| 74 65 72 73 5c 29 0a 73 | 65 64 20 22 73 2f 5e 58 |ters\).s|ed "s/^X|
|00001580| 2f 2f 22 20 3e 27 50 61 | 74 63 68 65 73 30 33 27 |//" >'Pa|tches03'|
|00001590| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 46 49 4c 45 27 | <<'END_|OF_FILE'|
|000015a0| 0a 58 2a 2a 2a 20 70 61 | 74 63 68 6c 65 76 65 6c |.X*** pa|tchlevel|
|000015b0| 2e 68 2e 6f 72 69 67 09 | 57 65 64 20 41 75 67 20 |.h.orig.|Wed Aug |
|000015c0| 31 34 20 30 36 3a 32 39 | 3a 31 36 20 31 39 39 31 |14 06:29|:16 1991|
|000015d0| 0a 58 2d 2d 2d 20 70 61 | 74 63 68 6c 65 76 65 6c |.X--- pa|tchlevel|
|000015e0| 2e 68 09 57 65 64 20 41 | 75 67 20 32 31 20 31 31 |.h.Wed A|ug 21 11|
|000015f0| 3a 35 37 3a 32 32 20 31 | 39 39 31 0a 58 2a 2a 2a |:57:22 1|991.X***|
|00001600| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 58 2a 2a |********|****.X**|
|00001610| 2a 20 31 20 2a 2a 2a 2a | 0a 58 21 20 23 64 65 66 |* 1 ****|.X! #def|
|00001620| 69 6e 65 20 50 41 54 43 | 48 4c 45 56 45 4c 20 32 |ine PATC|HLEVEL 2|
|00001630| 0a 58 2d 2d 2d 20 31 20 | 2d 2d 2d 2d 0a 58 21 20 |.X--- 1 |----.X! |
|00001640| 23 64 65 66 69 6e 65 20 | 50 41 54 43 48 4c 45 56 |#define |PATCHLEV|
|00001650| 45 4c 20 33 0a 58 2a 2a | 2a 20 70 6c 61 79 2e 63 |EL 3.X**|* play.c|
|00001660| 2e 6f 72 69 67 09 57 65 | 64 20 41 75 67 20 31 34 |.orig.We|d Aug 14|
|00001670| 20 30 36 3a 32 36 3a 31 | 38 20 31 39 39 31 0a 58 | 06:26:1|8 1991.X|
|00001680| 2d 2d 2d 20 70 6c 61 79 | 2e 63 09 57 65 64 20 41 |--- play|.c.Wed A|
|00001690| 75 67 20 32 31 20 31 31 | 3a 35 38 3a 33 38 20 31 |ug 21 11|:58:38 1|
|000016a0| 39 39 31 0a 58 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |991.X***|********|
|000016b0| 2a 2a 2a 2a 0a 58 2a 2a | 2a 20 31 2c 34 20 2a 2a |****.X**|* 1,4 **|
|000016c0| 2a 2a 0a 58 2d 2d 2d 20 | 31 2c 38 20 2d 2d 2d 2d |**.X--- |1,8 ----|
|000016d0| 0a 58 20 20 2f 2a 0a 58 | 2b 20 20 2a 09 54 68 69 |.X  /*.X|+  *.Thi|
|000016e0| 73 20 63 6f 64 65 20 77 | 61 73 20 61 64 61 70 74 |s code w|as adapt|
|000016f0| 65 64 20 66 6f 72 20 56 | 4d 53 20 62 79 20 4d 69 |ed for V|MS by Mi|
|00001700| 6b 65 20 5a 72 61 6c 79 | 0a 58 2b 20 20 2a 2f 0a |ke Zraly|.X+  */.|
|00001710| 58 2b 20 0a 58 2b 20 2f | 2a 0a 58 20 20 20 2a 20 |X+ .X+ /|*.X   * |
|00001720| 70 6c 61 79 2e 63 0a 58 | 20 20 20 2a 0a 58 20 20 |play.c.X|   *.X  |
|00001730| 20 2a 20 54 68 69 73 20 | 73 6f 75 72 63 65 20 68 | * This |source h|
|00001740| 65 72 65 69 6e 20 6d 61 | 79 20 62 65 20 6d 6f 64 |erein ma|y be mod|
|00001750| 69 66 69 65 64 20 61 6e | 64 2f 6f 72 20 64 69 73 |ified an|d/or dis|
|00001760| 74 72 69 62 75 74 65 64 | 20 62 79 20 61 6e 79 62 |tributed| by anyb|
|00001770| 6f 64 79 20 77 68 6f 0a | 58 2a 2a 2a 2a 2a 2a 2a |ody who.|X*******|
|00001780| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 58 2a 2a 2a 20 31 35 |********|.X*** 15|
|00001790| 34 2c 31 36 30 20 2a 2a | 2a 2a 0a 58 20 20 09 09 |4,160 **|**.X  ..|
|000017a0| 09 74 68 72 6f 77 28 29 | 3b 0a 58 20 20 09 09 09 |.throw()|;.X  ...|
|000017b0| 62 72 65 61 6b 3b 0a 58 | 20 20 09 09 63 61 73 65 |break;.X|  ..case|
|000017c0| 20 27 76 27 3a 0a 58 21 | 20 09 09 09 6d 65 73 73 | 'v':.X!| ...mess|
|000017d0| 61 67 65 28 22 72 6f 67 | 75 65 2d 63 6c 6f 6e 65 |age("rog|ue-clone|
|000017e0| 3a 20 56 65 72 73 69 6f | 6e 20 49 49 2e 20 28 54 |: Versio|n II. (T|
|000017f0| 69 6d 20 53 74 6f 65 68 | 72 20 77 61 73 20 68 65 |im Stoeh|r was he|
|00001800| 72 65 29 2c 20 74 65 6b | 74 72 6f 6e 69 78 21 7a |re), tek|tronix!z|
|00001810| 65 75 73 21 74 69 6d 73 | 22 2c 20 30 29 3b 0a 58 |eus!tims|", 0);.X|
|00001820| 20 20 09 09 09 62 72 65 | 61 6b 3b 0a 58 20 20 09 |  ...bre|ak;.X  .|
|00001830| 09 63 61 73 65 20 27 51 | 27 3a 0a 58 20 20 09 09 |.case 'Q|':.X  ..|
|00001840| 09 71 75 69 74 28 30 29 | 3b 0a 58 2d 2d 2d 20 31 |.quit(0)|;.X--- 1|
|00001850| 35 38 2c 31 36 34 20 2d | 2d 2d 2d 0a 58 20 20 09 |58,164 -|---.X  .|
|00001860| 09 09 74 68 72 6f 77 28 | 29 3b 0a 58 20 20 09 09 |..throw(|);.X  ..|
|00001870| 09 62 72 65 61 6b 3b 0a | 58 20 20 09 09 63 61 73 |.break;.|X  ..cas|
|00001880| 65 20 27 76 27 3a 0a 58 | 21 20 09 09 09 6d 65 73 |e 'v':.X|! ...mes|
|00001890| 73 61 67 65 28 22 72 6f | 67 75 65 2d 63 6c 6f 6e |sage("ro|gue-clon|
|000018a0| 65 3a 20 56 65 72 73 69 | 6f 6e 20 49 49 2b 56 4d |e: Versi|on II+VM|
|000018b0| 53 20 28 4d 20 5a 72 61 | 6c 79 20 77 61 73 20 68 |S (M Zra|ly was h|
|000018c0| 65 72 65 29 2c 20 6d 7a | 72 61 6c 79 40 6c 64 62 |ere), mz|raly@ldb|
|000018d0| 76 61 78 2e 64 6e 65 74 | 2e 6c 6f 74 75 73 2e 63 |vax.dnet|.lotus.c|
|000018e0| 6f 6d 22 2c 20 30 29 3b | 0a 58 20 20 09 09 09 62 |om", 0);|.X  ...b|
|000018f0| 72 65 61 6b 3b 0a 58 20 | 20 09 09 63 61 73 65 20 |reak;.X | ..case |
|00001900| 27 51 27 3a 0a 58 20 20 | 09 09 09 71 75 69 74 28 |'Q':.X  |...quit(|
|00001910| 30 29 3b 0a 58 2a 2a 2a | 20 72 6f 67 75 65 2e 68 |0);.X***| rogue.h|
|00001920| 2e 6f 72 69 67 09 57 65 | 64 20 41 75 67 20 31 34 |.orig.We|d Aug 14|
|00001930| 20 30 36 3a 35 35 3a 33 | 39 20 31 39 39 31 0a 58 | 06:55:3|9 1991.X|
|00001940| 2d 2d 2d 20 72 6f 67 75 | 65 2e 68 09 57 65 64 20 |--- rogu|e.h.Wed |
|00001950| 41 75 67 20 32 31 20 31 | 31 3a 35 37 3a 32 36 20 |Aug 21 1|1:57:26 |
|00001960| 31 39 39 31 0a 58 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |1991.X**|********|
|00001970| 2a 2a 2a 2a 2a 0a 58 2a | 2a 2a 20 31 2c 34 20 2a |*****.X*|** 1,4 *|
|00001980| 2a 2a 2a 0a 58 2d 2d 2d | 20 31 2c 38 20 2d 2d 2d |***.X---| 1,8 ---|
|00001990| 2d 0a 58 20 20 2f 2a 0a | 58 2b 20 20 2a 09 54 68 |-.X  /*.|X+  *.Th|
|000019a0| 69 73 20 63 6f 64 65 20 | 77 61 73 20 61 64 61 70 |is code |was adap|
|000019b0| 74 65 64 20 66 6f 72 20 | 56 4d 53 20 62 79 20 4d |ted for |VMS by M|
|000019c0| 69 6b 65 20 5a 72 61 6c | 79 0a 58 2b 20 20 2a 2f |ike Zral|y.X+  */|
|000019d0| 0a 58 2b 20 0a 58 2b 20 | 2f 2a 0a 58 20 20 20 2a |.X+ .X+ |/*.X   *|
|000019e0| 20 6f 62 6a 65 63 74 2e | 68 0a 58 20 20 20 2a 0a | object.|h.X   *.|
|000019f0| 58 20 20 20 2a 20 54 68 | 69 73 20 73 6f 75 72 63 |X   * Th|is sourc|
|00001a00| 65 20 68 65 72 65 69 6e | 20 6d 61 79 20 62 65 20 |e herein| may be |
|00001a10| 6d 6f 64 69 66 69 65 64 | 20 61 6e 64 2f 6f 72 20 |modified| and/or |
|00001a20| 64 69 73 74 72 69 62 75 | 74 65 64 20 62 79 20 61 |distribu|ted by a|
|00001a30| 6e 79 62 6f 64 79 20 77 | 68 6f 0a 58 2a 2a 2a 2a |nybody w|ho.X****|
|00001a40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 58 2a 2a 2a |********|***.X***|
|00001a50| 20 39 2c 31 34 20 2a 2a | 2a 2a 0a 58 2d 2d 2d 20 | 9,14 **|**.X--- |
|00001a60| 31 33 2c 32 32 20 2d 2d | 2d 2d 0a 58 20 20 20 2a |13,22 --|--.X   *|
|00001a70| 20 20 20 20 20 20 20 20 | 20 67 61 69 6e 20 6f 72 |        | gain or|
|00001a80| 20 70 72 6f 66 69 74 2e | 0a 58 20 20 20 2a 0a 58 | profit.|.X   *.X|
|00001a90| 20 20 20 2a 2f 0a 58 2b | 20 0a 58 2b 20 23 69 66 |   */.X+| .X+ #if|
|00001aa0| 64 65 66 20 56 4d 53 0a | 58 2b 20 23 64 65 66 69 |def VMS.|X+ #defi|
|00001ab0| 6e 65 20 67 65 74 63 68 | 61 72 28 29 09 74 74 5f |ne getch|ar().tt_|
|00001ac0| 67 65 74 63 28 29 0a 58 | 2b 20 23 65 6e 64 69 66 |getc().X|+ #endif|
|00001ad0| 20 2f 2a 20 56 4d 53 20 | 2a 2f 0a 58 20 20 0a 58 | /* VMS |*/.X  .X|
|00001ae0| 20 20 23 64 65 66 69 6e | 65 20 62 6f 6f 6c 65 61 |  #defin|e boolea|
|00001af0| 6e 20 63 68 61 72 0a 58 | 20 20 0a 45 4e 44 5f 4f |n char.X|  .END_O|
|00001b00| 46 5f 46 49 4c 45 0a 69 | 66 20 74 65 73 74 20 31 |F_FILE.i|f test 1|
|00001b10| 33 30 37 20 2d 6e 65 20 | 60 77 63 20 2d 63 20 3c |307 -ne |`wc -c <|
|00001b20| 27 50 61 74 63 68 65 73 | 30 33 27 60 3b 20 74 68 |'Patches|03'`; th|
|00001b30| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 73 68 61 72 |en.    e|cho shar|
|00001b40| 3a 20 5c 22 27 50 61 74 | 63 68 65 73 30 33 27 5c |: \"'Pat|ches03'\|
|00001b50| 22 20 75 6e 70 61 63 6b | 65 64 20 77 69 74 68 20 |" unpack|ed with |
|00001b60| 77 72 6f 6e 67 20 73 69 | 7a 65 21 0a 66 69 0a 23 |wrong si|ze!.fi.#|
|00001b70| 20 65 6e 64 20 6f 66 20 | 27 50 61 74 63 68 65 73 | end of |'Patches|
|00001b80| 30 33 27 0a 66 69 0a 69 | 66 20 74 65 73 74 20 2d |03'.fi.i|f test -|
|00001b90| 66 20 27 52 45 41 44 4d | 45 2e 56 4d 53 27 20 2d |f 'READM|E.VMS' -|
|00001ba0| 61 20 22 24 7b 31 7d 22 | 20 21 3d 20 22 2d 63 22 |a "${1}"| != "-c"|
|00001bb0| 20 3b 20 74 68 65 6e 20 | 0a 20 20 65 63 68 6f 20 | ; then |.  echo |
|00001bc0| 73 68 61 72 3a 20 57 69 | 6c 6c 20 6e 6f 74 20 63 |shar: Wi|ll not c|
|00001bd0| 6c 6f 62 62 65 72 20 65 | 78 69 73 74 69 6e 67 20 |lobber e|xisting |
|00001be0| 66 69 6c 65 20 5c 22 27 | 52 45 41 44 4d 45 2e 56 |file \"'|README.V|
|00001bf0| 4d 53 27 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |MS'\".el|se.echo |
|00001c00| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00001c10| 20 5c 22 27 52 45 41 44 | 4d 45 2e 56 4d 53 27 5c | \"'READ|ME.VMS'\|
|00001c20| 22 20 5c 28 31 34 33 33 | 20 63 68 61 72 61 63 74 |" \(1433| charact|
|00001c30| 65 72 73 5c 29 0a 73 65 | 64 20 22 73 2f 5e 58 2f |ers\).se|d "s/^X/|
|00001c40| 2f 22 20 3e 27 52 45 41 | 44 4d 45 2e 56 4d 53 27 |/" >'REA|DME.VMS'|
|00001c50| 20 3c 3c 27 45 4e 44 5f | 4f 46 5f 46 49 4c 45 27 | <<'END_|OF_FILE'|
|00001c60| 0a 58 48 65 72 65 20 69 | 73 20 68 6f 77 20 74 6f |.XHere i|s how to|
|00001c70| 20 67 65 74 20 72 6f 67 | 75 65 20 72 75 6e 6e 69 | get rog|ue runni|
|00001c80| 6e 67 20 6f 6e 20 56 4d | 53 3a 0a 58 0a 58 31 29 |ng on VM|S:.X.X1)|
|00001c90| 20 75 6e 70 61 63 6b 20 | 74 68 65 73 65 20 73 6f | unpack |these so|
|00001ca0| 75 72 63 65 73 20 2d 2d | 20 69 66 20 79 6f 75 20 |urces --| if you |
|00001cb0| 68 61 76 65 20 74 68 65 | 6d 20 69 6e 20 76 6d 73 |have the|m in vms|
|00001cc0| 5f 73 68 61 72 65 20 66 | 6f 72 6d 61 74 2c 0a 58 |_share f|ormat,.X|
|00001cd0| 20 20 20 63 6f 6e 63 61 | 74 65 6e 61 74 65 20 74 |   conca|tenate t|
|00001ce0| 68 65 20 64 69 66 66 65 | 72 65 6e 74 20 66 69 6c |he diffe|rent fil|
|00001cf0| 65 73 20 69 6e 20 63 6f | 72 72 65 63 74 20 6f 72 |es in co|rrect or|
|00001d00| 64 65 72 20 69 6e 74 6f | 20 73 6f 6d 65 66 69 6c |der into| somefil|
|00001d10| 65 2e 63 6f 6d 2c 0a 58 | 20 20 20 74 68 65 6e 20 |e.com,.X|   then |
|00001d20| 74 79 70 65 20 40 73 6f | 6d 65 66 69 6c 65 3b 20 |type @so|mefile; |
|00001d30| 69 66 20 79 6f 75 20 68 | 61 76 65 20 74 68 65 6d |if you h|ave them|
|00001d40| 20 69 6e 20 63 73 68 61 | 72 20 66 6f 72 6d 61 74 | in csha|r format|
|00001d50| 2c 20 79 6f 75 20 77 69 | 6c 6c 0a 58 20 20 20 65 |, you wi|ll.X   e|
|00001d60| 69 74 68 65 72 20 68 61 | 76 65 20 74 6f 20 65 78 |ither ha|ve to ex|
|00001d70| 74 72 61 63 74 20 74 68 | 65 6d 20 6f 6e 20 61 20 |tract th|em on a |
|00001d80| 55 4e 49 58 20 73 79 73 | 74 65 6d 20 61 6e 64 20 |UNIX sys|tem and |
|00001d90| 74 68 65 6e 20 73 65 6e | 64 20 74 68 65 6d 0a 58 |then sen|d them.X|
|00001da0| 20 20 20 74 6f 20 79 6f | 75 72 20 56 4d 53 20 73 |   to yo|ur VMS s|
|00001db0| 79 73 74 65 6d 20 73 6f | 6d 65 68 6f 77 2c 20 6f |ystem so|mehow, o|
|00001dc0| 72 20 6d 61 6e 75 61 6c | 6c 79 20 75 6e 70 61 63 |r manual|ly unpac|
|00001dd0| 6b 20 74 68 65 20 66 69 | 6c 65 73 20 77 69 74 68 |k the fi|les with|
|00001de0| 0a 58 20 20 20 79 6f 75 | 72 20 66 61 76 6f 72 69 |.X   you|r favori|
|00001df0| 74 65 20 65 64 69 74 6f | 72 2e 20 20 28 55 67 68 |te edito|r.  (Ugh|
|00001e00| 21 29 0a 58 0a 58 32 29 | 20 6f 6e 63 65 20 79 6f |!).X.X2)| once yo|
|00001e10| 75 20 68 61 76 65 20 61 | 6c 6c 20 74 68 65 20 66 |u have a|ll the f|
|00001e20| 69 6c 65 73 20 69 6e 20 | 6f 6e 65 20 73 6f 75 72 |iles in |one sour|
|00001e30| 63 65 20 64 69 72 65 63 | 74 6f 72 79 2c 20 74 79 |ce direc|tory, ty|
|00001e40| 70 65 0a 58 0a 58 09 40 | 6d 61 6b 65 0a 58 0a 58 |pe.X.X.@|make.X.X|
|00001e50| 20 20 20 74 6f 20 63 6f | 6d 70 69 6c 65 20 61 6e |   to co|mpile an|
|00001e60| 64 20 6c 69 6e 6b 20 65 | 76 65 72 79 74 68 69 6e |d link e|verythin|
|00001e70| 67 20 74 6f 67 65 74 68 | 65 72 2e 20 20 41 6c 74 |g togeth|er.  Alt|
|00001e80| 65 72 6e 61 74 69 76 65 | 6c 79 20 79 6f 75 0a 58 |ernative|ly you.X|
|00001e90| 20 20 20 63 6f 75 6c 64 | 20 75 73 65 20 74 68 65 |   could| use the|
|00001ea0| 20 56 4d 53 20 6d 61 6b | 65 20 70 72 6f 67 72 61 | VMS mak|e progra|
|00001eb0| 6d 20 61 76 61 69 6c 61 | 62 6c 65 20 66 72 6f 6d |m availa|ble from|
|00001ec0| 20 65 69 74 68 65 72 20 | 6f 66 20 74 68 65 0a 58 | either |of the.X|
|00001ed0| 20 20 20 66 6f 6c 6c 6f | 77 69 6e 67 20 61 6e 6f |   follo|wing ano|
|00001ee0| 6e 79 6d 6f 75 73 20 46 | 54 50 20 73 69 74 65 73 |nymous F|TP sites|
|00001ef0| 3a 0a 58 0a 58 09 53 49 | 54 45 3a 09 70 6f 6d 6f |:.X.X.SI|TE:.pomo|
|00001f00| 6e 61 2e 63 6c 61 72 65 | 6d 6f 6e 74 2e 65 64 75 |na.clare|mont.edu|
|00001f10| 0a 58 09 49 50 2d 23 3a | 09 31 33 34 2e 31 37 33 |.X.IP-#:|.134.173|
|00001f20| 2e 34 2e 31 36 30 0a 58 | 09 44 49 52 3a 09 5b 2e |.4.160.X|.DIR:.[.|
|00001f30| 75 74 69 6c 69 74 69 65 | 73 2e 6d 61 6b 65 5d 0a |utilitie|s.make].|
|00001f40| 58 09 46 49 4c 45 53 3a | 09 2a 2e 2a 0a 58 0a 58 |X.FILES:|.*.*.X.X|
|00001f50| 09 53 49 54 45 3a 09 76 | 6d 73 64 2e 6f 61 63 2e |.SITE:.v|msd.oac.|
|00001f60| 75 63 69 2e 65 64 75 0a | 58 09 49 50 2d 23 3a 09 |uci.edu.|X.IP-#:.|
|00001f70| 31 32 38 2e 32 30 30 2e | 31 35 2e 32 0a 58 09 44 |128.200.|15.2.X.D|
|00001f80| 49 52 3a 09 2f 0a 58 09 | 46 49 4c 45 53 3a 09 6d |IR:./.X.|FILES:.m|
|00001f90| 61 6b 65 5f 73 72 63 2e | 2a 0a 58 0a 58 20 20 20 |ake_src.|*.X.X   |
|00001fa0| 5b 4d 61 6b 65 66 69 6c | 65 2e 76 6d 73 20 77 61 |[Makefil|e.vms wa|
|00001fb0| 73 20 67 65 6e 65 72 61 | 74 65 64 20 62 79 20 74 |s genera|ted by t|
|00001fc0| 68 69 73 20 6d 61 6b 65 | 20 70 72 6f 67 72 61 6d |his make| program|
|00001fd0| 5d 0a 58 0a 58 20 20 20 | 49 6e 73 74 61 6c 6c 20 |].X.X   |Install |
|00001fe0| 69 74 20 61 74 20 79 6f | 75 72 20 73 69 74 65 20 |it at yo|ur site |
|00001ff0| 61 6e 64 20 74 79 70 65 | 0a 58 0a 58 09 72 65 6e |and type|.X.X.ren|
|00002000| 61 6d 65 20 4d 61 6b 65 | 66 69 6c 65 2e 76 6d 73 |ame Make|file.vms|
|00002010| 20 20 4d 61 6b 65 66 69 | 6c 65 0a 58 09 6d 61 6b |  Makefi|le.X.mak|
|00002020| 65 0a 58 0a 58 20 20 20 | 45 69 74 68 65 72 20 77 |e.X.X   |Either w|
|00002030| 61 79 2c 20 79 6f 75 20 | 6d 61 79 20 6e 6f 77 20 |ay, you |may now |
|00002040| 70 6c 61 79 20 72 6f 67 | 75 65 20 62 79 20 74 79 |play rog|ue by ty|
|00002050| 70 69 6e 67 0a 58 0a 58 | 09 72 6f 67 75 65 0a 58 |ping.X.X|.rogue.X|
|00002060| 0a 58 20 20 20 62 75 74 | 20 69 66 20 79 6f 75 20 |.X   but| if you |
|00002070| 77 61 6e 74 20 74 6f 20 | 64 6f 20 69 74 20 65 76 |want to |do it ev|
|00002080| 65 72 79 20 73 65 73 73 | 69 6f 6e 2c 20 79 6f 75 |ery sess|ion, you|
|00002090| 20 73 68 6f 75 6c 64 20 | 70 75 74 20 74 68 65 0a | should |put the.|
|000020a0| 58 20 20 20 66 6f 6c 6c | 6f 77 69 6e 67 20 69 6e |X   foll|owing in|
|000020b0| 74 6f 20 79 6f 75 72 20 | 4c 4f 47 49 4e 2e 43 4f |to your |LOGIN.CO|
|000020c0| 4d 3a 0a 58 0a 58 09 24 | 20 72 6f 67 75 65 20 3a |M:.X.X.$| rogue :|
|000020d0| 3d 3d 20 24 44 49 53 4b | 3a 5b 44 49 52 45 43 54 |== $DISK|:[DIRECT|
|000020e0| 4f 52 59 5d 72 6f 67 75 | 65 2e 65 78 65 0a 58 0a |ORY]rogu|e.exe.X.|
|000020f0| 58 20 20 20 66 6f 72 20 | 65 78 61 6d 70 6c 65 20 |X   for |example |
|00002100| 49 20 6d 69 67 68 74 20 | 68 61 76 65 0a 58 0a 58 |I might |have.X.X|
|00002110| 09 24 20 72 6f 67 75 65 | 20 3a 3d 3d 20 24 44 49 |.$ rogue| :== $DI|
|00002120| 53 4b 24 55 53 45 52 32 | 36 3a 5b 4d 5a 52 41 4c |SK$USER2|6:[MZRAL|
|00002130| 59 2e 52 4f 47 55 45 5d | 0a 58 0a 58 20 20 20 49 |Y.ROGUE]|.X.X   I|
|00002140| 66 20 79 6f 75 20 68 61 | 76 65 20 61 6e 79 20 71 |f you ha|ve any q|
|00002150| 75 65 73 74 69 6f 6e 73 | 2c 20 74 72 79 20 74 79 |uestions|, try ty|
|00002160| 70 69 6e 67 0a 58 0a 58 | 09 68 65 6c 70 20 3a 3d |ping.X.X|.help :=|
|00002170| 0a 58 0a 58 2d 2d 0a 58 | 0a 58 0a 58 4d 69 6b 65 |.X.X--.X|.X.XMike|
|00002180| 20 5a 72 61 6c 79 09 09 | 09 09 60 60 54 69 6d 65 | Zraly..|..``Time|
|00002190| 73 20 61 72 65 20 62 61 | 64 2e 20 20 43 68 69 6c |s are ba|d.  Chil|
|000021a0| 64 72 65 6e 20 6e 6f 20 | 6c 6f 6e 67 65 72 0a 58 |dren no |longer.X|
|000021b0| 6d 7a 72 61 6c 79 40 6c | 64 62 76 61 78 2e 64 6e |mzraly@l|dbvax.dn|
|000021c0| 65 74 2e 6c 6f 74 75 73 | 2e 63 6f 6d 09 09 20 20 |et.lotus|.com..  |
|000021d0| 6f 62 65 79 20 74 68 65 | 69 72 20 70 61 72 65 6e |obey the|ir paren|
|000021e0| 74 73 2c 20 61 6e 64 20 | 65 76 65 72 79 6f 6e 65 |ts, and |everyone|
|000021f0| 20 69 73 0a 58 6f 72 20 | 63 2f 6f 20 73 65 61 6f | is.Xor |c/o seao|
|00002200| 74 74 65 72 40 61 74 68 | 65 6e 61 2e 6d 69 74 2e |tter@ath|ena.mit.|
|00002210| 65 64 75 09 09 20 20 77 | 72 69 74 69 6e 67 20 61 |edu..  w|riting a|
|00002220| 20 62 6f 6f 6b 2e 27 27 | 20 2d 2d 20 43 69 63 65 | book.''| -- Cice|
|00002230| 72 6f 0a 45 4e 44 5f 4f | 46 5f 46 49 4c 45 0a 69 |ro.END_O|F_FILE.i|
|00002240| 66 20 74 65 73 74 20 31 | 34 33 33 20 2d 6e 65 20 |f test 1|433 -ne |
|00002250| 60 77 63 20 2d 63 20 3c | 27 52 45 41 44 4d 45 2e |`wc -c <|'README.|
|00002260| 56 4d 53 27 60 3b 20 74 | 68 65 6e 0a 20 20 20 20 |VMS'`; t|hen.    |
|00002270| 65 63 68 6f 20 73 68 61 | 72 3a 20 5c 22 27 52 45 |echo sha|r: \"'RE|
|00002280| 41 44 4d 45 2e 56 4d 53 | 27 5c 22 20 75 6e 70 61 |ADME.VMS|'\" unpa|
|00002290| 63 6b 65 64 20 77 69 74 | 68 20 77 72 6f 6e 67 20 |cked wit|h wrong |
|000022a0| 73 69 7a 65 21 0a 66 69 | 0a 23 20 65 6e 64 20 6f |size!.fi|.# end o|
|000022b0| 66 20 27 52 45 41 44 4d | 45 2e 56 4d 53 27 0a 66 |f 'READM|E.VMS'.f|
|000022c0| 69 0a 69 66 20 74 65 73 | 74 20 2d 66 20 27 6d 61 |i.if tes|t -f 'ma|
|000022d0| 63 68 64 65 70 2e 63 27 | 20 2d 61 20 22 24 7b 31 |chdep.c'| -a "${1|
|000022e0| 7d 22 20 21 3d 20 22 2d | 63 22 20 3b 20 74 68 65 |}" != "-|c" ; the|
|000022f0| 6e 20 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |n .  ech|o shar: |
|00002300| 57 69 6c 6c 20 6e 6f 74 | 20 63 6c 6f 62 62 65 72 |Will not| clobber|
|00002310| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00002320| 22 27 6d 61 63 68 64 65 | 70 2e 63 27 5c 22 0a 65 |"'machde|p.c'\".e|
|00002330| 6c 73 65 0a 65 63 68 6f | 20 73 68 61 72 3a 20 45 |lse.echo| shar: E|
|00002340| 78 74 72 61 63 74 69 6e | 67 20 5c 22 27 6d 61 63 |xtractin|g \"'mac|
|00002350| 68 64 65 70 2e 63 27 5c | 22 20 5c 28 31 37 34 39 |hdep.c'\|" \(1749|
|00002360| 35 20 63 68 61 72 61 63 | 74 65 72 73 5c 29 0a 73 |5 charac|ters\).s|
|00002370| 65 64 20 22 73 2f 5e 58 | 2f 2f 22 20 3e 27 6d 61 |ed "s/^X|//" >'ma|
|00002380| 63 68 64 65 70 2e 63 27 | 20 3c 3c 27 45 4e 44 5f |chdep.c'| <<'END_|
|00002390| 4f 46 5f 46 49 4c 45 27 | 0a 58 2f 2a 0a 58 20 2a |OF_FILE'|.X/*.X *|
|000023a0| 09 54 68 69 73 20 63 6f | 64 65 20 77 61 73 20 61 |.This co|de was a|
|000023b0| 64 61 70 74 65 64 20 66 | 6f 72 20 56 4d 53 20 62 |dapted f|or VMS b|
|000023c0| 79 20 4d 69 6b 65 20 5a | 72 61 6c 79 0a 58 20 2a |y Mike Z|raly.X *|
|000023d0| 2f 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 6d 61 63 68 |/.X.X/*.|X * mach|
|000023e0| 64 65 70 2e 63 0a 58 20 | 2a 0a 58 20 2a 20 54 68 |dep.c.X |*.X * Th|
|000023f0| 69 73 20 73 6f 75 72 63 | 65 20 68 65 72 65 69 6e |is sourc|e herein|
|00002400| 20 6d 61 79 20 62 65 20 | 6d 6f 64 69 66 69 65 64 | may be |modified|
|00002410| 20 61 6e 64 2f 6f 72 20 | 64 69 73 74 72 69 62 75 | and/or |distribu|
|00002420| 74 65 64 20 62 79 20 61 | 6e 79 62 6f 64 79 20 77 |ted by a|nybody w|
|00002430| 68 6f 0a 58 20 2a 20 73 | 6f 20 64 65 73 69 72 65 |ho.X * s|o desire|
|00002440| 73 2c 20 77 69 74 68 20 | 74 68 65 20 66 6f 6c 6c |s, with |the foll|
|00002450| 6f 77 69 6e 67 20 72 65 | 73 74 72 69 63 74 69 6f |owing re|strictio|
|00002460| 6e 73 3a 0a 58 20 2a 20 | 20 20 20 31 2e 29 20 20 |ns:.X * |   1.)  |
|00002470| 4e 6f 20 70 6f 72 74 69 | 6f 6e 20 6f 66 20 74 68 |No porti|on of th|
|00002480| 69 73 20 6e 6f 74 69 63 | 65 20 73 68 61 6c 6c 20 |is notic|e shall |
|00002490| 62 65 20 72 65 6d 6f 76 | 65 64 2e 0a 58 20 2a 20 |be remov|ed..X * |
|000024a0| 20 20 20 32 2e 29 20 20 | 43 72 65 64 69 74 20 73 |   2.)  |Credit s|
|000024b0| 68 61 6c 6c 20 6e 6f 74 | 20 62 65 20 74 61 6b 65 |hall not| be take|
|000024c0| 6e 20 66 6f 72 20 74 68 | 65 20 63 72 65 61 74 69 |n for th|e creati|
|000024d0| 6f 6e 20 6f 66 20 74 68 | 69 73 20 73 6f 75 72 63 |on of th|is sourc|
|000024e0| 65 2e 0a 58 20 2a 20 20 | 20 20 33 2e 29 20 20 54 |e..X *  |  3.)  T|
|000024f0| 68 69 73 20 63 6f 64 65 | 20 69 73 20 6e 6f 74 20 |his code| is not |
|00002500| 74 6f 20 62 65 20 74 72 | 61 64 65 64 2c 20 73 6f |to be tr|aded, so|
|00002510| 6c 64 2c 20 6f 72 20 75 | 73 65 64 20 66 6f 72 20 |ld, or u|sed for |
|00002520| 70 65 72 73 6f 6e 61 6c | 0a 58 20 2a 20 20 20 20 |personal|.X *    |
|00002530| 20 20 20 20 20 67 61 69 | 6e 20 6f 72 20 70 72 6f |     gai|n or pro|
|00002540| 66 69 74 2e 0a 58 20 2a | 0a 58 20 2a 2f 0a 58 0a |fit..X *|.X */.X.|
|00002550| 58 2f 2a 20 49 6e 63 6c | 75 64 65 64 20 69 6e 20 |X/* Incl|uded in |
|00002560| 74 68 69 73 20 66 69 6c | 65 20 61 72 65 20 61 6c |this fil|e are al|
|00002570| 6c 20 73 79 73 74 65 6d | 20 64 65 70 65 6e 64 65 |l system| depende|
|00002580| 6e 74 20 72 6f 75 74 69 | 6e 65 73 2e 20 20 45 78 |nt routi|nes.  Ex|
|00002590| 74 65 6e 73 69 76 65 20 | 75 73 65 0a 58 20 2a 20 |tensive |use.X * |
|000025a0| 6f 66 20 23 69 66 64 65 | 66 27 73 20 77 69 6c 6c |of #ifde|f's will|
|000025b0| 20 62 65 20 75 73 65 64 | 20 74 6f 20 63 6f 6d 70 | be used| to comp|
|000025c0| 69 6c 65 20 74 68 65 20 | 61 70 70 72 6f 70 72 69 |ile the |appropri|
|000025d0| 61 74 65 20 63 6f 64 65 | 20 6f 6e 20 65 61 63 68 |ate code| on each|
|000025e0| 20 73 79 73 74 65 6d 3a | 0a 58 20 2a 0a 58 20 2a | system:|.X *.X *|
|000025f0| 20 20 20 20 55 4e 49 58 | 3a 20 20 20 20 20 20 20 |    UNIX|:       |
|00002600| 20 61 6c 6c 20 55 4e 49 | 58 20 73 79 73 74 65 6d | all UNI|X system|
|00002610| 73 2e 0a 58 20 2a 20 20 | 20 20 55 4e 49 58 5f 42 |s..X *  |  UNIX_B|
|00002620| 53 44 34 5f 32 3a 20 55 | 4e 49 58 20 42 53 44 20 |SD4_2: U|NIX BSD |
|00002630| 34 2e 32 20 61 6e 64 20 | 6c 61 74 65 72 2c 20 55 |4.2 and |later, U|
|00002640| 54 45 4b 2c 20 28 34 2e | 31 20 42 53 44 20 74 6f |TEK, (4.|1 BSD to|
|00002650| 6f 3f 29 0a 58 20 2a 20 | 20 20 20 55 4e 49 58 5f |o?).X * |   UNIX_|
|00002660| 53 59 53 56 3a 20 20 20 | 55 4e 49 58 20 73 79 73 |SYSV:   |UNIX sys|
|00002670| 74 65 6d 20 56 0a 58 20 | 2a 20 20 20 20 55 4e 49 |tem V.X |*    UNI|
|00002680| 58 5f 56 37 3a 20 20 20 | 20 20 55 4e 49 58 20 76 |X_V7:   |  UNIX v|
|00002690| 65 72 73 69 6f 6e 20 37 | 0a 58 20 2a 09 56 4d 53 |ersion 7|.X *.VMS|
|000026a0| 3a 09 61 6c 6c 20 56 4d | 53 20 73 79 73 74 65 6d |:.all VM|S system|
|000026b0| 73 2e 0a 58 20 2a 0a 58 | 20 2a 20 41 6c 6c 20 55 |s..X *.X| * All U|
|000026c0| 4e 49 58 20 63 6f 64 65 | 20 73 68 6f 75 6c 64 20 |NIX code| should |
|000026d0| 62 65 20 69 6e 63 6c 75 | 64 65 64 20 62 65 74 77 |be inclu|ded betw|
|000026e0| 65 65 6e 20 74 68 65 20 | 73 69 6e 67 6c 65 20 22 |een the |single "|
|000026f0| 23 69 66 64 65 66 20 55 | 4e 49 58 22 20 61 74 20 |#ifdef U|NIX" at |
|00002700| 74 68 65 0a 58 20 2a 20 | 74 6f 70 20 6f 66 20 74 |the.X * |top of t|
|00002710| 68 69 73 20 66 69 6c 65 | 2c 20 61 6e 64 20 74 68 |his file|, and th|
|00002720| 65 20 22 23 65 6e 64 69 | 66 20 55 4e 49 58 22 20 |e "#endi|f UNIX" |
|00002730| 61 74 20 74 68 65 20 62 | 6f 74 74 6f 6d 2e 0a 58 |at the b|ottom..X|
|00002740| 20 2a 20 0a 58 20 2a 20 | 54 6f 20 63 68 61 6e 67 | * .X * |To chang|
|00002750| 65 20 61 20 72 6f 75 74 | 69 6e 65 20 74 6f 20 69 |e a rout|ine to i|
|00002760| 6e 63 6c 75 64 65 20 61 | 20 6e 65 77 20 55 4e 49 |nclude a| new UNI|
|00002770| 58 20 73 79 73 74 65 6d | 2c 20 73 69 6d 70 6c 79 |X system|, simply|
|00002780| 20 23 69 66 64 65 66 20 | 74 68 65 0a 58 20 2a 20 | #ifdef |the.X * |
|00002790| 65 78 69 73 74 69 6e 67 | 20 72 6f 75 74 69 6e 65 |existing| routine|
|000027a0| 2c 20 61 73 20 69 6e 20 | 74 68 65 20 66 6f 6c 6c |, as in |the foll|
|000027b0| 6f 77 69 6e 67 20 65 78 | 61 6d 70 6c 65 3a 0a 58 |owing ex|ample:.X|
|000027c0| 20 2a 0a 58 20 2a 20 20 | 20 54 6f 20 6d 61 6b 65 | *.X *  | To make|
|000027d0| 20 61 20 72 6f 75 74 69 | 6e 65 20 63 6f 6d 70 61 | a routi|ne compa|
|000027e0| 74 69 62 6c 65 20 77 69 | 74 68 20 55 4e 49 58 20 |tible wi|th UNIX |
|000027f0| 73 79 73 74 65 6d 20 56 | 2c 20 63 68 61 6e 67 65 |system V|, change|
|00002800| 20 74 68 65 20 66 69 72 | 73 74 0a 58 20 2a 20 20 | the fir|st.X *  |
|00002810| 20 66 75 6e 63 74 69 6f | 6e 20 74 6f 20 74 68 65 | functio|n to the|
|00002820| 20 73 65 63 6f 6e 64 3a | 0a 58 20 2a 0a 58 20 2a | second:|.X *.X *|
|00002830| 20 20 20 20 20 20 6d 64 | 5f 66 75 6e 63 74 69 6f |      md|_functio|
|00002840| 6e 28 29 0a 58 20 2a 20 | 20 20 20 20 20 7b 0a 58 |n().X * |     {.X|
|00002850| 20 2a 20 20 20 20 20 20 | 20 20 20 63 6f 64 65 3b | *      |   code;|
|00002860| 0a 58 20 2a 20 20 20 20 | 20 20 7d 0a 58 20 2a 0a |.X *    |  }.X *.|
|00002870| 58 20 2a 20 20 20 20 20 | 20 6d 64 5f 66 75 6e 63 |X *     | md_func|
|00002880| 74 69 6f 6e 28 29 0a 58 | 20 2a 20 20 20 20 20 20 |tion().X| *      |
|00002890| 7b 0a 58 20 2a 20 20 20 | 20 20 20 23 69 66 64 65 |{.X *   |   #ifde|
|000028a0| 66 20 55 4e 49 58 5f 53 | 59 53 56 0a 58 20 2a 20 |f UNIX_S|YSV.X * |
|000028b0| 20 20 20 20 20 20 20 20 | 73 79 73 56 63 6f 64 65 |        |sysVcode|
|000028c0| 3b 0a 58 20 2a 20 20 20 | 20 20 20 23 65 6c 73 65 |;.X *   |   #else|
|000028d0| 0a 58 20 2a 20 20 20 20 | 20 20 20 20 20 63 6f 64 |.X *    |     cod|
|000028e0| 65 3b 0a 58 20 2a 20 20 | 20 20 20 20 23 65 6e 64 |e;.X *  |    #end|
|000028f0| 69 66 20 5b 2a 20 55 4e | 49 58 5f 53 59 53 56 20 |if [* UN|IX_SYSV |
|00002900| 2a 5d 0a 58 20 2a 20 20 | 20 20 20 20 7d 0a 58 20 |*].X *  |    }.X |
|00002910| 2a 0a 58 20 2a 20 41 70 | 70 72 6f 70 72 69 61 74 |*.X * Ap|propriat|
|00002920| 65 20 76 61 72 69 61 74 | 69 6f 6e 73 20 6f 66 20 |e variat|ions of |
|00002930| 74 68 69 73 20 61 72 65 | 20 6f 66 20 63 6f 75 72 |this are| of cour|
|00002940| 73 65 20 61 63 63 65 70 | 74 69 62 6c 65 2e 0a 58 |se accep|tible..X|
|00002950| 20 2a 20 54 68 65 20 75 | 73 65 20 6f 66 20 22 23 | * The u|se of "#|
|00002960| 65 6c 73 65 69 66 22 20 | 69 73 20 64 69 73 63 6f |elseif" |is disco|
|00002970| 75 72 61 67 65 64 20 62 | 65 63 61 75 73 65 20 6f |uraged b|ecause o|
|00002980| 66 20 6e 6f 6e 2d 70 6f | 72 74 61 62 69 6c 69 74 |f non-po|rtabilit|
|00002990| 79 2e 0a 58 20 2a 20 49 | 66 20 74 68 65 20 63 6f |y..X * I|f the co|
|000029a0| 72 72 65 63 74 20 23 64 | 65 66 69 6e 65 20 64 6f |rrect #d|efine do|
|000029b0| 65 73 6e 27 74 20 65 78 | 69 73 74 2c 20 22 55 4e |esn't ex|ist, "UN|
|000029c0| 49 58 5f 53 59 53 56 22 | 20 69 6e 20 74 68 69 73 |IX_SYSV"| in this|
|000029d0| 20 63 61 73 65 2c 20 6d | 61 6b 65 20 69 74 20 75 | case, m|ake it u|
|000029e0| 70 0a 58 20 2a 20 61 6e | 64 20 69 6e 73 65 72 74 |p.X * an|d insert|
|000029f0| 20 69 74 20 69 6e 20 74 | 68 65 20 6c 69 73 74 20 | it in t|he list |
|00002a00| 61 74 20 74 68 65 20 74 | 6f 70 20 6f 66 20 74 68 |at the t|op of th|
|00002a10| 65 20 66 69 6c 65 2e 20 | 20 41 6c 74 65 72 20 74 |e file. | Alter t|
|00002a20| 68 65 20 43 46 4c 41 47 | 53 0a 58 20 2a 20 69 6e |he CFLAG|S.X * in|
|00002a30| 20 79 6f 75 20 4d 61 6b | 65 66 69 6c 65 20 61 70 | you Mak|efile ap|
|00002a40| 70 72 6f 70 72 69 61 74 | 65 6c 79 2e 0a 58 20 2a |propriat|ely..X *|
|00002a50| 0a 58 20 2a 2f 0a 58 0a | 58 23 69 6e 63 6c 75 64 |.X */.X.|X#includ|
|00002a60| 65 20 3c 73 74 64 69 6f | 2e 68 3e 0a 58 0a 58 23 |e <stdio|.h>.X.X#|
|00002a70| 69 66 64 65 66 20 55 4e | 49 58 0a 58 23 69 6e 63 |ifdef UN|IX.X#inc|
|00002a80| 6c 75 64 65 20 3c 73 79 | 73 2f 74 79 70 65 73 2e |lude <sy|s/types.|
|00002a90| 68 3e 0a 58 23 69 6e 63 | 6c 75 64 65 20 3c 73 79 |h>.X#inc|lude <sy|
|00002aa0| 73 2f 66 69 6c 65 2e 68 | 3e 0a 58 23 69 6e 63 6c |s/file.h|>.X#incl|
|00002ab0| 75 64 65 20 3c 73 79 73 | 2f 73 74 61 74 2e 68 3e |ude <sys|/stat.h>|
|00002ac0| 0a 58 23 65 6e 64 69 66 | 20 2f 2a 20 55 4e 49 58 |.X#endif| /* UNIX|
|00002ad0| 20 2a 2f 0a 58 0a 58 23 | 69 66 64 65 66 20 56 4d | */.X.X#|ifdef VM|
|00002ae0| 53 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 74 79 70 |S.X#incl|ude <typ|
|00002af0| 65 73 2e 68 3e 0a 58 23 | 69 6e 63 6c 75 64 65 20 |es.h>.X#|include |
|00002b00| 3c 66 69 6c 65 2e 68 3e | 0a 58 23 69 6e 63 6c 75 |<file.h>|.X#inclu|
|00002b10| 64 65 20 3c 73 74 61 74 | 2e 68 3e 0a 58 23 65 6e |de <stat|.h>.X#en|
|00002b20| 64 69 66 20 2f 2a 20 56 | 4d 53 20 2a 2f 0a 58 0a |dif /* V|MS */.X.|
|00002b30| 58 23 69 66 64 65 66 20 | 55 4e 49 58 5f 53 59 53 |X#ifdef |UNIX_SYS|
|00002b40| 56 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 74 69 6d |V.X#incl|ude <tim|
|00002b50| 65 2e 68 3e 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |e.h>.X#i|nclude <|
|00002b60| 74 65 72 6d 69 6f 2e 68 | 3e 0a 58 23 65 6e 64 69 |termio.h|>.X#endi|
|00002b70| 66 20 2f 2a 20 55 4e 49 | 58 5f 53 59 53 56 20 2a |f /* UNI|X_SYSV *|
|00002b80| 2f 0a 58 0a 58 23 69 66 | 64 65 66 20 55 4e 49 58 |/.X.X#if|def UNIX|
|00002b90| 5f 42 53 44 34 5f 32 0a | 58 23 69 6e 63 6c 75 64 |_BSD4_2.|X#includ|
|00002ba0| 65 20 3c 73 79 73 2f 74 | 69 6d 65 2e 68 3e 0a 58 |e <sys/t|ime.h>.X|
|00002bb0| 23 69 6e 63 6c 75 64 65 | 20 3c 73 67 74 74 79 2e |#include| <sgtty.|
|00002bc0| 68 3e 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 55 4e |h>.X#end|if /* UN|
|00002bd0| 49 58 5f 42 53 44 34 5f | 32 20 2a 2f 0a 58 0a 58 |IX_BSD4_|2 */.X.X|
|00002be0| 23 69 66 64 65 66 20 56 | 4d 53 0a 58 23 69 6e 63 |#ifdef V|MS.X#inc|
|00002bf0| 6c 75 64 65 20 3c 74 69 | 6d 65 2e 68 3e 0a 58 23 |lude <ti|me.h>.X#|
|00002c00| 65 6e 64 69 66 20 2f 2a | 20 56 4d 53 20 2a 2f 0a |endif /*| VMS */.|
|00002c10| 58 0a 58 23 69 6e 63 6c | 75 64 65 20 3c 73 69 67 |X.X#incl|ude <sig|
|00002c20| 6e 61 6c 2e 68 3e 0a 58 | 23 69 6e 63 6c 75 64 65 |nal.h>.X|#include|
|00002c30| 20 22 72 6f 67 75 65 2e | 68 22 0a 58 0a 58 2f 2a | "rogue.|h".X.X/*|
|00002c40| 20 6d 64 5f 73 6c 75 72 | 70 3a 0a 58 20 2a 0a 58 | md_slur|p:.X *.X|
|00002c50| 20 2a 20 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 | * This |routine |
|00002c60| 74 68 72 6f 77 73 20 61 | 77 61 79 20 61 6c 6c 20 |throws a|way all |
|00002c70| 6b 65 79 62 6f 61 72 64 | 20 69 6e 70 75 74 20 74 |keyboard| input t|
|00002c80| 68 61 74 20 68 61 73 20 | 6e 6f 74 0a 58 20 2a 20 |hat has |not.X * |
|00002c90| 79 65 74 20 62 65 65 6e | 20 72 65 61 64 2e 20 20 |yet been| read.  |
|00002ca0| 49 74 20 69 73 20 75 73 | 65 64 20 74 6f 20 67 65 |It is us|ed to ge|
|00002cb0| 74 20 72 69 64 20 6f 66 | 20 69 6e 70 75 74 20 74 |t rid of| input t|
|00002cc0| 68 61 74 20 74 68 65 20 | 75 73 65 72 20 6d 61 79 |hat the |user may|
|00002cd0| 20 68 61 76 65 0a 58 20 | 2a 20 74 79 70 65 64 2d | have.X |* typed-|
|00002ce0| 61 68 65 61 64 2e 0a 58 | 20 2a 0a 58 20 2a 20 54 |ahead..X| *.X * T|
|00002cf0| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 69 73 20 |his func|tion is |
|00002d00| 6e 6f 74 20 6e 65 63 65 | 73 73 61 72 79 2c 20 73 |not nece|ssary, s|
|00002d10| 6f 20 69 74 20 6d 61 79 | 20 62 65 20 73 74 75 62 |o it may| be stub|
|00002d20| 62 65 64 2e 20 20 54 68 | 65 20 6d 69 67 68 74 20 |bed.  Th|e might |
|00002d30| 63 61 75 73 65 0a 58 20 | 2a 20 6d 65 73 73 61 67 |cause.X |* messag|
|00002d40| 65 2d 6c 69 6e 65 20 6f | 75 74 70 75 74 20 74 6f |e-line o|utput to|
|00002d50| 20 66 6c 61 73 68 20 62 | 79 20 62 65 63 61 75 73 | flash b|y becaus|
|00002d60| 65 20 74 68 65 20 67 61 | 6d 65 20 68 61 73 20 63 |e the ga|me has c|
|00002d70| 6f 6e 74 69 6e 75 65 64 | 20 74 6f 20 72 65 61 64 |ontinued| to read|
|00002d80| 0a 58 20 2a 20 69 6e 70 | 75 74 20 77 69 74 68 6f |.X * inp|ut witho|
|00002d90| 75 74 20 77 61 69 74 69 | 6e 67 20 66 6f 72 20 74 |ut waiti|ng for t|
|00002da0| 68 65 20 75 73 65 72 20 | 74 6f 20 72 65 61 64 20 |he user |to read |
|00002db0| 74 68 65 20 6d 65 73 73 | 61 67 65 2e 20 20 4e 6f |the mess|age.  No|
|00002dc0| 74 20 73 75 63 68 20 61 | 0a 58 20 2a 20 62 69 67 |t such a|.X * big|
|00002dd0| 20 64 65 61 6c 2e 0a 58 | 20 2a 2f 0a 58 0a 58 6d | deal..X| */.X.Xm|
|00002de0| 64 5f 73 6c 75 72 70 28 | 29 0a 58 7b 0a 58 23 69 |d_slurp(|).X{.X#i|
|00002df0| 66 64 65 66 20 55 4e 49 | 58 0a 58 09 6c 6f 6e 67 |fdef UNI|X.X.long|
|00002e00| 20 6c 6e 20 3d 20 30 3b | 0a 58 0a 58 23 69 66 64 | ln = 0;|.X.X#ifd|
|00002e10| 65 66 20 55 4e 49 58 5f | 42 53 44 34 5f 32 0a 58 |ef UNIX_|BSD4_2.X|
|00002e20| 09 69 6f 63 74 6c 28 30 | 2c 20 46 49 4f 4e 52 45 |.ioctl(0|, FIONRE|
|00002e30| 41 44 2c 20 26 6c 6e 29 | 3b 0a 58 23 65 6e 64 69 |AD, &ln)|;.X#endi|
|00002e40| 66 20 2f 2a 20 55 4e 49 | 58 5f 42 53 44 34 5f 32 |f /* UNI|X_BSD4_2|
|00002e50| 20 2a 2f 0a 58 23 69 66 | 64 65 66 20 55 4e 49 58 | */.X#if|def UNIX|
|00002e60| 5f 53 59 53 56 0a 58 09 | 69 6f 63 74 6c 28 30 2c |_SYSV.X.|ioctl(0,|
|00002e70| 20 54 43 46 4c 53 48 2c | 20 26 6c 6e 29 3b 0a 58 | TCFLSH,| &ln);.X|
|00002e80| 09 6c 6e 20 3d 20 30 3b | 0a 58 23 65 6e 64 69 66 |.ln = 0;|.X#endif|
|00002e90| 20 2f 2a 20 55 4e 49 58 | 5f 53 59 53 56 20 2a 2f | /* UNIX|_SYSV */|
|00002ea0| 0a 58 0a 58 09 6c 6e 20 | 2b 3d 20 73 74 64 69 6e |.X.X.ln |+= stdin|
|00002eb0| 2d 3e 5f 63 6e 74 3b 0a | 58 0a 58 09 66 6f 72 20 |->_cnt;.|X.X.for |
|00002ec0| 28 3b 20 6c 6e 20 3e 20 | 30 3b 20 6c 6e 2d 2d 29 |(; ln > |0; ln--)|
|00002ed0| 20 7b 0a 58 09 09 28 76 | 6f 69 64 29 20 67 65 74 | {.X..(v|oid) get|
|00002ee0| 63 68 61 72 28 29 3b 0a | 58 09 7d 0a 58 23 65 6e |char();.|X.}.X#en|
|00002ef0| 64 69 66 20 2f 2a 20 55 | 4e 49 58 20 2a 2f 0a 58 |dif /* U|NIX */.X|
|00002f00| 23 69 66 64 65 66 20 56 | 4d 53 0a 58 09 74 74 5f |#ifdef V|MS.X.tt_|
|00002f10| 66 6c 75 73 68 28 29 3b | 0a 58 23 65 6e 64 69 66 |flush();|.X#endif|
|00002f20| 20 2f 2a 20 56 4d 53 20 | 2a 2f 0a 58 7d 0a 58 0a | /* VMS |*/.X}.X.|
|00002f30| 58 2f 2a 20 6d 64 5f 63 | 6f 6e 74 72 6f 6c 5f 6b |X/* md_c|ontrol_k|
|00002f40| 65 79 62 6f 61 72 64 28 | 29 3a 0a 58 20 2a 0a 58 |eyboard(|):.X *.X|
|00002f50| 20 2a 20 54 68 69 73 20 | 72 6f 75 74 69 6e 65 20 | * This |routine |
|00002f60| 69 73 20 6d 75 63 68 20 | 6c 69 6b 65 20 6d 64 5f |is much |like md_|
|00002f70| 63 62 72 65 61 6b 5f 6e | 6f 5f 65 63 68 6f 5f 6e |cbreak_n|o_echo_n|
|00002f80| 6f 6e 6c 28 29 20 62 65 | 6c 6f 77 2e 20 20 49 74 |onl() be|low.  It|
|00002f90| 20 73 65 74 73 20 75 70 | 20 74 68 65 0a 58 20 2a | sets up| the.X *|
|00002fa0| 20 6b 65 79 62 6f 61 72 | 64 20 66 6f 72 20 61 70 | keyboar|d for ap|
|00002fb0| 70 72 6f 70 72 69 61 74 | 65 20 69 6e 70 75 74 2e |propriat|e input.|
|00002fc0| 20 20 53 70 65 63 69 66 | 69 63 61 6c 6c 79 2c 20 |  Specif|ically, |
|00002fd0| 69 74 20 70 72 65 76 65 | 6e 74 73 20 74 68 65 20 |it preve|nts the |
|00002fe0| 74 74 79 20 64 72 69 76 | 65 72 0a 58 20 2a 20 66 |tty driv|er.X * f|
|00002ff0| 72 6f 6d 20 73 74 65 61 | 6c 69 6e 67 20 63 68 61 |rom stea|ling cha|
|00003000| 72 61 63 74 65 72 73 2e | 20 20 46 6f 72 20 65 78 |racters.|  For ex|
|00003010| 61 6d 70 6c 65 2c 20 5e | 59 20 69 73 20 6e 65 65 |ample, ^|Y is nee|
|00003020| 64 65 64 20 61 73 20 61 | 20 63 6f 6d 6d 61 6e 64 |ded as a| command|
|00003030| 0a 58 20 2a 20 63 68 61 | 72 61 63 74 65 72 2c 20 |.X * cha|racter, |
|00003040| 62 75 74 20 74 68 65 20 | 74 74 79 20 64 72 69 76 |but the |tty driv|
|00003050| 65 72 20 69 6e 74 65 72 | 63 65 70 74 73 20 69 74 |er inter|cepts it|
|00003060| 20 66 6f 72 20 61 6e 6f | 74 68 65 72 20 70 75 72 | for ano|ther pur|
|00003070| 70 6f 73 65 2e 20 20 41 | 6e 79 0a 58 20 2a 20 73 |pose.  A|ny.X * s|
|00003080| 75 63 68 20 62 65 68 61 | 76 69 6f 72 20 73 68 6f |uch beha|vior sho|
|00003090| 75 6c 64 20 62 65 20 73 | 74 6f 70 70 65 64 2e 20 |uld be s|topped. |
|000030a0| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 63 6f | This ro|utine co|
|000030b0| 75 6c 64 20 62 65 20 61 | 76 6f 69 64 65 64 20 69 |uld be a|voided i|
|000030c0| 66 0a 58 20 2a 20 77 65 | 20 75 73 65 64 20 52 41 |f.X * we| used RA|
|000030d0| 57 20 6d 6f 64 65 20 69 | 6e 73 74 65 61 64 20 6f |W mode i|nstead o|
|000030e0| 66 20 43 42 52 45 41 4b | 2e 20 20 42 75 74 20 52 |f CBREAK|.  But R|
|000030f0| 41 57 20 6d 6f 64 65 20 | 64 6f 65 73 20 6e 6f 74 |AW mode |does not|
|00003100| 20 61 6c 6c 6f 77 20 74 | 68 65 0a 58 20 2a 20 67 | allow t|he.X * g|
|00003110| 65 6e 65 72 61 74 69 6f | 6e 20 6f 66 20 6b 65 79 |eneratio|n of key|
|00003120| 62 6f 61 72 64 20 73 69 | 67 6e 61 6c 73 2c 20 77 |board si|gnals, w|
|00003130| 68 69 63 68 20 74 68 65 | 20 70 72 6f 67 72 61 6d |hich the| program|
|00003140| 20 75 73 65 73 2e 0a 58 | 20 2a 0a 58 20 2a 20 54 | uses..X| *.X * T|
|00003150| 68 65 20 70 61 72 61 6d | 65 74 65 72 20 27 6d 6f |he param|eter 'mo|
|00003160| 64 65 27 20 77 68 65 6e | 20 74 72 75 65 2c 20 69 |de' when| true, i|
|00003170| 6e 64 69 63 61 74 65 73 | 20 74 68 61 74 20 74 68 |ndicates| that th|
|00003180| 65 20 6b 65 79 62 6f 61 | 72 64 20 73 68 6f 75 6c |e keyboa|rd shoul|
|00003190| 64 0a 58 20 2a 20 62 65 | 20 73 65 74 20 75 70 20 |d.X * be| set up |
|000031a0| 74 6f 20 70 6c 61 79 20 | 72 6f 67 75 65 2e 20 20 |to play |rogue.  |
|000031b0| 57 68 65 6e 20 66 61 6c | 73 65 2c 20 69 74 20 73 |When fal|se, it s|
|000031c0| 68 6f 75 6c 64 20 62 65 | 20 72 65 73 74 6f 72 65 |hould be| restore|
|000031d0| 64 20 69 66 0a 58 20 2a | 20 6e 65 63 65 73 73 61 |d if.X *| necessa|
|000031e0| 72 79 2e 0a 58 20 2a 0a | 58 20 2a 20 54 68 69 73 |ry..X *.|X * This|
|000031f0| 20 72 6f 75 74 69 6e 65 | 20 69 73 20 6e 6f 74 20 | routine| is not |
|00003200| 73 74 72 69 63 74 6c 79 | 20 6e 65 63 65 73 73 61 |strictly| necessa|
|00003210| 72 79 20 61 6e 64 20 6d | 61 79 20 62 65 20 73 74 |ry and m|ay be st|
|00003220| 75 62 62 65 64 2e 20 20 | 54 68 69 73 20 6d 61 79 |ubbed.  |This may|
|00003230| 0a 58 20 2a 20 63 61 75 | 73 65 20 63 65 72 74 61 |.X * cau|se certa|
|00003240| 69 6e 20 63 6f 6d 6d 61 | 6e 64 20 63 68 61 72 61 |in comma|nd chara|
|00003250| 63 74 65 72 73 20 74 6f | 20 62 65 20 75 6e 61 76 |cters to| be unav|
|00003260| 61 69 6c 61 62 6c 65 2e | 0a 58 20 2a 2f 0a 58 0a |ailable.|.X */.X.|
|00003270| 58 6d 64 5f 63 6f 6e 74 | 72 6f 6c 5f 6b 65 79 62 |Xmd_cont|rol_keyb|
|00003280| 6f 72 64 28 6d 6f 64 65 | 29 0a 58 62 6f 6f 6c 65 |ord(mode|).Xboole|
|00003290| 61 6e 20 6d 6f 64 65 3b | 0a 58 7b 0a 58 23 69 66 |an mode;|.X{.X#if|
|000032a0| 64 65 66 20 55 4e 49 58 | 0a 58 09 73 74 61 74 69 |def UNIX|.X.stati|
|000032b0| 63 20 62 6f 6f 6c 65 61 | 6e 20 63 61 6c 6c 65 64 |c boolea|n called|
|000032c0| 5f 62 65 66 6f 72 65 20 | 3d 20 30 3b 0a 58 23 69 |_before |= 0;.X#i|
|000032d0| 66 64 65 66 20 55 4e 49 | 58 5f 42 53 44 34 5f 32 |fdef UNI|X_BSD4_2|
|000032e0| 0a 58 09 73 74 61 74 69 | 63 20 73 74 72 75 63 74 |.X.stati|c struct|
|000032f0| 20 6c 74 63 68 61 72 73 | 20 6c 74 63 5f 6f 72 69 | ltchars| ltc_ori|
|00003300| 67 3b 0a 58 09 73 74 61 | 74 69 63 20 73 74 72 75 |g;.X.sta|tic stru|
|00003310| 63 74 20 74 63 68 61 72 | 73 20 74 63 5f 6f 72 69 |ct tchar|s tc_ori|
|00003320| 67 3b 0a 58 09 73 74 72 | 75 63 74 20 6c 74 63 68 |g;.X.str|uct ltch|
|00003330| 61 72 73 20 6c 74 63 5f | 74 65 6d 70 3b 0a 58 09 |ars ltc_|temp;.X.|
|00003340| 73 74 72 75 63 74 20 74 | 63 68 61 72 73 20 74 63 |struct t|chars tc|
|00003350| 5f 74 65 6d 70 3b 0a 58 | 23 65 6e 64 69 66 20 2f |_temp;.X|#endif /|
|00003360| 2a 20 55 4e 49 58 5f 42 | 53 44 34 5f 32 20 2a 2f |* UNIX_B|SD4_2 */|
|00003370| 0a 58 23 69 66 64 65 66 | 20 55 4e 49 58 5f 53 59 |.X#ifdef| UNIX_SY|
|00003380| 53 56 0a 58 09 73 74 61 | 74 69 63 20 73 74 72 75 |SV.X.sta|tic stru|
|00003390| 63 74 20 74 65 72 6d 69 | 6f 20 5f 6f 6c 64 74 74 |ct termi|o _oldtt|
|000033a0| 79 3b 0a 58 09 73 74 72 | 75 63 74 20 74 65 72 6d |y;.X.str|uct term|
|000033b0| 69 6f 20 5f 74 74 79 3b | 0a 58 23 65 6e 64 69 66 |io _tty;|.X#endif|
|000033c0| 20 2f 2a 20 55 4e 49 58 | 5f 53 59 53 56 20 2a 2f | /* UNIX|_SYSV */|
|000033d0| 0a 58 0a 58 09 69 66 20 | 28 21 63 61 6c 6c 65 64 |.X.X.if |(!called|
|000033e0| 5f 62 65 66 6f 72 65 29 | 20 7b 0a 58 09 09 63 61 |_before)| {.X..ca|
|000033f0| 6c 6c 65 64 5f 62 65 66 | 6f 72 65 20 3d 20 31 3b |lled_bef|ore = 1;|
|00003400| 0a 58 23 69 66 64 65 66 | 20 55 4e 49 58 5f 42 53 |.X#ifdef| UNIX_BS|
|00003410| 44 34 5f 32 0a 58 09 09 | 69 6f 63 74 6c 28 30 2c |D4_2.X..|ioctl(0,|
|00003420| 20 54 49 4f 43 47 45 54 | 43 2c 20 26 74 63 5f 6f | TIOCGET|C, &tc_o|
|00003430| 72 69 67 29 3b 0a 58 09 | 09 69 6f 63 74 6c 28 30 |rig);.X.|.ioctl(0|
|00003440| 2c 20 54 49 4f 43 47 4c | 54 43 2c 20 26 6c 74 63 |, TIOCGL|TC, &ltc|
|00003450| 5f 6f 72 69 67 29 3b 0a | 58 23 65 6e 64 69 66 20 |_orig);.|X#endif |
|00003460| 2f 2a 20 55 4e 49 58 5f | 42 53 44 34 5f 32 20 2a |/* UNIX_|BSD4_2 *|
|00003470| 2f 0a 58 23 69 66 64 65 | 66 20 55 4e 49 58 5f 53 |/.X#ifde|f UNIX_S|
|00003480| 59 53 56 0a 58 09 09 69 | 6f 63 74 6c 28 30 2c 20 |YSV.X..i|octl(0, |
|00003490| 54 43 47 45 54 41 2c 20 | 26 5f 6f 6c 64 74 74 79 |TCGETA, |&_oldtty|
|000034a0| 29 3b 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 55 4e |);.X#end|if /* UN|
|000034b0| 49 58 5f 53 59 53 56 20 | 2a 2f 0a 58 09 7d 0a 58 |IX_SYSV |*/.X.}.X|
|000034c0| 23 69 66 64 65 66 20 55 | 4e 49 58 5f 42 53 44 34 |#ifdef U|NIX_BSD4|
|000034d0| 5f 32 0a 58 09 6c 74 63 | 5f 74 65 6d 70 20 3d 20 |_2.X.ltc|_temp = |
|000034e0| 6c 74 63 5f 6f 72 69 67 | 3b 0a 58 09 74 63 5f 74 |ltc_orig|;.X.tc_t|
|000034f0| 65 6d 70 20 3d 20 74 63 | 5f 6f 72 69 67 3b 0a 58 |emp = tc|_orig;.X|
|00003500| 23 65 6e 64 69 66 20 2f | 2a 20 55 4e 49 58 5f 42 |#endif /|* UNIX_B|
|00003510| 53 44 34 5f 32 20 2a 2f | 0a 58 23 69 66 64 65 66 |SD4_2 */|.X#ifdef|
|00003520| 20 55 4e 49 58 5f 53 59 | 53 56 0a 58 09 5f 74 74 | UNIX_SY|SV.X._tt|
|00003530| 79 20 3d 20 5f 6f 6c 64 | 74 74 79 3b 0a 58 23 65 |y = _old|tty;.X#e|
|00003540| 6e 64 69 66 20 2f 2a 20 | 55 4e 49 58 5f 53 59 53 |ndif /* |UNIX_SYS|
|00003550| 56 20 2a 2f 0a 58 0a 58 | 09 69 66 20 28 21 6d 6f |V */.X.X|.if (!mo|
|00003560| 64 65 29 20 7b 0a 58 23 | 69 66 64 65 66 20 55 4e |de) {.X#|ifdef UN|
|00003570| 49 58 5f 42 53 44 34 5f | 32 0a 58 09 09 6c 74 63 |IX_BSD4_|2.X..ltc|
|00003580| 5f 74 65 6d 70 2e 74 5f | 73 75 73 70 63 20 3d 20 |_temp.t_|suspc = |
|00003590| 6c 74 63 5f 74 65 6d 70 | 2e 74 5f 64 73 75 73 70 |ltc_temp|.t_dsusp|
|000035a0| 63 20 3d 20 2d 31 3b 0a | 58 09 09 6c 74 63 5f 74 |c = -1;.|X..ltc_t|
|000035b0| 65 6d 70 2e 74 5f 72 70 | 72 6e 74 63 20 3d 20 6c |emp.t_rp|rntc = l|
|000035c0| 74 63 5f 74 65 6d 70 2e | 74 5f 66 6c 75 73 68 63 |tc_temp.|t_flushc|
|000035d0| 20 3d 20 2d 31 3b 0a 58 | 09 09 6c 74 63 5f 74 65 | = -1;.X|..ltc_te|
|000035e0| 6d 70 2e 74 5f 77 65 72 | 61 73 63 20 3d 20 6c 74 |mp.t_wer|asc = lt|
|000035f0| 63 5f 74 65 6d 70 2e 74 | 5f 6c 6e 65 78 74 63 20 |c_temp.t|_lnextc |
|00003600| 3d 20 2d 31 3b 0a 58 09 | 09 74 63 5f 74 65 6d 70 |= -1;.X.|.tc_temp|
|00003610| 2e 74 5f 73 74 61 72 74 | 63 20 3d 20 74 63 5f 74 |.t_start|c = tc_t|
|00003620| 65 6d 70 2e 74 5f 73 74 | 6f 70 63 20 3d 20 2d 31 |emp.t_st|opc = -1|
|00003630| 3b 0a 58 23 65 6e 64 69 | 66 20 2f 2a 20 55 4e 49 |;.X#endi|f /* UNI|
|00003640| 58 5f 42 53 44 34 5f 32 | 20 2a 2f 0a 58 23 69 66 |X_BSD4_2| */.X#if|
|00003650| 64 65 66 20 55 4e 49 58 | 5f 53 59 53 56 0a 58 09 |def UNIX|_SYSV.X.|
|00003660| 09 5f 74 74 79 2e 63 5f | 63 63 5b 56 53 57 54 43 |._tty.c_|cc[VSWTC|
|00003670| 48 5d 20 3d 20 43 4e 53 | 57 54 43 48 3b 0a 58 23 |H] = CNS|WTCH;.X#|
|00003680| 65 6e 64 69 66 20 2f 2a | 20 55 4e 49 58 5f 53 59 |endif /*| UNIX_SY|
|00003690| 53 56 20 2a 2f 0a 58 09 | 7d 0a 58 23 69 66 64 65 |SV */.X.|}.X#ifde|
|000036a0| 66 20 55 4e 49 58 5f 42 | 53 44 34 5f 32 0a 58 09 |f UNIX_B|SD4_2.X.|
|000036b0| 69 6f 63 74 6c 28 30 2c | 20 54 49 4f 43 53 45 54 |ioctl(0,| TIOCSET|
|000036c0| 43 2c 20 26 74 63 5f 74 | 65 6d 70 29 3b 0a 58 09 |C, &tc_t|emp);.X.|
|000036d0| 69 6f 63 74 6c 28 30 2c | 20 54 49 4f 43 53 4c 54 |ioctl(0,| TIOCSLT|
|000036e0| 43 2c 20 26 6c 74 63 5f | 74 65 6d 70 29 3b 0a 58 |C, &ltc_|temp);.X|
|000036f0| 23 65 6e 64 69 66 20 2f | 2a 20 55 4e 49 58 5f 42 |#endif /|* UNIX_B|
|00003700| 53 44 34 5f 32 20 2a 2f | 0a 58 23 69 66 64 65 66 |SD4_2 */|.X#ifdef|
|00003710| 20 55 4e 49 58 5f 53 59 | 53 56 0a 58 09 69 6f 63 | UNIX_SY|SV.X.ioc|
|00003720| 74 6c 28 30 2c 20 54 43 | 53 45 54 41 2c 20 26 5f |tl(0, TC|SETA, &_|
|00003730| 74 74 79 29 3b 0a 58 23 | 65 6e 64 69 66 20 2f 2a |tty);.X#|endif /*|
|00003740| 20 55 4e 49 58 5f 53 59 | 53 56 20 2a 2f 0a 58 23 | UNIX_SY|SV */.X#|
|00003750| 65 6e 64 69 66 20 2f 2a | 20 55 4e 49 58 20 2a 2f |endif /*| UNIX */|
|00003760| 0a 58 23 69 66 64 65 66 | 20 56 4d 53 0a 58 09 69 |.X#ifdef| VMS.X.i|
|00003770| 66 20 28 6d 6f 64 65 29 | 0a 58 09 09 74 74 5f 69 |f (mode)|.X..tt_i|
|00003780| 6e 69 74 28 29 3b 0a 58 | 09 65 6c 73 65 0a 58 09 |nit();.X|.else.X.|
|00003790| 09 74 74 5f 66 69 6e 69 | 28 29 3b 0a 58 23 65 6e |.tt_fini|();.X#en|
|000037a0| 64 69 66 20 2f 2a 20 56 | 4d 53 20 2a 2f 0a 58 7d |dif /* V|MS */.X}|
|000037b0| 0a 58 0a 58 2f 2a 20 6d | 64 5f 68 65 65 64 5f 73 |.X.X/* m|d_heed_s|
|000037c0| 69 67 6e 61 6c 73 28 29 | 3a 0a 58 20 2a 0a 58 20 |ignals()|:.X *.X |
|000037d0| 2a 20 54 68 69 73 20 72 | 6f 75 74 69 6e 65 20 74 |* This r|outine t|
|000037e0| 65 6c 6c 73 20 74 68 65 | 20 70 72 6f 67 72 61 6d |ells the| program|
|000037f0| 20 74 6f 20 63 61 6c 6c | 20 70 61 72 74 69 63 75 | to call| particu|
|00003800| 6c 61 72 20 72 6f 75 74 | 69 6e 65 73 20 77 68 65 |lar rout|ines whe|
|00003810| 6e 0a 58 20 2a 20 63 65 | 72 74 61 69 6e 20 69 6e |n.X * ce|rtain in|
|00003820| 74 65 72 72 75 70 74 73 | 2f 65 76 65 6e 74 73 20 |terrupts|/events |
|00003830| 6f 63 63 75 72 3a 0a 58 | 20 2a 0a 58 20 2a 20 20 |occur:.X| *.X *  |
|00003840| 20 20 20 20 53 49 47 49 | 4e 54 3a 20 63 61 6c 6c |    SIGI|NT: call|
|00003850| 20 6f 6e 69 6e 74 72 28 | 29 20 74 6f 20 69 6e 74 | onintr(|) to int|
|00003860| 65 72 72 75 70 74 20 66 | 69 67 68 74 20 77 69 74 |errupt f|ight wit|
|00003870| 68 20 6d 6f 6e 73 74 65 | 72 20 6f 72 20 6c 6f 6e |h monste|r or lon|
|00003880| 67 20 72 65 73 74 2e 0a | 58 20 2a 20 20 20 20 20 |g rest..|X *     |
|00003890| 20 53 49 47 51 55 49 54 | 3a 20 63 61 6c 6c 20 62 | SIGQUIT|: call b|
|000038a0| 79 65 62 79 65 28 29 20 | 74 6f 20 63 68 65 63 6b |yebye() |to check|
|000038b0| 20 66 6f 72 20 67 61 6d | 65 20 74 65 72 6d 69 6e | for gam|e termin|
|000038c0| 61 74 69 6f 6e 2e 0a 58 | 20 2a 20 20 20 20 20 20 |ation..X| *      |
|000038d0| 53 49 47 48 55 50 3a 20 | 63 61 6c 6c 20 65 72 72 |SIGHUP: |call err|
|000038e0| 6f 72 5f 73 61 76 65 28 | 29 20 74 6f 20 73 61 76 |or_save(|) to sav|
|000038f0| 65 20 67 61 6d 65 20 77 | 68 65 6e 20 74 65 72 6d |e game w|hen term|
|00003900| 69 6e 61 6c 20 68 61 6e | 67 73 20 75 70 2e 0a 58 |inal han|gs up..X|
|00003910| 20 2a 0a 58 20 2a 09 09 | 4f 6e 20 56 4d 53 2c 20 | *.X *..|On VMS, |
|00003920| 53 49 47 49 4e 54 20 61 | 6e 64 20 53 49 47 51 55 |SIGINT a|nd SIGQU|
|00003930| 49 54 20 63 6f 72 72 65 | 73 70 6f 6e 64 20 74 6f |IT corre|spond to|
|00003940| 20 5e 43 20 61 6e 64 20 | 5e 59 2e 0a 58 20 2a 0a | ^C and |^Y..X *.|
|00003950| 58 20 2a 20 54 68 69 73 | 20 72 6f 75 74 69 6e 65 |X * This| routine|
|00003960| 20 69 73 20 6e 6f 74 20 | 73 74 72 69 63 74 6c 79 | is not |strictly|
|00003970| 20 6e 65 63 65 73 73 61 | 72 79 20 61 6e 64 20 63 | necessa|ry and c|
|00003980| 61 6e 20 62 65 20 73 74 | 75 62 62 65 64 2e 20 20 |an be st|ubbed.  |
|00003990| 54 68 69 73 20 77 69 6c | 6c 0a 58 20 2a 20 6d 65 |This wil|l.X * me|
|000039a0| 61 6e 20 74 68 61 74 20 | 74 68 65 20 67 61 6d 65 |an that |the game|
|000039b0| 20 63 61 6e 6e 6f 74 20 | 62 65 20 69 6e 74 65 72 | cannot |be inter|
|000039c0| 72 75 70 74 65 64 20 70 | 72 6f 70 65 72 6c 79 20 |rupted p|roperly |
|000039d0| 77 69 74 68 20 6b 65 79 | 62 6f 61 72 64 0a 58 20 |with key|board.X |
|000039e0| 2a 20 69 6e 70 75 74 2c | 20 74 68 69 73 20 69 73 |* input,| this is|
|000039f0| 20 6e 6f 74 20 75 73 75 | 61 6c 6c 79 20 63 72 69 | not usu|ally cri|
|00003a00| 74 69 63 61 6c 2e 0a 58 | 20 2a 2f 0a 58 0a 58 6d |tical..X| */.X.Xm|
|00003a10| 64 5f 68 65 65 64 5f 73 | 69 67 6e 61 6c 73 28 29 |d_heed_s|ignals()|
|00003a20| 0a 58 7b 0a 58 09 73 69 | 67 6e 61 6c 28 53 49 47 |.X{.X.si|gnal(SIG|
|00003a30| 49 4e 54 2c 20 6f 6e 69 | 6e 74 72 29 3b 0a 58 09 |INT, oni|ntr);.X.|
|00003a40| 73 69 67 6e 61 6c 28 53 | 49 47 51 55 49 54 2c 20 |signal(S|IGQUIT, |
|00003a50| 62 79 65 62 79 65 29 3b | 0a 58 09 73 69 67 6e 61 |byebye);|.X.signa|
|00003a60| 6c 28 53 49 47 48 55 50 | 2c 20 65 72 72 6f 72 5f |l(SIGHUP|, error_|
|00003a70| 73 61 76 65 29 3b 0a 58 | 7d 0a 58 0a 58 2f 2a 20 |save);.X|}.X.X/* |
|00003a80| 6d 64 5f 69 67 6e 6f 72 | 65 5f 73 69 67 6e 61 6c |md_ignor|e_signal|
|00003a90| 73 28 29 3a 0a 58 20 2a | 0a 58 20 2a 20 54 68 69 |s():.X *|.X * Thi|
|00003aa0| 73 20 72 6f 75 74 69 6e | 65 20 74 65 6c 6c 73 20 |s routin|e tells |
|00003ab0| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 74 6f 20 63 |the prog|ram to c|
|00003ac0| 6f 6d 70 6c 65 74 65 6c | 79 20 69 67 6e 6f 72 65 |ompletel|y ignore|
|00003ad0| 20 74 68 65 20 65 76 65 | 6e 74 73 20 6d 65 6e 74 | the eve|nts ment|
|00003ae0| 69 6f 6e 65 64 0a 58 20 | 2a 20 69 6e 20 6d 64 5f |ioned.X |* in md_|
|00003af0| 68 65 65 64 5f 73 69 67 | 6e 61 6c 73 28 29 20 61 |heed_sig|nals() a|
|00003b00| 62 6f 76 65 2e 20 20 54 | 68 65 20 65 76 65 6e 74 |bove.  T|he event|
|00003b10| 20 68 61 6e 64 6c 65 72 | 73 20 77 69 6c 6c 20 6c | handler|s will l|
|00003b20| 61 74 65 72 20 62 65 20 | 74 75 72 6e 65 64 20 6f |ater be |turned o|
|00003b30| 6e 0a 58 20 2a 20 62 79 | 20 61 20 66 75 74 75 72 |n.X * by| a futur|
|00003b40| 65 20 63 61 6c 6c 20 74 | 6f 20 6d 64 5f 68 65 65 |e call t|o md_hee|
|00003b50| 64 5f 73 69 67 6e 61 6c | 73 28 29 2c 20 73 6f 20 |d_signal|s(), so |
|00003b60| 6d 64 5f 68 65 65 64 5f | 73 69 67 6e 61 6c 73 28 |md_heed_|signals(|
|00003b70| 29 20 61 6e 64 0a 58 20 | 2a 20 6d 64 5f 69 67 6e |) and.X |* md_ign|
|00003b80| 6f 72 65 5f 73 69 67 6e | 61 6c 73 28 29 20 6e 65 |ore_sign|als() ne|
|00003b90| 65 64 20 74 6f 20 77 6f | 72 6b 20 74 6f 67 65 74 |ed to wo|rk toget|
|00003ba0| 68 65 72 2e 0a 58 20 2a | 0a 58 20 2a 20 54 68 69 |her..X *|.X * Thi|
|00003bb0| 73 20 66 75 6e 63 74 69 | 6f 6e 20 73 68 6f 75 6c |s functi|on shoul|
|00003bc0| 64 20 62 65 20 69 6d 70 | 6c 65 6d 65 6e 74 65 64 |d be imp|lemented|
|00003bd0| 20 6f 72 20 74 68 65 20 | 75 73 65 72 20 72 69 73 | or the |user ris|
|00003be0| 6b 73 20 69 6e 74 65 72 | 72 75 70 74 69 6e 67 0a |ks inter|rupting.|
|00003bf0| 58 20 2a 20 63 72 69 74 | 69 63 61 6c 20 73 65 63 |X * crit|ical sec|
|00003c00| 74 69 6f 6e 73 20 6f 66 | 20 63 6f 64 65 2c 20 77 |tions of| code, w|
|00003c10| 68 69 63 68 20 63 6f 75 | 6c 64 20 63 61 75 73 65 |hich cou|ld cause|
|00003c20| 20 73 63 6f 72 65 20 66 | 69 6c 65 2c 20 6f 72 20 | score f|ile, or |
|00003c30| 73 61 76 65 64 2d 67 61 | 6d 65 0a 58 20 2a 20 66 |saved-ga|me.X * f|
|00003c40| 69 6c 65 2c 20 63 6f 72 | 72 75 70 74 69 6f 6e 2e |ile, cor|ruption.|
|00003c50| 0a 58 20 2a 2f 0a 58 0a | 58 6d 64 5f 69 67 6e 6f |.X */.X.|Xmd_igno|
|00003c60| 72 65 5f 73 69 67 6e 61 | 6c 73 28 29 0a 58 7b 0a |re_signa|ls().X{.|
|00003c70| 58 09 73 69 67 6e 61 6c | 28 53 49 47 51 55 49 54 |X.signal|(SIGQUIT|
|00003c80| 2c 20 53 49 47 5f 49 47 | 4e 29 3b 0a 58 09 73 69 |, SIG_IG|N);.X.si|
|00003c90| 67 6e 61 6c 28 53 49 47 | 49 4e 54 2c 20 53 49 47 |gnal(SIG|INT, SIG|
|00003ca0| 5f 49 47 4e 29 3b 0a 58 | 09 73 69 67 6e 61 6c 28 |_IGN);.X|.signal(|
|00003cb0| 53 49 47 48 55 50 2c 20 | 53 49 47 5f 49 47 4e 29 |SIGHUP, |SIG_IGN)|
|00003cc0| 3b 0a 58 7d 0a 58 0a 58 | 2f 2a 20 6d 64 5f 67 65 |;.X}.X.X|/* md_ge|
|00003cd0| 74 5f 66 69 6c 65 5f 69 | 64 28 29 3a 0a 58 20 2a |t_file_i|d():.X *|
|00003ce0| 0a 58 20 2a 20 54 68 69 | 73 20 66 75 6e 63 74 69 |.X * Thi|s functi|
|00003cf0| 6f 6e 20 72 65 74 75 72 | 6e 73 20 61 6e 20 69 6e |on retur|ns an in|
|00003d00| 74 65 67 65 72 20 74 68 | 61 74 20 75 6e 69 71 75 |teger th|at uniqu|
|00003d10| 65 6c 79 20 69 64 65 6e | 74 69 66 69 65 73 20 74 |ely iden|tifies t|
|00003d20| 68 65 20 73 70 65 63 69 | 66 69 65 64 0a 58 20 2a |he speci|fied.X *|
|00003d30| 20 66 69 6c 65 2e 20 20 | 49 74 20 6e 65 65 64 20 | file.  |It need |
|00003d40| 6e 6f 74 20 63 68 65 63 | 6b 20 66 6f 72 20 74 68 |not chec|k for th|
|00003d50| 65 20 66 69 6c 65 27 73 | 20 65 78 69 73 74 65 6e |e file's| existen|
|00003d60| 63 65 2e 20 20 49 6e 20 | 55 4e 49 58 2c 20 74 68 |ce.  In |UNIX, th|
|00003d70| 65 20 69 6e 6f 64 65 0a | 58 20 2a 20 6e 75 6d 62 |e inode.|X * numb|
|00003d80| 65 72 20 69 73 20 75 73 | 65 64 2e 0a 58 20 2a 0a |er is us|ed..X *.|
|00003d90| 58 20 2a 20 54 68 69 73 | 20 66 75 6e 63 74 69 6f |X * This| functio|
|00003da0| 6e 20 6e 65 65 64 20 6e | 6f 74 20 62 65 20 69 6d |n need n|ot be im|
|00003db0| 70 6c 65 6d 65 6e 74 65 | 64 2e 20 20 54 6f 20 73 |plemente|d.  To s|
|00003dc0| 74 75 62 20 74 68 65 20 | 72 6f 75 74 69 6e 65 2c |tub the |routine,|
|00003dd0| 20 6a 75 73 74 20 6d 61 | 6b 65 0a 58 20 2a 20 69 | just ma|ke.X * i|
|00003de0| 74 20 72 65 74 75 72 6e | 20 30 2e 20 20 54 68 69 |t return| 0.  Thi|
|00003df0| 73 20 77 69 6c 6c 20 6d | 61 6b 65 20 74 68 65 20 |s will m|ake the |
|00003e00| 67 61 6d 65 20 6c 65 73 | 73 20 61 62 6c 65 20 74 |game les|s able t|
|00003e10| 6f 20 70 72 65 76 65 6e | 74 20 75 73 65 72 73 20 |o preven|t users |
|00003e20| 66 72 6f 6d 0a 58 20 2a | 20 6d 6f 64 69 66 79 69 |from.X *| modifyi|
|00003e30| 6e 67 20 73 61 76 65 64 | 2d 67 61 6d 65 20 66 69 |ng saved|-game fi|
|00003e40| 6c 65 73 2e 20 20 54 68 | 69 73 20 69 73 20 70 72 |les.  Th|is is pr|
|00003e50| 6f 62 61 62 6c 79 20 6e | 6f 20 62 69 67 20 64 65 |obably n|o big de|
|00003e60| 61 6c 2e 0a 58 20 2a 2f | 0a 58 0a 58 69 6e 74 0a |al..X */|.X.Xint.|
|00003e70| 58 6d 64 5f 67 65 74 5f | 66 69 6c 65 5f 69 64 28 |Xmd_get_|file_id(|
|00003e80| 66 6e 61 6d 65 29 0a 58 | 63 68 61 72 20 2a 66 6e |fname).X|char *fn|
|00003e90| 61 6d 65 3b 0a 58 7b 0a | 58 23 69 66 64 65 66 20 |ame;.X{.|X#ifdef |
|00003ea0| 55 4e 49 58 0a 58 09 73 | 74 72 75 63 74 20 73 74 |UNIX.X.s|truct st|
|00003eb0| 61 74 20 73 62 75 66 3b | 0a 58 0a 58 09 69 66 20 |at sbuf;|.X.X.if |
|00003ec0| 28 73 74 61 74 28 66 6e | 61 6d 65 2c 20 26 73 62 |(stat(fn|ame, &sb|
|00003ed0| 75 66 29 29 20 7b 0a 58 | 09 09 72 65 74 75 72 6e |uf)) {.X|..return|
|00003ee0| 28 2d 31 29 3b 0a 58 09 | 7d 0a 58 09 72 65 74 75 |(-1);.X.|}.X.retu|
|00003ef0| 72 6e 28 28 69 6e 74 29 | 20 73 62 75 66 2e 73 74 |rn((int)| sbuf.st|
|00003f00| 5f 69 6e 6f 29 3b 0a 58 | 23 65 6e 64 69 66 20 2f |_ino);.X|#endif /|
|00003f10| 2a 20 55 4e 49 58 20 2a | 2f 0a 58 23 69 66 64 65 |* UNIX *|/.X#ifde|
|00003f20| 66 20 56 4d 53 0a 58 09 | 72 65 74 75 72 6e 28 28 |f VMS.X.|return((|
|00003f30| 69 6e 74 29 20 30 29 3b | 0a 58 23 65 6e 64 69 66 |int) 0);|.X#endif|
|00003f40| 20 2f 2a 20 56 4d 53 20 | 2a 2f 0a 58 7d 0a 58 0a | /* VMS |*/.X}.X.|
|00003f50| 58 2f 2a 20 6d 64 5f 6c | 69 6e 6b 5f 63 6f 75 6e |X/* md_l|ink_coun|
|00003f60| 74 28 29 3a 0a 58 20 2a | 0a 58 20 2a 20 54 68 69 |t():.X *|.X * Thi|
|00003f70| 73 20 72 6f 75 74 69 6e | 65 20 72 65 74 75 72 6e |s routin|e return|
|00003f80| 73 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |s the nu|mber of |
|00003f90| 68 61 72 64 20 6c 69 6e | 6b 73 20 74 6f 20 74 68 |hard lin|ks to th|
|00003fa0| 65 20 73 70 65 63 69 66 | 69 65 64 20 66 69 6c 65 |e specif|ied file|
|00003fb0| 2e 0a 58 20 2a 0a 58 20 | 2a 20 54 68 69 73 20 66 |..X *.X |* This f|
|00003fc0| 75 6e 63 74 69 6f 6e 20 | 69 73 20 6e 6f 74 20 73 |unction |is not s|
|00003fd0| 74 72 69 63 74 6c 79 20 | 6e 65 63 65 73 73 61 72 |trictly |necessar|
|00003fe0| 79 2e 20 20 4f 6e 20 73 | 79 73 74 65 6d 73 20 77 |y.  On s|ystems w|
|00003ff0| 69 74 68 6f 75 74 20 68 | 61 72 64 20 6c 69 6e 6b |ithout h|ard link|
|00004000| 73 0a 58 20 2a 20 74 68 | 69 73 20 72 6f 75 74 69 |s.X * th|is routi|
|00004010| 6e 65 20 63 61 6e 20 62 | 65 20 73 74 75 62 62 65 |ne can b|e stubbe|
|00004020| 64 20 62 79 20 6a 75 73 | 74 20 72 65 74 75 72 6e |d by jus|t return|
|00004030| 69 6e 67 20 31 2e 0a 58 | 20 2a 2f 0a 58 0a 58 69 |ing 1..X| */.X.Xi|
|00004040| 6e 74 0a 58 6d 64 5f 6c | 69 6e 6b 5f 63 6f 75 6e |nt.Xmd_l|ink_coun|
|00004050| 74 28 66 6e 61 6d 65 29 | 0a 58 63 68 61 72 20 2a |t(fname)|.Xchar *|
|00004060| 66 6e 61 6d 65 3b 0a 58 | 7b 0a 58 23 69 66 64 65 |fname;.X|{.X#ifde|
|00004070| 66 20 55 4e 49 58 0a 58 | 09 73 74 72 75 63 74 20 |f UNIX.X|.struct |
|00004080| 73 74 61 74 20 73 62 75 | 66 3b 0a 58 0a 58 09 73 |stat sbu|f;.X.X.s|
|00004090| 74 61 74 28 66 6e 61 6d | 65 2c 20 26 73 62 75 66 |tat(fnam|e, &sbuf|
|000040a0| 29 3b 0a 58 09 72 65 74 | 75 72 6e 28 28 69 6e 74 |);.X.ret|urn((int|
|000040b0| 29 20 73 62 75 66 2e 73 | 74 5f 6e 6c 69 6e 6b 29 |) sbuf.s|t_nlink)|
|000040c0| 3b 0a 58 23 65 6e 64 69 | 66 20 2f 2a 20 55 4e 49 |;.X#endi|f /* UNI|
|000040d0| 58 20 2a 2f 0a 58 23 69 | 66 64 65 66 20 56 4d 53 |X */.X#i|fdef VMS|
|000040e0| 0a 58 09 72 65 74 75 72 | 6e 28 28 69 6e 74 29 20 |.X.retur|n((int) |
|000040f0| 31 29 3b 0a 58 23 65 6e | 64 69 66 20 2f 2a 20 56 |1);.X#en|dif /* V|
|00004100| 4d 53 20 2a 2f 0a 58 7d | 0a 58 0a 58 2f 2a 20 6d |MS */.X}|.X.X/* m|
|00004110| 64 5f 67 63 74 28 29 3a | 20 28 47 65 74 20 43 75 |d_gct():| (Get Cu|
|00004120| 72 72 65 6e 74 20 54 69 | 6d 65 29 0a 58 20 2a 0a |rrent Ti|me).X *.|
|00004130| 58 20 2a 20 54 68 69 73 | 20 66 75 6e 63 74 69 6f |X * This| functio|
|00004140| 6e 20 72 65 74 75 72 6e | 73 20 74 68 65 20 63 75 |n return|s the cu|
|00004150| 72 72 65 6e 74 20 79 65 | 61 72 2c 20 6d 6f 6e 74 |rrent ye|ar, mont|
|00004160| 68 28 31 2d 31 32 29 2c | 20 64 61 79 28 31 2d 33 |h(1-12),| day(1-3|
|00004170| 31 29 2c 20 68 6f 75 72 | 28 30 2d 32 33 29 2c 0a |1), hour|(0-23),.|
|00004180| 58 20 2a 20 6d 69 6e 75 | 74 65 28 30 2d 35 39 29 |X * minu|te(0-59)|
|00004190| 2c 20 61 6e 64 20 73 65 | 63 6f 6e 64 28 30 2d 35 |, and se|cond(0-5|
|000041a0| 39 29 2e 20 20 54 68 69 | 73 20 69 73 20 75 73 65 |9).  Thi|s is use|
|000041b0| 64 20 66 6f 72 20 69 64 | 65 6e 74 69 66 79 69 6e |d for id|entifyin|
|000041c0| 67 20 74 68 65 20 74 69 | 6d 65 0a 58 20 2a 20 61 |g the ti|me.X * a|
|000041d0| 74 20 77 68 69 63 68 20 | 61 20 67 61 6d 65 20 69 |t which |a game i|
|000041e0| 73 20 73 61 76 65 64 2e | 0a 58 20 2a 0a 58 20 2a |s saved.|.X *.X *|
|000041f0| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 69 | This fu|nction i|
|00004200| 73 20 6e 6f 74 20 73 74 | 72 69 63 74 6c 79 20 6e |s not st|rictly n|
|00004210| 65 63 65 73 73 61 72 79 | 2e 20 20 49 74 20 63 61 |ecessary|.  It ca|
|00004220| 6e 20 62 65 20 73 74 75 | 62 62 65 64 20 62 79 20 |n be stu|bbed by |
|00004230| 72 65 74 75 72 69 6e 67 | 0a 58 20 2a 20 7a 65 72 |returing|.X * zer|
|00004240| 6f 73 20 69 6e 73 74 65 | 61 64 20 6f 66 20 74 68 |os inste|ad of th|
|00004250| 65 20 63 6f 72 72 65 63 | 74 20 79 65 61 72 2c 20 |e correc|t year, |
|00004260| 6d 6f 6e 74 68 2c 20 65 | 74 63 2e 20 20 49 66 20 |month, e|tc.  If |
|00004270| 79 6f 75 72 20 6f 70 65 | 72 61 74 69 6e 67 0a 58 |your ope|rating.X|
|00004280| 20 2a 20 73 79 73 74 65 | 6d 20 64 6f 65 73 6e 27 | * syste|m doesn'|
|00004290| 74 20 70 72 6f 76 69 64 | 65 20 61 6c 6c 20 6f 66 |t provid|e all of|
|000042a0| 20 74 68 65 20 74 69 6d | 65 20 75 6e 69 74 73 20 | the tim|e units |
|000042b0| 72 65 71 75 65 73 74 65 | 64 20 68 65 72 65 2c 20 |requeste|d here, |
|000042c0| 74 68 65 6e 20 79 6f 75 | 0a 58 20 2a 20 63 61 6e |then you|.X * can|
|000042d0| 20 70 72 6f 76 69 64 65 | 20 6f 6e 6c 79 20 74 68 | provide| only th|
|000042e0| 6f 73 65 20 74 68 61 74 | 20 69 74 20 64 6f 65 73 |ose that| it does|
|000042f0| 2c 20 61 6e 64 20 72 65 | 74 75 72 6e 20 7a 65 72 |, and re|turn zer|
|00004300| 6f 73 20 66 6f 72 20 74 | 68 65 20 6f 74 68 65 72 |os for t|he other|
|00004310| 73 2e 0a 58 20 2a 20 49 | 66 20 79 6f 75 20 63 61 |s..X * I|f you ca|
|00004320| 6e 6e 6f 74 20 70 72 6f | 76 69 64 65 20 67 6f 6f |nnot pro|vide goo|
|00004330| 64 20 74 69 6d 65 20 76 | 61 6c 75 65 73 2c 20 74 |d time v|alues, t|
|00004340| 68 65 6e 20 75 73 65 72 | 73 20 6d 61 79 20 62 65 |hen user|s may be|
|00004350| 20 61 62 6c 65 20 74 6f | 20 63 6f 70 79 0a 58 20 | able to| copy.X |
|00004360| 2a 20 73 61 76 65 64 2d | 67 61 6d 65 20 66 69 6c |* saved-|game fil|
|00004370| 65 73 20 61 6e 64 20 70 | 6c 61 79 20 74 68 65 6d |es and p|lay them|
|00004380| 2e 20 20 0a 58 20 2a 2f | 0a 58 0a 58 6d 64 5f 67 |.  .X */|.X.Xmd_g|
|00004390| 63 74 28 72 74 5f 62 75 | 66 29 0a 58 73 74 72 75 |ct(rt_bu|f).Xstru|
|000043a0| 63 74 20 72 6f 67 75 65 | 5f 74 69 6d 65 20 2a 72 |ct rogue|_time *r|
|000043b0| 74 5f 62 75 66 3b 0a 58 | 7b 0a 58 09 73 74 72 75 |t_buf;.X|{.X.stru|
|000043c0| 63 74 20 74 6d 20 2a 74 | 2c 20 2a 6c 6f 63 61 6c |ct tm *t|, *local|
|000043d0| 74 69 6d 65 28 29 3b 0a | 58 09 74 69 6d 65 5f 74 |time();.|X.time_t|
|000043e0| 20 73 65 63 6f 6e 64 73 | 20 3d 20 30 3b 0a 58 0a | seconds| = 0;.X.|
|000043f0| 58 09 74 69 6d 65 28 26 | 73 65 63 6f 6e 64 73 29 |X.time(&|seconds)|
|00004400| 3b 0a 58 09 74 20 3d 20 | 6c 6f 63 61 6c 74 69 6d |;.X.t = |localtim|
|00004410| 65 28 26 73 65 63 6f 6e | 64 73 29 3b 0a 58 0a 58 |e(&secon|ds);.X.X|
|00004420| 09 72 74 5f 62 75 66 2d | 3e 79 65 61 72 20 3d 20 |.rt_buf-|>year = |
|00004430| 74 2d 3e 74 6d 5f 79 65 | 61 72 3b 0a 58 09 72 74 |t->tm_ye|ar;.X.rt|
|00004440| 5f 62 75 66 2d 3e 6d 6f | 6e 74 68 20 3d 20 74 2d |_buf->mo|nth = t-|
|00004450| 3e 74 6d 5f 6d 6f 6e 20 | 2b 20 31 3b 0a 58 09 72 |>tm_mon |+ 1;.X.r|
|00004460| 74 5f 62 75 66 2d 3e 64 | 61 79 20 3d 20 74 2d 3e |t_buf->d|ay = t->|
|00004470| 74 6d 5f 6d 64 61 79 3b | 0a 58 09 72 74 5f 62 75 |tm_mday;|.X.rt_bu|
|00004480| 66 2d 3e 68 6f 75 72 20 | 3d 20 74 2d 3e 74 6d 5f |f->hour |= t->tm_|
|00004490| 68 6f 75 72 3b 0a 58 09 | 72 74 5f 62 75 66 2d 3e |hour;.X.|rt_buf->|
|000044a0| 6d 69 6e 75 74 65 20 3d | 20 74 2d 3e 74 6d 5f 6d |minute =| t->tm_m|
|000044b0| 69 6e 3b 0a 58 09 72 74 | 5f 62 75 66 2d 3e 73 65 |in;.X.rt|_buf->se|
|000044c0| 63 6f 6e 64 20 3d 20 74 | 2d 3e 74 6d 5f 73 65 63 |cond = t|->tm_sec|
|000044d0| 3b 0a 58 7d 0a 58 0a 58 | 2f 2a 20 6d 64 5f 67 66 |;.X}.X.X|/* md_gf|
|000044e0| 6d 74 3a 20 28 47 65 74 | 20 46 69 6c 65 20 4d 6f |mt: (Get| File Mo|
|000044f0| 64 69 66 69 63 61 74 69 | 6f 6e 20 54 69 6d 65 29 |dificati|on Time)|
|00004500| 0a 58 20 2a 0a 58 20 2a | 20 54 68 69 73 20 72 6f |.X *.X *| This ro|
|00004510| 75 74 69 6e 65 20 72 65 | 74 75 72 6e 73 20 61 20 |utine re|turns a |
|00004520| 66 69 6c 65 27 73 20 64 | 61 74 65 20 6f 66 20 6c |file's d|ate of l|
|00004530| 61 73 74 20 6d 6f 64 69 | 66 69 63 61 74 69 6f 6e |ast modi|fication|
|00004540| 20 69 6e 20 74 68 65 20 | 73 61 6d 65 20 66 6f 72 | in the |same for|
|00004550| 6d 61 74 0a 58 20 2a 20 | 61 73 20 6d 64 5f 67 63 |mat.X * |as md_gc|
|00004560| 74 28 29 20 61 62 6f 76 | 65 2e 0a 58 20 2a 0a 58 |t() abov|e..X *.X|
|00004570| 20 2a 20 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e | * This |function|
|00004580| 20 69 73 20 6e 6f 74 20 | 73 74 72 69 63 74 6c 79 | is not |strictly|
|00004590| 20 6e 65 63 65 73 73 61 | 72 79 2e 20 20 49 74 20 | necessa|ry.  It |
|000045a0| 69 73 20 75 73 65 64 20 | 74 6f 20 73 65 65 20 69 |is used |to see i|
|000045b0| 66 20 73 61 76 65 64 2d | 67 61 6d 65 0a 58 20 2a |f saved-|game.X *|
|000045c0| 20 66 69 6c 65 73 20 68 | 61 76 65 20 62 65 65 6e | files h|ave been|
|000045d0| 20 6d 6f 64 69 66 69 65 | 64 20 73 69 6e 63 65 20 | modifie|d since |
|000045e0| 74 68 65 79 20 77 65 72 | 65 20 73 61 76 65 64 2e |they wer|e saved.|
|000045f0| 20 20 49 66 20 79 6f 75 | 20 68 61 76 65 20 73 74 |  If you| have st|
|00004600| 75 62 62 65 64 20 74 68 | 65 0a 58 20 2a 20 72 6f |ubbed th|e.X * ro|
|00004610| 75 74 69 6e 65 20 6d 64 | 5f 67 63 74 28 29 20 61 |utine md|_gct() a|
|00004620| 62 6f 76 65 20 62 79 20 | 72 65 74 75 72 6e 69 6e |bove by |returnin|
|00004630| 67 20 63 6f 6e 73 74 61 | 6e 74 20 76 61 6c 75 65 |g consta|nt value|
|00004640| 73 2c 20 74 68 65 6e 20 | 79 6f 75 20 6d 61 79 20 |s, then |you may |
|00004650| 64 6f 0a 58 20 2a 20 65 | 78 61 63 74 6c 79 20 74 |do.X * e|xactly t|
|00004660| 68 65 20 73 61 6d 65 20 | 68 65 72 65 2e 0a 58 20 |he same |here..X |
|00004670| 2a 20 4f 72 20 69 66 20 | 6d 64 5f 67 63 74 28 29 |* Or if |md_gct()|
|00004680| 20 69 73 20 69 6d 70 6c | 65 6d 65 6e 74 65 64 20 | is impl|emented |
|00004690| 63 6f 72 72 65 63 74 6c | 79 2c 20 62 75 74 20 79 |correctl|y, but y|
|000046a0| 6f 75 72 20 73 79 73 74 | 65 6d 20 64 6f 65 73 20 |our syst|em does |
|000046b0| 6e 6f 74 20 70 72 6f 76 | 69 64 65 0a 58 20 2a 20 |not prov|ide.X * |
|000046c0| 66 69 6c 65 20 6d 6f 64 | 69 66 69 63 61 74 69 6f |file mod|ificatio|
|000046d0| 6e 20 64 61 74 65 73 2c | 20 79 6f 75 20 6d 61 79 |n dates,| you may|
|000046e0| 20 72 65 74 75 72 6e 20 | 73 6f 6d 65 20 64 61 74 | return |some dat|
|000046f0| 65 20 66 61 72 20 69 6e | 20 74 68 65 20 70 61 73 |e far in| the pas|
|00004700| 74 20 73 6f 0a 58 20 2a | 20 74 68 61 74 20 74 68 |t so.X *| that th|
|00004710| 65 20 70 72 6f 67 72 61 | 6d 20 77 69 6c 6c 20 6e |e progra|m will n|
|00004720| 65 76 65 72 20 6b 6e 6f | 77 20 74 68 61 74 20 61 |ever kno|w that a|
|00004730| 20 73 61 76 65 64 2d 67 | 61 6d 65 20 66 69 6c 65 | saved-g|ame file|
|00004740| 20 62 65 69 6e 67 20 6d | 6f 64 69 66 69 65 64 2e | being m|odified.|
|00004750| 20 20 0a 58 20 2a 20 59 | 6f 75 20 6d 61 79 20 61 |  .X * Y|ou may a|
|00004760| 6c 73 6f 20 64 6f 20 74 | 68 69 73 20 69 66 20 79 |lso do t|his if y|
|00004770| 6f 75 20 77 69 73 68 20 | 74 6f 20 62 65 20 61 62 |ou wish |to be ab|
|00004780| 6c 65 20 74 6f 20 72 65 | 73 74 6f 72 65 20 67 61 |le to re|store ga|
|00004790| 6d 65 73 20 66 72 6f 6d | 0a 58 20 2a 20 73 61 76 |mes from|.X * sav|
|000047a0| 65 64 2d 67 61 6d 65 73 | 20 74 68 61 74 20 68 61 |ed-games| that ha|
|000047b0| 76 65 20 62 65 65 6e 20 | 6d 6f 64 69 66 69 65 64 |ve been |modified|
|000047c0| 2e 0a 58 20 2a 2f 0a 58 | 0a 58 6d 64 5f 67 66 6d |..X */.X|.Xmd_gfm|
|000047d0| 74 28 66 6e 61 6d 65 2c | 20 72 74 5f 62 75 66 29 |t(fname,| rt_buf)|
|000047e0| 0a 58 63 68 61 72 20 2a | 66 6e 61 6d 65 3b 0a 58 |.Xchar *|fname;.X|
|000047f0| 73 74 72 75 63 74 20 72 | 6f 67 75 65 5f 74 69 6d |struct r|ogue_tim|
|00004800| 65 20 2a 72 74 5f 62 75 | 66 3b 0a 58 7b 0a 58 09 |e *rt_bu|f;.X{.X.|
|00004810| 73 74 72 75 63 74 20 73 | 74 61 74 20 73 62 75 66 |struct s|tat sbuf|
|00004820| 3b 0a 58 09 74 69 6d 65 | 5f 74 20 73 65 63 6f 6e |;.X.time|_t secon|
|00004830| 64 73 3b 0a 58 09 73 74 | 72 75 63 74 20 74 6d 20 |ds;.X.st|ruct tm |
|00004840| 2a 74 3b 0a 58 0a 58 09 | 73 74 61 74 28 66 6e 61 |*t;.X.X.|stat(fna|
|00004850| 6d 65 2c 20 26 73 62 75 | 66 29 3b 0a 58 09 73 65 |me, &sbu|f);.X.se|
|00004860| 63 6f 6e 64 73 20 3d 20 | 28 74 69 6d 65 5f 74 29 |conds = |(time_t)|
|00004870| 20 73 62 75 66 2e 73 74 | 5f 6d 74 69 6d 65 3b 0a | sbuf.st|_mtime;.|
|00004880| 58 09 74 20 3d 20 6c 6f | 63 61 6c 74 69 6d 65 28 |X.t = lo|caltime(|
|00004890| 26 73 65 63 6f 6e 64 73 | 29 3b 0a 58 0a 58 09 72 |&seconds|);.X.X.r|
|000048a0| 74 5f 62 75 66 2d 3e 79 | 65 61 72 20 3d 20 74 2d |t_buf->y|ear = t-|
|000048b0| 3e 74 6d 5f 79 65 61 72 | 3b 0a 58 09 72 74 5f 62 |>tm_year|;.X.rt_b|
|000048c0| 75 66 2d 3e 6d 6f 6e 74 | 68 20 3d 20 74 2d 3e 74 |uf->mont|h = t->t|
|000048d0| 6d 5f 6d 6f 6e 20 2b 20 | 31 3b 0a 58 09 72 74 5f |m_mon + |1;.X.rt_|
|000048e0| 62 75 66 2d 3e 64 61 79 | 20 3d 20 74 2d 3e 74 6d |buf->day| = t->tm|
|000048f0| 5f 6d 64 61 79 3b 0a 58 | 09 72 74 5f 62 75 66 2d |_mday;.X|.rt_buf-|
|00004900| 3e 68 6f 75 72 20 3d 20 | 74 2d 3e 74 6d 5f 68 6f |>hour = |t->tm_ho|
|00004910| 75 72 3b 0a 58 09 72 74 | 5f 62 75 66 2d 3e 6d 69 |ur;.X.rt|_buf->mi|
|00004920| 6e 75 74 65 20 3d 20 74 | 2d 3e 74 6d 5f 6d 69 6e |nute = t|->tm_min|
|00004930| 3b 0a 58 09 72 74 5f 62 | 75 66 2d 3e 73 65 63 6f |;.X.rt_b|uf->seco|
|00004940| 6e 64 20 3d 20 74 2d 3e | 74 6d 5f 73 65 63 3b 0a |nd = t->|tm_sec;.|
|00004950| 58 7d 0a 58 0a 58 2f 2a | 20 6d 64 5f 64 66 3a 20 |X}.X.X/*| md_df: |
|00004960| 28 44 65 6c 65 74 65 20 | 46 69 6c 65 29 0a 58 20 |(Delete |File).X |
|00004970| 2a 0a 58 20 2a 20 54 68 | 69 73 20 66 75 6e 63 74 |*.X * Th|is funct|
|00004980| 69 6f 6e 20 64 65 6c 65 | 74 65 73 20 74 68 65 20 |ion dele|tes the |
|00004990| 73 70 65 63 69 66 69 65 | 64 20 66 69 6c 65 2c 20 |specifie|d file, |
|000049a0| 61 6e 64 20 72 65 74 75 | 72 6e 73 20 74 72 75 65 |and retu|rns true|
|000049b0| 20 28 31 29 20 69 66 20 | 74 68 65 0a 58 20 2a 20 | (1) if |the.X * |
|000049c0| 6f 70 65 72 61 74 69 6f | 6e 20 77 61 73 20 73 75 |operatio|n was su|
|000049d0| 63 63 65 73 73 66 75 6c | 2e 20 20 54 68 69 73 20 |ccessful|.  This |
|000049e0| 69 73 20 75 73 65 64 20 | 74 6f 20 64 65 6c 65 74 |is used |to delet|
|000049f0| 65 20 73 61 76 65 64 2d | 67 61 6d 65 20 66 69 6c |e saved-|game fil|
|00004a00| 65 73 0a 58 20 2a 20 61 | 66 74 65 72 20 72 65 73 |es.X * a|fter res|
|00004a10| 74 6f 72 69 6e 67 20 67 | 61 6d 65 73 20 66 72 6f |toring g|ames fro|
|00004a20| 6d 20 74 68 65 6d 2e 0a | 58 20 2a 0a 58 20 2a 20 |m them..|X *.X * |
|00004a30| 41 67 61 69 6e 2c 20 74 | 68 69 73 20 66 75 6e 63 |Again, t|his func|
|00004a40| 74 69 6f 6e 20 69 73 20 | 6e 6f 74 20 73 74 72 69 |tion is |not stri|
|00004a50| 63 74 6c 79 20 6e 65 63 | 65 73 73 61 72 79 2c 20 |ctly nec|essary, |
|00004a60| 61 6e 64 20 63 61 6e 20 | 62 65 20 73 74 75 62 62 |and can |be stubb|
|00004a70| 65 64 0a 58 20 2a 20 62 | 79 20 73 69 6d 70 6c 79 |ed.X * b|y simply|
|00004a80| 20 72 65 74 75 72 6e 69 | 6e 67 20 31 2e 20 20 49 | returni|ng 1.  I|
|00004a90| 6e 20 74 68 69 73 20 63 | 61 73 65 2c 20 73 61 76 |n this c|ase, sav|
|00004aa0| 65 64 2d 67 61 6d 65 20 | 66 69 6c 65 73 20 77 69 |ed-game |files wi|
|00004ab0| 6c 6c 20 6e 6f 74 20 62 | 65 0a 58 20 2a 20 64 65 |ll not b|e.X * de|
|00004ac0| 6c 65 74 65 64 20 61 6e | 64 20 63 61 6e 20 62 65 |leted an|d can be|
|00004ad0| 20 72 65 70 6c 61 79 65 | 64 2e 0a 58 20 2a 2f 0a | replaye|d..X */.|
|00004ae0| 58 0a 58 62 6f 6f 6c 65 | 61 6e 0a 58 6d 64 5f 64 |X.Xboole|an.Xmd_d|
|00004af0| 66 28 66 6e 61 6d 65 29 | 0a 58 63 68 61 72 20 2a |f(fname)|.Xchar *|
|00004b00| 66 6e 61 6d 65 3b 0a 58 | 7b 0a 58 23 69 66 64 65 |fname;.X|{.X#ifde|
|00004b10| 66 20 56 4d 53 0a 58 23 | 64 65 66 69 6e 65 20 75 |f VMS.X#|define u|
|00004b20| 6e 6c 69 6e 6b 20 64 65 | 6c 65 74 65 0a 58 23 65 |nlink de|lete.X#e|
|00004b30| 6e 64 69 66 20 2f 2a 20 | 56 4d 53 20 2a 2f 0a 58 |ndif /* |VMS */.X|
|00004b40| 0a 58 09 69 66 20 28 75 | 6e 6c 69 6e 6b 28 66 6e |.X.if (u|nlink(fn|
|00004b50| 61 6d 65 29 29 20 7b 0a | 58 09 09 72 65 74 75 72 |ame)) {.|X..retur|
|00004b60| 6e 28 30 29 3b 0a 58 09 | 7d 0a 58 09 72 65 74 75 |n(0);.X.|}.X.retu|
|00004b70| 72 6e 28 31 29 3b 0a 58 | 7d 0a 58 0a 58 2f 2a 20 |rn(1);.X|}.X.X/* |
|00004b80| 6d 64 5f 67 6c 6e 3a 20 | 28 47 65 74 20 6c 6f 67 |md_gln: |(Get log|
|00004b90| 69 6e 20 6e 61 6d 65 29 | 0a 58 20 2a 0a 58 20 2a |in name)|.X *.X *|
|00004ba0| 20 54 68 69 73 20 72 6f | 75 74 69 6e 65 20 72 65 | This ro|utine re|
|00004bb0| 74 75 72 6e 73 20 74 68 | 65 20 6c 6f 67 69 6e 20 |turns th|e login |
|00004bc0| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 75 73 65 72 |name of |the user|
|00004bd0| 2e 20 20 54 68 69 73 20 | 73 74 72 69 6e 67 20 69 |.  This |string i|
|00004be0| 73 0a 58 20 2a 20 75 73 | 65 64 20 6d 61 69 6e 6c |s.X * us|ed mainl|
|00004bf0| 79 20 66 6f 72 20 69 64 | 65 6e 74 69 66 79 69 6e |y for id|entifyin|
|00004c00| 67 20 75 73 65 72 73 20 | 69 6e 20 73 63 6f 72 65 |g users |in score|
|00004c10| 20 66 69 6c 65 73 2e 0a | 58 20 2a 0a 58 20 2a 20 | files..|X *.X * |
|00004c20| 41 20 64 75 6d 6d 79 20 | 73 74 72 69 6e 67 20 6d |A dummy |string m|
|00004c30| 61 79 20 62 65 20 72 65 | 74 75 72 6e 65 64 20 69 |ay be re|turned i|
|00004c40| 66 20 79 6f 75 20 61 72 | 65 20 75 6e 61 62 6c 65 |f you ar|e unable|
|00004c50| 20 74 6f 20 69 6d 70 6c | 65 6d 65 6e 74 20 74 68 | to impl|ement th|
|00004c60| 69 73 0a 58 20 2a 20 66 | 75 6e 63 74 69 6f 6e 2c |is.X * f|unction,|
|00004c70| 20 62 75 74 20 74 68 65 | 6e 20 74 68 65 20 73 63 | but the|n the sc|
|00004c80| 6f 72 65 20 66 69 6c 65 | 20 77 6f 75 6c 64 20 6f |ore file| would o|
|00004c90| 6e 6c 79 20 68 61 76 65 | 20 6f 6e 65 20 6e 61 6d |nly have| one nam|
|00004ca0| 65 20 69 6e 20 69 74 2e | 0a 58 20 2a 2f 0a 58 0a |e in it.|.X */.X.|
|00004cb0| 58 63 68 61 72 20 2a 0a | 58 6d 64 5f 67 6c 6e 28 |Xchar *.|Xmd_gln(|
|00004cc0| 29 0a 58 7b 0a 58 23 69 | 66 64 65 66 20 55 4e 49 |).X{.X#i|fdef UNI|
|00004cd0| 58 0a 58 09 63 68 61 72 | 20 2a 67 65 74 6c 6f 67 |X.X.char| *getlog|
|00004ce0| 69 6e 28 29 3b 0a 58 09 | 63 68 61 72 20 2a 74 3b |in();.X.|char *t;|
|00004cf0| 0a 58 0a 58 09 74 20 3d | 20 67 65 74 6c 6f 67 69 |.X.X.t =| getlogi|
|00004d00| 6e 28 29 3b 0a 58 09 72 | 65 74 75 72 6e 28 74 29 |n();.X.r|eturn(t)|
|00004d10| 3b 0a 58 23 65 6e 64 69 | 66 20 2f 2a 20 55 4e 49 |;.X#endi|f /* UNI|
|00004d20| 58 20 2a 2f 0a 58 23 69 | 66 64 65 66 20 56 4d 53 |X */.X#i|fdef VMS|
|00004d30| 0a 58 09 72 65 74 75 72 | 6e 28 28 63 68 61 72 20 |.X.retur|n((char |
|00004d40| 2a 29 67 65 74 65 6e 76 | 28 22 55 53 45 52 22 29 |*)getenv|("USER")|
|00004d50| 29 3b 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 56 4d |);.X#end|if /* VM|
|00004d60| 53 20 2a 2f 0a 58 7d 0a | 58 0a 58 2f 2a 20 6d 64 |S */.X}.|X.X/* md|
|00004d70| 5f 73 6c 65 65 70 3a 0a | 58 20 2a 0a 58 20 2a 20 |_sleep:.|X *.X * |
|00004d80| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 63 61 75 |This rou|tine cau|
|00004d90| 73 65 73 20 74 68 65 20 | 67 61 6d 65 20 74 6f 20 |ses the |game to |
|00004da0| 70 61 75 73 65 20 66 6f | 72 20 74 68 65 20 73 70 |pause fo|r the sp|
|00004db0| 65 63 69 66 69 65 64 20 | 6e 75 6d 62 65 72 20 6f |ecified |number o|
|00004dc0| 66 0a 58 20 2a 20 73 65 | 63 6f 6e 64 73 2e 0a 58 |f.X * se|conds..X|
|00004dd0| 20 2a 0a 58 20 2a 20 54 | 68 69 73 20 72 6f 75 74 | *.X * T|his rout|
|00004de0| 69 6e 65 20 69 73 20 6e | 6f 74 20 6e 65 63 65 73 |ine is n|ot neces|
|00004df0| 73 61 72 79 20 61 74 20 | 61 6c 6c 2c 20 61 6e 64 |sary at |all, and|
|00004e00| 20 63 61 6e 20 62 65 20 | 73 74 75 62 62 65 64 20 | can be |stubbed |
|00004e10| 77 69 74 68 20 6e 6f 20 | 69 6c 6c 0a 58 20 2a 20 |with no |ill.X * |
|00004e20| 65 66 66 65 63 74 73 2e | 0a 58 20 2a 2f 0a 58 0a |effects.|.X */.X.|
|00004e30| 58 6d 64 5f 73 6c 65 65 | 70 28 6e 73 65 63 73 29 |Xmd_slee|p(nsecs)|
|00004e40| 0a 58 69 6e 74 20 6e 73 | 65 63 73 3b 0a 58 7b 0a |.Xint ns|ecs;.X{.|
|00004e50| 58 09 28 76 6f 69 64 29 | 20 73 6c 65 65 70 28 6e |X.(void)| sleep(n|
|00004e60| 73 65 63 73 29 3b 0a 58 | 7d 0a 58 0a 58 2f 2a 20 |secs);.X|}.X.X/* |
|00004e70| 6d 64 5f 67 65 74 65 6e | 76 28 29 0a 58 20 2a 0a |md_geten|v().X *.|
|00004e80| 58 20 2a 20 54 68 69 73 | 20 72 6f 75 74 69 6e 65 |X * This| routine|
|00004e90| 20 67 65 74 73 20 63 65 | 72 74 61 69 6e 20 76 61 | gets ce|rtain va|
|00004ea0| 6c 75 65 73 20 66 72 6f | 6d 20 74 68 65 20 75 73 |lues fro|m the us|
|00004eb0| 65 72 27 73 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |er's env|ironment|
|00004ec0| 2e 20 20 54 68 65 73 65 | 0a 58 20 2a 20 76 61 6c |.  These|.X * val|
|00004ed0| 75 65 73 20 61 72 65 20 | 73 74 72 69 6e 67 73 2c |ues are |strings,|
|00004ee0| 20 61 6e 64 20 65 61 63 | 68 20 73 74 72 69 6e 67 | and eac|h string|
|00004ef0| 20 69 73 20 69 64 65 6e | 74 69 66 69 65 64 20 62 | is iden|tified b|
|00004f00| 79 20 61 20 6e 61 6d 65 | 2e 20 20 54 68 65 20 6e |y a name|.  The n|
|00004f10| 61 6d 65 73 0a 58 20 2a | 20 6f 66 20 74 68 65 20 |ames.X *| of the |
|00004f20| 76 61 6c 75 65 73 20 6e | 65 65 64 65 64 2c 20 61 |values n|eeded, a|
|00004f30| 6e 64 20 74 68 65 69 72 | 20 75 73 65 2c 20 69 73 |nd their| use, is|
|00004f40| 20 61 73 20 66 6f 6c 6c | 6f 77 73 3a 0a 58 20 2a | as foll|ows:.X *|
|00004f50| 0a 58 20 2a 20 20 20 54 | 45 52 4d 43 41 50 0a 58 |.X *   T|ERMCAP.X|
|00004f60| 20 2a 20 20 20 20 20 54 | 68 65 20 6e 61 6d 65 20 | *     T|he name |
|00004f70| 6f 66 20 74 68 65 20 75 | 73 65 72 73 27 73 20 74 |of the u|sers's t|
|00004f80| 65 72 6d 63 61 70 20 66 | 69 6c 65 2c 20 4e 4f 54 |ermcap f|ile, NOT|
|00004f90| 20 74 68 65 20 74 65 72 | 6d 63 61 70 20 65 6e 74 | the ter|mcap ent|
|00004fa0| 72 69 65 73 0a 58 20 2a | 20 20 20 20 20 74 68 65 |ries.X *|     the|
|00004fb0| 6d 73 65 6c 76 65 73 2e | 20 20 54 68 69 73 20 69 |mselves.|  This i|
|00004fc0| 73 20 75 73 65 64 20 4f | 4e 4c 59 20 69 66 20 74 |s used O|NLY if t|
|00004fd0| 68 65 20 70 72 6f 67 72 | 61 6d 20 69 73 20 63 6f |he progr|am is co|
|00004fe0| 6d 70 69 6c 65 64 20 77 | 69 74 68 0a 58 20 2a 20 |mpiled w|ith.X * |
|00004ff0| 20 20 20 20 43 55 52 53 | 45 53 20 64 65 66 69 6e |    CURS|ES defin|
|00005000| 65 64 20 28 2d 44 43 55 | 52 53 45 53 29 2e 20 20 |ed (-DCU|RSES).  |
|00005010| 45 76 65 6e 20 69 6e 20 | 74 68 69 73 20 63 61 73 |Even in |this cas|
|00005020| 65 2c 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 6e |e, the p|rogram n|
|00005030| 65 65 64 0a 58 20 2a 20 | 20 20 20 20 6e 6f 74 20 |eed.X * |    not |
|00005040| 66 69 6e 64 20 61 20 73 | 74 72 69 6e 67 20 66 6f |find a s|tring fo|
|00005050| 72 20 54 45 52 4d 43 41 | 50 2e 20 20 49 66 20 69 |r TERMCA|P.  If i|
|00005060| 74 20 64 6f 65 73 20 6e | 6f 74 2c 20 69 74 20 77 |t does n|ot, it w|
|00005070| 69 6c 6c 20 75 73 65 20 | 74 68 65 0a 58 20 2a 20 |ill use |the.X * |
|00005080| 20 20 20 20 64 65 66 61 | 75 6c 74 20 74 65 72 6d |    defa|ult term|
|00005090| 63 61 70 20 66 69 6c 65 | 20 61 73 20 72 65 74 75 |cap file| as retu|
|000050a0| 72 6e 65 64 20 62 79 20 | 6d 64 5f 67 64 74 63 66 |rned by |md_gdtcf|
|000050b0| 28 29 3b 0a 58 20 2a 20 | 20 20 54 45 52 4d 0a 58 |();.X * |  TERM.X|
|000050c0| 20 2a 20 20 20 20 20 54 | 68 65 20 6e 61 6d 65 20 | *     T|he name |
|000050d0| 6f 66 20 74 68 65 20 75 | 73 65 72 73 27 73 20 74 |of the u|sers's t|
|000050e0| 65 72 6d 69 6e 61 6c 2e | 20 20 54 68 69 73 20 69 |erminal.|  This i|
|000050f0| 73 20 75 73 65 64 20 4f | 4e 4c 59 20 69 66 20 74 |s used O|NLY if t|
|00005100| 68 65 20 70 72 6f 67 72 | 61 6d 0a 58 20 2a 20 20 |he progr|am.X *  |
|00005110| 20 20 20 69 73 20 63 6f | 6d 70 69 6c 65 64 20 77 |   is co|mpiled w|
|00005120| 69 74 68 20 43 55 52 53 | 45 53 20 64 65 66 69 6e |ith CURS|ES defin|
|00005130| 65 64 20 28 2d 44 43 55 | 52 53 45 53 29 2e 20 20 |ed (-DCU|RSES).  |
|00005140| 49 6e 20 74 68 69 73 20 | 63 61 73 65 2c 20 74 68 |In this |case, th|
|00005150| 65 20 73 74 72 69 6e 67 | 0a 58 20 2a 20 20 20 20 |e string|.X *    |
|00005160| 20 76 61 6c 75 65 20 66 | 6f 72 20 54 45 52 4d 20 | value f|or TERM |
|00005170| 6d 75 73 74 20 62 65 20 | 66 6f 75 6e 64 2c 20 6f |must be |found, o|
|00005180| 72 20 74 68 65 20 72 6f | 75 74 69 6e 65 73 20 69 |r the ro|utines i|
|00005190| 6e 20 63 75 72 73 65 73 | 2e 63 20 63 61 6e 6e 6f |n curses|.c canno|
|000051a0| 74 0a 58 20 2a 20 20 20 | 20 20 66 75 6e 63 74 69 |t.X *   |  functi|
|000051b0| 6f 6e 2c 20 61 6e 64 20 | 74 68 65 20 70 72 6f 67 |on, and |the prog|
|000051c0| 72 61 6d 20 77 69 6c 6c | 20 71 75 69 74 2e 0a 58 |ram will| quit..X|
|000051d0| 20 2a 20 20 20 52 4f 47 | 55 45 4f 50 54 53 0a 58 | *   ROG|UEOPTS.X|
|000051e0| 20 2a 20 20 20 20 20 41 | 20 73 74 72 69 6e 67 20 | *     A| string |
|000051f0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 74 68 65 20 76 |containi|ng the v|
|00005200| 61 72 69 6f 75 73 20 67 | 61 6d 65 20 6f 70 74 69 |arious g|ame opti|
|00005210| 6f 6e 73 2e 20 20 54 68 | 69 73 20 6e 65 65 64 20 |ons.  Th|is need |
|00005220| 6e 6f 74 20 62 65 0a 58 | 20 2a 20 20 20 20 20 64 |not be.X| *     d|
|00005230| 65 66 69 6e 65 64 2e 0a | 58 20 2a 20 20 20 48 4f |efined..|X *   HO|
|00005240| 4d 45 0a 58 20 2a 20 20 | 20 20 20 54 68 65 20 75 |ME.X *  |   The u|
|00005250| 73 65 72 27 73 20 68 6f | 6d 65 20 64 69 72 65 63 |ser's ho|me direc|
|00005260| 74 6f 72 79 2e 20 20 54 | 68 69 73 20 69 73 20 6f |tory.  T|his is o|
|00005270| 6e 6c 79 20 75 73 65 64 | 20 77 68 65 6e 20 74 68 |nly used| when th|
|00005280| 65 20 75 73 65 72 20 73 | 70 65 63 69 66 69 65 73 |e user s|pecifies|
|00005290| 0a 58 20 2a 20 20 20 20 | 20 27 7e 27 20 61 73 20 |.X *    | '~' as |
|000052a0| 74 68 65 20 66 69 72 73 | 74 20 63 68 61 72 61 63 |the firs|t charac|
|000052b0| 74 65 72 20 6f 66 20 61 | 20 73 61 76 65 64 2d 67 |ter of a| saved-g|
|000052c0| 61 6d 65 20 66 69 6c 65 | 2e 20 20 54 68 69 73 20 |ame file|.  This |
|000052d0| 73 74 72 69 6e 67 20 6e | 65 65 64 0a 58 20 2a 20 |string n|eed.X * |
|000052e0| 20 20 20 20 6e 6f 74 20 | 62 65 20 64 65 66 69 6e |    not |be defin|
|000052f0| 65 64 2e 0a 58 20 2a 0a | 58 20 2a 20 49 66 20 79 |ed..X *.|X * If y|
|00005300| 6f 75 72 20 73 79 73 74 | 65 6d 20 64 6f 65 73 20 |our syst|em does |
|00005310| 6e 6f 74 20 70 72 6f 76 | 69 64 65 20 61 20 6d 65 |not prov|ide a me|
|00005320| 61 6e 73 20 6f 66 20 73 | 65 61 72 63 68 69 6e 67 |ans of s|earching|
|00005330| 20 66 6f 72 20 74 68 65 | 73 65 20 76 61 6c 75 65 | for the|se value|
|00005340| 73 2c 0a 58 20 2a 20 79 | 6f 75 20 77 69 6c 6c 20 |s,.X * y|ou will |
|00005350| 68 61 76 65 20 74 6f 20 | 64 6f 20 69 74 20 79 6f |have to |do it yo|
|00005360| 75 72 73 65 6c 66 2e 20 | 20 4e 6f 6e 65 20 6f 66 |urself. | None of|
|00005370| 20 74 68 65 20 76 61 6c | 75 65 73 20 61 62 6f 76 | the val|ues abov|
|00005380| 65 20 72 65 61 6c 6c 79 | 20 6e 65 65 64 0a 58 20 |e really| need.X |
|00005390| 2a 20 74 6f 20 62 65 20 | 64 65 66 69 6e 65 64 20 |* to be |defined |
|000053a0| 65 78 63 65 70 74 20 54 | 45 52 4d 20 77 68 65 6e |except T|ERM when|
|000053b0| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 69 73 20 | the pro|gram is |
|000053c0| 63 6f 6d 70 69 6c 65 64 | 20 77 69 74 68 20 43 55 |compiled| with CU|
|000053d0| 52 53 45 53 0a 58 20 2a | 20 64 65 66 69 6e 65 64 |RSES.X *| defined|
|000053e0| 2e 20 20 49 6e 20 74 68 | 69 73 20 63 61 73 65 2c |.  In th|is case,|
|000053f0| 20 61 73 20 61 20 62 61 | 72 65 20 6d 69 6e 69 6d | as a ba|re minim|
|00005400| 75 6d 2c 20 79 6f 75 20 | 63 61 6e 20 63 68 65 63 |um, you |can chec|
|00005410| 6b 20 74 68 65 20 27 6e | 61 6d 65 27 0a 58 20 2a |k the 'n|ame'.X *|
|00005420| 20 70 61 72 61 6d 65 74 | 65 72 2c 20 61 6e 64 20 | paramet|er, and |
|00005430| 69 66 20 69 74 20 69 73 | 20 22 54 45 52 4d 22 20 |if it is| "TERM" |
|00005440| 66 69 6e 64 20 74 68 65 | 20 74 65 72 6d 69 6e 61 |find the| termina|
|00005450| 6c 20 6e 61 6d 65 20 61 | 6e 64 20 72 65 74 75 72 |l name a|nd retur|
|00005460| 6e 20 74 68 61 74 2c 0a | 58 20 2a 20 65 6c 73 65 |n that,.|X * else|
|00005470| 20 72 65 74 75 72 6e 20 | 7a 65 72 6f 2e 20 20 49 | return |zero.  I|
|00005480| 66 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 69 73 |f the pr|ogram is|
|00005490| 20 6e 6f 74 20 63 6f 6d | 70 69 6c 65 64 20 77 69 | not com|piled wi|
|000054a0| 74 68 20 43 55 52 53 45 | 53 2c 20 79 6f 75 20 63 |th CURSE|S, you c|
|000054b0| 61 6e 0a 58 20 2a 20 67 | 65 74 20 62 79 20 77 69 |an.X * g|et by wi|
|000054c0| 74 68 20 73 69 6d 70 6c | 79 20 61 6c 77 61 79 73 |th simpl|y always|
|000054d0| 20 72 65 74 75 72 6e 69 | 6e 67 20 7a 65 72 6f 2e | returni|ng zero.|
|000054e0| 20 20 52 65 74 75 72 6e | 69 6e 67 20 7a 65 72 6f |  Return|ing zero|
|000054f0| 20 69 6e 64 69 63 61 74 | 65 73 0a 58 20 2a 20 74 | indicat|es.X * t|
|00005500| 68 61 74 20 74 68 65 69 | 72 20 69 73 20 6e 6f 20 |hat thei|r is no |
|00005510| 64 65 66 69 6e 65 64 20 | 76 61 6c 75 65 20 66 6f |defined |value fo|
|00005520| 72 20 74 68 65 20 67 69 | 76 65 6e 20 73 74 72 69 |r the gi|ven stri|
|00005530| 6e 67 2e 0a 58 20 2a 2f | 0a 58 0a 58 63 68 61 72 |ng..X */|.X.Xchar|
|00005540| 20 2a 0a 58 6d 64 5f 67 | 65 74 65 6e 76 28 6e 61 | *.Xmd_g|etenv(na|
|00005550| 6d 65 29 0a 58 63 68 61 | 72 20 2a 6e 61 6d 65 3b |me).Xcha|r *name;|
|00005560| 0a 58 7b 0a 58 23 69 66 | 64 65 66 20 55 4e 49 58 |.X{.X#if|def UNIX|
|00005570| 0a 58 09 63 68 61 72 20 | 2a 76 61 6c 75 65 3b 0a |.X.char |*value;.|
|00005580| 58 09 63 68 61 72 20 2a | 67 65 74 65 6e 76 28 29 |X.char *|getenv()|
|00005590| 3b 0a 58 0a 58 09 76 61 | 6c 75 65 20 3d 20 67 65 |;.X.X.va|lue = ge|
|000055a0| 74 65 6e 76 28 6e 61 6d | 65 29 3b 0a 58 0a 58 09 |tenv(nam|e);.X.X.|
|000055b0| 72 65 74 75 72 6e 28 76 | 61 6c 75 65 29 3b 0a 58 |return(v|alue);.X|
|000055c0| 23 65 6e 64 69 66 20 2f | 2a 20 55 4e 49 58 20 2a |#endif /|* UNIX *|
|000055d0| 2f 0a 58 23 69 66 64 65 | 66 20 56 4d 53 0a 58 09 |/.X#ifde|f VMS.X.|
|000055e0| 72 65 74 75 72 6e 28 28 | 63 68 61 72 20 2a 29 67 |return((|char *)g|
|000055f0| 65 74 65 6e 76 28 6e 61 | 6d 65 29 29 3b 0a 58 23 |etenv(na|me));.X#|
|00005600| 65 6e 64 69 66 20 2f 2a | 20 56 4d 53 20 2a 2f 0a |endif /*| VMS */.|
|00005610| 58 7d 0a 58 0a 58 2f 2a | 20 6d 64 5f 6d 61 6c 6c |X}.X.X/*| md_mall|
|00005620| 6f 63 28 29 0a 58 20 2a | 0a 58 20 2a 20 54 68 69 |oc().X *|.X * Thi|
|00005630| 73 20 72 6f 75 74 69 6e | 65 20 61 6c 6c 6f 63 61 |s routin|e alloca|
|00005640| 74 65 73 2c 20 61 6e 64 | 20 72 65 74 75 72 6e 73 |tes, and| returns|
|00005650| 20 61 20 70 6f 69 6e 74 | 65 72 20 74 6f 2c 20 74 | a point|er to, t|
|00005660| 68 65 20 73 70 65 63 69 | 66 69 65 64 20 6e 75 6d |he speci|fied num|
|00005670| 62 65 72 0a 58 20 2a 20 | 6f 66 20 62 79 74 65 73 |ber.X * |of bytes|
|00005680| 2e 20 20 54 68 69 73 20 | 72 6f 75 74 69 6e 65 73 |.  This |routines|
|00005690| 20 61 62 73 6f 6c 75 74 | 65 6c 79 20 4d 55 53 54 | absolut|ely MUST|
|000056a0| 20 62 65 20 69 6d 70 6c | 65 6d 65 6e 74 65 64 20 | be impl|emented |
|000056b0| 66 6f 72 20 79 6f 75 72 | 0a 58 20 2a 20 70 61 72 |for your|.X * par|
|000056c0| 74 69 63 75 6c 61 72 20 | 73 79 73 74 65 6d 20 6f |ticular |system o|
|000056d0| 72 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 77 69 |r the pr|ogram wi|
|000056e0| 6c 6c 20 6e 6f 74 20 72 | 75 6e 20 61 74 20 61 6c |ll not r|un at al|
|000056f0| 6c 2e 20 20 52 65 74 75 | 72 6e 20 7a 65 72 6f 0a |l.  Retu|rn zero.|
|00005700| 58 20 2a 20 77 68 65 6e | 20 6e 6f 20 6d 6f 72 65 |X * when| no more|
|00005710| 20 6d 65 6d 6f 72 79 20 | 63 61 6e 20 62 65 20 61 | memory |can be a|
|00005720| 6c 6c 6f 63 61 74 65 64 | 2e 0a 58 20 2a 2f 0a 58 |llocated|..X */.X|
|00005730| 0a 58 63 68 61 72 20 2a | 0a 58 6d 64 5f 6d 61 6c |.Xchar *|.Xmd_mal|
|00005740| 6c 6f 63 28 6e 29 0a 58 | 69 6e 74 20 6e 3b 0a 58 |loc(n).X|int n;.X|
|00005750| 7b 0a 58 09 63 68 61 72 | 20 2a 6d 61 6c 6c 6f 63 |{.X.char| *malloc|
|00005760| 28 29 3b 0a 58 09 63 68 | 61 72 20 2a 74 3b 0a 58 |();.X.ch|ar *t;.X|
|00005770| 0a 58 09 74 20 3d 20 6d | 61 6c 6c 6f 63 28 6e 29 |.X.t = m|alloc(n)|
|00005780| 3b 0a 58 09 72 65 74 75 | 72 6e 28 74 29 3b 0a 58 |;.X.retu|rn(t);.X|
|00005790| 7d 0a 58 0a 58 2f 2a 20 | 6d 64 5f 67 73 65 65 64 |}.X.X/* |md_gseed|
|000057a0| 28 29 20 28 47 65 74 20 | 53 65 65 64 29 0a 58 20 |() (Get |Seed).X |
|000057b0| 2a 0a 58 20 2a 20 54 68 | 69 73 20 66 75 6e 63 74 |*.X * Th|is funct|
|000057c0| 69 6f 6e 20 72 65 74 75 | 72 6e 73 20 61 20 73 65 |ion retu|rns a se|
|000057d0| 65 64 20 66 6f 72 20 74 | 68 65 20 72 61 6e 64 6f |ed for t|he rando|
|000057e0| 6d 20 6e 75 6d 62 65 72 | 20 67 65 6e 65 72 61 74 |m number| generat|
|000057f0| 6f 72 20 28 52 4e 47 29 | 2e 20 20 54 68 69 73 0a |or (RNG)|.  This.|
|00005800| 58 20 2a 20 73 65 65 64 | 20 63 61 75 73 65 73 20 |X * seed| causes |
|00005810| 74 68 65 20 52 4e 47 20 | 74 6f 20 62 65 67 69 6e |the RNG |to begin|
|00005820| 20 67 65 6e 65 72 61 74 | 69 6e 67 20 6e 75 6d 62 | generat|ing numb|
|00005830| 65 72 73 20 61 74 20 73 | 6f 6d 65 20 70 6f 69 6e |ers at s|ome poin|
|00005840| 74 20 69 6e 20 69 74 27 | 73 0a 58 20 2a 20 73 65 |t in it'|s.X * se|
|00005850| 71 75 65 6e 63 65 2e 20 | 20 57 69 74 68 6f 75 74 |quence. | Without|
|00005860| 20 61 20 72 61 6e 64 6f | 6d 20 73 65 65 64 2c 20 | a rando|m seed, |
|00005870| 74 68 65 20 52 4e 47 20 | 77 69 6c 6c 20 67 65 6e |the RNG |will gen|
|00005880| 65 72 61 74 65 20 74 68 | 65 20 73 61 6d 65 20 73 |erate th|e same s|
|00005890| 65 74 0a 58 20 2a 20 6f | 66 20 6e 75 6d 62 65 72 |et.X * o|f number|
|000058a0| 73 2c 20 61 6e 64 20 65 | 76 65 72 79 20 67 61 6d |s, and e|very gam|
|000058b0| 65 20 77 69 6c 6c 20 73 | 74 61 72 74 20 6f 75 74 |e will s|tart out|
|000058c0| 20 65 78 61 63 74 6c 79 | 20 74 68 65 20 73 61 6d | exactly| the sam|
|000058d0| 65 20 77 61 79 2e 20 20 | 41 20 67 6f 6f 64 0a 58 |e way.  |A good.X|
|000058e0| 20 2a 20 6e 75 6d 62 65 | 72 20 74 6f 20 75 73 65 | * numbe|r to use|
|000058f0| 20 69 73 20 74 68 65 20 | 70 72 6f 63 65 73 73 20 | is the |process |
|00005900| 69 64 2c 20 67 69 76 65 | 6e 20 62 79 20 67 65 74 |id, give|n by get|
|00005910| 70 69 64 28 29 20 6f 6e | 20 6d 6f 73 74 20 55 4e |pid() on| most UN|
|00005920| 49 58 20 73 79 73 74 65 | 6d 73 2e 0a 58 20 2a 0a |IX syste|ms..X *.|
|00005930| 58 20 2a 20 59 6f 75 20 | 6e 65 65 64 20 74 6f 20 |X * You |need to |
|00005940| 66 69 6e 64 20 73 6f 6d | 65 20 73 69 6e 67 6c 65 |find som|e single|
|00005950| 20 72 61 6e 64 6f 6d 20 | 69 6e 74 65 67 65 72 2c | random |integer,|
|00005960| 20 73 75 63 68 20 61 73 | 3a 0a 58 20 2a 20 20 20 | such as|:.X *   |
|00005970| 70 72 6f 63 65 73 73 20 | 69 64 2e 0a 58 20 2a 20 |process |id..X * |
|00005980| 20 20 63 75 72 72 65 6e | 74 20 74 69 6d 65 20 28 |  curren|t time (|
|00005990| 6d 69 6e 75 74 65 73 20 | 2b 20 73 65 63 6f 6e 64 |minutes |+ second|
|000059a0| 73 29 20 72 65 74 75 72 | 6e 65 64 20 66 72 6f 6d |s) retur|ned from|
|000059b0| 20 6d 64 5f 67 63 74 28 | 29 2c 20 69 66 20 69 6d | md_gct(|), if im|
|000059c0| 70 6c 65 6d 65 6e 74 65 | 64 2e 0a 58 20 2a 20 20 |plemente|d..X *  |
|000059d0| 20 0a 58 20 2a 20 49 74 | 20 77 69 6c 6c 20 6e 6f | .X * It| will no|
|000059e0| 74 20 68 65 6c 70 20 74 | 6f 20 72 65 74 75 72 6e |t help t|o return|
|000059f0| 20 22 67 65 74 5f 72 61 | 6e 64 28 29 22 20 6f 72 | "get_ra|nd()" or|
|00005a00| 20 22 72 61 6e 64 28 29 | 22 20 6f 72 20 74 68 65 | "rand()|" or the|
|00005a10| 20 72 65 74 75 72 6e 20 | 76 61 6c 75 65 20 6f 66 | return |value of|
|00005a20| 0a 58 20 2a 20 61 6e 79 | 20 70 73 65 75 64 6f 2d |.X * any| pseudo-|
|00005a30| 52 4e 47 2e 20 20 49 66 | 20 79 6f 75 20 64 6f 6e |RNG.  If| you don|
|00005a40| 27 74 20 68 61 76 65 20 | 61 20 72 61 6e 64 6f 6d |'t have |a random|
|00005a50| 20 6e 75 6d 62 65 72 2c | 20 79 6f 75 20 63 61 6e | number,| you can|
|00005a60| 20 6a 75 73 74 20 72 65 | 74 75 72 6e 20 31 2c 0a | just re|turn 1,.|
|00005a70| 58 20 2a 20 62 75 74 20 | 74 68 69 73 20 6d 65 61 |X * but |this mea|
|00005a80| 6e 73 20 79 6f 75 72 20 | 67 61 6d 65 73 20 77 69 |ns your |games wi|
|00005a90| 6c 6c 20 41 4c 57 41 59 | 53 20 73 74 61 72 74 20 |ll ALWAY|S start |
|00005aa0| 74 68 65 20 73 61 6d 65 | 20 77 61 79 2c 20 61 6e |the same| way, an|
|00005ab0| 64 20 77 69 6c 6c 20 70 | 6c 61 79 0a 58 20 2a 20 |d will p|lay.X * |
|00005ac0| 65 78 61 63 74 6c 79 20 | 74 68 65 20 73 61 6d 65 |exactly |the same|
|00005ad0| 20 77 61 79 20 67 69 76 | 65 6e 20 74 68 65 20 73 | way giv|en the s|
|00005ae0| 61 6d 65 20 69 6e 70 75 | 74 2e 0a 58 20 2a 2f 0a |ame inpu|t..X */.|
|00005af0| 58 0a 58 6d 64 5f 67 73 | 65 65 64 28 29 0a 58 7b |X.Xmd_gs|eed().X{|
|00005b00| 0a 58 09 72 65 74 75 72 | 6e 28 28 74 69 6d 65 28 |.X.retur|n((time(|
|00005b10| 28 74 69 6d 65 5f 74 20 | 2a 29 30 29 20 26 20 7e |(time_t |*)0) & ~|
|00005b20| 28 28 69 6e 74 29 30 29 | 29 20 2b 20 67 65 74 70 |((int)0)|) + getp|
|00005b30| 69 64 28 29 29 3b 0a 58 | 7d 0a 58 0a 58 2f 2a 20 |id());.X|}.X.X/* |
|00005b40| 6d 64 5f 65 78 69 74 28 | 29 3a 0a 58 20 2a 0a 58 |md_exit(|):.X *.X|
|00005b50| 20 2a 20 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e | * This |function|
|00005b60| 20 63 61 75 73 65 73 20 | 74 68 65 20 70 72 6f 67 | causes |the prog|
|00005b70| 72 61 6d 20 74 6f 20 64 | 69 73 63 6f 6e 74 69 6e |ram to d|iscontin|
|00005b80| 75 65 20 65 78 65 63 75 | 74 69 6f 6e 20 61 6e 64 |ue execu|tion and|
|00005b90| 20 65 78 69 74 2e 0a 58 | 20 2a 20 54 68 69 73 20 | exit..X| * This |
|00005ba0| 66 75 6e 63 74 69 6f 6e | 20 6d 75 73 74 20 62 65 |function| must be|
|00005bb0| 20 69 6d 70 6c 65 6d 65 | 6e 74 65 64 20 6f 72 20 | impleme|nted or |
|00005bc0| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 77 69 6c 6c |the prog|ram will|
|00005bd0| 20 63 6f 6e 74 69 6e 75 | 65 20 74 6f 0a 58 20 2a | continu|e to.X *|
|00005be0| 20 68 61 6e 67 20 77 68 | 65 6e 20 69 74 20 73 68 | hang wh|en it sh|
|00005bf0| 6f 75 6c 64 20 71 75 69 | 74 2e 0a 58 20 2a 2f 0a |ould qui|t..X */.|
|00005c00| 58 0a 58 6d 64 5f 65 78 | 69 74 28 73 74 61 74 75 |X.Xmd_ex|it(statu|
|00005c10| 73 29 0a 58 69 6e 74 20 | 73 74 61 74 75 73 3b 0a |s).Xint |status;.|
|00005c20| 58 7b 0a 58 09 65 78 69 | 74 28 73 74 61 74 75 73 |X{.X.exi|t(status|
|00005c30| 29 3b 0a 58 7d 0a 58 0a | 58 2f 2a 20 49 66 20 79 |);.X}.X.|X/* If y|
|00005c40| 6f 75 20 68 61 76 65 20 | 61 20 76 69 61 62 6c 65 |ou have |a viable|
|00005c50| 20 63 75 72 73 65 73 2f | 74 65 72 6d 6c 69 62 20 | curses/|termlib |
|00005c60| 6c 69 62 72 61 72 79 2c | 20 74 68 65 6e 20 75 73 |library,| then us|
|00005c70| 65 20 69 74 20 61 6e 64 | 20 64 6f 6e 27 74 20 62 |e it and| don't b|
|00005c80| 6f 74 68 65 72 0a 58 20 | 2a 20 69 6d 70 6c 65 6d |other.X |* implem|
|00005c90| 65 6e 74 69 6e 67 20 74 | 68 65 20 72 6f 75 74 69 |enting t|he routi|
|00005ca0| 6e 65 73 20 62 65 6c 6f | 77 2e 20 20 41 6e 64 20 |nes belo|w.  And |
|00005cb0| 64 6f 6e 27 74 20 63 6f | 6d 70 69 6c 65 20 77 69 |don't co|mpile wi|
|00005cc0| 74 68 20 2d 44 43 55 52 | 53 45 53 2e 0a 58 20 2a |th -DCUR|SES..X *|
|00005cd0| 2f 0a 58 0a 58 23 69 66 | 64 65 66 20 43 55 52 53 |/.X.X#if|def CURS|
|00005ce0| 45 53 0a 58 0a 58 2f 2a | 20 6d 64 5f 63 62 72 65 |ES.X.X/*| md_cbre|
|00005cf0| 61 6b 5f 6e 6f 5f 65 63 | 68 6f 5f 6e 6f 6e 6c 3a |ak_no_ec|ho_nonl:|
|00005d00| 0a 58 20 2a 0a 58 20 2a | 20 54 68 69 73 20 72 6f |.X *.X *| This ro|
|00005d10| 75 74 69 6e 65 20 73 65 | 74 73 20 75 70 20 73 6f |utine se|ts up so|
|00005d20| 6d 65 20 74 65 72 6d 69 | 6e 61 6c 20 63 68 61 72 |me termi|nal char|
|00005d30| 61 63 74 65 72 69 73 74 | 69 63 73 2e 20 20 54 68 |acterist|ics.  Th|
|00005d40| 65 20 74 74 79 2d 64 72 | 69 76 65 72 0a 58 20 2a |e tty-dr|iver.X *|
|00005d50| 20 6d 75 73 74 20 62 65 | 20 74 6f 6c 64 20 74 6f | must be| told to|
|00005d60| 3a 0a 58 20 2a 20 20 20 | 31 2e 29 20 20 4e 6f 74 |:.X *   |1.)  Not|
|00005d70| 20 65 63 68 6f 20 69 6e | 70 75 74 2e 0a 58 20 2a | echo in|put..X *|
|00005d80| 20 20 20 32 2e 29 20 20 | 54 72 61 6e 73 6d 69 74 |   2.)  |Transmit|
|00005d90| 20 69 6e 70 75 74 20 63 | 68 61 72 61 63 74 65 72 | input c|haracter|
|00005da0| 73 20 69 6d 6d 65 64 69 | 61 74 65 6c 79 20 75 70 |s immedi|ately up|
|00005db0| 6f 6e 20 74 79 70 69 6e | 67 2e 20 28 63 62 72 65 |on typin|g. (cbre|
|00005dc0| 61 6b 20 6d 6f 64 65 29 | 0a 58 20 2a 20 20 20 33 |ak mode)|.X *   3|
|00005dd0| 2e 29 20 20 4d 6f 76 65 | 20 74 68 65 20 63 75 72 |.)  Move| the cur|
|00005de0| 73 6f 72 20 64 6f 77 6e | 20 6f 6e 65 20 6c 69 6e |sor down| one lin|
|00005df0| 65 2c 20 77 69 74 68 6f | 75 74 20 63 68 61 6e 67 |e, witho|ut chang|
|00005e00| 69 6e 67 20 63 6f 6c 75 | 6d 6e 2c 20 61 6e 64 0a |ing colu|mn, and.|
|00005e10| 58 20 2a 20 20 20 20 20 | 20 20 20 77 69 74 68 6f |X *     |   witho|
|00005e20| 75 74 20 67 65 6e 65 72 | 61 74 69 6e 67 20 61 20 |ut gener|ating a |
|00005e30| 63 61 72 72 69 61 67 65 | 2d 72 65 74 75 72 6e 2c |carriage|-return,|
|00005e40| 20 77 68 65 6e 20 69 74 | 0a 58 20 2a 20 20 20 20 | when it|.X *    |
|00005e50| 20 20 20 20 73 65 65 73 | 20 61 20 6c 69 6e 65 2d |    sees| a line-|
|00005e60| 66 65 65 64 2e 20 20 54 | 68 69 73 20 69 73 20 6f |feed.  T|his is o|
|00005e70| 6e 6c 79 20 6e 65 63 65 | 73 73 61 72 79 20 69 66 |nly nece|ssary if|
|00005e80| 20 6c 69 6e 65 2d 66 65 | 65 64 20 69 73 20 65 76 | line-fe|ed is ev|
|00005e90| 65 72 0a 58 20 2a 20 20 | 20 20 20 20 20 20 75 73 |er.X *  |      us|
|00005ea0| 65 64 20 69 6e 20 74 68 | 65 20 74 65 72 6d 63 61 |ed in th|e termca|
|00005eb0| 70 20 27 64 6f 27 20 28 | 63 75 72 73 6f 72 20 64 |p 'do' (|cursor d|
|00005ec0| 6f 77 6e 29 20 65 6e 74 | 72 79 2c 20 69 6e 20 77 |own) ent|ry, in w|
|00005ed0| 68 69 63 68 20 63 61 73 | 65 2c 0a 58 20 2a 20 20 |hich cas|e,.X *  |
|00005ee0| 20 20 20 20 20 20 79 6f | 75 72 20 73 79 73 74 65 |      yo|ur syste|
|00005ef0| 6d 20 73 68 6f 75 6c 64 | 20 6d 75 73 74 20 68 61 |m should| must ha|
|00005f00| 76 65 20 61 20 77 61 79 | 20 6f 66 20 61 63 63 6f |ve a way| of acco|
|00005f10| 6d 70 6c 69 73 68 69 6e | 67 20 74 68 69 73 2e 0a |mplishin|g this..|
|00005f20| 58 20 2a 0a 58 20 2a 20 | 57 68 65 6e 20 74 68 65 |X *.X * |When the|
|00005f30| 20 70 61 72 61 6d 65 74 | 65 72 20 27 6f 6e 27 20 | paramet|er 'on' |
|00005f40| 69 73 20 74 72 75 65 2c | 20 74 68 65 20 74 65 72 |is true,| the ter|
|00005f50| 6d 69 6e 61 6c 20 69 73 | 20 73 65 74 20 75 70 20 |minal is| set up |
|00005f60| 61 73 20 73 70 65 63 69 | 66 69 65 64 0a 58 20 2a |as speci|fied.X *|
|00005f70| 20 61 62 6f 76 65 2e 20 | 20 57 68 65 6e 20 74 68 | above. | When th|
|00005f80| 69 73 20 70 61 72 61 6d | 65 74 65 72 20 69 73 20 |is param|eter is |
|00005f90| 66 61 6c 73 65 2c 20 74 | 68 65 20 74 65 72 6d 69 |false, t|he termi|
|00005fa0| 6e 61 6c 20 69 73 20 72 | 65 73 74 6f 72 65 64 20 |nal is r|estored |
|00005fb0| 74 6f 20 74 68 65 0a 58 | 20 2a 20 6f 72 69 67 69 |to the.X| * origi|
|00005fc0| 6e 61 6c 20 73 74 61 74 | 65 2e 0a 58 20 2a 0a 58 |nal stat|e..X *.X|
|00005fd0| 20 2a 20 52 61 77 20 6d | 6f 64 65 20 73 68 6f 75 | * Raw m|ode shou|
|00005fe0| 6c 64 20 6e 6f 74 20 74 | 6f 20 62 65 20 75 73 65 |ld not t|o be use|
|00005ff0| 64 2e 20 20 4b 65 79 62 | 6f 61 72 64 20 73 69 67 |d.  Keyb|oard sig|
|00006000| 6e 61 6c 73 2f 65 76 65 | 6e 74 73 2f 69 6e 74 65 |nals/eve|nts/inte|
|00006010| 72 72 75 70 74 73 20 73 | 68 6f 75 6c 64 0a 58 20 |rrupts s|hould.X |
|00006020| 2a 20 62 65 20 73 65 6e | 74 2c 20 61 6c 74 68 6f |* be sen|t, altho|
|00006030| 75 67 68 20 74 68 65 79 | 20 61 72 65 20 6e 6f 74 |ugh they| are not|
|00006040| 20 73 74 72 69 63 74 6c | 79 20 6e 65 63 65 73 73 | strictl|y necess|
|00006050| 61 72 79 2e 20 20 53 65 | 65 20 6e 6f 74 65 73 20 |ary.  Se|e notes |
|00006060| 69 6e 0a 58 20 2a 20 6d | 64 5f 68 65 65 64 5f 73 |in.X * m|d_heed_s|
|00006070| 69 67 6e 61 6c 73 28 29 | 2e 0a 58 20 2a 0a 58 20 |ignals()|..X *.X |
|00006080| 2a 20 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |* This f|unction |
|00006090| 6d 75 73 74 20 62 65 20 | 69 6d 70 6c 65 6d 65 6e |must be |implemen|
|000060a0| 74 65 64 20 66 6f 72 20 | 72 6f 67 75 65 20 74 6f |ted for |rogue to|
|000060b0| 20 72 75 6e 20 70 72 6f | 70 65 72 6c 79 20 69 66 | run pro|perly if|
|000060c0| 20 74 68 65 0a 58 20 2a | 20 70 72 6f 67 72 61 6d | the.X *| program|
|000060d0| 20 69 73 20 63 6f 6d 70 | 69 6c 65 64 20 77 69 74 | is comp|iled wit|
|000060e0| 68 20 43 55 52 53 45 53 | 20 64 65 66 69 6e 65 64 |h CURSES| defined|
|000060f0| 20 74 6f 20 75 73 65 20 | 74 68 65 20 65 6e 63 6c | to use |the encl|
|00006100| 6f 73 65 64 20 63 75 72 | 73 65 73 0a 58 20 2a 20 |osed cur|ses.X * |
|00006110| 65 6d 75 6c 61 74 69 6f | 6e 20 70 61 63 6b 61 67 |emulatio|n packag|
|00006120| 65 2e 20 20 49 66 20 79 | 6f 75 20 61 72 65 20 6e |e.  If y|ou are n|
|00006130| 6f 74 20 75 73 69 6e 67 | 20 74 68 69 73 2c 20 74 |ot using| this, t|
|00006140| 68 65 6e 20 74 68 69 73 | 20 72 6f 75 74 69 6e 65 |hen this| routine|
|00006150| 20 69 73 0a 58 20 2a 20 | 74 6f 74 61 6c 6c 79 20 | is.X * |totally |
|00006160| 75 6e 6e 65 63 65 73 73 | 61 72 79 2e 0a 58 20 2a |unnecess|ary..X *|
|00006170| 20 0a 58 20 2a 20 4e 6f | 74 69 63 65 20 74 68 61 | .X * No|tice tha|
|00006180| 74 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 69 73 |t inform|ation is|
|00006190| 20 73 61 76 65 64 20 62 | 65 74 77 65 65 6e 20 63 | saved b|etween c|
|000061a0| 61 6c 6c 73 2e 20 20 54 | 68 69 73 20 69 73 20 75 |alls.  T|his is u|
|000061b0| 73 65 64 20 74 6f 0a 58 | 20 2a 20 72 65 73 74 6f |sed to.X| * resto|
|000061c0| 72 65 20 74 68 65 20 74 | 65 72 6d 69 6e 61 6c 20 |re the t|erminal |
|000061d0| 74 6f 20 61 6e 20 69 6e | 69 74 69 61 6c 20 73 61 |to an in|itial sa|
|000061e0| 76 65 64 20 73 74 61 74 | 65 2e 0a 58 20 2a 0a 58 |ved stat|e..X *.X|
|000061f0| 20 2a 2f 0a 58 0a 58 6d | 64 5f 63 62 72 65 61 6b | */.X.Xm|d_cbreak|
|00006200| 5f 6e 6f 5f 65 63 68 6f | 5f 6e 6f 6e 6c 28 6f 6e |_no_echo|_nonl(on|
|00006210| 29 0a 58 62 6f 6f 6c 65 | 61 6e 20 6f 6e 3b 0a 58 |).Xboole|an on;.X|
|00006220| 7b 0a 58 23 69 66 64 65 | 66 20 55 4e 49 58 0a 58 |{.X#ifde|f UNIX.X|
|00006230| 23 69 66 64 65 66 20 55 | 4e 49 58 5f 42 53 44 34 |#ifdef U|NIX_BSD4|
|00006240| 5f 32 0a 58 09 73 74 61 | 74 69 63 20 73 74 72 75 |_2.X.sta|tic stru|
|00006250| 63 74 20 73 67 74 74 79 | 62 20 74 74 79 5f 62 75 |ct sgtty|b tty_bu|
|00006260| 66 3b 0a 58 09 73 74 61 | 74 69 63 20 69 6e 74 20 |f;.X.sta|tic int |
|00006270| 74 73 61 76 65 5f 66 6c | 61 67 73 3b 0a 58 0a 58 |tsave_fl|ags;.X.X|
|00006280| 09 69 66 20 28 6f 6e 29 | 20 7b 0a 58 09 09 69 6f |.if (on)| {.X..io|
|00006290| 63 74 6c 28 30 2c 20 54 | 49 4f 43 47 45 54 50 2c |ctl(0, T|IOCGETP,|
|000062a0| 20 26 74 74 79 5f 62 75 | 66 29 3b 0a 58 09 09 74 | &tty_bu|f);.X..t|
|000062b0| 73 61 76 65 5f 66 6c 61 | 67 73 20 3d 20 74 74 79 |save_fla|gs = tty|
|000062c0| 5f 62 75 66 2e 73 67 5f | 66 6c 61 67 73 3b 0a 58 |_buf.sg_|flags;.X|
|000062d0| 09 09 74 74 79 5f 62 75 | 66 2e 73 67 5f 66 6c 61 |..tty_bu|f.sg_fla|
|000062e0| 67 73 20 7c 3d 20 43 42 | 52 45 41 4b 3b 0a 58 09 |gs |= CB|REAK;.X.|
|000062f0| 09 74 74 79 5f 62 75 66 | 2e 73 67 5f 66 6c 61 67 |.tty_buf|.sg_flag|
|00006300| 73 20 26 3d 20 7e 28 45 | 43 48 4f 20 7c 20 43 52 |s &= ~(E|CHO | CR|
|00006310| 4d 4f 44 29 3b 09 2f 2a | 20 43 52 4d 4f 44 3a 20 |MOD);./*| CRMOD: |
|00006320| 73 65 65 20 6e 6f 74 65 | 20 33 20 61 62 6f 76 65 |see note| 3 above|
|00006330| 20 2a 2f 0a 58 09 09 69 | 6f 63 74 6c 28 30 2c 20 | */.X..i|octl(0, |
|00006340| 54 49 4f 43 53 45 54 50 | 2c 20 26 74 74 79 5f 62 |TIOCSETP|, &tty_b|
|00006350| 75 66 29 3b 0a 58 09 7d | 20 65 6c 73 65 20 7b 0a |uf);.X.}| else {.|
|00006360| 58 09 09 74 74 79 5f 62 | 75 66 2e 73 67 5f 66 6c |X..tty_b|uf.sg_fl|
|00006370| 61 67 73 20 3d 20 74 73 | 61 76 65 5f 66 6c 61 67 |ags = ts|ave_flag|
|00006380| 73 3b 0a 58 09 09 69 6f | 63 74 6c 28 30 2c 20 54 |s;.X..io|ctl(0, T|
|00006390| 49 4f 43 53 45 54 50 2c | 20 26 74 74 79 5f 62 75 |IOCSETP,| &tty_bu|
|000063a0| 66 29 3b 0a 58 09 7d 0a | 58 23 65 6e 64 69 66 20 |f);.X.}.|X#endif |
|000063b0| 2f 2a 20 55 4e 49 58 5f | 42 53 44 34 5f 32 20 2a |/* UNIX_|BSD4_2 *|
|000063c0| 2f 0a 58 23 69 66 64 65 | 66 20 55 4e 49 58 5f 53 |/.X#ifde|f UNIX_S|
|000063d0| 59 53 56 0a 58 09 73 74 | 72 75 63 74 20 74 65 72 |YSV.X.st|ruct ter|
|000063e0| 6d 69 6f 20 74 74 79 5f | 62 75 66 3b 0a 58 09 73 |mio tty_|buf;.X.s|
|000063f0| 74 61 74 69 63 20 73 74 | 72 75 63 74 20 74 65 72 |tatic st|ruct ter|
+--------+-------------------------+-------------------------+--------+--------+