home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1989 August / 89_aug.atr / capital5.m65 < prev    next >
Unknown  |  1989-01-01  |  10.3 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Microtan 65 dump (archive/microtan65Dump) ext Unsupported
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe 23 29 64 00 18 58 | 3b 53 41 56 45 23 44 3a |..#)d..X|;SAVE#D:|
|00000010| 43 41 50 49 54 41 4c 35 | 2e 4d 36 35 6e 00 05 58 |CAPITAL5|.M65n..X|
|00000020| 3b 78 00 1a 58 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;x..X;--|--------|
|00000030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 3b 82 00 1a 58 3b |--------|--;...X;|
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000050| 20 20 20 20 3b 8c 00 1a | 58 3b 43 41 50 49 54 41 | ;...|X;CAPITA|
|00000060| 4c 21 20 53 75 62 72 6f | 75 74 69 6e 65 73 3b 96 |L! Subro|utines;.|
|00000070| 00 1a 58 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |..X; | |
|00000080| 20 20 20 20 20 20 20 20 | 3b a0 00 1a 58 3b 62 79 | |;...X;by|
|00000090| 3a 20 42 72 79 61 6e 20 | 53 63 68 61 70 70 65 6c |: Bryan |Schappel|
|000000a0| 20 20 3b aa 00 1a 58 3b | 20 20 20 20 20 20 20 20 | ;...X;| |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b b4 00 1a | | ;...|
|000000c0| 58 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |X;------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 3b be | 00 05 58 3b c8 00 1f 58 |------;.|..X;...X|
|000000e0| 3b 47 65 74 20 74 68 65 | 20 52 65 6e 74 20 6f 66 |;Get the| Rent of|
|000000f0| 20 61 20 70 72 6f 70 65 | 72 74 79 d2 00 05 58 3b | a prope|rty...X;|
|00000100| dc 00 1e 88 47 45 54 5f | 52 45 4e 54 51 85 43 50 |....GET_|RENTQ.CP|
|00000110| 52 4f 50 3b 3b 63 75 72 | 72 20 70 72 6f 70 e6 00 |ROP;;cur|r prop..|
|00000120| 15 3e 3b 3b 6f 66 66 73 | 65 74 20 69 6e 20 74 61 |.>;;offs|et in ta|
|00000130| 62 6c 65 f0 00 14 51 84 | 52 45 4e 54 39 3b 3b 67 |ble...Q.|RENT9;;g|
|00000140| 65 74 20 72 65 6e 74 fa | 00 11 50 86 41 4d 4f 55 |et rent.|..P.AMOU|
|00000150| 4e 54 3b 3b 73 61 76 65 | 04 01 12 51 3e 08 00 3b |NT;;save|...Q>..;|
|00000160| 3b 30 20 68 69 20 62 79 | 74 65 0e 01 0e 50 86 41 |;0 hi by|te...P.A|
|00000170| 4d 4f 55 4e 54 12 08 01 | 18 01 1a 51 84 58 52 45 |MOUNT...|...Q.XRE|
|00000180| 46 39 3b 3b 69 73 20 74 | 68 69 73 20 61 20 64 62 |F9;;is t|his a db|
|00000190| 6c 3f 22 01 0f 48 84 47 | 4f 54 44 3b 3b 59 45 53 |l?"..H.G|OTD;;YES|
|000001a0| 21 2c 01 09 3a 3b 3b 6e | 6f 2e 36 01 05 58 3b 40 |!,..:;;n|o.6..X;@|
|000001b0| 01 11 84 47 4f 54 44 3f | 3b 3b 68 61 6c 66 20 23 |...GOTD?|;;half #|
|000001c0| 4a 01 14 51 83 57 48 4f | 38 3b 3b 67 65 74 20 6f |J..Q.WHO|8;;get o|
|000001d0| 77 6e 65 72 54 01 1a 52 | 85 4f 57 4e 45 52 3b 3b |wnerT..R|.OWNER;;|
|000001e0| 73 61 6d 65 20 61 73 20 | 6c 61 6e 64 65 64 5e 01 |same as |landed^.|
|000001f0| 12 48 84 52 4f 55 54 3b | 3b 6f 6e 3f 20 6e 6f 21 |.H.ROUT;|;on? no!|
|00000200| 68 01 1a 51 84 52 45 4e | 54 38 3b 3b 59 45 53 21 |h..Q.REN|T8;;YES!|
|00000210| 20 4d 61 6b 65 20 72 65 | 6e 74 72 01 10 2c 3b 3b | Make re|ntr..,;;|
|00000220| 3d 68 61 6c 66 2b 68 61 | 6c 66 7c 01 0b 4f 86 41 |=half+ha|lf|..O.A|
|00000230| 4d 4f 55 4e 54 86 01 0b | 50 86 41 4d 4f 55 4e 54 |MOUNT...|P.AMOUNT|
|00000240| 90 01 0e 51 86 41 4d 4f | 55 4e 54 12 08 01 9a 01 |...Q.AMO|UNT.....|
|00000250| 07 4f 3e 08 00 a4 01 0e | 50 86 41 4d 4f 55 4e 54 |.O>.....|P.AMOUNT|
|00000260| 12 08 01 ae 01 0f 84 52 | 4f 55 54 3a 3b 3b 65 78 |.......R|OUT:;;ex|
|00000270| 69 74 b8 01 05 58 3b c2 | 01 1a 58 3b 48 61 6e 64 |it...X;.|..X;Hand|
|00000280| 6c 65 20 61 6e 20 49 6d | 70 72 6f 76 65 6d 65 6e |le an Im|provemen|
|00000290| 74 cc 01 05 58 3b d6 01 | 1f 87 49 4d 50 52 4f 56 |t...X;..|..IMPROV|
|000002a0| 45 20 88 48 41 56 45 5f | 41 4e 59 3b 3b 6f 77 6e |E .HAVE_|ANY;;own|
|000002b0| 20 61 6e 79 3f e0 01 0d | 49 83 49 4d 31 3b 3b 59 | any?...|I.IM1;;Y|
|000002c0| 45 53 ea 01 0f 3a 3b 3b | 6e 6f 6e 65 20 69 66 20 |ES...:;;|none if |
|000002d0| 2d f4 01 23 83 49 4d 31 | 07 86 50 52 49 4e 54 20 |-..#.IM1|..PRINT |
|000002e0| 87 49 4d 50 5f 54 58 54 | 3b 3b 27 49 6d 70 72 6f |.IMP_TXT|;;'Impro|
|000002f0| 76 65 3f 27 fe 01 12 20 | 85 47 45 54 59 4e 3b 3b |ve?'... |.GETYN;;|
|00000300| 59 65 73 2f 4e 6f 08 02 | 11 46 83 47 49 4d 3b 3b |Yes/No..|.F.GIM;;|
|00000310| 30 20 3d 20 79 65 73 12 | 02 09 3a 3b 3b 6f 75 74 |0 = yes.|..:;;out|
|00000320| 1c 02 15 83 47 49 4d 51 | 84 50 4e 55 4d 3b 3b 70 |....GIMQ|.PNUM;;p|
|00000330| 6c 79 72 20 23 26 02 09 | 54 3f 3b 3b 78 32 30 02 |lyr #&..|T?;;x20.|
|00000340| 04 3f 3a 02 1a 51 84 43 | 41 53 48 12 08 01 38 3b |.?:..Q.C|ASH...8;|
|00000350| 3b 73 65 65 20 69 66 20 | 70 6c 79 72 44 02 13 48 |;see if |plyrD..H|
|00000360| 84 47 49 4d 50 3b 3b 68 | 61 73 20 24 31 30 47 4e |.GIMP;;h|as $10GN|
|00000370| 02 14 51 84 43 41 53 48 | 38 3b 3b 70 6c 75 73 20 |..Q.CASH|8;;plus |
|00000380| 24 31 47 58 02 07 52 3e | 08 0b 62 02 0f 45 84 47 |$1GX..R>|..b..E.G|
|00000390| 49 4d 50 3b 3b 73 75 72 | 65 6c 02 16 21 87 4e 4f |IMP;;sur|el..!.NO|
|000003a0| 5f 43 41 53 48 3b 3b 6e | 6f 74 20 65 6e 75 66 76 |_CASH;;n|ot enufv|
|000003b0| 02 20 84 47 49 4d 50 20 | 89 50 49 43 4b 5f 50 52 |. .GIMP |.PICK_PR|
|000003c0| 4f 50 3b 3b 70 69 63 6b | 20 61 20 70 72 6f 70 80 |OP;;pick| a prop.|
|000003d0| 02 19 24 85 50 50 52 4f | 50 3b 3b 70 69 63 6b 65 |..$.PPRO|P;;picke|
|000003e0| 64 20 70 72 6f 70 20 23 | 8a 02 18 47 84 47 4f 55 |d prop #|...G.GOU|
|000003f0| 54 3b 3b 2d 20 3d 20 6e | 6f 6e 65 20 70 69 63 6b |T;;- = n|one pick|
|00000400| 94 02 0b 48 86 49 4d 50 | 5f 49 54 9e 02 11 84 47 |...H.IMP|_IT....G|
|00000410| 4f 55 54 3a 3b 3b 30 20 | 3d 20 6e 6f a8 02 05 58 |OUT:;;0 |= no...X|
|00000420| 3b b2 02 1f 86 49 4d 50 | 5f 49 54 51 83 49 4d 50 |;....IMP|_ITQ.IMP|
|00000430| 39 3b 3b 67 65 74 20 63 | 75 72 20 6c 65 76 65 6c |9;;get c|ur level|
|00000440| bc 02 17 52 3e 08 03 3b | 3b 61 74 20 6d 61 78 2e |...R>..;|;at max.|
|00000450| 20 6c 65 76 65 6c 3f c6 | 02 0f 44 86 44 4f 5f 49 | level?.|..D.DO_I|
|00000460| 4d 50 3b 3b 6e 6f d0 02 | 19 07 86 50 52 49 4e 54 |MP;;no..|...PRINT|
|00000470| 20 83 4d 41 58 3b 3b 27 | 41 74 20 6d 61 78 27 da | .MAX;;'|At max'.|
|00000480| 02 12 21 87 57 41 49 54 | 4b 45 59 3b 3b 65 78 69 |..!.WAIT|KEY;;exi|
|00000490| 74 e4 02 1b 86 44 4f 5f | 49 4d 50 51 84 52 45 4e |t....DO_|IMPQ.REN|
|000004a0| 54 39 3b 3b 67 65 74 20 | 72 65 6e 74 ee 02 09 54 |T9;;get |rent...T|
|000004b0| 3f 3b 3b 78 32 f8 02 13 | 50 84 52 45 4e 54 39 3b |?;;x2...|P.RENT9;|
|000004c0| 3b 73 61 76 65 20 69 74 | 02 03 14 23 83 49 4d 50 |;save it|...#.IMP|
|000004d0| 39 3b 3b 69 6e 63 20 6c | 65 76 65 6c 0c 03 14 51 |9;;inc l|evel...Q|
|000004e0| 84 43 4f 53 54 39 3b 3b | 61 64 64 20 35 20 74 6f |.COST9;;|add 5 to|
|000004f0| 16 03 0f 2c 3b 3b 70 72 | 6f 70 20 63 6f 73 74 20 |...,;;pr|op cost |
|00000500| 03 07 4f 3e 08 05 2a 03 | 0a 50 84 43 4f 53 54 39 |..O>..*.|.P.COST9|
|00000510| 34 03 13 51 3e 08 0a 3b | 3b 63 6f 73 74 73 20 24 |4..Q>..;|;costs $|
|00000520| 31 30 67 3e 03 15 25 84 | 50 4e 55 4d 3b 3b 74 6f |10g>..%.|PNUM;;to|
|00000530| 20 69 6e 70 72 6f 76 65 | 48 03 08 20 83 53 55 42 | inprove|H.. .SUB|
|00000540| 52 03 18 21 84 54 5f 4f | 4b 3b 3b 27 54 72 61 6e |R..!.T_O|K;;'Tran|
|00000550| 73 2e 20 63 6f 6d 70 27 | 5c 03 05 58 3b 66 03 14 |s. comp'|\..X;f..|
|00000560| 58 3b 47 65 74 20 61 20 | 59 65 73 20 6f 72 20 4e |X;Get a |Yes or N|
|00000570| 6f 70 03 13 58 3b 30 3d | 20 79 65 73 20 3c 3e 20 |op..X;0=| yes <> |
|00000580| 3d 20 6e 6f 7a 03 05 58 | 3b 84 03 21 85 47 45 54 |= noz..X|;..!.GET|
|00000590| 59 4e 07 86 50 52 49 4e | 54 20 85 59 4e 54 58 54 |YN..PRIN|T .YNTXT|
|000005a0| 3b 3b 27 59 65 73 20 4e | 6f 27 8e 03 0e 83 47 59 |;;'Yes N|o'....GY|
|000005b0| 4e 20 85 47 45 54 43 48 | 98 03 0c 52 3e 08 2b 3b |N .GETCH|...R>.+;|
|000005c0| 3b 61 20 59 a2 03 09 48 | 84 54 52 59 4e ac 03 04 |;a Y...H|.TRYN...|
|000005d0| 3a b6 03 12 84 54 52 59 | 4e 52 3e 06 23 3b 3b 61 |:....TRY|NR>.#;;a|
|000005e0| 6e 20 4e c0 03 08 48 83 | 47 59 4e ca 03 12 52 3e |n N...H.|GYN...R>|
|000005f0| 08 00 3b 3b 66 6f 72 63 | 65 20 42 4e 45 d4 03 04 |..;;forc|e BNE...|
|00000600| 3a de 03 05 58 3b e8 03 | 16 58 3b 4d 61 6b 65 20 |:...X;..|.X;Make |
|00000610| 61 20 50 6c 61 79 65 72 | 20 50 41 59 f2 03 05 58 |a Player| PAY...X|
|00000620| 3b fc 03 20 88 50 41 59 | 5f 52 45 4e 54 20 88 47 |;.. .PAY|_RENT .G|
|00000630| 45 54 5f 52 45 4e 54 3b | 3b 67 65 74 20 72 65 6e |ET_RENT;|;get ren|
|00000640| 74 06 04 19 07 86 50 52 | 49 4e 54 20 83 46 45 45 |t.....PR|INT .FEE|
|00000650| 3b 3b 70 72 69 6e 74 20 | 69 74 10 04 0f 51 3e 08 |;;print |it...Q>.|
|00000660| 00 3b 3b 70 61 79 20 74 | 6f 1a 04 12 50 85 52 46 |.;;pay t|o...P.RF|
|00000670| 4c 41 47 3b 3b 70 6c 61 | 79 65 72 24 04 09 46 84 |LAG;;pla|yer$..F.|
|00000680| 4a 4a 53 53 2e 04 1d 88 | 4a 55 53 54 5f 50 41 59 |JJSS....|JUST_PAY|
|00000690| 51 3e 08 01 3b 3b 6a 75 | 73 74 20 6c 6f 73 65 20 |Q>..;;ju|st lose |
|000006a0| 24 38 04 0a 50 85 52 46 | 4c 41 47 42 04 16 84 4a |$8..P.RF|LAGB...J|
|000006b0| 4a 53 53 51 84 50 4e 55 | 4d 3b 3b 70 6c 79 72 20 |JSSQ.PNU|M;;plyr |
|000006c0| 23 4c 04 09 54 3f 3b 3b | 78 32 56 04 04 3f 60 04 |#L..T?;;|x2V..?`.|
|000006d0| 17 51 84 43 41 53 48 12 | 08 01 38 3b 3b 67 65 74 |.Q.CASH.|..8;;get|
|000006e0| 20 43 41 53 48 6a 04 1b | 52 86 41 4d 4f 55 4e 54 | CASHj..|R.AMOUNT|
|000006f0| 12 08 01 3b 3b 69 73 20 | 69 74 20 65 6e 75 66 3f |...;;is |it enuf?|
|00000700| 74 04 14 46 84 50 41 4c | 4f 3b 3b 63 68 65 63 6b |t..F.PAL|O;;check|
|00000710| 20 6c 6f 77 7e 04 10 45 | 86 50 41 59 5f 49 54 3b | low~..E|.PAY_IT;|
|00000720| 3b 79 65 73 88 04 1a 84 | 50 41 4c 4f 51 84 43 41 |;yes....|PALOQ.CA|
|00000730| 53 48 38 3b 3b 65 6e 75 | 66 20 6c 6f 77 3f 92 04 |SH8;;enu|f low?..|
|00000740| 0b 52 86 41 4d 4f 55 4e | 54 9c 04 19 44 85 46 4f |.R.AMOUN|T...D.FO|
|00000750| 52 43 45 3b 3b 6e 6f 2c | 66 6f 72 63 65 20 73 65 |RCE;;no,|force se|
|00000760| 6c 6c a6 04 11 46 85 46 | 4f 52 43 45 3b 3b 64 69 |ll...F.F|ORCE;;di|
|00000770| 74 74 6f b0 04 15 86 50 | 41 59 5f 49 54 25 84 50 |tto....P|AY_IT%.P|
|00000780| 4e 55 4d 3b 3b 70 61 79 | ba 04 18 51 86 41 4d 4f |NUM;;pay|...Q.AMO|
|00000790| 55 4e 54 3b 3b 74 68 69 | 73 20 61 6d 6f 75 6e 74 |UNT;;thi|s amount|
|000007a0| c4 04 08 20 83 53 55 42 | ce 04 16 51 3e 08 00 3b |... .SUB|...Q>..;|
|000007b0| 3b 74 75 72 6e 20 64 69 | 73 61 73 74 65 72 d8 04 |;turn di|saster..|
|000007c0| 16 50 87 44 49 53 46 4c | 41 47 3b 3b 66 6c 61 67 |.P.DISFL|AG;;flag|
|000007d0| 20 6f 66 66 e2 04 18 51 | 85 52 46 4c 41 47 3b 3b | off...Q|.RFLAG;;|
|000007e0| 6a 75 73 74 20 6c 6f 73 | 65 20 69 66 ec 04 0e 48 |just los|e if...H|
|000007f0| 83 54 4f 4b 3b 3b 3c 3e | 20 30 f6 04 15 25 85 4f |.TOK;;<>| 0...%.O|
|00000800| 57 4e 45 52 3b 3b 70 61 | 79 20 6f 77 6e 65 72 00 |WNER;;pa|y owner.|
|00000810| 05 17 51 86 41 4d 4f 55 | 4e 54 3b 3b 74 68 65 20 |..Q.AMOU|NT;;the |
|00000820| 61 6d 6f 75 6e 74 0a 05 | 16 20 83 41 44 44 3b 3b |amount..|. .ADD;;|
|00000830| 61 64 64 20 74 6f 20 6f | 77 6e 65 72 14 05 13 83 |add to o|wner....|
|00000840| 54 4f 4b 21 84 54 5f 4f | 4b 3b 3b 65 78 69 74 1e |TOK!.T_O|K;;exit.|
|00000850| 05 19 85 46 4f 52 43 45 | 51 3e 08 01 3b 3b 66 6f |...FORCE|Q>..;;fo|
|00000860| 72 63 65 20 73 61 6c 65 | 28 05 16 50 87 44 49 53 |rce sale|(..P.DIS|
|00000870| 46 4c 41 47 3b 3b 6f 66 | 20 70 72 6f 70 73 32 05 |FLAG;;of| props2.|
|00000880| 1d 20 88 4d 41 4b 45 5f | 52 41 4e 3b 3b 73 65 6c |. .MAKE_|RAN;;sel|
|00000890| 6c 69 6e 67 20 70 72 69 | 63 65 73 3c 05 17 51 85 |ling pri|ces<..Q.|
|000008a0| 53 50 45 45 44 3b 3b 66 | 61 73 74 20 67 61 6d 65 |SPEED;;f|ast game|
|000008b0| 3d 30 46 05 08 46 83 44 | 45 44 50 05 17 20 87 4e |=0F..F.D|EDP.. .N|
|000008c0| 4f 5f 43 41 53 48 3b 3b | 27 4e 6f 20 63 61 73 68 |O_CASH;;|'No cash|
|000008d0| 27 5a 05 1a 20 89 57 41 | 4e 54 5f 53 41 4c 45 3b |'Z.. .WA|NT_SALE;|
|000008e0| 3b 73 65 6c 6c 20 70 72 | 6f 70 73 64 05 16 51 85 |;sell pr|opsd..Q.|
|000008f0| 50 50 52 4f 50 3b 3b 67 | 65 74 20 70 72 6f 70 20 |PPROP;;g|et prop |
|00000900| 23 6e 05 15 49 84 4a 4a | 53 53 3b 3b 6f 6b 2c 74 |#n..I.JJ|SS;;ok,t|
|00000910| 72 79 20 70 61 79 78 05 | 15 83 44 45 44 37 3b 3b |ry payx.|..DED7;;|
|00000920| 6e 6f 20 70 72 6f 70 73 | 20 73 6f 82 05 11 37 3b |no props| so...7;|
|00000930| 3b 70 6c 61 79 65 72 20 | 64 69 65 73 8c 05 18 21 |;player |dies...!|
|00000940| 84 44 45 41 44 3b 3b 74 | 65 6c 6c 20 65 76 65 72 |.DEAD;;t|ell ever|
|00000950| 79 6f 6e 65 96 05 05 58 | 3b a0 05 14 58 3b 50 69 |yone...X|;...X;Pi|
|00000960| 63 6b 20 61 20 50 72 6f | 70 65 72 74 79 aa 05 05 |ck a Pro|perty...|
|00000970| 58 3b b4 05 20 89 50 49 | 43 4b 5f 50 52 4f 50 51 |X;.. .PI|CK_PROPQ|
|00000980| 85 43 50 52 4f 50 3b 3b | 73 61 76 65 20 63 75 72 |.CPROP;;|save cur|
|00000990| 72 2e be 05 16 50 85 54 | 50 52 4f 50 3b 3b 70 72 |r....P.T|PROP;;pr|
|000009a0| 6f 70 65 72 74 79 20 23 | c8 05 18 20 88 48 41 56 |operty #|... .HAV|
|000009b0| 45 5f 41 4e 59 3b 3b 68 | 61 76 65 20 61 6e 79 3f |E_ANY;;h|ave any?|
|000009c0| d2 05 10 49 86 47 5f 50 | 49 43 4b 3b 3b 79 65 73 |...I.G_P|ICK;;yes|
|000009d0| dc 05 14 27 85 50 50 52 | 4f 50 3b 3b 6e 6f 20 59 |...'.PPR|OP;;no Y|
|000009e0| 3d 24 46 46 e6 05 0a 3a | 3b 3b 65 78 69 74 f0 05 |=$FF...:|;;exit..|
|000009f0| 1a 86 47 5f 50 49 43 4b | 25 3e 08 00 3b 3b 63 79 |..G_PICK|%>..;;cy|
|00000a00| 63 6c 65 20 74 68 72 75 | fa 05 1a 84 50 43 4b 31 |cle thru|....PCK1|
|00000a10| 51 83 57 48 4f 38 3b 3b | 70 72 6f 70 73 2e 20 77 |Q.WHO8;;|props. w|
|00000a20| 68 6f 04 06 19 27 85 43 | 50 52 4f 50 3b 3b 6f 77 |ho...'.C|PROP;;ow|
|00000a30| 6e 73 20 74 68 69 73 20 | 6f 6e 65 0e 06 0e 52 84 |ns this |one...R.|
|00000a40| 50 4e 55 4d 3b 3b 4d 45 | 3f 18 06 0d 48 84 50 43 |PNUM;;ME|?...H.PC|
|00000a50| 4b 55 3b 3b 6e 6f 22 06 | 1c 20 87 53 48 4f 50 52 |KU;;no".|. .SHOPR|
|00000a60| 4f 50 3b 3b 73 68 6f 77 | 20 70 72 6f 70 20 69 6e |OP;;show| prop in|
|00000a70| 66 6f 2c 06 1a 23 86 50 | 41 55 53 45 3f 3b 3b 31 |fo,..#.P|AUSE?;;1|
|00000a80| 20 3d 20 66 61 73 74 20 | 70 72 6e 74 36 06 17 51 | = fast |prnt6..Q|
|00000a90| 87 44 49 53 46 4c 41 47 | 3b 3b 64 69 73 61 73 74 |.DISFLAG|;;disast|
|00000aa0| 65 72 3f 40 06 0d 46 84 | 50 43 4b 51 3b 3b 6e 6f |er?@..F.|PCKQ;;no|
|00000ab0| 4a 06 1e 07 86 50 52 49 | 4e 54 20 86 41 4d 54 4f |J....PRI|NT .AMTO|
|00000ac0| 57 44 3b 3b 27 41 6d 74 | 20 6f 77 65 64 27 54 06 |WD;;'Amt| owed'T.|
|00000ad0| 17 51 86 41 4d 4f 55 4e | 54 3b 3b 70 72 69 6e 74 |.Q.AMOUN|T;;print|
|00000ae0| 20 61 6d 6e 74 5e 06 0e | 24 86 41 4d 4f 55 4e 54 | amnt^..|$.AMOUNT|
|00000af0| 12 08 01 68 06 0a 20 85 | 50 52 4e 55 4d 72 06 23 |...h.. .|PRNUMr.#|
|00000b00| 84 50 43 4b 51 07 86 50 | 52 49 4e 54 20 89 50 49 |.PCKQ..P|RINT .PI|
|00000b10| 43 4b 5f 4d 45 53 53 3b | 3b 27 70 69 63 6b 3f 27 |CK_MESS;|;'pick?'|
|00000b20| 7c 06 19 51 87 44 49 53 | 46 4c 41 47 3b 3b 69 66 ||..Q.DIS|FLAG;;if|
|00000b30| 20 64 69 73 61 73 74 65 | 72 86 06 14 48 84 50 43 | disaste|r...H.PC|
|00000b40| 4b 58 3b 3b 6d 75 73 74 | 20 70 69 63 6b 90 06 1c |KX;;must| pick...|
|00000b50| 07 86 50 52 49 4e 54 20 | 89 50 49 43 4b 5f 52 45 |..PRINT |.PICK_RE|
|00000b60| 53 54 3b 3b 27 45 53 43 | 27 9a 06 1b 84 50 43 4b |ST;;'ESC|'....PCK|
|00000b70| 58 22 86 50 41 55 53 45 | 3f 3b 3b 73 6c 6f 77 20 |X".PAUSE|?;;slow |
|00000b80| 64 6f 77 6e a4 06 18 84 | 50 43 4b 4b 20 85 47 45 |down....|PCKK .GE|
|00000b90| 54 43 48 3b 3b 67 65 74 | 20 6b 65 79 ae 06 0d 52 |TCH;;get| key...R|
|00000ba0| 3e 08 1c 3b 3b 45 53 43 | 3f b8 06 0e 48 85 4e 4f |>..;;ESC|?...H.NO|
|00000bb0| 45 53 43 3b 3b 6e 6f c2 | 06 18 51 87 44 49 53 46 |ESC;;no.|..Q.DISF|
|00000bc0| 4c 41 47 3b 3b 79 65 73 | 2c 62 75 74 20 69 66 cc |LAG;;yes|,but if.|
|00000bd0| 06 17 48 84 50 43 4b 4b | 3b 3b 64 69 73 61 73 74 |..H.PCKK|;;disast|
|00000be0| 65 72 20 2d 6e 6f d6 06 | 16 51 3e 08 00 3b 3b 69 |er -no..|.Q>..;;i|
|00000bf0| 66 20 45 53 43 20 73 65 | 74 20 74 6f e0 06 15 50 |f ESC se|t to...P|
|00000c00| 85 43 50 52 4f 50 3b 3b | 30 20 3d 3e 20 6e 6f 6e |.CPROP;;|0 => non|
|00000c10| 65 ea 06 13 46 87 50 49 | 43 4b 5f 4c 56 3b 3b 6c |e...F.PI|CK_LV;;l|
|00000c20| 65 61 76 65 f4 06 15 85 | 4e 4f 45 53 43 52 3e 08 |eave....|NOESCR>.|
|00000c30| 21 3b 3b 53 50 41 43 45 | 3f fe 06 13 46 84 50 43 |!;;SPACE|?...F.PC|
|00000c40| 4b 55 3b 3b 6e 65 78 74 | 20 6f 6e 65 08 07 10 52 |KU;;next| one...R|
|00000c50| 3e 08 0c 3b 3b 52 45 54 | 55 52 4e 3f 12 07 15 48 |>..;;RET|URN?...H|
|00000c60| 84 50 43 4b 4b 3b 3b 70 | 69 63 6b 65 64 20 6f 6e |.PCKK;;p|icked on|
|00000c70| 65 1c 07 1e 87 50 49 43 | 4b 5f 4c 56 51 85 43 50 |e....PIC|K_LVQ.CP|
|00000c80| 52 4f 50 3b 3b 67 65 74 | 20 70 69 63 6b 65 64 26 |ROP;;get| picked&|
|00000c90| 07 14 50 85 50 50 52 4f | 50 3b 3b 70 72 6f 70 65 |..P.PPRO|P;;prope|
|00000ca0| 72 74 79 30 07 13 51 85 | 54 50 52 4f 50 3b 3b 72 |rty0..Q.|TPROP;;r|
|00000cb0| 65 73 74 6f 72 65 3a 07 | 15 50 85 43 50 52 4f 50 |estore:.|.P.CPROP|
|00000cc0| 3b 3b 63 75 72 2e 20 70 | 72 6f 70 44 07 04 3a 4e |;;cur. p|ropD..:N|
|00000cd0| 07 05 58 3b 58 07 19 84 | 50 43 4b 55 25 85 43 50 |..X;X...|PCKU%.CP|
|00000ce0| 52 4f 50 3b 3b 67 65 74 | 20 70 72 6f 70 62 07 0e |ROP;;get| propb..|
|00000cf0| 33 3b 3b 6e 65 78 74 20 | 6f 6e 65 6c 07 10 29 3e |3;;next |onel..)>|
|00000d00| 08 24 3b 3b 61 74 20 65 | 6e 64 3f 76 07 13 44 84 |.$;;at e|nd?v..D.|
|00000d10| 50 43 4b 31 3b 3b 6e 6f | 2d 63 79 63 6c 65 80 07 |PCK1;;no|-cycle..|
|00000d20| 13 25 3e 08 00 3b 3b 72 | 65 73 65 74 20 74 6f 20 |.%>..;;r|eset to |
|00000d30| 30 8a 07 09 46 84 50 43 | 4b 31 94 07 05 58 3b 9e |0...F.PC|K1...X;.|
|00000d40| 07 1d 58 3b 48 61 6e 64 | 6c 65 20 42 75 79 69 6e |..X;Hand|le Buyin|
|00000d50| 67 20 61 20 50 72 6f 70 | 65 72 74 79 a8 07 05 58 |g a Prop|erty...X|
|00000d60| 3b b2 07 23 86 42 55 59 | 5f 49 54 07 86 50 52 49 |;..#.BUY|_IT..PRI|
|00000d70| 4e 54 20 88 42 55 59 5f | 4d 45 53 53 3b 3b 27 42 |NT .BUY_|MESS;;'B|
|00000d80| 75 79 3f 27 bc 07 12 20 | 85 47 45 54 59 4e 3b 3b |uy?'... |.GETYN;;|
|00000d90| 63 68 6f 69 63 65 c6 07 | 0e 46 84 42 55 59 31 3b |choice..|.F.BUY1;|
|00000da0| 3b 79 65 73 d0 07 13 3a | 3b 3b 64 6f 6e 27 74 20 |;yes...:|;;don't |
|00000db0| 77 61 6e 74 20 74 6f da | 07 05 58 3b e4 07 1a 84 |want to.|..X;....|
|00000dc0| 42 55 59 31 51 84 50 4e | 55 4d 3b 3b 77 68 69 63 |BUY1Q.PN|UM;;whic|
|00000dd0| 68 20 70 6c 79 72 ee 07 | 15 25 85 43 50 52 4f 50 |h plyr..|.%.CPROP|
|00000de0| 3b 3b 63 75 72 2e 20 70 | 72 6f 70 f8 07 09 54 3f |;;cur. p|rop...T?|
|00000df0| 3b 3b 78 32 02 08 04 3e | 0c 08 19 51 84 43 41 53 |;;x2...>|...Q.CAS|
|00000e00| 48 12 08 01 39 3b 3b 65 | 6e 75 66 20 43 41 53 48 |H...9;;e|nuf CASH|
|00000e10| 3f 16 08 10 48 86 42 55 | 59 5f 4f 4b 3b 3b 79 65 |?...H.BU|Y_OK;;ye|
|00000e20| 73 20 08 1b 51 84 43 41 | 53 48 39 3b 3b 63 68 65 |s ..Q.CA|SH9;;che|
|00000e30| 63 6b 20 6c 6f 77 20 62 | 79 74 65 73 2a 08 0a 52 |ck low b|ytes*..R|
|00000e40| 84 43 4f 53 54 38 34 08 | 16 44 87 4e 4f 5f 43 41 |.COST84.|.D.NO_CA|
|00000e50| 53 48 3b 3b 6e 6f 74 20 | 65 6e 75 66 3e 08 11 46 |SH;;not |enuf>..F|
|00000e60| 87 4e 4f 5f 43 41 53 48 | 3b 3b 20 20 22 48 08 1a |.NO_CASH|;; "H..|
|00000e70| 86 42 55 59 5f 4f 4b 51 | 84 50 4e 55 4d 3b 3b 73 |.BUY_OKQ|.PNUM;;s|
|00000e80| 68 6f 77 20 77 68 6f 52 | 08 16 50 83 57 48 4f 38 |how whoR|..P.WHO8|
|00000e90| 3b 3b 6e 6f 77 20 6f 77 | 6e 73 20 69 74 5c 08 04 |;;now ow|ns it\..|
|00000ea0| 43 66 08 11 3e 3b 3b 73 | 68 6f 77 20 69 74 20 68 |Cf..>;;s|how it h|
|00000eb0| 61 73 70 08 1c 23 86 52 | 45 46 54 41 42 39 3b 3b |asp..#.R|EFTAB9;;|
|00000ec0| 62 65 65 6e 20 70 75 72 | 63 68 61 73 65 64 7a 08 |been pur|chasedz.|
|00000ed0| 15 51 84 43 4f 53 54 38 | 3b 3b 67 65 74 20 70 72 |.Q.COST8|;;get pr|
|00000ee0| 69 63 65 84 08 13 25 84 | 50 4e 55 4d 3b 3b 73 75 |ice...%.|PNUM;;su|
|00000ef0| 62 74 72 61 63 74 8e 08 | 13 20 83 53 55 42 3b 3b |btract..|. .SUB;;|
|00000f00| 66 72 6f 6d 20 43 41 53 | 48 98 08 24 84 54 5f 4f |from CAS|H..$.T_O|
|00000f10| 4b 07 86 50 52 49 4e 54 | 20 87 54 52 41 4e 5f 4f |K..PRINT| .TRAN_O|
|00000f20| 4b 3b 3b 27 43 6f 6d 70 | 6c 74 65 64 27 a2 08 19 |K;;'Comp|lted'...|
|00000f30| 20 87 57 41 49 54 4b 45 | 59 3b 3b 77 61 69 74 20 | .WAITKE|Y;;wait |
|00000f40| 38 20 73 65 63 73 ac 08 | 13 51 3e 08 00 3b 3b 73 |8 secs..|.Q>..;;s|
|00000f50| 65 74 20 70 61 79 20 74 | 6f b6 08 15 50 85 52 46 |et pay t|o...P.RF|
|00000f60| 4c 41 47 3b 3b 66 6c 61 | 67 20 26 20 68 69 c0 08 |LAG;;fla|g & hi..|
|00000f70| 1b 50 86 41 4d 4f 55 4e | 54 12 08 01 3b 3b 62 79 |.P.AMOUN|T...;;by|
|00000f80| 74 65 20 6f 66 20 70 61 | 79 ca 08 0c 3a 3b 3b 61 |te of pa|y...:;;a|
|00000f90| 6d 6f 75 6e 74 d4 08 05 | 58 3b de 08 12 58 3b 53 |mount...|X;...X;S|
|00000fa0| 6f 72 72 79 20 6e 6f 20 | 43 41 53 48 e8 08 05 58 |orry no |CASH...X|
|00000fb0| 3b f2 08 14 87 4e 4f 5f | 43 41 53 48 51 3e 34 85 |;....NO_|CASHQ>4.|
|00000fc0| 4e 43 41 53 48 fc 08 0c | 25 3e 35 85 4e 43 41 53 |NCASH...|%>5.NCAS|
|00000fd0| 48 06 09 0b 20 86 45 50 | 52 49 4e 54 10 09 19 20 |H... .EP|RINT... |
|00000fe0| 87 57 41 49 54 4b 45 59 | 3b 3b 77 61 69 74 20 38 |.WAITKEY|;;wait 8|
|00000ff0| 20 73 65 63 73 1a 09 07 | 51 3e 08 00 24 09 04 3a | secs...|Q>..$..:|
|00001000| 2e 09 05 58 3b 38 09 14 | 58 3b 53 65 6c 6c 20 61 |...X;8..|X;Sell a|
|00001010| 20 50 72 6f 70 65 72 74 | 79 42 09 05 58 3b 4c 09 | Propert|yB..X;L.|
|00001020| 1d 89 57 41 4e 54 5f 53 | 41 4c 45 20 88 48 41 56 |..WANT_S|ALE .HAV|
|00001030| 45 5f 41 4e 59 3b 3b 61 | 6e 79 3f 56 09 15 49 86 |E_ANY;;a|ny?V..I.|
|00001040| 50 5f 53 41 4c 45 3b 3b | 79 65 73 20 69 66 20 2b |P_SALE;;|yes if +|
|00001050| 60 09 14 27 85 50 50 52 | 4f 50 3b 3b 24 46 46 20 |`..'.PPR|OP;;$FF |
|00001060| 69 66 20 2d 6a 09 04 3a | 74 09 1e 86 50 5f 53 41 |if -j..:|t...P_SA|
|00001070| 4c 45 51 87 44 49 53 46 | 4c 41 47 3b 3b 64 69 73 |LEQ.DISF|LAG;;dis|
|00001080| 61 73 74 65 72 3f 7e 09 | 16 48 87 47 4f 5f 53 45 |aster?~.|.H.GO_SE|
|00001090| 4c 4c 3b 3b 79 65 73 2d | 73 65 6c 6c 88 09 1c 07 |LL;;yes-|sell....|
|000010a0| 86 50 52 49 4e 54 20 88 | 53 45 4c 4c 5f 54 58 54 |.PRINT .|SELL_TXT|
|000010b0| 3b 3b 63 68 6f 69 63 65 | 92 09 19 20 85 47 45 54 |;;choice|... .GET|
|000010c0| 59 4e 3b 3b 69 66 20 6e | 6f 74 20 66 6f 72 63 65 |YN;;if n|ot force|
|000010d0| 64 9c 09 12 46 87 47 4f | 5f 53 45 4c 4c 3b 3b 73 |d...F.GO|_SELL;;s|
|000010e0| 65 6c 6c a6 09 08 83 53 | 4c 56 3a b0 09 05 58 3b |ell....S|LV:...X;|
|000010f0| ba 09 20 87 47 4f 5f 53 | 45 4c 4c 20 89 50 49 43 |.. .GO_S|ELL .PIC|
|00001100| 4b 5f 50 52 4f 50 3b 3b | 70 69 63 6b 20 6f 6e 65 |K_PROP;;|pick one|
|00001110| c4 09 12 51 85 50 50 52 | 4f 50 3b 3b 70 69 63 6b |...Q.PPR|OP;;pick|
|00001120| 65 64 ce 09 18 47 83 53 | 4c 56 3b 3b 6e 6f 6e 65 |ed...G.S|LV;;none|
|00001130| 20 61 76 61 69 6c 61 62 | 6c 65 d8 09 17 48 87 53 | availab|le...H.S|
|00001140| 45 4c 4c 5f 49 54 3b 3b | 69 66 20 24 46 46 2e 20 |ELL_IT;;|if $FF. |
|00001150| 30 e2 09 1a 51 87 44 49 | 53 46 4c 41 47 3b 3b 3d |0...Q.DI|SFLAG;;=|
|00001160| 6e 6f 6e 65 20 70 69 63 | 6b 65 64 ec 09 19 48 87 |none pic|ked...H.|
|00001170| 47 4f 5f 53 45 4c 4c 3b | 3b 66 6f 72 63 65 64 20 |GO_SELL;|;forced |
|00001180| 73 65 6c 6c f6 09 04 3a | 00 0a 05 58 3b 0a 0a 18 |sell...:|...X;...|
|00001190| 87 53 45 4c 4c 5f 49 54 | 3e 3b 3b 77 68 69 63 68 |.SELL_IT|>;;which|
|000011a0| 20 70 72 6f 70 14 0a 18 | 22 86 52 45 46 54 41 42 | prop...|".REFTAB|
|000011b0| 39 3b 3b 73 65 6c 6c 20 | 69 74 20 69 6e 1e 0a 15 |9;;sell |it in...|
|000011c0| 51 3e 06 ff 3b 3b 74 61 | 62 6c 65 2c 20 24 46 46 |Q>..;;ta|ble, $FF|
|000011d0| 20 3d 28 0a 16 50 83 57 | 48 4f 39 3b 3b 6e 6f 20 | =(..P.W|HO9;;no |
|000011e0| 6f 6e 65 20 6f 77 6e 73 | 32 0a 15 51 86 52 41 4e |one owns|2..Q.RAN|
|000011f0| 54 41 42 39 3b 3b 61 6e | 6f 74 68 65 72 3c 0a 20 |TAB9;;an|other<. |
|00001200| 58 3b 20 20 20 73 74 61 | 20 63 6f 73 74 2c 58 20 |X; sta| cost,X |
|00001210| 20 3b 77 61 79 20 74 6f | 20 6d 61 6b 65 46 0a 13 | ;way to| makeF..|
|00001220| 25 84 50 4e 55 4d 3b 3b | 74 68 65 20 67 61 6d 65 |%.PNUM;;|the game|
|00001230| 50 0a 17 20 83 41 44 44 | 3b 3b 61 64 64 20 24 20 |P.. .ADD|;;add $ |
|00001240| 74 6f 20 43 41 53 48 5a | 0a 0f 21 84 54 5f 4f 4b |to CASHZ|..!.T_OK|
|00001250| 3b 3b 64 6f 6e 65 64 0a | 05 58 3b 6e 0a 17 58 3b |;;doned.|.X;n..X;|
|00001260| 4f 77 6e 20 61 6e 79 20 | 50 72 6f 70 65 72 74 69 |Own any |Properti|
|00001270| 65 73 78 0a 19 58 3b 59 | 20 68 61 73 20 70 72 6f |esx..X;Y| has pro|
|00001280| 70 65 72 79 20 23 20 6f | 72 20 30 82 0a 1e 58 3b |pery # o|r 0...X;|
|00001290| 2b 20 69 66 20 70 72 6f | 70 20 6f 77 6e 65 64 2c |+ if pro|p owned,|
|000012a0| 20 2d 20 69 66 20 6e 6f | 74 8c 0a 05 58 3b 96 0a | - if no|t...X;..|
|000012b0| 1c 88 48 41 56 45 5f 41 | 4e 59 25 3e 08 23 3b 3b |..HAVE_A|NY%>.#;;|
|000012c0| 63 68 65 63 6b 20 6c 69 | 73 74 a0 0a 14 51 84 50 |check li|st...Q.P|
|000012d0| 4e 55 4d 3b 3b 67 65 74 | 20 6f 75 72 20 23 aa 0a |NUM;;get| our #..|
|000012e0| 19 84 48 41 56 31 52 83 | 57 48 4f 38 3b 3b 69 6e |..HAV1R.|WHO8;;in|
|000012f0| 20 74 61 62 6c 65 3f b4 | 0a 0e 46 84 48 41 56 32 | table?.|..F.HAV2|
|00001300| 3b 3b 79 65 73 be 0a 04 | 31 c8 0a 09 49 84 48 41 |;;yes...|1...I.HA|
|00001310| 56 31 d2 0a 09 84 48 41 | 56 32 3a dc 0a 05 58 3b |V1....HA|V2:...X;|
|00001320| e6 0a 1a 58 3b 48 61 6e | 64 6c 65 20 4c 55 43 4b |...X;Han|dle LUCK|
|00001330| 20 6c 6f 63 61 74 69 6f | 6e 73 f0 0a 05 58 3b fa | locatio|ns...X;.|
|00001340| 0a 19 87 44 4f 5f 4c 55 | 43 4b 24 84 50 4e 55 4d |...DO_LU|CK$.PNUM|
|00001350| 3b 3b 70 6c 79 72 20 23 | 04 0b 17 51 85 50 54 48 |;;plyr #|...Q.PTH|
|00001360| 50 30 39 3b 3b 63 75 72 | 20 70 72 6f 70 20 23 0e |P09;;cur| prop #.|
|00001370| 0b 13 52 3e 08 20 3b 3b | 63 61 70 20 67 61 69 6e |..R>. ;;|cap gain|
|00001380| 73 3f 18 0b 10 48 87 44 | 4f 5f 52 4c 55 4b 3b 3b |s?...H.D|O_RLUK;;|
|00001390| 6e 6f 22 0b 19 51 3e 34 | 86 43 41 50 47 4e 53 3b |no"..Q>4|.CAPGNS;|
|000013a0| 3b 43 47 20 72 6f 75 74 | 69 6e 65 2c 0b 0c 50 84 |;CG rout|ine,..P.|
|000013b0| 4c 4a 4d 50 12 08 01 36 | 0b 0d 51 3e 35 86 43 41 |LJMP...6|..Q>5.CA|
|000013c0| 50 47 4e 53 40 0b 0c 50 | 84 4c 4a 4d 50 12 08 02 |PGNS@..P|.LJMP...|
|000013d0| 4a 0b 12 51 3e 06 7d 3b | 3b 63 6c 65 61 72 20 73 |J..Q>.};|;clear s|
|000013e0| 63 6e 54 0b 09 20 84 45 | 50 55 54 5e 0b 18 51 3e |cnT.. .E|PUT^..Q>|
|000013f0| 34 83 50 33 32 3b 3b 43 | 47 20 70 72 6f 70 20 6e |4.P32;;C|G prop n|
|00001400| 61 6d 65 68 0b 0a 25 3e | 35 83 50 33 32 72 0b 0a |ameh..%>|5.P32r..|
|00001410| 21 85 44 4f 5f 43 47 7c | 0b 1f 87 44 4f 5f 52 4c |!.DO_CG||...DO_RL|
|00001420| 55 4b 24 86 52 41 4e 44 | 4f 4d 3b 3b 67 65 74 20 |UK$.RAND|OM;;get |
|00001430| 72 61 6e 64 6f 6d 86 0b | 0d 28 3e 08 06 3b 3b 4c |random..|.(>..;;L|
|00001440| 55 43 4b 90 0b 0c 45 87 | 44 4f 5f 4c 55 43 4b 9a |UCK...E.|DO_LUCK.|
|00001450| 0b 15 51 85 4c 55 43 4b | 4c 39 3b 3b 67 65 74 20 |..Q.LUCK|L9;;get |
|00001460| 4c 55 43 4b a4 0b 15 50 | 84 4c 4a 4d 50 12 08 01 |LUCK...P|.LJMP...|
|00001470| 3b 3b 72 6f 75 74 69 6e | 65 ae 0b 0b 51 85 4c 55 |;;routin|e...Q.LU|
|00001480| 43 4b 48 39 b8 0b 0c 50 | 84 4c 4a 4d 50 12 08 02 |CKH9...P|.LJMP...|
|00001490| c2 0b 12 51 3e 06 7d 3b | 3b 63 6c 65 61 72 20 73 |...Q>.};|;clear s|
|000014a0| 63 6e cc 0b 09 20 84 45 | 50 55 54 d6 0b 15 51 3e |cn... .E|PUT...Q>|
|000014b0| 34 83 50 33 30 3b 3b 27 | 4c 55 43 4b 20 53 71 27 |4.P30;;'|LUCK Sq'|
|000014c0| e0 0b 0a 25 3e 35 83 50 | 33 30 ea 0b 20 85 44 4f |...%>5.P|30.. .DO|
|000014d0| 5f 43 47 20 87 49 4e 56 | 50 52 4f 50 3b 3b 69 6e |_CG .INV|PROP;;in|
|000014e0| 76 65 72 73 65 20 6e 61 | 6d 65 f4 0b 1a 07 86 50 |verse na|me.....P|
|000014f0| 52 49 4e 54 20 82 59 4c | 3b 3b 27 59 6f 75 20 6c |RINT .YL|;;'You l|
|00001500| 6f 73 65 27 fe 0b 1b 84 | 4c 4a 4d 50 20 05 ff ff |ose'....|LJMP ...|
|00001510| 3b 3b 67 6f 20 74 6f 20 | 72 6f 75 74 69 6e 65 08 |;;go to |routine.|
|00001520| 0c 0f 21 84 54 5f 4f 4b | 3b 3b 64 6f 6e 65 12 0c |..!.T_OK|;;done..|
|00001530| 05 58 3b 1c 0c 18 58 3b | 2a 2a 20 4c 75 63 6b 20 |.X;...X;|** Luck |
|00001540| 52 6f 75 74 69 6e 65 73 | 20 2a 2a 26 0c 05 58 3b |Routines| **&..X;|
|00001550| 30 0c 1f 58 3b 57 69 6e | 20 31 30 47 20 66 72 65 |0..X;Win| 10G fre|
|00001560| 65 20 28 57 4f 57 20 66 | 6f 72 20 4d 45 3f 29 3a |e (WOW f|or ME?):|
|00001570| 0c 05 58 3b 44 0c 0a 82 | 47 31 51 3e 08 0a 4e 0c |..X;D...|G1Q>..N.|
|00001580| 09 48 84 47 32 2e 31 58 | 0c 05 58 3b 62 0c 11 58 |.H.G2.1X|..X;b..X|
|00001590| 3b 57 69 6e 20 31 35 47 | 20 66 72 65 65 6c 0c 05 |;Win 15G| freel..|
|000015a0| 58 3b 76 0c 12 82 47 32 | 51 3e 08 0f 3b 3b 67 69 |X;v...G2|Q>..;;gi|
|000015b0| 76 65 20 24 80 0c 18 84 | 47 32 2e 31 25 84 50 4e |ve $....|G2.1%.PN|
|000015c0| 55 4d 3b 3b 74 6f 20 77 | 68 6f 6d 3f 8a 0c 0a 50 |UM;;to w|hom?...P|
|000015d0| 85 56 41 4c 55 45 94 0c | 15 20 83 41 44 44 3b 3b |.VALUE..|. .ADD;;|
|000015e0| 61 64 64 20 74 6f 20 43 | 41 53 48 9e 0c 17 20 82 |add to C|ASH... .|
|000015f0| 50 47 3b 3b 4c 75 63 6b | 20 69 73 20 27 67 6f 6f |PG;;Luck| is 'goo|
|00001600| 64 27 a8 0c 19 07 86 50 | 52 49 4e 54 20 82 59 57 |d'.....P|RINT .YW|
|00001610| 3b 3b 27 59 6f 75 20 77 | 69 6e 27 b2 0c 12 51 85 |;;'You w|in'...Q.|
|00001620| 56 41 4c 55 45 3b 3b 27 | 24 6e 6e 47 27 bc 0c 07 |VALUE;;'|$nnG'...|
|00001630| 24 3e 08 00 c6 0c 18 21 | 85 50 52 4e 55 4d 3b 3b |$>.....!|.PRNUM;;|
|00001640| 70 72 69 6e 74 20 26 20 | 65 78 69 74 d0 0c 21 82 |print & |exit..!.|
|00001650| 50 47 07 86 50 52 49 4e | 54 20 84 47 4f 4f 44 3b |PG..PRIN|T .GOOD;|
|00001660| 3b 70 72 69 6e 74 20 27 | 67 6f 6f 64 27 da 0c 04 |;print '|good'...|
|00001670| 3a e4 0c 05 58 3b ee 0c | 1b 58 3b 47 65 74 20 61 |:...X;..|.X;Get a|
|00001680| 20 46 52 45 45 20 49 6d | 70 72 6f 76 65 6d 65 6e | FREE Im|provemen|
|00001690| 74 f8 0c 05 58 3b 02 0d | 1a 82 47 33 20 86 47 52 |t...X;..|..G3 .GR|
|000016a0| 50 52 4f 50 3b 3b 67 65 | 74 20 61 20 70 72 6f 70 |PROP;;ge|t a prop|
|000016b0| 0c 0d 10 47 82 47 31 3b | 3b 6e 6f 6e 65 20 73 6f |...G.G1;|;none so|
|000016c0| 16 0d 0c 3e 3b 3b 67 69 | 76 65 20 24 20 0d 14 51 |...>;;gi|ve $ ..Q|
|000016d0| 83 49 4d 50 39 3b 3b 67 | 65 74 20 6c 65 76 65 6c |.IMP9;;g|et level|
|000016e0| 2a 0d 10 52 3e 08 03 3b | 3b 61 74 20 6d 61 78 3f |*..R>..;|;at max?|
|000016f0| 34 0d 13 45 82 47 31 3b | 3b 79 75 70 20 67 69 76 |4..E.G1;|;yup giv|
|00001700| 65 20 24 3e 0d 16 23 83 | 49 4d 50 39 3b 3b 69 6e |e $>..#.|IMP9;;in|
|00001710| 63 72 65 61 73 65 20 69 | 74 48 0d 13 51 84 52 45 |crease i|tH..Q.RE|
|00001720| 4e 54 39 3b 3b 67 65 74 | 20 66 65 65 52 0d 09 54 |NT9;;get| feeR..T|
|00001730| 3f 3b 3b 78 32 5c 0d 13 | 50 84 52 45 4e 54 39 3b |?;;x2\..|P.RENT9;|
|00001740| 3b 73 61 76 65 20 69 74 | 66 0d 17 26 85 54 50 52 |;save it|f..&.TPR|
|00001750| 4f 50 3b 3b 73 61 76 65 | 20 70 72 6f 70 20 23 70 |OP;;save| prop #p|
|00001760| 0d 0f 20 82 50 47 3b 3b | 27 67 6f 6f 64 27 7a 0d |.. .PG;;|'good'z.|
|00001770| 19 07 86 50 52 49 4e 54 | 20 82 59 57 3b 3b 27 59 |...PRINT| .YW;;'Y|
|00001780| 6f 75 20 77 69 6e 27 84 | 0d 1e 07 86 50 52 49 4e |ou win'.|....PRIN|
|00001790| 54 20 86 41 4e 5f 49 4d | 50 3b 3b 27 69 6d 70 72 |T .AN_IM|P;;'impr|
|000017a0| 6f 76 2e 2e 27 8e 0d 16 | 51 85 54 50 52 4f 50 3b |ov..'...|Q.TPROP;|
|000017b0| 3b 67 65 74 20 70 72 6f | 70 20 23 98 0d 09 54 3f |;get pro|p #...T?|
|000017c0| 3b 3b 78 32 a2 0d 0e 3e | 3b 3b 67 65 74 20 6e 61 |;;x2...>|;;get na|
|000017d0| 6d 65 ac 0d 0f 51 86 50 | 52 50 54 41 42 12 08 01 |me...Q.P|RPTAB...|
|000017e0| 39 b6 0d 04 3f c0 0d 0c | 51 86 50 52 50 54 41 42 |9...?...|Q.PRPTAB|
|000017f0| 39 ca 0d 19 21 86 45 50 | 52 49 4e 54 3b 3b 70 72 |9...!.EP|RINT;;pr|
|00001800| 69 6e 74 20 26 20 65 78 | 69 74 d4 0d 05 58 3b de |int & ex|it...X;.|
|00001810| 0d 0e 58 3b 4c 6f 6f 73 | 65 20 31 30 47 e8 0d 05 |..X;Loos|e 10G...|
|00001820| 58 3b f2 0d 16 82 42 31 | 20 82 50 42 3b 3b 27 42 |X;....B1| .PB;;'B|
|00001830| 61 64 20 6c 75 63 6b 27 | fc 0d 1a 07 86 50 52 49 |ad luck'|.....PRI|
|00001840| 4e 54 20 82 59 44 3b 3b | 27 59 6f 75 20 6c 6f 73 |NT .YD;;|'You los|
|00001850| 65 27 06 0e 0f 51 3e 08 | 0a 3b 3b 27 24 31 30 47 |e'...Q>.|.;;'$10G|
|00001860| 27 10 0e 18 83 42 31 41 | 50 86 41 4d 4f 55 4e 54 |'....B1A|P.AMOUNT|
|00001870| 3b 3b 6c 6f 77 20 61 6d | 74 1a 0e 11 24 3e 08 00 |;;low am|t...$>..|
|00001880| 3b 3b 68 69 67 68 20 61 | 6d 74 24 0e 13 20 85 50 |;;high a|mt$.. .P|
|00001890| 52 4e 55 4d 3b 3b 73 68 | 6f 77 20 69 74 2e 0e 17 |RNUM;;sh|ow it...|
|000018a0| 23 85 52 46 4c 41 47 3b | 3b 70 61 79 20 74 6f 20 |#.RFLAG;|;pay to |
|000018b0| 62 61 6e 6b 38 0e 1b 20 | 88 4a 55 53 54 5f 50 41 |bank8.. |.JUST_PA|
|000018c0| 59 3b 3b 74 61 6b 65 20 | 69 74 20 61 77 61 79 42 |Y;;take |it awayB|
|000018d0| 0e 11 37 3b 3b 70 75 6c | 6c 20 72 65 74 75 72 6e |..7;;pul|l return|
|000018e0| 4c 0e 04 37 56 0e 0a 3a | 3b 3b 65 78 69 74 60 0e |L..7V..:|;;exit`.|
|000018f0| 05 58 3b 6a 0e 19 82 50 | 42 51 3e 34 83 42 41 44 |.X;j...P|BQ>4.BAD|
|00001900| 3b 3b 70 72 69 6e 74 20 | 27 62 61 64 74 0e 11 25 |;;print |'badt..%|
|00001910| 3e 35 83 42 41 44 3b 3b | 6c 75 63 6b 27 7e 0e 0b |>5.BAD;;|luck'~..|
|00001920| 21 86 45 50 52 49 4e 54 | 88 0e 05 58 3b 92 0e 1e |!.EPRINT|...X;...|
|00001930| 58 3b 43 75 74 20 74 68 | 65 20 52 65 6e 74 28 46 |X;Cut th|e Rent(F|
|00001940| 65 65 29 20 69 6e 20 68 | 61 6c 66 9c 0e 05 58 3b |ee) in h|alf...X;|
|00001950| a6 0e 1b 82 42 32 20 86 | 47 52 50 52 4f 50 3b 3b |....B2 .|GRPROP;;|
|00001960| 67 72 61 62 20 70 72 6f | 70 20 23 b0 0e 0d 47 82 |grab pro|p #...G.|
|00001970| 42 31 3b 3b 6e 6f 6e 65 | ba 0e 04 3e c4 0e 14 51 |B1;;none|...>...Q|
|00001980| 84 52 45 4e 54 39 3b 3b | 67 65 74 20 72 65 6e 74 |.RENT9;;|get rent|
|00001990| ce 0e 13 52 3e 08 02 3b | 3b 64 6f 6e 27 74 20 66 |...R>..;|;don't f|
|000019a0| 61 6c 6c d8 0e 10 44 82 | 42 31 3b 3b 62 65 6c 6f |all...D.|B1;;belo|
|000019b0| 77 20 31 e2 0e 0c 56 3f | 3b 3b 64 69 76 20 32 ec |w 1...V?|;;div 2.|
|000019c0| 0e 13 50 84 52 45 4e 54 | 39 3b 3b 73 61 76 65 20 |..P.RENT|9;;save |
|000019d0| 69 74 f6 0e 15 51 3e 34 | 82 48 52 3b 3b 27 31 2f |it...Q>4|.HR;;'1/|
|000019e0| 32 20 76 61 6c 75 65 00 | 0f 18 25 3e 35 82 48 52 |2 value.|..%>5.HR|
|000019f0| 3b 3b 27 6f 6e 20 69 6d | 70 72 6f 76 2e 2e 27 0a |;;'on im|prov..'.|
|00001a00| 0f 05 58 3b 14 0f 13 82 | 53 42 35 3b 3b 73 61 76 |..X;....|SB5;;sav|
|00001a10| 65 20 68 69 2f 6c 6f 1e | 0f 0e 27 81 4c 3b 3b 6f |e hi/lo.|..'.L;;o|
|00001a20| 66 20 6d 73 67 28 0f 13 | 20 82 50 42 3b 3b 27 62 |f msg(..| .PB;;'b|
|00001a30| 61 64 20 6c 75 63 6b 27 | 32 0f 14 20 85 50 55 54 |ad luck'|2.. .PUT|
|00001a40| 43 52 3b 3b 6c 69 6e 65 | 66 65 65 64 3c 0f 0d 37 |CR;;line|feed<..7|
|00001a50| 3b 3b 67 65 74 20 6d 73 | 67 46 0f 06 25 81 4c 50 |;;get ms|gF..%.LP|
|00001a60| 0f 15 20 86 45 50 52 49 | 4e 54 3b 3b 70 72 69 6e |.. .EPRI|NT;;prin|
|00001a70| 74 20 69 74 5a 0f 17 51 | 85 50 50 52 4f 50 3b 3b |t itZ..Q|.PPROP;;|
|00001a80| 70 69 63 6b 65 64 20 70 | 72 6f 70 64 0f 05 54 3f |picked p|ropd..T?|
|00001a90| 6e 0f 0e 3e 3b 3b 67 65 | 74 20 6e 61 6d 65 78 0f |n..>;;ge|t namex.|
|00001aa0| 0f 51 86 50 52 50 54 41 | 42 12 08 01 39 82 0f 04 |.Q.PRPTA|B...9...|
|00001ab0| 3f 8c 0f 0c 51 86 50 52 | 50 54 41 42 39 96 0f 17 |?...Q.PR|PTAB9...|
|00001ac0| 21 86 45 50 52 49 4e 54 | 3b 3b 70 72 69 6e 74 20 |!.EPRINT|;;print |
|00001ad0| 6e 61 6d 65 a0 0f 05 58 | 3b aa 0f 22 58 3b 48 61 |name...X|;.."X;Ha|
|00001ae0| 6c 76 65 20 74 68 65 20 | 56 61 6c 75 65 20 6f 66 |lve the |Value of|
|00001af0| 20 61 20 50 72 6f 70 65 | 72 74 79 b4 0f 05 58 3b | a Prope|rty...X;|
|00001b00| be 0f 1d 82 42 33 20 86 | 47 52 50 52 4f 50 3b 3b |....B3 .|GRPROP;;|
|00001b10| 67 72 61 62 20 61 20 70 | 72 6f 70 20 23 c8 0f 0d |grab a p|rop #...|
|00001b20| 47 82 42 31 3b 3b 6e 6f | 6e 65 d2 0f 04 3e dc 0f |G.B1;;no|ne...>..|
|00001b30| 15 51 84 43 4f 53 54 39 | 3b 3b 67 65 74 20 70 72 |.Q.COST9|;;get pr|
|00001b40| 69 63 65 e6 0f 11 52 3e | 08 02 3b 3b 6e 6f 74 20 |ice...R>|..;;not |
|00001b50| 4c 54 20 31 f0 0f 07 44 | 82 42 31 fa 0f 0f 56 3f |LT 1...D|.B1...V?|
|00001b60| 3b 3b 64 69 76 20 62 79 | 20 32 04 10 13 50 84 43 |;;div by| 2...P.C|
|00001b70| 4f 53 54 39 3b 3b 73 61 | 76 65 20 69 74 0e 10 16 |OST9;;sa|ve it...|
|00001b80| 51 3e 34 82 48 56 3b 3b | 27 31 2f 32 20 76 61 6c |Q>4.HV;;|'1/2 val|
|00001b90| 75 65 27 18 10 09 25 3e | 35 82 48 56 22 10 11 48 |ue'...%>|5.HV"..H|
|00001ba0| 82 53 42 3b 3b 70 72 69 | 6e 74 20 69 74 2c 10 05 |.SB;;pri|nt it,..|
|00001bb0| 58 3b 36 10 18 58 3b 4c | 75 63 6b 20 61 64 64 72 |X;6..X;L|uck addr|
|00001bc0| 65 73 73 20 74 61 62 6c | 65 73 40 10 1d 58 3b 61 |ess tabl|es@..X;a|
|00001bd0| 6c 74 65 72 6e 61 74 65 | 20 66 6f 72 20 72 61 6e |lternate| for ran|
|00001be0| 64 6f 6d 6e 65 73 73 4a | 10 05 58 3b 54 10 18 85 |domnessJ|..X;T...|
|00001bf0| 4c 55 43 4b 4c 0b 34 82 | 42 31 3d 34 82 47 31 3d |LUCKL.4.|B1=4.G1=|
|00001c00| 34 82 42 32 5e 10 12 0b | 34 82 47 32 3d 34 82 42 |4.B2^...|4.G2=4.B|
|00001c10| 33 3d 34 82 47 33 68 10 | 18 85 4c 55 43 4b 48 0b |3=4.G3h.|..LUCKH.|
|00001c20| 35 82 42 31 3d 35 82 47 | 31 3d 35 82 42 32 72 10 |5.B1=5.G|1=5.B2r.|
|00001c30| 12 0b 35 82 47 32 3d 35 | 82 42 33 3d 35 82 47 33 |..5.G2=5|.B3=5.G3|
|00001c40| 7c 10 05 58 3b 86 10 0e | 58 3b 4c 75 63 6b 20 54 ||..X;...|X;Luck T|
|00001c50| 65 78 74 90 10 05 58 3b | 9a 10 19 84 47 4f 4f 44 |ext...X;|....GOOD|
|00001c60| 0b 41 85 47 6f 6f 64 2e | 41 3d 83 45 4f 4c 3d 08 |.A.Good.|A=.EOL=.|
|00001c70| 00 a4 10 17 83 42 41 44 | 0b 41 84 42 61 64 2e 41 |.....BAD|.A.Bad.A|
|00001c80| 3d 83 45 4f 4c 3d 08 00 | ae 10 1e 82 59 4c 0b 83 |=.EOL=..|....YL..|
|00001c90| 45 4f 4c 3d 83 45 4f 4c | 3d 41 8a 59 6f 75 72 20 |EOL=.EOL|=A.Your |
|00001ca0| 6c 75 63 6b 20 41 b8 10 | 10 0b 41 86 77 61 73 20 |luck A..|..A.was |
|00001cb0| 2d 20 41 3d 08 00 c2 10 | 15 82 59 57 0b 41 88 59 |- A=....|..YW.A.Y|
|00001cc0| 6f 75 20 77 69 6e 20 41 | 3d 08 00 cc 10 16 82 59 |ou win A|=......Y|
|00001cd0| 44 0b 41 89 59 6f 75 20 | 6c 6f 73 65 20 41 3d 08 |D.A.You |lose A=.|
|00001ce0| 00 d6 10 1d 82 48 52 0b | 41 8b 31 2f 32 20 52 65 |.....HR.|A.1/2 Re|
|00001cf0| 6e 74 20 6f 6e 41 3d 83 | 45 4f 4c 3d 08 00 e0 10 |nt onA=.|EOL=....|
|00001d00| 1f 82 48 56 0b 41 8d 31 | 2f 32 20 56 61 6c 75 65 |..HV.A.1|/2 Value|
|00001d10| 20 6f 6e 20 41 3d 83 45 | 4f 4c 3d 08 00 ea 10 1d | on A=.E|OL=.....|
|00001d20| 86 41 4e 5f 49 4d 50 0b | 41 8f 61 6e 20 69 6d 70 |.AN_IMP.|A.an imp|
|00001d30| 72 6f 76 65 6d 65 6e 74 | 20 41 f4 10 11 0b 41 82 |rovement| A....A.|
|00001d40| 6f 6e 41 3d 83 45 4f 4c | 3d 08 00 fe 10 05 58 3b |onA=.EOL|=.....X;|
|00001d50| 08 11 1a 58 3b 47 65 74 | 20 61 20 52 61 6e 64 6f |...X;Get| a Rando|
|00001d60| 6d 20 50 72 6f 70 65 72 | 74 79 12 11 22 58 3b 57 |m Proper|ty.."X;W|
|00001d70| 48 4f 20 3d 6f 77 6e 65 | 72 73 2c 20 47 52 54 41 |HO =owne|rs, GRTA|
|00001d80| 42 20 63 75 72 20 70 6c | 61 79 65 72 1c 11 05 58 |B cur pl|ayer...X|
|00001d90| 3b 26 11 21 86 47 52 50 | 52 4f 50 20 88 48 41 56 |;&.!.GRP|ROP .HAV|
|00001da0| 45 5f 41 4e 59 3b 3b 61 | 6e 79 20 74 6f 20 67 65 |E_ANY;;a|ny to ge|
|00001db0| 74 3f 30 11 14 49 83 47 | 52 32 3b 3b 79 65 73 20 |t?0..I.G|R2;;yes |
|00001dc0| 69 6e 64 65 65 64 3a 11 | 0b 3a 3b 3b 6e 61 77 68 |indeed:.|.:;;nawh|
|00001dd0| 2e 44 11 05 58 3b 4e 11 | 18 83 47 52 32 25 3e 08 |.D..X;N.|..GR2%>.|
|00001de0| 00 3b 3b 69 6e 64 78 20 | 74 6f 20 57 48 4f 58 11 |.;;indx |to WHOX.|
|00001df0| 16 24 3e 08 00 3b 3b 69 | 6e 64 78 20 74 6f 20 47 |.$>..;;i|ndx to G|
|00001e00| 52 54 41 42 62 11 1a 83 | 47 52 33 51 83 57 48 4f |RTABb...|GR3Q.WHO|
|00001e10| 38 3b 3b 77 68 6f 20 6f | 77 6e 73 20 69 74 6c 11 |8;;who o|wns itl.|
|00001e20| 0e 52 84 50 4e 55 4d 3b | 3b 4d 45 3f 76 11 0c 48 |.R.PNUM;|;ME?v..H|
|00001e30| 83 47 52 34 3b 3b 6e 6f | 80 11 10 43 3b 3b 79 65 |.GR4;;no|...C;;ye|
|00001e40| 73 2c 73 61 76 65 20 23 | 8a 11 0b 50 85 47 52 54 |s,save #|...P.GRT|
|00001e50| 41 42 39 94 11 0e 32 3b | 3b 6e 65 78 74 20 6f 6e |AB9...2;|;next on|
|00001e60| 65 9e 11 08 83 47 52 34 | 33 a8 11 10 29 3e 08 24 |e....GR4|3...)>.$|
|00001e70| 3b 3b 61 74 20 65 6e 64 | 3f b2 11 0c 48 83 47 52 |;;at end|?...H.GR|
|00001e80| 33 3b 3b 6e 6f bc 11 10 | 32 3b 3b 6e 6f 77 20 70 |3;;no...|2;;now p|
|00001e90| 69 63 6b 20 61 c6 11 10 | 41 3b 3b 72 61 6e 64 6f |ick a...|A;;rando|
|00001ea0| 6d 20 6f 6e 65 d0 11 18 | 20 87 47 45 54 5f 52 4e |m one...| .GET_RN|
|00001eb0| 44 3b 3b 66 72 6f 6d 20 | 74 68 6f 73 65 da 11 11 |D;;from |those...|
|00001ec0| 3e 3b 3b 77 65 27 76 65 | 20 66 6f 75 6e 64 e4 11 |>;;we've| found..|
|00001ed0| 0e 51 85 47 52 54 41 42 | 13 08 01 39 ee 11 17 50 |.Q.GRTAB|...9...P|
|00001ee0| 85 50 50 52 4f 50 3b 3b | 70 69 63 6b 65 64 20 70 |.PPROP;;|picked p|
|00001ef0| 72 6f 70 f8 11 04 3a 02 | 12 05 58 3b 0c 12 20 58 |rop...:.|..X;.. X|
|00001f00| 3b 50 72 69 6e 74 20 61 | 20 50 72 6f 70 65 72 74 |;Print a| Propert|
|00001f10| 79 20 69 6e 20 49 6e 76 | 65 72 73 65 16 12 05 58 |y in Inv|erse...X|
|00001f20| 3b 20 12 19 87 49 4e 56 | 50 52 4f 50 50 81 4c 3b |; ...INV|PROPP.L;|
|00001f30| 3b 70 72 6f 70 20 6e 61 | 6d 65 2a 12 12 27 81 4c |;prop na|me*..'.L|
|00001f40| 12 08 01 3b 3b 61 64 64 | 72 65 73 73 34 12 07 51 |...;;add|ress4..Q|
|00001f50| 3e 08 02 3e 12 09 20 84 | 45 50 55 54 48 12 07 25 |>..>.. .|EPUTH..%|
|00001f60| 3e 08 00 52 12 0d 84 49 | 4e 56 31 27 83 53 56 59 |>..R...I|NV1'.SVY|
|00001f70| 5c 12 12 51 40 81 4c 37 | 3b 3b 67 65 74 20 62 79 |\..Q@.L7|;;get by|
|00001f80| 74 65 66 12 14 46 84 49 | 4e 56 32 3b 3b 64 6f 6e |tef..F.I|NV2;;don|
|00001f90| 65 20 6f 6e 20 30 70 12 | 10 4c 3e 06 80 3b 3b 69 |e on 0p.|.L>..;;i|
|00001fa0| 6e 76 65 72 73 65 7a 12 | 12 20 84 45 50 55 54 3b |nversez.|. .EPUT;|
|00001fb0| 3b 73 68 6f 77 20 69 74 | 84 12 08 25 83 53 56 59 |;show it|...%.SVY|
|00001fc0| 8e 12 0f 33 3b 3b 6e 65 | 78 74 20 62 79 74 65 98 |...3;;ne|xt byte.|
|00001fd0| 12 09 48 84 49 4e 56 31 | a2 12 11 84 49 4e 56 32 |..H.INV1|....INV2|
|00001fe0| 51 3e 08 16 3b 3b 65 6e | 64 ac 12 0f 21 84 45 50 |Q>..;;en|d...!.EP|
|00001ff0| 55 54 3b 3b 65 78 69 74 | b6 12 05 58 3b c0 12 1a |UT;;exit|...X;...|
|00002000| 58 3b 47 65 74 20 4b 65 | 79 20 54 61 62 6c 65 20 |X;Get Ke|y Table |
|00002010| 28 41 20 2d 20 5a 29 ca | 12 05 58 3b d4 12 1a 87 |(A - Z).|..X;....|
|00002020| 4b 45 59 5f 54 41 42 0b | 08 3f 3d 08 15 3d 08 12 |KEY_TAB.|.?=..=..|
|00002030| 3d 08 3a 3d 08 2a de 12 | 12 0b 08 38 3d 08 3d 3d |=.:=.*..|...8=.==|
|00002040| 08 39 3d 08 0d 3d 08 01 | e8 12 12 0b 08 05 3d 08 |.9=..=..|......=.|
|00002050| 00 3d 08 25 3d 08 23 3d | 08 08 f2 12 12 0b 08 0a |.=.%=.#=|........|
|00002060| 3d 08 2f 3d 08 28 3d 08 | 3e 3d 08 2d fc 12 15 0b |=./=.(=.|>=.-....|
|00002070| 08 0b 3d 08 10 3d 08 2e | 3d 08 16 3d 08 2b 3d 08 |..=..=..|=..=.+=.|
|00002080| 17 06 13 05 58 3b 10 13 | 18 58 3b 47 65 74 20 61 |....X;..|.X;Get a|
|00002090| 20 4b 65 79 20 66 6f 72 | 20 49 6e 70 75 74 1a 13 | Key for| Input..|
|000020a0| 05 58 3b 24 13 19 87 47 | 45 54 5f 4b 45 59 24 3e |.X;$...G|ET_KEY$>|
|000020b0| 06 ff 3b 3b 63 6c 65 61 | 72 20 43 48 2e 13 07 26 |..;;clea|r CH...&|
|000020c0| 82 43 48 38 13 17 85 47 | 45 54 4b 31 51 82 43 48 |.CH8...G|ETK1Q.CH|
|000020d0| 3b 3b 72 61 77 20 63 6f | 64 65 42 13 07 52 3e 06 |;;raw co|deB..R>.|
|000020e0| ff 4c 13 18 46 85 47 45 | 54 4b 31 3b 3b 6e 6f 6e |.L..F.GE|TK1;;non|
|000020f0| 65 20 70 72 65 73 73 65 | 64 56 13 17 4d 3e 08 3f |e presse|dV..M>.?|
|00002100| 3b 3b 6e 6f 20 49 4e 56 | 20 6f 72 20 43 54 52 4c |;;no INV| or CTRL|
|00002110| 60 13 10 52 3e 08 0c 3b | 3b 52 45 54 55 52 4e 3f |`..R>..;|;RETURN?|
|00002120| 6a 13 0e 48 85 54 52 59 | 37 46 3b 3b 6e 6f 74 13 |j..H.TRY|7F;;not.|
|00002130| 0e 51 3e 08 00 3b 3b 30 | 3d 52 45 54 7e 13 04 3a |.Q>..;;0|=RET~..:|
|00002140| 88 13 16 85 54 52 59 37 | 46 52 3e 08 34 3b 3b 64 |....TRY7|FR>.4;;d|
|00002150| 65 6c 65 74 65 3f 92 13 | 0e 48 85 53 43 41 4e 54 |elete?..|.H.SCANT|
|00002160| 3b 3b 6e 6f 9c 13 0f 51 | 3e 06 7e 3b 3b 44 45 4c |;;no...Q|>.~;;DEL|
|00002170| 45 54 45 a6 13 04 3a b0 | 13 19 85 53 43 41 4e 54 |ETE...:.|...SCANT|
|00002180| 25 3e 08 19 3b 3b 73 63 | 61 6e 20 74 61 62 6c 65 |%>..;;sc|an table|
|00002190| ba 13 1b 85 47 45 54 4b | 32 52 87 4b 45 59 5f 54 |....GETK|2R.KEY_T|
|000021a0| 41 42 38 3b 3b 69 73 20 | 69 74 3f c4 13 10 46 85 |AB8;;is |it?...F.|
|000021b0| 47 45 54 4b 33 3b 3b 59 | 45 53 21 ce 13 04 31 d8 |GETK3;;Y|ES!...1.|
|000021c0| 13 15 49 85 47 45 54 4b | 32 3b 3b 74 72 79 20 61 |..I.GETK|2;;try a|
|000021d0| 67 61 69 6e e2 13 16 47 | 87 47 45 54 5f 4b 45 59 |gain...G|.GET_KEY|
|000021e0| 3b 3b 6e 6f 20 6d 61 74 | 63 68 ec 13 11 85 47 45 |;;no mat|ch....GE|
|000021f0| 54 4b 33 43 3b 3b 69 6e | 64 65 78 f6 13 0d 2c 3b |TK3C;;in|dex...,;|
|00002200| 3b 61 64 64 20 27 41 27 | 00 14 07 4f 3e 0a 41 0a |;add 'A'|...O>.A.|
|00002210| 14 09 3a 3b 3b 6f 75 74 | 14 14 05 58 3b 1e 14 16 |..:;;out|...X;...|
|00002220| 58 3b 49 6e 70 75 74 20 | 4f 77 6e 65 72 20 4e 61 |X;Input |Owner Na|
|00002230| 6d 65 73 28 14 05 58 3b | 32 14 1b 85 49 4e 50 55 |mes(..X;|2...INPU|
|00002240| 54 50 81 4c 3b 3b 77 68 | 65 72 65 20 69 6e 20 4e |TP.L;;wh|ere in N|
|00002250| 41 4d 45 3c 14 17 27 81 | 4c 12 08 01 3b 3b 42 55 |AME<..'.|L...;;BU|
|00002260| 46 20 74 6f 20 73 74 6f | 72 65 46 14 0e 25 3e 08 |F to sto|reF..%>.|
|00002270| 00 3b 3b 6e 61 6d 65 73 | 50 14 16 84 49 4e 50 31 |.;;names|P...INP1|
|00002280| 27 83 53 56 59 3b 3b 63 | 6f 75 6e 74 65 72 5a 14 |'.SVY;;c|ounterZ.|
|00002290| 12 51 3e 08 7f 3b 3b 6f | 75 72 20 42 4c 4f 43 4b |.Q>..;;o|ur BLOCK|
|000022a0| 64 14 10 50 40 81 4c 37 | 3b 3b 63 75 72 73 6f 72 |d..P@.L7|;;cursor|
|000022b0| 6e 14 15 20 87 47 45 54 | 5f 4b 45 59 3b 3b 67 65 |n.. .GET|_KEY;;ge|
|000022c0| 74 20 6b 65 79 78 14 15 | 24 3e 08 00 3b 3b 70 6f |t keyx..|$>..;;po|
|000022d0| 6b 65 20 73 70 65 61 6b | 65 72 82 14 16 26 86 43 |ke speak|er...&.C|
|000022e0| 4f 4e 53 4f 4c 3b 3b 66 | 6f 72 20 63 6c 69 63 6b |ONSOL;;f|or click|
|000022f0| 8c 14 0f 25 83 53 56 59 | 3b 3b 67 65 74 20 59 96 |...%.SVY|;;get Y.|
|00002300| 14 16 52 3e 08 00 3b 3b | 69 73 20 41 20 3d 30 28 |..R>..;;|is A =0(|
|00002310| 52 45 54 3f 29 a0 14 10 | 46 86 49 4e 44 4f 4e 45 |RET?)...|F.INDONE|
|00002320| 3b 3b 79 65 73 aa 14 14 | 52 3e 06 7e 3b 3b 44 45 |;;yes...|R>.~;;DE|
|00002330| 4c 2d 42 4b 20 53 50 43 | 3f b4 14 0e 48 85 49 4e |L-BK SPC|?...H.IN|
|00002340| 45 58 54 3b 3b 6e 6f be | 14 0f 29 3e 08 00 3b 3b |EXT;;no.|..)>..;;|
|00002350| 69 73 20 59 3d 30 c8 14 | 18 46 84 49 4e 50 31 3b |is Y=0..|.F.INP1;|
|00002360| 3b 79 65 73 2c 6e 6f 20 | 64 65 6c 65 74 65 d2 14 |;yes,no |delete..|
|00002370| 11 51 3e 08 00 3b 3b 7a | 61 70 20 63 68 61 72 dc |.Q>..;;z|ap char.|
|00002380| 14 08 50 40 81 4c 37 e6 | 14 0f 31 3b 3b 62 61 63 |..P@.L7.|..1;;bac|
|00002390| 6b 20 75 70 20 31 f0 14 | 08 50 40 81 4c 37 fa 14 |k up 1..|.P@.L7..|
|000023a0| 14 21 84 49 4e 50 31 3b | 3b 67 65 74 20 69 6e 70 |.!.INP1;|;get inp|
|000023b0| 75 74 04 15 05 58 3b 0e | 15 1c 85 49 4e 45 58 54 |ut...X;.|...INEXT|
|000023c0| 29 3e 08 08 3b 3b 65 6e | 64 20 6f 66 20 69 6e 70 |)>..;;en|d of inp|
|000023d0| 75 74 3f 18 15 0e 45 84 | 49 4e 50 31 3b 3b 79 65 |ut?...E.|INP1;;ye|
|000023e0| 73 22 15 18 50 84 49 42 | 55 46 38 3b 3b 69 6e 70 |s"..P.IB|UF8;;inp|
|000023f0| 75 74 20 62 75 66 66 65 | 72 2c 15 18 20 86 41 53 |ut buffe|r,.. .AS|
|00002400| 43 32 49 43 3b 3b 74 6f | 20 49 4e 54 20 63 6f 64 |C2IC;;to| INT cod|
|00002410| 65 36 15 14 4c 3e 06 80 | 3b 3b 69 6e 76 65 72 73 |e6..L>..|;;invers|
|00002420| 65 20 66 6f 72 40 15 0f | 50 40 81 4c 37 3b 3b 63 |e for@..|P@.L7;;c|
|00002430| 6f 6c 6f 72 4a 15 0f 33 | 3b 3b 6e 65 78 74 20 63 |olorJ..3|;;next c|
|00002440| 68 61 72 54 15 09 48 84 | 49 4e 50 31 5e 15 05 58 |harT..H.|INP1^..X|
|00002450| 3b 68 15 1b 86 49 4e 44 | 4f 4e 45 50 84 49 42 55 |;h...IND|ONEP.IBU|
|00002460| 46 38 3b 3b 30 20 66 6f | 72 20 61 6e 72 15 0f 50 |F8;;0 fo|r anr..P|
|00002470| 40 81 4c 37 3b 3b 45 4f | 4c 20 26 7c 15 0a 3a 3b |@.L7;;EO|L &|..:;|
|00002480| 3b 65 78 69 74 86 15 05 | 58 3b 90 15 15 58 3b 47 |;exit...|X;...X;G|
|00002490| 65 74 20 50 6c 61 79 65 | 72 20 4e 61 6d 65 73 9a |et Playe|r Names.|
|000024a0| 15 05 58 3b a4 15 1f 88 | 47 45 54 4e 41 4d 45 53 |..X;....|GETNAMES|
|000024b0| 51 3e 34 86 4e 44 4c 49 | 53 54 3b 3b 69 6e 73 74 |Q>4.NDLI|ST;;inst|
|000024c0| 61 6c 6c ae 15 19 50 86 | 53 44 4c 53 54 4c 3b 3b |all...P.|SDLSTL;;|
|000024d0| 64 69 73 70 6c 61 79 20 | 6c 69 73 74 b8 15 0d 51 |display |list...Q|
|000024e0| 3e 35 86 4e 44 4c 49 53 | 54 c2 15 0e 50 86 53 44 |>5.NDLIS|T...P.SD|
|000024f0| 4c 53 54 4c 12 08 01 cc | 15 16 51 3e 08 3a 3b 3b |LSTL....|..Q>.:;;|
|00002500| 6e 6f 72 6d 61 6c 20 70 | 6c 79 66 6c 64 d6 15 0b |normal p|lyfld...|
|00002510| 50 86 53 44 4d 43 54 4c | e0 15 0f 25 3e 08 04 3b |P.SDMCTL|...%>..;|
|00002520| 3b 73 63 72 65 65 6e ea | 15 17 84 47 4e 4d 31 51 |;screen.|...GNM1Q|
|00002530| 84 4e 43 4c 52 38 3b 3b | 63 6f 6c 6f 72 73 f4 15 |.NCLR8;;|colors..|
|00002540| 0c 50 86 43 4f 4c 4f 52 | 30 38 fe 15 04 31 08 16 |.P.COLOR|08...1..|
|00002550| 09 49 84 47 4e 4d 31 12 | 16 19 20 86 43 4c 52 53 |.I.GNM1.|.. .CLRS|
|00002560| 43 52 3b 3b 63 6c 65 61 | 72 20 73 63 72 65 65 6e |CR;;clea|r screen|
|00002570| 1c 16 05 58 3b 26 16 18 | 51 3e 34 86 47 52 30 4d |...X;&..|Q>4.GR0M|
|00002580| 45 4d 3b 3b 67 65 74 20 | 73 74 61 72 74 30 16 13 |EM;;get |start0..|
|00002590| 50 83 53 43 52 3b 3b 6f | 66 20 6d 65 6d 6f 72 79 |P.SCR;;o|f memory|
|000025a0| 3a 16 0d 51 3e 35 86 47 | 52 30 4d 45 4d 44 16 0b |:..Q>5.G|R0MEMD..|
|000025b0| 50 83 53 43 52 12 08 01 | 4e 16 0f 24 3e 08 00 3b |P.SCR...|N..$>..;|
|000025c0| 3b 70 6c 79 72 20 23 58 | 16 11 84 47 4e 4d 30 51 |;plyr #X|...GNM0Q|
|000025d0| 3e 08 fb 3b 3b 27 5b 27 | 62 16 0a 50 40 83 53 43 |>..;;'['|b..P@.SC|
|000025e0| 52 37 6c 16 13 33 3b 3b | 73 63 72 6e 20 70 6f 73 |R7l..3;;|scrn pos|
|000025f0| 69 74 69 6f 6e 76 16 04 | 41 80 16 04 2c 8a 16 12 |itionv..|A...,...|
|00002600| 4f 3e 08 d1 3b 3b 70 6c | 79 72 20 23 20 69 6e 94 |O>..;;pl|yr # in.|
|00002610| 16 11 50 40 83 53 43 52 | 37 3b 3b 63 6f 6c 6f 72 |..P@.SCR|7;;color|
|00002620| 9e 16 13 33 3b 3b 6e 65 | 78 74 20 70 6f 73 69 74 |...3;;ne|xt posit|
|00002630| 69 6f 6e a8 16 0c 51 3e | 08 fd 3b 3b 27 5d 27 b2 |ion...Q>|..;;']'.|
|00002640| 16 0a 50 40 83 53 43 52 | 37 bc 16 11 43 3b 3b 61 |..P@.SCR|7...C;;a|
|00002650| 64 64 20 31 38 20 6f 6e | 74 6f c6 16 15 2c 3b 3b |dd 18 on|to...,;;|
|00002660| 73 63 72 65 65 6e 20 70 | 6f 73 69 74 69 6f 6e d0 |screen p|osition.|
|00002670| 16 07 4f 3e 08 12 da 16 | 0e 3f 3b 3b 6e 6f 77 20 |..O>....|.?;;now |
|00002680| 69 6e 20 59 e4 16 0f 32 | 3b 3b 6e 65 78 74 20 70 |in Y...2|;;next p|
|00002690| 6c 79 72 ee 16 16 28 84 | 4d 41 58 50 3b 3b 61 74 |lyr...(.|MAXP;;at|
|000026a0| 20 6d 61 78 20 79 65 74 | 3f f8 16 15 48 84 47 4e | max yet|?...H.GN|
|000026b0| 4d 30 3b 3b 6e 6f 20 64 | 6f 20 6d 6f 72 65 02 17 |M0;;no d|o more..|
|000026c0| 16 25 3e 08 00 3b 3b 6e | 6f 77 20 67 65 74 20 6e |.%>..;;n|ow get n|
|000026d0| 61 6d 65 73 0c 17 16 84 | 47 4e 4d 32 27 84 53 56 |ames....|GNM2'.SV|
|000026e0| 59 32 3b 3b 73 61 76 65 | 20 59 16 17 15 51 83 53 |Y2;;save| Y...Q.S|
|000026f0| 43 52 3b 3b 6d 6f 76 65 | 20 6f 76 65 72 20 34 20 |CR;;move| over 4 |
|00002700| 17 0b 2c 3b 3b 62 79 74 | 65 73 2a 17 14 4f 3e 08 |..,;;byt|es*..O>.|
|00002710| 04 3b 3b 41 3d 20 6c 6f | 77 20 62 79 74 65 34 17 |.;;A= lo|w byte4.|
|00002720| 13 25 83 53 43 52 12 08 | 01 3b 3b 59 20 3d 20 68 |.%.SCR..|.;;Y = h|
|00002730| 69 3e 17 16 20 85 49 4e | 50 55 54 3b 3b 67 65 74 |i>.. .IN|PUT;;get|
|00002740| 20 61 20 6e 61 6d 65 48 | 17 17 51 84 49 42 55 46 | a nameH|..Q.IBUF|
|00002750| 3b 3b 67 65 74 20 31 73 | 74 20 63 68 61 72 52 17 |;;get 1s|t charR.|
|00002760| 16 46 84 47 4e 4d 32 3b | 3b 69 66 20 6e 6f 6e 65 |.F.GNM2;|;if none|
|00002770| 20 74 72 79 5c 17 0f 51 | 83 53 43 52 3b 3b 61 67 | try\..Q|.SCR;;ag|
|00002780| 61 69 6e 66 17 12 2c 3b | 3b 61 64 64 20 32 30 20 |ainf..,;|;add 20 |
|00002790| 62 79 74 65 73 70 17 15 | 4f 3e 08 14 3b 3b 74 6f |bytesp..|O>..;;to|
|000027a0| 20 73 63 72 6e 20 70 6e | 74 72 7a 17 08 50 83 53 | scrn pn|trz..P.S|
|000027b0| 43 52 84 17 19 51 3e 35 | 87 4e 41 4d 45 42 55 46 |CR...Q>5|.NAMEBUF|
|000027c0| 3b 3b 68 69 67 68 20 62 | 79 74 65 8e 17 11 50 81 |;;high b|yte...P.|
|000027d0| 4c 12 08 01 3b 3b 6c 6f | 77 20 3d 30 98 17 11 25 |L...;;lo|w =0...%|
|000027e0| 84 53 56 59 32 3b 3b 6b | 65 65 70 20 59 a2 17 16 |.SVY2;;k|eep Y...|
|000027f0| 51 82 58 39 38 3b 3b 67 | 65 74 20 70 6c 61 63 65 |Q.X98;;g|et place|
|00002800| 20 69 6e ac 17 0e 50 81 | 4c 3b 3b 62 75 66 66 65 | in...P.|L;;buffe|
|00002810| 72 b6 17 15 25 3e 08 08 | 3b 3b 6d 6f 76 65 20 6e |r...%>..|;;move n|
|00002820| 61 6d 65 20 74 6f c0 17 | 18 84 47 4e 4d 33 51 84 |ame to..|..GNM3Q.|
|00002830| 49 42 55 46 38 3b 3b 4e | 41 4d 45 42 55 46 ca 17 |IBUF8;;N|AMEBUF..|
|00002840| 08 50 40 81 4c 37 d4 17 | 04 31 de 17 18 49 84 47 |.P@.L7..|.1...I.G|
|00002850| 4e 4d 33 3b 3b 39 20 63 | 68 61 72 73 20 74 6f 74 |NM3;;9 c|hars tot|
|00002860| 61 6c e8 17 15 25 84 53 | 56 59 32 3b 3b 72 65 74 |al...%.S|VY2;;ret|
|00002870| 72 69 65 76 65 20 59 f2 | 17 0f 33 3b 3b 6e 65 78 |rieve Y.|..3;;nex|
|00002880| 74 20 70 6c 79 72 fc 17 | 12 29 84 4d 41 58 50 3b |t plyr..|.).MAXP;|
|00002890| 3b 61 74 20 4d 61 78 3f | 06 18 09 48 84 47 4e 4d |;at Max?|...H.GNM|
|000028a0| 32 10 18 09 3a 3b 3b 59 | 45 53 1a 18 05 58 3b 24 |2...:;;Y|ES...X;$|
|000028b0| 18 1d 58 3b 48 61 6e 64 | 6c 65 20 43 61 70 74 69 |..X;Hand|le Capti|
|000028c0| 61 6c 20 47 61 69 6e 73 | 20 54 61 78 2e 18 05 58 |al Gains| Tax...X|
|000028d0| 3b 38 18 1a 86 43 41 50 | 47 4e 53 20 82 50 42 3b |;8...CAP|GNS .PB;|
|000028e0| 3b 27 62 61 64 20 4c 55 | 43 4b 27 42 18 1f 07 86 |;'bad LU|CK'B....|
|000028f0| 50 52 49 4e 54 20 82 59 | 44 3b 3b 27 59 6f 75 20 |PRINT .Y|D;;'You |
|00002900| 6c 6f 73 65 20 24 34 35 | 47 27 4c 18 07 51 3e 08 |lose $45|G'L..Q>.|
|00002910| 2d 56 18 16 21 83 42 31 | 41 3b 3b 6a 6d 70 20 69 |-V..!.B1|A;;jmp i|
|00002920| 6e 74 6f 20 42 41 44 | |nto BAD | |
+--------+-------------------------+-------------------------+--------+--------+