/ Oakland CPM Archive / oakcpm.iso / cpm / basic / codecrak.lbr

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 01 00 |.       |    ....|
|00000010| be e3 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 43 4f 44 45 43 52 41 | 4b 42 41 53 0b 00 05 00 |.CODECRA|KBAS....|
|00000030| 03 07 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 43 4f 44 45 43 52 41 | 4b 44 4f 43 01 00 0a 00 |.CODECRA|KDOC....|
|00000050| 15 9f 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |.       |    ....|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000090| 20 20 20 20 20 20 20 43 | 20 4f 20 44 20 45 20 43 |       C| O D E C|
|000000a0| 20 52 20 41 20 4b 0d 0a | 0d 0a 20 20 20 20 20 20 | R A K..|..      |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000c0| 20 44 61 72 72 79 6c 20 | 53 2e 20 41 62 6c 69 6e | Darryl |S. Ablin|
|000000d0| 67 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |g..     |        |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 32 30 39 2d 33 35 |        |  209-35|
|000000f0| 38 2d 38 38 34 32 0d 0a | 0d 0a 43 4f 44 45 43 52 |8-8842..|..CODECR|
|00000100| 41 4b 2e 42 41 53 20 77 | 61 73 20 64 65 73 69 67 |AK.BAS w|as desig|
|00000110| 6e 65 64 20 74 6f 20 62 | 72 65 61 6b 20 74 68 65 |ned to b|reak the|
|00000120| 20 65 6e 63 6f 64 65 64 | 20 64 61 74 61 20 66 69 | encoded| data fi|
|00000130| 6c 65 20 6f 66 0d 0a 74 | 68 65 20 67 61 6d 65 20 |le of..t|he game |
|00000140| 44 49 53 41 52 4d 2e 43 | 4f 4d 20 66 6f 72 20 74 |DISARM.C|OM for t|
|00000150| 68 65 20 48 65 61 74 68 | 20 48 2d 38 39 20 61 6e |he Heath| H-89 an|
|00000160| 64 20 73 69 6d 69 6c 61 | 72 20 63 6f 6d 70 75 74 |d simila|r comput|
|00000170| 65 72 73 2e 0d 0a 0d 0a | 43 4f 44 45 43 52 41 4b |ers.....|CODECRAK|
|00000180| 20 72 65 61 64 73 20 74 | 68 65 20 64 61 74 61 20 | reads t|he data |
|00000190| 66 69 6c 65 20 61 6e 64 | 20 63 6f 6e 76 65 72 74 |file and| convert|
|000001a0| 73 20 77 68 61 74 20 73 | 65 65 6d 73 20 6c 69 6b |s what s|eems lik|
|000001b0| 65 20 67 69 62 2d 0d 0a | 62 65 72 69 73 68 20 74 |e gib-..|berish t|
|000001c0| 6f 20 72 65 61 64 61 62 | 6c 65 20 74 65 78 74 2e |o readab|le text.|
|000001d0| 20 54 68 65 20 70 72 6f | 67 72 61 6d 20 61 73 73 | The pro|gram ass|
|000001e0| 75 6d 65 73 20 74 68 65 | 20 66 69 6c 65 20 44 49 |umes the| file DI|
|000001f0| 53 41 52 4d 2e 44 41 54 | 0d 0a 77 69 6c 6c 20 62 |SARM.DAT|..will b|
|00000200| 65 20 6f 6e 20 64 69 73 | 6b 20 42 3a 20 61 6e 64 |e on dis|k B: and|
|00000210| 20 74 68 61 74 20 79 6f | 75 20 68 61 76 65 20 61 | that yo|u have a|
|00000220| 20 70 72 69 6e 74 65 72 | 2e 20 49 66 20 65 69 74 | printer|. If eit|
|00000230| 68 65 72 20 6f 66 20 74 | 68 65 73 65 0d 0a 61 72 |her of t|hese..ar|
|00000240| 65 20 6e 6f 74 20 74 72 | 75 65 20 74 68 65 20 70 |e not tr|ue the p|
|00000250| 72 6f 67 72 61 6d 20 69 | 73 20 65 61 73 69 6c 79 |rogram i|s easily|
|00000260| 20 6d 6f 64 69 66 69 65 | 64 20 74 6f 20 66 69 74 | modifie|d to fit|
|00000270| 20 79 6f 75 72 20 73 79 | 73 74 65 6d 2e 0d 0a 4c | your sy|stem...L|
|00000280| 69 6e 65 20 31 30 20 6f | 70 65 6e 73 20 74 68 65 |ine 10 o|pens the|
|00000290| 20 66 69 6c 65 20 61 6e | 64 20 6c 69 6e 65 20 31 | file an|d line 1|
|000002a0| 34 30 20 68 61 6e 64 6c | 65 73 20 74 65 78 74 20 |40 handl|es text |
|000002b0| 6f 75 74 70 75 74 2e 0d | 0a 0d 0a 41 6e 20 69 6e |output..|...An in|
|000002c0| 74 65 72 65 73 74 69 6e | 67 20 73 69 64 65 20 65 |terestin|g side e|
|000002d0| 66 66 65 63 74 20 6f 66 | 20 43 4f 44 45 43 52 41 |ffect of| CODECRA|
|000002e0| 4b 20 69 73 20 74 68 61 | 74 20 61 20 6e 6f 72 6d |K is tha|t a norm|
|000002f0| 61 6c 20 74 65 78 74 20 | 66 69 6c 65 0d 0a 72 75 |al text |file..ru|
|00000300| 6e 20 74 68 72 6f 75 67 | 68 20 74 68 65 20 70 72 |n throug|h the pr|
|00000310| 6f 67 72 61 6d 20 77 69 | 6c 6c 20 63 6f 6d 65 20 |ogram wi|ll come |
|00000320| 6f 75 74 20 73 63 72 61 | 6d 62 6c 65 64 20 61 6e |out scra|mbled an|
|00000330| 64 20 69 66 20 69 74 20 | 69 73 20 72 75 6e 0d 0a |d if it |is run..|
|00000340| 74 68 72 6f 75 67 68 20 | 61 67 61 69 6e 20 69 74 |through |again it|
|00000350| 20 77 69 6c 6c 20 63 6f | 6d 65 20 6f 75 74 20 72 | will co|me out r|
|00000360| 65 61 64 61 62 6c 65 2e | 20 54 68 69 73 20 6d 61 |eadable.| This ma|
|00000370| 79 20 62 65 20 6f 66 20 | 69 6e 74 65 72 65 73 74 |y be of |interest|
|00000380| 20 74 6f 0d 0a 75 73 65 | 72 73 20 69 6e 74 65 72 | to..use|rs inter|
|00000390| 65 73 74 65 64 20 69 6e | 20 73 65 6e 64 69 6e 67 |ested in| sending|
|000003a0| 20 63 6f 64 65 64 20 74 | 65 78 74 2e 20 49 66 20 | coded t|ext. If |
|000003b0| 79 6f 75 20 64 6f 20 64 | 65 63 69 64 65 20 74 6f |you do d|ecide to|
|000003c0| 20 64 6f 20 74 68 69 73 | 0d 0a 6c 69 6e 65 20 31 | do this|..line 1|
|000003d0| 30 20 77 69 6c 6c 20 68 | 61 76 65 20 74 6f 20 62 |0 will h|ave to b|
|000003e0| 65 20 63 68 61 6e 67 65 | 64 20 74 6f 20 61 73 6b |e change|d to ask|
|000003f0| 20 66 6f 72 20 61 20 66 | 69 6c 65 20 6e 61 6d 65 | for a f|ile name|
|00000400| 2e 0d 0a 0d 0a 54 68 69 | 73 20 70 72 6f 67 72 61 |.....Thi|s progra|
|00000410| 6d 20 63 61 6d 65 20 6f | 75 74 20 6f 66 20 74 68 |m came o|ut of th|
|00000420| 65 20 66 61 63 74 20 74 | 68 61 74 20 49 20 68 61 |e fact t|hat I ha|
|00000430| 76 65 20 62 65 65 6e 20 | 73 74 75 6d 70 65 64 20 |ve been |stumped |
|00000440| 62 79 20 44 49 53 41 52 | 4d 0d 0a 66 6f 72 20 6d |by DISAR|M..for m|
|00000450| 61 6e 79 20 6d 6f 6e 74 | 68 73 20 61 6e 64 20 49 |any mont|hs and I|
|00000460| 20 77 61 73 20 68 6f 70 | 69 6e 67 20 74 68 61 74 | was hop|ing that|
|00000470| 20 69 66 20 49 20 63 6f | 75 6c 64 20 72 65 61 64 | if I co|uld read|
|00000480| 20 74 68 65 20 64 61 74 | 61 20 66 69 6c 65 20 6f | the dat|a file o|
|00000490| 66 0d 0a 74 68 65 20 67 | 61 6d 65 20 49 20 6d 69 |f..the g|ame I mi|
|000004a0| 67 68 74 20 62 65 20 61 | 62 6c 65 20 74 6f 20 67 |ght be a|ble to g|
|000004b0| 61 69 6e 20 73 6f 6d 65 | 20 75 73 65 66 75 6c 20 |ain some| useful |
|000004c0| 69 6e 73 69 67 68 74 20 | 74 6f 20 74 68 65 20 67 |insight |to the g|
|000004d0| 61 6d 65 2e 0d 0a 53 6f | 20 66 61 72 20 74 68 65 |ame...So| far the|
|000004e0| 20 66 69 6c 65 20 68 61 | 73 20 79 69 65 6c 64 65 | file ha|s yielde|
|000004f0| 64 20 73 6f 6d 65 20 63 | 6c 75 65 73 2c 20 61 6c |d some c|lues, al|
|00000500| 74 68 6f 75 67 68 20 69 | 74 20 69 73 20 6e 6f 74 |though i|t is not|
|00000510| 20 65 6e 6f 75 67 68 20 | 74 6f 0d 0a 73 70 6f 69 | enough |to..spoi|
|00000520| 6c 20 74 68 65 20 67 61 | 6d 65 3b 20 6f 72 20 65 |l the ga|me; or e|
|00000530| 76 65 6e 20 6d 61 6b 65 | 20 69 74 20 6d 75 63 68 |ven make| it much|
|00000540| 20 65 61 73 69 65 72 2e | 0d 0a 0d 0a 20 20 20 20 | easier.|....    |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000560| 20 2a 2a 2a 2a 2a 2a 45 | 4e 4a 4f 59 2a 2a 2a 2a | ******E|NJOY****|
|00000570| 2a 0d 0a 0d 0a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |*.......|........|
|00000580| ff 22 62 0a 00 bf 20 22 | 49 22 2c 12 2c 22 42 3a |."b... "|I",.,"B:|
|00000590| 44 49 53 41 52 4d 2e 44 | 41 54 22 00 2f 62 14 00 |DISARM.D|AT"./b..|
|000005a0| b1 20 85 23 12 2c 41 24 | 00 3c 62 1e 00 58 f0 ff |. .#.,A$|.<b..X..|
|000005b0| 92 28 41 24 29 00 4a 62 | 28 00 82 20 42 f0 12 20 |.(A$).Jb|(.. B.. |
|000005c0| ce 20 58 00 5c 62 32 00 | 42 24 f0 ff 83 28 41 24 |. X.\b2.|B$...(A$|
|000005d0| 2c 42 2c 12 29 00 71 62 | 3c 00 8b 20 42 24 f0 ff |,B,.).qb|<.. B$..|
|000005e0| 96 28 18 29 20 cf 20 43 | f0 12 00 87 62 46 00 8b |.(.) . C|....bF..|
|000005f0| 20 42 24 f1 ef ff 96 28 | 18 29 20 cf 20 43 f0 11 | B$....(|.) . C..|
|00000600| 00 97 62 50 00 8b 20 43 | f0 12 20 cf 20 0e 36 01 |..bP.. C|.. . .6.|
|00000610| 00 9f 62 5a 00 44 f0 11 | 00 b6 62 64 00 8b 20 ff |..bZ.D..|..bd.. .|
|00000620| 95 28 42 24 29 ef f0 0f | 61 20 cf 20 0e f0 00 00 |.(B$)...|a . ....|
|00000630| cc 62 6e 00 8b 20 ff 95 | 28 42 24 29 f1 0f 45 20 |.bn.. ..|(B$)..E |
|00000640| cf 20 0e e6 00 00 e3 62 | 78 00 8b 20 ff 95 28 42 |. .....b|x.. ..(B|
|00000650| 24 29 ef f0 0f 50 20 cf | 20 0e be 00 00 fa 62 82 |$)...P .| .....b.|
|00000660| 00 8b 20 ff 95 28 42 24 | 29 f1 f0 0f 4f 20 cf 20 |.. ..(B$|)...O . |
|00000670| 0e d2 00 00 04 63 8c 00 | 9e 20 43 24 3b 00 0c 63 |.....c..|. C$;..c|
|00000680| 96 00 83 20 42 00 1e 63 | a0 00 8b 20 ff af 28 12 |... B..c|... ..(.|
|00000690| 29 20 cf 20 0e b4 00 00 | 28 63 aa 00 89 20 0e 14 |) . ....|(c... ..|
|000006a0| 00 00 2e 63 b4 00 81 00 | 43 63 be 00 5a f0 0f 4f |...c....|Cc..Z..O|
|000006b0| f3 28 ff 95 28 42 24 29 | f3 0f 50 29 00 5d 63 c8 |.(..(B$)|..P).]c.|
|000006c0| 00 5a f0 5a f2 0f 20 3a | 43 24 f0 ff 96 28 5a 29 |.Z.Z.. :|C$...(Z)|
|000006d0| 3a 89 20 0e 8c 00 00 72 | 63 d2 00 5a f0 28 0f 4f |:. ....r|c..Z.(.O|
|000006e0| f3 ff 95 28 42 24 29 29 | f2 0f 50 00 8c 63 dc 00 |...(B$))|..P..c..|
|000006f0| 5a f0 5a f2 0f 20 3a 43 | 24 f0 ff 96 28 5a 29 3a |Z.Z.. :C|$...(Z):|
|00000700| 89 20 0e 8c 00 00 9f 63 | e6 00 43 24 f0 ff 96 28 |. .....c|..C$...(|
|00000710| 11 29 3a 89 20 0e 8c 00 | 00 b6 63 f0 00 8b 20 ff |.):. ...|..c... .|
|00000720| 95 28 42 24 29 ef f0 0f | 70 20 cf 20 0e 0e 01 00 |.(B$)...|p . ....|
|00000730| cd 63 fa 00 8b 20 ff 95 | 28 42 24 29 f1 f0 0f 6f |.c... ..|(B$)...o|
|00000740| 20 cf 20 0e 22 01 00 e0 | 63 04 01 43 24 f0 ff 96 | . ."...|c..C$...|
|00000750| 28 11 29 3a 89 20 0e 8c | 00 00 f5 63 0e 01 5a f0 |(.):. ..|...c..Z.|
|00000760| 0f 6f f3 28 ff 95 28 42 | 24 29 f3 0f 70 29 00 0f |.o.(..(B|$)..p)..|
|00000770| 64 18 01 5a f0 5a f3 0f | 20 3a 43 24 f0 ff 96 28 |d..Z.Z..| :C$...(|
|00000780| 5a 29 3a 89 20 0e 8c 00 | 00 24 64 22 01 5a f0 28 |Z):. ...|.$d".Z.(|
|00000790| 0f 6f f3 ff 95 28 42 24 | 29 f2 0f 70 29 00 3e 64 |.o...(B$|)..p).>d|
|000007a0| 2c 01 5a f0 5a f3 0f 20 | 3a 43 24 f0 ff 96 28 5a |,.Z.Z.. |:C$...(Z|
|000007b0| 29 3a 89 20 0e 8c 00 00 | 4e 64 36 01 8b 20 44 f0 |):. ....|Nd6.. D.|
|000007c0| 12 20 cf 20 0e 96 00 00 | 5c 64 40 01 43 24 f0 ff |. . ....|\d@.C$..|
|000007d0| 96 28 0f 20 29 00 64 64 | 4a 01 44 f0 12 00 6e 64 |.(. ).dd|J.D...nd|
|000007e0| 54 01 89 20 0e 8c 00 00 | 00 00 1a 1a 70 29 00 0f |T.. ....|....p)..|
|000007f0| 64 18 01 5a f0 5a f3 0f | 20 3a 43 24 f0 ff 96 28 |d..Z.Z..| :C$...(|
+--------+-------------------------+-------------------------+--------+--------+