00000000: 01 04 20 04 64 00 8F 20 42 49 4E 41 52 59 20 54 |.. .d.. BINARY T|
00000010: 52 45 45 20 44 45 4D 4F 20 50 52 4F 47 52 41 4D |REE DEMO PROGRAM|
00000020: 00 33 04 6E 00 8F 20 42 59 20 48 45 52 42 20 52 |.3.n.. BY HERB R|
00000030: 4F 53 45 00 52 04 78 00 85 22 53 49 5A 45 20 4F |OSE.R.x.."SIZE O|
00000040: 46 20 53 54 52 49 4E 47 20 41 52 52 41 59 20 22 |F STRING ARRAY "|
00000050: 3B 4E 00 6B 04 82 00 99 22 93 42 49 4E 41 52 59 |;N.k....".BINARY|
00000060: 20 54 52 45 45 20 44 45 4D 4F 22 00 8E 04 8C 00 | TREE DEMO".....|
00000070: 99 22 43 52 45 41 54 49 4E 47 20 22 4E 22 20 52 |."CREATING "N" R|
00000080: 41 4E 44 4F 4D 20 53 54 52 49 4E 47 53 22 00 A9 |ANDOM STRINGS"..|
00000090: 04 96 00 86 20 41 41 24 28 4E 29 3A 86 20 4C 28 |.... AA$(N):. L(|
000000A0: 4E 29 3A 86 20 52 28 4E 29 00 BC 04 A0 00 53 44 |N):. R(N).....SD|
000000B0: B2 AB 54 49 3A 41 B2 BB 28 53 44 29 00 C7 04 AA |..TI:A..(SD)....|
000000C0: 00 81 49 B2 31 A4 4E 00 E8 04 B4 00 99 20 49 22 |..I.1.N...... I"|
000000D0: 91 22 3A 4E 31 B2 B5 28 BB 28 31 29 AC 31 30 29 |.":N1..(.(1).10)|
000000E0: AA 31 3A 41 24 B2 22 22 00 14 05 BE 00 81 4A B2 |.1:A$.""......J.|
000000F0: 31 A4 4E 31 3A 42 24 B2 C7 28 B5 28 BB 28 31 29 |1.N1:B$..(.(.(1)|
00000100: AC 32 36 AA 36 35 29 29 3A 41 24 B2 41 24 AA 42 |.26.65)):A$.A$.B|
00000110: 24 3A 82 4A 00 22 05 C8 00 41 41 24 28 49 29 B2 |$:.J."...AA$(I).|
00000120: 41 24 00 35 05 D2 00 4C 28 49 29 B2 30 3A 20 52 |A$.5...L(I).0: R|
00000130: 28 49 29 B2 30 00 46 05 DC 00 8B 49 B1 31 20 A7 |(I).0.F....I.1 .|
00000140: 20 8D 20 36 37 30 00 4E 05 E6 00 82 20 49 00 63 | . 670.N.... I.c|
00000150: 05 F0 00 99 22 41 52 52 41 59 20 43 52 45 41 54 |...."ARRAY CREAT|
00000160: 45 44 22 00 88 05 FA 00 99 22 53 45 51 55 45 4E |ED"......"SEQUEN|
00000170: 54 49 41 4C 20 53 45 41 52 43 48 20 46 4F 52 20 |TIAL SEARCH FOR |
00000180: 52 45 43 4F 52 44 53 22 00 90 05 04 01 41 B2 30 |RECORDS".....A.0|
00000190: 00 9D 05 0E 01 81 20 4A B2 31 A4 31 30 00 B0 05 |...... J.1.10...|
000001A0: 18 01 4E 31 B2 B5 28 BB 28 31 29 AC 4E 29 AA 31 |..N1..(.(1).N).1|
000001B0: 00 C5 05 22 01 42 24 B2 41 41 24 28 4E 31 29 3A |...".B$.AA$(N1):|
000001C0: 54 31 B2 54 49 00 CD 05 2C 01 49 B2 31 00 E0 05 |T1.TI...,.I.1...|
000001D0: 36 01 8B 41 41 24 28 49 29 B2 42 24 A7 33 34 30 |6..AA$(I).B$.340|
000001E0: 00 EA 05 40 01 49 B2 49 AA 31 00 F4 05 4A 01 89 |...@.I.I.1...J..|
000001F0: 20 33 31 30 00 FE 05 54 01 54 32 B2 54 49 00 18 | 310...T.T2.TI..|
00000200: 06 5E 01 53 B2 B5 28 28 28 54 32 AB 54 31 29 AD |.^.S..(((T2.T1).|
00000210: 36 30 29 AC 31 30 30 29 00 24 06 68 01 53 B2 53 |60).100).$.h.S.S|
00000220: AD 31 30 30 00 2E 06 72 01 41 B2 41 AA 53 00 4D |.100...r.A.A.S.M|
00000230: 06 7C 01 99 20 22 49 54 45 4D 20 23 22 4E 31 22 |.|.. "ITEM #"N1"|
00000240: 20 20 22 53 22 53 45 43 4F 4E 44 53 22 00 55 06 | "S"SECONDS".U.|
00000250: 86 01 82 20 4A 00 74 06 90 01 99 20 22 41 56 47 |... J.t.... "AVG|
00000260: 20 53 45 41 52 43 48 20 54 49 4D 45 20 3D 20 22 | SEARCH TIME = "|
00000270: 41 AD 31 30 00 8E 06 9A 01 99 22 42 49 4E 41 52 |A.10......"BINAR|
00000280: 59 20 54 52 45 45 20 53 45 41 52 43 48 22 00 96 |Y TREE SEARCH"..|
00000290: 06 A4 01 41 B2 30 00 A3 06 AE 01 81 20 4A B2 31 |...A.0...... J.1|
000002A0: A4 31 30 00 B6 06 B8 01 4E 31 B2 B5 28 BB 28 31 |.10.....N1..(.(1|
000002B0: 29 AC 4E 29 AA 31 00 CB 06 C2 01 42 24 B2 41 41 |).N).1.....B$.AA|
000002C0: 24 28 4E 31 29 3A 54 31 B2 54 49 00 D5 06 CC 01 |$(N1):T1.TI.....|
000002D0: 8D 20 37 36 30 00 DF 06 D6 01 54 32 B2 54 49 00 |. 760.....T2.TI.|
000002E0: F1 06 E0 01 8B 53 B2 AB 31 20 A7 20 99 22 2A 22 |.....S..1 . ."*"|
000002F0: 3B 00 13 07 EA 01 53 B2 B5 28 28 28 54 32 AB 54 |;.....S..(((T2.T|
00000300: 31 29 AD 36 30 29 AC 31 30 30 29 3A 53 B2 53 AD |1).60).100):S.S.|
00000310: 31 30 30 00 1D 07 F4 01 41 B2 41 AA 53 00 3B 07 |100.....A.A.S.;.|
00000320: FE 01 99 20 22 49 54 45 4D 20 23 22 4E 31 22 20 |... "ITEM #"N1" |
00000330: 22 53 22 53 45 43 4F 4E 44 53 22 00 43 07 08 02 |"S"SECONDS".C...|
00000340: 82 20 4A 00 62 07 12 02 99 20 22 41 56 47 20 53 |. J.b.... "AVG S|
00000350: 45 41 52 43 48 20 54 49 4D 45 20 3D 20 22 41 AD |EARCH TIME = "A.|
00000360: 31 30 00 6C 07 1C 02 42 24 B2 22 22 00 87 07 26 |10.l...B$.""...&|
00000370: 02 85 20 22 53 54 52 49 4E 47 20 54 4F 20 46 49 |.. "STRING TO FI|
00000380: 4E 44 20 22 3B 42 24 00 96 07 30 02 8B 42 24 B2 |ND ";B$...0..B$.|
00000390: 22 22 20 A7 20 80 00 A0 07 3A 02 54 31 B2 54 49 |"" . ....:.T1.TI|
000003A0: 00 AA 07 44 02 8D 20 37 36 30 00 B4 07 4E 02 54 |...D.. 760...N.T|
000003B0: 32 B2 54 49 00 CE 07 58 02 8B 53 B2 AB 31 20 A7 |2.TI...X..S..1 .|
000003C0: 20 99 22 4E 4F 54 20 46 4F 55 4E 44 22 3B 00 F0 | ."NOT FOUND";..|
000003D0: 07 62 02 53 B2 B5 28 28 28 54 32 AB 54 31 29 AD |.b.S..(((T2.T1).|
000003E0: 36 30 29 AC 31 30 30 29 3A 53 B2 53 AD 31 30 30 |60).100):S.S.100|
000003F0: 00 0E 08 6C 02 99 20 22 53 45 41 52 43 48 20 54 |...l.. "SEARCH T|
00000400: 49 4D 45 22 53 22 53 45 43 4F 4E 44 53 22 00 18 |IME"S"SECONDS"..|
00000410: 08 76 02 89 20 35 34 30 00 1E 08 80 02 3A 00 44 |.v.. 540.....:.D|
00000420: 08 8A 02 8F 20 20 54 48 45 20 42 49 4E 41 52 59 |.... THE BINARY|
00000430: 20 54 52 45 45 20 49 4E 53 45 52 54 20 52 4F 55 | TREE INSERT ROU|
00000440: 54 49 4E 45 00 4A 08 94 02 3A 00 60 08 9E 02 4B |TINE.J...:.`...K|
00000450: B2 31 20 3A 20 8F 20 42 41 53 45 20 49 53 20 31 |.1 : . BASE IS 1|
00000460: 00 79 08 A8 02 8B 41 41 24 28 49 29 B1 41 41 24 |.y....AA$(I).AA$|
00000470: 28 4B 29 20 A7 20 37 31 30 00 95 08 B2 02 8B 20 |(K) . 710...... |
00000480: 4C 28 4B 29 B3 B1 30 20 A7 20 4B B2 4C 28 4B 29 |L(K)..0 . K.L(K)|
00000490: 3A 89 36 38 30 00 A2 08 BC 02 4C 28 4B 29 B2 49 |:.680.....L(K).I|
000004A0: 3A 8E 00 BE 08 C6 02 8B 20 52 28 4B 29 B3 B1 30 |:....... R(K)..0|
000004B0: 20 A7 20 4B B2 52 28 4B 29 3A 89 36 38 30 00 CB | . K.R(K):.680..|
000004C0: 08 D0 02 52 28 4B 29 B2 49 3A 8E 00 D1 08 DA 02 |...R(K).I:......|
000004D0: 3A 00 F7 08 E4 02 8F 20 20 54 48 45 20 42 49 4E |:...... THE BIN|
000004E0: 41 52 59 20 54 52 45 45 20 53 45 41 52 43 48 20 |ARY TREE SEARCH |
000004F0: 52 4F 55 54 49 4E 45 00 FD 08 EE 02 3A 00 06 09 |ROUTINE.....:...|
00000500: F8 02 53 B2 AB 31 00 0E 09 02 03 4B B2 31 00 23 |..S..1.....K.1.#|
00000510: 09 0C 03 8B 41 41 24 28 4B 29 B2 42 24 A7 53 B2 |....AA$(K).B$.S.|
00000520: 4B 3A 8E 00 38 09 16 03 8B 42 24 B1 41 41 24 28 |K:..8....B$.AA$(|
00000530: 4B 29 20 A7 20 38 32 30 00 48 09 20 03 8B 4C 28 |K) . 820.H. ..L(|
00000540: 4B 29 B2 30 20 A7 20 8E 00 59 09 2A 03 4B B2 4C |K).0 . ..Y.*.K.L|
00000550: 28 4B 29 3A 89 20 37 38 30 00 69 09 34 03 8B 52 |(K):. 780.i.4..R|
00000560: 28 4B 29 B2 30 20 A7 20 8E 00 7A 09 3E 03 4B B2 |(K).0 . ..z.>.K.|
00000570: 52 28 4B 29 3A 89 20 37 38 30 00 00 00 |R(K):. 780... |
.. .D.. BINARY TREE DEMO PROGRAM.3.N.. B
Y HERB ROSE.R.X.."SIZE OF STRING ARRAY "
;N.K....".BINARY TREE DEMO"......"CREATI
NG "N" RANDOM STRINGS"...... AA$(N):. L(
N):. R(N)... .SD..TI:A..(SD).G....I.1.N.
..... I".":N1..(.(1).10).1:A$.""......J.
1.N1:B$.G(.(.(1).26.65)):A$.A$.B$:.J.".H
.AA$(I).A$.5.R.L(I).0: R(I).0.F....I.1 .
. 670.N.... I.C...."ARRAY CREATED".....
."SEQUENTIAL SEARCH FOR RECORDS".....A.0
...... J.1.10.....N1..(.(1).N).1.E.".B$.
AA$(N1):T1.TI.M.,.I.1...6..AA$(I).B$.340
...@.I.I.1...J.. 310...T.T2.TI...^.S..((
(T2.T1).60).100).$.H.S.S.100...R.A.A.S.M
.|.. "ITEM #"N1" "S"SECONDS".U.... J.T.
... "AVG SEARCH TIME = "A.10......"BINAR
Y TREE SEARCH".....A.0...... J.1.10.....
N1..(.(1).N).1.K.B.B$.AA$(N1):T1.TI.U.L.
. 760...V.T2.TI......S..1 . ."*";.....S.
.(((T2.T1).60).100):S.S.100.....A.A.S.;.
... "ITEM #"N1" "S"SECONDS".C.... J.B...
. "AVG SEARCH TIME = "A.10.L...B$.""...&
.. "STRING TO FIND ";B$...0..B$."" . ..
.:.T1.TI...D.. 760...N.T2.TI.N.X..S..1 .
."NOT FOUND";...B.S..(((T2.T1).60).100)
:S.S.100...L.. "SEARCH TIME"S"SECONDS"..
.V.. 540.....:.D.... THE BINARY TREE IN
SERT ROUTINE.J...:.`...K.1 : . BASE IS 1
.Y....AA$(I).AA$(K) . 710...... L(K)..0
. K.L(K):.680.....L(K).I:....F.. R(K)..0
. K.R(K):.680.K.P.R(K).I:..Q.Z.:......
THE BINARY TREE SEARCH ROUTINE.....:...
..S..1.....K.1.#....AA$(K).B$.S.K:..8...
.B$.AA$(K) . 820.H. ..L(K).0 . ..Y.*.K.L
(K):. 780.I.4..R(K).0 . ..Z.>.K.R(K):. 7
80...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL